summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Subs.sci
blob: 785b605cf17d0630bd2369fc80db1ce056a928bf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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