Skip to main content
Notice removed Draw attention by Cogicero
Bounty Ended with Chris K's answer chosen by Cogicero
Tweeted twitter.com/StackMma/status/1244640667877466120
Imrpoved title
Link
Cogicero
  • 149
  • 1
  • 10

Reduce, Minimize and Maximize return Solving for the same input commandcoefficients in a nonlinear equation according to constraints

added 52 characters in body
Source Link
Cogicero
  • 149
  • 1
  • 10

How do I solve for coefficients in a nonlinear equation? E.g. Consider $p(x,y,z,t) = e^t(ax^2 + by^2 + cz^2)$ and I seek the values of $a,b,c$ which make $p\approx0$ at all the pointpoints $(x=r\cos\theta,y=r\sin\theta,m,t)$ for all $t\ge0$ where $0 < \theta \le 2\pi$. A solution will be $(a,b,c)=\{(m/r)^2,(m/r)^2,-1\}$. General answer =$\{a,a,-ar^2/m^2\}$. How could I have found this sort of answer in Mathematica?

I thought if I can obtain MinValue and MaxValue of p to both be within a small numerical range, then p would be approx zero. So I tried this:

p = Exp[t]*(a*x^2 + b*y^2 + c*z^2);
points = {x->r*Cos[theta],y->r*Sin[theta],z->m};
Minimize[p /. points, 0 < theta <= 2*pi && t >= 0, {a,b,c}]

But Mathematica returns the last line back to me.

I also tried this to no avail, but answers were not found either:

Reduce[p /.points == 0 && 0 < theta <= 2*Pi, {r,theta,t}, Reals]

Last of all I also tried the following but it has been running forever and gives no results:

Solve[ForAll[{r,theta,t}, p /. points == 0 && 0 < theta < 2*Pi], {a,b,c}]

How do I solve for coefficients in a nonlinear equation? E.g. Consider $p(x,y,z,t) = e^t(ax^2 + by^2 + cz^2)$ and I seek the values of $a,b,c$ which make $p\approx0$ at the point $(x=r\cos\theta,y=r\sin\theta,m,t)$ for all $t\ge0$ where $0 < \theta \le 2\pi$. A solution will be $(a,b,c)=\{(m/r)^2,(m/r)^2,-1\}$. How could I have found this in Mathematica?

I thought if I can obtain MinValue and MaxValue of p to both be within a small numerical range, then p would be approx zero. So I tried this:

p = Exp[t]*(a*x^2 + b*y^2 + c*z^2);
points = {x->r*Cos[theta],y->r*Sin[theta],z->m};
Minimize[p /. points, 0 < theta <= 2*pi && t >= 0, {a,b,c}]

But Mathematica returns the last line back to me.

I also tried this to no avail, but answers were not found either:

Reduce[p /.points == 0 && 0 < theta <= 2*Pi, {r,theta,t}, Reals]

Last of all I also tried the following but it has been running forever and gives no results:

Solve[ForAll[{r,theta,t}, p /. points == 0 && 0 < theta < 2*Pi], {a,b,c}]

How do I solve for coefficients in a nonlinear equation? E.g. Consider $p(x,y,z,t) = e^t(ax^2 + by^2 + cz^2)$ and I seek the values of $a,b,c$ which make $p\approx0$ at all the points $(x=r\cos\theta,y=r\sin\theta,m,t)$ for all $t\ge0$ where $0 < \theta \le 2\pi$. A solution will be $(a,b,c)=\{(m/r)^2,(m/r)^2,-1\}$. General answer =$\{a,a,-ar^2/m^2\}$. How could I have found this sort of answer in Mathematica?

I thought if I can obtain MinValue and MaxValue of p to both be within a small numerical range, then p would be approx zero. So I tried this:

p = Exp[t]*(a*x^2 + b*y^2 + c*z^2);
points = {x->r*Cos[theta],y->r*Sin[theta],z->m};
Minimize[p /. points, 0 < theta <= 2*pi && t >= 0, {a,b,c}]

But Mathematica returns the last line back to me.

I also tried this to no avail, but answers were not found either:

Reduce[p /.points == 0 && 0 < theta <= 2*Pi, {r,theta,t}, Reals]

Last of all I also tried the following but it has been running forever and gives no results:

Solve[ForAll[{r,theta,t}, p /. points == 0 && 0 < theta < 2*Pi], {a,b,c}]
Notice added Draw attention by Cogicero
Bounty Started worth 50 reputation by Cogicero
added 129 characters in body
Source Link
Cogicero
  • 149
  • 1
  • 10

