diff options
Diffstat (limited to 'texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.sce')
-rw-r--r-- | texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.sce | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.sce deleted file mode 100644 index 5b4af69a..00000000 --- a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.sce +++ /dev/null @@ -1,56 +0,0 @@ -//date time=2017/8/19 10:55:49 - -cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); -Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); -Ketinit(); -disp('KETpic '+ThisVersion()) -Fnametex='pointoncircle/p019.tex'; -Fnamesci='pointoncircle/p019.sce'; -Fnamescibody='figs0706animatebody.sce'; -Fnameout='figs0706animate.txt'; -pi=%pi; i=%i; -arccos=acos; arcsin=asin; arctan=atan; - -Setwindow([-2.5,2.5], [-2.5,2.5]); -Assignadd('pi',%pi); -Assignadd('XMIN',Xmin()); -Assignadd('XMAX',Xmax()); -Assignadd('YMIN',Ymin()); -Assignadd('YMAX',Ymax()); -A=[0,-4]; Assignrep('A',[0,-4]); -B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); -C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); -mdbw1=evstr('[-0.38384,-0.94481]'); Assignrep('mdbw1',[-0.38384,-0.94481]); -cr1=Circledata([[0,0],[2,0]]); -sg1=Listplot([[0,0],[-0.37476,-1.96457]]); -pt1=Pointdata([-0.37476,-1.96457]); -bw1=Bowdata([0,0],[-0.37476,-1.96457],1,0.3); -PtL=list(A,B,C); -GrL=list(); -//if length(fileinfo(Fnamescibody))>0 -// Gbdy=ReadfromCindy(Fnamescibody); -// execstr(Gbdy) -//end; - -//Windisp(GrL,'c'); - -if 1==1 then - -Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p019.tex','1cm'); - Fontsize('s'); - Drwline(cr1); - Letter([2,0],"se","$2$"); - Setcolor("red"); - Drwline(sg1); - Setcolor("black"); - Setpen(0.12); - Drwpt(list(pt1)); - Setpen(1); - Letter([-0.38,-0.94],"c","$2$"); - Drwline(bw1); - Letter([-0.41,-2.16],"c","$\mathrm{P}$"); -Closefile('1'); - -end; - -quit(); |