20.3.6 CR2C

1.
機能
2次元直角座標を回転する.
2.
呼び出し方法
CALL CR2C(THETA,X0,Y0,X1,Y1)
3.
パラメーターの説明
THETA (R) 回転角.
X0,Y0 (R) 回転前の座標値.
X1,Y1 (R) 回転後の座標値.
4.
備考
(a)
定義式
  
 x1 =  cos(θ)x0 sin(θ)y0
 y1 =  -sin(θ)x0 cos(θ)y0