Разработка программы построения графика линии регрессии
Курсовая работа
Разработка программы построения графика линии регрессии
Введение
Разработать программу построения графика экспериментальных точек и прямой линии регрессии.
Таблица функции
x1,11,11,31,41,41,61,71,81,8y322930363840394345
Блок - схема
Процедуре inicializ
Процедуре tit_list
Листинг программы
PROGRAM kyrs;Crt, Graph;a:array [1..9] of real;:array [1..9] of real;, s2, s3, s4, b0, b1, x1, y1, x2, y2, x, y, mx, my:real;, mx08, my09, mx07, mx05, my005, my04, my2, my1, z:integer;, Gm, i, n, msx, msy:integer;:string;inicializ;:=detect;:=detect;(Ga, Gm, 'C:\Pascal\bgi');;tit_list;(1);(14);(3,0,1);(0,5,'****************************************************');(50,20,'KUZNECKII INSTITYT INFORMACIONNIH I UPRAVLENCESKIH TEHNOLOGII');(250,32,'FILIAL PGU');(200,155,'KURSOVAJA RABOTA');(198,163,'*****************');
(85,200,'NA TEMY «RAZRABOTKA PROGRAMMI POSTROENIA GRAFIKA ');(180,223,'EXPERIMENTALNIH TOCEK I PRJAMOI LINII REGRESSII» ');(380,310,'VIPOLNIL: STYDENT GRYPPI 04KM1');(460,325,'DVORNIKOV ANDREI ANATOLEVIH.');(380,343,'PROWERIL: STARSHII PREPODAVATEL ENiTD');(434,358,'ASTAHOVA JYLIA NIKOLAEVNA.');(260,425,'KYZNECK, 2005');(14);(7,0,3);;;;_list;;:=9;[1]:=1.1; a[2]:=1.1; a[3]:=1.3; a[4]:=1.4; a[5]:=1.4;[6]:=1.6; a[7]:=1.7; a[8]:=1.8; a[9]:=1.8;
[1]:=32; b[2]:=29; b[3]:=30; b[4]:=36; b[5]:=38;[6]:=40; b[7]:=39; b[8]:=43; b[9]:=45;i:=1 TO n DO:=s1+a[i]; s2:=s2+b[i]; s3:=s3+a[i]*b[i]; s4:=s4+sqr (a[i]);;(s1:7:3); writeln (s2:7:3); writeln (s3:7:3); writeln (s4:7:3);:=((s1*s2) - n*s3)/(sqr(s1) - n*s4);:=(1/n)*(s2-b1*s1);('b1=', b1:10:5); Writeln ('b0=', b0:10:5);:=1.0; y1:=b1*x1+b0;('y1=', y1:10:5);:=1.8; y2:=b1*x2+b0;('y2=', y2:10:5);;:= GetmaxX;:= Round (0.1*mx);:=Round (0.7*mx);:= Round (0.8*mx);:= GetmaxY;:= Round (0.9*my);:= Round (1*my);:=Round (0.05*my);:= Round (2*my);:= Round (0.4*my);:=Round (mx07/10);:=Round (my1/1);(0,0,1);:=x1; y:=y1;(Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100));:=x2; y:=y2;(2);(Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100));(14);(0,0,1);(mx01, my09, mx01, my04);(mx01, my09, mx08, my09);(14);(mx01, my04, mx01-5, my04+5);(mx01, my04, mx01+5, my04+5);(mx08, my09, mx08-5, my09-5);(mx08, my09, mx08-5, my09+5);:=0;y<=45 DO(y:4:0, st);:=Round (my09-msy*y/100);(mx01+3, z, mx01-3, z);(mx01-40, z, st);:=y+5;;:=1;x<=1.9 DO(x:4:1, st);:=Round (msx*x*10+mx01-msx*9);(z, my09+3, z, my09-3);(z-25, my09+15, st);:=x+0.1;;(15);(3,0,1);:=5;y<=45 DO:=Round (my09-msy*y/100);(mx01+5, z, mx01+440, z);:=y+5;;:=1;x<=1.9 DO:=Round (mx01+msx*x*10-msx*9);(z, my09-5, z, my09-230);:=x+0.1;;(mx01-15, my04,'Y');(mx08+15, my09,'X');(4);(1,0,3);(0,0,0);:=1.1; y:=32;(Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);:=1.1; y:=29;(Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);:=1.3; y:=30;(Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);:=1.4; y:=36;(Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);:=1.4; y:=38;(Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);:=1.6; y:=40;(Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);:=1.7; y:=39;(Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);:=1.8; y:=43;(Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);:=1.8; y:=45;(Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);(1);:=x1; y:=y1;(Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);:=x2; y:=y2;(Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);(1,1);(2,2,637,170);(0,0,3);(14);(1,1,638,171);(120,175,'GRAFIK EXPERIMENTALNIH TOCEK I PRJAMOI LINII REGRESSII');(20,60,'b1=19.11111');(20,70,'b0= 8.85926');(20,90,'y(x)=b1*x+b0');(20,110,'x1=1.0 y1=27.97037');(20,120,'x2=1.8 y2=43.25926');(310,20,'ZNACENIA EXPERIMENTALNIH TOCEK.');(270,50,'X 1.1 1.1 1.3 1.4 1.4 1.6 1.7 1.8 1.8');(270,70,'Y 32 29 30 36 38 40 39 43 45');;
END.
Заключение
программа листинг график регрессия
Пройдя курс по дисциплине «АМОРЭ» (автоматизированные методы обработки результатов эксперимента) я разработал программу в среде Turbo Pascal по построению графика прямой линии регрессии. Сам график я построил с помощью математических формул и графического модуля Graph.
Список литературы
1. А.М. Епанешникова, В.А. Епанешникова «Программирование в среде Turbo Pascal 7.0». - М: «Диалог-МИФИ», 2008
. Е.А. Волков «Численные методы»
. А.А. Самарский «Введение в численные методы»
Больше работ по теме:
Предмет: Информационное обеспечение, программирование
Тип работы: Контрольная работа
Новости образования
КОНТАКТНЫЙ EMAIL: [email protected]
Скачать реферат © 2017 | Пользовательское соглашение
ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