Nghiên cứu ứng dụng logic mờ để xây dựng mô hình dự báo tình trạng của dự án trong giai đoạn thi công, so sánh với các mô hình dự báo khác

142 7 0
Nghiên cứu ứng dụng logic mờ để xây dựng mô hình dự báo tình trạng của dự án trong giai đoạn thi công, so sánh với các mô hình dự báo khác

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

Thông tin tài liệu

ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH TRƯỜNG ĐẠI HỌC BÁCH KHOA - PHẠM CHÍ NGUYỆN NGHIÊN CỨU ỨNG DỤNG LOGIC MỜ ĐỂ XÂY DỰNG MƠ HÌNH DỰ BÁO TÌNH TRẠNG CỦA DỰ ÁN TRONG GIAI ĐOẠN THI CƠNG, SO SÁNH VỚI CÁC MƠ HÌNH DỰ BÁO KHÁC CHUYÊN NGÀNH: CÔNG NGHỆ VÀ QUẢN LÝ XÂY DỰNG MÃ SỐ NGÀNH: 60.58.90 LUẬN VĂN THẠC SĨ Tp HCM, tháng 07 năm 2010 i CƠNG TRÌNH ĐƯỢC HỒN THÀNH TẠI TRƯỜNG ĐẠI HỌC BÁCH KHOA ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH TS ĐINH CƠNG TỊNH CÁN BỘ HƯỚNG DẪN KHOA HỌC: CÁN BỘ CHẤM NHẬN XÉT 1: TS LƯƠNG ĐỨC LONG CÁN BỘ CHẤM NHẬN XÉT 2: TS NGUYỄN THỐNG Luận văn thạc sĩ bảo vệ Hội đồng chấm bảo vệ luận văn thạc sĩ trường Đại học Bách Khoa, ĐHQG Tp HCM, ngày tháng năm 2010 ii TRƯỜNG ĐẠI HỌC BÁCH KHOA CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM PHÒNG ĐÀO TẠO SAU ĐẠI HỌC Độc lập – Tự – Hạnh phúc Tp HCM, ngày …… tháng …… năm 2010 NHIỆM VỤ LUẬN VĂN THẠC SĨ Họ tên học viên : PHẠM CHÍ NGUYỆN Phái: Nam Ngày, tháng, năm sinh: 27/08/1977 Nơi sinh: Bạc Liêu Chuyên ngành : Công nghệ Quản lý xây dựng MSHV : Khóa: 2008 00808576 I – TÊN ĐỀ TÀI: Nghiên cứu ứng dụng Logic mờ để xây dựng mơ hình dự báo tình trạng dự án giai đoạn thi công, so sánh với mơ hình dự báo khác II – NHIỆM VỤ: - Xác định nhân tố ảnh hưởng đến chi phí thời gian hồn thành dự án giai đoạn thi cơng - Phát triển mơ hình dự báo chi phí thời gian hồn thành dự án giai đoạn thi công logic mờ Xây dựng phần mềm ứng dụng viết ngôn ngữ Visual Basic - So sánh với mơ hình dự báo khác III – NGÀY GIAO NHIỆM VỤ: 25/01/2010 IV – NGÀY HOÀN THÀNH NHIỆM VỤ: 02/07/2010 V – HỌ VÀ TÊN CBHD: TS ĐINH CÔNG TỊNH CÁN BỘ HƯỚNG DẪN CHỦ NHIỆM BỘ MÔN QL CHUYÊN NGÀNH TS ĐINH CÔNG TỊNH TS LƯƠNG ĐỨC LONG iii LỜI CẢM ƠN Để hoàn thành luận văn này, thân nỗ lực nhận nhiều quan tâm, giúp đỡ q thầy cơ, gia đình, bạn bè, đồng nghiệp Đặc biệt hướng dẫn nhiệt tình q thầy giảng dạy chun ngành Cơng nghệ Quản lý xây dựng, môn Thi công Quản lý xây dựng truyền đạt cho kiến thức q báu suốt q trình học tập Xin gửi lời cám ơn chân thành đến TS Đinh Công Tịnh Thầy hỗ trợ nhiều tài liệu, hướng dẫn nhiệt tình, giúp đưa phương pháp nghiên cứu truyền đạt nhiều kiến thức quí báu suốt thời gian thực đề tài Xin gửi lời cám ơn bạn lớp giúp đỡ đóng góp nhiều ý kiến hay vào luận văn tốt nghiệp Cho gởi đến bạn lời cám ơn chúc bạn hoàn thành luận văn tốt nghiệp cách xuất sắc Xin gửi lời cám ơn đồng nghiệp động viên giúp đỡ nhiều tinh thần vật chất để an tâm học tập thực luận văn tốt nghiệp hôm Xin gửi lời cám ơn đến Sở Nội vụ tỉnh Sóc Trăng tạo điều kiện giúp đỡ cho nghiên cứu học tập trường Đại học Bách khoa Tp HCM Và đặc biệt, xin cám ơn người thân yêu bên cạnh, quan tâm, động viên giúp đỡ lúc khó khăn, trở ngại để hồn thành luận văn Một lần xin cám ơn gửi lời chúc sức khỏe đến quý thầy cô Tp Hồ Chí Minh, ngày 02 tháng 07 năm 2010 Tác giả Phạm Chí Nguyện iv TĨM TẮT Dự báo tình trạng dự án chức chủ yếu trình theo dõi, kiểm sốt nhằm quản lý dự án có hiệu từ lúc bắt đầu kết thúc dự án Sự chênh lệch lớn chi phí, thời gian có ảnh hưởng đến lợi nhuận, dịng tiền đặc biệt tính khả thi dự án Do việc dự báo sớm xác chênh lệch có ý nghĩa quan trọng đến thành cơng dự án Luận văn trình bày việc ứng dụng Logic mờ để xây dựng mơ hình dự báo tình trạng dự án giai đoạn thi công với 20 biến đầu vào biến đầu (chi phí thời gian hồn thành) Luận văn thu thập liệu thực tế từ 30 dự án địa bàn tỉnh Sóc Trăng để xây dựng mơ hình Kết mơ hình dự báo so sánh với số liệu thực tế dự án với mơ hình dự báo Fleming Kopelman mơ hình dự báo Nguyễn Hoàng Hà, đồng thời phần mềm ứng dụng dựa ngôn ngữ Visual Basic viết để tạo tiện dụng cho người dùng ABSTRACT Forecasting project status is an essential function in monitoring and control, and in effectively managing projects from start to completion Large variances in costs, schedules can impact profitability, cash flow, and in extreme cases, the viability of projects The earlier the prediction of these variances and the more accurate that prediction is, the more helpful it is in managing projects to completion This thesis presents a model forecasting project status based on fuzzy logic with 20 inputs and outputs (cost and time) My thesis has collected data from 30 projects in Soc Trang to develope this model The result of this model has been compared with projects, models of Fleming and Kopelman, and the model of Nguyen Hoang Ha Beside, a software application based on Visual Basic was designed to make it convenient for users v MỤC LỤC LỜI CẢM ƠN iii TÓM TẮT iv MỤC LỤC v DANH SÁCH CÁC BẢNG BIỂU ix DANH SÁCH CÁC HÌNH ẢNH x CHƯƠNG 1: GIỚI THIỆU 1.1 Đặt vấn đề .1 1.2 Mục tiêu nghiên cứu 1.3 Phạm vi nghiên cứu: CHƯƠNG 2: TỔNG QUAN 2.1 Lược khảo nghiên cứu nước 2.1.1 Trong nước 2.1.2 Ngoài nước 2.2 Giới thiệu mơ hình dự báo dựa phương pháp giá trị đạt 2.2.1 Phương pháp giá trị đạt .7 2.2.2 Một số mơ hình dự báo dựa phương pháp giá trị đạt 2.2.3 Mơ hình dự báo chi phí Nguyễn Hồng Hà CHƯƠNG 3: CƠ SỞ LÝ THUYẾT 11 3.1 Tổng quan công tác quản lý dự án xây dựng 11 3.1.1 Định nghĩa dự án dự án xây dựng 11 3.1.2 Tiêu chuẩn đánh giá dự án 12 3.1.3 Các chức công tác quản lý dự án xây dựng 13 vi 3.2 Lý thuyết khảo sát bảng câu hỏi 13 3.2.1 Giới thiệu cách thức lập bảng câu hỏi 13 3.2.2 Xác định kích thước mẫu 15 3.2.3 Kiểm định thang đo 17 3.3 Logic mờ .18 3.3.1 Khái niệm tập mờ 18 3.3.1.1 Định nghĩa 18 3.3.1.2 Độ cao, miền xác định miền tin cậy tập mờ 19 3.3.1.3 Biến ngôn ngữ .20 3.3.2 Các phép toán tập mờ 21 3.3.2.1 Phép hợp .21 3.3.2.2 Phép giao 23 3.3.2.3 Phép bù 25 3.3.3 Luật hợp thành mờ .25 3.3.3.1 Mệnh đề hợp thành 25 3.3.3.2 Mô tả mệnh đề hợp thành 26 3.3.3.3 Luật hợp thành mờ điều kiện 27 3.3.3.4 Luật hợp thành mờ nhiều điều kiện 30 3.3.3.5 Luật hợp thành mờ nhiều mệnh đề hợp thành 31 3.3.4 Giải mờ 32 3.3.4.1 Phương pháp cực đại 32 3.3.4.2 Phương pháp điểm trọng tâm 35 3.3.5 Hệ thống xử lý mờ 37 vii CHƯƠNG 4: THU THẬP VÀ PHÂN TÍCH SỐ LIỆU .38 4.1 Thu thập phân tích liệu nhân tố ảnh hưởng 38 4.1.1 Nhận dạng nhân tố ảnh hưởng đến chi phí thời gian hồn thành dự án 38 4.1.2 Thiết kế bảng câu hỏi khảo sát .39 4.1.2.1 Nội dung bảng câu hỏi 39 4.1.2.2 Khảo sát thử nghiệm 40 4.1.3 Kích thước mẫu khảo sát thức 42 4.1.4 Phân tích số liệu kiểm định thang đo .43 4.1.4.1 Phân tích số liệu 43 4.1.4.2 Kiểm định thang đo .46 4.1.4.3 Phân tích thơng tin cá nhân đối tượng khảo sát 46 4.2 Thu thập phân tích liệu nhân tố từ dự án triển khai 51 CHƯƠNG 5: PHÁT TRIỂN MƠ HÌNH DỰ BÁO VÀ SO SÁNH 55 5.1 Phát triển mơ hình .55 5.1.1 Xây dựng hàm liên thuộc (mờ hóa) .55 5.1.2 Xây dựng mệnh đề hợp thành (suy diễn mờ) 60 5.1.3 Giải mờ 65 5.2 Chạy mơ hình so sánh .66 5.2.1 Dữ liệu dự án thực tế 66 5.2.2 Dự báo tình trạng dự án mơ hình Logic mờ 67 5.2.3 Dự báo tình trạng dự án mơ hình Fleming Kopelman.72 5.2.4 Dự báo tình trạng dự án mơ hình Nguyễn Hồng Hà (NHH).77 viii 5.2.5 So sánh kết 79 CHƯƠNG 6: KẾT LUẬN VÀ KIẾN NGHỊ 82 6.1 Kết luận .82 6.2 Kiến nghị hướng phát triển đề tài: 83 6.2.1 Kiến nghị 83 6.2.2 Hướng phát triển đề tài 84 TÀI LIỆU THAM KHẢO 85 LÝ LỊCH TRÍCH NGANG .88 Phụ lục .89 Phụ lục .90 Phụ lục .91 Phụ lục .92 Phụ lục .93 Phụ lục .94 Phụ lục .95 ix DANH SÁCH CÁC BẢNG BIỂU Bảng 1.1: Tăng trưởng GDP giai đoạn 1999-2009 Bảng 1.2: Tỷ trọng ngành kinh tế Việt Năm giai đoan 1999-2009 .2 Bảng 2.1: Các khả xảy xem xét dự án Bảng 4.1: Các nhân tố ảnh hưởng đến chi phí thời gian hồn thành dự án .38 Bảng 4.2: Kết khảo sát thử nghiệm nhân tố ảnh hưởng đến chi phí thời gian hoàn thành dự án xây dựng 41 Bảng 4.3: Hệ số Cronbach Alpha khảo sát thử nghiệm nhân tố ảnh hưởng đến chi phí thời gian hồn thành dự án xây dựng 42 Bảng 4.4: Kết khảo sát thức nhân tố ảnh hưởng đến chi phí thời gian hoàn thành dự án xây dựng 43 Bảng 4.5: Hệ số Cronbach Alpha khảo sát thức nhân tố ảnh hưởng đến chi phí thời gian hồn thành dự án xây dựng 46 Bảng 4.6: Kinh nghiệm công tác cá nhân tham gia khảo sát 47 Bảng 4.7: Quy mô dự án tham gia cá nhân tham gia khảo sát 48 Bảng 4.8: Vai trò dự án tham gia cá nhân tham gia khảo sát .49 Bảng 4.9: Đơn vị công tác trải qua cá nhân tham gia khảo sát 49 Bảng 4.10: Vị trí cơng tác cá nhân tham gia khảo sát 50 Bảng 4.11: Kết thống kê dự án khảo sát 53 Bảng 5.1: Giá trị xây dựng hàm liên thuộc biến đầu vào, đầu 56 Bảng 5.2: Các thông số đầu vào từ dự án thực tế dùng để dự báo 67 Bảng 5.3: Các thông số đầu vào từ dự án thực tế dùng để dự báo 77 Bảng 5.4: Bảng so sánh kết dự báo 79 Phụ lục 3: Bảng câu hỏi khảo sát lần Thi công sai thiết kế dẫn đến làm lại Rất Ít Khơng Rất nhiều Nhiều Khan nguồn lực (vật tư, nhân công, máy thi cơng) Rất Ít Khơng Nhiều Rất nhiều 10 Tổ chức công trường Kém Đạt yêu cầu Rất Tốt Rất tốt 11 Tai nạn lao động Khơng Rất Ít Nhiều Rất nhiều 10 Phụ lục 3: Bảng câu hỏi khảo sát lần Nếu có thể, xin Anh/ Chị vui lịng cung cấp thông tin để tiện liên lạc cần thiết Họ tên: …………………………… Điện thoại: …………………… Đơn vị công tác: …………………………… Email: …………………… Một lần nữa, xin chân thành cảm ơn ! Chúc Anh/ Chị thành công nghiệp! Tác giả sẵn sàng chia thắc mắc kết nghiên cứu Anh/ Chị có quan tâm, xin vui lịng liên hệ: Phạm Chí Nguyện - Học viên cao học ngành Cơng nghệ Quản lý Xây dựng, Trường Đại học Bách khoa, tp.HCM Địa chỉ: 451/17/6 Tô Hiến Thành – P14 - Q10, Tp HCM Điện thoại: 0983.026172 Email: phamchinguyen1977@yahoo.com.vn Phụ lục 4: Kết khảo sát lần Descriptive Statistics N Chi phi Khoi luong phat sinh Khoi luong thuc hien Tien chi tiet hop ly To chuc cong truong Thay doi thiet ke Thi cong sai dan den lam lai Muc phuc tap cong trinh Don gia nhan cong Nang suat nhan cong So luong nhan cong Ty le su dung may thi cong Nang suat may thi cong Hieu suat su dung vat tu Don gia vat tu Tien Tien chi tiet hop ly So luong cong tac tren duong gang Khoi luong dat duoc cua cac cong tac tren duong gang Muc phuc tap cong trinh Nang luc cua nha thau Kha nang tai chinh cua Chu dau tu Thay doi thiet ke Thi cong sai dan den lam lai Khan hiem nguon luc (vat tu, nhan cong, may thi cong) To chuc cong truong Tai nan lao dong Valid N (listwise) Minimum Maximum Mean Std Deviation 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 87 2 1 2 2 2 77 1.30 4 4 4 4 4 1.88 1.0600 2.50 3.07 2.93 2.97 2.20 1.63 2.53 3.30 3.07 2.93 2.70 2.97 2.90 3.47 1.1275 2.93 10271 1.106 640 640 718 997 615 819 596 740 691 702 718 548 507 20859 640 30 3.40 498 30 2.77 679 30 30 2.53 3.00 819 743 30 3.60 770 30 30 1 2.20 1.63 997 615 30 2.70 988 30 30 30 2.97 1.07 718 254 Phụ lục 4: Kết khảo sát lần 2 Phụ lục 5: Thông số xây dựng mô hình [System] Name='luan van du bao' Type='mamdani' Version=2.0 NumInputs=20 NumOutputs=2 NumRules=75 AndMethod='min' OrMethod='max' ImpMethod='min' AggMethod='max' DefuzzMethod='centroid' [Input1] Name='klps' Range=[0 6.924] NumMFs=3 MF1='TKH':'trapmf',[0 0.288 2.5] MF2='DKH':'trimf',[0.288 2.5 4.712] MF3='VKH':'trapmf',[2.5 4.712 6.924 6.924] [Input2] Name='klth' Range=[0 5.63] NumMFs=3 MF1='TKH':'trapmf',[0 1.79 3.07] MF2='DKH':'trimf',[1.79 3.07 4.351] MF3='VKH':'trapmf',[3.07 4.351 5.63 5.63] [Input3] Name='tdcthl' Range=[0 5.49] NumMFs=3 MF1='TKH':'trapmf',[0 1.65 2.93] MF2='DKH':'trimf',[1.65 2.93 4.21] MF3='VKH':'trapmf',[2.93 4.21 5.49 5.49] [Input4] Name='tcct' Range=[0 5.842] NumMFs=3 MF1='TKH':'trapmf',[0 1.534 2.97] MF2='DKH':'trimf',[1.534 2.97 4.406] MF3='VKH':'trapmf',[2.97 4.406 5.842 5.842] [Input5] Name='tdtk' Range=[0 6.188] NumMFs=3 MF1='TKH':'trapmf',[0 0.206 2.2] MF2='DKH':'trimf',[0.206 2.2 4.194] MF3='VKH':'trapmf',[2.2 4.194 6.188 6.188] [Input6] Name='tcsddll' Range=[0 5] Phụ lục 5: Thơng số xây dựng mơ hình NumMFs=3 MF1='TKH':'trapmf',[0 0.4 1.63] MF2='DKH':'trimf',[0.4 1.63 2.86] MF3='VKH':'trapmf',[1.63 2.86 5] [Input7] Name='mdptcct' Range=[0 5.806] NumMFs=3 MF1='TKH':'trapmf',[0 0.892 2.53] MF2='DKH':'trimf',[0.892 2.53 4.168] MF3='VKH':'trapmf',[2.53 4.168 5.806 5.806] [Input8] Name='dgnc' Range=[0 5.684] NumMFs=3 MF1='TKH':'trapmf',[0 2.108 3.3] MF2='DKH':'trimf',[2.108 3.3 4.492] MF3='VKH':'trapmf',[3.3 4.492 5.684 5.684] [Input9] Name='nsnc' Range=[0 6.03] NumMFs=3 MF1='TKH':'trapmf',[0 1.59 3.07] MF2='DKH':'trimf',[1.59 3.07 4.55] MF3='VKH':'trapmf',[3.07 4.55 6.03 6.03] [Input10] Name='slnc' Range=[0 5.694] NumMFs=3 MF1='TKH':'trapmf',[0 1.548 2.93] MF2='DKH':'trimf',[1.548 2.93 4.312] MF3='VKH':'trapmf',[2.93 4.312 5.694 5.694] [Input11] Name='tlsdmtc' Range=[0 5.508] NumMFs=3 MF1='TKH':'trapmf',[0 1.296 2.7] MF2='DKH':'trimf',[1.296 2.7 4.104] MF3='VKH':'trapmf',[2.7 4.104 5.508 5.508] [Input12] Name='nsmtc' Range=[0 5.842] NumMFs=3 MF1='TKH':'trapmf',[0 1.534 2.97] MF2='DKH':'trimf',[1.534 2.97 4.406] MF3='VKH':'trapmf',[2.97 4.406 5.842 5.842] [Input13] Name='hssdvt' Range=[0 5.092] Phụ lục 5: Thông số xây dựng mơ hình NumMFs=3 MF1='TKH':'trapmf',[0 1.804 2.9] MF2='DKH':'trimf',[1.804 2.9 3.996] MF3='VKH':'trapmf',[2.9 3.996 5.092 5.092] [Input14] Name='dgvt' Range=[0 5.498] NumMFs=3 MF1='TKH':'trapmf',[0 2.456 3.47] MF2='DKH':'trimf',[2.456 3.47 4.484] MF3='VKH':'trapmf',[3.47 4.484 5.498 5.498] [Input15] Name='slcttdg' Range=[0 5.392] NumMFs=3 MF1='TKH':'trapmf',[0 2.404 3.4] MF2='DKH':'trimf',[2.404 3.4 4.396] MF3='VKH':'trapmf',[3.4 4.396 5.392 5.392] [Input16] Name='klddtdg' Range=[0 5.486] NumMFs=3 MF1='TKH':'trapmf',[0 1.412 2.77] MF2='DKH':'trimf',[1.412 2.77 4.128] MF3='VKH':'trapmf',[2.77 4.128 5.486 5.486] [Input17] Name='nlnt' Range=[0 5.972] NumMFs=3 MF1='TKH':'trapmf',[0 1.514 3] MF2='DKH':'trimf',[1.514 4.486] MF3='VKH':'trapmf',[3 4.486 5.972 5.972] [Input18] Name='kntcccdt' Range=[0 6.68] NumMFs=3 MF1='TKH':'trapmf',[0 2.06 3.6] MF2='DKH':'trimf',[2.06 3.6 5.14] MF3='VKH':'trapmf',[3.6 5.14 6.68 6.68] [Input19] Name='khnl' Range=[0 6.652] NumMFs=3 MF1='TKH':'trapmf',[0 0.724 2.7] MF2='DKH':'trimf',[0.724 2.7 4.676] MF3='VKH':'trapmf',[2.7 4.676 6.652 6.652] [Input20] Name='tnld' Range=[0 5] Phụ lục 5: Thông số xây dựng mơ hình NumMFs=3 MF1='TKH':'trapmf',[0 0.562 1.07] MF2='DKH':'trimf',[0.562 1.07 1.548] MF3='VKH':'trapmf',[1.07 1.548 5] [Output1] Name='cp' Range=[0 2] NumMFs=3 MF1='TKH':'trapmf',[0 0.855 1.06] MF2='DKH':'trimf',[0.855 1.06 1.265] MF3='VKH':'trapmf',[1.06 1.265 2] [Output2] Name='tg' Range=[0 2] NumMFs=3 MF1='TKH':'trapmf',[0 0.71 1.128] MF2='DKH':'trimf',[0.71 1.128 1.545] MF3='VKH':'trapmf',[1.128 1.545 2] [Rules] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3 0 0 0 0 0 0 0 0 0 0 0 0 0 (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 Phụ lục 5: Thông số xây dựng mơ hình 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 3 1 3 1 3 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 1 3 1 (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) (1) : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 Phụ lục 6: Code Chương trình dự báo Option Explicit Dim i As Integer Dim k As Integer Dim x As Integer Dim ChiPhi As Double Dim ThoiGianHoanThanh As Double Dim xPara(1 To 20) As Single Private Sub CmdExit_Click() Unload Me End Sub Sub initY() For i = To For j = To 20 For k = To 20 yResult(i, j, k) = Next Next Next End Sub Private Sub Frame1_Click() End Sub Private Sub FraPR_Click() End Sub Private Sub Label4_Click() End Sub Private Sub LblP2_Click() End Sub Sub UserForm_Initialize() Phụ lục 6: Code Chương trình dự báo Me.Caption = "Thong so nguoi dung nhap vao" Call xParaDefault End Sub Sub xParaDefault() txtX1.Text = Sheets("Ten cac bien").Cells(6, 4) txtX2.Text = Sheets("Ten cac bien").Cells(7, 4) txtX3.Text = Sheets("Ten cac bien").Cells(8, 4) txtX4.Text = Sheets("Ten cac bien").Cells(9, 4) txtX5.Text = Sheets("Ten cac bien").Cells(10, 4) txtX6.Text = Sheets("Ten cac bien").Cells(11, 4) txtX7.Text = Sheets("Ten cac bien").Cells(12, 4) txtX8.Text = Sheets("Ten cac bien").Cells(13, 4) txtX9.Text = Sheets("Ten cac bien").Cells(14, 4) txtX10.Text = Sheets("Ten cac bien").Cells(15, 4) txtX11.Text = Sheets("Ten cac bien").Cells(16, 4) txtX12.Text = Sheets("Ten cac bien").Cells(17, 4) txtX13.Text = Sheets("Ten cac bien").Cells(18, 4) txtX14.Text = Sheets("Ten cac bien").Cells(19, 4) txtX15.Text = Sheets("Ten cac bien").Cells(20, 4) txtX16.Text = Sheets("Ten cac bien").Cells(21, 4) txtX17.Text = Sheets("Ten cac bien").Cells(22, 4) txtX18.Text = Sheets("Ten cac bien").Cells(23, 4) txtX19.Text = Sheets("Ten cac bien").Cells(24, 4) txtX20.Text = Sheets("Ten cac bien").Cells(25, 4) End Sub Private Sub cmdRun_Click() cmdRun.Enabled = False 'Gan gia tri P,R xPara(1) = Val(txtX1.Text) xPara(2) = Val(txtX2.Text) xPara(3) = Val(txtX3.Text) xPara(4) = Val(txtX4.Text) xPara(5) = Val(txtX5.Text) xPara(6) = Val(txtX6.Text) xPara(7) = Val(txtX7.Text) xPara(8) = Val(txtX8.Text) xPara(9) = Val(txtX9.Text) xPara(10) = Val(txtX10.Text) xPara(11) = Val(txtX11.Text) xPara(12) = Val(txtX12.Text) Phụ lục 6: Code Chương trình dự báo xPara(13) = Val(txtX13.Text) xPara(14) = Val(txtX14.Text) xPara(15) = Val(txtX15.Text) xPara(16) = Val(txtX16.Text) xPara(17) = Val(txtX17.Text) xPara(18) = Val(txtX18.Text) xPara(19) = Val(txtX19.Text) xPara(20) = Val(txtX20.Text) ' Kiem tra gia tri cac bien For i = To 20 If xPara(i) Then MsgBox "Gia tri cac bien X phai lon hon va nho hon (X = [1-5])" Exit Sub End If Next i ChiPhi = TinhtoanY(1) * 100 - 100 ThoiGianHoanThanh = TinhtoanY(2) * 100 - 100 txtChiphi.Text = FormatNumber(ChiPhi, 2) txtThoiGian.Text = FormatNumber(ThoiGianHoanThanh, 2) cmdRun.Enabled = True End Sub Function TinhtoanY(SheetY) Dim sSheetY As String, Loai As Integer, rowFirst As Integer, y As Integer Dim xValue As Double, yValue As Double, temp As Double Dim yResult(1 To 3, To 20, To 20) As Double Dim yResultMax(0 To 20) As Double sSheetY = tenSheet(SheetY) 'Dim TKH(1 To 100, To 20) As Double ' Tinh toan TKH For Loai = To ' TKH = 1, DKH = 2, VKH = rowFirst = Loai + 'rowFirst TKH = For x = To 20 xValue = IIF(checkAnhHuong(SheetY, x) = 1, GiatriX(SheetY, Loai, x, xPara(x)), 0) For y = To 20 yValue = GiatriY(SheetY, Loai, y) Phụ lục 6: Code Chương trình dự báo yResult(Loai, x, y) = min(xValue, yValue) Sheets(sSheetY).Cells(120 + (Loai - 1) * 20 + x, + y) = yResult(Loai, x, y) Next Next Next For y = To 20 yResultMax(y) = For Loai = To For x = To 20 If yResult(Loai, x, y) > yResultMax(y) Then yResultMax(y) = yResult(Loai, x, y) Next Next Next Dim SumA As Double, sumB As Double SumA = sumB = For y = To 20 SumA = SumA + ThamsoY(SheetY, y) * yResultMax(y) sumB = sumB + yResultMax(y) Sheets(sSheetY).Cells(182, + y) = yResultMax(y) Next TinhtoanY = SumA / sumB End Function Private Function min(a, b) As Single Dim tg As Single If a > b Then tg = b Else tg = a Phụ lục 6: Code Chương trình dự báo End If = tg End Function Private Sub CmdXuat_Click() FrmXuatKq.Show End Sub Phụ lục 7: Sơ đồ nghiên cứu Xác định đề tài Tham khảo tài liệu Nhận dạng nhân tố ảnh hưởng đến chi phí thời gian hồn thành dự án giai đoạn thi công Thiết kế bảng câu hỏi thu thập liệu Sử dụng PP thống kê Kiểm tra Thu thập liệu từ dự án thực tế Sử dụng PP thống kê Xác định thơng số để xây dựng mơ hình dự báo Xây dựng mơ hình dự báo dựa Logic mờ Chạy mơ hình Kết So sánh với mơ hình dự báo khác Kết luận kiến nghị ... cầu nêu trên, đề tài Nghiên cứu ứng dụng logic mờ để xây dựng mô hình dự báo tình trạng dự án giai đoạn thi cơng, so sánh với mơ hình dự báo khác thực 1.2 Mục tiêu nghiên cứu - Xác định nhân tố... báo dự án mơ hình dựa Logic mờ 69 Hình 5.13: Kết dự báo dự án mơ hình dựa Logic mờ 69 xii Hình 5.14: Kết dự báo dự án phần mềm dựa ngôn ngữ VBA 70 Hình 5.15: Kết dự báo dự án phần mềm dựa ngôn... thuyết mờ để xây dựng mơ hình dự báo cho thời gian thực dự án Karla Knight Amina Robinson Fayek (2002) nghiên cứu ứng dụng logic mờ để xây dựng mơ hình dự báo chi phí thi? ??t kế bị vượt dựa yếu

Ngày đăng: 03/04/2021, 23:14

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan