39 lines
558 B
Scilab
39 lines
558 B
Scilab
lines(0);
|
|
ilib_verbose(0);
|
|
exec loader.sce;
|
|
|
|
// create a new matrix
|
|
x = new_matrix();
|
|
for i = 0 : 3;
|
|
for j = 0 : 3;
|
|
set_m(x, i, j, i+j);
|
|
end;
|
|
end;
|
|
|
|
// print the matrix
|
|
print_matrix(x);
|
|
|
|
// another matrix
|
|
y = new_matrix();
|
|
for i = 0 : 3;
|
|
for j = 0 : 3;
|
|
set_m(y, i, j, i-j);
|
|
end;
|
|
end;
|
|
|
|
// print the matrix
|
|
print_matrix(y);
|
|
|
|
// mat_mult the two matrix, and the result is stored in a new matrix
|
|
z = new_matrix();
|
|
|
|
mat_mult(x, y, z);
|
|
|
|
print_matrix(z);
|
|
|
|
//destroy the matrix
|
|
destroy_matrix(x);
|
|
destroy_matrix(y);
|
|
destroy_matrix(z);
|
|
|
|
exit
|