62/CH7/EX7.26/ex_7_26.sce


1
2
3
4
5
6
7
8
9
10
11
12

clear;
clc;
close;
A=[2 1;0 2];
D=[2 0; 0 2];
N=[0 1;0 0];
disp(N^2,"N*N=");
p=D*N;
q=N*D;
if (p==q) then
    disp("D and N commute")
end