diff options
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 |