TCL Command ABRESULTS, Liste der Eigenmodes

Syntax

array set eigenmodes   [ABRESULTS schedid EIGENMODE GETCOUNT ATDAY day]

      set modeids        [ABRESULTS schedid EIGENMODE GET ATDAY day]

array set eigenmode [ABRESULTS schedid EIGENMODE GET imode ATDAY day]

Beschreibung

Abfrage der Anzahl der Eigenmodes an einem definierten Tag

Abfrage der Liste der Eigenmodes an einem definierten Tag

Abfrage der Daten-ID des Eigenmodes an einem definierten Tag

Argument	Dimension	Bedeutung
schedid	OBJID	Bauplan-ID
EIGENMODE	KEYWORD	Ergebnistyp der Abfrage
GETCOUNT	KEYWORD	Anzahl der Modes abfragen
GET	KEYWORD	Daten abfragen
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 EIGENMODE GETCOUNT ...]

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
count	INT	Anzahl der gespeicherten Modes

Rückgabe für [ABRESULTS ... GET ATDAY ...]

Return	Dimension	Bedeutung
dataids	LIST	Liste der Daten-IDs der Eigenmodes

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

Feldargument	Dimension	Bedeutung
error	INT	Fehlerstatus
info	TEXT	Fehlerinformation
id	OBJID	Daten-ID des spezifizierten Modes

Scopes

All

Beispiele

# Eigenmodes

# ----------

puts $outfile ""

puts $outfile " Schedule 'Schedule1' Eigenmodes"

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

array set nmode [ABRESULTS "Schedule1" EIGENMODE GETCOUNT ATDAY FINAL]

set format9 " Number of modes at day FINAL: %6s"

puts $outfile ""

puts $outfile [format $format9 $nmode(count)]

set modes [ABRESULTS "Schedule1" EIGENMODE GET ATDAY FINAL]

puts $outfile ""

puts $outfile " Mode"

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

set format10 " %8s"

foreach modeID $modes {

    array unset mode

    array set mode [ABRESULT $modeID EIGENMODE GET]

    puts $outfile [format $format10 $mode(name)]

}

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:

Schedule 'Schedule1' Eigenmodes

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

Number of modes at day FINAL: 40

Mode

--------

000001

000002

000003

000004

000005

000006

000007

    .......

Ausgaben zu obiger Script.

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.