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
|
// 08.08.08
// 09,02.27
function Out=Setax(varargin)
global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE;
Nargs=length(varargin);
if Nargs==0
if ZIKU=='line'
Tmp=','
else
Tmp='(Arrowsize='+string(ARROWSIZE)+'),'
end;
Str=...
ZIKU+Tmp+...
XNAME+','+XPOS+','+YNAME+','+...
YPOS+','+ONAME+','+OPOS;
Out=Str;
disp(Str);
return;
end;
ArgL=[];
Is=1;
Tmp=varargin(1);
if type(Tmp)==1 & length(Tmp)==1
Is=varargin(1);
ArgL=[];
for I=1:Is-1
ArgL=[ArgL,''];
end
for I=2:Nargs
ArgL=[ArgL,varargin(I)];
end
else
if Nargs==1
ArgL=[varargin(1)];
else
Tmp=varargin(2);
if type(Tmp)==1 & length(Tmp)==1
ARROWSIZE=Tmp;
ArgL=[varargin(1)];
for I=3:Nargs
ArgL=[ArgL,varargin(I)];
end;
else
ArgL=[];
for I=1:Nargs
ArgL=[ArgL,varargin(I)];
end;
end
end
end
for I=size(ArgL,2)+1:7
ArgL=[ArgL,''];
end
Zk=ArgL(1);
if Zk~=''
ZL=msscanf(Zk,'%c%f');
Zk=ZL(1);
if length(ZL)>1 // modified at 080807
ARROWSIZE=ZL(2);
end
end
Xn=ArgL(2); Xp=ArgL(3);
Yn=ArgL(4); Yp=ArgL(5);
Genn=ArgL(6); Genp=ArgL(7);
if Zk~=''
C=Zk;
if C=='a'
ZIKU='arrow';
else
ZIKU='line';
end
end
if Xn~=''
XNAME='$'+Xn+'$'
end
if Xp~=''
XPOS=Xp
end
if Yn~=''
YNAME='$'+Yn+'$'
end
if Yp~=''
YPOS=Yp
end
if Genn~=''
ONAME=Genn
end
if Genp~=''
OPOS=Genp
end
if ZIKU=='line'
Tmp=','
else
Tmp='(Arrowsize='+string(ARROWSIZE)+'),'
end;
Str=...
ZIKU+Tmp+...
XNAME+','+XPOS+','+YNAME+','+...
YPOS+','+ONAME+','+OPOS;
Out=Str;
endfunction;
|