24小时热门版块排行榜    

查看: 1450  |  回复: 11
【有奖交流】积极回复本帖子,参与交流,就有机会分得作者 夕阳西下 的 4 个金币 ,回帖就立即获得 1 个金币,每人有 1 次机会
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

夕阳西下

金虫 (著名写手)


[交流] 程序运行不了问题在哪

下面这个程序有错误,怎么改呢?
program Ne
integer :: I,J, N, Ny
real::  ne(J)
real::  Hx(I)
N=1000
Ny=1000
Dx=0.1
Dt=0.1
n0=5E+2
m=2.1
p=2
Te=5
q=0.6E-19
E=2
k=0.514E-9
v=n0*k
Hx(0)=sqrt(8*Te/pm)*ne*(1-0.25)
Hx(I)=-(q/m*v)*E(ne/(1-exp(q*E*Dx/Te)+ne/(1-exp(-q*E*Dx/Te))

open (unit=10,FILE='1.txt')
DO I=2,N-1

  DO J=2,Ny-1
    HX(I)=(H1(I+1)-H1(I-1))/(2*DX)
    ne(J)=(ne(J+1)-ne(J-1))/(2*Dt)
    ne(J)=Hx(I)+R
   end do
end do


write (10,"('N=?,Ny=?')" ne(I)
stop
end
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

» 抢金币啦!回帖就可以得到:

查看全部散金贴

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

q1036210267

木虫 (正式写手)



夕阳西下(金币+1):谢谢参与
jjdg(金币+1): 2012-02-14 13:14:02
jjdg: 感谢参与 2012-02-14 13:14:07
ne 是与变量有关的函数吗,若不是,取消ne(j)的数组定义,直接定义ne就行
9楼2012-02-14 10:42:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

q1036210267

木虫 (正式写手)


引用回帖:
9楼: Originally posted by q1036210267 at 2012-02-14 10:42:28:
ne 是与变量有关的函数吗,若不是,取消ne(j)的数组定义,直接定义ne就行

有变量关系,那就应该定义数组 格式。但是,你后面使用的ne 又是整数或浮点数格式,因此有冲突,因此编译的时候会显示程序错误。
11楼2012-02-15 09:39:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 夕阳西下 的主题更新
提示: 如果您在30分钟内回复过其他散金贴,则可能无法领取此贴金币
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见