Luận án Phân tích kết cấu liên hợp thép - Bê tông trong điều kiện cháy có xét đến quá trình tăng nhiệt và giảm nhiệt

BỘ GIÁO DỤC VÀ ĐÀO TẠO BỘ XÂY DỰNG 
TRƯỜNG ĐẠI HỌC KIẾN TRÚC HÀ NỘI 
NCS. TRƯƠNG QUANG VINH 
PHÂN TÍCH KẾT CẤU LIÊN HỢP THÉP - BÊ TÔNG 
TRONG ĐIỀU KIỆN CHÁY CÓ XÉT ĐẾN QUÁ TRÌNH 
TĂNG NHIỆT VÀ GIẢM NHIỆT 
LUẬN ÁN TIẾN SĨ KỸ THUẬT 
HÀ NỘI – 2018 
BỘ GIÁO DỤC VÀ ĐÀO TẠO BỘ XÂY DỰNG 
TRƯỜNG ĐẠI HỌC KIẾN TRÚC HÀ NỘI 
NCS. TRƯƠNG QUANG VINH 
PHÂN TÍCH KẾT CẤU LIÊN HỢP THÉP - BÊ TÔNG 
TRONG ĐIỀU KIỆN CHÁY CÓ XÉT ĐẾN QUÁ TRÌNH 
TĂNG NHIỆT VÀ GIẢM NHIỆT 
LUẬN ÁN TIẾN SĨ KỸ THUẬT 
Chuyên ngành: Kỹ thuật xây dựng công trình dân dụng và công nghiệp 
Mã số : 62.58.02.08 
 NGƯỜI HƯỚNG DẪN KHOA HỌC 
 GS. TS. NGUYỄN TIẾN CHƯƠNG 
HÀ NỘI – 2018 
i 
LỜI CAM ĐOAN 
Tôi xin cam đoan, đây là công trình nghiên cứu của riêng tôi. 
Các số liệu và kết quả được trình bày trong luận án là trung thực và chưa từng 
được ai công bố trong bất kỳ công trình nào khác. 
 Tác giả luận án 
 Trương Quang Vinh 
ii 
LỜI CẢM ƠN 
Tác giả xin bày tỏ lòng biết ơn chân thành tới thầy hướng dẫn: GS.TS 
Nguyễn Tiến Chương đã tận tình hướng dẫn, giúp đỡ, tạo điều kiện thuận 
lợi, thường xuyên động viên, cho nhiều chỉ dẫn khoa học có giá trị cao trong 
luận án. 
Tác giả xin trân trọng cảm ơn Trường Đại học Kiến trúc Hà Nội, Khoa 
Sau đại học, Bộ môn Sau đại học Kết cấu công trình, Trường Đại học PCCC - 
Bộ Công an, tất cả các nhà khoa học và các bạn đồng nghiệp đã tạo điều kiện 
thuận lợi, giúp đỡ và hợp tác trong quá trình nghiên cứu để tác giả hoàn thành 
luận án này. 
 Tác giả luận án 
 Trương Quang Vinh 
