d33006076f
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2009-sploving@12262 626c5289-ae23-0410-ae9c-e8d60b6d4f22
38 lines
549 B
Scilab
38 lines
549 B
Scilab
// loader the *.so
|
|
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
|