24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 955  |  回复: 13
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

adjoinff

超级版主

优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!

[交流] 数值分析的c语言程序,帮忙看下,改改错

http://d.namipan.com/d/79567bb4f ... dda82dcaf2d009e0100
http://d.namipan.com/d/79567bb4f ... dda82dcaf2d009e0100
我的题目已经放到米人里了,请朋友们帮忙看看。
先谢过了。

其中之一是下面的,大约有6个题,其他都传到米人了。

用定步长四阶Runge-Kutta法求解
   dy1/dt=1
   dy2/dt=y3
   dy3/dt=1000-1000y2-100y3
   y1(0)=0
   y2(0)=0
   y3(0)=0
方程组是上面六个式子
h=0.0005,打印yi(0.025), yi(0.045), yi(0.085), yi(0.1),(i=1,2,3)


我是这么编的
#include  
main()
{
   double  t,h=0.0005,y1=0,y2=0,y3=0,ky1[5],ky2[5],ky3[5];
   for(t=h;t<=0.1001;t+=h)                                  /*Runge-Kutta算法具体过程*/
   {  ky1[1]=h*1;  ky2[1]=h*y3;             ky3[1]=h*(1000-1000*y2-100*y3);
      ky1[2]=h*1;  ky2[2]=h*(y3+ky3[1]/2);  ky3[2]=h*(1000-1000*(y2+ky2[1]/2)-100*(y3+ky3[1]/2));
      ky1[3]=h*1;  ky2[3]=h*(y3+ky3[2]/2);  ky3[3]=h*(1000-1000*(y2+ky2[2]/2)-100*(y3+ky3[2]/2));
      ky1[4]=h*1;  ky2[4]=h*(y3+ky3[3]);    ky3[4]=h*(1000-1000*(y2+ky2[3])-100*(y3+ky3[3]));
      y1+=(ky1[1]+2*ky1[2]+2*ky1[3]+ky1[4])/6;
      y2+=(ky2[1]+2*ky2[2]+2*ky2[3]+ky2[4])/6;
      y3+=(ky3[1]+2*ky3[2]+2*ky3[3]+ky3[4])/6;
      if((t>0.0249&&t<0.0251)||(t>0.0449&&t<0.0451)||(t>0.0849&&t<0.0851)||(t>0.0999&&t<0.1001))
        printf("y1(%f)=%f,y2(%f)=%f,y3(%f)=%f\n",t,y1,t,y2,t,y3);       /*输出函数值*/
   }
}
回复此楼

» 猜你喜欢

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

bluesine

主管区长

科苑小木虫

优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!

★ ★ ★ ★
Doctorcbw(金币+2,VIP+0):呵呵 好主意 12-11 14:04
adjoinff(金币+2,VIP+0): 12-17 19:51
引用回帖:
Originally posted by adjoinff at 2009-12-11 08:55:
谢谢了,其实我也是用来交作业的

建议每一题都像你这道一样贴出来,大家可以一起讨论。至于金币嘛,考虑你是虫,少给一点也没有关系的,重在交流。直接帮你看原题太麻烦了,相信大家也是。
板凳要做十年冷文章不发一个字
11楼2009-12-11 09:08:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 14 个回答

haixing2008

禁虫

★ ★ ★
小木虫(金币+0.5):恭喜抢沙发,给个红包
adjoinff(金币+2,VIP+0):谢谢帮助 12-1 21:24
main()这个前面要加个 void 即: void main()
t<=0.1001;这个好像也有问题
还有就是编程似乎不是很美观。
我也学得不好,仅供参考,期待专家解答
平平淡淡才是真!
2楼2009-11-30 22:46:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

殛殛殛残酷

管理员

优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!

★ ★
小木虫(金币+0.2):抢了个小板凳,给个红包
adjoinff(金币+1,VIP+0): 12-1 21:24
,我试一下!1
学术问题,交朋友
3楼2009-12-01 13:08:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bluesine

专家顾问

科苑小木虫

优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!优秀!!有木有!!!

★ ★ ★ ★
formleaf(金币+2,VIP+0):谢谢参与! 12-1 16:03
adjoinff(金币+2,VIP+0):谢谢帮助 12-1 21:24
你的这个程序可以运行啊。。。

y1(0.025000)=0.025000,y2(0.025000)=0.151599,y3(0.025000)=8.335426
y1(0.045000)=0.045000,y2(0.045000)=0.312860,y3(0.045000)=7.536280
y1(0.085000)=0.085000,y2(0.085000)=0.560581,y3(0.085000)=4.946353
y1(0.100000)=0.100000,y2(0.100000)=0.628881,y3(0.100000)=4.180993
Press any key to continue
板凳要做十年冷文章不发一个字
4楼2009-12-01 15:49:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0855机械初试280求调剂 +3 kazenotori 2026-03-31 3/150 2026-04-01 10:08 by JourneyLucky
[考研] 358求调剂 +3 王向阳花 2026-03-31 3/150 2026-04-01 09:56 by zzchen2000
[考研] 359求调剂 +8 邓邓邓书书 2026-03-25 8/400 2026-04-01 08:20 by herarysara
[考研] 335求调剂 +3 321* 2026-03-31 4/200 2026-04-01 00:00 by 321*
[考研] 调剂 +4 好好读书。 2026-03-28 6/300 2026-03-31 20:35 by 好好读书。
[考研] 080200学硕,机械工程专业277分,求带走! +4 瓶子PZ 2026-03-31 4/200 2026-03-31 20:16 by vgtyfty
[考研] 化学0703 调剂 306分 一志愿211 +10 26要上岸 2026-03-28 10/500 2026-03-31 16:04 by 记事本2026
[考研] 286求调剂 +6 Faune 2026-03-30 6/300 2026-03-31 14:37 by jp9609
[考研] 313求调剂 +6 卖个关子吧 2026-03-31 6/300 2026-03-31 10:58 by Jaylen.
[考研] 求调剂 +4 研s. 2026-03-25 4/200 2026-03-31 10:05 by fmesaito
[考研] 本科211总分289,08工学真心求调剂 +3 utopiaE 2026-03-30 3/150 2026-03-30 23:42 by ms629
[考研] 11408总分309,一志愿东南大学求调剂,不挑专业 +5 天赋带到THU 2026-03-29 6/300 2026-03-30 20:49 by dick_runner
[考研] 071010 323 分求调剂 +3 Baekzhy 2026-03-27 3/150 2026-03-30 14:24 by andresqi
[考研] 一志愿北京工业大学,324分求调剂 +6 零八# 2026-03-28 6/300 2026-03-29 21:20 by nanaliuyun
[考研] 071000生物学求调剂,初试成绩343 +7 小小甜面团 2026-03-25 7/350 2026-03-28 20:25 by 唐沐儿
[考研] 070300求调剂306分 +4 26要上岸 2026-03-27 4/200 2026-03-28 13:06 by 唐沐儿
[硕博家园] 北京林业大学硕导招生广告 +6 kongweilin 2026-03-26 8/400 2026-03-27 10:18 by FF_16
[考研] 321求调剂 +6 wasdssaa 2026-03-26 6/300 2026-03-26 20:57 by sanrepian
[考研] 081200-11408-276学硕求调剂 +3 崔wj 2026-03-26 3/150 2026-03-26 19:57 by nihaoar
[考研] 中国科学院深圳先进技术研究院-光纤传感课题组招生-中国科学院大学、深圳理工大学联培 +5 YangTyu1 2026-03-26 5/250 2026-03-26 18:27 by 猫咪猫咪呀
信息提示
请填处理意见