Tính toán tối ưu cho phần đệm đầu cọc khi sử dụng búa điêzen đóng cọc bê tông cột thép

1 M U Trong bt c cỏc cụng trỡnh xõy dng no dự ln hoc nh thỡ vic gia c nn múng l khụng th thiu c gia c nn múng ngi ta thng s dng cỏc cc bờ tụng ct thộp vi hai hỡnh thc : cc nhi v cc bờ tụng ỳc sn Mi hỡnh thc gia c trờn u cú cỏc u, nhc im ca nú Hỡnh thc dựng cc nhi thng cỏc cụng trỡnh ln Hỡnh thc thi cụng cc bờ tụng ỳc sn thng dựng cho cỏc cụng trỡnh nh v va, nht l cỏc iu kin thi cụng bng cc nhi gp khú khn Mỏy v thit b thi cụng úng cc bờ tụng ỳc sn l cỏc mỏy ộp cc hoc bỳa mỏy úng cc Trong cỏc loi bỳa mỏy úng cc hin c dựng nhiu nht l cỏc bỳa mỏy iờzen Khi tỏc nghip vic úng cc bờ tụng ct thộp gia c nn múng nhng a hỡnh khỏc nhau, chng hn nh trờn bn sụng, cu cng hoc l yờu cu u trờn ca cc phi chỡm sõu di mt t thỡ ngi ta dựng thờm mt cc m (cũn gi l cc gi) bng thộp di v chu bn ca cỏc cc m tựy thuc theo a hỡnh v tựy theo cỏc loi bỳa khỏc Trong quỏ trỡnh thi cụng úng cc bờ tụng ct thộp, lc va chm gia bỳa mỏy v u cc c úng trờn nn t vi cỏc tớnh cht c lý khỏc s cú kh nng dn n hin tng u cc b phỏ v S d cú hin tng trờn l quỏ trỡnh va chm lc t bỳa n u cc, lc c truyn theo dng súng n hi t u cc n ỏy cc v phn x t ỏy cc lờn, nu cựng tn s thỡ s cú cng hng lc v xy hin tng ng sut tng t ngt dn n u cc b phỏ v Hin tng ny cú th xy phn thõn cc Nghiờn cu lý thuyt v bi toỏn toỏn úng cc bờ tụng ỳc sn vi ni dung la chn cỏc thụng s ca bỳa, ca phn cc m mt cỏc tt nht quỏ trỡnh thi cụng úng cc trỏnh c hin tng v u cc cng nh hin tng nt v cc hin l thi s Tớnh toỏn lc va chm gia bỳa v u cc cng nh tn s úng cc trờn c s di ca cc v ca phn m, cỏc tham s c trng cho vt liu, hỡnh hc ca cc v phm m s gii quyt c trờn nõng cao hiu qu s dng ca cc bờ tụng gia c nn múng cỏc cụng trỡnh dõn dng v giao thụng thy li hin ti Vit nam, ng thi xut phỏt t nhng c s khoa hc v thc tin , tụi thc hin ti: Tớnh toỏn ti u cho phn m u cc s dng bỳa iờzen úng cc bờ tụng ct thộp i vi bi toỏn c hc, iu kin biờn s nh hng rt ln n phng phỏp gii v nghim ca bi toỏn Do khuụn kh ca ti v gii hn ca thi gian, nờn ni dung ca lun ỏn ch yu xột cho trng hp bi toỏn úng cc bờ tụng cú cỏc iu kin biờn phự hp vi cỏc iu kin thc t thi cụng úng cc trờn a hỡnh bn sụng, cu cng hoc ao h, nhng ni m lc cn n nht ca mt bờn cc cú th b qua thi cụng úng cc CHNG : TNG QUAN NI DUNG NGHIấN CU 1.1 Cỏc nghiờn cu v lý thuyt Nghiờn cu liờn quan n ni dung v va chm ca bỳa mỏy v cỏc ng x c hc bờn cc bờ tụng ct thộp ó cú nhiu tỏc gi quan tõm di cỏc dng bi toỏn v va chm dc ca hai n hi, va chm ca vt rn vo n hi vi cỏc iu kin biờn khỏc [1] , [2] : cú lc chng cn n hi u di v mt bờn cú lc ma sỏt hoc khụng cú lc ma sỏt Trong cỏc nghiờn cu ny, cỏc tỏc gi ó thit lp bi toỏn v truyn súng n hi v núi chung u dn n phng trỡnh cú dng : 2 u(x,t) u(x,t) u(xi ,t) K.u(x,t) a t2 t x2 ú : u = u(x,t) hm chuyn dch ca tit din ngang dc theo K - h s chng cn n hi - h s cn nht a - tc truyn súng Phng phỏp gii ch yu c dựng l phộp bin i Laplace : u0 (x,p) u(x, t).e pt dt t ú dn n phng trỡnh Volter Nghim tỡm c theo phng phỏp lp gn ỳng liờn tip Nhn xột chung v cỏc bi toỏn ó gii quyt thy rng: Mụ hỡnh thit lp ch gn vi mụ hỡnh ca quỏ trỡnh úng cc bờ tụng ct thộp ỳc sn Khụng s dng c cỏc kt qu ca cỏc nghiờn cu ny cho vic la chn: cỏc thụng s cho cc m, cỏc thụng s cho bỳa mỏy khụng xy hin tng cng hng lc úng cc giai on cui ca cc ( gp tng t cú h s chng cn cao) 1.2 Cỏc ch dn k thut thi cụng úng cc Trong thc t, thc hin cỏc quỏ trỡnh úng cc bờ tụng, ngi ta chun b sn nhiu loi bỳa cú cỏc thụng s khỏc nhau, nhiu loi cc m cú di v cỏc thụng s khỏc Mt cỏc cụng tỏc chun b thc hin tỏc nghip úng cc bờ tụng l chn bỳa úng cc cho phự hp Bỳa úng cc c chn phi m bo cỏc yờu cu k thut : - Phi phự hp vi cc, khụng quỏ ln dn n v u cc, tc úng hp lý, t c chi thit k cho cc - Phi phự hp vi loi giỏ bỳa - Cú tớnh kh thi theo a hỡnh thi cụng Ti cỏc cụng trỡnh xõy dng hin ngi ta thc hin quy trỡnh chn bỳa úng cc theo cỏc bc v cỏc ch dn k thut nh sau: 1- Chn s b theo iu kin sau (theo tr s ng nng ca b phn xung kớch): Q = 0.025P ú Q nng lng mt nhỏt bỳa (nng lng ca b phn xung kớch , kJ ; kG.m ; J.m) P - sc chu ti ca cc theo t nn (kG ; T) Hoc cụng thc: Q = Qb.v2/2g ú Qb trng lng u bỳa v tc ri ca bỳa (m/s) 2- Kim tra s thớch dng ca bỳa vi trng lng cc (h s thớch dng): Kt.h = (QT + qc)/ Q ú QT trng lng ton b bỳa qc trng lng ton b cc Nu giỏ tr ca Kt.h nh hn nhiu so vi cỏc giỏ tr cho phộp tc l bỳa khụng nng so vi trng lng cc dn n tc úng chm, d v u cc hoc cc s khụng sc chu ti theo thit k Nu Kt.h ln hn nhiu giỏ tr so vi cỏc giỏ tr cho cho phộp tc l trng lng bỳa quỏ ln dn n cc xung quỏ nhanh, khú kim soỏt chi n nh so vi thit k, mt khỏc nu gp vt cn hoc tng t cng d b gy cc Theo kinh nghim, chn bỳa úng cc theo t l trng lng u bỳa Qb v trng lng cc nh sau: Vi cc cú L 12m: Qb/qc = 1.25 - 1.50 Vi cc cú L > 12m: Qb/qc = 0.75 - 1.0 1.3 Mc tiờu ca ti Gii quyt cỏc v lý thuyt ca bi toỏn úng cc bờ tụng cú cc m thộp lm c s cho vic chn bỳa - cc cng nh thit k cỏc thụng s ti u v kớch c ca cc m thộp , ti a mc tiờu nghiờn cu vi cỏc nh sau: Thit lp v gii bi toỏn úng cc bờ tụng ct thộp cú cc m thộp bng bỳa mỏy iờzen Tớnh toỏn cng ng sut cc m thộp v cc bờ tụng ph thuc vo cỏc thụng s ca cỏc cc : Mụ un n hi E , chiu di L , din tớch thit din F, lng riờng ca thộp v ca bờ tụng ct thộp T s ph thuc ú a c cỏc giỏ tr ti thiu cn thit ca cc m thộp v din tớch tit din, v chiu di cng ng sut cỏc cc di mc ng sut cho phộp quỏ trỡnh úng cc õy cng l mc tiờu lm ti u ca phn cc m thộp tc l cú tng lng cc m thộp ti thiu Vit phn mm giỳp cho vic tớnh toỏn c thun li v nhanh chúng 1.4 i tng - Phm vi nghiờn cu - Kh nng ng dng 1.4.1 i tng nghiờn cu Thit lp v gii bi toỏn v trng thỏi ng sut cỏc cc m thộp v cc bờ tụng ct thộp quỏ trỡnh thi cụng úng cc bng bỳa mỏy iờzen Trờn c s s liờn h gia cỏc thụng s ca cỏc bỳa mỏy vi cỏc thụng s ca cỏc cc v chng cn ca nn t cựng vi iu kin cng ng sut cỏc cc nh hn ng sut cho phộp, a c cỏc thụng s ti u (v din tớch tit din ) cho vic tht k cỏc cc m ( da trờn cỏc yờu cu c nh v di) Vit phn mm tớnh toỏn 1.4.2 Phm vi nghiờn cu Nghiờn cu bi toỏn úng cc bờ tụng ct thộp cú cc m thộp b qua cỏc lc ma sỏt dc theo cc bng cỏc loi bỳa mỏy iờzen Cỏc thụng s ti u v tit din ngang ca cc m thộp vi cỏc di c nh khỏc 1.4.3 Kh nng ng dng Cho kt qu tớnh toỏn nhanh cú phn mm ti cú kh nng ng dng cho cỏc loi bỳa mỏy khỏc Ni dung trỡnh by ca lun Ni dung ca lun gm phn m u, chng v ph lc : Chng : Tng quan ni dung nghiờn cu Chng : C s lý thuyt s dng lun Chng : Mụ hỡnh húa v thit lp bi toỏn úng cc bờ tụng bng bỳa mỏy - Phng phỏp gii Chng : Kt qu tớnh toỏn vi cỏc s liu c th Chng : Kt lun Phn ph lc l code ca chng trỡnh tớnh trờn Visual-Basic 1.6 Cỏc kt qu t c ca lun Kt qu nghiờn cu ca ti ó thc hin c : - Xõy dng mụ hỡnh tớnh toỏn v s lan truyn ca súng n hi bi toỏn úng cc bờ tụng ct thộp bng bỳa mỏy iờzen - Xỏc nh c chuyn v, bin dng, ng sut trờn c s lý thuyt va chm v lý thuyt n hi cựng vi lc chng cn khỏc ca nn t - Xỏc nh c cng ng sut cc i cỏc cc, t ú kim tra s lm vic gii hn cho phộp hay khụng - Vit phn mm tớnh toỏn giỳp cho vic la chn cỏc thụng s ca phn cc m v loi bỳa cú s phự hp vi cỏc thụng s ca cc bờ tụng v ca nn t quỏ trỡnh thi cụng úng cc - S phự hp ca cỏc thụng s trờn s l cỏc thụng s ti u ch to cỏc cc m thộp CHNG C S Lí THUYT S DNG TRONG LUN VN 2.1 BI TON NG CA Lí THUYT N HI 2.1.1 Cỏc h thc c bn Bi toỏn ca lý thuyt n hi vi ti trng thay i theo thi gian s cho xut hin cỏc ng sut ng Gi thit mi bin dng ca vt th l nh, nờn chuyn ng l nh v ngi ta gi l dao ng n hi hoc súng n hi Cỏc thnh phn chuyn v, bin dng, ng sut vt th phi tha cỏc phng trỡnh v cỏc iu kiờn biờn sau : + Phng trỡnh chuyn ng ij 2u j K j xi t (2 1a) nu khụng k lc : ij xi 2u j t (2.1b) + nh lut Huc ( phng trỡnh trng thỏi) ij ij 2eij + H thc Cụ-si (2 2) 10 u j u eij i x j xi + iu kin u (2 3) ti t = cú : * ui(x1 , x2 , x3 , 0) = ui0 x1 ,x2 ,x3 ,0 * ui t (2.4) vi0 (x1 ,x ,x3 ) t0 + Cỏc iu kin biờn * Trờn biờn Su cho chuyn v : u u b * Trờn biờn S lc mt F = Tn hay l ij n j Fi (2.5) (2.6) Cỏc phng trỡnh (2.1a) (hoc (2.1b) ), (2.2) , (2.3) cựng vi cỏc iu kin u (2.4) v cỏc iu kin biờn (2.5), (2.6) lp thnh mt h kớn xỏc nh thnh phn chuyn v, thnh phn bin dng v thnh phn ng sut Vic chng minh s tn ti v nht nghim ca bi toỏn trờn ó c chng minh 2.1.2 Nguyờn lý Saint - Venant v nguyờn lý chng cht nghim i vt th cú mt cỏc kớch thc c trung nh hn nhiu ln ( ln hn 20 ln) so vi cỏc kớch thc ( bn, v) hoc hai kớch thc nh hn nhiu ln kớch thc th ( thanh, dm) thỡ ngi ta thng dựng nguyờn lý Saint - Venant gii bi toỏn Nguyờn lý Saint -venant : Nu ti no y ( bờn hoc trờn biờn vt th ) khụng ln lm so vi kớch thc chớnh ca vt th, m chu tỏc dng ca lc ngoi ( lc hoc lc mt) v vt th trng thỏi cõn bng, thỡ 60 Max_so_no = Mang_bua(5, Loai_bua) - Mang_bua(4, Loai_bua) + ReDim MaxUs1(1 To Max_so_no) As Double ReDim MaxUs2(1 To Max_so_no) As Double T0 = Mang_bua(4, Loai_bua) - For so_no = To Max_so_no T0 = T0 + Tb = 60 / (2 * T0) He_so_duong_no = (Mang_bua(2, Loai_bua) - Mang_bua(3, Loai_bua)) / (Mang_bua(4, Loai_bua) - Mang_bua(5, Loai_bua)) s = (He_so_duong_no * (T0 - Mang_bua(4, Loai_bua)) + Mang_bua(2, Loai_bua)) * 10 ^ ' Nang luong moi lan no s = s / ' Nang luong duoc chia deu cho pit tong v xi lanh t_roi = (2 * s / (Mang_bua(1, Loai_bua) * 9.81)) ^ 0.5 ' Thoi gian roi bay len = thoi gian roi cua pit tong s = (2 * s * Mang_bua(1, Loai_bua) / 9.81) ^ (0.5) s=s*2 ' Xung luong moi lan tac dong vao dau coc Do xung luong N = M.v : cỳ dap cua piton v cỳ nụ he_so_duong_chong_can_K2 = (K2_max - K2_min) / (Mang_bua(4, Loai_bua) Mang_bua(5, Loai_bua)) K2 = he_so_duong_chong_can_K2 * (T0 - Mang_bua(4, Loai_bua)) + K2_max Tv = 0.03 Text3.Text = Tv ' thoi gian va cham 61 N01 = s / Tv ' Xung luong trung binh thoi gian va cham cua Pit tong vao coc N0 = N01 T1 = L01 / a1 T2 = L02 / a2 T = Abs(Tb) If T < Abs(T1) Then T = Abs(T1) End If If T < Abs(T2) Then T = Abs(T2) End If L1 = a1 * T L2 = a2 * T pi = 3.1416 tg = 16 * N0 * T / (Tv * pi ^ 2) j = Diem_ve * Tv / (2 * T) For k = To N B1(k) = (tg / k ^ 2) * Sin(k * pi * Tv / (2 * T)) * (1 - Cos(k * pi * Tv / (2 * T))) Next For i = To Diem_ve tgT = * i / Diem_ve tgf = For k = To N tgf = tgf + B1(k) * Sin(k * pi * tgT) 62 Next f(i) = tgf Next tgf = Abs(f(1)) For i = To Diem_ve If tgf < Abs(f(i)) Then tgf = Abs(f(i)) End If Next 'Text6.Text = Int(tgf * E1) '+++++++++++++ Tinh cỏc A(k) , B(k) , D(k) tgC = (E1 / E2) * (f1 / F2) * (L2 / L1) tgD = E2 * F2 / (K2 * L2) For k = To N b(k) = -L1 * B1(k) / (k * pi * E1 * f1) tgk1 = k * pi * T1 / T tgk2 = k * pi * T2 / T a11 = tgC * Sin(tgk1) a12 = Cos(tgk2) - k * pi * tgD * Sin(tgk2) p1 = tgC * Cos(tgk1) * b(k) a21 = -Cos(tgk1) a22 = Sin(tgk2) + tgD * k * pi * Cos(tgk2) 63 p2 = Sin(tgk1) * b(k) Del = a11 * a22 - a12 * a21 Del1 = p1 * a22 - p2 * a12 Del2 = a11 * p2 - a21 * p1 A(k) = Del1 / Del D(k) = Del2 / Del C(k) = k * pi * tgD * D(k) Next '+++++++++++ Tinh ung suat theo t va x For T01 = To Diem_time For i = To Diem_ve tgus1 = tgus2 = For k = To N tgus1 = tgus1 + (k * pi) * Sin(k * pi * T01 / Diem_time) * (-A(k) * Sin(k * pi * i * T1 / (Diem_ve * T)) + b(k) * Cos(k * pi * i * T1 / (Diem_ve * T))) tgus2 = tgus2 + (k * pi) * Sin(k * pi * T01 / Diem_time) * (-C(k) * Sin(k * pi * i * T2 / (Diem_ve * T)) + D(k) * Cos(k * pi * i * T2 / (Diem_ve * T))) Next Us1T(T01, i) = tgus1 * E1 / L1 Us2T(T01, i) = tgus2 * E2 / L2 Next Next tgus1 = Abs(Us1T(1, 0)) tgus2 = Abs(Us2T(1, 0)) For T01 = To Diem_time For i = To Diem_ve If tgus1 < Abs(Us1T(T01, i)) Then tgus1 = Abs(Us1T(T01, i)) 64 If tgus2 < Abs(Us2T(T01, i)) Then tgus2 = Abs(Us2T(T01, i)) Next Next '+++++++++++++++++++++++++++++ MaxUs1(so_no) = Int(tgus1) MaxUs2(so_no) = Int(tgus2) Next st = "" st = Str(Max_so_no) For so_no = To Max_so_no If Len(st) > Then st = st & ";" st = st & Str(MaxUs1(so_no)) Next Print #ftep, st st = "" For so_no = To Max_so_no If Len(st) > Then st = st & ";" st = st & Str(MaxUs2(so_no)) Next Print #ftep, st Next ' het loai bua Close #ftep End If ' Ghi vao tep Text11.Text = " " 65 End If End Sub Private Sub Ve0() Dim i As Integer Dim tgf, tg1, tg2 As Double tg2 = MaxUs2(1) For i = To Max_so_no If tg2 < MaxUs2(i) Then tg2 = MaxUs2(i) Next tg1 = MaxUs1(1) For i = To Max_so_no If tg1 < MaxUs1(i) Then tg1 = MaxUs1(i) Next tgf = tg1 If tgf < tg2 Then tgf = tg2 '****************/////////////// Ve thi Form2.Show With Form2.Picture_doThi_2_1 Form2.Picture_doThi_2_1.Cls rong = Form2.Picture_doThi_2_1.ScaleWidth - 100 cao = (Form2.Picture_doThi_2_1.ScaleHeight - 100) / x0 = 800 trucX = rong - x0 - 300 hesoX = (trucX - 1000) / Max_so_no 66 y0 = 1.8 * cao hesoY = If tgf Then hesoY = 1.5 * cao / tgf Form2.Picture_doThi_2_1.Line (x0, y0)-(x0, 100), vbBlack Form2.Picture_doThi_2_1.Line (x0, y0)-(x0 + trucX, y0), vbBlack Form2.Picture_doThi_2_1.CurrentX = x0 - 40 Form2.Picture_doThi_2_1.CurrentY = 20 Form2.Picture_doThi_2_1.Print "^" Form2.Picture_doThi_2_1.CurrentX = x0 + 200 Form2.Picture_doThi_2_1.CurrentY = 150 Form2.Picture_doThi_2_1.Print "ứng suất cực đại" ReDim x(0 To Max_so_no) As Double For i = To Max_so_no x(i) = x0 + i * hesoX Next 'Picture_dothi_1.Line (x0, y0)-(x(1), y0 - hesoY * MaxUs2(1)), vbRed For i = To Max_so_no Form2.Picture_doThi_2_1.Line (x(i - 1), y0 - hesoY * MaxUs2(i - 1))-(x(i), y0 - hesoY * MaxUs2(i)), vbRed Next For i = To Max_so_no Form2.Picture_doThi_2_1.CurrentY = y0 - hesoY * MaxUs2(i) - 100 Form2.Picture_doThi_2_1.CurrentX = x(i) Form2.Picture_doThi_2_1.Print "*" 67 Next For i = To Max_so_no Form2.Picture_doThi_2_1.Line (x(i - 1), y0 - hesoY * MaxUs1(i - 1))-(x(i), y0 - hesoY * MaxUs1(i)), vbBlue Next For i = To Max_so_no Form2.Picture_doThi_2_1.CurrentY = y0 - hesoY * MaxUs1(i) - 100 Form2.Picture_doThi_2_1.CurrentX = x(i) Form2.Picture_doThi_2_1.Print "*" Next Form2.Picture_doThi_2_1.CurrentY = y0 - 100 Form2.Picture_doThi_2_1.CurrentX = x0 + trucX Form2.Picture_doThi_2_1.Print ">" Form2.Picture_doThi_2_1.CurrentX = x0 + trucX - 1000 Form2.Picture_doThi_2_1.CurrentY = y0 + 100 Form2.Picture_doThi_2_1.Print "Tần số nô" End With End Sub Private Sub Ve1() '****************/////////////// Ve thi With Picture_dothi_1 ' BackColor = RGB(0, 0, 0) Cls 68 rong = ScaleWidth - 100 cao = (.ScaleHeight - 100) / x0 = 800 trucX = rong - x0 - 300 hesoX = (trucX - 3000) / Diem_ve hesoY = If tgf Then hesoY = cao / tgf y0 = 1.5 * cao Picture_dothi_1.Line (x0, y0)-(x0, 100), vbBlack Picture_dothi_1.Line (x0, y0)-(x0 + trucX, y0), vbBlack Picture_dothi_1.CurrentX = x0 - 40 Picture_dothi_1.CurrentY = 20 Picture_dothi_1.Print "^" Picture_dothi_1.CurrentX = x0 - 300 Picture_dothi_1.CurrentY = 150 Picture_dothi_1.Print "S" ReDim x(0 To Diem_ve) As Double For i = To Diem_ve x(i) = x0 + i * hesoX Next Picture_dothi_1.Line (x0, y0 - hesoY * * N0)-(x0 + rong / 2, y0 - hesoY * * N0), vbBlack Picture_dothi_1.Line (x0, y0)-(x(1), y0 - hesoY * f(1)), vbRed For i = To Diem_ve Picture_dothi_1.Line (x(i - 1), y0 - hesoY * f(i - 1))-(x(i), y0 - hesoY * f(i)), vbRed Next Picture_dothi_1.Line (x0 + j * hesoX, y0)-(x0 + j * hesoX, y0 - hesoY * N0), vbBlue For k = To do_thua 69 Picture_dothi_1.Line (x0, y0 - hesoY * N0 * k / do_thua)-(x0 + j * hesoX, y0 - hesoY * N0 * k / do_thua), vbBlue Next Diem_ve_1 = T1 * Diem_ve / (2 * T) Diem_ve_2 = T2 * Diem_ve / (2 * T) Picture_dothi_1.CurrentY = y0 - 100 Picture_dothi_1.CurrentX = x0 + trucX Picture_dothi_1.Print ">" Picture_dothi_1.CurrentX = x0 + trucX Picture_dothi_1.CurrentY = y0 + 100 Picture_dothi_1.Print "t" Picture_dothi_1.CurrentX = x(Diem_ve) Picture_dothi_1.CurrentY = y0 + 100 Picture_dothi_1.Print "2T" Picture_dothi_1.CurrentX = x(Diem_ve_1) Picture_dothi_1.CurrentY = y0 - 150 Picture_dothi_1.Print "|" Picture_dothi_1.CurrentX = x(Diem_ve_1) Picture_dothi_1.CurrentY = y0 + 300 Picture_dothi_1.Print "T1" Picture_dothi_1.CurrentX = x(Diem_ve_2) Picture_dothi_1.CurrentY = y0 - 150 Picture_dothi_1.Print "|" Picture_dothi_1.CurrentX = x(Diem_ve_2) Picture_dothi_1.CurrentY = y0 + 300 Picture_dothi_1.Print "T2" Picture_dothi_1.CurrentX = x(2 * Diem_ve_2) Picture_dothi_1.CurrentY = y0 - 150 Picture_dothi_1.Print "|" 70 Picture_dothi_1.CurrentX = x(2 * Diem_ve_2) Picture_dothi_1.CurrentY = y0 + 300 Picture_dothi_1.Print "2T2" Picture_dothi_1.CurrentX = x0 + (Diem_ve / 2) * hesoX Picture_dothi_1.CurrentY = y0 + 100 Picture_dothi_1.Print "T" Picture_dothi_1.CurrentX = x0 + (Diem_ve / 2) * hesoX Picture_dothi_1.CurrentY = y0 - 100 Picture_dothi_1.Print "*" Picture_dothi_1.CurrentX = x(100) Picture_dothi_1.CurrentY = y0 - 100 Picture_dothi_1.Print "|" Picture_dothi_1.CurrentX = x0 - 100 Picture_dothi_1.CurrentY = y0 + 100 Picture_dothi_1.Print "0" Picture_dothi_1.CurrentX = x0 - 300 Picture_dothi_1.CurrentY = y0 - hesoY * N0 - 100 Picture_dothi_1.Print "N*" End With End Sub Private Sub Ve2() Dim tg As Double 71 '****************/////////////// Ve thi With Picture_dothi_2 ' BackColor = RGB(0, 0, 0) Cls rong = ScaleWidth - 100 cao = (.ScaleHeight - 100) / x0 = 400 trucX = rong - x0 - 300 hesoX1 = trucX / (13 * Diem_ve) hesoX2 = trucX * 12 / (13 * Diem_ve) hesoy1 = If tgus1 Then hesoy1 = cao / tgus1 hesoy2 = If tgus2 Then hesoy2 = cao / tgus2 'hesoy2 = hesoy1 'Text26.Text = Round(tgus1) 'Text27.Text = Round(tgus2) If hesoy1 < hesoy2 Then tg = hesoy1 Else tg = hesoy2 End If ' tg = * tg hesoy1 = tg: hesoy2 = tg 72 y1 = * cao y2 = * cao X1 = x0 + hesoX1 * Diem_ve X20 = X1 + hesoX2 * Diem_ve Picture_dothi_2.Line (x0, y1)-(X1, y1), vbBlack Picture_dothi_2.Line (X1, y1)-(x0 + trucX, y1), vbBlue Picture_dothi_2.CurrentX = x0 - 40 Picture_dothi_2.CurrentY = 70 Picture_dothi_2.Print "^" For i = To Diem_ve x(i) = x0 + i * hesoX1 xx(i) = X1 + i * hesoX2 Next For i = To Diem_ve Picture_dothi_2.Line (x(i - 1), y1 - hesoy1 * Us1(i - 1))-(x(i), y1 - hesoy1 * Us1(i)), vbRed Next Picture_dothi_2.CurrentX = x(Diem_ve) Picture_dothi_2.CurrentY = 100 ForeColor = QBColor(4) Picture_dothi_2.Print Int(Us1(Diem_ve)) Picture_dothi_2.CurrentX = x(Diem_ve) Picture_dothi_2.CurrentY = 400 ForeColor = QBColor(4) 73 Picture_dothi_2.Print Int(Us1(Diem_ve) * f1) For i = To Diem_ve Picture_dothi_2.Line (xx(i - 1), y2 - hesoy2 * Us2(Diem_ve - i + 1))-(xx(i), y2 hesoy2 * Us2(Diem_ve - i)), vbBlack Picture_dothi_2.CurrentX = xx(0) + 2000 Picture_dothi_2.CurrentY = 100 ForeColor = QBColor(1) Picture_dothi_2.Print Int(Us2(Diem_ve)) Picture_dothi_2.CurrentX = xx(0) + 2000 Picture_dothi_2.CurrentY = 400 ForeColor = QBColor(1) Picture_dothi_2.Print Int(Us2(Diem_ve) * F2) Next Picture_dothi_2.CurrentX = xx(T01 * 2) Picture_dothi_2.CurrentY = y2 - hesoy2 * Us2(Diem_ve - T01 * 2) - 100 ForeColor = QBColor(4) Picture_dothi_2.Print "A" Picture_dothi_2.CurrentX = X1 Picture_dothi_2.CurrentY = y1 - 100 Picture_dothi_2.Print "|" Picture_dothi_2.CurrentX = X1 - 100 Picture_dothi_2.CurrentY = y1 + 100 Picture_dothi_2.Print "L1" Picture_dothi_2.CurrentX = x0 - 100 Picture_dothi_2.CurrentY = y1 + 100 Picture_dothi_2.Print "0" End With End Sub 74 Private Sub Picture1_Click() End Sub Private Sub Command3_Click() Form3.Show End Sub Private Sub PrintRep01() Dim bay As Boolean Dim M0, j As Integer Dim s As String Dim rpt As Object Dim fPreview As New frmPreview Dim ctl As Object 'Load FrmSoanBaoCao Set rpt = New ActiveReport1 With rpt.Sections("Detail").Controls 'Phan in bieu rpt.Image1.Picture = Picture_dothi_1.Image End With rpt.Printer = gPrinter fPreview.RunReport rpt fPreview.arv.ToolBar.Font.Name = "VK Sans Serif" fPreview.Show End Sub Private Sub Command4_Click() End Sub Private Sub Form_Load() Kiem_tinh = End Sub ... cầu thi công đóng cọc Đầu cọc đệm có đai chụp lên cọc bê tông, đai chụp không giữ chặt cọc bê tông mà giữ cho đầu cọc đệm tỳ lên đầu cọc bê tông trình đóng cọc Giai đoạn 1: khởi động búa Dùng móc... , thực đề tài: Tính toán tối ưu cho phần đệm đầu cọc sử dụng búa điêzen đóng cọc bê tông cốt thép Đối với toán học, điều kiện biên ảnh hưởng lớn đến phương pháp giải nghiệm toán Do khuôn khổ... đóng cọc bê tông có cọc đệm thép làm sở cho việc chọn búa - cọc thiết kế thông số tối ưu kích cỡ cọc đệm thép , đề tài đưa mục tiêu nghiên cứu với vấn đề sau:  Thiết lập giải toán đóng cọc bê tông