導出メモ すぐ忘れるw これを の二次方程式と見て解くと 但しプラスの解だけを取った。ここで両辺の対数を取ると、 となる。 さて と置き換えることを考えると なので、 が求まる。 check program arcsine implicit none real :: x complex :: c, ci = (0.0, 1.0) integer :: i do i = 1, 10 call random_number(x) print *, x, ':', asin(x), -ci * log(ci*x+sqrt(1.0-x*x)) end do print * do i = 1, 10 c …