Курсова робота
Розробка програми побудови графіка лінії регресії
Введення
Розробити програму побудови графіка експериментальних точок і прямої лінії регресії.
Таблиця функції
x1, 11,11,31,41,41,61,71,81,8 y322930363840394345
Блок - схема
В
В
В
В
В
В
В В В
Процедурі 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, 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. br/>
Список літератури
1. А.М. Епанешнікову, В.А. Епанешнікову В«Програмування в середовищі Turbo Pascal 7.0В». - М: В«Діалог-МІФІВ», 2008
. Е.А. Волков В«Чисельні методиВ»
. А.А. Самарський В«Введення в чисельні методиВ»
