Ngày nay thế giới chúng ta đã và đang là kỷ nguyên của sự bùng nổ thông tin. Trong thời đại ngày nay khoa học kỹ thuật ngày một được ứng dụng rộng rãi khắp mọi nơi trong mọi lĩnh vực, mọi nghành nghề và tin học phát triển không ngừng từng giây, từng phút.Máy tính điện tử đươc sử dụng ,khai thác triệt để trong mọi công việc , như trong hàng không , quân sự , ngân hàng ,đo lường , tính toán , và nó cũng được sử dụng để giải quyết các bài toán từ đơn giản đến phức tạp.Đề tài thực tập tốt nghiệp này cũng đựơc áp dụng để thực hiện , tên đề tài: Cài đặt bài toán:"Khớp đường cong" bằng phương pháp bình phương nhỏ nhất. Để hoàn thành đề tài tốt nghiệp này, bên cạnh nỗ lực của bản thân em còn nhận được sự giúp quý báu của các thầy, cô và các bạn.
LỜI NÓI ĐẦU Ngày nay thế giới chúng ta đã và đang là kỷ nguyên của sự bùng nổ thông tin. Trong thời đại ngày nay khoa học kỹ thuật ngày một được ứng dụng rộng rãi khắp mọi nơi trong mọi lĩnh vực, mọi nghành nghề và tin học phát triển không ngừng từng giây, từng phút.Máy tính điện tử đươc sử dụng ,khai thác triệt để trong mọi công việc , như trong hàng không , quân sự , ngân hàng ,đo lường , tính toán , và nó cũng được sử dụng để giải quyết các bài toán từ đơn giản đến phức tạp.Đề tài thực tập tốt nghiệp này cũng đựơc áp dụng để thực hiện , tên đề tài: Cài đặt bài toán:"Khớp đường cong" bằng phương pháp bình phương nhỏ nhất. Để hoàn thành đề tài tốt nghiệp này, bên cạnh nỗ lực của bản thân em còn nhận được sự giúp quý báu của các thầy, cô và các bạn. Em xin chân thành cảm ơn thầy Dương Thăng Long đã tận tình hướng dẫn em trong suốt quá trình thực hiện đề tài. Cảm ơn khoa Công nghệ tin học đã tạo mọi điều kiện giúp đỡ em trong suốt quá trình học tập ở trường và các thầy cô đã hết lòng truyền đạt cho em những kiến thức và kinh nghiệm quý giá. Cũng như tất cả các bạn đã cùng trao đổi giúp đỡ nhau trong quá trình học tập. 1 CƠ SỞ VÀ CÁC THUẬT TOÁN TRONG ĐỀ TÀI "KHỚP ĐƯỜNG CONG" BẰNG PHƯƠNG PHÁP BÌNH PHƯƠNG NHỎ NHẤT 1. Cơ sở: Khi những giá trị dữ liệu không chính xác, thường ta cần phải tưởng tượng ra hình dạng của hàm khớp và dữ liệu. Hàm này có thể phụ thuộc một tham số. f(x) = f(c 1 ,c 2 , c M , x) và thủ tục điều chỉnh đường cong là tìm cách chọn các tham số nào khớp nhất với các giá trị quan sát được ở các điểm đã cho. Nếu hàm là một đa thức (với tham số là những hệ số) và các giá trị là chính xác thì đây chính là phép nội suy. Nhưng ta đang xét những hàm tổng quát hơn và dữ liệu không đúng. Để giản đơn hoá vấn đề, ta tập trung vào việc nối những hàm là tổ hợp tuyến tính của hàm đơn giản hơn, với các tham số ẩn là các hệ số: f(x) = c 1 f 1 (x) + c2f 2 (x) + +c M f M (x) Hàm này bao hàm hầu hết các hàm mà ta quan tâm. Sau khi nghiên cứu xong trường hợp này, ta sẽ xét đến những hàm tổng quát hơn. Một các phổ thông để đo mức độ tốt của hàm nối là tiêu chuẩn bình phương tổng quát. Ở đây sai số được tính bằng cách thêm vào bình phương sai số ở mỗi điểm quan sát được. E = Z (f(xj) - ỵ) 2 Đây là một phép đo rất tự nhiên: bình phương được thực hiện để làm khử các ước lược giữa các sai số với các số hiệu khác nhau. Hiển nhiên, điều người ta mong muốn nhất là tìm ra một phép chọn các tham số sao cho tối thiểu hoá E. Điều này khiến phép chọn có thể được tính có hiệu qủa; đây là phương pháp bình phương nhỏ nhất, phương pháp này đúng như định nghĩa của nó. Để đơn giản hoá đạo hàm, xét trường hợp M=2, N=3. Giả sử có ba điểm x 1 , x 2 ,x 3 và các giá trị tương ứng y 1 ,y 2 ,y 3 thoả hàm có dạng: f(x) = (c 1 f 1 (x1) + c2f 2 (x1) - y 1 ) 2 + (c 1 f 1 (x2) + c2f 2 (x2) - y 2 ) 2 + (c 1 f 1 (x3) + c2f 2 (x3) - y 3 ) 2 Để tìm các phép chọn của c 1 và c 2 sao chỏ tối tiểu hoá sao số này, đơn gian chỉ cần gán zero các đạo hàm dE/dc 1 và dE/dc 2 Với c 1 ta có : dE/dc 1 = 2(c 1 f 1 (x1) + c2f 2 (x1) - y 1 ) 2 f 1 (x 1 ) 2 1≤ j ≤N + (c 1 f 1 (x2) + c2f 2 (x2) - y 2 ) 2 f 2 (x 2 ) + (c 1 f 1 (x3) + c2f 2 (x3) - y 3 ) 2 f 3 (x 3 ) Việc gán đạo hàm bằng zero cho ra phương trình có biến là c 1 và c 2 phải thoả (f1(x1), là các "hằng số" có trị biết trước). c 1 (f 1 (x 1 )f 1 (x 1 ) + f 1 (x 2 )f 1 (x 2 ) + (f 1 (x 3 )f 1 (x 3 ) + c 2 (f 2 (x 1 )f 1 (x 1 ) + (f 2 (x 2 )f 1 (x 2 ) + (f 2 (x 3 )f 1 (x 3 )) = y 1 f 1 (x 1 ) + y 2 f 1 (x 2 ) + y 3 f 1 (x 3 ) Ta có phương trình tương tự, khi gán đạo hàm dE/dc2 về zero Giả sử đa thức xấp xỉ bậc m của f là P(x) = Σ j=0 Cjx với Cj (j = O 1 m) xác định từ hệ ∆ 0 C 0 +∆ 1 C 1 + + ∆ m C m = t 0 ∆ 1 C 0 +∆ 2 C 1 + + ∆ m+1 C m = t 1 ∆ m C 0 +∆ m+1 C 1 + + ∆ 2m C m = t m Trong đó ∆ k = Σ xγ (k= 0,2m) ti = Σ xγ f (xγ) (i = o 1 m) với Cj (j = 0,m) xác định từ hệ phương trình trên trong đó. 2. Các thuật toán dùng trong chương trình Cài đặt bài toán: "Khớp đường cong" bằng phương pháp bình phương nhỏ nhất 2.1. Nhập dữ liệu + nhập từ file: Nhập các toạ độ x i , y i vào máy toạ độ, số điểm n, bậc m của đa thức. - hỏi xem có ghi vào file không nếu hỏi nhập tên tên file ghi dữ liệu vào file đó. + nhập từ file: yêu cầu nhập vào tên file, đọc file Read (f,n,m) nạp các qt từ file vào hai mảng toạ độ do x, toạ độ y For i = 1-> n Read (f, toạ độ x[i], toạ độ y[i]) 2.2. Tính mảng -Tính toán các hệ số của mảng a[i] [j], b[i] theo hệ pt (1) 2.3.Dùng phương pháp gauss và thuật toán sytru giải hệ pt (1) 3 Thuật toán gauss (Đưa ma trận về dạng tam giác ) no yes 4 Gauss Input n, (ại) 1 n ; (b i ) 1 n IER = 0 a kk ≠ 0 P i =a ik /a kk k= 1, 2, .,n i= k + 1, ., n j= k + 1, ., n a ỵj = p i a kj b i = b i - p i b k Call Sytru IER = 1 Print (x i ) 1 n End thuật toán Sytru (giải hệ phương trình dạng tam giác) no yes no yes 2.4. Xây dựng hàm tính giá trị 5 IRE = 1 Procedure Input n, {b i } 1 n , a ij (1≤ i ≤ j ≤ n) IER = 0 a nn ≠ 0 x n = b n / a nn i = n-1, n-2, .,1 S = b i j = i + 1, ., n S = S - a ij x ij a ij ≠ 0 x i = S/a ij Return Procedure Input n, {b i } 1 n , a ij (1≤ i ≤ j ≤ n) IER = 0 a nn ≠ 0 x n = b n / a nn i = n-1, n-2, .,1 S = b i j = i + 1, ., n S = S - a ij x ij a ij ≠ 0 x i = S/a ij Return 2.4.1. Hàm tính luỹ thừa Fuction luỹ thừa (x: Real; n: integer): real. S : Real i : integer S = 1 For i = 1 → n S = S*x Return S.; 2.4.2. Xây dựng hàm tính f(x) For i = m → 0 S = S + C (i + 1) + luỹ thừa (x, i) 3. Vẽ đồ thị 3.1. Tìm x min , x max , y min , y max ,trong toàn đồ thị và các điểm nhập vào xác định k x , x y Kx = (Lmax - Lmin)/ (x max - x min ) K y = vẽ đồ thị từ điểm x 1 -> x 2 , x = x 1 , i = 0 while x<x 2 i = i + 1 Begin x = x 1 + x 2 i/ kx y vẽ = H max - (f(x) - y min)* xy if'i = 1 -> move to (i + l min , y vẽ ) ESC line to (i + l min , y vẽ ) + vẽ trục, toạ độ + vẽ các điểm nhập vào For i = 1 -> n 6 (y max - y min ) (Hmax - H min) Begin x = kx + (toạ độ x[i]) - y min ) y vẽ = H max - (Toado y[i]) - y min )*ky vẽ điểm (x+l min , y vẽ , toạ độ x[i], toạ độ y[i]); 4. Chương trình bằng phương pháp bình phương Mã nguồn uses crt,graph; const Hmin=150; Lmin=200; Hmax=480-Hmin; Lmax=640-Lmin; Type mang2=array[1 20,1 20] of real; mang1=array[1 20] of real; mang_diem=array[1 20] of real; var a:mang2; b:mang1; n,m:integer; toadox,toadoy:mang_diem; c:mang1; ok:boolean; r:real; (*----------------------------*) procedure hien_mang(so:integer;a:mang2;b:mang1); var i,j:integer; Begin {for i:=1 to so do begin for j:=1 to so do write(a[i,j]:0:2,' '); write(' | ',b[i]:0:2); writeln; end; } End; (*----------------------------*) function luythua(x:real;n:integer):real; var i:integer; s:real; Begin s:=1; if n>0 then for i:=1 to n do s:=s*x; luythua:=s; End; (*----------------------------*) procedure nhap_tu_ban_fim(var n,m:integer;var toadox,toadoy:mang_diem); 7 var i:integer; x,y:real; ch:char; tenfile:string; f:text; Begin textcolor(14); textbackground(1); window(1,1,80,24); clrscr; write('Nhap vao so diem:');readln(n); writeln('Nhap vao cac diem:'); for i:=1 to n do begin write('vao toa do cua diem ',i,' x=');readln(toadox[i]); write('vao toa do cua diem ',i,' y=');readln(toadoy[i]); end; write('Nhap vao so bac:');readln(m); Writeln('Nhap Du Lieu OK !'); repeat Write('Ban CO Muon Ghi Du Lieu Vao File Khong (C/K)?:'); ch:=readkey; until upcase(ch) in['C','K']; writeln; if upcase(ch)='C' then Begin write('Moi nhap vao ten file:'); readln(tenfile); assign(f,tenfile); {$I-} rewrite(f); if IOResult <>0 then begin gotoxy(30,10); Writeln('File not found'); readln; exit; end; {$I+} writeln(f,n,' ',m); for i:=1 to n do write(f,toadox[i],' ',toadoy[i],' '); close(f); Writeln('Nhap File OK !'); readkey; end; end; (*----------------------------------*) procedure nhap_tu_file(var n,m:integer; var toadox,toadoy:mang_diem); var f:text; 8 tenfile:string; i:integer; Begin n:=0; m:=0; write('Moi nhap vao ten file:'); readln(tenfile); assign(f,tenfile); {$I-} reset(f); if IOResult <>0 then begin gotoxy(30,10); Writeln('File not found'); readln; exit; end; {$I+} readln(f,n,m); for i:=1 to n do read(f,toadox[i],toadoy[i]); close(f); Writeln(' Nhap Tu File Ok !'); readkey; End; (*----------------------------------*) procedure tinh_mang; var i,j,dem:integer; so:array[0 200] of real; Begin dem:=0; for i:=0 to 2*m do begin so[i]:=0; for j:=1 to n do so[i]:=so[i]+luythua(toadox[j],i); end; for i:=0 to m do begin dem:=i*2-1; for j:=i to m do begin dem:=dem+1; a[i+1,j+1]:=so[dem]; a[j+1,i+1]:=so[dem]; end; end; for i:=0 to m do begin b[i+1]:=0; for j:=1 to n do b[i+1]:=b[i+1]+toadoy[j]*luythua(toadox[j],i); 9 end; End; (*--------------- Giai Phuong Trinh --------------*) procedure gauss(m:integer;a:mang2;b:mang1; var nghiem:mang1;var ok:boolean); var k,i,j:integer; s:real; mi:mang1; Begin ok:=true; for i:=1 to m+1 do Begin if a[i,i]=0 then begin ok:=false;exit;end; for j:=i+1 to m+1 do mi[j]:=a[j,i]/a[i,i]; for j:=i+1 to m+1 do begin for k:=1 to m+1 do a[j,k]:=a[j,k]-a[i,k]*mi[j]; b[j]:=b[j]-b[i]*mi[j]; end; End; (*----------------Sytru-------------*) nghiem[m+1]:=b[m+1]/a[m+1,m+1]; for i:=m downto 1 do Begin s:=b[i]; for j:=i+1 to m+1 do s:=s-a[i,j]*nghiem[j]; nghiem[i]:=s/a[i,i]; end; End; (*----------------------------------*) function f(x:real;n,m:integer;c:mang1):real; var s:real; i:integer; Begin s:=0; for i:=m downto 0 do s:=s+c[i+1]*luythua(x,i); f:=s; End; (*----------------------------------*) Procedure Tinh_Min_Max_X_Y_(n,m:integer;c:mang1; var kx:real;var xmin,xmax,ymin,ymax:real); var i,j:integer; x:real; Begin xmin:=toadox[1]; xmax:=toadox[1]; ymin:=toadoy[1]; 10