steps.m

来自「关于质数的一些程序」· M 代码 · 共 11 行

function y=steps(m,n)
if(length(m)-length(n)) disp('the size of m and n must be the same');
else 
    p=length(m);
    line(m(1),0,m(1),n(1));hold on;
    for k=1:p-1
        line(m(k),n(k),m(k+1),n(k));hold  on;
        line(m(k+1),n(k),m(k+1),n(k+1));hold  on;
    end
    line(m(p),n(p),m(p),n(p-1));
end