24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

dota菜鸟

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 3.5
帖子: 6
在线: 3.2小时
虫号: 983769
注册: 2010-03-27
专业: 结构工程

[交流] 【求助】fortran新手求教【已完结】已有3人参与

第一次用fortran写级数的求和，编译是出现问题，求大侠帮忙解决一下！
do j=1,7
total=0.0
tot=0.0
do i=1,32
   wsin(j,i)=p*cos(j*thita(1)*(t(1,i)+l/(2*v(1))))
   fcos(j,i)=p*sin(j*thita(1)*(t(1,i)+l/(2*v(1))))
   total=total+wsin(j,i)
   tot=tot+fcos(j,i)
end do
s(j)=total
u(j)=tot
end do
do i=1,7,2
do j=1,7
a(i,j)=4*l*cos(j*thita(1)*l/(2*v(1)))*s(j)/((i*pi*(l+d(32)))*(1-(j*thita(1)*l/(i*pi*v(1)))**2)
b(i,j)=4*l*cos(j*thita(1)*l/(2*v(1)))*u(j)/((i*pi*(l+d(32)))*(1-(j*thita(1)*l/(i*pi*v(1)))**2)
end do
end do
编译时a（i，j）和b（i，j）那两行出现错误rror: Syntax error, found END-OF-STATEMENT when expecting one of: , )
b(i,j)=4*l*cos(j*thita(1)*l/(2*v(1)))*u(j)/((i*pi*(l+d(32)))*(1-(j*thita(1)*l/(i*pi*v(1)))**2)

[ Last edited by 余泽成 on 2010-7-13 at 20:55 ]

回复此楼

» 猜你喜欢

课题组招2027级博士上海工程技术大学激光智能制造方向已经有4人回复
现代”学阀”该如何界定已经有8人回复
上海工程技术大学激光智能制造课题组 2027级博士研究生招生已经有3人回复
实名举报：华南理工大学物理与光电学院副院长李志远婚内两次出轨女学生（博士）已经有16人回复
上海工程技术大学激光智能制造课题组｜2027级博士研究生招生公告已经有11人回复
上海工程技术大学激光智能制造课题组招收博士研究生已经有10人回复
申博发邮件已经有11人回复
各位大神，目前国内有哪些比较好用的逆合成软件？已经有12人回复
我的奶奶已经有3人回复
国社科系统bug了，是不是要放榜了？已经有9人回复

1楼 2010-07-09 15:25:43

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
resonant(金币+1):信息费：-） 2010-07-10 19:56:07

a(i,j)=4*l*cos(j*thita(1)*l/(2*v(1)))*s(j)/((i*pi*(l+d(32)))*(1-(j*thita(1)*l/(i*pi*v(1)))**2)
b(i,j)=4*l*cos(j*thita(1)*l/(2*v(1)))*u(j)/((i*pi*(l+d(32)))*(1-(j*thita(1)*l/(i*pi*v(1)))**2)

以上这两行的行末都少了一个右括号