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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l3.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o3.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o2.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l3.bmp');

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

end; if (a=2) and (b=3) then begin epi6; 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(ep63[1])); Form1.Image1.Canvas.LineTo(round(ep62[1]),380-round(ep63[1])); Form1.Image1.Canvas.LineTo(round(ep62[1]),380-round(ep63[2])); Form1.Image1.Canvas.LineTo(round(ep62[2]),380-round(ep63[2])); Form1.Image1.Canvas.LineTo(round(ep62[2]),380-round(ep63[3])); Form1.Image1.Canvas.LineTo(round(ep62[3]),380-round(ep63[3])); Form1.Image1.Canvas.LineTo(round(ep62[3]),380-round(ep63[4])); Form1.Image1.Canvas.LineTo(round(ep62[4]),380-round(ep63[4])); Form1.Image1.Canvas.LineTo(round(ep62[4]),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(pos6[1]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos6[2]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos6[3]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos6[4]/m))+' Па'); end else begin Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos6[1]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos6[2]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos6[3]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos6[4]/m),ffFixed,15,okr)+' Па'); end; Form1.Memo1.Lines.Add('');

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

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o4.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o3.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o2.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l3.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l4.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o4.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o3.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o2.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l3.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l4.bmp');

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

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

epi7; 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(ep73[1])); Form1.Image1.Canvas.LineTo(round(ep72[1]),380-round(ep73[1])); Form1.Image1.Canvas.LineTo(round(ep72[1]),380-round(ep73[2])); Form1.Image1.Canvas.LineTo(round(ep72[2]),380-round(ep73[2])); Form1.Image1.Canvas.LineTo(round(ep72[2]),380-round(ep73[3])); Form1.Image1.Canvas.LineTo(round(ep72[3]),380-round(ep73[3])); Form1.Image1.Canvas.LineTo(round(ep72[3]),380-round(ep73[4])); Form1.Image1.Canvas.LineTo(round(ep72[4]),380-round(ep73[4])); Form1.Image1.Canvas.LineTo(round(ep72[4]),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(pos7[1]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos7[2]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos7[3]/m))+' Па'); end else begin Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos7[1]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos7[2]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos7[3]/m),ffFixed,15,okr)+' Па'); end; Form1.Memo1.Lines.Add('');

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

Form1.Image1.Canvas.MoveTo(70,295); Form1.Image1.Canvas.LineTo(60,380-round(ep73[1])); Form1.Image1.Canvas.MoveTo(20+round(ep72[1]),295); Form1.Image1.Canvas.LineTo(round(ep72[1]),380-round(ep73[2])); Form1.Image1.Canvas.MoveTo(20+round(ep72[2]),295); Form1.Image1.Canvas.LineTo(round(ep72[2]),380-round(ep73[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(ep72[1]),285,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l3.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o3.bmp');

Form1.image2.Canvas.Draw(2,30,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,58,Pic);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l3.bmp');

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

end; if (a=3) and (b=2) then begin epi8; 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(ep83[1])); Form1.Image1.Canvas.LineTo(round(ep82[1]),380-round(ep83[1])); Form1.Image1.Canvas.LineTo(round(ep82[1]),380-round(ep83[2])); Form1.Image1.Canvas.LineTo(round(ep82[2]),380-round(ep83[2])); Form1.Image1.Canvas.LineTo(round(ep82[2]),380-round(ep83[3])); Form1.Image1.Canvas.LineTo(round(ep82[3]),380-round(ep83[3])); Form1.Image1.Canvas.LineTo(round(ep82[3]),380-round(ep83[4])); Form1.Image1.Canvas.LineTo(round(ep82[4]),380-round(ep83[4])); Form1.Image1.Canvas.LineTo(round(ep82[4]),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(pos8[1]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos8[2]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos8[3]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos8[4]/m))+' Па'); end else begin Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos8[1]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos8[2]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos8[3]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos8[4]/m),ffFixed,15,okr)+' Па'); end; Form1.Memo1.Lines.Add('');

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

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o4.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o3.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o2.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l3.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l4.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o4.bmp');

Form1.image2.Canvas.Draw(2,44,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);

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l4.bmp');

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

end;

if (a=3) and (b=3) then begin epi9; 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(ep93[1])); Form1.Image1.Canvas.LineTo(round(ep92[1]),380-round(ep93[1])); Form1.Image1.Canvas.LineTo(round(ep92[1]),380-round(ep93[2])); Form1.Image1.Canvas.LineTo(round(ep92[2]),380-round(ep93[2])); Form1.Image1.Canvas.LineTo(round(ep92[2]),380-round(ep93[3])); Form1.Image1.Canvas.LineTo(round(ep92[3]),380-round(ep93[3])); Form1.Image1.Canvas.LineTo(round(ep92[3]),380-round(ep93[4])); Form1.Image1.Canvas.LineTo(round(ep92[4]),380-round(ep93[4])); Form1.Image1.Canvas.LineTo(round(ep92[4]),380-round(ep93[5])); Form1.Image1.Canvas.LineTo(round(ep92[5]),380-round(ep93[5])); Form1.Image1.Canvas.LineTo(round(ep92[5]),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(pos9[1]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos9[2]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos9[3]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos9[4]/m))+' Па'); Form1.Memo1.Lines.Add('= '+Floattostr(abs(pos9[5]/m))+' Па'); end else begin Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos9[1]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos9[2]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos9[3]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos9[4]/m),ffFixed,15,okr)+' Па'); Form1.Memo1.Lines.Add('= '+FloattostrF(abs(pos9[5]/m),ffFixed,15,okr)+' Па'); end; Form1.Memo1.Lines.Add('');

Form1.Image1.Canvas.MoveTo(round(ep92[1])-15,495); Form1.Image1.Canvas.LineTo(round(ep92[1]),580-round(masif9[1])); Form1.Image1.Canvas.MoveTo(round(ep92[2])-15,495); Form1.Image1.Canvas.LineTo(round(ep92[2]),580-round(masif9[2])); Form1.Image1.Canvas.MoveTo(round(ep92[3])-15,495); Form1.Image1.Canvas.LineTo(round(ep92[3]),580-round(masif9[3])); Form1.Image1.Canvas.MoveTo(round(ep92[4])-15,495); Form1.Image1.Canvas.LineTo(round(ep92[4]),580-round(masif9[4])); Form1.Image1.Canvas.MoveTo(round(ep92[5])-15,495); Form1.Image1.Canvas.LineTo(round(ep92[5]),580-round(masif9[5]));

Form1.Image1.Canvas.MoveTo(70,295); Form1.Image1.Canvas.LineTo(60,380-round(ep93[1])); Form1.Image1.Canvas.MoveTo(20+round(ep92[1]),295); Form1.Image1.Canvas.LineTo(round(ep92[1]),380-round(ep93[2])); Form1.Image1.Canvas.MoveTo(20+round(ep92[2]),295); Form1.Image1.Canvas.LineTo(round(ep92[2]),380-round(ep93[3])); Form1.Image1.Canvas.MoveTo(20+round(ep92[3]),295); Form1.Image1.Canvas.LineTo(round(ep92[3]),380-round(ep93[4])); Form1.Image1.Canvas.MoveTo(20+round(ep92[4]),295); Form1.Image1.Canvas.LineTo(round(ep92[4]),380-round(ep93[5]));

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o5.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o4.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o3.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o2.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('o1.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l1.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l2.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l3.bmp');

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

Pic:=Tbitmap.Create;

Pic.LoadFromFile('l4.bmp');

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