#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button1Click(TObject *Sender)
{ double tco,l,kxx,a,b,q,h,a1,a2,r,t1,t2,t3,x,i,f1,f2,t,t31,t32,t33;
int k, e[10];
l=StrToFloat(Edit1->Text);
a=StrToFloat(Edit2->Text);
b=StrToFloat(Edit3->Text);
q=StrToFloat(Edit4->Text);
h=StrToFloat(Edit5->Text);
kxx=StrToFloat(Edit6->Text);
tco=StrToFloat(Edit7->Text);
e[1]=2*(a*a*l*l/5+a*b*l+7*b*b/3);
e[2]=(-1)*4*(a*a*l*l/5+2*a*b*l/3+4*b*b/3);
e[3]=2*(a*a*l*l/5+a*b*l/3+b*b/3);
e[4]=32*(2*a*a*l*l/15+a*b*l/3+b*b/3);
e[5]=(-4)*(13*a*a*l*l/15+2*a*b*l+4*b*b/3);
e[6]=2*(23*a*a*l*l/15+11*a*b*l/3+7*b*b/3);
e[7]=((2*l*h)/kxx)*(a*a*l*l+2*a*b*l+b*b);
e[8]=e[6]+e[7];
e[9]=e[1]+e[6];
f1=(-1)*(2*l*b*b*q)/kxx;
f2=((2*l*h*tco)/kxx)*(a*a*l*l+2*a*b*l+b*b);
t31=f2*(e[2]*e[2]-e[1]*e[4]);
t32=f1*(e[2]*e[5]-e[3]*e[4]);
t33=e[2]*e[2]*e[8]-2*e[2]*e[3]*e[5]-e[1]*e[4]*e[8]+e[1]*e[5]*e[5]+e[3]*e[3]*e[4];
t3=(t31-t32)/t33;
t2=(-1)*(e[2]*e[3]-e[1]*e[5])/(e[2]*e[2]-e[1]*e[4])*t3+(f1*e[2])/(e[2]*e[2]-e[1]*e[4]);
t1=(-1)*(e[4]/e[2])*t2-(e[5]/e[2])*t3;
for(double i=0;i<=1;i+=0,01)
{
x=i;
t=((l*l-3*l*x+2*x*x)/(l*l))*t1+((4*l*x-4*x*x)/(l*l))*t2+((2*x*x-l*x)/(l*l))*t3;
Series1->AddXY(x,t,"",clTeeColor);
                }
}