MathGroup Archive 2005

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

Search the Archive

Re: Normal Disappear Problem


Rick,

In parametric mode there are often troublesome points.

Notice your normal is not normalized :

normal[u_, v_] := {Sin[v]^2 Cos[u], Sin[v]^2 Sin[u],
      Cos[u]^2 Cos[v] Sin[v]+Sin[u]^2 Cos[v] Sin[v]};

normal[u,v].normal[u,v]//Simplify

	Sin[v]^2


My way to tackle the exception (0,0) :


unitNormal[u_, v_] := normal[u,v] / Sqrt[normal[u,v].normal[u,v]];


unitNormal[0,0]

	{Indeterminate,Indeterminate,Indeterminate}

Series[unitNormal[u,v],{u,0,1},{v,0,1}]//Normal

	{v, u v, 1}

% /. u -> 0 /. v -> 0

	{0, 0, 1}

Then let :
unitNormal[0,0] = {0,0,1}
and you're done.


hth

Valeri


  • Prev by Date: Re: Distance from point to set
  • Next by Date: Re: Writing result of "Do" in a single List
  • Previous by thread: Re: Normal Disappear Problem
  • Next by thread: Re: Normal Disappear Problem