Tieu luan_vẽ đường tập hợp cơ hội đầu tư_ đường biên hiệu quả_TCDL

TRƯỜNG ĐẠI HỌC KINH TẾ TP HỒ CHÍ MINH CAO HỌC KHĨA 28 - KHOA TÀI CHÍNH TIỂU LUẬN TÀI CHÍNH ĐỊNH LƯỢNG Học viên thực hiện: MSHV: 7701280726A Lớp: Tài định lượng – Hệ: Cao học Khóa: 28_A315_Chiều CN Giảng viên hướng dẫn: Bài tập: Tiểu luận thi cuối kỳ TP HCM, NGÀY 14 THÁNG 09 NĂM 2019 _TCDL _CH K28_CHIỀU CN MỤC LỤC CÂU 1: THU THẬP DATA CÂU 2: TÍNH TÝ SUẤT SINH LỢI THEO THÁNG CÂU 3: MA TRẬN HIỆP PHƯƠNG SAI CÂU 4: TÌM DANH MỤC PHƯƠNG SAI NHỎ NHẤT CÂU 5: VẼ ĐỒ THỊ ĐƯỜNG TẬP HỢP CÁC CƠ HỘI ĐẦU TƯ VÀ ĐƯỜNG BIÊN HIỆU QUẢ CÂU 6: VIẾT HÀM VBA ĐỂ TÍNH ĐỘ LỆCH CHUẨN CỔ PHIẾU 11 CÂU 7: VIẾT HÀM VBA ĐỂ TÍNH ĐỘ LỆCH CHUẨN DANH MỤC 12 NGUỒN 13 _TCDL _CH K28_CHIỀU CN CÂU 1: THU THẬP DATA  Yêu cầu: - Giá đóng cửa hàng ngày - Số lượng cổ phiếu: 15 cổ phiếu - Số ngành: ngành, ngành cổ phiếu - Khoảng thời gian: 60 tháng, tính đến cuối tháng 7/2019  Bài làm: - Lựa chọn ngành đóng góp lớn kinh tế Việt Nam bao gồm: Bất động sản, Dệt may, Dược, Ngân hàng, Xây dựng - Cổ phiếu: Lựa chọn công ty có vốn hóa lớn, đầu ngành trên, cổ phiếu giao dịch sôi động dẫn dắt thị trường Vì thời gian yêu cầu 60 tháng (5 năm) nên ngồi điều kiện cịn phải cân nhắc chọn cổ phiếu có thời gian niêm yết năm, niêm yết sàn HOSE HNX - Danh sách 15 công ty chọn sau: STT 10 11 12 13 14 15 - Ngành Bất động sản Dệt may Dược Ngân hàng Xây dựng Mã CP DXG NLG SCR GMC TCM TNG DHG DMC TRA BID CTG VCB CTD FCN HBC Tên cơng ty Cty CP Tập đồn Đất Xanh Cty CP Đầu tư Nam Long Cty CP Địa ốc SG Thương Tín- TTC land Cty CP Sản xuất Thương mại May Sài Gòn Cty CP Dệt may - Đầu tư - Thương mại Thành Công Cty CP đầu tư thương mại Cty CP Dược Hậu Giang Cty CP Xuất nhập Y tế Domesco Công ty Cổ phần TRAPHACO NH TMCP Đầu tư Phát triển Việt Nam NH TMCP Công Thương Việt Nam NH TMCP Ngoại thương Việt Nam CTCP Xây dựng Cotec (Coteccons) Công ty cổ phần FECON Cty CP Tập đồn xây dựng Hịa Bình Thời gian: Gía đóng cửa hàng ngày có điều chỉnh (cổ tức, phát hành cổ phiếu) từ ngày 31/07/201431/07/2019 Giá ngày cuối tháng lấy giá ngày cuối tháng có phát sinh giao dịch - Nguồn: Trang thông tin nhiều người truy cập sử dụng: https://www.cophieu68.vn/ _TCDL _CH K28_CHIỀU CN - Thứ tự liệu: Số liệu sau tải xếp theo thứ tự thời gian giảm dần từ xuống sau Đơn vị tính 1.000 VND - Số liệu trình bày sheet: 1.CÂU 1-DATA: CÂU 2: TÍNH TÝ SUẤT SINH LỢI THEO THÁNG  Yêu cầu: - Trình bày cách lọc giá cổ phiếu vào ngày giao dịch cuối tháng - Tính tỷ suất sinh lợi theo tháng cổ phiếu  Bài làm: - Bước 1: Tại sheet 1.Câu 1-DATA Vì số liệu thu thập theo ngày từ ô A5 đến ô P1251 xếp theo thứ tự từ xuống theo thời gian giảm dần, ta áp dụng cơng thức sau để tìm cuối tháng: = IF (MONTH (A5) = MONTH (A4);"no";"Ngay cuoi thang") Diễn giải: Nếu tháng A5 với tháng liền trước A4, ghi nhận vào Q5 khơng phải ngày cuối tháng:”no”, tháng A5 không với tháng ô liền trước A4 ngày cuối tháng ghi nhận “Ngay cuoi thang” ô Q5 Tương tự coppy công thức xuống hết liệu cột Q ta có: _TCDL _CH K28_CHIỀU CN - Bước 2: Tại sheet 2.CÂU 2-END MONTH, dùng filter advanced để lọc ngày cuối tháng  Vào Data -> Filter advanced  List range: vùng lọc vùng A4:Q1251 sheet  Criteria range: vùng điều kiện lọc liệu theo yêu cầu vùng A3:A4 sheet  Coppy to: kết liệu trình bày từ A6 sheet  Bấm ok ta thu 61 liệu tháng sau: - Bước 3: Tính TSSL theo tháng sheet 3.CÂU 2-RETURN  Sau có ngày cuối tháng cổ phiếu, tính tỷ suất sinh lợi theo tháng cổ phiếu có tính đến lãi kép, sử dụng hàm logarit (bằng cách lấy Ln giá đóng cửa tháng chia cho giá đóng cửa tháng liền trước)  Ta thu tỷ suất sinh lơi theo tháng cổ phiếu vòng 60 tháng sau: _TCDL _CH K28_CHIỀU CN CÂU 3: MA TRẬN HIỆP PHƯƠNG SAI  Yêu cầu: Ước lượng ma trận hiệp phương sai tỷ suất sinh lợi 15 cổ phiếu  Bài làm: có cách - Cách 1: Tính tỷ suất sinh lợi trung bình cổ phiếu, sau tính tỷ suất sinh lợi vượt trội tính tốn ma trận phương sai- hiệp phương sai cơng thức trình bày sheet 3.CÂU 2-RETURN - Cách 2: Sử dụng VBA Function, ứng dụng hàm Covariance_S excel để tính tốn ma trận phương sai- hiệp phương sai sheet 4.CÂU 3-CÂU sau:  Developer -> visual basic -> module 1: _TCDL _CH K28_CHIỀU CN  Sau đó, quét vùng variance-covariance matrix: nhập hàm =varcovar () với vùng TSSL theo tháng cổ phiếu tính sheet 3.CÂU 2-RETURN B3:P62 Kết thu sau: CÂU 4: TÌM DANH MỤC PHƯƠNG SAI NHỎ NHẤT  Yêu cầu: Tìm danh mục 15 cổ phiếu có phương sai nhỏ nhất, tính tỷ suất sinh lợi độ lệch chuẩn danh mục - Danh mục cổ phiếu có phương sai nhỏ Global Minimum Variance Portfolio (GMVP) - Ma trận S ma trận phương sai – hiệp phương sai tính - Danh mục cần tìm vector x = {x1 , x2, x3,…… xn } n=15 cổ phiếu, có phương sai nhỏ tất danh mục khả thi, danh mục xác định: _TCDL _CH K28_CHIỀU CN - Cơng thức tính trung bình (mean) danh mục phương sai danh mục sau:  Bài làm: Tại sheet 4.CÂU 3-CÂU - Bước 1: Sử dụng hàm VBA function để tính ma trận unit theo cột theo dòng sau: module - Bước 2: Tìm danh mục GMVP, tính phương sai, độ lệch chuẩn danh mục theo cơng thức trình bày sau: (vùng B4:P18 ma trận hiệp phương sai tính) ta thu kết vùng GMVP statics _TCDL _CH K28_CHIỀU CN CÂU 5: VẼ ĐỒ THỊ ĐƯỜNG TẬP HỢP CÁC CƠ HỘI ĐẦU TƯ VÀ ĐƯỜNG BIÊN HIỆU QUẢ  Yêu cầu: Vẽ đường tập hợp hội đầu tư (opportunities set) đường biên hiệu (efficient frontier), cho phép bán khống - Đường biên hiệu nửa đường tập hợp hội đầu tư Opportunities set, tính từ điểm có phương sai nhỏ - Để thiết lập danh mục tối ưu khơng có hạn chế bán khống, sử dụng cơng thức sau để tính tỷ trọng cổ phiếu danh mục: 𝑺−𝟏 {𝑬(𝒓) − 𝒄} 𝒙= 𝑺𝒖𝒎[𝑺−𝟏 {𝑬(𝒓) − 𝒄}]  Bài làm: Tại sheet 5.CÂU 5-IOS - Bước 1: Cho c= 0,03% Dùng công thức trình bày để tìm danh mục tối ưu, ma trận S ma trận hiệp phương sai tính B7:P21, kết sau: _TCDL _CH K28_CHIỀU CN - Bước 2: Để vẽ đường tập hợp hội đầu tư, ta cho c thay đổi để xác định tập hợp danh mục tối ưu (optimal portfolio) bao gồm số lượng cặp TSSL độ lệch chuẩn (portffolio mean portfolio sigma) đủ lớn Sử dụng VBA với thuật toán sau:  Cho c thay đổi 100 giá trị, bước giá trị cách 0,01 Bắt đầu từ -0,49 đến 0,5  Gía trị trình bày vùng A47:R146 : Cột giá trị c thay đổi, cột sigma, cột thứ mean, cột tỷ trọng đầu tư vào 15 cổ phiếu cho  VBA Module 4: +Ta thu kết sau tiến hành chạy sub trên: _TCDL _CH K28_CHIỀU CN - Bước 3: Tìm điểm có độ lệch chuẩn nhỏ nằm đường tập hợp hội đầu tư để vẽ đường biên hiệu quả, ta sử dụng hàm solve với ràng buộc sau:  set objective : mục tiêu portfolio sigma  to:  by changing variable cells: ô thay đổi vùng C22:C36  constraints: C37 =1 - Tại sheet 6.CÂU 5-FRONTIER, ta sử dụng hàm solver sau: 10 _TCDL _CH K28_CHIỀU CN - Kết thu điểm có độ lệch chuẩn nhỏ trung bình kèm (màu đỏ): - Bước 4: Với liệu thu được, ta vẽ đường biên hiệu đường tập hợp hội biểu đồ với đường màu cam đường biên hiệu (nửa đường tập hợp hội đầu tư từ điểm có phương sai nhỏ nhất) - Biểu đồ Tại sheet 7.CÂU 5-CHART CÂU 6: VIẾT HÀM VBA ĐỂ TÍNH ĐỘ LỆCH CHUẨN CỔ PHIẾU 11 _TCDL _CH K28_CHIỀU CN  Yêu cầu: Một cổ phiếu có trường hợp tăng trưởng mạnh, bình thường suy thối với xác suất TSSL kèm, tính độ lệch chuẩn hàm VBA:  Bài làm: Tại sheet 8.CÂU - Bước 1: Tạo hàm tên sigma_mean (vùng xác suất, vùng TSSL tương ứng) Tính tỷ suất sinh lợi trung bình cổ phiếu, sau tính phương sai cổ phiếu, lấy bậc hai độ lệch chuẩn theo công thức: E(r ) = ∑3𝑖=1(pi ∗ ri) σ = ∑3𝑖=1[𝑝𝑖 ∗ (𝑟𝑖 − 𝐸(𝑟))^2] - VBA Function Module 6: Function sigma_mean(arr_1 As Range, arr_2 As Range) As Variant Dim mean As Variant Dim variance As Variant mean = Application.WorksheetFunction.SumProduct(arr_1, arr_2) variance = arr_1.Cells(1, 1) * (arr_2.Cells(1, 1) - mean) ^ + arr_1.Cells(2, 1) * (arr_2.Cells(2, 1) - mean) ^ + arr_1.Cells(3, 1) * (arr_2.Cells(3, 1) mean) ^ sigma_mean = Sqr(variance) End Function - Bước 2: Gõ hàm = sigma_mean(B2:B4; C2:C4), ta có kết quả: CÂU 7: VIẾT HÀM VBA ĐỂ TÍNH ĐỘ LỆCH CHUẨN DANH MỤC  Yêu cầu: Dùng hàm VBA để tính độ lệch chuẩn danh mục gồm cổ phiếu cho sẵn thông số  Bài làm: Tại sheet 9.CÂU - Cơng thức tính phương sai danh mục sau: σ p2 = w12 *σ1 + w22 *σ2 + *w1 * w2 *σ1 *σ2 *p 12 _TCDL _CH K28_CHIỀU CN - Bước 1: Tạo hàm có tên sigma_portfolio (TSSL 1, Sigma 1, tỷ trọng 1, TSSL 2, sigma 2, tỷ trọng 2, hệ số tương quan) - VBA Function module sau: Function sigma_portfolio(r_1 As Variant, sigma_1 As Variant, w_1 As Variant, r_2 As Variant, sigma_2 As Variant, w_2 As Variant, hstq As Variant) As Variant Dim variance As Variant variance = w_1 ^ * sigma_1 ^ + w_2 ^ * sigma_2 ^ + * w_1 * w_2 * sigma_1 * sigma_2 * hstq sigma_portfolio = Sqr(variance) End Function - Bước 2: gõ hàm =sigma_portfolio (B2;B3;B5;C2;C3;C5;B4), ta có kết quả:  NGUỒN - https://www.cophieu68.vn/ - Financial Modeling by Simon Benninga, fourth edition 13 ... BIÊN HIỆU QUẢ  Yêu cầu: Vẽ đường tập hợp hội đầu tư (opportunities set) đường biên hiệu (efficient frontier), cho phép bán khống - Đường biên hiệu nửa đường tập hợp hội đầu tư Opportunities set,... kèm (màu đỏ): - Bước 4: Với liệu thu được, ta vẽ đường biên hiệu đường tập hợp hội biểu đồ với đường màu cam đường biên hiệu (nửa đường tập hợp hội đầu tư từ điểm có phương sai nhỏ nhất) - Biểu... theo cơng thức trình bày sau: (vùng B4:P18 ma trận hiệp phương sai tính) ta thu kết vùng GMVP statics _TCDL _CH K28_CHIỀU CN CÂU 5: VẼ ĐỒ THỊ ĐƯỜNG TẬP HỢP CÁC CƠ HỘI ĐẦU TƯ VÀ ĐƯỜNG BIÊN HIỆU