TCL Command ABRELEM, Results of load cases and Eigenmodes

Inhalt

Index

Syntax

array set eres [ABRELEM number GET LOADCASE dataid ATNODE k]

array set eres [ABRELEM number GET LOADCASE dataid ATNODE k TNDSUM ATCOG|ATNODE]

array set epts [ABRELEM number GET LOADCASE dataid ATNODE k POINTS]

array set eres [ABRELEM number GET LOADCASE dataid ATNODE k PNTRES pname]

array set eres [ABRELEM number GET EIGENMODE dataid ATNODE k]

array set eres [ABRELEM number GET EIGENMODE dataid ATNODE k POINTS]

array set eres [ABRELEM number GET EIGENMODE dataid ATNODE k PNTRES pname]

Description

Query the results at the specified element and node for a specific load case.

Query the result sums of the tendons for a specific load case, related to the element centre of gravity or the node position.

Query the results at the specified element and node for a specific load Eigenmode. Results at tendons are not available for Eigenmodes.

Argument

Dimension

Meaning

number

INT

Element number

GET

KEYWORD

Query data

LOADCASE

KEYWORD

Query load case results

EIGENMODE

KEYWORD

Query results of Eigenmode

dataid

OBJID

Data ID of load case or Eigenmode

ATNODE

KEYWORD

The node number follows as the next argument.

k

INT

Local node number, 1-based

TNDSUM

KEYWORD

Query the sum of tendon results

ATCOG

KEYWORD

The element CoG is the reference position for tendon results

ATNODE

KEYWORD

The element node is the reference position for tendon results

POINTS

KEYWORD

Query the list of stress point results at node

PNTRES

KEYWORD

Query stress point results

pname

TEXT

Stress point name

Return array for [ABRELEM number GET ... dataid ATNODE k], Stabelemente und Federn

Array item

Dimension

Meaning

error

INT

Error code

info

TEXT

Error information

u

LIST

6 deformations, where the first 3 components are of dimension LSTRUCT and the last 3 components (rotations) are of dimension ANGLE

Fp

LIST

6 components of primary forces, where the first 3 components are of dimension FORCE and the last 3 components are of dimension MOMENT

F

LIST

6 components of forces, where the first 3 components are of dimension FORCE and the last 3 components are of dimension MOMENT

eps0

LIST

3 dimensionless components of the initial strain; values must be multiplied by 1000 to obtain permille.

epsp

LIST

3 dimensionless components of the primary strain; values must be multiplied by 1000 to obtain permille.

eps

LIST

3 dimensionless components of the strain; values must be multiplied by 1000 to obtain permille.

Return array for [ABRELEM number GET ... dataid ATNODE k], FE

Array item

Dimension

Meaning

error

INT

Error code

info

TEXT

Error information

u

LIST

6 deformations, where the first 3 components are of dimension LSTRUCT and the last 3 components (rotations) are of dimension ANGLE; Rotations may not be applicable for every FE.

sig

LIST

6 components of stress of dimension STRESS

Return array for [ABRELEM number GET LOADCASE dataid ATNODE k TNDSUM ATCOG|ATNODE]

Array item

Dimension

Meaning

error

INT

Error code

info

TEXT

Error information

F

LIST

6 components of forces, where the first 3 components are of dimension FORCE and the last 3 components are of dimension MOMENT

Fp

LIST

6 components of primary forces, where the first 3 components are of dimension FORCE and the last 3 components are of dimension MOMENT

Fg

LIST

6 components of forces after grout, where the first 3 components are of dimension FORCE and the last 3 components are of dimension MOMENT

Fgp

LIST

6 components of primary forces after grout, where the first 3 components are of dimension FORCE and the last 3 components are of dimension MOMENT

F0

LIST

6 components of inital forces, where the first 3 components are of dimension FORCE and the last 3 components are of dimension MOMENT

Fpl

LIST

6 components of plastic forces, where the first 3 components are of dimension FORCE and the last 3 components are of dimension MOMENT

Return array for [ABRELEM number GET ... dataid ATNODE k POINTS]

Array item

