<content> pClr </content>

ef63ad6a-7d5f-4015-8147-14cc017d2472 113 Alvaro 4 5 false false false 0 0 decimal

Contour Plots of implicit functions in XYPlot

C a rgb A C 3 el C 2 el C 1 el 255 a * 14 mat : k Clear 12 mat d 0255 A k el trunc 12 mat min 12 mat max 162 k 1 - (*^* k 14 sum : d 232^2 d * 232^1 - ≥ (* - eval 31 line :

r g b a rgb r g b 13 mat a rgb 11 line :

C rgb C 1 rgb 11 line :

T n a pCMap C 0 : r 1 n range : c 13 range : I 3 identity : 14 mat z r T f 2550 - n 1 - / r 1 - (* I z 1 el row * T + a rgb : T IsString T Jet ≡ m 0.25 n * 0 round 112 mat max eval : 11 mat x 2551 m range m / * : y 255 m / m 2 / m range (* : 12 mat v z v rows 1 matrix : o 255 m 1 matrix + : 12 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 : p R length n - : C 1 r el R r p + el G r p + el B r p + el a rgb eval : 81 line T GS ≡ R n a pCMap G n a pCMap + B n a pCMap + rgb RGB T findstr : (1 - ≡ C 1 r el T : C 1 r el rgb r 0 f : if T0 T 0 ≡ (vectorize c el c augment eval 11 findrows 2 col : C 1 r el T0 r T f : 21 line if 31 line :

T x pCMap T x 1 pCMap 11 line :

T pCMap T 16 pCMap 11 line :

z a b CL pClr CL 0 ≡ (CL IsString | CL CL z a - (CL length 1 - b a - / * trunc 1 + el if 11 line :

pCMJet Jet pCMap :

pCMGS GS pCMap :

pCMRed R pCMap :

pCMGreen G pCMap :

pCMBlue B pCMap :

<content> Example </content>

Function

z 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^+^* / - :

Ranges

x1 x2 y1 y2 22 mat 3 - 33 - 322 mat :

Box in the description of the XYPlot

Z 5 - 5 4.5 - range :

n Z length :

Colormap

cm Jet n 1 pCMap :

α 0.25 :

Transparency for filling

Plot

XYPlot'Points 50 :

Λ 111 sys :

t# XYPlot'Traces# :

cm' cm 166^1255 α * trunc + (* + :

cm' cm 255255255 α rgb + 1 + ≡

s k v t t# k 1 - num2str' s :" v num2str " concat :

k 1 n range Λ k el z Z k el - : FillStyle'Filled k True t str2num FillStyle'FillColor k cm' k el t str2num LineStyle'Thickness k 2 t str2num LineStyle'LineColor k cm k el t str2num 51 line for

XYPlot'XAxis'Min:x1, XYPlot'XAxis'Max:x2
XYPlot'YAxis'Min:y1, XYPlot'YAxis'Max:y2

XYCMap'YAxis'Min:min(Z)
XYCMap'YAxis'Max:max(Z)

Zk Z min Z max Z min - n / 0 n range * + : K 0 : k 1 n range : 1 2 mat K k el polygon 0 Zk k el 1 Zk k el 1 Zk k 1 + el 0 Zk k 1 + el 0 Zk k el 5 2 mat cm k el solid 1 cm k el 6 1 mat : 1 1 mat 3 1 line x y f z : <content> Example </content>

Log-spaced level curve

z x 2^y + 11 - (2^x y 2^+ 7 - (2^+ :

Himmelblau's function

Zo 3 - 2 2.75 - range :

x1 x2 y1 y2 22 mat 5 - 55 - 522 mat :

Z 10 Zo^vectorize :

n Z length :

cm 1 - 019213 mat n 1 pCMap :

α 0.1 :

Plot

XYPlot'Points 50 :

Λ 111 sys :

cm' cm 166^1255 α * trunc + (* + :

k 1 n range Λ k el z Z k el - : FillStyle'Filled k True t str2num FillStyle'FillColor k cm' k el t str2num LineStyle'Thickness k 2 t str2num LineStyle'LineColor k cm k el t str2num 51 line for

x y f z :

XYPlot'XAxis'Min:x1, XYPlot'XAxis'Max:x2
XYPlot'YAxis'Min:y1, XYPlot'YAxis'Max:y2

XYCMap'YAxis'Min:min(Zo)
XYCMap'YAxis'Max:max(Zo)

Zk Zo min Zo max Zo min - n / 0 n range * + : K 0 : k 1 n range : 1 2 mat K k el polygon 0 Zk k el 1 Zk k el 1 Zk k 1 + el 0 Zk k 1 + el 0 Zk k el 5 2 mat cm k el solid 1 cm k el 6 1 mat : 1 1 mat 3 1 line

Alvaro

4 appVersion 1.73.9126.0