- .. " 2" ()

- .. " 1" ()

- .. " 12" ()

- .. " 11" ()

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

- ..

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

4290 PRINT " [22] = = ="S0(2)m
4300 PRINT " [] = = ="S0(3)m
!4310 PRINT " [Bi] = <= ="S0(4)m
!4320 PRINT " [2] = = ="S0(5)m
!4330 PRINT " [] = = ="S0(6)m
!4340 PRINT " [12] = = ="S0(7)m
!4350 PRINT " [²] = = ="S0(8)m
!4360 PRINT " [23] = = ="S0(9)m
!4370 PETURNm
!4380 STOPm
!5000 REM ************ (XT * X)-11(XT *)
!5003 O=Nm
!5005 PRINT "N= =";Nm
!5010 PRINT "0==";0
!5015 FOR I=I Nm
!5020 FOR I=I 0
!5025 PRINT 0(.).
!5030 NEXT
!5035 PRINTm
5040 NEXT
5045 FOR I=I TO N \ FOR J-I TO 0 \ PRINT XO(IJ). \ NEXT J \ PRINT \ NEXT
135
!505O FOR I=I TO Nm
!5055 FOR 1=1 TO Om
!5060 T0(J.I)=X0(LJ)m
!5065 NEXT Jm
5070 NEXT Im
5073 FOR 1=1 TO 0 \ FOR J=I TO N \ PRINT TO(U). \ NEXT J \ PRINT \ NEXT Im
!5074 FOR I=I TO 0 \ ZO(I)=Om
!5075 FOR J=I TO N \ ZO(I) = ZO(I) + TO(IJ) * YO(J) \ NEXT Jm
!507? NEXT Im
!5080 FOR K=I TO Om
!5085 FOR J=I TO Om
!5090 S=Om
!5095 FOR I=I TO Nm
!5100 S=S+ TO(K.!)* XO(LJ)m
!5105 NEXT Im
5110 AO(KJ)=Sm
!5115 A(ICJ)=Sm
!5120 NEXT Jm
!5125 NEXT Km
!5130 FOR I=I TO N \ FOR J=I TO N \ PRINT AO(LJ). \ NEXT J \ PRINT \ NEXT Im
!5135 GO TO 5140m
5140 PRINT " "

