Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: Simple 3D plot of two points

• To: mathgroup at smc.vnet.net
• Subject: [mg41551] Re: [mg41517] Simple 3D plot of two points
• From: "German Buitrago A." <gerbual at col2.telecom.com.co>
• Date: Mon, 26 May 2003 05:46:28 -0400 (EDT)
• References: <200305240503.BAA00962@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

Jong:  
  
This is a form.

In[1]:=
a = {1, 0, 2};

In[2]:=
b = {10, 3, 3};

In[3]:=
Show[Graphics3D[Point /@ {a, b}], Axes -> True];

For an enhanced presentation:

In[4]:=
Show[Graphics3D[{PointSize[0.02], Hue[0.9], Point /@ 
      {a, b}}], Axes -> True, BoxRatios -> {1, 1, 0.8}];

Greetings,

German Buitrago A.
Manizales, Colombia


----- Original Message ----- 
From: "Jong Choi" <jxc91 at po.cwru.edu>
To: mathgroup at smc.vnet.net
Subject: [mg41551] [mg41517] Simple 3D plot of two points


> Dear All,
> This is a simple problem but I don't know what function does it.
> 
> I want to plot 2 points in the 3d space
> a={{1,0,2}};
> b={{10,3,3}};
> 
> Please let me know ASAP.
> Thanks,
> Jong
> 
> 
> 

• References:
  • Simple 3D plot of two points
    • From: "Jong Choi" <jxc91@po.cwru.edu>