9b69fcef-cfe7-49a1-9d42-0d4b1cae6b5c 41 6 5 auto

&[DATE] &[TIME] - &[FILENAME]

Graphing the W truss

data UnestRow v data 1 el : j 2 data rows range v v data j el stack : for v 31 line :

XY 00800050022 mat 80005001600050022 mat 1600050024000022 mat 24000018000250022 mat 18000250012000500022 mat 1200050006000250022 mat 00800050022 mat 60002500800050022 mat 800050012000500022 mat 1200050001600050022 mat 1600050018000250022 mat 111 sys :

XY XY sys2mat :

V XY UnestRow :

V 008000500800050016000500160005002400002400001800025001800025001200050001200050006000250000800050060002500800050080005001200050001200050001600050016000500180002500222 mat

V 0 2 1 sys

T i 1 V rows range j 12 range Truss i j el 0.001 V i j el * : for for Truss 21 line :

n 8 :

xy 0.001 XY n el (* :

T transpose 08816162424181812126086881212161618012 / 12 / 12 / 12 / 0052 / 52 / 5552 / 012 / 52 / 12 / 12 / 5512 / 12 / 52 / 222 mat

T xy 2 1 sys

XY n el 60002500800050022 mat

Ioan's -Initial Problem and Question:

Input Data - dependent on users problem (see a second example at the bottom):

DatNodes NoN: X: Y: Z: 100026 m * 2.5 m * 038 m * 0.5 m * 0412 m * 5 m * 0516 m * 0.5 m * 0618 m * 2.5 m * 0724 m * 0084 mat :

DatBarres NoEl: NodeI: NodeJ: 11327533541257662476483495410231165123 mat :

Euler Angles Rotation: ΨΘΦ Rzyx sΨ ΨΘΦ 1 el sin : cΨ ΨΘΦ 1 el cos : sΘ ΨΘΦ 2 el sin : cΘ ΨΘΦ 2 el cos : sΦ ΨΘΦ 3 el sin : cΦ ΨΘΦ 3 el cos : rr cΘ cΨ * cΦ sΨ * - sΦ sΘ * cΨ * + sΦ sΨ * cΦ sΘ * cΨ * + cΘ sΨ * cΦ cΨ * sΦ sΘ * sΨ * + sΦ cΨ * - cΦ sΘ * sΨ * + sΘ - sΦ cΘ * cΦ cΘ * 33 mat eval : rr 81 line eval :

Ioan's initial solution "like parrot": DatNodes DatBarres ΨΘΦ k1 k2 Plot3d xyzd0 DatNodes 2 DatNodes rows 24 submatrix mm / : xyzd xyzd0 ΨΘΦ Rzyx * eval : rDaEl DatBarres 2 DatBarres rows 23 submatrix : SS 0021 sys : ib 1 rDaEl rows range Ib rDaEl ib 1 el : Jb rDaEl ib 2 el : SS ib el xyzd Ib k1 el xyzd Ib k2 el xyzd Jb k1 el xyzd Jb k2 el 22 mat : 31 line for 21 line SS 51 line :

Improved solution, according Davide's and Ber7's proposals: DatNodes DatBarres ΨΘΦ k1 k2 selc Plot3dD xyzd0 DatNodes 2 DatNodes rows 24 submatrix mm / : xyzd xyzd0 ΨΘΦ Rzyx * eval : rDaEl DatBarres 2 DatBarres rows 23 submatrix : Nbarres rDaEl rows : zer 1010^: SSD 0021 sys : klin 0 : selc 0 > (selc 6 ≤ (& jbl 1 selc range klin klin 1 + : SSD klin el zer : 21 line for kkk 0 : if iib 1 Nbarres range klin klin 1 + : Ib rDaEl iib 1 el : Jb rDaEl iib 2 el : SSD klin el xyzd Ib k1 el xyzd Ib k2 el xyzd Jb k1 el xyzd Jb k2 el 22 mat : jbl 15 range klin klin 1 + : SSD klin el zer : 21 line for 51 line for 41 line SSD 71 line :

Sequential solution:

xyzd0 DatNodes 2 DatNodes rows 24 submatrix mm / : 0006000250008000500012000500001600050001800025000240000073 mat

Ψ 10 ° * :

Θ 10 ° * :

Φ 10 ° * :

Ψ 0 ° * :

Θ 0 ° * :

Φ 0 ° * :

xyzd xyzd0 Ψ Θ Φ 13 mat transpose Rzyx * eval :

lastError

rDaEl DatBarres 2 DatBarres rows 23 submatrix : 1375351276246434542365112 mat

xyzd 000 6246.603 1589.8192 838.1082 7844.2755 642.9747 - 1517.8686 12493.2061 3179.6384 1676.2164 15603.046 1773.4905 - 3106.3945 17884.7588 105.9546 - 3220.897 23276.3114 3391.5476 - 4765.5776 73 mat

Nbarres rDaEl rows : 11

k1 1 :

k2 2 :

<-- plot in xy plane

SS 0021 sys : iib 1 Nbarres range Ib rDaEl iib 1 el : Jb rDaEl iib 2 el : SS iib el xyzd Ib k1 el xyzd Ib k2 el xyzd Jb k1 el xyzd Jb k2 el 22 mat : 31 line for 21 line

lastError

Ioan's Initial Plot - "like a Parrot":

SS 00 7844.2755 642.9747 - 22 mat 23276.3114 3391.5476 - 15603.046 1773.4905 - 22 mat 7844.2755 642.9747 - 15603.046 1773.4905 - 22 mat 00 6246.603 1589.8192 22 mat 23276.3114 3391.5476 - 17884.7588 105.9546 - 22 mat 6246.603 1589.8192 12493.2061 3179.6384 22 mat 17884.7588 105.9546 - 12493.2061 3179.6384 22 mat 7844.2755 642.9747 - 12493.2061 3179.6384 22 mat 15603.046 1773.4905 - 12493.2061 3179.6384 22 mat 6246.603 1589.8192 7844.2755 642.9747 - 22 mat 17884.7588 105.9546 - 15603.046 1773.4905 - 22 mat 111 sys

zer :

zer 1010^:

<-- It can be: 0; ""; 10**10

selc 0 :

<-- selc: 0 - blue 1 - red 2 - green 3 - magenta 4 - orange ? 5 -

SSD 0021 sys : klin 0 : selc 0 > (selc 6 ≤ (& jbl 1 selc range klin klin 1 + : SSD klin el zer : 21 line for kkk 0 : if iib 1 Nbarres range klin klin 1 + : Ib rDaEl iib 1 el : Jb rDaEl iib 2 el : SSD klin el xyzd Ib k1 el xyzd Ib k2 el xyzd Jb k1 el xyzd Jb k2 el 22 mat : jbl 15 range klin klin 1 + : SSD klin el zer : 21 line for 51 line for 41 line

SSD 00 7844.2755 642.9747 - 22 mat 11010^* 11010^* 11010^* 11010^* 11010^* 23276.3114 3391.5476 - 15603.046 1773.4905 - 22 mat 11010^* 11010^* 11010^* 11010^* 11010^* 7844.2755 642.9747 - 15603.046 1773.4905 - 22 mat 11010^* 11010^* 11010^* 11010^* 11010^* 00 6246.603 1589.8192 22 mat 11010^* 11010^* 11010^* 11010^* 11010^* 23276.3114 3391.5476 - 17884.7588 105.9546 - 22 mat 11010^* 11010^* 11010^* 11010^* 11010^* 6246.603 1589.8192 12493.2061 3179.6384 22 mat 11010^* 11010^* 11010^* 11010^* 11010^* 17884.7588 105.9546 - 12493.2061 3179.6384 22 mat 11010^* 11010^* 11010^* 11010^* 11010^* 7844.2755 642.9747 - 12493.2061 3179.6384 22 mat 11010^* 11010^* 11010^* 11010^* 11010^* 15603.046 1773.4905 - 12493.2061 3179.6384 22 mat 11010^* 11010^* 11010^* 11010^* 11010^* 6246.603 1589.8192 7844.2755 642.9747 - 22 mat 11010^* 11010^* 11010^* 11010^* 11010^* 17884.7588 105.9546 - 15603.046 1773.4905 - 22 mat 11010^* 11010^* 11010^* 11010^* 11010^* 661 sys

SSD 2909.5389 423.9435 - 2388.5944 89.0868 22 mat 3422.5691 2501.3039 2901.6246 3014.3341 22 mat 00 520.9445 - 513.0302 22 mat 513.0302 2925.2473 7.9143 - 3438.2775 22 mat 520.9445 - 513.0302 2388.5944 89.0868 22 mat 2901.6246 3014.3341 7.9143 - 3438.2775 22 mat 2388.5944 89.0868 2901.6246 3014.3341 22 mat 520.9445 - 513.0302 7.9143 - 3438.2775 22 mat 2909.5389 423.9435 - 520.9445 - 513.0302 22 mat 3422.5691 2501.3039 7.9143 - 3438.2775 22 mat 2909.5389 423.9435 - 2901.6246 3014.3341 22 mat 00 7.9143 - 3438.2775 22 mat 2388.5944 89.0868 7.9143 - 3438.2775 22 mat 781 sys

Davide's and Ber7's Solution:

SSD

Just another example using function formulation:

DatNodes NoN: X: Y: Z: 13 m * 0023 m * 03 m * 33 m * 3 m * 043 m * 3 m * 3 m * 50006003 m * 703 m * 0803 m * 3 m * 94 mat :

DatBarres NoEl: NodeI: NodeJ: 1122343564785626487248689161038111412581328143 mat :

DatNodes DatBarres Ψ Θ Φ 1 3 mat transpose 1 2 Plot3d DatNodes DatBarres Ψ Θ Φ 1 3 mat transpose 1 2 0 Plot3dD DatNodes DatBarres Ψ Θ Φ 1 3 mat transpose 2 3 0 Plot3dD

Jean - Please - HERE IS YOUR TURN:

Graphing the W truss

data UnestRow v data 1 el : j 2 data rows range v v data j el stack : for v 31 line :

XY 00800050022 mat 80005001600050022 mat 1600050024000022 mat 24000018000250022 mat 18000250012000500022 mat 1200050006000250022 mat 00800050022 mat 60002500800050022 mat 800050012000500022 mat 1200050001600050022 mat 1600050018000250022 mat 111 sys :

XY XY sys2mat :

V XY UnestRow :

V 008000500800050016000500160005002400002400001800025001800025001200050001200050006000250000800050060002500800050080005001200050001200050001600050016000500180002500222 mat

V 0 2 1 sys

T i 1 V rows range j 12 range Truss i j el 0.001 V i j el * : for for Truss 21 line :

n 8 :

xy 0.001 XY n el (* :

T transpose 08816162424181812126086881212161618012 / 12 / 12 / 12 / 0052 / 52 / 5552 / 012 / 52 / 12 / 12 / 5512 / 12 / 52 / 222 mat

T xy 2 1 sys

008 0.5 22 mat 8 0.5 16 0.5 22 mat 16 0.5 24022 mat 24018 2.5 22 mat 18 2.5 12522 mat 1256 2.5 22 mat 008 0.5 22 mat 6 2.5 8 0.5 22 mat 8 0.5 12522 mat 12516 0.5 22 mat 16 0.5 18 2.5 22 mat 111 sys

θ rot θ cos θ sin - θ sin θ cos 22 mat :

θ 1 π * - 4 / :

θ 0.7854 -

Rot P θ rot * eval :

RotW T θ rot * eval :

Rot_xy xy θ rot * eval :

RotW Rot_xy 2 1 sys