| 查看: 3933 | 回复: 9 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
exp中有循环变量，结果出现infinity，怎么处理
|
|||
|
输出结果为 <-infinity,infinity> <-infinity,infinity> <-infinity,infinity> …… …… 问题1：这怎么处理？ 问题2：结果为什么会有两列，而不是一列？ （初学FORTRAN，还请高手指教） 代码如下： program abc real bx(100),by(100) integer k,n complex i,q open(10,file='haha111.dat',status='unknown') i=(0,1) do 3 n=0,99 bx(n+1)=bx(n)+1 by(n+1)=by(n)+2 3 continue do 2 k=1,99 p=sqrt((sqrt(bx(k)**2+by(k)**2)-50/6.582122e-16)**2-by(k)**2) q=exp(i*2+p) write(*,*)q 2 continue close(10,status='keep') end |
回复此楼» 猜你喜欢
材料调剂
已经有7人回复
-
化学工程085602 305分求调剂
已经有10人回复
-
289求调剂
已经有15人回复
-
291 求调剂
已经有7人回复
-
274求调剂
已经有14人回复
-
北京林业大学硕导招生广告
已经有3人回复
-
309求调剂
已经有5人回复
-
292求调剂
已经有8人回复
-
求调剂
已经有4人回复
-
一志愿 西北大学 总分282 英语一62 求调剂
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- Matlab(或者Mathematica) 如何进行复杂函数的二重积分？
已经有6人回复
- 求带积分项（积分项除了积分变量还有一个符号常量）的非线性方程
已经有7人回复
3楼2013-09-03 08:29:39
jerkwin
专家顾问 (正式写手)
-
专家经验: +14 - 应助: 454 (硕士)
- 金币: 20699.1
- 散金: 148
- 红花: 81
- 帖子: 813
- 在线: 2648.3小时
- 虫号: 1023452
- 注册: 2010-05-19
- 专业: 理论和计算化学
- 管辖: 分子模拟
2楼2013-09-03 07:03:11
bennett_14
木虫 (正式写手)
- 应助: 11 (小学生)
- 金币: 7204.8
- 红花: 4
- 沙发: 1
- 帖子: 932
- 在线: 421.5小时
- 虫号: 1073877
- 注册: 2010-08-13
- 性别: GG
- 专业: 计算机科学
4楼2013-09-03 08:31:18
jerkwin
专家顾问 (正式写手)
-
专家经验: +14 - 应助: 454 (硕士)
- 金币: 20699.1
- 散金: 148
- 红花: 81
- 帖子: 813
- 在线: 2648.3小时
- 虫号: 1023452
- 注册: 2010-05-19
- 专业: 理论和计算化学
- 管辖: 分子模拟
5楼2013-09-03 08:46:25
