PRINT
PRINT "＜３次元ベクトルの内積＞"
PRINT
LET n=3
DIM X(n),Y(n)
MAT INPUT PROMPT "ベクトル１の入力 ( 例： 1,2,3 )   ":X
MAT INPUT PROMPT "ベクトル２の入力 ( 例： 1,2,3 )   ":Y
PRINT
LET Q=DOT(X,Y)
PRINT "内積の結果 ＝";Q
PRINT
END