Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: help with mathematica problem

• To: mathgroup at smc.vnet.net
• Subject: [mg34616] Re: [mg34557] help with mathematica problem
• From: "Juan E. Fuentes" <jfuentes at ff.oc.uh.cu>
• Date: Wed, 29 May 2002 02:47:00 -0400 (EDT)
• References: <200205270517.BAA20746@smc.vnet.net>
• Reply-to: "Juan E. Fuentes" <jfuentes at ff.oc.uh.cu>
• Sender: owner-wri-mathgroup at wolfram.com

HI, Nilkamal:
I am sending you a possible solution to your problem:
Needs["Graphics`Graphics`"];
Needs["Graphics`Graphics3D`"];
Needs["Graphics`Colors`"];
DisplayTogether[
  ParametricPlot3D[{1.5*Cos[t] + 2, 1.5*Sin[t] + 3, 2}, {t, 0, 2 Pi}],
  Show[Graphics3D[{PointSize[0.04], Red, Point[{2, 3, 2}]}]]]
Sincerely yours, Juan
----- Original Message -----
From: "Nilkamal" <nshah at uiuc.edu>
To: mathgroup at smc.vnet.net
Subject: [mg34616] [mg34557] help with mathematica problem


> Hi, I'm having trouble solving the following problem:
>
> Plot the circle parallel to the yz plane of radius 1.5 centred at (2,3,2).
>
> the problem is here:
>
> Evaluate[{2,3,2} + 1.5 {Cos[t], Sin[t], 0}]
>
> I don't know what to put above.
>

• References:
  • help with mathematica problem
    • From: "Nilkamal" <nshah@uiuc.edu>