Курсовая работа: Розробка лінійних систем автоматичного управління (САУ) з цифровою корегуючою ланкою

230 IF SM = 15 THEN C = 4.4: L1 = 15

240 IF SM = 20 THEN C = 4: L1 = 13.5

250 IF SM = 25 THEN C = 3.6: L1 = 12

260 IF SM = 30 THEN C = 3.2: L1 = 11

270 IF SM = 35 THEN C = 3: L1 = 10.5

280 IF SM = 40 THEN C = 2.8: L1 = 10

290 PRINT "Порядок астатизму NU="

300 INPUT NU

310 PRINT "Коефіцієнт підсилення бажаної системи Кс="

320 INPUT KC

330 PRINT "Час регулювання TR="

340 INPUT TR

350 M1 = .434

360 OC = C * 3.14 / TR

370 XC = LOG(OC) * M1

380 B = 20 * XC

390 X2 = (B - L1) / 20

400 T(2) = 1 / (10 ^ X2)

410 A = 20 * LOG(KC) * M1

420 X1 = (L1 + 40 * X2 - A) / 20

430 T(1) = 1 / (10 ^ X1)

440 X3 = (L1 + 20 * XC) / 20

450 T(3) = 1 / 10 ^ X3

460 IF NU = 1 THEN GOTO 490

470 X1 = (40 * X2 + L1 - A) / 40

480 T(1) = 1 / (10 ^ X1)

490 M = 0

510 FOR I = 1 TO N

520 IF T3(I) <= T(3) * .75 THEN M = M + 1: T(3 + M) = T3(I)