Главная Электромагнитные устройства end; 2:beeln writefвтяжной с коническим стопом { ); write(Lst,втяжноя С коническим стопом ( )j end; S;beein writeCc ДИСКОВЫМ якорем ( )} write(Lstf О дисковым якорем ( )! end; 4:write(o ФМШ ( ); end; vriteln(KF:2!3, ))} writeln(L3t,K* 3 ,KF!2:3,* )) wrlteCВведите значение магнитной индукции .- *)!ireadln(Bl); writelnCLst,** Введите значение магнитной индукции ); writelnCLst* еначение магнихной ИНДУКЦИИ - ibl:l:3); case В40 of l!Fll:=0.00179*(SQRT(F)/Bl)5 3:Fll:=0.0012e5*(SQRT(P)/Bl) ajbegin if FLAlOl then begin write(Введите угол альфа -);readln(A2)t writelnCLst,** Введите угол альфа ); writeln(Lst, угол альфа - ,a2j2il); &i0:=a2; A2:=A2/57.3t end; Fll:=0.00i79*(SQRT(P)/(Bl*Sin(A2/2)))l end; end; WOD(FLA.Fll); D2:=2*Fi; if FLAlol then begin writeC Удельная мощность рассеяния - ••);ireadln(N)} VriteC Удельное сопротивление провода - ) ; readln(RO); VritelnfLst, удельная мощность рассеяния - ,N:1:5); Vriteln(Lst, удельное сопротивление провода - ,ЕО:1;10)3 end; Р2: =BQRT( (P+RO) /(X>2*D2*B2*M) ) ; if FLAlol then begin writelnC Введите "нерабочий эазор")? vriteln(Lst,** Введите "нерабочий эазор"); Т>Ь:-т; vriteС значение "нерабочего зазора " -) ;ireadln(De) ; v)riteln(Lst, значение "нерабочего зазора"- sd6;l;4); end; case В40 of l:L;=8700*(D5+De)*F2; 2:L:=8700*(D5*Sin(A2/2}+D6)*B2; 3;Ls=12300*P5*F2s end; FLA:=2; WOD(FLA,L); 0:=L1/D2; writelnC--------------------------------------------); writelnCотношение Длины ЭМ к его диаметру - ,0:2:2); writelnC-------------------------------------------) • writelnCLst,Отношение длины ЭМ к его диаметру - ,0:2:2); case В40 of l;if О<0.7 then begin FLAlt=l;Goto l;end; 2:if O<0.7 then begin FLAl:=l;Goto l;end; 3:lf O<0.4 then begin FLAl;=l;Goto l;end; end; case Б40 of I.lf Q>JL.e then begin FLAll-l;Goto Ijend; 2rif П>1.8 then begin FLAl:=l;Goto l;end; 3:if O>0.8 then begin FLAl:=l;Goto Ijend; end; case B40 of 1:B1:=0.00179*(SQRT(P)/F1); 3-Bl:=0.001265*(SQHT(P)/Fl)i -2;Bl:=0.00179*(BQRT(P)/(Fi*Sin(AZ/2)))l end; write(BBOfl поправочного коэффициента -); readlri(A5)j •writelnCLst,Ввод поправочного коэффициента ); writsln(Lst, значение поправочного коэффициента - ,А5:1:2); B5:=3i/A5; m:=&.87*D2:" C;=0.12*D2; L3:=L1-2*C; - сазе B40 of l:begin write(коэфф. ДЛИНЫ стопа -);readln(L4); writeln(Lst,** Ввод коэфф. длины стопа ); writeln(Lst. коэфф. длины стопа - ,L4:1:2); end; 2:begin write(Тоэфф. длины стопа -) ;readln(L4); .,writeln(L3t,** Введите коэфф. длины стопа "); writelh(L3t, коэфф. длины стопа - ,L4:1:2); end;-3:L4:=1; end; write{Введите зазор между корпусом и катушкой -);readln(DlO); • writeln(Lst,** Введите зазор между корпусом и катушкой ); wrttelntLst.зазор между корпусом и катушкой -,D10jl:4)i write С Введите толщину каркаса - ) ;readln(B}.0); writelnCLst.** Введите толщину каркаса ) ;. writeln(Lst,• толщина каркаса - .В10:1:4); 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 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 [110] 111 112 113 114 115 116 0.0245 |