Химические методы анализа. Танганов Б.Б. - 135 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

269
166 next i
167 print “Все верно (Y/N) ?”: ASD$=input$(1)
168 if ASD$=“Y” or ASD$=“y” goto 170
169 if ASD$=“N”or ASD$=“n” then gosub 1000 else
goto 167
170 S1=Z1/N: S2=Z2/N: S3=Z3/N: S4=Z4/N
180 S=Z5/N
210 for j=1 to N
220 O(j)=Y(j)-S
225 O1(j)=X1(j)-S1
230 O2(j)=X2(j)-S2
235 O3(j)=X3(j)-S3
240 O4(j)=X4(j)-S4
250 H1=H1+o1(j)^2
255 H2=H2+O1(j)⋅O2(j)
260 H3=H3+O1(j)⋅O3(j)
265 H4=H4+O1(j)⋅O4(j)
270 W1=W1+O1(j)⋅O(j)
275 W=W+O(j)^2
280 H5=H5+O2(j)^2
285 H6=H6+O2(j)⋅O3(j)
290 H7=H7+O2(j)⋅O4(j)
295 W2=W2+O2(j)⋅O(j)
300 H8=H8+O3(j)^2
305 H9=H9+O3(j)⋅O4(j)
310 W3=W3+O3(j)⋅O(j)
315 H=H+O4(j)^2
320 W4=W4+O4(j)⋅O(j)
325 next
330 L1=W4⋅H1-H4⋅W1
335 L2=H1⋅H-H4^2
340 L3=H7⋅H1-H2⋅H4
345 L4=W2⋅H1-H2⋅W1
270
350 L5=H2⋅H3-H1⋅H6
355 L6=H9⋅H1-H3⋅H4
360 L7=W3⋅H1-W1⋅H3
370 L9=H8⋅H1-H3^2
375 L=H1⋅H5-H2^2
380 M1=L9⋅L-L5^2
390 M2=L6⋅L+L5⋅L3
395 M3=L7⋅L+L4⋅L5
400 M4=L1⋅L-L3⋅L4
405 M5=L2⋅L-L3^2
407 if S4=0 then 415 else
D=(M4⋅M1-M2⋅M3)/(M5⋅M1-M2^2)
410 goto 420
415 D=0
420 G1=M3-M2⋅D
421 G=G1/M1
425 B=(L4+L5⋅G-L3⋅D)/L
430 A=(W1-H2⋅B-H3⋅G-H4⋅D)/H1
440 for i=1 to N
450 K(i)=S+A⋅O1(i)+B⋅O2(i)+G⋅O3(i)+D⋅O4(i)
460 V=V+K(i)
470 next
480 Vs=V/N
490 for j=1 to N
500 VO(j)=K(j)-VS
510 R2=R2+VO(j)^2
520 next
529 cls
530 R1=R2/W
540 R=sqr(R1)
545 K1=S-A⋅S1-B⋅S2-G⋅S3-D⋅S4
581 print: print
582 F$=string$(70,”-”): print F$ 
                           269                                               270


 166 next i                                        350 L5=H2⋅H3-H1⋅H6
167 print “Все верно (Y/N) ?”: ASD$=input$(1)      355 L6=H9⋅H1-H3⋅H4
 168 if ASD$=“Y” or ASD$=“y” goto 170              360 L7=W3⋅H1-W1⋅H3
 169 if ASD$=“N”or ASD$=“n” then gosub 1000 else   370 L9=H8⋅H1-H3^2
    goto 167                                       375 L=H1⋅H5-H2^2
 170 S1=Z1/N: S2=Z2/N: S3=Z3/N: S4=Z4/N            380 M1=L9⋅L-L5^2
 180 S=Z5/N
                                                   390 M2=L6⋅L+L5⋅L3
 210 for j=1 to N
                                                   395 M3=L7⋅L+L4⋅L5
 220 O(j)=Y(j)-S
 225 O1(j)=X1(j)-S1                                400 M4=L1⋅L-L3⋅L4
 230 O2(j)=X2(j)-S2                                405 M5=L2⋅L-L3^2
 235 O3(j)=X3(j)-S3                                407 if S4=0 then 415 else
 240 O4(j)=X4(j)-S4                                   D=(M4⋅M1-M2⋅M3)/(M5⋅M1-M2^2)
 250 H1=H1+o1(j)^2                                 410 goto 420
 255 H2=H2+O1(j)⋅O2(j)                             415 D=0
 260 H3=H3+O1(j)⋅O3(j)                             420 G1=M3-M2⋅D
 265 H4=H4+O1(j)⋅O4(j)                             421 G=G1/M1
 270 W1=W1+O1(j)⋅O(j)                              425 B=(L4+L5⋅G-L3⋅D)/L
 275 W=W+O(j)^2                                    430 A=(W1-H2⋅B-H3⋅G-H4⋅D)/H1
 280 H5=H5+O2(j)^2                                 440 for i=1 to N
 285 H6=H6+O2(j)⋅O3(j)                             450 K(i)=S+A⋅O1(i)+B⋅O2(i)+G⋅O3(i)+D⋅O4(i)
 290 H7=H7+O2(j)⋅O4(j)                             460 V=V+K(i)
                                                   470 next
 295 W2=W2+O2(j)⋅O(j)
                                                   480 Vs=V/N
 300 H8=H8+O3(j)^2
                                                   490 for j=1 to N
 305 H9=H9+O3(j)⋅O4(j)
                                                   500 VO(j)=K(j)-VS
 310 W3=W3+O3(j)⋅O(j)                              510 R2=R2+VO(j)^2
 315 H=H+O4(j)^2                                   520 next
 320 W4=W4+O4(j)⋅O(j)                              529 cls
 325 next                                          530 R1=R2/W
 330 L1=W4⋅H1-H4⋅W1                                540 R=sqr(R1)
335 L2=H1⋅H-H4^2                                   545 K1=S-A⋅S1-B⋅S2-G⋅S3-D⋅S4
 340 L3=H7⋅H1-H2⋅H4                                581 print: print
 345 L4=W2⋅H1-H2⋅W1                                582 F$=string$(70,”-”): print F$

Страницы