TCL Command ABRESULTS, List of Eigenmodes

Inhalt

Index

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]

Description

Query the number of Eigenmodes at a specified day

Query the list of Eigenmodes at a specified day

Query the Daten-ID of the Eigenmodes at a specified day

Argument

Dimension

Meaning

schedid

OBJID

Schedule-ID

EIGENMODE

KEYWORD

Result type of query

GETCOUNT

KEYWORD

Query number of modes

GET

KEYWORD

Query data

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 EIGENMODE GETCOUNT ...]

Array item

Dimension

Meaning

error

INT

Error code

info

TEXT

Error information

count

INT

Number of the eigenvectors stored

Return for [ABRESULTS ... GET ATDAY ...]

Return

Dimension

Meaning

dataids

LIST

List of data IDs of Eigenmodes

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

Array item

Dimension

Meaning

error

INT

Error code

info

TEXT

Error information

id

OBJID

Data ID of specified mode

Scopes

All

Examples

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

}

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:

Schedule 'Schedule1' Eigenmodes

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

Number of modes at day FINAL: 40

Mode

--------

000001

000002

000003

000004

000005

000006

000007

    .......

Output for script above.

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

}

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:

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

    ......

Output for script above.



Allplan

(C) ALLPLAN GmbH

Privacy policy