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

ddcf24e3-17ad-42aa-af99-5c9d815ad81b 120 2 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 :

sample 1 - 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 & R, 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

R θ ° * 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 R 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

Prepare the system ω 3 π * : ½p 4 ω * : n 50 : 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

a 0.75 : (amplitude ≡

<= Much faster in separate construction =>

ax 00 a 31 mat :

ay 0 a 031 mat :

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

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

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

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

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

t 0.3 : (the plot sliding parameter ≡ zoom π : (the trace period shrink/expand ≡ 21 line

Mapping the normal vectors

z N i 1 z rows range N i el 10031 mat z i el zoom π * / * : 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 R z H i el * : for S1 21 line :

S2 i 1 z rows range S2 1 i el R z E i el * : for S2 21 line :

S1 S1 UnestH transpose : S2 S2 UnestH transpose : 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

XY [0,0],not used x y XY x y / - :

1 time t0 - min 3.2

plot 1 1 sys