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

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

2154IF Å8=1 THEN2220

21A0REM ÊÎÍÑÒÐÓÊÒÈÂÍêò ÐÀÑ×ÅÒ ÑÑÍ.ÑÏ,ÑÒÐË09 2U2PRINT

2180PRINT"BBESMTE ÒÎËÙÈÍÓ ÈÇÎËßÖÈÈ ÑÅÐÄÅ×ÍÈÊÀ (èí)"j(THPUT hi

Z181LET H3=D9-D8+2»B

2183LET Q=D9yD8:LET Í0=Í1+Í1»Ï

Z185LET R1=D9+2«H1:LET Il=D8-2»Hl»a

Z18ALET R2=Rl:LET 12=11

2189PRINT

2190PRINT"B ÇÀÂÈÑÈÌÎÑÒÈ ÎÒ ÂÅËÈ×ÈÍÛ ÈÑÏÛÒÀÒÅËÜÍÎÃÎ ÍÀÏÐßÆÅÍÈß .BHBEPKTEf 2191ÐÐ1ÌÒ"ÂÅËÈ×ÈÍÓ ÌÅÕÄÓÎÁÌÎÒÎ×ÍÎÉ ÈÇÎËßÖÈÈ (ÌÌ) - ÑÌ.ÑÏ ãÑÒÐË02" Z194PRINT

2195F0R Ê=1 ÒÎ N1-1 Z197LET Y=N4(K)

2200PRINT-0BM0TKA"!Y!-ÈÑÏÛÒÀÒÅËÜÍÎÅ ÍÀÏÐßÊÅÍÈÅ (B)";U8(Y) 2205ÐÐ1ÍÒ-ÌÅ)»ÄÓ0ÜÌ0Ò0×ÍÀß ÈÇÎËßÖÈß (ÌÌ) -,:INPUT H5(Y)

2206PRINT 2210NEXT Ê

Z215PRINT-BBEÄÈTE ÒÎËÈÈÍÓ ÍÀÐÓ1Í0É ÈÇÎËßÖÈÉ (ÌÌ)".;INPUT Ì 2217PRINT

