Главная Электромагнитные устройства



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.0157