From 138f77fe71e43adc24ecb030d73df81cc5c4eb7e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 4 Sep 2017 09:45:51 +0900 Subject: add ketpic --- .../samples/s07slides/fig/sinecurve/p001.sce | 43 ++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.sce (limited to 'texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.sce') diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.sce new file mode 100644 index 00000000..cb1fe21b --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.sce @@ -0,0 +1,43 @@ +//date time=2017/8/24 14:44:24 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='sinecurve/p001.tex'; +Fnamesci='sinecurve/p001.sce'; +Fnamescibody='figs0704parabody.sce'; +Fnameout='figs0704para.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-3,8], [-1.5,1.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[-3,-3]; Assignrep('A',[-3,-3]); +B=[8,-3]; Assignrep('B',[8,-3]); +C=[-2.5,-3]; Assignrep('C',[-2.5,-3]); +sgAB=Listplot([A,B]); +gr1=Plotdata(Assign('sin(x-(-3))'),Assign('x')); +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/sinecurve/p001.tex','1cm'); + Fontsize('s'); + Drwline(gr1); +Closefile('1'); + +end; + +quit(); -- cgit v1.2.3