變步長(zhǎng),辛普森,梯形公式.doc

《變步長(zhǎng),辛普森,梯形公式.doc》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。

1、#include#include#include#include#include#defineESC27#defineEPS0.5e-7#definef(x1)(-2.0/(x1*x1-1))#defineg(x2)(-2.0/(x2*x2-1))#defines(x0)(-2.0/(x0*x0-1))chart;voidtixing(){doublea1=2,b1=3;doubleT,h1,x1;intn,i;printf("ple

2、aseinputn:");scanf("%d",&n);h1=(b1-a1)/n;x1=a1;T=0;for(i=1;i

3、%d",&m);h2=(b2-a2)/m;x2=a2;S=0;for(j=1;j

4、)/2;do{T1=T2;x0=c;h3/=2;q*=2;sum=0;for(k=1;k=EPS);printf("Theexactvalueis%12.8g",log(2)-log(3));}voidmain(){do{system("color1b");system("cls");printf("ttt********

5、*******ttt");printf("ttt****實(shí)驗(yàn)四*****ttt");printf("ttt**1.梯形積分***ttt");printf("ttt**2.辛普森*****ttt");printf("ttt**3.變步長(zhǎng)*****ttt");printf("ttt請(qǐng)選擇1或2或ESC退出");printf("ttt****************ttt");t=getch();}while(t!='1'&&t!='

6、2'&&t!='3'&&t!=ESC);while(t=='1'

7、

8、t=='2'

9、

10、t=='3'

11、

12、t==ESC){if(t=='1'){system("cls");printf("pleasewaiting....");Sleep(1000);tixing();break;}if(t=='2'){system("cls");printf("pleasewaiting....");Sleep(1000);Simpson();break;}if(t=='3'){system("cls");printf("pleasewa

13、iting....");Sleep(1000);Bianbuc();break;}if(t==ESC){printf("已經(jīng)退出!");break;}}}