Dimension

Meaning

error

INT

Error code

info

TEXT

Error information

points

LIST

List of stress point names

Return array for [ABRELEM number GET ... dataid ATNODE k PNTRES pname]

Array item

Dimension

Meaning

error

INT

Error code

info

TEXT

Error information

sig

LIST

6 components of stress of dimension STRESS

sigp

LIST

6 components of primary stress of dimension STRESS

Scopes

All

Examples

# units

array set uu [ABMUNIT LSTRUCT GET]

array set ur [ABMUNIT ANGLE GET]

array set uf [ABMUNIT FORCE GET]

array set um [ABMUNIT MOMENT GET]

array set us [ABMUNIT STRESS GET]

# get data ID

array set lcret [ABRESULTS "Schedule1" LOADCASE GET "SUM" ATDAY FINAL]

set dataID $lcret(id)

array set lcinfo [ABRESULT $dataID LOADCASE GET]

# list of elements

array set elems [ABAELEMS GET LIST]

# element data - displacements

set format1a " %12s %12s %12s %12s %12s %12s"

set format1b " %7d %-16s %4d %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 " Element Type 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 $elems(first)

for { set ielem 0 } { $ielem < $elems(count) } { incr ielem } {

    if { $ielem > 0 } { set ID [OBJNEXT $ID] }

    array unset eshape

    array set eshape [ABAELEM $ID GET SHAPE]

    set nn $eshape(nn)

    for { set k 1 } { $k <= $nn } { incr k } {

        array unset eres

        array set eres [ABRELEM $eshape(number) GET LOADCASE $dataID ATNODE $k]

        set ux [lindex $eres(u) 0]

        set uy [lindex $eres(u) 1]

        set uz [lindex $eres(u) 2]

        set rx [lindex $eres(u) 3]

        set ry [lindex $eres(u) 4]

        set rz [lindex $eres(u) 5]

        puts $outfile [format $format1b $eshape(number) $eshape(type) $k $ux $uy $uz $rx $ry $rz]

    }

}

It is assumed that a text file outfile has been opened for writing . The result data is written formatted into the text file.

The output is project-dependent and can look like the following, for example:

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

Loadcase 'SUM' at FINAL: Displacements (global)

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

Element Type Node Ux Uy Uz Rx Ry Rz

[m] [m] [m] [rad] [rad] [rad]

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

101 BEAM_BERNOULLI 1 0.04681506 -0.00009516 0.00263769 -0.00007414 0.00043993 0.00082885

101 BEAM_BERNOULLI 2 0.04439719 0.00442552 0.00046186 -0.00022485 0.00042666 0.00095191

102 BEAM_BERNOULLI 1 0.04439719 0.00442552 0.00046186 -0.00022485 0.00042666 0.00095191

102 BEAM_BERNOULLI 2 0.04194895 0.00892244 -0.00167216 -0.00037327 0.00041859 0.00081970

103 BEAM_BERNOULLI 1 0.04194895 0.00892244 -0.00167216 -0.00037327 0.00041859 0.00081970

....

Output for script above.

# element data - forces

set format1a " %12s %12s %12s %12s %12s %12s"

set format1b " %7d %-16s %4d %12.3f %12.3f %12.3f %12.3f %12.3f %12.3f"

set format1c " %12.3f %12.3f %12.3f %12.3f %12.3f %12.3f"

puts $outfile ""

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

puts $outfile " Loadcase '$lcinfo(name)' at $lcinfo(day): Forces (local)"

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

puts $outfile ""

puts $outfile " Element Type Node Nx Vy Vz Mx My Mz"

puts $outfile " Primary Nx Primary Vy Primary Vz Primary Mx Primary My Primary Mz"

puts $outfile [format $format1a $uf(symb) $uf(symb) $uf(symb) $um(symb) $um(symb) $um(symb)]

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

set ID $elems(first)

