blob: 071f73816ab8521d9499d6d67a783d31c9b7a52b (
plain)
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
|
// 2011.12.18 ( available for list )
function P=Framedata(varargin)
global XMIN XMAX YMIN YMAX
VaL=Flattenlist(varargin);
N=length(VaL);
if N<=1
H=1.0*10^(-4);
PA=[XMIN+H,YMIN+H];
PB=[XMAX-H,YMIN+H];
PC=[XMAX-H,YMAX-H];
PD=[XMIN+H,YMAX-H];
else
Tmp=VaL(N);
if type(Tmp)==1 & length(Tmp)==1
Dy=Tmp;
Dx=Dy;
Tmp=VaL(N-1);
if type(Tmp)==1 & length(Tmp)==1
Dx=Tmp;
end;
Tmp=VaL(1);
X=Tmp(1); Y=Tmp(2);
X1=X-Dx; X2=X+Dx;
Y1=Y-Dy; Y2=Y+Dy;
else
Tmp=VaL(1);
X1=Tmp(1); X2=Tmp(2);
Tmp=VaL(2);
Y1=Tmp(1); Y2=Tmp(2);
end;
PA=[X1,Y1]; PB=[X2,Y1];
PC=[X2,Y2]; PD=[X1,Y2];
end;
P=Listplot(PA,PB,PC,PD,PA)
endfunction
|