User Portlet
| Discussions |
|---|
| [edit: removed] |
| supply[x_] := s1[x]*p[x]^s2[x] demand[x_] := d1[x]*p[x]^d2[x] With[{n = 2}, Solve[ And @@ ((supply[#] == demand[#]) & /@ Range[n]), p[#] & /@ Range[n] ] ] Sami, I think this is a more... |