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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
// 09.11.26
// 09.12.06
// 09.12.25
// 10.01.12
// 10.01.13
// 10.03.28
// 10.03.30
// 13.05.03 Domain can be omitted
function Out=Tabledata(varargin)
// 2013.05.01 Domain is optional.
Eps=0.001;
Tmp=varargin(1); // 130502 from
if type(Tmp)==1
Domain=varargin(1);
VL=varargin(2);
HL=varargin(3);
else
Domain=[-1,-1];
VL=varargin(1);
HL=varargin(2);
end; // 130502 upto
Hsize=Domain(1);
SvL=list(0);
S=0;
for I=1:length(VL)
Tmp=VL(I);
S=S+Tmp(1);
Tmp(1)=S;
SvL($+1)=Tmp;
end;
if Hsize>S
SvL($+1)=Hsize;
end;
Hsize=Op(1,SvL(length(SvL)));
Vsize=Domain(2);
ShL=list(0);
S=0;
for I=1:length(HL)
Tmp=HL(I);
S=S+Tmp(1);
Tmp(1)=S;
ShL($+1)=Tmp;
end;
if Vsize>S
ShL($+1)=Vsize;
end;
Vsize=Op(1,ShL(length(ShL)));
Marw=0; Mare=0; Mars=0; Marn=0;
if length(Domain)>2
Marw=Domain(3);
Mare=Domain(4);
end;
if length(Domain)>4
Marn=Domain(5);
Mars=Domain(6);
end;
Setwindow([-Marw,Hsize+Mare],[-Mars,Vsize+Marn]);
Tmp=Framedata([Eps,Hsize-Eps],[Eps,Vsize-Eps]);
Gdata=list(Tmp);
Tmp=-Marw;
Hdata=list(Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]));
for I=1:length(SvL) // 10.03.30
Data=SvL(I);
X=Data(1);
if length(Data)==1
Y1=0;
Y2=Vsize;
G=Listplot([X,Y1],[X,Y2]);
else
G=[];
for J=2:2:length(Data)
Y1=Vsize-Op(1,ShL(Data(J))); // 10.03.30
Y2=Vsize-Op(1,ShL(Data(J+1)));
Tmp=Listplot([[X,Y1],[X,Y2]]);
G=[G;%inf,%inf;Tmp];
end;
G=G(2:size(G,1),:);
end;
Hdata($+1)=G;
end;
Tmp=Hsize+Mare;
Tmp1=Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]);
Hdata($+1)=Tmp1;
Tmp=Vsize+Marn;
Vdata=list(Listplot([[-Marw,Tmp],[Hsize+Mare,Tmp]]));
for I=1:length(ShL)
Data=ShL(I);
Y=Vsize-Data(1);
if length(Data)==1
X1=0;
X2=Hsize;
G=Listplot([X1,Y],[X2,Y]);
else
G=[];
for J=2:2:length(Data)
X1=Op(1,SvL(Data(J))); // 10.03.30
X2=Op(1,SvL(Data(J+1)));
Tmp=Listplot([X1,Y],[X2,Y]);
G=[G;%inf,%inf;Tmp];
end;
G=G(2:size(G,1),:);
end;
Vdata($+1)=G;
end;
Tmp=Listplot([[-Marw,-Mars],[Hsize+Mare,-Mars]]);
Vdata($+1)=Tmp;
Tmp1=Mixsub(3:(length(Hdata)-2),Hdata);
Tmp2=Mixsub(3:(length(Vdata)-2),Vdata);
Gdata=Mixjoin(Gdata,Tmp1,Tmp2);
Hind=2:(1+length(Tmp1));
Vind=(2+length(Tmp1)):(1+length(Tmp1)+length(Tmp2));
G=Gdata(1);
P1=Ptsw(G); P2=Ptnw(G);
Q1=Ptse(G); Q2=Ptne(G);
Tmp1=list(Listplot([P1,P2]),Listplot([Q1,Q2]));
P1=Ptnw(G); P2=Ptne(G);
Q1=Ptsw(G); Q2=Ptse(G);
Tmp2=list(Listplot([P1,P2]),Listplot([Q1,Q2]));
Tmp3=Framedata();
Out=list(Gdata,Hind,Vind,Tmp1,Tmp2,Tmp3);
endfunction;
function Out=Dividetable(Tb)
G=Tb(1);
Gw=G(1);
Gt=Mixsub(Tb(2),G);
Gy=Mixsub(Tb(3),G);
Out=list(Gw,Gt,Gy)
endfunction;
|