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.


closed as off-topic by Alexey Popkov, march, Henrik Schumacher, m_goldberg, Coolwater Nov 18 '18 at 14:04

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – Alexey Popkov, march, Henrik Schumacher, m_goldberg, Coolwater
If this question can be reworded to fit the rules in the help center, please edit the question.

  • 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

  • $\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.