(LUẬN án TIẾN sĩ) ứng dụng hình học fractal trong thiết kế tổ hợp kiến trúc tại việt nam

BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC XÂY DỰNG HÀ NỘI LÊ THỊ PHƯƠNG CHI ỨNG DỤNG HÌNH HỌC FRACTAL TRONG THIẾT KẾ TỔ HỢP KIẾN TRÚC TẠI VIỆT NAM Chuyên ngành: Kiến trúc Mã số: 9580101 LUẬN ÁN TIẾN SĨ Hà Nội - Năm 2022 TIEU LUAN MOI download : skknchat123@gmail.com moi nhat BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC XÂY DỰNG HÀ NỘI LÊ THỊ PHƯƠNG CHI ỨNG DỤNG HÌNH HỌC FRACTAL TRONG THIẾT KẾ TỔ HỢP KIẾN TRÚC TẠI VIỆT NAM Chuyên ngành: Kiến trúc Mã số: 9580101 NGƯỜI HƯỚNG DẪN KHOA HỌC GS.TS DỖN MINH KHƠI PGS.TS ĐẶNG VĂN CỨ Hà Nội - Năm 2022 TIEU LUAN MOI download : skknchat123@gmail.com moi nhat i LỜI CAM ĐOAN Tôi xin cam đoan: Đây cơng trình nghiên cứu riêng Các số liệu kết nghiên cứu luận án trung thực chưa công bố cơng trình khoa học Tơi xin chịu trách nhiệm tính xác thực kết nghiên cứu công bố luận án Nghiên cứu sinh LÊ THỊ PHƯƠNG CHI LÊ THỊ PHƯƠNG CHI TIEU LUAN MOI download : skknchat123@gmail.com moi nhat ii LỜI CẢM ƠN Tôi xin chân thành cảm ơn Trường Ðại học Xây dựng Hà Nội, Khoa Kiến trúc Quy hoạch, Phòng Quản lý Đào tạo, Phòng Khoa học Công nghệ, Viện kiến trúc Quy hoạch UAI, Bộ mơn Kiến trúc dân dụng, Bộ mơn Hình họa - Vẽ kỹ thuật nhà khoa học lẫn ngồi trường hỗ trợ, giúp đỡ tơi suốt thời gian qua Tôi xin đặc biệt bày tỏ lịng biết ơn sâu sắc tới GS.TS Dỗn Minh Khôi PGS.TS Đặng Văn Cứ người thầy hết lịng hướng dẫn, giúp đỡ tơi hồn thành nghiên cứu Tơi chân thành cảm ơn tồn thể bạn bè, đồng nghiệp gia đình sát cánh bên tôi, ủng hộ, động viên, khích lệ tơi hồn thành luận án Tác giả luận án Nghiên cứu sinh LÊ THỊ PHƯƠNG CHI TIEU LUAN MOI download : skknchat123@gmail.com moi nhat iii MỤC LỤC Trang phụ bìa LỜI CAM ĐOAN……………………………………………………………………i LỜI CẢM ƠN……………………………………………………………………….ii MỤC LỤC……………………………………………………………………….….iii DANH MỤC CÁC CHỮ VIẾT TẮT…………………………………………… vii DANH MỤC CÁC BẢNG……… ………………………………………… viii DANH MỤC CÁC SƠ ĐỒ…………………………………………… ……… ix DANH MỤC CÁC HÌNH……………………………………………………………x MỞ ĐẦU Lý chọn đề tài…… Mục đích mục tiêu nghiên cứu Đối tượng phạm vi nghiên cứu Ý nghĩa khoa học thực tiễn đề tài nghiên cứu… Phương pháp nghiên cứu .4 Các đóng góp luận án Cấu trúc luận án………………… Giải thích số khái niệm thuật ngữ sử dụng luận án CHƯƠNG TỔNG QUAN VỀ ỨNG DỤNG HÌNH HỌC FRACTAL TRONG TỔ HỢP KIẾN TRÚC 1.1 Tổng quan hình thành phát triển hình học Fractal…….…… 1.1.1 Quá trình đời, phát triển hình học Fractal .9 1.1.2 So sánh khác biệt hình học Fractal, hình học Euclid hình học Topo 10 1.1.3 Hình học Fractal đồ họa máy tính 14 1.2 Tình hình ứng dụng hình học Fractal thiết kế tổ hợp kiến trúc giới Việt Nam …………… ……………….………………… ……….16 1.2.1 Tình hình ứng dụng hình học Fractal thiết kế tổ hợp kiến trúc TIEU LUAN MOI download : skknchat123@gmail.com moi nhat iv giới 16 1.2.2 Thực trạng ứng dụng hình học Fractal thiết kế tổ hợp kiến trúc Việt Nam 29 1.2.2.1 Biểu hình học Fractal kiến trúc cổ Việt Nam 29 1.2.2.1 Biểu hình học Fractal kiến trúc đại Việt Nam 31 1.3 Tổng quan cơng trình nghiên cứu có liên quan.…………… ………….38 1.4 Nhận xét chung vấn đề đặt cho nghiên cứu………………… ……… 42 1.4.1 Nhận xét chung 42 1.4.2 Vấn đề đặt cho nghiên cứu 43 CHƯƠNG CƠ SỞ KHOA HỌC ỨNG DỤNG HÌNH HỌC FRACTAL TRONG TỔ HỢP KIẾN TRÚC TẠI VIỆT NAM 2.1 Cơ sở lý thuyết 44 2.1.1 Cơ sở lý thuyết tổ hợp hình học Fractal 44 2.1.1.1 Phương pháp tạo hình Fractal theo tư hình khởi tạo - hình phát sinh .44 2.1.1.2 Các đặc điểm tổ hợp hình học Fractal .46 2.1.1.3 Một số tổ hợp hình học Fractal 48 2.1.1.3 Một số hình thức phân loại hình học Fractal 51 2.1.2 Cơ sở lý thuyết tổ hợp kiến trúc 53 2.1.2.1 Ngôn ngữ quy luật tạo hình tổ hợp kiến trúc 53 2.1.2.2 Đặc điểm tổ hợp kiến trúc 53 2.1.2.3 Phép phát triển tổ hợp kiến trúc 58 2.1.2.4 Phép biến thể tổ hợp kiến trúc… 60 2.1.3 So sánh tổ hợp hình học Fractal tổ hợp kiến trúc 61 2.1.3.1 Sự tương thích 61 2.1.3.2 Sự khác biệt 66 2.2 Cơ sở học kinh nghiệm thực tiễn……………………………………… 69 2.2.1 Các tiêu chí phân loại ứng dụng hình học Fractal từ thực tiễn 69 2.2.2 Kinh nghiệm thiết kế tổ hợp theo cấp độ ứng dụng linh hoạt hình học Fractal 69 TIEU LUAN MOI download : skknchat123@gmail.com moi nhat v 2.2.2.1 Ứng dụng nguyên mẫu 71 2.2.2.2 Ứng dụng sáng tạo 72 2.2.2.3 Ứng dụng linh hoạt, tự 73 2.2.3 Kinh nghiệm thiết kế tổ hợp kiến trúc theo phát triển linh hoạt hình thái kiến trúc 76 2.2.3.1.Kiến trúc phát triển theo chiều rộng 76 2.2.3.2 Kiến trúc phát triển theo chiều cao 77 2.2.3.3 Kiến trúc phát triển theo khối lớn .79 2.2.4 Kinh nghiệm thiết kế tổ hợp kiến trúc theo khả phát triển linh hoạt phong cách kiến trúc 80 2.2.4.1.Kiến trúc hữu cơ, sinh học .80 2.2.4.2 Kiến trúc dựa theo tạo hình truyền thống 82 2.2.4.3 Kiến trúc công nghệ 83 2.3 Các yếu tố tác động tới việc ứng dụng hình học Fractal vào tổ hợp kiến trúc Việt Nam……………………………………………………………………….85 2.3.1 Điều kiện tự nhiên………………………………… 85 2.3.2 Yếu tố văn hóa xã hội, người………… 87 2.3.3 Sự phát triển công nghệ .90 2.4 Cơ sở pháp lý nhu cầu ứng dụng hình học Fractal vào tổ hợp kiến trúc Việt Nam………………………… ……… 92 2.5 Khái quát vấn đề xây dựng sở khoa học 94 CHƯƠNG ĐỀ XUẤT ỨNG DỤNG HÌNH HỌC FRACTAL TRONG THIẾT KẾ TỔ HỢP KIẾN TRÚC 3.1 Quan điểm, nguyên tắc ứng dụng 95 3.1.1 Quan điểm 95 3.1.2 Nguyên tắc .96 3.2 Đề xuất giải pháp ứng dụng hình học Fractal thiết kế tổ hợp kiến trúc 98 3.2.1 Đề xuất phạm vi ứng dụng hình học Fractal thiết kết tổ hợp kiến trúc Việt Nam 98 TIEU LUAN MOI download : skknchat123@gmail.com moi nhat vi 3.2.2 Đề xuất ứng dụng hình học Fractal phương pháp thiết kế tạo hình kiến trúc 99 3.2.2.1 Tạo hình phương pháp biến đổi tổ hợp hình học Fractal 99 3.2.2.2 Tạo hình phương pháp tổ hợp dạng lưới hình học Fractal 103 3.2.2.3 Đề xuất tạo hình ứng dụng ngơn ngữ máy tính 107 3.2.3 Đề xuất ứng dụng hình học Fractal triển khai giai đoạn thiết kế .113 3.2.3.1 Giai đoạn - Thiết kế ý tưởng 113 3.2.3.2 Giai đoạn - Thiết kế sơ 115 3.2.3.3 Giai đoạn - Thiết kế chi tiết 125 3.3 Ứng dụng hình học Fractal thiết kế tổ hợp kiến trúc - trường hợp trung tâm văn hóa quận Nam Từ Liêm, Hà Nội, Việt Nam 128 3.3.1 Giới thiệu dự án .128 3.3.2 Thiết kế ý tưởng (giai đoạn 1) 129 3.3.3 Thiết kế sơ (giai đoạn 2) 131 3.3.3.1 Giải pháp tạo hình Fractal ứng dụng để khai triển tổ hợp 131 3.3.3.2 Giải pháp ứng dụng tạo hình Fractal bước triển khai tổ hợp .132 3.3.4 Thiết kế chi tiết (giai đoạn 3) ) 135 3.4 Đánh giá bàn luận kết nghiên cứu .139 KẾT LUẬN 143 Kết luận 143 Kiến nghị .145 DANH MỤC CÁC BÀI BÁO KHOA HỌC ĐÃ CÔNG BỐ CỦA TÁC GIẢ 146 TÀI LIỆU THAM KHẢO 147 PHỤ LỤC TIEU LUAN MOI download : skknchat123@gmail.com moi nhat vii DANH MỤC CÁC CHỮ VIẾT TẮT Ctr: Cơng trình Ds: Kích thước tự đồng dạng NCS: Nghiên cứu sinh KTS: Kiến trúc sư SV: Sinh viên THHH: Tổ hợp hình học THKT: Tổ hợp kiến trúc TMB : Tổng mặt VD: VD TIEU LUAN MOI download : skknchat123@gmail.com moi nhat viii DANH MỤC CÁC BẢNG Bảng 1.1 So sánh hình học Fractal với hình học Euclid Topo Bảng 2.1 Hệ thống quy luật tạo hình tổ hợp kiến trúc Bảng 2.2 Các dạng bố cục hình học Fractal tổ hợp kiến trúc kèm VD Bảng 2.3 Tóm tắt yếu tố tự nhiên theo vùng miền Việt Nam Bảng 3.1 Tóm tắt, đánh giá phương pháp tạo hình dựa theo hình học Fractal đề xuất Bảng 3.2 Nguyên tắc thiết lập hai tạo hình ứng dụng Fractal cho giải pháp kết hợp lập trình Bảng 3.3 Kết trình thử nghiệm tạo hình biến thể máy tính Bảng 3.4 Một số dạng triển tổ hợp Fractal từ hình khởi tạo gốc hình vng phù hợp kiểu bố cục kiến trúc Bảng 3.5 Thống kê hạng mục cơng trình nhà văn hóa TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 15- PL PHỤ LỤC Một số cách thức Chi tiết hóa/ Điêu khắc hóa tổ hợp ứng dụng hình học Fractal Giất cấp/ phân lớp theo chiều dọc Tạo chi tiết trang trí đồng dạng nhiều tỷ lệ Phân vị ngang không đồng Phân vị đứng không đồng (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 16- PL Tạo độ nhám, gồ ghề ghép mảnh Phân chia lưới/ tạo độ gồ ghề mái Họa tiết trang trí bề mặt trần/ sảnh Chi tiết trang trí khung, cột kiểu tự nhiên Hiệu ứng ánh sáng, hình ảnh Tạo hệ lưới bao phức tạp bề mặt cho bề mặt kính Đục trổ đặc rộng đồng dạng cho bề mặt (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 17- PL PHỤ LỤC Ví dụ: Ứng dụng lệnh có sẵn Autocad để xây dựng Fractal tạo dựng nên từ hình ngũ giác GIAI ĐOẠN 1- tạo HÌNH KHỞI TẠO (INITIATOR) Dùng lệnh Polygon để vẽ ngũ giác Command: POLYGON  Enter number of sides :  Specify center of polygon or [Edge]: ( gõ tọa độ/ pick chuột trái chọn điểm tâm đường trịn đó) Enter an option [Inscribed in circle/Circumscribed about circle] : C ( chọn nội tiếp ngoại tiếp đường tròn) Specify radius of circle: 100 ( gõ bán kính tùy chọn) Hình 3.12 Vẽ hình khởi tạo dạng ngũ giác phần mềm Autocad GIAI ĐOẠN 2- tạo HÌNH PHÁT SINH (GENERATOR) từ số phiên chép HÌNH KHỞI TẠO Dùng lệnh Mirro để tạo phiên đối xứng hình khởi tạo- đó, cạnh trục đối xứng (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 18- PL Command: MIRROR  Select objects: found Select objects: Specify first point of mirror line: Specify second point of mirror line: Erase source objects? [Yes/No] : Hình 3.13 Phát triển hình phát sinh từ hình khởi tạo thơng qua lệnh "mirror" Lặp lại lần lệnh Mirro với trục đối xứng cạnh ngũ giác khởi tạo đối tượng lấy đối xứng ngũ giác khởi tạo Ta thu hình phát sinh- Generator bơng hoa cánh Hình 3.14 Hình phát sinh từ ngũ giác dựng mềm Autocad Dùng lệnh Block để tạo khối với hình phát sinh Generator này, tạo điều kiện thuận lợi giảm thiểu số đối tượng vẽ lần vẽ cho mức lớn (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 19- PL Command: B BLOCK Select objects: Specify opposite corner: found Select objects: Specify insertion base point: Hình 3.15 Tạo khối cho hình phát sinh Autocad Dùng lệnh Align- dời hình, đưa Generator tạo khối vào vị trí thay cho Initiator ban đầu- Chú ý: Vừa dời hình, vừa thu nhỏ tỷ lệ cho hình bao Genearator với hình khởi tạo Initiator Ta hoàn thiện mức Command: AL ALIGN Select objects: found Select objects: Specify first source point: Specify first destination point: Specify second source point: Specify second destination point: Specify third source : point or Hình 3.16 Thay hình phát sinh cho Scale objects based on alignment hình khởi tạo lệnh " Align" points? [Yes/No] : Y Autocad (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 20- PL Để tạo Fractal mức 2, ta chèn ( lệnh insert) chép ( lệnh Copy) phiên Generator Sau đó, lại dùng lệnh Align để di chuyển thu nhỏ tỉ lệ để chúng vừa với phiên hình khởi tạo xuất thêm mức Cuối cùng, dùng lệnh Mirro, lấy đối xứng để chèn Generator mức vào thay thể cho đầy đủ hình Initiator đồng mức xung quanh Hình 3.17.Phát triển tổ hợp Fractal từ hình ngũ giác mức Autocad (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 21- PL Chú ý: Sau thay hình phát sinh cho phiên hình khởi tạo mức, ta cần xóa hình mức cũ Q trình lặp lại tương tự, có có Fractal hình ngũ giác mức sau: Hình 3.18 Tổ hợp Fractal từ hình ngũ giác mức dựng Autocad Với quy trình vậy, ta tạo nhiều mức cao tổ hợp Fractal (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 22- PL PHỤ LỤC 10 Sơ đồ thuật toán code cho lệnh tự động xây dựng Autocad, áp dụng giải pháp tạo hình Fractal ngơn ngữ máy tính đề xuất Lệnh Dragon ( Dragon_Polyline) 1.1 Sơ đồ thuật toán Bắt Đầu Polyline = GetObject(ID Đối tượng chọn) Solanlap = Số lần lặp nhập vào ListPolyline.Add(Polyline) ListPolyline.Add(CopyPolyline(ListPolyline(0))) ListPolylineQuay.Add(RotatePolyline(ListPolyline(1).ObjectID, Matrix3d.Rotation(90,curUCS.Zaxis, ListPolyline(0).EndPoint)) PolyLineQuay = SoPoLyLine ( =2) (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 23- PL i=1 i < Solanlap Sai Đúng Kết Thúc j=1 j < SoPoLyLine Sai Đúng ListPolyline.Add(CopyPolyline(ListPolyline(i-1))) PolyLineCuoi = Int(SoPoLyLine /2-1) ListPolylineQuay.Add(RotatePolyline(ListPolyline(PolyLineQuay).ObjectID, Matrix3d.Rotation(90,curUCS.Zaxis, ListPolylineQuay(PolyLineCuoi).EndPoint)) PolyLineQuay = PolyLineQuay +1 j = j +1 Số Polyline = SoPoLyLine * PolyLineQuay = SoLanLap i = i +1 1.2 Code Public Shared Function VeDragonPoLyLine(SoBuocLap As Integer) #Region "Khai báo" '1 (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 24- PL Dim doc As Document = Application.DocumentManager.MdiActiveDocument Dim db As Database = doc.Database Dim ed As Editor = doc.Editor Dim tr As Transaction = doc.TransactionManager.StartTransaction() Dim curUCSMatrix As Matrix3d = doc.Editor.CurrentUserCoordinateSystem Dim curUCS As CoordinateSystem3d = curUCSMatrix.CoordinateSystem3d Dim Goc As Double = Math.PI / #End Region #Region "Lấy thực thể" Dim peo As PromptEntityOptions = New PromptEntityOptions(vbLf & "Chọn đối tượng: ") Dim per As PromptEntityResult = ed.GetEntity(peo) Dim Polyline As Polyline = New Polyline Using tr Dim bt As BlockTable = CType(tr.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable) Dim btr As BlockTableRecord = CType(tr.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord) Polyline = tr.GetObject(per.ObjectId, OpenMode.ForWrite) tr.Commit() End Using #End Region #Region "Vẽ" Dim lpolyline As New List(Of Polyline) lpolyline.Add(Polyline) Dim polylinequay As New List(Of Polyline) Dim SolanQuay As Integer = Dim BienChayLineCuoi As Integer = Dim BienChayLineQuay As Integer BienChayLineQuay = SolanQuay lpolyline.Add(Lib_Drawing.CopyPolyLine(lpolyline(0))) polylinequay.Add(Lib_Drawing.RotatePL(lpolyline(1).ObjectId, Matrix3d.Rotation(Goc, curUCS.Zaxis, lpolyline(0).EndPoint))) For i As Integer = To SoBuocLap - For j As Integer = To SolanQuay BienChayLineCuoi = Int(SolanQuay / - 1) lpolyline.Add(Lib_Drawing.CopyPolyLine(lpolyline(j - 1))) polylinequay.Add(Lib_Drawing.RotatePL(lpolyline(BienChayLineQuay).ObjectId, Matrix3d.Rotation(Goc, curUCS.Zaxis, polylinequay(BienChayLineCuoi).StartPoint))) BienChayLineQuay = BienChayLineQuay + Next SolanQuay = SolanQuay * BienChayLineQuay = SolanQuay Next #End Region End Function (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 25- PL Lệnh Dragon (Dragon_Block) 1.1 Sơ đồ thuật toán Bắt Đầu Blockreference = GetObject(ID Đối tượng chọn) SoLanLap = Số lần lặp nhập từ bàn phím ListBlockReference.Add(Polyline) ListBlockReference.Add(CopyBlock(ListBlockReference(0))) ListBlockQuay.Add(RotateBlock(ListBlockReference(1).ObjectID, Matrix3d.Rotation(90,curUCS.Zaxis, DiemQuay)) BlockQuay = SoBlock ( =2) (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 26- PL i=1 i < SoLanLap Sai Đúng Kết Thúc j=1 j < SoBlock Sai Đúng ListBlockReference.Add(CopyBlock(ListBlockReference(i-1))) BlockCuoi = Int( SoBlock/2-1) ListBlockQuay.Add(RotateBlock(ListBlockReference(BlockQuay).Obje ctID, Matrix3d.Rotation(90,curUCS.Zaxis, DiemQuay)) BlcokQuay = BlcokQuay +1 j = j +1 Số Block = SoBlock * BlockQuay = SoBlock i = i +1 2.2 Code Public Shared Function VeDragonBlock(SoBuocLap As Integer) #Region "Khai báo" '1 Dim doc As Document = Application.DocumentManager.MdiActiveDocument Dim db As Database = doc.Database (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 27- PL Dim ed As Editor = doc.Editor Dim tr As Transaction = doc.TransactionManager.StartTransaction() Dim curUCSMatrix As Matrix3d = doc.Editor.CurrentUserCoordinateSystem Dim curUCS As CoordinateSystem3d = curUCSMatrix.CoordinateSystem3d Dim Goc As Double = Math.PI / #End Region #Region "Lấy thực thể" Dim peo As PromptEntityOptions = New PromptEntityOptions(vbLf &"Chọn đối tượng:") Dim per As PromptEntityResult = ed.GetEntity(peo) Dim BlockRef As BlockReference Using tr Dim bt As BlockTable = CType(tr.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable) Dim btr As BlockTableRecord = CType(tr.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord) BlockRef = tr.GetObject(per.ObjectId, OpenMode.ForWrite) tr.Commit() End Using #End Region #Region "Vẽ" Dim lblock As New List(Of BlockReference) lblock.Add(BlockRef) Dim blockquay As New List(Of BlockReference) Dim SolanQuay As Integer = Dim BienChayLineCuoi As Integer = Dim BienChayLineQuay As Integer = SolanQuay lblock.Add(Lib_Drawing.CopyEntity(lblock(0))) Dim Diemgia As Point3d = Lib_Drawing.GetBlockPointDau(BlockRef) Dim Diemquay As Point3d = New Point3d(BlockRef.Position.X + Diemgia.X, BlockRef.Position.Y + Diemgia.Y, 0) blockquay.Add(Lib_Drawing.RotateBL(lblock(1).ObjectId, Matrix3d.Rotation(Goc, curUCS.Zaxis, Diemquay))) For i As Integer = To SoBuocLap - For j As Integer = To SolanQuay BienChayLineCuoi = Int(SolanQuay / - 1) lblock.Add(Lib_Drawing.CopyEntity(lblock(j - 1))) Diemgia = Lib_Drawing.GetBlockPointSau(blockquay(BienChayLineCuoi)) Diemquay = New Point3d(blockquay(BienChayLineCuoi).Position.X + Diemgia.Y, blockquay(BienChayLineCuoi).Position.Y + Diemgia.X, 0) blockquay.Add(Lib_Drawing.RotateBL(lblock(BienChayLineQuay).ObjectId, Matrix3d.Rotation(Goc, curUCS.Zaxis, Diemquay))) BienChayLineQuay = BienChayLineQuay + Next SolanQuay = SolanQuay * BienChayLineQuay = SolanQuay Next #End Region End Function (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam 28- PL Lệnh Ghép lưới block hình vng (GhepLuoi_Vuong) 5.1 Sơ đồ thuật tốn Bắt Đầu BlockRef = GetObject(ID Đối tượng chọn) SoHang = Số hàng nhập từ bàn phím SoCot = Số cột nhập từ bàn phím i=0 i < SoHang Sai Kết Thúc Đúng j=0 j < SoCot Sai Đúng Diem = BlockRef.Position ThucTheCopy = CopyEntity(BlockRef) ThucTheRotate = Rotate(ThucTheCopy.ObjectID, Matrix3d.Rotation(Goc,curUCS.Zaxis,Diem)) DiemMoi = New Point3D(Diem.X + j * Rong, Diem Y + i * Rong, Diem.Z) MoveEntity(ThucTheRotate.ObjectID,Diem,DiemMoi) j = j +1 i = i +1 5.1 Code Public Shared Function GhepLuoi_Vuong(Sohang As Integer, Socot As Integer) #Region "Khai báo" Dim doc As Document = Application.DocumentManager.MdiActiveDocument Dim db As Database = doc.Database Dim ed As Editor = doc.Editor Dim tr As Transaction = doc.TransactionManager.StartTransaction() Dim Hinh As Entity (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam TIEU LUAN MOI download : skknchat123@gmail.com moi nhat (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam (LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam(LUAN.an.TIEN.si).ung.dung.hinh.hoc.fractal.trong.thiet.ke.to.hop.kien.truc.tai.viet.nam