| lines(0); |
| ilib_verbose(0); |
| ierr = exec('loader.sce', 'errcatch'); |
| if ierr <> 0 then |
| disp(lasterror()); |
| exit(ierr); |
| end |
| |
| // Test lib double matrix functions |
| disp("Call lib function getDoubleMatrix()"); |
| doubleMatrix = getDoubleMatrix(5, 3); |
| disp(doubleMatrix); |
| |
| disp("Call lib function sumDoubleMatrix()"); |
| s = sumDoubleMatrix(doubleMatrix); |
| disp(s); |
| |
| disp("Call lib function squareDoubleMatrix()"); |
| sqrd = squareDoubleMatrix(doubleMatrix); |
| disp(sqrd); |
| |
| disp("Extract various indexes"); |
| disp(extractDoubleMatrix(doubleMatrix, 2)); |
| disp(extractDoubleMatrix(doubleMatrix, 2:5)); |
| disp(extractDoubleMatrix(doubleMatrix, :)); |
| |
| |
| |
| // Test lib integer matrix functions |
| |
| disp("Call lib function getIntegerMatrix()"); |
| integerMatrix = getIntegerMatrix(); |
| disp(integerMatrix); |
| |
| disp("Call lib function sumIntegerMatrix()"); |
| s = sumIntegerMatrix(integerMatrix); |
| disp(s); |
| |
| disp("Call lib function squareIntegerMatrix()"); |
| sqri = squareIntegerMatrix(integerMatrix); |
| disp(sqri); |
| |
| |
| // Test lib string matrix functions |
| |
| disp("Call lib function getStringVector()"); |
| stringVector = getStringVector(); |
| disp(stringVector); |
| |
| disp("Call lib function concatStringVector()"); |
| stringVector2 = concatStringVector(stringVector); |
| disp(stringVector2); |
| |
| exit |
| |
| |
| |