File: ex10.sce

package info (click to toggle)
scilab 2.6-4
  • links: PTS
  • area: non-free
  • in suites: woody
  • size: 54,632 kB
  • ctags: 40,267
  • sloc: ansic: 267,851; fortran: 166,549; sh: 10,005; makefile: 4,119; tcl: 1,070; cpp: 233; csh: 143; asm: 135; perl: 130; java: 39
file content (22 lines) | stat: -rw-r--r-- 652 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
//1-Creating interface source file (matusr.f)
// from ex10fi.desc file by call to intersci
// Making object files
//   Interface file '/tmp/ex10fi.o'
//   User's files '/tmp/ex10f.o';
//
files=G_make(['/tmp/ex10fi.o','/tmp/ex10f.o'],'ex10.dll');
//2-Link object files .o with addinter
//addinter(files,'ex10fi',matusr_funs);
exec('ex10fi.sce');
//Test Scilab functions:
// calc1: 3 matrix input variables and at most 3 output variables of
// types double, real, int
l=calc10(list(1,[2,3],[1,2;3,4]));
if norm(l(1)-2) > %eps then pause,end
if norm(l(2)-([2,3]+[1,2])) > %eps then pause,end
if norm(l(3)-([1,2;3,4]+[1,3;2,4])) > %eps then pause,end