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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 哪位大侠帮忙看看我编的Newton插值程序错在哪里？
41/1返回列表
查看: 551  |  回复: 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返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 265求调剂 +3 Jack?k?y 2026-03-17 3/150 2026-03-21 03:17 by JourneyLucky
[考研] 求调剂 +3 Ma_xt 2026-03-17 3/150 2026-03-21 02:05 by JourneyLucky
[考研] 一志愿 西北大学 ，070300化学学硕，总分287，双非一本，求调剂。 +3 晨昏线与星海 2026-03-18 3/150 2026-03-21 00:46 by JourneyLucky
[考研] 一志愿西南交大，求调剂 +5 材化逐梦人 2026-03-18 5/250 2026-03-21 00:26 by JourneyLucky
[考研] 304求调剂 +7 司空. 2026-03-18 7/350 2026-03-20 23:08 by JourneyLucky
[考研] 一志愿苏州大学材料求调剂，总分315（英一） +5 sbdksD 2026-03-19 5/250 2026-03-20 22:10 by luoyongfeng
[考研] 广西大学家禽遗传育种课题组2026年硕士招生（接收计算机专业调剂） +3 123阿标 2026-03-17 3/150 2026-03-20 15:58 by 飞行琦
[考研] 081700化工学硕调剂 +3 【1】 2026-03-16 3/150 2026-03-19 23:40 by edmund7
[考研] 320求调剂0856 +3 不想起名字112 2026-03-19 3/150 2026-03-19 22:53 by 学员8dgXkO
[考研] 复试调剂 +4 z1z2z3879 2026-03-14 6/300 2026-03-19 17:18 by fei626-918
[考研] 311求调剂 +11 冬十三 2026-03-15 12/600 2026-03-18 14:36 by 星空星月
[考研] 材料专硕306英一数二 +10 z1z2z3879 2026-03-16 13/650 2026-03-18 14:20 by 007_lilei
[考研] 268求调剂 +6 简单点0 2026-03-17 6/300 2026-03-18 09:04 by 无际的草原
[考研] 301求调剂 +4 A_JiXing 2026-03-16 4/200 2026-03-17 17:32 by ruiyingmiao
[考博] 26申博 +4 八6八68 2026-03-16 4/200 2026-03-17 13:00 by 轻松不少随
[考研] 275求调剂 +4 太阳花天天开心 2026-03-16 4/200 2026-03-17 10:53 by 功夫疯狂
[考研] 机械专硕325，寻找调剂院校 +3 y9999 2026-03-15 5/250 2026-03-16 19:58 by y9999
[考研] 304求调剂 +4 ahbd 2026-03-14 4/200 2026-03-16 16:48 by 我的船我的海
[考研] 277材料科学与工程080500求调剂 +3 自由煎饼果子 2026-03-16 3/150 2026-03-16 14:10 by 运气yunqi
[考研] 080500，材料学硕302分求调剂学校 +4 初识可乐 2026-03-14 5/250 2026-03-14 21:08 by peike
信息提示
关闭
请填处理意见
关闭