-
Notifications
You must be signed in to change notification settings - Fork 6
/
period.tcl
17 lines (15 loc) · 1.01 KB
/
period.tcl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#*************************************************************
puts "Calculating the period..."
#----------------------------------------------------------
# determine Natural Period, Frequency & damping parameters for SDOF
set lamiga [eigen 10]
for {set i 0} {$i<10} {incr i 1} {
set lamigaa [lindex $lamiga $i];
set omegaa [expr pow($lamigaa,0.5)];
set T($i) [expr 2*3.1415926/$omegaa]; #####################################################################
puts "[expr $i+1] th period is:$T($i)"; #####################################################################
}
#file mkdir "Period" ; #####################################################################
#set pd [open [concat Period/$WaveNumber.txt] "w"]; #####################################################################
# puts -nonewline $pd "$T(0) $T(1) $T(2) $T(3)"; #####################################################################
#close $pd; #####################################################################