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,
a) your input is nonsense -- your input gave not a
(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}}];
>
> But, the figure is so strange....It looks like 2 planes...I don't why..Please help me!
>
> Thanks in advance!