Разработка тиристорного преобразователя

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;"Вт"

PRINT

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