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/ketpicscifiles6/Circledata.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci deleted file mode 100644 index 2148c061..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci +++ /dev/null @@ -1,32 +0,0 @@ -// s:2008,05.12 -// e:2014.09.08 [A,B] supported -// e:2014.10.24 N,R => N__, ... - -function P=Circledata(varargin) - Nargs=length(varargin); - C=varargin(1); - if length(C)==4 then - ra=norm(C(1:2)-C(3:4)); - C=C(1:2); - Nop=2; - else - ra=varargin(2); - Nop=3; - end; - R__=[0,2*%pi]; - N__=50; // Numpoints - for I=Nop:Nargs - Tmp=varargin(I); - K=mtlb_findstr(Tmp,'='); - Tmp1=strsplit(Tmp,[K-1,K]); - Tmp2=ascii(Tmp1(1,1)); - Lhs=char(Tmp2(1)); - Str=Lhs+'__='+Tmp1(3,1); - execstr(Str); - end; - Dt=(R__(2)-R__(1))/N__; - T=R__(1):Dt:R__(2); - X=C(1)+ra*cos(T); - Y=C(2)+ra*sin(T); - P=[X',Y']; -endfunction |