| 查看: 4174 | 回复: 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 |
回复此楼» 猜你喜欢
今年E04面上
已经有17人回复
-
2026年面上项目中了，2A+B, 会评顺利通过
已经有10人回复
-
大龄残疾硕士的一点执念
已经有16人回复
-
刑法学论文投稿求助
已经有5人回复
-
Journal of Environmental Chemical Engineering
已经有3人回复
-
最后一年，祈求好运
已经有3人回复
-
风电环氧领域
已经有3人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有4人回复
-
植酸TLC薄层色谱爬板
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- Matlab(或者Mathematica) 如何进行复杂函数的二重积分？
已经有6人回复
- 求带积分项（积分项除了积分变量还有一个符号常量）的非线性方程
已经有7人回复
jerkwin
专家顾问 (正式写手)
-
专家经验: +14 - 应助: 454 (硕士)
- 金币: 20659.1
- 散金: 148
- 红花: 81
- 帖子: 813
- 在线: 2648.7小时
- 虫号: 1023452
- 注册: 2010-05-19
- 专业: 理论和计算化学
- 管辖: 分子模拟
2楼2013-09-03 07:03:11
3楼2013-09-03 08:29:39
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 (硕士)
- 金币: 20659.1
- 散金: 148
- 红花: 81
- 帖子: 813
- 在线: 2648.7小时
- 虫号: 1023452
- 注册: 2010-05-19
- 专业: 理论和计算化学
- 管辖: 分子模拟
5楼2013-09-03 08:46:25
6楼2013-09-03 08:47:27
7楼2013-09-03 08:49:33
jerkwin
专家顾问 (正式写手)
-
专家经验: +14 - 应助: 454 (硕士)
- 金币: 20659.1
- 散金: 148
- 红花: 81
- 帖子: 813
- 在线: 2648.7小时
- 虫号: 1023452
- 注册: 2010-05-19
- 专业: 理论和计算化学
- 管辖: 分子模拟
8楼2013-09-03 08:54:56
9楼2013-09-03 09:07:44
10楼2013-09-03 10:56:08