| Class | Geometry |
| In: |
geometry.f90
|
幾何学に関するルーチン
| Subroutine : | |||
| r : | real, intent(in)
| ||
| t : | real, intent(in)
| ||
| x : | real, intent(inout)
| ||
| y : | real, intent(inout)
|
平面デカルト座標から平面極座標への変換
subroutine rt_2_xy( r, t, x, y ) ! 平面デカルト座標から平面極座標への変換 implicit none real, intent(in) :: r ! 中心からの距離 real, intent(in) :: t ! x 軸からの角度 [rad] real, intent(inout) :: x ! x 座標 real, intent(inout) :: y ! y 座標 x=r*cos(t) y=r*sin(t) end subroutine