def fngamm0(o)=(sin(o)-o*cos(o))/pi
10 input " 1- Допустимая мощность рассеяния на коллекторе, Вт ",pkdop
input " 2 - Рабочaя частоту, МГц ",f
input " 3 - Статический коэффициент усиления по току ",b
input " 4 - Напряжение отсечки, B ",uots
input " 5 - Крутизна в граничном режиме, A/B ",sgr
input " 6 - Емкость эмиттерного перехода, пФ ",ce
input " 7 - Емкость коллекторного перехода, пФ ",ck
input " 8 - Допустимое напряжение на базе, В ",ubdop
input " 9 - Допустимый ток коллектора, А ",ikdop
input "10 - Допустимое напряжение на коллекторе, В ",ukdop
input "11 - Индуктивность базового вывода, нГн ",lb
input "12 - Индуктивность эмиттерного вывода, нГн ",le
20 input " Задайте напряжение источника питания, В ",ep
if ep>ukdop/2 then goto 70
30 input "Задайте максимальный ток коллектора, А ",ikmax
if ikmax>0.9*ikdop then goto 40
input " Граничная частота F betta, МГц ",fb
input "14 - Задайте угол отсечки, град ",tet
tetta=tet*pi/180
print "Измените заданные параметры да - 1"
print " нет - 0"
input " ",art
if art = 0 then goto 35
33 print " Какой из заданных параметров измените? "
input " ",ert
if ert = 1 then input pkdop
if ert = 2 then input f
if ert = 3 then input b
if ert = 4 then input uots
if ert = 5 then input sgr
if ert = 6 then input ce
Продолжение приложения А
if ert = 7 then input ck
if ert = 8 then input ubdop
if ert = 9 then input ikdop
if ert = 10 then input ukdop
if ert = 11 then input lb
if ert = 12 then input le
if ert = 13 then input fb
if ert = 14 then input tet
cls
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
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
