797cd459-242c-48b0-b075-36ea7545a1a6 6 4 5 false false 0 decimal

4 appVersion 0.99.7109.29964

x y f x sin x 2^y 2^+ 4 + sqrt / :

x y g y x 2^y 2^+ 4 + sqrt / - :

display(
  fieldplot(
    [`in`[1],`in`[2]],
    x={xmn}..{xmx},
    y={ymn}..{ymx},
    arrows=SLIM,
    color=x,
    labels=[`{xl}`,`{yl}`],
    axes=boxed,
    view=[{xmn}..{xmx},{ymn}..{ymx}]),
  coordplot(
    rectangular,
    [{xmn}..{xmx},{ymn}..{ymx}],
    color=[gray,gray],
    linestyle=[5,5],
    grid=[5,5]),
  POLYGONS(
    [ [{xmn},{ymn}],[{xmn},{ymx}],
      [{xmx},{ymx}],[{xmx},{ymn}] ],
    COLOR(RGB,0.999,0.999,0.999)));
 
# axes = none|normal|boxed|framed
# arrows = THIN|SLIM|THICK nm plot1 :

<- Plot instructions in description(nm)

xl yl 12 mat X Y 12 mat : xmn xmx 12 mat 6 - 612 mat : ymn ymx 12 mat 6 - 612 mat : gx gy 12 mat 151512 mat : {nm}.Script nm description setprop 51 line

plot1 x y f x y g 2 1 sys

x f1 4 x * sin :

x f2 x cos :

display(
  plot(
    [`in`[1],`in`[2]],
    x={xmn}..{xmx},
    y={ymn}..{ymx},
    labels=[`{xl}`,`{yl}`],
    color=[blue,red],
    axes=normal,
    view=[{xmn}..{xmx},{ymn}..{ymx}],
    tickmarks=[3,3],
    numpoints=100,
    scaling=unconstrained),
  coordplot(
    rectangular,
    [{xmn}..{xmx},{ymn}..{ymx}],
    color=[gray,gray],
    linestyle=[5,5],
    grid=[7,7]),
  POLYGONS(
    [ [{xmn},{ymn}],[{xmn},{ymx}],
      [{xmx},{ymx}],[{xmx},{ymn}] ],
    COLOR(RGB,0.999,0.999,0.999)));

# axes = none|normal|boxed|framed nm plot2 :

<- Plot instructions in description(nm)

xmn xmx 12 mat 5 - 512 mat : ymn ymx 12 mat 1 - 112 mat : {nm}.Script nm description setprop 31 line

plot2 x f1 x f2 2 1 sys