<p> UnestRow/Col(data) ... Decimate(data,n) </p>

f9971a77-41f1-40f1-a0c8-3039c579f0a3 8 4 5 decimal

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

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

data n Decimate collects every 'n' points range 1 data rows n range : k 1 : i range u k el data i 1 el : v k el data i 2 el : k k 1 + : 31 line for u v augment 31 line 31 line :

data UnestH v data 1 el : j 2 data cols range v v data j el augment : for v 31 line :

t0 1 time :

rotate[X] ... OperSymbol ... typical wrt [θ, φ] ∠ 1 - :

sample ∠ 400000000022 - 000000000 1.5 1.5 - 38 mat :

Adapted from Mathcad 8 from MathSoft Staff

1. The system is nested/collected around the 3 rows wise

sample & iso, via the 3 vectors 'ax, ay, Nx'

2. cols [3, 6] in 'sample' separate the isometric axis system.

3. Not commutative: universal rule for this type matrix algebra.

4. Assure X_Y trace 1 & trace 2 are set to 'spline'.

]]>

θ 30 - : φ 30 : ° π 180 / : 13 mat

Ω θ ° * cos θ ° * sin - 0 θ ° * sin φ ° * cos * θ ° * cos φ ° * cos * φ ° * sin - θ ° * sin φ ° * sin * θ ° * cos φ ° * sin * φ ° * cos 33 mat : 0.866 0.5 0 0.433 - 0.75 0.5 - 0.25 - 0.433 0.866 33 mat

coord Ω sample * :

R z H i el * R z E i el * 12 mat

NOT commutative

coord 0.866 - 3.4641 011 - 000 0.433 1.7321 - 0 1.5 1.5 - 0 0.75 - 0.75 0.25 1 - 0 0.866 0.866 - 0 1.299 1.299 - 38 mat

c coord :

Coordinates of the iso axes system cx c 12 el c 11 el c 32 el c 31 el 0032 mat : cy c 14 el c 34 el c 15 el c 35 el 0032 mat : cz c 16 el c 37 el c 36 el c 38 el 0032 mat : 13 mat 3.4641 0.866 - 1 - 0.25 0032 mat 1 0.866 1 - 0.866 - 0032 mat 0 1.299 0 1.299 - 0032 mat 13 mat

α 5 : (zoom default 3D ≡

The 3 iso individual colors

α cx * α cy * α cz * 3 1 sys

QuickPlot Iso system

cx cy cz 3 1 sys

Populate the system ω 3 π * : ½p 4 ω * : n 40 : i 0 n range : i 1 n range z i 1 + el ½p i n / * : for 51 line

Nest/collect components for the normal system [Numeric]

a 0.75 : (amplitude and/or relative magnitudes ≡

ax 00 a 31 mat :

ay 0 a 031 mat :

i 1 z rows range u i el ω t * z i el - sin - : for

z t H i 1 z rows range H i el ax u i el * eval : for H 21 line :

z t E i 1 z rows range E i el ay u i el * eval : for E 21 line :

in 'ax, ay' you set equal/relative amplitudes

t 1 π / : (the plot start sliding parameter ≡ se 0.0875 : (the trace period shrink/expand ≡ 21 line

Mapping the normal vectors [numeric]

z N i 1 z rows range N i el se 0031 mat z i el * : for N 21 line :

z H z N z t H + :

z E z N z t E + :

S1 i 1 z rows range S1 1 i el Ω z H i el * eval : for S1 transpose 21 line :

S2 i 1 z rows range S2 1 i el Ω z E i el * eval : for S2 transpose 21 line :

1 time t0 - 0.3 s *

S1 S1 UnestRow : S2 S2 UnestRow : 21 line

Magnetic S1 1 col S1 3 col (augment : Electric S2 1 col S2 3 col (augment : 21 line

Plot the system plot Magnetic Electric cx cy cz 51 sys :

image

1 time t0 - 33 s *

plot

n =50 [1 min], n=100 [5.2 min]

plot