ATAN2AG - [数値] |
||||||
… アークタンジェント値の算出(座標指定、角度)
ATAN2AG(X,Y)
X: X座標
Y: Y座標
2つの変数(座標)からアークタンジェント値を求めます。返る値は角度です。
SIN、COS、TAN、SINAG、COSAG、TANAG、ATAN、ATANAG、ATAN2
REM 944BASIC 'ATAN2AG サンプル'
X=90:Y=90:BX=30:BY=30:REM 初期位置
MESSAGE '矢印キーで◇を動かして!'
*LOOP SYNC
X=X+PADX*3:Y=Y+PADY*3
IF X<0 THEN X=239
IF X>239 THEN X=0
IF Y<0 THEN Y=239
IF Y>239 THEN Y=0
GCURSOR XO,YO:PRINT ' '
GCURSOR X,Y:PRINT '◇':XO=X:YO=Y
A=ATAN2AG(X-BX,Y-BY):REM 角度取得
REM ATAN2AGの角度から座標算出
BX=BX+SINAG(A)*4:BY=BY+COSAG(A)*4
GCURSOR BXO,BYO:PRINT ' '
GCURSOR BX,BY:PRINT '●'
BXO=BX:BYO=BY
GOTO *LOOP
ATAN2AG - [数値] |