1c210e8a-5b7d-4f4c-bc24-1877199fcbd4 24 4 5 false false 0 decimal

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

Explore an hypersurface

The governing hypersurface parameter c 1 :

f 2 c * y * 3 x 2^* y 2^* y 4^- c 2^x 2^y 2^+ (* - 4 c 4^* + (* x cos * y sinh * 2 c * y * x 4^3 y 2^* x 2^* - c 2^x 2^y 2^+ (* - 4 c 4^* - (* x sin * y cosh * x y * x 2^y 2^+ (y 2^x 2^- 2 c 2^* + (* (* 2 c * sin * 31 mat :

level 0 : 11 sys

x y f f 1 el f 2 el + f 3 el + level - :

L H N xd U 0 : dx H L - N / : i 1 N range U i el L dx - (dx i * + : for U 41 line :

Implicit Plot solving for X or for Y.

2 f X Y λ IPlotSol n 1 X length Y length 12 mat max + eval : k 2 n range : v 1 n range : u Clear 13 mat X length 1 ≡ Y Y 1 el Y stack eval : X k el u Y k el f λ - u X k 1 - el roots eval v k el 0 : X k 1 - el 21 line try : 21 line X X 1 el X stack eval : Y k el X k el u f λ - u Y k 1 - el roots eval v k el 0 : Y k 1 - el 21 line try : 21 line if S 0 : r 0 : c 12 range : M X Y augment eval : 14 mat k 2 n range v k el 0 ≠ r r 1 + : S r c el M k c el : 12 mat 0 if for S eval 61 line :

duplicate the first row.

use the previous root as guess ...

remember errors.

... or as value, if can't solve.

discard values with errors

Default level

2 f X Y IPlotSol x# y# f X Y 0 IPlotSol 11 line :

S1 x y f 111 mat 5 - 550 xd IPlotSol :

S2 x y f 411 mat 10 - 1 - 50 xd IPlotSol :

S1 S1 o 5 blue augment 2 1 sys S1 S2 2 1 sys

x y f.1 3 x 2^* 3 y 3^* - 12 x cos * - : x y f.2 9 x 2^* 8 y 2^* + x y * + 14 x y * cos * - : 21 sys

S1 x y f.1 2 - 2150 xd 311 mat IPlotSol : S2.a x y f.2 4 - 11 mat 2 - 275 xd IPlotSol : S2.b x y f.2 411 mat 22 - 75 xd IPlotSol : S2 S2.a S2.b S2.a 1 row stack : 41 sys

S1 S2 S1 o 5 blue augment S2 o 5 red augment 4 1 sys

Contour levels

M 0 : k 0 5 range M k 1 + el x y f.1 2 - 2 100 xd 3 1 1 mat 3 k * IPlotSol : for M mat2sys.1 3 1 line