PRINT
PRINT "＜行列の写像＞"
PRINT
PRINT "MAT INPUT の方法"
PRINT "     1   2"
PRINT "     3   4"
PRINT "上記の行列の入力方法は、1,2,3,4 です。"
PRINT
INPUT PROMPT "何行何列の正方行列？  ":n
PRINT
DIM X(n,n),Y(n,n),Z(n,n)
MAT INPUT PROMPT "変換元の行列を入力してください。 ":X
MAT INPUT PROMPT "テンソルの表現行列を入力してください。 ":Y
PRINT
PRINT "変換元の行列："
FOR i=1 TO n
   FOR j=1 TO n
      PRINT USING "####":X(i,j);
   NEXT j
   PRINT
NEXT i
PRINT
PRINT "テンソル（行列に作用させる演算子）："
FOR i=1 TO n
   FOR j=1 TO n
      PRINT USING "####":Y(i,j);
   NEXT j
   PRINT
NEXT i
PRINT
MAT Z=Y*X
PRINT "変換先の行列:"
FOR i=1 TO n
   FOR j=1 TO n
      PRINT USING "####":Z(i,j);
   NEXT j
   PRINT
NEXT i
PRINT
END