Recorder for Period of building?
Moderators: silvia, selimgunay, Moderators
Recorder for Period of building?
Dear all,
I am modeling a 20-story frame and using the following procedure (as described in the manual) to obtain the building natural period:
# ------------PeriodFreq&Damping.tcl-----------------------------------------------------------------
# determine Natural Period, Frequency & damping parameters for SDOF
set $xDamp 0.02; # damping ratio (0.02-0.05-typical)
set lambda [eigen 1]
set omega [expr pow($lambda,0.5)]
set Tperiod [expr 2*$PI/$omega]; # period (sec.)
puts $Tperiod
Is there any way to get the value of the natural period in a separate data output file? I want to monitor its change during a dynamic analysis (I have geometric and material nonlinearities), which would be much easier if the data is in a separate file. Is there a recorder that would do this?
Thank you very much!
I am modeling a 20-story frame and using the following procedure (as described in the manual) to obtain the building natural period:
# ------------PeriodFreq&Damping.tcl-----------------------------------------------------------------
# determine Natural Period, Frequency & damping parameters for SDOF
set $xDamp 0.02; # damping ratio (0.02-0.05-typical)
set lambda [eigen 1]
set omega [expr pow($lambda,0.5)]
set Tperiod [expr 2*$PI/$omega]; # period (sec.)
puts $Tperiod
Is there any way to get the value of the natural period in a separate data output file? I want to monitor its change during a dynamic analysis (I have geometric and material nonlinearities), which would be much easier if the data is in a separate file. Is there a recorder that would do this?
Thank you very much!
this is Tcl stuff, here is an example of something i am working on:
set outFilename ${ProcessedDataDir}/iBaseShearData.out
set outFileID [open $outFilename w]
puts $outFileID $TimeShear
close $outFileID
set outFilename ${ProcessedDataDir}/iBaseShearData.out
set outFileID [open $outFilename w]
puts $outFileID $TimeShear
close $outFileID
Silvia Mazzoni, PhD
Structural Consultant
Degenkolb Engineers
235 Montgomery Street, Suite 500
San Francisco, CA. 94104
Structural Consultant
Degenkolb Engineers
235 Montgomery Street, Suite 500
San Francisco, CA. 94104
Dr. Silvia, it did work. Thank you!
However, when I try the following (get the period at each time increment), my output file is enourmous (34 GB)
set TmaxAnalysis [expr 1.];
set lambda [eigen 1]; # eigenvalue mode 1
set omega [expr pow($lambda,0.5)];
set PI 3.14159265; # Define Pi
set Tperiod [expr 2*$PI/$omega]; # period (sec.)
puts $Tperiod
set outFilename Data/Period.out
set outFileID [open $outFilename w]
set controlTime [getTime];
while {$controlTime < $TmaxAnalysis} {
puts $outFileID $Tperiod
}
close $outFileID
Am I doing this wrong? I only apply distributed gravity load (in 10 steps) and lateral load (in 10 steps). The output file shouldn't be this big. Also, I cannot view the output information because NotePad does not support files that are this big.
Thank you very much!
However, when I try the following (get the period at each time increment), my output file is enourmous (34 GB)
set TmaxAnalysis [expr 1.];
set lambda [eigen 1]; # eigenvalue mode 1
set omega [expr pow($lambda,0.5)];
set PI 3.14159265; # Define Pi
set Tperiod [expr 2*$PI/$omega]; # period (sec.)
puts $Tperiod
set outFilename Data/Period.out
set outFileID [open $outFilename w]
set controlTime [getTime];
while {$controlTime < $TmaxAnalysis} {
puts $outFileID $Tperiod
}
close $outFileID
Am I doing this wrong? I only apply distributed gravity load (in 10 steps) and lateral load (in 10 steps). The output file shouldn't be this big. Also, I cannot view the output information because NotePad does not support files that are this big.
Thank you very much!