TCL Command ABRNODE, Ergebnisse von Lastfällen und Eigenmodes
Syntax
array set nres [ABRNODE number GET LOADCASE dataid]
array set nres [ABRELEM number GET EIGENMODE dataid]
Beschreibung
Abfrage der Ergebnisse am angegebenen Knoten für einen bestimmten Lastfall.
Abfrage der Ergebnisse am angegebenen Knoten für einen bestimmten Eigenmode.
|
Argument |
Dimension |
Bedeutung |
|
number |
INT |
Elementnummer |
|
GET |
KEYWORD |
Daten abfragen |
|
LOADCASE |
KEYWORD |
Lastfallergbnisse abfragen |
|
EIGENMODE |
KEYWORD |
Ergebnisse des Eignmodes abfragen |
|
dataid |
OBJID |
Daten-ID des Lastfalls oder des Eigenmodes |
Rückgabefeld für [ABRELEM number GET ... dataid ATNODE k], Stabelemente und Federn
|
Feldargument |
Dimension |
Bedeutung |
|
error |
INT |
Fehlerstatus |
|
info |
TEXT |
Fehlerinformation |
|
u |
LIST |
6 Verformungen, wobei die ersten 3 Komponenten von Dimension LSTRUCT und die letzten 3 Komponenten (Rotationen) von Dimension ANGLE sind |
Scopes
All
Beispiele
# units
array set uu [ABMUNIT LSTRUCT GET]
array set ur [ABMUNIT ANGLE GET]
# loadcase dataID
array set lcret [ABRESULTS "Schedule1" LOADCASE GET "SUM" ATDAY FINAL]
set dataID $lcret(id)
array set lcinfo [ABRESULT $dataID LOADCASE GET]
# list of nodes
array set nodes [ABANODES GET LIST]
# node data - displacements
set format1a " %12s %12s %12s %12s %12s %12s"
set format1b " %6d %12.8f %12.8f %12.8f %12.8f %12.8f %12.8f"
puts $outfile ""
puts $outfile " ----------------------------------------------------------------"
puts $outfile " Loadcase '$lcinfo(name)' at $lcinfo(day): Displacements (global)"
puts $outfile " ----------------------------------------------------------------"
puts $outfile ""
puts $outfile " Node Ux Uy Uz Rx Ry Rz"
puts $outfile [format $format1a $uu(symb) $uu(symb) $uu(symb) $ur(symb) $ur(symb) $ur(symb)]
puts $outfile " ------------------------------------------------------------------------------------"
set ID $nodes(first)
for { set inode 0 } { $inode < $nodes(count) } { incr inode } {
if { $inode > 0 } { set ID [OBJNEXT $ID] }
array unset node
array set node [ABANODE $ID GET]
array unset nres
array set nres [ABRNODE $node(number) GET LOADCASE $dataID]
set ux [lindex $nres(u) 0]
set uy [lindex $nres(u) 1]
set uz [lindex $nres(u) 2]
set rx [lindex $nres(u) 3]
set ry [lindex $nres(u) 4]
set rz [lindex $nres(u) 5]
puts $outfile [format $format1b $node(number) $ux $uy $uz $rx $ry $rz]
}
Es wird angenommen, dass eine Textdatei outfile zum Schreiben geöffnet wurde. Die Ergebnisdaten werden formatiert in die Textdatei geschrieben.
Die Ausgaben sind projektabhängig und können zum Beispiel wie folgt aussehen:
----------------------------------------------------------------
Loadcase 'SUM' at FINAL: Displacements (global)
----------------------------------------------------------------
Node Ux Uy Uz Rx Ry Rz
[m] [m] [m] [rad] [rad] [rad]
------------------------------------------------------------------------------------
101 0.04566809 -0.00009021 0.00253247 -0.00007414 0.00043993 0.00082885
102 0.04307467 0.00444054 0.00014274 -0.00022485 0.00042666 0.00095191
103 0.04081353 0.00894737 -0.00220194 -0.00037327 0.00041859 0.00081970
104 0.03879494 0.01227730 -0.00452221 -0.00051765 0.00041421 0.00050454
105 0.03689927 0.01382573 -0.00682797 -0.00065836 0.00041142 0.00011929
....
Ausgaben zu obiger Script.
