43 lines
637 B
Scilab
43 lines
637 B
Scilab
lines(0);
|
|
ilib_verbose(0);
|
|
ierr = exec('loader.sce', 'errcatch');
|
|
if ierr <> 0 then
|
|
disp(lasterror());
|
|
exit(ierr);
|
|
end
|
|
|
|
// 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
|