V;rite(Введите толщину щеки каркаса - ); readln(ClO); vjritelnCLat,** Введите .толщину шеки каркаса writelnCLst, толщина щеки каркаса - ,С10:1:4); L10:=L3*L4;

writelnCвнутренний Диаметр магнитопровода (1)1) - ,dl:2:4);

writeln С радиальный зазор между корпусом и-катушкой (D10) - ,dl0!2l4)j

VritelnCдиаметр якоря(сердечника) (F1) - ,Fl:2;4)j

write,UUтолщина каркаса (ЕЮ) - ,blOs2:4);

DS:=C(Dl-2*Di5)tCFl+2*B10))/2j writelnC Lst,Внутренний диамвлц? магнитопровода - ,dl:2:4); wrltelnCLst,Радиальный зазор Между корггусон и катушкой - ,dl0:2:4){ writelnCLst,Диаметр якоря С сердечника) - ,F1:2:4);

writelnC"--------------------------------------------){

WritelnCсредний диакетр катушки - ,DS:2:4); writelnC--------------------------------------------)l

F10:=:(RO*DS+B5)/Ui

case B40 of

-1780*SQRT(F10*CD5+D6))J =1780*SQRTCF10*(D5*SinCA2/Z)+D6)); =1780*SQRTCF10*2+D5);

1:DP1: 2:DP1: 3:DP1: end; FLA:=3; WOD(FLA,DPl)t

WritelnC --------------------------------------------) J

write In С диаметр провод-а- - iDPj2:5)t

writelnC--------------------------------------------)!

write СВведите марку Провода - );readlnCQP)S writelnCLst,** Введите марку провода )! writelnCLat, марка провода - .QP)t

writeCBBCflHTe диаметр провода В изоляции - ) ;i?eadln(DSP) J WritelnCLst,** Введите диаметр провоза s изоляции )

»)riteln(r.st, диаметр провода в изоляции - ",D3P;ii5)5 HK:=((Dl-2+DlO)-(Fl+Z*B10))/2j LK:=L1-2*(C10+C)! Wi=0.865*((LK*HK)/(DSP+DSP)); №!=TRUNC(W) :

BP: = (O.000000Or*r)S*W)/(DP*pP) ; LPR!=DS*W*3.14!

writelnC•**************♦+♦***+***♦**♦*♦******»**♦*****)5 VritelnC ВЫВОД РЕЗУЛЬТАТОВ );

write In ( **♦** + ) 3

Case 340 of

liwrite(втяжной с плоским стопом ( 2:wi:ite(втяжной с коническим стопом (){ Cjwrite(с дисковым якорем (); end;

мriteln(KФ - ,KF:2:3, ) ") J Wrlte(тяговая сила [Н] - ,P:2:2)j

VritelnC*** диаметр якоря или сердечника tM] - (F1:2:4)j

Vrite(XOfl якоря [М] - ,DQ:2:6);

DritelnC*** наружный диаметр [М] - ,D2:2:4);

Vrite(.pac4eTH0C напряжение [В] - ,U:2;l)j

WritelnC*** длина ЭМ [М] - ,Ы;2:4);

write(Магнитная индукция [Т] - ,Bi;2:6);

writelnC *** превышение температуры [ ] - ,T;2tl);

wrlteCmax. Магнитная индукция [Т] - ,B5;2:G)j

if В40=2 then writeln( *** угол альфа ,А2!2!2) else witelnt writeCвнутренний диаметр магнитопровода [М] - ,t)li2:4)i writelnC *** удельная мощность рассеяния - ,K!2i2)t vrite(толщина фланца [М] - ,0l2;4);

writelnC *** удельное сопротивление провода -,Н0«2:10)} write(длина окна под катушку [Mi - ,L3:2;4)j

writelnC *♦* ход якоря -.D5:2:4); writeC средний диамЕТр катушки [Ml -.DS:2:4); writeln( *** нерабо.чий зазор -,D6:2:4); writ.eC марка провода - ,QP) ;

writelnC *** поправочный коэфф. - ,AS:2:2;j writelnC длина стопа - ,L10:2:4); writeCвысота катушки [М] - ,НК:2;4); writelnt *»» коэфф. длины стопа ,1.4:2:2); writelnCдлина катушки [М] - ,LK:2:4); VriteCдиаметр провода [М] - ,DP:2:6);

writelnC *** диаметр провода в изоляции - ,DSP:2:5),° writelnC число витков - ,WP;2);

writelnCсопротивление [Ом]- ,SP:2:2); writelnCдлина провода [М] - ,LPR;2U);

writeInС****+*****»**********♦♦*************♦*******♦***********);

WritelnCLst,=====-====-======-==================================)5

writelnCLst, РАСЧЕТ I ТИПЙ );

writelnC Lst, -=rzr = = = - = = : = = = = = = = = =x = = = = = = = = = : = = =:= = = = = = = = : = = = = = = = =) }

WritelnCLst, исходные данные); WritelnCLst, -----------------------------

writelnCLst,тяговая сила [Н] - ,Р:2:2)!

writeln(Lst,ход якоря [М] - ,DQ:2:4);

WritelnCLst,расчетное напряжение [В] - ,U:2;1);

WritelnCLst,превышение температуры [град] - ,Т;-2:1);

writelnCLst,удельная мощность рассеяния [Вт/м*м] - ,N:2:1)J

WritelnC Lst,удельное сопротивление провода [Ом*м] - ,RO:2;JL0)i

WitelnCLst, результаты расчета); writelnCLat," -.....----.-----)