Plot only equilateral triangles

15 次查看（过去 30 天）
Mayur Deogade
Mayur Deogade 2020-9-4
回答： Alan Stevens 2020-9-5
Plot random 10 triangles and plot only almost equilateral triangles. Check whether the three edges differ by less than a chosen small constant, for example e = 0.01. I have drawn the random triangles but I need to plot only equilateral triangles. So far, I get any random triangles including obtuse, acute and equilateral triangles.
  3 个评论
显示 1更早的评论
Mayur Deogade
Mayur Deogade 2020-9-4
编辑：Mayur Deogade 2020-9-4

figure, hold on

for i=1:10 Fill(rand(3,1), rand(3,1), rand(1,3))

End

Axis([0 1 0 1])

Axis square off

Mayur Deogade
Mayur Deogade 2020-9-4
Here, I am able to plot 10 random triangles but I need to plot only triangles which are nearly equilateral

请先登录，再进行评论。

请先登录，再回答此问题。

采纳的回答

Asad (Mehrzad) Khoddam
figure, hold on
e = 0.01;
i=0;
while i<= 10
x = rand(3,1);
y = rand(3,1);
c = rand(3,1);
L1 = sqrt((x(2)-x(1)).^2 + (y(2) - y(1)).^2);
L2 = sqrt((x(3)-x(1)).^2 + (y(3) - y(1)).^2);
L3 = sqrt((x(3)-x(2)).^2 + (y(3) - y(2)).^2);
L = sort([L1, L2, L3]);
if L(2)-L(1) < e && L(3) - L(2) <e && L(3)-L(1) < e
i = i + 1;
fill(x,y,c)
end
end
axis([0 1 0 1])
axis square off

更多回答（2 个）

Alan Stevens
Alan Stevens 2020-9-5
Here's an alternative approach:
e = 0.01;
for i = 1:10
xc = rand(1); yc = rand(1);
r = rand(1);
while r < e/sqrt(3)
r = rand(1);
end
theta1 = 2*pi*rand(1);
theta = [theta1;
theta1 + 2*pi/3;
theta1 + 4*pi/3];
x = xc + r*cos(theta);
y = yc + r*sin(theta);
plot([x; x(1)],[y; y(1)])
hold on
end
axis equal off
Asad (Mehrzad) Khoddam
figure, hold on
e = 0.0001;
i=0;
while i<= 10
x = rand(3,1);
y = rand(3,1);
c =rand(3,1);
L1 = sqrt((x(2)-x(1)).^2 + (y(2) - y(1)).^2);
L2 = sqrt((x(3)-x(1)).^2 + (y(3) - y(1)).^2);
L3 = sqrt((x(3)-x(2)).^2 + (y(3) - y(2)).^2);
L = sort([L1, L2, L3]);
if L(2)-L(1) < e || L(3) - L(2) <e
i = i + 1;
fill(rand(3,1), rand(3,1), rand(1,3))
end
end
axis([0 1 0 1])
axis square off

类别

在 Help Center 和 File Exchange 中查找有关 Descriptive Statistics 的更多信息

标签

Community Treasure Hunt

Find the treasures in MATLAB Central and discover how the community can help you!

Start Hunting!

Translated by