((OverDot[p])=((π ρ (d^4)p v (Subscript[C, spin]))/(8 (Subscript[I, x]))),(13))