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

UptoLike

ВУЗ: 

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

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

Рубрика: 

261
разброс данных“
1320 print: print “ построение графика невозможно “
1330 goto 1030
1400 a1=“+-”: rem Вывод на экран данных
1410 cls:print:print:color 14:print “Среднее значение =“;:
print using “####.####”
1420 print: print “Доверительный интервал =“;:
1430 print using “#####.#####”; sredne ;: print “-+”;:
1431 print using “#####.#####”; e1
1440 print: print “Относительная ошибка =“;: print using
“##.####”; e2
1450 locate 21: color 22: print “Нажмите любую клавишу”:
a=input$(1)
1460 cls: color 14: a2=“ “
1470 print “ X(i) “;: print “ Y(i) “;: print “ X(i)-Xср”
1480 for i=1 to n step 1
1490 print using “##.####”; x(i);: print a2;
1500 print using “##.####”; y(i);: print a2;
1510 print using “##.####”; x(i)-sredne
1520 next i
1530 print color 6: print “Хотите получить распечатку ?
(Y/N) “: a=input$(1)
1540 if a=“Y” or a=“y” then goto 1700
1550 print: color 6: print “ Хотите посмотреть
на график ? (Y/N) “: a=input$(1)
1560 if a=“Y” or a=“y” then goto 540 else goto 1030
1700 rem Распечатка
1705 cls: print “Подготовьте принтер к печати”
1706 print “ и нажмите любую клавишу”: a=input$(1)
1710 lprint “Среднее значение =“;: lprint
using “#####.#####”; sredne
1720 lprint “Доверительный интервал =“;:
1730 lprint using “#####.#####”; sredne;: lprint “-+”;
1731 lprint using “#####.#####”; e1
262
1740 lprint “Относительная ошибка =“;: lprint using
“##.####”; e2
1750 lprint “ X(i) “;: lprint “ Y(i) “;: lprint “ X(i) - Xср “
1760 for i=1 to n step 1
1770 lprint using “##.####”; x(i);: lprint a2;
1780 lprint using “##.####”; y(i);: lprint a2;
1790 lprint using “##.####”; x(i)-sredne
1795 next i; 1900 goto 1550
Приложение II
Программа для выполнения расчетов
методом наименьших квадратов
10 rem “Линейная регрессия”
100 cls
1000 dim x(100), y(100)
1100 input “Число пар значений “;N
1101 if N<2 goto 7040
1200 for i=1 to N
1300 print “x(“;i;”),y(“;i;”) “;
1400 input x(i),y(i)
1700 next i
2000 s1=N
2100 s2=0;s3=0;s4=0;s5=0
2200 for i=1 to N
2300 s2=s2+x(i)
2400 s3=s3+y(i)
2500 s4=s4+x(i)⋅x(i)
2600 s5=s5+y(i)⋅x(i)
2610 s6=s6+y(i)⋅x(i)
2620 s7=s2/N
2630 s8=s3/N
2700 next i
3000 d1=s1⋅s4-s2⋅s2 
                             261                                                          262


    разброс данных“                                          1740 lprint “Относительная ошибка =“;: lprint using
1320 print: print “ построение графика невозможно “          “##.####”; e2
1330 goto 1030                                               1750 lprint “ X(i) “;: lprint “ Y(i) “;: lprint “ X(i) - Xср “
1400 a1=“+-”: rem Вывод на экран данных                      1760 for i=1 to n step 1
1410 cls:print:print:color 14:print “Среднее значение =“;:   1770 lprint using “##.####”; x(i);: lprint a2;
     print using “####.####”                                 1780 lprint using “##.####”; y(i);: lprint a2;
1420 print: print “Доверительный интервал =“;:               1790 lprint using “##.####”; x(i)-sredne
1430 print using “#####.#####”; sredne ;: print “-+”;:       1795 next i; 1900 goto 1550
1431 print using “#####.#####”; e1
1440 print: print “Относительная ошибка =“;: print using
    “##.####”; e2                                                                             Приложение II
1450 locate 21: color 22: print “Нажмите любую клавишу”:                 Программа для выполнения расчетов
    a=input$(1)                                                            методом наименьших квадратов
1460 cls: color 14: a2=“ “                                     10 rem “Линейная регрессия”
1470 print “ X(i) “;: print “ Y(i) “;: print “ X(i)-Xср”      100 cls
1480 for i=1 to n step 1                                     1000 dim x(100), y(100)
1490 print using “##.####”; x(i);: print a2;                 1100 input “Число пар значений “;N
1500 print using “##.####”; y(i);: print a2;                 1101 if N<2 goto 7040
1510 print using “##.####”; x(i)-sredne                      1200 for i=1 to N
1520 next i                                                  1300 print “x(“;i;”),y(“;i;”) “;
1530 print color 6: print “Хотите получить распечатку ?      1400 input x(i),y(i)
    (Y/N) “: a=input$(1)                                     1700 next i
1540 if a=“Y” or a=“y” then goto 1700                        2000 s1=N
1550 print: color 6: print “ Хотите посмотреть               2100 s2=0;s3=0;s4=0;s5=0
     на график ? (Y/N) “: a=input$(1)                        2200 for i=1 to N
1560 if a=“Y” or a=“y” then goto 540 else goto 1030          2300 s2=s2+x(i)
1700 rem Распечатка                                          2400 s3=s3+y(i)
1705 cls: print “Подготовьте принтер к печати”               2500 s4=s4+x(i)⋅x(i)
1706 print “ и нажмите любую клавишу”: a=input$(1)           2600 s5=s5+y(i)⋅x(i)
1710 lprint “Среднее значение =“;: lprint                    2610 s6=s6+y(i)⋅x(i)
     using “#####.#####”; sredne                             2620 s7=s2/N
1720 lprint “Доверительный интервал =“;:                     2630 s8=s3/N
1730 lprint using “#####.#####”; sredne;: lprint “-+”;       2700 next i
1731 lprint using “#####.#####”; e1                          3000 d1=s1⋅s4-s2⋅s2

Страницы