24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 958  |  回复: 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

实习版主

科苑小木虫

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

★ ★ ★ ★
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的回帖
查看全部 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的回帖

adjoinff

版主

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

有都改好的帮忙发到  这个邮箱里,谢谢
1986join@163.com
5楼2009-12-01 21:23:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料调剂 +5 一样YWY 2026-03-31 5/250 2026-04-01 10:16 by 好运来2024
[考研] 环境工程 085701,267求调剂 +15 minht 2026-03-29 16/800 2026-04-01 10:13 by li_sujuan99
[考研] 288资源与环境专硕求调剂,不限专业,有学上就行 +25 lllllos 2026-03-30 26/1300 2026-04-01 09:52 by 一只好果子?
[考研] 一志愿武理材料工程302调剂环化或化工 +15 Doleres 2026-03-31 16/800 2026-04-01 09:49 by lfj11
[考博] 26申博 +4 加油冲啊! 2026-03-26 4/200 2026-03-31 22:42 by greychen00
[考研] 一志愿北京科技大学材料学硕328分求调剂 +4 1段时间 2026-03-31 5/250 2026-03-31 19:56 by wxiongid
[考研] 一志愿华东师范大学有机化学专业,初试351分,复试被刷求调剂! +9 真名有冰 2026-03-29 10/500 2026-03-31 18:01 by xhai2011
[考研] 315求调剂 +6 akie... 2026-03-28 7/350 2026-03-31 16:48 by asdfzly
[考研] 考研调剂求助 +7 13287130938 2026-03-31 7/350 2026-03-31 16:39 by 690616278
[考研] 材料工程专硕求调剂 +10 hyl3153942 2026-03-29 10/500 2026-03-31 16:31 by hypershenger
[考研] 282求调剂 不挑专业 求收留 +4 Yam. 2026-03-30 5/250 2026-03-31 14:41 by 王亮_大连医科大
[考研] 347求调剂 +11 山顶见α 2026-03-25 11/550 2026-03-31 14:14 by 记事本2026
[考研] 本科211安全工程,初试290分,求调剂 +3 2719846834 2026-03-28 3/150 2026-03-31 13:52 by 热情沙漠
[考研] 求调剂 +4 研s. 2026-03-25 4/200 2026-03-31 10:05 by fmesaito
[考研] 食品工程专硕一志愿中海洋309求调剂 +5 小张zxy张 2026-03-26 10/500 2026-03-31 00:29 by jp9609
[考研] 303求调剂 +7 DLkz1314. 2026-03-30 7/350 2026-03-30 16:05 by shuang5186
[考研] 一志愿中南大学化学0703总分337求调剂 +6 niko- 2026-03-27 6/300 2026-03-30 10:25 by herarysara
[考研] 071000生物学求调剂,初试成绩343 +7 小小甜面团 2026-03-25 7/350 2026-03-28 20:25 by 唐沐儿
[考研] 283求调剂 +3 A child 2026-03-28 3/150 2026-03-28 15:41 by ms629
[考研] 304求调剂 +6 曼殊2266 2026-03-27 6/300 2026-03-28 14:10 by 唐沐儿
信息提示
请填处理意见