PRINT
PRINT "位置ベクトルを拡大させる写像を担うテンソル"
PRINT
PRINT "    R　0"
PRINT "    0  T       χ軸方向は R 倍、ｙ軸方向は T 倍"
PRINT
DIM A(2,2),T(2,2),R(2,2)
DATA 1,1
DATA 1,1
MAT READ A
SET WINDOW -1,5,-1,5
SET COLOR 1
DRAW GRID
SET COLOR 2
PLOT LINES:0,0;4,6
SET COLOR 42
DRAW DISK WITH SCALE(0.05)
WAIT DELAY 1
FOR i=1 TO 333
   SET DRAW mode hidden       ! ちらつき防止
   CLEAR
   SET COLOR 1
   DRAW GRID
   SET COLOR 2
   PLOT LINES:0,0;4,6
   LET T(1,1)=i
   LET T(1,2)=0
   LET T(2,1)=0
   LET T(2,2)=1.5*i
   MAT R=T*A
   SET COLOR 42
   DRAW DISK WITH SCALE(0.05)*SHIFT(R(1,1)/100,R(2,1)/100)
   WAIT DELAY 0.01
   SET DRAW mode explicit   ! ちらつき防止
NEXT i
CLEAR
END