您所在位置：主题：请高手帮我看看，程序结果不对
bobbycao
[专家分：0] 发布于 2005-01-07 14:35:00
program vv
real va(100),ve(100)
pi=acos(-1.0)
do i=1,13,1
q1=rand()
q2=rand()
va(i)=sqrt(-2.0*log(q1))*cos(2.0*pi*q2)
ve(i)=va(i)**2
ve(i)=ve(i)+ve(i)
write(*,*)ve(i)
enddo
end
我想把每次一循环出来的ve(i)加起来，求和。但结果只是出来每一步ve(i)=va(i)**2的结果，我把求和放到循环外结果就变成0.0000。。。，请高手帮忙，在线等，急啊，万分感谢！
real va(100),ve(100)
pi=acos(-1.0)
do i=1,13,1
q1=rand()
q2=rand()
va(i)=sqrt(-2.0*log(q1))*cos(2.0*pi*q2)
ve(i)=va(i)**2
ve(i)=ve(i)+ve(i)
write(*,*)ve(i)
enddo
end
我想把每次一循环出来的ve(i)加起来，求和。但结果只是出来每一步ve(i)=va(i)**2的结果，我把求和放到循环外结果就变成0.0000。。。，请高手帮忙，在线等，急啊，万分感谢！
