summaryrefslogtreecommitdiff
path: root/3293/CH1/EX1.10/Ex1_10.sce
blob: 9185c089b5039032b2bb2bb5d6f7d84dfde5014c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
//page 17
//Example 1.10
clear;
close;
clc;
//Part a
a = [1 0;-3 1];
b = [5 -1 2;15 4 8];
disp(a,'a=');
disp(b,'b=');
disp(a*b,'ab = ');
disp('-----------------------------------------------------------------');
//Part b
a = [1 0;-2 3;5 4;0 1];
b = [0 6 1;3 8 -2];
disp(a,'a=');
disp(b,'b=');
disp(a*b,'ab = ');
disp('-----------------------------------------------------------------');
//Part c
a = [2 1;5 4];
b = [1;6];
disp(a,'a=');
disp(b,'b=');
disp(a*b,'ab = ');
disp('-----------------------------------------------------------------');
//Part d
a = [-1;3];
b = [2 4];
disp(a,'a=');
disp(b,'b=');
disp(a*b,'ab = ');
disp('-----------------------------------------------------------------');
//Part e
a = [2 4];
b = [-1;3];
disp(a,'a=');
disp(b,'b=');
disp(a*b,'ab = ');
disp('-----------------------------------------------------------------');
//Part f
a = [0 1 0;0 0 0;0 0 0];
b = [1 -5 2;2 3 4;9 -1 3];
disp(a,'a=');
disp(b,'b=');
disp(a*b,'ab = ');
disp('-----------------------------------------------------------------');
//Part g
a = [1 -5 2;2 3 4;9 -1 3];
b = [0 1 0;0 0 0;0 0 0];
disp(a,'a=');
disp(b,'b=');
disp(a*b,'ab = ');
//end