CODEWITHSUNDEEP
mathwolfram-mathematica
Joey Schuitemaker
Joey Schuitemaker

Reputation: 35

Equations not solvable with Solve function

I'm trying to plot b against a with the following equation

2 *r* (sin[b]^2) * cos[b] * sin[a + b] == sin[a + 2*b]*((sin[a]^2) + r*(sin[b]^2))

with r at >= 0 and let's say <1000

Solve[2 cos[b] sin[b]^2 sin[a + b] == (sin[a]^2 + sin[b]^2) sin[a + 2 b], b]

However this does give me the error Solve::nsmet: This system cannot be solved with the methods available to Solve.

How would I be able to solve this equation?

Upvotes: 1

Views: 209

Answers (1)

Chris Degnen
Chris Degnen

Reputation: 8655

Is this what you are trying to obtain?

enter image description here

Edit

sol = FullSimplify@Solve[
    2 r Sin[b]^2 Cos[b] Sin[a + b] == Sin[a + 2 b] (Sin[a]^2 + r Sin[b]^2), b];

Show[Table[Plot[b /. sol[[4]], {a, 3.3, 4.7}],
  {r, {0, 0.1, 0.25, 0.5, 1, 2}}],
 Frame -> True, Axes -> None,
 PlotRange -> {Automatic, {0, Automatic}}]

enter image description here

Upvotes: 1

Related Questions