B GIO DC V O TO B NễNG NGHIP V PTNT TRNG I HC LM NGHIP - PHM QUC HON TNH TON HèNH DNG V S THAY I DY CA V BN NG CHT LNG Cể SC CHU U, DI TC DNG CA P LC CHT LNG V TRNG LNG BN THN V BN LUN VN THC S K THUT H Ni - 2012 B GIO DC V O TO B NễNG NGHIP V PTNT TRNG I HC LM NGHIP PHM QUC HON TNH TON HèNH DNG V S THAY I DY CA V BN NG CHT LNG Cể SC CHU U, DI TC DNG CA P LC CHT LNG V TRNG LNG BN THN V BN Chuyờn ngnh: K thut mỏy v thit b c gii húa nụng lõm nghip Mó s: 60.52.14 LUN VN THC S K THUT NGI HNG DN KHOA HC: TS V KHC BY H Ni - 2012 i LI CM N Trong quỏ trỡnh hc v hon thnh lun tụ t nghiờ p Cao ho c ta i Trng a i Ho c Lõm Nghiờ p, tỏc gi ó nhn c s quan tõm, tn tỡnh giỳp ca cỏc Thy cụ giỏo tham gia ging dy ti Trng i hc Lõm nghip, c bit l thy giỏo - TS V Khc By - Ngi hng dn khoa hc, ó dnh nhiu thi gian, tn tỡnh giỳp , truyn t nhng kin thc quý bỏu sut thi gian hc Nhõn dp ny tỏc gi xin bay to long biờ t n va ghi nhn s giỳp quy bỏu ú Xin chõn thnh cm n cac Thy cụ giỏo cỏc khoa thuc trng i hc Lõm nghip ó cú nhiu ý kin gúp ý giỳp tỏc gi hon thin Lun mt cỏch h thng hn Mc dự ó cú nhiu c gng, nhng thi gian cũn hn ch, nờn ti khụng th trỏnh nhng thiu sút nht nh, rt mong nhn c nhng ý kin úng gúp quý bỏu ca cỏc Thy cụ giỏo, Hi ụng khoa hc cua trng ti nghiờn cu ca tụi c hon thin hn Cui cựng tỏc gi xin chõn thnh cm n cỏc ụng nghip, bn bố v ngi thõn gia ỡnh ó giỳp , ng viờn tỏc gi sut thi gian hc v hon thnh bn lun tt nghip ny Xin trõn cm n! H Ni, ngy 05 thỏng 06 nm 2012 Tỏc gi Phm Quc Hon ii MC LC Trang Trang ph bỡa Li cm n i Danh mc cỏc bng iv Danh mc cỏc hỡnh iv T VN CHNG TNG QUAN NI DUNG NGHIấN CU 1.1 Cỏc nghiờn cu v lý thuyt 1.2 t bi toỏn .7 1.3 Mc tiờu ca ti 1.4 Cỏc bc thc hin ca nghiờn cu 1.5 i tng - Phm vi nghiờn cu - Kh nng ng dng 1.5.1 i tng nghiờn cu 1.5.2 Phm vi nghiờn cu 10 1.5.3 Kh nng ng dng 10 Ni dung trỡnh by ca lun 10 1.7 Cỏc kt qu t c ca lun 11 CHNG C S Lí THUYT S DNG TRONG LUN VN .12 2.1 Cỏc h thc c bn ca lý thuyt n hụi .12 2.2 Cỏc h thc c bn v lý thuyt mng ca v trũn xoay 13 2.2.1 nh ngha v cỏc ký hiu 13 2.2.2 Phng trỡnh cõn bng ca v trũn xoay chu ti i xng trc 18 CHNG TRNG THI NG SUT U CA V BN NG CHT LNG Cể DNG V TRềN XOAY 23 3.1 Trng thỏi ng sut u ca v trũn xoay chu ỏp lc thy tnh v trng lng bn thõn 23 3.2 Phng phỏp tớnh toỏn hỡnh dng v dy ca v trũn xoay cú trng thỏi ng sut u ti mi im , chu ỏp lc thy tnh v trng lng bn thõn .26 iii 3.2.1 Tớnh toỏn hỡnh dng v dy v bn .26 3.2.2 Tớnh toỏn th tớch bn .31 CHNG KT QU TNH TON VI CC S LIU C TH 32 4.1 Cụng c tớnh toỏn 32 4.2 Cỏc kt qu tớnh toỏn .32 4.2.1 Tớnh toỏn vi vt liu bờ-tụng ct thộp : 33 4.2.2 Tớnh toỏn vi vt liu composite : 36 4.3 Nhn xột cỏc kt qu tớnh toỏn 40 KT LUN 41 TI LIU THAM KHO iv DANH MC CC BNG Tờn bng Trang 4.1 Ta (v , t) v dy h ca cỏc im trờn kinh tuyn v 34 4.2 Ta (v , t) v dy h ca cỏc im trờn kinh tuyn v 37 TT DANH MC CC HèNH TT Tờn hỡnh Trang 1.1 Hỡnh nh quỏ trỡnh thi cụng xõy dng thỏp cha nc 1.2 Thỏp cha nc ti Trng Bom ụng Nai 2.1 Mt hỡnh hc v 13 2.2 Mt trung bỡnh v 13 2.3 Hỡnh 2.3 19 2.4 Lc tỏc ng lờn mt cnh ca phõn t 20 2.5 Hỡnh 2.5 21 2.6 Cõn bng ca v trờn vũng trũn v tuyn 22 3.1 Chn h ta tớnh toỏn : Trc 0v v trc 0t 24 3.2 Hỡnh 3.2 24 3.3 Ti nh bụn 28 4.1 Mt ct ng thnh v bụn 33 4.2 Mt ct ng thnh v bụn 36 T VN Trong s nghip cụng nghip húa v hin i húa t nc lnh vc c khớ ch to lp giỏp sa cha mỏy, thit k, v thit b cho cỏc loi hỡnh cụng ngh sn xut úng vai trũ ht sc quan trng Phm vi s sn phm ca nghnh ch to lp mỏy rt rng rói.t nhng chi tit nh n gin n nhng chi tit, sn phm cú kớch thc ln phc Nhng sn phm ny u c to nh cỏc mỏ múc thit b khỏc Vi xu th ton cu húa nõng cao sc mnh cnh tranh quỏ trỡnh hi nhp chỳng ta cn phỏt trin theo hng ti gim chi phớ gia cụng trờn c s m bo v nõng cao cht lng sn phm Trong xu th ton cu húa nõng cao sc cnh tranh quỏ trỡnh hi nhp chỳng ta cn phỏt trin sn xut theo hng ti gim chi phớ gia cụng trờn c s m bo nõng cao cht lng sn phm,cng nh thm m Bụn cha cht lng ch yu ta thy nhiu cụng nghip húa du tt c cỏc hot ng sn xut buụn bỏn tớch tr u liờn quan n khõu bụn b cha Bụn b cha tip nhn nguyờn liu trc a vo sn xut v tụn tr sau sn xut Bụn cha cú vai trũ rt quan trng nú cú nhim v tụn tr nguyờn liu v sn phm giỳp ta nhn bit c s lng tụn tr Ti õy cỏc hot ng kim tra cht lng, s lng phõn tớch cỏc ch tiờu trc xut hng tiờu th u c thc hin Bụn cha cú nhiu loi : Da theo chiu cao xõy dng ngi ta cú b ngm, b ni, b na ngm v b ngoi Da theo ỏp sut Ta cú b cao ỏp, b ỏp lc trung bỡnh, v b ỏp thng Phõn loi theo vt liu xõy dng ta cú b kim loi v b phi kim, cui cựng da theo hỡnh dng ta cú b tr ng, b tr nm, b hỡnh cu, hỡnh git nc Bụn ng cht lng ( thỏp nc ) vi kớch thc ln lm bng vt liu kim loi hoc bng vt liu composite thng c xõy dng cỏc khu cụng nghip v dõn sinh Bụn nc cú dng v trũn xoay c t trờn mt tr giỏ Do ỏp lc thy tnh ca cht lng nờn cỏc thnh ca bụn nc xut hin ng xut , chuyn v Nu vi mt hỡnh dỏng trũn xoay tựy ý, di tỏc dng ca ỏp lc cht lng v trng lng bn thõn, ti mi im ca v s cú cỏc ng sut vi cng khỏc theo cỏc hng bụn lm vic gii hn cho phộp thỡ cng ng sut u phi nh hn cng ng sut cho phộp p ti mi im tn ớt nguyờn liu xõy dng thỡ cn cú c mt hỡnh dỏng v dy hp lý ng sut u theo cỏc hng ti mi im trờn thnh v Do vy, tớnh toỏn hỡnh dng trũn xoay v s thay i dy ca v bụn ng cht lng lm bng vt liu kim loi hay composite cú sc chu u mi phớa di ỏp lc thy tnh v trng lng bn thõn s giỳp cho vic xõy dng cỏc bụn ng cht lng cú dng v trũn xoay lm vic c an ton v ti u v vt liu xõy dng Hỡnh dng cỏc thỏp nc ny thng l v nún hay dng git nc Thỏp nc dng git nc ngoi vic l cụng trỡnh thm m ni cụng cng m cũn l hỡnh dng v cú sc chu u theo cỏc hng di tỏc dng ca ỏp lc nc v trng lng bn thõn Vt liu composite hin c thay th rt nhiu cho vt liu kim loi xõy dng Tớnh toỏn mt cỏch chi tit ti u húa cng nh cú mt chng trỡnh tớnh thun tin cho vic thit k v thi cụng xõy dng bụn nc cú sc chu u bng vt liu composite thỡ hin cha cú y m bo cho bụn lm vic m bo tớnh an ton nht hiu qu v kinh t nht ụng thi cng ỏp ng c tớnh thm m thỡ ũi hi vic thit k cng nh tớnh toỏn phi ht sc t m v cn thn m bo chớnh xỏc cao nht Xut phỏt t nhng yờu cu thc tin nờu trờn, c s ụng ý ca hi ụng khoa hc- cụng ngh c s o to SH trng HLN, Tụi tin hnh thc hin lun tt nghip vi ti Tớnh toỏn hỡnh dỏng v s thay i dy ca v bn ng cht lng cú sc chu u, di tỏc dng ca ỏp lc cht lng v trng lng bn thõn v bn CHNG TNG QUAN NI DUNG NGHIấN CU 1.1 Cỏc nghiờn cu v lý thuyt Nghiờn cu bn ca kt cu c hc l mt ó v ang c quan tõm Trờn c s lý thuyt n hụi m c bn cú c quan h gia ng sut bin dng theo Hỳc, ngi ta ó gii c khỏ nhiu bi toỏn v bn ca cỏc kt cu dng bn, v S phỏt trin ca cỏc nghiờn cu c hc n vi cỏc mụ hỡnh lý thuyt n khỏc nhau, ngi ta cng cú c cỏc kt qu nghiờn cu v tớnh toỏn n mt s dng kt cu v mng Bi toỏn v bn ca v cú dng trũn xoay ó c cp n [1], [2], [5] Trong cỏc cụng trỡnh ny cỏc tỏc gi ó xõy dng c cỏc phng trỡnh tớnh toỏn bn cho kt cu v dng trũn xoay Cụng trỡnh [3] ó cú nghiờn cu bn v n nh n - ca v nún chu ỏp sut ngoi, cụng trỡnh ny tỏc gi ó cú xột n nh hng ca cỏc c trng vt liu n giỏ tr lc ti hn cng nh xột n nh hng ca mng ca v ( qua t s h ) L i vi giỏ tr lc ti hn Bụn nc dng v cú sc chu u chu ti ngoi bi ỏp lc thy tnh v trng lng bn thõn v, ú õy ta chn tham s ti ngoi l trng lng riờng ca cht lng v trng lng riờng ca v l B hay l trng lng riờng trờn mt n v din tớch mt l q ( vi q = B h , h l chiu dy v) Do bi toỏn n hụi l nht nghim, nờn kt cu c hc lm vic giai on n hụi thỡ ng vi mi giỏ tr ca ti ngoi s cú nht mt trng thỏi ng sut , bin dng , chuyn v Ti trng ngoi ca bụn ng nc l ỏp lc thy tnh v trng lng bn thõn v, chỳng cú cng v hng khỏc mi im Vỡ vy cú 42 dỏng thay i) Do ú, nu dựng vt liu cú ng sut cho phộp ln cho giỏ tr tng lờn, ú ly giỏ tr h0 nh i ta cú c sc cha ca bụn nh trc * Vi phn mm c xõy dng, cú th tớnh toỏn nhanh chúng thit k thi cụng xõy dng bụn cha cht lng dng v trũn xoay cú sc chu u iu ny giỳp cho vic la chn hiu qu cỏc thụng s v dy v hay cỏc thụng s vt liu xõy dng xut Do khuụn kh ca mt lun thc s, nờn ti : Tớnh toỏn hỡnh dỏng v s thay i dy ca v bụn ng cht lng cú sc chu u, di tỏc dng ca ỏp lc cht lng v trng lng bn thõn v bụn mi ch ch nghiờn cu trng hp v bụn khụng cú gõn ( cỏc gõn gia cng) Trờn c s nghiờn cu, tớnh toỏn ny ti cú th tip tc theo hng : tớnh toỏn trng hp v cú gõn gia cng TI LIU THAM KHO Brush D O (1975), Almroth B O Buckling of bars, plates and shells, McGraw Hill, London Huy Bich Dao (2000), Theory of Elasticity, VNU Publishing House, Company, New York Third Edition Huy Bich Dao, Khac Bay Vu (1996), Influence of the hardening characteristics of material on the critical load in the elastic plastic stability problem of conical shells, Proceedings of the NCST of Vietnam, Vol.8, (No.1), pp 23-24 Timoshenko S.P, Gere J M, (1961), Theory of elastic stability , 2d ed, McGraw Hill Timoshenko S.P (1940), Theory of Plates and Shells, McGraw-Hill Book Company, New York, First Edition PH LC GIAO DIN PHN CHNG TRèNH TNH CODE CA CHNG TRèNH TNH Mụ dul Public u, t, x, phi, delX, delPhi, delU, delT, GaMa, GaMaB, XicMa, R1, du_dx, dt_dx, dh_dphi, n, V, Pi, HeSoH, MaxX, MaxY, MaxH As Double Public i, j, k As Integer Public Chieu_dung() As Double Public Chieu_Ngang() As Double Public H() As Double Public H0() As Double Public Sub CenterForm(frm As Form) frm.Top = (Screen.Height - frm.Height) / frm.Left = (Screen.Width - frm.Width) / End Sub Mụ dul chớnh Private Sub Command1_Click() Call PrintRep02 End Sub Private Sub Form_Load() Call CenterForm(Form1) End Sub Private Sub Thoat_Click() Unload Me End Sub Private Sub Tinh_Vo() 'Public u, t, x, phi, delX, delPhi, delU,delT, GaMa, GaMaB, XicMa, R1, u0, t0, x0, phi0, du_dx, dt_dx,n ,Chieu_dung, Chieu_Ngang As Double Dim tg, rong, cao, x0, y0, x1, y1, x2, y2, hesoX, hesoY, tgHeSo, tgmu, tgmau, x01, x02, y01, y02, delB As Double Dim x1L, y1L, x2L, y2L As Double Pi = 3.1416 phi = 0: V = 'H = Text2.Text GaMaB = Text3.Text GaMa = Text1.Text XicMa = Text4.Text n = Text6.Text tgmu = GaMaB / XicMa ReDim Chieu_dung(0 To n) ReDim Chieu_Ngang(0 To n) ReDim H(0 To n) ReDim H0(0 To n) For i = To n Chieu_dung(i) = Chieu_Ngang(i) = H(i) = H0(i) = Next H(0) = Text2.Text H0(0) = H(0) u = 0: t = 0: x = 0: phi = R1 = * XicMa / GaMaB delPhi = Pi / n delX = R1 * delPhi delU = delPhi delT = R1 * (delPhi) ^ / u = u + delU t = t + delT x = x + delX phi = phi + delPhi H(1) = H(0) du_dx = GaMa * t / (XicMa * H(1)) + GaMaB * Cos(phi) / XicMa - u / x dt_dx = u / Cos(phi) R1 = / du_dx dh_dphi = H(1) * (GaMaB * Sin(phi) * R1 / XicMa) Chieu_dung(1) = t Chieu_Ngang(1) = x V = delT * Pi * ((Chieu_Ngang(1) + Chieu_Ngang(0)) / 2) ^ '+++++++++++++++++++++++++++++++++++++ For i = To n delX = R1 * Cos(phi) * delPhi delU = du_dx * delX delT = dt_dx * delX u = u + delU t = t + delT H(i) = H(i - 1) + dh_dphi * delPhi x = x + delX phi = phi + delPhi du_dx = GaMa * t / (XicMa * H(i)) + GaMaB * Cos(phi) / XicMa - u / x dt_dx = u / Cos(phi) R1 = / du_dx dh_dphi = H(i) * (GaMaB * Sin(phi) * R1 / XicMa) Chieu_dung(i) = t Chieu_Ngang(i) = x V = V + delT * Pi * ((Chieu_Ngang(i) + Chieu_Ngang(i - 1)) / 2) ^ Next MaxX = 0: MaxY = 0: MaxH = For i = To n If MaxX < Abs((Chieu_Ngang(i))) Then MaxX = Abs((Chieu_Ngang(i))) If MaxY < Abs((Chieu_dung(i))) Then MaxY = Abs((Chieu_dung(i))) If MaxH < Abs(H(i)) Then MaxH = Abs(H(i)) Next '**************************** Ve With ChatPic1 ChatPic1.Cls x0 = ChatPic1.ScaleWidth / y0 = ChatPic1.ScaleHeight * 0.1 rong = ChatPic1.ScaleWidth * 0.9 cao = ChatPic1.ScaleHeight * 0.9 - y0 hesoX = (rong / 2) / MaxX hesoY = (cao - y0) / MaxY Text7.Text = "" Text7.Text = Text7.Text & Round(V / 100 ^ 3, 1) & " m^3" & vbNewLine '****************** tgHeSo = hesoX If tgHeSo > hesoY Then tgHeSo = hesoY hesoX = tgHeSo hesoY = tgHeSo HeSoH = CDbl(Text8.Text) '***************** ChatPic1.DrawWidth = For i = To n x1 = x0 + (Chieu_Ngang(i) * hesoX) y1 = y0 + (Chieu_dung(i) * hesoX) x2 = * x0 - x1 y2 = y1 ChatPic1.PSet (x1, y1), vbRed ChatPic1.PSet (x2, y2), vbRed If i > Then ChatPic1.Line (x1L, y1L)-(x1, y1), vbRed ChatPic1.Line (x2L, y2L)-(x2, y2), vbRed End If x1L = x1: y1L = y1 x2L = x2: y2L = y2 Next '++++++++++ ChatPic1.DrawWidth = For i = To n x1 = x0 + (Chieu_Ngang(i) * hesoX) y1 = y0 + (Chieu_dung(i) * hesoX) x2 = * x0 - x1 y2 = y1 x01 = x0 + ((Chieu_Ngang(i) - HeSoH * H(i) * Sin(i * delPhi)) * hesoX) y01 = y0 + ((Chieu_dung(i) + HeSoH * H(i) * Cos(i * delPhi)) * hesoY) x02 = * x0 - x01 y02 = y01 ChatPic1.PSet (x01, y01), vbRed ChatPic1.Line (x1, y1)-(x01, y01), vbBlue ChatPic1.PSet (x02, y02), vbRed ChatPic1.Line (x02, y02)-(x2, y2), vbBlue Next ChatPic1.DrawWidth = ChatPic1.Line (x02, y02 + 10)-(x01, y01 + 10) ChatPic1.Line (x2, y2 + 10)-(x1, y1 + 10) tg = (x1 - x2) / 100 ChatPic1.DrawWidth = For i = To 100 x02 = x2 + i * tg ChatPic1.Line (x02, y01 + 10)-(x02, y1 + 10) Next ChatPic1.Line (x0, y0 - 50)-(x0, ChatPic1.ScaleHeight - (y0 / 2)) ChatPic1.CurrentX = x0 - 55 ChatPic1.CurrentY = ChatPic1.ScaleHeight - (y0 / 2) - 150 ChatPic1.FontSize = 14 ChatPic1.Print "v t " ChatPic1.Line (x0, y0 - 50)-(rong * 20 / 19, y0 - 50) ChatPic1.CurrentX = rong * 20 / 19 - 100 ChatPic1.CurrentY = y0 - 180 ChatPic1.FontSize = 14 ChatPic1.Print ">" ChatPic1.CurrentX = rong * 20 / 19 - 100 ChatPic1.CurrentY = y0 ChatPic1.Print "v" ChatPic1.FontSize = 13 ChatPic1.CurrentX = x0 - 200 ChatPic1.CurrentY = y0 - 350 ChatPic1.Print "0" End With '*************************************** With MSFG1 rows = cols = n + For i = To n ColWidth(i) = 550 ColAlignment(i) = flexAlignCenterTop Next FixedCols = FixedRows = For j = To n MSFG1.TextMatrix(0, j) = j Next MSFG1.TextMatrix(1, 0) = "V" MSFG1.TextMatrix(2, 0) = "t" MSFG1.TextMatrix(3, 0) = "h" For j = To n MSFG1.TextMatrix(1, j + 1) = Round(Chieu_dung(j), 1) MSFG1.TextMatrix(2, j + 1) = Round(Chieu_Ngang(j), 1) MSFG1.TextMatrix(3, j + 1) = Round(H(j), 1) Next End With End Sub Private Sub Tinh_Click() Call Tinh_Vo End Sub Private Sub PrintRep02() Dim bay As Boolean Dim m0, j, i, k, hg0, DauTren, dau_soLieu, trai, Xic_thanh_CP, Xic_Tam_CP, bay1, bay2 As Double Dim s, s1 As String Dim rpt As Object Dim fPreview As New frmPreview Dim ctl As Object Dim dau, chu, stchu As String Set rpt = New AacReport1 With rpt.Sections("reportheader").Controls Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldH0" ctl.Left = ctl.Top = ctl.Width = 10600 ctl.Alignment = ddTXCenter ctl.Font.Name = ".VnArialH" ctl.Font.Size = 14 ctl.Visible = True ctl.Text = "Kết tính toán" Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldH2" ctl.Left = ctl.Top = 500 ctl.Width = 9000 ctl.Alignment = ddTXCenter ctl.Font.Name = ".VnArial" ctl.Font.Size = 13 ctl.Visible = True ctl.Text = " " Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldH3" ctl.Left = 200 ctl.Top = 1000 ctl.Width = 9000 ctl.Alignment = ddTXRight ctl.Font.Name = ".VnArial" ctl.Font.Size = 10 ctl.Visible = True ctl.Text = "Ngày " & Format(Date, "dd/mm/yyyy") dau_soLieu = 1500 For i = To Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldHson" & i ctl.Left = 100 ctl.Top = dau_soLieu + (i - 1) * 500 ctl.Width = 9800 ctl.Alignment = ddTXLeft ctl.Font.Name = ".VnArial" ctl.Font.Size = 10 ctl.Visible = True If i = Then ctl.Font.Name = ".VnArialH" ctl.Text = " thông số tính toán : " End If If i = Then ctl.Text = " Ga ma chất lỏng = " & GaMa & " kG/cm^3 ; Ga ma vỏ = " & GaMaB & " kG/cm^3 ; ứng suất :" & XicMa & "kG/cm^2 " If i = Then ctl.Text = " Độ dầy vỏ đỉnh: " & H(0) & " cm ; Độ dầy lơn : " & Round(MaxH, 1) & " cm ; Thể tích bồn : " & Round(V / 100 ^ 3, 1) & " m^3" If i = Then ctl.Text = " Bán kính lớn : " & Round(MaxX, 1) & " cm ; Chiều cao vòm : " & Round(MaxY, 1) & " cm " If i = Then ctl.Text = " " Next rpt.Image1.Picture = ChatPic1.Image Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldHsonBay" ctl.Left = 100 ctl.Top = dau_soLieu + 7500 ctl.Width = 10600 ctl.Alignment = ddTXCenter ctl.Font.Name = ".VnArial" ctl.Font.Size = ctl.Visible = True ctl.Font.Name = ".VnArialH" ctl.Text = " Hình ảnh Mặt cắt đứng thành vỏ & Độ dầy vỏ bồn " End With '***************** With rpt.Sections("pageheader").Controls Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldH0H" ctl.Left = ctl.Top = 100 'ctl.Width = rpt.PrintWidth ' - 20 ctl.Width = 10600 ctl.Alignment = ddTXLeft ctl.Font.Name = ".VnArial" ctl.Font.Size = 13 ctl.Visible = True ctl.Text = "Độ dầy h vỏ điểm có tọa độ (v,t) :" End With '++++++++++++++++++++++ With rpt.Sections("detail").Controls DauTren = 100 dau_soLieu = DauTren i = -1 For j = To n i=i+1 For k = To Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldHngang_sau" & k & j ctl.Left = + i * 900 + 100 ctl.Top = dau_soLieu + k * 300 ctl.Width = 800 ctl.Alignment = ddTXCenter ctl.Font.Name = ".VnArial" ctl.Font.Size = 10 ctl.Visible = True If i = Then If k = Then ctl.Text = " v (cm)" If k = Then ctl.Text = " t (cm)" If k = Then ctl.Text = " h (cm)" End If If i > Then ctl.Text = MSFG1.TextMatrix(k, j) Next If i = 10 Then i = -1 dau_soLieu = dau_soLieu + * 300 + 100 End If Next End With fPreview.RunReport rpt fPreview.arv.Toolbar.Font.Name = "VK Sans Serif" fPreview.Show End Sub ... cứu đề tài đưa toán : Tính toán hình dáng thay đổi độ dầy vỏ bồn đựng chất lỏng có sức chịu đều, tác dụng áp lực chất lỏng trọng lượng thân vỏ bồn ” 1.3 Mục tiêu đề tài Yêu cầu toán đặt theo... DỤC VÀ ĐÀO TẠO BỘ NÔNG NGHIỆP VÀ PTNT TRƯỜNG ĐẠI HỌC LÂM NGHIỆP PHẠM QUỐC HOÀN TÍNH TOÁN HÌNH DÁNG VÀ SỰ THAY ĐỔI ĐỘ DẦY CỦA VỎ BỒN ĐỰNG CHẤT LỎNG CÓ SỨC CHỊU ĐỀU, DƯỚI TÁC DỤNG CỦA... dáng thay đổi độ dầy vỏ bồn đựng chất lỏng có sức chịu đều, tác dụng áp lực chất lỏng trọng lượng thân vỏ bồn ” CHƯƠNG TỔNG QUAN NỘI DUNG NGHIÊN CỨU 1.1 Các nghiên cứu lý thuyết Nghiên cứu độ bền