TCL Command ABRESULTS, Liste der Eigensysteme

Syntax

array set eigensyst   [ABRESULTS schedid EIGENSYST GET DAYS]

array set eigensyst   [ABRESULTS schedid EIGENSYST GET ATDAY day]

Beschreibung

Abfrage der Liste der Tage der Eigensysteme

Abfrage der Daten des Eigensystems einem definierten Tag

Argument	Dimension	Bedeutung
schedid	OBJID	Bauplan-ID
EIGENSYST	KEYWORD	Ergebnistyp der Abfrage
GET	KEYWORD	Daten abfragen
DAYS	KEYWORD	Abfrage einer Liste von Tagen, an denen die Eigenmodes berechnet wurden
ATDAY	KEYWORD	Kombinationsergebnis eines definierten Tages wird abgefragt
day||FINAL	INT||KEYWORD	Definierter Tag oder berechneter Endtag (unter Berücksichtigung des Endkriechens)

Rückgabefeld für [ABRESULTS schedid EIGENSYST GET DAYS]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
days	LIST	Liste der Tage; Im Falle des Endtages enthält die Liste den Eintrag FINAL, anderenfalls eine Nummer.

Rückgabefeld für [ABRESULTS schedid EIGENSYST GET ATDAY day]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
schedule	TEXT	Name des Bauplans
name	TEXT	Ergebnisname für welchen die Berechnung ausgeführt wurde
day	INT||KEYWORD	Tag oder FINAL
uxMux	DOUBLE	Generalisierte Masse bezüglich X-Verformung
uyMuy	DOUBLE	Generalisierte Masse bezüglich Y-Verformung
uzMuz	DOUBLE	Generalisierte Masse bezüglich Z-Verformung
rxMrx	DOUBLE	Generalisierte Masse bezüglich X-Rotation
ryMry	DOUBLE	Generalisierte Masse bezüglich Y-Rotation
rzMrz	DOUBLE	Generalisierte Masse bezüglich Z-Rotation

Scopes

All

Beispiele

# 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]

}

Es wird angenommen, dass eine Textdatei outfile zum Schreiben geöffnet wurde. Die Ergebnisse werden formatiert in die Textdatei geschrieben.

Die Ausgaben sind projektabhängig und können zum Beispiel wie folgt aussehen:

Day

------

FINAL

Ausgaben zu obiger Script.

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)]

}

Es wird angenommen, dass eine Textdatei outfile zum Schreiben geöffnet wurde. Die Ergebnisse werden formatiert in die Textdatei geschrieben.

Die Ausgaben sind projektabhängig und können zum Beispiel wie folgt aussehen:

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

Ausgaben zu obiger Script.