/usr/share/doc/swig4.0-examples/Examples/scilab/matrix/runme.sci

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

Generated by dwww version 1.15 on Tue Jul 2 00:15:09 CEST 2024.