B GIO DC V O TO TRNG I HC XY DNG Ninh c Thun PHN TCH S LM VIC KHễNG GIAN CA KT CU LếI CNG NH NHIU TNG CHU TI TRNG NGANG TNH LUN N TIN S K THUT H Ni - Nm 2016 B GIO DC V O TO TRNG I HC XY DNG Ninh c Thun PHN TCH S LM VIC KHễNG GIAN CA KT CU LếI CNG NH NHIU TNG CHU TI TRNG NGANG TNH Chuyờn ngnh : C k thut Mó s: 62 52 01 01 LUN N TIN S K THUT NGI HNG DN KHOA HC PGS.TS NGUYN VN HNG H Ni - Nm 2016 LI CAM OAN Tụi xin cam oan, õy l cụng trỡnh nghiờn cu ca riờng tụi Tr nhng cụng thc c hc thuc tri thc chung ó c trớch dn, cỏc s liu v kt qu lun ỏn l trung thc v cha tng c cụng b bt k cụng trỡnh no H ni, ngy thỏng nm 2016 Nghiờn cu sinh Ninh c Thun MC LC Trang Trang ph bỡa Li cam oan Mc lc Cỏc ký hiu v ch vit tt lun ỏn i Danh mc cỏc bng lun ỏn vi Danh mc cỏc hỡnh v th lun ỏn xi M U Chng TNG QUAN V VN NGHIấN CU 1.1 Cỏc h kt cu nhiu tng s dng lừi cng chu lc 1.1.1 H kt cu lừi chu lc 1.1.2 H kt cu hp chu lc 1.1.3 H kt cu khung lừi 1.1.4 H kt cu khung hp 1.1.5 H kt cu hp - tng vỏch 1.1.6 H kt cu hp lừi 1.1.7 H kt cu tng lừi 1.2 Phng phỏp v s tớnh toỏn kt cu nhiu tng 1.2.1 Phng phỏp tớnh toỏn kt cu nhiu tng 1.2.2 S tớnh toỏn kt cu nhiu tng 1.3 Mụ hỡnh liờn kt na cng hai u phn t 14 1.4 Khỏi nim v cng 15 1.5 Kt qu nghiờn cu ca mt s tỏc gi trờn th gii v Vit Nam liờn quan 16 n ti nghiờn cu 1.5.1 Kt qu nghiờn cu ca mt s tỏc gi liờn quan n mụ hỡnh tớnh toỏn 17 kt cu lừi cng 1.5.2 Kt qu nghiờn cu ca mt s tỏc gi liờn quan n kt cu cú liờn kt 21 na cng v liờn kt n hi 1.6 Nhn xột chung 23 1.7 Mt s gi thit c s dng lun ỏn 25 1.8 Mc ớch, phng phỏp, phm vi v i tng nghiờn cu 25 Chng Mễ HèNH TNH TON H KT CU LếI CNG NHIU 27 TNG Cể S GING, CHU TI TRNG NGANG 2.1 Mụ hỡnh húa t cụng trỡnh thc v s cụng xụn xp x 27 2.1.1 Ma trn cng ca phn t cú liờn kt na cng 29 2.1.2 Cỏc phn t ca ma trn cng v vộc t ti trng nỳt ca phn t 30 hai u liờn kt na cng 2.1.3 Ma trn cng v vộc t ti trng nỳt ca phn t cú liờn kt na 31 cng, cú liờn kt n hi 2.2 S v lp trỡnh 32 2.2.1 S 32 2.2.2 Lp trỡnh 34 2.3 Kim tra tin cy ca li gii v chng trỡnh tớnh 38 2.4 Nguyờn nhõn cn xỏc nh h s iu chnh cng chng un, chng 38 xon tng ng phõn tớch lừi cng mụ hỡnh bng cỏc phn t 2.5 Cỏch xỏc nh h s iu chnh cng chng un, chng xon phõn 42 tớch lừi cng mụ hỡnh bng cỏc phn t 2.5.1 Cỏch xỏc nh h s iu chnh cng chng un, chng xon ca lừi 42 cng thụng qua cõn bng nng lng 2.5.1.1 Phng phỏp xỏc nh 42 2.5.1.2 Vớ d tớnh toỏn 45 2.5.2 Cỏch xỏc nh h s iu chnh cng chng un, chng xon ca lừi 48 cng thụng qua cõn bng chuyn v ti nh 2.5.2.1 Phng phỏp xỏc nh 48 2.5.2.2 Vớ d tớnh toỏn 49 2.5.3 Nhn xột v cỏc cỏch xỏc nh h s iu chnh cng chng un, 49 chng xon ca lừi cng 2.6 Kim tra thut toỏn v chng trỡnh AC-1, AC-2 49 2.6.1 Chn kt cu tớnh toỏn, thc nghim bng s 49 2.6.2 Mụ hỡnh tớnh toỏn 51 2.6.3 Kim tra thut toỏn v chng trỡnh AC-1 53 2.6.3.1 Cỏc trng hp tớnh toỏn thc nghim bng s 53 2.6.3.2 Trỡnh t cỏc bc tớnh toỏn 53 2.6.3.3 Kt qu tớnh toỏn 54 2.6.4 Kim tra thut toỏn v chng trỡnh AC-2 59 2.6.4.1 Cỏc trng hp tớnh toỏn thc nghim bng s 59 2.6.4.2 Mụ hỡnh tớnh toỏn 61 2.6.4.3 So sỏnh kt qu tớnh toỏn gia AC-2 v ETABS v chuyn v ca lừi 62 cng cú liờn kt cng gia cỏc phn t thanh, cú liờn kt n hi 2.6.4.4 So sỏnh kt qu tớnh toỏn gia AC-2 v ETABS v chuyn v ca lừi 64 cng cú liờn kt na cng gia cỏc phn t thanh, cú liờn kt n hi 2.7 Nhn xột chng 67 Chng KHO ST MT S YU T NH HNG N CHUYN V NH V XY DNG BIU THC THC NGHIM XC NH CNG CA LIấN KT N HI TRONG KT CU NHIU TNG Cể S GING, CHU TI TRNG NGANG 68 3.1 Kho sỏt mt s yu t nh hng n chuyn v ngang v xoay ti nh 68 ca kt cu nhiu tng 3.1.1 Gii thiu mc ớch 68 3.1.2 Chn kt cu tớnh toỏn thc nghim bng s 69 3.1.3 Cỏc trng hp tớnh toỏn thc nghim bng s 71 3.1.4 Kt qu tớnh toỏn 73 3.1.5 Nhn xột v cỏc kt qu tớnh toỏn 85 3.2 Xõy dng biu thc thc nghim xỏc nh cng ca liờn kt n hi cho 87 kt cu nhiu tng, cú s ging, chu ti trng ngang 3.2.1 Gii thiu mc ớch 87 3.2.2 Trỡnh t xõy dng biu thc thc nghim 88 3.2.3 Chn kt cu tớnh toỏn thc nghim bng s 90 3.2.4 Kt qu tớnh toỏn 92 3.2.5 xut biu thc thc ngim 100 3.2.6 Kim tra biu thc thc nghim vi kt cu cựng dng 109 3.3 Nhn xột chng 113 KT LUN V KIN NGH 114 DANH MC CC CễNG TRèNH NGHIấN CU CA TC GI 116 TI LIU THAM KHO 117 PH LC 125 i CC Kí HIU, CH VIT TT TRONG LUN N a Chiu rng mt ct tit din lừi cng a1 Chiu rng khong h mt ct tit din lừi cng b Chiu di mt ct tit din lừi cng B dy lừi cng qix , qiy Ti trng ngang, dng phõn b u, tỏc ng vuụng gúc vi trc phn t tng th i, (i = 1n, n l s tng) M iZZ Mụ men xon quanh trc Z trung ti mc sn tng th i, (i = 1n, n l s tng) E Mụ un n hi ca vt liu Ix Mụ men quỏn tớnh chớnh trung tõm ca mt ct tit din lừi cng quanh trc X Iy Mụ men quỏn tớnh chớnh trung tõm ca mt ct tit din lừi cng quanh trc Y I xo Mụ men quỏn tớnh cc ca lừi cng G Mụ un n hi trt Din tớch ca phn ng gii hn trung bỡnh kij ( j = u, v, , w, , , i = 1n, n l s tng) : mm ca liờn kt gia cỏc phn t theo cỏc trc X, Y, Z A Din tớch mt ct tit din lừi cng ix cng n v ca phn t u Chuyn v dc trc cng bc ca phn t , Chuyn v xoay cng bc ti u phn t v v Chuyn v thng tng i cng bc vuụng gúc vi trc phn t gia u v N Lc dc M Mụ men un M xo Mụ men xon V Lc ct ii Chuyn v xon cng bc gia hai u phn t k ij Phn t i, j ma trn cng R Hp lc ca ngoi lc tỏc dng lờn phn t z Khong cỏch t hp lc R n gi ta Ao Din tớch biu mụmen un ca phn t ta trờn hai gi ta ngoi lc gõy c1 , c Khong cỏch t trng tõm biu mụ men un n u phn t Re Vộc t lc nỳt ca phn t Ke Ma trn cng ca phn t R e* Vộc t lc nỳt ca phn t h ta a phng K e* Ma trn cng ca phn t h ta a phng Re Vộc t lc nỳt tng ng ca phn t h ta chung Ke Ma trn cng ca phn t h ta chung [K ]s [C ]s [u]s [R ]s Ma trn cng ca h ta chung Cij Ma trn cng ca liờn kt n hi h ta chung Vộc t chuyn v nỳt ca h ta chung Vộc t lc nỳt ca h ta chung cng ca liờn kt n hi ngn cn chuyn v theo trc vi ch s j (j = X, XX, Y, YY, Z, ZZ) ; j = X, Y th hin cng ca liờn kt n hi ngn cn chuyn v ngang theo trc X, Y; j = XX, YY th hin cng ca liờn kt n hi ngn cn chuyn v xoay quanh trc X, Y; j = Z th hin cng ca liờn kt n hi ngn cn chuyn v dc trc theo trc Z; j = ZZ th hin cng ca liờn kt n hi ngn cn chuyn v xoay quanh trc Z; i = 1n, n l s tng U nj Chuyn v thng theo trc vi ch s j (j = X, Y, Z,) ti tng th n nj Chuyn v xoay quanh trc vi ch s j (j = XX, YY, ZZ,) ti tng th n n Tng th n h Chiu cao mt tng nh iii t B dy sn nc S lng ct trờn mt bng t0 B dy sn quy c, t = 0,22 m CiX cng ca liờn kt n hi ngn cn chuyn v ngang theo trc X ti v trớ (i =1n) cú s tng n, s lng ct nc , mụ men quỏn tớnh trung tõm cỏc ct I yc v b dy sn t, (daN/m) CiZZ cng ca liờn kt n hi ngn cn chuyn v xoay quanh trc Z ti v trớ (i =1n) cú s tng n, s lng ct nc , mụ men quỏn tớnh cc di vi cỏc ct I xoc v b dy sn t, (daNm/rad) CiY cng ca liờn kt n hi ngn cn chuyn v ngang theo trc Y ti v trớ (i =1n) cú s tng n, s lng ct nc , mụ men quỏn tớnh trung tõm cỏc ct I xc v b dy sn t, (daN/m) CiX( ) cng ca liờn kt n hi ngn cn chuyn v ngang theo trc X ti im O1 quy c, ti im cú n = 15 tng, nc =12 ct, I yc ( ) = 916,944 m v t = 0,22 m, (daN/m) CiZZ (0) cng ca liờn kt n hi ngn cn chuyn v xoay quanh trc Z ti im O2 quy c, ti im cú n = 15 tng, nc =12 ct, I xoc( ) = 1837,058 m v t = 0,22 m, (daNm/rad) CiY( ) cng ca liờn kt n hi ngn cn chuyn v ngang theo trc Y ti im O3 quy c, ti im cú n = 15 tng, nc =12 ct, I xc ( ) = 920,113 m v t = 0,22 m, (daN/m) I yc Mụ men quỏn tớnh trung tõm ca cỏc ct quanh trc Y, ( m ) I yc ( ) Mụ men quỏn tớnh trung tõm cỏc ct quanh trc Y quy c, I yc ( ) = 916,944 m4 I xc Mụ men quỏn tớnh trung tõm ca cỏc ct quanh trc X, ( m ) I xc ( ) Mụ men quỏn tớnh trung tõm cỏc ct quanh trc X quy c, I xc( ) = 920,113 m4 I xoc Mụ men quỏn tớnh cc ca cỏc ct i vi tõm cng lừi, ( m ) PL3.13 If ELRestraints(i).FY Then MtKtongthe(ic + 2, ic + 2) = 1E+308 If ELRestraints(i).Fz Then MtKtongthe(ic + 3, ic + 3) = 1E+308 If ELRestraints(i).Mx Then MtKtongthe(ic + 4, ic + 4) = 1E+308 If ELRestraints(i).My Then MtKtongthe(ic + 5, ic + 5) = 1E+308 If ELRestraints(i).Mz Then MtKtongthe(ic + 6, ic + 6) = 1E+308 Next i 'Gan dieu kien bien Springs For i = To UBound(ElJoint) ic = * (ElJoint(i).ID - 1) 'MtKtongthe(ic + 1, ic + 1) = MtKtongthe(ic + 1, ic + 1) 'bien dang doc truc F1 MtKtongthe(ic + 2, ic + 2) = MtKtongthe(ic + 2, ic + 2) + ElJoint(i).CyFl 'bien dang theo y F2 MtKtongthe(ic + 3, ic + 3) = MtKtongthe(ic + 3, ic + 3) + ElJoint(i).CxFl 'bien dang theo x F3 MtKtongthe(ic + 4, ic + 4) = MtKtongthe(ic + 4, ic + 4) + ElJoint(i).CzFl 'bien dang theo Mz 'MtKtongthe(ic + 5, ic + 5) = MtKtongthe(ic + 5, ic + 5) 'bien dang theo My 'MtKtongthe(ic + 6, ic + 6) = MtKtongthe(ic + 6, ic + 6) 'bien dang theo Mx Next i End Sub Public Sub CalcAnalyze() Call CalcMatrixKTT Call CalcMatrixPTT Call AssignDKB Call CHOLESKY(MtKtongthe, MtPtongthe) End Sub Public Sub CalcDisplacement() Dim i, j, N As Integer N = UBound(ElJoint) ReDim ElDist(N) For i = To N Set ElDist(i).JOINT = ElJoint(i) ElDist(i).F1 = MtPtongthe((i - 1) * + 1, 1) ElDist(i).F2 = MtPtongthe((i - 1) * + 2, 1) ElDist(i).F3 = MtPtongthe((i - 1) * + 3, 1) ElDist(i).F4 = MtPtongthe((i - 1) * + 4, 1) ElDist(i).F5 = MtPtongthe((i - 1) * + 5, 1) ElDist(i).F6 = MtPtongthe((i - 1) * + 6, 1) Next i End Sub Public Sub CalcForce() PL3.14 Dim i, j, m As Integer Dim Ni0() As Double, NiL() As Double Dim NiK() As Double, Niq() As Double Dim EA, EJx, EJy, GJo As Double Dim tX, tY, L1, L2, L3 As Double m = UBound(ElFrame) ReDim ElForce(m) For i = To m Set ElForce(i).FRAME = ElFrame(i) Next i 'noi luc chuyen vi gay For i = To m ReDim Niq(12, 1) 'tinh toan cac ham noi suy hecsmit bac tai 'tinh toan ma tran chuyen vi For j = To UBound(ElDist) If ElForce(i).FRAME.StartJoint Is ElDist(j).JOINT Then Niq(1, 1) = ElDist(j).F1 Niq(2, 1) = ElDist(j).F2 Niq(3, 1) = ElDist(j).F3 Niq(4, 1) = ElDist(j).F4 Niq(5, 1) = ElDist(j).F5 Niq(6, 1) = ElDist(j).F6 End If If ElForce(i).FRAME.EndJoint Is ElDist(j).JOINT Then Niq(7, 1) = ElDist(j).F1 Niq(8, 1) = ElDist(j).F2 Niq(9, 1) = ElDist(j).F3 Niq(10, 1) = ElDist(j).F4 Niq(11, 1) = ElDist(j).F5 Niq(12, 1) = ElDist(j).F6 End If Next j 'tinh matran noi luc chuyen vi gay Kdp*Uq Call CalcMatrixKDP(ElFrame(i)) Call NhanMT(MtKthanhphan, Niq, MtForce) 'noi luc tai gay Call CalcMatrixPDP(ElFrame(i)) PL3.15 'gop noi luc ca chuyen vi va tai For j = To 12 ElForce(i).tF(j) = MtForce(j, 1) - MtPthanhphan(j, 1) 'ElForce(i).tF(j) = MtPthanhphan(j, 1) Next j Next i End Sub CODE chớnh ca cỏc FORMS a FrmMain Option Explicit Public chkNhapdl As Boolean Public chkTinhtoan As Boolean Private Sub ButtoncalcC_Click() Dim i, ic As Integer If chkNhapdl Then 'Tinh toan cac matran cung Call CalcMatrixKTT Call CalcMatrixPTT 'Giai matran cung Tong The bao gom Cx,Cy,Cz! 'FrmCalcC.Show Else MSGBOXV "Hay nhap du lieu cho cac tang!" End If End Sub Private Sub chkLoiHo_Click() If chkLoiHo.Value = Unchecked Then TxtLoiHo.Enabled = False End If If chkLoiHo.Value = Checked Then TxtLoiHo.Enabled = True End If End Sub Private Sub Form_Load() chkLoiHo.Value = Unchecked If chkLoiHo.Value = Unchecked Then TxtLoiHo.Enabled = False Call TrangThaiUpdate("Hay nhap du lieu cho chuong trinh") sbStatusBar.Panels(2).Text = "don vi: daN-m" PL3.16 chkNhapdl = False chkTinhtoan = False TxtModulE = 2300000000# ReDim ELSection(0) XPButton2.Enabled = False XPButton4.Enabled = False 'ButtoncalcC.Enabled = False End Sub Public Sub TrangThaiUpdate(strTT As String) sbStatusBar.Panels(1).Text = strTT End Sub Private Sub XPButton1_Click() Dim i, j As Integer Dim tA, tJX, tJY, tJo As Double Dim tL1 As Double Dim tL2 As Double Dim tThic As Double Dim tLoiho As Double KTra = True ISNUMBERTEXT TxtWeight: ISNUMBERTEXT TxtModulE: ISNUMBERTEXT TxtPoisonC ISNUMBERTEXT TxtHeight: ISNUMBERTEXT TxtLong: ISNUMBERTEXT TxtThickness ISNUMBERTEXT TxtLoiHo: ISNUMBERTEXT TxTang XPButton2.Enabled = True XPButton4.Enabled = True 'ButtoncalcC.Enabled = True If KTra Then 'tinh toan du lieu ve hinh hoc tL1 = TxtHeight - TxtThickness tL2 = TxtLong - TxtThickness tThic = TxtThickness tLoiho = TxtLoiHo If chkLoiHo.Value = Unchecked Then tJX = (tL1 + tThic) ^ * (tL2 + tThic) / 12 _ - (tL1 - tThic) ^ * (tL2 - tThic) / 12 tJY = (tL1 + tThic) * (tL2 + tThic) ^ / 12 _ - (tL1 - tThic) * (tL2 - tThic) ^ / 12 tJo = * tThic * (tL1 * tL2) ^ / (2 * (tL1 + tL2)) tA = * (tL1 + tL2) * tThic PL3.17 End If If chkLoiHo.Value = Checked Then tA = * (tL1 + tL2 - tLoiho / 2) * tThic tJX = (tL1 + tThic) ^ * (tL2 + tThic) / 12 _ - (tL1 - tThic) ^ * (tL2 - tThic) / 12 _ - tThic ^ * tLoiho / 12 - (tL1 / 2) ^ * tLoiho * tThic _ - (tLoiho * tL1 * tThic) ^ / (4 * tA) 'tjx=2*(tl1+tthic)^3*t/12+(tl2-tThic)*t^3/12+(tl2=t)*tthic*(tl1/2)^2+ _ 2*(tl2-tloi tJY = (tL1 + tThic) * (tL2 + tThic) ^ / 12 _ - (tL1 - tThic) * (tL2 - tThic) ^ / 12 _ - tThic * tLoiho ^ / 12 tJo = tJX+ tJY End If 'Nhan thong tin ve du lieu hinh hoc 'Khoi tao gia tri cua du lieu hinh hoc If UBound(ELSection) = Then ReDim ELSection(1) Set ELSection(1) = New SECTION ELSection(1).ModulE = TxtModulE ELSection(1).G = 0.4 * ELSection(1).ModulE ELSection(1).Muy = TxtPoisonC ELSection(1).A = tA ELSection(1).JX = tJX ELSection(1).JY = tJY ELSection(1).JO = tJo Else 'Update du lieu ELSection(1).ModulE = TxtModulE ELSection(1).G = 0.4 * ELSection(1).ModulE ELSection(1).Muy = TxtPoisonC ELSection(1).A = tA ELSection(1).JX = tJX ELSection(1).JY = tJY ELSection(1).JO = tJo End If 'xac nhan da nhap du lieu chkNhapdl = True Call TrangThaiUpdate("Tinh toan noi luc va xuat ket qua") PL3.18 'thoat khoi vong lap nhap gia tri cua tiet dien If TxTang = Ntang Then GoTo NHAN11: Ntang = TxTang 'khoi tao cac gia tri mac dinh cua nut ReDim ElJoint(Ntang + 1) For i = To UBound(ElJoint) Set ElJoint(i) = New JOINT ElJoint(i).X = 0: ElJoint(i).Y = 0: ElJoint(i).Z = 3.6 * (i - 1) ElJoint(i).N = 0: ElJoint(i).Mz = ElJoint(i).kEpsi = 0: ElJoint(i).kPhi = 0: ElJoint(i).kTeta = ElJoint(i).kU = 0: ElJoint(i).kV = 0: ElJoint(i).kW = ElJoint(i).CxFl = ElJoint(i).CyFl = ElJoint(i).CzFl = Next i ReDim ElFrame(Ntang) For i = To UBound(ElFrame) Set ElFrame(i) = New FRAME Set ElFrame(i).StartJoint = ElJoint(i) Set ElFrame(i).EndJoint = ElJoint(i + 1) ElFrame(i).qX = 1000: ElFrame(i).qY = 'thong tin ve he so cung cua ElFrame(i).fJx = ElFrame(i).fJy = ElFrame(i).fJz = Set ElFrame(i).SectionFrame = ELSection(1) Next i NHAN11: FrmDoc.Show End If End Sub Private Sub XPButton2_Click() 'ButtoncalcC.Enabled = False If chkNhapdl Then Call CalcAnalyze Call CalcDisplacement Call CalcForce PL3.19 chkTinhtoan = True XPButton2.Enabled = False XPButton1.Enabled = False MSGBOXV "Da tien hanh tinh toan xong!" Else MSGBOXV "Hay nhap du lieu cho cac tang!" End If End Sub Private Sub XPButton3_Click() End End Sub Private Sub XPButton4_Click() If chkTinhtoan Then FrmForce.Show Else MSGBOXV "Hay nhap du lieu va thuc hien tinh toan cho chuong trinh!" End If End Sub Private Sub XPButton5_Click() XPButton1.Enabled = True XPButton2.Enabled = False XPButton4.Enabled = False 'chkNhapdl = False chkTinhtoan = False Call TrangThaiUpdate("Hay nhap du lieu cho chuong trinh") End Sub Private Sub XPButton6_Click() Frmzzz.Show End Sub b FrmDoc Dim ChieuCao() As Double Private Sub Form_Load() Dim i As Integer Ntang = frmMain.TxTang TxTang = Ntang Txtangi = TxQx = ElFrame(Txtangi).qX PL3.20 TxQy = ElFrame(Txtangi).qY TxMz = ElJoint(Txtangi + 1).Mz TxN = ElJoint(Txtangi + 1).N TxH = ElJoint(Txtangi + 1).Z - ElJoint(Txtangi).Z TxKu = ElJoint(Txtangi + 1).kU TxKv = ElJoint(Txtangi + 1).kV TxKteta = ElJoint(Txtangi + 1).kTeta TxKw = ElJoint(Txtangi + 1).kW TxKepsi = ElJoint(Txtangi + 1).kEpsi TxKphi = ElJoint(Txtangi + 1).kPhi TxCaodo = ElJoint(Txtangi + 1).Z 'thong tin ve he so cung cua TxtJx = ElFrame(Txtangi).fJx TxtJy = ElFrame(Txtangi).fJy TxtJz = ElFrame(Txtangi).fJz 'thong tin ve cung cua nut TxtCx = ElJoint(Txtangi + 1).CxFl TxtCy = ElJoint(Txtangi + 1).CyFl TxtCz = ElJoint(Txtangi + 1).CzFl TxtRx = ElJoint(Txtangi + 1).RxFl TxtRy = ElJoint(Txtangi + 1).RyFl TxtRz = ElJoint(Txtangi + 1).RzFl XPButton2.Enabled = False 'gan chieu cao tung tang ReDim ChieuCao(Ntang + 1) For i = To Ntang + ChieuCao(i) = ElJoint(i).Z - ElJoint(i - 1).Z Next i chkJAll.Value = Unchecked End Sub Nỳt lnh Tip Theo Private Sub XPButton1_Click() KTra = True ISNUMBERTEXT TxQx: ISNUMBERTEXT TxQy: ISNUMBERTEXT TxMz ISNUMBERTEXT TxN: ISNUMBERTEXT TxH: ISNUMBERTEXT TxKu ISNUMBERTEXT TxKv: ISNUMBERTEXT TxKteta: ISNUMBERTEXT TxKw ISNUMBERTEXT TxKepsi: ISNUMBERTEXT TxKphi ISNUMBERTEXT TxtCx: ISNUMBERTEXT TxtCy: ISNUMBERTEXT TxtCz PL3.21 If KTra Then 'gan thong tin vua thay doi ElFrame(Txtangi).qX = TxQx ElFrame(Txtangi).qY = TxQy ElJoint(Txtangi + 1).Mz = TxMz ElJoint(Txtangi + 1).N = TxN ChieuCao(Txtangi + 1) = TxH ElJoint(Txtangi + 1).kU = TxKu ElJoint(Txtangi + 1).kV = TxKv ElJoint(Txtangi + 1).kTeta = TxKteta ElJoint(Txtangi + 1).kW = TxKw ElJoint(Txtangi + 1).kEpsi = TxKepsi ElJoint(Txtangi + 1).kPhi = TxKphi 'thong tin ve he so cung cua ElFrame(Txtangi).fJx = TxtJx ElFrame(Txtangi).fJy = TxtJy ElFrame(Txtangi).fJz = TxtJz 'thong tin ve cung cua san ElJoint(Txtangi + 1).CxFl = TxtCx ElJoint(Txtangi + 1).CyFl = TxtCy ElJoint(Txtangi + 1).CzFl = TxtCz ElJoint(Txtangi + 1).RxFl = TxtRx ElJoint(Txtangi + 1).RyFl = TxtRy ElJoint(Txtangi + 1).RzFl = TxtRz 'gan tat ca thong tin ve he so cung cua If chkJAll.Value = Checked Then For i = To Ntang ElFrame(i).fJx = TxtJx ElFrame(i).fJy = TxtJy ElFrame(i).fJz = TxtJz Next i End If chkJAll.Value = Unchecked 'thay doi gia tri Txtangi = Txtangi + If Txtangi = Ntang Then XPButton1.Enabled = False If Txtangi = Then XPButton2.Enabled = True 'hien thi thong tin thay doi tang PL3.22 TxQx = ElFrame(Txtangi).qX TxQy = ElFrame(Txtangi).qY TxMz = ElJoint(Txtangi + 1).Mz TxN = ElJoint(Txtangi + 1).N TxH = ChieuCao(Txtangi + 1) TxKu = ElJoint(Txtangi + 1).kU TxKv = ElJoint(Txtangi + 1).kV TxKteta = ElJoint(Txtangi + 1).kTeta TxKw = ElJoint(Txtangi + 1).kW TxKepsi = ElJoint(Txtangi + 1).kEpsi TxKphi = ElJoint(Txtangi + 1).kPhi 'thong tin ve he so cung cua TxtJx = ElFrame(Txtangi).fJx TxtJy = ElFrame(Txtangi).fJy TxtJz = ElFrame(Txtangi).fJz 'thong tin cung cua san TxtCx = ElJoint(Txtangi + 1).CxFl TxtCy = ElJoint(Txtangi + 1).CyFl TxtCz = ElJoint(Txtangi + 1).CzFl TxtRx = ElJoint(Txtangi + 1).RxFl TxtRy = ElJoint(Txtangi + 1).RyFl TxtRz = ElJoint(Txtangi + 1).RzFl TxCaodo = CaoDoTang End If End Sub Nỳt lnh Quay li Private Sub XPButton2_Click() KTra = True ISNUMBERTEXT TxQx: ISNUMBERTEXT TxQy: ISNUMBERTEXT TxMz ISNUMBERTEXT TxN: ISNUMBERTEXT TxH: ISNUMBERTEXT TxKu ISNUMBERTEXT TxKv: ISNUMBERTEXT TxKteta: ISNUMBERTEXT TxKw ISNUMBERTEXT TxKepsi: ISNUMBERTEXT TxKphi ISNUMBERTEXT TxtCx: ISNUMBERTEXT TxtCy: ISNUMBERTEXT TxtCz If KTra Then 'gan thong tin vua thay doi ElFrame(Txtangi).qX = TxQx ElFrame(Txtangi).qY = TxQy ElJoint(Txtangi + 1).Mz = TxMz PL3.23 ElJoint(Txtangi + 1).N = TxN ChieuCao(Txtangi + 1) = TxH ElJoint(Txtangi + 1).kU = TxKu ElJoint(Txtangi + 1).kV = TxKv ElJoint(Txtangi + 1).kTeta = TxKteta ElJoint(Txtangi + 1).kW = TxKw ElJoint(Txtangi + 1).kEpsi = TxKepsi ElJoint(Txtangi + 1).kPhi = TxKphi 'thong tin ve he so cung cua ElFrame(Txtangi).fJx = TxtJx ElFrame(Txtangi).fJy = TxtJy ElFrame(Txtangi).fJz = TxtJz 'thong tin ve cung cua san ElJoint(Txtangi + 1).CxFl = TxtCx ElJoint(Txtangi + 1).CyFl = TxtCy ElJoint(Txtangi + 1).CzFl = TxtCz ElJoint(Txtangi + 1).RxFl = TxtRx ElJoint(Txtangi + 1).RyFl = TxtRy ElJoint(Txtangi + 1).RzFl = TxtRz 'gan tat ca thong tin ve he so cung cua If chkJAll.Value = Checked Then For i = To Ntang ElFrame(i).fJx = TxtJx ElFrame(i).fJy = TxtJy ElFrame(i).fJz = TxtJz Next i End If chkJAll.Value = Unchecked 'thay doi gia tri Txtangi = Txtangi - If Txtangi = Then XPButton2.Enabled = False If Txtangi = Ntang - Then XPButton1.Enabled = True 'hien thi thong tin thay doi tang TxQx = ElFrame(Txtangi).qX TxQy = ElFrame(Txtangi).qY TxMz = ElJoint(Txtangi + 1).Mz TxN = ElJoint(Txtangi + 1).N TxH = ChieuCao(Txtangi + 1) PL3.24 TxKu = ElJoint(Txtangi + 1).kU TxKv = ElJoint(Txtangi + 1).kV TxKteta = ElJoint(Txtangi + 1).kTeta TxKw = ElJoint(Txtangi + 1).kW TxKepsi = ElJoint(Txtangi + 1).kEpsi TxKphi = ElJoint(Txtangi + 1).kPhi 'thong tin ve he so cung cua TxtJx = ElFrame(Txtangi).fJx TxtJy = ElFrame(Txtangi).fJy TxtJz = ElFrame(Txtangi).fJz 'thong tin cung cua san TxtCx = ElJoint(Txtangi + 1).CxFl TxtCy = ElJoint(Txtangi + 1).CyFl TxtCz = ElJoint(Txtangi + 1).CzFl TxtRx = ElJoint(Txtangi + 1).RxFl TxtRy = ElJoint(Txtangi + 1).RyFl TxtRz = ElJoint(Txtangi + 1).RzFl TxCaodo = CaoDoTang End If End Sub Nỳt lnh Kt thỳc Private Sub XPButton3_Click() Dim i As Integer KTra = True ISNUMBERTEXT TxQx: ISNUMBERTEXT TxQy: ISNUMBERTEXT TxMz ISNUMBERTEXT TxN: ISNUMBERTEXT TxH: ISNUMBERTEXT TxKu ISNUMBERTEXT TxKv: ISNUMBERTEXT TxKteta: ISNUMBERTEXT TxKw ISNUMBERTEXT TxKepsi: ISNUMBERTEXT TxKphi ISNUMBERTEXT TxtCx: ISNUMBERTEXT TxtCy: ISNUMBERTEXT TxtCz If KTra Then 'gan tat ca thong tin ve he so cung cua If chkJAll.Value = Checked Then For i = To Ntang ElFrame(i).fJx = TxtJx ElFrame(i).fJy = TxtJy ElFrame(i).fJz = TxtJz Next i End If PL3.25 chkJAll.Value = Unchecked 'gan thong tin vua thay doi ElFrame(Txtangi).qX = TxQx ElFrame(Txtangi).qY = TxQy ElJoint(Txtangi + 1).Mz = TxMz ElJoint(Txtangi + 1).N = TxN ElJoint(Txtangi + 1).kU = TxKu ElJoint(Txtangi + 1).kV = TxKv ElJoint(Txtangi + 1).kTeta = TxKteta ElJoint(Txtangi + 1).kW = TxKw ElJoint(Txtangi + 1).kEpsi = TxKepsi ElJoint(Txtangi + 1).kPhi = TxKphi 'thong tin ve he so cung cua ElFrame(Txtangi).fJx = TxtJx ElFrame(Txtangi).fJy = TxtJy ElFrame(Txtangi).fJz = TxtJz 'thong tin ve cung cua san ElJoint(Txtangi + 1).CxFl = TxtCx ElJoint(Txtangi + 1).CyFl = TxtCy ElJoint(Txtangi + 1).CzFl = TxtCz ElJoint(Txtangi + 1).RxFl = TxtRx ElJoint(Txtangi + 1).RyFl = TxtRy ElJoint(Txtangi + 1).RzFl = TxtRz frmMain.chkNhapdl = True 'gan lai thong tin chieu cao tang For i = To Ntang + ElJoint(i).Z = ElJoint(i - 1).Z + ChieuCao(i) Next i End If Unload Me End Sub Public Function CaoDoTang() As Double Dim i As Integer CaoDoTang = For i = To Txtangi + CaoDoTang = CaoDoTang + ChieuCao(i) Next i End Function PL3.26 c FrmForce Combobox la chn loi ni lc cn xut Private Sub CmbNL_Click() If CmbNL = "Chuyển vị" Then Grid1.Clear Grid1.Cell(flexcpText, 0, 0) = "Chuyển vị" For i = To Grid1.Cell(flexcpText, i, 0) = "F" & Str(i) Next i For i = To UBound(ElJoint) Grid1.Cell(flexcpText, 0, i) = "Nút " & Str(i) Grid1.Cell(flexcpText, 1, i) = Format(ElDist(i).F1, "###0.0000000") Grid1.Cell(flexcpText, 2, i) = Format(ElDist(i).F2, "###0.0000000") Grid1.Cell(flexcpText, 3, i) = Format(ElDist(i).F3, "###0.0000000") Grid1.Cell(flexcpText, 4, i) = Format(ElDist(i).F4, "###0.0000000") Grid1.Cell(flexcpText, 5, i) = Format(ElDist(i).F5, "###0.0000000") Grid1.Cell(flexcpText, 6, i) = Format(ElDist(i).F6, "###0.0000000") Next i Else Grid1.Clear Grid1.Cell(flexcpText, 0, 0) = "Nội lực" Grid1.Cell(flexcpText, 1, 0) = "N1" Grid1.Cell(flexcpText, 2, 0) = "V1y" Grid1.Cell(flexcpText, 3, 0) = "V1x" Grid1.Cell(flexcpText, 4, 0) = "Mz" Grid1.Cell(flexcpText, 5, 0) = "M1y" Grid1.Cell(flexcpText, 6, 0) = "M1x" Grid1.Cell(flexcpText, 7, 0) = "N2" Grid1.Cell(flexcpText, 8, 0) = "V2y" Grid1.Cell(flexcpText, 9, 0) = "V2x" Grid1.Cell(flexcpText, 10, 0) = "Mz" Grid1.Cell(flexcpText, 11, 0) = "M2y" Grid1.Cell(flexcpText, 12, 0) = "M2x" For i = To UBound(ElFrame) Grid1.Cell(flexcpText, 0, i) = "Phần tử " & Str(i) For j = To 12 Grid1.Cell(flexcpText, j, i) = Format(ElForce(i).tF(j), "###0.000") PL3.27 Next j Next i End If End Sub Private Sub Form_Load() Dim i, j, k As Integer Grid1.ExtendLastCol = True Grid1.ColWidth(0) = 1000 Grid1.ColAlignment(0) = flexAlignCenterCenter For i = To UBound(ElJoint) Grid1.ColAlignment(i) = flexAlignCenterCenter Grid1.ColWidth(i) = 1500 Next i CmbNL_Click End Sub Nỳt lnh thoỏt form Private Sub XPButton1_Click() Unload Me End Sub Nỳt lnh lu kt qu file Private Sub XPButton2_Click() Dim FileN As String With Dialog1 DialogTitle = "Lu Kết Quả Nội Lực" CancelError = False 'ToDo: set the flags and attributes of the common dialog control Filter = "Text Document(*.Txt)|*.txt" ShowSave If Len(.FileName) = Then Exit Sub End If FileN = FileName End With Grid1.SaveGrid FileN, flexFileTabText, MSGBOXV "đã lu xong kết tính toán kết cấu!" End Sub ... Các hệ kết cấu nhiều tầng sử dụng lõi cứng chịu lực 1.1.1 Hệ kết cấu lõi chịu lực 1.1.2 Hệ kết cấu hộp chịu lực 1.1.3 Hệ kết cấu khung – lõi 1.1.4 Hệ kết cấu khung – hộp 1.1.5 Hệ kết cấu hộp... VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC XÂY DỰNG Ninh Đức Thuận PHÂN TÍCH SỰ LÀM VIỆC KHÔNG GIAN CỦA KẾT CẤU LÕI CỨNG NHÀ NHIỀU TẦNG CHỊU TẢI TRỌNG NGANG TĨNH Chuyên ngành : Cơ kỹ thuật Mã số: 62 52 01 01... sơ đồ khung chịu phần tải trọng thẳng đứng tương ứng với diện tích truyền tải lên nó, toàn tải trọng ngang hệ lõi chịu Khi chịu tải trọng ngang, làm việc kết cấu tương tự hệ lõi chịu lực, mô