24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 3962  |  回复: 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的回帖

绿遍山原

兑换贵宾

优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!

【答案】应助回帖

感谢参与,应助指数 +1
引用回帖:
9楼: Originally posted by 宇天旅梦 at 2013-09-03 09:07:44
那是怎么?请详细说一下...

你的式子里50/6.582122e-16比其他项大很多,所以p基本就是这个值附近,所以q指数项的实部基本就是50/6.582122e-16,指数项这么大的数值肯定溢出了。
要夢遊,不要催眠。
10楼2013-09-03 10:56:08
已阅   回复此楼   关注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的回帖

bennett_14

兑换贵宾

优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!

【答案】应助回帖

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

[ 发自小木虫客户端 ]
君子当自强不息,死而后已!
4楼2013-09-03 08:31:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 294分080500材料科学与工程求调剂 +12 柳溪边 2026-03-26 13/650 2026-04-01 01:37 by 1018329917
[考研] 一志愿085600中科院宁波所276分求调剂 +16 材料学257求调剂 2026-03-28 17/850 2026-04-01 01:32 by 1018329917
[考研] 材料科学与工程求调剂 +13 深V宿舍吧 2026-03-29 13/650 2026-03-31 19:50 by Dyhoer
[考研] 安徽大学专硕生物与医药专业(086000)324分,英语已过四六级,六级521,求调剂 +10 美味可乐鸡翅 2026-03-26 11/550 2026-03-31 19:20 by syh9288
[考研] 085600 一志愿9 总分351 求调剂学校 +7 czhcz 2026-03-31 7/350 2026-03-31 18:54 by 小张做实验
[考研] 085600 295分求调剂 +13 W55j 2026-03-30 15/750 2026-03-31 13:29 by 王亮_大连医科大
[考研] 材料与化工调剂一志愿大连海事085600,349 +6 吃的不少 2026-03-30 6/300 2026-03-31 04:17 by fmesaito
[有机交流] 甲基亚磺磺酸钠和甲基磺酸酯反应机理 10+3 kaobao456 2026-03-29 4/200 2026-03-30 23:16 by nBu锂
[考研] 085701环境工程求调剂 +11 多久上课 2026-03-27 12/600 2026-03-30 21:21 by 研究僧导导
[考研] 一志愿南昌大学324求调剂 +9 hanamiko 2026-03-27 9/450 2026-03-30 20:10 by 无际的草原
[考研] 304材料求调剂 +5 钟llll 2026-03-26 5/250 2026-03-30 19:37 by 源_2020
[考研] 085602 化学工程专硕 340分求调剂 +4 qianbai11 2026-03-29 4/200 2026-03-30 11:34 by 唐沐儿
[考研] 275求调剂 +15 Micky11223 2026-03-25 20/1000 2026-03-29 20:44 by 唐沐儿
[考研] 340求调剂 +6 Amber00 2026-03-26 6/300 2026-03-29 12:06 by 无际的草原
[考研] 343求调剂 +6 爱羁绊 2026-03-29 6/300 2026-03-29 12:00 by 无际的草原
[考研] 求调剂 +7 争取九点睡 2026-03-28 8/400 2026-03-28 21:07 by 争取九点睡
[考研] 283求调剂 +7 A child 2026-03-28 7/350 2026-03-28 12:05 by zllcz
[考研] 一志愿南京航空航天大学材料学硕求调剂 +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
[考研] 086502化学工程342求调剂 +6 阿姨复古不过 2026-03-27 6/300 2026-03-28 07:06 by wangy0907
[考研] 340求调剂 +5 jhx777 2026-03-27 5/250 2026-03-28 04:18 by fmesaito
信息提示
请填处理意见