想要循环绘制一个图
mathematica吧
全部回复
仅看楼主
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
吧务
level 10
你是想干什么?什么叫循环绘制图片?
2022年04月12日 10点04分 2
就是不带这个table的话,是一个梯形,然后我要循环绘制这个梯形在同一张图上
2022年04月12日 10点04分
@生而狂野茄子 我执行你的代码得到的结果似乎已经符合你的描述
2022年04月12日 13点04分
@asdasd1dsadsa 对的,但是这个代码执行的是纵向的,我的目标是横向循环绘制,但是我现在依旧弄不明白[紧张]
2022年04月12日 13点04分
@生而狂野茄子 什么叫横向?
2022年04月12日 13点04分
1