iii 
LỜI CAM ĐOAN ..................................................................................................... i 
LỜI CÁM ƠN ......................................................................................................... ii 
MỤC LỤC ............................................................................................................ .iii 
DANH MỤC CHỮ VIẾT TẮT .............................................................................. vi 
DANH MỤC CÁC BẢNG BIỂU ......................................................................... .vii 
DANH MỤC CÁC HÌNH VẼ ................................................................................ ix 
CHƯƠNG 1. TỔNG QUAN VỀ PHÂN TÍCH KẾT CẤU TRONG ĐIỀU KIỆN 
CHÁY ..................................................................................................................... 6 
1.1 Giới thiệu các nội dung phân tích kết cấu trong điều kiện cháy .......................... 6 
1.2 Sự phát triển nhiệt độ trong buồng cháy ............................................................. 7 
1.3 Sự truyền nhiệt trong kết cấu ........................................................................... 10 
1.4 Tính chất cơ lý của vật liệu ở nhiệt độ cao ....................................................... 12 
1.4.1 Các đặc tính của vật liệu thép dưới tác động của nhiệt độ cao ....................... 12 
1.4.2 Các đặc tính của vật liệu bê tông dưới tác động của nhiệt độ cao .................. 16 
1.4.3 Ứng xử của kết cấu dưới tác động của nhiệt độ cao ....................................... 18 
1.5 Các nghiên cứu kết cấu trong điều kiện cháy ................................................... 20 
1.5.1 Các nghiên cứu trong nước ........................................................................... 20 
1.5.2 Các nghiên cứu trên thế giới ......................................................................... 21 
1.6 Các tiêu chuẩn thiết kế kết cấu công trình đảm bảo điều kiện an toàn cháy ...... 23 
1.6.1 Tiêu chuẩn và quy chuẩn Việt Nam .............................................................. 23 
1.6.2 Một số quy chuẩn, tiêu chuẩn trên thế giới .................................................... 28 
1.7 Giới thiệu về kết cấu liên hợp thép - bê tông .................................................... 30 
1.8 Kết luận chương 1 ........................................................................................... 33 
CHƯƠNG 2. PHƯƠNG PHÁP VÀ THUẬT TOÁN PHÂN TÍCH SỰ LÀM VIỆC 
CỦA KẾT CẤU LIÊN HỢP THÉP - BÊ TÔNG TRONG ĐIỀU KIỆN CHÁY ..... 35 
2.1 Phương pháp phân tích kết cấu liên hợp thép - bê tông trong điều kiện cháy, sử 
dụng phần mềm SAFIR ......................................................................................... 35 
2.1.1 Tính toán sự truyền nhiệt bên trong kết cấu .................................................. 36 
2.1.2 Phân tích ứng xử của kết cấu trong điều kiện nhiệt độ tăng cao ..................... 38 
2.2 Sự thay đổi ứng suất-biến dạng của kết cấu trong điều kiện cháy ..................... 42 
2.3 Lựa chọn mô hình vật liệu ............................................................................... 43 
iv 
2.3.1 Mô hình vật liệu thép .................................................................................... 44 
2.3.2 Mô hình vật liệu bê tông ............................................................................... 47 
2.4 Xây dựng thuật toán và lập trình ...................................................................... 58 
2.5 Kiểm chứng mô hình tính ................................................................................ 61 
2.5.1 Thí nghiệm tại trường Đại học Kỹ thuật Vienne, Austria [108] .................... 62 
2.5.2 Thí nghiệm tại trường Đại học Kỹ thuật miền Nam, Trung Quốc [119] ........ 63 
2.5.3 Thí nghiệm tại trường Đại học Michigan, Hoa Kỳ [50] ................................. 66 
2.5.4 Thí nghiệm tại trường Đại học Liege, Vương quốc Bỉ [35] ........................... 69 
2.6 Kết luận chương 2 ........................................................................................... 73 
CHƯƠNG 3 NGHIÊN CỨU SỰ LÀM VIỆC CỦA KẾT CẤU KHUNG LIÊN HỢP 
THÉP-BÊ TÔNG TRONG GIAI ĐOẠN TĂNG NHIỆT CỦA ĐÁM CHÁY ....... 74 
3.1 Đặt vấn đề ....................................................................................................... 74 
3.2 Sự làm việc của dầm liên hợp thép - bê tông trong điều kiện cháy ................... 77 
3.2.1 Ảnh hưởng của biến dạng do nhiệt ................................................................ 77 
3.2.2 Ảnh hưởng của điều kiện biên ...................................................................... 83 
3.2.3 Ảnh hưởng của tỉ số tải trọng sử dụng ........................................................... 85 
3.3 Sự làm việc của cột liên hợp thép - bê tông trong điều kiện cháy .................... 87 
3.3.1 Ứng suất - biến dạng của cột khi không chịu tải trọng ................................... 88 
3.3.2 Khảo sát ảnh hưởng của số bề mặt tiếp xúc lửa ............................................. 89 
3.3.3 Khảo sát ảnh hưởng của tỉ số tải trọng sử dụng ............................................. 91 
3.3.4 Khảo sát ảnh hưởng của độ mảnh cột ............................................................ 94 
3.4 Sự làm việc của khung phẳng liên hợp thép- bê tông trong điều kiện cháy ....... 94 
3.4.1 Sự làm việc của liên kết dầm-cột .................................................................. 94 
3.4.2 Ảnh hưởng của độ cứng liên kết ................................................................... 99 
3.4.3 Ảnh hưởng của vị trí đám cháy .................................................................. 103 
3.4.4 Khảo sát sự thay đổi nội lực trong dầm và cột khung trong giai đoạn tăng nhiệt 
của đám cháy ....................................................................................................... 104 
3.5 Kết luận chương 3 ......................................................................................... 108 
CHƯƠNG 4. NGHIÊN CỨU SỰ LÀM VIỆC CỦA KẾT CẤU KHUNG LIÊN HỢP 
THÉP-BÊ TÔNG TRONG GIAI ĐOẠN GIẢM NHIỆT CỦA ĐÁM CHÁY .......... 109 
v 
4.1 Sự làm việc của khung phẳng liên hợp thép- bê tông trong giai đoạn giảm nhiệt 
của đám cháy ....................................................................................................... 109 
4.2 Khái niệm chỉ số đánh giá giới hạn chịu giai đoạn tăng nhiệt (DHP) của kết cấu 113 
4.3 Khảo sát ảnh hưởng của tốc độ giảm nhiệt đến ứng xử của cấu kiện ................... 116 
4.4 Xây dựng thuật toán tính DHP cho cấu kiện cột liên hợp thép- bê tông .......... 118 
4.4.1 Giới thiệu chung về ngôn ngữ lập trình AutoIT ........................................... 118 
4.4.2 Ứng dụng AutoIT để lập trình phần mềm tự động tính DHP của cấu kiện kết 
cấu trên nền tảng SAFIR...................................................................................... 119 
4.5 Khảo sát các tham số ảnh hưởng tới DHP của cấu kiện cột liên hợp thép- bê tông 122 
4.5.1 Ảnh hưởng của tỉ số tải trọng sử dụng ........................................................ 122 
4.5.2 Ảnh hưởng của cường độ ống thép bao ngoài ............................................. 124 
4.5.3 Ảnh hưởng của cường độ thép hình bên trong ............................................. 125 
4.5.4 Ảnh hưởng của cường độ bê tông ............................................................... 126 
4.5.5 Ảnh hưởng của độ lệch tâm của tải trọng .................................................... 126 
4.5.6 Ảnh hưởng của độ mảnh của cột ................................................................. 127 
4.5.7 Khái niệm Thời gian phá hoại trễ (DelayT) của kết cấu .............................. 128 
4.6 Khảo sát các tham số ảnh hưởng tới thời gian phá hoại trễ DelayT của cấu kiện 
cột liên hợp thép - bê tông ................................................................................... 129 
4.6.1 Ảnh hưởng của thời gian tăng nhiệt ............................................................ 129 
4.6.2 Ảnh hưởng của tỉ số tải trọng sử dụng ......................................................... 130 
4.6.3 Ảnh hưởng của cường độ bê tông ............................................................... 131 
4.6.4 Giá trị lớn nhất của DelayT trong các cột đã tính toán................................. 131 
4.7 Kết luận chương 4 ........................................................................................ 132 
KẾT LUẬN ......................................................................................................... 134 
1. Các kết quả chính đã đạt được ......................................................................... 134 
2. Hướng phát triển của luận án ........................................................................... 135 
DANH MỤC CÔNG TRÌNH KHOA HỌC CỦA TÁC GIẢ LIÊN QUAN ĐẾN 
LUẬN ÁN ........................................................................................................... 136 
TÀI LIỆU THAM KHẢO ................................................................................... 137 
PHỤ LỤC 1: Các đoạn code chương trình SAFIR thêm vật liệu CONC-ETC 
PHỤ LỤC 2: Code chương trình tự động tính DHP 
vi 
DANH MỤC CHỮ VIẾT TẮT 
QCVN: Quy chuẩn kỹ thuật Việt Nam 
TCVN: Tiêu chuẩn Việt Nam 
EC2 : Tiêu chuẩn châu Âu EN 1992-1-2 - Thiết kế kết cấu bê tông cốt thép 
EC3 : Tiêu chuẩn châu Âu EN 1993-1-2 - Thiết kế kết cấu thép 
ENV : Tiêu chuẩn châu Âu ENV 1992-1-2: 1995 
BTCT: Bê tông cốt thép 
PCCC: Phòng cháy chữa cháy 
TTGH: Trạng thái giới hạn 
R : Giới hạn chịu lửa của cấu kiện kết cấu (Fire resistance Rating) 
HeatT : Khoảng thời gian (tính bằng phút) giai đoạn tăng nhiệt của đám cháy 
(Heating time) 
DHP : Giá trị nhỏ nhất của thời gian tăng nhiệt gây ra sự phá hoại cấu kiện 
trong giai đoạn giảm nhiệt (Critical Duration of Heating Phase) 
Tail : Khoảng thời gian (tính bằng phút) kết cấu chịu được đám cháy cho 
đến khi bị phá hoại (Time of failure) 
DelayT: Khoảng thời gian (tính bằng phút) kể từ khi đám cháy giảm nhiệt đến 
khi kết cấu bị phá hoại 
vii 
DANH MỤC BẢNG BIỂU 
Số hiệu bảng Tên bảng Trang 
Bảng 1.1 
Cấp công trình theo độ bền vững và bậc chịu lửa của nhà 
và công trình (QCVN 03:2012/BXD) 
24 
Bảng 1.2 Bậc chịu lửa của nhà và công trình 25 
Bảng 1.3 
Số tầng lớn nhất cho phép của một số dạng nhà và công 
trình công cộng độc lập 
26 
Bảng 1.4 Giới hạn chịu lửa danh định của dầm thép 27 
Bảng 2.1 
Quan hệ ứng suất- biến dạng của vật liệu thép ở điều kiện 
nhiệt độ cao ứng với các giai đoạn như hình 2.7 
46 
Bảng 2.2 
Giá trị các hệ số suy giảm modul đàn hồi, giới hạn chảy và 
giới hạn tỉ lệ của vật liệu thép ở nhiệt độ θ 
47 
Bảng 2.3 Các giá trị biến dạng trong bê tông theo mô hình ETC 56 
Bảng 2.4 Các giá trị của ( )T theo mô hình CONC - ETC 57 
Bảng 2.5 Các thông số của cột thí nghiệm 70 
Bảng 3.1 
Giới hạn chịu lửa của dầm một nhịp với các điều kiện biên 
khác nhau 
83 
Bảng 3.2 Giới hạn chịu lửa của dầm đơn giản với các tải trọng khác nhau 87 
Bảng 3.3 
Giới hạn chịu lửa của cột liên hợp với các giá trị độ mảnh 
khác nhau 
94 
Bảng 4.1 Kết quả tính cột với các giá trị tỉ số tải trọng sử dụng 123 
Bảng 4.2 
Kết quả tính toán với nhiều giá trị cường độ ống thép bao 
ngoài 
124 
Bảng 4.3 
Kết quả tính toán với nhiều giá trị cường độ thép hình bên 
trong 
125 
Bảng 4.4 Kết quả tính toán với nhiều giá trị cường độ bê tông 126 
Bảng 4.5 
Kết quả tính toán với nhiều giá trị độ lệch tâm của tải 
trọng 
127 
viii 
Bảng 4.6 Kết quả tính cột Profile 15 với nhiều giá trị chiều cao cột 127 
Bảng 4.7 Kết quả tính cột có tiết diện Profile 14 129 
Bảng 4.8 
Kết quả tính các cấu kiện với các giá trị tỉ số tải trọng sử 
dụng 
130 
Bảng 4.9 Kết quả tính các cấu kiện với các giá trị cường độ bê tông 131 
Bảng 4.10 Kết quả tính DelayT cho cột profile 17 132 
ix 
DANH MỤC HÌNH, SƠ ĐỒ, ĐỒ THỊ 
Số hiệu hình Tên hình Trang 
Hình 1.1 Quan hệ giữa thời gian cháy và nhiệt độ bề mặt biên kết cấu 07 
Hình 1.2 Một số đường cong cháy tiêu biểu theo ISO 834 08 
Hình 1.3 
Quan hệ giữa thời gian cháy và nhiệt độ bề mặt biên 
chuẩn (ISO834 và ASTM E119-16a) 
09 
Hình 1.4 
Mô hình thời gian cháy- nhiệt độ bề mặt biên có kể đến 
giai đoạn giảm nhiệt 
10 
Hình 1.5 
Nhiệt độ trong một tiết diện ngang của liên hợp thép- bê 
 tông sau 60 phút chịu cháy 
