Thông tin tài liệu
TRƯỜNG ĐẠI HỌC VINH KHOA ĐIỆN TỬ - VIỄN THÔNG ĐỒ ÁN TỐT NGHIỆP ĐẠI HỌC Đề tài: KỸ THUẬT ĐIỀU KHIỂN CÔNG SUẤT THEO BƯỚC ĐỘNG (DSSPC) VÀ ĐIỀU KHIỂN CÔNG SUẤT PHÂN TÁN (DPC) ỨNG DỤNG TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THỨ (UMTS) Người hướng dẫn Sinh viên thực : Lớp KS Lê Văn Chương : Nguyễn Xuân Quỳnh : NGHỆ AN, 12/2011 i 48K - ĐTVT LỜI MỞ ĐẦU Ngày thông tin di động đóng góp vai trị vơ to lớn sống Các loại hình dịch vụ viễn thông phát triển đa dạng, chất lượng nâng cao cách rõ rệt đáp ứng nhu cầu ngày cao người Sở dĩ có thành phát triển không ngừng công nghệ viễn thông giới, có cơng nghệ băng rộng WCDMA Hệ thống WCDMA đời làm cho viễn thông giới bước sang kỷ nguyên Hiện nay, Việt Nam nhà cung cấp dịch vụ viễn thông bước triển khai đưa vào sử dụng hệ thống thông tin di động thứ ba này, nhằm mang lại dịch vụ tốt cho người sử dụng Một khâu quan trọng hệ thống thơng tin di động nói chung hệ thống WCDMA nói riêng Vấn đề chuyển giao điều khiển công suất nhằm hạn chế ảnh hưởng “Hiệu ứng gần - xa” đến chất lượng thoại, tăng dung lượng hệ thống, khả chống lại fading,… Xuất phát từ tầm quan trọng nên em chọn đề tài “ Kỹ thuật điều khiển công suất theo bước động (DSSPC) điều khiển công suất phân tán (DPC) ứng dụng hệ thống thông tin di động hệ thứ (UMTS)” Đồ án chia làm chương: Chương 1:“Tổng quan hệ thống thông tin di động hệ thứ 3(UMTS) kỹ thuật điều khiển công suất hệ thống thông tin di động hệ thứ 3(UMTS)” Trong chương tập trung sâu vào tìm hiểu hệ thống thơng tin di động hệ thứ ý nghĩa, nguyên lý cách phân loại điều khiển công suất WCDMA Chương 2: “Điều khiển công suất theo bước động DSSPC điều khiển cơng suất phân tán DPC” Do chương giới thiệu lưu đồ thuật toán nguyên lý hai phương pháp Chương 3: “Tính tốn mơ mơ hình điều khiển công suất DSSPC DPC” Đây chương quan trọng đồ án Nội dung chương kiểm chứng lại lý thuyết hai thuật toán điều khiển cơng suất DSSPC DPC ii Việc tính toán vẽ đồ thị theo bước lặp giúp cho chương trình điều khiển hoạt động theo bước động, đồ thị vẽ liền nét liên tục, giá trị điều khiển (SIR, Pdk) điều chỉnh liên tục đến đạt giá trị tối ưu, thông số điều khiển mặc định mà người điều khiển thiết lập lại cho phù hợp với hệ thống Trong thời gian làm đề tài, em cố gắng nhiều song kiến thức hạn chế, thời gian nghiên cứu đề tài có hạn nguồn tài liệu chủ yếu báo tiếng Anh mạng nên đồ án cịn nhiều sai sót trình dịch thuật Em mong nhận phê bình, ý kiến đóng góp chân thành thầy cô bạn để đồ án hoàn thiện Em xin chân thành cảm ơn giúp đỡ tận tình KS Lê Văn Chương thầy cô bạn bè khoa để em hoàn thành đề tài tốt nghiệp Vinh, Ngày tháng .năm 2011 Sinh viên thực Nguyễn Xuân Quỳnh iii MỤC LỤC LỜI MỞ ĐẦU i DANH MỤC HÌNH VẼ v DANH MỤC BẢNG vii DANH MỤC CÁC TỪ VIẾT TẮT viii CHƯƠNG 1: TỔNG QUAN VỀ HỆ THỐNG THÔNG TIN DI ĐỘNG THỨ BA (UMTS) VÀ KỸ THUẬT ĐIỀU KHIỂN CÔNG SUẤT TRONG HỆ THỐNG THÔNG TIN DI ĐỘNG THỨ BA (UMTS) 1.1 Hệ thống thông tin di động hệ IMT-2000 1.2 Công nghệ WCDMA 1.3 Hệ thống UMTS 1.3.1 Tổng quan .3 .3 1.3.2 Dịch vụ hệ thống UMTS 1.3.3 Cấu trúc hệ thống UMTS .6 1.3.4 Mạng lõi CN ( Core Network ) 1.3.5 Truy nhập vô tuyến mặt đất UTRAN (UMTS Terrestrial Radio Acess Network) 1.3.6 .9 Thiết bị người sử dụng UE (User Equipment) 10 1.4 Kỹ thuật điều khiển công suất hệ thống WCDMA .11 1.4.1.Ý nghĩa việc điều khiển công suất .11 1.4.2.Phân loại điều khiển công suất 13 1.4.2.1.Điều khiển công suất cho đường xuống đường lên .13 1.4.2.2.Điều khiển công suất phân tán tập trung .13 1.4.2.3.Điều khiển cơng suất vịng hở, điều khiển cơng suất vịng kín, cơng suất…………………… …14 1.5 Điều khiển công suất vòng hở UMTS ………………………………… 17 1.5.1 Kỹ thuật điều khiển cơng suất vịng hở đường lên……………………… 17 1.5.2 Kỹ thuật điều khiển cơng suất vịng hở đường xuống …………………….18 iv 1.6 Điều khiển công suất kênh chung đường xuống………………………19 1.7 Các thủ tục điều khiển công suất vịng ………………………………21 1.7.1 Điều khiển cơng suất vịng đường lên …………………………… 22 1.7.2 Điều khiển công suất vịng đường xuống ………………………… 23 1.8 Điều khiển cơng suất vịng ngồi ………………………………………… 26 1.8.1Điều khiển cơng suất vịng ngồi đường lên ……………………………… 27 1.8.2Điều khiển cơng suất vịng đường xuống ……………………………28 CHƯƠNG 2: KỸ THUẬT ĐIỀU KHIỂN CÔNG SUẤT THEO BƯỚC ĐỘNG DSSPC VÀ ĐIỀU KHIỂN CÔNG SUẤT PHÂN TÁN DPC 2.1 Giới thiệu chương 30 2.2.Một số lý thuyết sử dụng thuật toán 30 2.2.1.Hệ số tái sử dụng tần số (Frequency Reuse Factor) 30 2.2.2.Nhiễu đồng kênh 32 2.2.3.Nhiễu kênh lân cận 33 2.2.4.Hiệu ứng gần xa (Near-Far Effect) 34 2.2.5.Tải lưu lượng 35 2.2.6.Cấp độ phục vụ GoS (Grade of Service) 37 2.2.7.Hiệu sử dụng kênh 38 2.3.Thuật toán điều khiển công suất theo bước động DSSPC 38 2.3.1.Tổng quan 38 2.3.2.Thuật toán điều khiển công suất bước động DSSPC 40 2.3.2.1 Khái niệm lợi ích độ dự trữ công suất (cửa sổ công suất) 40 2.3.2.2.Sự hoạt động mạng 41 2.3.2.3.Sự hoạt động UE 43 2.4 Phương pháp điều khiển công suất phân tán ( DPC) 47 2.4.1 Mơ hình hệ thống 47 2.4.2 Thuật tốn điều khiển cơng suất phân tán ( DPC ) 47 CHƯƠNG 3: TÍNH TỐN VÀ MƠ PHỎNG MƠ HÌNH ĐIỀU KHIỂN CÔNG SUẤT DSSPC VÀ DPC 3.1.Tổng quan 50 v 3.2.Quỹ đường truyền vô tuyến hướng lên hệ thống WCDMA 50 3.3 Quỹ đường truyền vô tuyến tham khảo cho hệ thống UMTS………………… 51 3.4 Tính tốn cụ thể ……………………………………………………………… 53 3.5Kết mô 55 KẾT LUẬN CHUNG 58 TÀI LIỆU THAM KHẢO 59 vi C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an DANH SÁCH HÌNH VẼ Hình 1.1 Các phổ tần dùng cho hệ thống UMTS Hình 1.2 Cấu trúc hệ thống UMTS Hình 1.3 Cấu trúc UTRAN Hình 1.4 Cơng suất thu từ thuê bao tai trạm gốc 12 Hình 1.5 Phân loại kỹ thật điều khiển cơng suất 14 Hình 1.6 Ngun lý điều khiển cơng suất vịng kín 15 Hình 1.7 Điều khiển cơng suất vịng kín bù trừ fading nhanh 16 Hình 1.8 Điều khiển cơng suất vịng ngồi 17 Hình 1.9 Cơng suất phát kênh S-CCPCH, PO3 PO1 ký hiệu cho 20 dịch Hình 1.10 Các thủ tục điều khiển cơng suất vịng vịng ngồi Hình 1.11 Dịch cơng suất (PO) để cải thiện chất lượng báo hiệu đường 24 21 xuống Hình 1.12 Dải động điều khiển cơng suất đường xuống 25 Hình 1.13 Kiến trúc logic chức ULPC vịng ngồi 28 Hình 2.1 Mẫu sử dụng lại tần số 3/9 31 Hình 2.2a Nhiễu đường lên 32 Hình 2.2b Nhiễu đường xuống 32 Hình 2.3 Vấn đề gần-xa (điều khiển cơng suất đường lên) 35 Hình 2.4 Bù nhiễu kênh lân cận 35 Hình 2.5 Quá trình thiết lập gọi 37 Hình 2.6 Dự trữ SIR với chất lượng dịch vụ khác 41 Hình 2.7 Quá trình tạo lập- định TPC DSSPC 42 Hình 2.8 Mơ hình chung DSSPC điều khiển cơng suất 45 đường lên Hình 2.9 Lưu đồ thuật tốn phương pháp DSSPC 46 Hình 2.10 Lưu đồ thuật tốn phương pháp DPC 48 Hình 3.1 Các yếu tố ảnh hưởng đến vùng phủ đường lên 51 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn vii C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Hình 3.2 Form giới thiệu 55 Hình 3.3 Form nhập số liệu 56 Hình 3.4 Form kết tính tốn 56 Hình 3.5 Form kết mơ đồ thị 57 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn viii C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an DANH SÁCH BẢNG Bảng 2.1 Bảng tra cứu dành cho DSSPC………………………………………….44 Bảng 3.1 Quỹ đường truyền tham khảo cho dịch vụ số liệu thời gian thực 12.2 Kbps……………………………………………………………………………… 52 Bảng 3.2 Quỹ đường truyền tham khảo cho dịch vụ số liệu thời gian thực 144 Kbsp……………………………………………………………………………… 52 Bảng 3.3 Quỹ đường truyền tham khảo cho dịch vụ số liệu phi thoại 384 Kbps……………………………………………………………………………… 53 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn ix C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an THUẬT NGỮ VIẾT TẮT A AWGN Additive White Gaussian Noise - Nhiễu Gauss trắng cộng AMPS Advance Mobile Phone System - Hệ thống điện thoại di động tiên tiến B BER Bit Error Rate - Tỉ lệ lỗi bit BPSK Binary Phase Shift Keying - Khóa dịch pha nhị phân BCCH Broadcast Control Channel - Kênh quảng bá điều khiển BCH Broadcast Channel - Kênh quảng bá BS Base Station - Trạm gốc BSC Base Station Controller - Bộ điều khiển trạm gốc BTS Base Tranceiver Station - Trạm vô tuyến gốc C CCCH Common Control Channel - Kênh điều khiển chung CDMA Code Division Multiple Access - Đa truy cập phân chia theo mã CCPCH Common Control Physial Channel - Kênh vật lý điều khiển chung CPCC Common Power Control Channel - Kênh điều khiển công suất chung CPCH Common Packet Channel - Kênh gói chung CPICH Common Pilot Channel - Kênh hoa tiêu chung CN Core Network - Mạng lõi CS Circuit Switch - Chuyển mạch kênh CSICH CPCH Status Indication Channel - Kênh thị trạng thái cho CPCH C/I Carrier to Interference Ratio - Tỷ số sóng mang nhiễu CD/CA-ICH Collision Detection/Channel Assignment- Indication Channel Kênh thị phát tranh chấp/ ấn định kênh D DCCH Dedicated Control Channel - Kênh điều khiển dành riêng DPCCH Dedicated Physical Control Channel - Kênh điều khiển vật lý riêng Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn x C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an SIRreal(j) = tt End If If Po(i) < Po(j) Then tt = Po(i) Po(i) = Po(j) Po(j) = tt End If If Pdk(i) < Pdk(j) Then tt = Pdk(i) Pdk(i) = Pdk(j) Pdk(j) = tt End If If Pn1(i) < Pn1(j) Then tt = Pn1(i) Pn1(i) = Pn1(j) Pn1(j) = tt End If Next j Next i End Sub ******************************************************* Private Sub cmbRt_Click() If cmbRt.Text = 12.2 Then Txt1.Text = Txt2.Text = -3 Txt3.Text = 21 Txt4.Text = 18 Txt5.Text = Txt6.Text = -141.9 Txt7.Text = -7.3 Txt8.Text = -2 71 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Txt9.Text = 0.67 Txt10.Text = 0.65 Txt11.Text = ElseIf cmbRt.Text = 144 Then Txt1.Text = Txt2.Text = -3 Txt3.Text = 26 Txt4.Text = 18 Txt5.Text = Txt6.Text = -133.8 Txt7.Text = -4.2 Txt8.Text = -2 Txt9.Text = Txt10.Text = 0.65 Txt11.Text = Else Txt1.Text = Txt2.Text = -3 Txt3.Text = 18 Txt4.Text = 18 Txt5.Text = Txt6.Text = -139.9 Txt7.Text = -7.3 Txt8.Text = -2 Txt9.Text = Txt10.Text = 0.65 Txt11.Text = End If End Sub ************************************************** Private Sub cmdL1KetQua_Click() 72 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Grid1.Row = Grid1.Col = Grid1.Text = " SIR(I)" Grid1.Row = Grid1.Col = Grid1.Text = " Kết quả" Call Startva For i = To (Val(TxtN.Text)) Grid1.Rows = i + Grid1.Row = i Grid1.Col = Grid1.Text = "SIR[" & Trim(Str(i - 1)) & "]" & "=" Grid1.Col = Grid1.Text = Round(SIRreal(i), 4) Next i End Sub Private Sub cmdL1Xoa_Click() For i = To (Val(TxtN.Text)) Grid1.Rows = i + Grid1.Row = i Grid1.Col = Grid1.Text = " " Grid1.Col = Grid1.Text = " " Next i End Sub ************************************************ Private Sub cmdL2KetQua_Click() Grid2.Row = Grid2.Col = 73 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Grid2.Text = " Po(i)" Grid2.Row = Grid2.Col = Grid2.Text = " DSSPC" Grid2.Row = Grid2.Col = Grid2.Text = " DPC" For i = To (Val(TxtN.Text)) Grid2.Rows = i + Grid2.Row = i Grid2.Col = Grid2.Text = " Po[" & Trim(Str(i - 1)) & "]" & "=" Grid2.Col = Grid2.Text = Po(i) Grid2.Col = Grid2.Text = Po(i) Next i End Sub Private Sub cmdL2Xoa_Click() For i = To (Val(TxtN.Text)) Grid2.Rows = i + Grid2.Row = i Grid2.Col = Grid2.Text = " " Grid2.Col = Grid2.Text = " " Grid2.Col = Grid2.Text = " " Next i End Sub 74 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an *********************************************** Private Sub cmdL3KetQua_Click() Grid3.Row = Grid3.Col = Grid3.Text = " Pdk(i) " Grid3.Row = Grid3.Col = Grid3.Text = " DSSPC " Grid3.Row = Grid3.Col = Grid3.Text = " DPC " For i = To (Val(TxtN.Text)) Grid3.Rows = i + Grid3.Row = i Grid3.Col = Grid3.Text = "PDK[" & Trim(Str(i - 1)) & "]" & "= " Grid3.Col = Grid3.Text = Pdk(i) Grid3.Col = Grid3.Text = Round(Pn1(i), 3) Next i End Sub *********************************************** Private Sub putPixel1(x, y, mau As Byte) graph.Circle (391, 279), 1.6, RGB(255, 0, 0) graph.Circle (396, 284), 1.6, RGB(255, 0, 0) End Sub Private Sub putPixel(x, y, mau As Byte) Dim CX As Double Dim CY As Double 75 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Dim delx As Double Dim dely As Double Dim x1 As Double Dim y1 As Double Dim j As Double CX = CY = delx = dely = x1 = y1 = If (x < 6) Or (y < 22) Then Exit Sub For i = To (x \ 1) - 'vi truc x bat dau tu x1 = x1 + 31.825 Next i CX = x1 + (x - x \ 1) * 31.825 For i = To (y \ 1) - 22 'vi truc y bat dau tu 22 y1 = y1 + 21.407 Next i CY = y1 + (y - y \ 1) * 21.407 CY = graph.ScaleHeight * (1#) - CY If mau = Then graph.Circle (CX, CY), 1.6, RGB(255, 0, 0) ElseIf mau = Then graph.Circle (CX, CY), 1.6, RGB(0, 0, 255) Else graph.Circle (CX, CY), 1.6, RGB(0, 255, 0) End If 76 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an End Sub Private Sub cmdL4BieuDo_Click() picBieuDo.Visible = False graph.Visible = True Dim y As Double For y = To Val(TxtN.Text) Call putPixel(SIRreal(y), Po(y), 1) Call putPixel(SIRreal(y), Pdk(y), 2) Call putPixel(SIRreal(y), Pn1(y), 3) Next y End Sub Private Sub Command10_Click() MGrid1.Row = MGrid1.Col = MGrid1.Text = " SIR_real" MGrid1.Row = MGrid1.Col = MGrid1.Text = " Po" MGrid1.Row = MGrid1.Col = MGrid1.Text = " DSSPC" MGrid1.Row = MGrid1.Col = MGrid1.Text = " DPC" For i = To (Val(TxtN.Text)) MGrid1.Rows = i + MGrid1.Row = i MGrid1.Col = MGrid1.Text = Round(SIRreal(i), 4) 77 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an MGrid1.Col = MGrid1.Text = Po(i) MGrid1.Col = MGrid1.Text = Pdk(i) MGrid1.Col = MGrid1.Text = Round(Pn1(i), 3) Next i End Sub Private Sub command6_Click() For i = To (Val(TxtN.Text)) Grid3.Rows = i + Grid3.Row = i Grid3.Col = Grid3.Text = " " Grid3.Col = Grid3.Text = " " Grid3.Col = Grid3.Text = " " Next i End Sub Private Sub cmdL4Thoat_Click() End End Sub Private Sub Command7_Click() For i = To (Val(TxtN.Text)) MGrid1.Rows = i + MGrid1.Row = i MGrid1.Col = MGrid1.Text = " " 78 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an MGrid1.Col = MGrid1.Text = " " MGrid1.Col = MGrid1.Text = " " MGrid1.Col = MGrid1.Text = " " Next i End Sub Private Sub Command9_Click() End End Sub Private Sub Form_Load() TxtN.Text = " " ReDim t(Val(TxtN.Text)) ReDim a(Val(TxtN.Text)) ReDim Rt(Val(TxtN.Text)) ReDim Pme(Val(TxtN.Text)) ReDim Pma(Val(TxtN.Text)) ReDim SF(Val(TxtN.Text)) ReDim Pcu(Val(TxtN.Text)) ReDim Iutr(Val(TxtN.Text)) ReDim Ictr(Val(TxtN.Text)) ReDim Itr(Val(TxtN.Text)) ReDim Io(Val(TxtN.Text)) ReDim SIRreal(Val(TxtN.Text)) ReDim ERL(100) ReDim gamaI(Val(TxtN.Text)) ReDim Pdk(Val(TxtN.Text)) 79 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ReDim Po(Val(TxtN.Text)) ReDim Pn(Val(TxtN.Text)) ReDim Pn1(Val(TxtN.Text)) For i = To Val(TxtN.Text) t(i) = CInt(Rnd1(90, 210)) Rt(i) = Rnd1(9.6, 374 + 9.6) Pme(i) = Rnd1(18, 30) Next i Tinh End Sub Private Sub Startva() ReDim t(Val(TxtN.Text)) ReDim a(Val(TxtN.Text)) ReDim Rt(Val(TxtN.Text)) ReDim Pme(Val(TxtN.Text)) ReDim Pma(Val(TxtN.Text)) ReDim SF(Val(TxtN.Text)) ReDim Pcu(Val(TxtN.Text)) ReDim Iutr(Val(TxtN.Text)) ReDim Ictr(Val(TxtN.Text)) ReDim Itr(Val(TxtN.Text)) ReDim Io(Val(TxtN.Text)) ReDim SIRreal(Val(TxtN.Text)) ReDim ERL(100) ReDim gamaI(Val(TxtN.Text)) ReDim Pdk(Val(TxtN.Text)) ReDim Po(Val(TxtN.Text)) 80 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an ReDim Pn(Val(TxtN.Text)) ReDim Pn1(Val(TxtN.Text)) For i = To Val(TxtN.Text) t(i) = CInt(Rnd1(90, 210)) Rt(i) = Rnd1(9.6, 374 + 9.6) Pme(i) = Rnd1(18, 30) Next i Tinh End Sub Private Function getSub1(x As String) As String Dim Index Index = InStr(x, ".") getSub1 = Left(x, Index + 1) End Function Private Sub command1_Click() graph.Visible = False picBieuDo.Visible = True picBieuDo.Cls ' Ve bieu do: SIRreal(), Po() Dim MaxHDrawArea As Double, MaxWDrawArea As Double ' rong vung de ve Dim goc As PointType Dim XUnit As Double, YUnit As Double ' don vi = bao nhieu twip Dim countPoint As Double Dim temp, temp0, temp1, temp2 As Double, i As Long MaxHDrawArea = picBieuDo.Height - 480 MaxWDrawArea = picBieuDo.Width - 480 goc.x = 360 81 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an goc.y = picBieuDo.Height - 360 ' Ve cac phuong toa picBieuDo.DrawWidth = picBieuDo.Line (goc.x, goc.y)-(goc.x, 120), QBColor(13) 'trucPo picBieuDo.Line (goc.x, goc.y)-(MaxWDrawArea, goc.y), QBColor(13) 'trucsir 've mui ten sir picBieuDo.Line (MaxWDrawArea - 150, goc.y - 40)-(MaxWDrawArea, goc.y), QBColor(12) picBieuDo.Line (MaxWDrawArea - 150, goc.y + 30)-(MaxWDrawArea, goc.y), QBColor(12) 've mui ten Po picBieuDo.Line (goc.x - 30, 270)-(goc.x, 120), QBColor(12) picBieuDo.Line (goc.x + 25, 270)-(goc.x, 120), QBColor(12) picBieuDo.CurrentX = 60 picBieuDo.CurrentY = picBieuDo.Print "CONG SUAT" picBieuDo.CurrentX = 1600 picBieuDo.CurrentY = 80 picBieuDo.Print "Po" picBieuDo.CurrentX = 3000 picBieuDo.CurrentY = 80 picBieuDo.Print " PDC" picBieuDo.CurrentX = 4400 picBieuDo.CurrentY = 80 picBieuDo.Print "DSSPC" picBieuDo.CurrentX = 6200 picBieuDo.CurrentY = 5200 82 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an picBieuDo.Print "SIR" '******************************************** picBieuDo.DrawWidth = picBieuDo.Line (goc.x + 1200, goc.y - 4850)-(goc.x + 1500, goc.y - 4850), QBColor(9) 'trucPo picBieuDo.Line (goc.x + 2700, goc.y - 4850)-(goc.x + 3000, goc.y - 4850), QBColor(5) 'trucPo picBieuDo.Line (goc.x + 4100, goc.y - 4850)-(goc.x + 4500, goc.y - 4850), QBColor(12) 'trucPo '********************************************ke duong ngang picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 3800 picBieuDo.Print "10 -" picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 4400 picBieuDo.Print "5 " picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 3200 picBieuDo.Print "15 -" picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 2600 picBieuDo.Print "20 -" picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 2000 83 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an picBieuDo.Print "25 -" picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 1400 picBieuDo.Print "30 -" picBieuDo.CurrentX = 60 picBieuDo.CurrentY = 800 picBieuDo.Print "35 " '******************************************************* countPoint = Val(TxtN.Text) ' Xac dinh XUnit, YUnit temp = For i = To countPoint If temp < SIRreal(i) Then temp = SIRreal(i) Next i XUnit = Round(MaxWDrawArea / (Round(temp) + 4)) 've pdk temp0 = For i = To countPoint If temp0 < Pdk(i) Then temp0 = Pdk(i) Next i YUnit = Round(MaxHDrawArea / (Round(temp0) + 8)) 've pn1 temp1 = For i = To countPoint If temp1 < Pn1(i) Then temp1 = Pn1(i) Next i YUnit = Round(MaxHDrawArea / (Round(temp1) + 8)) 84 Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn C.33.44.55.54.78.65.5.43.22.2.4 22.Tai lieu Luan 66.55.77.99 van Luan an.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.C.33.44.55.54.78.655.43.22.2.4.55.22 Do an.Tai lieu Luan van Luan an Do an.Tai lieu Luan van Luan an Do an Stt.010.Mssv.BKD002ac.email.ninhd 77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77.77.99.44.45.67.22.55.77.C.37.99.44.45.67.22.55.77t@edu.gmail.com.vn.bkc19134.hmu.edu.vn.Stt.010.Mssv.BKD002ac.email.ninhddtt@edu.gmail.com.vn.bkc19134.hmu.edu.vn
Ngày đăng: 22/08/2023, 00:15
Xem thêm:
