Revisions to How plot the domain of multivariable function? [closed]

Changed ViewPoint on Plot3D

Source Link

edited Sep 6, 2021 at 11:37

162.7k
7
81
205

Clear["Global`*"]

f[x_, y_] = ArcCos[x*y];

fd = FunctionDomain[f[x, y], {x, y}, Reals]

(* -1 <= x y <= 1 *)

RegionPlot[fd, {x, -5, 5}, {y, -5, 5},
 PlotPoints -> 50,
 MaxRecursion -> 5,
 FrameLabel -> Automatic]

Plot3D[f[x, y], {x, -5, 5}, {y, -5, 5},
 ViewPoint -> Above{0, 0, Infinity},
 AxesLabel -> Automatic]

ContourPlot[x*y, {x, -5, 5}, {y, -5, 5},
 Contours -> {-1, 1},
 ContourShading -> {White, LightBlue},
 FrameLabel -> Automatic]

DensityPlot[f[x, y], {x, -5, 5}, {y, -5, 5},
 FrameLabel -> Automatic]

Clear["Global`*"]

f[x_, y_] = ArcCos[x*y];

fd = FunctionDomain[f[x, y], {x, y}, Reals]

(* -1 <= x y <= 1 *)

RegionPlot[fd, {x, -5, 5}, {y, -5, 5},
 PlotPoints -> 50,
 MaxRecursion -> 5,
 FrameLabel -> Automatic]

Plot3D[f[x, y], {x, -5, 5}, {y, -5, 5},
 ViewPoint -> Above,
 AxesLabel -> Automatic]

ContourPlot[x*y, {x, -5, 5}, {y, -5, 5},
 Contours -> {-1, 1},
 ContourShading -> {White, LightBlue},
 FrameLabel -> Automatic]

DensityPlot[f[x, y], {x, -5, 5}, {y, -5, 5},
 FrameLabel -> Automatic]

Clear["Global`*"]

f[x_, y_] = ArcCos[x*y];

fd = FunctionDomain[f[x, y], {x, y}, Reals]

(* -1 <= x y <= 1 *)

RegionPlot[fd, {x, -5, 5}, {y, -5, 5},
 PlotPoints -> 50,
 MaxRecursion -> 5,
 FrameLabel -> Automatic]

Plot3D[f[x, y], {x, -5, 5}, {y, -5, 5},
 ViewPoint -> {0, 0, Infinity},
 AxesLabel -> Automatic]

ContourPlot[x*y, {x, -5, 5}, {y, -5, 5},
 Contours -> {-1, 1},
 ContourShading -> {White, LightBlue},
 FrameLabel -> Automatic]

DensityPlot[f[x, y], {x, -5, 5}, {y, -5, 5},
 FrameLabel -> Automatic]

Added DensityPlot

Source Link

edited Sep 6, 2021 at 0:25

Bob Hanlon

162.7k
7
81
205

Clear["Global`*"]

f[x_, y_] = ArcCos[x*y];

fd = FunctionDomain[f[x, y], {x, y}, Reals]

(* -1 <= x y <= 1 *)

RegionPlot[fd, {x, -5, 5}, {y, -5, 5},
 PlotPoints -> 50,
 MaxRecursion -> 5,
 FrameLabel -> Automatic]

Plot3D[f[x, y], {x, -5, 5}, {y, -5, 5},
 ViewPoint -> Above,
 AxesLabel -> Automatic]

ContourPlot[x*y, {x, -5, 5}, {y, -5, 5},
 Contours -> {-1, 1},
 ContourShading -> {White, LightBlue},
 FrameLabel -> Automatic]

DensityPlot[f[x, y], {x, -5, 5}, {y, -5, 5},
 FrameLabel -> Automatic]

Clear["Global`*"]

f[x_, y_] = ArcCos[x*y];

fd = FunctionDomain[f[x, y], {x, y}, Reals]

(* -1 <= x y <= 1 *)

RegionPlot[fd, {x, -5, 5}, {y, -5, 5},
 PlotPoints -> 50,
 MaxRecursion -> 5,
 FrameLabel -> Automatic]

Plot3D[f[x, y], {x, -5, 5}, {y, -5, 5},
 ViewPoint -> Above,
 AxesLabel -> Automatic]

ContourPlot[x*y, {x, -5, 5}, {y, -5, 5},
 Contours -> {-1, 1},
 ContourShading -> {White, LightBlue},
 FrameLabel -> Automatic]

Clear["Global`*"]

f[x_, y_] = ArcCos[x*y];

fd = FunctionDomain[f[x, y], {x, y}, Reals]

(* -1 <= x y <= 1 *)

RegionPlot[fd, {x, -5, 5}, {y, -5, 5},
 PlotPoints -> 50,
 MaxRecursion -> 5,
 FrameLabel -> Automatic]

Plot3D[f[x, y], {x, -5, 5}, {y, -5, 5},
 ViewPoint -> Above,
 AxesLabel -> Automatic]

ContourPlot[x*y, {x, -5, 5}, {y, -5, 5},
 Contours -> {-1, 1},
 ContourShading -> {White, LightBlue},
 FrameLabel -> Automatic]

DensityPlot[f[x, y], {x, -5, 5}, {y, -5, 5},
 FrameLabel -> Automatic]

Added ContourPlot

Source Link

edited Sep 5, 2021 at 23:22

Bob Hanlon

162.7k
7
81
205

Clear["Global`*"]

f[x_, y_] = ArcCos[x*y];

fd = FunctionDomain[f[x, y], {x, y}, Reals]

(* -1 <= x y <= 1 *)

RegionPlot[fd, {x, -5, 5}, {y, -5, 5},
 PlotPoints -> 50,
 MaxRecursion -> 5,
 FrameLabel -> Automatic]

Plot3D[f[x, y], {x, -5, 5}, {y, -5, 5},
 ViewPoint -> Above,
 AxesLabel -> Automatic]

ContourPlot[x*y, {x, -5, 5}, {y, -5, 5},
 Contours -> {-1, 1},
 ContourShading -> {White, LightBlue},
 FrameLabel -> Automatic]

Clear["Global`*"]

f[x_, y_] = ArcCos[x*y];

fd = FunctionDomain[f[x, y], {x, y}, Reals]

(* -1 <= x y <= 1 *)

RegionPlot[fd, {x, -5, 5}, {y, -5, 5},
 PlotPoints -> 50,
 MaxRecursion -> 5,
 FrameLabel -> Automatic]

Plot3D[f[x, y], {x, -5, 5}, {y, -5, 5},
 ViewPoint -> Above,
 AxesLabel -> Automatic]

Clear["Global`*"]

f[x_, y_] = ArcCos[x*y];

fd = FunctionDomain[f[x, y], {x, y}, Reals]

(* -1 <= x y <= 1 *)

RegionPlot[fd, {x, -5, 5}, {y, -5, 5},
 PlotPoints -> 50,
 MaxRecursion -> 5,
 FrameLabel -> Automatic]

Plot3D[f[x, y], {x, -5, 5}, {y, -5, 5},
 ViewPoint -> Above,
 AxesLabel -> Automatic]

ContourPlot[x*y, {x, -5, 5}, {y, -5, 5},
 Contours -> {-1, 1},
 ContourShading -> {White, LightBlue},
 FrameLabel -> Automatic]

Source Link

created Sep 5, 2021 at 23:13

Bob Hanlon

162.7k
7
81
205

Loading

Stack Exchange Network

Return to Answer