Guest User

Untitled

a guest
Nov 15th, 2018
145
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.10 KB | None | 0 0
  1. s[p_] := -800 + 50 p
  2. d[p_] := 1900 - 40 p
  3. Plot[{s[p], d[p]}, {p, 0, 50}, PlotLegends -> "Expressions"]
Add Comment
Please, Sign In to add comment