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

Технічні дані двигунів серії МІ

Додаток 3

Технічні дані ЕМП

Програма LOGHAR.

Визначення постійних часу передаточної функції бажаної системи

10 PRINT "Визначення пост. часу передат. функції бажаної системи"

20 PRINT " Перед. ф-ція, яка відшукується, має вид:"

30 PRINT " Kc(T(2)*P+1)/((T(1)*P+1)*(T(3)*P+1)^(n- m)*(T(4)P+1)*..(T(m+3)P+1)*P)"

40 PRINT "n-ступінь полінома Q(P) - знаменника перед. ф-ції заданої сист."

50 PRINT "m-кількість пост. часу Q(P), менших, за Т(3)"

60 PRINT "Q(P)=(Tз(1)*P+1)*(Tз(2)*P+1)*...*(Tз(N)*P+1)"

70 PRINT "Введіть порядок полінома знаменника Q(P) заданої перед.ф-ції"

80 PRINT "N="

90 INPUT N

100 DIM T3(5), T(8)

110 FOR I = 1 TO 8

120 T(I) = 0

130 NEXT I

140 PRINT "Введіть пост. часу знаменника заданої перед. ф-ції Q(P)"

150 FOR I = 1 TO N

160 PRINT "Tз("; I; ")="

170 INPUT T3(I)

180 NEXT I

190 PRINT "Введіть величину макс. перерегулювання"

200 PRINT "Сигма макс. ,% ="

210 INPUT SM

220 IF SM = 10 THEN C = 5: L1 = 18

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)

540 NEXT I

550 S = N - M

560 IF S = 2 THEN T(3) = .8 * T(3)

570 IF S > 2 THEN T(3) = .7 * T(3)

580 X3 = LOG(1 / T(3))

590 PRINT "T(1)="; T(1); "T(2)="; T(2); "T(3)="; T(3)

600 PRINT "Вираз у дужках знаменника (Т(3)*Р+1) повинен зводитися в ступінь (n-m)"

610 PRINT "n-m="; S

620 FOR I = 1 TO M

630 K = 3 + M

640 PRINT "T("; K; ")="; T(K)

650 NEXT I

660 PRINT "Wc="; OC; "LgWc="; XC

670 PRINT "Lg(1/T1)="; X1; "Lg(1/T2)="; X2; "Lg(1/T3)="; X3

680 END