Z220LET Y=N4(Nl):LET H5(Y)=0 2230IF D2(Y)<=1.56 THEN LET KB=1.25 2240IF D2(Y)<=0.8 THEN LET K8=1.2 2250IF D2(Y)<=0.3 THEN LET Ê8=1Ë5 22iS0IF I)2(Y)(0ëã THEN LET K8=l.i 2270LET T9=0:LET J=0 2273IF J=0 THEN 2280 Z274LET R1=R2:LET 11=12 2280F0R K=l 1*0 N1 2290LET Y=N4(K)

2300IF D2(Y)<=1.56 THEN LET Ê9=1Ë

2310IF D2(YH=.8 THEN LET Ê9=1Ë5

2320IF D2(Y)(=0.3 THEN LET K9=1.2

2325IF Âã(Ò)(0Ë2 THEN LET K9=1.25

Z330LET L=U(Y)»D2(Y)»K9

2340LET X=ÇË4l59»(Rl-B2(Y))

2350LET 8»12.56636»L«D2(Y)

2360LET Z=6.28318»D2(Y)

Z370LET Yl=ÇË4159•(Il+D2(Y))

2380LET N9=(-X+SaR(X»X+S))/Z

2390LET N8=(Yl-S0R(Yl»Yl-S))yZ

2392IF N9()INT(N9) THEN LET N9"INT(N9)+1

2394IF N8C)INT(N8) THEN LET N8=INT(N8)+1

2400LET L9=N9»D2(Y)«K9

2410LET L8=N8»D2(Y)»K9

2420LET R1=R1+2»L9

2430LET U-I1-2»L8

2435REM ÎÏÐ.CP.ÄËÈÍÓ ÂÈÒÊÀ ÎÁÌÎÒÊÈ

2440IF KOI THEN 2470

24S0LET L2(Y> =H3+1.57295» t2»M0+L9+L8)

2460LET M=L9+L84H5(Y)+H3(Y>»R1/I1

2465G0T02490

2470let L2 <Y)=H3+1.57295»(2»(MO+H)+L9+L8)

2480LET M-M+L9+L8+H5(Y> +H5(Y)«R1/11

24a5REM ÊÎÍÅÖ CP.ÄËÈÍÛ ÂÈÒÊÀ

2490LET Rl-:R1+2«H5(Y>

2S00LET I1=I1-2»H5(Y>»R1/I1

2505REM ÊÎÐÐÅÊÒÈÐÎÂÊÀ ×ÈÑËÀ ÂÈÒÊÎÂ

2510LET R(Y>«2.35E-5»L2(Y)«W(Y)/S3(Y)

2315IF T9=l THEN 2590

2S20LET U3(Y)=I(Y)«R(Y>»100/UCY)

2530IF YOl THEN 2560

2S40LET U(1)=U(1)»(1-U3(1>K0.01)SIU

2550GOT02570

2560LETU(Y)«U(Y)»(1+U3(Y)»0.01)«U

2570IF W(Y)(>INT(W(Y)) THEN LET W(yj=INT(W(Y)J«



2580ÐÊ1ÌÒ"ÎÁÌÎÒÊÀ";Ó!ÑÊÎÐÐÅØÐ0ÂÀÍÍÎÅ ×ÈÑËÎ ØÒÊÎÂ-;«(Ó) 2590NEXT Ê

2600IF J=l THEN 2630 2610LET T9=1:LET J=l 2A20G0T0 2273 2630LET Rl=Rl+2»Hi 2640LET I1=I1-2«H4»R1/I1 2650LET 11=11»Ê8-»ÑÊ8-1) 2655LET I1=INTCI1*100)/100 2657PRINT

2iS60PRINT"SHAMETP ÂÍÓÒÐÅÍÍÅÃÎ ÎÒÂÅÐÑÒÈß ÏÎÑËÅ ÓÊËÀÄÊÈ ÂÑÅÉ ÊÀÒÓØÊÈ (ÌÌ) "ß! 2670IF 11)=10 THEN 28U 2680PRINT"WEHbBE ÄÎÏÓÑÒÈÌÎÃÎ ÑÞ ÍÌ)"

2iS90PRINTBAHH ÄÅÉÑÒÂÈß : ÂÛÁÅÐÈÒÅ ÎÄÈÍ ÈÇ ÂÀÐÈÀÍÒÎÂ (ÄÀ-!)" 2700PRINT"EÓÄETE ÏÅÐÅÕÎÄÈÒÜ Ê ÑËÅÄÓÞÙÅÌÓ ÝÒÀÏÓ PAC4ETA"!!lNPUT El 2705IF ElOO THEN 28È

2710ÐÐ1ÍÒ"ÁÓÄÅÒÅ ÓÂÅËÈ×ÈÂÀÒÜ ÏËÎÒÍÎÑÒÜ ÒÎÊÀ Á QBMOTKAX"!!INPUT Å2 2715IF Å2=0 THEN 2735

2720PRINT"ÑÒÀÐÎÅ ÇÍÀ×ÅÍÈÅ ÏËÎÒÍÎÑÒÈ ÒÎÊÀ-.ÂÇ

2725PRINT"H0B0E ÇÍÀ×ÅÍÈÅ ÏËÎÒÍÎÑÒÈ ÒÎÊÀ-ÒÀÁË.5.9 (ÑÏ,ÑÒÐ.177) "J 2726INPUT Â2 2730G0TO 2010

2735ÐÐ1ÛÒ"ÁÓÄÅÒÅ ÓÂÅËÈ×ÈÂÀÒÜ ÌÀÃÍÈÒÍÓÞ ÈÍÄÓÊÖÈÞ"!:INPUT ÅÇ 2740IF Å3=0 ÒÍÅÍ 276S

27i5PRINTCTftP0E ÇÍÀ×ÅÍÈÅ ÌÀÃÍÈÒÍÎÉ ÈÍÄÓÊÖÈÈ" !Â1 2750PRINT"H0B0E ÇÍÀ×ÅÍÈÅ ÌÀÃÍÈÒÍÎÉ ÈÍÄÓÊÖÈÈ-ÒÀÁË.5.9 (ÑÏ.ÑÒÐ.197) 2755INPUT Á1 2760G0T0 507

2765PRINT"ÁÓÄETE; ÏÅÐÅÕÎÄÈÒÜ Ê ÄÐÓÃÎÌÓ ÒÈÏÎÐÀÇÌÅÐÓ ÑÅÐÄÅ×ÍÈÊÀ"!!INPUT Å5 2770IF Å5=0 THEN 2780 2775G0T0 505

2780PRlNT"ByaETE ÓÌÅÍÜØÀÒÜ ÒÎËÙÈÍÓ ÈÇÎËßÖÈÈ"ß INPUT Å4 2785IF Å4=0 THEN 2795 2790G0T0 2180

2795ÐÐ1ÍÒ"ÁÓÄÅÒÅ ÓÌÅÍÜØÀÒÜ ÒÀÁËÈ×ÍÛÉ ÄÈÀÌÅÒÐ ÏÐÎÂÎÄÀ";:INPUT E2

2800IF Å2=0 THEN 266Q

2805G0TO2050

28UPRINT

2815LET Rl=Rl»Ka-D9S((K8-15tLET H=B+D8-U 2820REH ÎÏÐ. ÏÎÒÅÐÈ Â «ÅßÉ

2830PRINT-nQ ÒÀÁË.5.7 (tlT.CTP.18A),Á ÇÀÂÈÑÈÌÎÑÒÈ ÎÒ ÏÐÅÄÅËÜÍÎÉ PAEOHES" 2831ÐÐ1ÌÒ"ÒÅÌÏÅÐÀÒÓÐÛ ÏÐÎÂÎÄΠÎÁÌÎÒÊÈ .ÂÛÁÅÐÈÒÅ ÊÎÝÔÔÈÖÈÅÍÒ Ì" 2840PRINT"ÏPEÄEËÜHAß ÐÀÁÎ×Àß ÒÅÌÏÅÐÀÒÓÐÀ ÏÐÎÂÎÄΠÎÁÌÎÒÊÈ"!:INPUT ÒÇ 2845PRINT-K03MMHMEHT M"iJ!lNPUT Í 2850LET Ð=0 2860F0R Ê=1 ÒÎ N1

2870LET P4=U2 (Y) «W tY) StS «)»1Å-â:ͻ (VI SSi;() 2880LET P=P+P4 2890NEXT Ê

2895LET P=INT(P»100)/100 2899PRINT

2900PRINT"CyMHAPHHE ÏÎÒÅÐÈ Â ÌÅÄÈ (ÂÒ)",Ð 2905PRINT

2910RE« ÒÅÏËÎÂÎÉ ÐÀÑ×ÅÒ

2920PR:HT"BBEaMTE ÎÄÍÎ ÈÇ ÇÍÀ×ÅÍÈÉ ÒÅÌÏÅÐÀÒÓÐ11 OKP)X«EK * 2921FRmTCPE«U - 50 ÈËÈ 70 ÃÐÀÄÓÑÎÂ"! 2925INPUT Ò 2927PRINT

2930IF Ò=50 THEN 2945 2935IF Ò=70 THEN 2943 2940PRINT"nOBTOPnTE ÁÂ0Ä".!0ÎÒ0 2923 2945LET Q1=50:LET J1=1:LET C=l 2946IF P2)15Q THEN LET 0=1.25 2950LET H2=(H+R1-I1)«0.001 2955LET A=5.iS/((Hl)0.25) 2960LET S).=3.).4159itRHt(H+Rl/2)«0.0001



2961LET S1=S1«0.01 29A51-et Tl=t+273+al 2970IF t=70 THEN 2970

29801.ET L3=U)lA+38)«O.0OmTl-(0.91»a+5.a) 298560T0 3000

2990LET L3=(t.6i»a+37.8)»0.0Ol«Tl-(1.23«At4.76)

3000LET Zl=L3ilSl

3010LET a=(P3+p)/CZl-0.004«p«C)

3015ðã(1íò-è;åðéöèÿ";ë;"ÏÎÂÅÐÕÍÎÑÒÍÎÅ ïðåâûøåíèå òåìïåðàòóðû(rpAa.)"jQ

30uif .Jl>a then 3030

3020 lFABSCa-OlXl.5 THEN 3030

3025LET B1=B:LET Jl=Jl+l!G0T029i55

3030let a2=a»c

3032LET a2=INT (02X10)/10

3035PRINT"CPESHE0BEMH0E ÏÐÅÂÛØÅÍÈÅ ÒÅÌÏÅÐÀÒÓÐÛ (ÃÐÀÄÓÑÛ)"502 3050PRINT"yCTPAHBAET ëè âàñ ÝÒÎÒ ÐÅÇÓËÜÒÀÒ (äà-1)INPUT Å6 3055IF åàîî THEN 3155

3060PRINT"t0ãäa ÂÛÁÅÐÈÒÅ ÎÄÈÍ ÈÇ ÂÀÐÈÀÍÒÎÂ (äà-1)" 3065ÐÐ1ÍÒ"åóäåòå ÑÍÈÕÀÒÜ ñðîê ñëó1åû ÒÐÀÍÑÔÎÐÌÀÒÎÐÀ";:INPUT å7 3070IF å7î0 THEN 3155

3075ÐÊ1ÌÒÁÓÄÅÒÅ ÏÐÈÌÅÍßÒÜ ÒÅÏËÎÑÒÎÉÊÈÅ ÏÐÎÂÎÄÀ";:input Å8

3080IF ÅÂ=0 THEN 309Î

3085GOT02050

3090ÐÍÌÒ"ÁÓÄÅÒÅ ÈÇÌÅÍßÒÜ ÒÈÏÎÐÀÇÌÅÐ ÑÅÐÄÅ×ÍÈÊÀ,ÉÍÄÓÊ×ÈÞãÏËÎÒÍÎÑÒÜ ÒÎÊÀ»

3091INPUT å9

3095IF å9=0 THEN 3033

3100PRINT"CTAPWE ÇÍÀ×ÅÍÈß S"

3102ÐÐ1ÍÒ"ÈÍÄÓÊÖÈß • ",Â1

3103PRINT"T0K ÕÎËÎÑÒÎÃÎ õîäà (Z)";IO

3110ÐÐ1ÍÒ"ÏË0ÒÍ0ÑÒÜ ÒÎÊÀ ",Â2

3120PRINT"H0BHE ÇÍÀ×ÅÍÈß - ÒÀÁË.5.9 (Ñ1],ÑÒÐ.197) 3125ÐÐ1ÌÒ"ÌÀÃÍÉÒÍÀß ÈÍÄÓÊÖÈß",!INPUT Â1 3130ÐÐ1ÍÒ"ÏË0ÒÍ0ÑÒÜ ÒÎÊÀ ";:INPUT Å2 3135G0T0 505

3155LET N4=P2«100/(P2+P3+p) 3156LET 10=1ÍÒ(10*10)/10 3157LET N4=INT(N,»10)/10 31A0LET I(l)=INT(I(l))HOOO>yiOOO 3170F0R Ê=1 TO N1 3180LET R(K)=INT(R(K)«100)/100 3190LET B4(Ê)=INT(B4(Ê)«1000)/1000 3200LET V1(K)=INT(V1(K)»100)/100 3210LET èç (K)=INT(U3(K)«100)/100 3250NEXT Ê 3999PRINT

tOOOPRINTEXSETE ÂÛÂÎÄÈÒÜ ðåçóëüòàòû ÐÀÑ×ÅÒÀ (SA-i)"!.-INPUT 24

400SIFZ6=0THENEND

4006PRINT!FRINT:PRINT

4007PRINT:PRINT:PRINT

4010ÐÐ1ÌÒ"ÒÐÀÍÑÔÎÐÌÀÒÎÐ ÒÎÐÎÈÄÀËÜÍÛÉ. ×ÀÑÒÎÒÀ ÑÅÒÈ (ÃÖ)";ð 4013PRINT

4020ÐÐ1ÌÒÑÓÈÌÀÐÍÀß ìîùíîñòü ÂÒÎÐÈ×ÍÛÕ ÎÁÌÎÒÎÊ (ÂÒ)";Ð2 4030ÐÐ1ÌÒ"Ê.11.ä. ÏÐÈÍßÒÛÉ (ó) ";N3«100

4031ÐÐÌÒ"Ê.Ï.Ä. ÐÀÑÑ×ÈÒÀÍÍÛÉ (Z) "!n4

40À0ÐÐ1ÌÒ"Ò0Ê ÕÎËÎÑÒÎÃÎ õîäà (Z) ";10

40A5LET 0=INT(0«10)/10

4047ÐÐ1ÍÒ"ÏÐÉÈßÒÀß ÒÅÌÏÅÐÀÒÓÐÀ ÎÊÐÓÕÀÞØÅÉ ÑÐÅÄÛ(ãðàä)";ò Ë050ÐÐ1ÍÒ"ÑÐÅÄÍÅ0ÁÅÌÍ0Å ÏÐÅÂÛØÅÍÈÅ ÒÅÌÏÅÐÀÒÓÐÛ(ãðàä)";02 4051PRINT"n0BEPXH0CTH0E ÏÐÅÂÛØÅÍÈÅ ÒÅÌÏÅÐÀÒÓÐÛ (ãðàä)";à 4055PRINT /lOAOFOR 1=1 Ò071 40AIPRINT"-";!NEXT bPRINT

4070PRINT"\ 0ÁÌ0ÒÊÀ""\ ÍÀÏÐßÍÅÍÉÅ","\ Ò0Ê","\ ÑÎÏÐ.",

407irRINT"\ ÏËÎÒÍÎÑÒÜ \"

40B0PRINT"\ n","\ â"." ft">"\ Ò=+105 C"i

•40S1PRINT"\T0KA A/lMMjw



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