I'm quite new to Mathematica language, I am trying to figure out where I am making mistakes in Plotting a specific function that depends to other variables:
I want to plot
Manipulate[Plot[{Im[fxDBL[φW, Λg]],
Im[fyDBL[φW, Λg]]}, {φW, 19,
23}], {Λg, 1.800, 2.500}]
I am defining the function fxDBL as
solution = Solve[φrad == π/2 + 1/2 (-π + aa - bb) + bb, aa];
fun = TrigExpand[Λg*λ/nres == Sin[aa - φrad] + Sin[bb + φrad]] /. solution[[1]] // Simplify;
solution2 = bb /. Solve[fun, bb] /. C[1] -> 1;
fxDBL[φW_,Λg_]:= ArcSin[nres*Sin[φW*π/180 - solution2[[2]]]]*180/π /. φrad -> φW* π/180;
but nothing is displayed... even if.., if I copy the final numerical output and defining fxDBL as
fxDBL[φW_, Λg_] := (
180 ArcSin[
1.49` Sin[(π φW)/180 -
ArcCos[0.17852348993288591` Λg Csc[(π \
φW)/180]]]])/π;
Mathematica plots correctly the function I need.
what am I missing? is it something related to the output of Solve that is not used properly with solution2[[2]]? Thank you
λ
andnres
are not defined, but I assume they are equal to 0.532 and 1.49? $\endgroup$fyDBL[φW, Λg]
inManipulate
defined? The code doesn't work even if you delete it, but the definition is missing $\endgroup$