|
Lines 6-24
Link Here
|
| 6 |
%% |
6 |
%% |
| 7 |
|
7 |
|
| 8 |
% Path of epstk-mfiles |
8 |
% Path of epstk-mfiles |
| 9 |
ePath='./'; % local directory |
9 |
%ePath='./'; % local directory |
| 10 |
%ePath='/usr/share/octave/site/m/octave-epstk/';%or e.g. on a linux system |
10 |
ePath='/usr/share/octave/site/m/octave-epstk/';%or e.g. on a linux system |
| 11 |
|
11 |
|
| 12 |
% Read user-parameter-file (octave on linux system) |
12 |
% Read user-parameter-file (octave on linux system) |
| 13 |
%eInitUserFile=[system('echo -n $HOME') '/.epstkInit.m']; |
13 |
eInitUserFile=[system('echo -n $HOME') '/.epstkInit.m']; |
| 14 |
%if exist(eInitUserFile)~=2 |
14 |
if exist(eInitUserFile)~=2 |
| 15 |
% [userParaText n]=etxtread([ePath 'einit.m']); |
15 |
[userParaText n]=etxtread([ePath 'einit.m']); |
| 16 |
% userParaStartPos=findstr(userParaText(1:1000),'% Parameter for epstk'); |
16 |
userParaStartPos=findstr(userParaText(1:1000),'% Parameter for epstk'); |
| 17 |
% etxtwrit(userParaText(userParaStartPos(2):n),eInitUserFile); |
17 |
etxtwrit(userParaText(userParaStartPos(2):n),eInitUserFile); |
| 18 |
% clear userParaText |
18 |
clear userParaText |
| 19 |
%end |
19 |
end |
| 20 |
%source(eInitUserFile); |
20 |
source(eInitUserFile); |
| 21 |
%return |
21 |
return |
| 22 |
|
22 |
|
| 23 |
% Parameter for epstk |
23 |
% Parameter for epstk |
| 24 |
% written by stefan.mueller@fgan.de (C) 2005 |
24 |
% written by stefan.mueller@fgan.de (C) 2005 |
