summaryrefslogtreecommitdiff
path: root/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve')
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/all.sce942
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.tex41
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.tex41
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.tex41
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.tex41
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.tex42
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.sce43
-rw-r--r--texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.tex42
63 files changed, 3573 insertions, 0 deletions
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/all.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/all.sce
new file mode 100644
index 00000000..1888e4b6
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/all.sce
@@ -0,0 +1,942 @@
+//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;
+
+
+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-(-2.63333))'),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/p002.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(-2.26667))'),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/p003.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(-1.9))'),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/p004.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(-1.53333))'),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/p005.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(-1.16667))'),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/p006.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(-0.8))'),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/p007.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(-0.43333))'),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/p008.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(-0.06667))'),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/p009.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(0.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/p010.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(0.66667))'),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/p011.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(1.03333))'),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/p012.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(1.4))'),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/p013.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(1.76667))'),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/p014.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(2.13333))'),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/p015.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(2.5))'),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/p016.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(2.86667))'),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/p017.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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.23333))'),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/p018.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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.6))'),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/p019.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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.96667))'),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/p020.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(4.33333))'),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/p021.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(4.7))'),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/p022.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(5.06667))'),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/p023.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(5.43333))'),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/p024.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(5.8))'),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/p025.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(6.16667))'),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/p026.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(6.53333))'),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/p027.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(6.9))'),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/p028.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(7.26667))'),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/p029.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(7.63333))'),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/p030.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+
+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-(8))'),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/p031.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
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();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.tex
new file mode 100644
index 00000000..43593231
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p001.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p001.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 0}\special{pa -1094 -86}\special{pa -1008 -168}\special{pa -921 -241}%
+\special{pa -835 -303}\special{pa -748 -351}\special{pa -661 -381}\special{pa -575 -394}%
+\special{pa -488 -387}\special{pa -402 -361}\special{pa -315 -318}\special{pa -228 -260}%
+\special{pa -142 -189}\special{pa -55 -109}\special{pa 31 -24}\special{pa 118 62}%
+\special{pa 205 145}\special{pa 291 222}\special{pa 378 287}\special{pa 465 339}\special{pa 551 375}%
+\special{pa 638 392}\special{pa 724 390}\special{pa 811 370}\special{pa 898 332}\special{pa 984 278}%
+\special{pa 1071 210}\special{pa 1157 132}\special{pa 1244 48}\special{pa 1331 -38}%
+\special{pa 1417 -123}\special{pa 1504 -201}\special{pa 1591 -270}\special{pa 1677 -326}%
+\special{pa 1764 -366}\special{pa 1850 -389}\special{pa 1937 -393}\special{pa 2024 -378}%
+\special{pa 2110 -344}\special{pa 2197 -294}\special{pa 2283 -230}\special{pa 2370 -155}%
+\special{pa 2457 -72}\special{pa 2543 14}\special{pa 2630 99}\special{pa 2717 180}%
+\special{pa 2803 252}\special{pa 2890 312}\special{pa 2976 357}\special{pa 3063 385}%
+\special{pa 3150 394}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.sce
new file mode 100644
index 00000000..d0aa72ce
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.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/p002.tex';
+Fnamesci='sinecurve/p002.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-(-2.63333))'),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/p002.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.tex
new file mode 100644
index 00000000..9f89b2fd
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p002.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p002.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 141}\special{pa -1094 58}\special{pa -1008 -29}\special{pa -921 -114}%
+\special{pa -835 -193}\special{pa -748 -264}\special{pa -661 -321}\special{pa -575 -363}%
+\special{pa -488 -388}\special{pa -402 -393}\special{pa -315 -380}\special{pa -228 -349}%
+\special{pa -142 -300}\special{pa -55 -238}\special{pa 31 -164}\special{pa 118 -81}%
+\special{pa 205 5}\special{pa 291 90}\special{pa 378 172}\special{pa 465 245}\special{pa 551 306}%
+\special{pa 638 353}\special{pa 724 383}\special{pa 811 394}\special{pa 898 386}\special{pa 984 359}%
+\special{pa 1071 316}\special{pa 1157 257}\special{pa 1244 185}\special{pa 1331 105}%
+\special{pa 1417 20}\special{pa 1504 -67}\special{pa 1591 -150}\special{pa 1677 -226}%
+\special{pa 1764 -291}\special{pa 1850 -342}\special{pa 1937 -376}\special{pa 2024 -392}%
+\special{pa 2110 -390}\special{pa 2197 -369}\special{pa 2283 -329}\special{pa 2370 -274}%
+\special{pa 2457 -206}\special{pa 2543 -128}\special{pa 2630 -44}\special{pa 2717 43}%
+\special{pa 2803 127}\special{pa 2890 205}\special{pa 2976 274}\special{pa 3063 329}%
+\special{pa 3150 368}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.sce
new file mode 100644
index 00000000..12547148
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.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/p003.tex';
+Fnamesci='sinecurve/p003.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-(-2.26667))'),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/p003.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.tex
new file mode 100644
index 00000000..9eefac61
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p003.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p003.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 264}\special{pa -1094 193}\special{pa -1008 114}\special{pa -921 29}%
+\special{pa -835 -58}\special{pa -748 -141}\special{pa -661 -218}\special{pa -575 -284}%
+\special{pa -488 -337}\special{pa -402 -373}\special{pa -315 -392}\special{pa -228 -391}%
+\special{pa -142 -372}\special{pa -55 -334}\special{pa 31 -281}\special{pa 118 -214}%
+\special{pa 205 -137}\special{pa 291 -53}\special{pa 378 33}\special{pa 465 118}\special{pa 551 197}%
+\special{pa 638 267}\special{pa 724 324}\special{pa 811 365}\special{pa 898 388}\special{pa 984 393}%
+\special{pa 1071 379}\special{pa 1157 347}\special{pa 1244 297}\special{pa 1331 234}%
+\special{pa 1417 159}\special{pa 1504 77}\special{pa 1591 -9}\special{pa 1677 -95}%
+\special{pa 1764 -176}\special{pa 1850 -249}\special{pa 1937 -309}\special{pa 2024 -355}%
+\special{pa 2110 -384}\special{pa 2197 -394}\special{pa 2283 -385}\special{pa 2370 -357}%
+\special{pa 2457 -313}\special{pa 2543 -253}\special{pa 2630 -181}\special{pa 2717 -100}%
+\special{pa 2803 -15}\special{pa 2890 71}\special{pa 2976 154}\special{pa 3063 229}%
+\special{pa 3150 294}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.sce
new file mode 100644
index 00000000..60554cf1
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.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/p004.tex';
+Fnamesci='sinecurve/p004.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-(-1.9))'),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/p004.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.tex
new file mode 100644
index 00000000..4c10d81f
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p004.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p004.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 351}\special{pa -1094 303}\special{pa -1008 241}\special{pa -921 168}%
+\special{pa -835 86}\special{pa -748 0}\special{pa -661 -86}\special{pa -575 -168}%
+\special{pa -488 -241}\special{pa -402 -303}\special{pa -315 -351}\special{pa -228 -381}%
+\special{pa -142 -394}\special{pa -55 -387}\special{pa 31 -361}\special{pa 118 -318}%
+\special{pa 205 -260}\special{pa 291 -189}\special{pa 378 -109}\special{pa 465 -24}%
+\special{pa 551 62}\special{pa 638 145}\special{pa 724 222}\special{pa 811 287}\special{pa 898 339}%
+\special{pa 984 375}\special{pa 1071 392}\special{pa 1157 390}\special{pa 1244 370}%
+\special{pa 1331 332}\special{pa 1417 278}\special{pa 1504 210}\special{pa 1591 132}%
+\special{pa 1677 48}\special{pa 1764 -38}\special{pa 1850 -123}\special{pa 1937 -201}%
+\special{pa 2024 -270}\special{pa 2110 -326}\special{pa 2197 -366}\special{pa 2283 -389}%
+\special{pa 2370 -393}\special{pa 2457 -378}\special{pa 2543 -344}\special{pa 2630 -294}%
+\special{pa 2717 -230}\special{pa 2803 -155}\special{pa 2890 -72}\special{pa 2976 14}%
+\special{pa 3063 99}\special{pa 3150 180}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.sce
new file mode 100644
index 00000000..a342e35e
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.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/p005.tex';
+Fnamesci='sinecurve/p005.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-(-1.53333))'),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/p005.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.tex
new file mode 100644
index 00000000..619a2505
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p005.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p005.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 392}\special{pa -1094 373}\special{pa -1008 337}\special{pa -921 284}%
+\special{pa -835 218}\special{pa -748 141}\special{pa -661 58}\special{pa -575 -29}%
+\special{pa -488 -114}\special{pa -402 -193}\special{pa -315 -264}\special{pa -228 -321}%
+\special{pa -142 -363}\special{pa -55 -388}\special{pa 31 -393}\special{pa 118 -380}%
+\special{pa 205 -349}\special{pa 291 -300}\special{pa 378 -238}\special{pa 465 -164}%
+\special{pa 551 -81}\special{pa 638 5}\special{pa 724 90}\special{pa 811 172}\special{pa 898 245}%
+\special{pa 984 306}\special{pa 1071 353}\special{pa 1157 383}\special{pa 1244 394}%
+\special{pa 1331 386}\special{pa 1417 359}\special{pa 1504 316}\special{pa 1591 257}%
+\special{pa 1677 185}\special{pa 1764 105}\special{pa 1850 20}\special{pa 1937 -67}%
+\special{pa 2024 -150}\special{pa 2110 -226}\special{pa 2197 -291}\special{pa 2283 -342}%
+\special{pa 2370 -376}\special{pa 2457 -392}\special{pa 2543 -390}\special{pa 2630 -369}%
+\special{pa 2717 -329}\special{pa 2803 -274}\special{pa 2890 -206}\special{pa 2976 -128}%
+\special{pa 3063 -44}\special{pa 3150 43}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.sce
new file mode 100644
index 00000000..5dbaa7e3
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.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/p006.tex';
+Fnamesci='sinecurve/p006.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-(-1.16667))'),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/p006.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.tex
new file mode 100644
index 00000000..b9027832
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p006.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p006.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 380}\special{pa -1094 393}\special{pa -1008 388}\special{pa -921 363}%
+\special{pa -835 321}\special{pa -748 264}\special{pa -661 193}\special{pa -575 114}%
+\special{pa -488 29}\special{pa -402 -58}\special{pa -315 -141}\special{pa -228 -218}%
+\special{pa -142 -284}\special{pa -55 -337}\special{pa 31 -373}\special{pa 118 -392}%
+\special{pa 205 -391}\special{pa 291 -372}\special{pa 378 -334}\special{pa 465 -281}%
+\special{pa 551 -214}\special{pa 638 -137}\special{pa 724 -53}\special{pa 811 33}%
+\special{pa 898 118}\special{pa 984 197}\special{pa 1071 267}\special{pa 1157 324}%
+\special{pa 1244 365}\special{pa 1331 388}\special{pa 1417 393}\special{pa 1504 379}%
+\special{pa 1591 347}\special{pa 1677 297}\special{pa 1764 234}\special{pa 1850 159}%
+\special{pa 1937 77}\special{pa 2024 -9}\special{pa 2110 -95}\special{pa 2197 -176}%
+\special{pa 2283 -249}\special{pa 2370 -309}\special{pa 2457 -355}\special{pa 2543 -384}%
+\special{pa 2630 -394}\special{pa 2717 -385}\special{pa 2803 -357}\special{pa 2890 -313}%
+\special{pa 2976 -253}\special{pa 3063 -181}\special{pa 3150 -100}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.sce
new file mode 100644
index 00000000..457ea9d8
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.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/p007.tex';
+Fnamesci='sinecurve/p007.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-(-0.8))'),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/p007.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.tex
new file mode 100644
index 00000000..a9fafae8
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p007.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p007.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 318}\special{pa -1094 361}\special{pa -1008 387}\special{pa -921 394}%
+\special{pa -835 381}\special{pa -748 351}\special{pa -661 303}\special{pa -575 241}%
+\special{pa -488 168}\special{pa -402 86}\special{pa -315 0}\special{pa -228 -86}%
+\special{pa -142 -168}\special{pa -55 -241}\special{pa 31 -303}\special{pa 118 -351}%
+\special{pa 205 -381}\special{pa 291 -394}\special{pa 378 -387}\special{pa 465 -361}%
+\special{pa 551 -318}\special{pa 638 -260}\special{pa 724 -189}\special{pa 811 -109}%
+\special{pa 898 -24}\special{pa 984 62}\special{pa 1071 145}\special{pa 1157 222}%
+\special{pa 1244 287}\special{pa 1331 339}\special{pa 1417 375}\special{pa 1504 392}%
+\special{pa 1591 390}\special{pa 1677 370}\special{pa 1764 332}\special{pa 1850 278}%
+\special{pa 1937 210}\special{pa 2024 132}\special{pa 2110 48}\special{pa 2197 -38}%
+\special{pa 2283 -123}\special{pa 2370 -201}\special{pa 2457 -270}\special{pa 2543 -326}%
+\special{pa 2630 -366}\special{pa 2717 -389}\special{pa 2803 -393}\special{pa 2890 -378}%
+\special{pa 2976 -344}\special{pa 3063 -294}\special{pa 3150 -230}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.sce
new file mode 100644
index 00000000..945804fb
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.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/p008.tex';
+Fnamesci='sinecurve/p008.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-(-0.43333))'),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/p008.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.tex
new file mode 100644
index 00000000..ebd7f7f8
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p008.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p008.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 214}\special{pa -1094 281}\special{pa -1008 334}\special{pa -921 372}%
+\special{pa -835 391}\special{pa -748 392}\special{pa -661 373}\special{pa -575 337}%
+\special{pa -488 284}\special{pa -402 218}\special{pa -315 141}\special{pa -228 58}%
+\special{pa -142 -29}\special{pa -55 -114}\special{pa 31 -193}\special{pa 118 -264}%
+\special{pa 205 -321}\special{pa 291 -363}\special{pa 378 -388}\special{pa 465 -393}%
+\special{pa 551 -380}\special{pa 638 -349}\special{pa 724 -300}\special{pa 811 -238}%
+\special{pa 898 -164}\special{pa 984 -81}\special{pa 1071 5}\special{pa 1157 90}\special{pa 1244 172}%
+\special{pa 1331 245}\special{pa 1417 306}\special{pa 1504 353}\special{pa 1591 383}%
+\special{pa 1677 394}\special{pa 1764 386}\special{pa 1850 359}\special{pa 1937 316}%
+\special{pa 2024 257}\special{pa 2110 185}\special{pa 2197 105}\special{pa 2283 20}%
+\special{pa 2370 -67}\special{pa 2457 -150}\special{pa 2543 -226}\special{pa 2630 -291}%
+\special{pa 2717 -342}\special{pa 2803 -376}\special{pa 2890 -392}\special{pa 2976 -390}%
+\special{pa 3063 -369}\special{pa 3150 -329}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.sce
new file mode 100644
index 00000000..5d235d9d
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.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/p009.tex';
+Fnamesci='sinecurve/p009.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-(-0.06667))'),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/p009.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.tex
new file mode 100644
index 00000000..b4a56425
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p009.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p009.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 81}\special{pa -1094 164}\special{pa -1008 238}\special{pa -921 300}%
+\special{pa -835 349}\special{pa -748 380}\special{pa -661 393}\special{pa -575 388}%
+\special{pa -488 363}\special{pa -402 321}\special{pa -315 264}\special{pa -228 193}%
+\special{pa -142 114}\special{pa -55 29}\special{pa 31 -58}\special{pa 118 -141}\special{pa 205 -218}%
+\special{pa 291 -284}\special{pa 378 -337}\special{pa 465 -373}\special{pa 551 -392}%
+\special{pa 638 -391}\special{pa 724 -372}\special{pa 811 -334}\special{pa 898 -281}%
+\special{pa 984 -214}\special{pa 1071 -137}\special{pa 1157 -53}\special{pa 1244 33}%
+\special{pa 1331 118}\special{pa 1417 197}\special{pa 1504 267}\special{pa 1591 324}%
+\special{pa 1677 365}\special{pa 1764 388}\special{pa 1850 393}\special{pa 1937 379}%
+\special{pa 2024 347}\special{pa 2110 297}\special{pa 2197 234}\special{pa 2283 159}%
+\special{pa 2370 77}\special{pa 2457 -9}\special{pa 2543 -95}\special{pa 2630 -176}%
+\special{pa 2717 -249}\special{pa 2803 -309}\special{pa 2890 -355}\special{pa 2976 -384}%
+\special{pa 3063 -394}\special{pa 3150 -385}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.sce
new file mode 100644
index 00000000..3724a1e7
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.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/p010.tex';
+Fnamesci='sinecurve/p010.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-(0.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/p010.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.tex
new file mode 100644
index 00000000..66122274
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p010.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p010.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -62}\special{pa -1094 24}\special{pa -1008 109}\special{pa -921 189}%
+\special{pa -835 260}\special{pa -748 318}\special{pa -661 361}\special{pa -575 387}%
+\special{pa -488 394}\special{pa -402 381}\special{pa -315 351}\special{pa -228 303}%
+\special{pa -142 241}\special{pa -55 168}\special{pa 31 86}\special{pa 118 0}\special{pa 205 -86}%
+\special{pa 291 -168}\special{pa 378 -241}\special{pa 465 -303}\special{pa 551 -351}%
+\special{pa 638 -381}\special{pa 724 -394}\special{pa 811 -387}\special{pa 898 -361}%
+\special{pa 984 -318}\special{pa 1071 -260}\special{pa 1157 -189}\special{pa 1244 -109}%
+\special{pa 1331 -24}\special{pa 1417 62}\special{pa 1504 145}\special{pa 1591 222}%
+\special{pa 1677 287}\special{pa 1764 339}\special{pa 1850 375}\special{pa 1937 392}%
+\special{pa 2024 390}\special{pa 2110 370}\special{pa 2197 332}\special{pa 2283 278}%
+\special{pa 2370 210}\special{pa 2457 132}\special{pa 2543 48}\special{pa 2630 -38}%
+\special{pa 2717 -123}\special{pa 2803 -201}\special{pa 2890 -270}\special{pa 2976 -326}%
+\special{pa 3063 -366}\special{pa 3150 -389}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.sce
new file mode 100644
index 00000000..b5bc6e0b
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.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/p011.tex';
+Fnamesci='sinecurve/p011.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-(0.66667))'),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/p011.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.tex
new file mode 100644
index 00000000..9b45f720
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p011.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p011.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -197}\special{pa -1094 -118}\special{pa -1008 -33}\special{pa -921 53}%
+\special{pa -835 137}\special{pa -748 214}\special{pa -661 281}\special{pa -575 334}%
+\special{pa -488 372}\special{pa -402 391}\special{pa -315 392}\special{pa -228 373}%
+\special{pa -142 337}\special{pa -55 284}\special{pa 31 218}\special{pa 118 141}\special{pa 205 58}%
+\special{pa 291 -29}\special{pa 378 -114}\special{pa 465 -193}\special{pa 551 -264}%
+\special{pa 638 -321}\special{pa 724 -363}\special{pa 811 -388}\special{pa 898 -393}%
+\special{pa 984 -380}\special{pa 1071 -349}\special{pa 1157 -300}\special{pa 1244 -238}%
+\special{pa 1331 -164}\special{pa 1417 -81}\special{pa 1504 5}\special{pa 1591 90}%
+\special{pa 1677 172}\special{pa 1764 245}\special{pa 1850 306}\special{pa 1937 353}%
+\special{pa 2024 383}\special{pa 2110 394}\special{pa 2197 386}\special{pa 2283 359}%
+\special{pa 2370 316}\special{pa 2457 257}\special{pa 2543 185}\special{pa 2630 105}%
+\special{pa 2717 20}\special{pa 2803 -67}\special{pa 2890 -150}\special{pa 2976 -226}%
+\special{pa 3063 -291}\special{pa 3150 -342}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.sce
new file mode 100644
index 00000000..9d1522a0
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.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/p012.tex';
+Fnamesci='sinecurve/p012.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-(1.03333))'),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/p012.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.tex
new file mode 100644
index 00000000..9b71c7ca
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p012.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p012.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -306}\special{pa -1094 -245}\special{pa -1008 -172}\special{pa -921 -90}%
+\special{pa -835 -5}\special{pa -748 81}\special{pa -661 164}\special{pa -575 238}%
+\special{pa -488 300}\special{pa -402 349}\special{pa -315 380}\special{pa -228 393}%
+\special{pa -142 388}\special{pa -55 363}\special{pa 31 321}\special{pa 118 264}\special{pa 205 193}%
+\special{pa 291 114}\special{pa 378 29}\special{pa 465 -58}\special{pa 551 -141}\special{pa 638 -218}%
+\special{pa 724 -284}\special{pa 811 -337}\special{pa 898 -373}\special{pa 984 -392}%
+\special{pa 1071 -391}\special{pa 1157 -372}\special{pa 1244 -334}\special{pa 1331 -281}%
+\special{pa 1417 -214}\special{pa 1504 -137}\special{pa 1591 -53}\special{pa 1677 33}%
+\special{pa 1764 118}\special{pa 1850 197}\special{pa 1937 267}\special{pa 2024 324}%
+\special{pa 2110 365}\special{pa 2197 388}\special{pa 2283 393}\special{pa 2370 379}%
+\special{pa 2457 347}\special{pa 2543 297}\special{pa 2630 234}\special{pa 2717 159}%
+\special{pa 2803 77}\special{pa 2890 -9}\special{pa 2976 -95}\special{pa 3063 -176}%
+\special{pa 3150 -249}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.sce
new file mode 100644
index 00000000..19eff7cd
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.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/p013.tex';
+Fnamesci='sinecurve/p013.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-(1.4))'),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/p013.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.tex
new file mode 100644
index 00000000..7d78b659
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p013.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p013.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -375}\special{pa -1094 -339}\special{pa -1008 -287}\special{pa -921 -222}%
+\special{pa -835 -145}\special{pa -748 -62}\special{pa -661 24}\special{pa -575 109}%
+\special{pa -488 189}\special{pa -402 260}\special{pa -315 318}\special{pa -228 361}%
+\special{pa -142 387}\special{pa -55 394}\special{pa 31 381}\special{pa 118 351}\special{pa 205 303}%
+\special{pa 291 241}\special{pa 378 168}\special{pa 465 86}\special{pa 551 0}\special{pa 638 -86}%
+\special{pa 724 -168}\special{pa 811 -241}\special{pa 898 -303}\special{pa 984 -351}%
+\special{pa 1071 -381}\special{pa 1157 -394}\special{pa 1244 -387}\special{pa 1331 -361}%
+\special{pa 1417 -318}\special{pa 1504 -260}\special{pa 1591 -189}\special{pa 1677 -109}%
+\special{pa 1764 -24}\special{pa 1850 62}\special{pa 1937 145}\special{pa 2024 222}%
+\special{pa 2110 287}\special{pa 2197 339}\special{pa 2283 375}\special{pa 2370 392}%
+\special{pa 2457 390}\special{pa 2543 370}\special{pa 2630 332}\special{pa 2717 278}%
+\special{pa 2803 210}\special{pa 2890 132}\special{pa 2976 48}\special{pa 3063 -38}%
+\special{pa 3150 -123}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.sce
new file mode 100644
index 00000000..fe8ca80c
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.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/p014.tex';
+Fnamesci='sinecurve/p014.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-(1.76667))'),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/p014.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.tex
new file mode 100644
index 00000000..d40cb332
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p014.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p014.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -393}\special{pa -1094 -388}\special{pa -1008 -365}\special{pa -921 -324}%
+\special{pa -835 -267}\special{pa -748 -197}\special{pa -661 -118}\special{pa -575 -33}%
+\special{pa -488 53}\special{pa -402 137}\special{pa -315 214}\special{pa -228 281}%
+\special{pa -142 334}\special{pa -55 372}\special{pa 31 391}\special{pa 118 392}\special{pa 205 373}%
+\special{pa 291 337}\special{pa 378 284}\special{pa 465 218}\special{pa 551 141}\special{pa 638 58}%
+\special{pa 724 -29}\special{pa 811 -114}\special{pa 898 -193}\special{pa 984 -264}%
+\special{pa 1071 -321}\special{pa 1157 -363}\special{pa 1244 -388}\special{pa 1331 -393}%
+\special{pa 1417 -380}\special{pa 1504 -349}\special{pa 1591 -300}\special{pa 1677 -238}%
+\special{pa 1764 -164}\special{pa 1850 -81}\special{pa 1937 5}\special{pa 2024 90}%
+\special{pa 2110 172}\special{pa 2197 245}\special{pa 2283 306}\special{pa 2370 353}%
+\special{pa 2457 383}\special{pa 2543 394}\special{pa 2630 386}\special{pa 2717 359}%
+\special{pa 2803 316}\special{pa 2890 257}\special{pa 2976 185}\special{pa 3063 105}%
+\special{pa 3150 20}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.sce
new file mode 100644
index 00000000..9e7e73ed
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.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/p015.tex';
+Fnamesci='sinecurve/p015.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-(2.13333))'),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/p015.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.tex
new file mode 100644
index 00000000..81a046dd
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p015.tex
@@ -0,0 +1,41 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p015.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -359}\special{pa -1094 -386}\special{pa -1008 -394}\special{pa -921 -383}%
+\special{pa -835 -353}\special{pa -748 -306}\special{pa -661 -245}\special{pa -575 -172}%
+\special{pa -488 -90}\special{pa -402 -5}\special{pa -315 81}\special{pa -228 164}%
+\special{pa -142 238}\special{pa -55 300}\special{pa 31 349}\special{pa 118 380}\special{pa 205 393}%
+\special{pa 291 388}\special{pa 378 363}\special{pa 465 321}\special{pa 551 264}\special{pa 638 193}%
+\special{pa 724 114}\special{pa 811 29}\special{pa 898 -58}\special{pa 984 -141}\special{pa 1071 -218}%
+\special{pa 1157 -284}\special{pa 1244 -337}\special{pa 1331 -373}\special{pa 1417 -392}%
+\special{pa 1504 -391}\special{pa 1591 -372}\special{pa 1677 -334}\special{pa 1764 -281}%
+\special{pa 1850 -214}\special{pa 1937 -137}\special{pa 2024 -53}\special{pa 2110 33}%
+\special{pa 2197 118}\special{pa 2283 197}\special{pa 2370 267}\special{pa 2457 324}%
+\special{pa 2543 365}\special{pa 2630 388}\special{pa 2717 393}\special{pa 2803 379}%
+\special{pa 2890 347}\special{pa 2976 297}\special{pa 3063 234}\special{pa 3150 159}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.sce
new file mode 100644
index 00000000..abce0882
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.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/p016.tex';
+Fnamesci='sinecurve/p016.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-(2.5))'),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/p016.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.tex
new file mode 100644
index 00000000..f0b3d7cf
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p016.tex
@@ -0,0 +1,41 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p016.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -278}\special{pa -1094 -332}\special{pa -1008 -370}\special{pa -921 -390}%
+\special{pa -835 -392}\special{pa -748 -375}\special{pa -661 -339}\special{pa -575 -287}%
+\special{pa -488 -222}\special{pa -402 -145}\special{pa -315 -62}\special{pa -228 24}%
+\special{pa -142 109}\special{pa -55 189}\special{pa 31 260}\special{pa 118 318}\special{pa 205 361}%
+\special{pa 291 387}\special{pa 378 394}\special{pa 465 381}\special{pa 551 351}\special{pa 638 303}%
+\special{pa 724 241}\special{pa 811 168}\special{pa 898 86}\special{pa 984 0}\special{pa 1071 -86}%
+\special{pa 1157 -168}\special{pa 1244 -241}\special{pa 1331 -303}\special{pa 1417 -351}%
+\special{pa 1504 -381}\special{pa 1591 -394}\special{pa 1677 -387}\special{pa 1764 -361}%
+\special{pa 1850 -318}\special{pa 1937 -260}\special{pa 2024 -189}\special{pa 2110 -109}%
+\special{pa 2197 -24}\special{pa 2283 62}\special{pa 2370 145}\special{pa 2457 222}%
+\special{pa 2543 287}\special{pa 2630 339}\special{pa 2717 375}\special{pa 2803 392}%
+\special{pa 2890 390}\special{pa 2976 370}\special{pa 3063 332}\special{pa 3150 278}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.sce
new file mode 100644
index 00000000..246aae30
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.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/p017.tex';
+Fnamesci='sinecurve/p017.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-(2.86667))'),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/p017.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.tex
new file mode 100644
index 00000000..628b7398
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p017.tex
@@ -0,0 +1,41 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p017.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -159}\special{pa -1094 -234}\special{pa -1008 -297}\special{pa -921 -347}%
+\special{pa -835 -379}\special{pa -748 -393}\special{pa -661 -388}\special{pa -575 -365}%
+\special{pa -488 -324}\special{pa -402 -267}\special{pa -315 -197}\special{pa -228 -118}%
+\special{pa -142 -33}\special{pa -55 53}\special{pa 31 137}\special{pa 118 214}\special{pa 205 281}%
+\special{pa 291 334}\special{pa 378 372}\special{pa 465 391}\special{pa 551 392}\special{pa 638 373}%
+\special{pa 724 337}\special{pa 811 284}\special{pa 898 218}\special{pa 984 141}\special{pa 1071 58}%
+\special{pa 1157 -29}\special{pa 1244 -114}\special{pa 1331 -193}\special{pa 1417 -264}%
+\special{pa 1504 -321}\special{pa 1591 -363}\special{pa 1677 -388}\special{pa 1764 -393}%
+\special{pa 1850 -380}\special{pa 1937 -349}\special{pa 2024 -300}\special{pa 2110 -238}%
+\special{pa 2197 -164}\special{pa 2283 -81}\special{pa 2370 5}\special{pa 2457 90}%
+\special{pa 2543 172}\special{pa 2630 245}\special{pa 2717 306}\special{pa 2803 353}%
+\special{pa 2890 383}\special{pa 2976 394}\special{pa 3063 386}\special{pa 3150 359}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.sce
new file mode 100644
index 00000000..f32e4164
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.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/p018.tex';
+Fnamesci='sinecurve/p018.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.23333))'),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/p018.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.tex
new file mode 100644
index 00000000..a5c5ca1e
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p018.tex
@@ -0,0 +1,41 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p018.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -20}\special{pa -1094 -105}\special{pa -1008 -185}\special{pa -921 -257}%
+\special{pa -835 -316}\special{pa -748 -359}\special{pa -661 -386}\special{pa -575 -394}%
+\special{pa -488 -383}\special{pa -402 -353}\special{pa -315 -306}\special{pa -228 -245}%
+\special{pa -142 -172}\special{pa -55 -90}\special{pa 31 -5}\special{pa 118 81}\special{pa 205 164}%
+\special{pa 291 238}\special{pa 378 300}\special{pa 465 349}\special{pa 551 380}\special{pa 638 393}%
+\special{pa 724 388}\special{pa 811 363}\special{pa 898 321}\special{pa 984 264}\special{pa 1071 193}%
+\special{pa 1157 114}\special{pa 1244 29}\special{pa 1331 -58}\special{pa 1417 -141}%
+\special{pa 1504 -218}\special{pa 1591 -284}\special{pa 1677 -337}\special{pa 1764 -373}%
+\special{pa 1850 -392}\special{pa 1937 -391}\special{pa 2024 -372}\special{pa 2110 -334}%
+\special{pa 2197 -281}\special{pa 2283 -214}\special{pa 2370 -137}\special{pa 2457 -53}%
+\special{pa 2543 33}\special{pa 2630 118}\special{pa 2717 197}\special{pa 2803 267}%
+\special{pa 2890 324}\special{pa 2976 365}\special{pa 3063 388}\special{pa 3150 393}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.sce
new file mode 100644
index 00000000..fd289527
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.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/p019.tex';
+Fnamesci='sinecurve/p019.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.6))'),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/p019.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.tex
new file mode 100644
index 00000000..9d45b48b
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p019.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p019.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 123}\special{pa -1094 38}\special{pa -1008 -48}\special{pa -921 -132}%
+\special{pa -835 -210}\special{pa -748 -278}\special{pa -661 -332}\special{pa -575 -370}%
+\special{pa -488 -390}\special{pa -402 -392}\special{pa -315 -375}\special{pa -228 -339}%
+\special{pa -142 -287}\special{pa -55 -222}\special{pa 31 -145}\special{pa 118 -62}%
+\special{pa 205 24}\special{pa 291 109}\special{pa 378 189}\special{pa 465 260}\special{pa 551 318}%
+\special{pa 638 361}\special{pa 724 387}\special{pa 811 394}\special{pa 898 381}\special{pa 984 351}%
+\special{pa 1071 303}\special{pa 1157 241}\special{pa 1244 168}\special{pa 1331 86}%
+\special{pa 1417 0}\special{pa 1504 -86}\special{pa 1591 -168}\special{pa 1677 -241}%
+\special{pa 1764 -303}\special{pa 1850 -351}\special{pa 1937 -381}\special{pa 2024 -394}%
+\special{pa 2110 -387}\special{pa 2197 -361}\special{pa 2283 -318}\special{pa 2370 -260}%
+\special{pa 2457 -189}\special{pa 2543 -109}\special{pa 2630 -24}\special{pa 2717 62}%
+\special{pa 2803 145}\special{pa 2890 222}\special{pa 2976 287}\special{pa 3063 339}%
+\special{pa 3150 375}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.sce
new file mode 100644
index 00000000..2521e2ec
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.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/p020.tex';
+Fnamesci='sinecurve/p020.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.96667))'),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/p020.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.tex
new file mode 100644
index 00000000..fcaf67fc
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p020.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p020.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 249}\special{pa -1094 176}\special{pa -1008 95}\special{pa -921 9}%
+\special{pa -835 -77}\special{pa -748 -159}\special{pa -661 -234}\special{pa -575 -297}%
+\special{pa -488 -347}\special{pa -402 -379}\special{pa -315 -393}\special{pa -228 -388}%
+\special{pa -142 -365}\special{pa -55 -324}\special{pa 31 -267}\special{pa 118 -197}%
+\special{pa 205 -118}\special{pa 291 -33}\special{pa 378 53}\special{pa 465 137}\special{pa 551 214}%
+\special{pa 638 281}\special{pa 724 334}\special{pa 811 372}\special{pa 898 391}\special{pa 984 392}%
+\special{pa 1071 373}\special{pa 1157 337}\special{pa 1244 284}\special{pa 1331 218}%
+\special{pa 1417 141}\special{pa 1504 58}\special{pa 1591 -29}\special{pa 1677 -114}%
+\special{pa 1764 -193}\special{pa 1850 -264}\special{pa 1937 -321}\special{pa 2024 -363}%
+\special{pa 2110 -388}\special{pa 2197 -393}\special{pa 2283 -380}\special{pa 2370 -349}%
+\special{pa 2457 -300}\special{pa 2543 -238}\special{pa 2630 -164}\special{pa 2717 -81}%
+\special{pa 2803 5}\special{pa 2890 90}\special{pa 2976 172}\special{pa 3063 245}%
+\special{pa 3150 306}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.sce
new file mode 100644
index 00000000..57104e74
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.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/p021.tex';
+Fnamesci='sinecurve/p021.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-(4.33333))'),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/p021.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.tex
new file mode 100644
index 00000000..c80f4fab
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p021.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p021.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 342}\special{pa -1094 291}\special{pa -1008 226}\special{pa -921 150}%
+\special{pa -835 67}\special{pa -748 -20}\special{pa -661 -105}\special{pa -575 -185}%
+\special{pa -488 -257}\special{pa -402 -316}\special{pa -315 -359}\special{pa -228 -386}%
+\special{pa -142 -394}\special{pa -55 -383}\special{pa 31 -353}\special{pa 118 -306}%
+\special{pa 205 -245}\special{pa 291 -172}\special{pa 378 -90}\special{pa 465 -5}%
+\special{pa 551 81}\special{pa 638 164}\special{pa 724 238}\special{pa 811 300}\special{pa 898 349}%
+\special{pa 984 380}\special{pa 1071 393}\special{pa 1157 388}\special{pa 1244 363}%
+\special{pa 1331 321}\special{pa 1417 264}\special{pa 1504 193}\special{pa 1591 114}%
+\special{pa 1677 29}\special{pa 1764 -58}\special{pa 1850 -141}\special{pa 1937 -218}%
+\special{pa 2024 -284}\special{pa 2110 -337}\special{pa 2197 -373}\special{pa 2283 -392}%
+\special{pa 2370 -391}\special{pa 2457 -372}\special{pa 2543 -334}\special{pa 2630 -281}%
+\special{pa 2717 -214}\special{pa 2803 -137}\special{pa 2890 -53}\special{pa 2976 33}%
+\special{pa 3063 118}\special{pa 3150 197}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.sce
new file mode 100644
index 00000000..4098414b
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.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/p022.tex';
+Fnamesci='sinecurve/p022.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-(4.7))'),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/p022.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.tex
new file mode 100644
index 00000000..0ae71a1f
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p022.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p022.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 389}\special{pa -1094 366}\special{pa -1008 326}\special{pa -921 270}%
+\special{pa -835 201}\special{pa -748 123}\special{pa -661 38}\special{pa -575 -48}%
+\special{pa -488 -132}\special{pa -402 -210}\special{pa -315 -278}\special{pa -228 -332}%
+\special{pa -142 -370}\special{pa -55 -390}\special{pa 31 -392}\special{pa 118 -375}%
+\special{pa 205 -339}\special{pa 291 -287}\special{pa 378 -222}\special{pa 465 -145}%
+\special{pa 551 -62}\special{pa 638 24}\special{pa 724 109}\special{pa 811 189}\special{pa 898 260}%
+\special{pa 984 318}\special{pa 1071 361}\special{pa 1157 387}\special{pa 1244 394}%
+\special{pa 1331 381}\special{pa 1417 351}\special{pa 1504 303}\special{pa 1591 241}%
+\special{pa 1677 168}\special{pa 1764 86}\special{pa 1850 0}\special{pa 1937 -86}%
+\special{pa 2024 -168}\special{pa 2110 -241}\special{pa 2197 -303}\special{pa 2283 -351}%
+\special{pa 2370 -381}\special{pa 2457 -394}\special{pa 2543 -387}\special{pa 2630 -361}%
+\special{pa 2717 -318}\special{pa 2803 -260}\special{pa 2890 -189}\special{pa 2976 -109}%
+\special{pa 3063 -24}\special{pa 3150 62}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.sce
new file mode 100644
index 00000000..e1b9ba89
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.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/p023.tex';
+Fnamesci='sinecurve/p023.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-(5.06667))'),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/p023.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.tex
new file mode 100644
index 00000000..e1d4825c
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p023.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p023.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 385}\special{pa -1094 394}\special{pa -1008 384}\special{pa -921 355}%
+\special{pa -835 309}\special{pa -748 249}\special{pa -661 176}\special{pa -575 95}%
+\special{pa -488 9}\special{pa -402 -77}\special{pa -315 -159}\special{pa -228 -234}%
+\special{pa -142 -297}\special{pa -55 -347}\special{pa 31 -379}\special{pa 118 -393}%
+\special{pa 205 -388}\special{pa 291 -365}\special{pa 378 -324}\special{pa 465 -267}%
+\special{pa 551 -197}\special{pa 638 -118}\special{pa 724 -33}\special{pa 811 53}%
+\special{pa 898 137}\special{pa 984 214}\special{pa 1071 281}\special{pa 1157 334}%
+\special{pa 1244 372}\special{pa 1331 391}\special{pa 1417 392}\special{pa 1504 373}%
+\special{pa 1591 337}\special{pa 1677 284}\special{pa 1764 218}\special{pa 1850 141}%
+\special{pa 1937 58}\special{pa 2024 -29}\special{pa 2110 -114}\special{pa 2197 -193}%
+\special{pa 2283 -264}\special{pa 2370 -321}\special{pa 2457 -363}\special{pa 2543 -388}%
+\special{pa 2630 -393}\special{pa 2717 -380}\special{pa 2803 -349}\special{pa 2890 -300}%
+\special{pa 2976 -238}\special{pa 3063 -164}\special{pa 3150 -81}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.sce
new file mode 100644
index 00000000..80b67fb5
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.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/p024.tex';
+Fnamesci='sinecurve/p024.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-(5.43333))'),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/p024.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.tex
new file mode 100644
index 00000000..c314a918
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p024.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p024.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 329}\special{pa -1094 369}\special{pa -1008 390}\special{pa -921 392}%
+\special{pa -835 376}\special{pa -748 342}\special{pa -661 291}\special{pa -575 226}%
+\special{pa -488 150}\special{pa -402 67}\special{pa -315 -20}\special{pa -228 -105}%
+\special{pa -142 -185}\special{pa -55 -257}\special{pa 31 -316}\special{pa 118 -359}%
+\special{pa 205 -386}\special{pa 291 -394}\special{pa 378 -383}\special{pa 465 -353}%
+\special{pa 551 -306}\special{pa 638 -245}\special{pa 724 -172}\special{pa 811 -90}%
+\special{pa 898 -5}\special{pa 984 81}\special{pa 1071 164}\special{pa 1157 238}\special{pa 1244 300}%
+\special{pa 1331 349}\special{pa 1417 380}\special{pa 1504 393}\special{pa 1591 388}%
+\special{pa 1677 363}\special{pa 1764 321}\special{pa 1850 264}\special{pa 1937 193}%
+\special{pa 2024 114}\special{pa 2110 29}\special{pa 2197 -58}\special{pa 2283 -141}%
+\special{pa 2370 -218}\special{pa 2457 -284}\special{pa 2543 -337}\special{pa 2630 -373}%
+\special{pa 2717 -392}\special{pa 2803 -391}\special{pa 2890 -372}\special{pa 2976 -334}%
+\special{pa 3063 -281}\special{pa 3150 -214}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.sce
new file mode 100644
index 00000000..594d15e8
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.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/p025.tex';
+Fnamesci='sinecurve/p025.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-(5.8))'),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/p025.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.tex
new file mode 100644
index 00000000..a614daaf
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p025.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p025.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 230}\special{pa -1094 294}\special{pa -1008 344}\special{pa -921 378}%
+\special{pa -835 393}\special{pa -748 389}\special{pa -661 366}\special{pa -575 326}%
+\special{pa -488 270}\special{pa -402 201}\special{pa -315 123}\special{pa -228 38}%
+\special{pa -142 -48}\special{pa -55 -132}\special{pa 31 -210}\special{pa 118 -278}%
+\special{pa 205 -332}\special{pa 291 -370}\special{pa 378 -390}\special{pa 465 -392}%
+\special{pa 551 -375}\special{pa 638 -339}\special{pa 724 -287}\special{pa 811 -222}%
+\special{pa 898 -145}\special{pa 984 -62}\special{pa 1071 24}\special{pa 1157 109}%
+\special{pa 1244 189}\special{pa 1331 260}\special{pa 1417 318}\special{pa 1504 361}%
+\special{pa 1591 387}\special{pa 1677 394}\special{pa 1764 381}\special{pa 1850 351}%
+\special{pa 1937 303}\special{pa 2024 241}\special{pa 2110 168}\special{pa 2197 86}%
+\special{pa 2283 0}\special{pa 2370 -86}\special{pa 2457 -168}\special{pa 2543 -241}%
+\special{pa 2630 -303}\special{pa 2717 -351}\special{pa 2803 -381}\special{pa 2890 -394}%
+\special{pa 2976 -387}\special{pa 3063 -361}\special{pa 3150 -318}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.sce
new file mode 100644
index 00000000..cfc3e3b3
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.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/p026.tex';
+Fnamesci='sinecurve/p026.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-(6.16667))'),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/p026.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.tex
new file mode 100644
index 00000000..6c9ec3c0
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p026.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p026.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 100}\special{pa -1094 181}\special{pa -1008 253}\special{pa -921 313}%
+\special{pa -835 357}\special{pa -748 385}\special{pa -661 394}\special{pa -575 384}%
+\special{pa -488 355}\special{pa -402 309}\special{pa -315 249}\special{pa -228 176}%
+\special{pa -142 95}\special{pa -55 9}\special{pa 31 -77}\special{pa 118 -159}\special{pa 205 -234}%
+\special{pa 291 -297}\special{pa 378 -347}\special{pa 465 -379}\special{pa 551 -393}%
+\special{pa 638 -388}\special{pa 724 -365}\special{pa 811 -324}\special{pa 898 -267}%
+\special{pa 984 -197}\special{pa 1071 -118}\special{pa 1157 -33}\special{pa 1244 53}%
+\special{pa 1331 137}\special{pa 1417 214}\special{pa 1504 281}\special{pa 1591 334}%
+\special{pa 1677 372}\special{pa 1764 391}\special{pa 1850 392}\special{pa 1937 373}%
+\special{pa 2024 337}\special{pa 2110 284}\special{pa 2197 218}\special{pa 2283 141}%
+\special{pa 2370 58}\special{pa 2457 -29}\special{pa 2543 -114}\special{pa 2630 -193}%
+\special{pa 2717 -264}\special{pa 2803 -321}\special{pa 2890 -363}\special{pa 2976 -388}%
+\special{pa 3063 -393}\special{pa 3150 -380}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.sce
new file mode 100644
index 00000000..eb50e908
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.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/p027.tex';
+Fnamesci='sinecurve/p027.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-(6.53333))'),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/p027.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.tex
new file mode 100644
index 00000000..bb60c80e
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p027.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p027.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -43}\special{pa -1094 44}\special{pa -1008 128}\special{pa -921 206}%
+\special{pa -835 274}\special{pa -748 329}\special{pa -661 369}\special{pa -575 390}%
+\special{pa -488 392}\special{pa -402 376}\special{pa -315 342}\special{pa -228 291}%
+\special{pa -142 226}\special{pa -55 150}\special{pa 31 67}\special{pa 118 -20}\special{pa 205 -105}%
+\special{pa 291 -185}\special{pa 378 -257}\special{pa 465 -316}\special{pa 551 -359}%
+\special{pa 638 -386}\special{pa 724 -394}\special{pa 811 -383}\special{pa 898 -353}%
+\special{pa 984 -306}\special{pa 1071 -245}\special{pa 1157 -172}\special{pa 1244 -90}%
+\special{pa 1331 -5}\special{pa 1417 81}\special{pa 1504 164}\special{pa 1591 238}%
+\special{pa 1677 300}\special{pa 1764 349}\special{pa 1850 380}\special{pa 1937 393}%
+\special{pa 2024 388}\special{pa 2110 363}\special{pa 2197 321}\special{pa 2283 264}%
+\special{pa 2370 193}\special{pa 2457 114}\special{pa 2543 29}\special{pa 2630 -58}%
+\special{pa 2717 -141}\special{pa 2803 -218}\special{pa 2890 -284}\special{pa 2976 -337}%
+\special{pa 3063 -373}\special{pa 3150 -392}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.sce
new file mode 100644
index 00000000..852dc363
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.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/p028.tex';
+Fnamesci='sinecurve/p028.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-(6.9))'),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/p028.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.tex
new file mode 100644
index 00000000..c2ea3ad3
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p028.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p028.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -180}\special{pa -1094 -99}\special{pa -1008 -14}\special{pa -921 72}%
+\special{pa -835 155}\special{pa -748 230}\special{pa -661 294}\special{pa -575 344}%
+\special{pa -488 378}\special{pa -402 393}\special{pa -315 389}\special{pa -228 366}%
+\special{pa -142 326}\special{pa -55 270}\special{pa 31 201}\special{pa 118 123}\special{pa 205 38}%
+\special{pa 291 -48}\special{pa 378 -132}\special{pa 465 -210}\special{pa 551 -278}%
+\special{pa 638 -332}\special{pa 724 -370}\special{pa 811 -390}\special{pa 898 -392}%
+\special{pa 984 -375}\special{pa 1071 -339}\special{pa 1157 -287}\special{pa 1244 -222}%
+\special{pa 1331 -145}\special{pa 1417 -62}\special{pa 1504 24}\special{pa 1591 109}%
+\special{pa 1677 189}\special{pa 1764 260}\special{pa 1850 318}\special{pa 1937 361}%
+\special{pa 2024 387}\special{pa 2110 394}\special{pa 2197 381}\special{pa 2283 351}%
+\special{pa 2370 303}\special{pa 2457 241}\special{pa 2543 168}\special{pa 2630 86}%
+\special{pa 2717 0}\special{pa 2803 -86}\special{pa 2890 -168}\special{pa 2976 -241}%
+\special{pa 3063 -303}\special{pa 3150 -351}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.sce
new file mode 100644
index 00000000..3d8c60e0
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.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/p029.tex';
+Fnamesci='sinecurve/p029.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-(7.26667))'),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/p029.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.tex
new file mode 100644
index 00000000..e5da848b
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p029.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p029.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -294}\special{pa -1094 -229}\special{pa -1008 -154}\special{pa -921 -71}%
+\special{pa -835 15}\special{pa -748 100}\special{pa -661 181}\special{pa -575 253}%
+\special{pa -488 313}\special{pa -402 357}\special{pa -315 385}\special{pa -228 394}%
+\special{pa -142 384}\special{pa -55 355}\special{pa 31 309}\special{pa 118 249}\special{pa 205 176}%
+\special{pa 291 95}\special{pa 378 9}\special{pa 465 -77}\special{pa 551 -159}\special{pa 638 -234}%
+\special{pa 724 -297}\special{pa 811 -347}\special{pa 898 -379}\special{pa 984 -393}%
+\special{pa 1071 -388}\special{pa 1157 -365}\special{pa 1244 -324}\special{pa 1331 -267}%
+\special{pa 1417 -197}\special{pa 1504 -118}\special{pa 1591 -33}\special{pa 1677 53}%
+\special{pa 1764 137}\special{pa 1850 214}\special{pa 1937 281}\special{pa 2024 334}%
+\special{pa 2110 372}\special{pa 2197 391}\special{pa 2283 392}\special{pa 2370 373}%
+\special{pa 2457 337}\special{pa 2543 284}\special{pa 2630 218}\special{pa 2717 141}%
+\special{pa 2803 58}\special{pa 2890 -29}\special{pa 2976 -114}\special{pa 3063 -193}%
+\special{pa 3150 -264}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.sce
new file mode 100644
index 00000000..8e9095ae
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.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/p030.tex';
+Fnamesci='sinecurve/p030.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-(7.63333))'),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/p030.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.tex
new file mode 100644
index 00000000..de40f068
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p030.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p030.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -368}\special{pa -1094 -329}\special{pa -1008 -274}\special{pa -921 -205}%
+\special{pa -835 -127}\special{pa -748 -43}\special{pa -661 44}\special{pa -575 128}%
+\special{pa -488 206}\special{pa -402 274}\special{pa -315 329}\special{pa -228 369}%
+\special{pa -142 390}\special{pa -55 392}\special{pa 31 376}\special{pa 118 342}\special{pa 205 291}%
+\special{pa 291 226}\special{pa 378 150}\special{pa 465 67}\special{pa 551 -20}\special{pa 638 -105}%
+\special{pa 724 -185}\special{pa 811 -257}\special{pa 898 -316}\special{pa 984 -359}%
+\special{pa 1071 -386}\special{pa 1157 -394}\special{pa 1244 -383}\special{pa 1331 -353}%
+\special{pa 1417 -306}\special{pa 1504 -245}\special{pa 1591 -172}\special{pa 1677 -90}%
+\special{pa 1764 -5}\special{pa 1850 81}\special{pa 1937 164}\special{pa 2024 238}%
+\special{pa 2110 300}\special{pa 2197 349}\special{pa 2283 380}\special{pa 2370 393}%
+\special{pa 2457 388}\special{pa 2543 363}\special{pa 2630 321}\special{pa 2717 264}%
+\special{pa 2803 193}\special{pa 2890 114}\special{pa 2976 29}\special{pa 3063 -58}%
+\special{pa 3150 -141}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.sce
new file mode 100644
index 00000000..12cd3fcd
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.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/p031.tex';
+Fnamesci='sinecurve/p031.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-(8))'),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/p031.tex','1cm');
+ Fontsize('s');
+ Drwline(gr1);
+Closefile('1');
+
+end;
+
+quit();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.tex
new file mode 100644
index 00000000..e9041ca9
--- /dev/null
+++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve/p031.tex
@@ -0,0 +1,42 @@
+%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve/p031.tex 2017-8-24 14:44
+%%% figs0704paraall.sce 2017-8-24 14:44
+{\unitlength=1cm%
+\begin{picture}%
+( 11.00000, 3.00000)( -3.00000, -1.50000)%
+\special{pn 8}%
+%
+\small%
+\special{pa -1181 -394}\special{pa -1094 -385}\special{pa -1008 -357}\special{pa -921 -312}%
+\special{pa -835 -252}\special{pa -748 -180}\special{pa -661 -99}\special{pa -575 -14}%
+\special{pa -488 72}\special{pa -402 155}\special{pa -315 230}\special{pa -228 294}%
+\special{pa -142 344}\special{pa -55 378}\special{pa 31 393}\special{pa 118 389}\special{pa 205 366}%
+\special{pa 291 326}\special{pa 378 270}\special{pa 465 201}\special{pa 551 123}\special{pa 638 38}%
+\special{pa 724 -48}\special{pa 811 -132}\special{pa 898 -210}\special{pa 984 -278}%
+\special{pa 1071 -332}\special{pa 1157 -370}\special{pa 1244 -390}\special{pa 1331 -392}%
+\special{pa 1417 -375}\special{pa 1504 -339}\special{pa 1591 -287}\special{pa 1677 -222}%
+\special{pa 1764 -145}\special{pa 1850 -62}\special{pa 1937 24}\special{pa 2024 109}%
+\special{pa 2110 189}\special{pa 2197 260}\special{pa 2283 318}\special{pa 2370 361}%
+\special{pa 2457 387}\special{pa 2543 394}\special{pa 2630 381}\special{pa 2717 351}%
+\special{pa 2803 303}\special{pa 2890 241}\special{pa 2976 168}\special{pa 3063 86}%
+\special{pa 3150 0}%
+\special{fp}%
+\special{pa -1181 0}\special{pa 3150 0}%
+\special{fp}%
+\special{pa 0 591}\special{pa 0 -591}%
+\special{fp}%
+\settowidth{\Width}{$x$}\setlength{\Width}{0\Width}%
+\settoheight{\Height}{$x$}\settodepth{\Depth}{$x$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}%
+\put(8.0500,0.0000){\hspace*{\Width}\raisebox{\Height}{$x$}}%
+%
+%
+\settowidth{\Width}{$y$}\setlength{\Width}{-0.5\Width}%
+\settoheight{\Height}{$y$}\settodepth{\Depth}{$y$}\setlength{\Height}{\Depth}%
+\put(0.0000,1.5500){\hspace*{\Width}\raisebox{\Height}{$y$}}%
+%
+%
+\settowidth{\Width}{O}\setlength{\Width}{-1\Width}%
+\settoheight{\Height}{O}\settodepth{\Depth}{O}\setlength{\Height}{-\Height}%
+\put(-0.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{O}}%
+%
+%
+\end{picture}}% \ No newline at end of file