Расчёт статически определяемых стержневых систем неравного сечения на растяжение-сжатие (стр. 6 из 10)

Form1.Image1.Canvas.LineTo(round(58+p1),190);

Form1.Image1.Canvas.Pen.Width:=1;

Form1.Image1.Canvas.Pen.Color:=clBlack;

Pic:=Tbitmap.Create;

Pic.LoadFromFile('N1.bmp');

Form1.Image1.Canvas.MoveTo(68,102);

Form1.Image1.Canvas.LineTo(60,190-round(sil7));

Form1.image1.Canvas.Draw(65,90,Pic);

if Form4.ComboBox1.Text='Неограниченно' then

Form1.Memo1.Lines.Add('= '+Floattostr(abs(f1))+' кН')

else Form1.Memo1.Lines.Add('= '+FloattostrF(abs(f1),ffFixed,15,okr)+' кН');

Pic:=Tbitmap.Create;

Pic.LoadFromFile('N1.bmp');

Form1.image2.Canvas.Draw(4,2,Pic);

end; if b=2 then begin

obr2;

Form1.Image1.Canvas.Pen.Width:=2;

Form1.Image1.Canvas.Pen.Color:=clRed;

Form1.Image1.Canvas.MoveTo(60,190);

Form1.Image1.Canvas.LineTo(60,190-round(sil8[1]));

Form1.Image1.Canvas.LineTo(round(i3+29),190-round(sil8[1]));

Form1.Image1.Canvas.LineTo(round(i3+30),190-round(sil8[2]));

Form1.Image1.Canvas.LineTo(round(i2+29),190-round(sil8[2]));

Form1.Image1.Canvas.LineTo(round(i2+30),190);

Form1.Image1.Canvas.Pen.Width:=1;

Form1.Image1.Canvas.Pen.Color:=clBlack;

Pic:=Tbitmap.Create;

Pic.LoadFromFile('N2.bmp');

Form1.image1.Canvas.Draw(65,90,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('N1.bmp');

Form1.image1.Canvas.Draw(round(i3+35),90,Pic);

Form1.Image1.Canvas.MoveTo(68,102);

Form1.Image1.Canvas.LineTo(60,190-round(sil8[1]));

Form1.Image1.Canvas.MoveTo(round(i3+38),102);

Form1.Image1.Canvas.LineTo(round(i3+30),190-round(sil8[2]));

if Form4.ComboBox1.Text='Неограниченно' then begin

Form1.Memo1.Lines.Add('= '+Floattostr(abs(f1))+' кН');

Form1.Memo1.Lines.Add('= '+Floattostr(abs(f2))+' кН');

end

else begin

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(f1),ffFixed,15,okr)+' кН');

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(f2),ffFixed,15,okr)+' кН');

end;

Pic.LoadFromFile('N2.bmp');

Form1.image2.Canvas.Draw(4,2,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('N1.bmp');

Form1.image2.Canvas.Draw(4,15,Pic);

end; if b=3 then begin

obr3;

Form1.Image1.Canvas.Pen.Width:=2;

Form1.Image1.Canvas.Pen.Color:=clRed;

Form1.Image1.Canvas.MoveTo(60,190);

Form1.Image1.Canvas.LineTo(60,190-round(sil9[1]));

Form1.Image1.Canvas.LineTo(round(i4+30),190-round(sil9[1]));

Form1.Image1.Canvas.LineTo(round(i4+29),190-round(sil9[2]));

Form1.Image1.Canvas.LineTo(round(i3+30),190-round(sil9[2]));

Form1.Image1.Canvas.LineTo(round(i3+29),190-round(sil9[3]));

Form1.Image1.Canvas.LineTo(round(i2+30),190-round(sil9[3]));

Form1.Image1.Canvas.LineTo(round(i2+29),190);

Form1.Image1.Canvas.Pen.Width:=1;

Form1.Image1.Canvas.Pen.Color:=clBlack;

Pic:=Tbitmap.Create;

Pic.LoadFromFile('N3.bmp');

Form1.image1.Canvas.Draw(65,90,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('N2.bmp');

Form1.image1.Canvas.Draw(round(i4+35),90,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('N1.bmp');

Form1.image1.Canvas.Draw(round(i3+35),90,Pic);

Form1.Image1.Canvas.MoveTo(68,102);

Form1.Image1.Canvas.LineTo(60,190-round(sil9[1]));

Form1.Image1.Canvas.MoveTo(round(i4+38),102);

Form1.Image1.Canvas.LineTo(round(i4+29),190-round(sil9[2]));

Form1.Image1.Canvas.MoveTo(round(i3+38),102);

Form1.Image1.Canvas.LineTo(round(i3+29),190-round(sil9[3]));

if Form4.ComboBox1.Text='Неограниченно' then begin

Form1.Memo1.Lines.Add('= '+Floattostr(abs(f1))+' кН');

Form1.Memo1.Lines.Add('= '+Floattostr(abs(f2))+' кН');

Form1.Memo1.Lines.Add('= '+Floattostr(abs(f3))+' кН');

end

else begin

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(f1),ffFixed,15,okr)+' кН');

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(f2),ffFixed,15,okr)+' кН');

