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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 哪位大侠帮忙看看我编的Newton插值程序错在哪里？
41/1返回列表
查看: 548  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 面上模板改不了页边距吧？ +5 ieewxg 2026-02-25 6/300 2026-03-01 00:10 by addressing
[考研] 272求调剂 +3 材紫有化 2026-02-28 3/150 2026-02-28 22:52 by ms629
[考研] 化工专硕348，一志愿985求调剂 +4 弗格个 2026-02-28 6/300 2026-02-28 22:00 by wang_dand
[考研] 292求调剂 +3 yhk_819 2026-02-28 3/150 2026-02-28 21:57 by gaoxiaoniuma
[考研] 295求调剂 +5 19171856320 2026-02-28 5/250 2026-02-28 21:39 by gaoxiaoniuma
[考博] 26申博 +4 想申博！ 2026-02-26 4/200 2026-02-28 21:37 by limorning
[考研] 材料学调剂 +5 提神豆沙包 2026-02-28 5/250 2026-02-28 21:34 by gaoxiaoniuma
[考研] 264求调剂 +3 巴拉巴拉根556 2026-02-28 3/150 2026-02-28 21:31 by gaoxiaoniuma
[考研] 311求调剂 +8 南迦720 2026-02-28 8/400 2026-02-28 21:30 by gaoxiaoniuma
[考研] 284求调剂 +4 天下熯 2026-02-28 4/200 2026-02-28 21:13 by gaoxiaoniuma
[考研] 085600材料工程一志愿中科大总分312求调剂 +8 吃宵夜1 2026-02-28 10/500 2026-02-28 20:27 by L135790
[考研] 0856材料求调剂 +10 hyf hyf hyf 2026-02-28 11/550 2026-02-28 18:50 by 无际的草原
[教师之家] 版面费该交吗 +15 苹果在哪里 2026-02-22 18/900 2026-02-28 18:20 by mibaomingg
[考研] 285求调剂 +5 满头大汗的学生 2026-02-28 5/250 2026-02-28 18:10 by 材料专硕调剂；
[考博] 博士自荐 +3 kkluvs 2026-02-28 3/150 2026-02-28 16:59 by StarAura
[考研] 304求调剂 +5 曼殊2266 2026-02-28 6/300 2026-02-28 12:44 by 迷糊CCPs
[考研] 272求调剂 +3 田智友 2026-02-28 3/150 2026-02-28 12:31 by 王加浩to
[考研] 298求调剂 +4 axyz3 2026-02-28 4/200 2026-02-28 11:21 by wang_dand
[基金申请] 面上可以超过30页吧？ +12 阿拉贡aragon 2026-02-22 13/650 2026-02-26 22:09 by Hahaxia
[硕博家园] 【博士招生】太原理工大学2026化工博士 +4 N1ce_try 2026-02-24 8/400 2026-02-26 08:40 by N1ce_try
信息提示
关闭
请填处理意见
关闭