eus$ (setq v1 (float-vector 1 2 3 4)) #f(1.0 2.0 3.0 4.0) eus$ (setq v2 (float-vector 5 6 7 8)) #f(5.0 6.0 7.0 8.0) eus$ (float-vector-p v1) ;;; 型がfloat-vectorか t ;;; eus$ (v+ v1 v2) ;;; 足し算 #f(6.0 8.0 10.0 12.0) eus$ (v- v1 v2) ;;; 引き算 #f(-4.0 -4.0 -4.0 -4.0) eus$ (v. v1 v2) ;;; 内積 70.0 eus$ (scale 3 v2) ;;; 定数倍 #f(15.0 18.0 21.0 24.0) ;;; eus$ (norm v1) ;;; 長さ 5.47722 eus$ (normalize-vector v1) ;;; 長さ1に正規化 #f(0.182574 0.365148 0.547723 0.730297) ;;; eus$ (distance v1 v2) ;;; 距離 8.0