I’m trying to calculate a FindRoot or Solve for the intersection of two non-linear equations, any suggestions on how to remedy the errors?
supply and Demand.nb (44.4 KB)
Hi Jonathan,
The function passed to FindRoot needs an argument
equilibriumPrice = FindRoot[Difference[price], {price, 60}]
(* {price -> 58.1167} *}
The Print does not have a terminating ; so it is implicitly multiplied by whatever follows, and equilibriumPrice is not extracted correctly
Print["Equilibrium price:", equilibriumPrice[[1, 2]]];
demand[maxDemand, rateChangeDemand, price, priceAtHalfMaxDemand] -
supply[maxSupply, rateChangeSupply, price, priceAtHalfMaxSupply]
Using an AI that can translate English to Mathematica, I was able to further research and develop the supply & demand curves. But “we” ran into a problem in need of some expert help, hence maybe one of you fine people would be willing to contribute?
At the end, I have a set of plotted point graphs I’d like to combine into a single graph