summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci21
1 files changed, 21 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci
new file mode 100755
index 00000000..785b605c
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci
@@ -0,0 +1,21 @@
+//
+// 08.06.04
+
+function V=Subs(SbstrL,StrF)
+ Str=StrF;
+ if type(StrF)==2
+ Str=pol2str(StrF);
+ end
+ V=StrF;
+ for N=1:size(SbstrL,2)
+ Sbstr=SbstrL(1,N);
+ I=mtlb_findstr(Sbstr,'=');
+ Tmp=strsplit(Sbstr,I);
+ SbA=Tmp(1);
+ SbA=Op(1:length(SbA)-1,SbA);
+ SbB=Tmp(2);
+ V=strsubst(V,SbA,SbB);
+ end
+ V=evstr(V);
+endfunction
+