How do I solve for coefficients in a nonlinear equation? E.g. Consider $p(x,y,z,t) = e^t(ax^2 + by^2 + cz^2)$ and I seek the values of $a,b,c$ which make $p\approx0$ at the point $(x=r\cos\theta,y=r\sin\theta,m,t)$ for all $t\ge0$ where $0 < \theta \le 2\pi$. A solution will be $(a,b,c)=\{(m/r)^2,(m/r)^2,-1\}$. How could I have found this in Mathematica?

I thought if I can obtain MinValue and MaxValue of p to both be within a small numerical range, then p would be approx zero. So I tried this:

p = Exp[t]*(a*x^2 + b*y^2 + c*z^2);
points = {x->r*Cos[theta],y->r*Sin[theta],z->m};
Minimize[p /. points, 0 < theta <= 2*pi && t >= 0, {a,b,c}]

But Mathematica returns the last line back to me.

I also tried this to no avail, but answers were not found either:

Reduce[p /.points == 0 && 0 < theta <= 2*Pi, {r,theta,t}, Reals]

Last of all I also tried the following but it has been running forever and gives no results:

Solve[ForAll[{r,theta,t}, p /. points == 0 && 0 < theta < 2*Pi], {a,b,c}]

Consider $p(x,y,z,t) = e^t(ax^2 + by^2 + cz^2)$ and I seek the values of $a,b,c$ which make $p\approx0$ at the point $(x=r\cos\theta,y=r\sin\theta,m,t)$ for all $t\ge0$ where $0 < \theta \le 2\pi$. A solution will be $(a,b,c)=\{(m/r)^2,(m/r)^2,-1\}$. How could I have found this in Mathematica?

I thought if I can obtain MinValue and MaxValue of p to both be within a small numerical range, then p would be approx zero. So I tried this:

p = Exp[t]*(a*x^2 + b*y^2 + c*z^2);
points = {x->r*Cos[theta],y->r*Sin[theta],z->m};
Minimize[p /. points, 0 < theta <= 2*pi && t >= 0, {a,b,c}]

But Mathematica returns the last line back to me.

I also tried this to no avail, but answers were not found either:

Reduce[p /.points == 0 && 0 < theta <= 2*Pi, {r,theta,t}, Reals]

Last of all I also tried:

Solve[ForAll[{r,theta,t}, p /. points == 0 && 0 < theta < 2*Pi], {a,b,c}]

How do I solve for coefficients in a nonlinear equation? E.g. Consider $p(x,y,z,t) = e^t(ax^2 + by^2 + cz^2)$ and I seek the values of $a,b,c$ which make $p\approx0$ at the point $(x=r\cos\theta,y=r\sin\theta,m,t)$ for all $t\ge0$ where $0 < \theta \le 2\pi$. A solution will be $(a,b,c)=\{(m/r)^2,(m/r)^2,-1\}$. How could I have found this in Mathematica?

I thought if I can obtain MinValue and MaxValue of p to both be within a small numerical range, then p would be approx zero. So I tried this:

p = Exp[t]*(a*x^2 + b*y^2 + c*z^2);
points = {x->r*Cos[theta],y->r*Sin[theta],z->m};
Minimize[p /. points, 0 < theta <= 2*pi && t >= 0, {a,b,c}]

But Mathematica returns the last line back to me.

I also tried this to no avail, but answers were not found either:

Reduce[p /.points == 0 && 0 < theta <= 2*Pi, {r,theta,t}, Reals]

Last of all I also tried the following but it has been running forever and gives no results:

Solve[ForAll[{r,theta,t}, p /. points == 0 && 0 < theta < 2*Pi], {a,b,c}]
edited tags
Link
Loading
added 110 characters in body
Source Link
Cogicero
  • 149
  • 1
  • 10
Loading
Added relevant tags
Source Link
Cogicero
  • 149
  • 1
  • 10
Loading
added 21 characters in body
Source Link
Cogicero
  • 149
  • 1
  • 10
Loading
added 115 characters in body; added 7 characters in body; edited title
Source Link
Cogicero
  • 149
  • 1
  • 10
Loading
deleted 246 characters in body; edited title
Source Link
Cogicero
  • 149
  • 1
  • 10
Loading
deleted 36 characters in body
Source Link
Cogicero
  • 149
  • 1
  • 10
Loading
added 190 characters in body
Source Link
Cogicero
  • 149
  • 1
  • 10
Loading
added 18 characters in body
Source Link
Cogicero
  • 149
  • 1
  • 10
Loading
added 13 characters in body
Source Link
Cogicero
  • 149
  • 1
  • 10
Loading
Source Link
Cogicero
  • 149
  • 1
  • 10
Loading