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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
// Main Scilab initialisation file
// Copyright INRIA
mode(-1); // silent execution mode
// clean database when restarted
predef(0); //unprotect all variables
clear // erase all variables
// Set stack size
newstacksize=1000000;
old=stacksize()
if old(1)<>newstacksize then stacksize(newstacksize),end
// Startup message
t=[' '
' '
'Startup execution:'];
write(%io(2),t)
clear t;
// Special variables definition
%inf=10000.3^10000.3;%nan=%inf-%inf;
%s=poly(0,'s');%z=poly(0,'z');
$=poly(0,'$')
%T=%t;%F=%f; // boolean variables
SCI=getenv('SCI') // path of scilab main directory
// Load scilab functions libraries
errcatch(48,'continue');
write(%io(2),' loading initial environment')
load('SCI/macros/mtlb/lib')
load('SCI/macros/algebre/lib')
load('SCI/macros/arma/lib')
load('SCI/macros/auto/lib')
load('SCI/macros/calpol/lib')
load('SCI/macros/comm/lib')
load('SCI/macros/elem/lib')
load('SCI/macros/metanet/lib')
load('SCI/macros/optim/lib')
load('SCI/macros/robust/lib')
load('SCI/macros/sci2for/lib')
load('SCI/macros/signal/lib')
load('SCI/macros/tdcs/lib')
load('SCI/macros/util/lib')
load('SCI/macros/xdess/lib')
load('SCI/macros/sound/lib')
load('SCI/macros/fraclab/lib')
load('SCI/macros/percent/lib')
// Create a temporary directory
TMPDIR=getenv('TMPDIR')
PWD = getcwd()
home= getenv('HOME','ndef');
if home=='ndef',home=unix_g('cd; pwd');end
// Protect variable previously defined
clear ans
predef()
// Define scicos palettes of blocks
scicos_pal=['Inputs/Outputs','SCI/macros/scicos/Inputs_Outputs.cosf'
'Linear','SCI/macros/scicos/Linear.cosf';
'Non linear','SCI/macros/scicos/Non_linear.cosf';
'Events','SCI/macros/scicos/Events.cosf';
'Treshold','SCI/macros/scicos/Treshold.cosf';
'Others','SCI/macros/scicos/Others.cosf';
'Branching','SCI/macros/scicos/Branching.cosf'];
// calling user initialization
//=============================
// Home dir
[startup,ierr]=file('open','home/.scilab','old','formatted');
if ierr==0 then
exec(startup,-1);file('close',startup);
clear startup ierr
end
// working dir
if home<>PWD then
[startup,ierr]=file('open','.scilab','old','formatted');
if ierr==0 then
exec(startup,-1);file('close',startup);
clear startup ierr
end;
end
|
