<p>iplot</p>

3bb344d3-ebf8-49aa-8ce2-dad7caf0b4b9 73 4 5 decimal

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

<p>iplot</p>

¦ipT 0112211331122111042434344323424000000200003000000000030000400000416 mat transpose :

¦ipB 0110011001100110001111000011110000001111111100000101010110101010416 mat :

¦ipE 0931061551212515610390116 mat transpose :

¦ipμ 0110 0.5 1100 0.5 25 mat :

2 F B N λ iplot xmin xmax ymin ymax 22 mat B : nx ny 21 mat N : 12 mat Δx xmax xmin - nx / : Δy ymax ymin - ny / : M 02 matrix : 13 mat n 0 nx 1 - (range m 0 ny 1 - (range r Δx n * xmin + Δy m * ymin + 21 mat : η 1 : ϕ 51 matrix : 13 mat k 15 range P k el μi ¦ipμ k col : r Δx Δy 21 mat μi * vectorize + 21 line eval : ϕ k el P k el 1 el P k el 2 el F λ - : 21 line for k 14 range ϕ k el 0 < η η 2 k 1 -^+ : continue if for ϕ 5 el 0 < η 11 ≡ η 6 : η 6 ≡ η 11 : 0 if if 0 if ¦ipE η el 0 ≡ continue v ¦ipB η col : ν 1 : 12 mat k 14 range v k el 0 ≠ k1 k 1 + 4 k 4 ≡ (* - : v k el P k el ϕ k el ϕ k1 el ϕ k el - / P k1 el P k el - (* - : 21 line 0 if for ¦ipT η ν el 0 ≠ (ν 5 < (& M M rows 1 + el v ¦ipT η ν el el v ¦ipT η ν 1 + el el augment transpose : ν ν 2 + : 21 line while 31 line if 51 line for for M mat2sys.1 eval 41 line :

2 F B N λ iplot2 xmin xmax ymin ymax 22 mat B : nx ny 21 mat N : 12 mat Δx xmax xmin - nx / : Δy ymax ymin - ny / : M 02 matrix : 13 mat n 0 nx 1 - (range m 0 ny 1 - (range r Δx n * xmin + Δy m * ymin + 21 mat : η 1 : ϕ 51 matrix : 13 mat k 15 range P k el μi ¦ipμ k col : r Δx Δy 21 mat μi * vectorize + 21 line eval : ϕ k el P k el 1 el P k el 2 el F λ - : 21 line for k 14 range ϕ k el 0 < η η 2 k 1 -^+ : continue if for ϕ 5 el 0 < η 11 ≡ η 6 : η 6 ≡ η 11 : 0 if if 0 if ¦ipE η el 0 ≡ continue v ¦ipB η col : ν 1 : 12 mat k 14 range v k el 0 ≠ k1 k 1 + 4 k 4 ≡ (* - : v k el P k el ϕ k el ϕ k1 el ϕ k el - / P k1 el P k el - (* - : 21 line 0 if for ¦ipT η ν el 0 ≠ (ν 4 < (& M M ¦NaN ¦NaN 12 mat v ¦ipT η ν el el v ¦ipT η ν 1 + el el augment transpose stack : ν ν 2 + : 21 line while 31 line if 51 line for for M eval 41 line :

x y f.1 4 x 2^* 7 y 5^* - 12 x cos * - :

Box 4 - 44 - 422 mat :

Nxy 404021 mat :

¦NaN 10 - :

x y f.2 4 x 4^* 2 y 4^* + 45 x cos * - :

x y f.1 Box Nxy 0 iplot x y f.2 Box Nxy 0 iplot 2 1 sys x y f.1 Box Nxy 0 iplot2 x y f.2 Box Nxy 0 iplot2 2 1 sys

Contour lines

M 0 : k 0 8 range M k 1 + el x y f.2 Box 0.25 Nxy * 120 k * iplot : for M mat2sys.1 eval 3 1 line

X