User Portlet
| Discussions |
|---|
| Perhaps this n = 10; v0 = 20; y = Sum[(v[i] - v0/Xs*(Xs - x[i])^3)^2, {i, 0, n}]; y1 = Expand[D[y, Xs] Xs^3];(*Remove Xs from denominators*) Simplify[Reduce[y1 == 0, Xs]] All of the details of determining the sixth power polynomial... |