Главная -> Книги (0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30) (31) (32) (33) (34) (35) (36) (37) (38) ( 39 ) (40) (41) (42) (43) (44) (45) (46) (47) (48) (49) (50) (51) (52) (53) (54) (55) (56) (57) (58) (59) (60) (61) (62) (63) (64) (65) (66) (67) (68) (39) 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> (0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30) (31) (32) (33) (34) (35) (36) (37) (38) ( 39 ) (40) (41) (42) (43) (44) (45) (46) (47) (48) (49) (50) (51) (52) (53) (54) (55) (56) (57) (58) (59) (60) (61) (62) (63) (64) (65) (66) (67) (68) |
|