Ãëàâíàÿ -> Êíèãè

(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) (55)

2 LETS1=2:LETK1=0.1

3 LETF0=0.45!LETft6=0 A LETM0=tPI»4E-7

5 PRINTÏÐÎÃÐÀÌÌÀ ÏÐÅÄÍÀÇÍÀ×ÅÍÀ ÄÄß ÐÀÑÑ×ÅÒÀ ÍÅÉÒÐÀËÜÍÎÃÎ ÐÅËÅ

6 PRINTC ÌÀÃÍÈÒÎÓÏÐÀÂËßÅÌÛÌÈ ÊÎÍÒÀÊÒÀÌÈ.ÄËß ÓÑÏÅÖÎÉ ÐÀÁÎÒÛ G

7 ÐÐÒÌÒÏÐÎÃÐÀÌÌÎÉ ÍÅÎÁÕÎÄÈÌÎ ÈÇÓ×ÈÒÜ ÑËÅÄÓÞÙÓÞ ËÈÒÅÐÀÒÓÐÓ

8 ÐÐÕÌÒÊ.È.ÕÀÐÀÇΠ<ÐÅËÅ Ñ ÌÀÃÍÈÒÎÓÏÐÀÂËßÅÌÛÌÈ ÊÎÍÒÀÊÒÀÌÈ) 15 ÐÐ1ÍÒÂÁÅÄÉÒÅ ÄÀÍÈÜÅ Â ÑÈÑÒÅÌÅ ÑÈ

20 ØðèÒÄËÈÍÀ ÇËÅÊÒÐÎÄÀ (Ì) L=L 22 INPUTØÉPÈHA ÇËÅÊÒÐÎÄÀ (Ì) Â=Â 24 ÒÍÐèÒÒÎËÙÈÍÀ ÝËÅÊÒÐÎÄÀ (Ì) Í=Í

