OPTION ANGLE DEGREES
PRINT
PRINT "２次元直交座標系： 極座標表示 → ＸＹ座標表示"
PRINT
INPUT PROMPT "角度（度）？ ":S
INPUT PROMPT "大きさ？ ":L
PRINT
DIM A(2,1)
DIM T(2,1)
CALL zahy(S,L,T)
PRINT "   χ ＝";ROUND(T(1,1),3)
PRINT "   ｙ ＝";ROUND(T(2,1),3)
PRINT 
END

EXTERNAL SUB zahy(W,N,A(,))      ! 極座標表示 → ＸＹ座標表示
OPTION ANGLE DEGREES
LET A(1,1)=N*COS(W)
LET A(2,1)=N*SIN(W)
END SUB



######################################################################



PRINT
PRINT "２次元直交座標系： 極座標表示 → ＸＹ座標表示"
PRINT
INPUT PROMPT "角度（ラジアン）π×？ ":S
INPUT PROMPT "大きさ？ ":L
PRINT
DIM A(2,1)
DIM T(2,1)
CALL zahy(S*PI,L,T)
PRINT "   χ ＝";ROUND(T(1,1),2)
PRINT "   ｙ ＝";ROUND(T(2,1),2)
PRINT 
END

EXTERNAL SUB zahy(W,N,A(,))      ! 極座標表示 → ＸＹ座標表示
LET A(1,1)=N*COS(W)
LET A(2,1)=N*SIN(W)
END SUB