1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
// 08.08.16
// 08.09.16
// 09.11.14
// 10.08.19
// 13.10.22 ( __ added to varibles )
function Out__=Fullformfunc(FdL__)
Out__=MixS(Mixop(1,FdL__));
N__=Mixlength(FdL__);
for Jrg__=1:N__
Tmp__=Mixop(Jrg__,FdL__);
if part(Tmp__,length(Tmp__))==']'
break
end;
end;
Urg__=Mixop(Jrg__,FdL__);
K__=mtlb_findstr(Urg__,'=');
Uname__=stripblanks(part(Urg__,1:K__-1));
Tmp__=part(Urg__,K__+1:length(Urg__)); // 2013.10.22
Tmp1__=evstr(Tmp__);
Urg__=Uname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]";
Vrg__=Mixop(Jrg__+1,FdL__);
K__=mtlb_findstr(Vrg__,'=');
Vname__=stripblanks(part(Vrg__,1:K__-1));
Tmp__=part(Vrg__,K__+1:length(Vrg__));
Tmp1__=evstr(Tmp__);
Vrg__=Vname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]"; //
if Jrg__==2
Tmp__=Mixop(1,FdL__);
K__=mtlb_findstr(Tmp__,'=');
Zf__=part(Tmp__,K__+1:length(Tmp__));
Tmp__=MixS(Uname__,Vname__,Zf__,Urg__,Vrg__);
Out__=Mixjoin(Out__,Tmp__);
elseif Jrg__==4
Tmp__=Mixop(1,FdL__);
K__=mtlb_findstr(Tmp__,'=');
Zf__=part(Tmp__,K__+1:length(Tmp__));
Tmp__=Mixop(2,FdL__);
K__=mtlb_findstr(Tmp__,'=');
Xname__=stripblanks(part(Tmp__,1:K__-1));
Xf__=part(Tmp__,K__+1:length(Tmp__));
Tmp__=Mixop(3,FdL__);
K__=mtlb_findstr(Tmp__,'=');
Yname__=stripblanks(part(Tmp__,1:K__-1));
Yf__=part(Tmp__,K__+1:length(Tmp__));
Tmp__=strsubst(Zf__,Xname__,'('+Xf__+')');
Zf__=strsubst(Tmp__,Yname__,'('+Yf__+')');
Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__);
Out__=Mixjoin(Out__,Tmp__);
else
Tmp__=Mixop(2,FdL__);
K__=mtlb_findstr(Tmp__,'=');
Xf__=part(Tmp__,K__+1:length(Tmp__));
Tmp__=Mixop(3,FdL__);
K__=mtlb_findstr(Tmp__,'=');
Yf__=part(Tmp__,K__+1:length(Tmp__));
Tmp__=Mixop(4,FdL__);
K__=mtlb_findstr(Tmp__,'=');
Zf__=part(Tmp__,K__+1:length(Tmp__));
Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__);
Out__=Mixjoin(Out__,Tmp__);
end;
DrwS__='enws';
BdyL__=[];
for I__=Jrg__+2:Mixlength(FdL__)
Tmp__=Mixop(I__,FdL__);
if type(Tmp__)==10
if length(Tmp__)==0 //
Tmp__=' ';
end;
DrwS__=Tmp__;
end;
if type(Tmp__)==1 & size(Tmp__,2)>1
BdyL__=Tmp__;
end;
end;
Tmp__=MixS(DrwS__,BdyL__);
Out__=Mixjoin(Out__,Tmp__);
endfunction
|