I'm trying to graph these two equations on one graph, but I keep getting errors.

$S(p) = −800 + 50 p$


$D(p) = 1900−40p$

I know that these are pretty basic questions, but please bear with as I'm new to the program and I've gone over the intro and manual.

  • 3
    $\begingroup$ You've posted a number of these simple questions by now, so here's some general advice. (1) For learning Mathematica, the documentation is extremely helpful. If you look up Plot, the second example under the `Examples' heading shows you how to plot two functions together in one plot. Use the documentation! Many of your questions are likely to be closed due to being able to be easily found in the documentation. (2) It is helpful for us to see what you've tried. When you say things like "but I keep getting errors", it doesn't help, because we don't know what errors you're getting. $\endgroup$ – march Nov 17 '18 at 4:02
s[p_] := -800 + 50 p
d[p_] := 1900 - 40 p
Plot[{s[p], d[p]}, {p, 0, 50}, PlotLegends -> "Expressions"]

enter image description here

| improve this answer | |
  • $\begingroup$ Also, the documentation here provides the same solution. $\endgroup$ – Titus Nov 16 '18 at 8:51

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