!#!Info Example: Cable unstressed length !#!Info Keyword: cable; sag; unstressed length !#!Info Program: ASE $ $ $ cable_unstressed_length.dat !#!KAPITEL Material and System generation +PROG AQUA URS:1 HEAD NORM DIN 18800 STEE 1 TYPE S CLAS 355 ES 210000 STEE 2 TYPE PST CLAS 1770 ES 160000 SCIT 1 MNO 1 D 600 T 30 $ tube or cable CABL NO 2 MNO 2 D 30 END +PROG SOFIMSHA URS:2 HEAD cable_unstressed_length input LEN0 $ Cables geometric nonlinear analysis: With LEN0 now an unstressed length can be $ input for cables: $ LEN0 NO L0 TYPE $ ETYP:TRUS or CABL (default CABL) $ NO: elementnumber $ TYPE=TOTA: input of total cable installation length L0 (default) $ TYPE=DELT: input difference L0 to the system length in the undeformed system $ example: cable_unstressed_length.dat: $ LEN0 CABL 101001 -0.100 TYPE DELT $ install cable 100 mm shorter than system length $ LEN0 CABL 102001 67.000 TYPE TOTA $ install cable with length 67.000 m $ Funktion: If a cable is activated in a CS for the first time and a LEN0 input $ is found for it, the cable is installed stressfree with this length, independant $ of deformations in the primary loadcase PLC! $ Internally it gets an additional prestress that shortens it so that the $ desired length appears. $ Without LEN0 (normal behaviour) a cable is installed in that way that on the PLC deformations $ it has force 0 (without prestress and load on internal cable sagging). $ Jürgen Bellmann 23.06.2008 $ UNIT 5 ; SYST SPAC GDIV 1000 GDIR POSZ NODE (10 20 1) X (0 6) Y 0 Z 0 NODE 901 Z -25 NODE 902 Z -30 NODE 10,901,902 FIX f GRP 1 BEAM NO (10 15 1) NA (10 1) NE (11 1) NCS 1 GRP 101 CABL NO 1 NA 901 NE 16 NCS 2 GRP 2 BEAM NO (16 19 1) NA (16 1) NE (17 1) NCS 1 GRP 102 CABL NO 1 NA 902 NE 20 NCS 2 END +PROG SOFILOAD urs:3 HEAD UNIT 5 $ units: sections in mm, geometry+loads in m LC 2 TITL 'g2' BEAM GRP 1,2 TYPE PG PA 5 LC 3 TITL 'Single load' NODE NO 20 TYPE PZZ P1 30 LC 32 TITL 'little load for e-modulus analysis' BEAM GRP 1,2 TYPE PG PA 1 LC 42 TITL 'little load for e-modulus analysis' BEAM GRP 1,2 TYPE PG PA 1 LC 12 TITL 'shortening cable 1 mm' CABL 101001 TYPE WX PA -1[mm] $ 1 mm cable shortening - Stabverkürzung LC 22 TITL 'shortening cable 1 mm' CABL 102001 TYPE WX PA -1[mm] $ 1 mm cable shortening - Stabverkürzung LC 901 TYPE NONE TITL 'little lifting' NODE 16 PZZ -5 END !#!KAPITEL Analysis +PROG ASE urs:4 HEAD CTRL ITER 3 V2 1 ; ECHO FORC FULL SYST PROB TH3 GRP - GRP 101,102 OFF LC 701 TITL 'little lifting' LCC 901 END $ PROG ASE HEAD CTRL ITER 3 V2 1 ; ECHO FORC FULL SYST PROB TH3 PLC 701 GRP - LC 702 FACD 1 TITL 'PLC_701 + FACD' END $ PROG ASE HEAD CTRL ITER 3 V2 1 ; ECHO FORC FULL SYST PROB TH3 PLC 701 GRP - LEN0 CABL 101001 -0.100 TYPE DELT LEN0 CABL 102001 67.000 TYPE TOTA LC 703 FACD 1 TITL 'PLC_701 + LEN0 + FACD' END $ PROG ASE HEAD Test LC 709 without PLC should produce same result as 703 CTRL ITER 3 V2 1 ; ECHO FORC FULL SYST PROB TH3 GRP - LEN0 CABL 101001 -0.100 TYPE DELT LEN0 CABL 102001 67.000 TYPE TOTA LC 709 FACD 1 TITL 'LEN0 without PLC' $ should produce same result as 703 END $ printed unstressed_length: $ System-length: length in 701: LC 702: LC 703: = LC 709: $ Nr [m] $ 101001 43.829 43.657 43.657 43.729 (=43.829-0.100) $ 102001 67.082 66.811 66.811 67.000 +PROG CSM urs:8 HEAD Construction sequence CTRL PROB TH3 CTRL CANT 2 CTRL ASE TEXT 'CTRL iter 3 v2 1 ; echo forc full' ! better geometric nonlinear iteration CTRL ASE TEXT 'LEN0 CABL 101001 -0.100 TYPE DELT' ! Eingabe Konfektionierungslänge CTRL ASE TEXT 'LEN0 CABL 102001 67.000 TYPE TOTA' $ CS 9 TYPE B TITL 'beam without deadload' $ for formwork precamber study ! $ without formwork load, without fresh concrete load !!!! CS 10 TYPE G_1 TITL '+cable +dead load' CS 19 TYPE B TITL 'beam without deadload' CS 20 TYPE G_1 TITL '+cable +dead load' CS 30 TYPE G_2 TITL 'g2' CS 32 TYPE SL TITL 'little load for e-modulus analysis' CS 40 TYPE B TITL 'Single Load' CS 42 TYPE SL TITL 'little load for e-modulus analysis' $ GRP NO ICS1 ICSD 1 9 10 2 19 20 101 10 10 102 20 20 $ $ LF 12 TYP G_1 IBA1 12 --> KONF-Eingabe !!! $ LF 22 TYP G_1 IBA1 22 --> LEN0-input !!! LC 2 TYPE G_2 ICS1 30 LC 3 TYPE B ICS1 40 LC 32 TYPE SL ICS1 32 ATIL 32 LC 42 TYPE SL ICS1 42 ATIL 42 SCAL 0 0 0 0 0 0 0 0 0 END +apply "$(NAME)_csm.dat" $ siehe auch WINGRAF - entspannte Länge und innerer Seildurchhang $ see also WINGRAF - unstressed length and inner cable deflection +prog template urs:5 head Analysis of effective cable E-moduls $ let#0 2 $ full test of CADIMP let#lc1 4030 $ two loadcases to extract e= delta-N / delta-vx let#lc2 4032 #define cableemod txe Analysis of effective cable E-moduls txe E-modulus= delta-N / delta-vx of the load cases #lc1 and #lc2 txe ------------------------------------------------------------------------------------------------- txe Cableno. N-LC1 N-LC2 vx-LC1 vx-LC2 vq-LC1 vq-LC2 E-modulus txe [kN] [kN] [mm] [mm] [mm] [mm] [kN/m] let#CDB_IER 0 @key CABL_RES #lc1 if #CDB_IER<2 $ if elements available: loop let#nr @(NR) $ read element number if #cdb_ier<2 $ if next element successful read: if #nr>0 $ header has #nr=0 let#N1 @(N) $ normal force let#vx1 @(#nr,V) $ axial displacement let#vq1 @(#nr,VQ) $ sagging $ now read results of lc2 for this cable #nr : let#CDB_IER_lc1 #CDB_IER @key CABL_RES #lc2 let#N2 @(#nr,N) $ normal force let#vx2 @(#nr,V) $ axial displacement let#vq2 @(#nr,VQ) $ sagging let#CDB_IER #CDB_IER_lc1 @key CABL_RES #lc1 $ switch back to lc1 let#N0 @(#nr,N) $ reread to set pointer to this cable LET#E (#N2-#N1)/(#vx2-#vx1) LET#vx1 #vx1*1000 ! print in mm LET#vx2 #vx2*1000 ! print in mm LET#vq1 #vq1*1000 ! print in mm LET#vq2 #vq2*1000 ! print in mm txe #(#nr,8.0) #(#N1,9.1) #(#N2,9.1) #(#vx1,9.1) #(#vx2,9.1) #(#vq1,9.1) #(#vq2,9.1) #(#E,9.1) endif endif endloop #cdb_ier<2 $ end - if all elements read -> end this loop endif txe ------------------------------------------------------------------------------------------------- txe vx= axial displacement vq= sagging transverse to the cable txe In LC1 and LC2 the same cable dead load must act and no further cable loads are allowed! #enddef #include cableemod end +prog template urs:6 head LC 4040-4042 : let#lc1 4040 $ two loadcases to extract e= delta-N / delta-vx let#lc2 4042 #include cableemod end $ Clean file folder: +sys del $(project).$d?