iyPRINT-yMEHblllAHTE ТОЛЩИНУ ДИСКА-рЕЗОНАТОРА*

693G0T0 620

700IP F0<=27S THEN BOO 710REM »«»У=2»»»РИС 48 720LET Y=2

730IF V<=1 THEN LET A=7.37S-4.375»U 7iOIF V<=0.6 THEN LET A=9.162-7.353x0 7S0IF 0<=0.43 THEN LET A=l 1.755-13.385>fV 760IF V<=0.3 THEN LET A=14.52-22.6»V 770IF V<=0.2 THEN LET A=17.407-37.037*0 780IF V<=0.146 THEN LET A=20.111-55.556»У 790G0T0 900 800REH»»»y=l»»»PHC48 810LET Y=l

820IF V<=1 THEN LET A=3.6-2*0

830IF V<=0.5 THEN LET A»5.1-5*0

840IF V<=0.4 THEN LET A=6.1-7.5*0

850IF V<=0.28 THEN LET A=7.29-11.765*0

860IF V<=0.195 THEN LET A=8.362-17.241*0

870IF V<=0.137 THEN LET A=ll.184-37.838«V

880IF V<=.1 THEN LET A=14.4-70*0

890IF V<=.07 THEN LET A=25.25-225*0

900LET D7=A*r

905PRINT

909LET D7=INT(07*100)/10О

910РР1НТ-УСТРАИВАЕТ ЛИ ВАС ДИАМЕТР ДИСКА-РЕЗОНАТОРА "!d7f

911PRINT" MM, (ДА-1)*;

920INFUT W2

930IF .W2O0 THEN 960

939FRINf

940РКМТ-ТОГДА ИЗМЕНИТЕ ТОЛЩИНУ ДИСКА"

945FRI.NT;"nPEflklflyfflEE ЗНАЧЕНИЕ ТОЛЩИНЫ ДИСКА, ММ"!Т

947PRINT"H0B0E ЗНАЧЕНИЕ ТОЛЩИНЫ ДИСКА (0.75 - 4) ИИ"!

950G0T0 631

960IF Y=l THEN 1330

970РЕМ**»У=2«*«РИС 50 - J1=F(T)

9B0IF F0{=425 THEN 1020

990IF F0<=475 THEN 1070

lOOOIF F0<=F9 THEN 1120

1020REM F0=400K

1030IF T>=.75 THEN LET Jl=1.667*T-.5 1040IF Т>=1.5 THEN LET J1=2.3«T-1.45 1050IF T>=2.5 THEN LET Jl=3.419»T-4.2478 1060IF T5=3.18 THEN LET Jl=5.03-9.37 106SDDT0 1190 1070REH F0=450K

1080ГР,Т>=.75 THEN LET J1=1.413*T~.44 1090IF T)=1.5 THEN LET Jl=2.02*T-1.35 UOOIF T>=2.5 THEN LET Jl=2.618*1-2.845 lUOIF T)=3. 1825 THEN LET J1=3.926»T-7.015 1115G0T0 1240 1120REM F0=500K

1130IF T>=.7S THEN LET Jl=1.2*T-.5 1140IF T)=1.5 THEN LET J1=1.88»T-1.52 1150IF T)=2.S THEN LET Jl=2.107*T-2.087 1160IF T>=3.25 THEN LET Jl=2.987*1-4.947 1165G0T0 1290

1170REM»»*y=2*»»FHC 52 - J2=F<T) 1190REM F0=400K

1200IF T>=.75 THEN LET J2=19.9-4.533*T 1210IF Т>=1.5 THEN LET J2=18.125-3.3S«T 1220IF T>=2.5 THEN LET J2=14.333-1.833*T 1230G0TQ 1600 1240REM F0=450K

1250IF T>=.75 THEN LET J2=19.03-4.533»T 1260rF T)1.5 THEN LET J2=17.625-3.35*7

1270IF Т)=2.5 THEN LET J2,= 13.833-1.833«Т

1280G0T0 UOO 1290REM FORSOOK

1300IF T>=.75 THEN LET J2=17.7-3.933»T 1310IF Т>=1.5 THEN LET J2=17.025-3.35»T 1320IF T>=2.5 THEN LET J2=13.233-1.833ЧТ 1325G0T0 1400

