0
$\begingroup$

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$
  • $\begingroup$ Have you seen the answers to this question: mathematica.stackexchange.com/questions/1413/…? Also, check out the Linked Questions on the right side of that page. $\endgroup$ – MassDefect Jan 24 '19 at 5:37
  • $\begingroup$ Thank you very much @MassDefect,,, It works $\endgroup$ – Shakir Ullah Jan 24 '19 at 6:25
  • $\begingroup$ @m_glodberg thanks for editing. $\endgroup$ – Shakir Ullah Apr 16 at 1:55
4
$\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

| improve this answer | |
$\endgroup$

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