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

ddcf24e3-17ad-42aa-af99-5c9d815ad81b 143 15 12 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

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 [symbolic]

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 ω t * z i el - sin - : for

i 1 z rows range v 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 v i el * eval : 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 [numeric]

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 * eval : for S1 21 line :

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

S1 S1 :

<= .. Numeric .. =>

S2 S2 :

1 time t0 - min 0.5

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] OFF x y XY x y / - :

plot 1 1 sys

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

plot

raw/smoothed Thermies xw 02116 2113.3 12121 2111.7 22099 2109.2 32120 2105.2 42113 2099.4 52098 2092.1 62067 2084.7 72071 2078.6 82070 2075.1 92056 2073.9 102083 2074.1 112090 2074.4 122072 2074.0 132064 2072.5 142081 2070.1 152074 2067.2 162054 2064.4 172056 2062.0 182058 2060.5 192061 2059.6 203 mat :

raw xw 1 col xw 2 col augment : smooth xw 1 col xw 3 col augment : 21 line

raw smooth 2 1 sys

OriginLab