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