Додаток
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double a,b,B,c1,c2,d1,d2, e1,e2,e3,u, ug,ug1,ug2,us, ud,ud1,ud2,ud3,
kd,td,kn,tnn,knn,kt,ki,tr,tk, ktp,kpn,N,x,h=0.001, urs,u1,u2,dx,ukor, up,
e, ui, ui1, utp, uu1,uu, un,un1,ur, ur1,g, g1,g2,g3,
sigmaf, f,f1,f2,f3,f4,f5,f6,f7,fnorm,pom,ke,y,y1,y2,t,skor,
Kfd, Kf, Kg;
int i;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Image1->Visible=true;
Image1->Picture->LoadFromFile("111.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
i=0; x=0;
Series3->Clear();