Додаток

//---------------------------------------------------------------------------

#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();