Размещено на http://www.allbest.ru/

- 19 -

Размещено на http://www.allbest.ru/

Курсовая работа

Разработка программы построения графика линии регрессии

Введение

Разработать программу построения графика экспериментальных точек и прямой линии регрессии.

Таблица функции

x	1,1	1,1	1,3	1,4	1,4	1,6	1,7	1,8	1,8
y	32	29	30	36	38	40	39	43	45

Блок - схема

Размещено на http://www.allbest.ru/

- 19 -

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

- 19 -

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

- 19 -

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

- 19 -

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

- 19 -

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

- 19 -

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

- 19 -

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

- 19 -

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

- 19 -

Размещено на http://www.allbest.ru/

Процедуре inicializ

Размещено на http://www.allbest.ru/

- 19 -

Размещено на http://www.allbest.ru/

Процедуре tit_list

Размещено на http://www.allbest.ru/

- 19 -

Размещено на http://www.allbest.ru/

Листинг программы

PROGRAM kyrs;

USES Crt, Graph;

VAR a:array [1..9] of real;

b:array [1..9] of real;

s1, s2, s3, s4, b0, b1, x1, y1, x2, y2, x, y, mx, my:real;

mx01, mx08, my09, mx07, mx05, my005, my04, my2, my1, z:integer;

Ga, Gm, i, n, msx, msy:integer;

st:string;

PROCEDURE inicializ;

BEGIN

Ga:=detect;

Gm:=detect;

initgraph (Ga, Gm, 'C:\Pascal\bgi');

END;

PROCEDURE tit_list;

BEGIN

Setbkcolor(1);

Setcolor(14);

Settextstyle (3,0,1);

outtextxy (0,5,'****************************************************');

outtextxy (50,20,'KUZNECKII INSTITYT INFORMACIONNIH I UPRAVLENCESKIH TEHNOLOGII');

outtextxy (250,32,'FILIAL PGU');

outtextxy (200,155,'KURSOVAJA RABOTA');

outtextxy (198,163,'*****************');

outtextxy (85,200,'NA TEMY «RAZRABOTKA PROGRAMMI POSTROENIA GRAFIKA ');

outtextxy (180,223,'EXPERIMENTALNIH TOCEK I PRJAMOI LINII REGRESSII» ');

outtextxy (380,310,'VIPOLNIL: STYDENT GRYPPI 04KM1');

outtextxy (460,325,'DVORNIKOV ANDREI ANATOLEVIH.');

outtextxy (380,343,'PROWERIL: STARSHII PREPODAVATEL ENiTD');

outtextxy (434,358,'ASTAHOVA JYLIA NIKOLAEVNA.');

outtextxy (260,425,'KYZNECK, 2005');

setcolor(14);

settextstyle (7,0,3);

END;

BEGIN

Clrscr;

inicializ;

tit_list;

readkey;

n:=9;

a[1]:=1.1; a[2]:=1.1; a[3]:=1.3; a[4]:=1.4; a[5]:=1.4;

a[6]:=1.6; a[7]:=1.7; a[8]:=1.8; a[9]:=1.8;

b[1]:=32; b[2]:=29; b[3]:=30; b[4]:=36; b[5]:=38;

b[6]:=40; b[7]:=39; b[8]:=43; b[9]:=45;

FOR i:=1 TO n DO

BEGIN

s1:=s1+a[i]; s2:=s2+b[i]; s3:=s3+a[i]*b[i]; s4:=s4+sqr (a[i]);

END;

writeln (s1:7:3); writeln (s2:7:3); writeln (s3:7:3); writeln (s4:7:3);

b1:=((s1*s2) - n*s3)/(sqr(s1) - n*s4);

b0:=(1/n)*(s2-b1*s1);

Writeln ('b1=', b1:10:5); Writeln ('b0=', b0:10:5);

x1:=1.0; y1:=b1*x1+b0;

Writeln ('y1=', y1:10:5);

x2:=1.8; y2:=b1*x2+b0;

Writeln ('y2=', y2:10:5);

inicializ;

mx:= GetmaxX;

mx01:= Round (0.1*mx);

mx07:=Round (0.7*mx);

mx08:= Round (0.8*mx);

my:= GetmaxY;

