- .. " 2" ()

- .. " 1" ()

- .. " 12" ()

- .. " 11" ()

- .. " 10" ()
booksonchemistry.com -> -> -> .. -> " " -> 54

- ..

.., .., .. .: , 1991. 160 c.
ISBN 5-10-002281-7
( ): labpraktpotehperjirov1991.djvu
<< 1 .. 48 49 50 51 52 53 < 54 > 55 56 57 58 59 60 .. 63 >>

REM ****...**.**.****.*.* ** FOR I=I 3 \ READ Xl(I) \ NEXT FOR 1=1 TO 2
FOR 1=1 TO 6 \ READ X3(IJ) \ NEXT Jm NEXT Im FOR 1=1 TO
132
!650 FOR J=I TO 10 \ READ XS(LT) \ NEXT Jm
660 NEXT Im
670 REM *aaaaaaaaaaa *****
!900 REM aaaaaama**** .໫*໻.,..
!910 PRINT " ()"; \ INPUTNm
920 IF N=I THEN GOSUB 970 \ GO 910
!930 IF N=2 THEN GOSUB 3000 \ GO 910
940 IF N=3 THEN GOSUB 4000 \ GO 910
!950 PRINT " " \
\ GO 910
!960 STOPm
!970 REM AAAAAAAAAAAAAA.*
**********
980 REM **.*.***..* *.໻.컻
!990 PRINT " " M
!993 =3
!1000 TOR I=I
!1003 XO(Ll)=I \ 0(1.2)=1(1) * Xl(I) \ XO(U)=XI(Dm
!1007 PRINT Xl(I). "Y("I")="; \ INPUT YO(I) \ NEXT
1020 GOSUB 5000
!1800 FOR 1=1
!1805 BO(I-I)=Om
!1810 FOR J=I
!1820 BO(Jr-I)=BO(I-I) + QO(LI)* ZO(J)M
!1830 NEXT Jm
!1850 NEXT
!I860 PRINT "= ="B0(0)."B11= =0(1)."1= -*0(2)
!1870 TOR I=I
!1875 R=Om
!1880 R=BO(O) + BO(I) * Xl(I) * Xl(I) + 0(2) * 1()
!1890 PRINT "" R. "" YO(I)M
!1900 NEXT Im
!1902 Y=O \ FOR I=I 3 \ Y=Y+YO(I)/3 \ NEXT Im
!1904 S=O \ FOR 1=1 3 \ S=S+ (YO(I)-Y) * (YO(D-Y) \ NEXT 1
!1906 S=SQR(S/2)m
----
M M M M M M M M M
MINIM .BAS PAGE 2 25-JAN-90m
_^____________^- M
1910 FOR I=I TO 3 \ SO(I-I)=ABS(BO(I-I))/(QO(LI)* S) \ NEXT Im
!2020 PRINT " "
!2030 PRINT " [] = = = "S0(0)m
!2040 PRINT " [BU] = = = "SO(I)M
!2050 PRINT " [Bi] = "S0(2)m
133
100 PETURNm
!2130 STOPm
3000 REM*"""""*"""
*********
?020 PRINT " "!
O030 N=6m
!3040 FOR I=I 6
!3050 XO(Ll)=I \ X0(L2)=X3(1J)*X3(1J) \ X0(I.3)=X3(2 J) * 3(2 J)M
!3055 X0(L4)=X3(1 J) \ X0(L5)=X3(2J) \ X0(L6)=X3(1 J) * 3(2.1)
!3060 PRINT X3(1J).X3(2J);"Y(I")="; \ INPUT YO(I) \ NEXT
!3070 GOSUB 5000
!3080 FOR I=I 6
!3090 BO(I-I)=Om
!3100 FOR I=I 6
!3110 BO(I-I)=BO(I-I) + QO(IJ) * ZO(JQm
120 NEXT Jm
!3130 NEXT
!3140 PRINT "= ="B0(0)."B11= ="0(1)."22= ="0(2)
!3143 PRINT "Bl= ="0(3)."2= ="0(4)."12= ="0(5)
!3150 FOR I=I 6
!3160 R=Om
!3170 R=BO(O) + BO(I) * 3(1.1) * X3(l J) + 0(2) * X3(2J) * X3(2J)m
!3173 R=R + 0(3) * 3(1 J) + 0(4) * X3(2J) + 0(5) * 3(1 J) * X3(2J)m
!3180 PRINT "PAC4ET"R. " "Y0(I)M
!3190 NEXT
!3200 Y=O \ FOR I=I 6 \ Y=Y+YO(I)/3 \ NEXT
!3210 S=O \ FOR I=I 6 \ S=S+(Y0(I)-Y) * (Y0(I)-Y)\NEXT
!3220 S=SQR(S/5)m
!3230 FOR I=I 6 \ SO(I-I)=ABS(BO(I1))/(Q0(IJ) * S) \ NEXT
!3240 PRINT "
!3250 PRINT " [] = = ="S0(0)m
!3260 PRINT " [] = = ="S0(1)m
!3270 PRINT " [22] = = ="S0(2)m
!3272 PRINT " [Bi] = = =" S0(3)m
!3274 PRINT " [2] = = ="S0(4)m
!3276 PRINT " [12] = = ="S0(5)m
3290 PETURNm
!3300 STOPm
!4000 REM *"""""******
********
!4010 PRINTMATPmiA "!
!4020 N=IOm
!4030 FOR I=I
!4040 XO(Ll)=I \ X0(L2)=X5(1 J) * XS(IJ) \ X0(I.3)=X5(2 J) 5(2 J)M
!4045 X0(L4)=X5(3J)*X5(3J)m
!4050 X0(L5)=X5(1J) \ X0(I.6)=X5(2J) \ X0(L7)=X5(3J)m
!4055 X0(L8)=X5(1 J) * X5(2J) \ X0(L9)=X5(1 J) * X5(3J)m
!4057 X0(L10)=X5(2J) * X5(3J)m
!4060 PRINT X5(lJ).X5(2J).X5(3J); "Y("I")=; \ INPUT YO(I) \ NEXT Im
!4070 GOSUB 5000
!4080 FOR I=I TO
!4090 BO(I-I)=Om
!4100 TOR J=I TO
!4110 BO(I-I)=BO(I-I)+ QO(JJ)* Z0(J)m
134
!4120 NEXT !4130 NEXT !4140 PRINT "BO= ="0(0)

m M M M M M m
MINIM .BAS PAGE 3 25-JAN-90m
_ "
!4150 PRINT "BIl= ="B0(1)."B22= =*B0(2)."B33= ="B0(3)m
!4155 PRINT "Bl= ="B0(4)."B2= ="B0(5)."B3= ="0(6)
!4157 PRINT "B12= ="B0(7)."B13= ="B0(8)."B23= ="0(9)
!4160 FOR I=I TO 10m
!4170 R=Om
!4180 R=BO(O) + BO(I) * X5(l J) * XS(LI) + B0(2) * X5(2J) * 5(2.)
4190 R=R + B0(3) * X5(3.I) * X5(3J) + B0(4) * XS(U) + B0(5) * XS(IS) + B0(6) * X5(3J)m
!4195 R=R + B0(7) * XS(IJ) * XS(2.1) + B0(8) * XS(IS) * X5(3J) + B0(9) * X5(2J) * X5(3J)m
!4200 PRINT "PAC4ET"R."3KCnEPHMEHT"Y0(I)m
4210 NEXT Im
!4220 Y=O \ FOR I=I TO 10 \ Y=Y + Y0(I)/3 \ NEXT Im
!4230 S=O \ FOR I=I TO 10 \ S=S + (YO(I)-Y) * (YO(IbY) \ NEXT Im
!4240 S=SQR(S/9)m
!4250 FOR I=I TO 10 \ S0(I-1)=ABS(B0(I-1))/(Q0(I.1) * S) \ NEXT Im
!4260 PRINT "
!4270 PRINT " [] = = ="S0(0)m
!4280 PRINT " [] = = ="S0(1)m
<< 1 .. 48 49 50 51 52 53 < 54 > 55 56 57 58 59 60 .. 63 >>

2011 BooksOnChemistry. .