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
55 PRINT "eigenvalues are"
60 PRINT h; g
70 i = a - g
80 l = d - g + .5
83 j = b
84 k = c
90 f = (i * l) - (j * k)
100 ii = l
110 jj = -j
120 kk = -k
130 ll = i
140 m = ii / f
150 n = jj / f
160 o = kk / f
170 p = ll / f
180 n = n / 2
190 p = p / 2
200 q = n
210 r = p
220 i = a - h
230 l = d - h + .5
240 j = b
250 k = c
260 f = (i * l) - (j * k)
270 ii = l
280 jj = -j
290 kk = -k
300 ll = i
310 m = ii / f
320 n = jj / f
330 o = kk / f
340 p = ll / f
350 n = n / 2
360 p = p / 2
370 s = n
380 t = p
390 PRINT "eigenvectors are"
400 PRINT q; s
PRINT r; t