3 dimensional grid
- To: mathgroup at smc.vnet.net
- Subject: [mg6851] 3 dimensional grid
- From: "Dr. Sergio Terrazas" <sterraza at campus.cdj.itesm.mx>
- Date: Thu, 24 Apr 1997 02:44:31 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hello Mathgoup:
After posting a message requesting help on creating a 3 dimensional grid
to ilustrate triple integrals, I came up with the following solution:
xmin=2;xmax=6;ymin=1;ymax=5;zmax=5;zmin=1;n=6;
dx=(xmax-xmin)/n;dy=(ymax-ymin)/n;dz=(zmax-zmin)/n;
rx=Table[z=zmin+m dz;
Table[y=ymin+l dy;
Table[Line[{{xmin,y,z},{xmax,y,z}}],{k,0,n}]
,{l,0,n}]
,{m,0,n}];
ry=Table[z=zmin+m dz;
Table[x=xmin+l dx;
Table[Line[{{x,ymin,z},{x,ymax,z}}],{k,0,n}]
,{l,0,n}]
,{m,0,n}];
rz=Table[y=ymin+m dy;
Table[x=xmin+l dx;
Table[Line[{{x,y,zmin},{x,y,zmax}}],{k,0,n}]
,{l,0,n}]
,{m,0,n}];
rx=Union[Flatten[rx]];
ry=Union[Flatten[ry]];
rz=Union[Flatten[rz]];
Show[Graphics3D[{RGBColor[1,0,0],{rx,ry,rz}}],
Boxed->False
];
I imagine it is not the most efficient and/or elegant way of doing it,
but it works. If anybody would care to indicate a more efficient way,
It will be appreciated very much.
Thanks
Saludos from Mexico,
Sergio Terrazas