ПОИСК Статьи Рисунки Таблицы Линейная регрессия с графиком из "Компьютеры Применение в химии" Приведенная ниже программа представляет собой программу ЛИН-РЕГР4 , дополненную подпрограммой для построения графика. [c.336] К ИСХОДНОЙ программе ЛИН-РЕГР4 добавлена всего одна строка 6690. В этой строке после расчета параметров регрессии вызывается подпрограмма 20000 для построения графика. График появляется на экране не сразу, а в самом конце основной программы. В строках 9800—9840 организован переключатель . (Здесь параметру I присваивается значение 1.) В строке 9820 проверяется, набран ли на клавиатуре какой-нибудь знак. Если нажать одну из клавиш, то в следующей строке оператор DISPLAY (I) изменяет режим работы дисплея. При вьшолнении следующего оператора I = ABS(I - 1) первоначальное значение I, равное единице, изменяется, I становится равным О и управление передается предыдущей строке. Таким образом, при следующем нажатии клавиши дисплей опять будет работать в обычном режиме. [c.339] В строке 20200 экран очищается. Следующий оператор PSPA E(.01,. 99,. 01,. 99) уменьшает окно , в котором строится график, на два процента. В строке 20220 оператором МАР задаются математические координаты окна , и в следующих трех строках это окно обводится рамкой. В цикле (строки 20300—20340) заданные точки изображаются на экране в виде звездочек. [c.340] Оставшаяся часть подпрограммы для построения графика выводит на экран отрезок прямой, соответствующий уравнению регрессии. Главная проблема заключается в таком построении этого отрезка, чтобы он начинался на одной границе окна , а заканчивался на другой. Для этого по уравнению регрессии вычисляются два значения У (У2 и У8), которые соответствуют минимальному (XI) и максимальному (Х9) значению X. Из уравнения регрессии рассчитываются также два значения X (Х2 и Х8), при которых У имеет наименьшее и наибольшее значения соответственно. Если угловой коэффициент в уравнении регрессии равен нулю, то переменным Х2 и Х8 присваивается очень большая величина (1Е30). Итак, мы получили четыре точки пересечения графика линейной регрессии с продолжениями границ окна . Надо еще установить, какие из них лежат на границах окна . Это выясняется в следующих четырех строках (20520—20550) с помощью еще не встречавшейся конструкции оператора 1F. В каждой из этих строк проверяется вьшолнение двух условий, связанных логической операцией AND. Наряду с логическим умножением AND существуют также логические операции OR и NOT. Чтобы пользоваться этими логическими операхщями, надо знать, как они функционируют. Если условие, стоящее в операторе IF, вьшолняется, то оно называется истинным и обозначается цифрой 1. Если это условие не вьшолняется, то оно называется ложным и обозначается цифрой 0. Соответствующие определения логических операций называют таблицами истинности. [c.340] Принята следующая иерархия операций сначала выполняются арифметические операции, потом операции отнощения и, наконец, логические операции. Повторим рекомендацию если порядок выполнения операций не очевиден или если надо выполнить операции в ином порядке, чем это диктуется правилами, используйте скобки. [c.341] Координаты точек, определенные с помощью указанных конструкций оператора 1Р, присваиваются (Ы -I- 1)-м и (N -I- 2)-м элементам одномерных массивов Х( ) и У( ) соответственно. Поэтому в строке 20503 М приравнивается N -I- 1. В строке 20520 рассматривается левая граница окна для построения графика. Если точка (XI, 2) графика регрессии лежит на левой границе, т. е. если 2 меньще чем 9 и больще чем 1, то точка с координатами XI, 2 — искомая точка. Ее координаты присваиваются элементам массивов Х( ) и ( ) и М увеличивается на 1. Таким же способом проверяются остальные три границы окна и на одной из них определяется вторая точка пересечения. В строке 20600 поднятое перо перемещается в первую точку пересечения графика с рамкой, не оставляя, разумеется, следа на экране. В следующей строке две точки пересечения графика с рамкой соединяются отрезком прямой. [c.341] В приведенном примере дана распечатка результатов регрессионного анализа и изображен график полученной регрессии. График значительно облегчит исследователю оценку достоверности и качества регрессии. [c.341] Задание 193. Для большей наглядности наложите на график сетку, состоящую из пунктирных прямых, параллельных осям координат. С помошью дополнительного участка программы надпишите оси и ош1фруйте их. [c.341] Задание 194. Дополните программу нелинейного регрессионного анализа подпрограммой для построения графика. Составьте эту подпрограмму так, чтобы после каждой итеращ1и на экране изображались улучшенный график регрессии и экспериментальные точки. [c.341] Вернуться к основной статье