10  REM EXAMPLE OF NORM CALCULATIONS - for extended features
15  OPTION BASE 1
20  DIM A(4,4)
30  MAT A=IDN
40  PRINT "FROBENIUS NORM OF IDENTITY MATRIX = ";FNORM(A)
50  PRINT "ROW NORM OF IDENTITY MATRIX       = ";RNORM(A)
60  PRINT "COLUMN NORM OF IDENTITY MATRIX    = ";CNORM(A)
65  PRINT
70  MAT A=CON
80  PRINT "FROBENIUS NORM OF UNITY MATRIX    = ";FNORM(A)
90  PRINT "ROW NORM OF UNITY MATRIX          = ";RNORM(A)
100 PRINT "COLUMN NORM OF UNITY MATRIX       = ";CNORM(A)
110 MAT READ A
120 PRINT "FROBENIUS NORM OF READ MATRIX     = ";FNORM(A)
130 PRINT "ROW NORM OF READ MATRIX           = ";RNORM(A)
140 PRINT "COLUMN NORM OF READ MATRIX        = ";CNORM(A)
150 DATA 2,3,-4,1,5,0,3,1,1,1,4,1,-1,-1,1,2
160 PRINT
170 PRINT
200 PRINT "YOU SHOULD READ FOR THIS LAST CASE:"
210 PRINT "FNORM = 9.53939"
220 PRINT "RNORM = 10"
230 PRINT "CNORM = 12" 
999 END

