|
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
|
43
|
45
|
Блок - схема
Процедуре 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');;
Заключение
программа листинг график регрессия
Пройдя курс по дисциплине «АМОРЭ» (автоматизированные методы
обработки результатов эксперимента) я разработал программу в среде Turbo Pascal по построению графика
прямой линии регрессии. Сам график я построил с помощью математических формул и
графического модуля Graph.
Список литературы
1.
А.М. Епанешникова, В.А. Епанешникова «Программирование в среде Turbo Pascal 7.0». - М:
«Диалог-МИФИ», 2008
.
Е.А. Волков «Численные методы»
.
А.А. Самарский «Введение в численные методы»