1.Nội dung đề Đề số 18: Đánh giá độ tin cậy hệ thống không phục hồi khả hệ thống đảm bảo tiêu chí kỹ thuật điều kiện thời gian cho trước + Vẽ đường cong lý thuyết P ( t ) = e −λt + Vẽ đường cong thực nghiệm P(t) với thông số sau: λ1 = 0,1.10−3 l / h λ2 = 0, 2.10−3 l / h λ3 = 0, 3.10−3 l / h λ4 = 0,1.10 −4 l / h λ5 = 0, 2.10−4 l / h λ6 = 0, 3.10−4 l / h Phân tích đề tóm tắt phương pháp mô hình hóa Phương pháp mô hình hoá xác suấ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, sở người ta nhận dáng điệu phản ứng hệ thống tín hiệu đầu hệ thống Phương pháp thường gọi phương pháp mô Mỗi lần thực phép thử người ta thu lời giải chứa đựng thông tin dáng điệu hệ thống S Nếu số phép thử N đủ lớn kết thu lấy trung bình theo xác suất ổn định đạt độ xác cần thiết Phương pháp mô thường dùng để nghiên cứu hệ ngẫu nhiên đồng thời số trường hợp dùng để giải toán hệ tiền định Phân tích thuật giải a Chọn dãy Ui phân bố khoảng (0,1): Ui ~ U(0,1) b Tính ti = − ln U i λ c So sánh ti với T ti ≥ T : thiết bị làm việc tin cậy ti < T : thiết bị làm việc không tin cậy d Thực N thử nghiệm từ bước a đến bước c Độ tin cậy thiết bị đánh sau: P ( ti > T) ≈ solanlamviectincay solanlamviecthunghiemN Nếu N lớn đánh giá xác Lưu đồ thuật toán Viết chương trình mô Dùng Visual Basic 6.0 Private Sub Mophong_Click() Dim lamda, nmax, k, m, ttb, ti, u Dim p(12), plt(12), n(12), X(12) If IsNumeric(Text1) = False Then MsgBox ("Ban hay chon gia tri cho lamda!") Else lamda = CDbl(Text1.Text) nmax = CDbl(Text2.Text) k=0 ttb = / lamda Do k=k+1 u = Rnd() ti = -ttb * Log(u) For m = To 12 If (ti > m * 0.1 * ttb) Then n(m) = n(m) + End If Next Loop Until (k > nmax) ' Xac dinh plt,ptt For m = To 12 p(m) = n(m) / nmax plt(m) = Exp(-m * 0.1) Next For m = To 12 X(m) = m * 0.1 * ttb Next ' Ve thi Picture1.Scale (-ttb / 12, 1.3)-(1.25 * ttb, -0.1) For m = To 12 Picture1.Line (X(m - 1), p(m - 1))-(X(m), p(m)), vbRed Picture1.Line (X(m - 1), plt(m - 1))-(X(m), plt(m)), vbGreen Next Picture1.Line (0, 2)-(0, -2) 'oy For m = To 12 Picture1.CurrentX = m * 0.1 * ttb Picture1.CurrentY = 0.02 Picture1.Print m * 0.1 Next ' Danh toa truc y For m = To 12 Picture1.CurrentX = -ttb / 15 Picture1.CurrentY = plt(m) Picture1.Print Round(plt(m), 1) Next ' Xac dinh u,ttb Text3.Text = Val(ttb) Text4 = u End If End Sub Thiết kế giao diện Kết 10 Nhận xét, kết luận - Kết thay đổi thông số đầu vào khác nhau, giá trị thực nghiệm lý thuyết xấp xỉ cho thấy lý thuyết gần với thực nghiệm - Đường cong thực tế gần trùng với đường cong lý thuyết 11 Tài liệu tham khảo [1] Giáo trình mô hình hóa hệ thống-Khoa điện điện tử tàu biển-Trường Đại học hàng hải Việt Nam-2011 [2] Kỹ lập trình Visualbasic 6.0-Nguyễn Tiến Dũng-NXB Thống kê-2011 10 ... làm việc không tin cậy d Thực N thử nghiệm từ bước a đến bước c Độ tin cậy thiết bị đánh sau: P ( ti > T) ≈ solanlamviectincay solanlamviecthunghiemN Nếu N lớn đánh giá xác Lưu đồ thuật toán Viết... toán hệ tiền định Phân tích thuật giải a Chọn dãy Ui phân bố khoảng (0,1): Ui ~ U(0,1) b Tính ti = − ln U i λ c So sánh ti với T ti ≥ T : thiết bị làm việc tin cậy ti < T : thiết bị làm việc không. ..đựng thông tin dáng điệu hệ thống S Nếu số phép thử N đủ lớn kết thu lấy trung bình theo xác suất ổn định đạt độ xác cần thiết Phương pháp mô thường dùng để nghiên cứu hệ ngẫu nhiên đồng thời số