TCL Command ABRESULTS, List of Eigensystems

Syntax

array set eigensyst [ABRESULTS schedid EIGENSYST GET DAYS]

array set eigensyst [ABRESULTS schedid EIGENSYST GET ATDAY day]

Description

Query the list of the Eigensystems

Query the data of a Eigensystem at the given day

Argument	Dimension	Meaning
schedid	OBJID	Schedule-ID
EIGENSYST	KEYWORD	Result type of query
GET	KEYWORD	Query data
DAYS	KEYWORD	Query the list of days, Eigenmodes are calculated at
ATDAY	KEYWORD	Combination result of a defined day is queried
day\|\|FINAL	INT\|\|KEYWORD	Defined day or calculated end day (taking into account the end creeping)

Return array for [ABRESULTS schedid EIGENSYST GET DAYS]

Array item	Dimension	Meaning
error	INT	Error code
info	TEXT	Error information
days	LIST	List of days; In case of final day, the list contains the entry FINAL, elsewhere a number.

Return array for [ABRESULTS schedid EIGENSYST GET ATDAY day]

Array item	Dimension	Meaning
error	INT	Error code
info	TEXT	Error information
schedule	TEXT	Name of the schedule
name	TEXT	Result name, the calculation has been executed for
day	INT\|\|KEYWORD	Day or FINAL
uxMux	DOUBLE	Generalized mass regarding X-displacement
uyMuy	DOUBLE	Generalized mass regarding Y-displacement
uzMuz	DOUBLE	Generalized mass regarding Z-displacement
rxMrx	DOUBLE	Generalized mass regarding X-rotation
ryMry	DOUBLE	Generalized mass regarding Y-rotation
rzMrz	DOUBLE	Generalized mass regarding Z-rotation

Scopes

All

Examples

# Eigensystems

# ------------

puts $outfile ""

puts $outfile " Schedule 'Schedule1' Eigensystems"

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

array set eigensyst [ABRESULTS "Schedule1" EIGENSYST GET DAYS]

set nday [llength $eigensyst(days)]

puts $outfile ""

puts $outfile " Day"

puts $outfile " ------"

set format8 " %6s"

foreach day $eigensyst(days) {

puts $outfile [format $format8 $day]

}

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:

Day

------

FINAL

Output for script above.

puts $outfile ""

puts $outfile " Day Result (ux)M(ux) (uy)M(uy) (uz)M(uz) (rx)M(rx) (ry)M(ry) (rz)M(rz)"

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

set format8 " %6s %-10s %12.4e %12.4e %12.4e %12.4e %12.4e %12.4e"

foreach day $eigensyst(days) {

array set eigen [ABRESULTS $sched1 EIGENSYST GET ATDAY $day]

puts $outfile [format $format8 $eigen(day) $eigen(name) $eigen(uxMux) $eigen(uyMuy) $eigen(uzMuz) $eigen(rxMrx) $eigen(rxMrx) $eigen(rxMrx)]

}

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:

Day Result (ux)M(ux) (uy)M(uy) (uz)M(uz) (rx)M(rx) (ry)M(ry) (rz)M(rz)

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

FINAL eigen_res 5.6950e+03 5.6950e+03 5.6950e+03 1.0100e+05 1.0100e+05 1.0100e+05

Output for script above.