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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 哪位大侠帮忙看看我编的Newton插值程序错在哪里？
41/1返回列表
查看: 616  |  回复: 3
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

fgwei2000

铜虫 (正式写手)

[求助] 哪位大侠帮忙看看我编的Newton插值程序错在哪里？

如题，我写的一个Newton插值程序代码，自己感觉没有问题，可是算出来的值不正确，哪位大侠帮忙看看，错在哪里？谢谢！
【注】正确的计算值应为：0.5325909 (+误差)
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2011-10-18 00:58:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

fgwei2000(金币+1): 2011-10-18 10:29:16
没有学过数值计算，不知道 newton 插值的算法是个啥样子，但从你的这个程序来看，并不复杂。所以，你再仔细检查一下是不是哪里算错了……

我大概看了一下，有两个地方，需要你自己看一下：
dd.f 第35行
         do i=n,k+1
k+1比n小，那么正确的写法应该是
         do i=n,k+1,-1

newton.f第36行
      do i=n-1,1
正确的写法应该是
      do i=n-1,1,-1

不排除你的编译器支持你的写法，但至少这不是标准写法。

别的就帮不了你了……
赞一下 回复此楼
2楼2011-10-18 09:03:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

fgwei2000(金币+1): 2011-10-18 10:29:37
另外，你的程序中有两个 blank common，这是不允许的，每个程序中只允许一个 blank common

建议不要使用 blank common，任何时候都使用 named common...
赞一下 回复此楼
3楼2011-10-18 09:45:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
fgwei2000(金币+3): 谢谢你的提示，以前从来没有加过后面的‘-1’，程序都是循环的，今天竟然不循环，不过现在我加上“-1”后，结果已经正确了。以上三贴都是你回复的，所有全部加给你了。 2011-10-18 10:28:56
微尘、梦想(金币+2): 谢谢参与应助 2011-10-18 18:43:33
呵呵，我发现我已经得到了正确的答案了，下面是一个diff，你自己看着改一下就好了……
CODE:
diff -rbuN NEWTON1/dd.f NEWTON/dd.f
--- NEWTON1/dd.f        Tue Oct 18 00:36:44 2011
+++ NEWTON/dd.f        Tue Oct 18 09:49:51 2011
@@ -20,8 +20,8 @@
       real:: Y(100)       
                

-      common n
-      common X, Y
+      common /A/ n
+      common /B/ X, Y

c-----open the reading file main.dat and writing file main.out
               
@@ -32,7 +32,7 @@

      
       do k=2,n          
-         do i=n,k+1
+         do i=n,k+1,-1
             Y(i)=(Y(i)-Y(i-1))/(X(i)-X(i-k+1))                               
          end do
           Y(k)=(Y(k)-Y(k-1))/(X(k)-X(1))          
diff -rbuN NEWTON1/newton.f NEWTON/newton.f
--- NEWTON1/newton.f        Tue Oct 18 00:49:03 2011
+++ NEWTON/newton.f        Tue Oct 18 09:50:05 2011
@@ -18,8 +18,8 @@
       real:: X(100)
       real:: Y(100)            

-      common n
-      common X, Y
+      common /A/ n
+      common /B/ X, Y

c-----open the writing file main.out
               
@@ -33,7 +33,7 @@

       Nt=Y(n)

-      do i=n-1,1          
+      do i=n-1,1,-1
          Nt=(Nt*(t-X(i)))+Y(i)
       end do
      
diff -rbuN NEWTON1/reader.f NEWTON/reader.f
--- NEWTON1/reader.f        Mon Oct 17 23:54:19 2011
+++ NEWTON/reader.f        Tue Oct 18 09:50:11 2011
@@ -19,8 +19,8 @@
       real:: X(100)
       real:: Y(100)

-      common n
-      common X, Y
+      common /A/ n
+      common /B/ X, Y

c-----open the reading file main.dat and writing file main.out
赞一下(1人) 回复此楼
4楼2011-10-18 09:52:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 fgwei2000 的主题更新
41/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 不要再数国自然申请书的 filecode 的分隔符个数了 +11 sadpencil 2026-07-12 16/800 2026-07-13 11:25 by Vivilian
[公派出国] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 obzynn3tuv 2026-07-11 4/200 2026-07-13 11:25 by emlgkvoijw
[教师之家] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 obzynn3tuv 2026-07-11 4/200 2026-07-13 11:15 by emlgkvoijw
[考研] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 obzynn3tuv 2026-07-11 5/250 2026-07-13 11:05 by emlgkvoijw
[基金申请] 明天E口面上会评 +4 布布和一二 2026-07-12 5/250 2026-07-13 10:44 by zzybjr
[公派出国] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 obzynn3tuv 2026-07-11 4/200 2026-07-13 10:35 by emlgkvoijw
[论文投稿] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 obzynn3tuv 2026-07-11 4/200 2026-07-13 10:15 by emlgkvoijw
[硕博家园] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 obzynn3tuv 2026-07-11 3/150 2026-07-13 09:56 by emlgkvoijw
[考博] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 obzynn3tuv 2026-07-11 4/200 2026-07-13 00:24 by v2i90kmrcu
[基金申请] 祈祷青基必中 50+6 hadengry 2026-07-09 16/800 2026-07-12 20:31 by 登山虫虫
[基金申请] 生命口会评 +11 wuke100666 2026-07-07 12/600 2026-07-11 19:30 by hhs666
[考博] 27届辽宁大学应届毕业生申博 +3 可乐微风大海 2026-07-09 3/150 2026-07-10 21:23 by 贪玩的研究僧
[基金申请] 关于如何从代码看上不上会 +17 且听虎啸 2026-07-09 23/1150 2026-07-10 19:51 by sdfapple719
[有机交流] chemdraw 20+5 ?慕鱼? 2026-07-08 6/300 2026-07-10 15:37 by 紫枫星域
[基金申请] b口会评 +6 当空照 2026-07-08 6/300 2026-07-09 20:49 by tonyliu0401
[考研] 在职考研 +6 wu5d 2026-07-08 7/350 2026-07-09 16:40 by 化工小霸王呀
[论文投稿] MSER送审了还被拒稿 +3 S778950906 2026-07-08 5/250 2026-07-09 15:46 by S778950906
[有机交流] 硝基还原 20+3 暮年飞雪 2026-07-07 5/250 2026-07-09 13:30 by tfang
[基金申请] 化学口会评？应用基础研究和基础研究，希望能分开 +3 Tide man 2026-07-08 3/150 2026-07-09 11:36 by dede5556
[有机交流] Suzuki偶联中硼酸酯原料掉下的硼酸酯是否可以自身偶联，生成B2Pin2杂质 500+3 天下大同 2026-07-06 3/150 2026-07-07 10:31 by martyr_oyx
信息提示
关闭
请填处理意见
关闭