| 查看: 3960 | 回复: 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 |
回复此楼» 猜你喜欢
342求调剂
已经有3人回复
-
070300化学专业279调剂
已经有9人回复
-
求调剂：085600材料与化工，考材科基，总分319
已经有20人回复
-
一志愿华东理工大学，080500学硕，317分，求调剂
已经有9人回复
-
一志愿a区211，085601-307分求调剂
已经有23人回复
-
合肥区域性重点一本招收调剂
已经有8人回复
-
材料调剂
已经有10人回复
-
288求调剂 一志愿哈工大 材料与化工
已经有13人回复
-
材料科学与工程339求调剂
已经有3人回复
-
化学308分调剂
已经有11人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- Matlab(或者Mathematica) 如何进行复杂函数的二重积分？
已经有6人回复
- 求带积分项（积分项除了积分变量还有一个符号常量）的非线性方程
已经有7人回复
jerkwin
专家顾问 (正式写手)
-
专家经验: +14 - 应助: 454 (硕士)
- 金币: 20699.1
- 散金: 148
- 红花: 81
- 帖子: 813
- 在线: 2648.3小时
- 虫号: 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 (硕士)
- 金币: 20699.1
- 散金: 148
- 红花: 81
- 帖子: 813
- 在线: 2648.3小时
- 虫号: 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 (硕士)
- 金币: 20699.1
- 散金: 148
- 红花: 81
- 帖子: 813
- 在线: 2648.3小时
- 虫号: 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
