Ksy=1-ikmax/sgr/ep

35 ksy=1-ikmax/sgr/ep

uk1=ksy*ep

ik1=fnalfa1(tetta)*ikmax

ik0=fnalfa0(tetta)*ikmax

p1=ik1*uk1/2

p0=ep*ik0

pr=p0-p1

if pr>pkdop then goto 50

kpd=p1/p0

ft=fb*b

qu=ikmax/2/pi/ft/(1-cos(tetta))/1000000

uemin=uots-qu/ce*(1-cos(pi-tetta))*10^12

if uemin>abs(ubdop) then goto 60

ue0=uots-fngamm0(pi-tetta)*qu/ce*10^12

rk=uk1/ik1

kappa=1+fngamm1(tetta)*2*pi*ft*ck*rk/1000000

ibsr=2*pi*f*qu*kappa*1000000

rz=1/2/pi/fb/ce*10^6

pwsr=0.5*fngamm1(pi-tetta)/rz/ce*qu*qu/ce*10^24

rw=fngamm1(tetta)*2*pi*ft*le/kappa/1000

pw2sr=ibsr*ibsr*rw/2

pw=pwsr+pw2sr

kp=(p1+pw2sr)/pw

lw=lb+le/kappa

cw=kappa*ce/fngamm1(pi-tetta)

rpar=fngamm1(pi-tetta)*rz

print " Режим работы:"

print " Коэффициент использования напpяжения, B......…… ";ksy

print " Напpяжение первой гармоники на коллекторе, В……";uk1

print " Амплитуда 1-й гаpмоники коллекторного тока, А……";ik1

print " Постоянная составляющая коллекторного тока, А……";ik0

print " Мощность первой гармоники на выходе, Вт......……....";p1

print " Мощность, потpебляемая коллекторной цепью, Вт…...";p0

print " Мощность, pассеиваемая на коллекторе, Вт.....………..";pr

Продолжение приложения А

print " КПД коллекторной цепи........................…………………";kpd

print " Управляющий заряд, нКл.......................………………...";qu

print " Минимальное мгновенное напpяжение на эмиттерном"

print " переходе, В..........................…………………………....... ";uemin

print " Постоянная составляющая на эмиттере, В.......………....";ue0

print " Сопротивление коллекторной нагрузки, Ом......………..";rk

print " Амплитуда первой гармоники суммарного тока базы "

print " учетом тока емкости коллекторного перехода, А……..";ibsr

print " Сопротивление коррекции закрытого перехода, Ом…..";rz

print " Мощность,потребляемая цепью коррекции, Вт....……..";pwsr

print " Входное сопротивление, Ом....................……………….";rw

print " Мощность, потребляемая на входе, Вт...........………….";pw2sr

print " Мощность на входе, потребляемая каскадом, Вт.……..";pw

print " Коэффициент передачи по мощности............…………..";kp

print " Входная индуктивность, нГн...................……………….";lw

print " Входная емкость, пФ.........................……………………";cw

print " Усредненн. за период сопротивление коррекции, Ом ...";rpar

print "Измените заданные параметры Да - 1"

print "  Нет - 0"

input " ",arf

if arf = 0 then goto 36

print " 1- Допустимая мощность рассеяния на коллекторе, Вт ",pkdop

print " 2 - Рабочaя частоту, МГц………………………………...",f

print " 3 - Статический коэффициент усиления по току ……...",b

print " 4 - Напряжение отсечки, B………………………………",uots

print " 5 - Крутизна в граничном режиме, A/B………………...",sgr

print " 6 - Емкость эмиттерного перехода, пФ…………………",ce

print " 7 - Емкость коллекторного перехода, пФ……………….",ck

print " 8 - Допустимое напряжение на базе, В………………….",ubdop

print " 9 - Допустимый ток коллектора, А ……………………..",ikdop

print "10 - Допустимое напряжение на коллекторе, В…………",ukdop

print "11 - Индуктивность базового вывода, нГн………………",lb

print "12 - Индуктивность эмиттерного вывода, нГн ………….",le

print "13 - Граничная частота F betta, МГц ……………………..",fb

