Kết cấu cần cẩu tháp được sử dụng nhiều trong xây dựng nhà cao tầng. Việc sử dụng cần cẩu tháp, có nhiều tiêu chuẩn đi kèm, xong thực tế cho thấy vẫn xảy ra tai nạn trong quá trình hoạt động, do vậy tính toán kết cấu dạng này vẫn được quan tâm. Xây dựng mô hình cần cẩu tháp trên các phần mềm tính toán thường khá phức tạp, do có rất nhiều các thanh nối lại nên nếu sử dụng menu để xây dựng mô hình cần cẩu tháp sẽ rất tốn công sức. Tác giả giới thiệu phương thức xây dựng mô hình cần cẩu tháp nhanh gọn nhờ sử dụng ngôn ngữ lập trình. Với sự khéo léo trong đặt các tùy biến, chương trình có khả năng linh hoạt trong nhiều thao tác, ví dụ:+ Khảo sát chiều cao cần cẩu tháp;+ Khảo sát chiều tay cẩu;+ Khảo sát kích thước cột tháp;+ Khảo sát vị trí (cao độ) gá cần cẩu tháp vào tòa nhà đang xây dựng để đảm bảo độ cứng vững cần thiết cùa cần cẩu; .....
Chương trình tính tốn kết cấu cần cẩu tháp chịu tác dụng loại tải trọng Phần 1: Xây dựng mơ hình cần cẩu tháp: H2 cable B2 B1 A B L3 L2 Q v P L1 t2 b H4 H1 b t2 B0 C t1 a H0 H3 a t1 Xét mơ hình cần cẩu tháp hình vẽ Kích thước mơ hình: H0 = 0.5 m, H1 = 25 m, H2 = 3.5 m, L1 = 24.0 m, L2 = 13.0 m, L3 = 7.0 m, B0 = 1.2 m, B1 = 1.0 m, B2 = 0.7 m, a = 0.15 m, t1 = 0.01 m, b = 0.08 m, t2 = 0.007 m Các nối chữ L làm từ thép có mơ đun đàn hồi E = 2.1.1011 N/m2, khối lượng riêng ρ = 7850 kg/m3, hệ số Poisson ν = 0.3 CHƯƠNG TRÌNH TÍNH, PHẦN: XÂY DỰNG MƠ HÌNH FINISH /CLEAR,NOSTART ! -CHUONG TRINH TINH TOAN CAN CAU THAP -/PREP7 /TITLE,TINH TOAN CAN CAU THAP CHIU TAI TRONG DONG !/TITLE, WRITED BY LE XUAN THUY KEYW,PR_SET,1 KEYW,PR_STRUC,1 /GO /VIEW,1, 1,3.8,0.8 /VUP,1,Z /REPLOT ! -THONG SO PHAN TU WW1=0.1 ![m] thep L: 150x150x10 WW2=0.08 ![m] thep L: 20x20x3 TT1=0.01 TT2=0.007 ET,1,BEAM188 SECTYPE,1,BEAM,L SECDATA,WW1,WW1,TT1,TT1 SECTYPE,2,BEAM,L SECDATA,WW2,WW2,TT2,TT2 ! THONG TIN DAY CAP ET,2,LINK8 !DAY CABLE PI=ATAN(1) DKINH=0.012*2 FLINK1TR=PI*DKINH**2/4 !M2 R,1,FLINK1TR ! VAT LIEU THEP -MP,EX,1,2.1E11 ![N/m2]DEFINE MATERIAL PROPERTIES MP,NUXY,1,0.3 MP,DENS,1,7.850E3 ![kg/m3] ! VAT LIEU THEP -MP,EX,2,2.5E11 ![N/m2]DEFINE MATERIAL PROPERTIES MP,NUXY,2,0.3 MP,DENS,2,7.800E3 ![kg/m3] ! -XAY DUNG MO HINH HINH HOC ! -THONG SO DIEU KHIEN MH -W0=1.2/2 ![m]-1/2 CANH M/C NGANG CHIEUCAO=25 ![m] H0=0.5 ![m]-CHIEU CAO MOI TANG SOTANG=CHIEUCAO/H0 ! -THONG TIN CAN TRUC XN0=0.7 !m, Chieu dai doan co so cua ngang CAO0=1.0 !m, Chiều cao dầm ngang CANTRUC1=24 !m, CHIEU DAI CAN TRUC CHINH CANTRUC2=13 !m, CHIEU DAI CAN DOI TRONG LN1=NINT(CANTRUC1/XN0) !lần, số đoạn XN0 cần LN2=NINT(CANTRUC2/XN0)-1 !lần, số đoạn XN0 cần đối trọng H3=10 !m – tọa độ vị trí gá cần cẩu vào nhà H4=20 !m- !* VT=5*1000/3600 ![km/h] – VAN TOC TAI TRONG m1=1000 !kg – Khoi luong tai di dong Pm1=10*m1 ! N DOITRONG=2000*10 !******************************************** *DO,NK,1,SOTANG+1,1 N,1+(NK-1)*8,W0,-W0,(NK-1)*H0 !T0 N,2+(NK-1)*8,W0,0,(NK-1)*H0 N,3+(NK-1)*8,W0,W0,(NK-1)*H0 N,4+(NK-1)*8,0,W0,(NK-1)*H0 N,5+(NK-1)*8,-W0,W0,(NK-1)*H0 N,6+(NK-1)*8,-W0,0,(NK-1)*H0 N,7+(NK-1)*8,-W0,-W0,(NK-1)*H0 N,8+(NK-1)*8,0,-W0,(NK-1)*H0 *ENDDO ! -KHOI TAO CAC THANH TRU CHINH *DO,NK,1,SOTANG,1 TYPE,1 SECNUM,1 MAT,1 *DO,NKK,1,7,2 E,NKK+(NK-1)*8,NKK+NK*8 *ENDDO *ENDDO ! -KHOI TAO CAC THANH GIANG TYPE,1 SECNUM,2 MAT,1 E,1,2 E,2,3 E,3,4 E,4,5 E,5,6 E,6,7 E,7,8 E,8,1 ND=1 *IF,NINT(SOTANG/2),EQ,SOTANG/2,THEN TYPE,1 SECNUM,2 MAT,1 *DO,NK,1,SOTANG/2,1 E,ND+(NK-1)*16,ND+10+(NK-1)*16 E,ND+(NK-1)*16,ND+14+(NK-1)*16 E,ND+4+(NK-1)*16,ND+10+(NK-1)*16 E,ND+4+(NK-1)*16,ND+14+(NK-1)*16 ! -E,ND+10+(NK-1)*16,ND+20+(NK-1)*16 E,ND+10+(NK-1)*16,ND+16+(NK-1)*16 E,ND+14+(NK-1)*16,ND+20+(NK-1)*16 E,ND+14+(NK-1)*16,ND+16+(NK-1)*16 *ENDDO *DO,NK,1,SOTANG,1 *DO,NKK,1,7,1 E,8+NKK+(NK-1)*8,9+NKK+(NK-1)*8 *ENDDO E,16+(NK-1)*8,9+(NK-1)*8 *ENDDO *ELSE TYPE,1 SECNUM,2 MAT,1 *DO,NK,1,NINT(SOTANG/2)-1,1 E,ND+(NK-1)*16,ND+10+(NK-1)*16 E,ND+(NK-1)*16,ND+14+(NK-1)*16 E,ND+4+(NK-1)*16,ND+10+(NK-1)*16 E,ND+4+(NK-1)*16,ND+14+(NK-1)*16 ! -E,ND+10+(NK-1)*16,ND+20+(NK-1)*16 E,ND+10+(NK-1)*16,ND+16+(NK-1)*16 E,ND+14+(NK-1)*16,ND+20+(NK-1)*16 E,ND+14+(NK-1)*16,ND+16+(NK-1)*16 *ENDDO E,(SOTANG-1)*8+1,(SOTANG-1)*8+11 E,(SOTANG-1)*8+5,(SOTANG-1)*8+11 E,(SOTANG-1)*8+1,(SOTANG-1)*8+15 E,(SOTANG-1)*8+5,(SOTANG-1)*8+15 *DO,NK,1,SOTANG,1 *DO,NKK,1,7,1 E,8+NKK+(NK-1)*8,9+NKK+(NK-1)*8 *ENDDO E,16+(NK-1)*8,9+(NK-1)*8 *ENDDO *ENDIF ! -Xay dung nam ngang !XN0=0.4 !m, Chieu dai doan co so cua ngang !CAO0=0.3 !m, Chiều cao dầm ngang !LN1=14 !lần, số đoạn XN0 cần !LN2=6 !lần, số đoạn XN0 cần đối trọng !*********************************Vẽ đoạn cần chính******************************* *DIM,TAI1,ARRAY,8*LN1,1,, , , !VI TRI TAI TRONG TRAI *DIM,TAI2,ARRAY,8*LN1,1,, , , !VI TRI TAI TRONG PHAI ! VE THANH DAM CHINH TYPE,1 SECNUM,1 MAT,1 *DO,NK,1,LN1,1 !*DO,NKK,1,8,1 !chia nhịp đoạn, rút ngắn nhóm CL N,(SOTANG+1)*8+(NK-1)*8+1,W0+(NK-1)*XN0+1*XN0/8,-W0,SOTANG*H0 N,(SOTANG+1)*8+(NK-1)*8+2,W0+(NK-1)*XN0+2*XN0/8,-W0,SOTANG*H0 N,(SOTANG+1)*8+(NK-1)*8+3,W0+(NK-1)*XN0+3*XN0/8,-W0,SOTANG*H0 N,(SOTANG+1)*8+(NK-1)*8+4,W0+(NK-1)*XN0+4*XN0/8,-W0,SOTANG*H0 N,(SOTANG+1)*8+(NK-1)*8+5,W0+(NK-1)*XN0+5*XN0/8,-W0,SOTANG*H0 N,(SOTANG+1)*8+(NK-1)*8+6,W0+(NK-1)*XN0+6*XN0/8,-W0,SOTANG*H0 N,(SOTANG+1)*8+(NK-1)*8+7,W0+(NK-1)*XN0+7*XN0/8,-W0,SOTANG*H0 N,(SOTANG+1)*8+(NK-1)*8+8,W0+(NK-1)*XN0+8*XN0/8,-W0,SOTANG*H0 *IF,NK,EQ,1,THEN E,SOTANG*8+1,(SOTANG+1)*8+(NK-1)*8+1 *ELSE E,(SOTANG+1)*8+(NK-1)*8+0,(SOTANG+1)*8+(NK-1)*8+1 *ENDIF E,(SOTANG+1)*8+(NK-1)*8+1,(SOTANG+1)*8+(NK-1)*8+2 E,(SOTANG+1)*8+(NK-1)*8+2,(SOTANG+1)*8+(NK-1)*8+3 E,(SOTANG+1)*8+(NK-1)*8+3,(SOTANG+1)*8+(NK-1)*8+4 E,(SOTANG+1)*8+(NK-1)*8+4,(SOTANG+1)*8+(NK-1)*8+5 E,(SOTANG+1)*8+(NK-1)*8+5,(SOTANG+1)*8+(NK-1)*8+6 E,(SOTANG+1)*8+(NK-1)*8+6,(SOTANG+1)*8+(NK-1)*8+7 E,(SOTANG+1)*8+(NK-1)*8+7,(SOTANG+1)*8+(NK-1)*8+8 !*ENDDO *ENDDO !-Vi tri tai DEM=1 *DO,NK,1,LN1,1 *DO,NKK,1,8,1 *SET,TAI1(DEM,1,1),(SOTANG+1)*8+(NK-1)*8+NKK DEM=DEM+1 *ENDDO *ENDDO ! -VE THANH DAM CHINH TYPE,1 SECNUM,1 MAT,1 *DO,NK,1,LN1,1 !*DO,NKK,1,8,1 N,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+1,W0+(NK-1)*XN0+1*XN0/8,W0,SOTANG*H0 N,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+2,W0+(NK-1)*XN0+2*XN0/8,W0,SOTANG*H0 N,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+3,W0+(NK-1)*XN0+3*XN0/8,W0,SOTANG*H0 N,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+4,W0+(NK-1)*XN0+4*XN0/8,W0,SOTANG*H0 N,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+5,W0+(NK-1)*XN0+5*XN0/8,W0,SOTANG*H0 N,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+6,W0+(NK-1)*XN0+6*XN0/8,W0,SOTANG*H0 N,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+7,W0+(NK-1)*XN0+7*XN0/8,W0,SOTANG*H0 N,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+8,W0+(NK-1)*XN0+8*XN0/8,W0,SOTANG*H0 *IF,NK,EQ,1,THEN E,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+1,SOTANG*8+3 *ELSE E,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+0,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+1 *ENDIF E,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+1,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+2 E,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+2,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+3 !Nố E,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+3,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+4 E,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+4,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+5 E,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+5,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+6 E,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+6,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+7 E,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+7,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+8 *ENDDO ! Noi ngang bang be TYPE,1 SECNUM,2 MAT,1 *DO,NK,1,LN1,1 E,(SOTANG+1)*8+(LN1*8)+(NK-1)*8+8,(SOTANG+1)*8+(NK-1)*8+8 *ENDDO !-Vi tri tai DEM=1 *DO,NK,1,LN1,1 *DO,NKK,1,8,1 *SET,TAI2(DEM,1,1),(SOTANG+1)*8+(LN1*8)+(NK-1)*8+NKK DEM=DEM+1 *ENDDO *ENDDO ! -VE THANH DAM CHINH TYPE,1 SECNUM,1 MAT,1 *DO,NK,1,LN1,1 N,(SOTANG+1)*8+2*(LN1*8)+NK,W0+(NK-1)*XN0+4*XN0/8,0,SOTANG*H0+CAO0 *IF,NK,GT,1,THEN E,(SOTANG+1)*8+2*(LN1*8)+NK-1,(SOTANG+1)*8+2*(LN1*8)+NK *ENDIF *ENDDO ! -Noi cac xien nho TYPE,1 SECNUM,2 MAT,1 *DO,NK,1,LN1,1 *IF,NK,EQ,1,THEN E,SOTANG*8+1,(SOTANG+1)*8+2*(LN1*8)+NK E,(SOTANG+1)*8+(NK-1)*8+8,(SOTANG+1)*8+2*(LN1*8)+NK E,SOTANG*8+3,(SOTANG+1)*8+2*(LN1*8)+NK E,(SOTANG+1)*8+1*(LN1*8)+(NK-1)*8+8,(SOTANG+1)*8+2*(LN1*8)+NK *ELSE E,(SOTANG+1)*8+(NK-1)*8+0,(SOTANG+1)*8+2*(LN1*8)+NK E,(SOTANG+1)*8+(NK-1)*8+8,(SOTANG+1)*8+2*(LN1*8)+NK E,(SOTANG+1)*8+1*(LN1*8)+(NK-1)*8+0,(SOTANG+1)*8+2*(LN1*8)+NK E,(SOTANG+1)*8+1*(LN1*8)+(NK-1)*8+8,(SOTANG+1)*8+2*(LN1*8)+NK *ENDIF *ENDDO DEMNUT=(SOTANG+1)*8+2*(LN1*8)+LN1 ! TỔNG SỐ NÚT HIỆN TẠI !************************************************************************* ****** !*********************************Vẽ đoạn cần phụ******************************* ! Thanh dầm phụ TYPE,1 SECNUM,1 MAT,1 *DO,NK,1,LN2,1 N,DEMNUT+(NK-1)*8+1,-W0-(NK-1)*XN0-1*XN0/8,-W0,SOTANG*H0 N,DEMNUT+(NK-1)*8+2,-W0-(NK-1)*XN0-2*XN0/8,-W0,SOTANG*H0 N,DEMNUT+(NK-1)*8+3,-W0-(NK-1)*XN0-3*XN0/8,-W0,SOTANG*H0 N,DEMNUT+(NK-1)*8+4,-W0-(NK-1)*XN0-4*XN0/8,-W0,SOTANG*H0 N,DEMNUT+(NK-1)*8+5,-W0-(NK-1)*XN0-5*XN0/8,-W0,SOTANG*H0 N,DEMNUT+(NK-1)*8+6,-W0-(NK-1)*XN0-6*XN0/8,-W0,SOTANG*H0 N,DEMNUT+(NK-1)*8+7,-W0-(NK-1)*XN0-7*XN0/8,-W0,SOTANG*H0 N,DEMNUT+(NK-1)*8+8,-W0-(NK-1)*XN0-8*XN0/8,-W0,SOTANG*H0 *IF,NK,EQ,1,THEN E,SOTANG*8+7,DEMNUT+(NK-1)*8+1 *ELSE E,DEMNUT+(NK-1)*8+0,DEMNUT+(NK-1)*8+1 *ENDIF E,DEMNUT+(NK-1)*8+1,DEMNUT+(NK-1)*8+2 E,DEMNUT+(NK-1)*8+2,DEMNUT+(NK-1)*8+3 E,DEMNUT+(NK-1)*8+3,DEMNUT+(NK-1)*8+4 E,DEMNUT+(NK-1)*8+4,DEMNUT+(NK-1)*8+5 E,DEMNUT+(NK-1)*8+5,DEMNUT+(NK-1)*8+6 E,DEMNUT+(NK-1)*8+6,DEMNUT+(NK-1)*8+7 E,DEMNUT+(NK-1)*8+7,DEMNUT+(NK-1)*8+8 *ENDDO ! -VE THANH DAM PHU TYPE,1 SECNUM,1 MAT,1 *DO,NK,1,LN2,1 N, DEMNUT+(LN2*8)+(NK-1)*8+1,-W0-(NK-1)*XN0-1*XN0/8,W0,SOTANG*H0 N, DEMNUT+(LN2*8)+(NK-1)*8+2,-W0-(NK-1)*XN0-2*XN0/8,W0,SOTANG*H0 N, DEMNUT+(LN2*8)+(NK-1)*8+3,-W0-(NK-1)*XN0-3*XN0/8,W0,SOTANG*H0 N, DEMNUT+(LN2*8)+(NK-1)*8+4,-W0-(NK-1)*XN0-4*XN0/8,W0,SOTANG*H0 N, DEMNUT+(LN2*8)+(NK-1)*8+5,-W0-(NK-1)*XN0-5*XN0/8,W0,SOTANG*H0 N, DEMNUT+(LN2*8)+(NK-1)*8+6,-W0-(NK-1)*XN0-6*XN0/8,W0,SOTANG*H0 N, DEMNUT+(LN2*8)+(NK-1)*8+7,-W0-(NK-1)*XN0-7*XN0/8,W0,SOTANG*H0 N, DEMNUT+(LN2*8)+(NK-1)*8+8,-W0-(NK-1)*XN0-8*XN0/8,W0,SOTANG*H0 *IF,NK,EQ,1,THEN E,DEMNUT+(LN2*8)+(NK-1)*8+1,SOTANG*8+5 *ELSE E,DEMNUT+(LN2*8)+(NK-1)*8+0,DEMNUT+(LN2*8)+(NK-1)*8+1 *ENDIF E,DEMNUT+(LN2*8)+(NK-1)*8+1,DEMNUT+(LN2*8)+(NK-1)*8+2 E,DEMNUT+(LN2*8)+(NK-1)*8+2,DEMNUT+(LN2*8)+(NK-1)*8+3 E,DEMNUT+(LN2*8)+(NK-1)*8+3,DEMNUT+(LN2*8)+(NK-1)*8+4 E,DEMNUT+(LN2*8)+(NK-1)*8+4,DEMNUT+(LN2*8)+(NK-1)*8+5 E,DEMNUT+(LN2*8)+(NK-1)*8+5,DEMNUT+(LN2*8)+(NK-1)*8+6 E,DEMNUT+(LN2*8)+(NK-1)*8+6,DEMNUT+(LN2*8)+(NK-1)*8+7 E,DEMNUT+(LN2*8)+(NK-1)*8+7,DEMNUT+(LN2*8)+(NK-1)*8+8 ! nối ngang !E,DEMNUT+(LN2*8)+(NK-1)*8+8,DEMNUT+(NK-1)*8+8 *ENDDO ! Noi ngang be TYPE,1 SECNUM,2 MAT,1 *DO,NK,1,LN2,1 ! nối ngang E,DEMNUT+(LN2*8)+(NK-1)*8+8,DEMNUT+(NK-1)*8+8 *ENDDO ! -VE THANH DAM PHU TYPE,1 SECNUM,1 MAT,1 *DO,NK,1,LN2,1 N,DEMNUT+2*(LN2*8)+NK,-W0-(NK-1)*XN0-4*XN0/8,0,SOTANG*H0+CAO0 *IF,NK,GT,1,THEN E,DEMNUT+2*(LN2*8)+NK, DEMNUT+2*(LN2*8)+NK-1 *ENDIF *ENDDO ! -Noi cheo TYPE,1 SECNUM,2 MAT,1 *DO,NK,1,LN2,1 *IF,NK,EQ,1,THEN E,SOTANG*8+7,DEMNUT+2*(LN2*8)+NK E,DEMNUT+(NK-1)*8+8,DEMNUT+2*(LN2*8)+NK E,SOTANG*8+5,DEMNUT+2*(LN2*8)+NK E,DEMNUT+1*(LN2*8)+(NK-1)*8+8,DEMNUT+2*(LN2*8)+NK *ELSE E,DEMNUT+(NK-1)*8+0,DEMNUT +2*(LN2*8)+NK E,DEMNUT+(NK-1)*8+8,DEMNUT +2*(LN2*8)+NK E,DEMNUT+1*(LN2*8)+(NK-1)*8+0,DEMNUT +2*(LN2*8)+NK E,DEMNUT +1*(LN2*8)+(NK-1)*8+8,DEMNUT +2*(LN2*8)+NK *ENDIF *ENDDO DEMNUT1=DEMNUT+2*(LN2*8)+LN2 ! TỔNG SỐ NÚT HIỆN TẠI !************************************************************************* ****** !*********************************Vẽ đỉnh giàn thép***************************** HSO1=0.9 HSO2=0.8 HSO3=0.7 HSO4=0.6 HSO5=0.5 HSO6=0.4 !*TANG1 N,DEMNUT1+1,HSO1*W0,-HSO1*W0,SOTANG*H0+H0 N,DEMNUT1+2,HSO1*W0,HSO1*W0,SOTANG*H0+H0 N,DEMNUT1+3,-HSO1*W0,HSO1*W0,SOTANG*H0+H0 N,DEMNUT1+4,-HSO1*W0,-HSO1*W0,SOTANG*H0+H0 TYPE,1 SECNUM,1 MAT,1 E,SOTANG*8+1,DEMNUT1+1 E,SOTANG*8+3,DEMNUT1+2 E,SOTANG*8+5,DEMNUT1+3 E,SOTANG*8+7,DEMNUT1+4 !* TYPE,1 SECNUM,2 MAT,1 E,DEMNUT1+1,DEMNUT1+2 E,DEMNUT1+2,DEMNUT1+3 E,DEMNUT1+3,DEMNUT1+4 E,DEMNUT1+1,DEMNUT1+4 E,SOTANG*8+3,DEMNUT1+1 !thanh chéo E,SOTANG*8+3,DEMNUT1+3 E,SOTANG*8+7,DEMNUT1+1 E,SOTANG*8+7,DEMNUT1+3 !**********************TANG2 N,DEMNUT1+5,HSO2*W0,-HSO2*W0,SOTANG*H0+2*H0 N,DEMNUT1+6,HSO2*W0,HSO2*W0,SOTANG*H0+2*H0 N,DEMNUT1+7,-HSO2*W0,HSO2*W0,SOTANG*H0+2*H0 N,DEMNUT1+8,-HSO2*W0,-HSO2*W0,SOTANG*H0+2*H0 TYPE,1 SECNUM,1 MAT,1 E,DEMNUT1+1,DEMNUT1+5 E,DEMNUT1+2,DEMNUT1+6 E,DEMNUT1+3,DEMNUT1+7 E,DEMNUT1+4,DEMNUT1+8 !* TYPE,1 SECNUM,2 MAT,1 E,DEMNUT1+5,DEMNUT1+6 E,DEMNUT1+6,DEMNUT1+7 E,DEMNUT1+7,DEMNUT1+8 E,DEMNUT1+8,DEMNUT1+5 !* E,DEMNUT1+1,DEMNUT1+6 E,DEMNUT1+1,DEMNUT1+8 E,DEMNUT1+3,DEMNUT1+8 E,DEMNUT1+3,DEMNUT1+6 !***********************TANG3 N,DEMNUT1+9,HSO3*W0,-HSO3*W0,SOTANG*H0+3*H0 N,DEMNUT1+10,HSO3*W0,HSO3*W0,SOTANG*H0+3*H0 N,DEMNUT1+11,-HSO3*W0,HSO3*W0,SOTANG*H0+3*H0 N,DEMNUT1+12,-HSO3*W0,-HSO3*W0,SOTANG*H0+3*H0 TYPE,1 SECNUM,1 MAT,1 E,DEMNUT1+5,DEMNUT1+9 E,DEMNUT1+6,DEMNUT1+10 E,DEMNUT1+7,DEMNUT1+11 E,DEMNUT1+8,DEMNUT1+12 !* TYPE,1 SECNUM,2 MAT,1 E,DEMNUT1+9,DEMNUT1+10 E,DEMNUT1+10,DEMNUT1+11 E,DEMNUT1+11,DEMNUT1+12 E,DEMNUT1+12,DEMNUT1+9 !* E,DEMNUT1+6,DEMNUT1+9 E,DEMNUT1+6,DEMNUT1+11 E,DEMNUT1+8,DEMNUT1+11 E,DEMNUT1+8,DEMNUT1+9 !***********************TANG4 N,DEMNUT1+13,HSO4*W0,-HSO4*W0,SOTANG*H0+4*H0 N,DEMNUT1+14,HSO4*W0,HSO4*W0,SOTANG*H0+4*H0 N,DEMNUT1+15,-HSO4*W0,HSO4*W0,SOTANG*H0+4*H0 N,DEMNUT1+16,-HSO4*W0,-HSO4*W0,SOTANG*H0+4*H0 TYPE,1 SECNUM,1 MAT,1 E,DEMNUT1+9,DEMNUT1+13 E,DEMNUT1+10,DEMNUT1+14 E,DEMNUT1+11,DEMNUT1+15 E,DEMNUT1+12,DEMNUT1+16 !* TYPE,1 SECNUM,2 MAT,1 E,DEMNUT1+13,DEMNUT1+14 E,DEMNUT1+14,DEMNUT1+15 E,DEMNUT1+15,DEMNUT1+16 E,DEMNUT1+16,DEMNUT1+13 !* E,DEMNUT1+9,DEMNUT1+14 E,DEMNUT1+9,DEMNUT1+16 E,DEMNUT1+11,DEMNUT1+14 E,DEMNUT1+11,DEMNUT1+16 !***********************TANG5 N,DEMNUT1+17,HSO5*W0,-HSO5*W0,SOTANG*H0+5*H0 N,DEMNUT1+18,HSO5*W0,HSO5*W0,SOTANG*H0+5*H0 N,DEMNUT1+19,-HSO5*W0,HSO5*W0,SOTANG*H0+5*H0 N,DEMNUT1+20,-HSO5*W0,-HSO5*W0,SOTANG*H0+5*H0 TYPE,1 SECNUM,1 MAT,1 E,DEMNUT1+13,DEMNUT1+17 E,DEMNUT1+14,DEMNUT1+18 E,DEMNUT1+15,DEMNUT1+19 E,DEMNUT1+16,DEMNUT1+20 !* TYPE,1 SECNUM,2 MAT,1 E,DEMNUT1+17,DEMNUT1+18 E,DEMNUT1+18,DEMNUT1+19 E,DEMNUT1+19,DEMNUT1+20 E,DEMNUT1+20,DEMNUT1+17 !* E,DEMNUT1+14,DEMNUT1+17 E,DEMNUT1+14,DEMNUT1+19 E,DEMNUT1+16,DEMNUT1+17 E,DEMNUT1+16,DEMNUT1+19 !***********************TANG6 N,DEMNUT1+21,HSO6*W0,-HSO6*W0,SOTANG*H0+6*H0 N,DEMNUT1+22,HSO6*W0,HSO6*W0,SOTANG*H0+6*H0 N,DEMNUT1+23,-HSO6*W0,HSO6*W0,SOTANG*H0+6*H0 N,DEMNUT1+24,-HSO6*W0,-HSO6*W0,SOTANG*H0+6*H0 TYPE,1 SECNUM,1 MAT,1 E,DEMNUT1+17,DEMNUT1+21 E,DEMNUT1+18,DEMNUT1+22 E,DEMNUT1+19,DEMNUT1+23 E,DEMNUT1+20,DEMNUT1+24 !* TYPE,1 SECNUM,2 MAT,1 E,DEMNUT1+21,DEMNUT1+22 E,DEMNUT1+22,DEMNUT1+23 E,DEMNUT1+23,DEMNUT1+24 E,DEMNUT1+24,DEMNUT1+21 !* E,DEMNUT1+17,DEMNUT1+20 E,DEMNUT1+17,DEMNUT1+22 E,DEMNUT1+19,DEMNUT1+20 E,DEMNUT1+19,DEMNUT1+22 !* N,DEMNUT1+25,0,0,SOTANG*H0+7*H0 !* TYPE,1 SECNUM,1 MAT,1 E,DEMNUT1+21,DEMNUT1+25 E,DEMNUT1+22,DEMNUT1+25 E,DEMNUT1+23,DEMNUT1+25 E,DEMNUT1+24,DEMNUT1+25 !************************************************************************* * !*********************************Vẽ dây cáp******************************* MAT,2 TYPE,2 REAL,1 E,DEMNUT1+25,DEMNUT+2*(LN2*8)+LN2-2 E,DEMNUT1+25,(SOTANG+1)*8+2*(LN1*8)+LN1-8 E,DEMNUT1+25,(SOTANG+1)*8+2*(LN1*8)+LN1-20 ! XAY DUNG XONG MO HIHH ! Lien ket -NSEL,S,LOC,Z,0 D,ALL,ALL,0 ! -giu !NSEL,S,LOC,Z,H3 !D,ALL,UX,0 !D,ALL,UY,0 ! -giu !NSEL,S,LOC,Z,H4 !D,ALL,UX,0 !D,ALL,UY,0 ALLSEL FINISH