做一个KOCH函数的流程图怎么做

做一个KOCH函数的流程图怎么做

function snow
p=[0;0];
q=[1;0];
n=3
koch2(p,q,n)
hold off
axis equal

function koch2(p,q,n)
if (n==0)
plot([p(1);q(1)], [p(2);q(2)]);
hold on;
else
c = q-p;
c = [-c(2); c(1)];
c = (p+q)/2 + c/sqrt(12); % 求出「向左侧翘起 1/3」的顶点座标向量 c
a = (2*p+q)/3; % 求出从 p 到 q 的 1/3 处端点座标向量 a
b = (p+2*q)/3; % 求出从 p 到 q 的 2/3 处端点座标向量 b
koch2(p, a, n-1); % 对 pa 线段做下一回合
koch2(a, c, n-1); % 对 ac 线段做下一回合
koch2(c, b, n-1); % 对 cb 线段做下一回合
koch2(b, q, n-1); % 对 bq 线段做下一回合
end