расчет рабочих характеристик асинхронного двигателя. паскаль-программа

Паскаль-программа “Расчет рабочих характеристик асинхронного двигателя” {Эта Паскаль-программа обеспечивает расчет рабочих характеристик асинхронного двигателя. Исходные данные (см. табл. 9.36, с.467, [1]), принятые для примера, считываются из файла RX_AD_dn.dat. Файл RX_AD_dn.dat редактируется студентом–пользователем в соответствии c данными своего расчета (см. текст на с. 6 и список ввода в операторе read). Результаты расчета помещаются в файл RX_AD_tb.txt (см. с. 4). Результаты расчета для построения графиков помещаются в файл RX_AD_gr.dat (см. с. 5 и с. 6). Файлы RX_AD_tb.txt и RX_AD_gr.dat создаются турбосредой и автоматически помещаются в корень диска С. Обозначения физических величин, которые приняты в учебной литературе [1] и в Паскаль-программе, совпадают} {Руководство пользователю приведено на страницах 6, 4 и 5} const n = 7; type vector = array[1..n] of real; var P2n, U1n, I1n, Pct, Pmex, Pdob_n, I0a, I0p, r1, r2_sht, c1, a_sht, a, b_sht, b, sn : real; i, p : integer; s, R, X, Z, I2_2sht, cos_fi2_sht, sin_fi2_sht, I1a, I1p, I1, I2_1sht, P1, Pe1, Pe2, Pdob, sum_P, P2, kpd, cos_fi : vector; f1, f2, f3 : text; begin assign(f1,'c:\RX_AD_dn.dat'); reset(f1); assign(f2,'c:\RX_AD_tb.txt'); rewrite(f2); assign(f3,'c:\RX_AD_gr.dat'); rewrite(f3); {Ввод и печать исходных данных} read(f1, P2n, U1n, I1n, Pct, Pmex, I0a, I0p, r1, r2_sht, c1, a_sht, a, b_sht, b, sn); s[n] := sn; for i:=1 to n-1 do read(f1,s[i]); writeln(f2,' Результаты расчета рабочих характеристик'); writeln(f2,' асинхронного двигателя с короткозамкнутым ротором'); writeln(f2); writeln(f2,' 1. Исходные данные'); writeln(f2); writeln(f2,' P2н = ',P2n:4:2,' кВт;',' U1н = ', U1n:3:0,' В;', ' I1н = ',I1n:4:2,' A;'); writeln(f2); writeln(f2,' Pст = ',Pct:5:3,' кВт;',' Pмех = ',Pmex:5:3,' кВт;'); writeln(f2); writeln(f2,' Ioa = ',I0a:5:3,' A;',' Ioр = ',I0p:5:3,' A;', ' r1 = ',r1:5:3,' Ом;',' r2` = ',r2_sht:5:3,' Ом;'); writeln(f2); writeln(f2,' c1 = ',c1:5:3,';',' a` = ',a_sht:5:3,' Ом;',' a = ',a:5:3,' Ом;'); writeln(f2); writeln(f2,' b` = ',b_sht:5:3, ' Ом;',' b = ',b:5:3,' Ом;',' s_ном = ',sn:5:3); writeln(f2); writeln(f2,' 2. Результаты расчета (см. таблицу 9.36 на с. 467 [Л.1])'); {Расчет рабочих характеристик} for i := 1 to n do begin R[i] := a + a_sht*r2_sht/s[i]; X[i] := b + b_sht*r2_sht/s[i]; Z[i] := sqrt(sqr(R[i]) + sqr(X[i])); I2_2sht[i] := U1n/Z[i]; cos_fi2_sht[i] := R[i]/Z[i]; sin_fi2_sht[i] := X[i]/Z[i]; I1a[i] := I0a + I2_2sht[i] * cos_fi2_sht[i]; -2I1p[i] := I0p + I2_2sht[i] * sin_fi2_sht[i]; I1[i] := sqrt(sqr(I1a[i]) +sqr(I1p[i])); I2_1sht[i] := c1 * I2_2sht[i]; P1[i] := 3 * U1n * I1a[i] * 0.001; Pe1[i] := 3 * sqr(I1[i]) * r1 * 0.001; Pe2[i] := 3 * sqr(I2_1sht[i]) * r2_sht * 0.001; {Pdob[i] := Pdob_n * sqr(I1[i]/I1n); } Pdob[i] := 0.005 * P1[i]; sum_P[i] := Pct + Pmex + Pe1[i] + Pe2[i] + Pdob[i]; P2[i] := P1[i] - sum_P[i]; kpd[i] := 1 - (sum_P[i]/P1[i]); cos_fi[i] := I1a[i]/I1[i] end; {Печать таблицы 9.36, с.467, [1]} write(f2,' ┌───────────────┬'); for i := 1 to n do write(f2,'──────','┬─'); writeln(f2); write(f2,' │ Скольжение s =│'); for i := 1 to n do write(f2,' ',s[i]:5:3,'│ '); writeln(f2); write(f2,' ╞══╤════════╤═══╪'); for i := 1 to n do write(f2,'══════','╪═'); writeln(f2); write(f2,' │ 3│R │ Ом│'); for i := 1 to n do write(f2,R[i]:5:2,' │ '); writeln(f2); write(f2,' ├──┼────────┼───┼'); for i := 1 to n do write(f2,'──────','┼─'); writeln(f2); write(f2,' │ 4│X │ Ом│'); for i := 1 to n do write(f2,' ',X[i]:5:3,'│ '); writeln(f2); write(f2,' ├──┼────────┼───┼'); for i := 1 to n do write(f2,'──────','┼─'); writeln(f2); write(f2,' │ 5│Z │ Ом│'); for i := 1 to n do write(f2,Z[i]:5:2,' │ '); writeln(f2); write(f2,' ├──┼────────┼───┼'); for i := 1 to n do write(f2,'──────','┼─'); wri