?? koch.m
字號:
function koch(s,t,n)
if size(s)~=size(t)
disp('輸入參數的維數必須相等');
else
for j=1:n
x=[];
y=[];
for i=1:length(s)-1
d1=s(i+1)-s(i);
d2=t(i+1)-t(i);
x1=s(i)+[0,d1/3,(s(i+1)+s(i))/2-sqrt(3)/6*d2-s(i),2/3*d1,d1];
y1=t(i)+[0,d2/3,(t(i+1)+t(i))/2+sqrt(3)/6*d1-t(i),2/3*d2,d2];
if i==1
x=[x x1];
y=[y y1];
else
x=[x x1(2:5)];
y=[y y1(2:5)];
end
end
s=x;
t=y;
plot(x,y);
%title('n='+int2str(n));
xlabel('x');
ylabel('y');
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -