|
|
|
The following commands are executed once the gravity loads have been defined and applied
# ---------DefinePushover.tcl--------------------------------------------------------------------------------------------------
set analysis "STATIC"; # this variable would be passed in
# the following settings do not need to be here if they have been defined in the gravity analysis
system UmfPack;
constraints Plain;
test NormDispIncr 1.0e-5 10 0;
algorithm Newton;
numberer RCM; analysis Static;
# ------------
set PUSHOVER "DispControl"; # run displacement-controlled static pushover analysis
pattern Plain 2 Linear {
load $IDctrlNode 100.0 0.0 0.0 0.0 0.0 0.0
}
if {$PUSHOVER == "LoadControl"} {
integrator LoadControl 0.2 4 0.1 2.0
set Nsteps 20
} elseif {$PUSHOVER == "DispControl"} {
integrator DisplacementControl $IDctrlNode 1 $DxPush 1 $DxPush $DxPush
set Nsteps [expr int($DmaxPush/$DxPush)]
} else {
puts stderr "Invalid PUSHOVER option"
}