level 1
生而狂野茄子
楼主
代码贴在下面了,我是想要向右边循环绘制这个图片,但是看了一些贴吧之后就加上了table,但是我发现并不是我想要的图片。之前也使用过for,发现for并不能循环绘制图片,所以想问一下贴吧大神有什么好的办法吗
\[Theta]g = 20 \[Degree];
\[Alpha] = 30 \[Degree];
d = 30;
m = 50;
l = 50;
\[Theta]m = (Tan[\[Alpha]]^2 - Tan[\[Theta]g/2]^2)^(1/2);
p1 = Plot3D[
Table[{Cot[\[Theta]m] (x - n*2 d*Sin[\[Theta]m])}, {n, 0, 10}], {x,
0, d Sin[\[Theta]m]}, {y, 0, l + 1/2 d Cot[\[Alpha]]},
RegionFunction ->
Function[{x, y, z},
y - (Cot[\[Alpha]] x)/Sin[\[Theta]m] < l - 1/2 d Cot[\[Alpha]]],
Mesh -> None]
2022年04月12日 08点04分
1
\[Theta]g = 20 \[Degree];
\[Alpha] = 30 \[Degree];
d = 30;
m = 50;
l = 50;
\[Theta]m = (Tan[\[Alpha]]^2 - Tan[\[Theta]g/2]^2)^(1/2);
p1 = Plot3D[
Table[{Cot[\[Theta]m] (x - n*2 d*Sin[\[Theta]m])}, {n, 0, 10}], {x,
0, d Sin[\[Theta]m]}, {y, 0, l + 1/2 d Cot[\[Alpha]]},
RegionFunction ->
Function[{x, y, z},
y - (Cot[\[Alpha]] x)/Sin[\[Theta]m] < l - 1/2 d Cot[\[Alpha]]],
Mesh -> None]