dphi.clj

(/ (+ (* -1.35E9
         'v_theta
         'v_phi
         (Math/pow (Math/sin 'theta) 2.0)
         (Math/cos 'theta)
         (Math/pow (Math/cos 'phi) 2.0))
      (* 6.75E8
         (Math/pow 'v_phi 2.0)
         (Math/pow (Math/sin 'theta) 3.0)
         (Math/sin 'phi)
         (Math/cos 'phi))
      (* 6.75E8
         (Math/pow 'v_theta 2.0)
         (Math/sin 'theta)
         (Math/sin 'phi)
         (Math/cos 'phi))
      (* -3.5E8
         'v_theta
         'v_phi
         (Math/pow (Math/cos 'theta) 3.0))
      (* -4.41E9
         (Math/sin 'theta)
         (Math/sin 'phi)
         (Math/cos 'theta)
         (Math/cos 'phi))
      (* -4.5E8 'v_theta 'v_phi (Math/cos 'theta)))
   (+ (* 6.75E8
         (Math/pow (Math/sin 'theta) 3.0)
         (Math/pow (Math/cos 'phi) 2.0))
      (* 1.75E8
         (Math/sin 'theta)
         (Math/pow (Math/cos 'theta) 2.0))
      (* 2.25E8 (Math/sin 'theta))))