版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

xiaobear20

金虫 (小有名气)

(⊙o⊙)…

应助: 0 (幼儿园)
金币: 652.8
帖子: 106
在线: 25.8小时
虫号: 1252476
注册: 2011-04-01
性别: GG
专业: 传热传质学

[求助] FORTRAN新手求助一个运行结果问题

我有一个有关一维数组运算的小程序，定义没有问题，没有编译错误，其计算公式为：DO J=119,2,-1
   W(J)=(A(J)-W(J+1))/C(J)
   ENDDO
            A(J)                      C(J) 如下
   0.0000000028       0.0432152076
      0.0000000080       0.4230034067
      0.0000000200       0.0675112414
      0.0000000503       0.3152820300
      0.0000000917       0.0932565326
      0.0000001837       0.2671521899
      0.0000002958       0.1200595684
      0.0000005230       0.2461530634
      0.0000007846       0.1487013278
      0.0000012550       0.2423849710
      0.0000017481       0.1809267587
      0.0000024987       0.2513632934
      0.0000031507       0.2161753841
      0.0000039613       0.2670218809
      0.0000045009       0.2493410692
      0.0000050727       0.2835216641
      0.0000053664       0.2768993396
      0.0000056714       0.2996388635
      0.0000058121       0.3000725200
      0.0000059838       0.3164350571
      0.0000060907       0.3213782054
      0.0000062401       0.3347372825
      0.0000063807       0.3426027479
      0.0000065673       0.3548846632
      0.0000067743       0.3647554643
      0.0000070300       0.3770046717
      0.0000073234       0.3883991751
      0.0000076706       0.4011818986
      0.0000080693       0.4138823202
      0.0000085310       0.4275220101
      0.0000090589       0.4414660371
      0.0000096638       0.4561730072
      0.0000103536       0.4713921106
      0.0000111404       0.4873352069
      0.0000120369       0.5039246029
      0.0000130589       0.5212726233
      0.0000142242       0.5393813747
      0.0000155544       0.5583309489
      0.0000170745       0.5781656441
      0.0000188141       0.5989652814
      0.0000208079       0.6208049285
      0.0000230973       0.6437817216
      0.0000257305       0.6680029769
      0.0000273849       0.6628940941
      0.0000306438       0.6626951808
      0.0000380087       0.6870547624
      0.0000495610       0.7177898795
      0.0000654069       0.7478146162
      0.0000866672       0.7814245158
      0.0001147456       0.8159773834
      0.0001526284       0.8557560189
      0.0002037946       0.8995648086
      0.0002706431       0.9414250930
      0.0003573056       0.9832661450
      0.0004705587       1.0281051767
      0.0006188167       1.0756054185
      0.0008131309       1.1263346082
      0.0010678530       1.1805121143
      0.0014019227       1.2385922053
      0.0018403161       1.3010228767
      0.0024161538       1.3683727946
      0.0031734977       1.4413064539
      0.0041712486       1.5206316703
      0.0054885465       1.6073300283
      0.0072323688       1.7026109212
      0.0095483216       1.8079801890
      0.0126361789       1.9253379478
      0.0167725956       2.0571169506
      0.0223448885       2.2064830382
      0.0299023241       2.3776332103
      0.0402359135       2.5762517975
      0.0545061448       2.8102285381
      0.0744547118       3.0908369091
      0.1027705921       3.4347546484
      0.1437565742       3.8677185624
      0.2046245357       4.4316008666
      0.2982323801       5.1993308242
      0.4495469896       6.3100936302
      0.7134651468       8.0663641831
      1.2368908524    11.2719411417
      2.5838112047    19.0023300152
      10.7484044968    63.9083801926
      -9.3378721564    -45.0076484338
      -4.1869272658    -16.4211800200
      -3.1106817830    -9.9797792711
      -2.7062429896    -7.1531200579
      -2.5388922556    -5.5817548104
      -2.4833009360    -4.5975846161
      -2.4875280483    -3.9395479891
      -2.5238165909    -3.4853205644
      -2.5742890861    -3.1704471578
      -2.6265872707    -2.9579728581
      -2.6732473002    -2.8251790778
      -2.7123579058    -2.7571589913
      -2.7478353300    -2.7435520687
      -2.7882302604    -2.7769239332
      -2.8441118800    -2.8520292593
      -2.9252254308    -2.9654855651
      -3.0387939926    -3.1155714012
      -3.1894202876    -3.3020276919
      -3.3800204749    -3.5258530083
      -3.6129352439    -3.7891221094
      -3.8907191643    -4.0948493767
      -4.2165457132    -4.4469012916
      -4.5943662656    -4.8499518224
      -5.0289626739    -5.3094720218
      -5.5259723489    -5.8317462993
      -6.0919176167    -6.4239098779
      -6.7342487418    -7.0940037672
      -7.4614021649    -7.8510449111
      -8.2828734203    -8.7051100785
      -9.2093039133    -9.6674326601
   -10.2525808956    -10.7505119276
   -11.4259502114    -11.9682345699
   -12.7441415872    -13.3360084897
   -14.2235063967    -14.8709089601
   -15.8275695484    -16.5505112209
      -2.1155865359    -2.0480184438
W(120)=1 我的问题是从数据上看，数组C总是大于数组A的，W的值应该很小才对，而且从119到2逐渐递减，到很小的值，但是在看运行结果W时，W在119到5,60位时还是正常递减，再往前就出现了很大的值，还是逐渐递增，就是不知道问题出在哪，难道我的编译器有问题，求大神帮运行看一下啊，多谢

回复此楼

» 猜你喜欢

售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有4人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有5人回复
评审感受-评审感受-评审感受已经有20人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有4人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有4人回复
售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急已经有3人回复

» 本主题相关价值贴推荐，对您同样有帮助:

关于Fortran程序运行的求助已经有2人回复
fortran程序运行黑框闪下就消失已经有5人回复
【求助】运行fortran程序出现错误 : error LNK2019 怎么回事啊已经有8人回复
【求助】请教如何在超算上运行fortran程序已经有4人回复
【求助】fortran出错编译通过运行溢出已经有10人回复
【求助】FORTRAN编译通过，但是运行不了已经有19人回复
【求助】fortran程序未出错，但运行不出结果，中途中断！已经有6人回复
【求助】此FORTRAN90程序没有错误，但是运行不出来。已经有4人回复
【求助】Fortran程序，如何让exe文件可以单独运行？已经有6人回复

一切还好

1楼 2012-04-10 19:21:11

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

程序强帖: 16
应助: 157 (高中生)
贵宾: 0.02
金币: 18844.7
红花: 29
帖子: 3803
在线: 1422.4小时
虫号: 183750
注册: 2006-02-13
专业: 污染生态化学

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
xiaobear20: 金币+13, ★★★很有帮助, 十分感谢 2012-04-11 15:51:32

你这里的数据只有118行啊？

我用 R 简单地路一样，你这数 W 中应该有一些非常大的数据……

赞一下