| 查看: 1387 | 回复: 13 | ||
| 【悬赏金币】回答本帖问题，作者夕阳西下将赠送您 20 个金币 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
夕阳西下金虫 (著名写手)
|
[求助]
程序无法运行怎么回事
|
|
|
program L implicit none integer,parameter:: nx=100,nt=100,p=2,te=5,E=2 integer:: i,j real v real:: ne(x,t) real:: n0=5E+2,m=2.1,q=0.6E-19,k=0.514E-9,R=50.0,me=1.2E-3 v=n0*k x=0.0 t=0.0 do i=1,nx x=x+i*0.02 do j=1,nt t=t+j*0.01 ne(0,0)=0.6E-19 ne(x+i*0.02,t+(j+1)*0.01)=-25*te/(me*v)*ne(x+(i+1)*0.02,t+j*0.01)+(1+50*te/(me*v))*ne(x+i*0.02,t+j*0.01)-25*te/(me*v)*ne(x+(i-1)*0.02,t+j*0.01) open (unit=10,file="1.txt"  write (10,*) ne(x,t) end do end do stop end |
回复此楼» 猜你喜欢
化学求调剂
已经有5人回复
-
一志愿中国石油大学（华东） 本科齐鲁工业大学
已经有3人回复
-
332求调剂
已经有4人回复
-
265求调剂
已经有9人回复
-
328求调剂，英语六级551，有科研经历
已经有8人回复
-
求调剂
已经有3人回复
-
278求调剂
已经有6人回复
-
307求调剂
已经有10人回复
-
279分求调剂 一志愿211
已经有12人回复
-
297求调剂
已经有9人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
13楼2012-03-01 17:54:54
lurencyj
木虫 (著名写手)
- 应助: 159 (高中生)
- 金币: 2869.2
- 散金: 520
- 红花: 8
- 沙发: 10
- 帖子: 1244
- 在线: 148.3小时
- 虫号: 888093
- 注册: 2009-10-29
- 性别: GG
- 专业: 凝聚态物性I:结构、力学和
2楼2012-02-20 16:54:38
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
3楼2012-02-23 14:09:20
夕阳西下
金虫 (著名写手)
- 应助: 138 (高中生)
- 贵宾: 0.041
- 金币: 9247.1
- 散金: 73
- 红花: 28
- 沙发: 1
- 帖子: 1268
- 在线: 1164.4小时
- 虫号: 220750
- 注册: 2006-03-20
- 专业: 凝聚态物性 II ：电子结构
- 管辖: 物理
4楼2012-02-23 23:33:50
