5 REM TEST FOR DOT()
10 DATA 1.1,3.67,-5.5,4,-2,-1,SIN(2),LOG(2),TAN(2)
15 PRINT "CASE OF TWO VERTICAL VECTORS"
20 DIM A(2),B(2)
30 MAT READ A,B
40 PRINT "VECTOR A"
50 MAT PRINT A
60 PRINT "VECTOR B"
70 MAT PRINT B
80 C = DOT(A,B)
90 PRINT "DOT PRODUCT = ";C
95 RESTORE
115 PRINT "CASE OF TWO HORIZONTAL VECTORS"
120 DIM C(0,2),D(0,2)
130 MAT READ C,D
140 PRINT "VECTOR C"
150 MAT PRINT C
160 PRINT "VECTOR D"
170 MAT PRINT D
180 C = DOT(C,D)
190 PRINT "DOT PRODUCT = ";C
195 RESTORE
215 PRINT "CASE OF A HORIZONTAL VECTOR AND A VERTICAL ONE"
220 DIM E(2),F(0,2)
230 MAT READ E,F
240 PRINT "VECTOR E"
250 MAT PRINT E
260 PRINT "VECTOR F"
270 MAT PRINT F
280 C = DOT(E,F)
290 PRINT "DOT PRODUCT = ";C
295 RESTORE
300 PRINT "NOW I TRY TO REDIM A"
310 DIM A(2,2)
320 MAT READ A
330 PRINT "REDIM A"
340 MAT PRINT A
