|
|
| Ãëàâíàÿ -> Êíèãè (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) (49) 45DATft 0.0,0.0,0,0,0 ÀáÊÅé P5,EbE2,E3rE4.E5,E8 47ÏÉÒÀ Î 48REA» Å9 5oprint" ÏÐÎÃÐéÌÌÉ ÐÀÑ×ÅÒÀ ÌÀÌÌÎØÍÎÃÎ ÑÈËÎÂÎÃÎ ÒÐÀÍÑÔÎÐÌÀÒÎÐÀ" 51PRINT" ÍÀ ÒÎÐÎÈÄÀËÜÍÎÌ ÌÀÃÍÈÒÎÏÐÎÂÎÄÅ" 52PRINTiPRINT:PRINT 53ÐÊ1«Ò"ÍÅ0ÁÕ0ÄÈÌÀß ËÈÒÅÐÀÒÓÐÀ :" 54PRINT"!. ÅÅËÎËÎËÜÑÊÈÈ È.È. È ËÐ. ÐÀÑ×ÅÒ ÒÐÀÍÑÔÎÐÌÀÒÎÐÎÂ È ÄÐÎÑÑÅËÅÉ ÌÀËÎÉ* 55PRINT"MO0HOCTH. ÈÇÄ.2-Å.-Ì.,ÝÍÅÐÃÈß,1973,400 Ñ." 56PRINT"2. ÁÅËÎÏÎËÜÑÊÈÉ È.È. È ÄÐ. ÐÀÑ×ÅÒ ÒÐÀÍÑÔÎÐÌÀÒÎÐÎÂ È ÄÐÎÑÑÅËÅÉ ÍÀËÎÈ" 57ÐÊ1ÍÒÌ0ÙÍ0ÑÒÈ. -Ì. ÃÎÑÇÍÅÐÒÎÈÝÄÀÒ. 1963,275 Ñ," 58PRINTSPRINT 60ÐÊ1ÌÒ"ÂÂÅÄÈÒÅ ÈÑÕÎÄÍÛÅ ÄÀÍÍÛÅ :" 41PRINT 65ÐÐ1ÍÒ"Ê0ÄÈ×ÅÑÒÂ0 ÎÁÌÎÒÎÊ".:INPUT N1 70PRINT-4ACT0TA ÑÅÒÈ (ÃÖ) ".!INPUT F 85PRINT-BËéH0CTÜ: ÍÎÐÌÀËÜÍÀß (0) ÈËÈ ÏÎÂÛØÅÍÍÀß (1) "JiINPUT VOPRINTSAAAHHUE ÍÉ11Ðß»ÅÍÈß ÎÁÌÎÒÎÊ (Â) :" ?2Â1Ì U(20bl(20) ,N4(20) ,02(4) ,01(20) ,3(20) ,D(20) .D2(20) ,33(20) ,G(20) .Â4(20) 93BIM U8(20).Wl(20).H5(20).l2(20),R(20>,U3(20).W(20) lOOFOR K=l TO N1 110PRINT"U-iK;-=--:INPUT U(K) 120NEXT Ê 130PRINT-3AAAHHME ÒÎÊÈ ÎÂÌÎÒÎÊ (A) ;* 140F0R K=2 TO n1 150PRINT-I-!Kr="!!lNPUT UK) 160NEXT Ê 170LET p2=0 180F0R K=2 TO N1 190LET p2=p2+U(K)»I(K) 200NEXT Ê 205PRINT 2lOPRINT"ÑÓÌÌÀÐÍÀß ÌÎÙÍÎÑÒÜ ÂÒÎÐÈ×ÍÛÕ ÎÁÌÎÒÎÊ (ÂÒ) p2=";f-2 212PRINT"3AnOMHMTE ÝÒÓ ÖÈÔÐÓ"!:PRINT 215PRINT 220REM ÎÏÐÅÄÅËßÅÌ ÈÑÏÛÒÀÒÅËÜÍÎÅ ÍÀÏÐßÍÅÍÈÅ 230F0R Ê=1 ÒÎ N1 240IF U(K)<=250 THEN 300 2501F Ì4=1 ÒÍÅË 280 260LET èå:ê)=1.5»U(K)+50o-4E4/u(Ê)-U(Ê)«è(Ê)/1.2åç 27OG0T0 380 2801åÒ U8 (Ê) =ã»è (Ê) +1000-7,5Å4/è (Ê) -è (Ê) «î (Ê) /5Å4 290G0T03B0 300IF Ì4=1 THEN 350 3iolet U8(K)=500 320IF IKK)(=100 THEN LET Ua(K)=250 330IF U(K)(=24 THEN LET U8(K>=125 340G0T0380 350LET U8(K)=1000 360IF U(K)<=100 THEN LET U8(K>=500 370IF U(K)(=24 THEN LET U8(K)=250 3B0LET U8(K)=INT(U8(K>> 383NEXT Ê 385ÐÐ1ÍÒ"ÏÐ0ÄÓÌÀÉÒÅ ÐÀÇÌÅÙÅÍÈÅ ÎÁÌÎÒÎÊ ÍÀ ÌÀÃÍÈÒÎÏÐÎÂÎÄÅ,ÈÈÅß Â ÂÈÄÓ ÒÎ." 386PRINT"4T0 ×ÅÌ ÌÅÍÜØÅ ÄÈÀÌÅÒÐ ÏÐÎÂÎÄÀ (À.ÇÍÀ×ÈÒ,ÌÅÍÜØÅ ÒÎÊ ÎÁÌÎÒÊÈ)," 387PRINT"TEM ÂÛØÅ ÅÃÎ ÑÒÎÈÌÎÑÒÜ - ÏÎÝÒÎÌÓ ÎÁÌÎÒÊÓ Ñ ÁÎËÜØÈÌ ÊÎËÈ×ÅÑÒÂÎÌ" ÇÂÂÐÊÒÍÒÂÈÒÊΠÈÇ ÒÎÍÊÎÃÎ ÏÐÎÂÎÄÀ ÑËÅÄÓÅÒ ÐÀÇÌÅ×ÀÒÜ ÁËÈ1Å Ê ÑÅÐÄÅ×ÍÈÊÓ" 389PRINT:PRINT"BBEflnTE ÍÎÌÅÐÀ ÎÁÌÎÒÎÊ Â ÏÎÐßÄÊÅ ÈÕ ÐÀÇÌÅÙÅÍÈß ( ÑÒÎËÁÈÊ)" 390F0R Ê=1 ÒÎ N1:INPUT N4(K):NEXT Ê 395PRINT-B ÇÀÂÈÑÈÌÎÑÒÈ ÎÒ ×ÀÑÒÎÒÛ ÑÅÒÈ ÂÛÁÅÐÈÒÅ ÌÀÐÊÓ ÑÒÀËÈ È ÒÎËÙÈÍÓ* 396PRINT"ËEHTÛ ÌÀÃÍÈÒÎÏÐÎÂÎÄÀ (ÑÌ ÑÈ,ÑÒÐ.65)" 400PRINT"BBEflnTE ÖÈÔÐÎÂÎÉ ÊÎÄ ÌÀÐÊÈ ÑÒÀËÈ"ØÎÒ Ì2 410PRINT"BBEflHTE ÒÎËÙÈÍÓ ÑÒÀËÜÍÎÉ ËÅÍÒÛ ( ÌÌ)",-.INPUT ÌÇ 420FRINT 430PRINT"B ÇÀÂÈÑÈÌÎÑÒÈ ÎÒ ÑÓÌÌÀÐÍÎÉ ÌÎÙÍÎÑÒÈ ÂÒÎÐÈ×ÍÛÕ ÎÁÌÎÒÎÊ È ×ÀÑÒÎÒÈ" À31ÐÐ1ÍÒ"ÑÅÒÈã110 ÒÀÁË.5.9 1Ñ1],ÑÒÐ.197) ÂÛÁÅÐÈÒÅ È ÂÂÅÄÈÒÅ ÎÐÈÅÍÒÈÐÎÂÎ×ÍÛÅ 432ÐÃàíÒ"ÇÍÀ×ÅÍÈß ÂÅËÈ×ÈÍ :" 442LET Ê2=0.88 450PRINT"MAX ÌÀÃÍÈÒÍÀß ÈÍÄÓÊÈÈß ÑÒË)INPUT BI 4&0ÐÐ1ÍÒ"ÏË0ÒÍ0ÑÒÜ ÒÎÊÀ Ñ À/ÌÌ"2 )",:INPUT Â2 47OPRINT"KO30. ÇéÏÎËÍÅÍÈß ÎÊÍÀ ÌÀÃÍÈÒÎÏÐÎÂÎÄÀ">:INPUT Kl 480ÐÐ1ÌÒ"Ê0ÝÔ. ÏÎËÅÇÍÎÃÎ ÄÅÉÑÒÂÈß "/;INPUT N3 500LET m)=P2/(U(l)»N3) 505LET Sl= (P2»100) Ó C2.22)(F)(K1»K2) S07LET S=S1/(BH(B2) 509PRINT 5l0PRINT"ÏË0ÙAÄÜ ÑÅ×ÅÍÈß ÑÒÀËÈ * ÏËÎÈÀÄÜ ÎÊÍÀ : S(CT)»S(OK)="!S 515ÐÐ1ÍÒ"ÑÓÌÌÀÐÍÀß ÌÎÙÍÎÑÒÜ ÂÒÎÐÈ×ÍÛÕ ÎÁÌÎÒÎÊ (ÂÒ) Ð2=";Ð2 520PRINT"nO ÒÀÁËÈÖÅ Ï2.8 (ÑÌÑÏ) ÂÛÁÅÐÈÒÅ ÌÀÃÍÈÒÎÏÐÎÂÎÄ,Ó ÊÎÒÎÐÎÃÎ" 530ÐÐ1ÌÒ"ÂÅËÈ×ÈÍÛ S(CT)»S(OK) È Ð2 ÍÀÈÁÎËÅÅ ÁËÈÇÊÈ Ê ÐÀÑÑ×ÈÒÀÍÍÛÌ È" 531ÐÐ1ÍÒ"ÂÂÅÄÈÒÅ ÅÃÎ ÏÀÐÀÌÅÒÐÛ :" S32PRINT ÇÇÇÐÐ1ÍÒ"ÏË0ÙÀÄÜ ÑÅ×ÅÍÈß ÑÒÀËÈ * ÏËÎÙÀÄÜ ÎÊÍÀ",:INPUT S2 540FRINT"ÏË0ÙAÄÜ ÑÅ×ÅÍÈß ÌÀÃÍÈÒÎÏÐÎÂÎÄÀ (ÑÌ-ã) ",: INPUT S7 ESOPRINTBHyTPEHHHH ÄÈÀÌÅÒÐ ÑÅÐÄÅ×ÍÈÊÀ (MM)-,:INPUT D8 S60PRINT"HAPy)l(HHH ÄÈÀÌÅÒÐ ÑÅÐÄÅ×ÍÈÊÀ (ÌÌ) ~,: INPUT 09 570ÐÐ1ÍÒ"Ò0ËÙÈÍÀ ÑÅÐÄÅ×ÍÈÊÀ (ÌÌ) ",:INPUT Á 580ÐÐ1ÍÒ-ÑÐÅÄÍßß ÄËÈÍÀ ÌÀÃÍÈÒÍÎÉ ÑÈËÎÂÎÉ ËÈÍÈÈ (ÑÌ)";:INPUT L 590PRINT"MACCA ÑÅÐÄÅ×ÍÈÊÀ (ÊÃ) INPUT G 591IF Ì3=0.15 THENiAO S92LET G=G»K2/0.9 640IF Ð5=1 THEN 830 642IF Å3=1 THEN830 AA3IF ES-l THEN 830 6Ø? £9=1 THEN830 449PRINT 650PRINT"nO ÒÀÁË.S.10 ÑÏ ,ÑÒÐ. 199) ÎÏÐÅÄÅËÈÒÅ ÏÀÄÅÍÈß ÍÀÏÐßÆÅÍÈß" 651PRINT"B ÎÁÌÎÒÊÀÕ ÒÐÀÍÑÔÎÐÌÀÒÎÐÀ (Ó)" iiOIFNl>4 THEN 7i0 i70IF N4(1) Ol THEN7iO &80ÐÐ1ÌÒ"ÏÅÐÂÈ×ÍÀß ÎÁÌÎÒÊÀ",,:INPUT VI 690ÐÐ1ÍÒ"ÁÒ0ÐÈ×ÍÀß ÎÁÌÎÒÊÀ",,:INPUT V2 700LET V2(2)"=V2»0.8:LET V2(3)=V2:LET V2 (4) =02»1.2 710F0R K=2 TO N1 713 LET I=N4(K) 720LET yl(I)=V2(K) 730NEXT Ê 740LET V1(1)=V1 7S0G0TO830 7iOFRINT"Ó×ÈTHBAß ÄËß ÌÍÎÃÎÎÁÌÎÒÎ×ÍÎÃÎ ÒÐÀÍÑÔÎÐÌÀÒÎÐÀ ÐÅÊÎÌÅÍÄÀÖÈÈ, 7&1ÐÐ1ÍÒ"ÄÀÍÍÛÅ ÍÀ ÑÒÐË85 ÑÏ" 770PRINT "IsFOR 1=1 ÒÎ 55 771 PRINT"-"! sNEXT- I iPRINT 780PRINT" \ ÎÁÌÎÒÊÈ, ÏÎÐßÄÊÅ ÈÕ","\ ÏÀÄÅÍÈÅ","\" 781PRINT" \ ÐÀÇÌÅÙÅÍÈß Ã\ ÍÀÏÐß1ÅÍÈß (/,)"Ã\" 790PRTNT" "MFOR 1=1 ÒÎ 55 791PRINT"-";!NEXT I:PRINT 800FOR Ê=1 ÒÎ N1 eiOPRINT" ",N4(K)i"\",:INPUT V 812LET I=N4(K) 8ULET V1(I)=V 820NEXT Ê 822PRINT 830REH ÍÀÕÎÄÈÌ ×ÈÑËÎ ÂÈÒÊΠÊÀÕÄÎÉ ÎÁÌÎÒÊÈ 840LET W=lE4y(4.44»F«BHfS7»K2) 842PRINT 850LET W(l)=U(l)4(l-Vl(l)»0.01>)(U eS2IF U(l)(>INT(U(l)) THEN LET U(I)=INT(U(1))tl 8S3LET Ul(l)=U(l) E55PRINT"0BM0TKA 1 1×ÈÑËÎ ÂÈÒÊÎÂ"itffl-) 8A0F0R K=2 ÒÎ N1 870LET U(K)=U(K)»Cl+Vl(K)»0.01HtU 872IF WIK)<)INT(U(K)) THEN LET U(K)=INT(Û(K))+1 873LET UL(K)=U(K) 875PRINT-0EM0TKA-;K;"4HCM ÂÈÒÊÎÂ",U(K) 880NEXT Ê 882IF E5=l THEN 930 900REM ÎÏÐÅÄÅËÅÍÈÅ ÒÎÊÀ ÕÎËÎÑÒÎÃÎ ÕÎÄÀ 904PRINT 905PRINT"BEflH4nHA ÌÀÃÍÈÒÍÎÉ ÈÍÄÓÊÖÈÈ (ÒË) ";Â1 910ÐÐ1ÊÃ"ÏÎ ÐÈÑ.5.13 ([l]iCTP.197) ÎÏÐÅÄÅËÈÒÅ ÓÄÅËÜÍÛÅ ÏÎÒÅÐÈ " 911PRINT"B ÑÅÐÄÅ×ÍÈÊÅ (ÂÒ/ÊÃ)",:INPUT F1 920FRINT"nO ÐÈÑ.5.12 (ÑÏ»ÑÒÐ.19À) ÎÏÐÅÄÅËÈÒÅ ÍÀÏÐßÆÅÍÍÎÑÒÜ ÏÎËß" 921PRINT"B ÑÅÐÄÅ×ÍÈÊÅ ÑÀ/ÑÌ)INPUT Q1 930LET ÐÇ=Ð1»0 931LET I7=P3/U(1) 940LET I8=ai«L/U(l) 950LET 19=3àê(17«17+18»13> 960LET 10=19*100/1(1) 962PRINT 970IF F=400 THEN 1020 980IF 10(20 THENlOtO 990IF 10)40 THEN 1070 þîîîîòîãîîî 1020IF 10)20 THEN 1070 1030 GOT02000 1040ÐÐ1Í7"ÂÅËÈ×ÈÍÀ ÒÎÊÀ ÕÎËÎÑÒÎÃÎ ÕÎÄÀ ";IO;"(Z) ÌÅÍÜØÅ ÄÎÏÓÑÒÈÌÎÃÎ," 1041ÐÊØÒ"Ï0ÝÒÎÌÓ ÍÅÎÁÕÎÄÈÌÎ ÓÂÅËÈ×ÈÒÜ ÂÅËÈ×ÈÍÓ ÌÀÃÍÈÒÍÎÉ ÈÍÄÓÊÖÈÈ" 1050PRINT - 1051LET Ð5=1 10S4PRINT"CTAP0E ÇÍÀ×ÅÍÈÅ ÌÀÃÍÈÒÍÎÉ ÈÍÄÓÊÖÈÈ (ÒË)",Â1 10S5PRINT"HOBOE ÇÍÀ×ÅÍÈÅ ÌÀÃÍÈÒÍÎÉ ÈÍÄÓÊÖÈÈ"INPUT Â1 10A0GQT0507 1070PRINT"BEfln4HHA ÒÎÊÀ ÕÎËÎÑÒÎÃÎ ÕÎÄÀ";10;"CZ) ÁÎËÜØÅ ÄÎÏÓÑÒÈÌÎÃÎ," 1071FRINT"nD3T0My ÍÅÎÁÕÎÄÈÌÎ ÓÌÅÍÜØÈÒÜ ÂÅËÈ×ÈÍÓ ÌÀÃÍÈÒÍÎÉ ÈÍÄÓÊÖÈÈ" 1080FRINT 1081LET Ð5=1 1084PRINT"CTAF0E ÇÍÀ×ÅÍÈÅ ÌÀÃÍÈÒÍÎÉ ÈÍÄÓÊÖÈÈ (ÒË)",Ð.1 1085PRINT"HDB0E ÇÍÀ×ÅÍÈÅ ÌÀÃÍÈÒÍÎÉ ÈÍÄÓÊÖÈÉ",:INPUT Á1 1090G0T0507 2000ÐÐ1ÍÒ"ÂÅËÈ×ÈÍÀ ÒÎÊÀ ÕÎËÎÑÒÎÃÎ ÕÎÄÀ (;()", 10 2001PRINT 2002IF Å3=1 THEN2270 2003IF Å5=1 THEN 2270 2010REM ÎÏÐÅÄÅËÅÍÈÅ ÏËÎÒÍÎÑÒÈ ÒÎÊÀ  ÎÁÌÎÒÊÀÕ 2015LET Y=N4(N1) 2020LET S(Y)=I(Y)/(B2«1.25) 2030FQR Ê=1 ÒÎ N1-1 2040LET Y=N4(K) 2041LET S(Y)=I(Y)/(B2»0.8) 2045NEXr Ê 2050ÐÐ1ÍÒ"ÏÎËÜÇÇÓßÑÜ ÒÀÅË.Ï1.1 ([Ï,ÑÒÐ.359) ÏÎ ÐÀÑÑ×ÈÒÀÍÍÎÌÓ ÄÉÀÌÅÃÐÓ 2051ÐÊ1ÌÒ"ÂÌÁÅÐÈÒÅ ÑÒÀÍÄÀÐÒÍÛÉ ËÈÀÕÅÒÐ ÏÐÎÂÎÄÀ" 2060F0R Ê=1 ÒÎ N1 2062PRINT 2065LET Y=N4(K) 2070let d1=1.13»sqr(s(y)) 2080print"Dbmdtka"y;" Äèàìåòð ïðîâîäà (mm)";di 2085ðð1íò"ááåäèòå ñòàíäàðòíûé äèàìåòð ïðîâîäà (áåç èçîëÿöèè)";:input â(y) 2110print-ááeäéte íàèáîëüøèé íàðóæíûé äèàìåòð ïðîâîäà";-.input 02 (y) ã120ððøò"âáåäèòå ñå÷åíèå ïðîâîäà",: input s3(y) 2130ðð1íò"ââåäéòå ìàññó îäíîãî ìåòðà ïðîâîäà (r)";!lnput e(y) 2140let b4(y)=i(y)/s3(y) 2150NEXT Ê 2152 IF Å2=1 THEN 2220 21531à Å9=1 THEN 2220 (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) |
|
|
