TCL Command ABRESULT, Daten des Eigenmodes

Syntax

array set mode   [ABRESULT dataid EIGENMODE GET]

Beschreibung

Abfrage der Daten des Eigenmodes

Argument	Dimension	Bedeutung
dataid	OBJID	Daten-ID
EIGENMODE	KEYWORD	Ergebnistyp der Abfrage
GET	KEYWORD	Daten abfragen

Rückgabefeld

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
schedule	TEXT	Bauplanname
name	TEXT	Name des Eigenmodes (formatierte Nummer mit führenden Nullen)
omega	DOUBLE	Eigenwert
gamma	DOUBLE	Generalisierte Masse
xsi	DOUBLE	Dämpfung
fx	FORCE	Kraftsumme in X
fy	FORCE	Kraftsumme in Y
fz	FORCE	Kraftsumme in Z
mx	MOMENT	Momentensumme in X
my	MOMENT	Momentensumme in Y
mz	MOMENT	Momentensumme in Z
x	LSTRUCT	Resultierender Lastangriffspunkt
y	LSTRUCT	Resultierender Lastangriffspunkt
z	LSTRUCT	Resultierender Lastangriffspunkt

Scopes

All

Beispiele

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

}

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:

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

    ......

Ausgaben zu obiger Script.