| Original Message (ID '84991') By Bill Simpson: |
| 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] |
|
