Химические методы анализа - 251 стр.

                                                                        100 cls: print
                                                                        110 for i=1 to n step 1
                                                                        120 color 2: print “Точка N”;: color 4: print i;:
                                                                        130 color 2: print “значение =”;: color 14: print x(i)
                                                                        140 next i
                                                                        150 color 23: print: print “ Все верно ? (Y/N) “: a=input$(1)
                                                                        160 if a=“N” or a=“n” then goto 1100
                                                                        170 rem Расчет среднего значения
                                                                        180 summa=0
                                                                        190 for i=1 to n step 1
                                                                        200 summa=summa+x(i)
                                                                        210 next i
                                                                        220 sredne=summa/n
                                                                        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
                                                        Приложение I   380 if n=17 then t=2.120
                       Программа статистической обработки              390 if n=18 then t=2.110
                     результатов количественных определений            400 if n=19 then t=2.103
10 defdbl d, e, s, t, x, y: defint c, i, k, n: defstr a                410 rem Расчет выборочной дисперсии и среднеквадратичной ошибки
11 screen 0: width 80: color 14,0                                      420 sdisp=0
20 rem Ввод данных                                                     430 for i=1 to n step 1
30 print: print: input “ Введите количество точек “; n                 435 sdisp=sdisp+(x(i)-sredne)^2
40 if n<3 then goto 1000                                               440 next i
50 for i=1 to n step 1                                                 450 disp=sdisp/(n-1)
60 print: print “точка N”; i                                           460 soqv=sqr(disp)
70 input “Значение =“; x(i)                                            470 rem Расчет точности прямого измерения
80 next i                                                              480 e1=t⋅soqv/sqr(n) : e2=e1/sredne⋅100
90 rem Проверка введенных значений                                     490 rem Расчет плотности функции распределения


                                501                                                                  502