for { set ielem 0 } { $ielem < $elems(count) } { incr ielem } {

    if { $ielem > 0 } { set ID [OBJNEXT $ID] }

    array unset eshape

    array set eshape [ABAELEM $ID GET SHAPE]

    set nn $eshape(nn)

    for { set k 1 } { $k <= $nn } { incr k } {

        array unset eres

        array set eres [ABRELEM $eshape(number) GET LOADCASE $dataID ATNODE $k]

        set Nx [lindex $eres(F) 0]

        set Vy [lindex $eres(F) 1]

        set Vz [lindex $eres(F) 2]

        set Mx [lindex $eres(F) 3]

        set My [lindex $eres(F) 4]

        set Mz [lindex $eres(F) 5]

        puts $outfile [format $format1b $eshape(number) $eshape(type) $k $Nx $Vy $Vz $Mx $My $Mz]

        set Nx [lindex $eres(Fp) 0]

        set Vy [lindex $eres(Fp) 1]

        set Vz [lindex $eres(Fp) 2]

        set Mx [lindex $eres(Fp) 3]

        set My [lindex $eres(Fp) 4]

        set Mz [lindex $eres(Fp) 5]

        puts $outfile [format $format1c $Nx $Vy $Vz $Mx $My $Mz]

    }

}

It is assumed that a text file outfile has been opened for writing . The data ID has already been determined (see first example). The result data is written formatted into the text file.

The output is project-dependent and can look like the following, for example:

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

Loadcase 'SUM' at FINAL: Forces (local)

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

Element Type Node Nx Vy Vz Mx My Mz

Primary Nx Primary Vy Primary Vz Primary Mx Primary My Primary Mz

[kN] [kN] [kN] [kNm] [kNm] [kNm]

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

101 BEAM_BERNOULLI 1 -42143.963 2466.186 -63,398 -7115.902 -2344.922 14179.015

4114.948 -820,501 20,132 75,999 347,384 -1412.267

101 BEAM_BERNOULLI 2 -42808.040 3223.557 -82,860 -7077.518 -2781.065 -1008.116

4149.255 -731,188 18,326 60,279 407,986 2617.051

102 BEAM_BERNOULLI 1 -42808.040 3223.556 -82,860 -7077.518 -2781.065 -1008.116

4149.255 -731,188 18,326 60,279 407,986 2617.051

102 BEAM_BERNOULLI 2 -44128.837 2013.964 -51,790 -6907.583 -3263.754 -16297.621

4597.746 -494,434 12,577 36,049 494,789 6270.019

103 BEAM_BERNOULLI 1 -44128.837 2013.964 -51,790 -6907.583 -3263.754 -16297.621

....

Output for script above.

# element data - strains

set format1a " %12s %12s %12s"

set format1b " %12s %12s %12s %12s %12s %12s"

set format1c " %7d %-16s %4d %12.6f %12.6f %12.6f"

set format1d " %12.6f %12.6f %12.6f %12.6f %12.6f %12.6f"

puts $outfile ""

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

puts $outfile " Loadcase '$lcinfo(name)' at $lcinfo(day): Strains"

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

puts $outfile ""

puts $outfile " Element Type Node eps-x eps-y eps-z"

puts $outfile " eps0-x eps0-y eps0-z epsp-x epsp-y epsp-z"

set u1 "\[o/oo\]"

puts $outfile [format $format1a $u1 $u1 $u1]

puts $outfile [format $format1b $u1 $u1 $u1 $u1 $u1 $u1]

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

set ID $elems(first)

for { set ielem 0 } { $ielem < $elems(count) } { incr ielem } {

    if { $ielem > 0 } { set ID [OBJNEXT $ID] }

    array unset eshape

    array set eshape [ABAELEM $ID GET SHAPE]

    set nn $eshape(nn)

    for { set k 1 } { $k <= $nn } { incr k } {

        array unset eres

        array set eres [ABRELEM $eshape(number) GET LOADCASE $dataID ATNODE $k]

        set epsx [expr {[lindex $eres(eps) 0] * 1000.0}]

        set epsy [expr {[lindex $eres(eps) 1] * 1000.0}]

        set epsz [expr {[lindex $eres(eps) 2] * 1000.0}]

        puts $outfile [format $format1c $eshape(number) $eshape(type) $k $epsx $epsy $epsz]

        set eps0x [expr {[lindex $eres(eps0) 0] * 1000.0}]

        set eps0y [expr {[lindex $eres(eps0) 1] * 1000.0}]

        set eps0z [expr {[lindex $eres(eps0) 2] * 1000.0}]

        set epspx [expr {[lindex $eres(epsp) 0] * 1000.0}]

        set epspy [expr {[lindex $eres(epsp) 1] * 1000.0}]

        set epspz [expr {[lindex $eres(epsp) 2] * 1000.0}]

        puts $outfile [format $format1d $eps0x $eps0y $eps0z $epspx $epspy $epspz]

    }

}

