兩直線之間的角 ( Angle between 2 lines )

( 程式版本：1.0，最後更新日期 14 AUG 2003。)

LBL 0	R/S	STO 1	R/S	STO 3	RCL 1
STO ÷3	R/S	STO 2	R/S	Kin 4	RCL 2
STO ÷4	RCL 3	STO 1	STO 2	RCL 4	STO –1
STO ×2	1	STO +2	RCL 2	x = 0?	GTO 1
STO ÷1	RCL 1	ABS	ATAN	GTO E	LBL 1
1	ASIN	LBL E	PRGM	33 steps

在執行程式前，請切記將計算機的角度量度單位轉至適合的模式。( 輸出的角是度數 degree 按 DEG，弧度 radian 按 RAD。)

例：計算直線 2x + y = 5 及 x - 3y = 4 之間的角。

按 XEQ 0，再按

2 R/S  1 R/S  ( 第一條直線 x 和 y 的係數 ( coefficient ) )
 1  R/S  3 +/- R/S  ( 第二條直線 x 和 y 的係數 )

顯示 81.87  ( 兩直線之間的銳角 )

亦即是說兩直線之間的銳角是 81.87°。

注意：程式不能處理其中一直線是垂直線 ( Vertical line ) 的情形。