Руководство к решению задач по механике материалов и конструкций. Егодуров Г.С - 256 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

256
Y[i]:=Y[i]+H*(P0[i]+2*P1[i]+P2[i]+P3[i])/6;
X:=x+H;
End;
BEGIN
Clrscr;
XS[1]:=0.025; XS[2]:=0.05; XS[3]:=0.225;XS[4]:=0.250;
NN[1]:=16; NN[2]:=96; NN[3]:=6; KR[1]:=4; KR[2]:=6; KR[3]:=2;
Y[1]:=1; Y[2]:=0;
Writeln(`R`,`H`,`T`,`E`,`U`, `T1`,`T2`,`SIG1`,`SIG2`); Writeln;
Writeln(`(м)`,`(м)`,`(гр)`,`(Па)`,`(м)`, `(H/м)`,`(H/м)`,`(МПа)`,`(МПа)`);
Writeln;
For Ni:=1 to 3 do Begin
If Ni=2 then Y[1]:=0;
If Ni=3 then Y[1]:=C;
If Ni>1 then Y[2]:=0;
For Ns:=1 to 3 do Begin
X:=XS[Ns];
H:=(XS[Ns+1]-XS[Ns]/NN[Ns];
Np:=NN[Ns] div KR[Ns];
Kp:=KR[Ns]+1;
For Ip:=1 to Kp do Begin
If Ni<3 then goto 1;
Tx:=T(x);
Thx:TH(x);
Ex:=E(x);
Ur:=Y[1]*x;
T2:=Cp*Y[2]+Ex*THx*
(Y[1]-AL*Tx); Sig1:=Y[2]/
Thx; Sig2:=T2/Thx;
Writeln(x`:6:4,Thx:7:3,Tx:6:0,` `,Ex:9,` `,Ur:9,` `,Y[2]:9,
`,T2:9,Sig1/1E6:6:0,Sig2/1E6:6
if Ip<Kp then
for I:=1 to Np do RK(x,Y,H) else end; end;
if Ni:=1 then C2:=Y[2];
if Ni:=2 then C:=-Y[2]/C2;
end; Readln; END 
        Y[i]:=Y[i]+H*(P0[i]+2*P1[i]+P2[i]+P3[i])/6;
        X:=x+H;
        End;
BEGIN
Clrscr;
XS[1]:=0.025; XS[2]:=0.05; XS[3]:=0.225;XS[4]:=0.250;
NN[1]:=16; NN[2]:=96; NN[3]:=6; KR[1]:=4; KR[2]:=6; KR[3]:=2;
Y[1]:=1; Y[2]:=0;
Writeln(`R`,`H`,`T`,`E`,`U`, `T1`,`T2`,`SIG1`,`SIG2`); Writeln;
Writeln(`(м)`,`(м)`,`(гр)`,`(Па)`,`(м)`,      `(H/м)`,`(H/м)`,`(МПа)`,`(МПа)`);
Writeln;
For Ni:=1 to 3 do      Begin
               If Ni=2 then Y[1]:=0;
               If Ni=3 then Y[1]:=C;
               If Ni>1 then Y[2]:=0;
                       For Ns:=1 to 3 do      Begin
                                      X:=XS[Ns];
                                      H:=(XS[Ns+1]-XS[Ns]/NN[Ns];
                                      Np:=NN[Ns] div KR[Ns];
                                      Kp:=KR[Ns]+1;
                                              For Ip:=1 to Kp do           Begin
                                                             If Ni<3 then goto 1;
                                                             Tx:=T(x);
                                                             Thx:TH(x);
                                                             Ex:=E(x);
                                                             Ur:=Y[1]*x;
                                                             T2:=Cp*Y[2]+Ex*THx*
                                                             (Y[1]-AL*Tx); Sig1:=Y[2]/
                                                             Thx; Sig2:=T2/Thx;
Writeln(x`:6:4,Thx:7:3,Tx:6:0,`       `,Ex:9,`       `,Ur:9,`       `,Y[2]:9,
`,T2:9,Sig1/1E6:6:0,Sig2/1E6:6
if Ip

Страницы