求教

不会吧？贴代码出来看看

要自定下PlotRange

回复 0577216 :您好我大致仿照您给的二面角做的线面角，但是Manipulate[ Graphics3D[{BSplineSurface[{{{0, 0, 0}, {0, 0, 1}}, {{Cos[\[Theta]], Sin[\[Theta]], 0}, {Cos[\[Theta]], Sin[\[Theta]], 1}}}], BSplineSurface[{{{0, 0, 0}, {0, 0, 1}}, {{1, 0, 0}, {1, 0, 1}}}], BSplineSurface[{{{0, 0, 0}, {1, 0, 0}}, {{0, 1, 0}, {1, 1, 0}}}], {Thick, Red, Line[0.1 {Cos[#], Sin[#], 0} & /@ (Range[10]/10 \[Theta])]}, Text[Style[\[Theta], Red], {Cos[\[Theta]/2]/2, Sin[\[Theta]/2]/2, 0}]}, PlotLabel -> "二面角", Boxed -> False], {\[Theta], 0, Pi/2}]中
{Thick, Red, Line[0.1 {Cos[#], Sin[#], 0} & /@ (Range[10]/10 \[Theta])]}这一句我不明白。# 有什么用？
& /@ (Range[10]/10 \[Theta])] 有什么用？

{Manipulate[Plot[Sinc[x t], {x, 0, 10}], {t, 0, 2}],
Manipulate[Plot[Sinc[x t], {x, 0, 10}, PlotRange -> {-1, 1}], {t, 0, 2}]
}

Manipulate[ Graphics3D[{BSplineSurface[{{{0, 0, 0}, {0, 0, 1}}, {{1, 0, 0}, {1, 0, 1}}}], Line[{{0, 0, 0}, {1, Sqrt[2]*Tan[\[Theta]], 1}}], Line[{{0, 0, 0}, {1, 0, 1}}]}, PlotRange -> {{0, 0, 0}, {1, 1, 1}}, Boxed -> False], {\[Theta], 0, Pi/2}]不完全，正确。如何改正呢？