function YyYypr = pptp3060(YyYy)

 x = YyYy(1,:); y = YyYy(2,:);

l = length(YyYy(1,:));
Xxpr = y;
if (length(Xxpr) < l) Xxpr = Xxpr*ones(1,l);end
Yypr = x;
if (length(Yypr) < l) Yypr = Yypr*ones(1,l);end
YyYypr = [Xxpr;Yypr];