|
|
|
# ---------DefineDynamic.tcl----------------------------------------------------------------
wipeAnalysis
system UmfPack
constraints Plain
test NormDispIncr 1.0e-8 20 0;
algorithm Newton
numberer RCM
integrator Newmark $gamma $beta $alphaM $betaK $betaKcomm $betaKinit;
analysis Transient
set Nsteps [expr int($TmaxGround/$DtAnalysis)];
# read a PEER strong motion database file, extracts dt from the header and converts the file
# to the format OpenSees expects for uniform ground motions
source ReadSMDFile.tcl;
set dir "GMfiles/"
set outFile $dir$GroundFile.g3; # set variable holding new filename
set inFile $dir$GroundFile.th
ReadSMDFile $inFile $outFile dt; # convert the ground-motion file
set GMfatt [expr $g*$GMfact]; # data in input file is factor of g
set Gaccel "Series -dt $dt -filePath $outFile -factor $GMfatt"; # time series information
pattern UniformExcitation 2 1 -accel $Gaccel; # create uniform excitation