24小时热门版块排行榜    

Znn3bq.jpeg
查看: 1633  |  回复: 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的回帖
查看全部 12 个回答
★ ★ ★
夕阳西下(金币+1):谢谢参与
jjdg(金币+1): 感谢参与 2012-02-06 10:16:30
jjdg(金币+1): 元宵节快乐 2012-02-06 10:16:45
ben_ladeng(专家考核): 2012-02-14 12:10:21
你这个是 fortran 的程序吗?
里面有很多变量根本就没有定义,比如 H1
ne 是数组还是普通的变量?
I、J作为 HX 和 NE 的维度的时候没有赋值……

你这个程序用任何一个编译器都编译不过去,根据编译器的提示修改吧……
2楼2012-02-05 23:25:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

夕阳西下

金虫 (著名写手)


引用回帖:
2楼: Originally posted by snoopyzhao at 2012-02-05 23:25:40:
你这个是 fortran 的程序吗?
里面有很多变量根本就没有定义,比如 H1
ne 是数组还是普通的变量?
I、J作为 HX 和 NE 的维度的时候没有赋值……

你这个程序用任何一个编译器都编译不过去,根据编译器的提示 ...

主要是ne的问题,ne是个函数,就是根据编译器不知道ne该如何修改,改了很多次。
3楼2012-02-06 10:01:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baobiao007

木虫 (职业作家)



夕阳西下(金币+1):谢谢参与
余泽成(金币+2): 谢谢参与应助! 2012-02-21 00:27:51
我感觉就程序编写来说,似乎有两个问题:
1.  不能用变量I 直接定义数组ne的大小。
    应写成(按fortran90风格)
    integer,parameter:: J
      real:: ne(J)
2.  Hx(0),Hx(I)那两行,你似乎把ne数组的下标丢了。
4楼2012-02-06 16:53:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
提示: 如果您在30分钟内回复过其他散金贴,则可能无法领取此贴金币
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求助调剂,跨调 +6 X十甫寸Y 2026-04-11 6/300 2026-04-11 10:43 by qingpingzhu
[考研] 269电子信息求调剂,可转专业 +10 独酌wl 2026-04-06 10/500 2026-04-11 10:40 by zhq0425
[考研] 0854调剂 +8 950824he@ 2026-04-09 8/400 2026-04-11 10:11 by zhq0425
[考研] 求调剂288 +6 ioodiiij 2026-04-10 8/400 2026-04-10 21:07 by zhouxiaoyu
[考研] 计算机类求调剂,22408-274分 +7 上岸de小虫 2026-04-09 8/400 2026-04-10 19:56 by fxue1114
[论文投稿] mdpi小修rvr时间四五天了 20+3 哈哈high 2026-04-08 5/250 2026-04-10 16:02 by 北京莱茵润色
[考研] 301求调剂 +5 149. 2026-04-10 5/250 2026-04-10 15:45 by 柴小白
[考研] 336材料与化工085600求调剂 +21 水星记infp 2026-04-05 24/1200 2026-04-10 15:28 by luoyongfeng
[考研] 348求调剂 +3 candyyyi 2026-04-09 3/150 2026-04-09 17:20 by 段伟艳
[考研] 求调剂 +13 柒luck 2026-04-07 13/650 2026-04-08 22:46 by 猪会飞
[考研] 生物学学硕,初试351分,求调剂 +4 …~、王…~ 2026-04-08 5/250 2026-04-08 21:49 by limeifeng
[考研] 考研求调剂 +4 雯??? 2026-04-08 4/200 2026-04-08 21:44 by 土木硕士招生
[考研] 电子信息346 +4 zuoshaodian 2026-04-08 4/200 2026-04-08 11:54 by zzucheup
[考研] 305求调剂 +4 77Qi 2026-04-06 4/200 2026-04-07 20:06 by shanqishi
[考研] 085100建筑学 寻求跨专业调剂 一志愿南大294分 校级省级国家级奖项若干 踏实肯干 +3 1021075758 2026-04-06 4/200 2026-04-07 09:23 by 蓝云思雨
[考研] 一志愿太原理工大学计算机技术专硕348,求调剂指导 +3 nexious 2026-04-05 3/150 2026-04-07 08:19 by jp9609
[考研] 复试调剂 +14 呼呼?~+123456 2026-04-05 14/700 2026-04-06 22:50 by chenzhimin
[考研] 377求调剂 +6 by.ovo 2026-04-05 6/300 2026-04-05 22:18 by dongzh2009
[考研] 08专硕275调剂 +5 AaAa7420 2026-04-05 5/250 2026-04-05 18:01 by jkddd
[考研] 怎么删帖子啊 +3 缝曦1000 2026-04-04 3/150 2026-04-04 14:20 by 土木硕士招生
信息提示
请填处理意见