1. ;;X=sinθ
    2. ;;(- 1 (* X X))=cosθ2
    3. ;;(expt (- 1 (* X X)) 0.5)=cosθ
    4. (defun Arcsin(X) (Atan (/ X (expt (- 1 (* X X)) 0.5))))