util

3bb344d3-ebf8-49aa-8ce2-dad7caf0b4b9 303 4 5 false false 0 decimal

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

util

TOL 1012 -^:

r g b a rgb hex 0123456789ABCDEF : n char hex n 1 + 1 substr : d toHex r d 16 mod : h r char : d r - 16 mod 0 ≡ d r - 16 / char h concat h if 31 line : h toDec d 0 : η h strlen : k 1 η range N hex h k 1 substr findstr 1 el 1 - : d d N 16 η k -^* + : 21 line for d 41 line : c H 0255 c 0 round 12 mat min 12 mat max toHex : d a H r H g H b H concat toDec : FFFFFFFF 232^1 - : d FFFFFFFF 2 / ≥ d FFFFFFFF - 1 - d if 81 line :

C rgb C 1 el C 2 el C 3 el 255 rgb :

C a rgb C 1 el C 2 el C 3 el 255 a * rgb :

V G pClr a b 12 mat V min V max 12 mat eval : n G length : 12 mat b a - TOL < 111 mat V a - (n 1 - b a - / (* 1 + trunc vectorize eval if 21 line :

T n a pCMap C 0 : r 1 n range : 12 mat n 0 ≡ 255255255255 a * rgb rgb RGB T findstr : (1 - ≡ T Jet ≡ m 0.25 n * 0 round 112 mat max eval : v z v rows 1 matrix : x 2551 m range m / * : y 255 m / m 2 / m range (* : o 255 m 1 matrix + : 13 mat R y z o z x o y reverse stack : G y z x o x reverse y z stack : B y o x reverse o z y z stack : m R length n - : C r el R r m + el G r m + el B r m + el 255 a * rgb eval : 81 line C r el T : if C r el 72557 - n 1 - / r 1 - (* + (3 identity rgb 1 el row * 255 a * rgb eval : 11 line if if 21 line :

x y z pAxis 000 x 000000 y 000000 z 00073 mat :

cm\0024\ R G B Jet Black Grey 61 mat :

LS solid :

d 3 :

3D Plots in XY Plot

Definitions

N Nx 40 : Ny 40 : 21 sys :

B 3 - 33 - 322 mat :

x y F 31 x - (2^e x 2^y 1 + (2^+^/ * 10 x 5 / x 3^- y 5^- e x 2^y 2^+^/ * - 13 e x 1 + (2^y 2^+^* / - :

Calculus

M x y F3 x y x y F stack : B 1 el B 2 el B 3 el B 4 el Nx Ny CreateMesh :

A 123 pAxis :

Question at the end of the collapsed area.

Azimut \[REGION[0]]\ \[REGION[1]]\ \[REGION[2]]\ Elevation \[REGION[3]]\ Surface Transparency \[REGION[4]]\ Mesh width \[REGION[5]]\ Mesh colormap \[REGION[6]]\ Surface colormap \[REGION[7]]\ Color map colors \[REGION[8]]\

pSort

az pSort el a mw

"R"
"G"
"B"
"Jet"
"Black"
"Grey"

"R"
"G"
"B"
"Jet"
"Black"
"Grey"

sc cmn

az el 12 mat 35 - 3012 mat

az az ° * :

el el ° * :

el el 180 ° * + 360 ° * mod 360 ° * + 360 ° * mod 180 ° * - :

el 90 ° * > el 180 ° * el - : az az 180 ° * + : 12 mat el 90 ° * - < el 180 ° * - el - : az az 180 ° * + : 12 mat 0 if if

az az 360 ° * mod 360 ° * + 360 ° * mod :

γ az cos el sin az sin * - az sin el sin az cos * 0 el cos 32 mat :

GM mc cmn 1 a - pCMap :

GS 0 :

sc cmn 1 a - pCMap

P M γ * eval :

D M d col :

GM 0 ≡ (mw 0 ≡ (| r DGM 0 : dGM D GM pClr eval : r DGM GM dGM r el el : 21 line if

GS 0 ≡ r DGS 0 : dGS D GS pClr eval : r DGS GS dGS r el el : 21 line if

L a b Shape L P a b range c el a DGM LS mw a DGS 61 mat :

Σ np 5 : S 0 : ns 0 : Λ 0 : nl 0 : r 1 : c 1 P cols range : 17 mat Lo polygon polyline 12 mat GS 0 ≡ (1 + el eval : u 1 Nx range v 1 Ny range S ns ns 1 + : el Lo r r np + (1 - Shape : r r np + : 21 line for GM 0 ≡ (mw 0 ≡ (| 0 Λ nl nl 1 + : el polyline r r Ny + 1 - u Nx ≡ (- Shape : if r r Ny + 1 - : 31 line for Λ pSort S reverse S if stack eval 11 mat 41 line :

--->>> HOW TO SORT THE MESH?? Some poligons goest to front instead to back, and I can't find how to sort them.

Σ A γ * 2 1 sys

Alvaro