m m m m m m m m
MINIM .BAS PAGE 4 25-JAN-90M
!5150 FOR I=I N \ FOR J=I Nm
!5155 P(U)=A(IJ) \ NEXT J \ NEXT
5160 TOR J2=l TO N \ FOR I=I TO Nm
!5165 B(I)=O \ NEXT Im
!5170 B(J2)=1m
!5175 FOR J3=l TO N \ FOR J4=l TO Nm
!5180 A(J3J4)=P(J3J4) \ NEXT J4 \ NEXT J3m
!5185 GOSUB 5200 \ FOR I=I TO Nm
5190 PRINT "X("I;J2")="X(I). \ Q0(I.J2)=X(1) \ NEXT 1 \ PRINT \ NEXT J2m
!5195 PETURNM
!5197 STOPm
!5200 Nl=N-I \ FOR K=I TO NIm
!5205 IF ABS(A(KJC)) > 0 GO TO 5245
!5210 Kl=K+ 1 \ FOR M=Kl TO Nm
!5215 IF ABS(A(MJC)) >0 GO TO 5225
!5220 GO TO 5235
!5225 FOR L-I TO N \ U=A(KX) \ A(KX)-A(MX)m
!5230 A(MX)=U \ NEXT Lm
136
!5235 NEXT
!5240 U=B(K) \ B(K)=B(M) \ B(M)=Um
!5245 G(K)=B(K)/A(KJ9 \ Kl=K+
5250 FOR I=Kl TO N \ B(I)=B(I)-ApJC) * G(K)M
!5255 FOR Jl=K TO N \ J=N-H + K \ C(KJ)-A(K4)/A(KJC)m
!5260 A(IJ)=A(LJ)-A(1.K). C(KJ)m
5265 NEXT \ NEXT I \ NEXT Km
!5270 M=N \ ()=()/(.)
!5275 M=M-I \ S=O \ FOR L=M TO NIm
!5280 S=S + C(MX +1) * X(L +1) \ NEXT Lm
!5285 X(M)=G(M)-S \ IF M> 1 GO TO 5275
!5290 PETURNm
5295 ENDM
!m
!m
!m
!m
ht
!m
!m
!m
!m
!m
!m
!m
!m
!m
!m
!m
Im
!m
!m
!m
!m
!m
!m
!m
!m
!m
m
!m
!m
m
M M M M M M
137
""
SETKAJBASPAGE 1 25-JAN-90M -
REM a a a a a a a a a a a a a a a aa a a a a aaa aa a a a a a aaa '' a aa a^
REM *** ***
REM *>>**
5 DIM 7(21).8(6)
!6 DIM 9().0(6)
7 DIM P(10).U(10)m
REM ****
***
9 DIM X1(50.21).X2(2U0).X3(2UI).X4(50).X5(50).Y5(5O)m
!10 REM*** ******
!12 DIM A(21.21).C(21.21).X(21).B(21).G(21)m
!13 FOR 1=1 21 \ X(I)=O \ B(I)=O \ G(I)=Om
!14 FOR J=I 21 \ A(LJ)=O \ C(LJ)=O \ NEXT J \ NEXT
!15 PRINT " "; \ INPUT Fm
!16 Fl=O \ FOR 1=0 F-I \ Fl=Fl +1 \ NEXT
!17 N=1+2*F + F1m
!18 PRINT " MEHEE'Nm
!20 PRINT " " \ INPUT Dm
!21 PRINT " "; \ INPUT Nm
!22 PRINT " '
!24 FOR I=I D \ Xl(Ll)=I \ NEXT
!25 FOR I=I D \ FOR J=2 F+l \ INPUT Xl(LJ) \ NEXT J \ NEXT
!26 PRINT " "
!27 FOR I=I D \ FOR J=2 F+l \ PRINT X1(1.J).m
!28 NEXT Jm
!29 PRINT \ NEXT
!30 FOR I=I TO Dm
!32 J=F+ 2m
!34 FORK=2T0F + 1m
!35 FOR L=K TO F + Im
!36 Xl(LJ)=Xl(LK)* Xl(LL)m
!37 J=J + Im
!38 NEXT Lm
!40 NEXT Km
!44 NEXT Im
!50 FOR I=I TO D \ FOR Jl TO N \ X2(J,I>X1(IJ) \ NEXT Jm
!55 NEXT Im
!57 FOR I=I TO N \ FOR J=I TO N \ X3(I.J)=0 \ NEXT J \ NEXT Im
I
!60 FOR I=I TO N \ FOR J=I TO Nm ) D \ Xi(IJ)
!65 FOR K=I TO D \ X3(U)=X2(I.K) * Xl(K.]) +X3(LJ) \ NEXT Km
70 NEXT I \ NEXT Im
!80 PRINT " "
!85 FOR I=I D \ INPUT X5(I) \ NEXT
!90 PRINT-4BBOA 0"
!95 FOR I=I N \ 4(>0 \-NEXT
!100 FOR I=I N \ FOR K=I D \ 4()=4()+2() *5()
!105 NEXT K \ NEXT
!120 FOR I=I N \ FOR J=I N \ A(I.J)=X3(IJ) \ NEXT Jm
!125 NEXT
FOR I=I N \ B(I>X4(I) \ NEXT 138
!140 COSUB 1000
!142 FOR I=I F+1 \ PRINT B("I-1;")="X(I) \ NEXT
!144 I=F +2 \ FOR K=I F \ FOR I=K Fm
!146 PRINT "B("K;L;")="X(I) \ 1=+
!148 NEXT L \ NEXT
!150 ********** *****
<< 1 .. 49 50 51 52 53 54 < 55 > 56 57 58 59 60 61 .. 63 >>

2011 BooksOnChemistry. .