| Author |
Comment/Response |
Bill Simpson
|
 10/26/12 11:52am
Substitute Sin and Cos for sin and cos and let Mathematica know you are only using Real values.
In[1]:= t=pi/2;p=0;k={Sin[t]*Cos[p],Sin[t]*Sin[p],Cos[t]};oP={x,y,z};
Assuming[Element[{t,x,y,z},Reals],
Simplify[Norm[k]]
]
Out[5]= 1
In[6]:= Assuming[Element[{t,x,y,z},Reals],
Simplify[Norm[oP]]
]
Out[6]= Sqrt[x^2 + y^2 + z^2]
URL: , |
|
