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
|