26 1ÊÐèÒÄËÈÍÀ ÏÅÐÅÊÐÛÒÈß Â ÐÀÁ. ÇÀÇÎÐÅ (Ì) LSIGMA»L1 28 1ÊÐèÒ.ÄËÈÍÀ ÍÀ×. ÐÀÁÎ×ÅÃÎ ÇÀÇÎÐÀ (Ì) SIGMAO=J 30 INPUTMOÄÓËÜ ÓÏÐÓÃÎÑÒÈ ÌÀÒÅÐÈÀËÀ ÝËÅÊÒÐÎÄΠ(Í/Ì"2) E=R 32 1ÍÐèÒÊ0ËÈ×ÅÑÒÁ0 ÌÊ N=N

34 INPUTMHH. Í.Ñ. ÑÐÀÁÀÒÜØÀÍÈß ÌÊ (À) 1ÛÌÈÍ=Ï 36 INPUTMAKC, Í.Ñ. ÑÐÀÅÀÒÜÂÀÍÈß ÌÊ (À) 1ÛÌËÊÑ=12 38 INPUTÄÅÉÑÒÂÓÂØÀß ÏÅÐÅÃÐÓÇÊÀ (G) A=G

40 ÒÍÐèòÏËÎÒÍÎÑÒÜ ÌÀÒÅÐÈÀËÀ ÝËÅÊÒÐÎÄÎÂ (ÊÃ/Ì-Ç) GAMHA=61 À2 INPUTKOHTAKTHOE ÓÑÈËÈÅ (Í) ÐÊ=Ð

44 INPUTMAKC. ÄÎÏÓÑÒ. ÒÅÌÏÅÐ. ÍÀÃÐÅÂÀ ÎÁÌÎÒÎÊ QMAKC=Q Àá INPUTMAKC. ÍÀÏÐßÆÅÍÈÅ ÈÑÒÎ×ÍÈÊÀ ÏÈÒÀÍÈß UMAKC=U1 48 INPUTMHH. ÍÀÏÐßÕÅÍÈÅ ÈÑÒÎ×ÍÈÊÀ ÏÈÒÀÍÈß UMHH=U2 50 INPUTÊÎÝÔÔÈÖÈÅÍÒ ÑÈÌÌÅÒÐÈ×ÍÎÑÒÈ ÊÑÌ=Ê6 55 LETC=(2.»R»B«H"3./(2.*L-Ll)-3.) 60 LETK9=2.2«I2/(I1*I2) •65 LETFl=C*J«K6if (l. + l./(Kl+Sl))/3. 70 LETF2=0.033*B*H«L»GH<G 75 LETY9=(F1+F2)/F1 80 LETT9=1.+0.004*(Q-20.) 85 LETH9=(U1+U2)/(2.«U2)

90 LETZ9=K9»T9)(H9«SQR(Y9)

91 PRINTBBEÄÈTE ÊÎÄ ÐÀÑÏÎËÎÆÅÍÈß ÌÊ

92 INPUTÂÍÓÒÐÅÍÍÅÅ 1 , ÍÀÐóÕÍÎÅ Î À!

94 IF À1=0 GOTO 98

95 IF À1=1 GOTO 115

96 PRINTHEÏPABÈËÜHÛÉ ÂÂÎÄãÎÎÒÎ 91

98 ÒÌÐèòÈÍÄÓÊ×éß ÍÀÑÛÙÅÍÈß ÌÀÒÅÐÈÀËÀ ÑÅÐÄÅ×ÍÈÊÀ (ÒË) ÂÇ=Â4

99 LETY8=K6»C«(J-lE-5)+F

100 LETF1=Z9»SQR(2»M0»B)(L1*N»Y8) 105 LETS=Fl/(0.9itB6>-

JIO LETB=2»SaR(S/iPI)

lis ðèÒÂÂÅÄÈÒÅ ÏËÎÒÍÎÑÒÜ ÒÎÊÀ (A/M2) J=J3 120 LETQ1=Z9»(I1+I2)*SQR(N)/(J3»2»F0) 125 ÒÍðèòÄËÈÍÀ ÎÁÌÎÒÊÈ (Ì) LOsLO

130 LETH0=Q1/L0

131 1ÍÐèÒÄÈÀÌÅÒÐ ÂÛÂÎÄÀ ÌÊ (Ì) DB

132 INPUTOTHOCHT. ÌÀÃÍÈÒÍÀß ÏÐÎÍÈÖ. ÌÀÒÅÐ. ÝËÅÊÒÐÎÄÎÂ Ì 134 IF À1=1 GOTO 138

136 IF À1"0 GOTO 270

138 PRINTBHCOTA ÎÁÌÎÒÊÈ ÍÎÌ

139 IF À1=1 GOTO 141

140 IF À1=0 THEN 270:PRINTHEÏPABÈËÜHÛÉ ÂÂÎÄ:0ÎÒÎ 133

141 INPUTBHyTPEHHHH ÄÈÀÌÅÒÐ ÊÎÐÏÓÑÀ DBH.=U7

144 1ÌÐèÒÍÀÐÓ«ÍÛÉ ÄÈÀÌÅÒÐ ÊÎÐÏÓÑÀ DH.=D7

145 ÒÍÐèÒÄËÈÍÀ ÊÎÐÏÓÑÀ (Ì) LK»L7

146 INPUTÒÎËÙÈÍÀ-ÊÐÛØÊÈ (Ì) ÍÊÐ11)»Í4

147 INPUTOTHOC. ÌÀÃÍ. ÏÐÎÍÈÖ. ÌÀÒÅÐÈÀËÀ ÊÐÛØÊÈ Ì4

148 INPUTOTHOC.ÌÀÃÍ. ÏÐÎÍÈÖ. ÌÀÒÅÐÈÀËÀ ÊÎÐÏÓÑÀ Ì7 132 ÌÐèÒÝÊÐÀÍ ÓÑÒÀÍÀÂËÈÂÀÒÜ ? À2

153 IF À2=1 THEN 204

154 IF À2=0 GOTO 156

155 ÐÐÒÍÒÍÅÏÐÀÂÈËÜÍÛÉ ÂÂÎÄÃÎÎÒÎ 152

156 ÒÌÐèÒÄÈÀÌÅÒÐ ÎÒÂÅÐÑÒÈß DO=DO 160 LETR1=(L7-H4)/(2.512E-6*M»B»H) 165 LETR2=L0G(B0/D8)/(2*M0«SFI»H4)



170 LETR3=l.DC (tB7+V7) 7 (7.»D0)) / (2»M0)(tPI«M4»hi) 175 LETR4=4»(L7~h»/(M0»JPI)fH7»(B7\2~V7"2)) 180 LETGA=1/ (R4+2!<R3+7-)(R2/N+2«Rl/H) 185 LET65=2*M0i({PI)((ri7-2«lM}/<L0G(V7/D8/N)> 190 GOTO 380

204 òðèòòø ýêðéíä îý.=1.ç

208 INPUTHApyxHtifl äèàìåòð ýêðàíà Ii3.H. = D3

21b ÒÍÐèòåèóòðåííèé äèàìåòð ýêðàíà Ii3.BH.=V3

212 INPUTOTHOCHT. ìàãí. ïðîíèí. ìàòåðèàëà ýêðàíà =ÍÇ

215 LETR1»(L7-L3-H4)/(2!«M0»M»H«B)

220 LETR2=(LOO(V3/B8))/(2«Ì0»ÔÐ1«13)

225 LETR3-2*(L3+0.5«H4)/(Ì0»?Ð1»ÌÇê(ÂÇã-ÓÇ-ã))

230 ØÊ4=1.06 ((D7+V7)/(ÂÇ+ÎÇ))/(2»M0isfpIxM4«H4)

£35 LETR5= (I.7-H4) / (M0)(tPI)(M7» (D7"2-V7-2! >

240 LET04»l/(R5-i-2»R4+2»R3-i-2!«R2/N+2»Rl/N)

243 LETOSS*tPI»MO» (L7-2)(H4} / (LOG (V7/Ii3))

;£50 GOTO 300

270 ÌÐèÒÄËÈÍÀ ÑÅÐÄÅ4ÍÈÊÀ LC=L5

273 ÒÌðèÒäèàìåòð ôëàíäà ñô.09

275 INPUTOTHOCHT. ÌÀÃÍ. ïðîíèí. ÌÀÒÅÐÈÀËÀ ÑÅÐÄÅ4ÍÈÊÀ ÌÑ=ÍÇ

274 INPUTOKPAH óñòàíàâëèâàòü 7 »À2 278 IF À2=1 GOTO 324

280 IF à2=0 GOTO 285

281 ðð1íòíåïðàâèäüíûé ÂÂ0Ä!ÁÎÒÎ 274

2Â5 INPUTOTHOCHT. ìàãí. ïðîíèí. ìàòåðèàëà ôëàíöà 288 ÒÌÐèÒòîëèèíë ôëàíöà Í»»Í9

290 ÒÌÐèãëèàìåòð îòâåðñòèÿ 1)0=ÂÎ

291 LE1RI=4H.5/(H0)(*PI»H5«2) 295 1.ÅÒÐ2à(ü5+í9)/(2)(Ì0ÊÍ«Í»å)

300 LETR3=L0G(B9/DJ/(2*M0XJPI»«9)(H9) 305 LETR4=L0G(B0/»8)/(2»M0ii-iPI»H9) 310 LET64»:l/(Rl+2*R3bR3+2»R4/M+2)!R2/N) SIS LETX5=((0.5»b9)-B\;-B82)/(2)!b«D8)

317 LETN8=2)(X5+SQR(4)(XS-2-l)

318 LETN9=L0G(N8J

320 l.ETG5=4PI)(M0Xt5)(N/N9 325 GOTO 380

324 INPUTÍÀÐóèÍÈÈ äèàìåòð ÝÊÐÀÍÀ ÄÝ.Í.»ÏÇ S27 INPUTâíóòðåííèé äèàìåòð ýêðàíà ÂÝ.ÂÍ.èÓÇ

328 INPUTòîëùèíà êðûøêè íêðø.=Í4

329 Ìðèòäëéíà ýêðàíà L3. = L3

330 INPUTOTHOCHT. ìàãí. ïðîíèö, ìàòåðèàëà ýêðàíà =ÌÇ

335 LETRI=4«L5/(N0i(JPI«N5«B>2)

340 LETR2=Loe ((D3+v3) / (2*»))/ (2ÊÌ0!«4Ð1)(Ì5»Í4)

345 LETR3»2«(L3+0.5KH4)/(m0)(fPI»M3«(D3"2-V32))

350 øò= (L5-L3) / {2òòíò

353 LETXS=(B9\2-Da2-D"2)/(2»BifD8)

355 LETR5=I.OG(XS+3QR(X5"2-l))/(2!(MOXtPI)(L3)

340 LETG4=l/(Rl+2»R2+2»r3+2i(R5/N+2)(R4/N)

370 LETeS=2)(h0»JPI»L5/L0G(v3/D)

380 LETG7=M0i(N»B«Ll/J

385 tXTK2=G4/G7

390 letk3=0.02»G3/G7

395 ÐÊãàÒñóììàðíàÿ ìàãíèò. ïðîâîäèìîñòü ìàãíèòîïðîâîäà -Gi

Ø PRINTMAFHHT. ïðîâîäèì. ïóòåé ðàññåèâàíèÿ =G5

/(05 PRINtK03«. ìàãíèòíîé ïðîâîäèìîñòè ìàãíèòîïðîâîäà =ê2

•410 ÐÐÕÍÒÊÎÝÔ. ìàãí. ïðîâîäèì. ïóòåé ðàññåèâàíèÿ =ÊÇ

ill PRINTåñëè âàñ ÍÅ óñòðàèâàâò ðåçóëüòàòû âí4èñëåíèé i ÂÛ MOIETE

412 PRINTïðîèçâåñòè ïîâòîðíûé ðàñ4åò ìàãíèòíûõ ïðîâîäèìîñòåé

413 PRINTH ÊÎÇÔ. ìàãíèòíûõ ïðîâîäèìîñòåé èçìåíÿÿ ëþáîé ïàðàìåòð 415 LETJ2=J/3i((2-l/(K2+K3))

418 INPUTïîâòîðíûé ðàñ4åò ïðîèçâîäèòü V >À4 420 IF À4=0 GOTO 431 423 IF À4=1 GOTO 91

430 PRINTHEnPABIWbHtro ððîä:å0ò0 418

431 1ÅÒ01=2/3«Jit CI Ö/ (K2+K2) 1 «Í»Ñ((ê6/ ÑÌÎõ»!.!)



434 let 1=2/3)1 J*(1/k2+1+k3/k2)»s0r (01) 438 t.eti3=h<29

442 LET02=SQR(2«N«C«(J-lE-5)«K6/(H0«B»Ln) 446 ååò14=0ã«1Å-5«(ë1å5+ê2+ÊÇ)/ê2 450 LET05=1.5K- (1 + 1Å-5/3» (k2+k3)) /(1+k2+k3) 454 let06=3«(1-1E-s/j)»(k2+k3)/(1+k2+k3)

458 LETK8=05»sor(06)

459 PRINTCnOCOB ÂÊË104ÅÍÈß ÐÅËÅ V

460 INPUTnO ÒÎÊÓ 1 , ÏÎ ÍÀÏÐßÕÅÍÈÂ î as 475 IF A1=0 goto 482

4b0 GOTO 485

482 ÐÐÌÒÄÈÀÌÅÒÐ ÑÅÐÄÅ4ÍÈÊÀ D-D H

4b5 INPUTÓÊÀÆÈÒÅ ÂÍÓÒÐÅÍÍÈÉ ÄÈÀÌÅÒÐ ÎÁÌÎÒÊÈ DB0=V2

490 letss=02+h0

491 IF 45=1 GOTO 605

492 IF A5=0 GOTO 495

493 ÐÐ1ÍÒÍÅÏÐÀÂÉËÜÍÛÉ ââîä:åÎÒÎ 460 495 LETS6=S0R(I4E-8»s5»I3/(U1+U2)) 500 ÐÐ1ÌÒÄÈÀÌÅÒÐ ÏÐÎÂÎÄÀ =S6

505 INPUTBblBEFMTE ÁËÈÕÀÉØÈÉ ÁÎËÜØÈÉ ÄÈÀÌÅÒÐ ÏÐÎÂÎÄÀÇÂ

510 ÒÍÐèòÄéÀÌÅÒÐ ÏÐÎÂÎÄÀ Ñ ÈÇÎËßÖÈÅÉ S7

516 INPUTKOSO. ÇÀÏÎËÍÅÍÈß ÎÊÍÀ FO=F0

520 SOTO 650

565 LETMI=01/s7"2

570 LETW2=4»01»FO/(iPI«S8"2)

575 LETR8=7E-8«S5«Ml/(tPl»s8"2)

580 LETR9=7E-8»s5«M2/(tPI»S8"2)

585 ÐÍ1ÍÒÊ0ËÈ4ÅÑÒÂ0 ÂÈÒÊΠÏÐÈ ÐßÄÎÂÎÉ ÍÀÌÎÒÊÅ -Ml 587 PRINTEE ÑÎÏÐÎÒÈÂËÅÍÈÅ =R8

589 ÐÐ1ÍÒÊ0ËÉ4ÅÑÒÅ0 ÂÈÒÊÎÂ ÏÐÈ (ÄÈÊÎÉ) ÍÀÌÎÒÊÅ =W2 591 PRINTEE ÑÎÏÐÎÒÈÂËÅÍÈÅ =R9 600 GOTO 660

60S ÒÍÐèÒÇÀÄÀÍÍÛÉ ÒÎÊ Å ÎÁÌÎÒÊÅ ? 1 = 46

610 LETW=I3/I6

615 LETS7=SQR(Q1/M)

619 ÐÐ1ÍÒÄÈÀÌÅÒÐ ïðîâîäà Ñ ÈÇÎËßÖÈÅÉ

620 FRINTnPH ðÿäîâîé ÍÀÌÎÒÊÅ B1=s7

621 PRINTBWBEPMTE ÏÎ Â1 ÄÈÀÌÅÒÐ ïðîâîäà

622 FRINTÁËÈ);AéØéÈ ÁÎËÜØÈÉ ÏÎ ÑÎÐÒÀÌÅÍÒÓ 625 INPUTee3 èçîëÿöèè D=S8

627 INPUTC èçîëÿöèåé =S2

630 INPUTh ÊÎÇ». ÇÀÏÎËÍÅÍÈß ÎÊÍÀ FO=FO

635 LETS6=SOR(4»01»fo/(}PI«U))

636 PRINTÄÈAMETP ÏÐÎÂÎÄÀ ÁÅÇ èçîëÿöèè ÏÐÈ <ÄÈÊÎÉ) ÍÀÌÎÒÊÅÇá

637 LETR8=7E-8«S5«w/(jpi»s8"2)

638 INPUTBblBEPHTE ÁËÉ«ÀÉØÉÈ ÁÎËÜØÈÉ ÄÈÀÌÅÒÐ ïðîâîäà s9

639 LETR9=7E-8»SS»M/(iPI«S?"2)

641 ÐÐ1ÌÒÊ0ËÉ4ÅÑÒÁ0 âèòêîâ ÏÐÈ ÂÑÅÕ òèïàõ ÍÀÌÎÒÊÈ =W 644 ÐÐ1ÍÒÑ0ÏÐ0ÒÈÂËÅÍÉÅ ïðîâîäà ïðè ðÿäîâîé ÍÀÌÎÒÊÅ R8 646 PRINTCOÏPOTéBËEHéE îáìîòêè ÏÐÈ (ÄÈÊÎÉ) ÍÀÌÎÒÊÅ =R9 648 LET04=G7»G6/(G7+G6)

650 PRINT

651 PRINTOHEHHTE ÐÀÇÍÈÖÓ ÌÅÆÄÓ ÅÛ4ÈÑËÅÍÍÛÌ ÄÈÀÌÅÒÐÎÌ È ÍÀÉÄÅÍÍÛÌ

652 PRINTnO ÑÎÐÒÀÌÅÍÒÓ. ÏÐÈ ÍÅÎÁÕÎÄÈÌÎÑÒÈ ÏÐÎÈÇÂÅÄÈÒÅ ï0åò.ÐÀÑ4ÅÒ

653 INPUTnOETOPHHH ðàñ4åò ÏÐÎÈÇÂÎÄÈÒÜ 7À7

654 IF à7=1 GOTO 120

655 IF Ë7=0 goto 657

656 FRINTHEnPAEHflbHHH ÂÁÎÄ:0îò0 653

657 IF À5=0 GOTO 565

658 LET04=g7»G6/(G7+G6)

660 PRINTXKAXHTE ÈÑÏÎËÜÇÓÅÌÛÉ ÒÈÏ ÍÀÌÎÒÊÈ

661 1ÍÐèÒÐßÄ0ÂÀß 1 , <ÄÈÊÀß) î à8

662 if à8=1 GOTO 670

664 if à6-0 GOTO 750

665 ÐÐÒÍÒÍÅÏÐÀÂÉËÜÍÛÈ ÂÁ0Ä:Î0ÒÎ 661 670 if À5=1 GOIO 675



(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)