diff options
author | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
commit | 8c3c49fd56de185396400a0e8a636ac03d8239ab (patch) | |
tree | adf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci | 144 |
1 files changed, 0 insertions, 144 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci deleted file mode 100644 index ab8a54b6..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Htickmark.sci +++ /dev/null @@ -1,144 +0,0 @@ -// 08.05.17 Debugged -// 09.12.25 -// 11.04.13 debugged ( [a,b] ) -// 14.03.05 MARKLEN - -function Htickmark(varargin) - global Wfile FID MARKLEN GENTEN XMIN XMAX; - Nargs=length(varargin); - ArgsL=list(varargin(1:Nargs)); - if type(Op(1,ArgsL))==10 - Str=Op(1,ArgsL); - Tmp=mtlb_findstr(Str,'m'); - if Tmp~=[] - I=Tmp(1); - else - I=0; - end - Tmp=mtlb_findstr(Str,'n'); - if Tmp~=[] - J=Tmp(1); - else - J=0; - end - Tmp=mtlb_findstr(Str,'r'); - if Tmp~=[] - K=Tmp(1); - else - K=0; - end; - if K>0 - Tmp=ascii(Str); - S=char(Tmp(K+1:length(Tmp))); - R=msscanf(S,'%f'); - if length(R)==0 - R=1; - end - else - R=1; - K=length(Str)+1; - end - if J>0 then - Tmp=ascii(Str); - S=char(Tmp(J+1:K-1)); - if S==[] - S=''; - end; - Dn=msscanf(S,'%d'); - if length(Dn)==0 - Dn=1; - end - else - Dn=1000; - J=length(Str)+1; - end - Tmp=ascii(Str); - S=char(Tmp(I+1:J-1)); - if S==[] - S=''; - end - Dm=msscanf(S,'%f'); - if length(Dm)==0 - Dm=1; - end - ArgsL=list(); - for I=1:floor((XMAX-GENTEN(1))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(Tmp(1:k-1)); - end - ArgsL($+1)=Str; - end - end - for I=-1:-1:ceil((XMIN-GENTEN(1))/Dm) - ArgsL($+1)=I*Dm; - if I-floor(I/Dn)*Dn==0 - Str=string(I*Dm*R); - K=length(Str); - Tmp=ascii(Str); - if char(Tmp(K))=='.' - Str=char(1:K-1); - end - ArgsL($+1)=Str; - end - end - end - MemoriList=list(); - Memori=list(); - for N=1:length(ArgsL) - Dt=ArgsL(N); - if type(Dt)==1 & length(Dt)>1 - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(Dt(1),Dt(2)); - continue - end - if type(Dt)==10 - Memori($+1)=Dt; - else - if length(Memori)>0 - MemoriList($+1)=Memori; - end - Memori=list(Dt,GENTEN(2)); - end - end - MemoriList($+1)=Memori; - for N=1:length(MemoriList) - Dt=MemoriList(N); - Ndt=length(Dt); - X=Op(1,Dt); - Y=Op(2,Dt); - Tmp=Doscaling([X,Y]); - X=Tmp(1); - Y=Tmp(2); - Moji=Op(Ndt,Dt); - Tmp1=Unscaling([X,Y+MARKLEN]); - Tmp2=Unscaling([X,Y-MARKLEN]); - Fd=Listplot([Tmp1,Tmp2]); - Drwline(Fd); - if Ndt==3 - Tmp=Unscaling([X,Y-MARKLEN]); - Expr(Tmp,'s',Moji); - end - if Ndt==4 - Houkou=Op(3,Dt); - if mtlb_findstr(Houkou,'s')~=[] - Tmp=Unscaling([X,Y-MARKLEN]); - Expr(Tmp,Houkou,Moji); - else - Tmp=Unscaling([X,Y+MARKLEN]); - Expr(Tmp,Houkou,Moji); - end - end - if Wfile=='default' - mprintf('%s\n','%'); - else - mfprintf(FID,'%s\n','%'); - end - end -endfunction; |