<p>load x[]=g:\2001;</p><p>x=reshape(x,rows(x)/145,145);</p><p>proc gold(r,h);</p><p>local col,y,t</p><p>duoxie le a</p>