Form1.Memo1.Lines.Add('= '+FloattostrF(abs(f3),ffFixed,15,okr)+' кН');

end;

Pic:=Tbitmap.Create;

Pic.LoadFromFile('N3.bmp');

Form1.image2.Canvas.Draw(4,2,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('N2.bmp');

Form1.image2.Canvas.Draw(4,15,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('N1.bmp');

Form1.image2.Canvas.Draw(4,29,Pic);

end;

if (a=1) and (b=1) then begin

epi1; Form1.Image1.Canvas.Pen.Width:=2; Form1.Image1.Canvas.Pen.Color:=clRed; Form1.Image1.Canvas.MoveTo(60,380); Form1.Image1.Canvas.LineTo(60,380-round(ep13[1])); Form1.Image1.Canvas.LineTo(round(ep12[1]),380-round(ep13[1])); Form1.Image1.Canvas.LineTo(round(ep12[1]),380); Form1.Image1.Canvas.Pen.Width:=1; Form1.Image1.Canvas.Pen.Color:=clBlack; Form1.Memo1.Lines.Add(''); if Form4.ComboBox1.Text='Неограниченно' then Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos1[1]/m))+' Па') else Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos1[1]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('');

Form1.Image1.Canvas.MoveTo(round(ep12[1])-15,495); Form1.Image1.Canvas.LineTo(round(ep12[1]),580-round(masif1[1]));

Form1.Image1.Canvas.MoveTo(70,295); Form1.Image1.Canvas.LineTo(60,380-round(ep13[1]));

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

Form1.image1.Canvas.Draw(65,285,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

Form1.image1.Canvas.Draw(round(ep12[1])-20,485,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

Form1.image2.Canvas.Draw(2,31,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

Form1.image2.Canvas.Draw(2,57,Pic);

end;

if (a=1) and (b=2) then begin

epi2; Form1.Image1.Canvas.Pen.Width:=2; Form1.Image1.Canvas.Pen.Color:=clRed; Form1.Image1.Canvas.MoveTo(60,380); Form1.Image1.Canvas.LineTo(60,380-round(ep23[1])); Form1.Image1.Canvas.LineTo(round(ep22[1]),380-round(ep23[1])); Form1.Image1.Canvas.LineTo(round(ep22[1]),380-round(ep23[2])); Form1.Image1.Canvas.LineTo(round(ep22[2]),380-round(ep23[2])); Form1.Image1.Canvas.LineTo(round(ep22[2]),380); Form1.Image1.Canvas.Pen.Width:=1; Form1.Image1.Canvas.Pen.Color:=clBlack; Form1.Memo1.Lines.Add(''); if Form4.ComboBox1.Text='Неограниченно' then begin Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos2[1]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos2[2]/m))+' Па'); end else begin Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos2[1]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos2[2]/m),ffFixed,15,okr)+' Па'); end; Form1.Memo1.Lines.Add('');

Form1.Image1.Canvas.MoveTo(round(ep22[1])-15,495); Form1.Image1.Canvas.LineTo(round(ep22[1]),580-round(masif2[1])); Form1.Image1.Canvas.MoveTo(round(ep22[2])-15,495); Form1.Image1.Canvas.LineTo(round(ep22[2]),580-round(masif2[2]));

Form1.Image1.Canvas.MoveTo(70,295); Form1.Image1.Canvas.LineTo(60,380-round(ep23[1])); Form1.Image1.Canvas.MoveTo(20+round(ep22[1]),295); Form1.Image1.Canvas.LineTo(round(ep22[1]),380-round(ep23[2]));

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o2.bmp');

