function P=xutubiao(p,d)
[n1,n3]=size(p);
for i=1:n1
    for j=1:n3
         coordinate=ymadjp1(p(i,j),d);%將p中各序號轉換為坐標
         P(i,2*j)=coordinate(1);
         P(i,2*j+1)=coordinate(2);
    end
end