Математическое моделирование вагонов в расчетах на ЭВМ - 21 стр.

UptoLike

ВУЗ: 

СамГУПС | Самара

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

Рубрика: 

21
IF M(I) < MIN THEN MIN = M(I)
IF M(I) > MAX THEN MAX = M(I)
NEXT I
FOR X = MIN TO MAX
P(X) = 0
FOR I = 1 TO N
IF M(I) = X THEN P(X) = P(X) + 1 / N
NEXT I
MX = MX + X * P(X)
NEXT X
FOR X = MIN TO MAX
P1 = X - MX
DX = DX + P1 * P1 * P(X)
NEXT X
P2 = DX ^ 1.5
FOR X = MIN TO MAX
P1 = X - MX
AX = AX + P1 * P1 * P1 * P(X) / P2
NEXT X
PRINT
PRINT TAB(5); "MX="; MX; TAB(20); "DX="; DX; TAB(35); "AX="; AX; TAB(50); "N="; N
GOTO 200
100 PRINT "СТАТИСТИКА ДЛЯ НЕПРЕРЫВНОЙ СЛУЧАЙНОЙ ВЕЛИЧИНЫ"
N = 20: NJ = 10
MIN = 1000
MAX = 0: MT = 0: DT = 0: AT = 0
FOR I = 1 TO N
PRINT "ПОРЯДКОВЫЙ НОМЕР ВАГОНА=", I
INPUT "ВВЕДИТЕ ВРЕМЯ РЕМОНТА ВАГОНА ", M(I)
PRINT TAB(5); "I="; I, "M(I)="; M(I)
IF M(I) < MIN THEN MIN = M(I)
IF M(I) > MAX THEN MAX = M(I)
NEXT I
DTT = (MAX - MIN) / NJ
FOR J = 1 TO NJ
P(J) = 0
M1 = MIN + DTT * (J - 1)
M2 = M1 + DTT
FOR I = 1 TO N
IF M(I) >= M1 AND M(I) < M2 THEN P(J) = P(J) + 1 / N
NEXT I
T(J) = (M1 + M2) / 2
MT = MT + T(J) * P(J)
NEXT J
FOR J = 1 TO NJ
P1 = T(J) - MT
DT = DT + P1 * P1 * P(J)
NEXT J
P2 = DT ^ 1.5
FOR J = 1 TO NJ
P1 = T(J) - MT
AT = AT + P1 * P1 * P1 * P(J) / P2
NEXT J
PRINT
PRINT TAB(5); "MT="; MT; TAB(20); "DT="; DT; TAB(35); "AT="; AT; TAB(50); "N="; N
200 END

Страницы