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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 哪位大侠帮忙看看我编的Newton插值程序错在哪里？
41/1返回列表
查看: 555  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 调剂 化学 307 +13 73372112 2026-04-09 14/700 2026-04-10 12:16 by grey499
[考研] 0858求调剂 5+5 Gky09300550， 2026-04-10 7/350 2026-04-10 11:37 by may_新宇
[考研] 311求调剂 +9 xyp想读书 2026-04-10 10/500 2026-04-10 11:34 by 高维春
[考研] 求调剂 +3 电气300求调剂不 2026-04-08 3/150 2026-04-10 10:19 by LHGeng
[考研] 一志愿211，化学学硕，310分，本科重点双非，求调剂 +16 努力奋斗112 2026-04-06 18/900 2026-04-10 10:06 by may_新宇
[考研] 考研调剂 +22 硕星赴 2026-04-09 23/1150 2026-04-10 09:43 by liuhuiying09
[考研] 22408 366分，本科211，一志愿西工大 +3 Rubt 2026-04-09 3/150 2026-04-10 09:38 by liuhuiying09
[考研] 求调剂 +5 archer.. 2026-04-09 7/350 2026-04-09 22:18 by lbsjt
[考研] 计算机11408，286分求调剂 +9 木子念晞 2026-04-05 9/450 2026-04-09 20:04 by vgtyfty
[考研] 284求调剂 +7 让我上岸吧阿西 2026-04-09 7/350 2026-04-09 18:59 by haironglove
[考研] 0703化学求调剂 +21 不知名的小卅 2026-04-08 21/1050 2026-04-09 18:55 by l_paradox
[考研] 材料专硕初试分332一志愿西北工业大学， +12 故人?? 2026-04-09 12/600 2026-04-09 18:34 by Ccclqqq
[考研] 085600材料与化工，求调剂 +11 won_qii 2026-04-07 11/550 2026-04-09 17:03 by luoyongfeng
[考研] 085801 总分275 本科新能源 求调剂 +8 bradoner 2026-04-08 9/450 2026-04-09 13:43 by only周
[考研] 材料工程322 +18 哈哈哈吼吼吼哈 2026-04-07 19/950 2026-04-09 10:44 by cymywx
[考研] 318求调剂 +13 ykyhsa 2026-04-05 15/750 2026-04-08 21:37 by wj165256
[考研] 259求调剂 +5 就爱吃土豆呀呀 2026-04-07 5/250 2026-04-07 22:40 by JourneyLucky
[考研] 材料求调剂 +18 一样YWY 2026-04-05 18/900 2026-04-07 15:49 by dxlg
[考研] 一志愿北交大材料工程总分358 +6 cs0106 2026-04-03 6/300 2026-04-04 11:20 by w_xuqing
[考研] 化工求调剂 +11 荔香芝士椰奶 2026-04-03 11/550 2026-04-03 22:06 by 啵啵啵0119
信息提示
关闭
请填处理意见
关闭