************************************************************
Simulate bivariate random variables that are uncorrelated
but not independent. Use template to lay plots into floor and
walls of a box, including depth perception !! 
                  _
                /|_|
               |/_/
************************************************************;

goptions reset=all;
proc greplay  nofs; igout=work.gseg;  delete _all_;

  ** clear out the existing graphics catalog ***;
data notindep; 
do i=1 to 1000; Z=normal(1827655); Chisq=Z*Z; 
output; end;  title "Uncorrelated but not Independent";
proc gchart; vbar Z Chisq; 
proc corr; var Z Chisq; 
proc gplot; plot Chisq*Z; 
symbol1 v=dot h=.5; 
run; quit;

  proc greplay tc=tempcat nofs igout=work.gseg;
  tdef cube des='Cube'

  1/ llx =  0   lly = 0
     ulx = 30   uly = 20
     urx = 100  ury = 20
     lrx = 90   lry = 0

   2/llx = 30   lly =  20
     ulx = 30   uly = 100
     urx =100   ury = 100
     lrx =100   lry = 20

   3/llx = 0   lly =  0
     ulx = 0   uly = 88
     urx =30   ury = 100
     lrx =30   lry = 20 

 ;

template = cube; 
treplay 1:gplot 2:gchart 3:gchart1;
run;