戻る|進む
DCL:MATH1:CTRLIB : 座標変換/回転:サブルーチンの説明
2次元直角座標を回転する.
CALL CR2C(THETA,X0,Y0,X1,Y1)
THETA (R) 回転角. X0,Y0 (R) 回転前の座標値. X1,Y1 (R) 回転後の座標値.
x1 = cos(θ)x0 sin(θ)y0 y1 = -sin(θ)x0 cos(θ)y0