ВУЗ:
Составители:
Рубрика:
503
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
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 “ Очень большой разброс данных“
1320 print: print “ построение графика невозможно “
1330 goto 1030
1400 a1=“+-”: rem Вывод на экран данных
1410 cls:print:print:color 14:print “Среднее значение =“;: print using
“####.####”
504
1420 print: print “Доверительный интервал =“;:
1430 print using “#####.#####”; sredne ;: print “-+”;: rem Hihi
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 = in-
put$(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
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
500 ymax=1/soqv/sqr(2⋅3.14159) 1420 print: print “Доверительный интервал =“;:
510 for i=1 to n step 1 1430 print using “#####.#####”; sredne ;: print “-+”;: rem Hihi
520 y(i)=1/soqv/sqr(2⋅3.14159)⋅exp(-1⋅(x(i)-sredne)^2/2/disp) 1431 print using “#####.#####”; e1
530 next i 1440 print: print “Относительная ошибка =“;: print using “##.####”; e2
535 if e2>30 then goto 1300 1450 locate 21: color 22: print “Нажмите любую клавишу”: a = input$(1)
539 goto 1400 1460 cls: color 14: a2=“ “
540 screen 2: line (20,180)-(620,180) 1470 print “ X(i) “;: print “ Y(i) “;: print “ X(i)-Xср”
550 summa=160-cint(160⋅ymax/(ymax+1) 1480 for i=1 to n step 1
560 line (320,180)-(320,cymax) 1490 print using “##.####”; x(i);: print a2;
570 rem circle (320,cymax),4: paint (320,cymax) 1500 print using “##.####”; y(i);: print a2;
580 for i=1 to n step 1 1510 print using “##.####”; x(i)-sredne; 1520 next i
590 cy(i)=160-cint(160/(ymax+1)⋅y(i) 1530 print color 6: print “Хотите получить распечатку ? (Y/N) “: a = in-
600 e(i)=(x(i)-sredne)/sredne⋅100 put$(1)
1540 if a=“Y” or a=“y” then goto 1700
610 cx(i)=cint(320+10⋅e(i))
1550 print: color 6: print “ Хотите посмотреть на график ? (Y/N) “: a =
620 circle (cx(i),cy(i)),1: paint (cx(i),cy(i))
input$(1)
630 next i ; 640 goto 1030
1560 if a=“Y” or a=“y” then goto 540 else goto 1030
1000 rem Малое количество данных
1700 rem Распечатка
1010 print: print: color 3: print “Количество точек не должно быть мень-
1705 cls: print “Подготовьте принтер к печати”
ше трех “
1706 print “ и нажмите любую клавишу”: a=input$(1)
1020 a=imput$(1)
1710 lprint “Среднее значение =“;: lprint using “#####.#####”; sredne
1030 end
1720 lprint “Доверительный интервал =“;:
1100 rem Исправление неверно введенных данных
1730 lprint using “#####.#####”; sredne;: lprint “-+”;
1120 cls: print: print: color 14: input “ Введите номер исправляемой точ-
1731 lprint using “#####.#####”; e1
ки”;
1740 lprint “Относительная ошибка =“;: lprint using “##.####”; e2
1130 if k>n then goto 1180
1750 lprint “ X(i) “;: lprint “ Y(i) “;: lprint “ X(i) - Xср “
1140 color 2: print “ Точка N”;: color 4: print k
1760 for i=1 to n step 1
1150 color 2: print “ старое значение = “;: color 14: print x(k)
1770 lprint using “##.####”; x(i);: lprint a2;
1160 color 2: print “ новое значение=”;: color 14: input x(k)
1780 lprint using “##.####”; y(i);: lprint a2;
1170 goto 90
1790 lprint using “##.####”; x(i)-sredne
1180 cls: color 20: x1=timer
1795 next i
1190 print: print: print “Нет точки с таким номером !”
1900 goto 1550
1200 x2=timer: x3=x2-x1
1210 if x3<2 then goto 1200 Приложение II
1220 a=inkey$: goto 90 Программа для выполнения расчетов методом наименьших квадратов
1300 rem Слишком большой разброс 10 rem “Линейная регрессия”
1310 cls: print: print: color 30: print “ Очень большой разброс данных“ 100 cls
1320 print: print “ построение графика невозможно “ 1000 dim x(100), y(100)
1330 goto 1030 1100 input “Число пар значений “;N
1400 a1=“+-”: rem Вывод на экран данных
1101 if N<2 goto 7040
1410 cls:print:print:color 14:print “Среднее значение =“;: print using
1200 for i=1 to N
“####.####”
503 504
Страницы
- « первая
- ‹ предыдущая
- …
- 250
- 251
- 252
- 253
- 254
- …
- следующая ›
- последняя »