my09:= Round (0.9*my);

my1:= Round (1*my);

my005:=Round (0.05*my);

my2:= Round (2*my);

my04:= Round (0.4*my);

msx:=Round (mx07/10);

msy:=Round (my1/1);

Setlinestyle (0,0,1);

x:=x1; y:=y1;

moveto (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100));

x:=x2; y:=y2;

Setcolor(2);

lineto (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100));

Setcolor(14);

Setlinestyle (0,0,1);

Line (mx01, my09, mx01, my04);

Line (mx01, my09, mx08, my09);

Setcolor(14);

Line (mx01, my04, mx01-5, my04+5);

Line (mx01, my04, mx01+5, my04+5);

Line (mx08, my09, mx08-5, my09-5);

Line (mx08, my09, mx08-5, my09+5);

y:=0;

WHILE y<=45 DO

BEGIN

str (y:4:0, st);

z:=Round (my09-msy*y/100);

Line (mx01+3, z, mx01-3, z);

OuttextXY (mx01-40, z, st);

y:=y+5;

END;

x:=1;

WHILE x<=1.9 DO

BEGIN

str (x:4:1, st);

z:=Round (msx*x*10+mx01-msx*9);

Line (z, my09+3, z, my09-3);

OuttextXY (z-25, my09+15, st);

x:=x+0.1;

END;

Setcolor(15);

SetLineStyle (3,0,1);

y:=5;

WHILE y<=45 DO

BEGIN

z:=Round (my09-msy*y/100);

Line (mx01+5, z, mx01+440, z);

y:=y+5;

END;

x:=1;

WHILE x<=1.9 DO

BEGIN

z:=Round (mx01+msx*x*10-msx*9);

Line (z, my09-5, z, my09-230);

x:=x+0.1;

END;

OuttextXY (mx01-15, my04,'Y');

OuttextXY (mx08+15, my09,'X');

Setcolor(4);

SetLineStyle (1,0,3);

SettextStyle (0,0,0);

x:=1.1; y:=32;

Circle (Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);

x:=1.1; y:=29;

Circle (Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);

x:=1.3; y:=30;

Circle (Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);

x:=1.4; y:=36;

Circle (Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);

x:=1.4; y:=38;

Circle (Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);

x:=1.6; y:=40;

Circle (Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);

x:=1.7; y:=39;

Circle (Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);

x:=1.8; y:=43;

Circle (Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);

x:=1.8; y:=45;

Circle (Round(mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);

Setcolor(1);

x:=x1; y:=y1;

Circle (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);

x:=x2; y:=y2;

Circle (Round (mx01+msx*x*10-msx*9), Round (my09-msy*y/100), 1);

setfillstyle (1,1);

Bar (2,2,637,170);

Setlinestyle (0,0,3);

Setcolor(14);

Rectangle (1,1,638,171);

OuttextXY (120,175,'GRAFIK EXPERIMENTALNIH TOCEK I PRJAMOI LINII REGRESSII');

OuttextXY (20,60,'b1=19.11111');

OuttextXY (20,70,'b0= 8.85926');

OuttextXY (20,90,'y(x)=b1*x+b0');

OuttextXY (20,110,'x1=1.0 y1=27.97037');

OuttextXY (20,120,'x2=1.8 y2=43.25926');

OuttextXY (310,20,'ZNACENIA EXPERIMENTALNIH TOCEK.');

OuttextXY (270,50,'X 1.1 1.1 1.3 1.4 1.4 1.6 1.7 1.8 1.8');

OuttextXY (270,70,'Y 32 29 30 36 38 40 39 43 45');

Readkey;

END.

Заключение

программа листинг график регрессия

Пройдя курс по дисциплине «АМОРЭ» (автоматизированные методы обработки результатов эксперимента) я разработал программу в среде Turbo Pascal по построению графика прямой линии регрессии. Сам график я построил с помощью математических формул и графического модуля Graph.

Список литературы

1. А.М. Епанешникова, В.А. Епанешникова «Программирование в среде Turbo Pascal 7.0». - М: «Диалог-МИФИ», 2008

2. Е.А. Волков «Численные методы»

3. А.А. Самарский «Введение в численные методы»

Размещено на Allbest.ru