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

UptoLike

ВУЗ: 

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

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

Рубрика: 

259
230 rem Подбор коэффициента Стьюдента
240 if n=3 then t=4.303
250 if n=4 then t=3.182
260 if n=5 then t=2.776
270 if n=6 then t=2.571
280 if n=7 then t=2.447
290 if n=8 then t=2.365
300 if n=9 then t=2.306
310 if n=10 then t=2.262
320 if n=11 then t=2.228
330 if n=12 then t=2.201
340 if n=13 then t=2.179
350 if n=14 then t=2.160
360 if n=15 then t=2.145
370 if n=16 then t=2.131
380 if n=17 then t=2.120
390 if n=18 then t=2.110
400 if n=19 then t=2.103
410 rem Расчет выборочной дисперсии и среднеквадра
тичной ошибки
420 sdisp=0
430 for i=1 to n step 1
435 sdisp=sdisp+(x(i)-sredne)^2
440 next i
450 disp=sdisp/(n-1)
460 soqv=sqr(disp)
470 rem Расчет точности прямого измерения
480 e1=t⋅soqv/sqr(n) : e2=e1/sredne⋅100
490 rem Расчет плотности функции распределения
500 ymax=1/soqv/sqr(2⋅3.14159)
510 for i=1 to n step 1
520 y(i)=1/soqv/sqr(2⋅3.14159)⋅exp(-1⋅(x(i)-sredne)^2/2/disp)
530 next i
535 if e2>30 then goto 1300
260
539 goto 1400
540 screen 2: line (20,180)-(620,180)
550 summa=160-cint(160⋅ymax/(ymax+1)
560 line (320,180)-(320,cymax)
570 rem circle (320,cymax),4: paint (320,cymax)
580 for i=1 to n step 1
590 cy(i)=160-cint(160/(ymax+1)⋅y(i)
600 e(i)=(x(i)-sredne)/sredne⋅100
610 cx(i)=cint(320+10⋅e(i))
620 circle (cx(i),cy(i)),1: paint (cx(i),cy(i))
630 next i
640 goto 1030
1000 rem Малое количество данных
1010 print: print: color 3: print “Количество точек не
должно быть меньше трех “
1020 a=imput$(1)
1030 end
1100 rem Исправление неверно введенных данных
1120 cls: print: print: color 14: input “ Введите номер
исправляемой точки”;
1130 if k>n then goto 1180
1140 color 2: print “ Точка N”;: color 4: print k
1150 color 2: print “ старое значение = “;: color 14:
print x(k)
1160 color 2: print “ новое значение=”;: color 14:
input x(k)
1170 goto 90
1180 cls: color 20: x1=timer
1190 print: print: print “Нет точки с таким номером !”
1200 x2=timer: x3=x2-x1
1210 if x3<2 then goto 1200
1220 a=inkey$: goto 90
1300 rem Слишком большой разброс
1310 cls: print: print: color 30: print “ Очень большой 
                              259                                                             260


 230 rem Подбор коэффициента Стьюдента                          539 goto 1400
 240 if n=3 then t=4.303                                        540 screen 2: line (20,180)-(620,180)
250 if n=4 then t=3.182                                         550 summa=160-cint(160⋅ymax/(ymax+1)
260 if n=5 then t=2.776                                         560 line (320,180)-(320,cymax)
270 if n=6 then t=2.571                                         570 rem circle (320,cymax),4: paint (320,cymax)
280 if n=7 then t=2.447                                         580 for i=1 to n step 1
290 if n=8 then t=2.365                                         590 cy(i)=160-cint(160/(ymax+1)⋅y(i)
300 if n=9 then t=2.306                                         600 e(i)=(x(i)-sredne)/sredne⋅100
310 if n=10 then t=2.262                                        610 cx(i)=cint(320+10⋅e(i))
320 if n=11 then t=2.228                                        620 circle (cx(i),cy(i)),1: paint (cx(i),cy(i))
330 if n=12 then t=2.201                                        630 next i
340 if n=13 then t=2.179                                        640 goto 1030
350 if n=14 then t=2.160                                        1000 rem Малое количество данных
360 if n=15 then t=2.145                                        1010 print: print: color 3: print “Количество точек не
370 if n=16 then t=2.131                                             должно быть меньше трех “
380 if n=17 then t=2.120                                        1020 a=imput$(1)
390 if n=18 then t=2.110                                        1030 end
400 if n=19 then t=2.103                                        1100 rem Исправление неверно введенных данных
410 rem Расчет выборочной дисперсии и среднеквадра              1120 cls: print: print: color 14: input “ Введите номер
    тичной ошибки                                                    исправляемой точки”;
420 sdisp=0                                                     1130 if k>n then goto 1180
430 for i=1 to n step 1                                         1140 color 2: print “ Точка N”;: color 4: print k
435 sdisp=sdisp+(x(i)-sredne)^2                                 1150 color 2: print “ старое значение = “;: color 14:
440 next i                                                           print x(k)
450 disp=sdisp/(n-1)                                            1160 color 2: print “ новое значение=”;: color 14:
460 soqv=sqr(disp)                                                    input x(k)
470 rem Расчет точности прямого измерения                       1170 goto 90
480 e1=t⋅soqv/sqr(n) : e2=e1/sredne⋅100                         1180 cls: color 20: x1=timer
490 rem Расчет плотности функции распределения                  1190 print: print: print “Нет точки с таким номером !”
500 ymax=1/soqv/sqr(2⋅3.14159)                                  1200 x2=timer: x3=x2-x1
510 for i=1 to n step 1                                         1210 if x3<2 then goto 1200
520 y(i)=1/soqv/sqr(2⋅3.14159)⋅exp(-1⋅(x(i)-sredne)^2/2/disp)   1220 a=inkey$: goto 90
530 next i                                                      1300 rem Слишком большой разброс
535 if e2>30 then goto 1300                                     1310 cls: print: print: color 30: print “ Очень большой

Страницы