TCL Command ABRESULT, Data of the Eigenmode

Syntax

array set mode [ABRESULT dataid EIGENMODE GET]

Description

Query the data of Eigenmode

Return array

Array item	Dimension	Meaning
error	INT	Error code
info	TEXT	Error information
schedule	TEXT	Schedule name
name	TEXT	Name of Eigenmode (formatted number with leading zeros)
omega	DOUBLE	Eigenvalue
gamma	DOUBLE	Generalized mass
xsi	DOUBLE	Damping
fx	FORCE	Sum of forces in X
fy	FORCE	Sum of forces in Y
fz	FORCE	Sum of forces in Z
mx	MOMENT	Sum of moments in X
my	MOMENT	Sum of moments in Y
mz	MOMENT	Sum of moments in Z
x	LSTRUCT	Resulting load application point
y	LSTRUCT	Resulting load application point
z	LSTRUCT	Resulting load application point

Scopes

All

Examples

puts $outfile ""

puts $outfile " Mode Omega (phi)M(phi) (phi)C(phi)"

puts $outfile " ---------------------------------------------------"

set format10 " %6d %14.5e %14.5e %14.5e"

for { set imode 1 } { $imode <= $nmode(count) } { incr imode } {

array unset modei

array set modei [ABRESULTS $sched1 EIGENMODE GET $imode ATDAY FINAL]

array unset mode

array set mode [ABRESULT $modei(id) EIGENMODE GET]

puts $outfile [format $format10 $imode $mode(omega) $mode(gamma) $mode(xsi)]

}

It is assumed that a text file outfile has been opened for writing . The results are written formatted into the text file.

The output is project-dependent and can look like the following, for example:

Mode Omega (phi)M(phi) (phi)C(phi)

---------------------------------------------------

1 4.68570e+00 1.60200e+03 0.00000e+00

2 5.12270e+00 3.28300e+03 0.00000e+00

3 5.64560e+00 5.55550e+03 0.00000e+00

4 1.05430e+01 1.51850e+03 0.00000e+00

5 1.69730e+01 1.30980e+03 0.00000e+00

6 2.83860e+01 1.80950e+03 0.00000e+00

7 2.88940e+01 1.67150e+03 0.00000e+00

......

Output for script above.