11 
Hình 1.6 
Nhiệt độ trong một dầm thép liên kết với cột thép sau 90 
phút chịu cháy 
12 
Hình 1.7 Cường độ thép giảm theo nhiệt độ 12 
Hình 1.8 
Biểu đồ ứng suất- biến dạng của vật liệu thép trong điều 
kiện nhiệt độ cao 
13 
Hình 1.9 
Biểu đồ hệ số suy giảm môđun đàn hồi, giới hạn chảy và 
giới hạn tỷ lệ của vật liệu thép ở nhiệt độ cao 
14 
Hình 1.10 
Sự biến thiên hệ số giãn nở vì nhiệt của kết cấu thép theo 
nhiệt độ 
14 
Hình 1.11 Sự biến thiên nhiệt dung riêng của thép theo nhiệt độ 15 
Hình 1.12 Sự biến thiên dẫn nhiệt của thép theo nhiệt độ 15 
Hình 1.13 
Biểu đồ quan hệ ứng suất – biến dạng của vật liệu bê tông 
trong điều kiện chịu nhiệt độ cao 
16 
Hình 1.14 
Sự biến thiên khả năng giãn nở vì nhiệt của vật liệu bê 
tông theo nhiệt độ 
17 
Hình 1.15 
Sự biến thiên tính dẫn nhiệt của vật liệu bê tông theo nhiệt 
độ 
17 
Hình 1.16 Sự biến nhiệt dung riêng của vật liệu bê tông theo nhiệt độ 18 
Hình 1.17 
Giãn dài do nhiệt đ ... ateButton("Log",250,10,55,30,-1,-1)
27 ;GUICtrlSetOnEvent(-1,"showLog")
28 Global $txtRootdir = GUICtrlCreateInput("",20,40,321,20,-1,$WS_EX_CLIENTEDGE)
29 GUICtrlSetState(-1,BitOr($GUI_SHOW,$GUI_DISABLE))
30 Global $btnChonThuMuc = GUICtrlCreateButton("Chọn thư mục",346,35,99,32,-1,-1)
31 GUICtrlSetOnEvent(-1,"evtChonThuMuc")
32 GUICtrlSetFont(-1,10,400,0,"Times New Roman")
33 GUICtrlSetBkColor(-1,"-2")
34 Global $listLog= GUICtrlCreatelist("",10,80,490,227,-1,$WS_EX_CLIENTEDGE)
35 Global $btncChay = GUICtrlCreateButton("Chạy",450,35,55,32,-1,-1)
36 GUICtrlSetOnEvent(-1,"evtChay")
37 GUICtrlSetState(-1,BitOr($GUI_SHOW,$GUI_DISABLE))
38 GUICtrlSetBkColor(-1,"-2")
39 
40 ;GUICtrlSetImage(-1,"C:\Users\ductu\Documents\ISN AutoIt 
Studio\Projects\TnhToanKhaNangChiuLua\Images\play.ico")
41 GUISetState(@SW_SHOW,$Tinh_Toan_Kha_Nang_Chiu_Lua_Ver2)
42 
43 Local $aPos = WinGetPos($Tinh_Toan_Kha_Nang_Chiu_Lua_Ver2)
44 WinMove($guisf, "", $aPos[0]+$aPos[2], $aPos[1])
45 
46 While 1
47 Sleep(100);
48 
49 WEnd
50 
51 Func evtChonThuMuc()
52 Global $nameProfileFISO =Null;
53 $nNu = 0;
54 Global $nameNuFISO[$nNu];
55 Global $urlFileFIOS=FileSelectFolder ("Chọn thư mục làm việc", 
0,@WindowsDir,0,$Tinh_Toan_Kha_Nang_Chiu_Lua_Ver2 )
56 If $urlFileFIOS =="" Then
57 MsgBox($MB_SYSTEMMODAL, "", "Chưa chọn thư mục làm việc")
58 Return
59 EndIf
60 Local $aFileList = _FileListToArrayRec($urlFileFIOS,"*.in;*.exe", $FLTAR_FILES, 
$FLTAR_NORECUR, $FLTAR_NOSORT , $FLTAR_NOPATH)
61 If @error = 1 Then
62 MsgBox($MB_SYSTEMMODAL, "", "Đường dẫn thư mục làm việc không đúng")
63 Return
64 EndIf
65 If @error = 4 Then
66 MsgBox($MB_SYSTEMMODAL, "", "Không có file trong thư mục làm việc")
67 Return
68 EndIf
69 If @error = 2 Then
70 MsgBox($MB_SYSTEMMODAL, "", "Không có file ")
71 Return
72 EndIf
73 ;_ArrayDisplay($aFileList, "$aFileList")
74 ghiLog("-----------------------------------------------------");
75 ghiLog("Chọn thư mục làm việc");
76 FileDelete($urlFileFIOS&"\"&"KetQua.txt")
77 if $aFileList[0]>=3 Then 
78 For $i=1 to UBound($aFileList)-1
79 
80 If StringInStr($aFileList[$i],"PROFILE") >0 and 
StringInStr($aFileList[$i],"FISO") >0 and 
StringInStr($aFileList[$i],".IN") >0 Then 
81 $nameProfileFISO = $aFileList[$i];
82 
83 ElseIf StringInStr($aFileList[$i],"Nu") >0 and 
StringInStr($aFileList[$i],"FISO") >0 and 
StringInStr($aFileList[$i],".IN") >0 Then
84 $Bound = UBound($nameNuFISO)
85 ReDim $nameNuFISO[$Bound+1]
86 $nameNuFISO[$Bound] = $aFileList[$i]
87 
88 ; $nameNuFISO[$nNu] = $aFileList[$i];
89 
90 EndIf
91 Next
92 if $nameProfileFISO==null or UBound($nameNuFISO) == 0 Then
93 MsgBox($MB_SYSTEMMODAL, "", "Không có file ")
94 Else
95 ghiLog("Tìm thấy file tiết diện: "&$nameProfileFISO);
96 Global $maxTime = getMaxTimeinProfile($urlFileFIOS&"\"&$nameProfileFISO,2)
97 ghiLog("Thời gian chạy tối đa tìm thấy trong file "&$nameProfileFISO&": 
"&$maxTime);
98 ghiLog("Tim thay "&UBound($nameNuFISO)&" file chịu tải, bao gồm:");
99 For $i = 0 to UBound($nameNuFISO) -1
100 $maxTimeNu = getMaxTimeinProfile($urlFileFIOS&"\"&$nameNuFISO[$i],1)
101 ghiLog($nameNuFISO[$i]);
102 if $maxTimeNu $maxTime Then 
103 ghiLog("Cảnh bảo: Thời gian chạy tối đa không đồng nhất với file 
tiết diện: "&$nameNuFISO[$i]&": "&$maxTimeNu);
104 EndIf
105 Next
106 GUICtrlSetState($btncChay,$GUI_ENABLE)
107 GUICtrlSetData($txtRootdir,$urlFileFIOS);
108 
ghiLog("******************************************************************
**************")
109 EndIf
110 ;ConsoleWrite($nameProfileFISO&@CR)
111 ;_ArrayDisplay($nameNuFISO, "$aFileList")
112 Else
113 MsgBox($MB_SYSTEMMODAL, "", "Không có đủ file trong thư mục làm việc")
114 EndIf
115 EndFunc
116 
117 Func evtChay()
118 GUICtrlSetState($btncChay,$GUI_DISABLE)
119 Global $dirRun = $urlFileFIOS&"\";
120 FileDelete ($dirRun&"NhatKyChaySafir.txt")
121 $hFileOpen = FileOpen($dirRun&$nameProfileFISO, $FO_READ)
122 Global $contenFISO = FileRead($hFileOpen)
123 FileClose($hFileOpen)
124 Global $nameProfileFISOCode = StringSplit($nameProfileFISO,".")[1];
125 ghiLog("Bắt đầu chạy file tiết diện :"&$nameProfileFISOCode);
126 ;WinSetOnTop($Tinh_Toan_Kha_Nang_Chiu_Lua_Ver2, "", $WINDOWS_NOONTOP)
127 callSafir($dirRun,$nameProfileFISOCode);
128 ghiLog("Hoàn thành chạy file tiết diện :"&$nameProfileFISOCode);
129 ;Return;
130 For $i = 0 to UBound($nameNuFISO) -1
131 Global $nameNuFISOCode = StringSplit($nameNuFISO[$i],".")[1];
132 Global $dirRun2 = $dirRun&$nameNuFISOCode&"\";
133 DirRemove ($dirRun2, $DIR_REMOVE)
134 ghiLog2("#######################################################",$dirRun2);
135 ghiLog2("Bắt đầu tính thời gian phá hủy cho file :"&$nameNuFISOCode,$dirRun2);
136 
FileCopy($dirRun&$nameProfileFISOCode&".OUT",$dirRun2&$nameProfileFISOCode&".O
UT",$FC_OVERWRITE + $FC_CREATEPATH);
137 
FileCopy($dirRun&$nameProfileFISOCode&".TEM",$dirRun2&$nameProfileFISOCode&".T
EM",$FC_OVERWRITE + $FC_CREATEPATH);
138 
FileCopy($dirRun&$nameProfileFISOCode&".IN",$dirRun2&$nameProfileFISOCode&".IN
",$FC_OVERWRITE + $FC_CREATEPATH);
139 
FileCopy($dirRun&$nameNuFISOCode&".IN",$dirRun2&$nameNuFISOCode&".IN",$FC_OVER
WRITE + $FC_CREATEPATH);
140 
FileCopy($dirRun&"SAFIR2011demo.exe",$dirRun2&"SAFIR2011demo.exe",$FC_OVERWRIT
E + $FC_CREATEPATH);
141 
142 $hFileOpen = FileOpen($dirRun&$nameNuFISOCode&".IN", $FO_READ)
143 Global $contenNU = FileRead($hFileOpen)
144 FileClose($hFileOpen)
145 ;~ WinSetOnTop($Tinh_Toan_Kha_Nang_Chiu_Lua_Ver2, "", $WINDOWS_NOONTOP)
146 ;~ Run($dirRun2&"SAFIR2011demo.exe",$dirRun2);
147 ;~ WinWaitActive($dirRun2&"SAFIR2011demo.exe")
148 ;~ WinSetState ( $dirRun2&"SAFIR2011demo.exe", "", @SW_MINIMIZE )
149 ;~ ControlSend($dirRun2&"SAFIR2011demo.exe",'','',$nameNuFISOCode&"{ENTER}")
150 ;~ Send($nameNuFISOCode&"{ENTER}")
151 ;~ WinSetOnTop($Tinh_Toan_Kha_Nang_Chiu_Lua_Ver2, "", $WINDOWS_ONTOP)
152 ;~ WinWaitClose($dirRun2&"SAFIR2011demo.exe")
153 callSafir($dirRun2,$nameNuFISOCode)
154 ghiLog2("Hoàn thành tính thòi gian phá hủy cho 
file:"&$nameNuFISOCode,$dirRun2);
155 
156 $logIso = FileOpen($dirRun2&$nameNuFISOCode&".LOG", $FO_READ)
157 $contenLogIso = FileReadLine ($logIso, -1)
158 FileClose($logIso)
159 If $contenLogIso==-1 or StringLen($contenLogIso)<1 Then 
160 ghiLog2("Không đọc được file log: "&$nameNuFISOCode&".LOG - Có thể do 
file "&$nameNuFISOCode&".IN không đúng",$dirRun2);
161 MsgBox(0,"Loi file Chiu tai","Khong doc duoc file log: 
"&$nameNuFISOCode&".LOG - Co the do file "&$nameNuFISOCode&".IN khong 
dung",20,$Tinh_Toan_Kha_Nang_Chiu_Lua_Ver2);
162 Else
163 Global $timeIsoS = StringSplit($contenLogIso,";")[2]
164 if(Mod($timeIsoS,60)>30) Then
165 Global $timeIsoM = Int($timeIsoS/60)+1
166 Else
167 Global $timeIsoM = Int($timeIsoS/60)
168 EndIf
169 ghiLog2("- Thời gian chịu lửa tối đa "&$nameNuFISOCode&" là 
"&$timeIsoM,$dirRun2)
170 ghiLog2("**** Bắt đầu tìm thời gian phá hủy thật sự của 
"&$nameNuFISOCode,$dirRun2)
171 
172 chayRNu(5)
173 EndIf
174 
175 Next
176 GUICtrlSetState($btncChay,$GUI_ENABLE)
177 EndFunc
178 Func Log10($fNb)
179 Return Log($fNb) / Log(10) ; 10 is the base
180 EndFunc ;==>Log10
181 Func ghiLog($log) 
182 _GUICtrlListBox_BeginUpdate($listLog)
183 _GUICtrlListBox_InsertString($listLog, $log,0)
184 _GUICtrlListBox_UpdateHScroll($listLog)
185 _GUICtrlListBox_EndUpdate($listLog)
186 _GUICtrlListBox_SetSel($listLog, 0)
187 $fileLog= FileOpen($urlFileFIOS&"\"&"KetQua.txt", $FO_APPEND )
188 FileWriteLine($fileLog, $log)
189 FileClose($fileLog)
190 EndFunc
191 Func ghiLog2($log,$dir) 
192 _GUICtrlListBox_BeginUpdate($listLog)
193 _GUICtrlListBox_InsertString($listLog, $log,0)
194 _GUICtrlListBox_UpdateHScroll($listLog)
195 _GUICtrlListBox_EndUpdate($listLog)
196 _GUICtrlListBox_SetSel($listLog, 0)
197 $fileLog= FileOpen($dir&"\"&"KetQua.txt", $FO_APPEND )
198 FileWriteLine($fileLog, $log)
199 FileClose($fileLog)
200 EndFunc
201 Func getMaxTimeinProfile($file,$step)
202 Local $hFileOpen = FileOpen($file, $FO_READ)
203 If $hFileOpen = -1 Then
204 Return -1
205 EndIf
206 $n = 1
207 While 1 
208 Local $line = FileReadLine($hFileOpen, $n)
209 If @error==1 or @error==-1 Then
210 ExitLoop
211 EndIf
212 If StringInStr($line,"TIME")>0 Then
213 $line = FileReadLine($hFileOpen, $n+$step)
214 local $arrayline = StringSplit($line," ");
215 ConsoleWrite($line&@CR)
216 ConsoleWrite(Int($arrayline[UBound($arrayline)-1]))
217 Return Int($arrayline[UBound($arrayline)-1]);
218 ExitLoop
219 EndIf
220 $n=$n+1;
221 Wend
222 
223 EndFunc
224 
225 Func taoFCT($timeR)
226 $fileFCT= FileOpen($dirRun&"\"&"R"&$timeR&".FCT", $FO_OVERWRITE )
227 $time = 0;
228 $tempmax = 345 * Log10(8*$timeR + 1) + 20;
229 $temp = 0;
230 
231 While 1 ; Lap thoi gian de tao noi dung FCT
232 If $time <= $timeR Then 
233 $temp = 345 * Log10(8*$time + 1) + 20;
234 ;ConsoleWrite("log: "&$time&" = "&Log(8*$time))
235 ElseIf $timeR <= 30 Then
236 $temp = $tempmax -10.417*($time-$timeR)
237 ElseIf $timeR <=120 Then 
238 $temp = $tempmax -4.167*(3-$timeR/60)*($time-$timeR);
239 Else
240 $temp = $tempmax -4.167*($time-$timeR)
241 EndIf
242 $temp = Int($temp)
243 if $temp < 20 Then
244 ExitLoop
245 EndIf
246 FileWriteLine($fileFCT,($time*60)&" "&$temp);
247 $time = $time+1
248 Wend
249 FileWriteLine($fileFCT,$maxTime&" 20");
250 FileClose($fileFCT)
251 EndFunc
252 
253 
254 Func chayRNu($step)
255 While 1
256 $timeIsoM = $timeIsoM -$step;
257 $nameRnum = StringReplace($nameProfileFISO,"FISO","R"&$timeIsoM)
258 $nameRnumCode = StringSplit($nameRnum,".")[1];
259 $nameNuRNum = StringReplace($nameNuFISOCode,"FISO","R"&$timeIsoM);
260 ghiLog2("++++++++++++++++++++++++++++++++++++++++++++++++++++++++",$dirRun2);
261 Local $iFileExists = FileExists($dirRun&$nameRnumCode&".TEM")
262 If $iFileExists == 0 Then ;chua co file thi tao
263 ghiLog("- - Tao file tiết diện với R"&$timeIsoM);
264 Global $newString = "R"&$timeIsoM&".FCT"
265 Global $sString = StringReplace($contenFISO, "FISO",$newString)
266 ;$fileRIN = StringReplace($nameProfileFISO,"FISO","R"&$timeIsoM)
267 ;tao file .IN
268 $fileR = FileOpen($dirRun&$nameRnum, $FO_OVERWRITE )
269 FileWrite($fileR, $sString)
270 FileClose($fileR)
271 taoFCT($timeIsoM);
272 ghiLog("--Chạy nhiệt độ cho tiết diện R"&$timeIsoM);
273 
274 ;~ WinSetOnTop($Tinh_Toan_Kha_Nang_Chiu_Lua_Ver2, "", $WINDOWS_NOONTOP)
275 ;~ Run($dirRun&"SAFIR2011demo.exe",$dirRun);
276 ;~ WinWaitActive($dirRun&"SAFIR2011demo.exe")
277 ;~ WinSetState ( $dirRun&"SAFIR2011demo.exe", "", @SW_MINIMIZE )
278 ;~ ControlSend($dirRun2&"SAFIR2011demo.exe",'','',$nameRnumCode&"{ENTER}")
279 ;~ ;Send($nameRnumCode&"{ENTER}")
280 ;~ WinSetOnTop($Tinh_Toan_Kha_Nang_Chiu_Lua_Ver2, "", $WINDOWS_ONTOP)
281 ;~ WinWaitClose($dirRun&"SAFIR2011demo.exe")
282 callSafir($dirRun,$nameRnumCode)
283 ghiLog("--Hoàn thành chạy nhiệt độ cho tiết diện R"&$timeIsoM);
284 
285 EndIf
286 
FileCopy($dirRun&$nameRnumCode&".TEM",$dirRun2&$nameRnumCode&".TEM",$FC_OVERWR
ITE + $FC_CREATEPATH);
287 
288 Global $sString = StringReplace($contenNU, "FISO","R"&$timeIsoM)
289 
290 $fileR = FileOpen($dirRun2&$nameNuRNum&".IN", $FO_OVERWRITE )
291 FileWrite($fileR, $sString)
292 FileClose($fileR)
293 ghiLog2("--Chạy thời gian phá hủy cho "&$nameNuRNum,$dirRun2);
294 ;~ WinSetOnTop($Tinh_Toan_Kha_Nang_Chiu_Lua_Ver2, "", $WINDOWS_NOONTOP)
295 ;~ Run($dirRun2&"SAFIR2011demo.exe",$dirRun2);
296 ;~ WinWaitActive($dirRun2&"SAFIR2011demo.exe")
297 ;~ WinSetState ( $dirRun2&"SAFIR2011demo.exe", "", @SW_MINIMIZE )
298 ;~ ControlSend($dirRun2&"SAFIR2011demo.exe",'','',$nameNuRNum&"{ENTER}")
299 ;~ ;Send($nameNuRNum&"{ENTER}")
300 ;~ WinSetOnTop($Tinh_Toan_Kha_Nang_Chiu_Lua_Ver2, "", $WINDOWS_ONTOP)
301 ;~ WinWaitClose($dirRun2&"SAFIR2011demo.exe")
302 callSafir($dirRun2,$nameNuRNum)
303 ghiLog2("--Hoàn thành tính thòi gian phá hủy cho file:"&$nameNuRNum,$dirRun2);
304 $logR = FileOpen($dirRun2&$nameNuRNum&".LOG", $FO_READ)
305 $contenLogR = FileReadLine ($logR, -1)
306 ConsoleWrite(@CR&$contenLogR)
307 If $logR==-1 or StringLen($contenLogR)<1 Then 
308 ghiLog2("Không đọc được file log: "&$nameNuRNum&".LOG - Có thể do file 
"&$nameNuRNum&".IN không đúng",$dirRun2);
309 MsgBox(0,"Loi file Chiu tai","Khong doc duoc file log: 
"&$nameNuRNum&".LOG - Co the do file "&$nameNuRNum&".IN khong 
dung",20,$Tinh_Toan_Kha_Nang_Chiu_Lua_Ver2);
310 ExitLoop
311 Else
312 $timeRS = Int(StringSplit($contenLogR,";")[2])
313 If $timeRS<$maxTime Then
314 ghiLog2("--Thời gian chịu lửa của "&$nameNuRNum&" là 
"&$timeRS&"s",$dirRun2)
315 Else
316 ghiLog2("--"&$nameNuRNum&" không bị phá hủy. Time = "&$timeRS 
&"s",$dirRun2)
317 EndIf
318 ;$timeRM = Int($timeIsoS/60)
319 If $timeIsoM = $maxTime Then 
320 if $step> 1 Then
321 ghiLog2("+ + Tìm ra khoảng phá hủy từ: "&$timeIsoM+$step&" -> 
"&$timeIsoM,$dirRun2)
322 $timeIsoM = $timeIsoM+5
323 chayRNu(1)
324 Else
325 ghiLog2("**** Tìm ra thời gian bị phá hủy của"& $nameNuFISOCode& 
" tại T = "&$timeIsoM+$step&" phút",$dirRun2)
326 EndIf
327 ExitLoop;
328 EndIf
329 EndIf
330 Wend
331 EndFunc
332 
333 
334 Func callSafir($dir,$cmd)
335 $fileLog= FileOpen($dir&"NhatKyChaySafir.txt", $FO_APPEND )
336 FileWriteLine($fileLog, 
"------------------------------------------------------------------------------")
337 FileWriteLine($fileLog,_NowCalc()&" - Chạy: "&$dir&"SAFIR2011demo.exe: Lệnh: 
"&$cmd);
338 
_GUICtrlRichEdit_AppendText($richsf,"---------------------------------------------
---------------------------------")
339 _GUICtrlRichEdit_AppendText($richsf,_NowCalc()&" - Chạy: 
"&$dir&"SAFIR2011demo.exe: Lệnh: "&$cmd)
340 FileClose($fileLog)
341 $iPID = Run($dir&"SAFIR2011demo.exe",$dir, @SW_HIDE, 
$STDIN_CHILD+$STDOUT_CHILD);
342 StdinWrite($iPID,$cmd&@CRLF);$cmd
343 ;StdinWrite($iPID,$nameProfileFISOCode&@CRLF)
344 
345 StdinWrite($iPID)
346 Local $sOutput = "" ;
347 While 1
348 Local $output = StdoutRead($iPID) ; Read the Stdout stream of the PID 
returned by Run.
349 If @error Then ; Exit the loop if the process closes or StdoutRead returns 
an error.
350 ExitLoop
351 EndIf
352 If $output Null And StringLen($output)>0 Then
353 $sOutput&=$output
354 ;~ _GUICtrlListBox_BeginUpdate($logSf)
355 ;~ _GUICtrlListBox_InsertString($logSf, $output,0)
356 ;~ _GUICtrlListBox_UpdateHScroll($logSf)
357 ;~ _GUICtrlListBox_EndUpdate($logSf)
358 ;~ _GUICtrlListBox_SetSel($logSf, 0)
359 _GUICtrlRichEdit_AppendText($richsf,$output)
360 EndIf
361 
362 WEnd
363 $fileLog= FileOpen($dir&"NhatKyChaySafir.txt", $FO_APPEND )
364 FileWriteLine($fileLog, $sOutput)
365 FileClose($fileLog)
366 EndFunc 
367 
368 Func showLog ()
369 GUISetState($show,$guisf)
370 If $show == @SW_SHOW Then 
371 $show = @SW_HIDE
372 Else
373 $show = @SW_SHOW;
374 EndIf
375 EndFunc