I am quite new to Mathematica and need to solve the following problem: The problam is dependent on two constants, namely lphi and rmax.
lphi = 2 (c + p/e)
p = b^2/a
e = c/a
b = Sqrt[a^2 - ((4*a^2)/(lphi^2))]
thetatangentline = ArcTan[e]
t = Sqrt[p^2 - (p/e)^2]
s = a*(Sin[
thetacircle] + (thetacircle -
Sin[thetacircle])*((b/a)^(2 - 0.216*thetacircle^2)))
f = 2 (t + s)
So, now I want to Maximize b
rmax = 151.42840717646078443148910480787
NMaximize[{b, lphi == 150, f == rmax, thetacircle < 90°},
{lphi, c, p, e, a, thetatangentline, t, s, thetacircle, f},
{lphi, c, p, e, a, thetatangentline, t, s, thetacircle, f, b} ∈ Reals]
But Mathematica just answers with
Hold[NMaximize[{b, lphi == 150, f == rmax,
thetacircle < 90 \[Degree]}, {lphi, c, p, e, a, thetatangentline,
t, s, thetacircle,
f}, {lphi, c, p, e, a, thetatangentline, t, s, thetacircle, f,
b} \[Element] Reals]]
How can I tell Mathematica to solve this problem? I read through a bunch of questions, but none seems to address my problem.
I am aware of the fact, that there is a "circle dependency" between the equations, that's why I need mathematica!
b
, can you please fix the definitions oflphi, p, e
andb
so they aren't circular. $\endgroup$ – SPPearce Jun 28 '17 at 12:24