求教-3

Export["example.gif", #] &@ Table[Graphics3D[{Opacity[0.5], Polygon[{{{0, 0, Sqrt[3]}, {0, 0, 0}, {1, 0, 0}}, {{Cos[x], Sin[x], 0}, {0, 0, 0}, {0, 0, Sqrt[3]}}, {{0, 0, 0}, {1, 0, 0}, {Cos[x], Sin[x], 0}}, {{Cos[x], Sin[x], 0}, {1, 0, 0}, {0, 0, Sqrt[3]}}}]}, Boxed -> False, PlotRange -> {{0, 1}, {-1, 1}, {0, 2}}, ImageSize -> {206, 206}], {x, Pi/2, 2*Pi/3, Pi/50}]

如果没有改工作目录的话，导出文件位于“我的文档”文件夹中

Animate[Graphics3D[{Opacity[0.5],
Polygon[{{{0, 0, Sqrt[3]}, {0, 0, 0}, {1, 0, 0}}, {{Cos[x], Sin[x],
0}, {0, 0, 0}, {0, 0, Sqrt[3]}}, {{0, 0, 0}, {1, 0,
0}, {Cos[x], Sin[x], 0}}, {{Cos[x], Sin[x], 0}, {1, 0, 0}, {0,
0, Sqrt[3]}}}]}, Boxed -> False,
PlotRange -> {{0, 1}, {-1, 1}, {0, 2}},
ImageSize -> {206, 206}], {x, Pi/2, 2*Pi/3, Pi/50}]

v7 = {{0, 1, 0}, {1, 1, 0}, {1, 0, 0}, {0, 0, 0}, {0, 1, 1}, {1, 1, 1}, {1, 0, 1}, {0, 0, 1}, {0, 1/2, 1/2}, {1/2, 1/2, 0}};i7 = {{1, 2, 3, 4}, {5, 6, 7, 8}, {1, 5, 8, 4}, {2, 3, 7, 6}, {1, 2, 6, 5}, {3, 4, 8, 7}};Graphics3D[{{Opacity[0.3], GraphicsComplex[v7, Polygon[i7]]}, GraphicsComplex[ v7, {Line[{4, 5}], Line[{3, 1}], Line[{4, 2}], Line[{2, 5}], Line[{9, 10}]}], (Text[ Style[#1[[1]], #1[[2]]], #1[[3]]] &) /@ {{C, Red, {1, 1, 0}}, {C1, Red, {1, 1, 1}}, {B, Red, {1, 0, 0}}, {D, Red, {0, 1, 0}}, {B1, Red, {1, 0, 1}}, {D1, Red, {0, 1, 1}}, {P, Red, {0, 1/2, 1/2}}, {A1, Red, {0, 0, 1}}, {A, Red, {0, 0, 0}}, {Q, Red, {1/2, 1/2, 0}}}}, PlotRange -> {{0, 1}, {0, 1}, {0, 1}}, Boxed -> False] 如何能把AC、CD1画成蓝色虚线呢？

嗯
v7 = {{0, 1, 0}, {1, 1, 0}, {1, 0, 0}, {0, 0, 0}, {0, 1, 1}, {1, 1,
1}, {1, 0, 1}, {0, 0, 1}, {0, 1/2, 1/2}, {1/2, 1/2, 0}}; i7 = {{1,
2, 3, 4}, {5, 6, 7, 8}, {1, 5, 8, 4}, {2, 3, 7, 6}, {1, 2, 6,
5}, {3, 4, 8, 7}}; Graphics3D[{{Opacity[0.3],
GraphicsComplex[v7, Polygon[i7]]},
GraphicsComplex[
v7, {Line[{4, 5}],
Line[{3, 1}], {Blue, Dashed, Thick, Line[{4, 2}], Line[{2, 5}]},
Line[{9, 10}]}], (Text[
Style[#1[[1]], #1[[2]]], #1[[3]]] &) /@ {{C,
Red, {1, 1, 0}}, {C1, Red, {1, 1, 1}}, {B, Red, {1, 0, 0}}, {D,
Red, {0, 1, 0}}, {B1, Red, {1, 0, 1}}, {D1, Red, {0, 1, 1}}, {P,
Red, {0, 1/2, 1/2}}, {A1, Red, {0, 0, 1}}, {A,
Red, {0, 0, 0}}, {Q, Red, {1/2, 1/2, 0}}}},
PlotRange -> {{-0.1, 1.1}, {-0.1, 1.1}, {-0.1, 1.1}}, Boxed -> False]

这是为神马？ x1 = {{0, 0, 0}, {0, 1, 0}, {1, 1, 0}, {1, 0, 0}, {1/2, 1/2, Sqrt[2]/2}, {1/4, 3/4, Sqrt[2]/4}};y1 = {{1, 2, 3, 4}, {1, 2, 5}, {2, 3, 5}, {3, 4, 5}, {4, 5, 1}};Graphics3D[{{Opacity[0.3], GraphicsComplex[x1, Polygon[y1]]}, GraphicsComplex[ x1, {Line[{3, 6}], Line[{4, 6}]}], (Text[ Style[#1[[1]], #1[[2]]], #1[[3]]] &) /@ {{C, Red, {0, 0, 0}}, {B, Red, {0, 1, 0}}, {S, Red, {1/2, 1/2, Sqrt[2]/2}}, {D, Red, {1, 0, 0}}, {\!\(\*\"\\\"\"\)\!\(\*\"E\"\)\!\(\*\"\\\"\"\), Red, {1/4, 3/4, Sqrt[2]/4}}, {A, Red, {1, 1, 0}}}}, PlotRange -> {{0, 1}, {0, 1}, {0, 1}}, Boxed -> False]

Panel[DynamicModule[{\[Theta] = 0}, Column[{InputField[Dynamic[\[Theta]]], Dynamic[Graphics3D[{{Opacity[0.5], BSplineSurface[{{{-1, 0, 0}, {1, 0, 0}}, {{-1, 1, 0}, {1, 1, 0}}}], Line[{{1/2, 0, 0}, {1/2, 1, 0}}], Line[{{-1/2, 0, 0}, {-1/2, 1, 0}}], Line[{{-1/2, Cos[\[Theta]] + 1/2, Cos[Pi/2 - \[Theta]]}, {-1/2, -Cos[\[Theta]] + 1/2, -Cos[Pi/2 - \[Theta]]}}]}, {Thick, Red, Line[{-1/2, 0.1 Cos[#] + 1/2, 0.1 Sin[#]} & /@ (Range[10]/10 \[Theta])]}, Text[Style[{\[Theta]/Pi*180, \[Degree]}, Red], {-1/2, Cos[\[Theta]/2]/2 + 1/2, Sin[\[Theta]/2]/2}]}, Boxed -> False, PlotLabel -> "异面角", PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, ImageSize -> {206, 206}]]}]]] 异面直线所成角的范围是0~90 我想在输入时一旦输入的角度超出这个范围。就显示输入有误。我自己的想法是要用if语句实现，同时还得在这个模块中再开一个显示窗口。求各位多多帮助。

当输入角度超出给定范围时，模板下边又多出一段程序。这是为什么呢？怎么能使它不显示呢？Panel[DynamicModule[{\[Theta] = 0}, Column[{InputField[Dynamic[\[Theta]]], Dynamic[If[0 <= \[Theta] <= Pi, Graphics3D[{{Opacity[0.5], 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[{{{-1, 0, 0}, {1, 0, 0}}, {{-1, 1, 0}, {1, 1, 0}}}]}, {Thick, Red, Line[0.1 {Cos[#], Sin[#], 0} & /@ (Range[10]/10 \[Theta])]}, Text[Style[{\[Theta]/Pi*180, \[Degree]}, Red], {Cos[\[Theta]/2]/2, Sin[\[Theta]/2]/2, 0}]}, PlotLabel -> "二面角", Boxed -> False, PlotRange -> {{-1, 1}, {0, 1}, {0, 1}}, ImageSize -> {206, 206}], "请重新输入，\[Theta]\[Epsilon][0,\[Pi]]"]]}]]]