It is assumed that a text file outfile has been opened for writing . The data ID has already been determined (see first example). The result data is written formatted into the text file.

The output is project-dependent and can look like the following, for example:

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

Loadcase 'SUM' at FINAL: Strains

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

Element Type Node eps-x eps-y eps-z

eps0-x eps0-y eps0-z epsp-x epsp-y epsp-z

[o/oo] [o/oo] [o/oo]

[o/oo] [o/oo] [o/oo] [o/oo] [o/oo] [o/oo]

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

101 BEAM_BERNOULLI 1 -0.113030 -0.000590 -0.019880

0.000000 0.000000 0.000000 0.010970 0.000090 0.001970

101 BEAM_BERNOULLI 2 -0.114780 -0.000700 0.001740

0.000000 0.000000 0.000000 0.011070 0.000100 -0.003650

102 BEAM_BERNOULLI 1 -0.114780 -0.000700 0.001740

0.000000 0.000000 0.000000 0.011070 0.000100 -0.003650

102 BEAM_BERNOULLI 2 -0.118600 -0.000820 0.023590

0.000000 0.000000 0.000000 0.012290 0.000120 -0.008760

103 BEAM_BERNOULLI 1 -0.118600 -0.000820 0.023590

....

Output for script above.

# element data - tendon forces

set format1a " %12s %12s %12s %12s %12s %12s"

set format1b " %7d %-16s %4d %12.3f %12.3f %12.3f %12.3f %12.3f %12.3f"

set format1c " %12.3f %12.3f %12.3f %12.3f %12.3f %12.3f"

puts $outfile ""

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

puts $outfile " Loadcase '$lcinfo(name)' at $lcinfo(day): Force sums by tendons, Moments taken at CoG"

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

puts $outfile ""

puts $outfile " Element Type Node Nx Vy Vz Mx My Mz"

puts $outfile " Primary Nx Primary Vy Primary Vz Primary Mx Primary My Primary Mz"

puts $outfile " Grout Nx Grout Vy Grout Vz Grout Mx Grout My Grout Mz"

puts $outfile " Grout-p Nx Grout-p Vy Grout-p Vz Grout-p Mx Grout-p My Grout-p Mz"

puts $outfile " Init Nx Init Vy Init Vz Init Mx Init My Init Mz"

puts $outfile " Plastic Nx Plastic Vy Plastic Vz Plastic Mx Plastic My Plastic Mz"

puts $outfile [format $format1a $uf(symb) $uf(symb) $uf(symb) $um(symb) $um(symb) $um(symb)]

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

set ID $elems(first)

