I have a 3D parametric plot:
a = ((3.14*.0005) (1.887 - 1.792))/((.0001064)*
Cos[-.7454*Sin[\[Theta]]*Cos[\[Phi]] + .6626*Cos[\[Theta]]]);
b = (1 - Cos[.7454*Sin[\[Theta]]*Cos[\[Phi]] + .6626*
Cos[\[Theta]]]^2)*(1 -
Cos[-.7454*Sin[\[Theta]]*Cos[\[Phi]] + .6626*Cos[\[Theta]]])^2;
c = a*b;
d = (Cos[c])^2;
ParametricPlot3D[Sin[\[Theta]]* Cos[\[Phi]], d,
Cos[\[Theta]] , {\[Theta], 0, Pi}, {\[Phi], 0, 2*Pi}]
When I tell Mathematica to plot it, I get this message:
ParametricPlot3D::nonopt: Options expected (instead of {\[Phi],0,2 \[Pi]}) beyond position 3 in ParametricPlot3D[Sin[\[Theta]] Cos[\[Phi]],d,Cos[\[Theta]],{\[Theta],0,\[Pi]},{\[Phi],0,2 \[Pi]}]. An option must be a rule or a list of rules. >>
Does anybody know what that means, and how can I fix it to make the plot?
Thank you in advance.