File: demotrad.dem

package info (click to toggle)
scilab 2.4-1
  • links: PTS
  • area: non-free
  • in suites: potato, slink
  • size: 55,196 kB
  • ctags: 38,019
  • sloc: ansic: 231,970; fortran: 148,976; tcl: 7,099; makefile: 4,585; sh: 2,978; csh: 154; cpp: 101; asm: 39; sed: 5
file content (37 lines) | stat: -rw-r--r-- 790 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
mode(-1)
// Copyright INRIA
getf('SCI/demos/sci2for/printspecs.sci','c')
deff('[]=message(txt)','write(%io(2),txt,''(a)'')')
path='SCI/demos/sci2for/'
deff('[]=demoexc(fil)','exec(path+fil,-1)')

while %t do
  n=x_choose(['Clauses, loops and operations';
              'Matrix concatenation';
	      'Concatenations and inversions';
	      'Call of simple primitives';
	      'Operation with complex numbers';
	      'Matrix divisions ';
	      ],'Which macro is to be translated ?')
  if n==0 then break,end
  nam='t'+string(n)
  select n,
  case 1 then,
    demoexc('dem1.sce')
  case 2 then,
    demoexc('dem2.sce')
  case 3 then,
    demoexc('dem3.sce')
  case 4 then,
    demoexc('dem4.sce')
  case 5 then,
    demoexc('dem5.sce')
  case 6 then,
    demoexc('dem6.sce')
  end
end