0. 建议你到 fortran 连线转信版贴文。 1. 回圈内不要用实数，这在计概就有说，用整数处理再用 Real 函数转换。而且你的阵列索引不可能有小数。 2. 什麽东西跑到 200 ？ ==> 本文由 "momo <[email protected]>" > 於 news:4YgCjL%248Tl%40ptt.cc 发表 > f=0.5 > > do i=0,3.49,0.01 > fz0=f+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(i+1)**2./2.)))) > fz(i)=fz0+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i+1)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(I+2)**2./2.)))) > fz(I+1)=fz(i)+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i+2)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(I+3)**2./2.)))) > fz(I+2)=fz(i+1)+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i+3)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(I+4)**2./2.)))) > !fz(i)=fz(I+1) > end do > 要跑到200可已帮我修改一下写法吗? > 最後回到3.49 > 请指教 多谢 -- 风禹科技验证有限公司 ASP.NET Web News Reader 0.2.7 UTF-8 Beta 网站地图 http://tlcheng.twbbs.org/wwwmap.htm 流域防洪/区域水资源/徐昇网/玫瑰图/语音通讯 文章与程式 Basic/Fortran/Windows API/.Net/辅助说明档 原始码、文章与讨论 微软程式设计、系统管理使用新技术论坛讨论区，网友回覆後即时简讯、电子邮件通知： MSDN: http://forums.microsoft.com/msdn-cht/default.aspx?siteid=14 TechNet: http://forums.microsoft.com/technet-cht/default.aspx?siteid=23 -- ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.language