24小时热门版块排行榜    

查看: 3925  |  回复: 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
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bennett_14

木虫 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
q也没有定义啊,q是啥???

[ 发自小木虫客户端 ]
君子当自强不息,死而后已!
4楼2013-09-03 08:31:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

感谢参与,应助指数 +1
do 3 n=0,99
            bx(n+1)=bx(n)+1
            by(n+1)=by(n)+2
3        continue
循环有问题, bx(0)没有定义
两列那是复数的实部和虚部
2楼2013-09-03 07:03:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

宇天旅梦

铜虫 (小有名气)

引用回帖:
2楼: Originally posted by jerkwin at 2013-09-03 07:03:11
do 3 n=0,99
            bx(n+1)=bx(n)+1
            by(n+1)=by(n)+2
3        continue
循环有问题, bx(0)没有定义
两列那是复数的实部和虚部

改了一下,定义bx(0)=1
                     by(0)=10
可还是出现相同的情况
3楼2013-09-03 08:29:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

引用回帖:
3楼: Originally posted by 宇天旅梦 at 2013-09-03 08:29:39
改了一下,定义bx(0)=1
                     by(0)=10
可还是出现相同的情况...

50/6.582122e-16
这个数值太大, 溢出了
我怀疑你的公式不对, 单位搞混了
5楼2013-09-03 08:46:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085602 289分求调剂 +5 WWW西西弗斯 2026-03-24 5/250 2026-03-24 18:51 by jhhcooi
[考研] 307求调剂 +3 余意卿 2026-03-21 6/300 2026-03-24 15:03 by 余意卿
[考研] 一志愿哈工大,085400,320,求调剂 +3 gdlf9999 2026-03-24 3/150 2026-03-24 10:08 by 搏击518
[考研] 0854电子信息求调剂 324 +3 Promise-jyl 2026-03-23 3/150 2026-03-23 13:43 by wangkm
[考研] 一志愿070300浙大化学358分,求调剂! +4 酥酥鱼.. 2026-03-21 4/200 2026-03-23 08:12 by Iveryant
[考研] 323求调剂 +6 洼小桶 2026-03-18 6/300 2026-03-23 00:29 by king123!
[考研] 293求调剂 +3 涛涛Wjt 2026-03-22 5/250 2026-03-22 22:21 by jiangpengfei
[考研] 材料与化工085600,总分304,本科有两篇sci参与,求调剂 +4 幸运的酱酱 2026-03-22 5/250 2026-03-22 20:15 by edmund7
[考研] 306求调剂 +5 来好运来来来 2026-03-22 5/250 2026-03-22 16:17 by BruceLiu320
[考研] 311求调剂 +3 26研0 2026-03-20 3/150 2026-03-22 14:46 by ColorlessPI
[考研] 考研调剂 +4 来好运来来来 2026-03-21 4/200 2026-03-22 12:15 by 星空星月
[考研] 0703化学调剂 +4 妮妮ninicgb 2026-03-21 4/200 2026-03-21 18:39 by 学员8dgXkO
[考研] 材料学硕333求调剂 +3 北道巷 2026-03-18 3/150 2026-03-21 18:17 by 学员8dgXkO
[考研] 求助 +5 梦里的无言 2026-03-21 6/300 2026-03-21 17:51 by 学员8dgXkO
[考研] 307求调剂 +3 余意卿 2026-03-18 3/150 2026-03-21 17:31 by ColorlessPI
[考研] 266求调剂 +3 哇呼哼呼哼 2026-03-20 3/150 2026-03-21 16:46 by barlinike
[考研] 279求调剂 +5 红衣隐官 2026-03-21 5/250 2026-03-21 14:59 by lature00
[考研] 274求调剂 +10 S.H1 2026-03-18 10/500 2026-03-20 23:51 by JourneyLucky
[考研] 一志愿 西北大学 ,070300化学学硕,总分287,双非一本,求调剂。 +4 晨昏线与星海 2026-03-19 4/200 2026-03-20 22:15 by JourneyLucky
[考研] 353求调剂 +3 拉钩不许变 2026-03-20 3/150 2026-03-20 19:56 by JourneyLucky
信息提示
请填处理意见