Технология машиностроения. Муратов В.И - 47 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

BEGIN;
DCL(PYS(N),Y(N),PY(N),S1,S2,S3,S4) FLOAT;
/* ввод массива Y, PY */
GET LIST (Y, PY);
S1, S2, S3, S4 =
∅
.
∅
;
DO I=1 TO N;
S1=S1+Y(I);
S2=S2+PY(I);
S3=S3+Y(I)*Y(I);
END;
A
∅
=(S2*S3-S1*S4)/(N*S3-S1**2);
A1=(N*S4-S2*S1)/(N*S3-S1**2);
PUT DATA (A
∅
, A1);
DO I=1 TO N;
PYS(I)=A
∅
+A1*Y(I); END;
G(K)=1/A1;
PUT DATA(PYS, G(K)); END;
END;
GET LIST(L,E,D
∅
) COPY;
WSUP=G(1); WPB=G(2); WZB=G(3);
H=L/1E1; I=
∅
DO X=
∅
TO LBYH;
I=I+1
WC(I)=WSUP+WPB*(L-X)**2/L+WZB*(X/L)**2+(1E8*(L-X)**2*X**2)/
(1.5*E*D
∅
**4*L); END;
GET LIST(LSH,CP,T,S);
DO I=1 TO 11;
Y(I)=1E1*LSH*CP*T*S**
∅
.75/WC(I); END
/* ввод массива D */
GET LIST(D);
DO I=1 TO 11;
YSH(I)=(D(I)-D
∅
)/2; END;
PUT DATA (WC);
PUT DATA (Y);
PUT DATA (YSH);
END IVUD;
Программа расчета y=f(P
y
) и y=f(x
i
) на ЕС ЭВМ, «Фортран»
DIMENSION G(3), WC(11), Y(5
∅
), YSH(11), D(11)
REAL LSH, L, PYS(5
∅
), PY(5
∅
)
READ 22, L, E, D
∅
, LSH, CP, T, S
PRINT 23, L, E, D
∅
, LSH, CP, T, S
23 FORMAT(‘L= ‘, F 7.2, ‘E= ‘, E 12.5, ‘D
∅
= ‘, F 7.2,
* ‘LSH= ‘, F 7.2, ‘CP= ‘, F 7.2, ‘T= ‘, F 7.2, ‘S= ‘, F 7.2)
22 FORMAT (7E1
∅
.3)
DO 2
∅
K=1.3
READ 2,N
2 FORMAT (12)
READL, (Y(I), I=1,N)
READ77, (PY(I), I=1,N)
4 FORMAT (6F5.3)
77 FORMAT (6F6.1)

Страницы