summaryrefslogtreecommitdiff
path: root/3293/CH10/EX10.5/Ex10_5.sce
blob: 86576d316a6249c63b586408cb8c36ef7ee1acef (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//page 365
//Example 10.5
clc;
clear;
close;
n = round(rand() * 10 + 2);
a = round(rand(1,n) * 10);
b = round(rand(1,n) * 10);
disp(n,'n = ');
disp(a,'a = ');
disp(b,'b = ');
f = a * b';
disp(f,'f(a,b) = ');
disp('f is non-degenerate billinear form on R^n.');
//end