print "14 - Задайте угол отсечки, град …………………………..",tet

goto 33

36 print #1, " Исходные данные для расчета" : print #1,

print #1, " 1- Допустимая мощность рассеяния на коллекторе, Вт ",pkdop

print #1, " 2 - Рабочaя частоту, МГц…………………………………",f

print #1, " 3 - Статический коэффициент усиления по току ………",b

print #1, " 4 - Напряжение отсечки, B………………………………..",uots

print #1, " 5 - Крутизна в граничном режиме, A/B ………………….",sgr

print #1, " 6 - Емкость эмиттерного перехода, пФ…………………..",ce

Продолжение приложения А

print #1, " 7 - Емкость коллекторного перехода, пФ………………...",ck

print #1, " 8 - Допустимое напряжение на базе, В …………………..",ubdop

print #1, " 9 - Допустимый ток коллектора, А ……………………….",ikdop

print #1, "10 - Допустимое напряжение на коллекторе, В …………..",ukdop

print #1, "11 - Индуктивность базового вывода, нГн ………………..",lb

print #1, "12 - Индуктивность эмиттерного вывода, нГн ……………",le

print #1, "Напряжение источника питания, В...............………………",ep

print #1, "Максимальный ток коллектора, А................………………",ikmax

print #1, "Граничная частота  F betta,Њѓж...............………………….",fb

print #1, "Угол отсечки, град............................……………………….",tet

print #1, "Коэффициенты Берга для угла отсечки: "

print #1, "Alfa0=  ";fnalfa0(tetta)

print #1, "Alfa1= ";fnalfa1(tetta)

print #1, "Gamma0= ";fngamm0(tetta)

print #1, "Gamma1= ";fngamm1(tetta)

print #1, : print #1,

print #1, " Режим работы:" : print #1,

print #1, " Коэффициент использования напpяжения, B....………….. ";ksy

print #1, " Напpяжение первой гармоники на коллекторе, В ………...";uk1

print #1, " Амплитуда 1-й гаpмоники коллекторного тока, А……….. ";ik1

print #1, " Постоянная составляющая коллекторного тока, А………...";ik0

print #1, " Мощность первой гармоники на выходе, Вт......…………...";p1

print #1, " Мощность, потpебляемая коллекторной цепью, Вт………..";p0

print #1, " Мощность, pассеиваемая на коллекторе, Вт.....…………….";pr

print #1, " КПД коллекторной цепи.......................……………………...";kpd

print #1, " Управляющий заряд, нКл.......................…………………….";qu

print #1, " Минимальное мгновенное напpяжение на эмиттерном"

print #1, " переходе, В..................................……………………………. ";uemin

print #1, " Постоянная составляющая на эмиттере, В.......……………..";ue0

print #1, " Сопротивление коллекторной нагрузки, Ом......……………";rk

print #1, " Амплитуда первой гармоники суммарного тока базы "

print #1, " учетом тока емкости коллекторного перехода, А…………..";ibsr

print #1, " Сопротивление коррекции закрытого перехода, Ом………..";rz

print #1, " Мощность,потребляемая цепью коррекции, Вт....…………..";pwsr

print #1, " Входное сопротивление, Ом....................…………………….";rw

print #1, " Мощность, потребляемая на входе, Вт...........……………….";pw2sr

print #1, " Мощность на входе, потребляемая каскадом, Вт.…………..";pw

print #1, " Коэффициент передачи по мощности............………………..";kp

print #1, " Входная индуктивность, нГн...................…………………….";lw

print #1, " Входная емкость, пФ..........................…………………………";cw

print #1, " Усредненн. за период сопротивление коррекции, Ом ……...";rpar

goto 80

40 print "Максимальны ток коллектора не должен"

Продолжение приложения А

print "Превышать ";0.8*ikdop;" A" : goto 30

50 print "Мощность рассеяния на коллекторе превышает допустимую"

print " Измените исходные данные "

goto 10

60 print "Мгновенное напряжение на базе превышает допустимое"

print " Измените исходные данные "

goto 10

70 print "Напряжение питания не должно превышать";ukdop/2;" B"

goto 20

80 end