for { set ielem 0 } { $ielem < $elems(count) } { incr ielem } {

    if { $ielem > 0 } { set ID [OBJNEXT $ID] }

    array unset eshape

    array set eshape [ABAELEM $ID GET SHAPE]

    set nn $eshape(nn)

    # only beams

    if { [string first "BEAM" $eshape(type)] != 0 } continue

    for { set k 1 } { $k <= $nn } { incr k } {

        array unset eres

        array set eres [ABRELEM $eshape(number) GET LOADCASE $dataID ATNODE $k TNDSUM ATCOG]

        set Nx [lindex $eres(F) 0]

        set Vy [lindex $eres(F) 1]

        set Vz [lindex $eres(F) 2]

        set Mx [lindex $eres(F) 3]

        set My [lindex $eres(F) 4]

        set Mz [lindex $eres(F) 5]

        puts $outfile [format $format1b $eshape(number) $eshape(type) $k $Nx $Vy $Vz $Mx $My $Mz]

        set Nx [lindex $eres(Fp) 0]

        set Vy [lindex $eres(Fp) 1]

        set Vz [lindex $eres(Fp) 2]

        set Mx [lindex $eres(Fp) 3]

        set My [lindex $eres(Fp) 4]

        set Mz [lindex $eres(Fp) 5]

        puts $outfile [format $format1c $Nx $Vy $Vz $Mx $My $Mz]

        set Nx [lindex $eres(Fg) 0]

        set Vy [lindex $eres(Fg) 1]

        set Vz [lindex $eres(Fg) 2]

        set Mx [lindex $eres(Fg) 3]

        set My [lindex $eres(Fg) 4]

        set Mz [lindex $eres(Fg) 5]

        puts $outfile [format $format1c $Nx $Vy $Vz $Mx $My $Mz]

        set Nx [lindex $eres(Fgp) 0]

        set Vy [lindex $eres(Fgp) 1]

        set Vz [lindex $eres(Fgp) 2]

        set Mx [lindex $eres(Fgp) 3]

        set My [lindex $eres(Fgp) 4]

        set Mz [lindex $eres(Fgp) 5]

        puts $outfile [format $format1c $Nx $Vy $Vz $Mx $My $Mz]

        set Nx [lindex $eres(F0) 0]

        set Vy [lindex $eres(F0) 1]

        set Vz [lindex $eres(F0) 2]

        set Mx [lindex $eres(F0) 3]

        set My [lindex $eres(F0) 4]

        set Mz [lindex $eres(F0) 5]

        puts $outfile [format $format1c $Nx $Vy $Vz $Mx $My $Mz]

        set Nx [lindex $eres(Fpl) 0]

        set Vy [lindex $eres(Fpl) 1]

        set Vz [lindex $eres(Fpl) 2]

        set Mx [lindex $eres(Fpl) 3]

        set My [lindex $eres(Fpl) 4]

        set Mz [lindex $eres(Fpl) 5]

        puts $outfile [format $format1c $Nx $Vy $Vz $Mx $My $Mz]

    }

}

It is assumed that a text file outfile has been opened for writing . The data ID has already been determined (see first example). The result data is written formatted into the text file.

The output is project-dependent and can look like the following, for example:

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

Loadcase 'SUM' at FINAL: Force sums by tendons, Moments taken at CoG

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

Element Type Node Nx Vy Vz Mx My Mz

Primary Nx Primary Vy Primary Vz Primary Mx Primary My Primary Mz

Grout Nx Grout Vy Grout Vz Grout Mx Grout My Grout Mz

Grout-p Nx Grout-p Vy Grout-p Vz Grout-p Mx Grout-p My Grout-p Mz

Init Nx Init Vy Init Vz Init Mx Init My Init Mz

Plastic Nx Plastic Vy Plastic Vz Plastic Mx Plastic My Plastic Mz

[kN] [kN] [kN] [kNm] [kNm] [kNm]

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

101 BEAM_BERNOULLI 1 38099.192 -7074.268 0,948 453,322 2439.884 -12730.541

-2390.316 444,866 0,959 -49,245 -266,431 820,953

0,000 0,000 0,000 0,000 0,000 0,000

0,000 0,000 0,000 0,000 0,000 0,000

42176.924 -7832.395 0,001 523,241 2817.662 -14114.072

-1687.330 313,246 0,000 -20,929 -112,738 562,552

101 BEAM_BERNOULLI 2 38736.706 -6279.057 0,469 408,920 2524.576 24465.269

-2351.453 381,266 0,470 -35,923 -219,634 -1483.753

0,000 0,000 0,000 0,000 0,000 0,000

0,000 0,000 0,000 0,000 0,000 0,000

42852.577 -6946.180 -0,006 464,057 2862.786 27065.316

-1770.635 286,821 0,000 -19,164 -118,303 -1120.801

....

Output for script above.

# element data - stress points

puts $outfile ""

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

