*include goptions ;
goptions vsize=7.5 in;
*include macros(gtree);

data   mileages (type=distance);
title 'Intercity flying mileages';
input  (atlanta chicago denver houston losangel
       miami newyork sanfran seattle washdc city cityname)
       (10*5. @54 $4. @61 $15.);
CARDS;
    0                                                ATL    Atlanta
  587    0                                           CHI    Chicago
 1212  920    0                                      DEN    Denver
  701  940  879    0                                 HOU    Houston
 1936 1745  831 1374    0                            LA     Los Angeles
  604 1188 1726  968 2339    0                       MIA    Miami
  748  713 1631 1420 2451 1092    0                  NYC    New York
 2139 1858  949 1645  347 2594 2571    0             SF     San Francisco
 2182 1737 1021 1891  959 2734 2408  678    0        SEA    Seattle
  543  597 1494 1220 2300  923  205 2442 2329    0   WAS    Washington D.C.
;
 
proc cluster noprint method=average outtree=tree1;
 * id city;
   id cityname;
run;
title h=1.6 'Intercity Flying Mileage';
*gtree(tree=tree1, orient=V);

%gtree(tree=tree1, orient=H, label=Average Distance,sym=dot, ctree='red',
   hlabel=1.3);


proc print data=anno;
proc print data=out;

*-- polar tree;
%let maxh=1.29667;
%let maxo=10;
data polar;
	set out;
	r = 1- (height/&maxh);
	theta = .5 *  3.14159 * order / &maxo;
	x = r * cos(theta);
	y = r * sin(theta);

data panno;
	set anno;
	r = 1- (x/&maxh);
	theta = .5 * 3.14159 * y / &maxo;
	x = r * cos(theta);
	y = r * sin(theta);

proc gplot data=polar anno=panno;
	plot y * x / noaxes;