Sample 24858: Create an intersecting plane where Z=0
This code will produce a grid plane that intersects the Z axis at zero. The annotate facility is used to produce the plane.
This code will produce a grid plane that intersects the Z axis at zero. The annotate facility is used to produce the plane.
goptions reset=all border ctext=black colors=(black) ftext=swiss;
data old;
do i=-10 to 10 by 1;
zvar=i;
xvar=ranuni(0);
yvar=ranuni(1);
output;
end;
run;
data anno;
/*Producing the plane*/
function='move'; xsys='1';ysys='1';zsys='2';line=1;size=1;
x=0; y=100; z=0;output;
function='draw';
x=100; y=100; z=0;output;
function='draw';
x=100; y=0; z=0;output;
function='draw';
x=0; y=0; z=0;output;
function='draw';
x=0; y=100; z=0;output;
/*Producing the grid lines*/
function='move'; xsys='1';ysys='1';zsys='2';line=2;size=1;
x=0; y=66; z=0;output;
function='draw';
x=100; y=66; z=0;output;
function='move';
x=0; y=33; z=0;output;
function='draw';
x=100; y=33; z=0;output;
function='move';
x=33; y=100; z=0;output;
function='draw';
x=33; y=0; z=0;output;
function='move';
x=66; y=100; z=0;output;
function='draw';
x=66; y=0; z=0;output;
run;
proc g3d data=old;
scatter yvar*xvar=zvar / annotate=anno shape='pillar' size=2 color='blue';
title 'Intersecting Plane';
run;
quit;
This code will produce a grid plane that intersects the Z axis at zero. The annotate facility is used to produce the plane.
| Type: | Sample |
| Topic: | SAS Reference ==> Procedures ==> G3D
|
| Date Modified: | 2005-08-24 16:06:23 |
| Date Created: | 2004-11-11 11:07:51 |
Operating System and Release Information
| SAS System | SAS/GRAPH | All | n/a | n/a |
