[ Pobierz całość w formacie PDF ]
.procedure TForm3.BitBtn1Click(Sender: TObject);beginForm2.Show;AssignFile(plik,Edit7.Text);AssignFile(plik1,Edit6.Text);Rewrite(plik); Rewrite(plik1);a:=StrtoFloat(Edit1.Text); b:=StrtoFloat(Edit2.Text);n:=StrtoInt(Edit3.Text); m:=StrtoInt(Edit4.Text);sigma:=StrtoFloat(Edit5.Text);Writeln(plik,'PROGRAM 4.6.');Writeln(plik,'Interpolacja funkcji jednej zmiennej.');Writeln(plik,'Hiperboliczna funkcja sklejana.');Writeln(plik);Writeln(plik,'Parametr funkcji: sigma = ',sigma:13);Writeln(plik,'Pocz¹tek przedzia³u: a = ',a:13);Writeln(plik,'Koniec przedzia³u: b = ',b:13);Writeln(plik,'Liczba wêz³Ã³w: n = ',n:3);Writeln(plik,'Liczba punktów wykresu: m = ',m:3);Writeln(plik1,n:3); Writeln(plik1,m:3);Writeln(plik);h:=(b-a)/n;for i:=0 to n do beginx:=a+i*h; y:=f(x);xw[i]:=x; yw[i]:=y;xx[i+1]:=x; yy[i+1]:=y;end;xx[n+2]:=0; yy[n+2]:=0; K:=n+2;Writeln(plik,'Wyniki interpolacji funkcji:');Writeln(plik,' i x[i] y[i] b³¹d');Pochodne3(n,xw,yw,der2,sigma,0,0,0,0,0,0);h:=(b-a)/m;for i:=0 to m do beginx:=a+i*h; if i=m then x:=b;FunSklej3(n,sigma,x,y,y1,y2,xw,yw,der2);bl:=f(x)-y;Writeln(plik,i:3,' ',x:13,' ',y:16,' ',bl:13);K:=K+1; xx[K]:=x; yy[K]:=y;end;for i:=1 to m+n+3 doWriteln(plik1,xx[i]:13,' ',yy[i]:13);CloseFile(plik); CloseFile(plik1);Form2.Wyniki.Lines.LoadFromFile(Edit7.Text);end;.procedure TForm3.BitBtn3Click(Sender: TObject);beginClose;end;end.Przyk³adowe wyniki obliczeñ uzyskane za pomoc¹ programu 4.6 s¹ reprezentowanetablicami liczbowymi, które zawieraj¹ za³¹czone tabulogramy komputerowe.PROGRAM 4.6.Interpolacja funkcji jednej zmiennej.Hiperboliczna funkcja sklejana.Parametr funkcji: sigma = 1.0000E-0001Pocz¹tek przedzia³u: a = -1.0000E+0000Koniec przedzia³u: b = 1.0000E+0000Liczba wêz³Ã³w: n = 20Liczba punktów wykresu: m = 100Wyniki interpolacji funkcji:i x[i] y[i] b³¹d0 -1.0000E+0000 3.8461538E-0002 -6.7075E-00121 -9.8000E-0001 3.9999374E-0002 -1.5368E-00052 -9.6000E-0001 4.1616060E-0002 -1.8722E-00053 -9.4000E-0001 4.3323555E-0002 -1.4763E-00054 -9.2000E-0001 4.5133823E-0002 -7.4688E-00065 -9.0000E-0001 4.7058824E-0002 1.0970E-00116 -8.8000E-0001 4.9110520E-0002 5.3933E-00067 -8.6000E-0001 5.1300876E-0002 7.4877E-00068 -8.4000E-0001 5.3641853E-0002 6.2159E-00069 -8.2000E-0001 5.6145416E-0002 2.8154E-000610 -8.0000E-0001 5.8823529E-0002 1.3642E-001111 -7.8000E-0001 6.1689923E-0002 3.9171E-000712 -7.6000E-0001 6.4765384E-0002 1.4557E-000613 -7.4000E-0001 6.8072464E-0002 1.0553E-000614 -7.2000E-0001 7.1633717E-0002 -4.7964E-000715 -7.0000E-0001 7.5471698E-0002 -7.6852E-001116 -6.8000E-0001 7.9612146E-0002 5.6887E-000617 -6.6000E-0001 8.4093537E-0002 1.0752E-000518 -6.4000E-0001 8.8957534E-0002 1.0437E-000519 -6.2000E-0001 9.4245800E-0002 4.9074E-000620 -6.0000E-0001 1.0000000E-0001 -8.3332E-001121 -5.8000E-0001 1.0626750E-0001 2.4226E-000622 -5.6000E-0001 1.1311848E-0001 3.6910E-000623 -5.4000E-0001 1.2062881E-0001 -1.5477E-000624 -5.2000E-0001 1.2887437E-0001 -8.3873E-000625 -5.0000E-0001 1.3793103E-0001 2.0395E-001026 -4.8000E-0001 1.4789040E-0001 3.8594E-000527 -4.6000E-0001 1.5890687E-0001 7.5646E-000528 -4.4000E-0001 1.7115054E-0001 8.2333E-000529 -4.2000E-0001 1.8479155E-0001 5.1335E-000530 -4.0000E-0001 2.0000000E-0001 1.6644E-001031 -3.8000E-0001 2.1696350E-0001 -4.3757E-000532 -3.6000E-0001 2.3593951E-0001 -9.0458E-000533 -3.4000E-0001 2.5720301E-0001 -1.3360E-000434 -3.2000E-0001 2.8102895E-0001 -1.3007E-000435 -3.0000E-0001 3.0769231E-0001 6.4529E-001036 -2.8000E-0001 3.3752251E-0001 3.1533E-000437 -2.6000E-0001 3.7106673E-0001 6.8048E-000438 -2.4000E-0001 4.0892662E-0001 9.0945E-000439 -2.2000E-0001 4.5170382E-0001 7.8487E-000440 -2.0000E-0001 5.0000000E-0001 2.1091E-000941 -1.8000E-0001 5.5405426E-0001 -1.5680E-000342 -1.6000E-0001 6.1265529E-0001 -2.8992E-000343 -1.4000E-0001 6.7422918E-0001 -3.0882E-000344 -1.2000E-0001 7.3720204E-0001 -1.9079E-000345 -1.0000E-0001 8.0000000E-0001 -6.8212E-001046 -8.0000E-0002 8.6059893E-0001 1.4700E-000347 -6.0000E-0002 9.1517376E-0001 2.2574E-000348 -4.0000E-0002 9.5944914E-0001 2.0893E-000349 -2.0000E-0002 9.8914970E-0001 9.4931E-000450 5.1159E-0013 1.0000000E+0000 -1.7553E-0009.PROGRAM 4.6.Interpolacja funkcji jednej zmiennej.Hiperboliczna funkcja sklejana.Parametr funkcji: sigma = 5.0000E+0000Pocz¹tek przedzia³u: a = -1.0000E+0000Koniec przedzia³u: b = 1.0000E+0000Liczba wêz³Ã³w: n = 20Liczba punktów wykresu: m = 100Wyniki interpolacji funkcji:i x[i] y[i] b³¹d0 -1.0000E+0000 3.8461538E-0002 0.0000E+00001 -9.8000E-0001 3.9981054E-0002 2.9520E-0006 [ Pobierz caÅ‚ość w formacie PDF ]

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

listy-do-eda.opx.pl