HW#6 Problem 1: Differential form of Lz

In[]:=
Remove["Global`*"]​​$Assumptions=r>0&&θ>0&&θ<Pi&&ϕ>0&&ϕ<2Pi;
In[]:=
xp=rCos[ϕ]Sin[θ];​​yp=rSin[ϕ]Sin[θ];​​zp=rCos[θ];
In[]:=
sol=Solve[{xxp,yyp,zzp},{r,θ,ϕ}];​​drdx=Simplify[D[r/.sol[[3]],x]/.{xxp,yyp,zzp}]​​dθdx=Simplify[D[θ/.sol[[3]],x]/.{xxp,yyp,zzp}]​​dϕdx=Simplify[D[ϕ/.sol[[3]],x]/.{xxp,yyp,zzp}]​​drdy=Simplify[D[r/.sol[[3]],y]/.{xxp,yyp,zzp}]​​dθdy=Simplify[D[θ/.sol[[3]],y]/.{xxp,yyp,zzp}]​​dϕdy=Simplify[D[ϕ/.sol[[3]],y]/.{xxp,yyp,zzp}]
Out[]=
$Aborted
Part
:Part specification sol〚3〛 is longer than depth of object.
ReplaceAll
:{sol〚3〛} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.
Out[]=
0
Part
:Part specification sol〚3〛 is longer than depth of object.
ReplaceAll
:{sol〚3〛} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.
Out[]=
0
Part
:Part specification sol〚3〛 is longer than depth of object.
ReplaceAll
:{sol〚3〛} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.
Out[]=
0
Part
:Part specification sol〚3〛 is longer than depth of object.
ReplaceAll
:{sol〚3〛} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.
Out[]=
0
Part
:Part specification sol〚3〛 is longer than depth of object.
ReplaceAll
:{sol〚3〛} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.
Out[]=
0
Part
:Part specification sol〚3〛 is longer than depth of object.
ReplaceAll
:{sol〚3〛} is neither a list of replacement rules nor a valid dispatch table, and so cannot be used for replacing.
Out[]=
0