apl>" <------------------------- sam054.txt ---------------------------->


apl>" <--- Inner Product ----------------------------------------------->


apl>  p # 2 3 5 7


apl>  L # m # (I4) J.K I4

1 1 1 1
0 1 1 1
0 0 1 1
0 0 0 1


apl>  m +.X m

1 2 3 4
0 1 2 3
0 0 1 2
0 0 0 1

apl>  m +.X p

17 15 12 7

apl>  p +.X m

2 5 10 17

apl>  m &.= m

0 0 0 1
0 0 0 0
0 0 0 0
0 0 0 0

apl>  m _.X m

1  0 1  0
0 -1 0 -1
0  0 1  0
0  0 0 -1

apl>  p X.* m

2 6 30 210

apl>  m &.= 0 0 1 1

0 0 1 0

apl>  p +.X 1

17

apl>)off