lagrange插值代碼（Lagrange插值代碼）

《lagrange插值代碼（Lagrange插值代碼）》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。

1、lagrange插值代碼（Lagrange插值代碼）插值方法/2.////////程序2.1-lagrange插值instdlib.h#<>instdio.h#<>inconio.h#<>instring.h#<>ingraphics.h#<>inmath.h#<>typedefstruct{floatx,float.};floatlagrange(table[],intn,floatx)initgraph(void){ingdriver=detect,gmode.initgraph(&gdriver&gmode,"");}for(intx1,y1,x2(int,i

2、nty2,intcolor){setcolor(color).a(x1,y1,x2,y2).}for(intx,intyouttextxy)[],char,intcolor){setcolor(color).outtextxy(x,y)));}for(intx,intyouttextxyrealnumber,float,intlength,intcolor){charstring[20];setcolor(color).gcvt(realnumber,length,string).outtextxy(x,y,g).}voidshowtable(table[],int

3、n){inti;charstring_x'sstring_[20],[20];line(0,20639,20,7).line(30,0,30,40).outtextxy(10.8),"x"(14).outtextxy(10.28)","(14).for(i=0;i

4、(max_fabs(x)

5、,y1+y2)/2,x2,y1+y2)(2.7).line(x2,y1+y2)/2x10(y1+y2)/2);line(x2,y1+y2)/2x10(y1+y2)/2+2).line(x1+x2)/2(x1+x2,y1,y2)/2);line(x1+x2)/2(x1+x2,andy1,y1)/2-2,+10).line(x1+x2)/2(x1+x2,y1,y1)/2+2,+10).line(x1+x2)/2+(x2-x1)/4(y1+y2),2(4).(x1+x2)/2+(x2-x1)/4(y1+y2)/2);gcvt(x1+x2)/2+(x2-x1)/4.6,st

6、ring).outtextxy(x1+x2)/2+(x2-x1)/4-3(y1+y2),2+4string).line(x1+x2)/2-(x2-x1)/4(y1+y2),2(4).(x1+x2)/2-(x2-x1)/4(y1+y2)/2);gcvt(((x1+x2)/2+(x2-x1)/4),(6),string).outtextxy(x1+x2)/2-(x2-x1)/4-3(y1+y2),2+4string).line(x1+x2)/2+4(y1+y2)and(y2)-y1)/4.(x1+x2)/2,(y1+y2)/2(y2-y1)/4);gcvt(((y1+y

7、2)/2+(y2-y1)/4),(6),string).outtextxy(x1+x2)/2+8(y1+y2)and(y2)-y1)/4,string).line(x1+x2)/2+4(y1+y2),and2+(y2-y1)/4.(x1+x2)/2,(y1+y2)/2+(y2-y1)/4);gcvt(y1+y2)/2+(y2-y1)/4),(6),string).outtextxy(x1+x2)/2+8(y1+y2)/2+(y2-y1)/4,string).}int(intx1,x2xtoxint,floatfloatfloatx,x1,x2,.{return(