1.Tên nội dung đề bài: Thời tiết thành phố Hồ Chí Minh kết tổ hợp yếu tố thời tiết sau đây: Mưa –Trời đầy mây - Mây thay đổi-Nắng Mưa + Trời đầy mây +Mây thay đổi Dự báo :Mưa Mưa +Mây thay đổi +Nắng Dự báo : Mát Trời đầy mây +Mây thay đổi + Nắng Dự báo :Nắng Nếu ngày có 0,1,2 yếu tố tác động dự báo theo xu thời tiét ngày trước Mưa – tuân theo luật phân bố mũ với cường độ λ1 1/ngày Nắng – tuân theo luật phân bố mũ với cường độ λ 1/ngày Trời đầy mây – tuân theo luật phân bố từ a đến b ngày Mây thay đổi tuân theo luật phân bố từ c đến d ngày Hãy thiết lập toán ,chọn thồng số luật phân bố tiến hành mô dự báo thời tiết ứng với mùa mưa nắng(khô) Đưa dự báo tuần 2.Phân tích đề Như đề yêu cầu đưa dự bào thời tiết thành phố Hồ Chí Minh tuần Việc đưa dự báo mưa,nắng,mát phụ thuộc vào kiện hơm có xảy tượng kiện:mưa,nắng ,mây thay đổi,trời đầy mây.Và kiện xuất tuân theo luật phân bố mũ phân bố trên,việc đưa dự báo hoàn toàn phụ thuộc vào giá trị xác suất nhập vào từ người sử dụng,và việc mùa mưa hay khô (nắng ) người sử dụng nhập vào thông qua giá trị tham số Như hệ thống ngẫu nhiên ,và ta sử dụng phương pháp mơ hệ ngẫu nhiên để làm tốn Đặc điểm chung phương pháp mô hệ ngẫu nhiên:nó cịn có tên Monte-Carlo.Phương pháp sử dụng số ngẫu nhiên có phân bố xác suất định Thực chất xây dựng máy tính hệ thống S với quan hệ nội nó,ở đầu vào có tác động mang tính ngẫu nhiên môi trường xung quanh E,trên sở ta nhận dáng điệu phản ứng hệ thống tín hiệu đầu hệ thống Mỗi lần thực phép thử ta thu kết chứa đựng thông tin hệ thống Nếu số phép thử lớn kết thu lấy trung bình chinh xác ổn định Để mô ,ta cần số ngẫu nhiên ,số ngẫu nhiên phân bố đầu khoảng (0,1) thường làm sở sinh số phân bố khác Để tạo ta dùng máy phát số ngẫu nhiên dùng bảng số ngẫu nhiên dùng algorithm tạo số giả ngẫu nhiên .Để tạo phân bố mũ Expo( β ): Lấy U~U(0,1) Vậy X= - β *ln(U) Để tạo phân bố U(a,b): Lấy U~U(0,1) Vậy X=a+(b-a)*U 3.Xác định biến ngẫu nhiên Theo đề ta có biến ngẫu nhiên :Um(mưa),Un(nắng),Utdm(trời đầy mây),Umtd(mây thay đổi) tuân theo luật phân bố mũ U(a,b) 4.Phân tích thuật giải Theo yêu cầu toan ta có thuật giải để làm sau: Đầu tiên tạo số ngẫu nhiên U(0,1),rồi từ tạo số ngẫu nhiên theo luật phân bố mũ,đều tương ứng.Từ ta tính xác suất xuất yếu tố mưa ,nắng ,trời đầy mây,mây thay đổi ngày tuần.Qua số liệu thu ta đưa dự báo thích hợp Tìm khoảng cách ngày có mưa-có mưa, có nắng-có nắng Tìm kiện thời tiết ngày tuần So sánh kiện thời tiết tác động ngày với luật cho để đưa dự báo thời tiết ngày 5.Lưu đồ tính toán Các thụng số thời tiết Mưa+Trời đầy mây+Mây thay đổi Mưa+Mây thay đổi+Nắng MÁT Trời đầy mây+Mây thay đổi+Nắng ` MƯA NẮNG Thời tiết ngày trước Mưa+ Mưa Nắng+ nắng Mát+ Mát Mưa+ Mát Mưa Nắng Mát Mưa Mưa+ Nắng Mát+ Nắng Mát Nắng 6.Xác định điều kiện đầu,mô ngừng mô Các điều kiện đầu để mô tham số cho phân bố mũ lamda1,lamda2 phân bố a,b,c,d thời tiết ngày trước (tức thứ chủ nhật tuần trước),chương trình tính tốn đưa dự báo thích hợp theo thơng số nhập theo thuật tốn trên.Chương trình dừng lại có u cầu cầu người dùng 7.Chương trình mụ Private Sub dubao() 'khai bao bien: Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim k1 As Integer Dim k2 As Integer Dim k3 As Integer Dim k4 As Integer Dim i As Integer Dim Um As Double Dim Un As Double Dim Utdm As Double Dim Umtd As Double Dim lamda1 As Double Dim lamda2 As Double Dim ngay(1 To 10) As String Dim mua(1 To 10) As Integer Dim nang(1 To 10) As Integer Dim trdmay(1 To 10) As Integer Dim mtdoi(1 To 10) As Integer 'nhap cac gia tri tu ban phim : lamda1 = Val(Text1.Text) lamda2 = Val(Text2.Text) a = Val(Text3.Text) b = Val(Text4.Text) c = Val(Text5.Text) d = Val(Text6.Text) ngay(1) = "TROI " & UCase(Text7.Text) 'thoi tiet hom thu ngay(2) = "TROI " & UCase(Text8.Text) 'thoi tiet hom chu nhat If (lamda1 < 0) Or (lamda2 < 0) Or (a > b) Or (c > d) Or (a < 0) Or (b < 0) Or (c < 0) Or (d < 0) Or (Text7.Text = "") Or (Text8.Text = "") Then MsgBox ("Ban Nhap Sai Hoac Thieu So Lieu Roi! Moi Ban Nhap Lai!!") Else 'khoi tao cac gia tri ngau nhien: Um = Rnd Um = (-lamda1) * Log(Um) 'khoang cach giua lan co mua k1 = Abs(Round(Um, 0)) 'lam tron so Un = Rnd Un = (-lamda2) * Log(Un) 'khoang cach giua lan co nang k2 = Abs(Round(Un, 0)) 'lam tron so Utdm = Rnd Utdm = a + (b - a) * Utdm 'khoang cach giua lan co troi day may k3 = Abs(Round(Utdm, 0)) 'lam tron so Umtd = Rnd Umtd = c + (d - c) * Umtd 'khoang cach giua lan co may thay doi k4 = Abs(Round(Umtd, 0)) 'lam tron so For i = To mua(i) = nang(i) = trdmay(i) = mtdoi(i) = Next i If (k1 > 9) Then k1 = End If If (k2 > 9) Then k2 = End If If (k3 > 9) Then k3 = End If If (k4 > 9) Then k4 = End If If k1 > Then For i = To k1 mua(i) = Next i End If If k2 > Then For i = To k2 nang(i) = Next i End If If k3 > Then For i = To k3 trdmay(i) = Next i End If If k4 > Then For i = To k4 mtdoi(i) = Next i End If 'tim cac co su kien mua 'tim cac co su kien nang 'tim cac co su kien troi day may 'tim cac co su kien may thay doi 'du bao thoi tiet cac tuan toi: i=3 Do k1 = k2 = k3 = If (mua(i - 2) = 1) And (nang(i - 2) = 1) And (mtdoi(i - 2) = 1) And (trdmay(i - 2) = 0) Then ngay(i) = "TROI MAT" k1 = End If If (mua(i - 2) = 1) And (trdmay(i - 2) = 1) And (mtdoi(i - 2) = 1) And (nang(i - 2) = 0) Then ngay(i) = "TROI MUA" k2 = End If If (trdmay(i - 2) = 1) And (mtdoi(i - 2) = 1) And (nang(i - 2) = 1) And (mua(i - 2) = 0) Then ngay(i) = "TROI NANG" k3 = End If If (k1 = 0) And (k2 = 0) And (k3 = 0) Then If StrComp(UCase(ngay(i - 2)), "TROI MUA") = And StrComp(UCase(ngay(i - 1)), "TROI MUA") = Then ngay(i) = "TROI MUA" End If If StrComp(UCase(ngay(i - 2)), "TROI NANG") = And StrComp(UCase(ngay(i - 1)), "TROI NANG") = Then ngay(i) = "TROI NANG" End If If StrComp(UCase(ngay(i - 2)), "TROI MAT") = And StrComp(UCase(ngay(i - 1)), "TROI MAT") = Then ngay(i) = "TROI MAT" End If If StrComp(UCase(ngay(i - 2)), "TROI MUA") = And StrComp(UCase(ngay(i - 1)), "TROI MAT") = Then ngay(i) = "TROI MUA" End If If StrComp(UCase(ngay(i - 2)), "TROI MAT") = And StrComp(UCase(ngay(i - 1)), "TROI MUA") = Then ngay(i) = "TROI MUA" End If If StrComp(UCase(ngay(i - 2)), "TROI MUA") = And StrComp(UCase(ngay(i - 1)), "TROI NANG") = Then ngay(i) = "TROI MAT" End If If StrComp(UCase(ngay(i - 2)), "TROI NANG") = And StrComp(UCase(ngay(i - 1)), "TROI MUA") = Then ngay(i) = "TROI MAT" End If If StrComp(UCase(ngay(i - 2)), "TROI MAT") = And StrComp(UCase(ngay(i - 1)), "TROI NANG") = Then ngay(i) = "TROI NANG" End If If StrComp(UCase(ngay(i - 2)), "TROI NANG") = And StrComp(UCase(ngay(i - 1)), "TROI MAT") = Then ngay(i) = "TROI NANG" End If End If i=i+1 Loop Until i = 10 'dua thong bao Text9 = ngay(3) Text10 = ngay(4) Text11 = ngay(5) Text12 = ngay(6) Text13 = ngay(7) Text14 = ngay(8) Text15 = ngay(9) If ngay(3) = "TROI MUA" Then mua2.Visible = True maym2.Visible = True mat2.Visible = False mayn2.Visible = False End If If ngay(3) = "TROI NANG" Then mat2.Visible = True mayn2.Visible = True mua2.Visible = False maym2.Visible = False End If If ngay(3) = "TROI MAT" Then mat2.Visible = True maym2.Visible = True mayn2.Visible = False mua2.Visible = False End If If ngay(4) = "TROI MUA" Then mua3.Visible = True maym3.Visible = True mat3.Visible = False mayn3.Visible = False End If If ngay(4) = "TROI NANG" Then mat3.Visible = True mayn3.Visible = True mua3.Visible = False maym3.Visible = False End If If ngay(4) = "TROI MAT" Then mat3.Visible = True maym3.Visible = True mayn3.Visible = False mua3.Visible = False End If If ngay(5) = "TROI MUA" Then mua4.Visible = True maym4.Visible = True mat4.Visible = False mayn4.Visible = False End If If ngay(5) = "TROI NANG" Then mat4.Visible = True mayn4.Visible = True mua4.Visible = False maym4.Visible = False End If If ngay(5) = "TROI MAT" Then mat4.Visible = True maym4.Visible = True mayn4.Visible = False mua4.Visible = False End If If ngay(6) = "TROI MUA" Then mua5.Visible = True maym5.Visible = True mat5.Visible = False mayn5.Visible = False End If If ngay(6) = "TROI NANG" Then mat5.Visible = True mayn5.Visible = True mua5.Visible = False maym5.Visible = False End If If ngay(6) = "TROI MAT" Then mat5.Visible = True maym5.Visible = True mayn5.Visible = False mua5.Visible = False End If If ngay(7) = "TROI MUA" Then mua6.Visible = True maym6.Visible = True mat6.Visible = False mayn6.Visible = False End If If ngay(7) = "TROI NANG" Then mat6.Visible = True mayn6.Visible = True mua6.Visible = False maym6.Visible = False End If If ngay(7) = "TROI MAT" Then mat6.Visible = True maym6.Visible = True mayn6.Visible = False mua6.Visible = False End If If ngay(8) = "TROI MUA" Then mua7.Visible = True maym7.Visible = True mat7.Visible = False mayn7.Visible = False End If If ngay(8) = "TROI NANG" Then mat7.Visible = True mayn7.Visible = True mua7.Visible = False maym7.Visible = False End If If ngay(8) = "TROI MAT" Then mat7.Visible = True maym7.Visible = True mayn7.Visible = False mua7.Visible = False End If If ngay(9) = "TROI MUA" Then muacn.Visible = True maymcn.Visible = True matcn.Visible = False mayncn.Visible = False End If If ngay(9) = "TROI NANG" Then matcn.Visible = True mayncn.Visible = True muacn.Visible = False maymcn.Visible = False End If If ngay(9) = "TROI MAT" Then matcn.Visible = True maymcn.Visible = True mayncn.Visible = False muacn.Visible = False End If End If End Sub Private Sub Command1_Click() Call dubao End Sub Private Sub Command2_Click() form2.Show End Sub Private Sub Command4_Click() Beep End End Sub 8.Thiết kế giao diện  Bài sử dụng phần mềm Visual Basic để thiết kế giao diện tớnh toỏn 9.Kết Ta chương trình mơ sau : 10.Nhận xét Như việc mô hệ ngẫu nhiên ta đưa dự báo thời tiết TPHCM tuần,dựa vào thơng số cần thiết nhập Tuy khơng dự báo xác thời tiết ví dụ điển hình cho phương pháp mơ hình hóa hệ ngẫu nhiên ,kết thu ,trong phạm vi toán đáng tin cậy 11.Tài liệu tham khảo [1].Giáo trình Mơ hình hóa hệ thống mơ (GS.TS Nguyễn Cơng Hiền) [2].Giáo trình tự học lập trình Visual Basic 6.0 (Nguyễn Tiến,Đặng Xuân Hường,Nguyễn Văn Hoài,Trương NGọc Lan) ... xét Như việc mô hệ ngẫu nhiên ta đưa dự báo thời tiết TPHCM tuần,dựa vào thơng số cần thiết nhập Tuy khơng dự báo xác thời tiết ví dụ điển hình cho phương pháp mơ hình hóa hệ ngẫu nhiên ,kết thu... khoảng cách ngày có mưa-có mưa, có nắng-có nắng Tìm kiện thời tiết ngày tuần So sánh kiện thời tiết tác động ngày với luật cho để đưa dự báo thời tiết ngày 5.Lưu đồ tính tốn Các thụng số thời tiết. .. Để mô ,ta cần số ngẫu nhiên ,số ngẫu nhiên phân bố đầu khoảng (0,1) thường làm sở sinh số phân bố khác Để tạo ta dùng máy phát số ngẫu nhiên dùng bảng số ngẫu nhiên dùng algorithm tạo số giả ngẫu