Hello Together,
I am currently working on visualizing my results with the help of Mathematica. There is mainly one Problem (I think) and that has to do with the manipulate order.
1.) What do I have to calculate? Physics apart the formulas I have to calculate look like this
Now I know that the last 3 Integrals can not be calculated by the System because they have unspecified parameters. So I calculated it one time for g=w=1 and d=0.5. I just defined the Functions:
l[x_]=ArcCos[0.9841229182759271+0.0158770817240729*Cos[x]]
(wich is o for the parameters above)
g[t_]=Sqrt[-1/8 (-1+Sqrt[1-0.5^2])(3-Cos[2 *t])]
(which is Sqrt[k] for the parameters above)
and evaluated the Integral of g with
f
Then I plotted my wanted function
Plot[x*l[x]/f[x],{x,0,10}]

Now the stuff I need help with:
The thing is that I would like a shortcut to the plot and the option to manipulate the parameters g, w and d afterwards. I tried the following:
But I don't get any results. I think the parameters are the problem so the system cannot solve the numerical Integral for n. I am grateful for any help.
Regards,
Henrie