summaryrefslogtreecommitdiff
path: root/3293/CH9/EX9.1/Ex9_1.sce
blob: 6191d582db28723976aa7af83620aba648117ab4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//page 352
//Example 9.1
clc;
clear;
close;
disp('A = ');
disp('r    *     |cos(thetha)       -sin(thetha)|');
disp('           |sin(thetha         cos(thetha)|');
disp('Characteristic polynomial for T:');
disp('p = det(xI - A)');
disp('p = x - 2*r*cos(thetha*x) + r^2 ');
disp('if, a = r*cos(thetha)');
disp('b = r*sin(thetha)');
disp('c = a + ib,   b is not equal to 0');
disp('Then, A = ');
disp('a     -b');
disp('b      a');
disp('p = (x-c)(x-c'')');
disp('So, p is reducible over R and it is the minimal polynomial');
//end