1330REM««»y=l»«»PHC 49 - J1=F(T) 1340IF F0<=175 THEN 1370 1350IF F0(=225 THEN 1430 1355IF F0<=275 THEN 1490 1370REH F0=150K

ISaOIF T>=1.5.THEN LET J1=3.013»T-1.26 1390IF Т>=1.5 THEN LET Jl=4;24»T-3. i. 1400IF T>=2.5 THEN LET Jl=5»T-5 1410IF T>=3 THEN LET J1=7.22»T*11.44 1420G0T0 1540 1430REM F0=200K

1440IF T> = .75 THEN LET Jl = 1.933«T-.7 1450IF Т>=1.5 THEN LET JI=2.614«T-1.724 1460IF T>=2.1BB THEN LET J1=3.387»T-3.41 1470IF T>=3 THEN LET Jl=4.5«T-4.75 14B0G0T0 1540 1490REH F0=250K

1500IF T>=.75 THEN LET JI=1.413«T-.56• 1510IF Т>=1.5 THEN LET Jl=2.13«T-1.635 1520IF T>=2THEN LET Jl=2.666»T-2.708 1530IF.T>=3.5 THEN LET Jl=3.25»T-4.75 1540REH)(«)(y=l)(»«PHC 52 - J2=F(T> 1550REM ТОЛЬКО ДЛЯ F0=250K 1560IF T)=.75 THEN LET J2=30.7-6.4«T 1565IF T>=2.5 THEN LET J2=26.975-4.95«T 1570IF T>=3 THEN LET J2=23.675-3.B5«T 1590IF T>=3.5 THEN LET J2=ia.6-2.4*T 1600REH Ш. COUP. ДИСКА 1601LET J1=J1»1E-3:LET J2=J2«lE-2 .1610LET Rl=39.47a»PO»F2»Jl/42 1620REM ДИАМЕТР СВЯЗКИ 1630LET C=SDR(0.212ifK«Rl)/(E2«P0>-0.23 1632LET С=С»10

1633LET C=INT(C»1000V1000 1635PRINT

1640PRINT"ДИAMETP СВЯЗКИ, MM ";C

USOPRINT-yCTPAHBAET ЛИ ВАС ТАКАЯ ВЕЛИЧИНА (ДА-1)"!

1660INPUT ИЗ

1670IF U3O0 THEN 1740

1680PRINT

1690PRINT"T0ГДA ИЗМЕНИТЕ ТОЛШИНУ ДИСКА" 1700PRINT

1710PRINT"1PEДHДУШEE ЗНАЧЕНИЕ, ММ ":Т

1720PRINT"H0B0E ЗНАЧЕНИЕ I ММ ">:INPUT Т

1730G0T0 670

1740REM Б4»»**»»»*»»

1750LEt"u=K«R1/1.176

1760LET R-2«U

1770REM ОЛР.КОЭФ.ТРАНСФОРМАЦИИ 17B0IF У=1 THEN 1990 1790REM«»«y=2»)«PHC53 NT=F(T) laOOIF F0(=425 THEN 1810 1B03IF F0<=475 THEN 1870 1805IF F0<=F9 THEN 1930 1810REM F0=400K

ia20IF T>=0.75 THEN LET Z=.327»T+2.23S ia30IF Т>=1.5 THEN LET Z=.44»T+2.09 1840IF T>=2 THEN LET Z=.605»T+1.7.6 1860GOTd2090

1870rem f0=(50k

18b0if T)=>.73 them LET Z=.3(7»T+2.23 1b90if T) = 1.5 then let z=:.51»T+2.035 1900if T>-2 THEN let z=.49«T+1.675 1910if T>=2.5 then LET z=.b«T+1.4 1920G0r0 2090 1930rei1 fo-SOOK

1940if T>=-.75 then let z=.-i«T+2.37S 1950if T>=1,3 then let z=,57»T+2.02 1960if T>=2 then let z=-.82»T+1.52 19701f T>=2.5 then let z=l.U»T + .793 1980g0td 2090

1990rei1»»»>4»»»phc 54 NT=F(T> 2000if f0<=175 then 2010 2005if ro(=275 then 2050 2010rem f0=150k

2020if T>=.75 then LET Z=-0.076»T-1.29a 2030if T>=2 then let Z=-0.0375»T-1.373 2040g0t0 2090 2050rem f0=20OK

2060if T> = .75 then let Z=-.0b3)tT-1.3123 2070iF т> = 1.5 then LET Z=-.0685«T-1.333 2080if T>=2.5 then let Z=-.043»T-1.339 2090let F-r/(z»z)

2100rem яиднетр серяечнйка преобразователя

2105if n01 then 2115

2108let d8=0.6366»sqr(u.A6A7i<al»p)

2110g0t02118

2115let D8=SaR(5»p/Ql)

2118let в8=в8/(ЕЗ»РЗ)0.23

2h9let в8=ь8)и0

2120print

2123let d8--iNT<bb«1000)/1000

213орК1нт"При ДОБРОТНОСТИ ";ai!

21331f n0=1 then 2136 2134frint"m однотипной нагрузке." 2135g0t0 2138

2136print"h разнотипной нагрузке"

г1звря1нт"дИАМЕтр сердечника преобразователя. нм";вэ

2139friht

2140рк1нт"устраивает ли вас ЭТОТ результат (да-1)"»

2isoinput u4

2160IF u4o0 then 2330

2170frint ,

2180FRlNr"4T0 ТОГДА будете ИЗМЕНЯТЬ :"

г181Рр1нт"толщинУ диска-резонатора (П."

21в2рн1нт"величину добротности фильтра (2)."

2183рк1мт"тип нагрузки фильтра и материал сердечника преовразователя (3)

2190 input w5

2200if w5=2 then 2260

2205if w5=3 then 2310

2210print

2230рр1нт"ПРЕДк1ДУ»1ее значение толшинм диска-резона ГОРА) ММ";Т 2230printновое значение ТОЛЩИНЫ ДИСКА (0.73 - 4) ИМ"! 2240 input т 22500010 670 2260print

г270РК1НТ"ПРЕаЫДУЩЕЕ заданное ЗНАЧЕНИЕ добротности ";0

ггвоРвтктПРЕдыдущЕЕ рассчитанное значение добротности ";ni

2!90рк1нт-н0вая величина ДОБРОГНОГЛИ "!:INFUT Э

гЗООООТО 230

2310print

232000т0194

гзЗОРЕМ ДЛИНА СЕРДЕЧНИКА ПРЕОБРАЗОВАТЕЛЯ 2340tF N0=1 THEN 2370 2330LET l3=3»c3/(2»F0»10O0>