24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 612  |  回复: 1

xiaobear20

金虫 (小有名气)

(⊙o⊙)…

[求助] 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位时还是正常递减,再往前就出现了很大的值,还是逐渐递增,就是不知道问题出在哪,难道我的编译器有问题,求大神帮运行看一下啊,多谢
回复此楼

» 猜你喜欢

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

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

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
xiaobear20: 金币+13, ★★★很有帮助, 十分感谢 2012-04-11 15:51:32
你这里的数据只有118行啊?

我用 R 简单地路一样,你这数 W 中应该有一些非常大的数据……
2楼2012-04-11 15:06:44
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 xiaobear20 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 327求调剂 +7 汲亦昊 2026-03-29 7/350 2026-04-02 10:23 by sanrepian
[考研] 重庆大学材料与化工085600,初试370+,求求调剂建议 +5 shzhou_ 2026-04-01 6/300 2026-04-02 10:05 by olim
[考研] 求调剂,一志愿 南京航空航天大学 ,080500材料科学与工程学硕,总分289分 +11 @taotao 2026-03-29 11/550 2026-04-02 10:04 by realme321
[考研] 372求调剂 +3 jj涌77 2026-04-02 3/150 2026-04-02 09:57 by olim
[考研] 385分 生物学(071000)求调剂 +5 qf626 2026-04-01 5/250 2026-04-02 09:46 by Jaylen.
[考研] 一志愿安徽大学计算机科学与技术学硕,331分求调剂 +5 蒋昌鹏qtj 2026-04-01 5/250 2026-04-02 08:10 by fxue1114
[考研] 307分求调剂 +14 (o~o) 2026-03-31 15/750 2026-04-01 20:43 by longlotian
[考研] 求调剂 +4 DADA怪 2026-03-31 4/200 2026-04-01 14:30 by ZXlzxl0425
[考研] 085600,321分求调剂 +13 大馋小子 2026-03-31 13/650 2026-04-01 12:35 by chemdavid
[考研] 333求调剂 +4 阿科逸 2026-03-31 4/200 2026-04-01 09:11 by jp9609
[考研] 0856材料与化工调剂,339 +10 10213207 2026-03-31 10/500 2026-04-01 08:28 by Linda Hu
[考研] 352分-085602-一志愿985 +6 海纳百川Ly 2026-03-29 6/300 2026-03-31 21:06 by yuq
[考研] 本科211生物医学工程085409求调剂339分 +7 里子木yy 2026-03-29 7/350 2026-03-31 14:35 by fmesaito
[考博] 材料专业申博 +5 杜雨婷dyt 2026-03-29 5/250 2026-03-31 11:19 by oooqiao
[考研] 调剂 +4 GK72 2026-03-30 4/200 2026-03-30 20:32 by dick_runner
[考研] 279求调剂 +12 j的立方 2026-03-29 12/600 2026-03-30 20:30 by dick_runner
[考研] 材料化工340求调剂 +3 jhx777 2026-03-30 3/150 2026-03-30 17:54 by JourneyLucky
[硕博家园] 招收生物学/细胞生物学调剂 +4 IceGuo 2026-03-26 5/250 2026-03-29 01:25 by griffith2014
[考研] 本科新能源科学与工程,一志愿华理能动285求调剂 +3 AZMK 2026-03-27 5/250 2026-03-28 16:19 by xxxsssccc
[考研] 265求调剂 +8 小木虫085600 2026-03-27 8/400 2026-03-27 22:16 by 无际的草原
信息提示
请填处理意见