Курсовая работа: Разработка математической модели электронного устройства

186 X (I) =X

190 IF I MOD Z1=0 THEN PRINT X,

191 FOR L=1 TO N: FY (L, I) =Y (L)

192 IF I MOD Z1=0 THEN PRINT FY (L, I),

193 IF FY (L, I) >=Y9 (L) THEN Y9 (L) =FY (L, I)

194 NEXT L

195 IF I MOD Z1=0 THEN PRINT: Z=Z+1

200 IF Z=11 THEN 226 ELSE GOTO 228

226 Z=1: PRINT "ЖМИ ЛЮБУЮ КЛАВИШУ: *******"

227 IF LEN (INKEY$) =0 THEN 227 ELSE GOTO 228

228 NEXT I

229 PRINT "КОНЕЦ РАСЧЕТА ПЕРЕХОДНОГО ПРОЦЕССА: ЖМИ ЛЮБУЮ КЛАВИШУ."

230 IF LEN (INKEY$) =0 THEN 230 ELSE GOTO 231

231 FOR I=1 TO N

232 M (I) =Y9 (I) /7: PRINT "МАСШТАБ ДЛЯ Y ("; I; ")"; M (I); "ЕДЕНИЦ В 1 СМ"

233 IF I=1 THEN M (I) =30.5/M (I) ELSE M (I) =13.34/M (I)

234 NEXT I

235 PRINT "ДЛЯ ПРОДОЛЖЕНИЯ ЖМИ ЛЮБУЮ КЛАВИШУ."

240 PRINT " ФАЗОВЫЙ ПОРТРЕТ СИСТЕМЫ"

241 IF LEN (INKEY$) =0 THEN 241 ELSE GOTO 262

262 GOTO 1010

500 F (1) =H* (-1.8/.216*Y (1) +Y (2))

510 F (2) =H* (-3.6/.216*Y (1) +Y (3))

520 F (3) =H* (-.6/.216*Y (1) +1/.216)

530 RETURN

1010 SCREEN 2: KEY OFF: CLS

1030 LINE (0,0) - (639, 199),7,B

1040 LINE (0,100) - (639,100),7

1050 LINE (320,0) - (320, 199),7