Re: making a plane

• To: mathgroup at smc.vnet.net
• Subject: [mg24216] Re: making a plane
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Sat, 1 Jul 2000 03:21:47 -0400 (EDT)
• Organization: Universitaet Leipzig
• References: <8jhcqf\$q1i@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi,

(strange) figure it gave some error messages
b) what dou you mean -- you give just a table
of numbers mean the table {{x1,y1,z1},{x2,y2,z2},...}
than you must type

c = Show[Graphics3D[
Polygon [ {{0.0517, 0.0847, 0.1004}, {0.0517, -0.0187,
0.0344}, {-0.0517, 0.0187, 0.0690}, {-0.0517, -0.0847,
0.0030}}], Axes -> Automatic]];

or use the DiscreteMath`ComputationalGeometry`TriangularSurfacePlot[]
function

or mean the table {{z11,z12,z13},{z21,z22,z23},.. }
than you must type
c = Show[SurfaceGraphics[{{0.0517, 0.0847, 0.1004}, {0.0517, -0.0187,
0.0344}, {-0.0517, 0.0187, 0.0690}, {-0.0517, -0.0847,
0.0030}},
Axes -> Automatic, MeshRange -> {{-0.15, 0.15}, {-0.15,
0.15}}]];

Regards
Jens

KHS wrote:
>
> For given 4 points like this,
>
>     0.0517  ,  0.0847  ,  0.1004
>     0.0517  , -0.0187  ,  0.0344
>    -0.0517  ,  0.0187  ,  0.0690
>    -0.0517  , -0.0847  ,  0.0030
>
> I thought these points should be on the one plane....
> so I make
>
> c=Show[Graphics3D[
>
> [{{
>          0.0517  ,  0.0847  ,  0.1004},{   0.0517  , -0.0187  ,  0.0344},{
>                  -0.0517  ,  0.0187  ,  0.0690},{    -0.0517  , -0.0847  ,
>             0.0030}}]],Axes->Automatic,
>     PlotRange->{{-0.15,0.15},{-0.15,0.15},{-0.15,0.15}}];
>