- /
-
roots
on 12 Oct 2021
- 10
- 91
- 1
- 0
- 280
figure('Color','k','Renderer','painters')
axis equal off
% r(0,0,-30,1)
r(0,0,0,1)
r(1,0,0,1)
% r(0,0,270,1)
function r(x1,y1,t,d)
s=2/3;
x2=x1+cosd(t)*(d);
y2=y1+sind(t)*(d);
if d>0.03
line([x1 x2],[y1 y2],'LineWi',5*d,'Color',[1,1,1]-d*s);
r(x2,y2,t+80*sign(randn),d*s);
r(x2,y2,t+20*sign(randn),d*s);
r(x2,y2,t+180,d*s);
end
end