summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci21
1 files changed, 0 insertions, 21 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci
deleted file mode 100644
index 785b605c..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-//
-// 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
-