Download miễn phí Đề 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
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ạ độ xi , yi 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
, toạ độ y)
http://s1.liketly.com/flash/edoc/jh2i1fkjb33wa7b577g9lou48iyvfkz6-swf-2014-01-02-de_tai_cai_dat_bai_toan_khop_duong_cong_bang_phuon.tadgrX21Px.swf /tai-lieu/de-tai-ung-dung-tren-liketly-53449/
Để tải bản Đầy Đủ của tài liệu, xin Trả lời bài viết này, Mods sẽ gửi Link download cho bạn sớm nhất qua hòm tin nhắn.
Ai cần download tài liệu gì mà không tìm thấy ở đây, thì đăng yêu cầu down tại đây nhé:
Nhận download tài liệu miễn phíTóm tắt nội dung tài liệu:
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 Thank 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.
Thank 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.
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 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(c1,c2...., cM, 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) = c1f1(x) + c2f2(x) + ........ +cMfM(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.
1Ê j ÊN
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 x1, x2,x3 và các giá trị tương ứng y1,y2,y3 thoả hàm có dạng:
f(x) = (c1f1(x1) + c2f2(x1) - y1)2
+ (c1f1(x2) + c2f2(x2) - y2)2
+ (c1f1(x3) + c2f2(x3) - y3)2
Để tìm các phép chọn của c1 và c2 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/dc1 và dE/dc2 Với c1 ta có :
dE/dc1 = 2(c1f1(x1) + c2f2(x1) - y1)2 f1(x1)
+ (c1f1(x2) + c2f2(x2) - y2)2 f2(x2)
+ (c1f1(x3) + c2f2(x3) - y3)2 f3(x3)
Việc gán đạo hàm bằng zero cho ra phương trình có biến là c1 và c2 phải thoả (f1(x1), là các "hằng số" có trị biết trước).
c1(f1(x1)f1(x1) + f1(x2)f1(x2) + (f1(x3)f1(x3)
+ c2(f2(x1)f1(x1) + (f2(x2)f1(x2) + (f2(x3)f1(x3))
= y1f1 (x1) + y2f1 (x2) + y3f1 (x3)
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) = Sj= 0 Cjx
với Cj (j = O1m) xác định từ hệ D0C0 +D1C1 + ...... + DmCm = t0
D1C0 +D2C1 + ...... + Dm+1Cm = t1
..............
DmC0 +Dm+1C1 + ...... + D2mCm = tm
Trong đó Dk = S xg (k= 0,2m)
ti = S xg f (xg) (i = o1m)
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ạ độ xi , yi 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, toạ độ y)
2.2. Tính mảng
-Tính toán các hệ số của mảng
a [j], b theo hệ pt (1)
2.3.Dùng phương pháp gauss và thuật toán sytru giải hệ pt (1)
Gauss
Input n, (ại)1n; (bi)1n
IER = 0
akk ạ 0
Pi=aik/akk
k= 1, 2,...,n
i= k + 1, ..., n
j= k + 1, ..., n
aỵj = piakj
bi = bi - pibk
Call Sytru
IER = 1
Print (xi)1n
End
Thuật toán gauss (Đưa ma trận về dạng tam giác )
no
yes thuật toán Sytru (giải hệ phương trình dạng tam giác)
IRE = 1
Procedure
Input n, {bi}1n, aij (1Ê i Ê j Ê n)
IER = 0
ann ạ 0
xn = bn / ann
i = n-1, n-2,...,1
S = bi
j = i + 1, ..., n
S = S - aijxij
aij ạ 0
xi = S/aij
Return
Procedure
Input n, {bi}1n, aij (1Ê i Ê j Ê n)
IER = 0
ann ạ 0
xn = bn / ann
i = n-1, n-2,...,1
S = bi
j = i + 1, ..., n
S = S - aijxij
aij ạ 0
xi = S/aij
Return
no
yes
no
yes
2.4. Xây dựng hàm tính giá trị
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 xmin , xmax , ymin , ymax ,trong toàn đồ thị và các điểm nhập vào xác định kx , xy
Kx = (Lmax - Lmin)/ (xmax - xmin)
(Hmax - H min)
(ymax - ymin)
Ky =
vẽ đồ thị từ điểm
x1-> x2 , x = x1,
i = 0
while x<x2
i = i + 1
Begin
x = x1 + x2 i/ kx
y vẽ = H max- (f(x) - ymin)*xy
if'i = 1 -> move to (i + lmin, y vẽ)
ESC line to (i + lmin, yvẽ)
+ vẽ trục, toạ độ
+ vẽ các điểm nhập vào
For i = 1 -> n
Begin
x = kx + (toạ độ x) - y min)
y vẽ = Hmax - (Toado y) - ymin)*ky
vẽ điểm (x+lmin, yvẽ, toạ độ x, toạ độ y);
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: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);
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);
write('vao toa do cua diem ',i,' y=');readln(toadoy);
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+}
...
