坐標變換-旋轉
程式更新日期: 2010年7月22日
程式一參考了網友 roviury 的修改建議。
程式一(23 bytes，使用記憶為X, Y及A)
?→X: ?→Y: ?→A: Rec( Pol( X , Y, Y+A◢ Y
程式二由Webcal論壇網友提供。
注意: 程式二需要在 CMPLX 模式下執行，因此在選擇新程式位置後，按 2 選用CMPLX模式，而 ►a+bi 是按 SHIFT -。
程式二(17 bytes，使用記憶為A及B)
?→A: ?→B: ?→A: Abs A∠(B+arg A►a+bi
例題: 求點 (4, 3)繞原點逆時針方向旋轉90o的坐標。
注意: 這個例題要在DEG Mode 之下執行。
程式一按法
按 Prog 1 再按 4 EXE 3 EXE 90 EXE (逆時針取正值輸入，顯示x坐標為 -3) EXE (顯示y坐標為4)
程式二按法
按 Prog 1 再按 4 + 3i EXE 90 EXE (逆時針取正值輸入，顯示x坐標為 -3) Shift Re<=>Im EXE (顯示4i即y坐標為4)
注意: 本程式取逆時針旋轉為正值，順時針旋轉為負值。若果希望是順時針取正，逆時針為負，程式一中的 Rec( X, Y+A可改為 Rec( X, Y-A，而程式二中的 B+arg A 可改為 arg A - B即可。