puts $outfile " Loadcase '$lcinfo(name)' at $lcinfo(day): Stress points"

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

#collect all used stress points

set points ""

set ID $elems(first)

for { set ielem 0 } { $ielem < $elems(count) } { incr ielem } {

    if { $ielem > 0 } { set ID [OBJNEXT $ID] }

    array unset eshape

    array set eshape [ABAELEM $ID GET SHAPE]

    set nn $eshape(nn)

    # only beams

    if { [string first "BEAM" $eshape(type)] != 0 } continue

    for { set k 1 } { $k <= $nn } { incr k } {

        array unset eres

        array set eres [ABRELEM $eshape(number) GET LOADCASE $dataID ATNODE $k POINTS]

        set np [llength $eres(points)]

        if { $np < 1 } continue

        for { set ip 0 } { $ip < $np } { incr ip } {

            set pntname [lindex $eres(points) $ip]

            set idx [lsearch $points $pntname]

            if { $idx < 0 } { lappend points $pntname }

        }

    }

}

# output head lines

set np [llength $points]

puts $outfile ""

set text " Element Type Node"

for { set ip 0 } { $ip < $np } { incr ip } {

    set pntname [lindex $points $ip]

    append text [format " %-25s" $pntname]

}

puts $outfile $text

set text " "

for { set ip 0 } { $ip < $np } { incr ip } {

    append text " sig-x sigp-x"

}

puts $outfile $text

set text " "

for { set ip 0 } { $ip < $np } { incr ip } {

    append text [format " %12s %12s" $us(symb) $us(symb)]

}

puts $outfile $text

set text " -----------------------------"

for { set ip 0 } { $ip < $np } { incr ip } {

    append text [format "%s" "--------------------------"]

}

puts $outfile $text

# output result lines

set ID $elems(first)

for { set ielem 0 } { $ielem < $elems(count) } { incr ielem } {

    if { $ielem > 0 } { set ID [OBJNEXT $ID] }

    array unset eshape

    array set eshape [ABAELEM $ID GET SHAPE]

    set nn $eshape(nn)

    # only beams

    if { [string first "BEAM" $eshape(type)] != 0 } continue

    set text [format " %7d %-16s" $eshape(number) $eshape(type)]

    for { set k 1 } { $k <= $nn } { incr k } {

        append text [format " %4d" $k]

        for { set ip 0 } { $ip < $np } { incr ip } {

            set pntname [lindex $points $ip]

            array unset epnt

            array set epnt [ABRELEM $eshape(number) GET LOADCASE $dataID ATNODE $k PNTRES $pntname]

            if { $epnt(error) == 0 } {

                set sigx [lindex $epnt(sig) 0]

                set sigxp [lindex $epnt(sigp) 0]

                append text [format " %12.4f %12.4f" $sigx $sigxp]

            } else {

                append text " - -"

            }

            set idx [lsearch $points $pntname]

            if { $idx < 0 } { lappend points $pntname }

        }

        puts $outfile $text

        set text " "

    }

}

It is assumed that a text file outfile has been opened for writing . The data ID has already been determined (see first example). The result data is written formatted into the text file.

The output is project-dependent and can look like the following, for example:

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

Loadcase 'SUM' at FINAL: Stress points

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

Element Type Node SP1 SP2

sig-x sigp-x sig-x sigp-x

[N/mm²] [N/mm²] [N/mm²] [N/mm²]

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

101 BEAM_BERNOULLI 1 -4.4885 0.0000 -2.1582 0.0000

2 -3.7465 0.0000 -3.5007 0.0000

102 BEAM_BERNOULLI 1 -3.7465 0.0000 -3.5007 0.0000

2 -3.0012 0.0000 -4.9344 0.0000

103 BEAM_BERNOULLI 1 -3.0012 0.0000 -4.9344 0.0000

....

1201 BEAM_BERNOULLI 1 - - - -

2 - - - -

1202 BEAM_BERNOULLI 1 - - - -

2 - - - -

....

Output for script above.



Allplan

(C) ALLPLAN GmbH

Privacy policy