3 PRINT "input the 2x2 matrix by rows"
5 DEFDBL A-Z
10 INPUT a
11 INPUT b
12 INPUT c
13 INPUT d
40 g = (((a + d) + ((((a + d) ^ 2) - 4 * ((a * d) - (b * c))) ^ .5))) / 2
50 h = (((a + d) - ((((a + d) ^ 2) - 4 * ((a * d) - (b * c))) ^ .5))) / 2
60 PRINT h
70 PRINT g
80 i = 1 / (a - h)
90 j = 1 / (a - g)
100 m = i * -b
110 n = j * -b
120 PRINT "eigenvectors are"
130 PRINT m; n
140 PRINT 100000000; 100000000
150 o = 1
160 p = 1
165 q = m - n
166 PRINT q
170 r = m / q
180 s = n / q
190 t = o / q
200 u = p / q
210 v = (r ^ 2) + (s ^ 2) + (t ^ 2) + (u ^ 2)
220 v = v ^ .5
230 PRINT "Frobenius norm of inverse transverse eigenvectors is"
240 PRINT v