Расчет напряжений труб
Курсовой проект - Разное
Другие курсовые по предмету Разное
=(1-a*a)*smk/sqrt(3);form1.Canvas dop<=smk/sqrt(3) do:=p*(1+a*a)/(1-a*a);:=p*a*a/(1-a*a);:=-p;
//считаем до p<=smk/sqrt(3)RB1.Checked then S:=izotrops:=compozit;.Text:=floattostr(s);fr then(405+round(s*stx), 190-round(p*sty));:=false;(405+round(s*stx), 190-round(p*sty));:=p+0.0001;
//sleep(1);;;
TForm1.koord;i:integer;j:real;smk:real;,min,deltax:real;:=-MAXINT;:=MAXINT;:=0.001;:=strtofloat(edit1.Text);:=strtofloat(edit2.Text);:=strtofloat(edit3.Text);:=p;:=dl/Db;:=(1-a*a)*smk/sqrt(3);
p<=smk/sqrt(3) do:=p*(1+a*a)/(1-a*a);:=p*a*a/(1-a*a);:=-p;
max then:=s;smax then:=s;s<min then:=s;:=p+deltax;;
.Canvas.FillRect(Rect(330, 0, ClientWidth, ClientHeight));form1.Canvas do(410, 200); LineTo(410, 20); //ось y(400, 190); LineTo(610, 190); //ось х:=30;(380,i-30,p);:=smk/sqrt(3);:=round(40/((smk/sqrt(3))/4));i <= 190 do //деления по у(380,i-16,FloatToStrF(j,ffNumber,3,2));
MoveTo(405, i); LineTo(415, i);:=j-(smk/sqrt(3))/4;:=i+40;
end;:=410;:=0;:=round(40/(max/5));
while i < 611 do //деления по х
begin(i-8,200,FloatToStrF(j,ffNumber,3,2));
MoveTo(i, 185); LineTo(i, 195);:=j+max/5;:=i+40;
end;(i-80,220,Напряжение);;;.