Form1.image1.Canvas.Draw(65,285,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

Form1.image1.Canvas.Draw(15+round(ep22[1]),285,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

Form1.image1.Canvas.Draw(round(ep22[1])-20,485,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

Form1.image1.Canvas.Draw(round(ep22[2])-20,485,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o2.bmp');

Form1.image2.Canvas.Draw(2,44,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

Form1.image2.Canvas.Draw(2,57,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

Form1.image2.Canvas.Draw(2,83,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

Form1.image2.Canvas.Draw(2,96,Pic); end;

if (a=1) and (b=3) then begin

epi3; Form1.Image1.Canvas.Pen.Width:=2; Form1.Image1.Canvas.Pen.Color:=clRed; Form1.Image1.Canvas.MoveTo(60,380); Form1.Image1.Canvas.LineTo(60,380-round(ep33[1])); Form1.Image1.Canvas.LineTo(round(ep32[1]),380-round(ep33[1])); Form1.Image1.Canvas.LineTo(round(ep32[1]),380-round(ep33[2])); Form1.Image1.Canvas.LineTo(round(ep32[2]),380-round(ep33[2])); Form1.Image1.Canvas.LineTo(round(ep32[2]),380-round(ep33[3])); Form1.Image1.Canvas.LineTo(round(ep32[3]),380-round(ep33[3])); Form1.Image1.Canvas.LineTo(round(ep32[3]),380); Form1.Image1.Canvas.Pen.Width:=1; Form1.Image1.Canvas.Pen.Color:=clBlack; Form1.Memo1.Lines.Add(''); if Form4.ComboBox1.Text='Неограниченно' then begin Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos3[1]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos3[2]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos3[3]/m))+' Па'); end else begin Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos3[1]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos3[2]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos3[3]/m),ffFixed,15,okr)+' Па'); end; Form1.Memo1.Lines.Add('');

Form1.Image1.Canvas.MoveTo(round(ep32[1])-15,495); Form1.Image1.Canvas.LineTo(round(ep32[1]),580-round(masif3[1])); Form1.Image1.Canvas.MoveTo(round(ep32[2])-15,495); Form1.Image1.Canvas.LineTo(round(ep32[2]),580-round(masif3[2])); Form1.Image1.Canvas.MoveTo(round(ep32[3])-15,495); Form1.Image1.Canvas.LineTo(round(ep32[3]),580-round(masif3[3]));

Form1.Image1.Canvas.MoveTo(70,295); Form1.Image1.Canvas.LineTo(60,380-round(ep33[1])); Form1.Image1.Canvas.MoveTo(20+round(ep32[1]),295); Form1.Image1.Canvas.LineTo(round(ep32[1]),380-round(ep33[2])); Form1.Image1.Canvas.MoveTo(20+round(ep32[2]),295); Form1.Image1.Canvas.LineTo(round(ep32[2]),380-round(ep33[3]));

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o3.bmp');

Form1.image1.Canvas.Draw(65,285,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o2.bmp');

Form1.image1.Canvas.Draw(15+round(ep32[1]),285,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

Form1.image1.Canvas.Draw(15+round(ep32[2]),285,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

Form1.image1.Canvas.Draw(round(ep32[1])-20,485,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

Form1.image1.Canvas.Draw(round(ep32[2])-20,485,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l3.bmp');

Form1.image1.Canvas.Draw(round(ep32[3])-20,485,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o3.bmp');

Form1.image2.Canvas.Draw(2,57,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o2.bmp');

Form1.image2.Canvas.Draw(2,70,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

Form1.image2.Canvas.Draw(2,83,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

Form1.image2.Canvas.Draw(2,109,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

Form1.image2.Canvas.Draw(2,122,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l3.bmp');

Form1.image2.Canvas.Draw(2,135,Pic);

end;

if (a=2) and (b=1) then begin

epi4; Form1.Image1.Canvas.Pen.Width:=2; Form1.Image1.Canvas.Pen.Color:=clRed; Form1.Image1.Canvas.MoveTo(60,380); Form1.Image1.Canvas.LineTo(60,380-round(ep43[1])); Form1.Image1.Canvas.LineTo(round(ep42[1]),380-round(ep43[1])); Form1.Image1.Canvas.LineTo(round(ep42[1]),380-round(ep43[2])); Form1.Image1.Canvas.LineTo(round(ep42[2]),380-round(ep43[2])); Form1.Image1.Canvas.LineTo(round(ep42[2]),380-round(ep43[3])); Form1.Image1.Canvas.LineTo(round(ep42[3]),380-round(ep43[3])); Form1.Image1.Canvas.LineTo(round(ep42[3]),380); Form1.Image1.Canvas.Pen.Width:=1; Form1.Image1.Canvas.Pen.Color:=clBlack; Form1.Memo1.Lines.Add(''); if Form4.ComboBox1.Text='Неограниченно' then begin Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos4[1]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos4[2]/m))+' Па'); end else begin Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos4[1]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos4[2]/m),ffFixed,15,okr)+' Па'); end; Form1.Memo1.Lines.Add('');

Form1.Image1.Canvas.MoveTo(round(ep42[1])-15,495); Form1.Image1.Canvas.LineTo(round(ep42[1]),580-round(masif4[1])); Form1.Image1.Canvas.MoveTo(round(ep42[2])-15,495); Form1.Image1.Canvas.LineTo(round(ep42[2]),580-round(masif4[2]));

Form1.Image1.Canvas.MoveTo(70,295); Form1.Image1.Canvas.LineTo(60,380-round(ep43[1])); Form1.Image1.Canvas.MoveTo(20+round(ep42[1]),295); Form1.Image1.Canvas.LineTo(round(ep42[1]),380-round(ep43[2]));

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o3.bmp');

Form1.image1.Canvas.Draw(65,285,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o2.bmp');

Form1.image1.Canvas.Draw(15+round(ep42[1]),285,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

Form1.image1.Canvas.Draw(round(ep42[1])-20,485,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

Form1.image1.Canvas.Draw(round(ep42[2])-20,485,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o2.bmp');

Form1.image2.Canvas.Draw(2,31,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

Form1.image2.Canvas.Draw(2,44,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

Form1.image2.Canvas.Draw(2,70,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

Form1.image2.Canvas.Draw(2,83,Pic);

end; if (a=2) and (b=2) then begin

epi5; Form1.Image1.Canvas.Pen.Width:=2; Form1.Image1.Canvas.Pen.Color:=clRed; Form1.Image1.Canvas.MoveTo(60,380); Form1.Image1.Canvas.LineTo(60,380-round(ep53[1])); Form1.Image1.Canvas.LineTo(round(ep52[1]),380-round(ep53[1])); Form1.Image1.Canvas.LineTo(round(ep52[1]),380-round(ep53[2])); Form1.Image1.Canvas.LineTo(round(ep52[2]),380-round(ep53[2])); Form1.Image1.Canvas.LineTo(round(ep52[2]),380-round(ep53[3])); Form1.Image1.Canvas.LineTo(round(ep52[3]),380-round(ep53[3])); Form1.Image1.Canvas.LineTo(round(ep52[3]),380); Form1.Image1.Canvas.Pen.Width:=1; Form1.Image1.Canvas.Pen.Color:=clBlack; Form1.Memo1.Lines.Add(''); if Form4.ComboBox1.Text='Неограниченно' then begin Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos5[1]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos5[2]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos5[3]/m))+' Па'); end else begin Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos5[1]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos5[2]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos5[3]/m),ffFixed,15,okr)+' Па'); end; Form1.Memo1.Lines.Add('');

Form1.Image1.Canvas.MoveTo(round(ep52[1])-15,495); Form1.Image1.Canvas.LineTo(round(ep52[1]),580-round(masif5[1])); Form1.Image1.Canvas.MoveTo(round(ep52[2])-15,495); Form1.Image1.Canvas.LineTo(round(ep52[2]),580-round(masif5[2])); Form1.Image1.Canvas.MoveTo(round(ep52[3])-15,495); Form1.Image1.Canvas.LineTo(round(ep52[3]),580-round(masif5[3]));

Form1.Image1.Canvas.MoveTo(70,295); Form1.Image1.Canvas.LineTo(60,380-round(ep53[1])); Form1.Image1.Canvas.MoveTo(20+round(ep52[1]),295); Form1.Image1.Canvas.LineTo(round(ep52[1]),380-round(ep53[2])); Form1.Image1.Canvas.MoveTo(20+round(ep52[2]),295); Form1.Image1.Canvas.LineTo(round(ep52[2]),380-round(ep53[3]));

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o3.bmp');

Form1.image1.Canvas.Draw(65,285,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o2.bmp');

Form1.image1.Canvas.Draw(15+round(ep52[1]),285,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

Form1.image1.Canvas.Draw(15+round(ep52[2]),285,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

Form1.image1.Canvas.Draw(round(ep52[1])-20,485,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

Form1.image1.Canvas.Draw(round(ep52[2])-20,485,Pic);