|
|
|
# ---------DefineGravity.tcl--------------------------------------------------------------------------------------
set GravSteps 10
pattern Plain 1 Linear {
load 3 0. -$Pdl 0. 0. 0. -$Mdl ; # Fx Fy Fz Mx My Mz
load 4 0. -$Pdl 0. 0. 0. +$Mdl
}
system UmfPack; # solution procedure, how it solves system of equations
constraints Plain; # how it handles boundary conditions, enforce constraints
test NormDispIncr 1.0e-5 10 0;
algorithm Newton;
numberer RCM; # renumber dof's to minimize band-width
integrator LoadControl [expr 1./$GravSteps] 1 [expr 1./$GravSteps] [expr 1./$GravSteps]
analysis Static
initialize; # this command will not be necessary in new versions of OpenSees