Acet-angle-equal
- 構文
- (acet-angle-equal angle1 angle2 [ tolerance ])
- 機能
- 2つの角度（ラジアン単位）が、指定した許容誤差の範囲内で等しいかどうかを比較する。
- 引数
-
- angle1 … 比較する最初の角度（ラジアン）。
- angle2 … 比較する2番目の角度（ラジアン）。
- tolerance … 許容誤差（ラジアン）。デフォルトは 1.0e-10
- 戻り値
- 角度が許容誤差内で等しい場合は T、そうでない場合は nil。
- サンプル
(defun c:CompareAngles ()
(setq ang1 (/ pi 4.0)) ; 45度
(setq ang2 (+ (/ pi 4.0) 1.0e-12)) ; 非常に近い角度
(if (acet-angle-equal ang1 ang2)
(princ "\n2つの角度は等しいっぽよ。")
(princ "\n2つの角度は違うっぽいよ。")
)
(princ)
)
関連事項