$Equivalent cantilever model for the building with lumped floor mass

$ Define Material and Cross section

+prog aqua urs:1
head Material and Cross Sections
norm EN 199X-200X

$ Timber Columns Material

timb no 06 type gl clas 30C ep 13600[N/mm2]   g 650[N/mm2] gam 4.3[KN/m3] fm 30.0[MPa] ft0 19.50[MPa] ft90 0.50[MPa] fc0 24.50[MPa] fc90 2.50[MPa] fv 2.50[MPa] fvr 3.50[MPa] fvb 2.50[MPa] fm90 30.0[MPa] rho 430[kg/m3]

$ Cross sections of columns

sect no 01 mno 06 btyp colu titl 'Internal Column 02'
poly type rect dy 725[mm]  dz 810[mm]

END


$ Define Nodes and Beams elemnts and Supports

+prog SOFIMSHA urs:2

$head Timber High Rise Building

unit 06

syst type spac gdiv 100000  gdir posz  XREF 0 0 0 T11 1 0 0 T12 0 -1 0

$Node Points

LET#A 0,-5000,-9000,-13200,-17200, -21200,-25200,-29000,-32800,-36600,-40400,-44200,-48000,-51800,-55600,-59400,-63200,-68000

LOOP#1 A ! Floor Heights
NODE #1+1 X 0  Y 0  Z #A(#1)
Endloop

loop#i 17
 Beam no (#i+1) Na (1+#i) ne (2+#i) ncs 01
Endloop

node 1 fix   PPMM

$LUMPED MASS [T]


$LET#B 6.701818182,6.747,6.701818182,6.701818182,6.701818182,6.701818182,6.656727273,6.656727273,6.656727273,20.40413636,20.40413636,20.40413636,20.40413636,20.40413636,20.40413636,20.40413636,19.83

LET#B 147.44,148.434,147.44,147.44,147.44,147.44,146.448,146.448,146.448,448.891,448.891,448.891,448.891,448.891,448.891,448.891,436.26

LOOP#2 B
mass  #2+2 MX #B(#2)[t] MY #B(#2)[t]  MZ #B(#2)[t] sele pg
ENDLOOP


End

+PROG DYNA urs:3
head
EIGE neig 10
end