summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Circledata.sci32
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