"Введите число пульсаций выпрямленного
напряжения за период сети "; m
"Введите номинальное выпрямленное напряжение
Udн, В"; Udn
INPUT "Введите действующее значение напряжения сети
Uc, B"; Us
"Введите номинальную мощность выпрямителя Pdн,
Вт"; Pdn
"Введите индуктивность нагрузки Ld, Гн";
Ld
"Введите число вентилей, имеющих общую точку в
выпрямителе"; m0
"Введите величину, обратную коэфф. мощности
трансформ. для данного выпрямителя"; Kp
"------------------------------------------------------------------------"
PRINT "Габаритная мощнсть трансформатора Sт =
"; St; "ВA"
"------------------------------------------------------------------------"
PRINT "Минимальное амплитудное напряжение на "
"вторичной обмотке трансформатора U2min =
"; U2min; "B"
U2na = U2min / . 8
"------------------------------------------------------------------------"
"Номинальное амплитудное напряжение на"
"вторичной обмотке трансформатора U2ном =
"; U2nb; "B -"; U2na; "B"
"------------------------------------------------------------------------"
INPUT "Введите принятое U2ном, В"; U2n
Idn = Pdn / Udn
PRINT
"------------------------------------------------------------------------"
"Номинальный выпрямленный ток Idн = ";
Idn; "A"
"------------------------------------------------------------------------"
"Коэффициент трансформации трансформатора Kт =
"; Kt
Ivsr = Idn / m0
"------------------------------------------------------------------------"
"Средний ток через вентиль в схеме выпрямления
Iвср* = "; Ivsr; "A"
"------------------------------------------------------------------------"
"Введите справочное значение порогового
напряжения вентиля U0, B"; U0
"Введите справочное значение среднего тока
через вентиль Iвср, A"; Ivsrs
"Введите справочное знечение дифф.
сопротивления вентиля rd, Ом"; rdif
PRINT "------------------------------------------------------------------------"
"Дифференциальное сопротивление вентиля rдиф
="; rdif; "Ом"
"------------------------------------------------------------------------"
PRINT "Классификационная мощность вентиля Pкл
="; Pkl; "Вт"
"------------------------------------------------------------------------"
PRINT "Реальная мощность вентиля Pр="; Pr;
"Вт"
PRINT
IF Pr > Pkl THEN PRINT "ВЕНТИЛИ ВЫБРАНЫ
НЕВЕРНО!!!" ELSE PRINT "ВЕНТИЛИ ВЫБРАНЫ ВЕРНО!!!"
Rd = Pdn / (Idn ^ 2)
"------------------------------------------------------------------------"
"Активное сопротивление цепи нагрузки Rd
="; Rd; "Ом"
"------------------------------------------------------------------------"
"Напряжение источника в схеме замещения E0 =
"; E0a; "B - "; E0b; "B"
"------------------------------------------------------------------------"
"Введите принятое E0, B"; E0
INPUT "Введите ток включения тиристора Iтир,
A"; Itir
"------------------------------------------------------------------------"
"Необходимая длительность импульса для
влючения тиристора tи = "; ti; "c"
"------------------------------------------------------------------------"
"Введите принятое сопротивление для ФДИ R1,
Ом"; Rfdi1
"------------------------------------------------------------------------"
"Емкость для ФДИ C1 = "; Cfdi1;
"Ф"
"------------------------------------------------------------------------"
"Введите необходимую частоту для генератора ВЧ
заполнения fг, Гц"; fgr
"Введите сопротивления R1 и R2 генератора ВЧ
заполнения, Ом"; Rg1, Rg2
"------------------------------------------------------------------------"
"Емкость для генератора ВЧ заполнения C1 =
"; Cg1; "Ф"
"------------------------------------------------------------------------"
END