0
$\begingroup$

This question already has an answer here:

I want to draw 2D curves in a 3D plot. For example, I have a function

F[x_, y_] := (3 x + y(2 + 5 y))/23 

and want to plot it as shown below:

enter image description here

I need help with the Mathematica programing.

$\endgroup$

marked as duplicate by march, Kuba plotting Jan 24 at 7:00

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

3
$\begingroup$

It can be done by giving Plot3D the right options.

With[{ϵ = .05},
  Plot3D[Sin[x y], {x, 0, 10}, {y, 0 - ϵ, 3 + ϵ},
    PlotRangePadding -> 0.6,
    PlotStyle -> Transparent,
    BoundaryStyle -> None,
    Boxed -> False,
    AxesEdge -> {{-1, -1}, {1, -1}, {-1, -1}},
    FaceGrids -> {{-1, 0, 0}, {0, 1, 0}, {0, 0, -1}},
    FaceGridsStyle -> Directive[Dashed],
    AxesLabel -> {"X", "Y", "Z"},
    MeshFunctions -> {#2 &},
    Mesh -> {Range[0, 3]},
    MeshStyle -> Directive[Thickness[.009]],
    Lighting -> "Neutral"]]

It takes a lot fiddling with the options to get the plot to look like your picture. Also, note the it was necessary to extend the plot range of the y-domain.

plot

$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.