diff options
Diffstat (limited to 'texmf-dist/doc/support/ketpic/ketsample')
329 files changed, 33773 insertions, 0 deletions
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figure.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figure.cdy Binary files differnew file mode 100644 index 00000000..39743713 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figure.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figurepdf.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figurepdf.cdy Binary files differnew file mode 100644 index 00000000..a7ec7bc8 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0101figurepdf.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0102figure2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0102figure2.cdy Binary files differnew file mode 100644 index 00000000..2c47d865 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0102figure2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0103polygon.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0103polygon.cdy Binary files differnew file mode 100644 index 00000000..4cd7f45d --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0103polygon.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0104shade.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0104shade.cdy Binary files differnew file mode 100644 index 00000000..1c15aad4 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0104shade.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0105vector.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0105vector.cdy Binary files differnew file mode 100644 index 00000000..8141e170 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0105vector.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0106bowhatch.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0106bowhatch.cdy Binary files differnew file mode 100644 index 00000000..66665e7b --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0106bowhatch.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0107hyperbolahatch.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0107hyperbolahatch.cdy Binary files differnew file mode 100644 index 00000000..52472b6b --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0107hyperbolahatch.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0108cycloid.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0108cycloid.cdy Binary files differnew file mode 100644 index 00000000..55dc91da --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0108cycloid.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0109epitrochoid.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0109epitrochoid.cdy Binary files differnew file mode 100644 index 00000000..fb3d1edd --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0109epitrochoid.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0110hypotrochoid.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0110hypotrochoid.cdy Binary files differnew file mode 100644 index 00000000..20bdb0b6 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s01figure/s0110hypotrochoid.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201basic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201basic.cdy Binary files differnew file mode 100644 index 00000000..554dce95 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201basic.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201graph.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201graph.cdy Binary files differnew file mode 100644 index 00000000..a77e70e6 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0201graph.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph1.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph1.cdy Binary files differnew file mode 100644 index 00000000..1fc67dfe --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph1.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph2.cdy Binary files differnew file mode 100644 index 00000000..9230fd0d --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0202graph2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203ellipse.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203ellipse.cdy Binary files differnew file mode 100644 index 00000000..be4aa3b0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203ellipse.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203graph2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203graph2.cdy Binary files differnew file mode 100644 index 00000000..4923347d --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0203graph2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204graph3.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204graph3.cdy Binary files differnew file mode 100644 index 00000000..bac0217a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204graph3.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204parabola.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204parabola.cdy Binary files differnew file mode 100644 index 00000000..14ba552f --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0204parabola.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205coniccurve.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205coniccurve.cdy Binary files differnew file mode 100644 index 00000000..1989b525 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205coniccurve.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205hyperbola.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205hyperbola.cdy Binary files differnew file mode 100644 index 00000000..4e499a8c --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0205hyperbola.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0206defexp.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0206defexp.cdy Binary files differnew file mode 100644 index 00000000..e3cfb996 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0206defexp.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0207envelope.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0207envelope.cdy Binary files differnew file mode 100644 index 00000000..e4845b6e --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0207envelope.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0208intersecthatch.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0208intersecthatch.cdy Binary files differnew file mode 100644 index 00000000..51f9e599 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0208intersecthatch.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0209diffeq.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0209diffeq.cdy Binary files differnew file mode 100644 index 00000000..b26105c3 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0209diffeq.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0210diffeq2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0210diffeq2.cdy Binary files differnew file mode 100644 index 00000000..60643944 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0210diffeq2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0211plotdataS.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0211plotdataS.cdy Binary files differnew file mode 100644 index 00000000..a17108af --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0211plotdataS.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0212implicit.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0212implicit.cdy Binary files differnew file mode 100644 index 00000000..1f17df2a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0212implicit.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0213implicithatch.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0213implicithatch.cdy Binary files differnew file mode 100644 index 00000000..14e28924 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s02graph/s0213implicithatch.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0301table.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0301table.cdy Binary files differnew file mode 100644 index 00000000..f69402ce --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0301table.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2.cdy Binary files differnew file mode 100644 index 00000000..53a21e88 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2line.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2line.cdy Binary files differnew file mode 100644 index 00000000..4d598e7a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0302table2line.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0303papersquared.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0303papersquared.cdy Binary files differnew file mode 100644 index 00000000..68595c9e --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0303papersquared.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0304graphforincanddec.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0304graphforincanddec.cdy Binary files differnew file mode 100644 index 00000000..b80556ef --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0304graphforincanddec.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0305incanddec.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0305incanddec.cdy Binary files differnew file mode 100644 index 00000000..8749d495 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s03table/s0305incanddec.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/dogwalk.png b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/dogwalk.png Binary files differnew file mode 100644 index 00000000..4cb91fa0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/dogwalk.png diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/heart.png b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/heart.png Binary files differnew file mode 100644 index 00000000..1aa2d7fd --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/heart.png diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/mtfuji.png b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/mtfuji.png Binary files differnew file mode 100644 index 00000000..4a060da9 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/mtfuji.png diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0401bezierbasic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0401bezierbasic.cdy Binary files differnew file mode 100644 index 00000000..280d0afd --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0401bezierbasic.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0402bezier2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0402bezier2.cdy Binary files differnew file mode 100644 index 00000000..cb1a9dc4 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0402bezier2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0403bezierspline.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0403bezierspline.cdy Binary files differnew file mode 100644 index 00000000..aedd63c6 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0403bezierspline.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0404mtfuji.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0404mtfuji.cdy Binary files differnew file mode 100644 index 00000000..d0df99e0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0404mtfuji.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0405dogwalk.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0405dogwalk.cdy Binary files differnew file mode 100644 index 00000000..a0c6df7a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0405dogwalk.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0406heart.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0406heart.cdy Binary files differnew file mode 100644 index 00000000..870a1362 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s04bezier/s0406heart.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/CindyScriptset.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/CindyScriptset.txt new file mode 100644 index 00000000..045bf884 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/CindyScriptset.txt @@ -0,0 +1,17 @@ +use("KetCindyPlugin");
+if(isexists(plugindirectory,"dirhead.txt"),
+ setdirectory(plugindirectory);
+ import("dirhead.txt");
+,
+ Dirhead=getdirhead();
+);
+Shellfile="";
+setdirectory(Dirhead);
+import("setketcindy.txt");
+import("ketoutset.txt");
+
+setdirectory(Dirwork);
+
+Helplist(["+","+3d","+mv"],"helpJ");
+Ketinit();
+Ketinit3d();
diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501basic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501basic.cdy Binary files differnew file mode 100644 index 00000000..96ffa3d3 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501basic.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501plane.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501plane.cdy Binary files differnew file mode 100644 index 00000000..e5ee1455 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0501plane.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0502spacecurve.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0502spacecurve.cdy Binary files differnew file mode 100644 index 00000000..64d9c939 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0502spacecurve.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0503perp.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0503perp.cdy Binary files differnew file mode 100644 index 00000000..272029ac --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0503perp.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0504embed.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0504embed.cdy Binary files differnew file mode 100644 index 00000000..65becd6d --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0504embed.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0505bezier3d.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0505bezier3d.cdy Binary files differnew file mode 100644 index 00000000..32bf0a6f --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0505bezier3d.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0506embedhatch.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0506embedhatch.cdy Binary files differnew file mode 100644 index 00000000..a6b7a3fe --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0506embedhatch.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0507polyhedron.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0507polyhedron.cdy Binary files differnew file mode 100644 index 00000000..a86fae8f --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0507polyhedron.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0508concatobj.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0508concatobj.cdy Binary files differnew file mode 100644 index 00000000..8605f532 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s0508concatobj.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05091tetra.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05091tetra.cdy Binary files differnew file mode 100644 index 00000000..3fcd5e91 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05091tetra.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05092cubiccut.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05092cubiccut.cdy Binary files differnew file mode 100644 index 00000000..41ac02bc --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05092cubiccut.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05093cubiccut2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05093cubiccut2.cdy Binary files differnew file mode 100644 index 00000000..0e434b16 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s05spacefigure/s05093cubiccut2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/CindyScriptset.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/CindyScriptset.txt new file mode 100755 index 00000000..3d0e239a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/CindyScriptset.txt @@ -0,0 +1,17 @@ +use("KetCindyPlugin");
+if(isexists(plugindirectory,"dirhead.txt"),
+ setdirectory(plugindirectory);
+ import("dirhead.txt");
+,
+ Dirhead=getdirhead();
+);
+Shellfile="";
+setdirectory(Dirhead);
+import("setketcindy.txt");
+import("ketoutset.txt");
+
+setdirectory(Dirwork);
+
+Helplist(["+","+3d","+mv"],"helpJ");
+
+Shellfile="mv";
\ No newline at end of file diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0601cycloid.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0601cycloid.cdy Binary files differnew file mode 100755 index 00000000..50896c81 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0601cycloid.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0602diffeq.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0602diffeq.cdy Binary files differnew file mode 100755 index 00000000..c07f11d3 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0602diffeq.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0603envelope.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0603envelope.cdy Binary files differnew file mode 100755 index 00000000..6c57146d --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0603envelope.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0604diffeq2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0604diffeq2.cdy Binary files differnew file mode 100755 index 00000000..f46a4bf9 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0604diffeq2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0605cycloid2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0605cycloid2.cdy Binary files differnew file mode 100755 index 00000000..bcd417d7 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0605cycloid2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0606epitrochoid.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0606epitrochoid.cdy Binary files differnew file mode 100755 index 00000000..1f4de6f1 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0606epitrochoid.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0607hypotrochoid.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0607hypotrochoid.cdy Binary files differnew file mode 100755 index 00000000..5739299d --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0607hypotrochoid.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0608cycloid3.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0608cycloid3.cdy Binary files differnew file mode 100755 index 00000000..f1d8418a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s06animation/s0608cycloid3.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/animpointoncircle.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/animpointoncircle.tex new file mode 100644 index 00000000..32e577d2 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/animpointoncircle.tex @@ -0,0 +1,54 @@ +\def\parapath{/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig}% +\begin{animateinline}[loop]{10}% +\scalebox{1}{\input{\parapath/pointoncircle/p001.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p002.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p003.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p004.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p005.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p006.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p007.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p008.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p009.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p010.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p011.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p012.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p013.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p014.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p015.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p016.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p017.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p018.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p019.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p020.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p021.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p022.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p023.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p024.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p025.tex}}% +\newframe% +\scalebox{1}{\input{\parapath/pointoncircle/p026.tex}}% +\end{animateinline}% diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.pdf Binary files differnew file mode 100644 index 00000000..54b9d79e --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.pdf diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.txt new file mode 100644 index 00000000..bb7171eb --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/cindyscreen.txt @@ -0,0 +1,8 @@ +%%Title: cindyscreen.pdf +%%Creator: extractbb 20160307 +%%BoundingBox: 0 0 803 285 +%%HiResBoundingBox: 0.000000 0.000000 803.000000 285.000000 +%%PDFVersion: 1.4 +%%Pages: 1 +%%CreationDate: Sun Jun 25 09:11:39 2017 + diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paraall.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paraall.sce new file mode 100644 index 00000000..2da97ad6 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paraall.sce @@ -0,0 +1,13 @@ +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');// +Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6");// +Ketinit();// +Setwindow([(-3),(8)],[(-1.5),(1.5)]); +pi=%pi;//// +fL=["sinecurve/p001.sce","sinecurve/p002.sce","sinecurve/p003.sce","sinecurve/p004.sce","sinecurve/p005.sce","sinecurve/p006.sce","sinecurve/p007.sce","sinecurve/p008.sce","sinecurve/p009.sce","sinecurve/p010.sce","sinecurve/p011.sce","sinecurve/p012.sce","sinecurve/p013.sce","sinecurve/p014.sce","sinecurve/p015.sce","sinecurve/p016.sce","sinecurve/p017.sce","sinecurve/p018.sce","sinecurve/p019.sce","sinecurve/p020.sce","sinecurve/p021.sce","sinecurve/p022.sce","sinecurve/p023.sce","sinecurve/p024.sce","sinecurve/p025.sce","sinecurve/p026.sce","sinecurve/p027.sce","sinecurve/p028.sce","sinecurve/p029.sce","sinecurve/p030.sce","sinecurve/p031.sce"]// +Dt=mgetl(fL(1));// +Dt=Dt(1:(size(Dt,1)-1),:)// +for I=2:size(fL,2),Tmp=mgetl(fL(I));N=size(Tmp,1)-1;Tmp1=Tmp(13:N,:);Dt=[Dt;Tmp1],end// +mputl(Dt,'sinecurve/all.sce')// +exec('sinecurve/all.sce',-1)// +mputl('||||','resultS.txt')// +quit()// diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paracrdr.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paracrdr.sce new file mode 100644 index 00000000..1f300602 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paracrdr.sce @@ -0,0 +1,8 @@ +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');// +Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6");// +Ketinit();// +Setwindow([(-3),(8)],[(-1.5),(1.5)]); +pi=%pi;//// +createdir("sinecurve");// +mputl('||||','resultS.txt')// +quit()// diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paramain.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paramain.tex new file mode 100644 index 00000000..39603a5c --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0704paramain.tex @@ -0,0 +1,18 @@ +\documentclass{ujarticle} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer} +\usepackage{amsmath,amssymb} +\usepackage{graphicx} +\usepackage{color} +\usepackage[dvipdfmx,colorlinks=true,linkcolor=blue,filecolor=blue]{hyperref} + +\setmargin{20}{20}{20}{20} + +\begin{document} + +\verb|figs0704para| by \ketcindy +\vspace{5mm} + +\input{figs0704para.tex} + +\end{document} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animateall.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animateall.sce new file mode 100644 index 00000000..686cd696 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animateall.sce @@ -0,0 +1,13 @@ +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');// +Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6");// +Ketinit();// +Setwindow([(-2.5),(2.5)],[(-2.5),(2.5)]); +pi=%pi;//// +fL=["pointoncircle/p001.sce","pointoncircle/p002.sce","pointoncircle/p003.sce","pointoncircle/p004.sce","pointoncircle/p005.sce","pointoncircle/p006.sce","pointoncircle/p007.sce","pointoncircle/p008.sce","pointoncircle/p009.sce","pointoncircle/p010.sce","pointoncircle/p011.sce","pointoncircle/p012.sce","pointoncircle/p013.sce","pointoncircle/p014.sce","pointoncircle/p015.sce","pointoncircle/p016.sce","pointoncircle/p017.sce","pointoncircle/p018.sce","pointoncircle/p019.sce","pointoncircle/p020.sce","pointoncircle/p021.sce","pointoncircle/p022.sce","pointoncircle/p023.sce","pointoncircle/p024.sce","pointoncircle/p025.sce","pointoncircle/p026.sce"]// +Dt=mgetl(fL(1));// +Dt=Dt(1:(size(Dt,1)-1),:)// +for I=2:size(fL,2),Tmp=mgetl(fL(I));N=size(Tmp,1)-1;Tmp1=Tmp(13:N,:);Dt=[Dt;Tmp1],end// +mputl(Dt,'pointoncircle/all.sce')// +exec('pointoncircle/all.sce',-1)// +mputl('||||','resultS.txt')// +quit()// diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatecrdr.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatecrdr.sce new file mode 100644 index 00000000..ffe85fb3 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatecrdr.sce @@ -0,0 +1,9 @@ +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');// +Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6");// +Ketinit();// +Setwindow([(-2.5),(2.5)],[(-2.5),(2.5)]); +pi=%pi;//// +rmdir("pointoncircle","s");// +createdir("pointoncircle");// +mputl('||||','resultS.txt')// +quit()// diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatemain.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatemain.tex new file mode 100644 index 00000000..74a8cc9e --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animatemain.tex @@ -0,0 +1,19 @@ +\documentclass{ujarticle} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer} +\usepackage{amsmath,amssymb} +\usepackage{graphicx} +\usepackage{color} +\usepackage[dvipdfmx]{animate} +\usepackage[dvipdfmx,colorlinks=true,linkcolor=blue,filecolor=blue]{hyperref} + +\setmargin{20}{20}{20}{20} + +\begin{document} + +\verb|figs0706animate| by \ketcindy +\vspace{5mm} + +\input{figs0706animate.tex} + +\end{document} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationall.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationall.sce new file mode 100644 index 00000000..312c3be2 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationall.sce @@ -0,0 +1,13 @@ +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');// +Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicsciL5");// +Ketinit();// +Setwindow([(-2.5),(2.5)],[(-2.5),(2.5)]); +pi=%pi;//// +fL=["pointoncircle/p001.sce","pointoncircle/p002.sce","pointoncircle/p003.sce","pointoncircle/p004.sce","pointoncircle/p005.sce","pointoncircle/p006.sce","pointoncircle/p007.sce","pointoncircle/p008.sce","pointoncircle/p009.sce","pointoncircle/p010.sce","pointoncircle/p011.sce","pointoncircle/p012.sce","pointoncircle/p013.sce","pointoncircle/p014.sce","pointoncircle/p015.sce","pointoncircle/p016.sce","pointoncircle/p017.sce","pointoncircle/p018.sce","pointoncircle/p019.sce","pointoncircle/p020.sce","pointoncircle/p021.sce","pointoncircle/p022.sce","pointoncircle/p023.sce","pointoncircle/p024.sce","pointoncircle/p025.sce","pointoncircle/p026.sce"]// +Dt=mgetl(fL(1));// +Dt=Dt(1:(size(Dt,1)-1),:)// +for I=2:size(fL,2),Tmp=mgetl(fL(I));N=size(Tmp,1)-1;Tmp1=Tmp(13:N,:);Dt=[Dt;Tmp1],end// +mputl(Dt,'pointoncircle/all.sce')// +exec('pointoncircle/all.sce',-1)// +mputl('||||','resultS.txt')// +quit()// diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationcrdr.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationcrdr.sce new file mode 100644 index 00000000..523924e4 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationcrdr.sce @@ -0,0 +1,9 @@ +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig');// +Ketlib=lib("/Users/takatoosetsuo/ketcindy/ketlib/ketpicsciL5");// +Ketinit();// +Setwindow([(-2.5),(2.5)],[(-2.5),(2.5)]); +pi=%pi;//// +rmdir("pointoncircle","s");// +createdir("pointoncircle");// +mputl('||||','resultS.txt')// +quit()// diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationmain.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationmain.tex new file mode 100644 index 00000000..815560ef --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figs0706animationmain.tex @@ -0,0 +1,18 @@ +\documentclass{jarticle} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer} +\usepackage{amsmath,amssymb} +\usepackage{graphicx,color} +\usepackage[dvipdfmx]{animate} +\usepackage[dvipdfmx,colorlinks=true,linkcolor=blue,filecolor=blue]{hyperref} + +\setmargin{20}{20}{20}{20} + +\begin{document} + +\verb|figs0706animation| by \ketcindy +\vspace{5mm} + +\input{figs0706animation.tex} + +\end{document} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.sce new file mode 100644 index 00000000..e80242c4 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.sce @@ -0,0 +1,42 @@ +//date time=2017/6/25 09:09:01 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicsciL5'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='figsin.tex'; +Fnamesci='figsin.sce'; +Fnamescibody='figsinbody.sce'; +Fnameout='figsin.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-6,6], [-2,2]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +gr1=Plotdata(Assign('sin(x)'),Assign('x')); +sg1=Listplot([[-6,1],[6,1]]); +sg2=Listplot([[-6,-1],[6,-1]]); +PtL=list(); +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/figsin.tex','1cm'); + Drwline(gr1); + Dashline(sg1); + Dashline(sg2); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.tex new file mode 100644 index 00000000..adb98207 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsin.tex @@ -0,0 +1,105 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/figsin.tex 2017-6-25 9:9 +%%% figsin.sce 2017-6-25 9:9 +{\unitlength=1cm% +\begin{picture}% +( 12.00000, 4.00000)( -6.00000, -2.00000)% +\special{pn 8}% +% +\special{pa -2362 -110}\special{pa -2268 -197}\special{pa -2173 -272}\special{pa -2079 -332}% +\special{pa -1984 -373}\special{pa -1890 -392}\special{pa -1795 -389}\special{pa -1701 -364}% +\special{pa -1606 -318}\special{pa -1512 -253}\special{pa -1417 -174}\special{pa -1323 -85}% +\special{pa -1228 9}\special{pa -1134 102}\special{pa -1039 189}\special{pa -945 266}% +\special{pa -850 327}\special{pa -756 370}\special{pa -661 391}\special{pa -567 390}% +\special{pa -472 367}\special{pa -378 323}\special{pa -283 260}\special{pa -189 182}% +\special{pa -94 94}\special{pa 0 0}\special{pa 94 -94}\special{pa 189 -182}\special{pa 283 -260}% +\special{pa 378 -323}\special{pa 472 -367}\special{pa 567 -390}\special{pa 661 -391}% +\special{pa 756 -370}\special{pa 850 -327}\special{pa 945 -266}\special{pa 1039 -189}% +\special{pa 1134 -102}\special{pa 1228 -9}\special{pa 1323 85}\special{pa 1417 174}% +\special{pa 1512 253}\special{pa 1606 318}\special{pa 1701 364}\special{pa 1795 389}% +\special{pa 1890 392}\special{pa 1984 373}\special{pa 2079 332}\special{pa 2173 272}% +\special{pa 2268 197}\special{pa 2362 110}% +\special{fp}% +\special{pa -2362 -394}\special{pa -2323 -394}\special{fp}\special{pa -2284 -394}\special{pa -2245 -394}\special{fp}% +\special{pa -2206 -394}\special{pa -2167 -394}\special{fp}\special{pa -2128 -394}\special{pa -2089 -394}\special{fp}% +\special{pa -2050 -394}\special{pa -2011 -394}\special{fp}\special{pa -1972 -394}\special{pa -1933 -394}\special{fp}% +\special{pa -1894 -394}\special{pa -1855 -394}\special{fp}\special{pa -1816 -394}\special{pa -1777 -394}\special{fp}% +\special{pa -1737 -394}\special{pa -1698 -394}\special{fp}\special{pa -1659 -394}\special{pa -1620 -394}\special{fp}% +\special{pa -1581 -394}\special{pa -1542 -394}\special{fp}\special{pa -1503 -394}\special{pa -1464 -394}\special{fp}% +\special{pa -1425 -394}\special{pa -1386 -394}\special{fp}\special{pa -1347 -394}\special{pa -1308 -394}\special{fp}% +\special{pa -1269 -394}\special{pa -1230 -394}\special{fp}\special{pa -1191 -394}\special{pa -1152 -394}\special{fp}% +\special{pa -1113 -394}\special{pa -1074 -394}\special{fp}\special{pa -1035 -394}\special{pa -996 -394}\special{fp}% +\special{pa -957 -394}\special{pa -918 -394}\special{fp}\special{pa -879 -394}\special{pa -839 -394}\special{fp}% +\special{pa -800 -394}\special{pa -761 -394}\special{fp}\special{pa -722 -394}\special{pa -683 -394}\special{fp}% +\special{pa -644 -394}\special{pa -605 -394}\special{fp}\special{pa -566 -394}\special{pa -527 -394}\special{fp}% +\special{pa -488 -394}\special{pa -449 -394}\special{fp}\special{pa -410 -394}\special{pa -371 -394}\special{fp}% +\special{pa -332 -394}\special{pa -293 -394}\special{fp}\special{pa -254 -394}\special{pa -215 -394}\special{fp}% +\special{pa -176 -394}\special{pa -137 -394}\special{fp}\special{pa -98 -394}\special{pa -59 -394}\special{fp}% +\special{pa -20 -394}\special{pa 20 -394}\special{fp}\special{pa 59 -394}\special{pa 98 -394}\special{fp}% +\special{pa 137 -394}\special{pa 176 -394}\special{fp}\special{pa 215 -394}\special{pa 254 -394}\special{fp}% +\special{pa 293 -394}\special{pa 332 -394}\special{fp}\special{pa 371 -394}\special{pa 410 -394}\special{fp}% +\special{pa 449 -394}\special{pa 488 -394}\special{fp}\special{pa 527 -394}\special{pa 566 -394}\special{fp}% +\special{pa 605 -394}\special{pa 644 -394}\special{fp}\special{pa 683 -394}\special{pa 722 -394}\special{fp}% +\special{pa 761 -394}\special{pa 800 -394}\special{fp}\special{pa 839 -394}\special{pa 879 -394}\special{fp}% +\special{pa 918 -394}\special{pa 957 -394}\special{fp}\special{pa 996 -394}\special{pa 1035 -394}\special{fp}% +\special{pa 1074 -394}\special{pa 1113 -394}\special{fp}\special{pa 1152 -394}\special{pa 1191 -394}\special{fp}% +\special{pa 1230 -394}\special{pa 1269 -394}\special{fp}\special{pa 1308 -394}\special{pa 1347 -394}\special{fp}% +\special{pa 1386 -394}\special{pa 1425 -394}\special{fp}\special{pa 1464 -394}\special{pa 1503 -394}\special{fp}% +\special{pa 1542 -394}\special{pa 1581 -394}\special{fp}\special{pa 1620 -394}\special{pa 1659 -394}\special{fp}% +\special{pa 1698 -394}\special{pa 1737 -394}\special{fp}\special{pa 1777 -394}\special{pa 1816 -394}\special{fp}% +\special{pa 1855 -394}\special{pa 1894 -394}\special{fp}\special{pa 1933 -394}\special{pa 1972 -394}\special{fp}% +\special{pa 2011 -394}\special{pa 2050 -394}\special{fp}\special{pa 2089 -394}\special{pa 2128 -394}\special{fp}% +\special{pa 2167 -394}\special{pa 2206 -394}\special{fp}\special{pa 2245 -394}\special{pa 2284 -394}\special{fp}% +\special{pa 2323 -394}\special{pa 2362 -394}\special{fp}% +% +\special{pa -2362 394}\special{pa -2323 394}\special{fp}\special{pa -2284 394}\special{pa -2245 394}\special{fp}% +\special{pa -2206 394}\special{pa -2167 394}\special{fp}\special{pa -2128 394}\special{pa -2089 394}\special{fp}% +\special{pa -2050 394}\special{pa -2011 394}\special{fp}\special{pa -1972 394}\special{pa -1933 394}\special{fp}% +\special{pa -1894 394}\special{pa -1855 394}\special{fp}\special{pa -1816 394}\special{pa -1777 394}\special{fp}% +\special{pa -1737 394}\special{pa -1698 394}\special{fp}\special{pa -1659 394}\special{pa -1620 394}\special{fp}% +\special{pa -1581 394}\special{pa -1542 394}\special{fp}\special{pa -1503 394}\special{pa -1464 394}\special{fp}% +\special{pa -1425 394}\special{pa -1386 394}\special{fp}\special{pa -1347 394}\special{pa -1308 394}\special{fp}% +\special{pa -1269 394}\special{pa -1230 394}\special{fp}\special{pa -1191 394}\special{pa -1152 394}\special{fp}% +\special{pa -1113 394}\special{pa -1074 394}\special{fp}\special{pa -1035 394}\special{pa -996 394}\special{fp}% +\special{pa -957 394}\special{pa -918 394}\special{fp}\special{pa -879 394}\special{pa -839 394}\special{fp}% +\special{pa -800 394}\special{pa -761 394}\special{fp}\special{pa -722 394}\special{pa -683 394}\special{fp}% +\special{pa -644 394}\special{pa -605 394}\special{fp}\special{pa -566 394}\special{pa -527 394}\special{fp}% +\special{pa -488 394}\special{pa -449 394}\special{fp}\special{pa -410 394}\special{pa -371 394}\special{fp}% +\special{pa -332 394}\special{pa -293 394}\special{fp}\special{pa -254 394}\special{pa -215 394}\special{fp}% +\special{pa -176 394}\special{pa -137 394}\special{fp}\special{pa -98 394}\special{pa -59 394}\special{fp}% +\special{pa -20 394}\special{pa 20 394}\special{fp}\special{pa 59 394}\special{pa 98 394}\special{fp}% +\special{pa 137 394}\special{pa 176 394}\special{fp}\special{pa 215 394}\special{pa 254 394}\special{fp}% +\special{pa 293 394}\special{pa 332 394}\special{fp}\special{pa 371 394}\special{pa 410 394}\special{fp}% +\special{pa 449 394}\special{pa 488 394}\special{fp}\special{pa 527 394}\special{pa 566 394}\special{fp}% +\special{pa 605 394}\special{pa 644 394}\special{fp}\special{pa 683 394}\special{pa 722 394}\special{fp}% +\special{pa 761 394}\special{pa 800 394}\special{fp}\special{pa 839 394}\special{pa 879 394}\special{fp}% +\special{pa 918 394}\special{pa 957 394}\special{fp}\special{pa 996 394}\special{pa 1035 394}\special{fp}% +\special{pa 1074 394}\special{pa 1113 394}\special{fp}\special{pa 1152 394}\special{pa 1191 394}\special{fp}% +\special{pa 1230 394}\special{pa 1269 394}\special{fp}\special{pa 1308 394}\special{pa 1347 394}\special{fp}% +\special{pa 1386 394}\special{pa 1425 394}\special{fp}\special{pa 1464 394}\special{pa 1503 394}\special{fp}% +\special{pa 1542 394}\special{pa 1581 394}\special{fp}\special{pa 1620 394}\special{pa 1659 394}\special{fp}% +\special{pa 1698 394}\special{pa 1737 394}\special{fp}\special{pa 1777 394}\special{pa 1816 394}\special{fp}% +\special{pa 1855 394}\special{pa 1894 394}\special{fp}\special{pa 1933 394}\special{pa 1972 394}\special{fp}% +\special{pa 2011 394}\special{pa 2050 394}\special{fp}\special{pa 2089 394}\special{pa 2128 394}\special{fp}% +\special{pa 2167 394}\special{pa 2206 394}\special{fp}\special{pa 2245 394}\special{pa 2284 394}\special{fp}% +\special{pa 2323 394}\special{pa 2362 394}\special{fp}% +% +\special{pa -2362 0}\special{pa 2362 0}% +\special{fp}% +\special{pa 0 787}\special{pa 0 -787}% +\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(6.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,2.0500){\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/figsinmain.aux b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.aux new file mode 100644 index 00000000..f23e5468 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.aux @@ -0,0 +1 @@ +\relax diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.log b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.log new file mode 100644 index 00000000..c919c409 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.log @@ -0,0 +1,195 @@ +This is e-pTeX, Version 3.14159265-p3.7-160201-2.6 (utf8.euc) (TeX Live 2016) (preloaded format=platex 2016.12.16) 25 JUN 2017 09:09 +entering extended mode + restricted \write18 enabled. + %&-line parsing enabled. +**figsinmain.tex +(./figsinmain.tex +pLaTeX2e <2016/05/07> (based on LaTeX2e <2016/03/31>) +Babel <3.9r> and hyphenation patterns for 83 language(s) loaded. +(/usr/local/texlive/2016/texmf-dist/tex/platex/base/jarticle.cls +Document Class: jarticle 2006/06/27 v1.6 Standard pLaTeX class +\c@@paper=\count81 +(/usr/local/texlive/2016/texmf-dist/tex/platex/base/jsize10.clo +File: jsize10.clo 2006/06/27 v1.6 Standard pLaTeX file (size option) +) +\c@part=\count82 +\c@section=\count83 +\c@subsection=\count84 +\c@subsubsection=\count85 +\c@paragraph=\count86 +\c@subparagraph=\count87 +\c@figure=\count88 +\c@table=\count89 +\abovecaptionskip=\skip41 +\belowcaptionskip=\skip42 +\symmincho=\mathgroup4 +LaTeX Font Info: Overwriting symbol font `mincho' in version `bold' +(Font) JY1/mc/m/n --> JY1/gt/m/n on input line 593. +\toclineskip=\dimen118 +\@lnumwidth=\dimen119 +\bibindent=\dimen120 +\heisei=\count90 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic.sty +\c@ketpicctra=\count91 +\c@ketpicctrb=\count92 +\c@ketpicctrc=\count93 +\c@ketpicctrd=\count94 +\c@ketpicctre=\count95 +\c@ketpicctrf=\count96 +\c@ketpicctrg=\count97 +\c@ketpicctrh=\count98 +\c@ketpicctri=\count99 +\c@ketpicctrj=\count100 +\Width=\skip43 +\Height=\skip44 +\Depth=\skip45 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer.sty +\layercurrentunit=\skip46 +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsmath.sty +Package: amsmath 2016/03/10 v2.15b AMS math features +\@mathmargin=\skip47 + +For additional information on amsmath, use the `?' option. +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amstext.sty +Package: amstext 2000/06/29 v2.01 AMS text + +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsgen.sty +File: amsgen.sty 1999/11/30 v2.0 generic functions +\@emptytoks=\toks15 +\ex@=\dimen121 +)) +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsbsy.sty +Package: amsbsy 1999/11/29 v1.2d Bold Symbols +\pmbraise@=\dimen122 +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsopn.sty +Package: amsopn 2016/03/08 v2.02 operator names +) +\inf@bad=\count101 +LaTeX Info: Redefining \frac on input line 199. +\uproot@=\count102 +\leftroot@=\count103 +LaTeX Info: Redefining \overline on input line 297. +\classnum@=\count104 +\DOTSCASE@=\count105 +LaTeX Info: Redefining \ldots on input line 394. +LaTeX Info: Redefining \dots on input line 397. +LaTeX Info: Redefining \cdots on input line 518. +\Mathstrutbox@=\box41 +\strutbox@=\box42 +\big@size=\dimen123 +LaTeX Font Info: Redeclaring font encoding OML on input line 634. +LaTeX Font Info: Redeclaring font encoding OMS on input line 635. +\macc@depth=\count106 +\c@MaxMatrixCols=\count107 +\dotsspace@=\muskip10 +\c@parentequation=\count108 +\dspbrk@lvl=\count109 +\tag@help=\toks16 +\row@=\count110 +\column@=\count111 +\maxfields@=\count112 +\andhelp@=\toks17 +\eqnshift@=\dimen124 +\alignsep@=\dimen125 +\tagshift@=\dimen126 +\tagwidth@=\dimen127 +\totwidth@=\dimen128 +\lineht@=\dimen129 +\@envbody=\toks18 +\multlinegap=\skip48 +\multlinetaggap=\skip49 +\mathdisplay@stack=\toks19 +LaTeX Info: Redefining \[ on input line 2739. +LaTeX Info: Redefining \] on input line 2740. +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsfonts/amssymb.sty +Package: amssymb 2013/01/14 v3.01 AMS font symbols + +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsfonts/amsfonts.sty +Package: amsfonts 2013/01/14 v3.01 Basic AMSFonts support +\symAMSa=\mathgroup5 +\symAMSb=\mathgroup6 +LaTeX Font Info: Overwriting math alphabet `\mathfrak' in version `bold' +(Font) U/euf/m/n --> U/euf/b/n on input line 106. +)) +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/graphicx.sty +Package: graphicx 2014/10/28 v1.0g Enhanced LaTeX Graphics (DPC,SPQR) + +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/keyval.sty +Package: keyval 2014/10/28 v1.15 key=value parser (DPC) +\KV@toks@=\toks20 +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/graphics.sty +Package: graphics 2016/05/09 v1.0r Standard LaTeX Graphics (DPC,SPQR) + +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/trig.sty +Package: trig 2016/01/03 v1.10 sin cos tan (DPC) +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics-cfg/graphics.cfg +File: graphics.cfg 2016/01/02 v1.10 sample graphics configuration +) +Package graphics Info: Driver file: dvips.def on input line 96. + +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/dvips.def +File: dvips.def 2015/12/30 v3.0k Driver-dependent file (DPC,SPQR) +)) +\Gin@req@height=\dimen130 +\Gin@req@width=\dimen131 +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/color.sty +Package: color 2016/05/09 v1.1c Standard LaTeX Color (DPC) + +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics-cfg/color.cfg +File: color.cfg 2016/01/02 v1.6 sample color configuration +) +Package color Info: Driver file: dvips.def on input line 144. + +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/dvipsnam.def +File: dvipsnam.def 2015/12/30 v3.0k Driver-dependent file (DPC,SPQR) +)) +No file figsinmain.aux. +\openout1 = `figsinmain.aux'. + +LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 9. +LaTeX Font Info: ... okay on input line 9. +LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 9. +LaTeX Font Info: ... okay on input line 9. +LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 9. +LaTeX Font Info: ... okay on input line 9. +LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 9. +LaTeX Font Info: ... okay on input line 9. +LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 9. +LaTeX Font Info: ... okay on input line 9. +LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 9. +LaTeX Font Info: ... okay on input line 9. +LaTeX Font Info: Checking defaults for JY1/mc/m/n on input line 9. +LaTeX Font Info: ... okay on input line 9. +LaTeX Font Info: Checking defaults for JT1/mc/m/n on input line 9. +LaTeX Font Info: ... okay on input line 9. +(./figsin.tex +LaTeX Font Info: Try loading font information for U+msa on input line 90. + (/usr/local/texlive/2016/texmf-dist/tex/latex/amsfonts/umsa.fd +File: umsa.fd 2013/01/14 v3.01 AMS symbols A +) +LaTeX Font Info: Try loading font information for U+msb on input line 90. + +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsfonts/umsb.fd +File: umsb.fd 2013/01/14 v3.01 AMS symbols B +)) [1 + +] +(./figsinmain.aux) ) +Here is how much of TeX's memory you used: + 1992 strings out of 493693 + 24043 string characters out of 6149786 + 145855 words of memory out of 5000000 + 5564 multiletter control sequences out of 15000+600000 + 9378 words of font info for 40 fonts, out of 8000000 for 9000 + 929 hyphenation exceptions out of 8191 + 27i,5n,26p,287b,169s stack positions out of 5000i,500n,10000p,200000b,80000s + +Output written on figsinmain.dvi (1 page, 5024 bytes). diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.pdf Binary files differnew file mode 100644 index 00000000..dec12d09 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.pdf diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.tex new file mode 100644 index 00000000..91d48c8a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/figsinmain.tex @@ -0,0 +1,16 @@ +\documentclass{jarticle} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer} +\usepackage{amsmath,amssymb} +\usepackage{graphicx,color} + +\setmargin{20}{20}{20}{20} + +\begin{document} + +\verb|figsin| by \ketcindy +\vspace{5mm} + +\input{figsin.tex} + +\end{document} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/kc.sh b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/kc.sh new file mode 100755 index 00000000..06bc6be0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/kc.sh @@ -0,0 +1,4 @@ +#!/bin/sh +cd "/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig" +"/Applications/scilab-6.0.0.app/Contents/MacOS/bin/scilab" -nwni -f figs0704paraall.sce +exit 0 diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/all.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/all.sce new file mode 100644 index 00000000..dd783a0f --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/all.sce @@ -0,0 +1,1130 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p001.tex'; +Fnamesci='pointoncircle/p001.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[1,-0.2]'); Assignrep('mdbw1',[1,-0.2]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[2,0]]); +pt1=Pointdata([2,0]); +bw1=Bowdata([0,0],[2,0],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p001.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([1,-0.2],"c","$2$"); + Drwline(bw1); + Letter([2.2,0],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[1.01832,0.05497]'); Assignrep('mdbw1',[1.01832,0.05497]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.93717,0.49738]]); +pt1=Pointdata([1.93717,0.49738]); +bw1=Bowdata([0,0],[1.93717,0.49738],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p002.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([1.02,0.05],"c","$2$"); + Drwline(bw1); + Letter([2.13,0.55],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.97266,0.30649]'); Assignrep('mdbw1',[0.97266,0.30649]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.75261,0.96351]]); +pt1=Pointdata([1.75261,0.96351]); +bw1=Bowdata([0,0],[1.75261,0.96351],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p003.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.97,0.31],"c","$2$"); + Drwline(bw1); + Letter([1.93,1.06],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.86588,0.53875]'); Assignrep('mdbw1',[0.86588,0.53875]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.45794,1.36909]]); +pt1=Pointdata([1.45794,1.36909]); +bw1=Bowdata([0,0],[1.45794,1.36909],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p004.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.87,0.54],"c","$2$"); + Drwline(bw1); + Letter([1.6,1.51],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.70469,0.73716]'); Assignrep('mdbw1',[0.70469,0.73716]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.07165,1.68866]]); +pt1=Pointdata([1.07165,1.68866]); +bw1=Bowdata([0,0],[1.07165,1.68866],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p005.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.7,0.74],"c","$2$"); + Drwline(bw1); + Letter([1.18,1.86],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.49923,0.88925]'); Assignrep('mdbw1',[0.49923,0.88925]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[0.61803,1.90211]]); +pt1=Pointdata([0.61803,1.90211]); +bw1=Bowdata([0,0],[0.61803,1.90211],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p006.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.5,0.89],"c","$2$"); + Drwline(bw1); + Letter([0.68,2.09],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.2624,0.98547]'); Assignrep('mdbw1',[0.2624,0.98547]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[0.12558,1.99605]]); +pt1=Pointdata([0.12558,1.99605]); +bw1=Bowdata([0,0],[0.12558,1.99605],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p007.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.26,0.99],"c","$2$"); + Drwline(bw1); + Letter([0.14,2.2],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.00908,1.01976]'); Assignrep('mdbw1',[0.00908,1.01976]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-0.37476,1.96457]]); +pt1=Pointdata([-0.37476,1.96457]); +bw1=Bowdata([0,0],[-0.37476,1.96457],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p008.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.01,1.02],"c","$2$"); + Drwline(bw1); + Letter([-0.41,2.16],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.24481,0.98998]'); Assignrep('mdbw1',[-0.24481,0.98998]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-0.85156,1.80965]]); +pt1=Pointdata([-0.85156,1.80965]); +bw1=Bowdata([0,0],[-0.85156,1.80965],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p009.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.24,0.99],"c","$2$"); + Drwline(bw1); + Letter([-0.94,1.99],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.48332,0.898]'); Assignrep('mdbw1',[-0.48332,0.898]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.27485,1.54103]]); +pt1=Pointdata([-1.27485,1.54103]); +bw1=Bowdata([0,0],[-1.27485,1.54103],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p010.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.48,0.9],"c","$2$"); + Drwline(bw1); + Letter([-1.4,1.7],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.69146,0.74959]'); Assignrep('mdbw1',[-0.69146,0.74959]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.61803,1.17557]]); +pt1=Pointdata([-1.61803,1.17557]); +bw1=Bowdata([0,0],[-1.61803,1.17557],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p011.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.69,0.75],"c","$2$"); + Drwline(bw1); + Letter([-1.78,1.29],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.85615,0.55408]'); Assignrep('mdbw1',[-0.85615,0.55408]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.85955,0.73625]]); +pt1=Pointdata([-1.85955,0.73625]); +bw1=Bowdata([0,0],[-1.85955,0.73625],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p012.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.86,0.55],"c","$2$"); + Drwline(bw1); + Letter([-2.05,0.81],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.96705,0.32376]'); Assignrep('mdbw1',[-0.96705,0.32376]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.98423,0.25067]]); +pt1=Pointdata([-1.98423,0.25067]); +bw1=Bowdata([0,0],[-1.98423,0.25067],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p013.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.97,0.32],"c","$2$"); + Drwline(bw1); + Letter([-2.18,0.28],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-1.01718,0.07309]'); Assignrep('mdbw1',[-1.01718,0.07309]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.98423,-0.25067]]); +pt1=Pointdata([-1.98423,-0.25067]); +bw1=Bowdata([0,0],[-1.98423,-0.25067],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p014.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-1.02,0.07],"c","$2$"); + Drwline(bw1); + Letter([-2.18,-0.28],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-1.0034,-0.18217]'); Assignrep('mdbw1',[-1.0034,-0.18217]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.85955,-0.73625]]); +pt1=Pointdata([-1.85955,-0.73625]); +bw1=Bowdata([0,0],[-1.85955,-0.73625],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p015.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-1,-0.18],"c","$2$"); + Drwline(bw1); + Letter([-2.05,-0.81],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.92657,-0.42598]'); Assignrep('mdbw1',[-0.92657,-0.42598]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.61803,-1.17557]]); +pt1=Pointdata([-1.61803,-1.17557]); +bw1=Bowdata([0,0],[-1.61803,-1.17557],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p016.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.93,-0.43],"c","$2$"); + Drwline(bw1); + Letter([-1.78,-1.29],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.79153,-0.64303]'); Assignrep('mdbw1',[-0.79153,-0.64303]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.27485,-1.54103]]); +pt1=Pointdata([-1.27485,-1.54103]); +bw1=Bowdata([0,0],[-1.27485,-1.54103],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p017.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.79,-0.64],"c","$2$"); + Drwline(bw1); + Letter([-1.4,-1.7],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.60674,-0.81967]'); Assignrep('mdbw1',[-0.60674,-0.81967]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-0.85156,-1.80965]]); +pt1=Pointdata([-0.85156,-1.80965]); +bw1=Bowdata([0,0],[-0.85156,-1.80965],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p018.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.61,-0.82],"c","$2$"); + Drwline(bw1); + Letter([-0.94,-1.99],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.38384,-0.94481]'); Assignrep('mdbw1',[-0.38384,-0.94481]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-0.37476,-1.96457]]); +pt1=Pointdata([-0.37476,-1.96457]); +bw1=Bowdata([0,0],[-0.37476,-1.96457],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p019.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.38,-0.94],"c","$2$"); + Drwline(bw1); + Letter([-0.41,-2.16],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.13681,-1.01058]'); Assignrep('mdbw1',[-0.13681,-1.01058]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[0.12558,-1.99605]]); +pt1=Pointdata([0.12558,-1.99605]); +bw1=Bowdata([0,0],[0.12558,-1.99605],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p020.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.14,-1.01],"c","$2$"); + Drwline(bw1); + Letter([0.14,-2.2],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.11881,-1.01286]'); Assignrep('mdbw1',[0.11881,-1.01286]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[0.61803,-1.90211]]); +pt1=Pointdata([0.61803,-1.90211]); +bw1=Bowdata([0,0],[0.61803,-1.90211],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p021.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.12,-1.01],"c","$2$"); + Drwline(bw1); + Letter([0.68,-2.09],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.36696,-0.95149]'); Assignrep('mdbw1',[0.36696,-0.95149]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.07165,-1.68866]]); +pt1=Pointdata([1.07165,-1.68866]); +bw1=Bowdata([0,0],[1.07165,-1.68866],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p022.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.37,-0.95],"c","$2$"); + Drwline(bw1); + Letter([1.18,-1.86],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.59206,-0.83034]'); Assignrep('mdbw1',[0.59206,-0.83034]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.45794,-1.36909]]); +pt1=Pointdata([1.45794,-1.36909]); +bw1=Bowdata([0,0],[1.45794,-1.36909],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p023.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.59,-0.83],"c","$2$"); + Drwline(bw1); + Letter([1.6,-1.51],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.77996,-0.65702]'); Assignrep('mdbw1',[0.77996,-0.65702]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.75261,-0.96351]]); +pt1=Pointdata([1.75261,-0.96351]); +bw1=Bowdata([0,0],[1.75261,-0.96351],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p024.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.78,-0.66],"c","$2$"); + Drwline(bw1); + Letter([1.93,-1.06],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.91885,-0.44241]'); Assignrep('mdbw1',[0.91885,-0.44241]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.93717,-0.49738]]); +pt1=Pointdata([1.93717,-0.49738]); +bw1=Bowdata([0,0],[1.93717,-0.49738],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p025.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.92,-0.44],"c","$2$"); + Drwline(bw1); + Letter([2.13,-0.55],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[1,-0.2]'); Assignrep('mdbw1',[1,-0.2]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[2,0]]); +pt1=Pointdata([2,0]); +bw1=Bowdata([0,0],[2,0],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p026.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([1,-0.2],"c","$2$"); + Drwline(bw1); + Letter([2.2,0],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.sce new file mode 100644 index 00000000..28ce91c0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p001.tex'; +Fnamesci='pointoncircle/p001.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[1,-0.2]'); Assignrep('mdbw1',[1,-0.2]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[2,0]]); +pt1=Pointdata([2,0]); +bw1=Bowdata([0,0],[2,0],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p001.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([1,-0.2],"c","$2$"); + Drwline(bw1); + Letter([2.2,0],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.tex new file mode 100644 index 00000000..58a1a722 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p001.tex @@ -0,0 +1,88 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p001.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 787 0}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 790 -3}\special{pa 785 -3}\special{pa 785 3}\special{pa 790 3}\special{pa 790 -3}% +\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(1.0000,-0.2000){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 6 3}\special{pa 13 5}\special{pa 19 8}\special{pa 26 10}% +\special{pa 32 13}\special{pa 39 15}\special{pa 45 18}\special{pa 52 20}\special{pa 58 22}% +\special{pa 65 24}\special{pa 71 27}\special{pa 78 29}\special{pa 84 31}\special{pa 91 33}% +\special{pa 97 35}\special{pa 104 37}\special{pa 111 39}\special{pa 117 41}\special{pa 124 43}% +\special{pa 131 44}\special{pa 137 46}\special{pa 144 48}\special{pa 151 49}\special{pa 157 51}% +\special{pa 164 53}\special{pa 171 54}\special{pa 178 56}\special{pa 184 57}\special{pa 191 58}% +\special{pa 198 60}\special{pa 205 61}\special{pa 211 62}\special{pa 218 64}\special{pa 225 65}% +\special{pa 232 66}\special{pa 239 67}\special{pa 245 68}\special{pa 252 69}\special{pa 259 70}% +\special{pa 266 71}\special{pa 273 72}\special{pa 280 72}\special{pa 287 73}\special{pa 293 74}% +\special{pa 300 74}\special{pa 307 75}\special{pa 314 76}\special{pa 321 76}\special{pa 328 77}% +\special{pa 335 77}% +\special{fp}% +\special{pa 453 77}\special{pa 460 77}\special{pa 466 76}\special{pa 473 76}\special{pa 480 75}% +\special{pa 487 74}\special{pa 494 74}\special{pa 501 73}\special{pa 508 72}\special{pa 515 72}% +\special{pa 521 71}\special{pa 528 70}\special{pa 535 69}\special{pa 542 68}\special{pa 549 67}% +\special{pa 556 66}\special{pa 562 65}\special{pa 569 64}\special{pa 576 62}\special{pa 583 61}% +\special{pa 590 60}\special{pa 596 58}\special{pa 603 57}\special{pa 610 56}\special{pa 617 54}% +\special{pa 623 53}\special{pa 630 51}\special{pa 637 49}\special{pa 643 48}\special{pa 650 46}% +\special{pa 657 44}\special{pa 663 43}\special{pa 670 41}\special{pa 677 39}\special{pa 683 37}% +\special{pa 690 35}\special{pa 697 33}\special{pa 703 31}\special{pa 710 29}\special{pa 716 27}% +\special{pa 723 24}\special{pa 729 22}\special{pa 736 20}\special{pa 742 18}\special{pa 749 15}% +\special{pa 755 13}\special{pa 762 10}\special{pa 768 8}\special{pa 775 5}\special{pa 781 3}% +\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(2.2000,0.0000){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p002.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p002.sce new file mode 100644 index 00000000..981a02f0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p002.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p002.tex'; +Fnamesci='pointoncircle/p002.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[1.01832,0.05497]'); Assignrep('mdbw1',[1.01832,0.05497]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.93717,0.49738]]); +pt1=Pointdata([1.93717,0.49738]); +bw1=Bowdata([0,0],[1.93717,0.49738],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p002.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([1.02,0.05],"c","$2$"); + Drwline(bw1); + Letter([2.13,0.55],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p002.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p002.tex new file mode 100644 index 00000000..8e23f56e --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p002.tex @@ -0,0 +1,89 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p002.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 763 -196}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 765 -199}\special{pa 760 -199}\special{pa 760 -193}\special{pa 765 -193}% +\special{pa 765 -199}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(1.0200,0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 7 1}\special{pa 14 2}\special{pa 21 3}\special{pa 27 4}% +\special{pa 34 4}\special{pa 41 5}\special{pa 48 6}\special{pa 55 6}\special{pa 62 7}% +\special{pa 69 8}\special{pa 75 8}\special{pa 82 9}\special{pa 89 9}\special{pa 96 9}% +\special{pa 103 10}\special{pa 110 10}\special{pa 117 10}\special{pa 124 10}\special{pa 131 10}% +\special{pa 138 10}\special{pa 144 11}\special{pa 151 11}\special{pa 158 10}\special{pa 165 10}% +\special{pa 172 10}\special{pa 179 10}\special{pa 186 10}\special{pa 193 9}\special{pa 200 9}% +\special{pa 206 9}\special{pa 213 8}\special{pa 220 8}\special{pa 227 7}\special{pa 234 7}% +\special{pa 241 6}\special{pa 248 5}\special{pa 255 5}\special{pa 261 4}\special{pa 268 3}% +\special{pa 275 2}\special{pa 282 1}\special{pa 289 1}\special{pa 296 0}\special{pa 303 -1}% +\special{pa 309 -3}\special{pa 316 -4}\special{pa 323 -5}\special{pa 330 -6}\special{pa 337 -7}% +\special{pa 343 -9}% +\special{fp}% +\special{pa 458 -38}\special{pa 464 -40}\special{pa 471 -42}\special{pa 477 -44}\special{pa 484 -47}% +\special{pa 490 -49}\special{pa 497 -51}\special{pa 503 -54}\special{pa 510 -56}\special{pa 516 -59}% +\special{pa 523 -61}\special{pa 529 -64}\special{pa 535 -66}\special{pa 542 -69}\special{pa 548 -72}% +\special{pa 555 -74}\special{pa 561 -77}\special{pa 567 -80}\special{pa 573 -83}\special{pa 580 -86}% +\special{pa 586 -89}\special{pa 592 -92}\special{pa 598 -95}\special{pa 605 -98}\special{pa 611 -101}% +\special{pa 617 -104}\special{pa 623 -107}\special{pa 629 -110}\special{pa 635 -114}% +\special{pa 641 -117}\special{pa 647 -120}\special{pa 653 -124}\special{pa 659 -127}% +\special{pa 665 -131}\special{pa 671 -134}\special{pa 677 -138}\special{pa 683 -141}% +\special{pa 689 -145}\special{pa 695 -149}\special{pa 700 -152}\special{pa 706 -156}% +\special{pa 712 -160}\special{pa 718 -164}\special{pa 723 -168}\special{pa 729 -172}% +\special{pa 735 -176}\special{pa 740 -179}\special{pa 746 -184}\special{pa 752 -188}% +\special{pa 757 -192}\special{pa 763 -196}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(2.1300,0.5500){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p003.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p003.sce new file mode 100644 index 00000000..099456ca --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p003.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p003.tex'; +Fnamesci='pointoncircle/p003.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.97266,0.30649]'); Assignrep('mdbw1',[0.97266,0.30649]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.75261,0.96351]]); +pt1=Pointdata([1.75261,0.96351]); +bw1=Bowdata([0,0],[1.75261,0.96351],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p003.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.97,0.31],"c","$2$"); + Drwline(bw1); + Letter([1.93,1.06],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p003.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p003.tex new file mode 100644 index 00000000..1cbf43cf --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p003.tex @@ -0,0 +1,90 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p003.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 690 -379}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 693 -382}\special{pa 687 -382}\special{pa 687 -377}\special{pa 693 -377}% +\special{pa 693 -382}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.9700,0.3100){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 7 -1}\special{pa 14 -2}\special{pa 21 -2}\special{pa 27 -3}% +\special{pa 34 -4}\special{pa 41 -5}\special{pa 48 -6}\special{pa 55 -7}\special{pa 62 -9}% +\special{pa 68 -10}\special{pa 75 -11}\special{pa 82 -12}\special{pa 89 -14}\special{pa 95 -15}% +\special{pa 102 -16}\special{pa 109 -18}\special{pa 116 -19}\special{pa 122 -21}\special{pa 129 -22}% +\special{pa 136 -24}\special{pa 142 -26}\special{pa 149 -27}\special{pa 156 -29}\special{pa 163 -31}% +\special{pa 169 -33}\special{pa 176 -35}\special{pa 182 -37}\special{pa 189 -39}\special{pa 196 -41}% +\special{pa 202 -43}\special{pa 209 -45}\special{pa 215 -47}\special{pa 222 -49}\special{pa 228 -52}% +\special{pa 235 -54}\special{pa 241 -56}\special{pa 248 -59}\special{pa 254 -61}\special{pa 261 -64}% +\special{pa 267 -66}\special{pa 274 -69}\special{pa 280 -71}\special{pa 286 -74}\special{pa 293 -77}% +\special{pa 299 -79}\special{pa 305 -82}\special{pa 312 -85}\special{pa 318 -88}\special{pa 324 -91}% +\special{pa 330 -94}% +\special{fp}% +\special{pa 434 -151}\special{pa 440 -154}\special{pa 445 -158}\special{pa 451 -162}% +\special{pa 457 -166}\special{pa 463 -169}\special{pa 468 -173}\special{pa 474 -177}% +\special{pa 480 -181}\special{pa 485 -185}\special{pa 491 -189}\special{pa 497 -193}% +\special{pa 502 -197}\special{pa 508 -202}\special{pa 513 -206}\special{pa 519 -210}% +\special{pa 524 -214}\special{pa 529 -219}\special{pa 535 -223}\special{pa 540 -227}% +\special{pa 545 -232}\special{pa 551 -236}\special{pa 556 -241}\special{pa 561 -245}% +\special{pa 566 -250}\special{pa 572 -254}\special{pa 577 -259}\special{pa 582 -263}% +\special{pa 587 -268}\special{pa 592 -273}\special{pa 597 -278}\special{pa 602 -282}% +\special{pa 607 -287}\special{pa 612 -292}\special{pa 617 -297}\special{pa 621 -302}% +\special{pa 626 -307}\special{pa 631 -312}\special{pa 636 -317}\special{pa 641 -322}% +\special{pa 645 -327}\special{pa 650 -332}\special{pa 654 -337}\special{pa 659 -342}% +\special{pa 664 -347}\special{pa 668 -353}\special{pa 673 -358}\special{pa 677 -363}% +\special{pa 681 -369}\special{pa 686 -374}\special{pa 690 -379}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(1.9300,1.0600){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p004.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p004.sce new file mode 100644 index 00000000..dbf4867a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p004.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p004.tex'; +Fnamesci='pointoncircle/p004.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.86588,0.53875]'); Assignrep('mdbw1',[0.86588,0.53875]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.45794,1.36909]]); +pt1=Pointdata([1.45794,1.36909]); +bw1=Bowdata([0,0],[1.45794,1.36909],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p004.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.87,0.54],"c","$2$"); + Drwline(bw1); + Letter([1.6,1.51],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p004.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p004.tex new file mode 100644 index 00000000..74156d65 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p004.tex @@ -0,0 +1,91 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p004.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 574 -539}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 577 -542}\special{pa 571 -542}\special{pa 571 -536}\special{pa 577 -536}% +\special{pa 577 -542}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.8700,0.5400){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 6 -2}\special{pa 13 -5}\special{pa 19 -7}\special{pa 26 -10}% +\special{pa 32 -13}\special{pa 38 -15}\special{pa 45 -18}\special{pa 51 -21}\special{pa 57 -24}% +\special{pa 64 -26}\special{pa 70 -29}\special{pa 76 -32}\special{pa 83 -35}\special{pa 89 -38}% +\special{pa 95 -41}\special{pa 101 -44}\special{pa 107 -47}\special{pa 113 -51}\special{pa 119 -54}% +\special{pa 126 -57}\special{pa 132 -60}\special{pa 138 -64}\special{pa 144 -67}\special{pa 150 -70}% +\special{pa 156 -74}\special{pa 162 -77}\special{pa 168 -81}\special{pa 173 -85}\special{pa 179 -88}% +\special{pa 185 -92}\special{pa 191 -96}\special{pa 197 -99}\special{pa 203 -103}% +\special{pa 208 -107}\special{pa 214 -111}\special{pa 220 -115}\special{pa 225 -118}% +\special{pa 231 -122}\special{pa 237 -126}\special{pa 242 -130}\special{pa 248 -135}% +\special{pa 253 -139}\special{pa 259 -143}\special{pa 264 -147}\special{pa 270 -151}% +\special{pa 275 -156}\special{pa 281 -160}\special{pa 286 -164}\special{pa 291 -169}% +\special{pa 297 -173}% +\special{fp}% +\special{pa 383 -254}\special{pa 387 -259}\special{pa 392 -264}\special{pa 397 -269}% +\special{pa 401 -274}\special{pa 406 -279}\special{pa 411 -284}\special{pa 415 -290}% +\special{pa 420 -295}\special{pa 424 -300}\special{pa 429 -305}\special{pa 433 -311}% +\special{pa 437 -316}\special{pa 442 -321}\special{pa 446 -327}\special{pa 450 -332}% +\special{pa 454 -338}\special{pa 458 -343}\special{pa 463 -349}\special{pa 467 -354}% +\special{pa 471 -360}\special{pa 475 -366}\special{pa 479 -371}\special{pa 483 -377}% +\special{pa 487 -383}\special{pa 490 -388}\special{pa 494 -394}\special{pa 498 -400}% +\special{pa 502 -406}\special{pa 505 -411}\special{pa 509 -417}\special{pa 513 -423}% +\special{pa 516 -429}\special{pa 520 -435}\special{pa 523 -441}\special{pa 527 -447}% +\special{pa 530 -453}\special{pa 534 -459}\special{pa 537 -465}\special{pa 540 -471}% +\special{pa 544 -477}\special{pa 547 -483}\special{pa 550 -489}\special{pa 553 -495}% +\special{pa 556 -502}\special{pa 559 -508}\special{pa 562 -514}\special{pa 565 -520}% +\special{pa 568 -526}\special{pa 571 -533}\special{pa 574 -539}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(1.6000,1.5100){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p005.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p005.sce new file mode 100644 index 00000000..b131fbbe --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p005.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p005.tex'; +Fnamesci='pointoncircle/p005.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.70469,0.73716]'); Assignrep('mdbw1',[0.70469,0.73716]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.07165,1.68866]]); +pt1=Pointdata([1.07165,1.68866]); +bw1=Bowdata([0,0],[1.07165,1.68866],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p005.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.7,0.74],"c","$2$"); + Drwline(bw1); + Letter([1.18,1.86],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p005.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p005.tex new file mode 100644 index 00000000..336daec2 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p005.tex @@ -0,0 +1,91 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p005.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 422 -665}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 425 -668}\special{pa 419 -668}\special{pa 419 -662}\special{pa 425 -662}% +\special{pa 425 -668}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.7000,0.7400){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 6 -4}\special{pa 11 -8}\special{pa 17 -12}\special{pa 22 -16}% +\special{pa 28 -20}\special{pa 33 -24}\special{pa 39 -29}\special{pa 44 -33}\special{pa 50 -37}% +\special{pa 55 -41}\special{pa 61 -46}\special{pa 66 -50}\special{pa 71 -55}\special{pa 76 -59}% +\special{pa 82 -64}\special{pa 87 -68}\special{pa 92 -73}\special{pa 97 -77}\special{pa 102 -82}% +\special{pa 107 -87}\special{pa 112 -91}\special{pa 118 -96}\special{pa 122 -101}% +\special{pa 127 -105}\special{pa 132 -110}\special{pa 137 -115}\special{pa 142 -120}% +\special{pa 147 -125}\special{pa 152 -130}\special{pa 157 -135}\special{pa 161 -140}% +\special{pa 166 -145}\special{pa 171 -150}\special{pa 175 -155}\special{pa 180 -160}% +\special{pa 184 -166}\special{pa 189 -171}\special{pa 193 -176}\special{pa 198 -181}% +\special{pa 202 -187}\special{pa 207 -192}\special{pa 211 -197}\special{pa 215 -203}% +\special{pa 220 -208}\special{pa 224 -214}\special{pa 228 -219}\special{pa 232 -225}% +\special{pa 236 -230}\special{pa 240 -236}\special{pa 244 -241}% +\special{fp}% +\special{pa 308 -341}\special{pa 311 -347}\special{pa 314 -353}\special{pa 318 -359}% +\special{pa 321 -365}\special{pa 324 -371}\special{pa 327 -378}\special{pa 330 -384}% +\special{pa 333 -390}\special{pa 336 -396}\special{pa 339 -402}\special{pa 342 -409}% +\special{pa 345 -415}\special{pa 348 -421}\special{pa 351 -427}\special{pa 353 -434}% +\special{pa 356 -440}\special{pa 359 -447}\special{pa 361 -453}\special{pa 364 -459}% +\special{pa 366 -466}\special{pa 369 -472}\special{pa 371 -479}\special{pa 374 -485}% +\special{pa 376 -492}\special{pa 378 -498}\special{pa 381 -505}\special{pa 383 -511}% +\special{pa 385 -518}\special{pa 387 -524}\special{pa 389 -531}\special{pa 391 -537}% +\special{pa 393 -544}\special{pa 395 -551}\special{pa 397 -557}\special{pa 399 -564}% +\special{pa 401 -571}\special{pa 403 -577}\special{pa 405 -584}\special{pa 406 -591}% +\special{pa 408 -597}\special{pa 410 -604}\special{pa 411 -611}\special{pa 413 -617}% +\special{pa 414 -624}\special{pa 415 -631}\special{pa 417 -638}\special{pa 418 -644}% +\special{pa 419 -651}\special{pa 421 -658}\special{pa 422 -665}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(1.1800,1.8600){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p006.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p006.sce new file mode 100644 index 00000000..d6bd547a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p006.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p006.tex'; +Fnamesci='pointoncircle/p006.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.49923,0.88925]'); Assignrep('mdbw1',[0.49923,0.88925]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[0.61803,1.90211]]); +pt1=Pointdata([0.61803,1.90211]); +bw1=Bowdata([0,0],[0.61803,1.90211],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p006.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.5,0.89],"c","$2$"); + Drwline(bw1); + Letter([0.68,2.09],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p006.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p006.tex new file mode 100644 index 00000000..1bfb62cf --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p006.tex @@ -0,0 +1,91 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p006.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 243 -749}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 246 -752}\special{pa 241 -752}\special{pa 241 -746}\special{pa 246 -746}% +\special{pa 246 -752}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.5000,0.8900){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 4 -5}\special{pa 9 -11}\special{pa 13 -16}\special{pa 18 -21}% +\special{pa 22 -27}\special{pa 26 -32}\special{pa 31 -37}\special{pa 35 -43}\special{pa 39 -48}% +\special{pa 43 -54}\special{pa 47 -59}\special{pa 51 -65}\special{pa 55 -71}\special{pa 59 -76}% +\special{pa 63 -82}\special{pa 67 -88}\special{pa 71 -93}\special{pa 75 -99}\special{pa 79 -105}% +\special{pa 83 -110}\special{pa 86 -116}\special{pa 90 -122}\special{pa 94 -128}\special{pa 97 -134}% +\special{pa 101 -140}\special{pa 104 -146}\special{pa 108 -152}\special{pa 111 -158}% +\special{pa 115 -164}\special{pa 118 -170}\special{pa 121 -176}\special{pa 125 -182}% +\special{pa 128 -188}\special{pa 131 -194}\special{pa 134 -200}\special{pa 137 -206}% +\special{pa 140 -212}\special{pa 144 -219}\special{pa 147 -225}\special{pa 149 -231}% +\special{pa 152 -237}\special{pa 155 -244}\special{pa 158 -250}\special{pa 161 -256}% +\special{pa 164 -263}\special{pa 166 -269}\special{pa 169 -275}\special{pa 172 -282}% +\special{pa 174 -288}\special{pa 177 -294}% +\special{fp}% +\special{pa 213 -407}\special{pa 215 -413}\special{pa 217 -420}\special{pa 218 -427}% +\special{pa 220 -434}\special{pa 221 -440}\special{pa 223 -447}\special{pa 224 -454}% +\special{pa 226 -461}\special{pa 227 -467}\special{pa 228 -474}\special{pa 230 -481}% +\special{pa 231 -488}\special{pa 232 -494}\special{pa 233 -501}\special{pa 234 -508}% +\special{pa 235 -515}\special{pa 236 -522}\special{pa 237 -529}\special{pa 238 -535}% +\special{pa 239 -542}\special{pa 240 -549}\special{pa 241 -556}\special{pa 241 -563}% +\special{pa 242 -570}\special{pa 243 -577}\special{pa 243 -583}\special{pa 244 -590}% +\special{pa 244 -597}\special{pa 245 -604}\special{pa 245 -611}\special{pa 245 -618}% +\special{pa 246 -625}\special{pa 246 -632}\special{pa 246 -639}\special{pa 246 -645}% +\special{pa 247 -652}\special{pa 247 -659}\special{pa 247 -666}\special{pa 247 -673}% +\special{pa 247 -680}\special{pa 246 -687}\special{pa 246 -694}\special{pa 246 -701}% +\special{pa 246 -708}\special{pa 246 -714}\special{pa 245 -721}\special{pa 245 -728}% +\special{pa 244 -735}\special{pa 244 -742}\special{pa 243 -749}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.6800,2.0900){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p007.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p007.sce new file mode 100644 index 00000000..e489aaf1 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p007.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p007.tex'; +Fnamesci='pointoncircle/p007.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.2624,0.98547]'); Assignrep('mdbw1',[0.2624,0.98547]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[0.12558,1.99605]]); +pt1=Pointdata([0.12558,1.99605]); +bw1=Bowdata([0,0],[0.12558,1.99605],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p007.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.26,0.99],"c","$2$"); + Drwline(bw1); + Letter([0.14,2.2],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p007.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p007.tex new file mode 100644 index 00000000..74f5a1a9 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p007.tex @@ -0,0 +1,89 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p007.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 49 -786}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 52 -789}\special{pa 47 -789}\special{pa 47 -783}\special{pa 52 -783}\special{pa 52 -789}% +\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.2600,0.9900){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 3 -6}\special{pa 6 -12}\special{pa 9 -19}\special{pa 12 -25}% +\special{pa 15 -31}\special{pa 18 -38}\special{pa 20 -44}\special{pa 23 -50}\special{pa 26 -57}% +\special{pa 28 -63}\special{pa 31 -69}\special{pa 34 -76}\special{pa 36 -82}\special{pa 39 -89}% +\special{pa 41 -95}\special{pa 43 -101}\special{pa 46 -108}\special{pa 48 -114}\special{pa 50 -121}% +\special{pa 52 -128}\special{pa 55 -134}\special{pa 57 -141}\special{pa 59 -147}\special{pa 61 -154}% +\special{pa 63 -160}\special{pa 65 -167}\special{pa 67 -174}\special{pa 69 -180}\special{pa 70 -187}% +\special{pa 72 -194}\special{pa 74 -200}\special{pa 76 -207}\special{pa 77 -214}\special{pa 79 -220}% +\special{pa 80 -227}\special{pa 82 -234}\special{pa 83 -241}\special{pa 85 -247}\special{pa 86 -254}% +\special{pa 87 -261}\special{pa 89 -268}\special{pa 90 -275}\special{pa 91 -281}\special{pa 92 -288}% +\special{pa 93 -295}\special{pa 94 -302}\special{pa 95 -309}\special{pa 96 -315}\special{pa 97 -322}% +\special{pa 98 -329}% +\special{fp}% +\special{pa 105 -447}\special{pa 105 -454}\special{pa 105 -461}\special{pa 105 -468}% +\special{pa 105 -475}\special{pa 105 -481}\special{pa 105 -488}\special{pa 104 -495}% +\special{pa 104 -502}\special{pa 104 -509}\special{pa 103 -516}\special{pa 103 -523}% +\special{pa 102 -530}\special{pa 102 -537}\special{pa 101 -543}\special{pa 101 -550}% +\special{pa 100 -557}\special{pa 99 -564}\special{pa 98 -571}\special{pa 98 -578}% +\special{pa 97 -585}\special{pa 96 -591}\special{pa 95 -598}\special{pa 94 -605}\special{pa 93 -612}% +\special{pa 92 -619}\special{pa 91 -626}\special{pa 89 -632}\special{pa 88 -639}\special{pa 87 -646}% +\special{pa 86 -653}\special{pa 84 -659}\special{pa 83 -666}\special{pa 81 -673}\special{pa 80 -680}% +\special{pa 78 -686}\special{pa 77 -693}\special{pa 75 -700}\special{pa 73 -707}\special{pa 71 -713}% +\special{pa 70 -720}\special{pa 68 -727}\special{pa 66 -733}\special{pa 64 -740}\special{pa 62 -746}% +\special{pa 60 -753}\special{pa 58 -760}\special{pa 56 -766}\special{pa 54 -773}\special{pa 52 -779}% +\special{pa 49 -786}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.1400,2.2000){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p008.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p008.sce new file mode 100644 index 00000000..c11d1d5c --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p008.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p008.tex'; +Fnamesci='pointoncircle/p008.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.00908,1.01976]'); Assignrep('mdbw1',[0.00908,1.01976]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-0.37476,1.96457]]); +pt1=Pointdata([-0.37476,1.96457]); +bw1=Bowdata([0,0],[-0.37476,1.96457],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p008.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.01,1.02],"c","$2$"); + Drwline(bw1); + Letter([-0.41,2.16],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p008.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p008.tex new file mode 100644 index 00000000..8038ab13 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p008.tex @@ -0,0 +1,90 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p008.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa -148 -773}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa -145 -776}\special{pa -150 -776}\special{pa -150 -771}\special{pa -145 -771}% +\special{pa -145 -776}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.0100,1.0200){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 1 -7}\special{pa 3 -14}\special{pa 4 -20}\special{pa 5 -27}% +\special{pa 6 -34}\special{pa 8 -41}\special{pa 9 -48}\special{pa 10 -54}\special{pa 11 -61}% +\special{pa 12 -68}\special{pa 13 -75}\special{pa 14 -82}\special{pa 15 -89}\special{pa 15 -95}% +\special{pa 16 -102}\special{pa 17 -109}\special{pa 17 -116}\special{pa 18 -123}\special{pa 19 -130}% +\special{pa 19 -137}\special{pa 20 -143}\special{pa 20 -150}\special{pa 20 -157}\special{pa 21 -164}% +\special{pa 21 -171}\special{pa 21 -178}\special{pa 21 -185}\special{pa 22 -192}\special{pa 22 -199}% +\special{pa 22 -206}\special{pa 22 -212}\special{pa 22 -219}\special{pa 22 -226}\special{pa 21 -233}% +\special{pa 21 -240}\special{pa 21 -247}\special{pa 21 -254}\special{pa 20 -261}\special{pa 20 -268}% +\special{pa 20 -275}\special{pa 19 -281}\special{pa 19 -288}\special{pa 18 -295}\special{pa 18 -302}% +\special{pa 17 -309}\special{pa 16 -316}\special{pa 15 -323}\special{pa 15 -329}\special{pa 14 -336}% +\special{pa 13 -343}% +\special{fp}% +\special{pa -9 -459}\special{pa -11 -466}\special{pa -13 -473}\special{pa -14 -479}% +\special{pa -16 -486}\special{pa -18 -492}\special{pa -20 -499}\special{pa -22 -506}% +\special{pa -24 -512}\special{pa -26 -519}\special{pa -28 -525}\special{pa -30 -532}% +\special{pa -33 -539}\special{pa -35 -545}\special{pa -37 -552}\special{pa -39 -558}% +\special{pa -42 -565}\special{pa -44 -571}\special{pa -47 -577}\special{pa -49 -584}% +\special{pa -52 -590}\special{pa -54 -597}\special{pa -57 -603}\special{pa -60 -609}% +\special{pa -62 -616}\special{pa -65 -622}\special{pa -68 -628}\special{pa -71 -635}% +\special{pa -74 -641}\special{pa -77 -647}\special{pa -80 -653}\special{pa -83 -660}% +\special{pa -86 -666}\special{pa -89 -672}\special{pa -92 -678}\special{pa -95 -684}% +\special{pa -98 -690}\special{pa -101 -697}\special{pa -105 -703}\special{pa -108 -709}% +\special{pa -112 -715}\special{pa -115 -721}\special{pa -118 -727}\special{pa -122 -733}% +\special{pa -125 -738}\special{pa -129 -744}\special{pa -133 -750}\special{pa -136 -756}% +\special{pa -140 -762}\special{pa -144 -768}\special{pa -148 -773}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.4100,2.1600){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p009.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p009.sce new file mode 100644 index 00000000..fa9396ef --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p009.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p009.tex'; +Fnamesci='pointoncircle/p009.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.24481,0.98998]'); Assignrep('mdbw1',[-0.24481,0.98998]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-0.85156,1.80965]]); +pt1=Pointdata([-0.85156,1.80965]); +bw1=Bowdata([0,0],[-0.85156,1.80965],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p009.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.24,0.99],"c","$2$"); + Drwline(bw1); + Letter([-0.94,1.99],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p009.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p009.tex new file mode 100644 index 00000000..c98778a4 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p009.tex @@ -0,0 +1,91 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p009.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa -335 -712}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa -332 -715}\special{pa -338 -715}\special{pa -338 -710}\special{pa -332 -710}% +\special{pa -332 -715}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.2400,0.9900){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 0 -7}\special{pa -1 -14}\special{pa -1 -21}\special{pa -2 -28}% +\special{pa -2 -34}\special{pa -3 -41}\special{pa -3 -48}\special{pa -4 -55}\special{pa -5 -62}% +\special{pa -5 -69}\special{pa -6 -76}\special{pa -7 -82}\special{pa -8 -89}\special{pa -9 -96}% +\special{pa -10 -103}\special{pa -11 -110}\special{pa -12 -117}\special{pa -13 -123}% +\special{pa -14 -130}\special{pa -15 -137}\special{pa -17 -144}\special{pa -18 -151}% +\special{pa -19 -157}\special{pa -21 -164}\special{pa -22 -171}\special{pa -24 -178}% +\special{pa -25 -184}\special{pa -27 -191}\special{pa -28 -198}\special{pa -30 -204}% +\special{pa -32 -211}\special{pa -34 -218}\special{pa -35 -225}\special{pa -37 -231}% +\special{pa -39 -238}\special{pa -41 -244}\special{pa -43 -251}\special{pa -45 -258}% +\special{pa -47 -264}\special{pa -49 -271}\special{pa -51 -277}\special{pa -54 -284}% +\special{pa -56 -290}\special{pa -58 -297}\special{pa -60 -303}\special{pa -63 -310}% +\special{pa -65 -316}\special{pa -68 -323}\special{pa -70 -329}\special{pa -73 -336}% +\special{fp}% +\special{pa -123 -442}\special{pa -126 -448}\special{pa -130 -455}\special{pa -133 -461}% +\special{pa -137 -467}\special{pa -140 -472}\special{pa -144 -478}\special{pa -147 -484}% +\special{pa -151 -490}\special{pa -154 -496}\special{pa -158 -502}\special{pa -162 -508}% +\special{pa -165 -514}\special{pa -169 -519}\special{pa -173 -525}\special{pa -177 -531}% +\special{pa -181 -536}\special{pa -185 -542}\special{pa -189 -548}\special{pa -193 -553}% +\special{pa -197 -559}\special{pa -201 -564}\special{pa -205 -570}\special{pa -209 -576}% +\special{pa -214 -581}\special{pa -218 -586}\special{pa -222 -592}\special{pa -226 -597}% +\special{pa -231 -603}\special{pa -235 -608}\special{pa -240 -613}\special{pa -244 -618}% +\special{pa -248 -624}\special{pa -253 -629}\special{pa -258 -634}\special{pa -262 -639}% +\special{pa -267 -644}\special{pa -272 -649}\special{pa -276 -654}\special{pa -281 -659}% +\special{pa -286 -664}\special{pa -291 -669}\special{pa -295 -674}\special{pa -300 -679}% +\special{pa -305 -684}\special{pa -310 -689}\special{pa -315 -694}\special{pa -320 -698}% +\special{pa -325 -703}\special{pa -330 -708}\special{pa -335 -712}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.9400,1.9900){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p010.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p010.sce new file mode 100644 index 00000000..94eff4f8 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p010.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p010.tex'; +Fnamesci='pointoncircle/p010.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.48332,0.898]'); Assignrep('mdbw1',[-0.48332,0.898]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.27485,1.54103]]); +pt1=Pointdata([-1.27485,1.54103]); +bw1=Bowdata([0,0],[-1.27485,1.54103],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p010.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.48,0.9],"c","$2$"); + Drwline(bw1); + Letter([-1.4,1.7],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p010.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p010.tex new file mode 100644 index 00000000..447d7d5e --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p010.tex @@ -0,0 +1,91 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p010.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa -502 -607}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa -499 -609}\special{pa -505 -609}\special{pa -505 -604}\special{pa -499 -604}% +\special{pa -499 -609}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.4800,0.9000){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa -2 -7}\special{pa -4 -13}\special{pa -6 -20}\special{pa -8 -26}% +\special{pa -11 -33}\special{pa -13 -39}\special{pa -15 -46}\special{pa -18 -52}\special{pa -20 -59}% +\special{pa -22 -65}\special{pa -25 -72}\special{pa -27 -78}\special{pa -30 -85}\special{pa -33 -91}% +\special{pa -35 -97}\special{pa -38 -104}\special{pa -41 -110}\special{pa -43 -116}% +\special{pa -46 -123}\special{pa -49 -129}\special{pa -52 -135}\special{pa -55 -141}% +\special{pa -58 -148}\special{pa -61 -154}\special{pa -64 -160}\special{pa -67 -166}% +\special{pa -70 -172}\special{pa -73 -178}\special{pa -77 -184}\special{pa -80 -191}% +\special{pa -83 -197}\special{pa -87 -203}\special{pa -90 -209}\special{pa -94 -215}% +\special{pa -97 -221}\special{pa -101 -227}\special{pa -104 -232}\special{pa -108 -238}% +\special{pa -111 -244}\special{pa -115 -250}\special{pa -119 -256}\special{pa -123 -262}% +\special{pa -126 -267}\special{pa -130 -273}\special{pa -134 -279}\special{pa -138 -285}% +\special{pa -142 -290}\special{pa -146 -296}\special{pa -150 -301}\special{pa -154 -307}% +\special{fp}% +\special{pa -229 -398}\special{pa -234 -403}\special{pa -239 -408}\special{pa -243 -413}% +\special{pa -248 -418}\special{pa -253 -423}\special{pa -258 -428}\special{pa -263 -433}% +\special{pa -268 -437}\special{pa -273 -442}\special{pa -278 -447}\special{pa -283 -452}% +\special{pa -288 -456}\special{pa -293 -461}\special{pa -298 -465}\special{pa -303 -470}% +\special{pa -309 -475}\special{pa -314 -479}\special{pa -319 -484}\special{pa -324 -488}% +\special{pa -330 -492}\special{pa -335 -497}\special{pa -340 -501}\special{pa -346 -505}% +\special{pa -351 -510}\special{pa -357 -514}\special{pa -362 -518}\special{pa -368 -522}% +\special{pa -373 -526}\special{pa -379 -530}\special{pa -384 -534}\special{pa -390 -538}% +\special{pa -396 -542}\special{pa -401 -546}\special{pa -407 -550}\special{pa -413 -554}% +\special{pa -419 -558}\special{pa -424 -561}\special{pa -430 -565}\special{pa -436 -569}% +\special{pa -442 -573}\special{pa -448 -576}\special{pa -454 -580}\special{pa -460 -583}% +\special{pa -466 -587}\special{pa -472 -590}\special{pa -478 -594}\special{pa -484 -597}% +\special{pa -490 -600}\special{pa -496 -603}\special{pa -502 -607}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-1.4000,1.7000){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p011.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p011.sce new file mode 100644 index 00000000..e8ea5786 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p011.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p011.tex'; +Fnamesci='pointoncircle/p011.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.69146,0.74959]'); Assignrep('mdbw1',[-0.69146,0.74959]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.61803,1.17557]]); +pt1=Pointdata([-1.61803,1.17557]); +bw1=Bowdata([0,0],[-1.61803,1.17557],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p011.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.69,0.75],"c","$2$"); + Drwline(bw1); + Letter([-1.78,1.29],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p011.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p011.tex new file mode 100644 index 00000000..497fdfed --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p011.tex @@ -0,0 +1,91 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p011.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa -637 -463}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa -634 -466}\special{pa -640 -466}\special{pa -640 -460}\special{pa -634 -460}% +\special{pa -634 -466}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.6900,0.7500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa -4 -6}\special{pa -7 -12}\special{pa -11 -18}\special{pa -15 -23}% +\special{pa -18 -29}\special{pa -22 -35}\special{pa -26 -41}\special{pa -30 -46}\special{pa -34 -52}% +\special{pa -38 -58}\special{pa -42 -63}\special{pa -46 -69}\special{pa -50 -74}\special{pa -54 -80}% +\special{pa -58 -86}\special{pa -62 -91}\special{pa -67 -96}\special{pa -71 -102}% +\special{pa -75 -107}\special{pa -80 -113}\special{pa -84 -118}\special{pa -88 -123}% +\special{pa -93 -129}\special{pa -97 -134}\special{pa -102 -139}\special{pa -106 -144}% +\special{pa -111 -149}\special{pa -116 -155}\special{pa -120 -160}\special{pa -125 -165}% +\special{pa -130 -170}\special{pa -134 -175}\special{pa -139 -180}\special{pa -144 -185}% +\special{pa -149 -190}\special{pa -154 -194}\special{pa -159 -199}\special{pa -164 -204}% +\special{pa -169 -209}\special{pa -174 -214}\special{pa -179 -218}\special{pa -184 -223}% +\special{pa -189 -228}\special{pa -194 -232}\special{pa -199 -237}\special{pa -204 -241}% +\special{pa -210 -246}\special{pa -215 -250}\special{pa -220 -255}\special{pa -225 -259}% +\special{fp}% +\special{pa -321 -328}\special{pa -327 -332}\special{pa -333 -336}\special{pa -339 -339}% +\special{pa -344 -343}\special{pa -350 -347}\special{pa -356 -350}\special{pa -362 -354}% +\special{pa -368 -357}\special{pa -374 -360}\special{pa -380 -364}\special{pa -386 -367}% +\special{pa -392 -370}\special{pa -399 -374}\special{pa -405 -377}\special{pa -411 -380}% +\special{pa -417 -383}\special{pa -423 -386}\special{pa -429 -389}\special{pa -436 -392}% +\special{pa -442 -395}\special{pa -448 -398}\special{pa -454 -401}\special{pa -461 -403}% +\special{pa -467 -406}\special{pa -473 -409}\special{pa -480 -412}\special{pa -486 -414}% +\special{pa -492 -417}\special{pa -499 -419}\special{pa -505 -422}\special{pa -512 -424}% +\special{pa -518 -427}\special{pa -525 -429}\special{pa -531 -432}\special{pa -538 -434}% +\special{pa -544 -436}\special{pa -551 -438}\special{pa -557 -440}\special{pa -564 -443}% +\special{pa -570 -445}\special{pa -577 -447}\special{pa -584 -449}\special{pa -590 -451}% +\special{pa -597 -452}\special{pa -604 -454}\special{pa -610 -456}\special{pa -617 -458}% +\special{pa -624 -460}\special{pa -630 -461}\special{pa -637 -463}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-1.7800,1.2900){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p012.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p012.sce new file mode 100644 index 00000000..3f517e50 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p012.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p012.tex'; +Fnamesci='pointoncircle/p012.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.85615,0.55408]'); Assignrep('mdbw1',[-0.85615,0.55408]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.85955,0.73625]]); +pt1=Pointdata([-1.85955,0.73625]); +bw1=Bowdata([0,0],[-1.85955,0.73625],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p012.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.86,0.55],"c","$2$"); + Drwline(bw1); + Letter([-2.05,0.81],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p012.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p012.tex new file mode 100644 index 00000000..3cc1f81a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p012.tex @@ -0,0 +1,91 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p012.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa -732 -290}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa -729 -293}\special{pa -735 -293}\special{pa -735 -287}\special{pa -729 -287}% +\special{pa -729 -293}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.8600,0.5500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa -5 -5}\special{pa -10 -10}\special{pa -15 -14}\special{pa -20 -19}% +\special{pa -25 -24}\special{pa -30 -28}\special{pa -35 -33}\special{pa -41 -37}\special{pa -46 -42}% +\special{pa -51 -46}\special{pa -56 -51}\special{pa -62 -55}\special{pa -67 -60}\special{pa -72 -64}% +\special{pa -78 -68}\special{pa -83 -73}\special{pa -89 -77}\special{pa -94 -81}\special{pa -100 -85}% +\special{pa -105 -89}\special{pa -111 -93}\special{pa -116 -97}\special{pa -122 -101}% +\special{pa -128 -105}\special{pa -133 -109}\special{pa -139 -113}\special{pa -145 -117}% +\special{pa -150 -121}\special{pa -156 -125}\special{pa -162 -128}\special{pa -168 -132}% +\special{pa -174 -136}\special{pa -179 -139}\special{pa -185 -143}\special{pa -191 -147}% +\special{pa -197 -150}\special{pa -203 -154}\special{pa -209 -157}\special{pa -215 -160}% +\special{pa -221 -164}\special{pa -227 -167}\special{pa -233 -170}\special{pa -239 -173}% +\special{pa -246 -177}\special{pa -252 -180}\special{pa -258 -183}\special{pa -264 -186}% +\special{pa -270 -189}\special{pa -277 -192}\special{pa -283 -195}% +\special{fp}% +\special{pa -393 -238}\special{pa -399 -240}\special{pa -406 -243}\special{pa -412 -245}% +\special{pa -419 -247}\special{pa -426 -249}\special{pa -432 -250}\special{pa -439 -252}% +\special{pa -445 -254}\special{pa -452 -256}\special{pa -459 -258}\special{pa -465 -259}% +\special{pa -472 -261}\special{pa -479 -263}\special{pa -486 -264}\special{pa -492 -266}% +\special{pa -499 -267}\special{pa -506 -269}\special{pa -513 -270}\special{pa -519 -271}% +\special{pa -526 -273}\special{pa -533 -274}\special{pa -540 -275}\special{pa -547 -276}% +\special{pa -553 -277}\special{pa -560 -278}\special{pa -567 -279}\special{pa -574 -280}% +\special{pa -581 -281}\special{pa -588 -282}\special{pa -594 -283}\special{pa -601 -284}% +\special{pa -608 -285}\special{pa -615 -285}\special{pa -622 -286}\special{pa -629 -286}% +\special{pa -636 -287}\special{pa -642 -288}\special{pa -649 -288}\special{pa -656 -288}% +\special{pa -663 -289}\special{pa -670 -289}\special{pa -677 -289}\special{pa -684 -290}% +\special{pa -691 -290}\special{pa -698 -290}\special{pa -705 -290}\special{pa -711 -290}% +\special{pa -718 -290}\special{pa -725 -290}\special{pa -732 -290}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-2.0500,0.8100){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p013.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p013.sce new file mode 100644 index 00000000..d7d7779d --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p013.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p013.tex'; +Fnamesci='pointoncircle/p013.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.96705,0.32376]'); Assignrep('mdbw1',[-0.96705,0.32376]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.98423,0.25067]]); +pt1=Pointdata([-1.98423,0.25067]); +bw1=Bowdata([0,0],[-1.98423,0.25067],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p013.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.97,0.32],"c","$2$"); + Drwline(bw1); + Letter([-2.18,0.28],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p013.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p013.tex new file mode 100644 index 00000000..a43d07b6 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p013.tex @@ -0,0 +1,91 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p013.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa -781 -99}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa -778 -101}\special{pa -784 -101}\special{pa -784 -96}\special{pa -778 -96}% +\special{pa -778 -101}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.9700,0.3200){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa -6 -3}\special{pa -12 -7}\special{pa -18 -10}\special{pa -24 -13}% +\special{pa -30 -17}\special{pa -36 -20}\special{pa -42 -23}\special{pa -49 -26}\special{pa -55 -29}% +\special{pa -61 -32}\special{pa -67 -35}\special{pa -73 -38}\special{pa -80 -41}\special{pa -86 -44}% +\special{pa -92 -47}\special{pa -99 -50}\special{pa -105 -52}\special{pa -111 -55}% +\special{pa -118 -58}\special{pa -124 -60}\special{pa -130 -63}\special{pa -137 -65}% +\special{pa -143 -68}\special{pa -150 -70}\special{pa -156 -73}\special{pa -163 -75}% +\special{pa -169 -77}\special{pa -176 -80}\special{pa -182 -82}\special{pa -189 -84}% +\special{pa -195 -86}\special{pa -202 -88}\special{pa -209 -90}\special{pa -215 -92}% +\special{pa -222 -94}\special{pa -228 -96}\special{pa -235 -98}\special{pa -242 -100}% +\special{pa -248 -102}\special{pa -255 -104}\special{pa -262 -105}\special{pa -268 -107}% +\special{pa -275 -108}\special{pa -282 -110}\special{pa -289 -112}\special{pa -295 -113}% +\special{pa -302 -114}\special{pa -309 -116}\special{pa -316 -117}\special{pa -322 -118}% +\special{fp}% +\special{pa -439 -133}\special{pa -446 -134}\special{pa -453 -134}\special{pa -460 -134}% +\special{pa -467 -135}\special{pa -474 -135}\special{pa -481 -135}\special{pa -488 -135}% +\special{pa -495 -135}\special{pa -502 -136}\special{pa -508 -136}\special{pa -515 -136}% +\special{pa -522 -135}\special{pa -529 -135}\special{pa -536 -135}\special{pa -543 -135}% +\special{pa -550 -135}\special{pa -557 -134}\special{pa -564 -134}\special{pa -571 -134}% +\special{pa -577 -133}\special{pa -584 -133}\special{pa -591 -132}\special{pa -598 -132}% +\special{pa -605 -131}\special{pa -612 -130}\special{pa -619 -130}\special{pa -626 -129}% +\special{pa -632 -128}\special{pa -639 -127}\special{pa -646 -126}\special{pa -653 -125}% +\special{pa -660 -124}\special{pa -667 -123}\special{pa -673 -122}\special{pa -680 -121}% +\special{pa -687 -120}\special{pa -694 -119}\special{pa -701 -117}\special{pa -707 -116}% +\special{pa -714 -115}\special{pa -721 -113}\special{pa -728 -112}\special{pa -734 -110}% +\special{pa -741 -109}\special{pa -748 -107}\special{pa -754 -106}\special{pa -761 -104}% +\special{pa -768 -102}\special{pa -775 -101}\special{pa -781 -99}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-2.1800,0.2800){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p014.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p014.sce new file mode 100644 index 00000000..43771b65 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p014.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p014.tex'; +Fnamesci='pointoncircle/p014.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-1.01718,0.07309]'); Assignrep('mdbw1',[-1.01718,0.07309]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.98423,-0.25067]]); +pt1=Pointdata([-1.98423,-0.25067]); +bw1=Bowdata([0,0],[-1.98423,-0.25067],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p014.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-1.02,0.07],"c","$2$"); + Drwline(bw1); + Letter([-2.18,-0.28],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p014.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p014.tex new file mode 100644 index 00000000..0015f410 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p014.tex @@ -0,0 +1,89 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p014.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa -781 99}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa -778 96}\special{pa -784 96}\special{pa -784 101}\special{pa -778 101}% +\special{pa -778 96}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-1.0200,0.0700){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa -7 -2}\special{pa -13 -4}\special{pa -20 -5}\special{pa -27 -7}% +\special{pa -33 -9}\special{pa -40 -10}\special{pa -47 -12}\special{pa -54 -13}\special{pa -60 -15}% +\special{pa -67 -16}\special{pa -74 -17}\special{pa -81 -19}\special{pa -87 -20}\special{pa -94 -21}% +\special{pa -101 -22}\special{pa -108 -24}\special{pa -115 -25}\special{pa -121 -26}% +\special{pa -128 -27}\special{pa -135 -28}\special{pa -142 -29}\special{pa -149 -29}% +\special{pa -156 -30}\special{pa -163 -31}\special{pa -169 -32}\special{pa -176 -32}% +\special{pa -183 -33}\special{pa -190 -34}\special{pa -197 -34}\special{pa -204 -35}% +\special{pa -211 -35}\special{pa -218 -35}\special{pa -224 -36}\special{pa -231 -36}% +\special{pa -238 -36}\special{pa -245 -36}\special{pa -252 -37}\special{pa -259 -37}% +\special{pa -266 -37}\special{pa -273 -37}\special{pa -280 -37}\special{pa -287 -37}% +\special{pa -293 -37}\special{pa -300 -36}\special{pa -307 -36}\special{pa -314 -36}% +\special{pa -321 -36}\special{pa -328 -35}\special{pa -335 -35}\special{pa -342 -34}% +\special{fp}% +\special{pa -459 -20}\special{pa -466 -18}\special{pa -472 -17}\special{pa -479 -16}% +\special{pa -486 -14}\special{pa -493 -13}\special{pa -499 -11}\special{pa -506 -10}% +\special{pa -513 -8}\special{pa -519 -7}\special{pa -526 -5}\special{pa -533 -3}\special{pa -540 -1}% +\special{pa -546 1}\special{pa -553 2}\special{pa -559 4}\special{pa -566 6}\special{pa -573 8}% +\special{pa -579 10}\special{pa -586 12}\special{pa -592 15}\special{pa -599 17}\special{pa -605 19}% +\special{pa -612 21}\special{pa -619 24}\special{pa -625 26}\special{pa -631 28}\special{pa -638 31}% +\special{pa -644 33}\special{pa -651 36}\special{pa -657 38}\special{pa -664 41}\special{pa -670 44}% +\special{pa -676 46}\special{pa -683 49}\special{pa -689 52}\special{pa -695 55}\special{pa -702 58}% +\special{pa -708 60}\special{pa -714 63}\special{pa -720 66}\special{pa -726 69}\special{pa -733 73}% +\special{pa -739 76}\special{pa -745 79}\special{pa -751 82}\special{pa -757 85}\special{pa -763 89}% +\special{pa -769 92}\special{pa -775 95}\special{pa -781 99}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-2.1800,-0.2800){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p015.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p015.sce new file mode 100644 index 00000000..e321cba7 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p015.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p015.tex'; +Fnamesci='pointoncircle/p015.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-1.0034,-0.18217]'); Assignrep('mdbw1',[-1.0034,-0.18217]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.85955,-0.73625]]); +pt1=Pointdata([-1.85955,-0.73625]); +bw1=Bowdata([0,0],[-1.85955,-0.73625],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p015.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-1,-0.18],"c","$2$"); + Drwline(bw1); + Letter([-2.05,-0.81],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p015.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p015.tex new file mode 100644 index 00000000..23ae7668 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p015.tex @@ -0,0 +1,90 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p015.tex 2017-8-19 10:55 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa -732 290}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa -729 287}\special{pa -735 287}\special{pa -735 293}\special{pa -729 293}% +\special{pa -729 287}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-1.0000,-0.1800){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa -7 0}\special{pa -14 0}\special{pa -21 0}\special{pa -28 0}% +\special{pa -35 0}\special{pa -41 0}\special{pa -48 0}\special{pa -55 1}\special{pa -62 1}% +\special{pa -69 1}\special{pa -76 1}\special{pa -83 2}\special{pa -90 2}\special{pa -97 3}% +\special{pa -103 3}\special{pa -110 4}\special{pa -117 5}\special{pa -124 5}\special{pa -131 6}% +\special{pa -138 7}\special{pa -145 8}\special{pa -151 9}\special{pa -158 9}\special{pa -165 10}% +\special{pa -172 11}\special{pa -179 13}\special{pa -186 14}\special{pa -192 15}\special{pa -199 16}% +\special{pa -206 17}\special{pa -213 18}\special{pa -220 20}\special{pa -226 21}\special{pa -233 23}% +\special{pa -240 24}\special{pa -247 26}\special{pa -253 27}\special{pa -260 29}\special{pa -267 30}% +\special{pa -273 32}\special{pa -280 34}\special{pa -287 36}\special{pa -293 37}\special{pa -300 39}% +\special{pa -307 41}\special{pa -313 43}\special{pa -320 45}\special{pa -326 47}\special{pa -333 49}% +\special{pa -340 52}% +\special{fp}% +\special{pa -449 95}\special{pa -456 98}\special{pa -462 101}\special{pa -468 104}% +\special{pa -474 107}\special{pa -480 110}\special{pa -486 113}\special{pa -493 116}% +\special{pa -499 120}\special{pa -505 123}\special{pa -511 126}\special{pa -517 130}% +\special{pa -523 133}\special{pa -529 136}\special{pa -535 140}\special{pa -541 143}% +\special{pa -547 147}\special{pa -553 150}\special{pa -559 154}\special{pa -564 158}% +\special{pa -570 161}\special{pa -576 165}\special{pa -582 169}\special{pa -588 173}% +\special{pa -593 177}\special{pa -599 181}\special{pa -605 184}\special{pa -610 188}% +\special{pa -616 192}\special{pa -621 196}\special{pa -627 201}\special{pa -633 205}% +\special{pa -638 209}\special{pa -644 213}\special{pa -649 217}\special{pa -654 222}% +\special{pa -660 226}\special{pa -665 230}\special{pa -670 235}\special{pa -676 239}% +\special{pa -681 243}\special{pa -686 248}\special{pa -692 252}\special{pa -697 257}% +\special{pa -702 262}\special{pa -707 266}\special{pa -712 271}\special{pa -717 276}% +\special{pa -722 280}\special{pa -727 285}\special{pa -732 290}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-2.0500,-0.8100){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p016.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p016.sce new file mode 100644 index 00000000..8a783682 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p016.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p016.tex'; +Fnamesci='pointoncircle/p016.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.92657,-0.42598]'); Assignrep('mdbw1',[-0.92657,-0.42598]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.61803,-1.17557]]); +pt1=Pointdata([-1.61803,-1.17557]); +bw1=Bowdata([0,0],[-1.61803,-1.17557],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p016.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.93,-0.43],"c","$2$"); + Drwline(bw1); + Letter([-1.78,-1.29],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p016.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p016.tex new file mode 100644 index 00000000..32430ddc --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p016.tex @@ -0,0 +1,90 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p016.tex 2017-8-19 10:56 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa -637 463}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa -634 460}\special{pa -640 460}\special{pa -640 466}\special{pa -634 466}% +\special{pa -634 460}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.9300,-0.4300){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa -7 2}\special{pa -13 3}\special{pa -20 5}\special{pa -27 7}% +\special{pa -33 9}\special{pa -40 10}\special{pa -47 12}\special{pa -53 14}\special{pa -60 16}% +\special{pa -67 18}\special{pa -73 20}\special{pa -80 22}\special{pa -86 25}\special{pa -93 27}% +\special{pa -99 29}\special{pa -106 31}\special{pa -112 34}\special{pa -119 36}\special{pa -125 38}% +\special{pa -132 41}\special{pa -138 43}\special{pa -145 46}\special{pa -151 49}\special{pa -157 51}% +\special{pa -164 54}\special{pa -170 57}\special{pa -176 59}\special{pa -183 62}\special{pa -189 65}% +\special{pa -195 68}\special{pa -201 71}\special{pa -208 74}\special{pa -214 77}\special{pa -220 80}% +\special{pa -226 83}\special{pa -232 86}\special{pa -239 89}\special{pa -245 93}\special{pa -251 96}% +\special{pa -257 99}\special{pa -263 102}\special{pa -269 106}\special{pa -275 109}% +\special{pa -281 113}\special{pa -287 116}\special{pa -293 120}\special{pa -299 123}% +\special{pa -304 127}\special{pa -310 131}\special{pa -316 134}% +\special{fp}% +\special{pa -412 204}\special{pa -417 208}\special{pa -422 213}\special{pa -427 217}% +\special{pa -433 222}\special{pa -438 226}\special{pa -443 231}\special{pa -448 235}% +\special{pa -453 240}\special{pa -458 245}\special{pa -463 249}\special{pa -468 254}% +\special{pa -473 259}\special{pa -478 264}\special{pa -483 268}\special{pa -488 273}% +\special{pa -493 278}\special{pa -498 283}\special{pa -503 288}\special{pa -507 293}% +\special{pa -512 298}\special{pa -517 303}\special{pa -521 308}\special{pa -526 313}% +\special{pa -531 319}\special{pa -535 324}\special{pa -540 329}\special{pa -544 334}% +\special{pa -549 340}\special{pa -553 345}\special{pa -557 350}\special{pa -562 356}% +\special{pa -566 361}\special{pa -570 366}\special{pa -575 372}\special{pa -579 377}% +\special{pa -583 383}\special{pa -587 388}\special{pa -591 394}\special{pa -595 400}% +\special{pa -599 405}\special{pa -603 411}\special{pa -607 416}\special{pa -611 422}% +\special{pa -615 428}\special{pa -619 434}\special{pa -622 439}\special{pa -626 445}% +\special{pa -630 451}\special{pa -633 457}\special{pa -637 463}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-1.7800,-1.2900){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p017.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p017.sce new file mode 100644 index 00000000..a68d6565 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p017.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p017.tex'; +Fnamesci='pointoncircle/p017.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.79153,-0.64303]'); Assignrep('mdbw1',[-0.79153,-0.64303]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-1.27485,-1.54103]]); +pt1=Pointdata([-1.27485,-1.54103]); +bw1=Bowdata([0,0],[-1.27485,-1.54103],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p017.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.79,-0.64],"c","$2$"); + Drwline(bw1); + Letter([-1.4,-1.7],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p017.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p017.tex new file mode 100644 index 00000000..c53d6f4a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p017.tex @@ -0,0 +1,91 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p017.tex 2017-8-19 10:56 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa -502 607}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa -499 604}\special{pa -505 604}\special{pa -505 609}\special{pa -499 609}% +\special{pa -499 604}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.7900,-0.6400){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa -6 3}\special{pa -12 7}\special{pa -18 10}\special{pa -24 13}% +\special{pa -30 17}\special{pa -36 20}\special{pa -42 24}\special{pa -48 27}\special{pa -54 31}% +\special{pa -60 34}\special{pa -66 38}\special{pa -72 42}\special{pa -77 45}\special{pa -83 49}% +\special{pa -89 53}\special{pa -95 57}\special{pa -100 61}\special{pa -106 64}\special{pa -112 68}% +\special{pa -117 72}\special{pa -123 76}\special{pa -129 80}\special{pa -134 85}\special{pa -140 89}% +\special{pa -145 93}\special{pa -151 97}\special{pa -156 101}\special{pa -161 106}% +\special{pa -167 110}\special{pa -172 114}\special{pa -178 119}\special{pa -183 123}% +\special{pa -188 128}\special{pa -193 132}\special{pa -199 137}\special{pa -204 141}% +\special{pa -209 146}\special{pa -214 150}\special{pa -219 155}\special{pa -224 160}% +\special{pa -229 165}\special{pa -234 169}\special{pa -239 174}\special{pa -244 179}% +\special{pa -249 184}\special{pa -254 189}\special{pa -258 194}\special{pa -263 199}% +\special{pa -268 204}\special{pa -273 209}% +\special{fp}% +\special{pa -348 300}\special{pa -352 305}\special{pa -356 311}\special{pa -360 317}% +\special{pa -364 322}\special{pa -368 328}\special{pa -372 334}\special{pa -376 339}% +\special{pa -379 345}\special{pa -383 351}\special{pa -387 357}\special{pa -391 363}% +\special{pa -394 368}\special{pa -398 374}\special{pa -401 380}\special{pa -405 386}% +\special{pa -408 392}\special{pa -412 398}\special{pa -415 404}\special{pa -419 410}% +\special{pa -422 416}\special{pa -425 422}\special{pa -428 428}\special{pa -432 434}% +\special{pa -435 441}\special{pa -438 447}\special{pa -441 453}\special{pa -444 459}% +\special{pa -447 465}\special{pa -450 472}\special{pa -453 478}\special{pa -456 484}% +\special{pa -459 490}\special{pa -461 497}\special{pa -464 503}\special{pa -467 509}% +\special{pa -469 516}\special{pa -472 522}\special{pa -475 529}\special{pa -477 535}% +\special{pa -480 541}\special{pa -482 548}\special{pa -484 554}\special{pa -487 561}% +\special{pa -489 567}\special{pa -491 574}\special{pa -493 580}\special{pa -496 587}% +\special{pa -498 594}\special{pa -500 600}\special{pa -502 607}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-1.4000,-1.7000){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p018.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p018.sce new file mode 100644 index 00000000..e176e434 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p018.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p018.tex'; +Fnamesci='pointoncircle/p018.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.60674,-0.81967]'); Assignrep('mdbw1',[-0.60674,-0.81967]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-0.85156,-1.80965]]); +pt1=Pointdata([-0.85156,-1.80965]); +bw1=Bowdata([0,0],[-0.85156,-1.80965],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p018.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.61,-0.82],"c","$2$"); + Drwline(bw1); + Letter([-0.94,-1.99],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p018.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p018.tex new file mode 100644 index 00000000..7fcf5a47 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p018.tex @@ -0,0 +1,91 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p018.tex 2017-8-19 10:56 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa -335 712}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa -332 710}\special{pa -338 710}\special{pa -338 715}\special{pa -332 715}% +\special{pa -332 710}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.6100,-0.8200){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa -5 5}\special{pa -10 9}\special{pa -15 14}\special{pa -20 19}% +\special{pa -25 24}\special{pa -30 28}\special{pa -35 33}\special{pa -40 38}\special{pa -45 43}% +\special{pa -50 48}\special{pa -54 53}\special{pa -59 58}\special{pa -64 63}\special{pa -68 68}% +\special{pa -73 73}\special{pa -78 78}\special{pa -82 84}\special{pa -87 89}\special{pa -91 94}% +\special{pa -96 99}\special{pa -100 105}\special{pa -105 110}\special{pa -109 115}% +\special{pa -113 121}\special{pa -118 126}\special{pa -122 131}\special{pa -126 137}% +\special{pa -130 142}\special{pa -134 148}\special{pa -138 154}\special{pa -142 159}% +\special{pa -146 165}\special{pa -150 170}\special{pa -154 176}\special{pa -158 182}% +\special{pa -162 187}\special{pa -166 193}\special{pa -170 199}\special{pa -174 205}% +\special{pa -177 211}\special{pa -181 216}\special{pa -185 222}\special{pa -188 228}% +\special{pa -192 234}\special{pa -195 240}\special{pa -199 246}\special{pa -202 252}% +\special{pa -206 258}\special{pa -209 264}\special{pa -212 270}% +\special{fp}% +\special{pa -262 377}\special{pa -265 383}\special{pa -268 390}\special{pa -270 396}% +\special{pa -272 403}\special{pa -275 409}\special{pa -277 416}\special{pa -279 422}% +\special{pa -282 429}\special{pa -284 435}\special{pa -286 442}\special{pa -288 448}% +\special{pa -290 455}\special{pa -292 461}\special{pa -294 468}\special{pa -296 475}% +\special{pa -298 481}\special{pa -300 488}\special{pa -302 495}\special{pa -303 501}% +\special{pa -305 508}\special{pa -307 515}\special{pa -308 521}\special{pa -310 528}% +\special{pa -312 535}\special{pa -313 542}\special{pa -314 548}\special{pa -316 555}% +\special{pa -317 562}\special{pa -319 569}\special{pa -320 575}\special{pa -321 582}% +\special{pa -322 589}\special{pa -323 596}\special{pa -324 603}\special{pa -325 609}% +\special{pa -326 616}\special{pa -327 623}\special{pa -328 630}\special{pa -329 637}% +\special{pa -330 644}\special{pa -331 651}\special{pa -331 657}\special{pa -332 664}% +\special{pa -333 671}\special{pa -333 678}\special{pa -334 685}\special{pa -334 692}% +\special{pa -335 699}\special{pa -335 706}\special{pa -335 712}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.9400,-1.9900){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p019.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.sce new file mode 100644 index 00000000..5b4af69a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p019.tex'; +Fnamesci='pointoncircle/p019.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.38384,-0.94481]'); Assignrep('mdbw1',[-0.38384,-0.94481]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[-0.37476,-1.96457]]); +pt1=Pointdata([-0.37476,-1.96457]); +bw1=Bowdata([0,0],[-0.37476,-1.96457],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p019.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.38,-0.94],"c","$2$"); + Drwline(bw1); + Letter([-0.41,-2.16],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.tex new file mode 100644 index 00000000..e417ebd0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p019.tex @@ -0,0 +1,91 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p019.tex 2017-8-19 10:56 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa -148 773}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa -145 771}\special{pa -150 771}\special{pa -150 776}\special{pa -145 776}% +\special{pa -145 771}\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.3800,-0.9400){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa -4 6}\special{pa -8 12}\special{pa -11 17}\special{pa -15 23}% +\special{pa -19 29}\special{pa -22 35}\special{pa -26 41}\special{pa -29 47}\special{pa -33 53}% +\special{pa -36 59}\special{pa -39 65}\special{pa -43 71}\special{pa -46 77}\special{pa -49 83}% +\special{pa -53 89}\special{pa -56 95}\special{pa -59 101}\special{pa -62 108}\special{pa -65 114}% +\special{pa -68 120}\special{pa -71 126}\special{pa -74 132}\special{pa -77 139}\special{pa -80 145}% +\special{pa -82 151}\special{pa -85 158}\special{pa -88 164}\special{pa -91 170}\special{pa -93 177}% +\special{pa -96 183}\special{pa -98 190}\special{pa -101 196}\special{pa -103 202}% +\special{pa -106 209}\special{pa -108 215}\special{pa -110 222}\special{pa -113 228}% +\special{pa -115 235}\special{pa -117 241}\special{pa -119 248}\special{pa -121 255}% +\special{pa -123 261}\special{pa -126 268}\special{pa -127 274}\special{pa -129 281}% +\special{pa -131 288}\special{pa -133 294}\special{pa -135 301}\special{pa -137 308}% +\special{pa -138 314}% +\special{fp}% +\special{pa -161 430}\special{pa -161 437}\special{pa -162 444}\special{pa -163 451}% +\special{pa -164 458}\special{pa -164 465}\special{pa -165 471}\special{pa -166 478}% +\special{pa -166 485}\special{pa -167 492}\special{pa -167 499}\special{pa -168 506}% +\special{pa -168 513}\special{pa -168 520}\special{pa -169 527}\special{pa -169 533}% +\special{pa -169 540}\special{pa -169 547}\special{pa -169 554}\special{pa -169 561}% +\special{pa -169 568}\special{pa -169 575}\special{pa -169 582}\special{pa -169 589}% +\special{pa -169 596}\special{pa -169 602}\special{pa -168 609}\special{pa -168 616}% +\special{pa -168 623}\special{pa -167 630}\special{pa -167 637}\special{pa -166 644}% +\special{pa -166 651}\special{pa -165 657}\special{pa -164 664}\special{pa -164 671}% +\special{pa -163 678}\special{pa -162 685}\special{pa -161 692}\special{pa -160 699}% +\special{pa -159 705}\special{pa -158 712}\special{pa -157 719}\special{pa -156 726}% +\special{pa -155 733}\special{pa -154 740}\special{pa -153 746}\special{pa -152 753}% +\special{pa -150 760}\special{pa -149 767}\special{pa -148 773}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.4100,-2.1600){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p020.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p020.sce new file mode 100644 index 00000000..aa167646 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p020.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p020.tex'; +Fnamesci='pointoncircle/p020.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[-0.13681,-1.01058]'); Assignrep('mdbw1',[-0.13681,-1.01058]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[0.12558,-1.99605]]); +pt1=Pointdata([0.12558,-1.99605]); +bw1=Bowdata([0,0],[0.12558,-1.99605],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p020.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([-0.14,-1.01],"c","$2$"); + Drwline(bw1); + Letter([0.14,-2.2],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p020.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p020.tex new file mode 100644 index 00000000..1ba69921 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p020.tex @@ -0,0 +1,88 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p020.tex 2017-8-19 10:56 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 49 786}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 52 783}\special{pa 47 783}\special{pa 47 789}\special{pa 52 789}\special{pa 52 783}% +\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(-0.1400,-1.0100){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa -2 7}\special{pa -4 13}\special{pa -7 20}\special{pa -9 26}% +\special{pa -11 33}\special{pa -13 39}\special{pa -15 46}\special{pa -17 53}\special{pa -18 59}% +\special{pa -20 66}\special{pa -22 73}\special{pa -24 79}\special{pa -25 86}\special{pa -27 93}% +\special{pa -29 99}\special{pa -30 106}\special{pa -32 113}\special{pa -33 120}\special{pa -35 126}% +\special{pa -36 133}\special{pa -37 140}\special{pa -39 147}\special{pa -40 153}\special{pa -41 160}% +\special{pa -42 167}\special{pa -43 174}\special{pa -44 181}\special{pa -45 188}\special{pa -46 194}% +\special{pa -47 201}\special{pa -48 208}\special{pa -49 215}\special{pa -50 222}\special{pa -50 229}% +\special{pa -51 235}\special{pa -52 242}\special{pa -52 249}\special{pa -53 256}\special{pa -53 263}% +\special{pa -54 270}\special{pa -54 277}\special{pa -55 284}\special{pa -55 291}\special{pa -55 297}% +\special{pa -55 304}\special{pa -56 311}\special{pa -56 318}\special{pa -56 325}\special{pa -56 332}% +\special{pa -56 339}% +\special{fp}% +\special{pa -48 457}\special{pa -48 464}\special{pa -47 470}\special{pa -46 477}\special{pa -45 484}% +\special{pa -44 491}\special{pa -43 498}\special{pa -42 504}\special{pa -40 511}\special{pa -39 518}% +\special{pa -38 525}\special{pa -37 532}\special{pa -35 538}\special{pa -34 545}\special{pa -32 552}% +\special{pa -31 559}\special{pa -29 565}\special{pa -28 572}\special{pa -26 579}\special{pa -24 585}% +\special{pa -23 592}\special{pa -21 599}\special{pa -19 605}\special{pa -17 612}\special{pa -15 619}% +\special{pa -13 625}\special{pa -11 632}\special{pa -9 639}\special{pa -7 645}\special{pa -5 652}% +\special{pa -3 658}\special{pa -1 665}\special{pa 1 671}\special{pa 4 678}\special{pa 6 684}% +\special{pa 8 691}\special{pa 11 697}\special{pa 13 704}\special{pa 16 710}\special{pa 18 717}% +\special{pa 21 723}\special{pa 24 729}\special{pa 26 736}\special{pa 29 742}\special{pa 32 748}% +\special{pa 35 755}\special{pa 38 761}\special{pa 40 767}\special{pa 43 773}\special{pa 46 780}% +\special{pa 49 786}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.1400,-2.2000){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p021.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p021.sce new file mode 100644 index 00000000..0a58ae6e --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p021.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p021.tex'; +Fnamesci='pointoncircle/p021.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.11881,-1.01286]'); Assignrep('mdbw1',[0.11881,-1.01286]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[0.61803,-1.90211]]); +pt1=Pointdata([0.61803,-1.90211]); +bw1=Bowdata([0,0],[0.61803,-1.90211],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p021.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.12,-1.01],"c","$2$"); + Drwline(bw1); + Letter([0.68,-2.09],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p021.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p021.tex new file mode 100644 index 00000000..80554147 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p021.tex @@ -0,0 +1,88 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p021.tex 2017-8-19 10:56 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 243 749}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 246 746}\special{pa 241 746}\special{pa 241 752}\special{pa 246 752}\special{pa 246 746}% +\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.1200,-1.0100){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa -1 7}\special{pa -1 14}\special{pa -1 21}\special{pa -2 28}% +\special{pa -2 34}\special{pa -2 41}\special{pa -3 48}\special{pa -3 55}\special{pa -3 62}% +\special{pa -3 69}\special{pa -3 76}\special{pa -3 83}\special{pa -3 90}\special{pa -3 97}% +\special{pa -3 103}\special{pa -3 110}\special{pa -3 117}\special{pa -2 124}\special{pa -2 131}% +\special{pa -2 138}\special{pa -1 145}\special{pa -1 152}\special{pa 0 159}\special{pa 0 165}% +\special{pa 1 172}\special{pa 1 179}\special{pa 2 186}\special{pa 3 193}\special{pa 3 200}% +\special{pa 4 207}\special{pa 5 213}\special{pa 6 220}\special{pa 7 227}\special{pa 8 234}% +\special{pa 9 241}\special{pa 10 248}\special{pa 11 254}\special{pa 12 261}\special{pa 14 268}% +\special{pa 15 275}\special{pa 16 282}\special{pa 18 288}\special{pa 19 295}\special{pa 20 302}% +\special{pa 22 309}\special{pa 24 315}\special{pa 25 322}\special{pa 27 329}\special{pa 28 335}% +\special{pa 30 342}% +\special{fp}% +\special{pa 67 454}\special{pa 69 461}\special{pa 72 467}\special{pa 74 474}\special{pa 77 480}% +\special{pa 80 486}\special{pa 82 493}\special{pa 85 499}\special{pa 88 505}\special{pa 91 512}% +\special{pa 94 518}\special{pa 97 524}\special{pa 100 530}\special{pa 103 536}\special{pa 106 543}% +\special{pa 109 549}\special{pa 112 555}\special{pa 115 561}\special{pa 119 567}\special{pa 122 573}% +\special{pa 125 579}\special{pa 129 585}\special{pa 132 591}\special{pa 136 597}\special{pa 139 603}% +\special{pa 143 609}\special{pa 146 615}\special{pa 150 621}\special{pa 153 627}\special{pa 157 633}% +\special{pa 161 638}\special{pa 165 644}\special{pa 168 650}\special{pa 172 656}\special{pa 176 661}% +\special{pa 180 667}\special{pa 184 673}\special{pa 188 678}\special{pa 192 684}\special{pa 196 689}% +\special{pa 200 695}\special{pa 204 701}\special{pa 209 706}\special{pa 213 711}\special{pa 217 717}% +\special{pa 221 722}\special{pa 226 728}\special{pa 230 733}\special{pa 234 738}\special{pa 239 744}% +\special{pa 243 749}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.6800,-2.0900){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p022.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p022.sce new file mode 100644 index 00000000..d0bd9703 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p022.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p022.tex'; +Fnamesci='pointoncircle/p022.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.36696,-0.95149]'); Assignrep('mdbw1',[0.36696,-0.95149]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.07165,-1.68866]]); +pt1=Pointdata([1.07165,-1.68866]); +bw1=Bowdata([0,0],[1.07165,-1.68866],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p022.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.37,-0.95],"c","$2$"); + Drwline(bw1); + Letter([1.18,-1.86],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p022.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p022.tex new file mode 100644 index 00000000..bd69e6b8 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p022.tex @@ -0,0 +1,88 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p022.tex 2017-8-19 10:56 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 422 665}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 425 662}\special{pa 419 662}\special{pa 419 668}\special{pa 425 668}\special{pa 425 662}% +\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.3700,-0.9500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 1 7}\special{pa 2 14}\special{pa 4 20}\special{pa 5 27}% +\special{pa 6 34}\special{pa 8 41}\special{pa 9 47}\special{pa 11 54}\special{pa 12 61}% +\special{pa 14 68}\special{pa 16 74}\special{pa 17 81}\special{pa 19 88}\special{pa 21 94}% +\special{pa 23 101}\special{pa 25 108}\special{pa 27 114}\special{pa 28 121}\special{pa 30 127}% +\special{pa 33 134}\special{pa 35 141}\special{pa 37 147}\special{pa 39 154}\special{pa 41 160}% +\special{pa 43 167}\special{pa 46 173}\special{pa 48 180}\special{pa 51 186}\special{pa 53 193}% +\special{pa 55 199}\special{pa 58 206}\special{pa 61 212}\special{pa 63 218}\special{pa 66 225}% +\special{pa 69 231}\special{pa 71 237}\special{pa 74 244}\special{pa 77 250}\special{pa 80 256}% +\special{pa 83 262}\special{pa 86 269}\special{pa 89 275}\special{pa 92 281}\special{pa 95 287}% +\special{pa 98 293}\special{pa 101 300}\special{pa 104 306}\special{pa 108 312}\special{pa 111 318}% +\special{pa 114 324}% +\special{fp}% +\special{pa 178 424}\special{pa 182 429}\special{pa 186 435}\special{pa 190 440}\special{pa 194 446}% +\special{pa 198 451}\special{pa 202 457}\special{pa 207 462}\special{pa 211 467}\special{pa 215 473}% +\special{pa 220 478}\special{pa 224 483}\special{pa 229 489}\special{pa 233 494}\special{pa 238 499}% +\special{pa 242 504}\special{pa 247 510}\special{pa 251 515}\special{pa 256 520}\special{pa 261 525}% +\special{pa 265 530}\special{pa 270 535}\special{pa 275 540}\special{pa 280 545}\special{pa 285 550}% +\special{pa 290 554}\special{pa 294 559}\special{pa 299 564}\special{pa 304 569}\special{pa 309 574}% +\special{pa 314 578}\special{pa 320 583}\special{pa 325 588}\special{pa 330 592}\special{pa 335 597}% +\special{pa 340 601}\special{pa 345 606}\special{pa 351 610}\special{pa 356 615}\special{pa 361 619}% +\special{pa 367 623}\special{pa 372 628}\special{pa 378 632}\special{pa 383 636}\special{pa 388 640}% +\special{pa 394 645}\special{pa 400 649}\special{pa 405 653}\special{pa 411 657}\special{pa 416 661}% +\special{pa 422 665}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(1.1800,-1.8600){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p023.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p023.sce new file mode 100644 index 00000000..6084fa23 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p023.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p023.tex'; +Fnamesci='pointoncircle/p023.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.59206,-0.83034]'); Assignrep('mdbw1',[0.59206,-0.83034]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.45794,-1.36909]]); +pt1=Pointdata([1.45794,-1.36909]); +bw1=Bowdata([0,0],[1.45794,-1.36909],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p023.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.59,-0.83],"c","$2$"); + Drwline(bw1); + Letter([1.6,-1.51],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p023.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p023.tex new file mode 100644 index 00000000..8aa2ac69 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p023.tex @@ -0,0 +1,88 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p023.tex 2017-8-19 10:56 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 574 539}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 577 536}\special{pa 571 536}\special{pa 571 542}\special{pa 577 542}\special{pa 577 536}% +\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.5900,-0.8300){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 3 6}\special{pa 6 13}\special{pa 9 19}\special{pa 12 25}% +\special{pa 15 31}\special{pa 18 37}\special{pa 21 44}\special{pa 24 50}\special{pa 27 56}% +\special{pa 30 62}\special{pa 34 68}\special{pa 37 74}\special{pa 40 80}\special{pa 44 86}% +\special{pa 47 92}\special{pa 51 98}\special{pa 54 104}\special{pa 58 110}\special{pa 61 116}% +\special{pa 65 122}\special{pa 69 128}\special{pa 72 133}\special{pa 76 139}\special{pa 80 145}% +\special{pa 84 151}\special{pa 87 156}\special{pa 91 162}\special{pa 95 168}\special{pa 99 173}% +\special{pa 103 179}\special{pa 107 185}\special{pa 111 190}\special{pa 116 196}\special{pa 120 201}% +\special{pa 124 207}\special{pa 128 212}\special{pa 132 218}\special{pa 137 223}\special{pa 141 228}% +\special{pa 145 234}\special{pa 150 239}\special{pa 154 244}\special{pa 159 249}\special{pa 163 255}% +\special{pa 168 260}\special{pa 173 265}\special{pa 177 270}\special{pa 182 275}\special{pa 187 280}% +\special{pa 191 285}% +\special{fp}% +\special{pa 277 366}\special{pa 283 370}\special{pa 288 375}\special{pa 293 379}\special{pa 299 383}% +\special{pa 304 388}\special{pa 310 392}\special{pa 315 396}\special{pa 321 400}\special{pa 326 404}% +\special{pa 332 409}\special{pa 337 413}\special{pa 343 417}\special{pa 349 421}\special{pa 354 424}% +\special{pa 360 428}\special{pa 366 432}\special{pa 371 436}\special{pa 377 440}\special{pa 383 444}% +\special{pa 389 447}\special{pa 395 451}\special{pa 401 454}\special{pa 406 458}\special{pa 412 462}% +\special{pa 418 465}\special{pa 424 469}\special{pa 430 472}\special{pa 436 475}\special{pa 442 479}% +\special{pa 448 482}\special{pa 455 485}\special{pa 461 488}\special{pa 467 492}\special{pa 473 495}% +\special{pa 479 498}\special{pa 485 501}\special{pa 491 504}\special{pa 498 507}\special{pa 504 510}% +\special{pa 510 513}\special{pa 517 515}\special{pa 523 518}\special{pa 529 521}\special{pa 536 524}% +\special{pa 542 526}\special{pa 548 529}\special{pa 555 532}\special{pa 561 534}\special{pa 568 537}% +\special{pa 574 539}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(1.6000,-1.5100){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p024.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p024.sce new file mode 100644 index 00000000..13cccf91 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p024.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p024.tex'; +Fnamesci='pointoncircle/p024.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.77996,-0.65702]'); Assignrep('mdbw1',[0.77996,-0.65702]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.75261,-0.96351]]); +pt1=Pointdata([1.75261,-0.96351]); +bw1=Bowdata([0,0],[1.75261,-0.96351],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p024.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.78,-0.66],"c","$2$"); + Drwline(bw1); + Letter([1.93,-1.06],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p024.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p024.tex new file mode 100644 index 00000000..d99ee59f --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p024.tex @@ -0,0 +1,88 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p024.tex 2017-8-19 10:56 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 690 379}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 693 377}\special{pa 687 377}\special{pa 687 382}\special{pa 693 382}\special{pa 693 377}% +\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.7800,-0.6600){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 4 5}\special{pa 9 11}\special{pa 13 16}\special{pa 18 21}% +\special{pa 22 27}\special{pa 26 32}\special{pa 31 37}\special{pa 36 42}\special{pa 40 47}% +\special{pa 45 52}\special{pa 49 58}\special{pa 54 63}\special{pa 59 68}\special{pa 64 73}% +\special{pa 69 78}\special{pa 73 82}\special{pa 78 87}\special{pa 83 92}\special{pa 88 97}% +\special{pa 93 102}\special{pa 98 107}\special{pa 103 111}\special{pa 108 116}\special{pa 113 121}% +\special{pa 118 125}\special{pa 124 130}\special{pa 129 134}\special{pa 134 139}\special{pa 139 143}% +\special{pa 145 148}\special{pa 150 152}\special{pa 155 157}\special{pa 161 161}\special{pa 166 165}% +\special{pa 171 169}\special{pa 177 174}\special{pa 182 178}\special{pa 188 182}\special{pa 193 186}% +\special{pa 199 190}\special{pa 205 194}\special{pa 210 198}\special{pa 216 202}\special{pa 222 206}% +\special{pa 227 210}\special{pa 233 214}\special{pa 239 218}\special{pa 245 221}\special{pa 250 225}% +\special{pa 256 229}% +\special{fp}% +\special{pa 360 286}\special{pa 366 289}\special{pa 372 291}\special{pa 378 294}\special{pa 385 297}% +\special{pa 391 300}\special{pa 397 303}\special{pa 404 305}\special{pa 410 308}\special{pa 416 311}% +\special{pa 423 313}\special{pa 429 316}\special{pa 436 318}\special{pa 442 321}\special{pa 449 323}% +\special{pa 455 325}\special{pa 462 328}\special{pa 468 330}\special{pa 475 332}\special{pa 481 334}% +\special{pa 488 336}\special{pa 494 339}\special{pa 501 341}\special{pa 508 343}\special{pa 514 345}% +\special{pa 521 346}\special{pa 527 348}\special{pa 534 350}\special{pa 541 352}\special{pa 548 354}% +\special{pa 554 355}\special{pa 561 357}\special{pa 568 359}\special{pa 574 360}\special{pa 581 362}% +\special{pa 588 363}\special{pa 595 364}\special{pa 601 366}\special{pa 608 367}\special{pa 615 368}% +\special{pa 622 370}\special{pa 628 371}\special{pa 635 372}\special{pa 642 373}\special{pa 649 374}% +\special{pa 656 375}\special{pa 663 376}\special{pa 669 377}\special{pa 676 378}\special{pa 683 379}% +\special{pa 690 379}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(1.9300,-1.0600){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p025.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.sce new file mode 100644 index 00000000..99337104 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p025.tex'; +Fnamesci='pointoncircle/p025.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[0.91885,-0.44241]'); Assignrep('mdbw1',[0.91885,-0.44241]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[1.93717,-0.49738]]); +pt1=Pointdata([1.93717,-0.49738]); +bw1=Bowdata([0,0],[1.93717,-0.49738],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p025.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([0.92,-0.44],"c","$2$"); + Drwline(bw1); + Letter([2.13,-0.55],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.tex new file mode 100644 index 00000000..fb5c827f --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p025.tex @@ -0,0 +1,88 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p025.tex 2017-8-19 10:56 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 763 196}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 765 193}\special{pa 760 193}\special{pa 760 199}\special{pa 765 199}\special{pa 765 193}% +\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(0.9200,-0.4400){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 6 4}\special{pa 11 8}\special{pa 17 12}\special{pa 22 16}% +\special{pa 28 20}\special{pa 34 24}\special{pa 39 28}\special{pa 45 32}\special{pa 51 36}% +\special{pa 56 40}\special{pa 62 43}\special{pa 68 47}\special{pa 74 51}\special{pa 80 54}% +\special{pa 86 58}\special{pa 92 62}\special{pa 98 65}\special{pa 103 69}\special{pa 109 72}% +\special{pa 115 75}\special{pa 121 79}\special{pa 128 82}\special{pa 134 85}\special{pa 140 89}% +\special{pa 146 92}\special{pa 152 95}\special{pa 158 98}\special{pa 164 101}\special{pa 171 104}% +\special{pa 177 107}\special{pa 183 110}\special{pa 189 113}\special{pa 196 116}\special{pa 202 119}% +\special{pa 208 121}\special{pa 214 124}\special{pa 221 127}\special{pa 227 130}\special{pa 234 132}% +\special{pa 240 135}\special{pa 246 137}\special{pa 253 140}\special{pa 259 142}\special{pa 266 144}% +\special{pa 272 147}\special{pa 279 149}\special{pa 285 151}\special{pa 292 154}\special{pa 298 156}% +\special{pa 305 158}% +\special{fp}% +\special{pa 419 187}\special{pa 426 189}\special{pa 433 190}\special{pa 440 191}\special{pa 446 192}% +\special{pa 453 193}\special{pa 460 194}\special{pa 467 195}\special{pa 474 196}\special{pa 481 197}% +\special{pa 487 198}\special{pa 494 199}\special{pa 501 200}\special{pa 508 201}\special{pa 515 201}% +\special{pa 522 202}\special{pa 529 203}\special{pa 536 203}\special{pa 542 204}\special{pa 549 204}% +\special{pa 556 205}\special{pa 563 205}\special{pa 570 205}\special{pa 577 206}\special{pa 584 206}% +\special{pa 591 206}\special{pa 598 206}\special{pa 604 206}\special{pa 611 206}\special{pa 618 206}% +\special{pa 625 206}\special{pa 632 206}\special{pa 639 206}\special{pa 646 206}\special{pa 653 206}% +\special{pa 660 205}\special{pa 667 205}\special{pa 673 205}\special{pa 680 204}\special{pa 687 204}% +\special{pa 694 203}\special{pa 701 203}\special{pa 708 202}\special{pa 715 202}\special{pa 722 201}% +\special{pa 728 200}\special{pa 735 199}\special{pa 742 199}\special{pa 749 198}\special{pa 756 197}% +\special{pa 763 196}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(2.1300,-0.5500){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/pointoncircle/p026.sce b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p026.sce new file mode 100644 index 00000000..50200087 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p026.sce @@ -0,0 +1,56 @@ +//date time=2017/8/19 10:55:49 + +cd('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig'); +Ketlib=lib('/Users/takatoosetsuo/ketcindy/ketlib/ketpicscifiles6'); +Ketinit(); +disp('KETpic '+ThisVersion()) +Fnametex='pointoncircle/p026.tex'; +Fnamesci='pointoncircle/p026.sce'; +Fnamescibody='figs0706animatebody.sce'; +Fnameout='figs0706animate.txt'; +pi=%pi; i=%i; +arccos=acos; arcsin=asin; arctan=atan; + +Setwindow([-2.5,2.5], [-2.5,2.5]); +Assignadd('pi',%pi); +Assignadd('XMIN',Xmin()); +Assignadd('XMAX',Xmax()); +Assignadd('YMIN',Ymin()); +Assignadd('YMAX',Ymax()); +A=[0,-4]; Assignrep('A',[0,-4]); +B=[6.28319,-3.96979]; Assignrep('B',[6.28319,-3.96979]); +C=[0.83543,-3.99598]; Assignrep('C',[0.83543,-3.99598]); +mdbw1=evstr('[1,-0.2]'); Assignrep('mdbw1',[1,-0.2]); +cr1=Circledata([[0,0],[2,0]]); +sg1=Listplot([[0,0],[2,0]]); +pt1=Pointdata([2,0]); +bw1=Bowdata([0,0],[2,0],1,0.3); +PtL=list(A,B,C); +GrL=list(); +//if length(fileinfo(Fnamescibody))>0 +// Gbdy=ReadfromCindy(Fnamescibody); +// execstr(Gbdy) +//end; + +//Windisp(GrL,'c'); + +if 1==1 then + +Openfile('/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p026.tex','1cm'); + Fontsize('s'); + Drwline(cr1); + Letter([2,0],"se","$2$"); + Setcolor("red"); + Drwline(sg1); + Setcolor("black"); + Setpen(0.12); + Drwpt(list(pt1)); + Setpen(1); + Letter([1,-0.2],"c","$2$"); + Drwline(bw1); + Letter([2.2,0],"c","$\mathrm{P}$"); +Closefile('1'); + +end; + +quit(); diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p026.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p026.tex new file mode 100644 index 00000000..89c96f2c --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/pointoncircle/p026.tex @@ -0,0 +1,88 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p026.tex 2017-8-19 10:56 +%%% figs0706animateall.sce 2017-8-19 10:55 +{\unitlength=1cm% +\begin{picture}% +( 5.00000, 5.00000)( -2.50000, -2.50000)% +\special{pn 8}% +% +\small% +\special{pa 787 0}\special{pa 781 -99}\special{pa 763 -196}\special{pa 732 -290}\special{pa 690 -379}% +\special{pa 637 -463}\special{pa 574 -539}\special{pa 502 -607}\special{pa 422 -665}% +\special{pa 335 -712}\special{pa 243 -749}\special{pa 148 -773}\special{pa 49 -786}% +\special{pa -49 -786}\special{pa -148 -773}\special{pa -243 -749}\special{pa -335 -712}% +\special{pa -422 -665}\special{pa -502 -607}\special{pa -574 -539}\special{pa -637 -463}% +\special{pa -690 -379}\special{pa -732 -290}\special{pa -763 -196}\special{pa -781 -99}% +\special{pa -787 0}\special{pa -781 99}\special{pa -763 196}\special{pa -732 290}% +\special{pa -690 379}\special{pa -637 463}\special{pa -574 539}\special{pa -502 607}% +\special{pa -422 665}\special{pa -335 712}\special{pa -243 749}\special{pa -148 773}% +\special{pa -49 786}\special{pa 49 786}\special{pa 148 773}\special{pa 243 749}\special{pa 335 712}% +\special{pa 422 665}\special{pa 502 607}\special{pa 574 539}\special{pa 637 463}\special{pa 690 379}% +\special{pa 732 290}\special{pa 763 196}\special{pa 781 99}\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$2$}\setlength{\Width}{0\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-\Height}% +\put(2.0500,-0.0500){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\color[cmyk]{0,1,1,0}% +\special{pa 0 0}\special{pa 787 0}% +\special{fp}% +\color[cmyk]{0,0,0,1}% +\special{pn 1}% +\special{pa 790 -3}\special{pa 785 -3}\special{pa 785 3}\special{pa 790 3}\special{pa 790 -3}% +\special{sh 1}\special{fp}% +\special{pn 8}% +\settowidth{\Width}{$2$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$2$}\settodepth{\Depth}{$2$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(1.0000,-0.2000){\hspace*{\Width}\raisebox{\Height}{$2$}}% +% +% +\special{pa 0 0}\special{pa 6 3}\special{pa 13 5}\special{pa 19 8}\special{pa 26 10}% +\special{pa 32 13}\special{pa 39 15}\special{pa 45 18}\special{pa 52 20}\special{pa 58 22}% +\special{pa 65 24}\special{pa 71 27}\special{pa 78 29}\special{pa 84 31}\special{pa 91 33}% +\special{pa 97 35}\special{pa 104 37}\special{pa 111 39}\special{pa 117 41}\special{pa 124 43}% +\special{pa 131 44}\special{pa 137 46}\special{pa 144 48}\special{pa 151 49}\special{pa 157 51}% +\special{pa 164 53}\special{pa 171 54}\special{pa 178 56}\special{pa 184 57}\special{pa 191 58}% +\special{pa 198 60}\special{pa 205 61}\special{pa 211 62}\special{pa 218 64}\special{pa 225 65}% +\special{pa 232 66}\special{pa 239 67}\special{pa 245 68}\special{pa 252 69}\special{pa 259 70}% +\special{pa 266 71}\special{pa 273 72}\special{pa 280 72}\special{pa 287 73}\special{pa 293 74}% +\special{pa 300 74}\special{pa 307 75}\special{pa 314 76}\special{pa 321 76}\special{pa 328 77}% +\special{pa 335 77}% +\special{fp}% +\special{pa 453 77}\special{pa 460 77}\special{pa 466 76}\special{pa 473 76}\special{pa 480 75}% +\special{pa 487 74}\special{pa 494 74}\special{pa 501 73}\special{pa 508 72}\special{pa 515 72}% +\special{pa 521 71}\special{pa 528 70}\special{pa 535 69}\special{pa 542 68}\special{pa 549 67}% +\special{pa 556 66}\special{pa 562 65}\special{pa 569 64}\special{pa 576 62}\special{pa 583 61}% +\special{pa 590 60}\special{pa 596 58}\special{pa 603 57}\special{pa 610 56}\special{pa 617 54}% +\special{pa 623 53}\special{pa 630 51}\special{pa 637 49}\special{pa 643 48}\special{pa 650 46}% +\special{pa 657 44}\special{pa 663 43}\special{pa 670 41}\special{pa 677 39}\special{pa 683 37}% +\special{pa 690 35}\special{pa 697 33}\special{pa 703 31}\special{pa 710 29}\special{pa 716 27}% +\special{pa 723 24}\special{pa 729 22}\special{pa 736 20}\special{pa 742 18}\special{pa 749 15}% +\special{pa 755 13}\special{pa 762 10}\special{pa 768 8}\special{pa 775 5}\special{pa 781 3}% +\special{pa 787 0}% +\special{fp}% +\settowidth{\Width}{$\mathrm{P}$}\setlength{\Width}{-0.5\Width}% +\settoheight{\Height}{$\mathrm{P}$}\settodepth{\Depth}{$\mathrm{P}$}\setlength{\Height}{-0.5\Height}\setlength{\Depth}{0.5\Depth}\addtolength{\Height}{\Depth}% +\put(2.2000,0.0000){\hspace*{\Width}\raisebox{\Height}{$\mathrm{P}$}}% +% +% +\special{pa -984 0}\special{pa 984 0}% +\special{fp}% +\special{pa 0 984}\special{pa 0 -984}% +\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(2.5500,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,2.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/resultS.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/resultS.txt new file mode 100644 index 00000000..c0e52bd3 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/resultS.txt @@ -0,0 +1 @@ +|||| diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve.tex new file mode 100644 index 00000000..26255ecf --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/sinecurve.tex @@ -0,0 +1,41 @@ +%%% /Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/sinecurve.tex 2016-12-27 16:35 +%%% sinecurve.sce 2016-12-27 16:35 +{\unitlength=1cm% +\begin{picture}% +( 7.00000, 3.00000)( -3.50000, -1.50000)% +\special{pn 8}% +% +\special{pa -1378 191}\special{pa -1323 237}\special{pa -1268 279}\special{pa -1213 315}% +\special{pa -1157 345}\special{pa -1102 368}\special{pa -1047 384}\special{pa -992 392}% +\special{pa -937 393}\special{pa -882 386}\special{pa -827 372}\special{pa -772 350}% +\special{pa -717 321}\special{pa -661 287}\special{pa -606 246}\special{pa -551 201}% +\special{pa -496 152}\special{pa -441 99}\special{pa -386 45}\special{pa -331 -10}% +\special{pa -276 -65}\special{pa -220 -118}\special{pa -165 -169}\special{pa -110 -217}% +\special{pa -55 -261}\special{pa 0 -300}\special{pa 55 -332}\special{pa 110 -359}% +\special{pa 165 -378}\special{pa 220 -390}\special{pa 276 -394}\special{pa 331 -390}% +\special{pa 386 -379}\special{pa 441 -360}\special{pa 496 -335}\special{pa 551 -303}% +\special{pa 606 -264}\special{pa 661 -221}\special{pa 717 -174}\special{pa 772 -123}% +\special{pa 827 -69}\special{pa 882 -14}\special{pa 937 41}\special{pa 992 95}\special{pa 1047 147}% +\special{pa 1102 197}\special{pa 1157 242}\special{pa 1213 283}\special{pa 1268 319}% +\special{pa 1323 348}\special{pa 1378 370}% +\special{fp}% +\special{pa -1378 0}\special{pa 1378 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(3.5500,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/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 diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0.tex new file mode 100644 index 00000000..3ff43765 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0.tex @@ -0,0 +1,11 @@ +{\Large\bf +\color[cmyk]{1,1,0,0} + +\begin{layer}{120}{0} +{\Huge \putnotes{60}{20}{メインタイトル}} +\putnotes{60}{50}{名前} +\putnotes{60}{60}{所属} +\putnotes{60}{70}{情報} +\end{layer} + +} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.aux b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.aux new file mode 100644 index 00000000..f23e5468 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.aux @@ -0,0 +1 @@ +\relax diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.log b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.log new file mode 100644 index 00000000..5ce8fe94 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.log @@ -0,0 +1,234 @@ +This is e-upTeX, Version 3.14159265-p3.7-u1.21-160201-2.6 (utf8.uptex) (TeX Live 2016) (preloaded format=uplatex 2017.8.18) 20 AUG 2017 16:52 +entering extended mode + restricted \write18 enabled. + %&-line parsing enabled. +**slide0main.tex +(./slide0main.tex +pLaTeX2e <2016/11/29u01> (based on LaTeX2e <2017/01/01> patch level 3) +Babel <3.9r> and hyphenation patterns for 3 language(s) loaded. +(/Applications/kettex/texlive/texmf-dist/tex/uplatex/base/ujarticle.cls +Document Class: ujarticle 2016/11/22 v1.7b-u00 Standard upLaTeX class +\c@@paper=\count82 +(/Applications/kettex/texlive/texmf-dist/tex/uplatex/base/ujsize10.clo +File: ujsize10.clo 2016/11/22 v1.7b-u00 Standard upLaTeX file (size option) +LaTeX Font Info: Font shape `JT2/mc/m/n' will be +(Font) scaled to size 9.6222pt on input line 28. +LaTeX Font Info: Font shape `JY2/mc/m/n' will be +(Font) scaled to size 9.6222pt on input line 28. +) +\c@part=\count83 +\c@section=\count84 +\c@subsection=\count85 +\c@subsubsection=\count86 +\c@paragraph=\count87 +\c@subparagraph=\count88 +\c@figure=\count89 +\c@table=\count90 +\abovecaptionskip=\skip41 +\belowcaptionskip=\skip42 +\symmincho=\mathgroup4 +LaTeX Font Info: Overwriting symbol font `mincho' in version `bold' +(Font) JY2/mc/m/n --> JY2/gt/m/n on input line 580. +\toclineskip=\dimen118 +\@lnumwidth=\dimen119 +\bibindent=\dimen120 +\heisei=\count91 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic.sty +\c@ketpicctra=\count92 +\c@ketpicctrb=\count93 +\c@ketpicctrc=\count94 +\c@ketpicctrd=\count95 +\c@ketpicctre=\count96 +\c@ketpicctrf=\count97 +\c@ketpicctrg=\count98 +\c@ketpicctrh=\count99 +\c@ketpicctri=\count100 +\c@ketpicctrj=\count101 +\Width=\skip43 +\Height=\skip44 +\Depth=\skip45 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer.sty +\layercurrentunit=\skip46 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide.sty) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsmath.sty +Package: amsmath 2016/11/05 v2.16a AMS math features +\@mathmargin=\skip47 + +For additional information on amsmath, use the `?' option. +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amstext.sty +Package: amstext 2000/06/29 v2.01 AMS text + +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsgen.sty +File: amsgen.sty 1999/11/30 v2.0 generic functions +\@emptytoks=\toks15 +\ex@=\dimen121 +)) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsbsy.sty +Package: amsbsy 1999/11/29 v1.2d Bold Symbols +\pmbraise@=\dimen122 +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsopn.sty +Package: amsopn 2016/03/08 v2.02 operator names +) +\inf@bad=\count102 +LaTeX Info: Redefining \frac on input line 213. +\uproot@=\count103 +\leftroot@=\count104 +LaTeX Info: Redefining \overline on input line 375. +\classnum@=\count105 +\DOTSCASE@=\count106 +LaTeX Info: Redefining \ldots on input line 472. +LaTeX Info: Redefining \dots on input line 475. +LaTeX Info: Redefining \cdots on input line 596. +\Mathstrutbox@=\box41 +\strutbox@=\box42 +\big@size=\dimen123 +LaTeX Font Info: Redeclaring font encoding OML on input line 712. +LaTeX Font Info: Redeclaring font encoding OMS on input line 713. +\macc@depth=\count107 +\c@MaxMatrixCols=\count108 +\dotsspace@=\muskip10 +\c@parentequation=\count109 +\dspbrk@lvl=\count110 +\tag@help=\toks16 +\row@=\count111 +\column@=\count112 +\maxfields@=\count113 +\andhelp@=\toks17 +\eqnshift@=\dimen124 +\alignsep@=\dimen125 +\tagshift@=\dimen126 +\tagwidth@=\dimen127 +\totwidth@=\dimen128 +\lineht@=\dimen129 +\@envbody=\toks18 +\multlinegap=\skip48 +\multlinetaggap=\skip49 +\mathdisplay@stack=\toks19 +LaTeX Info: Redefining \[ on input line 2817. +LaTeX Info: Redefining \] on input line 2818. +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/amssymb.sty +Package: amssymb 2013/01/14 v3.01 AMS font symbols + +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/amsfonts.sty +Package: amsfonts 2013/01/14 v3.01 Basic AMSFonts support +\symAMSa=\mathgroup5 +\symAMSb=\mathgroup6 +LaTeX Font Info: Overwriting math alphabet `\mathfrak' in version `bold' +(Font) U/euf/m/n --> U/euf/b/n on input line 106. +)) +(/Applications/kettex/texlive/texmf-dist/tex/latex/tools/bm.sty +Package: bm 2017/01/16 v1.2c Bold Symbol Support (DPC/FMi) +\symboldoperators=\mathgroup7 +\symboldletters=\mathgroup8 +\symboldsymbols=\mathgroup9 +\symboldmincho=\mathgroup10 +LaTeX Font Info: Redeclaring math alphabet \mathbf on input line 141. +LaTeX Info: Redefining \bm on input line 207. +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/tools/enumerate.sty +Package: enumerate 2015/07/23 v3.00 enumerate extensions (DPC) +\@enLab=\toks20 +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/graphicx.sty +Package: graphicx 2014/10/28 v1.0g Enhanced LaTeX Graphics (DPC,SPQR) + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/keyval.sty +Package: keyval 2014/10/28 v1.15 key=value parser (DPC) +\KV@toks@=\toks21 +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/graphics.sty +Package: graphics 2016/10/09 v1.0u Standard LaTeX Graphics (DPC,SPQR) + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/trig.sty +Package: trig 2016/01/03 v1.10 sin cos tan (DPC) +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-cfg/graphics.cfg +File: graphics.cfg 2016/06/04 v1.11 sample graphics configuration +) +Package graphics Info: Driver file: dvipdfmx.def on input line 99. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-def/dvipdfmx.def +File: dvipdfmx.def 2016/07/11 v4.12 LaTeX color/graphics driver for dvipdfmx (L +3/ChoF) +)) +\Gin@req@height=\dimen130 +\Gin@req@width=\dimen131 +) (/Applications/kettex/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty +Package: xcolor 2016/05/11 v2.12 LaTeX color extensions (UK) + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-cfg/color.cfg +File: color.cfg 2016/01/02 v1.6 sample color configuration +) +Package xcolor Info: Package option `usenames' ignored on input line 216. +Package xcolor Info: Driver file: dvips.def on input line 225. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-def/dvips.def +File: dvips.def 2016/07/10 v3.1a Driver-dependent file (DPC,SPQR) +) +Package xcolor Info: Model `cmy' substituted by `cmy0' on input line 1348. +Package xcolor Info: Model `RGB' extended on input line 1364. +Package xcolor Info: Model `HTML' substituted by `rgb' on input line 1366. +Package xcolor Info: Model `Hsb' substituted by `hsb' on input line 1367. +Package xcolor Info: Model `tHsb' substituted by `hsb' on input line 1368. +Package xcolor Info: Model `HSB' substituted by `hsb' on input line 1369. +Package xcolor Info: Model `Gray' substituted by `gray' on input line 1370. +Package xcolor Info: Model `wave' substituted by `hsb' on input line 1371. +) +No file slide0main.aux. +\openout1 = `slide0main.aux'. + +LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 13. +LaTeX Font Info: ... okay on input line 13. +LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 13. +LaTeX Font Info: ... okay on input line 13. +LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 13. +LaTeX Font Info: ... okay on input line 13. +LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 13. +LaTeX Font Info: ... okay on input line 13. +LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 13. +LaTeX Font Info: ... okay on input line 13. +LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 13. +LaTeX Font Info: ... okay on input line 13. +LaTeX Font Info: Checking defaults for JY2/mc/m/n on input line 13. +LaTeX Font Info: ... okay on input line 13. +LaTeX Font Info: Checking defaults for JT2/mc/m/n on input line 13. +LaTeX Font Info: ... okay on input line 13. +(./slide0.tex +LaTeX Font Info: Font shape `JT2/mc/m/n' will be +(Font) scaled to size 13.85594pt on input line 1. +LaTeX Font Info: Font shape `JY2/mc/m/n' will be +(Font) scaled to size 13.85594pt on input line 1. +LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <14.4> not available +(Font) Font shape `JT2/gt/m/n' tried instead on input line 1. +LaTeX Font Info: Font shape `JT2/gt/m/n' will be +(Font) scaled to size 13.85594pt on input line 1. +LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <14.4> not available +(Font) Font shape `JY2/gt/m/n' tried instead on input line 1. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 13.85594pt on input line 1. +LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <24.88> not available +(Font) Font shape `JT2/gt/m/n' tried instead on input line 5. +LaTeX Font Info: Font shape `JT2/gt/m/n' will be +(Font) scaled to size 23.94002pt on input line 5. +LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <24.88> not available +(Font) Font shape `JY2/gt/m/n' tried instead on input line 5. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 23.94002pt on input line 5. +) [1 + +] (./slide0main.aux) ) +Here is how much of TeX's memory you used: + 2446 strings out of 495145 + 29062 string characters out of 6183910 + 154371 words of memory out of 5000000 + 5909 multiletter control sequences out of 15000+600000 + 7700 words of font info for 40 fonts, out of 8000000 for 9000 + 14 hyphenation exceptions out of 8191 + 27i,5n,35p,322b,256s stack positions out of 5000i,500n,10000p,200000b,80000s + +Output written on slide0main.dvi (1 page, 596 bytes). diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.pdf Binary files differnew file mode 100644 index 00000000..b07f6c6a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.pdf diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.tex new file mode 100644 index 00000000..f5136844 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide0main.tex @@ -0,0 +1,17 @@ +\documentclass[landscape,10pt]{ujarticle} +\special{papersize=\the\paperwidth,\the\paperheight} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide} +\usepackage{amsmath,amssymb} +\usepackage{bm,enumerate} +\usepackage[dvipdfmx]{graphicx} +\usepackage[usenames]{xcolor} +\ketmarginJ +\ketslideinit + +\begin{document} + +\input{slide0.tex} + +\end{document} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide2.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide2.tex new file mode 100644 index 00000000..3ff43765 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide2.tex @@ -0,0 +1,11 @@ +{\Large\bf +\color[cmyk]{1,1,0,0} + +\begin{layer}{120}{0} +{\Huge \putnotes{60}{20}{メインタイトル}} +\putnotes{60}{50}{名前} +\putnotes{60}{60}{所属} +\putnotes{60}{70}{情報} +\end{layer} + +} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide3.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide3.tex new file mode 100644 index 00000000..6a43f030 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/fig/slide3.tex @@ -0,0 +1,11 @@ +{\Large\bf +\color[cmyk]{1,1,0,0} + +\begin{layer}{120}{0} +{\Huge \putnotes{60}{20}{メインタイトル}} +\putnotes{60}{60}{名前} +\putnotes{60}{70}{所属} +\putnotes{60}{80}{情報} +\end{layer} + +} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseJ.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseJ.txt new file mode 100644 index 00000000..9b6cdf43 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseJ.txt @@ -0,0 +1 @@ +ketslideによるプレゼンテーション 2017.01.08
templateslideの例で説明する.
1.templateslide.txtにならってデータを作成/修正
(他の名前でもよい)
1)行の最後は必ず // をつける.
注)urlの指定で//を用いるとき,||||とすると//に変換される.
2)各ブロックの引数の区切りは ::
3)コマンド
・タイトル::読込ファイル名(::壁紙ファイル)//
最初のタイトルページ
注)スライドに置く文字はslide0.cdyで作成
注)壁紙をつけるときは,もう1つ :: で区切ってファイル名を書く
注)preambleに追加するとき,::区切りで書き加え,最後に//をおく.
・new(::行下げ)::タイトル((::位置)::読み込みファイル)//
mainslide
例)new::[10]::最初に::{50}{20}::figure//
注)読み込みファイルのサイズ変更するとき
new::[10]::最初に::{50}{20}::figure,0.8//
他も同様
・same(::行下げ)((::位置)::読込ファイル)//
sameslide
・enumerate(::書式)//
enumerate環境の始まり
・itemize//
itemize環境の始まり
・layer(::範囲)//
layer環境の始まり
・item::文//
itemを追加
・putnote::方向と位置::読み込みファイル//
layer環境の中に図を入れる
例)putonote::se{30}{10}::figure//(inputのとき)
例)putonote::se{30}{10}::include[width=5cm]::figure.pdf//
(includegraphicsのとき)
・end//
enumerate,itemize,layer環境の終わり
・上記以外//
そのままTeXに書き出す.
4)空白行を入れたいときは,...// とする.
5)必要な図はすべてfigに入れる.
6)newの後,複数のスライドを同時に作り順に表示するとき,
・newの次の行に
%repeat=(newを含むスライドの枚数),para//
・表示したいページは
%[2,-]::本文//
のように書く.
注)[2,- ]は2ページ以降全部
[-, 2,- ]は2ページまで表示
[1..3,5 ]は1ページから3ページと5ページ
・repeat=...の後に「,para」を追加するとリンクを作成
・他のページで薄文字にしたいときは %thin[2]::本文
7)figの中にあるサブフォルダ(例えばsubfig)の図ファイルをすべて表示するとき
・newの次の行に
%repeat=//
%para=subfig:{0}:s{60}{10}:input(:倍率)//
=> layer{120}{0}, \putnotes{60}{10}{\input...}
注)%repeat=,para=...と続けて書いてもよい.
2.スライドの作成
1)tmplateslide.cdyを立ち上げる.
スクリーンに,Title, Para, Slide のボタンがある.
2)Fheadは,図を作成するときのファイル名
3)Texparentは,スライドのファイル名
.txt(内容),.tex , .pdf
4)Slideworkで,作業フォルダを指定
注)作業フォルダの中に自動的にfigというサブフォルダを作る.(新規の場合)
5)タイトルの編集
Settitle(name,cmdL,options);
options=["Layery=0","Color=blue"]
nameは省略可(デフォルトは "slide0")
・maintitleはcmdLの最初に書く(文字サイズ\Huge,他は\large)
・Titleボタンを押すとタイトル画面を作成して表示する.
6)各種設定
Setslidemain([letterc,boxc,boxd,framec,xpos,size]);
メイン(章に該当)の設定
注)一部をデフォルト値とする場合は [,,]などとする.以下同様
Setslidepage([letterc,boxc,boxd,framec,shadowc,shadowd,xpos,size]);
ページの設定
Setslidebody(bodycolor,bodystyle,density);
全体の文字色と薄文字の濃さ(0-1)の設定
bodystyleのデフォルトは "\Large\bf\boldmath"
Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue",90,70,1]);
hyperrefを利用する,
注)Setslidehyper();とすると,hyperref.styを読み込み,
かつ,上のデフォルト値が与えられる.
注)数字は,ページ移動ボタン列について,右端の水平位置,垂直サイズ,倍率
7)パラパラ動画の作成
・mf(s)にパラメータ値sのときの図を記述する.
・パラパラの設定
Setpara(foldername,funcitonstr,range,options);
options=["m/r", "Div=25"];
注)rangeの記述
i) "s=[0,1]" 区間をDivで分割
ii) [0.2, 0.6] リストの要素をsに代入
・ParaFボタンを押すと,フォルダ及びパラパラの図(複数)が生成される.
・templateslide.txtに,1(7)のように記述する.
・Slideボタンを押す.
8)animateを使うとき
(1)ParaFを作った後,Shift+"A"を押すとfigにanim+フォルダ名のファイルができる.
(2)Apppackage(["[dvipdfmx]{animete}を追加する.
(3)読み込み場所に,\inputを使って入れる.
(4)Setparaのオプション
"Frame="(1秒間のフレーム数),"Scale="(スケール倍率)
9)Slideボタンを押すと,スライド(PDF)が作成される.
10)Sum ボタンを押すと,概略PDF(各ページの最終ページのみ)が作成される.
\ No newline at end of file diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseslideJ.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseslideJ.txt new file mode 100644 index 00000000..c9acd281 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/howtouseslideJ.txt @@ -0,0 +1 @@ +ketslideによるプレゼンテーション 2017.08.24
1.スライドファイルの指定
1)ketsample/s07slideのs0701basic.cdyを作業ディレクトリにコピーして名前を変更する.
ここでは,作業ディレクトリ/ファイルを,ユーザホーム/Desktop/workにsample.cdyとする.
2)s0701basic.txtも同様にコピして同名に変更する(sample.txt)
3)sample.cdyをダブルクリックで立ち上げ,Cindyscript/figuresを以下のように修正する.
2行目 Slidename="sample";
5行目 Slidework(gethome()+"/Desktop/work");
11行目 タイトルに表示されるテキスト(自由に直してよい)
4)右上の歯車マークを押す.
1.sample.txtをテキストエディタで開き,修正する.
0)1行目(%のない最初の行)の基本形は
タイトル(またはtitle)::slide0//
注1)バックグラウンド(例えばkabegamiとする)を入れるとき
・kabegami.texを作成してfigフォルダに入れる.
・sample.txtの指定は
タイトル::slide0::kabegami//
注2)タイトル画面が不要の場合は,
タイトル(またはtitle):://
1)すべての行の最後は必ず // をつける.
注)urlの指定で//を用いるとき,||||とすると//に変換される.
2)各ブロックの引数の区切りは ::
3)コマンド
・タイトル::読込ファイル名(::壁紙ファイル)//
最初のタイトルページ
注)スライドに置く文字はslide0.cdyで作成
注)壁紙をつけるときは,もう1つ :: で区切ってファイル名を書く
注)preambleに追加するとき,::区切りで書き加え,最後に//をおく.
・new(::行下げ)::タイトル((::位置)::読み込みファイル)//
mainslide
例)new::[10]::最初に::{50}{20}::figure//
注)読み込みファイルのサイズ変更するとき
new::[10]::最初に::{50}{20}::figure,0.8//
他も同様
・same(::行下げ)((::位置)::読込ファイル)//
sameslide
・enumerate(::書式)//
enumerate環境の始まり
・itemize//
itemize環境の始まり
・layer(::範囲)//
layer環境の始まり
・item::文//
itemを追加
・putnote::方向と位置::読み込みファイル//
layer環境の中に図を入れる
例)putonote::se{30}{10}::figure( , 倍率)//(inputのとき)
例)putonote::se{30}{10}::include[width=5cm]::figure.pdf//
(includegraphicsのとき)
・end//
enumerate,itemize,layer環境の終わり
・上記以外//
そのままTeXに書き出す.
4)空白行を入れたいときは,...// とする.
5)必要な図はすべてfigに入れる.
6)newの後,複数のスライドを同時に作り順に表示するとき,
・newの次の行に
%repeat=(newを含むスライドの枚数),para//
・表示したいページは
%[2,-]::本文//
のように書く.
注)[2,- ]は2ページ以降全部
[-, 2,- ]は2ページまで表示
[1..3,5 ]は1ページから3ページと5ページ
・repeat=...の後に「,para」を追加するとリンクを作成
・他のページで薄文字にしたいときは %thin[2]::本文
注1)薄文字の濃さのデフォルトは0.1だが,Setslidebodyで変更可能
注2)また,sample.txtに以下を記述すれば,その後が変わる.
\setthin{濃さ}//
7)figの中にあるサブフォルダ(例えばsubfig)の図ファイルすべてを順に表示するとき
・newの次の行に
%repeat=//
%para=subfig:{0}:s{60}{10}:input(:倍率)//
=> layer{120}{0}, \putnotes{60}{10}{\input...}
注)%repeat=,para=...と続けて書いてもよい.
2.スライドの作成
1)sample.cdyのスクリーンにTitle, Para, Slide のボタンがある.
2)Fheadは,図を作成するときのファイル名
3)Slidenameは,スライドのファイル名
.txt(内容),.tex , .pdf
4)Slideworkで,作業フォルダを指定
注1)作業フォルダの中に自動的にfigというサブフォルダを作る.(新規の場合)
注2)Dirworkはfigに設定されるので,図はfigの中に作られる.
注3)slideボタンを押すと,Dirworkは一時的にworkになる.
5)タイトルの編集
Settitle(name,cmdL,options);
options=["Layery=0","Color=blue"]
nameは省略可(デフォルトは "slide0")
・maintitleはcmdLの最初に書く(文字サイズ\Huge,他は\large)
・Titleボタンを押すとタイトル画面を作成して表示する.
6)各種設定
Setslidemain([letterc,boxc,boxd,framec,xpos,size]);
メイン(章に該当)の設定
注)一部をデフォルト値とする場合は [,,]などとする.以下同様
Setslidepage([letterc,boxc,boxd,framec,shadowc,shadowd,xpos,size]);
ページの設定
Setslidebody(bodycolor,bodystyle,density);
全体の文字色と薄文字の濃さ(0-1)の設定
bodystyleのデフォルトは "\Large\bf\boldmath"
Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue",90,70,1]);
hyperrefを利用する,
注)Setslidehyper();とすると,hyperref.styを読み込み,
かつ,上のデフォルト値が与えられる.
注)数字は,ページ移動ボタン列について,右端の水平位置,垂直サイズ,倍率
7)パラパラ動画の作成
・mf(s)にパラメータ値sのときの図を記述する.
・パラパラの設定
Setpara(foldername,funcitonstr,range,options);
options=["m/r", "Div=25"];
注)rangeの記述
i) "s=[0,1]" 区間をDivで分割
ii) [0.2, 0.6] リストの要素をsに代入
・ParaFボタンを押すと,フォルダ及びパラパラの図(複数)が生成される.
・templateslide.txtに,1(7)のように記述する.
・Slideボタンを押す.
8)animateを使うとき
(1)ParaFを作った後,Shift+"A"を押すとfigにanim+フォルダ名のファイルができる.
(2)Apppackage(["[dvipdfmx]{animate}"]を追加する.
(3)読み込み場所に,\inputを使って入れる.(layerは使えない)
(4)Setparaのオプション
"Frate="(1秒間のフレーム数), "Scale="(スケール倍率), "OpA=[loop]"
9)Slideボタンを押すと,スライド(PDF)が作成される.
10)Sum ボタンを押すと,概要PDF(各ページの最終ページのみ)が作成される.
\ No newline at end of file diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/kc.sh b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/kc.sh new file mode 100755 index 00000000..c80504df --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/kc.sh @@ -0,0 +1,7 @@ +#!/bin/sh +cd "/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides" +"/Applications/kettex/texlive/bin/x86_64-darwin/uplatex" s0704para.tex +"/Applications/kettex/texlive/bin/x86_64-darwin/dvipdfmx" s0704para.dvi +rm s0704para.dvi +open -a "skim" s0704para.pdf +exit 0 diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.aux b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.aux new file mode 100644 index 00000000..f23e5468 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.aux @@ -0,0 +1 @@ +\relax diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.cdy Binary files differnew file mode 100755 index 00000000..0e6ec24f --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.log b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.log new file mode 100644 index 00000000..0427477a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.log @@ -0,0 +1,240 @@ +This is e-upTeX, Version 3.14159265-p3.7-u1.21-160201-2.6 (utf8.uptex) (TeX Live 2016) (preloaded format=uplatex 2017.8.18) 24 AUG 2017 12:29 +entering extended mode + restricted \write18 enabled. + %&-line parsing enabled. +**s0701basic.tex +(./s0701basic.tex +pLaTeX2e <2016/11/29u01> (based on LaTeX2e <2017/01/01> patch level 3) +Babel <3.9r> and hyphenation patterns for 3 language(s) loaded. +(/Applications/kettex/texlive/texmf-dist/tex/uplatex/base/ujarticle.cls +Document Class: ujarticle 2016/11/22 v1.7b-u00 Standard upLaTeX class +\c@@paper=\count82 +(/Applications/kettex/texlive/texmf-dist/tex/uplatex/base/ujsize10.clo +File: ujsize10.clo 2016/11/22 v1.7b-u00 Standard upLaTeX file (size option) +LaTeX Font Info: Font shape `JT2/mc/m/n' will be +(Font) scaled to size 9.6222pt on input line 28. +LaTeX Font Info: Font shape `JY2/mc/m/n' will be +(Font) scaled to size 9.6222pt on input line 28. +) +\c@part=\count83 +\c@section=\count84 +\c@subsection=\count85 +\c@subsubsection=\count86 +\c@paragraph=\count87 +\c@subparagraph=\count88 +\c@figure=\count89 +\c@table=\count90 +\abovecaptionskip=\skip41 +\belowcaptionskip=\skip42 +\symmincho=\mathgroup4 +LaTeX Font Info: Overwriting symbol font `mincho' in version `bold' +(Font) JY2/mc/m/n --> JY2/gt/m/n on input line 580. +\toclineskip=\dimen118 +\@lnumwidth=\dimen119 +\bibindent=\dimen120 +\heisei=\count91 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic.sty +\c@ketpicctra=\count92 +\c@ketpicctrb=\count93 +\c@ketpicctrc=\count94 +\c@ketpicctrd=\count95 +\c@ketpicctre=\count96 +\c@ketpicctrf=\count97 +\c@ketpicctrg=\count98 +\c@ketpicctrh=\count99 +\c@ketpicctri=\count100 +\c@ketpicctrj=\count101 +\Width=\skip43 +\Height=\skip44 +\Depth=\skip45 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer.sty +\layercurrentunit=\skip46 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide.sty) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsmath.sty +Package: amsmath 2016/11/05 v2.16a AMS math features +\@mathmargin=\skip47 + +For additional information on amsmath, use the `?' option. +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amstext.sty +Package: amstext 2000/06/29 v2.01 AMS text + +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsgen.sty +File: amsgen.sty 1999/11/30 v2.0 generic functions +\@emptytoks=\toks15 +\ex@=\dimen121 +)) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsbsy.sty +Package: amsbsy 1999/11/29 v1.2d Bold Symbols +\pmbraise@=\dimen122 +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsopn.sty +Package: amsopn 2016/03/08 v2.02 operator names +) +\inf@bad=\count102 +LaTeX Info: Redefining \frac on input line 213. +\uproot@=\count103 +\leftroot@=\count104 +LaTeX Info: Redefining \overline on input line 375. +\classnum@=\count105 +\DOTSCASE@=\count106 +LaTeX Info: Redefining \ldots on input line 472. +LaTeX Info: Redefining \dots on input line 475. +LaTeX Info: Redefining \cdots on input line 596. +\Mathstrutbox@=\box41 +\strutbox@=\box42 +\big@size=\dimen123 +LaTeX Font Info: Redeclaring font encoding OML on input line 712. +LaTeX Font Info: Redeclaring font encoding OMS on input line 713. +\macc@depth=\count107 +\c@MaxMatrixCols=\count108 +\dotsspace@=\muskip10 +\c@parentequation=\count109 +\dspbrk@lvl=\count110 +\tag@help=\toks16 +\row@=\count111 +\column@=\count112 +\maxfields@=\count113 +\andhelp@=\toks17 +\eqnshift@=\dimen124 +\alignsep@=\dimen125 +\tagshift@=\dimen126 +\tagwidth@=\dimen127 +\totwidth@=\dimen128 +\lineht@=\dimen129 +\@envbody=\toks18 +\multlinegap=\skip48 +\multlinetaggap=\skip49 +\mathdisplay@stack=\toks19 +LaTeX Info: Redefining \[ on input line 2817. +LaTeX Info: Redefining \] on input line 2818. +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/amssymb.sty +Package: amssymb 2013/01/14 v3.01 AMS font symbols + +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/amsfonts.sty +Package: amsfonts 2013/01/14 v3.01 Basic AMSFonts support +\symAMSa=\mathgroup5 +\symAMSb=\mathgroup6 +LaTeX Font Info: Overwriting math alphabet `\mathfrak' in version `bold' +(Font) U/euf/m/n --> U/euf/b/n on input line 106. +)) +(/Applications/kettex/texlive/texmf-dist/tex/latex/tools/bm.sty +Package: bm 2017/01/16 v1.2c Bold Symbol Support (DPC/FMi) +\symboldoperators=\mathgroup7 +\symboldletters=\mathgroup8 +\symboldsymbols=\mathgroup9 +\symboldmincho=\mathgroup10 +LaTeX Font Info: Redeclaring math alphabet \mathbf on input line 141. +LaTeX Info: Redefining \bm on input line 207. +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/tools/enumerate.sty +Package: enumerate 2015/07/23 v3.00 enumerate extensions (DPC) +\@enLab=\toks20 +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/graphicx.sty +Package: graphicx 2014/10/28 v1.0g Enhanced LaTeX Graphics (DPC,SPQR) + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/keyval.sty +Package: keyval 2014/10/28 v1.15 key=value parser (DPC) +\KV@toks@=\toks21 +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/graphics.sty +Package: graphics 2016/10/09 v1.0u Standard LaTeX Graphics (DPC,SPQR) + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/trig.sty +Package: trig 2016/01/03 v1.10 sin cos tan (DPC) +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-cfg/graphics.cfg +File: graphics.cfg 2016/06/04 v1.11 sample graphics configuration +) +Package graphics Info: Driver file: dvipdfmx.def on input line 99. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-def/dvipdfmx.def +File: dvipdfmx.def 2016/07/11 v4.12 LaTeX color/graphics driver for dvipdfmx (L +3/ChoF) +)) +\Gin@req@height=\dimen130 +\Gin@req@width=\dimen131 +) (/Applications/kettex/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty +Package: xcolor 2016/05/11 v2.12 LaTeX color extensions (UK) + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-cfg/color.cfg +File: color.cfg 2016/01/02 v1.6 sample color configuration +) +Package xcolor Info: Driver file: dvips.def on input line 225. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-def/dvips.def +File: dvips.def 2016/07/10 v3.1a Driver-dependent file (DPC,SPQR) +) +Package xcolor Info: Model `cmy' substituted by `cmy0' on input line 1348. +Package xcolor Info: Model `RGB' extended on input line 1364. +Package xcolor Info: Model `HTML' substituted by `rgb' on input line 1366. +Package xcolor Info: Model `Hsb' substituted by `hsb' on input line 1367. +Package xcolor Info: Model `tHsb' substituted by `hsb' on input line 1368. +Package xcolor Info: Model `HSB' substituted by `hsb' on input line 1369. +Package xcolor Info: Model `Gray' substituted by `gray' on input line 1370. +Package xcolor Info: Model `wave' substituted by `hsb' on input line 1371. +) +(./s0701basic.aux) +\openout1 = `s0701basic.aux'. + +LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for JY2/mc/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for JT2/mc/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Font shape `JT2/mc/m/n' will be +(Font) scaled to size 13.85594pt on input line 44. +LaTeX Font Info: Font shape `JY2/mc/m/n' will be +(Font) scaled to size 13.85594pt on input line 44. +LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <14.4> not available +(Font) Font shape `JT2/gt/m/n' tried instead on input line 44. +LaTeX Font Info: Font shape `JT2/gt/m/n' will be +(Font) scaled to size 13.85594pt on input line 44. +LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <14.4> not available +(Font) Font shape `JY2/gt/m/n' tried instead on input line 44. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 13.85594pt on input line 44. + [0 + +] +LaTeX Font Info: Try loading font information for OMS+cmr on input line 64. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/base/omscmr.fd +File: omscmr.fd 2014/09/29 v2.5h Standard LaTeX font definitions +) +LaTeX Font Info: Font shape `OMS/cmr/bx/n' in size <14.4> not available +(Font) Font shape `OMS/cmsy/b/n' tried instead on input line 64. + +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./s0701basic.aux) ) +Here is how much of TeX's memory you used: + 2469 strings out of 495145 + 29515 string characters out of 6183910 + 180772 words of memory out of 5000000 + 5928 multiletter control sequences out of 15000+600000 + 7377 words of font info for 38 fonts, out of 8000000 for 9000 + 14 hyphenation exceptions out of 8191 + 27i,7n,35p,322b,209s stack positions out of 5000i,500n,10000p,200000b,80000s + +Output written on s0701basic.dvi (3 pages, 58248 bytes). diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.pdf Binary files differnew file mode 100644 index 00000000..9bf18044 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.pdf diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.tex new file mode 100644 index 00000000..eace4285 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.tex @@ -0,0 +1,83 @@ +%%% title s0701basic +\documentclass[landscape,10pt]{ujarticle} +\special{papersize=\the\paperwidth,\the\paperheight} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide} +\usepackage{amsmath,amssymb} +\usepackage{bm,enumerate} +\usepackage[dvipdfmx]{graphicx} +\usepackage{xcolor} +\definecolor{slidecolora}{cmyk}{0.98,0.13,0,0.43} +\definecolor{slidecolorb}{cmyk}{0,0.32,0.52,0} +\definecolor{slidecolorc}{cmyk}{0,0.32,0.52,0} +\definecolor{slidecolord}{cmyk}{0,0.32,0.52,0} +\definecolor{slidecolore}{cmyk}{0,0,0,0.5} +\definecolor{slidecolorf}{cmyk}{0,0,0,0.5} +\definecolor{slidecolori}{cmyk}{0.98,0.13,0,0.43} +\def\setthin#1{\def\thin{#1}} +\setthin{0.1} +\ketmarginJ +\ketslideinit + +\pagestyle{headings} + +\begin{document} + +\def\mainslidetitley{22} +\def\ketcletter{slidecolora} +\def\ketcbox{slidecolorb} +\def\ketdbox{slidecolorc} +\def\ketcframe{slidecolord} +\def\ketcshadow{slidecolore} +\def\ketdshadow{slidecolorf} +\def\slidetitlex{6} +\def\slidetitlesize{1.3} +\def\mketcletter{slidecolori} +\def\mketcbox{yellow} +\def\mketdbox{yellow} +\def\mketcframe{yellow} +\def\mslidetitlex{62} +\def\mslidetitlesize{2} + +\color{black} +\Large\bf\boldmath +\thispagestyle{empty} +\addtocounter{page}{-1} + +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + +\mainslide{メインスライド1} + +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + +\newslide{itemize環境の使い方} + +\vspace*{18mm} + +\begin{itemize} +\item +内容 +\item +結論 +\end{itemize} +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + +\newslide{enumerate環境の使い方} + +\vspace*{18mm} + +\begin{enumerate}[(1)] +\item +番号を変えるには,例えば [(1)] +\item +後は同じ +\end{enumerate} + +\end{document} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.txt new file mode 100644 index 00000000..85d19361 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0701basic.txt @@ -0,0 +1,23 @@ +タイトル::slide0// +%タイトル::slide0::kabegami// +%title::// + +%%%%%%%%%%%%%%%%// +main::メインスライド1// + +%%%%%%%%%%%%%%%%// +new::itemize環境の使い方// + +itemize// +item::内容// +item::結論// +end// + +%%%%%%%%%%%%%%%%// +new::enumerate環境の使い方// + +enumerate::[(1)]// +item::番号を変えるには,例えば [(1)]// +item::後は同じ// +end// + diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0702graph.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0702graph.cdy Binary files differnew file mode 100755 index 00000000..10268595 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0702graph.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0702graph.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0702graph.txt new file mode 100644 index 00000000..e37f444d --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0702graph.txt @@ -0,0 +1,20 @@ +%タイトル::slide0::kabegami// +タイトル::slide2// + +%%%%%%%%%%%%%%%%// +main::メインスライド1// + +%%%%%%%%%%%%%%%%// +new::inputとlayer// + +layer::{100}{0}// +putnote::se{10}{15}::figsin,0.8// +end// + +%%%%%%%%%%%%%%%%// +new::includegrpahicsとlayer// + +layer::{100}{0}// +putnote::s{60}{5} +::include[bb=0.00 0.00 803.00 285.00,width=100mm]::cindyscreen.pdf// +end// diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0703repeat.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0703repeat.cdy Binary files differnew file mode 100755 index 00000000..04346986 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0703repeat.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0703repeat.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0703repeat.txt new file mode 100644 index 00000000..5c66e54a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0703repeat.txt @@ -0,0 +1,32 @@ +%タイトル::slide0::kabegami// +タイトル::slide0// +%%%%%%%%%%%%%%%%// +main::メインスライド1// + +%%%%%%%%%%%%%%%%// +new::itemize環境の使い方// +%repeat=2// + +itemize// +item::内容// +%[2,-]::item::結論// +end// + +%%%%%%%%%%%%%%%%// +new::enumerate環境の使い方// +%repeat=3// + +%[2,-]::enumerate::[(1)]// +%[2,-]::item::番号を変えるには,例えば [(1)]// +%[3,-]::item::後は同じ// +%[2,- ]::end// + +%%%%%%%%%%%%%%%%// +new::グラフとreapeat// +%repeat=2// + +layer::{100}{0}// +%[1]::putnote::se{10}{15}::figsin,0.8// +%[2]::putnote::se{30}{40}::figsin,0.8// +end// + diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.aux b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.aux new file mode 100644 index 00000000..a590e61d --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.aux @@ -0,0 +1,74 @@ +\relax +\providecommand\hyper@newdestlabel[2]{} +\providecommand\HyperFirstAtBeginDocument{\AtBeginDocument} +\HyperFirstAtBeginDocument{\ifx\hyper@anchor\@undefined +\global\let\oldcontentsline\contentsline +\gdef\contentsline#1#2#3#4{\oldcontentsline{#1}{#2}{#3}} +\global\let\oldnewlabel\newlabel +\gdef\newlabel#1#2{\newlabelxx{#1}#2} +\gdef\newlabelxx#1#2#3#4#5#6{\oldnewlabel{#1}{{#2}{#3}}} +\AtEndDocument{\ifx\hyper@anchor\@undefined +\let\contentsline\oldcontentsline +\let\newlabel\oldnewlabel +\fi} +\fi} +\global\let\hyper@last\relax +\gdef\HyperFirstAtBeginDocument#1{#1} +\providecommand*\HyPL@Entry[1]{} +\HyPL@Entry{0<</P(0)>>} +\HyPL@Entry{1<</S/D>>} +\HyPL@Entry{2<</S/D>>} +\HyPL@Entry{3<</S/D>>} +\HyPL@Entry{4<</S/D>>} +\HyPL@Entry{5<</S/D>>} +\HyPL@Entry{6<</S/D>>} +\HyPL@Entry{7<</S/D>>} +\HyPL@Entry{8<</S/D>>} +\HyPL@Entry{9<</S/D>>} +\HyPL@Entry{10<</S/D>>} +\HyPL@Entry{11<</S/D>>} +\HyPL@Entry{12<</S/D>>} +\HyPL@Entry{13<</S/D>>} +\HyPL@Entry{14<</S/D>>} +\HyPL@Entry{15<</S/D>>} +\HyPL@Entry{16<</S/D>>} +\HyPL@Entry{17<</S/D>>} +\HyPL@Entry{18<</S/D>>} +\HyPL@Entry{19<</S/D>>} +\HyPL@Entry{20<</S/D>>} +\HyPL@Entry{21<</S/D>>} +\HyPL@Entry{22<</S/D>>} +\HyPL@Entry{23<</S/D>>} +\HyPL@Entry{24<</S/D>>} +\HyPL@Entry{25<</S/D>>} +\HyPL@Entry{26<</S/D>>} +\HyPL@Entry{28<</S/D /St 2>>} +\HyPL@Entry{29<</S/D /St 2>>} +\HyPL@Entry{30<</S/D /St 2>>} +\HyPL@Entry{31<</S/D /St 2>>} +\HyPL@Entry{32<</S/D /St 2>>} +\HyPL@Entry{33<</S/D /St 2>>} +\HyPL@Entry{34<</S/D /St 2>>} +\HyPL@Entry{35<</S/D /St 2>>} +\HyPL@Entry{36<</S/D /St 2>>} +\HyPL@Entry{37<</S/D /St 2>>} +\HyPL@Entry{38<</S/D /St 2>>} +\HyPL@Entry{39<</S/D /St 2>>} +\HyPL@Entry{40<</S/D /St 2>>} +\HyPL@Entry{41<</S/D /St 2>>} +\HyPL@Entry{42<</S/D /St 2>>} +\HyPL@Entry{43<</S/D /St 2>>} +\HyPL@Entry{44<</S/D /St 2>>} +\HyPL@Entry{45<</S/D /St 2>>} +\HyPL@Entry{46<</S/D /St 2>>} +\HyPL@Entry{47<</S/D /St 2>>} +\HyPL@Entry{48<</S/D /St 2>>} +\HyPL@Entry{49<</S/D /St 2>>} +\HyPL@Entry{50<</S/D /St 2>>} +\HyPL@Entry{51<</S/D /St 2>>} +\HyPL@Entry{52<</S/D /St 2>>} +\HyPL@Entry{53<</S/D /St 2>>} +\HyPL@Entry{54<</S/D /St 2>>} +\HyPL@Entry{55<</S/D /St 2>>} +\HyPL@Entry{56<</S/D /St 2>>} +\HyPL@Entry{57<</S/D /St 2>>} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.cdy Binary files differnew file mode 100755 index 00000000..b139c579 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.log b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.log new file mode 100644 index 00000000..930c2076 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.log @@ -0,0 +1,704 @@ +This is e-upTeX, Version 3.14159265-p3.7-u1.21-160201-2.6 (utf8.uptex) (TeX Live 2016) (preloaded format=uplatex 2017.8.18) 24 AUG 2017 14:47 +entering extended mode + restricted \write18 enabled. + %&-line parsing enabled. +**s0704para.tex +(./s0704para.tex +pLaTeX2e <2016/11/29u01> (based on LaTeX2e <2017/01/01> patch level 3) +Babel <3.9r> and hyphenation patterns for 3 language(s) loaded. +(/Applications/kettex/texlive/texmf-dist/tex/uplatex/base/ujarticle.cls +Document Class: ujarticle 2016/11/22 v1.7b-u00 Standard upLaTeX class +\c@@paper=\count82 +(/Applications/kettex/texlive/texmf-dist/tex/uplatex/base/ujsize10.clo +File: ujsize10.clo 2016/11/22 v1.7b-u00 Standard upLaTeX file (size option) +LaTeX Font Info: Font shape `JT2/mc/m/n' will be +(Font) scaled to size 9.6222pt on input line 28. +LaTeX Font Info: Font shape `JY2/mc/m/n' will be +(Font) scaled to size 9.6222pt on input line 28. +) +\c@part=\count83 +\c@section=\count84 +\c@subsection=\count85 +\c@subsubsection=\count86 +\c@paragraph=\count87 +\c@subparagraph=\count88 +\c@figure=\count89 +\c@table=\count90 +\abovecaptionskip=\skip41 +\belowcaptionskip=\skip42 +\symmincho=\mathgroup4 +LaTeX Font Info: Overwriting symbol font `mincho' in version `bold' +(Font) JY2/mc/m/n --> JY2/gt/m/n on input line 580. +\toclineskip=\dimen118 +\@lnumwidth=\dimen119 +\bibindent=\dimen120 +\heisei=\count91 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic.sty +\c@ketpicctra=\count92 +\c@ketpicctrb=\count93 +\c@ketpicctrc=\count94 +\c@ketpicctrd=\count95 +\c@ketpicctre=\count96 +\c@ketpicctrf=\count97 +\c@ketpicctrg=\count98 +\c@ketpicctrh=\count99 +\c@ketpicctri=\count100 +\c@ketpicctrj=\count101 +\Width=\skip43 +\Height=\skip44 +\Depth=\skip45 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer.sty +\layercurrentunit=\skip46 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide.sty) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsmath.sty +Package: amsmath 2016/11/05 v2.16a AMS math features +\@mathmargin=\skip47 + +For additional information on amsmath, use the `?' option. +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amstext.sty +Package: amstext 2000/06/29 v2.01 AMS text + +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsgen.sty +File: amsgen.sty 1999/11/30 v2.0 generic functions +\@emptytoks=\toks15 +\ex@=\dimen121 +)) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsbsy.sty +Package: amsbsy 1999/11/29 v1.2d Bold Symbols +\pmbraise@=\dimen122 +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsopn.sty +Package: amsopn 2016/03/08 v2.02 operator names +) +\inf@bad=\count102 +LaTeX Info: Redefining \frac on input line 213. +\uproot@=\count103 +\leftroot@=\count104 +LaTeX Info: Redefining \overline on input line 375. +\classnum@=\count105 +\DOTSCASE@=\count106 +LaTeX Info: Redefining \ldots on input line 472. +LaTeX Info: Redefining \dots on input line 475. +LaTeX Info: Redefining \cdots on input line 596. +\Mathstrutbox@=\box41 +\strutbox@=\box42 +\big@size=\dimen123 +LaTeX Font Info: Redeclaring font encoding OML on input line 712. +LaTeX Font Info: Redeclaring font encoding OMS on input line 713. +\macc@depth=\count107 +\c@MaxMatrixCols=\count108 +\dotsspace@=\muskip10 +\c@parentequation=\count109 +\dspbrk@lvl=\count110 +\tag@help=\toks16 +\row@=\count111 +\column@=\count112 +\maxfields@=\count113 +\andhelp@=\toks17 +\eqnshift@=\dimen124 +\alignsep@=\dimen125 +\tagshift@=\dimen126 +\tagwidth@=\dimen127 +\totwidth@=\dimen128 +\lineht@=\dimen129 +\@envbody=\toks18 +\multlinegap=\skip48 +\multlinetaggap=\skip49 +\mathdisplay@stack=\toks19 +LaTeX Info: Redefining \[ on input line 2817. +LaTeX Info: Redefining \] on input line 2818. +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/amssymb.sty +Package: amssymb 2013/01/14 v3.01 AMS font symbols + +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/amsfonts.sty +Package: amsfonts 2013/01/14 v3.01 Basic AMSFonts support +\symAMSa=\mathgroup5 +\symAMSb=\mathgroup6 +LaTeX Font Info: Overwriting math alphabet `\mathfrak' in version `bold' +(Font) U/euf/m/n --> U/euf/b/n on input line 106. +)) +(/Applications/kettex/texlive/texmf-dist/tex/latex/tools/bm.sty +Package: bm 2017/01/16 v1.2c Bold Symbol Support (DPC/FMi) +\symboldoperators=\mathgroup7 +\symboldletters=\mathgroup8 +\symboldsymbols=\mathgroup9 +\symboldmincho=\mathgroup10 +LaTeX Font Info: Redeclaring math alphabet \mathbf on input line 141. +LaTeX Info: Redefining \bm on input line 207. +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/tools/enumerate.sty +Package: enumerate 2015/07/23 v3.00 enumerate extensions (DPC) +\@enLab=\toks20 +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/graphicx.sty +Package: graphicx 2014/10/28 v1.0g Enhanced LaTeX Graphics (DPC,SPQR) + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/keyval.sty +Package: keyval 2014/10/28 v1.15 key=value parser (DPC) +\KV@toks@=\toks21 +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/graphics.sty +Package: graphics 2016/10/09 v1.0u Standard LaTeX Graphics (DPC,SPQR) + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/trig.sty +Package: trig 2016/01/03 v1.10 sin cos tan (DPC) +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-cfg/graphics.cfg +File: graphics.cfg 2016/06/04 v1.11 sample graphics configuration +) +Package graphics Info: Driver file: dvipdfmx.def on input line 99. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-def/dvipdfmx.def +File: dvipdfmx.def 2016/07/11 v4.12 LaTeX color/graphics driver for dvipdfmx (L +3/ChoF) +)) +\Gin@req@height=\dimen130 +\Gin@req@width=\dimen131 +) (/Applications/kettex/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty +Package: xcolor 2016/05/11 v2.12 LaTeX color extensions (UK) + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-cfg/color.cfg +File: color.cfg 2016/01/02 v1.6 sample color configuration +) +Package xcolor Info: Driver file: dvips.def on input line 225. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-def/dvips.def +File: dvips.def 2016/07/10 v3.1a Driver-dependent file (DPC,SPQR) +) +Package xcolor Info: Model `cmy' substituted by `cmy0' on input line 1348. +Package xcolor Info: Model `RGB' extended on input line 1364. +Package xcolor Info: Model `HTML' substituted by `rgb' on input line 1366. +Package xcolor Info: Model `Hsb' substituted by `hsb' on input line 1367. +Package xcolor Info: Model `tHsb' substituted by `hsb' on input line 1368. +Package xcolor Info: Model `HSB' substituted by `hsb' on input line 1369. +Package xcolor Info: Model `Gray' substituted by `gray' on input line 1370. +Package xcolor Info: Model `wave' substituted by `hsb' on input line 1371. +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty +Package: hyperref 2017/03/14 v6.85a Hypertext links for LaTeX + +(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.s +ty +Package: hobsub-hyperref 2016/05/16 v1.14 Bundle oberdiek, subset hyperref (HO) + + +(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.st +y +Package: hobsub-generic 2016/05/16 v1.14 Bundle oberdiek, subset generic (HO) +Package: hobsub 2016/05/16 v1.14 Construct package bundles (HO) +Package: infwarerr 2016/05/16 v1.4 Providing info/warning/error messages (HO) +Package: ltxcmds 2016/05/16 v1.23 LaTeX kernel commands for general use (HO) +Package: ifluatex 2016/05/16 v1.4 Provides the ifluatex switch (HO) +Package ifluatex Info: LuaTeX not detected. +Package: ifvtex 2016/05/16 v1.6 Detect VTeX and its facilities (HO) +Package ifvtex Info: VTeX not detected. +Package: intcalc 2016/05/16 v1.2 Expandable calculations with integers (HO) +Package: ifpdf 2017/03/15 v3.2 Provides the ifpdf switch +Package: etexcmds 2016/05/16 v1.6 Avoid name clashes with e-TeX commands (HO) +Package etexcmds Info: Could not find \expanded. +(etexcmds) That can mean that you are not using pdfTeX 1.50 or +(etexcmds) that some package has redefined \expanded. +(etexcmds) In the latter case, load this package earlier. +Package: kvsetkeys 2016/05/16 v1.17 Key value parser (HO) +Package: kvdefinekeys 2016/05/16 v1.4 Define keys (HO) +Package: pdftexcmds 2017/03/19 v0.25 Utility functions of pdfTeX for LuaTeX (HO +) +Package pdftexcmds Info: LuaTeX not detected. +Package pdftexcmds Info: pdfTeX >= 1.30 not detected. +Package pdftexcmds Info: \pdf@primitive is available. +Package pdftexcmds Info: \pdf@ifprimitive is available. +Package pdftexcmds Info: \pdfdraftmode not found. +Package: pdfescape 2016/05/16 v1.14 Implements pdfTeX's escape features (HO) +Package: bigintcalc 2016/05/16 v1.4 Expandable calculations on big integers (HO +) +Package: bitset 2016/05/16 v1.2 Handle bit-vector datatype (HO) +Package: uniquecounter 2016/05/16 v1.3 Provide unlimited unique counter (HO) +) +Package hobsub Info: Skipping package `hobsub' (already loaded). +Package: letltxmacro 2016/05/16 v1.5 Let assignment for LaTeX macros (HO) +Package: hopatch 2016/05/16 v1.3 Wrapper for package hooks (HO) +Package: xcolor-patch 2016/05/16 xcolor patch +Package: atveryend 2016/05/16 v1.9 Hooks at the very end of document (HO) +Package atveryend Info: \enddocument detected (standard20110627). +Package: atbegshi 2016/06/09 v1.18 At begin shipout hook (HO) +Package: refcount 2016/05/16 v3.5 Data extraction from label references (HO) +Package: hycolor 2016/05/16 v1.8 Color options for hyperref/bookmark (HO) +) (/Applications/kettex/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty +Package: ifxetex 2010/09/12 v0.6 Provides ifxetex conditional +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty +Package: auxhook 2016/05/16 v1.4 Hooks for auxiliary files (HO) +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty +Package: kvoptions 2016/05/16 v3.12 Key value format for package options (HO) +) +\@linkdim=\dimen132 +\Hy@linkcounter=\count114 +\Hy@pagecounter=\count115 + +(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def +File: pd1enc.def 2017/03/14 v6.85a Hyperref: PDFDocEncoding definition (HO) +) +\Hy@SavedSpaceFactor=\count116 + +(/Applications/kettex/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg +File: hyperref.cfg 2002/06/06 v1.2 hyperref configuration of TeXLive +) +Package hyperref Info: Option `colorlinks' set `true' on input line 4374. +Package hyperref Info: Hyper figures OFF on input line 4498. +Package hyperref Info: Link nesting OFF on input line 4503. +Package hyperref Info: Hyper index ON on input line 4506. +Package hyperref Info: Plain pages OFF on input line 4513. +Package hyperref Info: Backreferencing OFF on input line 4518. +Package hyperref Info: Implicit mode ON; LaTeX internals redefined. +Package hyperref Info: Bookmarks ON on input line 4751. +\c@Hy@tempcnt=\count117 + +(/Applications/kettex/texlive/texmf-dist/tex/latex/url/url.sty +\Urlmuskip=\muskip11 +Package: url 2013/09/16 ver 3.4 Verb mode for urls, etc. +) +LaTeX Info: Redefining \url on input line 5104. +\XeTeXLinkMargin=\dimen133 +\Fld@menulength=\count118 +\Field@Width=\dimen134 +\Fld@charsize=\dimen135 +Package hyperref Info: Hyper figures OFF on input line 6358. +Package hyperref Info: Link nesting OFF on input line 6363. +Package hyperref Info: Hyper index ON on input line 6366. +Package hyperref Info: backreferencing OFF on input line 6373. +Package hyperref Info: Link coloring ON on input line 6376. +Package hyperref Info: Link coloring with OCG OFF on input line 6383. +Package hyperref Info: PDF/A mode OFF on input line 6388. +LaTeX Info: Redefining \ref on input line 6428. +LaTeX Info: Redefining \pageref on input line 6432. +\Hy@abspage=\count119 +\c@Item=\count120 +\c@Hfootnote=\count121 +) + +Package hyperref Message: Driver: hdvipdfm. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/hdvipdfm.def +File: hdvipdfm.def 2017/03/14 v6.85a Hyperref driver for dvipdfm +\pdfm@box=\box43 +\c@Hy@AnnotLevel=\count122 +\HyField@AnnotCount=\count123 +\Fld@listcount=\count124 +\c@bookmark@seq@number=\count125 + +(/Applications/kettex/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty +Package: rerunfilecheck 2016/05/16 v1.8 Rerun checks for auxiliary files (HO) +Package uniquecounter Info: New unique counter `rerunfilecheck' on input line 2 +82. +) +\Hy@SectionHShift=\skip50 +) (./s0704para.aux) +\openout1 = `s0704para.aux'. + +LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 26. +LaTeX Font Info: ... okay on input line 26. +LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 26. +LaTeX Font Info: ... okay on input line 26. +LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 26. +LaTeX Font Info: ... okay on input line 26. +LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 26. +LaTeX Font Info: ... okay on input line 26. +LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 26. +LaTeX Font Info: ... okay on input line 26. +LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 26. +LaTeX Font Info: ... okay on input line 26. +LaTeX Font Info: Checking defaults for JY2/mc/m/n on input line 26. +LaTeX Font Info: ... okay on input line 26. +LaTeX Font Info: Checking defaults for JT2/mc/m/n on input line 26. +LaTeX Font Info: ... okay on input line 26. +LaTeX Font Info: Checking defaults for PD1/pdf/m/n on input line 26. +LaTeX Font Info: ... okay on input line 26. +\AtBeginShipoutBox=\box44 +Package hyperref Info: Link coloring ON on input line 26. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/nameref.sty +Package: nameref 2016/05/21 v2.44 Cross-referencing by name of section + +(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.st +y +Package: gettitlestring 2016/05/16 v1.5 Cleanup title references (HO) +) +\c@section@level=\count126 +) +LaTeX Info: Redefining \ref on input line 26. +LaTeX Info: Redefining \pageref on input line 26. +LaTeX Info: Redefining \nameref on input line 26. + (./s0704para.out) (./s0704para.out) +\@outlinefile=\write3 +\openout3 = `s0704para.out'. + + (./fig/slide0.tex +LaTeX Font Info: Font shape `JT2/mc/m/n' will be +(Font) scaled to size 13.85594pt on input line 1. +LaTeX Font Info: Font shape `JY2/mc/m/n' will be +(Font) scaled to size 13.85594pt on input line 1. +LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <14.4> not available +(Font) Font shape `JT2/gt/m/n' tried instead on input line 1. +LaTeX Font Info: Font shape `JT2/gt/m/n' will be +(Font) scaled to size 13.85594pt on input line 1. +LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <14.4> not available +(Font) Font shape `JY2/gt/m/n' tried instead on input line 1. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 13.85594pt on input line 1. +LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <24.88> not available +(Font) Font shape `JT2/gt/m/n' tried instead on input line 5. +LaTeX Font Info: Font shape `JT2/gt/m/n' will be +(Font) scaled to size 23.94002pt on input line 5. +LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <24.88> not available +(Font) Font shape `JY2/gt/m/n' tried instead on input line 5. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 23.94002pt on input line 5. +) (./fig/slide0.tex) +(./fig/slide0.tex) (./fig/slide0.tex) [0 + +] (./fig/pointoncircle/p001.tex +LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <9> not available +(Font) Font shape `JT2/gt/m/n' tried instead on input line 8. +LaTeX Font Info: Font shape `JT2/gt/m/n' will be +(Font) scaled to size 8.65997pt on input line 8. +LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <9> not available +(Font) Font shape `JY2/gt/m/n' tried instead on input line 8. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 8.65997pt on input line 8. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 5.77332pt on input line 22. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 4.8111pt on input line 22. +LaTeX Font Info: Try loading font information for U+msa on input line 22. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/umsa.fd +File: umsa.fd 2013/01/14 v3.01 AMS symbols A +) +LaTeX Font Info: Try loading font information for U+msb on input line 22. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/umsb.fd +File: umsb.fd 2013/01/14 v3.01 AMS symbols B +)) +(./fig/pointoncircle/p001.tex) (./fig/pointoncircle/p001.tex) +(./fig/pointoncircle/p001.tex) +LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <7> not available +(Font) Font shape `JT2/gt/m/n' tried instead on input line 65. +LaTeX Font Info: Font shape `JT2/gt/m/n' will be +(Font) scaled to size 6.73553pt on input line 65. +LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <7> not available +(Font) Font shape `JY2/gt/m/n' tried instead on input line 65. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 6.73553pt on input line 65. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 9.6222pt on input line 74. + +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p002.tex) (./fig/pointoncircle/p002.tex) +(./fig/pointoncircle/p002.tex) (./fig/pointoncircle/p002.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p003.tex) (./fig/pointoncircle/p003.tex) +(./fig/pointoncircle/p003.tex) (./fig/pointoncircle/p003.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p004.tex) (./fig/pointoncircle/p004.tex) +(./fig/pointoncircle/p004.tex) (./fig/pointoncircle/p004.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p005.tex) (./fig/pointoncircle/p005.tex) +(./fig/pointoncircle/p005.tex) (./fig/pointoncircle/p005.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p006.tex) (./fig/pointoncircle/p006.tex) +(./fig/pointoncircle/p006.tex) (./fig/pointoncircle/p006.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p007.tex) (./fig/pointoncircle/p007.tex) +(./fig/pointoncircle/p007.tex) (./fig/pointoncircle/p007.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p008.tex) (./fig/pointoncircle/p008.tex) +(./fig/pointoncircle/p008.tex) (./fig/pointoncircle/p008.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p009.tex) (./fig/pointoncircle/p009.tex) +(./fig/pointoncircle/p009.tex) (./fig/pointoncircle/p009.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p010.tex) (./fig/pointoncircle/p010.tex) +(./fig/pointoncircle/p010.tex) (./fig/pointoncircle/p010.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p011.tex) (./fig/pointoncircle/p011.tex) +(./fig/pointoncircle/p011.tex) (./fig/pointoncircle/p011.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p012.tex) (./fig/pointoncircle/p012.tex) +(./fig/pointoncircle/p012.tex) (./fig/pointoncircle/p012.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p013.tex) (./fig/pointoncircle/p013.tex) +(./fig/pointoncircle/p013.tex) (./fig/pointoncircle/p013.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p014.tex) (./fig/pointoncircle/p014.tex) +(./fig/pointoncircle/p014.tex) (./fig/pointoncircle/p014.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p015.tex) (./fig/pointoncircle/p015.tex) +(./fig/pointoncircle/p015.tex) (./fig/pointoncircle/p015.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p016.tex) (./fig/pointoncircle/p016.tex) +(./fig/pointoncircle/p016.tex) (./fig/pointoncircle/p016.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p017.tex) (./fig/pointoncircle/p017.tex) +(./fig/pointoncircle/p017.tex) (./fig/pointoncircle/p017.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p018.tex) (./fig/pointoncircle/p018.tex) +(./fig/pointoncircle/p018.tex) (./fig/pointoncircle/p018.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p019.tex) (./fig/pointoncircle/p019.tex) +(./fig/pointoncircle/p019.tex) (./fig/pointoncircle/p019.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p020.tex) (./fig/pointoncircle/p020.tex) +(./fig/pointoncircle/p020.tex) (./fig/pointoncircle/p020.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p021.tex) (./fig/pointoncircle/p021.tex) +(./fig/pointoncircle/p021.tex) (./fig/pointoncircle/p021.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p022.tex) (./fig/pointoncircle/p022.tex) +(./fig/pointoncircle/p022.tex) (./fig/pointoncircle/p022.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p023.tex) (./fig/pointoncircle/p023.tex) +(./fig/pointoncircle/p023.tex) (./fig/pointoncircle/p023.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p024.tex) (./fig/pointoncircle/p024.tex) +(./fig/pointoncircle/p024.tex) (./fig/pointoncircle/p024.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p025.tex) (./fig/pointoncircle/p025.tex) +(./fig/pointoncircle/p025.tex) (./fig/pointoncircle/p025.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/pointoncircle/p026.tex) (./fig/pointoncircle/p026.tex) +(./fig/pointoncircle/p026.tex) (./fig/pointoncircle/p026.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/sinecurve/p001.tex) (./fig/sinecurve/p001.tex) +(./fig/sinecurve/p001.tex) (./fig/sinecurve/p001.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p002.tex) (./fig/sinecurve/p002.tex) +(./fig/sinecurve/p002.tex) (./fig/sinecurve/p002.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p003.tex) (./fig/sinecurve/p003.tex) +(./fig/sinecurve/p003.tex) (./fig/sinecurve/p003.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p004.tex) (./fig/sinecurve/p004.tex) +(./fig/sinecurve/p004.tex) (./fig/sinecurve/p004.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p005.tex) (./fig/sinecurve/p005.tex) +(./fig/sinecurve/p005.tex) (./fig/sinecurve/p005.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p006.tex) (./fig/sinecurve/p006.tex) +(./fig/sinecurve/p006.tex) (./fig/sinecurve/p006.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p007.tex) (./fig/sinecurve/p007.tex) +(./fig/sinecurve/p007.tex) (./fig/sinecurve/p007.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p008.tex) (./fig/sinecurve/p008.tex) +(./fig/sinecurve/p008.tex) (./fig/sinecurve/p008.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p009.tex) (./fig/sinecurve/p009.tex) +(./fig/sinecurve/p009.tex) (./fig/sinecurve/p009.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p010.tex) (./fig/sinecurve/p010.tex) +(./fig/sinecurve/p010.tex) (./fig/sinecurve/p010.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p011.tex) (./fig/sinecurve/p011.tex) +(./fig/sinecurve/p011.tex) (./fig/sinecurve/p011.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p012.tex) (./fig/sinecurve/p012.tex) +(./fig/sinecurve/p012.tex) (./fig/sinecurve/p012.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p013.tex) (./fig/sinecurve/p013.tex) +(./fig/sinecurve/p013.tex) (./fig/sinecurve/p013.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p014.tex) (./fig/sinecurve/p014.tex) +(./fig/sinecurve/p014.tex) (./fig/sinecurve/p014.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p015.tex) (./fig/sinecurve/p015.tex) +(./fig/sinecurve/p015.tex) (./fig/sinecurve/p015.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p016.tex) (./fig/sinecurve/p016.tex) +(./fig/sinecurve/p016.tex) (./fig/sinecurve/p016.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p017.tex) (./fig/sinecurve/p017.tex) +(./fig/sinecurve/p017.tex) (./fig/sinecurve/p017.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p018.tex) (./fig/sinecurve/p018.tex) +(./fig/sinecurve/p018.tex) (./fig/sinecurve/p018.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p019.tex) (./fig/sinecurve/p019.tex) +(./fig/sinecurve/p019.tex) (./fig/sinecurve/p019.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p020.tex) (./fig/sinecurve/p020.tex) +(./fig/sinecurve/p020.tex) (./fig/sinecurve/p020.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p021.tex) (./fig/sinecurve/p021.tex) +(./fig/sinecurve/p021.tex) (./fig/sinecurve/p021.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p022.tex) (./fig/sinecurve/p022.tex) +(./fig/sinecurve/p022.tex) (./fig/sinecurve/p022.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p023.tex) (./fig/sinecurve/p023.tex) +(./fig/sinecurve/p023.tex) (./fig/sinecurve/p023.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p024.tex) (./fig/sinecurve/p024.tex) +(./fig/sinecurve/p024.tex) (./fig/sinecurve/p024.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p025.tex) (./fig/sinecurve/p025.tex) +(./fig/sinecurve/p025.tex) (./fig/sinecurve/p025.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p026.tex) (./fig/sinecurve/p026.tex) +(./fig/sinecurve/p026.tex) (./fig/sinecurve/p026.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p027.tex) (./fig/sinecurve/p027.tex) +(./fig/sinecurve/p027.tex) (./fig/sinecurve/p027.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p028.tex) (./fig/sinecurve/p028.tex) +(./fig/sinecurve/p028.tex) (./fig/sinecurve/p028.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p029.tex) (./fig/sinecurve/p029.tex) +(./fig/sinecurve/p029.tex) (./fig/sinecurve/p029.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p030.tex) (./fig/sinecurve/p030.tex) +(./fig/sinecurve/p030.tex) (./fig/sinecurve/p030.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] (./fig/sinecurve/p031.tex) (./fig/sinecurve/p031.tex) +(./fig/sinecurve/p031.tex) (./fig/sinecurve/p031.tex) +Package atveryend Info: Empty hook `BeforeClearDocument' on input line 1114. + +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] +Package atveryend Info: Empty hook `AfterLastShipout' on input line 1114. + (./s0704para.aux) +Package atveryend Info: Empty hook `AtVeryEndDocument' on input line 1114. +Package atveryend Info: Executing hook `AtEndAfterFileList' on input line 1114. + +Package rerunfilecheck Info: File `s0704para.out' has not changed. +(rerunfilecheck) Checksum: D41D8CD98F00B204E9800998ECF8427E;0. +Package atveryend Info: Empty hook `AtVeryVeryEnd' on input line 1114. + ) +Here is how much of TeX's memory you used: + 6969 strings out of 495145 + 102648 string characters out of 6183910 + 267756 words of memory out of 5000000 + 9857 multiletter control sequences out of 15000+600000 + 16967 words of font info for 77 fonts, out of 8000000 for 9000 + 14 hyphenation exceptions out of 8191 + 28i,12n,35p,321b,331s stack positions out of 5000i,500n,10000p,200000b,80000s + +Output written on s0704para.dvi (58 pages, 1204728 bytes). diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.out b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.out new file mode 100644 index 00000000..e69de29b --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.out diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.pdf Binary files differnew file mode 100644 index 00000000..6ce0ffaf --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.pdf diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.tex new file mode 100644 index 00000000..2821ce57 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.tex @@ -0,0 +1,1114 @@ +%%% タイトル s0704para +\documentclass[landscape,10pt]{ujarticle} +\special{papersize=\the\paperwidth,\the\paperheight} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide} +\usepackage{amsmath,amssymb} +\usepackage{bm,enumerate} +\usepackage[dvipdfmx]{graphicx} +\usepackage{xcolor} +\definecolor{slidecolora}{cmyk}{0.98,0.13,0,0.43} +\definecolor{slidecolorb}{cmyk}{0,0.32,0.52,0} +\definecolor{slidecolorc}{cmyk}{0,0.32,0.52,0} +\definecolor{slidecolord}{cmyk}{0,0.32,0.52,0} +\definecolor{slidecolore}{cmyk}{0,0,0,0.5} +\definecolor{slidecolorf}{cmyk}{0,0,0,0.5} +\definecolor{slidecolori}{cmyk}{0.98,0.13,0,0.43} +\def\setthin#1{\def\thin{#1}} +\setthin{0.1} +\usepackage[dvipdfmx,colorlinks=true,linkcolor=blue,filecolor=blue]{hyperref} +\ketmarginJ +\ketslideinit + +\pagestyle{headings} + +\begin{document} + +\begin{layer}{120}{0} +\putnotese{0}{0}{\input{fig/slide0.tex}} +\end{layer} + +\def\mainslidetitley{22} +\def\ketcletter{slidecolora} +\def\ketcbox{slidecolorb} +\def\ketdbox{slidecolorc} +\def\ketcframe{slidecolord} +\def\ketcshadow{slidecolore} +\def\ketdshadow{slidecolorf} +\def\slidetitlex{6} +\def\slidetitlesize{1.3} +\def\mketcletter{slidecolori} +\def\mketcbox{yellow} +\def\mketdbox{yellow} +\def\mketcframe{yellow} +\def\mslidetitlex{62} +\def\mslidetitlesize{2} + +\color{black} +\Large\bf\boldmath +\thispagestyle{empty} +\addtocounter{page}{-1} + +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + +\newslide{極座標と曲線(Flip)} + +\vspace*{18mm} + +\hypertarget{para1pg1}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p001.tex}}} +\putnotew{96}{70}{\hyperlink{para0pg0}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para0pg0}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para0pg0}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg4}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 1/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg2}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p002.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 2/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg3}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p003.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg4}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg6}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 3/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg4}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p004.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg7}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 4/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg5}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p005.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg2}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg4}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg6}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg8}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 5/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg6}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p006.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg7}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg9}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 6/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg7}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p007.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg4}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg6}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg8}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg10}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 7/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg8}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p008.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg7}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg9}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg11}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 8/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg9}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p009.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg6}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg8}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg10}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg12}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 9/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg10}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p010.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg7}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg9}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg11}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg13}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 10/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg11}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p011.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg8}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg10}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg12}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg14}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 11/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg12}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p012.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg9}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg11}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg13}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg15}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 12/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg13}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p013.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg10}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg12}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg14}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg16}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 13/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg14}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p014.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg11}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg13}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg15}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg17}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 14/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg15}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p015.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg12}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg14}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg16}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg18}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 15/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg16}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p016.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg13}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg15}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg17}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg19}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 16/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg17}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p017.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg14}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg16}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg18}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg20}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 17/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg18}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p018.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg15}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg17}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg19}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg21}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 18/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg19}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p019.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg16}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg18}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg20}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg22}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 19/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg20}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p020.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg17}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg19}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg21}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg23}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 20/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg21}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p021.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg18}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg20}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg22}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg24}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 21/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg22}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p022.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg19}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg21}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg23}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg25}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 22/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg23}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p023.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg20}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg22}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg24}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 23/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg24}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p024.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg21}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg23}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg25}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 24/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg25}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p025.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg22}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg24}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 25/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg26}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\scalebox{1.2}{\input{fig/pointoncircle/p026.tex}}} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg23}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg25}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 26/26} +\end{layer} + +$r=2$を満たす点の軌跡は?\\ + +\newslide{グラフの平行移動} + +\vspace*{18mm} + +\hypertarget{para2pg1}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p001.tex}} +\putnotew{96}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg26}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 1/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg2}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p002.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 2/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg3}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p003.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 3/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg4}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p004.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 4/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg5}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p005.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg2}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 5/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg6}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p006.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 6/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg7}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p007.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 7/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg8}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p008.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 8/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg9}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p009.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 9/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg10}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p010.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 10/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg11}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p011.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 11/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg12}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p012.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 12/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg13}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p013.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 13/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg14}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p014.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 14/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg15}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p015.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 15/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg16}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p016.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 16/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg17}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p017.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 17/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg18}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p018.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 18/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg19}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p019.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 19/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg20}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p020.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 20/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg21}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p021.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 21/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg22}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p022.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 22/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg23}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p023.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 23/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg24}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p024.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg27}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 24/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg25}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p025.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg28}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 25/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg26}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p026.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg27}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg29}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 26/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg27}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p027.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg28}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg30}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 27/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg28}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p028.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg27}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg29}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 28/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg29}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p029.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg28}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg30}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 29/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg30}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p030.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg27}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg29}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg31}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 30/31} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg31}{} + +\begin{layer}{120}{0} +\putnotes{63}{10}{\input{fig/sinecurve/p031.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg28}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg30}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para3pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para3pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para3pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 31/31} +\end{layer} + + + +\end{document} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.txt new file mode 100644 index 00000000..d35f6613 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0704para.txt @@ -0,0 +1,13 @@ +%タイトル::slide0::kabegami// +タイトル::slide0// + +%%%%%%%%%%%%%%%%// +new::極座標と曲線(Flip)// +%repeat=,para=pointoncircle:{0}:s{85}{10}:input:1.2// + +$r=2$を満たす点の軌跡は?\\// +%[31]::\hspace{20mm}円になる// + +%%%%%%%%%%%%%%%%// +new::グラフの平行移動// +%repeat=,para=sinecurve:{0}:s{63}{10}:input// diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.aux b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.aux new file mode 100644 index 00000000..051947ba --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.aux @@ -0,0 +1,55 @@ +\relax +\providecommand\hyper@newdestlabel[2]{} +\providecommand\HyperFirstAtBeginDocument{\AtBeginDocument} +\HyperFirstAtBeginDocument{\ifx\hyper@anchor\@undefined +\global\let\oldcontentsline\contentsline +\gdef\contentsline#1#2#3#4{\oldcontentsline{#1}{#2}{#3}} +\global\let\oldnewlabel\newlabel +\gdef\newlabel#1#2{\newlabelxx{#1}#2} +\gdef\newlabelxx#1#2#3#4#5#6{\oldnewlabel{#1}{{#2}{#3}}} +\AtEndDocument{\ifx\hyper@anchor\@undefined +\let\contentsline\oldcontentsline +\let\newlabel\oldnewlabel +\fi} +\fi} +\global\let\hyper@last\relax +\gdef\HyperFirstAtBeginDocument#1{#1} +\providecommand*\HyPL@Entry[1]{} +\HyPL@Entry{0<</P(0)>>} +\HyPL@Entry{1<</S/D>>} +\HyPL@Entry{4<</S/D /St 3>>} +\HyPL@Entry{5<</S/D /St 3>>} +\HyPL@Entry{7<</S/D /St 4>>} +\HyPL@Entry{8<</S/D /St 4>>} +\HyPL@Entry{9<</S/D /St 4>>} +\HyPL@Entry{11<</S/D /St 5>>} +\HyPL@Entry{12<</S/D /St 5>>} +\HyPL@Entry{13<</S/D /St 5>>} +\HyPL@Entry{14<</S/D /St 5>>} +\HyPL@Entry{17<</S/D /St 7>>} +\HyPL@Entry{18<</S/D /St 7>>} +\HyPL@Entry{20<</S/D /St 8>>} +\HyPL@Entry{21<</S/D /St 8>>} +\HyPL@Entry{22<</S/D /St 8>>} +\HyPL@Entry{23<</S/D /St 8>>} +\HyPL@Entry{24<</S/D /St 8>>} +\HyPL@Entry{25<</S/D /St 8>>} +\HyPL@Entry{26<</S/D /St 8>>} +\HyPL@Entry{27<</S/D /St 8>>} +\HyPL@Entry{28<</S/D /St 8>>} +\HyPL@Entry{29<</S/D /St 8>>} +\HyPL@Entry{30<</S/D /St 8>>} +\HyPL@Entry{31<</S/D /St 8>>} +\HyPL@Entry{32<</S/D /St 8>>} +\HyPL@Entry{33<</S/D /St 8>>} +\HyPL@Entry{34<</S/D /St 8>>} +\HyPL@Entry{35<</S/D /St 8>>} +\HyPL@Entry{36<</S/D /St 8>>} +\HyPL@Entry{37<</S/D /St 8>>} +\HyPL@Entry{38<</S/D /St 8>>} +\HyPL@Entry{39<</S/D /St 8>>} +\HyPL@Entry{40<</S/D /St 8>>} +\HyPL@Entry{41<</S/D /St 8>>} +\HyPL@Entry{42<</S/D /St 8>>} +\HyPL@Entry{43<</S/D /St 8>>} +\HyPL@Entry{44<</S/D /St 8>>} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.cdy Binary files differnew file mode 100755 index 00000000..1377b5fd --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.log b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.log new file mode 100644 index 00000000..c929dc47 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.log @@ -0,0 +1,628 @@ +This is e-upTeX, Version 3.14159265-p3.7-u1.21-160201-2.6 (utf8.uptex) (TeX Live 2016) (preloaded format=uplatex 2017.8.18) 24 AUG 2017 14:36 +entering extended mode + restricted \write18 enabled. + %&-line parsing enabled. +**s0705thin.tex +(./s0705thin.tex +pLaTeX2e <2016/11/29u01> (based on LaTeX2e <2017/01/01> patch level 3) +Babel <3.9r> and hyphenation patterns for 3 language(s) loaded. +(/Applications/kettex/texlive/texmf-dist/tex/uplatex/base/ujarticle.cls +Document Class: ujarticle 2016/11/22 v1.7b-u00 Standard upLaTeX class +\c@@paper=\count82 +(/Applications/kettex/texlive/texmf-dist/tex/uplatex/base/ujsize10.clo +File: ujsize10.clo 2016/11/22 v1.7b-u00 Standard upLaTeX file (size option) +LaTeX Font Info: Font shape `JT2/mc/m/n' will be +(Font) scaled to size 9.6222pt on input line 28. +LaTeX Font Info: Font shape `JY2/mc/m/n' will be +(Font) scaled to size 9.6222pt on input line 28. +) +\c@part=\count83 +\c@section=\count84 +\c@subsection=\count85 +\c@subsubsection=\count86 +\c@paragraph=\count87 +\c@subparagraph=\count88 +\c@figure=\count89 +\c@table=\count90 +\abovecaptionskip=\skip41 +\belowcaptionskip=\skip42 +\symmincho=\mathgroup4 +LaTeX Font Info: Overwriting symbol font `mincho' in version `bold' +(Font) JY2/mc/m/n --> JY2/gt/m/n on input line 580. +\toclineskip=\dimen118 +\@lnumwidth=\dimen119 +\bibindent=\dimen120 +\heisei=\count91 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic.sty +\c@ketpicctra=\count92 +\c@ketpicctrb=\count93 +\c@ketpicctrc=\count94 +\c@ketpicctrd=\count95 +\c@ketpicctre=\count96 +\c@ketpicctrf=\count97 +\c@ketpicctrg=\count98 +\c@ketpicctrh=\count99 +\c@ketpicctri=\count100 +\c@ketpicctrj=\count101 +\Width=\skip43 +\Height=\skip44 +\Depth=\skip45 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer.sty +\layercurrentunit=\skip46 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide.sty) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsmath.sty +Package: amsmath 2016/11/05 v2.16a AMS math features +\@mathmargin=\skip47 + +For additional information on amsmath, use the `?' option. +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amstext.sty +Package: amstext 2000/06/29 v2.01 AMS text + +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsgen.sty +File: amsgen.sty 1999/11/30 v2.0 generic functions +\@emptytoks=\toks15 +\ex@=\dimen121 +)) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsbsy.sty +Package: amsbsy 1999/11/29 v1.2d Bold Symbols +\pmbraise@=\dimen122 +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsmath/amsopn.sty +Package: amsopn 2016/03/08 v2.02 operator names +) +\inf@bad=\count102 +LaTeX Info: Redefining \frac on input line 213. +\uproot@=\count103 +\leftroot@=\count104 +LaTeX Info: Redefining \overline on input line 375. +\classnum@=\count105 +\DOTSCASE@=\count106 +LaTeX Info: Redefining \ldots on input line 472. +LaTeX Info: Redefining \dots on input line 475. +LaTeX Info: Redefining \cdots on input line 596. +\Mathstrutbox@=\box41 +\strutbox@=\box42 +\big@size=\dimen123 +LaTeX Font Info: Redeclaring font encoding OML on input line 712. +LaTeX Font Info: Redeclaring font encoding OMS on input line 713. +\macc@depth=\count107 +\c@MaxMatrixCols=\count108 +\dotsspace@=\muskip10 +\c@parentequation=\count109 +\dspbrk@lvl=\count110 +\tag@help=\toks16 +\row@=\count111 +\column@=\count112 +\maxfields@=\count113 +\andhelp@=\toks17 +\eqnshift@=\dimen124 +\alignsep@=\dimen125 +\tagshift@=\dimen126 +\tagwidth@=\dimen127 +\totwidth@=\dimen128 +\lineht@=\dimen129 +\@envbody=\toks18 +\multlinegap=\skip48 +\multlinetaggap=\skip49 +\mathdisplay@stack=\toks19 +LaTeX Info: Redefining \[ on input line 2817. +LaTeX Info: Redefining \] on input line 2818. +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/amssymb.sty +Package: amssymb 2013/01/14 v3.01 AMS font symbols + +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/amsfonts.sty +Package: amsfonts 2013/01/14 v3.01 Basic AMSFonts support +\symAMSa=\mathgroup5 +\symAMSb=\mathgroup6 +LaTeX Font Info: Overwriting math alphabet `\mathfrak' in version `bold' +(Font) U/euf/m/n --> U/euf/b/n on input line 106. +)) +(/Applications/kettex/texlive/texmf-dist/tex/latex/tools/bm.sty +Package: bm 2017/01/16 v1.2c Bold Symbol Support (DPC/FMi) +\symboldoperators=\mathgroup7 +\symboldletters=\mathgroup8 +\symboldsymbols=\mathgroup9 +\symboldmincho=\mathgroup10 +LaTeX Font Info: Redeclaring math alphabet \mathbf on input line 141. +LaTeX Info: Redefining \bm on input line 207. +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/tools/enumerate.sty +Package: enumerate 2015/07/23 v3.00 enumerate extensions (DPC) +\@enLab=\toks20 +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/graphicx.sty +Package: graphicx 2014/10/28 v1.0g Enhanced LaTeX Graphics (DPC,SPQR) + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/keyval.sty +Package: keyval 2014/10/28 v1.15 key=value parser (DPC) +\KV@toks@=\toks21 +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/graphics.sty +Package: graphics 2016/10/09 v1.0u Standard LaTeX Graphics (DPC,SPQR) + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics/trig.sty +Package: trig 2016/01/03 v1.10 sin cos tan (DPC) +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-cfg/graphics.cfg +File: graphics.cfg 2016/06/04 v1.11 sample graphics configuration +) +Package graphics Info: Driver file: dvipdfmx.def on input line 99. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-def/dvipdfmx.def +File: dvipdfmx.def 2016/07/11 v4.12 LaTeX color/graphics driver for dvipdfmx (L +3/ChoF) +)) +\Gin@req@height=\dimen130 +\Gin@req@width=\dimen131 +) (/Applications/kettex/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty +Package: xcolor 2016/05/11 v2.12 LaTeX color extensions (UK) + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-cfg/color.cfg +File: color.cfg 2016/01/02 v1.6 sample color configuration +) +Package xcolor Info: Driver file: dvips.def on input line 225. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/graphics-def/dvips.def +File: dvips.def 2016/07/10 v3.1a Driver-dependent file (DPC,SPQR) +) +Package xcolor Info: Model `cmy' substituted by `cmy0' on input line 1348. +Package xcolor Info: Model `RGB' extended on input line 1364. +Package xcolor Info: Model `HTML' substituted by `rgb' on input line 1366. +Package xcolor Info: Model `Hsb' substituted by `hsb' on input line 1367. +Package xcolor Info: Model `tHsb' substituted by `hsb' on input line 1368. +Package xcolor Info: Model `HSB' substituted by `hsb' on input line 1369. +Package xcolor Info: Model `Gray' substituted by `gray' on input line 1370. +Package xcolor Info: Model `wave' substituted by `hsb' on input line 1371. +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty +Package: hyperref 2017/03/14 v6.85a Hypertext links for LaTeX + +(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.s +ty +Package: hobsub-hyperref 2016/05/16 v1.14 Bundle oberdiek, subset hyperref (HO) + + +(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.st +y +Package: hobsub-generic 2016/05/16 v1.14 Bundle oberdiek, subset generic (HO) +Package: hobsub 2016/05/16 v1.14 Construct package bundles (HO) +Package: infwarerr 2016/05/16 v1.4 Providing info/warning/error messages (HO) +Package: ltxcmds 2016/05/16 v1.23 LaTeX kernel commands for general use (HO) +Package: ifluatex 2016/05/16 v1.4 Provides the ifluatex switch (HO) +Package ifluatex Info: LuaTeX not detected. +Package: ifvtex 2016/05/16 v1.6 Detect VTeX and its facilities (HO) +Package ifvtex Info: VTeX not detected. +Package: intcalc 2016/05/16 v1.2 Expandable calculations with integers (HO) +Package: ifpdf 2017/03/15 v3.2 Provides the ifpdf switch +Package: etexcmds 2016/05/16 v1.6 Avoid name clashes with e-TeX commands (HO) +Package etexcmds Info: Could not find \expanded. +(etexcmds) That can mean that you are not using pdfTeX 1.50 or +(etexcmds) that some package has redefined \expanded. +(etexcmds) In the latter case, load this package earlier. +Package: kvsetkeys 2016/05/16 v1.17 Key value parser (HO) +Package: kvdefinekeys 2016/05/16 v1.4 Define keys (HO) +Package: pdftexcmds 2017/03/19 v0.25 Utility functions of pdfTeX for LuaTeX (HO +) +Package pdftexcmds Info: LuaTeX not detected. +Package pdftexcmds Info: pdfTeX >= 1.30 not detected. +Package pdftexcmds Info: \pdf@primitive is available. +Package pdftexcmds Info: \pdf@ifprimitive is available. +Package pdftexcmds Info: \pdfdraftmode not found. +Package: pdfescape 2016/05/16 v1.14 Implements pdfTeX's escape features (HO) +Package: bigintcalc 2016/05/16 v1.4 Expandable calculations on big integers (HO +) +Package: bitset 2016/05/16 v1.2 Handle bit-vector datatype (HO) +Package: uniquecounter 2016/05/16 v1.3 Provide unlimited unique counter (HO) +) +Package hobsub Info: Skipping package `hobsub' (already loaded). +Package: letltxmacro 2016/05/16 v1.5 Let assignment for LaTeX macros (HO) +Package: hopatch 2016/05/16 v1.3 Wrapper for package hooks (HO) +Package: xcolor-patch 2016/05/16 xcolor patch +Package: atveryend 2016/05/16 v1.9 Hooks at the very end of document (HO) +Package atveryend Info: \enddocument detected (standard20110627). +Package: atbegshi 2016/06/09 v1.18 At begin shipout hook (HO) +Package: refcount 2016/05/16 v3.5 Data extraction from label references (HO) +Package: hycolor 2016/05/16 v1.8 Color options for hyperref/bookmark (HO) +) (/Applications/kettex/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty +Package: ifxetex 2010/09/12 v0.6 Provides ifxetex conditional +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty +Package: auxhook 2016/05/16 v1.4 Hooks for auxiliary files (HO) +) +(/Applications/kettex/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty +Package: kvoptions 2016/05/16 v3.12 Key value format for package options (HO) +) +\@linkdim=\dimen132 +\Hy@linkcounter=\count114 +\Hy@pagecounter=\count115 + +(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def +File: pd1enc.def 2017/03/14 v6.85a Hyperref: PDFDocEncoding definition (HO) +) +\Hy@SavedSpaceFactor=\count116 + +(/Applications/kettex/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg +File: hyperref.cfg 2002/06/06 v1.2 hyperref configuration of TeXLive +) +Package hyperref Info: Option `colorlinks' set `true' on input line 4374. +Package hyperref Info: Hyper figures OFF on input line 4498. +Package hyperref Info: Link nesting OFF on input line 4503. +Package hyperref Info: Hyper index ON on input line 4506. +Package hyperref Info: Plain pages OFF on input line 4513. +Package hyperref Info: Backreferencing OFF on input line 4518. +Package hyperref Info: Implicit mode ON; LaTeX internals redefined. +Package hyperref Info: Bookmarks ON on input line 4751. +\c@Hy@tempcnt=\count117 + +(/Applications/kettex/texlive/texmf-dist/tex/latex/url/url.sty +\Urlmuskip=\muskip11 +Package: url 2013/09/16 ver 3.4 Verb mode for urls, etc. +) +LaTeX Info: Redefining \url on input line 5104. +\XeTeXLinkMargin=\dimen133 +\Fld@menulength=\count118 +\Field@Width=\dimen134 +\Fld@charsize=\dimen135 +Package hyperref Info: Hyper figures OFF on input line 6358. +Package hyperref Info: Link nesting OFF on input line 6363. +Package hyperref Info: Hyper index ON on input line 6366. +Package hyperref Info: backreferencing OFF on input line 6373. +Package hyperref Info: Link coloring ON on input line 6376. +Package hyperref Info: Link coloring with OCG OFF on input line 6383. +Package hyperref Info: PDF/A mode OFF on input line 6388. +LaTeX Info: Redefining \ref on input line 6428. +LaTeX Info: Redefining \pageref on input line 6432. +\Hy@abspage=\count119 +\c@Item=\count120 +\c@Hfootnote=\count121 +) + +Package hyperref Message: Driver: hdvipdfm. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/hdvipdfm.def +File: hdvipdfm.def 2017/03/14 v6.85a Hyperref driver for dvipdfm +\pdfm@box=\box43 +\c@Hy@AnnotLevel=\count122 +\HyField@AnnotCount=\count123 +\Fld@listcount=\count124 +\c@bookmark@seq@number=\count125 + +(/Applications/kettex/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty +Package: rerunfilecheck 2016/05/16 v1.8 Rerun checks for auxiliary files (HO) +Package uniquecounter Info: New unique counter `rerunfilecheck' on input line 2 +82. +) +\Hy@SectionHShift=\skip50 +) (./s0705thin.aux) +\openout1 = `s0705thin.aux'. + +LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 24. +LaTeX Font Info: ... okay on input line 24. +LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 24. +LaTeX Font Info: ... okay on input line 24. +LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 24. +LaTeX Font Info: ... okay on input line 24. +LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 24. +LaTeX Font Info: ... okay on input line 24. +LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 24. +LaTeX Font Info: ... okay on input line 24. +LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 24. +LaTeX Font Info: ... okay on input line 24. +LaTeX Font Info: Checking defaults for JY2/mc/m/n on input line 24. +LaTeX Font Info: ... okay on input line 24. +LaTeX Font Info: Checking defaults for JT2/mc/m/n on input line 24. +LaTeX Font Info: ... okay on input line 24. +LaTeX Font Info: Checking defaults for PD1/pdf/m/n on input line 24. +LaTeX Font Info: ... okay on input line 24. +\AtBeginShipoutBox=\box44 +Package hyperref Info: Link coloring ON on input line 24. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/hyperref/nameref.sty +Package: nameref 2016/05/21 v2.44 Cross-referencing by name of section + +(/Applications/kettex/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.st +y +Package: gettitlestring 2016/05/16 v1.5 Cleanup title references (HO) +) +\c@section@level=\count126 +) +LaTeX Info: Redefining \ref on input line 24. +LaTeX Info: Redefining \pageref on input line 24. +LaTeX Info: Redefining \nameref on input line 24. + (./s0705thin.out) (./s0705thin.out) +\@outlinefile=\write3 +\openout3 = `s0705thin.out'. + + (./fig/slide0.tex +LaTeX Font Info: Font shape `JT2/mc/m/n' will be +(Font) scaled to size 13.85594pt on input line 1. +LaTeX Font Info: Font shape `JY2/mc/m/n' will be +(Font) scaled to size 13.85594pt on input line 1. +LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <14.4> not available +(Font) Font shape `JT2/gt/m/n' tried instead on input line 1. +LaTeX Font Info: Font shape `JT2/gt/m/n' will be +(Font) scaled to size 13.85594pt on input line 1. +LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <14.4> not available +(Font) Font shape `JY2/gt/m/n' tried instead on input line 1. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 13.85594pt on input line 1. +LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <24.88> not available +(Font) Font shape `JT2/gt/m/n' tried instead on input line 5. +LaTeX Font Info: Font shape `JT2/gt/m/n' will be +(Font) scaled to size 23.94002pt on input line 5. +LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <24.88> not available +(Font) Font shape `JY2/gt/m/n' tried instead on input line 5. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 23.94002pt on input line 5. +) (./fig/slide0.tex) +(./fig/slide0.tex) (./fig/slide0.tex) [0 + +] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] +LaTeX Font Info: Try loading font information for OMS+cmr on input line 67. + (/Applications/kettex/texlive/texmf-dist/tex/latex/base/omscmr.fd +File: omscmr.fd 2014/09/29 v2.5h Standard LaTeX font definitions +) +LaTeX Font Info: Font shape `OMS/cmr/bx/n' in size <14.4> not available +(Font) Font shape `OMS/cmsy/b/n' tried instead on input line 67. + +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[2] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[3] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[3] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[3] +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 9.6222pt on input line 126. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 6.73553pt on input line 126. +LaTeX Font Info: Try loading font information for U+msa on input line 126. + (/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/umsa.fd +File: umsa.fd 2013/01/14 v3.01 AMS symbols A +) +LaTeX Font Info: Try loading font information for U+msb on input line 126. + +(/Applications/kettex/texlive/texmf-dist/tex/latex/amsfonts/umsb.fd +File: umsb.fd 2013/01/14 v3.01 AMS symbols B +) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[4] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[4] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[4] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[4] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[5] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[5] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[5] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[5] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[5] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[6] +LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <7> not available +(Font) Font shape `JT2/gt/m/n' tried instead on input line 324. +LaTeX Font Info: Font shape `JT2/gt/m/n' will be +(Font) scaled to size 6.73553pt on input line 324. +LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <7> not available +(Font) Font shape `JY2/gt/m/n' tried instead on input line 324. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 6.73553pt on input line 324. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 4.8111pt on input line 324. + +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[7] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[7] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[7] (./fig/pointoncircle/p001.tex +LaTeX Font Info: Font shape `JT2/mc/bx/n' in size <9> not available +(Font) Font shape `JT2/gt/m/n' tried instead on input line 8. +LaTeX Font Info: Font shape `JT2/gt/m/n' will be +(Font) scaled to size 8.65997pt on input line 8. +LaTeX Font Info: Font shape `JY2/mc/bx/n' in size <9> not available +(Font) Font shape `JY2/gt/m/n' tried instead on input line 8. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 8.65997pt on input line 8. +LaTeX Font Info: Font shape `JY2/gt/m/n' will be +(Font) scaled to size 5.77332pt on input line 22. +) (./fig/pointoncircle/p001.tex) +(./fig/pointoncircle/p001.tex) (./fig/pointoncircle/p001.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p002.tex) (./fig/pointoncircle/p002.tex) +(./fig/pointoncircle/p002.tex) (./fig/pointoncircle/p002.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p003.tex) (./fig/pointoncircle/p003.tex) +(./fig/pointoncircle/p003.tex) (./fig/pointoncircle/p003.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p004.tex) (./fig/pointoncircle/p004.tex) +(./fig/pointoncircle/p004.tex) (./fig/pointoncircle/p004.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p005.tex) (./fig/pointoncircle/p005.tex) +(./fig/pointoncircle/p005.tex) (./fig/pointoncircle/p005.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p006.tex) (./fig/pointoncircle/p006.tex) +(./fig/pointoncircle/p006.tex) (./fig/pointoncircle/p006.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p007.tex) (./fig/pointoncircle/p007.tex) +(./fig/pointoncircle/p007.tex) (./fig/pointoncircle/p007.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p008.tex) (./fig/pointoncircle/p008.tex) +(./fig/pointoncircle/p008.tex) (./fig/pointoncircle/p008.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p009.tex) (./fig/pointoncircle/p009.tex) +(./fig/pointoncircle/p009.tex) (./fig/pointoncircle/p009.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p010.tex) (./fig/pointoncircle/p010.tex) +(./fig/pointoncircle/p010.tex) (./fig/pointoncircle/p010.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p011.tex) (./fig/pointoncircle/p011.tex) +(./fig/pointoncircle/p011.tex) (./fig/pointoncircle/p011.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p012.tex) (./fig/pointoncircle/p012.tex) +(./fig/pointoncircle/p012.tex) (./fig/pointoncircle/p012.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p013.tex) (./fig/pointoncircle/p013.tex) +(./fig/pointoncircle/p013.tex) (./fig/pointoncircle/p013.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p014.tex) (./fig/pointoncircle/p014.tex) +(./fig/pointoncircle/p014.tex) (./fig/pointoncircle/p014.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p015.tex) (./fig/pointoncircle/p015.tex) +(./fig/pointoncircle/p015.tex) (./fig/pointoncircle/p015.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p016.tex) (./fig/pointoncircle/p016.tex) +(./fig/pointoncircle/p016.tex) (./fig/pointoncircle/p016.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p017.tex) (./fig/pointoncircle/p017.tex) +(./fig/pointoncircle/p017.tex) (./fig/pointoncircle/p017.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p018.tex) (./fig/pointoncircle/p018.tex) +(./fig/pointoncircle/p018.tex) (./fig/pointoncircle/p018.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p019.tex) (./fig/pointoncircle/p019.tex) +(./fig/pointoncircle/p019.tex) (./fig/pointoncircle/p019.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p020.tex) (./fig/pointoncircle/p020.tex) +(./fig/pointoncircle/p020.tex) (./fig/pointoncircle/p020.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p021.tex) (./fig/pointoncircle/p021.tex) +(./fig/pointoncircle/p021.tex) (./fig/pointoncircle/p021.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p022.tex) (./fig/pointoncircle/p022.tex) +(./fig/pointoncircle/p022.tex) (./fig/pointoncircle/p022.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p023.tex) (./fig/pointoncircle/p023.tex) +(./fig/pointoncircle/p023.tex) (./fig/pointoncircle/p023.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p024.tex) (./fig/pointoncircle/p024.tex) +(./fig/pointoncircle/p024.tex) (./fig/pointoncircle/p024.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p025.tex) (./fig/pointoncircle/p025.tex) +(./fig/pointoncircle/p025.tex) (./fig/pointoncircle/p025.tex) +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] (./fig/pointoncircle/p026.tex) (./fig/pointoncircle/p026.tex) +(./fig/pointoncircle/p026.tex) (./fig/pointoncircle/p026.tex) +Package atveryend Info: Empty hook `BeforeClearDocument' on input line 871. + +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[8] +Package atveryend Info: Empty hook `AfterLastShipout' on input line 871. + (./s0705thin.aux) +Package atveryend Info: Empty hook `AtVeryEndDocument' on input line 871. +Package atveryend Info: Executing hook `AtEndAfterFileList' on input line 871. +Package rerunfilecheck Info: File `s0705thin.out' has not changed. +(rerunfilecheck) Checksum: D41D8CD98F00B204E9800998ECF8427E;0. +Package atveryend Info: Empty hook `AtVeryVeryEnd' on input line 871. + ) +Here is how much of TeX's memory you used: + 6733 strings out of 495145 + 97267 string characters out of 6183910 + 268652 words of memory out of 5000000 + 9870 multiletter control sequences out of 15000+600000 + 17136 words of font info for 78 fonts, out of 8000000 for 9000 + 14 hyphenation exceptions out of 8191 + 28i,12n,35p,321b,331s stack positions out of 5000i,500n,10000p,200000b,80000s + +Output written on s0705thin.dvi (45 pages, 752432 bytes). diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.out b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.out new file mode 100644 index 00000000..e69de29b --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.out diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.pdf Binary files differnew file mode 100644 index 00000000..09274a33 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.pdf diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.tex new file mode 100644 index 00000000..3abf9c70 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.tex @@ -0,0 +1,871 @@ +%%% タイトル s0705thin +\documentclass[landscape,10pt]{ujarticle} +\special{papersize=\the\paperwidth,\the\paperheight} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide} +\usepackage{amsmath,amssymb} +\usepackage{bm,enumerate} +\usepackage[dvipdfmx]{graphicx} +\usepackage{xcolor} +\definecolor{slidecolorb}{cmyk}{0,0.32,0.52,0} +\definecolor{slidecolorc}{cmyk}{0,0.32,0.52,0} +\definecolor{slidecolord}{cmyk}{0,0.32,0.52,0} +\definecolor{slidecolore}{cmyk}{0,0,0,0.5} +\definecolor{slidecolorf}{cmyk}{0,0,0,0.5} +\def\setthin#1{\def\thin{#1}} +\setthin{0.1} +\usepackage[dvipdfmx,colorlinks=true,linkcolor=blue,filecolor=blue]{hyperref} +\ketmarginJ +\ketslideinit + +\pagestyle{headings} + +\begin{document} + +\begin{layer}{120}{0} +\putnotese{0}{0}{\input{fig/slide0.tex}} +\end{layer} + +\def\mainslidetitley{22} +\def\ketcletter{black} +\def\ketcbox{slidecolorb} +\def\ketdbox{slidecolorc} +\def\ketcframe{slidecolord} +\def\ketcshadow{slidecolore} +\def\ketdshadow{slidecolorf} +\def\slidetitlex{6} +\def\slidetitlesize{1.3} +\def\mketcletter{black} +\def\mketcbox{yellow} +\def\mketdbox{yellow} +\def\mketcframe{yellow} +\def\mslidetitlex{62} +\def\mslidetitlesize{2} + +\color{black} +\Large\bf\boldmath +\thispagestyle{empty} +\addtocounter{page}{-1} + +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + +\mainslide{メインスライド1} + +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + +\newslide{画面上のボタン} + +\vspace*{18mm} + +\begin{itemize} +\item +\Ltab{20mm}{Figure}静止画(Fhead+".tex")をfigに作成 +\item +\Ltab{20mm}{Title}タイトル(デフォルトはslide0)をfigに作成 +\item +\Ltab{20mm}{ParaF}パラパラ動画フォルダを作成\\ +\Ltab{25mm}{}Setparaで引数を書いておく +\item +\Ltab{20mm}{Slide}Texparent+".txt"からスライドを作成 +\item +\Ltab{20mm}{Sum}SummaryのPDFを作成 +\end{itemize} +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + +\newslide{enumerate環境の使い方} + +\vspace*{18mm} + +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + + +\sameslide + +\vspace*{18mm} + +\begin{enumerate}[(1)] +\item +番号を変えるには,例えば [(1)] +\end{enumerate} + +\sameslide + +\vspace*{18mm} + +\begin{enumerate}[(1)] +\item +番号を変えるには,例えば [(1)] +\item +表示ページはリストで与える\\ +\hspace*{10mm}[1],\ [1,-],\ [1..3],\ [1..3,6]など +\end{enumerate} + +\newslide{薄文字の使い方} + +\vspace*{18mm} + +\begin{itemize} +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +Setslidebodyの3番目の引数で濃さを変更\\ +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\hspace*{10mm}\verb|Setslidebody(["","",0.2]);| +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +デフォルトは$0.1$ +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +リストのページ以外が薄文字になる +}% +\end{itemize} +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + + +\sameslide + +\vspace*{18mm} + +\begin{itemize} +\item +Setslidebodyの3番目の引数で濃さを変更\\ +\hspace*{10mm}\verb|Setslidebody(["","",0.2]);| +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +デフォルトは$0.1$ +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +リストのページ以外が薄文字になる +}% +\end{itemize} + +\sameslide + +\vspace*{18mm} + +\begin{itemize} +\item +Setslidebodyの3番目の引数で濃さを変更\\ +\hspace*{10mm}\verb|Setslidebody(["","",0.2]);| +\item +デフォルトは$0.1$ +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +リストのページ以外が薄文字になる +}% +\end{itemize} + +\sameslide + +\vspace*{18mm} + +\begin{itemize} +\item +Setslidebodyの3番目の引数で濃さを変更\\ +\hspace*{10mm}\verb|Setslidebody(["","",0.2]);| +\item +デフォルトは$0.1$ +\item +リストのページ以外が薄文字になる +\end{itemize} + +\newslide{layerの使い方} + +\vspace*{18mm} + +\setthin{0} +\begin{itemize} +\item +layerの始まりは\verb+layer+{:}{:}\verb+{120}{0}+ +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +layerの終わりは\verb|end| +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +図は\verb+putnote+{:}{:}\verb+se{80}{5}+{:}{:}\verb+grf+ +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +図のサイズを変えるときは\\ +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\hspace*{10mm}{:}{:}\verb+grf,0.8+ +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +通常の\verb|\putnote|文も使える +}% +\end{itemize} +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + + +\sameslide + +\vspace*{18mm} + +\setthin{0} +\begin{itemize} +\item +layerの始まりは\verb+layer+{:}{:}\verb+{120}{0}+ +\item +layerの終わりは\verb|end| +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +図は\verb+putnote+{:}{:}\verb+se{80}{5}+{:}{:}\verb+grf+ +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +図のサイズを変えるときは\\ +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\hspace*{10mm}{:}{:}\verb+grf,0.8+ +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +通常の\verb|\putnote|文も使える +}% +\end{itemize} + +\sameslide + +\vspace*{18mm} + +\setthin{0} +\begin{itemize} +\item +layerの始まりは\verb+layer+{:}{:}\verb+{120}{0}+ +\item +layerの終わりは\verb|end| +\item +図は\verb+putnote+{:}{:}\verb+se{80}{5}+{:}{:}\verb+grf+ +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +図のサイズを変えるときは\\ +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\hspace*{10mm}{:}{:}\verb+grf,0.8+ +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +通常の\verb|\putnote|文も使える +}% +\end{itemize} + +\sameslide + +\vspace*{18mm} + +\setthin{0} +\begin{itemize} +\item +layerの始まりは\verb+layer+{:}{:}\verb+{120}{0}+ +\item +layerの終わりは\verb|end| +\item +図は\verb+putnote+{:}{:}\verb+se{80}{5}+{:}{:}\verb+grf+ +\item +図のサイズを変えるときは\\ +\hspace*{10mm}{:}{:}\verb+grf,0.8+ +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +通常の\verb|\putnote|文も使える +}% +\end{itemize} + +\sameslide + +\vspace*{18mm} + +\setthin{0} +\begin{itemize} +\item +layerの始まりは\verb+layer+{:}{:}\verb+{120}{0}+ +\item +layerの終わりは\verb|end| +\item +図は\verb+putnote+{:}{:}\verb+se{80}{5}+{:}{:}\verb+grf+ +\item +図のサイズを変えるときは\\ +\hspace*{10mm}{:}{:}\verb+grf,0.8+ +\item +通常の\verb|\putnote|文も使える +\end{itemize} + +\mainslide{メインスライド2} + +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + +\newslide{コントローラの表示} + +\vspace*{18mm} + +\hypertarget{para1pg1}{} + +\begin{layer}{120}{0} +\putnotew{96}{70}{\hyperlink{para0pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para0pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para0pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 1/3} +\end{layer} + +\begin{itemize} +\item +スクリプトに\verb|Setlidehyper();|を入れる +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +\verb|%repeat=n,para|とすると表示される +}% +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +パラパラ動画のときは自動的に表示 +}% +\end{itemize} +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg2}{} + +\begin{layer}{120}{0} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 2/3} +\end{layer} + +\begin{itemize} +\item +スクリプトに\verb|Setlidehyper();|を入れる +\item +\verb|%repeat=n,para|とすると表示される +{\color[cmyk]{\thin,\thin,\thin,\thin} +\item +パラパラ動画のときは自動的に表示 +}% +\end{itemize} + +\sameslide + +\vspace*{18mm} + +\hypertarget{para1pg3}{} + +\begin{layer}{120}{0} +\putnotew{96}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 3/3} +\end{layer} + +\begin{itemize} +\item +スクリプトに\verb|Setlidehyper();|を入れる +\item +\verb|%repeat=n,para|とすると表示される +\item +パラパラ動画のときは自動的に表示 +\end{itemize} + +\newslide{パラパラ動画} + +\vspace*{18mm} + +\hypertarget{para2pg1}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p001.tex}} +\putnotew{96}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para1pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 1/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg2}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p002.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 2/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg3}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p003.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg2}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 3/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg4}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p004.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg3}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 4/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg5}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p005.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg2}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 5/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg6}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p006.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg3}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 6/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg7}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p007.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg4}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 7/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg8}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p008.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg5}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 8/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg9}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p009.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg6}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 9/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg10}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p010.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg7}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 10/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg11}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p011.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg8}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 11/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg12}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p012.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg9}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 12/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg13}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p013.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg10}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 13/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg14}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p014.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg11}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 14/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg15}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p015.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg12}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 15/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg16}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p016.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg13}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 16/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg17}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p017.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg14}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 17/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg18}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p018.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg15}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 18/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg19}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p019.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg16}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 19/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg20}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p020.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg17}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 20/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg21}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p021.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg18}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 21/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg22}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p022.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg19}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 22/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg23}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p023.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg20}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 23/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg24}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p024.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg21}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 24/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg25}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p025.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg22}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg24}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para2pg26}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 25/26} +\end{layer} + + +\sameslide + +\vspace*{18mm} + +\hypertarget{para2pg26}{} + +\begin{layer}{120}{0} +\putnotes{85}{10}{\input{fig/pointoncircle/p026.tex}} +\putnotew{96}{70}{\hyperlink{para2pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut|\!\lhd$}}}}} +\putnotew{101}{70}{\hyperlink{para2pg23}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}} +\putnotew{108}{70}{\hyperlink{para2pg25}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}} +\putnotew{115}{70}{\hyperlink{para3pg1}{\fbox{\Ctab{4.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\rhd\!$}}}}} +\putnotew{120}{70}{\hyperlink{para3pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}} +\putnotew{125}{70}{\hyperlink{para3pg1}{\fbox{\Ctab{2.5mm}{\scalebox{1}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}} +\putnotew{125}{76}{\scriptsize\color{black} 26/26} +\end{layer} + + + +\end{document} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.txt new file mode 100644 index 00000000..5ae018b0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0705thin.txt @@ -0,0 +1,71 @@ +%タイトル::slide0::kabegami// +タイトル::slide0// + +%%%%%%%%%%%%%%%%// +main::メインスライド1// + +%%%%%%%%%%%%%%%%// +new::画面上のボタン// + +itemize// +item::\Ltab{20mm}{Figure}静止画(Fhead+".tex")をfigに作成// +item::\Ltab{20mm}{Title}タイトル(デフォルトはslide0)をfigに作成// +item::\Ltab{20mm}{ParaF}パラパラ動画フォルダを作成\\// +\Ltab{25mm}{}Setparaで引数を書いておく// +item::\Ltab{20mm}{Slide}Texparent+".txt"からスライドを作成// +item::\Ltab{20mm}{Sum}SummaryのPDFを作成// +end// + +%%%%%%%%%%%%%%%%// +new::enumerate環境の使い方// +%repeat=3// + +%[2,-]::enumerate::[(1)]// +%[2,-]::item::番号を変えるには,例えば [(1)]// +%[3,-]::item::表示ページはリストで与える\\// +%[3,-]::\hspace*{10mm}[1],\ [1,-],\ [1..3],\ [1..3,6]など// +%[2,- ]::end// + +%%%%%%%%%%%%%%%%// +new::薄文字の使い方// +%repeat=4// + +itemize// +%thin[2,-]::item::Setslidebodyの3番目の引数で濃さを変更\\// +%thin[2,-]::\hspace*{10mm}\verb|Setslidebody(["","",0.2]);|// +%thin[3,-]::item::デフォルトは$0.1$// +%thin[4]::item::リストのページ以外が薄文字になる// +end// + +%%%%%%%%%%%%%%%%// +new::layerの使い方// +%repeat=5// + +\setthin{0}// + +itemize// +%thin[1,-]::item::layerの始まりは\verb+layer+{:}{:}\verb+{120}{0}+// +%thin[2,-]::item::layerの終わりは\verb|end|// +%thin[3,-]::item::図は\verb+putnote+{:}{:}\verb+se{80}{5}+{:}{:}\verb+grf+// +%thin[4,-]::item::図のサイズを変えるときは\\// +%thin[4,-]::\hspace*{10mm}{:}{:}\verb+grf,0.8+// +%thin[5]::item::通常の\verb|\putnote|文も使える// +end// + +%%%%%%%%%%%%%%%%// +main::メインスライド2// + +%%%%%%%%%%%%%%%%// +new::コントローラの表示// +%repeat=3,para// + +itemize// +%thin[1,-]::item::スクリプトに\verb|Setlidehyper();|を入れる// +%thin[2,-]::item::\verb|%repeat=n,para|とすると表示される// +%thin[3,-]::item::パラパラ動画のときは自動的に表示// +end// + +%%%%%%%%%%%%%%%%// +new::パラパラ動画// +%repeat=,para=pointoncircle:{0}:s{85}{10}:input// + diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.aux b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.aux new file mode 100644 index 00000000..4cbff8ae --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.aux @@ -0,0 +1,23 @@ +\relax +\providecommand\zref@newlabel[2]{} +\providecommand\hyper@newdestlabel[2]{} +\providecommand\AtEndDvi@Check{} +\AtEndDvi@Check +\providecommand\HyperFirstAtBeginDocument{\AtBeginDocument} +\HyperFirstAtBeginDocument{\ifx\hyper@anchor\@undefined +\global\let\oldcontentsline\contentsline +\gdef\contentsline#1#2#3#4{\oldcontentsline{#1}{#2}{#3}} +\global\let\oldnewlabel\newlabel +\gdef\newlabel#1#2{\newlabelxx{#1}#2} +\gdef\newlabelxx#1#2#3#4#5#6{\oldnewlabel{#1}{{#2}{#3}}} +\AtEndDocument{\ifx\hyper@anchor\@undefined +\let\contentsline\oldcontentsline +\let\newlabel\oldnewlabel +\fi} +\fi} +\global\let\hyper@last\relax +\gdef\HyperFirstAtBeginDocument#1{#1} +\providecommand*\HyPL@Entry[1]{} +\HyPL@Entry{0<</P(0)>>} +\HyPL@Entry{1<</S/D>>} +\zref@newlabel{LastPage}{\default{}\page{2}\abspage{3}} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.cdy Binary files differnew file mode 100755 index 00000000..55742178 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.log b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.log new file mode 100644 index 00000000..be064a95 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.log @@ -0,0 +1,819 @@ +This is e-pTeX, Version 3.14159265-p3.7-160201-2.6 (utf8.euc) (TeX Live 2016) (preloaded format=platex 2016.12.16) 25 JUN 2017 09:47 +entering extended mode + restricted \write18 enabled. + %&-line parsing enabled. +**s0706animate.tex +(./s0706animate.tex +pLaTeX2e <2016/05/07> (based on LaTeX2e <2016/03/31>) +Babel <3.9r> and hyphenation patterns for 83 language(s) loaded. +(/usr/local/texlive/2016/texmf-dist/tex/platex/base/jarticle.cls +Document Class: jarticle 2006/06/27 v1.6 Standard pLaTeX class +\c@@paper=\count81 +(/usr/local/texlive/2016/texmf-dist/tex/platex/base/jsize10.clo +File: jsize10.clo 2006/06/27 v1.6 Standard pLaTeX file (size option) +) +\c@part=\count82 +\c@section=\count83 +\c@subsection=\count84 +\c@subsubsection=\count85 +\c@paragraph=\count86 +\c@subparagraph=\count87 +\c@figure=\count88 +\c@table=\count89 +\abovecaptionskip=\skip41 +\belowcaptionskip=\skip42 +\symmincho=\mathgroup4 +LaTeX Font Info: Overwriting symbol font `mincho' in version `bold' +(Font) JY1/mc/m/n --> JY1/gt/m/n on input line 593. +\toclineskip=\dimen118 +\@lnumwidth=\dimen119 +\bibindent=\dimen120 +\heisei=\count90 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic.sty +\c@ketpicctra=\count91 +\c@ketpicctrb=\count92 +\c@ketpicctrc=\count93 +\c@ketpicctrd=\count94 +\c@ketpicctre=\count95 +\c@ketpicctrf=\count96 +\c@ketpicctrg=\count97 +\c@ketpicctrh=\count98 +\c@ketpicctri=\count99 +\c@ketpicctrj=\count100 +\Width=\skip43 +\Height=\skip44 +\Depth=\skip45 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer.sty +\layercurrentunit=\skip46 +) +(/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide.sty) +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsmath.sty +Package: amsmath 2016/03/10 v2.15b AMS math features +\@mathmargin=\skip47 + +For additional information on amsmath, use the `?' option. +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amstext.sty +Package: amstext 2000/06/29 v2.01 AMS text + +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsgen.sty +File: amsgen.sty 1999/11/30 v2.0 generic functions +\@emptytoks=\toks15 +\ex@=\dimen121 +)) +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsbsy.sty +Package: amsbsy 1999/11/29 v1.2d Bold Symbols +\pmbraise@=\dimen122 +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsmath/amsopn.sty +Package: amsopn 2016/03/08 v2.02 operator names +) +\inf@bad=\count101 +LaTeX Info: Redefining \frac on input line 199. +\uproot@=\count102 +\leftroot@=\count103 +LaTeX Info: Redefining \overline on input line 297. +\classnum@=\count104 +\DOTSCASE@=\count105 +LaTeX Info: Redefining \ldots on input line 394. +LaTeX Info: Redefining \dots on input line 397. +LaTeX Info: Redefining \cdots on input line 518. +\Mathstrutbox@=\box41 +\strutbox@=\box42 +\big@size=\dimen123 +LaTeX Font Info: Redeclaring font encoding OML on input line 634. +LaTeX Font Info: Redeclaring font encoding OMS on input line 635. +\macc@depth=\count106 +\c@MaxMatrixCols=\count107 +\dotsspace@=\muskip10 +\c@parentequation=\count108 +\dspbrk@lvl=\count109 +\tag@help=\toks16 +\row@=\count110 +\column@=\count111 +\maxfields@=\count112 +\andhelp@=\toks17 +\eqnshift@=\dimen124 +\alignsep@=\dimen125 +\tagshift@=\dimen126 +\tagwidth@=\dimen127 +\totwidth@=\dimen128 +\lineht@=\dimen129 +\@envbody=\toks18 +\multlinegap=\skip48 +\multlinetaggap=\skip49 +\mathdisplay@stack=\toks19 +LaTeX Info: Redefining \[ on input line 2739. +LaTeX Info: Redefining \] on input line 2740. +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsfonts/amssymb.sty +Package: amssymb 2013/01/14 v3.01 AMS font symbols + +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsfonts/amsfonts.sty +Package: amsfonts 2013/01/14 v3.01 Basic AMSFonts support +\symAMSa=\mathgroup5 +\symAMSb=\mathgroup6 +LaTeX Font Info: Overwriting math alphabet `\mathfrak' in version `bold' +(Font) U/euf/m/n --> U/euf/b/n on input line 106. +)) +(/usr/local/texlive/2016/texmf-dist/tex/latex/tools/bm.sty +Package: bm 2016/02/27 v1.2a Bold Symbol Support (DPC/FMi) +\symboldoperators=\mathgroup7 +\symboldletters=\mathgroup8 +\symboldsymbols=\mathgroup9 +\symboldmincho=\mathgroup10 +LaTeX Font Info: Redeclaring math alphabet \mathbf on input line 142. +LaTeX Info: Redefining \bm on input line 208. +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/tools/enumerate.sty +Package: enumerate 2015/07/23 v3.00 enumerate extensions (DPC) +\@enLab=\toks20 +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/graphicx.sty +Package: graphicx 2014/10/28 v1.0g Enhanced LaTeX Graphics (DPC,SPQR) + +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/keyval.sty +Package: keyval 2014/10/28 v1.15 key=value parser (DPC) +\KV@toks@=\toks21 +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/graphics.sty +Package: graphics 2016/05/09 v1.0r Standard LaTeX Graphics (DPC,SPQR) + +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/trig.sty +Package: trig 2016/01/03 v1.10 sin cos tan (DPC) +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics-cfg/graphics.cfg +File: graphics.cfg 2016/01/02 v1.10 sample graphics configuration +) +Package graphics Info: Driver file: dvipdfmx.def on input line 96. + +(/usr/local/texlive/2016/texmf-dist/tex/latex/dvipdfmx-def/dvipdfmx.def +File: dvipdfmx.def 2016/04/06 v4.08 LaTeX color/graphics driver for dvipdfmx (T +eX Live/ChoF) + +(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/infwarerr.sty +Package: infwarerr 2016/05/16 v1.4 Providing info/warning/error messages (HO) +) +(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/ltxcmds.sty +Package: ltxcmds 2016/05/16 v1.23 LaTeX kernel commands for general use (HO) +))) +\Gin@req@height=\dimen130 +\Gin@req@width=\dimen131 +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/color.sty +Package: color 2016/05/09 v1.1c Standard LaTeX Color (DPC) + +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics-cfg/color.cfg +File: color.cfg 2016/01/02 v1.6 sample color configuration +) +Package color Info: Driver file: dvips.def on input line 144. + +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/dvips.def +File: dvips.def 2015/12/30 v3.0k Driver-dependent file (DPC,SPQR) +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/graphics/dvipsnam.def +File: dvipsnam.def 2015/12/30 v3.0k Driver-dependent file (DPC,SPQR) +)) +(/usr/local/texlive/2016/texmf-dist/tex/latex/animate/animate.sty +Package: animate 2016/04/15 PDF animations from files and inline graphics + +(/usr/local/texlive/2016/texmf-dist/tex/latex/base/ifthen.sty +Package: ifthen 2014/09/29 v1.1c Standard LaTeX ifthen package (DPC) +) +(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/ifpdf.sty +Package: ifpdf 2016/05/14 v3.1 Provides the ifpdf switch +) +(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/ifluatex.sty +Package: ifluatex 2016/05/16 v1.4 Provides the ifluatex switch (HO) +Package ifluatex Info: LuaTeX not detected. +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/ifdraft.sty +Package: ifdraft 2016/05/16 v1.4 Detect class options draft and final (HO) +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/tools/calc.sty +Package: calc 2014/10/28 v4.3 Infix arithmetic (KKT,FJ) +\calc@Acount=\count113 +\calc@Bcount=\count114 +\calc@Adimen=\dimen132 +\calc@Bdimen=\dimen133 +\calc@Askip=\skip50 +\calc@Bskip=\skip51 +LaTeX Info: Redefining \setlength on input line 80. +LaTeX Info: Redefining \addtolength on input line 81. +\calc@Ccount=\count115 +\calc@Cskip=\skip52 +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/atenddvi.sty +Package: atenddvi 2016/05/16 v1.2 At end DVI hook (HO) + +(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/zref-abspage.sty +Package: zref-abspage 2016/05/16 v2.25 Module abspage for zref (HO) + +(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/zref-base.sty +Package: zref-base 2016/05/16 v2.25 Module base for zref (HO) + +(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/kvsetkeys.sty +Package: kvsetkeys 2016/05/16 v1.17 Key value parser (HO) + +(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/etexcmds.sty +Package: etexcmds 2016/05/16 v1.6 Avoid name clashes with e-TeX commands (HO) +Package etexcmds Info: Could not find \expanded. +(etexcmds) That can mean that you are not using pdfTeX 1.50 or +(etexcmds) that some package has redefined \expanded. +(etexcmds) In the latter case, load this package earlier. +)) +(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/kvdefinekeys.sty +Package: kvdefinekeys 2016/05/16 v1.4 Define keys (HO) +) +(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/pdftexcmds.sty +Package: pdftexcmds 2016/05/10 v0.21 Utility functions of pdfTeX for LuaTeX (HO +) +Package pdftexcmds Info: LuaTeX not detected. +Package pdftexcmds Info: pdfTeX >= 1.30 not detected. +Package pdftexcmds Info: \pdf@primitive is available. +Package pdftexcmds Info: \pdf@ifprimitive is available. +Package pdftexcmds Info: \pdfdraftmode not found. +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/auxhook.sty +Package: auxhook 2016/05/16 v1.4 Hooks for auxiliary files (HO) +) +Package zref Info: New property list: main on input line 759. +Package zref Info: New property: default on input line 760. +Package zref Info: New property: page on input line 761. +) +(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/atbegshi.sty +Package: atbegshi 2016/05/16 v1.17 At begin shipout hook (HO) +) +\c@abspage=\count116 +Package zref Info: New property: abspage on input line 62. +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/zref-lastpage.sty +Package: zref-lastpage 2016/05/16 v2.25 Module lastpage for zref (HO) + +(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/atveryend.sty +Package: atveryend 2016/05/16 v1.9 Hooks at the very end of document (HO) +Package atveryend Info: \enddocument detected (standard20110627). +) +Package zref Info: New property list: LastPage on input line 55. +)) +(/usr/local/texlive/2016/texmf-dist/tex/latex/animate/animfp.sty +Package: animfp 2009/07/23 fixed point addition for animate.sty +\afp@xs=\count117 +\afp@xia=\count118 +\afp@xib=\count119 +\afp@xfa=\count120 +\afp@xfb=\count121 +\afp@rega=\count122 +\afp@regb=\count123 +\afp@regs=\count124 +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/media9/pdfbase.sty +(/usr/local/texlive/2016/texmf-dist/tex/latex/l3kernel/expl3.sty +Package: expl3 2016/05/18 v6512 L3 programming layer (loader) + +(/usr/local/texlive/2016/texmf-dist/tex/latex/l3kernel/expl3-code.tex +Package: expl3 2016/05/18 v6512 L3 programming layer (code) +L3 Module: l3bootstrap 2016/02/12 v6412 L3 Bootstrap code +L3 Module: l3names 2016/03/11 v6433 L3 Namespace for primitives +L3 Module: l3basics 2015/11/22 v6315 L3 Basic definitions +L3 Module: l3expan 2015/09/10 v5983 L3 Argument expansion +L3 Module: l3tl 2016/03/26 v6465 L3 Token lists +L3 Module: l3str 2016/03/24 v6441 L3 Strings +L3 Module: l3seq 2015/08/05 v5777 L3 Sequences and stacks +L3 Module: l3int 2016/03/24 v6441 L3 Integers +\c_max_int=\count125 +\l_tmpa_int=\count126 +\l_tmpb_int=\count127 +\g_tmpa_int=\count128 +\g_tmpb_int=\count129 +L3 Module: l3quark 2015/08/17 v5855 L3 Quarks +L3 Module: l3prg 2015/11/01 v6216 L3 Control structures +\g__prg_map_int=\count130 +L3 Module: l3clist 2015/09/02 v5901 L3 Comma separated lists +L3 Module: l3token 2016/04/03 v6470 L3 Experimental token manipulation +L3 Module: l3prop 2016/01/05 v6366 L3 Property lists +L3 Module: l3msg 2016/03/26 v6464 L3 Messages +L3 Module: l3file 2016/03/25 v6458 L3 File and I/O operations +\l_iow_line_count_int=\count131 +\l__iow_target_count_int=\count132 +\l__iow_current_line_int=\count133 +\l__iow_current_word_int=\count134 +\l__iow_current_indentation_int=\count135 +L3 Module: l3skip 2016/01/05 v6366 L3 Dimensions and skips +\c_zero_dim=\dimen134 +\c_max_dim=\dimen135 +\l_tmpa_dim=\dimen136 +\l_tmpb_dim=\dimen137 +\g_tmpa_dim=\dimen138 +\g_tmpb_dim=\dimen139 +\c_zero_skip=\skip53 +\c_max_skip=\skip54 +\l_tmpa_skip=\skip55 +\l_tmpb_skip=\skip56 +\g_tmpa_skip=\skip57 +\g_tmpb_skip=\skip58 +\c_zero_muskip=\muskip11 +\c_max_muskip=\muskip12 +\l_tmpa_muskip=\muskip13 +\l_tmpb_muskip=\muskip14 +\g_tmpa_muskip=\muskip15 +\g_tmpb_muskip=\muskip16 +L3 Module: l3keys 2015/11/17 v6284 L3 Key-value interfaces +\g__keyval_level_int=\count136 +\l_keys_choice_int=\count137 +L3 Module: l3fp 2016/03/26 v6465 L3 Floating points +\c__fp_leading_shift_int=\count138 +\c__fp_middle_shift_int=\count139 +\c__fp_trailing_shift_int=\count140 +\c__fp_big_leading_shift_int=\count141 +\c__fp_big_middle_shift_int=\count142 +\c__fp_big_trailing_shift_int=\count143 +\c__fp_Bigg_leading_shift_int=\count144 +\c__fp_Bigg_middle_shift_int=\count145 +\c__fp_Bigg_trailing_shift_int=\count146 +L3 Module: l3box 2015/08/09 v5822 L3 Experimental boxes +\c_empty_box=\box43 +\l_tmpa_box=\box44 +\l_tmpb_box=\box45 +\g_tmpa_box=\box46 +\g_tmpb_box=\box47 +L3 Module: l3coffins 2016/05/17 v6508 L3 Coffin code layer +\l__coffin_internal_box=\box48 +\l__coffin_internal_dim=\dimen140 +\l__coffin_offset_x_dim=\dimen141 +\l__coffin_offset_y_dim=\dimen142 +\l__coffin_x_dim=\dimen143 +\l__coffin_y_dim=\dimen144 +\l__coffin_x_prime_dim=\dimen145 +\l__coffin_y_prime_dim=\dimen146 +\c_empty_coffin=\box49 +\l__coffin_aligned_coffin=\box50 +\l__coffin_aligned_internal_coffin=\box51 +\l_tmpa_coffin=\box52 +\l_tmpb_coffin=\box53 +\l__coffin_display_coffin=\box54 +\l__coffin_display_coord_coffin=\box55 +\l__coffin_display_pole_coffin=\box56 +\l__coffin_display_offset_dim=\dimen147 +\l__coffin_display_x_dim=\dimen148 +\l__coffin_display_y_dim=\dimen149 +L3 Module: l3color 2014/08/23 v5354 L3 Experimental color support +L3 Module: l3sys 2015/09/25 v6087 L3 Experimental system/runtime functions +L3 Module: l3candidates 2016/05/13 v6484 L3 Experimental additions to l3kernel +\l__box_top_dim=\dimen150 +\l__box_bottom_dim=\dimen151 +\l__box_left_dim=\dimen152 +\l__box_right_dim=\dimen153 +\l__box_top_new_dim=\dimen154 +\l__box_bottom_new_dim=\dimen155 +\l__box_left_new_dim=\dimen156 +\l__box_right_new_dim=\dimen157 +\l__box_internal_box=\box57 +\l__coffin_bounding_shift_dim=\dimen158 +\l__coffin_left_corner_dim=\dimen159 +\l__coffin_right_corner_dim=\dimen160 +\l__coffin_bottom_corner_dim=\dimen161 +\l__coffin_top_corner_dim=\dimen162 +\l__coffin_scaled_total_height_dim=\dimen163 +\l__coffin_scaled_width_dim=\dimen164 +L3 Module: l3luatex 2016/03/26 v6465 L3 Experimental LuaTeX-specific functions +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/l3kernel/l3dvipdfmx.def +File: l3dvidpfmx.def 2016/03/26 v6465 L3 Experimental driver: dvipdfmx +\l__driver_tmp_box=\box58 +)) +(/usr/local/texlive/2016/texmf-dist/tex/latex/l3packages/l3keys2e/l3keys2e.sty +Package: l3keys2e 2016/05/18 v6512 LaTeX2e option processing using LaTeX3 keys +) +Package: pdfbase 2016/03/22 v0.8 driver independent access to low-level PDF fea +tures +\g_pbs_obj_int=\count147 +\g_pbs_oc_int=\count148 +) (/usr/local/texlive/2016/texmf-dist/tex/latex/ocgx2/ocgbase.sty +Package: ocgbase 2016/03/11 v0.6 support package for ocgx2.sty +) +\@anim@box=\box59 +\@anim@measbox=\box60 +\@anim@tmpdima=\dimen165 +\@anim@tmpdimb=\dimen166 +\@anim@num=\count149 +\@anim@curframe=\count150 +\@anim@curframe@zb=\count151 +\@anim@resizeflags=\count152 +\@anim@skipfram=\count153 +\@anim@mulframecnt=\count154 +\@anim@@tmlnfile=\read1 +\@anim@tmpcnt=\count155 +\c@@anim@ltxcnt=\count156 +\@anim@curlayer=\count157 +\@anim@lineno=\count158 +\@anim@curfield=\count159 +\@anim@@resizeflags=\count160 +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/hyperref/hyperref.sty +Package: hyperref 2016/05/05 v6.83n Hypertext links for LaTeX + +(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty +Package: hobsub-hyperref 2016/05/16 v1.14 Bundle oberdiek, subset hyperref (HO) + + +(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty +Package: hobsub-generic 2016/05/16 v1.14 Bundle oberdiek, subset generic (HO) +Package: hobsub 2016/05/16 v1.14 Construct package bundles (HO) +Package hobsub Info: Skipping package `infwarerr' (already loaded). +Package hobsub Info: Skipping package `ltxcmds' (already loaded). +Package hobsub Info: Skipping package `ifluatex' (already loaded). +Package: ifvtex 2016/05/16 v1.6 Detect VTeX and its facilities (HO) +Package ifvtex Info: VTeX not detected. +Package: intcalc 2016/05/16 v1.2 Expandable calculations with integers (HO) +Package hobsub Info: Skipping package `ifpdf' (already loaded). +Package hobsub Info: Skipping package `etexcmds' (already loaded). +Package hobsub Info: Skipping package `kvsetkeys' (already loaded). +Package hobsub Info: Skipping package `kvdefinekeys' (already loaded). +Package hobsub Info: Skipping package `pdftexcmds' (already loaded). +Package: pdfescape 2016/05/16 v1.14 Implements pdfTeX's escape features (HO) +Package: bigintcalc 2016/05/16 v1.4 Expandable calculations on big integers (HO +) +Package: bitset 2016/05/16 v1.2 Handle bit-vector datatype (HO) +Package: uniquecounter 2016/05/16 v1.3 Provide unlimited unique counter (HO) +) +Package hobsub Info: Skipping package `hobsub' (already loaded). +Package: letltxmacro 2016/05/16 v1.5 Let assignment for LaTeX macros (HO) +Package: hopatch 2016/05/16 v1.3 Wrapper for package hooks (HO) +Package: xcolor-patch 2016/05/16 xcolor patch +Package hobsub Info: Skipping package `atveryend' (already loaded). +Package hobsub Info: Skipping package `atbegshi' (already loaded). +Package: refcount 2016/05/16 v3.5 Data extraction from label references (HO) +Package: hycolor 2016/05/16 v1.8 Color options for hyperref/bookmark (HO) +) +(/usr/local/texlive/2016/texmf-dist/tex/generic/ifxetex/ifxetex.sty +Package: ifxetex 2010/09/12 v0.6 Provides ifxetex conditional +) +(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/kvoptions.sty +Package: kvoptions 2016/05/16 v3.12 Key value format for package options (HO) +) +\@linkdim=\dimen167 +\Hy@linkcounter=\count161 +\Hy@pagecounter=\count162 + +(/usr/local/texlive/2016/texmf-dist/tex/latex/hyperref/pd1enc.def +File: pd1enc.def 2016/05/05 v6.83n Hyperref: PDFDocEncoding definition (HO) +) +\Hy@SavedSpaceFactor=\count163 + +(/usr/local/texlive/2016/texmf-dist/tex/latex/latexconfig/hyperref.cfg +File: hyperref.cfg 2002/06/06 v1.2 hyperref configuration of TeXLive +) +Package hyperref Info: Option `colorlinks' set `true' on input line 4322. +Package hyperref Info: Hyper figures OFF on input line 4446. +Package hyperref Info: Link nesting OFF on input line 4451. +Package hyperref Info: Hyper index ON on input line 4454. +Package hyperref Info: Plain pages OFF on input line 4461. +Package hyperref Info: Backreferencing OFF on input line 4466. +Package hyperref Info: Implicit mode ON; LaTeX internals redefined. +Package hyperref Info: Bookmarks ON on input line 4691. +\c@Hy@tempcnt=\count164 + +(/usr/local/texlive/2016/texmf-dist/tex/latex/url/url.sty +\Urlmuskip=\muskip17 +Package: url 2013/09/16 ver 3.4 Verb mode for urls, etc. +) +LaTeX Info: Redefining \url on input line 5044. +\XeTeXLinkMargin=\dimen168 +\Fld@menulength=\count165 +\Field@Width=\dimen169 +\Fld@charsize=\dimen170 +Package hyperref Info: Hyper figures OFF on input line 6298. +Package hyperref Info: Link nesting OFF on input line 6303. +Package hyperref Info: Hyper index ON on input line 6306. +Package hyperref Info: backreferencing OFF on input line 6313. +Package hyperref Info: Link coloring ON on input line 6316. +Package hyperref Info: Link coloring with OCG OFF on input line 6323. +Package hyperref Info: PDF/A mode OFF on input line 6328. +LaTeX Info: Redefining \ref on input line 6368. +LaTeX Info: Redefining \pageref on input line 6372. +\Hy@abspage=\count166 +\c@Item=\count167 +\c@Hfootnote=\count168 +) + +Package hyperref Message: Driver: hdvipdfm. + +(/usr/local/texlive/2016/texmf-dist/tex/latex/hyperref/hdvipdfm.def +File: hdvipdfm.def 2016/05/05 v6.83n Hyperref driver for dvipdfm +\pdfm@box=\box61 +\c@Hy@AnnotLevel=\count169 +\HyField@AnnotCount=\count170 +\Fld@listcount=\count171 +\c@bookmark@seq@number=\count172 + +(/usr/local/texlive/2016/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty +Package: rerunfilecheck 2016/05/16 v1.8 Rerun checks for auxiliary files (HO) +Package uniquecounter Info: New unique counter `rerunfilecheck' on input line 2 +82. +) +\Hy@SectionHShift=\skip59 +) +(./s0706animate.aux) +\openout1 = `s0706animate.aux'. + +LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for JY1/mc/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for JT1/mc/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +LaTeX Font Info: Checking defaults for PD1/pdf/m/n on input line 25. +LaTeX Font Info: ... okay on input line 25. +\AtBeginShipoutBox=\box62 +Package hyperref Info: Link coloring ON on input line 25. + +(/usr/local/texlive/2016/texmf-dist/tex/latex/hyperref/nameref.sty +Package: nameref 2012/10/27 v2.43 Cross-referencing by name of section + +(/usr/local/texlive/2016/texmf-dist/tex/generic/oberdiek/gettitlestring.sty +Package: gettitlestring 2016/05/16 v1.5 Cleanup title references (HO) +) +\c@section@level=\count173 +) +LaTeX Info: Redefining \ref on input line 25. +LaTeX Info: Redefining \pageref on input line 25. +LaTeX Info: Redefining \nameref on input line 25. + +(./s0706animate.out) (./s0706animate.out) +\@outlinefile=\write3 +\openout3 = `s0706animate.out'. + + (./fig/slide0.tex +LaTeX Font Info: Font shape `JT1/mc/bx/n' in size <14.4> not available +(Font) Font shape `JT1/gt/m/n' tried instead on input line 1. +LaTeX Font Info: Font shape `JY1/mc/bx/n' in size <14.4> not available +(Font) Font shape `JY1/gt/m/n' tried instead on input line 1. +LaTeX Font Info: Font shape `JT1/mc/bx/n' in size <24.88> not available +(Font) Font shape `JT1/gt/m/n' tried instead on input line 5. +LaTeX Font Info: Font shape `JY1/mc/bx/n' in size <24.88> not available +(Font) Font shape `JY1/gt/m/n' tried instead on input line 5. +) (./fig/slide0.tex) (./fig/slide0.tex) (./fig/slide0.tex) [0 + +] +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + + +[1] (./fig/animpointoncircle.tex +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +01.tex +LaTeX Font Info: Font shape `JT1/mc/bx/n' in size <9> not available +(Font) Font shape `JT1/gt/m/n' tried instead on input line 8. +LaTeX Font Info: Font shape `JY1/mc/bx/n' in size <9> not available +(Font) Font shape `JY1/gt/m/n' tried instead on input line 8. +LaTeX Font Info: Try loading font information for U+msa on input line 22. + (/usr/local/texlive/2016/texmf-dist/tex/latex/amsfonts/umsa.fd +File: umsa.fd 2013/01/14 v3.01 AMS symbols A +) +LaTeX Font Info: Try loading font information for U+msb on input line 22. + +(/usr/local/texlive/2016/texmf-dist/tex/latex/amsfonts/umsb.fd +File: umsb.fd 2013/01/14 v3.01 AMS symbols B +)) <a0,fr0> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +02.tex) <a0,fr1> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +03.tex) <a0,fr2> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +04.tex) <a0,fr3> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +05.tex) <a0,fr4> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +06.tex) <a0,fr5> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +07.tex) <a0,fr6> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +08.tex) <a0,fr7> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +09.tex) <a0,fr8> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +10.tex) <a0,fr9> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +11.tex) <a0,fr10> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +12.tex) <a0,fr11> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +13.tex) <a0,fr12> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +14.tex) <a0,fr13> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +15.tex) <a0,fr14> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +16.tex) <a0,fr15> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +17.tex) <a0,fr16> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +18.tex) <a0,fr17> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +19.tex) <a0,fr18> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +20.tex) <a0,fr19> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +21.tex) <a0,fr20> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +22.tex) <a0,fr21> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +23.tex) <a0,fr22> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +24.tex) <a0,fr23> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +25.tex) <a0,fr24> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +26.tex) <a0,fr25>) (./fig/animpointoncircle.tex +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +01.tex) <a1,fr0> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +02.tex) <a1,fr1> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +03.tex) <a1,fr2> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +04.tex) <a1,fr3> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +05.tex) <a1,fr4> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +06.tex) <a1,fr5> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +07.tex) <a1,fr6> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +08.tex) <a1,fr7> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +09.tex) <a1,fr8> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +10.tex) <a1,fr9> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +11.tex) <a1,fr10> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +12.tex) <a1,fr11> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +13.tex) <a1,fr12> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +14.tex) <a1,fr13> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +15.tex) <a1,fr14> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +16.tex) <a1,fr15> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +17.tex) <a1,fr16> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +18.tex) <a1,fr17> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +19.tex) <a1,fr18> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +20.tex) <a1,fr19> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +21.tex) <a1,fr20> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +22.tex) <a1,fr21> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +23.tex) <a1,fr22> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +24.tex) <a1,fr23> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +25.tex) <a1,fr24> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +26.tex) <a1,fr25>) (./fig/animpointoncircle.tex +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +01.tex) <a2,fr0> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +02.tex) <a2,fr1> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +03.tex) <a2,fr2> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +04.tex) <a2,fr3> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +05.tex) <a2,fr4> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +06.tex) <a2,fr5> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +07.tex) <a2,fr6> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +08.tex) <a2,fr7> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +09.tex) <a2,fr8> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +10.tex) <a2,fr9> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +11.tex) <a2,fr10> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +12.tex) <a2,fr11> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +13.tex) <a2,fr12> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +14.tex) <a2,fr13> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +15.tex) <a2,fr14> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +16.tex) <a2,fr15> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +17.tex) <a2,fr16> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +18.tex) <a2,fr17> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +19.tex) <a2,fr18> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +20.tex) <a2,fr19> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +21.tex) <a2,fr20> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +22.tex) <a2,fr21> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +23.tex) <a2,fr22> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +24.tex) <a2,fr23> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +25.tex) <a2,fr24> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +26.tex) <a2,fr25>) (./fig/animpointoncircle.tex +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +01.tex) <a3,fr0> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +02.tex) <a3,fr1> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +03.tex) <a3,fr2> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +04.tex) <a3,fr3> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +05.tex) <a3,fr4> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +06.tex) <a3,fr5> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +07.tex) <a3,fr6> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +08.tex) <a3,fr7> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +09.tex) <a3,fr8> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +10.tex) <a3,fr9> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +11.tex) <a3,fr10> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +12.tex) <a3,fr11> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +13.tex) <a3,fr12> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +14.tex) <a3,fr13> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +15.tex) <a3,fr14> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +16.tex) <a3,fr15> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +17.tex) <a3,fr16> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +18.tex) <a3,fr17> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +19.tex) <a3,fr18> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +20.tex) <a3,fr19> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +21.tex) <a3,fr20> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +22.tex) <a3,fr21> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +23.tex) <a3,fr22> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +24.tex) <a3,fr23> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +25.tex) <a3,fr24> +(/Users/takatoosetsuo/ketcindy/ketsample/samples/s07slides/fig/pointoncircle/p0 +26.tex) <a3,fr25>) +Package atveryend Info: Empty hook `BeforeClearDocument' on input line 72. + +Overfull \vbox (6.44444pt too high) has occurred while \output is active [] + +Package atenddvi Info: Last page = 3. + +[2] +Package atveryend Info: Executing hook `AfterLastShipout' on input line 72. + (./s0706animate.aux) +Package atveryend Info: Empty hook `AtVeryEndDocument' on input line 72. +Package atveryend Info: Executing hook `AtEndAfterFileList' on input line 72. +Package rerunfilecheck Info: File `s0706animate.out' has not changed. +(rerunfilecheck) Checksum: D41D8CD98F00B204E9800998ECF8427E;0. +Package atveryend Info: Empty hook `AtVeryVeryEnd' on input line 72. + ) +Here is how much of TeX's memory you used: + 14240 strings out of 493693 + 260237 string characters out of 6149786 + 494692 words of memory out of 5000000 + 17400 multiletter control sequences out of 15000+600000 + 15235 words of font info for 61 fonts, out of 8000000 for 9000 + 929 hyphenation exceptions out of 8191 + 48i,12n,65p,10472b,432s stack positions out of 5000i,500n,10000p,200000b,80000s + +Output written on s0706animate.dvi (3 pages, 117852 bytes). diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.out b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.out new file mode 100644 index 00000000..e69de29b --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.out diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.pdf b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.pdf Binary files differnew file mode 100644 index 00000000..b63a5929 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.pdf diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.tex b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.tex new file mode 100644 index 00000000..8a215859 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.tex @@ -0,0 +1,72 @@ +%%% タイトル s0706animate +\documentclass[landscape,10pt]{jarticle} +\special{papersize=\the\paperwidth,\the\paperheight} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketpic} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketlayer} +\usepackage{/Users/takatoosetsuo/ketcindy/ketpicstyle/ketslide} +\usepackage{amsmath,amssymb} +\usepackage{bm,enumerate} +\usepackage[dvipdfmx]{graphicx} +\usepackage{color} +\definecolor{slidecolora}{cmyk}{0.98,0.13,0,0.43} +\definecolor{slidecolorb}{cmyk}{0,0.32,0.52,0} +\definecolor{slidecolorc}{cmyk}{0,0.32,0.52,0} +\definecolor{slidecolord}{cmyk}{0,0.32,0.52,0} +\definecolor{slidecolore}{cmyk}{0,0,0,0.5} +\definecolor{slidecolorf}{cmyk}{0,0,0,0.5} +\definecolor{slidecolori}{cmyk}{0.98,0.13,0,0.43} +\usepackage[dvipdfmx]{animate} +\usepackage[dvipdfmx,colorlinks=true,linkcolor=blue,filecolor=blue]{hyperref} +\ketmarginJ +\ketslideinit + +\pagestyle{headings} + +\begin{document} + +\begin{layer}{120}{0} +\putnotese{0}{0}{\input{fig/slide0.tex}} +\end{layer} + +\def\mainslidetitley{22} +\def\ketcletter{slidecolora} +\def\ketcbox{slidecolorb} +\def\ketdbox{slidecolorc} +\def\ketcframe{slidecolord} +\def\ketcshadow{slidecolore} +\def\ketdshadow{slidecolorf} +\def\slidetitlex{6} +\def\slidetitlesize{1.3} +\def\mketcletter{slidecolori} +\def\mketcbox{yellow} +\def\mketdbox{yellow} +\def\mketcframe{yellow} +\def\mslidetitlex{62} +\def\mslidetitlesize{2} + +\color{black} +\Large\bf\boldmath +\thispagestyle{empty} +\addtocounter{page}{-1} + +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + +\mainslide{メインスライド1} + +%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%% + +\newslide{極座標と曲線(Animation)} + +\vspace*{18mm} + + +\begin{layer}{120}{0} +\putnotes{65}{5}{\input{fig/animpointoncircle.tex}} +\end{layer} + + +\end{document} diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.txt new file mode 100644 index 00000000..9222ae6e --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s07slides/s0706animate.txt @@ -0,0 +1,12 @@ +%タイトル::slide0::kabegami// +タイトル::slide0// + +%%%%%%%%%%%%%%%%// +main::メインスライド1// + +%%%%%%%%%%%%%%%%// +new::極座標と曲線(Animation)// + +\begin{center}// +\input{fig/animpointoncircle}// +\end{center}//
\ No newline at end of file diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0801plotR.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0801plotR.cdy Binary files differnew file mode 100644 index 00000000..54c66e5a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0801plotR.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0802plotR2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0802plotR2.cdy Binary files differnew file mode 100644 index 00000000..c782ff96 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0802plotR2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0803boxplot.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0803boxplot.cdy Binary files differnew file mode 100644 index 00000000..1522f3d0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0803boxplot.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0804histplot.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0804histplot.cdy Binary files differnew file mode 100644 index 00000000..dadd4f79 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0804histplot.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0805random.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0805random.cdy Binary files differnew file mode 100644 index 00000000..5dc6c002 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0805random.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0806dataframe.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0806dataframe.cdy Binary files differnew file mode 100644 index 00000000..037b205c --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0806dataframe.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0807timecount.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0807timecount.cdy Binary files differnew file mode 100644 index 00000000..ab06c7a0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0807timecount.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0808ttest.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0808ttest.cdy Binary files differnew file mode 100644 index 00000000..a5a47941 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s08R/s0808ttest.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0901parabolic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0901parabolic.cdy Binary files differnew file mode 100644 index 00000000..a24c0394 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0901parabolic.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0902cone.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0902cone.cdy Binary files differnew file mode 100644 index 00000000..e997e2df --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0902cone.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0903saddle.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0903saddle.cdy Binary files differnew file mode 100644 index 00000000..6ffda131 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0903saddle.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0904sphere.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0904sphere.cdy Binary files differnew file mode 100644 index 00000000..33a7830a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0904sphere.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0905wireframe.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0905wireframe.cdy Binary files differnew file mode 100644 index 00000000..c8047082 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0905wireframe.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0906intersectcrvsf.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0906intersectcrvsf.cdy Binary files differnew file mode 100644 index 00000000..f6b84503 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0906intersectcrvsf.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0907multisurfaces.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0907multisurfaces.cdy Binary files differnew file mode 100644 index 00000000..aa4ee7e1 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0907multisurfaces.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0908conecut.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0908conecut.cdy Binary files differnew file mode 100644 index 00000000..8a636e54 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0908conecut.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0909totaldiff.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0909totaldiff.cdy Binary files differnew file mode 100644 index 00000000..e07e02fc --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s09surface/s0909totaldiff.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1000list.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1000list.cdy Binary files differnew file mode 100644 index 00000000..daa92575 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1000list.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1001basic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1001basic.cdy Binary files differnew file mode 100644 index 00000000..bd14ba85 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1001basic.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1002equation.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1002equation.cdy Binary files differnew file mode 100644 index 00000000..299dbb25 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1002equation.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1003trig.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1003trig.cdy Binary files differnew file mode 100644 index 00000000..047a0e77 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1003trig.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1004calcby.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1004calcby.cdy Binary files differnew file mode 100644 index 00000000..f4babdb7 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1004calcby.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1005diffint.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1005diffint.cdy Binary files differnew file mode 100644 index 00000000..7221c5c0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1005diffint.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1006calculus.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1006calculus.cdy Binary files differnew file mode 100644 index 00000000..89d08f6d --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1006calculus.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1007linalg.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1007linalg.cdy Binary files differnew file mode 100644 index 00000000..647b466b --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1007linalg.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1008idtable.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1008idtable.cdy Binary files differnew file mode 100644 index 00000000..79b0dbdd --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1008idtable.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1009diffeq.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1009diffeq.cdy Binary files differnew file mode 100644 index 00000000..4d31709a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1009diffeq.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier.cdy Binary files differnew file mode 100644 index 00000000..b648d937 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier2.cdy Binary files differnew file mode 100644 index 00000000..02a0b920 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier3.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier3.cdy Binary files differnew file mode 100644 index 00000000..66cb8830 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1010fourier3.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop.cdy Binary files differnew file mode 100644 index 00000000..1178361b --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop2.cdy Binary files differnew file mode 100644 index 00000000..82944bc0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1011matrixop2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1012fourierpw.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1012fourierpw.cdy Binary files differnew file mode 100644 index 00000000..4d75c163 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1012fourierpw.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1013for.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1013for.cdy Binary files differnew file mode 100644 index 00000000..0a2b0367 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1013for.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1014incdec2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1014incdec2.cdy Binary files differnew file mode 100644 index 00000000..5201f949 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1014incdec2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1015primenumber.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1015primenumber.cdy Binary files differnew file mode 100644 index 00000000..9e7b1f9e --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s10maxima/s1015primenumber.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1100list.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1100list.cdy Binary files differnew file mode 100644 index 00000000..83c54a24 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1100list.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1101calculator1.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1101calculator1.cdy Binary files differnew file mode 100644 index 00000000..d321b85c --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1101calculator1.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1102calculator2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1102calculator2.cdy Binary files differnew file mode 100644 index 00000000..6b57d7e0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1102calculator2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1103calcby.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1103calcby.cdy Binary files differnew file mode 100644 index 00000000..44e7def2 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1103calcby.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1104diff.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1104diff.cdy Binary files differnew file mode 100644 index 00000000..fbe92c41 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1104diff.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fint101.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fint101.cdy Binary files differnew file mode 100644 index 00000000..3871bf27 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fint101.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fzero109.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fzero109.cdy Binary files differnew file mode 100644 index 00000000..a6dcfe79 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1105fzero109.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1106fmmx110.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1106fmmx110.cdy Binary files differnew file mode 100644 index 00000000..699963b8 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1106fmmx110.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1110integrate.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1110integrate.cdy Binary files differnew file mode 100644 index 00000000..9346f12e --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1110integrate.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1111grobner1.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1111grobner1.cdy Binary files differnew file mode 100644 index 00000000..50ad1503 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1111grobner1.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1112residue.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1112residue.cdy Binary files differnew file mode 100644 index 00000000..f4e70933 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s11asir/s1112residue.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate.cdy Binary files differnew file mode 100644 index 00000000..9e45e8df --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate2.cdy Binary files differnew file mode 100644 index 00000000..a1e279e9 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1201integrate2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202calcby.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202calcby.cdy Binary files differnew file mode 100644 index 00000000..2387ed40 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202calcby.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202equations.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202equations.cdy Binary files differnew file mode 100644 index 00000000..2441a5d8 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s12fricas/s1202equations.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1301basic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1301basic.cdy Binary files differnew file mode 100644 index 00000000..38300c52 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1301basic.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1303objparts.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1303objparts.cdy Binary files differnew file mode 100644 index 00000000..a4740a24 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1303objparts.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1304symbol.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1304symbol.cdy Binary files differnew file mode 100644 index 00000000..87ef5c1c --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1304symbol.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1305hyperpara.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1305hyperpara.cdy Binary files differnew file mode 100644 index 00000000..80ce5bd7 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1305hyperpara.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1306poly.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1306poly.cdy Binary files differnew file mode 100644 index 00000000..0a37dd8a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1306poly.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1307poly2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1307poly2.cdy Binary files differnew file mode 100644 index 00000000..96e2d15a --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1307poly2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1308discont.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1308discont.cdy Binary files differnew file mode 100644 index 00000000..1dac04a2 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1308discont.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1309discont2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1309discont2.cdy Binary files differnew file mode 100644 index 00000000..6f7ccd19 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1309discont2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1310totaldiff.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1310totaldiff.cdy Binary files differnew file mode 100644 index 00000000..631105fc --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1310totaldiff.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1311plate.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1311plate.cdy Binary files differnew file mode 100644 index 00000000..c9693b26 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1311plate.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1312plane.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1312plane.cdy Binary files differnew file mode 100644 index 00000000..ff5faa44 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1312plane.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1313changescale.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1313changescale.cdy Binary files differnew file mode 100644 index 00000000..cdff2f09 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1313changescale.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1314knot.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1314knot.cdy Binary files differnew file mode 100644 index 00000000..c52cd3ed --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s13meshlab/s1314knot.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/errormessageR.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/errormessageR.txt new file mode 100644 index 00000000..e69de29b --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/errormessageR.txt diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/kc.sh b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/kc.sh new file mode 100755 index 00000000..fdc5e838 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/kc.sh @@ -0,0 +1,4 @@ +#!/bin/sh +cd "/Users/takatoosetsuo/ketcindy/ketsample/samples/s14dataprocessing" +R --vanilla --slave < s1401csvprocessingsep.r >& errormessageR.txt +exit 0 diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/resultR.txt b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/resultR.txt new file mode 100644 index 00000000..1259c849 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/resultR.txt @@ -0,0 +1 @@ +////
\ No newline at end of file diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1401csvprocessing.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1401csvprocessing.cdy Binary files differnew file mode 100755 index 00000000..1e441c04 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1401csvprocessing.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1402copypaste.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1402copypaste.cdy Binary files differnew file mode 100755 index 00000000..7a2a062b --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1402copypaste.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1403maketableJ.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1403maketableJ.cdy Binary files differnew file mode 100644 index 00000000..1ac0b8a1 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/s1403maketableJ.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample1.csv b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample1.csv new file mode 100644 index 00000000..38d5fa8c --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample1.csv @@ -0,0 +1,10 @@ +63,33,59,64,52 +61,26,47,27,59 +40,52,24,48,26 +63,56,44,40,34 +75,34,64,76,61 +58,63,53,50,68 +65,38,81,59,23 +54,65,41,76,53 +75,61,42,58,40 +44,42,58,41,56 diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample2.csv b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample2.csv new file mode 100644 index 00000000..f6273be2 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s14dataprocessing/sample2.csv @@ -0,0 +1,10 @@ +50,68,57,65,60 +64,48,65,61,72 +41,45,31,51,47 +54,55,39,47,39 +34,52,43,50,47 +54,31,58,38,79 +14,36,56,46,63 +78,54,40,64,42 +40,44,68,59,46 +41,65,40,44,37 diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1501mant.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1501mant.cdy Binary files differnew file mode 100644 index 00000000..5c5e4681 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1501mant.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1502torus.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1502torus.cdy Binary files differnew file mode 100644 index 00000000..73b7c10c --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1502torus.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1503parabola.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1503parabola.cdy Binary files differnew file mode 100644 index 00000000..c68725b7 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1503parabola.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1504conecut.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1504conecut.cdy Binary files differnew file mode 100644 index 00000000..a0ac796b --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1504conecut.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1505skeleton.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1505skeleton.cdy Binary files differnew file mode 100644 index 00000000..6a354f01 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1505skeleton.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1506skeleton2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1506skeleton2.cdy Binary files differnew file mode 100644 index 00000000..dcf2f93d --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samples/s15C/s1506skeleton2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js01basic.cdy b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js01basic.cdy Binary files differnew file mode 100755 index 00000000..e78fe2b3 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js01basic.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js01basicketcindy.html b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js01basicketcindy.html new file mode 100644 index 00000000..6ae9f06e --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js01basicketcindy.html @@ -0,0 +1,6491 @@ +<!DOCTYPE html> +<html> +<head> + <meta charset="UTF-8"> + + <title>js01basic.cdy</title> + <style type="text/css"> + * { + margin: 0px; + padding: 0px; + } + + #CSConsole { + background-color: #FAFAFA; + border-top: 1px solid #333333; + bottom: 0px; + height: 200px; + overflow-y: scroll; + position: fixed; + width: 100%; + } + </style> + <link rel="stylesheet" href="http://cindyjs.org/dist/v0.8/CindyJS.css"> + <script type="text/javascript" src="http://cindyjs.org/dist/v0.8/Cindy.js"></script> + <script type="text/javascript" src="http://cindyjs.org/dist/v0.8/KetCindyPlugin.js"></script> +<script id="csdraw" type="text/x-cindyscript"> +Fhead="js01basic"; // write a head name +Texparent=""; +Ketinit(); +Changework(Dirhead+"/ketsample/samplesJS"); + +Addax(1); + +Listplot([A,B,C,A],["do"]); +Plotdata("1","sin(x)","x"); +Expr([D,"e","y=\sin x"]); +Letter([A,"w","A",B,"n","B",C,"e","C"]); +Windispg(); +//Help("List"); + +; +</script> +<script id="csinit" type="text/x-cindyscript"> +Ketinit():=Ketinit(1); +Ketinit(sy):=Ketinit(sy,[-5,5],[-5,5]); +Ketinit(sy,rangex,rangey):=( + regional(pt,tmp,tmp1,tmp2); + PenThickInit=8; + ULEN="1cm"; + KETPICLAYER=20; + MilliIn=1/2.54*1000; + PenThick=round(MilliIn*0.02); + PenThickInit=PenThick; + TenSizeInit=0.02; + TenSize=TenSizeInit; + YaSize=1; YaAngle=18; YaPosition=1; + YaThick=1; YaStyle='tf'; + KETPICCOUNT=1; + KCOLOR=[0,0,0]; + GLIST=[]; + GCLIST=[]; +// GDATALIST=[]; + GOUTLIST=[]; + POUTLIST=[]; + VLIST=[]; + FUNLIST=[]; + LETTERlist=[]; + COM0thlist=[]; + COM1stlist=[]; + COM2ndlist=[]; + SCIWRLIST=[]; + SCIRELIST=[]; + ADDAXES="1"; + LFmark=unicode("000a"); + Dq=unicode("0022"); + WaitUnit=10; + CONTINUED=0; + OutComList=[]; + OutFileLIst=[]; // 15.10.22 + FigPdfList=[]; // 16.04.08 + ADDPACK=[]; // 16.05.16 + ErrFlag=0; + setdirectory(Dirwork); + if(isstring(Fhead), // 15.04.06 + Fnametex=Fhead+".tex"; + Fnamesci=Fhead+".sce"; + Fnamescibody=Fhead+"body.sce"; + Fnameout=Fhead+".txt"; + ); + if(!isstring(Mackc),// 16.06.07 + Mackc="sh"; + ); + ArrowlineNumber=1; // 15.01.05 + ArrowheadNumber=1; + BezierNumber=1; //15.01.03 + SCALEX=1; + SCALEY=sy; +// Setscaling(sy); + XMIN=rangex_1/SCALEX; + XMAX=rangex_2/SCALEX; + YMIN=rangey_1/SCALEY; + YMAX=rangey_2/SCALEY; + Setwindow("Msg=n"); // 16.05.31 +); + +DqDq(str):=unicode("0022")+str+unicode("0022"); + +Tab2list(dtstr):=Tab2list(dtstr,[]); +Tab2list(dtstr,options):=( +//help:Tab2list(datastr); +//help:Tab2list(options=[0]); + regional(dtall,dt,rep,out,crm,lfm,htm,first,tmp,tmp1,tmp2); + crm=unicode("000d"); + lfm=unicode("000a"); + htm=unicode("0009"); + rep=0; + if(length(options)>0,rep=options_1); + first=lfm; // 16.09.05from + if(indexof(dtstr,crm)>0, + first=crm; + if(indexof(dtstr,crm+lfm)>0, + first=first+lfm; + ); // 16.09.05upto + ); + tmp1=Indexall(dtstr,first); + tmp1=prepend(0,tmp1); + tmp1=append(tmp1,length(dtstr)); + dtall=[]; + forall(1..(length(tmp1)-1), + tmp=substring(dtstr,tmp1_#,tmp1_(#+1)-1); + if(length(tmp)>0, + dtall=append(dtall,tmp); + ); + ); + out=[]; + forall(dtall,dt, + tmp1=tokenize(dt,unicode("0009")); + tmp2=[]; + forall(tmp1, + if(isstring(#),tmp=parse(#),tmp=#); + if(!isreal(tmp), + if(length(#)>0,tmp=#,tmp=rep); + ); + tmp2=append(tmp2,tmp); + ); + out=append(out,tmp2); + ); + out; +); + +Columnlist(dt,list):=( // 16.09.04 +//help:Columnlist(dt,1..3); + apply(dt,#_list); +); + +Dispmat(dt):=( // 16.09.16 +//help:Dispmat(dt); + regional(htm,crm,lfm,row,tmp,tmp1,tmp2); + htm=unicode("0009"); + crm=unicode("000d"); + lfm=unicode("000a"); + tmp2=""; + forall(dt,row, + tmp1=""; + forall(row, + if(isstring(#), + tmp1=tmp1+#+htm; + , + tmp1=tmp1+text(#)+htm; + ); + ); + tmp1=substring(tmp1,0,length(tmp1)-1); + tmp1=tmp1+lfm; + tmp2=tmp2+tmp1; + ); + print(tmp2); + println(); +); + +norm(v1):=( // 16.09.01 +//help:norm([2,1,3]); + regional(out,tmp,tmp1,tmp2); + out=0; + forall(1..length(v1), + out=out+(v1_#)^2; + ); + out=sqrt(out); + out; +); +norm(v1,v2):=( + norm(v2-v1); +); + +// 16.03.28 +Removespace(str):=( +//help:Removespace(" a b c "); + regional(tmp,flg,out); + tmp=length(str)+1; + flg=0; + forall(1..length(str), + if(flg==0, + if((str_#)!=" ", + tmp=#; + flg=1; + ); + ); + ); + out=substring(str,tmp-1,length(str)); + flg=0; + tmp=0; + forall(reverse(1..length(out)), + if(flg==0, + if((out_#)!=" ", + tmp=#; + flg=1; + ); + ); + ); + out=substring(out,0,tmp); +); + +Indexall(str,key):=( + regional(rest,out,flg,tmp,tmp1,); + out=[]; + rest=str; + flg=0; + forall(1..length(str), + if(flg==0, + tmp=indexof(rest,key); + if(tmp>0, + tmp1=tmp+length(str)-length(rest); + out=append(out,tmp1); + rest=substring(rest,tmp,length(rest)); + , + flg=1; + ); + ); + ); + out; +); + +Changework(path):=( +//help:Changework(directory); + regional(tmp); // 16.04.23from + Dirwork=path; + setdirectory(Dirwork); // 16.04.23 + if(ismacosx(), + if(!iskcexists(Dirwork), // 16.06.07from + SCEOUTPUT = openfile("kc.sh"); + println(SCEOUTPUT,"#!/bin/sh"); +// if(!isstring(Dq),Dq=unicode("0022")); // 18.07.30 + println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); + println(SCEOUTPUT,"chmod +x kc.sh"); + println(SCEOUTPUT,"exit 0"); + closefile(SCEOUTPUT); + println(kc(Dirwork+"/kc.sh",Dirlib,Fnametex)); // 16.07.23 + ); // 16.06.07upto + ); +); + +Changestyle(nameL,style):=( +//help:Changestyle(["sgAB"],["da"]); + regional(nmL,name,Ltype,Ltypeorg,Noflg,opcindy,tmp); + tmp=Divoptions(style); + Ltypeorg=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + if(islist(nameL),nmL=nameL,nmL=[nameL]); + forall(nmL,name, + Ltype=Ltypeorg; + GCLIST=select(GCLIST,#_1!=name); + COM2ndlist=select(COM2ndlist,indexof(#,"("+name)==0); // 15.05.23 + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + ); +); + +Op(n,object):=( // 16.05.25 +//help:Op(4,[1,2,3,4]); +//help:Op(3,"abcd"); + regional(out); + if(islist(object), + out=object_n; + , + if(isstring(object), + out=substring(object,n-1,n); + ); + ); + out; +); + +Toupper(str):=( + regional(alphabet,out,tmp,tmp1); + alphabet="abcdefghijklmnopqrstuvwxyz"; + out=""; + forall(1..length(str), + tmp=substring(str,#-1,#); + tmp1=indexof(alphabet,tmp); + if(tmp1>0, + out=out+unicode(text(tmp1+64),base->10); + , + out=out+tmp; + ); + ); + out; +); + +Textformat(value,dig):=( +//help:Textformat(2/3,4); +//help:Textformat([gr1,gr2],5); + regional(vv,tmp,tmp1); + if(islist(value), + tmp1="["; + forall(value, + tmp1=tmp1+Textformat(#,dig)+","; + ); + tmp1=substring(tmp1,0,length(tmp1)-1)+"]"; + , + if(ispoint(value) % isstring(value), +// vv=Lcrd(value); +// tmp1=Textformat(vv,dig); +// tmp1=text(value); // 15.04.07 + if(isstring(value),tmp1=Dq+value+Dq,tmp1=text(value)); // 15.10.02 + , + tmp1=format(value,dig); + ); + ); + tmp1; +); + +Sprintf(value,dig):=( +//help:Sprintf(5.1,4); + regional(vv,tmp,tmp1); + if(!islist(value), + vv=Textformat(value,dig); + if(indexof(vv,".")==0,vv=vv+"."); + vv=vv+"0000000000000000"; + tmp=indexof(vv,".")+dig; + vv=substring(vv,0,tmp); + , + vv=apply(value,Sprintf(#,dig)); + ); + vv; +); + +Assign(funstr,vrL):=( + regional(nn,out,tmp,tmp1); + nn=length(vrL)/2; + out=funstr; + forall(1..nn, + out=Assign(out,vrL_(2*#-1),vrL_(2*#)); + ); + out; +); + +Assign(funstr,varname,rep):=( +//help:Assign("x^2+a*x","a",1.3); +//help:Assign("a*x^2+b*x",["a",1,"b",2]); + regional(repstr,ii,jj,tmp,tmp1,tmp2,Notvar,Flg); + if(isstring(rep),repstr=rep,repstr="("+Textformat(rep,5)+")"); // 15.02.09, 07.06 + tmp=[46]; // 12.20 + tmp=concat(tmp,48..57); + tmp=concat(tmp,65..90); + tmp=concat(tmp,97..122); + Notvar=apply(tmp,unicode(text(#),base->10)); + tmp2=""; + forall(1..100, + ii=indexof(funstr,varname); + if(ii>0, + Flg=0; + if(ii>1, + tmp=substring(funstr,ii-2,ii-1); + if(contains(Notvar,tmp), + tmp2=tmp2+substring(funstr,0,ii); + funstr=substring(funstr,ii,length(funstr)); + Flg=1; + ); + ); + if(Flg==0, + jj=ii-1+length(varname); + if(jj<length(funstr), + tmp=substring(funstr,jj,jj+1)); + if(contains(Notvar,tmp), + tmp2=tmp2+substring(funstr,0,jj); + funstr=substring(funstr,jj,length(funstr)); + Flg=1; + ); + ); + if(Flg==0, + tmp2=tmp2+substring(funstr,0,ii-1)+repstr; + funstr=substring(funstr,jj,length(funstr)); + ); + ); + ); + funstr=tmp2+funstr; + funstr; +); + +MeasureDepth(list):=( + regional(tmp,Depth,Flg); + Flg=0; + Depth=0; + if(ispoint(list), // 15.01.22 + Depth=0; + Flg=1; + , + tmp=list_1; + ); + repeat(4, + if(Flg==0, + if(islist(tmp), + tmp=tmp_1; + Depth=Depth+1; + , + if(ispoint(tmp),Depth=Depth+1); + Flg=1; + ); + ); + ); + Depth; +); + +Flattenlist(pltlist):=( +//help:Flattenlist([[2,3],[[1,2],[5,6]]]); + regional(Out,nn,Dt,ii,tmp,flg); + Out=[]; + if(MeasureDepth(pltlist)==1, + Out=[pltlist]; + , + forall(1..length(pltlist),nn, + Dt=pltlist_nn; + if(MeasureDepth(Dt)<2, + Out=append(Out,Dt); + , + forall(1..length(Dt),ii, + tmp=Flattenlist(Dt_ii); + Out=concat(Out,tmp); + ); + ); + ); + ); + Out; +); + +Divoptions(options):=( +//help:Divoptions(options); + regional(Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy,flg,tmp,tmp1); + Ltype="dr"; // 2015.01.13 + Noflg=0; + Inflg=0; + Outflg=0; + eqL=[]; + realL=[]; + strL=[]; + opstr=""; + opcindy=""; + forall(options, + flg=0; + if(flg==0, + if(isreal(#) % ispoint(#) % islist(#), + realL=append(realL,#); + opstr=opstr+","+text(#); + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"=")>0, + eqL=append(eqL,#); + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"no")+indexof(#,"No")>0, + if(indexof(#,"tex")>0,Noflg=1); + if(indexof(#,"disp")>0,Noflg=2); + if(indexof(#,"data")>0,Noflg=3); + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"->")>0, + opcindy=opcindy+","+#; + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"out")+indexof(#,"Out")>0, + if(indexof(#,"-")==0, + Outflg=1; + , + Outflg=2; + ); + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"in")+indexof(#,"In")>0, + if(indexof(#,"-")==0, + Inflg=1; + , + Inflg=2; + ); + flg=1; + ); + ); + if(flg==0, + tmp=substring(#,0,2); + tmp1=indexof(tmp,"dr")+indexof(tmp,"Dr"); + tmp1=tmp1+indexof(tmp,"da")+indexof(tmp,"Da"); + tmp1=tmp1+indexof(tmp,"id")+indexof(tmp,"Id"); + tmp1=tmp1+indexof(tmp,"do")+indexof(tmp,"Do"); + tmp1=tmp1+indexof(tmp,"dp")+indexof(tmp,"Dp"); + if(tmp1>0, + Ltype=#; + flg=1; + ); + if(flg==0, + strL=append(strL,#); + opstr=opstr+","+Dq+#+Dq; + ); + ); + ); + if(indexof(opcindy,"color->")==0,// 16.10.07from + opcindy=opcindy+",color->[0,0,0]"; + ); + [Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy]; +); + +Dotprod(vec1,vec2):=( +//help:Dotprod(vec1,vec2); + regional(v1,v2,tmp); + if(ispoint(vec1),v1=vec1.xy,v1=vec1); + if(ispoint(vec2),v2=vec2.xy,v2=vec2); + v1*v2; +); + +Crossprod(a,b):=( +//help:Crossprod(vec1,vec2); + regional(tmp1,tmp2,tmp3,Out); + if(length(a)==3, + tmp1=a_2*b_3-a_3*b_2; + tmp2=a_3*b_1-a_1*b_3; + tmp3=a_1*b_2-a_2*b_1; + Out=[tmp1,tmp2,tmp3]; + , + Out=a_1*b_2-a_2*b_1; + ); + Out; +); + +Ptstart(Fig):=( +//help:Ptstart("gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.21 + tmp_1; +); + +Ptend(Fig):=( +//help:Ptend("gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); + tmp_(length(tmp)); // 15.04.12 +); + +Numptcrv(Fig):=( +//help:Numptcrv("gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 15.12.23 + length(tmp); +); + +Ptcrv(Num,Fig):=( +//help:Ptcrv(10,"gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); + tmp_Num; +); + +Invert(Fig):=( +//help:Invert("gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.27 + reverse(tmp); +); +Invert(nm,Fig):=Invert(nm,Fig,["nodisp"]); // from 16.01.27 +Invert(nm,Fig,options):=( +//help:Invert("1","gr1"); + regional(name,tmp); + name="-inv"+nm; + tmp=Invert(Fig); + Listplot(name,tmp,options); +);// upto 16.01.27 + +Paramoncrv(pP,Gdata):=( + regional(Tmp,PtL); +// Eps=10^(-8); + if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata); + Tmp=Nearestpt(pP,PtL); + Tmp_2; +); + +ParamonCurve(pP,nN,plist):=( +//help:ParamonCurve(A,10,"gr1"); + regional(PtL,Out,Pa,Pb,vV,vW,sS); + if(isstring(plist),PtL=parse(plist),PtL=plist); + if(nN==length(PtL), + Out=nN; + , + Pa=PtL_nN; + Pb=PtL_(nN+1); + vV=Pb-Pa; + vW=pP-Pa; + sS=vV*vW/|vV|^2; + sS=min([max([sS,0]),1]); + Out=nN+sS; + ); + Out; +); + +Pointoncrv(tT,PtL):=PointonCurve(tT,PtL); +PointonCurve(tT,Gdata):=( +//help:PointonCurve(20.5,"gr1"); + regional(Out,Eps,nN,sS,Pa,Pb,PtL); + if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata); + if(length(PtL)==1,PtL=PtL_1); + Eps=10^(-4); + nN=floor(tT+Eps); + sS=max([tT-nN,0]); + if(nN==length(PtL), + Out=PtL_nN; + , + Pa=PtL_nN; + Pb=PtL_(nN+1); + Out=(1-sS)*Pa+sS*Pb; + ); + Out; +); + +Koutenseg(pA,pB,pC,pD):=Koutenseg(pA,pB,pC,pD,[]); +Koutenseg(pA,pB,pC,pD,options):=( + regional(Eps0,Eps,Eps2,pV,Sv2,Out,pP,pQ,Flg,p1,p2,q1,q2, + em1,eM1,em2,eM2,rT,Tmp1,Tmp2); + Eps0=10^(-4); + pV=pB-pA; + Sv2=|pV|; + pP=pC-pA; pQ=pD-pA; + Eps=10^(-3); + Eps2=0.2; + Tmp1=0; + forall(options, + if(Tmp1==0, + Eps=#; + Tmp1=1; + , + Eps2=#; + ); + ); + Flg=0; + if(Sv2<10^(-3), + Out=["inf","inf"]; + Flg=1; + ); + if(Flg==0, + Eps=min([Eps2,Eps/Sv2]); + p1=pP*pV/Sv2^2; + p2=[pP_2,-pP_1]*pV/Sv2^2; + q1=pQ*pV/Sv2^2; + q2=[pQ_2,-pQ_1]*pV/Sv2^2; + em1=-Eps; eM1=1+Eps; + em2=-Eps; eM2=Eps; + if(max([p1,q1])<em1 % min([p1,q1])>eM1, + Out=["inf","inf"]; + Flg=1; + ); + if(max([p2,q2])<em2 % min([p2,q2])>eM2, + Out=["inf","inf"]; + Flg=1; + ); + ); + if(Flg==0 & p2*q2<0, + rT=p1-(q1-p1)/(q2-p2)*p2; + if(rT>em1 & rT<eM1, + if(rT>-Eps0 & rT<1+Eps0, + Tmp1=pA+rT*pV; + Tmp2=min([max([rT,0]),1]); + Out=[Tmp1,Tmp2,0]; + , + Tmp1=pA+rT*pV; + Tmp2=min([max([rT,0]),1]); + Out=[Tmp1,Tmp2,1]; + ); + Flg=1; + ); + if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2), + if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2, + Out=["inf","inf"]; + Flg=1; + ); + if(Flg==0, + rT=min([max([p1,0]),1]); + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,1]; + Flg=1; + ); + ); + ); + if(Flg==0 & (p1 > -Eps0 & p1 < 1 + Eps0 & p2 > -Eps0 & p2 < Eps0), + rT= p1; + Tmp1=pA+rT*pV; + Out= [Tmp1, rT, 0]; + Flg=1; + ); + if(Flg==0 & (q1 > -Eps0 & q1 < 1 + Eps0 & q2 > -Eps0 & q2 < Eps0), + rT= q1; + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,0]; + Flg=1; + ); + if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2), + if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2, + Out=["inf","inf"]; + Flg=1; + ); + if(Flg==0, + rT=min([max([q1,0]),1]); + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,1]; + Flg=1; + ); + ); + if(Flg==0 & (q1<em1 % q1>eM1% q2<em2 % q2>eM2), + rT=min([max([p1,0]),1]); + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,1]; + Flg=1; + ); + if(Flg==0, + if(abs(p2)<abs(q2), + rT=min([max([p1,0]),1]); + , + rT=min([max([q1,0]),1]); + ); + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,1]; + ); + Out; +); + +IntersectcrvsPp(Gr1,Gr2):=IntersectcrvsPp(Gr1,Gr2,[]); +IntersectcrvsPp(Gr1,Gr2,options):=( +//help:IntersectcrvsPp("gr1","pa1"); + regional(Out,Eps,Eps2,Eps0,Flg,Data1,Data2, + Tmp1,Tmp2,Tmp3,Tmp,KL1,KL2,pA,pB,Ni,Nj, + pP,pQ,rT,Flg,eqL,realL,opstr,Dif); + Eps=10^(-4); + Eps2=0.1; + Dif=0.05; // 2015.05.31 + Flg=0; + Tmp1=Divoptions(options); // + eqL=Tmp1_5; + realL=Tmp1_6; + opstr=Tmp1_(length(Tmp1)); + forall(eqL, + if(substring(#,0,1)=="D", + Tmp1=indexof(#,"="); + Dif=parse(substring(#,Tmp1,length(#))); + ); + ); + Tmp1=length(realL); + if(Tmp1>0, + Eps=realL_1; + if(Tmp1>1, + Eps2=realL_2; + ); + ); + Flg=0; + if(isstring(Gr1),Data1=parse(Gr1),Data1=Gr1); + if(isstring(Gr2),Data2=parse(Gr2),Data2=Gr2); + if(MeasureDepth(Data1)==2,Data1=Data1_1); + if(MeasureDepth(Data2)==2,Data2=Data2_1); + Data1=apply(Data1,LLcrd(#)); + Data2=apply(Data2,LLcrd(#)); + if(length(Data1)==length(Data2), + Tmp1=Reverse(Data2); + Eps0=10^(-6); + Tmp2=0; + forall(1..length(Data1), + Tmp2=Tmp2+abs(Data1_#-Data2_#); + ); + Tmp3=0; + forall(1..length(Data1), + Tmp3=Tmp3+abs(Data1_#-Tmp1_#); + ); + if(Tmp2<Eps0 % Tmp3<Eps0, + Out=[]; + Flg=1; + ); + ); + if(Flg==0, + KL1=[]; + KL2=[]; + forall(1..(length(Data1)-1),Ni, + pA=Data1_Ni; + pB=Data1_(Ni+1); + forall(1..(length(Data2)-1), + pP=Data2_#; pQ=Data2_(#+1); + Tmp=Koutenseg(pA,pB,pP,pQ,[Eps,Eps2]); + if(Tmp!=["inf","inf"], + if(Tmp_3==0, + Tmp1=[Tmp_1,Tmp_2,Ni,#]; + KL1=concat(KL1,[Tmp1]); + , + Tmp2=[Tmp_1,Tmp_2,Ni,#]; + KL2=concat(KL2,[Tmp2]); + ); + ); + ); + ); + Out=[]; + if(length(KL1)>0, + Tmp=KL1_1; + pP=Tmp_1; + rT=Tmp_2; + Ni=Tmp_3; + Nj=Tmp_4; + Tmp=[pP,Ni+rT,Nj]; + Out=[Tmp]; + ); + forall(2..length(KL1),Ni, + Tmp=KL1_Ni; + pP=Tmp_1; + Tmp2=0; + Flg=0; + forall(1..length(Out),Nj, + if(Flg==0, + Tmp=Out_Nj; + if(|pP-Tmp_1|<Eps, + Tmp2=1; + Flg=1; + ); + ); + ); + if(Tmp2==0, + Tmp=KL1_Ni; + pP=Tmp_1; + rT=Tmp_2; + Tmp1=Tmp_3; + Tmp2=Tmp_4; + Tmp=[pP,Tmp1+rT,Tmp2]; + Out=concat(Out,[Tmp]); + ); + ); + forall(1..length(KL2),Ni, + Tmp=KL2_Ni; // 15.11.21 Usui + pP=Tmp_1; + Tmp2=0; + Flg=0; + forall(1..length(Out),Nj, + if(Flg==0, + Tmp=Out_Nj; + if(|pP-Tmp_1|<Eps, + Tmp2=1; + Flg=1; + ); + ); + ); + if(Tmp2==0, + Tmp=KL2_Ni; + rT=Tmp_2; + rT=min([max([rT,0]),1]); // 15.11.21 Usui + Tmp=[pP,Tmp_3+rT,Tmp_4]; + Out=concat(Out,[Tmp]); + ); + ); + ); + Tmp1=Out; // 15.04.06 from + Out=[]; + forall(Tmp1,Tmp2, + Tmp3=select(Out,|#_1-Tmp2_1|<Dif); + if(length(Tmp3)==0, + Out=append(Out,Tmp2); + ); + ); // 15.04.06 upto + Out; +); + +Intersectcrvs(Gr1,Gr2):=Intersectcrvs(Gr1,Gr2,[]); +//help:Intersectcrvs("gr1","pa1"); +Intersectcrvs(Gr1,Gr2,options):=( + regional(tmp,tmp1,tmp2); + tmp1=IntersectcrvsPp(Gr1,Gr2,options); + apply(tmp1,#_1); +); + +NearestptcrvPhy(point,PL):=( + regional(tmp,pP,plist); + pP=Pcrd(point); + if(isstring(PL),plist=parse(PL),plist=PL); + if(MeasureDepth(plist)==2,plist=plist_1); + plist=apply(plist,#); // 14.12.18 + tmp=Nearestpt(pP,plist); + tmp=tmp_1; + [tmp_1/SCALEX,tmp_2/SCALEY]; +); + +Nearestptcrv(point,plist):=( +//help:Nearestptcrv(A,"gr1"); + regional(tmp); + tmp=Nearestpt(point,plist); + tmp_1; +); + +Nearestpt(point,PL2):=( + regional(PL1,PL,Ans,Flg,Eps,pA,Pm,Im,Sm,Nn,Ni, + a1,b1,a2,b2,v1,v2,x1,x2,Tmp,rT,pP,sS,Lm,Pm,Sm,Flg); +//help:Nearestpt("gr1","gr2"); + if(isstring(point),PL1=parse(point),PL1=point); + if(MeasureDepth(PL1)==2,PL1=PL1_1); + if(!islist(PL1_1), + PL1=[PL1]; + Flg=0; + , + Flg=1; + ); + if(isstring(PL2),PL=parse(PL2),PL=PL2); + if(MeasureDepth(PL)==2,PL=PL_1); + Eps=10^(-6); + Ans=[PL1_1,1,PL_1,1,|PL1_1-PL_1|]; + forall(1..length(PL1),Nn, // 16.05.04 + pA=PL1_Nn; + Pm=PL_1; + Im=1; + Sm=|Pm-pA|; + forall(1..(length(PL)-1),Ni, + a1=PL_Ni_1; a2=PL_Ni_2; + b1=PL_(Ni+1)_1; b2=PL_(Ni+1)_2; + v1=b1-a1; v2=b2-a2; + x1=pA_1; x2=pA_2; + Tmp=v2^2+v1^2; + if(abs(Tmp)>Eps, + rT=(-a2*v2-v1*a1+v1*x1+x2*v2)/Tmp; + if(rT<-Eps, + pP=[a1,a2]; + , + if(rT>1+Eps, + pP=[b1,b2]; + , + pP=[a1+rT*v1,a2+rT*v2]; + ); + ); + sS=|pP-pA|; + if(sS<Sm-Eps, + Tmp=ParamonCurve(pP,Ni,PL); + Pm=pP; Lm=Tmp; Sm=sS; + ); + ); + if(Sm<Ans_5, // 16.05.03from + Ans=[pA,Nn,Pm,Lm,Sm]; + ); + ); // 16.05.03upto + ); + if(Flg==0, + Ans=Ans_(3..5); + ); + Ans; +); + +Derivative(fun,var,value):=( +//help:Derivative("x^3","x",2); + regional(str,tmp); + str="d("; + str=str+replace(fun,var,"#")+","; + str=str+value+")"; + tmp=Pcrd([1,parse(str)]); // 14.11.08 + tmp_2; +); + +Integrate(pltdata,range):=Integrate(pltdata,range,[]); +Intergrate(Arg1,Arg2,Arg3):=( + regional(pltdata,range,options,fnstr,vartr); + if(islist(Arg2), + pltdata=Arg1; + range=Arg2; + options=Arg3; + Integrate(pltdata,range,options); + , + fnstr=Arg1; + vastr=Arg2; + range=Arg3; + Integrate(fnstr,vastr,range,[]); + ); +); + +Integrate(pltdata,range,options):=( +//help:Integrate("gr1",[1,3]); +//help:Integrate("gr1",[1,3],["Rule=t"]); + regional(tmp,tmp1,eqL,Rule,pdata,Sm,ptP,ptQ,list,va1,va2); + tmp=Divoptions(options); + eqL=tmp_5; + Rule="o"; + forall(eqL, + if(Toupper(substring(#,0,1))=="R", + tmp=indexof(#,"="); + Rule=substring(#,tmp,tmp+1); + ); + ); + if(Rule=="o", + Sm= IntegrateO(pltdata,range); + , + if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata); + if(MeasureDepth(pdata)==2,pdata=pdata_1); + va1=MeetCurve(pdata,range_1,0); + va2=MeetCurve(pdata,range_2,0); + list=select(pdata,(#_1>range_1 & #_1<range_2)); + list=apply(list,LLcrd(#)); // 15.09.14 + list=concat([va1],list); + list=concat(list,[va2]); + Sm=0; + forall(1..(length(list)-1), + ptP=list_#; // 15.09.14 + ptQ=list_(#+1); + Sm=Sm+(ptP_2+ptQ_2)*(ptQ_1-ptP_1)/2; + ); + Sm; + ); +); + +Integrate(fnstr,vastr,range,options):=( +//help:Integrate("sin(x)","x",[0,pi],["Num=100","Rule=s"]); + regional(tmp,tmp1,Sm,Lx,Rx,va1,va2,Num,Waysx,ex,dx,xn,yn,x0,x1,x2,y0,y1,y2); + Num=100; + Way="t"; + forall(options, + if(indexof(#,"=")>0, + if(indexof(#,"N=")>0, + Num=parse(substring(#,indexof(#,"="),length(#))); + ); + if(indexof(#,"Num=")>0, + Num=parse(substring(#,indexof(#,"="),length(#))); + ); + if(Toupper(substring(#,0,1))=="R", + tmp=indexof(#,"="); + Way=substring(#,tmp,tmp+1); + ); + ); + ); + Sm=0; + if(Way=="t", + forall(1..Num, + Lx=range_1+(range_2-range_1)*(#-1)/Num; + Rx=range_1+(range_2-range_1)*#/Num; + va1=parse(replace(fnstr,vastr,textformat(Lx,5))); + va2=parse(replace(fnstr,vastr,textformat(Rx,5))); + Sm=Sm+(va1+va2)*(Rx-Lx)/2; + ); + , + sx=range_1; + ex=range_2; + dx=(ex-sx)/Num; + xn=apply(0..Num,sx+#*dx); + yn=apply(xn,parse(replace(fnstr,vastr,textformat(#,5)))); + dx=dx/2; + repeat(Num,s, + x0=xn_s; + x1=(xn_s+xn_(s+1))/2; + x2=xn_(s+1); + y0=yn_s; + y1=parse(replace(fnstr,vastr,textformat(x1,5))); + y2=yn_(s+1); + Sm=Sm+dx*(y0+4*y1+y2)/3; + ); + ); + Sm; +); + +IntegrateO(p0org,p1org,p2org,p3org):=( + regional(p0,p1,p2,p3,pQ,pR,cc,p01,p02, + p11,p12,p21,p22,p31,p32, tmp); + if(ispoint(p0org),p0=p0org.xy,p0=p0org); // 16.03.10 + if(ispoint(p1org),p1=p1org.xy,p1=p1org); // 16.03.16 + if(ispoint(p2org),p2=p2org.xy,p2=p2org); + if(ispoint(p3org),p3=p3org.xy,p3=p3org); + tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2); + cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp; + pQ=p1+cc*(p2-p0); + pR=p2+cc*(p1-p3); + p01=p1_1; p02=p1_2; + p31=p2_1; p32=p2_2; + p11=pQ_1; p12=pQ_2; + p21=pR_1; p22=pR_2; + tmp=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11- + 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11- + 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01- + 6*p32*p21+10*p32*p31; + tmp=tmp/20; +); +IntegrateO(pltdata,rangeorg):=( +//help:IntegrateO("gr1",[0,2]); + regional(tmp,tmp1,tmp2,pdata,va1,va2,list,Bzk,Bzc,range,pmflg, + Sm,p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32); + if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata); + if(MeasureDepth(pdata)==2,pdata=pdata_1); + range=rangeorg; + pmflg=1; + if(range_2<range_1, + range=reverse(range); + pmflg=-1; + ); + va1=MeetCurve(pdata,range_1,0); + va2=MeetCurve(pdata,range_2,0); + list=select(pdata,(#_1>range_1 & #_1<range_2)); + if((length(list)>0) & (list_1_1>list_(length(list))_2), + list=reverse(list); +// pmflg=pmflg*(-1); + ); + list=apply(list,LLcrd(#)); + list=concat([va1],list); + list=concat(list,[va2]); + Sm=0; + forall(1..(length(list)-1), + p1=list_#; + p2=list_(#+1); + if(#==1 % #==length(list)-1, + tmp1=(p1_2+p2_2)*(p2_1-p1_1)/2; + Sm=Sm+tmp1; + , + p0=list_(#-1); + p3=list_(#+2); + tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2); + cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp; + pQ=p1+cc*(p2-p0); + pR=p2+cc*(p1-p3); + p01=p1_1; p02=p1_2; + p31=p2_1; p32=p2_2; + p11=pQ_1; p12=pQ_2; + p21=pR_1; p22=pR_2; + tmp1=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11- + 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11- + 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01- + 6*p32*p21+10*p32*p31; + tmp1=tmp1/20; + Sm=Sm+tmp1; + ); + ); + if(pmflg==-1, + Sm=-Sm; + ); + Sm; +); + +Findarea(pdstr):=( +//help:Findarea("sgABCA"); + regional(pd,p1,p2,s,tmp); + if(isstring(pdstr),pd=parse(pdstr),pd=pdstr); + s=0; + forall(1..(length(pd)-1), + p1=Lcrd(pd_#); + p2=Lcrd(pd_(#+1)); + tmp=(p1_2+p2_2)*(p2_1-p1_1)/2; + s=s+tmp; + ); + if(s<0,s=-s); + s; +); + +Findarea(pdstr):=( // 15.11.27 +//help:Findarea("cr1"); + regional(pd,p0,p1,p2,p3,s,tmp); + if(isstring(pdstr),pd=parse(pdstr),pd=pdstr); + s=0; + forall(1..(length(pd)-1), + p1=pd_#; + p2=pd_(#+1); + if(#==1,p0=pd_(length(pd)-1),p0=pd_(#-1)); + if(#==length(pd)-1,p3=pd_2,p3=pd_(#+2)); + tmp=IntegrateO(p0,p1,p2,p3); + s=s+tmp; + ); + if(s<0,s=-s); + s; +); + +Findlength(pdstr):=( +//help:Findlength("gr1"); + regional(pd,p1,p2,s,tmp); + if(isstring(pdstr),pd=parse(pdstr),pd=pdstr); + s=0; + forall(1..(length(pd)-1), + p1=Lcrd(pd_#); + p2=Lcrd(pd_(#+1)); + tmp=|p2-p1|; + s=s+tmp; + ); + s; +); + +Inversefun(fnstr,rngstr,value):=( + regional(tmp,varstr,range,x1,x2,x3,va1,va2); + tmp=indexof(rngstr,"="); + varstr=substring(rngstr,0,tmp-1); + range=parse(substring(rngstr,tmp,length(rngstr))); + x1=range_1; x2=range_2; + repeat(15, + x3=(x1+x2)/2; + va1=parse(replace(fnstr,varstr,textformat(x1,5))); + va2=parse(replace(fnstr,varstr,textformat(x3,5))); + if((va1>value & va2>value) % (va1<value & va2<value), + x1=x3; + , + x2=x3; + ); + ); + va1=parse(replace(fnstr,varstr,textformat(x1,5)))-value; + va2=parse(replace(fnstr,varstr,textformat(x2,5)))-value; + if(x1==range_1 % x2==range_2, + println("not found in ("+textformat(range_1,5) + +","+textformat(range_2,5)+")"); + ); + if(abs(va1)<=abs(va2),x1,x2); +); + +Lcrd(pt):=( + regional(tmp); + if(ispoint(pt), + tmp=[pt.x/SCALEX,pt.y/SCALEY]; + , + tmp=pt; + ); + tmp; +); + +Pcrd(pt):=( + regional(tmp); + if(ispoint(pt), + tmp=re(pt.xy); // 15.07.24 + , + tmp=[pt_1*SCALEX,pt_2*SCALEY]; + ); + tmp; +); + +LLcrd(pt):=( + regional(tmp); + if(ispoint(pt), + tmp=pt.xy + , + tmp=pt; + ); + tmp=[tmp_1/SCALEX,tmp_2/SCALEY]; + tmp; +); + +Doscaling(pltdata):=( + regional(Level,Out,gL,gr,tmp); + if(ispoint(pltdata) % isreal(pltdata_1), + gL=[[pltdata]]; + Level=0; + , + if(ispoint(pltdata_1) % isreal(pltdata_1_1), + gL=[pltdata]; + Level=1; + , + gL=pltdata; + Level=2; + ); + ); + Out=[]; + forall(gL,gr, + tmp=apply(gr,Lcrd(#)); + tmp=apply(tmp,LLcrd(#)); + Out=concat(Out,[tmp]); + ); + if(Level==0, + Out=Out_1_1; + ); + if(Level==1, + Out=Out_1; + ); + Out; +); + +Unscaling(pltdata):=( + regional(Level,Out,gL,gr,tmp); + if(ispoint(pltdata) % isreal(pltdata_1), + gL=[[pltdata]]; + Level=0; + , + if(ispoint(pltdata_1) % isreal(pltdata_1_1), + gL=[pltdata]; + Level=1; + , + gL=pltdata; + Level=2; + ); + ); + Out=[]; + forall(gL,gr, + tmp=apply(gr,Lcrd(#)); + tmp=apply(tmp,LLcrd(#)); + Out=concat(Out,[tmp]); + ); + if(Level==0, + Out=Out_1_1; + ); + if(Level==1, + Out=Out_1; + ); + Out; +); + +Definecolor(name,data):=( +//help:Definecolor("mycolor",[1,1,1,0]); + regional(type,tmp); + if(length(data)>3,type="cmyk",type="rgb"); + tmp=text(data); + tmp=substring(tmp,1,length(tmp)-1); + tmp="\definecolor{"+name+"}{"+type+"}{"+tmp+"}"; + Texcom(tmp); +); + +Setcolor(Par):=( +//help:Setcolor([1,0,0,1]); +//help:Setcolor([1,1,0]); + if(islist(Par), + if(length(Par)==3, + Setcolorrgb(Par); // 2015.04.28 +// KCOLOR=Par; + ); + if(length(Par)==4, + Setcolor(Par,[]); + ); + , + Setcolor(Par,[]); + ); +); + +Setcolor(colorname,options):=( +//help:Setcolor("greenyellow",0.3); + regional(tmp); + if(isstring(colorname), + tmp="Setcolor("+Dq+colorname+Dq; + if(length(options)>0, + tmp=tmp+","+text(options_1); + ); + Com2nd(tmp+")"); + ); + if(islist(colorname), + tmp=text(colorname); + tmp=substring(tmp,1,length(tmp)-1); + tmp="Texcom("+Dq+"\color[cmyk]{"+tmp+"}"+Dq+")"; + Com2nd(tmp); + ); +); + +Setcolorrgb(colorlist):=( +// help:Setcolorrgb([0.5,0.3,0.4]); + regional(tmp); + tmp=text(colorlist); + tmp=substring(tmp,1,length(tmp)-1); + tmp="Texcom("+Dq+"\color[rgb]{"+tmp+"}"+Dq+")"; + Com2nd(tmp); +); + +ColorRgb2Cmyk(clr):=( +// help:ColorRgb([0.2,0.5,0.1]); + regional(clrnew,tmp,black); + tmp=apply(clr,1-#); + black=min(tmp); + tmp=apply(clr,(1-#-black)/(1-black)); + clrnew=append(tmp,black); + clrnew; +); + +ColorCmyk2Rgb(clr):=( +// help:ColorRgb([0.2,0.5,0.1,0.2]); + regional(clrnew,tmp,black); + black=clr_4; + tmp=apply(clr,1-min(1,#*(1-black)+black)); + clrnew=tmp_(1..3); + clrnew; +); + +Colorrgbhsv(rgb):=( + regional(varR,varG,varB,varMin,varMax,delMax,hh,ss,vv,delR,delG,delB); + varR = rgb_1; + varG = rgb_2; + varB = rgb_3; + varMin = min( [varR, varG, varB] ); + varMax = max( [varR, varG, varB] ); + delMax = varMax - varMin ; + vv = varMax; + if ( delMax == 0 , + hh = 0 ; + ss = 0 ; + , + ss = delMax / varMax; + delR = ( ( ( varMax - varR ) / 6 ) + ( delMax / 2 ) ) / delMax; + delG = ( ( ( varMax - varG ) / 6 ) + ( delMax / 2 ) ) / delMax; + delB = ( ( ( varMax - varB ) / 6 ) + ( delMax / 2 ) ) / delMax; + if( varR == varMax , + hh = delB - delG; + , + if ( varG == varMax, + hh = ( 1 / 3 ) + delR - delB; + , + if ( varB == varMax , + hh = ( 2 / 3 ) + delG - delR; + ); + ); + ); + if ( hh < 0 ,hh = hh+1); + if ( hh > 1 ,hh = hh-1); + ); + [hh*360,ss,vv]; +); + +Colorhsvrgb(sL):=( + regional(tmp,tmp1,tmp2,tmp3,hi,ff,dL); + tmp=[sL_1/60,sL_2,sL_3]; + hi=mod(floor(tmp_1),6); + ff=tmp_1-floor(tmp_1); + tmp2=tmp_3*[1-tmp_2,1-tmp_2*ff,1-tmp_2*(1-ff)]; + tmp2=append(tmp2,tmp_3); + if(hi==0,dL=tmp2_[4,3,1]); + if(hi==1,dL=tmp2_[2,4,1]); + if(hi==2,dL=tmp2_[1,4,3]); + if(hi==3,dL=tmp2_[1,2,4]); + if(hi==4,dL=tmp2_[3,1,4]); + if(hi==5,dL=tmp2_[4,1,2]); + dL; +); + +Colorrgbhsl(rgb):=( + regional(rr,gg,bb,mn,mx,delta,deltaR,deltaG,deltaB,hh,ss,ll); + rr = rgb_1 ; + gg = rgb_2 ; + bb = rgb_3 ; + mn = min([rr, gg, bb]); + mx = max([rr, gg, bb]); + delta = mx - mn; + ll = (mx + mn) / 2; + if (delta == 0, + hh=0; + ss=0; + , + if (ll < 0.5, + ss = delta/ (mx + mn); + , + ss = delta / (2 - mx - mn); + ); + deltaR = (((mx - rr) / 6) + (delta / 2)) / delta; + deltaG = (((mx - gg) / 6) + (delta / 2)) / delta; + deltaB = (((mx - bb) / 6) + (delta / 2)) / delta; + if (rr == mx, + hh = deltaB - deltaG; + , + if (gg == mx, + hh = (1 / 3) + deltaR - deltaB; + , + if (bb == mx, + hh = (2 / 3) + deltaG - deltaR; + ); + ); + ); + if ( hh < 0, hh = hh+1); + if ( hh > 1, hh = hh-1); + ); + [hh*360,ss,ll]; +); + +Colorhslrgb(hsl):=( + regional(hh,ss,ll,rr,gg,bb,var1,var2); + hh=hsl_1/360; + ss=hsl_2; + ll=hsl_3; + if ( ss == 0.0, + rr = ll ; + gg = ll ; + bb = ll ; + , + if ( ll < 0.5 , + var2 = ll * ( 1.0 + ss ); + , + var2 = ( ll + ss ) - ( ss * ll ); + ); + var1 = 2.0 * ll - var2; + rr = hue2rgb( var1, var2, hh + ( 1.0 / 3.0 ) ); + gg = hue2rgb( var1, var2, hh ); + bb = hue2rgb( var1, var2, hh - ( 1.0 / 3.0 ) ); + ); + [rr,gg,bb]; +); + +hue2rgb(vv1,vv2,vh):=( + regional(out); + if ( vh < 0.0 ,vh =vh+1); + if ( vh > 1.0 ,vh =vh-1); + if ( 6.0*vh < 1.0 , + out = vv1 + ( vv2 - vv1 ) * 6.0 * vh ; + , + if( 2.0*vh < 1.0 , + out = vv2; + , + if ( 3.0*vh < 2.0 , + out = vv1 + ( vv2 - vv1 ) * ( ( 2.0 / 3.0 ) - vh ) * 6.0 ; + , + out= vv1 ; + ); + ); + ); + out; +); + +Colorrgbhwb(sL):=( + regional(dl1,dl2,dl3); + dl1 = Colorrgbhsl(sL)_1;//Colorcode("rgb","hsl",sL)_1; + dl2 = min(sL); + dl3 = 1 - max(sL); + dL= [dl1, dl2 , dl3 ]; +); + +Colorhwbrgb(sLorg):=( + regional(sL,tmp,tmp1,tmp2,tmp3,ratio,ff,ii,vv,nn,dL,flg); + sL=sLorg; + sL=[sL_1/360,sL_2,sL_3]; + ratio = sL_2 + sL_3; + // sL_2 + sL_3 cant be > 1 + if (ratio > 1., + sL_2 =sL_2 / ratio; + sL_3 = sL_3 / ratio; + ); + ii = floor(6 * sL_1); + vv = 1 - sL_3; + ff = 6 * sL_1 - ii; + if(mod(ii,2)==1,ff = 1 - ff); + nn = sL_2 + ff * (vv - sL_2); // linear interpolation + tmp=[[vv,nn,sL_2],[nn,vv,sL_2],[sL_2,vv,nn], + [sL_2,nn,vv],[nn,sL_2,vv],[vv,sL_2,nn],[vv,nn,sL_2]]; + flg=0; + forall(0..6, + if(flg==0 & ii == # , + dL=tmp_(#+1); + flg=1; + ); + ); + dL; +); + +Colorhslhsv(sL):=( + regional(dl1,dl2,dl3,dL); + dl1=sL_1; + if(sL_3 == 0, + // no need to do calc on black + // also avoids divide by 0 error + dL= [0, 0, 0]; + , + sL_3 = sL_3 * 2; + if(sL_3 <= 1,sL_2 = sL_2 * sL_3,sL_2 = sL_2 * (2 - sL_3)); + dl3 = (sL_3 + sL_2) / 2; + dl2 = (2 * sL_2) / (sL_3 + sL_2); + dL = [dl1, dl2, dl3]; + ); + dL; +); + +Colorcode(src,dest,sL):=( +//help:Colorcode("rgb","cmyk",[1,0.5,0]); + regional(tmp,tmp1,tmp2,tmp3,mn,mx,delta,black,dL,flg); + regional(dl1,dl2,dl3); + if(src=="rgb" & dest=="hsv", dL=Colorrgbhsv(sL)); + if(src=="hsv" & dest=="rgb", dL=Colorhsvrgb(sL)); + if(src=="rgb" & dest=="hsl", dL=Colorrgbhsl(sL)); + if(src=="hsl" & dest=="rgb", dL=Colorhslrgb(sL)); + if(src=="rgb" & dest=="hwb", dL=Colorrgbhwb(sL)); + if(src=="hwb" & dest=="rgb", dL=Colorhwbrgb(sL)); + if(src=="hsl" & dest=="hsv", dL=Colorhslhsv(sL)); + if(src=="hsv" & dest=="hsl", + dl1 = sL_1; + dl3 = (2 - sL_2) * sL_3; + dl2 = sL_2 * sL_3; + if(dl3 <= 1,dl2 = dl2/dl3,dl2=dl2/(2 - dl3)); + dl3 =d l3/ 2; + dL = [dl1, dl2 , dl3 ]; + ); + + if(src=="rgb" & dest=="cmyk", + tmp=apply(sL,1-#); + black=min(tmp); + tmp=apply(sL,(1-#-black)/(1-black)); + dL=append(tmp,black); + ); + if(src=="cmyk" & dest=="rgb", + black=sL_4; + tmp=apply(sL,1-min(1,#*(1-black)+black)); + dL=tmp_(1..3); + ); + if(src=="hsv" & dest=="cmyk", + tmp=Colorcode("hsv","rgb",sL); + dL=Colorcode("rgb","cmyk",tmp); + ); + if(src=="cmyk" & dest=="hsv", + tmp=Colorcode("cmyk","rgb",sL); + dL=Colorcode("rgb","hsv",tmp); + ); + + if(src=="hsv" & dest=="hwb", + tmp = Colorcode("hsv","rgb",sL); + dL = Colorcode("rgb","hwb",tmp); + ); + if(src=="hwb" & dest=="hsv", + tmp = Colorcode("hwb","rgb",sL); + dL = Colorcode("rgb","hsv",tmp); + ); + if(src=="hsl" & dest=="hwb", + tmp = Colorcode("hsl","rgb",sL); + dL = Colorcode("rgb","hwb",tmp); + ); + if(src=="hwb" & dest=="hsl", + tmp = Colorcode("hwb","rgb",sL); + dL = Colorcode("rgb","hsl",tmp); + ); + if(src=="hsl" & dest=="cmyk", + tmp = Colorcode("hsl","rgb",sL); + dL = Colorcode("rgb","cmyk",tmp); + ); + if(src=="hwb" & dest=="cmyk", + tmp = Colorcode("hwb","rgb",sL); + dL = Colorcode("rgb","cmyk",tmp); + ); + if(src=="cmyk" & dest=="hsl", + tmp = Colorcode("cmyk","rgb",sL); + dL = Colorcode("rgb","hsl",tmp); + ); + if(src=="cmyk" & dest=="hwb", + tmp = Colorcode("cmyk","rgb",sL); + dL = Colorcode("rgb","hwb",tmp); + ); + if(src=="hsb" & dest=="rgb",dL=Colorcode("hsv","rgb",sL)); + if(src=="rgb" & dest=="hsb",dL=Colorcode("rgb","hsv",sL)); + + if(src=="hsb" & dest=="hsl",dL=Colorcode("hsv","hsl",sL)); + if(src=="hsl" & dest=="hsb",dL=Colorcode("hsl","hsv",sL)); + + if(src=="hsb" & dest=="hwb",dL=Colorcode("hsv","hwb",sL)); + if(src=="hwb" & dest=="hsb",dL=Colorcode("hwb","hsv",sL)); + + if(src=="hsb" & dest=="cmyk",dL=Colorcode("hsv","cmyk",sL)); + if(src=="cmyk" & dest=="hsb",dL=Colorcode("cmyk","hsv",sL)); + + dL; +); + +Addcolor(cmdorg,list):=( +//help:Addcolor("Plotdata('1','x^2','x',[])",[1,1,0]); + regional(rgb,cmyk,cmd,tmp,tmp1,tmp2,tmp3,tmp4); + cmd=replace(cmdorg,"'",Dq); + if(length(list)==3, + rgb=list; + cmyk=Colorcode("rgb","cmyk",list); + , + cmyk=list; + rgb=Colorcode("cmyk","rgb",list); + ); + tmp1="color->"+text(rgb); + tmp2="Setcolor("+text(cmyk)+");"; + tmp3=substring(cmd,0,length(cmd)-2); + tmp=substring(tmp3,length(tmp3)-1,length(tmp3)); + if(tmp!="[", + tmp3=tmp3+","; + ); + tmp3=tmp3+Dq+tmp1+Dq+"])"; + parse(tmp2); + parse(tmp3); + Setcolor("black"); +); + +Colorinfile(filename,clrf,clrt):=( + regional(tmp,tmp1,tmp2,head,cstrL,chstrL,head,body); + if(length(clrf_1)==3, + head="[rgb]{"; + , + head="[cmyk]{"; + ); + tmp=apply(clrf,text(#)); + cstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}"); + if(length(clrt_1)==3, + head="[rgb]{"; + , + head="[cmyk]{"; + ); + tmp=apply(clrt,text(#)); + chstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}"); + tmp1=load(filename); + tmp=tokenize(tmp1,"{\unitlength"); + head=tokenize(tmp_1,"%%%"); + head=head_(2..length(head)); + head=apply(head,"%%%"+#); + tmp2=tmp_2; + forall(1..5, + tmp2=replace(tmp2,cstrL_#,chstrL_#); + ); + body=tokenize(tmp2,"%"); + body_1="{\unitlength"+body_1; + body=apply(body,#+"%"); + body=body_(1..(length(body)-1)); + tmp=replace(filename,".tex","new.tex"); + SCEOUT=openfile(tmp); + forall(head, + println(SCEOUT,#); + ); + forall(1..length(body), + tmp=body_#; + if(#<length(body), + println(SCEOUT,tmp); + , + print(SCEOUT,tmp) + ); + ); + closefile(SCEOUT); +); + +GetLinestyle(str,name):=( + regional(noflg,tmp,tmp1,tmp2,Dop,Ltype,subflg); + Ltype=-1; + Dop=""; + tmp1=indexof(str,","); + if(tmp1>0, + Dop=","+substring(str,tmp1,length(str)); + ); + noflg=parse(substring(str,0,1)); + if(substring(name,0,3)=="sub",subflg=1,subflg=0); // 16.02.29 + tmp1=substring(str,1,3); + if(tmp1=="dr" % tmp1=="Dr", + Ltype=0; + if(noflg==0 & subflg==0, // 16.02.29 + Drwline(name+Dop); + ); + ); + if(tmp1=="da" % tmp1=="Da", + Ltype=1; + if(noflg==0 & subflg==0, // 16.02.29 + Dashline(name+Dop); + ); + ); + if(tmp1=="id" % tmp1=="Id", + Ltype=2; // 15.11.09 + if(noflg==0 & subflg==0, // 16.02.29 + Invdashline(name+Dop); + ); + ); + if(tmp1=="do" % tmp1=="Do", + Ltype=3; + if(noflg==0 & subflg==0, // 16.02.29 + Dottedline(name+Dop); + ); + ); + if(tmp1=="dp" % tmp1=="Dp", + Ltype=0; + tmp1=parse(name); + tmp2=""; + forall(tmp1, + tmp2=tmp2+textformat(#_1,5)+","; + ); + tmp2=substring(tmp2,0,length(tmp2)-1); + if(noflg==0, + Drwpt(tmp2+Dop); + ); + ); + if(tmp1=="no" % tmp1=="No", + Ltype=10; + ); + Ltype; +); + +Chunderscore(str):=( + regional(flg,tmp,tmp1,tmp2,tmp3); + if(indexof(str,"]")>0, + tmp1=replace(str,"]",",]"); + , + tmp1=str+","; + ); + flg=0; + tmp2=[]; + tmp3=0; + forall(1..length(tmp1), + if(flg==0, + tmp=substring(tmp1,tmp3,length(tmp1)); + tmp=indexof(tmp,"_"); + if(tmp==0, + flg=1; + , + tmp3=tmp3+tmp; + tmp=substring(tmp1,tmp3,length(tmp1)); + tmp=indexof(tmp,",")-1; + tmp=substring(tmp1,tmp3,tmp3+tmp); + tmp2=append(tmp2,tmp); + ); + ); + ); + forall(tmp2, + tmp1=replace(tmp1,"_"+#,"("+#+")"); + ); + if(indexof(str,"]")>0, + tmp1=replace(tmp1,",]",")"); + tmp1=replace(tmp1,"[","list("); + , + tmp1=substring(tmp1,0,length(tmp1)-1); + ); + tmp1; +); + +//AddGraph(pltdata):=AddGraph("-"+pltdata,pltdata,[]); +AddGraph(nm,pltdata):=AddGraph(nm,pltdata,[]); +// if(isstring(Arg2), +// AddGraph(Arg1,Arg2,[]); +// , +// if(MeasureDepth(Arg2)>0, +// Addgraph(Arg1,Arg2,[]); +// , +// Addgraph("-"+Arg1,Arg1,Arg2); +// ); +// ); +//); +AddGraph(nm,pltdata,options):=( +//help:AddGraph("1","imp1"); // 16.04.04 +//help:Addgraph("1",["[pt1]","gr1"],["nodisp"]); + regional(name,Ltype,Noflg,opcindy,pdata,fname,flg, + tmp,tmp1,tmp2,tmp3); + if(substring(nm,0,1)=="-", + name=substring(nm,1,length(nm)); + , + name="ad"+nm; + ); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_9; + if(isstring(pltdata), + pdata=parse(pltdata) + , + if(!islist(pltdata),pdata=[pltdata],pdata=pltdata); + pdata=apply(pdata,parse(#)); + ); // 15.01.22 + pdata=Flattenlist(pdata); + tmp1=[]; + forall(pdata,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + pdata=tmp1; + if(Noflg<3, + println("generate addgraph "+name); + tmp=name+"="+textformat(pdata,5); + parse(tmp); + if(isstring(pltdata), // 16.04.04 from + if(indexof(pltdata,"]")>0, + tmp1="list(Listplot("+substring(pltdata,1,length(pltdata)); + tmp1=replace(tmp1,"]",",]"); + , + tmp1="Listplot("+substring(pltdata,0,length(pltdata))+",]"; + ); + flg=0; + tmp2=[]; + tmp3=0; + forall(1..length(tmp1), + if(flg==0, + tmp=indexof(substring(tmp1,tmp3,length(tmp1)),"_"); + if(tmp==0, + flg=1; + , + tmp3=tmp3+tmp; + tmp=indexof(substring(tmp1,tmp3,length(tmp1)),",")-1; + tmp=substring(tmp1,tmp3,tmp3+tmp); + tmp2=append(tmp2,tmp); + ); + ); + ); + forall(tmp2, + tmp1=replace(tmp1,"_"+#,"("+#+")"); + ); + tmp1=replace(tmp1,",]",")"); + tmp1=replace(tmp1,",","),Listplot("); + if(indexof(pltdata,"[")>0, + tmp1=tmp1+")"; + ); + GLIST=append(GLIST,name+"="+tmp1); + , + if(MeasureDepth(pdata)==1, + tmp1=name+"=Listplot("+textformat(pdata,5)+")"; + , + tmp1="list("; + forall(1..length(pdata), + tmp=name+"p"+textformat(#,5)+"="; + if(length(pdata_#)>1, // 15.01.22 + tmp=tmp+"Listplot("+textformat(pdata_#,5)+")"; + , + tmp=tmp+"Pointdata("+textformat(pdata_#_1,5)+")"; + ); + GLIST=append(GLIST,tmp); + tmp1=tmp1+name+"p"+textformat(#,5)+","; + ); + tmp1=name+"="+substring(tmp1,0,length(tmp1)-1)+")"; + ); + GLIST=append(GLIST,tmp1); + ); + ); // 16.04.04 upto + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); +); + +Joincrvs(nm,plotstrL):=Joincrvs(nm,plotstrL,[]); +Joincrvs(nm,plotstrL,options):=( +//help:Joincrvs("1",["sgAB","sgDCB"]); + regional(plotlist,PtL,Eps,QdL,Flg,Ni,Qd,pP,pS,pQ,pR,rMN, + opcindy,tmp,tmp1,tmp2,str,name,Ltype,Noflg); + name="join"+nm; + plotlist=[]; + forall(plotstrL,str, + if(isstring(str), + tmp=parse(str); + tmp=apply(tmp,LLcrd(#)); + , + tmp=str; + ); + plotlist=append(plotlist,tmp); + ); + Eps=10^(-4); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + tmp1=tmp_6; + if(length(tmp1)>0,Eps=tmp1_1); + QdL=[]; + forall(plotlist,Qd, + if(ispoint(Qd_1) % !islist(Qd_1_1), + QdL=concat(QdL,[Qd]); + , + forall(Qd, + QdL=concat(QdL,[#]); + ); + ); + ); + Flg=0; + if(length(QdL)==0, + PtL=[]; + Flg=1; + ); + if(Flg==0, + PtL=QdL_1; + forall(2..length(QdL),Ni, + Qd=QdL_Ni; + if(Numptcrv(Qd)>1, + pP=Ptend(PtL); + pS=Ptstart(PtL); + pQ=Ptstart(Qd); + pR=Ptend(Qd); + rMN=min([|pP-pQ|,|pP-pR|,|pS-pQ|,|pS-pR|]); + if(rMN==|pP-pR|, + Qd=reverse(Qd); + , + if(rMN==|pS-pQ|, + PtL=reverse(PtL); + , + if(rMN==|pS-pR|, + PtL=reverse(PtL); + Qd=reverse(Qd); + ); + ); + ); + ); + if(rMN>Eps, + PtL=concat(PtL,Qd); + , + PtL=concat(PtL,Qd_(2..length(Qd))); + ); + ); + ); + if(Noflg<3, + println("generate joincurve "+name); + tmp1=apply(PtL,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=""; + forall(plotstrL, + tmp1=tmp1+#+","; + ); + tmp1=substring(tmp1,0,length(tmp1)-1); + GLIST=append(GLIST,name+"=Joincrvs("+tmp1+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PtL; +); + +Partcrv(nm,pA,pB,PkLstr):=Partcrv(nm,pA,pB,PkLstr,[]); +Partcrv(nm,pA,pB,PkLstr,options):=( +//help:Partcrv("1",A,B,"sgABC"); +//help:Partcrv("1",1.3,2.5,"sgABC"); + regional(PkL,Ans,Eps,Npt,Out1,Out2,tmp,tmp1,Flg,nS,nE,PPL,pP, + opcindy,Ta,Tb,name,Ltype,Noflg,DepthFlg); + name="part"+nm; + if(isstring(PkLstr),PkL=parse(PkLstr),PkL=PkLstr); + DepthFlg=0; + if(MeasureDepth(PkL)==2, + PkL=PkL_1; + DepthFlg=1; + ); + PkL=apply(PkL,LLcrd(#)); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + Eps=10^(-3); + Flg=0; + if(isreal(pA), + if(pA>pB+Eps, + Npt=Numptcrv(PkL); + Out1=Partcrv("",pA,Npt,PkLstr,["nodata"]); + Out2=Partcrv("",1,pB,PkLstr,["nodata"]); + tmp=Ptstart(PkL)-Ptend(PkL); + if(|tmp|<Eps, + Ans=Joincrvs("",[Out1,Out2],["nodata"]); + , + Ans=[apply(Out1,Pcrd(#)),apply(Out2,Pcrd(#))]; + ); + Flg=1; + ); + if(Flg==0, + nS=ceil(pA); + nE=floor(pB); + PPL=[]; + if(pA<nS-Eps, + pP=(nS-pA)*PkL_(nS-1)+(1-nS+pA)*PkL_nS; + PPL=[pP]; + ); + PPL=concat(PPL,PkL_(nS..nE)); + if(pB>nE+Eps, + pP=(1-pB+nE)*PkL_nE+(pB-nE)*PkL_(nE+1); + PPL=concat(PPL,[pP]); + ); + Ans=PPL; + Flg=1; + ); + ); + if(Flg==0, + tmp=Nearestpt(LLcrd(Pcrd(pA)),PkL); + Ta=tmp_2; + tmp=Nearestpt(LLcrd(Pcrd(pB)),PkL); // 15.09.12 + Tb=tmp_2; + Ans=Partcrv("",Ta,Tb,PkL,["nodata"] ); + Ans=apply(Ans,Pcrd(#)); + ); + if(Noflg<3, + println("generate partcrv "+name); + tmp1=apply(Ans,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// GLIST=append(GLIST, // 16.04.03 + if(DepthFlg==0, + tmp=PkLstr; + , + tmp=PkLstr+"(1)"; + ); + tmp1=name+"=Partcrv("+textformat(Lcrd(pA),5) + +","+textformat(Lcrd(pB),5)+","+tmp+")"; // 16.04.03 + GLIST=append(GLIST,tmp1); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Ans; +); + +Opcrvs(num,Fig):=Opcrvs(num,Fig,["nodisp"]); +Opcrvs(num,Fig,options):=( + //help:Subgraph(2,"grfs"); + regional(name,tmp,tmp1); + name="-"+Fig+text(num); + tmp=Fig+"_"+text(num); + tmp1=parse(tmp); + Listplot(name,tmp1,options); +); + + +Pointdata(nm,list):=Pointdata(nm,list,[]); +Pointdata(nm,list,options):=( +//help:Pointdata("1",[2,4],["Size=5"]); +//help:Pointdata("2",[[2,3],[4,1]]); + regional(name,nameL,ptlist,opstr,opcindy, + eqL,size,thick,tmp,tmp1,tmp2,tmp3,Ltype,Noflg); + name="pt"+nm; + nameL=name+"L"; + println("generate pointdata "+name); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + opstr=tmp_(length(tmp)-1); + size=""; + eqL=tmp_5; + if(length(eqL)>0, + forall(eqL, + tmp=substring(#,0,1); + if(tmp=="s" % tmp=="S", + tmp=indexof(#,"="); + size=substring(#,tmp,length(#)); + ); + ); + ); + tmp=MeasureDepth(list); + if(tmp>0, // 2015.02.21 + if(tmp==1,ptlist=list,ptlist=list_1); + tmp=apply(ptlist,[textformat(Pcrd(#),5)]); + tmp1=text(tmp); + tmp2=substring(tmp1,1,length(tmp1)-1); + tmp3=tmp1; + , + ptlist=list; + tmp1=textformat(Pcrd(ptlist),5); + tmp2=tmp1; + tmp3="["+tmp1+"]"; + ); + tmp=name+"="+tmp1; + parse(tmp); + tmp=nameL+"="+tmp3; + parse(tmp); + if(Noflg<3, + GLIST=append(GLIST,name+"=Pointdata("+tmp2+")"); + ); + if(Noflg<2, + tmp=[nameL,0,opcindy]; + GCLIST=append(GCLIST,tmp); + if(Noflg==0, + if(length(size)>0, + Com2nd("Setpt("+size+")"); + ); + thick=PenThick/PenThickInit; // 16.04.09 from + if(length(size)>0,tmp1=parse(size),tmp1=1); + tmp1=max(tmp1,1)/8; + Setpen(tmp1); // 16.04.09 upto + Com2nd("Drwpt(list("+name+")"+opstr+")"); + Setpen(thick); // 16.04.09 + if(length(size)>0, + Com2nd("Setpt("+textformat(TenSize/TenSizeInit,1)+")"); + ); + ); + ); + ptlist; +); + +Listplot(nm,list,options):=( +//help:Listplot([A,B]); +// help:Listplot(["A","B"]); +//help:Listplot("1",[[2,1],[3,3]]); +//help:Listplot(options2=["Msg=yes"]); + regional(name,tmp,tmp1,ptlist,Ltype,opcindy,Noflg,eqL,Msg); + if(substring(nm,0,1)=="-", // 16.01.27 from + name=substring(nm,1,length(nm)); + , + name="sg"+nm; + ); // upto + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + eqL=tmp_5; + opcindy=tmp_(length(tmp)); + Msg=1; // 15.09.17 + forall(eqL, + tmp=substring(#,0,1); + if(Toupper(tmp)=="M", + tmp=indexof(#,"="); + tmp1=substring(#,tmp,tmp+1); // 16.06.28 + if(Toupper(tmp1)=="N", // 16.06.28 + Msg=0; + ); + ); + ); + if(Noflg<3, + if(Msg==1, + println("generate Listplot "+name); + ); + if(isstring(list_1),tmp=apply(list,parse(#)),tmp=list); // 15.03.24 + ptlist=apply(tmp,Pcrd(#)); + tmp=name+"="+textformat(ptlist,5); + parse(tmp); + GLIST=append(GLIST,name+"=Listplot("+textformat(list,5)+")"); // 15.12.23 + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + tmp1=apply(list,Lcrd(#)); + tmp1; +); +Listplot(Arg1,Arg2):=( + regional(name,list,options,str); + if(isstring(Arg1), + name=Arg1; + list=Arg2; + Listplot(name,list,[]); + , + list=Arg1; + options=Arg2; + name=""; + forall(list, // 16.10.07from + name=name+#.name; + );// 16.10.07upto + Listplot(name,list,options); + ); +); +Listplot(list):=Listplot(list,[]); + +Lineplot(nm,list,options):=( +//help:Lineplot([A,B]); +//help:Lineplot("1",[[2,1],[3,3]]); + regional(name,Out,tmp,tmp1,opstr,opcindy,Mag,Semi, + Vec,pA,pB,Ltype,Noflg); + name="ln"+nm; + Mag=100; + Semi=""; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + opstr=tmp_(length(tmp)-1); + tmp1=tmp_6; + if(length(tmp1)>0,Mag=tmp1_1); + tmp1=tmp_7; + if(length(tmp1)>0,Semi=tmp1_1); + pA=Lcrd(list_1); pB=Lcrd(list_2); + Vec= Mag/dist(pA,pB)*(pB-pA); + if(length(Semi)==0, + Out=[pA-Vec,pA+Vec]; + , + if(Semi=="+", + Out=[pA,pA+Vec]; + , + Out=[pA-Vec,pA]; + ); + ); + if(Noflg<3, + println("generate Lineplot "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + GLIST=append(GLIST,name+"=Lineplot("+textformat(list,5)+opstr+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); +Lineplot(Arg1,Arg2):=( + regional(name,list,options,str); + if(isstring(Arg1), + name=Arg1; + list=Arg2; + Lineplot(name,list,[]); + , + list=Arg1; + options=Arg2; + name=""; + forall(list, // 16.10.07from + name=name+#.name; + );// 16.10.07upto + Lineplot(name,list,options); + ); +); +Lineplot(list):=Lineplot(list,[]); + +Plotdata(name1,func,variable):=Plotdata(name1,func,variable,[]); +Plotdata(name1,func,variable,options):=( +//help:Plotdata("1","sin(x)","x",["Num=100"]); +//help:Plotdata("2","x^2","x=[-1,1]"); +//help:Plotdata("3","Fout(x)","x",["out"]); + regional(Fn,Va,tmp,tmp1,tmp2,eqL,name,Vname,x1,x2,dx, + PdL,QdL,Num,Ec,Dc,Fun,Exfun,x,Ke,Eps,Pa, + Ltype,Noflg,Inflg,Outflg,opstr,opcindy); + name="gr"+name1; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + Inflg=tmp_3; + Outflg=tmp_4; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + Num=50; + Ec=[]; + Exfun=""; + Dc=1000; + forall(eqL, + tmp=indexof(#,"="); + tmp1=substring(#,tmp,length(#)); + opstr=opstr+",'"+#+"'"; + if(substring(#,0,1)=="N", + Num=parse(tmp1); + ); + if(substring(#,0,1)=="E", + if(substring(tmp1,0,1)=="[", + Ec=parse(tmp1); + , + Exfun=tmp1; + ); + ); + if(substring(#,0,1)=="D", + Dc=parse(tmp1); + ); + ); + if(Inflg==0 & Outflg==0, + Eps=10^(-3); + tmp=replace(func,LFmark,""); + tmp=tokenize(variable,"="); + Vname=tmp_1; + if(length(tmp)>1, + tmp=tmp_2; + tmp=parse(tmp); + x1=tmp_1; + x2=tmp_2; + , + x1=XMIN; + x2=XMAX; + ); + // dx=(x2-x2)/Num; + Ec=append(sort(Ec),10000); + Fun=Assign(func,Vname, "xx"); + Exfun=Assign(Exfun,Vname, "xx"); + PdL=[]; + Ke=1; + forall(0..Num, + xx=x1+#*(x2-x1)/Num; // differs from Scilab ( / Num-1) + if(length(Exfun)>0, + tmp=parse(Exfun); + if(abs(tmp)<Eps, + if(length(Pdt)>0, + PdL=concat(PdL,["inf"]); + ); + ); + , + Pa=[]; + if(xx-Ec_Ke<-Eps, + Pa=[xx,parse(Fun)]; + ); + if(abs(xx-Ec_Ke)<=Eps, + if(length(PdL)>0, + if(PdL_(length(PdL))_1!="inf", + Pa=["inf"]; + ); + ); + ); + if(xx-Ec_Ke>Eps, + Pa=[xx,parse(Fun)]; + Ke=Ke+1; + ); + if(length(Pa)>0, + if(Pa_1=="inf", + PdL=concat(PdL,[Pa]); + , + if(length(PdL)==0, + PdL=[Pa]; + , + tmp=PdL_(length(PdL)); + if(tmp_1=="inf", + PdL=concat(PdL,[Pa]); + , + if(dist(tmp,Pa)<Dc, + PdL=concat(PdL,[Pa]); + , + PdL=concat(PdL,[["inf"],Pa]); + ); + ); + ); + ); + ); + ); + ); + tmp1=[]; + tmp2=select(1..length(PdL),PdL_#==["inf"]); + tmp=1; + forall(tmp2, + if(#>tmp, + tmp1=concat(tmp1,[PdL_(tmp..(#-1))]) + ); + tmp=#+1; + ); + if(tmp<length(PdL), + tmp1=concat(tmp1,[PdL_(tmp..length(PdL))]); + ); + PdL=tmp1; + if(length(PdL)==1, + PdL=PdL_1; + ); + if(Noflg<3, + println("generate Plotdata "+name); + if(MeasureDepth(PdL)==1, + tmp1=apply(PdL,Pcrd(#)); + , + tmp1=[]; + forall(PdL,tmp2, + tmp1=append(tmp1,apply(tmp2,Pcrd(#))); + ); + ); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=replace(func,LFmark,""); + tmp2=replace(variable,LFmark,""); + tmp=name+"=Plotdata('"+tmp1+"','"+tmp2+"'"+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; + , + // Inflg or Outflg >0 15.05.15 + if(Noflg<3, + if(Outflg==1, + println("Output Plotdata "+name); + tmp=name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")"; + GLIST=append(GLIST,tmp); + SCIWRLIST=append(SCIWRLIST,name); + if(Inflg==0,Inflg=1); // 15.05.17 + ); + if(Inflg==1, + println("Input Plotdata "+name); + if(length(SCIRELIST)==0, + ReadOutData(Fnameout); + ); + tmp=parse(name); + if(islist(tmp), + Extractdata(name,["nodisp"]); // 12.19 + ); + tmp="// "+name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")"; + Com1st(tmp); + SCIRELIST=append(SCIRELIST,name); + ); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + if(Inflg==1, + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + ); + ); +); + +Paramplot(name1,funstr,variable):=Paramplot(name1,funstr,variable,[]); +Paramplot(name1,funstr,variable,options):=( +//help:Paramplot("1","[2*cos(t),sin(t)]","t=[0,2*pi]"); + regional(name,Out,tmp,tmp1,tmp2,vname,func,str,Rng,Num, + Ec,Exfun,Dc,eqL,Fntmp,Vatmp,t1,t2,dt,tt,pa,ke, + Ltype,Noflg,Inflg,Outflg,opstr,opcindy); + name="gp"+name1; + Eps=10^(-4); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + Inflg=tmp_3; + Outflg=tmp_4; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + Num=50; + Ec=[]; + Exfun=""; + Dc=1000; + forall(eqL, + tmp=indexof(#,"="); + tmp1=substring(#,tmp,length(#)); + opstr=opstr+",'"+#+"'"; + if(substring(#,0,1)=="N", + Num=parse(tmp1); + ); + if(substring(#,0,1)=="E", + if(substring(tmp1,0,1)=="[", + Ec=parse(tmp1); + , + Exfun=tmp1; + ); + ); + if(substring(#,0,1)=="D", + Dc=parse(tmp1); + ); + ); + if(Inflg==0 & Outflg==0, + tmp=indexof(variable,"="); + vname=substring(variable,0,tmp-1); + str=substring(variable,tmp,length(variable)); + Rng=parse(str); + t1=Rng_1; t2=Rng_2; + dt=(t2-t1)/Num;// differs from Scilab ( / Num-1) + func=Assign(funstr,vname,"tt"); + Out=[]; + Ec=append(sort(Ec),10000); + ke=1; + forall(0..Num, + pt=[]; + tt=Rng_1+#*dt; + if(tt-Ec_ke<-Eps, + pa=parse(func); + ); + if(abs(tt-Ec_ke)<=Eps, + if(length(Out)>0, + if(Out_(length(Out))_1!="inf", + pa=["inf"]; + ); + ); + ); + if(tt-Ec_ke>Eps, + pa=parse(func); + ke=ke+1; + ); + if(length(pa)>0, + if(pa_1=="inf", + Out=append(Out,pa); + , + if(length(Out)==0, + Out=[pa]; + , + tmp=Out_(length(Out)); + if(tmp_1=="inf", + Out=append(Out,pa); + , + if(|tmp-pa|<Dc, + Out=append(Out,pa); + , + Out=concat(Out,[["inf"],pa]); + ); + ); + ); + ); + ); + ); + tmp1=[]; + tmp2=select(1..length(Out),Out_#==["inf"]); + tmp=1; + forall(tmp2, + if(#>tmp, + tmp1=concat(tmp1,[Out_(tmp..(#-1))]) + ); + tmp=#+1; + ); + if(tmp<length(Out), + tmp1=concat(tmp1,[Out_(tmp..length(Out))]); + ); + Out=tmp1; + if(length(Out)==1, + Out=Out_1; + ); + if(Noflg<3, + println("generate Paramplot "+name); + if(MeasureDepth(Out)==1, + tmp1=apply(Out,Pcrd(#)); + , + tmp1=[]; + forall(Out,tmp2, + tmp1=append(tmp1,apply(tmp2,Pcrd(#))); + ); + ); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=replace(funstr,LFmark,""); // 15.11.13 + tmp2=replace(variable,LFmark,""); + tmp=name+"=Paramplot('"+tmp1+"','"+tmp2+"'"+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; + , + // Inflg or Outflg >0 15.05.15 + if(Noflg<3, + if(Outflg==1, + println("Output Paramplot "+name); + tmp=name+"=Paramplot('"+funstr+"','"+variable+"'"+opstr+")"; + GLIST=append(GLIST,tmp); + SCIWRLIST=append(SCIWRLIST,name); + if(Inflg==0,Inflg=1); // 15.05.17 + ); + if(Inflg==1, + println("Input Paramplotdata "+name); + if(length(SCIRELIST)==0, + ReadOutData(Fnameout); + ); + tmp=parse(name); + if(islist(tmp), + Extractdata(name,["nodisp"]); // 12.19 + ); + tmp="// "+name+"=Paramplot('"+func+"','"+variable+"'"+opstr+")"; + Com1st(tmp); + SCIRELIST=append(SCIRELIST,name); + ); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + if(Inflg==1, + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + ); + ); +); + +Circledata(cenrad):=Circledata(cenrad,[]); +Circledata(para1,para2):=( +//help:Circledata([A,B],["Rng=[0,pi/2]"]); +//help:Circledata([A,B,C]); + regional(name,cenrad,options,str,n); + if(isstring(para1), + name=para1; + cenrad=para2; + options=[]; + , + cenrad=para1; + options=para2; + name="";// 16.10.07from + forall(cenrad, + name=name+#.name; + );// 16.10.07upto + ); + Circledata(name,cenrad,options); +); +Circledata(nm,cenrad,options):=( + regional(name,Out,Ctr,Ptcir,ra,Num,Rg,opstr,opcindy, + tmp,tmp1,tmp1,Th,Ltype,Noflg,eqL,pA,pB,pC,d1,d2,Eps); + name="cr"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + Num=50; + Rg=[0,2*pi]; + forall(eqL, + tmp=indexof(#,"="); + tmp1=substring(#,tmp,length(#)); + opstr=opstr+",'"+#+"'"; + if(substring(#,0,1)=="N", + Num=parse(tmp1); + ); + if(substring(#,0,1)=="R", + Rg=parse(tmp1); + ); + ); + if(length(cenrad)==2, + Ctr=Lcrd(cenrad_1); + Ptcir=Lcrd(cenrad_2); + ra=dist(Ctr,Ptcir); + , + Eps=10^(-1); + pA=Lcrd(cenrad_1); + pB=Lcrd(cenrad_2); + pC=Lcrd(cenrad_3); + tmp=pB-pA; + tmp1=(tmp_2,-tmp_1); + tmp=pC-pB; + tmp2=(tmp_2,-tmp_1); + d1=det([tmp1,tmp2]); + d2=det([pC-pA,tmp2]); + if(abs(d1)<Eps & abs(d2)>10*Eps, + println("points are in a line"); + ra=0; + , + Ctr=1/2*(pA+pB)+1/2*d2/d1*tmp1; + ra=|pA-Ctr|; + tmp=name+"center="+Ctr; + parse(tmp); + Defvar(name+"center",Ctr); + ); + ); + if(ra>0, + Out=[]; + forall(0..Num, + Th=Rg_1+#*(Rg_2-Rg_1)/Num; + Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]); + ); + , + Out=Lineplot("1",[pA,pB],["nodata"]); + ); + if(Noflg<3, + println("generate Circledata "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + if(length(cenrad)==2, + tmp=name+"=Circledata("+cenrad+opstr+")"; + , + if(ra>0, + tmp=name+"=Circledata(["+Ctr+","+cenrad_1+"]"+opstr+")"; + , + tmp=name+"=Lineplot("+cenrad_1+","+cenrad_2+")"; + ); + ); + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); + +Framedata():=( + regional(pA,pB); + pA=LLcrd((SW+NE)/2); // 15.09.17 + pB=LLcrd(NE); + Framedata("win",[pA,pB]); +); +Framedata(list):=Framedata(list,[]); +Framedata(Arg1,Arg2):=( + regional(name,list,options,str); + if(isstring(Arg1), + name=Arg1; + list=Arg2; + Framedata(name,list,[]); + , + list=Arg1; + options=Arg2; + name="";// 16.10.07from + forall(list, + name=name+#.name; + );// 16.10.07upto + Framedata(name,list,options); + ); +); + +Framedata(nm,list,options):=( +//help:Framedata(); +//help:Framedata([A,B]); +//help:Framedata("1",[A,B]); +//help:Framedata("1",[C,dx,dy]); + regional(name,Out,tmp,tmp1,pB,x1,x2,y1,y2,dx,dy, + opcindy,Ltype,Noflg,cent,dx,dy); + name="fr"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + if(length(list)==2, // 15.05.12 + pA=Lcrd(list_1); pB=Lcrd(list_2); + dx=abs(pB_1-pA_1); dy=abs(pB_2-pA_2); + , + pA=Lcrd(list_1); + dx=list_2; dy=list_3; + ); + x1=pA_1-dx; x2=pA_1+dx; + y1=pA_2-dy; y2=pA_2+dy; + Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]]; + if(Noflg<3, + println("generate Framedata "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + GLIST=append(GLIST,name+"=Framedata("+pA+","+dx+","+dy+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); +Framedata(nm,cent,dx,dy):=Framedata(nm,cent,dx,dy,[]); +Framedata(nm,cent,dx,dy,options):=( + regional(name,Out,tmp,tmp1,x1,y1,x2,y2,Ltype,opcindy,Noflg); + name="fr"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + x1=cent.x-dx; x2=cent.x+dx; + y1=cent.y-dy; y2=cent.y+dy; + Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]]; + if(Noflg<3, + println("generate Framedata "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + GLIST=append(GLIST,name+"=Framedata("+cent.xy+","+dx+","+dy+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); + +Framedata2(nm,list):=Framedata2(nm,list,[]); +Framedata2(nm,list,options):=( +//help:Framedata2("1",[A,B]); + regional(tmp,tmp1,pC,pB); + pC=(Lcrd(list_1)+Lcrd(list_2))/2; + pB=Lcrd(list_2); + Framedata(nm,[pC,pB],options); +); + +Ovaldata(nm,Pdata):=Ovaldata(nm,Pdata,[]); +Ovaldata(nm,Pdata,options):=( +//help:Ovaldata("1",[A,B]); +//help:Ovaldata(optios=[size]); + regional(name,Graph,Ctr,Dx,Dy,Rc,Out,Point,Graph, + opstr,opcindy,tmp,tmp1,tmp2,tmp3,Ltype,Noflg); + name="ov"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + opstr=tmp_(length(tmp)-1); + Rc=0.2; + tmp1=tmp_6; + if(length(tmp1)>0,Rc=tmp1_1*Rc); +// if(length(tmp1)>0,Rc=tmp1_1); //15.11.15 + Ctr=Lcrd(Pdata_1); + if(ispoint(Pdata_2) % islist(Pdata_2), + tmp1=Lcrd(Pdata_2); + Dx=abs(tmp1_1-Ctr_1); + Dy=abs(tmp1_2-Ctr_2); + , + Dx=Pdata_2; + Dy=Pdata_3; + ); + Point=Ctr+[Dx-Rc,Dy-Rc]; + tmp1=Circledata("1",[Point,Point+[Rc,0]], + ["Rng=[0,pi/2]","Num=10","nodata"]); + tmp2=Listplot("1",[Ctr+[Dx-Rc,Dy],Ctr+[0,Dy]], + ["nodata"]); + tmp3=Listplot("2",[Ctr+[Dx,0],Ctr+[Dx,Dy-Rc]], + ["nodata"]); + Graph=Joincrvs("1",[tmp3,tmp1,tmp2],["nodata"]); + tmp1=Reflectdata("1",[Graph],[Ctr,Ctr+[0,1]],["nodata"]); + Graph=Joincrvs("1",[Graph,tmp1],["nodata"]); + tmp2=Reflectdata("2",[Graph],[Ctr,Ctr+[1,0]], + ["nodata"]); + Graph=Joincrvs("2",[Graph,tmp2],["nodata"]); + if(Noflg<3, + println("generate Ovaldata "+name); + tmp1=apply(Graph,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + GLIST=append(GLIST, + name+"=Ovaldata("+Ctr+","+Dx+","+Dy+opstr+")");//16.01.30 + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + tmp1=apply(Graph,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp=textformat(Ctr,5)+","+textformat(Dx,5)+","+textformat(Dy,5); + GLIST=append(GLIST, + name+"=Ovaldata("+tmp+opstr+")"); + ); + Graph; +); + +Segmark(nm,ptlist):=Segmark(nm,ptlist,[]); +Segmark(nm,ptlist,options):=Drawsegmark(nm,ptlist,options); +Drawsegmark(nm,ptlist):=Drawsegmark(nm,ptlist,[]); +Drawsegmark(nm,ptlist,options):=( +//help:Segmark("1",[A,B]); +//help:Segmark(options=["Type=1","Width=1","Size=1"]); + regional(name,pA,pB,wid,mid,size,tp,dir,nor,eqL, + tmp,tmp1,tmp2); + name="mrk"+nm; + pA=ptlist_1; + pB=ptlist_2; + size=0.15; + wid=0.05; + tp=1; + tmp1=Divoptions(options); + eqL=tmp1_5; + forall(eqL, + tmp=indexof(#,"="); + tmp1=substring(#,tmp,length(#)); + tmp1=parse(tmp1); + tmp=substring(#,0,1); + if(tmp=="S" % tmp=="s", + size=size*tmp1; + ); + if(tmp=="W" % tmp=="w", + wid=wid*tmp1; + ); + if(tmp=="T" % tmp=="t", + tp=tmp1; + ); + ); + mid=(pA+pB)/2; + dir=(pB-pA)/|pB-pA|; + nor=[-dir_2,dir_1]; +// nor=nor/|nor|; + if(tp==1, + tmp1=mid+size*nor; + tmp2=mid-size*nor; + Listplot(name,[tmp1,tmp2]); + ); + if(tp==2, + tmp1=mid+wid*dir+size*nor; + tmp2=mid+wid*dir-size*nor; + Listplot(name+"r",[tmp1,tmp2]); + tmp1=mid-wid*dir+size*nor; + tmp2=mid-wid*dir-size*nor; + Listplot(name+"l",[tmp1,tmp2]); + ); + if(tp==3, + tmp1=mid; + tmp2=mid+size*dir; + Circledata(name,[tmp1,tmp2]); + ); + if(tp==4, + tmp=mid+size*2/sqrt(3)*nor; + tmp1=mid+size*dir-size/sqrt(3)*nor; + tmp2=mid-size*dir-size/sqrt(3)*nor; + Listplot(name,[tmp,tmp1,tmp2,tmp]); + ); +); + +Parabolaplot(nm,ptlist):=Parabolaplot(nm,ptlist,"[-5,5]",[]); +Parabolaplot(nm,ptlist,Arg):=( + regional(rng,options); + if(isstring(Arg), + rng=Arg; + options=[]; + , + rng="[-5,5]"; + options=Arg; + ); + Parabolaplot(nm,ptlist,rng,options); +); +Parabolaplot(nm,ptlist,rng,options):=( +//help:Parabolaplot("1",[A,B,C]): +//help:Parabolaplot("1",[A,B,C],"[-5,5]"); + regional(pA,pB,pC,angle,tmp,tmp1,tmp2); + tmp1=Lcrd(ptlist_1); + tmp2=Lcrd(ptlist_3); + pB=Lcrd(ptlist_2); + tmp=(tmp2-pB)/|tmp2-pB|; + if(tmp_2>=0, + angle=arccos(tmp_1); + , + if(tmp_1>=0, + angle=arcsin(tmp_2); + , + angle=-arccos(tmp_1); + ); + ); + pA=Rotatepoint(tmp1,-angle,pB); + pC=Rotatepoint(tmp2,-angle,pB); + tmp1=1/(2*(pA_2-pB_2)); + tmp2=1/2*(pA_2+pB_2); + tmp="("+format(tmp1,5)+")*(x-("+format(pA_1,5)+"))^2"; + tmp=tmp+"+("+format(tmp2,5)+")"; + tmp1=parse(rng); + tmp1=[pA_1-(tmp1_2-tmp1_1)/2,pA_1+(tmp1_2-tmp1_1)/2]; + tmp2="x="+textformat(tmp1,5); + Plotdata(nm+"para",tmp,tmp2,append(options,"nodisp")); + Rotatedata(nm+"para","gr"+nm+"para",angle,append(options,pB)); +); + +Ellipseplot(nm,ptlist):=Ellipseplot(nm,ptlist,"[0,2*pi]",[]); +Ellipseplot(nm,ptlist,Arg):=( + regional(rng,options); + if(isstring(Arg), + rng=Arg; + options=[]; + , + rng="[0,2*pi]"; + options=Arg; + ); + Ellipseplot(nm,ptlist,rng,options); +); +Ellipseplot(nm,ptlist,rng,options):=( +//help:Ellipseplot("1",[A,B,3]); +//help:Ellipseplot("1",[A,B,C],"[0,pi]",[options]); + regional(pA,pB,d,angle,f,a,b,pM,tmp,tmp1,tmp2); + pA=Lcrd(ptlist_1); + tmp1=Lcrd(ptlist_2); + if(ispoint(ptlist_3), + tmp2=Lcrd(ptlist_3); + d=|tmp2-pA|+|tmp2-tmp1|; + , + d=ptlist_3; + ); + tmp=(tmp1-pA)/|tmp1-pA|; + if(tmp_2>=0, + angle=arccos(tmp_1); + , + if(tmp_1>=0, + angle=arcsin(tmp_2); + , + angle=-arccos(tmp_1); + ); + ); + pB=Rotatepoint(tmp1,-angle,pA); + f=|pB_1-pA_1|/2; + a=d/2; + b=sqrt(d^2/4-f^2); + pM=(pA+pB)/2; + tmp="["+format(pM_1,5)+","+format(pM_2,5)+"]"; + tmp=tmp+"+["+format(a,5)+"*cos(t),"+format(b,5)+"*sin(t)]"; + Paramplot(nm+"elp",tmp,"t="+rng,append(options,"nodisp")); + Rotatedata(nm+"elp","gp"+nm+"elp",angle,append(options,pA)); +); + +Hyperbolaplot(nm,ptlist):=Hyperbolaplot(nm,ptlist,"[-5/2,5/2]",[]); +Hyperbolaplot(nm,ptlist,Arg):=( + regional(rng,options); + if(isstring(Arg), + rng=Arg; + options=[]; + , + rng="[-5/2,5/2]"; + options=Arg; + ); + Hyperbolaplot(nm,ptlist,rng,options); +); +Hyperbolaplot(nm,ptlist,rng,optionsorg):=( +//help:Hyperbolaplot("1",[A,B,C],["Num=200"]): +//help:Hyperbolaplot("1",[A,B,C],"[-5,5]",["Asy=do"]); + regional(pA,pB,d,angle,f,a,b,pM,eqL,options,opasy,tmp,tmp1,tmp2); + tmp=Divoptions(optionsorg); + eqL=tmp_5; + options=optionsorg; + opasy=[]; + forall(eqL, + if(Toupper(substring(#,0,1))=="A", + tmp=indexof(#,"="); + opasy=[substring(#,tmp,length(#))]; + options=remove(options,[#]); + ); + ); + pA=Lcrd(ptlist_1); + tmp1=Lcrd(ptlist_2); + if(ispoint(ptlist_3), + tmp2=Lcrd(ptlist_3); + d=abs(|tmp2-pA|-|tmp2-tmp1|); + , + d=ptlist_3; + ); + tmp=(tmp1-pA)/|tmp1-pA|; + if(tmp_2>=0, + angle=arccos(tmp_1); + , + if(tmp_1>=0, + angle=arcsin(tmp_2); + , + angle=-arccos(tmp_1); + ); + ); + pB=Rotatepoint(tmp1,-angle,pA); + f=|pB_1-pA_1|/2; + a=d/2; + b=sqrt(f^2-d^2/4); + pM=(pA+pB)/2; + tmp="["+format(pM_1,5)+"+"+format(a,5)+"*(exp(t)+exp(-t))/2,"; + tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]"; + Paramplot(nm+"hyp1",tmp,"t="+rng,append(options,"nodisp")); + tmp="["+format(pM_1,5)+"-"+format(a,5)+"*(exp(t)+exp(-t))/2,"; + tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]"; + Paramplot(nm+"hyp2",tmp,"t="+rng,append(options,"nodisp")); + tmp=["gp"+nm+"hyp1","gp"+nm+"hyp2"]; + Rotatedata(nm+"hyp",tmp,angle,append(options,pA)); + if(length(opasy)>0, + Lineplot(nm+"asy1",[pM+[a,b],pM+[-a,-b]],["nodisp"]); + Lineplot(nm+"asy2",[pM+[-a,b],pM+[a,-b]],["nodisp"]); + tmp=["ln"+nm+"asy1","ln"+nm+"asy2"]; + Rotatedata(nm+"asy",tmp,angle,append(opasy,pA)); + ); +); + +Polygonplot(nm,ptlist,number):=Polygonplot(nm,ptlist,number,[]); +Polygonplot(nm,ptlist,number,options):=( +//help:Polygonplot("1",[A,B],12); + regional(rr,pA,pB,ptL,angle,tmp,tmp1,tmp2); + pA=Lcrd(ptlist_1); + pB=Lcrd(ptlist_2); + rr=|pB-pA|; + tmp=(pB-pA)/rr; + if(tmp_2>=0, + angle=arccos(tmp_1); + , + if(tmp_1>=0, + angle=arcsin(tmp_2); + , + angle=-arccos(tmp_1); + ); + ); + ptL=[]; + forall(0..number, + tmp=angle+#*2*pi/number; + tmp1=pA+rr*[cos(tmp),sin(tmp)]; + if(#>0 & #<number, + Putpoint((ptlist_2).name+text(#),tmp1);//16.10.07 + //Pointdata(nm,ptL); + ); + tmp2=tmp1; + ptL=append(ptL,tmp1); + ); + Listplot(nm+"ply",ptL,options); +); + +Putintersect(nm,pdata1,pdata2):=( +//help:Putintersect("Q","gr1","gr2"); + regional(pd1,pd2,tmp); + if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1); + if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2); + tmp=Intersectcrvs(pd1,pd2); + if(length(tmp)==1, + Putpoint(nm,tmp_1); + , + if(length(tmp)==0, + err("No intersect point"); + , + err("Multiple intersect points"); + println(tmp); + err("Choose point number"); + ); + ); +); +Putintersect(nm,pdata1,pdata2,ptno):=( + regional(pd1,pd2,tmp); + if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1); + if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2); + tmp=Intersectcrvs(pd1,pd2); + if(length(tmp)>0, + Putpoint(nm,tmp_ptno); + , + err("No intersect point"); + ); +); + +Arrowheaddata(point,direction):=Arrowheaddata(point,direction,[]); +Arrowheaddata(point,direction,options):=( +//help:Arrowheaddata(A,B); + regional(list,Ookisa,Hiraki,Futosa,Houkou,Str,Flg,tmp,Ev,Nv,pA,pB, + pP,rF,gG,Flg,Nj,Eps,tmp1,scx,scy); + Eps=10^(-3); + pP=point; + Ookisa=0.2*YaSize; + Hiraki=YaAngle; + Futosa=0; + Str=YaStyle; + tmp=Divoptions(options); + tmp1=tmp_6; + if(length(tmp1)>0,Ookisa=Ookisa*tmp1_1); + if(length(tmp1)>1, + tmp=tmp1_2; + if(tmp<5, + Hiraki=Hiraki*tmp; + , + Hiraki=tmp; + ); + ); + Flg=0; + Hiraki=Hiraki*pi/180; + if(isstring(direction),Houkou=parse(direction),Houkou=direction); + if(MeasureDepth(Houkou)==2,Houkou=Houkou_1); + if(islist(Houkou_1), +// pP=Lcrd(pP); +// pP=Doscaling(pP); +// Houkou=Dosscaling(Houkou); + pP=Pcrd(pP); + scy=SCALEY; + SCALEY=1; + tmp=Nearestpt(pP,Houkou); + pA=tmp_1; + rF=floor(tmp_2); + if(rF==1, + if(|Ptend(Houkou)-Ptstart(Houkou)|<Eps, + rF=Numptcrv(Houkou); + ); + ); + gG=apply(0..10,pP+Ookisa*cos(Hiraki)*[cos(2*pi/10*#),sin(2*pi/10*#)]); + Flg=0; + forall(1..rF,Nj, + if(Flg==0, + pB=Ptcrv(rF+1-Nj,Houkou); + tmp=IntersectcrvsPp([pA,pB],gG); + if(length(tmp)>0, + Houkou=pP-tmp_1_1; + Flg=1; + ); + pA=pB; + ); + ); + SCALEY=scy; + if(Flg==0, + println("Arrowhead may be too large (no intersect)"); + Flg=2; + ); + if(Flg==1, + Houkou=Unscaling(Houkou); + pP=Unscaling(pP); + ); + ); + if(Flg<2, +// pP=Doscaling(pP); +// Houkou=Doscaling(Houkou); + pP=Pcrd(pP); + if(!ispoint(point), + Houkou=Pcrd(Houkou); + ); +// if(MeasureDepth(Houkou)==0,Houkou=Pcrd(Houkou)); + Ev=-1/|Houkou|*Houkou; + Ev=Lcrd(Ev); + Nv=[-Ev_2, Ev_1]; + if(indexof(Str,"c")>0, + pP=pP-0.5*Ookisa*cos(Hiraki)*Ev; + ); + if(indexof(Str,"b")>0, + pP=pP-Ookisa*cos(Hiraki)*Ev; + ); + pA=pP+Ookisa*cos(Hiraki)*Ev+Ookisa*sin(Hiraki)*Nv; + pB=pP+Ookisa*cos(Hiraki)*Ev-Ookisa*sin(Hiraki)*Nv; + list=[pA,pP,pB]; + list=apply(list,LLcrd(#)); +// Out=Unscaling(Out); + list; + ); +); + +Arrowhead(point,Houkou):=Arrowhead(point,Houkou,[]); +Arrowhead(point,Houkou,options):=( +//help:Arrowhead(B,B-A,[1.5,30]); +//help:Arrowhead(A,"gr1"); + // global ArrowheadNumber + regional(name,Ltype,Noflg,reL,opstr,opcindy,ptstr,hostr,tmp,tmp1,list); + name="arh"+text(ArrowheadNumber); + ArrowheadNumber=ArrowheadNumber+1; + ptstr=textformat(point,5); + if(isstring(Houkou), // 15.01.11 + tmp=parse(Houkou); + if(MeasureDepth(tmp)<2, + hostr=Houkou; + , + hostr=Houkou+"(1)"; + ); + , + if(ispoint(point), + hostr=textformat(LLcrd(Houkou),5); + , + hostr=textformat(Houkou,5); + ); + ); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + reL=tmp_6; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + list=Arrowheaddata(point,Houkou,options); + if(Noflg<3, +// println("generate Arrowhead "+name); + tmp1=apply(list,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// GLIST=append(GLIST,name+"=Listplot("+list+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(1)+Ltype,name); + , +// if(Noflg==1,Ltype=0); + Ltype=0; + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + if(Noflg==0, + if(length(reL)<3, // 16.04.09 from + forall(1..(2-length(reL)), + opstr=opstr+",1"; + ); + tmp=PenThick/PenThickInit; + opstr=opstr+","+text(tmp); + ); // 16.04.09 upto + Com2nd("Arrowhead("+ptstr+","+hostr+opstr+")"); + ); +); + +Arrowdata(ptlist):=Arrowdata(ptlist,[]); +Arrowdata(Arg1,Arg2):=( + regional(tmp,nm,ptlist,flg,pA,pB,options); + flg=0; + if(isstring(Arg1), + nm=Arg1; + ptlist=Arg2; + Arrowdata(nm,ptlist,[]); + flg=1; + ); + if(flg==0, + tmp=MeasureDepth(Arg1); + if(tmp==0, + pA=Arg1; + pB=Arg2; + Arrowdata(pA,pB,[]); + , + ptlist=Arg1; + options=Arg2; + nm=text(ArrowlineNumber); + ArrowlineNumber=ArrowlineNumber+1; + Arrowdata(nm,ptlist,options); + ); + ); +); +Arrowdata(Arg1,Arg2,options):=( +//help:Arrowdata([A,B],[2,10]); + regional(Retflg,nm,ptlist,name,opstr,opcindy,realL,strL,size, + flg,Ltype,Noflg,lineflg,tmp,tmp1,tmp2,pA,pB,segpos); + Retflg=0; + Noflg=0; + Ltype=0; + if(!isstring(Arg1), + pA=Arg1; + pB=Arg2; + Arrowdata(pA,pB,options,"old"); + Retflg=1; + ptlist=[pA,pB]; + ); + if(Retflg==0, + nm=Arg1; + ptlist=Arg2; + name="ar"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + realL=tmp_6; + strL=tmp_7; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + size=1; // 15.06.11 + if(length(realL)>0, + size=realL_1; + ); + tmp2=select(strL,indexof(#,"l")>0); // 16.04.09 + if(length(tmp2)>0,lineflg=1,lineflg=0); // 16.04.09 + segpos=1; + tmp1=tmp_5; + if(length(tmp1)>2, + segpos=tmp1_3; + ); + if(Noflg<3, +// println("generate Arrowdata "+name); + tmp1=apply(ptlist,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=Lcrd(ptlist_1);//16.10.10 + tmp2=Lcrd(ptlist_2);//16.10.10 + if(lineflg==0, // 16.04.09 from + tmp=tmp2-0.2*size/2*(tmp2-tmp1)/|tmp2-tmp1|; // 15.06.11 + , + tmp=tmp2; + ); // 16.04.09 upto + tmp=[tmp1,tmp]; + GLIST=append(GLIST,name+"=Listplot("+textformat(tmp,5)+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + tmp=textformat(ptlist,5); + tmp=substring(tmp,1,length(tmp)-1); + tmp1=indexof(tmp,"],["); + if(tmp1>0, + pA=substring(tmp,0,tmp1); + pB=substring(tmp,tmp1+1,length(tmp)); + , + tmp1=indexof(tmp,","); + pA=substring(tmp,0,tmp1-1); + pB=substring(tmp,tmp1,length(tmp)); + ); + tmp1="Lcrd("+pA+")+" + +textformat(segpos,5)+"*(Lcrd("+pB+")-"+"Lcrd("+pA+"))"; + tmp1=parse(tmp1); + tmp2="Lcrd("+pB+")-Lcrd("+pA+")"; + tmp2=parse(tmp2); + Arrowhead(tmp1,tmp2,options); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + ); + ptlist; +); +Arrowdata(pA,pB,options,str):=( + regional(ptA,ptB,opstr,Astr,Bstr,name,tmp,opcindy); + Astr=textformat(pA,5); + Bstr=textformat(pB,5); + name="ar"+pA.name+pB.name; + println("generate Arrow "+name); + opstr=""; + opcindy=""; + forall(options, + if(isstring(#), + if(indexof(#,"->")>0, + opcindy=opcindy+","+#; + , + tmp="'"+#+"'"; + ); + , + tmp=text(#); + ); + opstr=opstr+","+tmp; + ); + ptA=Lcrd(pA); + ptB=Lcrd(pB); + Arrowheaddata(ptB,ptB-ptA,options); + tmp="connect("+textformat([ptA,ptB],5) + +",linecolor->"+text(KCOLOR)+opcindy+");"; + parse(tmp); // 14.11.17 + Com2nd("Arrowline("+Astr+","+Bstr+opstr+")"); // 14.10.04 +); + +Anglemark(plist):=Anglemark(plist,[]); +Anglemark(Arg1,Arg2):=( // 2015.04.28 from + regional(nm,plist,options,tmp); + if(isstring(Arg1), + nm=Arg1; + plist=Arg2; + Anglemark(nm,plist,[]); + , + plist=Arg1; + options=Arg2; + tmp=textformat(plist,5); + tmp=replace(tmp,",",""); + nm=substring(tmp,1,length(tmp)-1); + Anglemark(nm,plist,options); + ); +); // upto +Anglemark(nm,plist,options):=( +//help:Anglemark([A,B,C],["E=\theta",2]); +//help:Anglemark("1",[A,B,C],["E=1.2,\theta",2]); + regional(name,Out,pB,pA,pC,Ctr,ra,sab,sac,ratio,opstr,Bname,Bpos, + Brat,tmp,tmp1,tmp2,Num,opcindy,Ltype,eqL,realL,Rg,Th,Noflg); + name="ag"+nm; + ra=0.5; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + realL=tmp_6; + Bname=""; + Brat=1.5; + Num=20; + if(length(realL)>0, + ra=realL_1*ra; + opstr=opstr+","+text(realL_1); + ); + forall(eqL, + if(substring(#,0,1)=="L",Bname="Letter("); + if(substring(#,0,1)=="E",Bname="Expr("); + Bpos="md"+name; + Bname=Bname+Dq+Bpos+Dq+","+Dq+"c"+Dq+","+Dq; + tmp=substring(#,indexof(#,"="),length(#)); + tmp1=indexof(tmp,","); + Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")"; + if(tmp1>0, + Brat=parse(substring(tmp,0,tmp1-1)); + ); + ); + pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3); + Ctr=Lcrd(pA); + sab=pB-pA; + sac=pC-pA; + Rg=[arctan2(sab)+0,arctan2(sac)+0]; + if(Rg_2<Rg_1,Rg_2=Rg_2+2*pi); + Out=[]; + forall(0..Num, + Th=Rg_1+#*(Rg_2-Rg_1)/Num; + Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]); + ); + if(length(Bname)>0, + Th=(Rg_1+Rg_2)/2; + tmp1=Ctr+Brat*ra*[cos(Th),sin(Th)]; + tmp="Defvar("+Dq+Bpos+"="; + tmp=tmp+textformat(tmp1,5)+Dq+");"; + parse(tmp); + parse(Bname); + ); + if(Noflg<3, + println("generate anglemark "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp=textformat(plist,5); + tmp1=substring(tmp,1,length(tmp)-1); + tmp=name+"=Anglemark("+tmp1+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); + +Paramark(plist):=Paramark(plist,[]); +Paramark(plist,options):=( +//help:Paramark([A,B,C],["E=\theta"]); + regional(name,Out,pB,pA,pC,ra,sab,sac,ratio,opstr,Bname,Bpos, + Brat,tmp,tmp1,tmp2,Ltype,Noflg,eqL,realL,opcindy); + tmp=textformat(plist,5); + tmp=replace(tmp,",",""); + tmp=substring(tmp,1,length(tmp)-1); + name="pm"+tmp; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + realL=tmp_6; + ra=0.5; + Bname=""; + Brat=1.2; + if(length(realL)>0, + tmp=realL_1; + ra=tmp*ra; + opstr=opstr+","+text(tmp); + ); + forall(eqL, + if(substring(#,0,1)=="L",Bname="Letter("); + if(substring(#,0,1)=="E",Bname="Expr("); + Bpos="md"+name; + Bname=Bname+Dq+Bpos+Dq+","+Dq+"c"+Dq+","+Dq; + tmp=substring(#,indexof(#,"="),length(#)); + tmp1=indexof(tmp,","); + Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")"; + if(tmp1>0, + Brat=parse(substring(tmp,0,tmp1-1)); + ); + ); + pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3); + Ctr=Lcrd(pA); + Out=[]; + Out=append(Out,pA+ra*(pB-pA)/|pB-pA|); + Out=append(Out,pA+ra*(pB-pA)/|pB-pA|+ra*(pC-pA)/|pC-pA|); + Out=append(Out,pA+ra*(pC-pA)/|pC-pA|); + if(length(Bname)>0, + tmp1=pA+Brat*ra*(pB-pA)/|pB-pA|+Brat*ra*(pC-pA)/|pC-pA|; + tmp="Defvar("+Dq+Bpos+"="+textformat(tmp1,5)+Dq+");"; + parse(tmp); + parse(Bname); + ); + if(Noflg<3, + println("generate paramark "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1); + tmp=name+"=Paramark("+tmp1+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); + +MakeBowdata(pA,pB,Hgt):=( + regional(angle,pB2,pH2,pC2,pC,tmp,Th1,Th2,ra,dMA); + angle=arctan2(pB-pA)+0; + pB2=Rotatepoint(pB,-angle,pA); + tmp=Lcrd(pA); + pH2=[(tmp_1+pB2_1)/2,tmp_2-Hgt]; + dMA=|tmp-pB2|/2; + ra=(dMA^2+Hgt^2)/(2*Hgt); + pC2=[pH2_1,pB2_2+(ra-Hgt)]; + pC=Rotatepoint(pC2,angle,pA); + Th1=arctan2(pA-pC2)+angle; + Th2=arctan2(pB2-pC2)+angle; + [pC,ra,Th1,Th2]; +); + +Bowdata(plist):=Bowdata(plist,[]); +Bowdata(plist,options):=( + regional(nm,tmp); + tmp=textformat(plist,5); + tmp=replace(tmp,",",""); + nm=substring(tmp,1,length(tmp)-1); + Bowdata(nm,plist,options); +); +Bowdata(nm,plist,options):=( +//help:Bowdata([C,A],[2,1.2,"Expr=10","da"]); + regional(name,Out,pB,pA,pC,ra,tmp,tmp1,tmp2,Ltype,eqL,realL, + Bname,Bpos,Th,Cut,Num,Hgt,opstr,opcindy,Ydata,pC, + Th1,Th2,Noflg,Bops); + name="bw"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + realL=tmp_6; + pA=Lcrd(plist_1); pB=Lcrd(plist_2); + Hgt=1/2*|pB-pA|*0.2; + Cut=0; + Num=24; + Bname=""; + if(length(realL)>0, + Hgt=realL_1*Hgt; // 15.04.12 + if(length(realL)>1,Cut=realL_2); + ); + forall(eqL, + tmp=substring(#,0,1); + if(tmp=="L" % tmp=="l", + if(indexof(#,"rot")>0, + Bname="Letterrot("; + , + Bname="Letter("; + ); + ); + if(tmp=="E" % tmp=="e", + if(indexof(#,"rot")>0, + Bname="Exprrot("; + , + Bname="Expr("; + ); + ); + Bops=#; + ); + Ydata=MakeBowdata(pA,pB,Hgt); + pC=Ydata_1; + ra=Ydata_2; + Th=(Ydata_3+Ydata_4)*0.5; + BOWMIDDLE=[pC_1+ra*cos(Th),pC_2+ra*sin(Th)]; + if(length(Bname)>0, + Bpos="md"+name; + tmp="Defvar("+Dq+Bpos+"="+textformat(BOWMIDDLE,5)+Dq+");"; + parse(tmp); + Bname=Bname+Dq+Bpos+Dq+","; + if(indexof(Bname,"rot")>0, + tmp1=pB-pA; + if(tmp1_1<0, tmp1=-tmp1); + tmp2=indexof(Bops,","); + if(tmp2>0, + tmp=substring(Bops,0,tmp2-1); + if(indexof(tmp,"u")>0, + tmp1=-tmp1; + Bops=replace(tmp,"u","")+substring(Bops,tmp2-1,length(Bops)); + Bops=replace(Bops,"=,","="); + ); + ); + Bname=Bname+text(tmp1)+","; + ); + tmp=substring(Bops,indexof(Bops,"="),length(Bops)); + tmp1=indexof(tmp,","); + if(tmp1==0, + if(indexof(Bname,"rot")==0, + Bname=Bname+Dq+"c"+Dq+","+Dq+tmp; + , + Bname=Bname+Dq+tmp; + ); + , + Bname=Bname+Dq+substring(tmp,0,tmp1-1)+Dq+"," + +Dq+substring(tmp,tmp1,length(tmp)); + ); + Bname=Bname+Dq+")"; + parse(Bname); + ); + if(Cut==0, + Th1=Ydata_3; + Th2=Ydata_4; + Out=[]; + forall(0..Num, + tmp=Th1+#*(Th2-Th1)/Num; + Out=append(Out,pC+ra*[cos(tmp),sin(tmp)]); + ); + , + Th1=Ydata_3; + Th2=Th-Cut/(2*ra); + tmp1=[]; + forall(0..Num/2, + tmp=Th1+#*(Th2-Th1)/(Num/2); + tmp1=append(tmp1,pC+ra*[cos(tmp),sin(tmp)]); + ); + Th1=Th+Cut/(2*ra); + Th2=Ydata_4; + tmp2=[]; + forall(0..Num/2, + tmp=Th1+#*(Th2-Th1)/(Num/2); + tmp2=append(tmp2,pC+ra*[cos(tmp),sin(tmp)]); + ); + Out=[tmp1,tmp2]; + ); + if(Noflg<3, + println("generate bowdata "+name); + if(MeasureDepth(Out)==1,Out=[Out]); + tmp1=[]; + forall(Out,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1); + tmp=name+"=Bowdata("+tmp1+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); +); + +Bowname(str):=Bowname("c",str); +Bowname(dir,str):=( + Expr([BOWMIDDLE,dir,str]); +); + +Bownamerot(bwdata,str):=Bownamerot(bwdata,0,0,str,1); +Bownamerot(bwdata,str,updown):=Bownamerot(bwdata,0,0,str,updown); +Bownamerot(bwdata,tmov,nmov,str):=Bownamerot(bwdata,tmov,nmov,str,1); +Bownamerot(bwdata,tmov,nmov,str,updown):=( + regional(bdata,tmp); + tmp=MeasureDepth(bwdata); + if(tmp==1,bdata=[bwdata],bdata=bwdata); + if(length(bdata)>1, + tmp=Ptend(bdata_2)-Ptstart(bdata_1); + , + tmp=Ptend(bdata_1)-Ptstart(bdata_1); + ); + if(updown<0,tmp=-tmp); + Exprrot(BOWMIDDLE,tmp,tmov,nmov,str); +); + +Deqplot(nm,deq,rng,initf):=Deqplot(nm,deq,rng,Lcrd(initf)_1,initf,[]); +Deqplot(nm,deq,rng,Arg1,Arg2):=( + regional(initt,initf,options); + if(isreal(Arg1) & length(Arg1)==1, + initt=Arg1; + initf=Arg2; + options=[]; + , + initf=Lcrd(Arg1); + initt=initf_1; + options=Arg2; + ); + Deqplot(nm,deq,rng,initt,initf,options); +); +Deqplot(nm,deq,rng,initt,initf,options):=( + regional(name,Noflg,Ltype,eqL,opstr,opcindy,pdL,var2,deq2,rng2,initt2,initf2, + tmp,tmp1,tmp2,tmp3,tmp4); + tmp=tokenize(deq,"="); + tmp1=tmp_1; + tmp2=tmp_2; + tmp3=tokenize(tmp1,"`"); + if(length(tmp3)==2, + if(indexof(tmp1,"[")>0, + Deqplot(nm,deq,rng,initt,initf,options,[2,3]); + , + if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]"); + tmp=tokenize(rng2,"="); + deq2="["+tmp_1+","+replace(tmp1,"`","]")+"`=[1,"+tmp2+"]"; + rng2="t="+tmp_2; + if(isreal(initf) & length(initf)==1, + initf2=[initt,initf]; + initt2=initt; + , + initf2=Lcrd(initf)); + initt2=initf2_1; + Deqplot(nm,deq2,rng2,initt2,initf2,options,[2,3]); + ); + , + name="de"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + eqL=tmp_5; + opcindy=tmp_9; + opstr=""; + forall(eqL, + if(Toupper(substring(#,0,1))=="N", + tmp=indexof(#,"="); + tmp1="N="+substring(#,tmp,length(#)); + opstr=opstr+",'"+tmp1+"'"; + ); + ); + if(Noflg<1, + if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]"); + var2="d"+tmp3_1; + deq2="["+tmp3_1+","+var2+"]`=["; + tmp=replace(tmp2,tmp3_1+"`",var2); + deq2=deq2+var2+","+tmp+"]"; + Deqplot(nm,deq2,rng2,initt,initf,append(options,"nodisp"),[1,2]); + parse(tmp); + tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',"; + tmp=tmp+initt+","+initf+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + parse("de"+nm); + ); + ); +); +Deqplot(nm,deq,rng,initt,initf,options,Sel):=( +//help:Deqplot("2","y`=y*(1-y)","x",0, 0.5,["Num=100"]); +//help:Deqplot("1","y``=-y","x",0, [1,0]); +//help:Deqplot("3","[x,y]`=[x*(1-y),0.3*y*(x-1)]","t=[0,20]",[1,0.5]); + regional(Ltype,Noflg,Inflg,Outflg,strL,opstr,opcindy,Num, + outstr,name,func,xf,yf,pdL,Eps,Inf,t1,t2,tt,Vname,dt,funP,funN,flg, + kl1,kl2,kl3,kl4,x0,y0,x1,y1,tmp,tmp1,tmp2); + name="de"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + Inflg=tmp_3; + Outflg=tmp_4; + eqL=tmp_5; + strL=tmp_7; +// opstr=tmp_(length(tmp)-1); + opstr=""; + opcindy=tmp_(length(tmp)); + outstr=""; + forall(strL, + tmp=Toupper(substring(#,0,1)); + if(tmp=="S", + outstr="Sci"; + ); + ); + Num=50; + forall(eqL, + tmp=indexof(#,"="); + tmp2=substring(#,0,1); + tmp2=Toupper(tmp2); + tmp1=substring(#,tmp,length(#)); + opstr=opstr+",'"+tmp2+"="+tmp1+"'"; + if(Toupper(substring(#,0,1))=="N", + Num=parse(tmp1); + ); + ); + if(outstr=="Sci", + if(Inflg==0 & Outflg==0,Outflg=1;Inflg=1); + ); + if(Noflg<3, + if(outstr=="Sci", + if(Outflg==1, + println("Output Deqplot "+name); + SCIWRLIST=append(SCIWRLIST,name); + ); + if(Inflg==1, + println("Input Deqplot "+name); + if(length(SCIRELIST)==0, + ReadOutData(Fnameout); + ); + tmp=parse(name); + if(islist(tmp), + Extractdata(name,["nodisp"]); // 12.19 + ); + SCIRELIST=append(SCIRELIST,name); + ); + , + Eps=10^(-3); + Inf=10^3; + tmp=tokenize(deq,"="); + tmp1=tmp_1; + func=tmp_2; + tmp=indexof(tmp1,","); + xf=substring(tmp1,1,tmp-1); + yf=substring(tmp1,tmp,length(tmp1)); + tmp=indexof(yf,"]"); + yf=substring(yf,0,tmp-1); + tmp=tokenize(rng,"="); + Vname=tmp_1; + tmp=parse(tmp_2); + t1=tmp_1; + t2=tmp_2; + tmp="funP("+Vname+","+xf+","+yf+"):="+func+";"; + parse(tmp); + tmp=tokenize(func,","); + tmp1="-("+substring(tmp_1,1,length(tmp_1))+")"; + tmp2="-("+substring(tmp_2,0,length(tmp_2)-1)+")"; + tmp="funN("+Vname+","+xf+","+yf+"):=["+tmp1+","+tmp2+"];"; + parse(tmp); + dt=(t2-t1)/Num; + tt=initt; + tmp=Lcrd(initf); + x0=tmp_1; + y0=tmp_2; + pdL=[[tt,x0,y0]]; + flg=0; + forall(1..floor((t2-initt)/dt), + if(flg==0, + kl1=dt*funP(tt,x0,y0); + kl2=dt*funP(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2); + kl3=dt*funP(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2); + kl4=dt*funP(tt+dt/2,x0+kl3_1/2,y0+kl3_2/2); + tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6; + x0=tmp1_1; + y0=tmp1_2; + tt=initt+#*dt; + pdL=append(pdL,[tt,x0,y0]); + if(|tmp1|>Inf,flg=1); + ); + ); + tt=initt; + tmp=Lcrd(initf); + x0=tmp_1; + y0=tmp_2; + flg=0; + forall(1..floor((initt-t1)/dt), + if(flg==0, + kl1=dt*funN(tt,x0,y0); + kl2=dt*funN(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2); + kl3=dt*funN(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2); + kl4=dt*funN(tt+dt/2,x0+kl3_1/2,y0+kl3_2/2); + tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6; + x0=tmp1_1; + y0=tmp1_2; + tt=initt-#*dt; + pdL=prepend([tt,x0,y0],pdL); + if(|tmp1|>Inf,flg=1); + ); + ); + println("Generate Deqplot "+name); + pdL=apply(pdL,#_Sel); + tmp1=apply(pdL,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + ); + if(Noflg<1, + tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',"; + tmp=tmp+initt+","+initf+opstr+")"; + GLIST=append(GLIST,tmp); + ); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + if(outstr=="Sci", + if(Inflg==1, + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + , + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + pdL; + ); + ); +); + +Enclosing(nm,plist):=EnclosingS(nm,plist); +Enclosing(nm,plist,options):=EnclosingS(nm,plist,options); +EnclosingS(nm,plist):=EnclosingS(nm,plist,[]); +EnclosingS(nm,plist,options):=( +//help:Enclosing("1",["sc2","crAB","sc2","Invert(sc1)"],[pt,"dr"]); + regional(name,AnsL,Start,Eps,EEps,S,Flg,Fdata,Gdata,KL,pt,qt, + t1,t2,t3,ii,nn,tmp,tmp1,tmp2,Ltype,Noflg,realL,eqL,opstr,opcindy); + name="en"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + eqL=tmp_5; + realL=tmp_6; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + Eps=10^(-3); + EEps=0.1; + Start=[]; + Flg=0; + forall(realL, + if(isList(#) % ispoint(#), + Start=Lcrd(#); // 15.09.12 + , + Flg=Flg+1; + if(Flg==1,Eps=#); + if(Flg==2,EEps=#); + ); + ); +// tmp1=concat([Eps,EEps],eqL); // 15.04.06 + Fdata=plist_1; + Gdata=plist_(length(plist)); + KL=IntersectcrvsPp(Fdata,Gdata); + if(length(KL)==1, + pt=KL_1_1; + t1=KL_1_2; + ); + if(length(KL)==0, + if(Numptcrv(Fdata)>Numptcrv(Gdata), + tmp=Nearestpt(Fdata,Gdata); + pt=tmp_1; + t1=tmp_2; + , + tmp=Nearestpt(Gdata,Fdata); + pt=tmp_3; + t1=tmp_4; + ); + ); + if(length(KL)>1, + if(Start==[], + err("No Start Point"); + , + pt=KL_1_1; + t1=KL_1_2; + tmp=|pt-Start|; + forall(2..length(KL),ii, // 15.04.20 + tmp1=KL_ii_1; + tmp2=|tmp1-Start|; // 15.04.20 + if(tmp2<tmp, + pt=tmp1; + t1=KL_ii_2; + tmp=tmp2; + ); + ); + ); + ); +// pt=Pcrd(pt); // 15.09.12 + Start=pt; + AnsL=[]; + forall(1..length(plist),nn, + Fdata=plist_nn; + if(nn>1, pt=qt); + if(nn==length(plist), + qt=Start; + , + Flg=0; + Gdata=plist_(nn+1); +// tmp1=concat([Eps,EEps],eqL); // 15.04.06 + KL=IntersectcrvsPp(Gdata,Fdata); + if(length(KL)==1, + tmp=KL_1; + qt=KL_1_1; + t3=KL_1_2; + Flg=10; + ); + if(length(KL)==0,Flg=1); + if(length(KL)>1, + tmp1=KL_1_1; + tmp2=KL_2_1; + tmp=|tmp1-tmp2|; + if(tmp<Eps*10, Flg=1); + ); + if(Flg==1, + if(Numptcrv(Fdata)>Numptcrv(Gdata), + tmp=Nearestpt(Fdata,Gdata); + qt=tmp_1; + t3=tmp_4; + Flg=10; + , + tmp=Nearestpt(Gdata,Fdata); + qt=tmp_3; + t3=tmp_2; + Flg=10; + ); + ); + if(Flg<10, + t2=10^6; //%inf; + forall(1..length(KL),ii, + tmp1=KL_ii_1; + tmp=KL_ii_3; + tmp2=ParamonCurve(tmp1,tmp,Fdata); + tmp3=KL_ii_2; + if(tmp2>t1+Eps & tmp2<t2+Eps, + qt=tmp1; + t2=tmp2; + t3=tmp3; + ); + ); + ); + ); + tmp=Partcrv("",pt,qt,Fdata,["nodata"]); + t1=t3; + if(nn==1, + AnsL=tmp; + , + AnsL=concat(AnsL,tmp_(2..length(tmp))); + ); + ); + AnsL=apply(AnsL,Pcrd(#)); // 15.09.12 + if(Noflg<3, + println("generate Enclosing "+name); + tmp=name+"="+textformat(AnsL,5); + parse(tmp); + tmp=name+"=Enclosing("; + tmp1="list("; + forall(plist, + tmp1=tmp1+#+","; + ); + tmp=tmp+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + tmp=apply(AnsL,Lcrd(#)); + tmp; +); + +Shade(plist):=Shade(plist,[]); +Shade(plist,options):=( +//help:Shade(["gr2","sg1"],[0.5]); +//help:Shade([pointlist],[0.5]); + regional(tmp,tmp1,tmp2,opstr,opcindy,Str,G2,flg); + if(isstring(plist_1), // 16.01.24 + println("output Shade of "+plist); + , + println("output Shade of lists"); + ); + tmp=Divoptions(options); + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + flg=0; + forall(plist, + if(flg==0, + if(isstring(#),tmp=parse(#),tmp=#); // from 16.01.24 + if(!islist(tmp),flg=1); upto + ); + ); + if(flg==1, +// err("some data not defined yet"); + , + G2=Joincrvs("1",plist,["nodata"]); + G2=apply(G2,Pcrd(#)); + tmp1="fillpoly("+textformat(G2,5)+opcindy+");"; + parse(tmp1); + ); + Str="Shade("; + tmp1="list("; + forall(plist, + if(isstring(#), // from 16.01.24 + if(length(#)>1, + tmp1=tmp1+#+","; + , + tmp1=tmp1+Dq+#+Dq+","; + ); + , + tmp1=tmp1+"Listplot("+textformat(#,5)+"),"; + ); // upto 16.01.24 + ); + Str=Str+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")"; + Com2nd(Str); +); + + +//help:start(); + +Rotatepoint(point,Theta,ctr):=( +//help:Rotatepoint(A,2*pi/3,B); + regional(X1,X2,Y1,Y2,Cx,Cy,tmp); + tmp=Lcrd(point); + X1=tmp_1; Y1=tmp_2; + tmp=Lcrd(ctr); + Cx=tmp_1; Cy=tmp_2; + X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta); + Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta); + [X2,Y2]; +); + +Translatepoint(point,mov):=( +//help:Translatepoint(A,[2,3]); + regional(X1,X2,Y1,Y2,Cx,Cy,tmp); + tmp=Lcrd(point); + X1=tmp_1; Y1=tmp_2; + tmp=Lcrd(mov); + Cx=tmp_1; Cy=tmp_2; + X2=X1+Cx; + Y2=Y1+Cy; + [X2,Y2]; +); + +Scalepoint(point,ratio,center):=( +//help:Scalepoint(A,[3,2],[0,0]); + regional(X1,X2,Y1,Y2,Cx,Cy,tmp); + tmp=Lcrd(point); + X1=tmp_1; Y1=tmp_2; + tmp=Lcrd(center); + Cx=tmp_1; Cy=tmp_2; + X2=Cx+ratio_1*(X1-Cx); + Y2=Cy+ratio_2*(Y1-Cy); + [X2,Y2]; +); + +Reflectpoint(point,symL):=( +//help:Reflectpoint(A,B); +//help:Reflectpoint(A,[[2,3]]); +//help:Reflectpoint(A,[C,E]);\\ + regional(X1,X2,Y1,Y2,Us,Vs,Pt1,Pt2,Cx,Cy,tmp); + tmp=Lcrd(point); + X1=tmp_1; Y1=tmp_2; + Pt1=Lcrd(symL_1); + if(length(symL)==1, + Pt2=Pt1; + , + Pt2=Lcrd(symL_2); + ); + Us=Pt2_1-Pt1_1; + Vs=Pt2_2-Pt1_2; + if(Pt1==Pt2, + X2=2*Pt1_1-X1; + Y2=2*Pt1_2-Y1; + , + X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1 + -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); + Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1 + +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); + ); + [X2,Y2]; +); + +Rotatedata(nm,plist,Theta):=Rotatedata(nm,plist,Theta,[]); +Rotatedata(nm,plist,angle,options):=( +//help:Rotatedata("1","crAB",pi/3,[[1,5],"dr,2"]); + regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdLL,PdL, + opcindy,Nj,Njj,Kj,Mj,X1,Y1,X2,Y2,Ltype,Noflg,name); + name="rt"+nm; + Pt=[0,0]; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + tmp1=tmp_6; + if(length(tmp1)>0,Pt=Lcrd(tmp1_1)); + pdata=plist; + if(isstring(pdata),pdata=[pdata]); + if(!isstring(pdata_1) & MeasureDepth(pdata)==1, + pdata=[pdata]; + ); + if(isstring(angle),Theta=parse(angle),Theta=angle); + Cx=Pt_1; Cy=Pt_2; + PdL=[]; + forall(pdata,Njj, + if(isstring(Njj),Kj=parse(Njj),Kj=Njj); + if(MeasureDepth(Kj)==1,Kj=[Kj]); + tmp2=[]; + forall(Kj,Nj, + tmp1=[]; + forall(Nj, + tmp=LLcrd(#); + X1=tmp_1; + Y1=tmp_2; + X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta); + Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta); + tmp1=concat(tmp1,[[X2,Y2]]); + ); + tmp2=concat(tmp2,[tmp1]); + ); + PdL=concat(PdL,tmp2); + ); + if(Noflg<3, + println("generate Rotatedata "+name); + tmp1=[]; + forall(PdL,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// tmp1=textformat(plist,5); + tmp1=text(plist); // 15.10.15 + tmp1=replace(tmp1,"[","list("); + tmp1=replace(tmp1,"]",")"); + tmp=name+"=Rotatedata("+tmp1+"," + +textformat(angle,5)+","+textformat(Pt,5)+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; +); + +translatedata(nm,plist,mov):=translatedata(nm,plist,mov,[]); +translatedata(nm,plist,mov,options):=( +//help:translatedata("1",["gr1"],[1,2]); + regional(tmp,tmp1,tmp2,pdata,Cx,Cy,PdL,Nj,Njj,Kj, + opcindy,X2,Y2,Ltype,Noflg,name); + name="tr"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + pdata=plist; + if(isstring(pdata),pdata=[pdata]); + if(!isstring(pdata_1) & MeasureDepth(pdata)==1, + pdata=[pdata]; + ); + tmp=Lcrd(mov); + Cx=tmp_1; Cy=tmp_2; + PdL=[]; + forall(pdata,Njj, + if(isstring(Njj),Kj=parse(Njj),Kj=Njj); + if(MeasureDepth(Kj)==1,Kj=[Kj]); + tmp2=[]; + forall(Kj,Nj, + tmp1=[]; + forall(Nj, + tmp=LLcrd(#); + X2=tmp_1+Cx; + Y2=tmp_2+Cy; + tmp1=concat(tmp1,[[X2,Y2]]); + ); + tmp2=concat(tmp2,[tmp1]); + ); + PdL=concat(PdL,tmp2); + ); + if(Noflg<3, + println("generate translatedata "+name); + tmp1=[]; + forall(PdL,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// tmp1=textformat(plist,5); + tmp1=text(plist); // 15.10.15 + tmp1=replace(tmp1,"[","list("); + tmp1=replace(tmp1,"]",")"); + tmp=name+"=translatedata("+tmp1+","+textformat(mov,5)+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; +); + +Scaledata(nm,plist,ratioV):=( + regional(tmp); + tmp=Lcrd(ratioV); + Scaledata(nm,plist,tmp_1,tmp_2,[]); +); +Scaledata(nm,plist,Arg1,Arg2):=( +//help:Scaledata("1","crAB",3,2,[[0,0]]); + regional(tmp,options); + if(islist(Arg2), + tmp=Lcrd(Arg1); + options=Arg2; + Scaledata(nm,plist,tmp_1,tmp_2,options); + , + Scaledata(nm,plist,Arg1,Arg2,[]); + ); +); +Scaledata(nm,plist,rx,ry,options):=( + regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdL, + opcindy,Nj,Njj,Kj,X2,Y2,Ltype,Noflg,name); + name="sc"+nm; + Pt=[0,0]; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + tmp1=tmp_6; + if(length(tmp1)>0, + Pt=Lcrd(tmp1_1); + ); + pdata=plist; + if(isstring(pdata),pdata=[pdata]); + if(!isstring(pdata_1) & MeasureDepth(pdata)==1, + pdata=[pdata]; + ); + Cx=Pt_1; Cy=Pt_2; + PdL=[]; + forall(pdata,Njj, + if(isstring(Njj),Kj=parse(Njj),Kj=Njj); + if(MeasureDepth(Kj)==1,Kj=[Kj]); + tmp2=[]; + forall(Kj,Nj, + tmp1=[]; + forall(Nj, + tmp=LLcrd(#); + X2=Cx+rx*(tmp_1-Cx); + Y2=Cy+ry*(tmp_2-Cy); + tmp1=concat(tmp1,[[X2,Y2]]); + ); + tmp2=concat(tmp2,[tmp1]); + ); + PdL=concat(PdL,tmp2); + ); + if(Noflg<3, + println("generate Scaledata "+name); + tmp1=[]; + forall(PdL,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=text(plist); // 15.10.15 + tmp1=replace(tmp1,"[","list("); + tmp1=replace(tmp1,"]",")"); + tmp=name+"=Scaledata("+tmp1+"," + +textformat(rx,5)+","+textformat(ry,5)+","+textformat(Pt,5)+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; +); + +Reflectdata(nm,plist,symL):=Reflectdata(nm,plist,symL,[]); +Reflectdata(nm,plist,symL,options):=( +//help:Reflectdata("1","crAB",[C]); + regional(tmp,tmp1,tmp2,pdata,Us,Vs,Pt1,Pt2,Cx,Cy,PdL, + opcindy,Nj,Njj,Kj,X1,Y1,X2,Y2,Ltype,Noflg,name); + name="re"+nm; + Pt=[0,0]; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + pdata=plist; + if(isstring(pdata),pdata=[pdata]); + if(!isstring(pdata_1) & MeasureDepth(pdata)==1, + pdata=[pdata]; + ); + Pt1=Lcrd(symL_1); + if(length(symL)==1, + Pt2=Pt1; + , + Pt2=Lcrd(symL_2); + ); + Us=Pt2_1-Pt1_1; + Vs=Pt2_2-Pt1_2; + PdL=[]; + forall(pdata,Njj, + if(isstring(Njj),Kj=parse(Njj),Kj=Njj); + if(MeasureDepth(Kj)==1,Kj=[Kj]); + tmp2=[]; + forall(Kj,Nj, + tmp1=[]; + forall(Nj, + tmp=LLcrd(#); + X1=tmp_1; + Y1=tmp_2; + if(Pt1==Pt2, + X2=2*Pt1_1-X1; + Y2=2*Pt1_2-Y1; + , + X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1 + -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); + Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1 + +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); + ); + tmp1=concat(tmp1,[[X2,Y2]]); + ); + tmp2=concat(tmp2,[tmp1]); + ); + PdL=concat(PdL,tmp2); + ); + if(Noflg<3, + println("generate Reflectdata "+name); + tmp1=[]; + forall(PdL,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// tmp1=textformat(plist,5); + tmp1=text(plist); // 15.10.15 + tmp1=replace(tmp1,"[","list("); + tmp1=replace(tmp1,"]",")"); + tmp=name+"=Reflectdata("+tmp1+","+textformat(symL,5)+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; +); + +Mksegments():=Mksegments([]); +Mksegments(options):=( +//help:Mksegments(); + regional(segstr,p,q,r,tmp1,tmp2,tmp3); + forall(allsegments(),seg, + str=text(inspect(seg,"definition")); + tmp1=indexof(str,"("); + tmp2=indexof(str,";"); + tmp3=indexof(str,")"); + p=substring(str,tmp1,tmp2-1); + q=substring(str,tmp2,tmp3-1); + Listplot([parse(p),parse(q)]); + ); +); + +Mkcircles():=Mkcircles([]); +Mkcircles(options):=( +//help:Mkcircles(): + regional(seg,cir,str,p,q,r,tmp1,tmp2,tmp3,tmp4); + forall(allcircles(),cir, + str=text(inspect(cir,"definition")); + tmp1=indexof(str,"("); + tmp2=indexof(str,";"); + tmp3=indexof(str,")"); + tmp4=indexof(str,";",tmp2+1); + if(tmp4==0, + p=substring(str,tmp1,tmp2-1); + q=substring(str,tmp2,tmp3-1); + Circledata([parse(p),parse(q)]); + , + p=substring(str,tmp1,tmp2-1); + q=substring(str,tmp2,tmp4-1); + r=substring(str,tmp4,tmp3-1); + Circledata([parse(p),parse(q),parse(r)]); + ); + ); +); + +Makesciarg(arglist):=( + regional(str,tmpstr); + str=""; + forall(arglist, + if(isstring(#), + tmpstr=Dq+#+Dq; + , + tmpstr=textformat(#,5); + ); + str=str+tmpstr+","; + ); + str=substring(str,0,length(str)-1); + str; +); + +Setax(arglist):=( +//help:Setax(["l","x","e","y","n","O","sw"]); +//help:Setax([7,"nw"]); + regional(tmp); + tmp=Makesciarg(arglist); + Com1st("Setax("+tmp+")"); +); + +Htickmark(arglist):=( +//help:Htickmark([1,"1",2,"sw","2"]); + regional(tmp); + tmp=""; + tmp=Makesciarg(arglist); + Com2nd("Htickmark("+tmp+")"); +); + +Vtickmark(arglist):=( +//help:Vtickmark([1,"1",2,"sw","2"]); + regional(tmp); + tmp=Makesciarg(arglist); + Com2nd("Vtickmark("+tmp+")"); +); + +Drwxy():=( +//help:Drwxy(); + Com2nd("Drwxy()"); + Addax(0); // 16.01.21 +); + +Drwpt(pstr):=Drawpoint(pstr); +Drwpt(ptlist,nn):=( // 16.03.05 from +//help:Drwpt(A); +//help:Drwpt("[1,1],0"); +//help:Drwpt(A,0); +//help:Drwpt([1,2],0); + Drawpoint(ptlist,nn); +); +Drawpoint(pstr):=( + if(isstring(pstr), + println("Drwpt : "+pstr); + Com2nd("Drwpt("+pstr+")"); + , + Drawpoint(pstr,1); + ); +); +Drawpoint(ptlistorg,nn):=( + regional(ptlist,thick,tmp,tmp1); + println("Drwpt : "+text(ptlistorg)); + if(islist(ptlistorg), + if(MeasureDepth(ptlistorg)==1, + ptlist=ptlistorg + , + ptlist=[ptlistorg] + ); + , + ptlist=[ptlistorg] + ); + thick=PenThick/PenThickInit;// 16.04.09 from + tmp1=max(TenSize/TenSizeInit,1)/8; + Setpen(tmp1); // 16.04.09 upto + forall(ptlist, + tmp=textformat(#,5)+","+text(nn); + Com2nd("Drwpt("+tmp+")"); // 16.04.09 + ); + Setpen(thick); // 16.04.09 +);// 16.03.05 upto + +Addax(param):=( +//help:Addax(0); + ADDAXES=text(param); +); + +Expr(Pt,Dr,St):=Expr([Pt,Dr,St]); +Expr(list):=Expr(list,[]); +Expr(listorg,options):=( //16.10.09 +//help:Expr([A,"e","f(x)=x^2"]); + regional(list,str,tmp,tmp1,tmp2); + list=listorg; + forall(1..round(length(list)/3), + str=list_(3*#); + if(!isstring(str),str=format(str,5)); + str="$"+str+"$"; + list_(3*#)=str; + ); + Letter(list,options); +); + +Letter(Pt,Dr,St):=Letter([Pt,Dr,St]); +Letter(list):=Letter(list,[]); +Letter(list,options):=( +//help:Letter([C,"c","Graph of f(x)"]); + regional(Nj,Pos,Dir,Str,Off,Dmv,Xmv,Ymv,Noflg,opcindy, + opL,aln,sz,clr,bld,ita,tmp,tmp1,tmp2); + tmp=Divoptions(options); + Noflg=tmp_2; + opL=select(options,indexof(#,"->")>0); //16.10.09from + tmp=select(opL,indexof(#,"color")); + size=12; + clr=[0,0,0]; + bld=false; + ita=false; + aln="left"; + forall(opL, + tmp=indexof(#,"->"); + tmp1=removespace(substring(#,0,tmp-1)); + tmp2=substring(#,tmp+1,length(#)); + if(tmp1=="size",sz=parse(tmp2)); + if(tmp1=="color",clr=parse(tmp2)); + if(tmp1=="bold",bld=parse(tmp2)); + if(tmp1=="ita",ita=parse(tmp2)); + );//16.10.09upto + Off=-4; + Dmv=8; + Nj=1; + while(Nj+2<=length(list), +// Pos=textformat(list_Nj,5); + Pos=list_Nj; + Dir=list_(Nj+1); + if(Dir=="s" % Dir=="n", Dir=Dir+"c");//16.10.08 + Str=list_(Nj+2); + if(!isstring(Str),Str=format(Str,5)); // 16.09.30,10.09 + tmp=replace(Str,".xy",""); + tmp=replace(tmp,".x","(1)"); + Str=replace(tmp,".y","(2)"); + if(indexof(Str,"`")>0, +// tmp=Dq+",Assign('"+Str+"','`',Prime()))"; + tmp=Dq+",Assign('"+Str+"'))"; // 15.02.22 + , + tmp=Dq+","+Dq+Str+Dq+")"; + ); + if(Noflg==0, + Com2nd("Letter("+Lcrd(Pos)+","+Dq+Dir+tmp);//16.10.10 + ); + if(Noflg<2, + Xmv=0;//16.10.13 + Ymv=-4; + if(indexof(Dir,"n")>0, + Ymv=Dmv/2; + ); + if(indexof(Dir,"s")>0, + Ymv=-Dmv*3/2;//16.10.13 + ); + if(indexof(Dir,"e")>0, + Xmv=Dmv/2; + Off=0; + aln="left"; + ); + if(indexof(Dir,"w")>0, + Xmv=-Dmv/2; + Off=0; // 16.09.30from + aln="right"; + ); + if(indexof(Dir,"c")>0, + Xmv=0;//16.10.13 + Off=0; + if(Ymv==0,Ymv=-4);//16.10.08 + aln="mid"; // 16.09.30upto + ); + drawtext(Pcrd(Pos),Str,offset->[Off+Xmv,Off+Ymv], + size->sz,color->clr,align->aln,bold->bld,italics->ita);//16.10.09 + ); + Nj=Nj+3; + ); +); + +Letterrot(pt,dir,str):=Letterrot(pt,dir,0,0,str); +Letterrot(pt,dir,movstr,str):=( +//help:Letterrot(C,B-A,"AB"): +//help:Letterrot(C,B-A,0,5,"AB"): +//help:Letterrot(C,B-A,"t0n5","AB"): + regional(tmov,nmov,tmp,tmp1,tmp2); + tmp1=indexof(movstr,"t"); + tmp2=indexof(movstr,"n"); + if(tmp1>0, + if(tmp2>0,tmp=tmp2-1,tmp=length(movstr)); + tmov=parse(substring(movstr,tmp1,tmp)); + , + tmov=0; + ); + if(tmp2>0, + nmov=parse(substring(movstr,tmp2,length(movstr))); + , + nmov=0; + ); + Letterrot(pt,dir,tmov,nmov,str); +); +Letterrot(pt,dir,tmov,nmov,str):=( + Letter([pt,"c",str],["notex"]); + Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')"); +); + +Exprrot(pt,dir,str):=Exprrot(pt,dir,0,0,str); +Exprrot(pt,dir,movstr,str):=( +//help:Exprrot(C,B-A,"d"): +//help:Exprrot(C,B-A,0,5,"d"): +//help:Exprrot(C,B-A,"t0n5","d"): + regional(tmov,nmov,tmp,tmp1,tmp2); + tmp1=indexof(movstr,"t"); + tmp2=indexof(movstr,"n"); + if(tmp1>0, + if(tmp2>0,tmp=tmp2-1,tmp=length(movstr)); + tmov=parse(substring(movstr,tmp1,tmp)); + , + tmov=0; + ); + if(tmp2>0, + nmov=parse(substring(movstr,tmp2,length(movstr))); + , + nmov=0; + ); + Exprrot(pt,dir,tmov,nmov,str); +); +Exprrot(pt,dir,tmov,nmov,str):=( + Expr([pt,"c",str],["notex"]); + Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')"); +); + +Putpoint(name,Pt):=Putpoint(name,Pt,Pt); +Putpoint(name,Ptinit,Pt):=( +//help:Putpoint("A",[1,2],[1,A.y]); + regional(ptstr); + ptstr=apply(allpoints(),#.name); + if(!contains(ptstr,name), + createpoint(name,Pcrd([Ptinit_1,Ptinit_2])); + , + ptstr=name+".xy="+textformat(Pcrd(Pt),5); + parse(ptstr); + ); +); + +Bezierpt(t,ptlist,ctrlist):=( + regional(flg3,p0,p1,p2,p3,p4,p5,p6,p7,p8,p9); + p0=ptlist_1; + p3=ptlist_2; + p1=ctrlist_1; + if(length(ctrlist)==1, + p2=p3; + flg3=0; + , + p2=ctrlist_2; + flg3=1; + ); + if(length(p0)<3, // 15.02.08 + p0=Lcrd(p0); + p3=Lcrd(p3); + p1=Lcrd(p1); + p2=Lcrd(p2); + ); + p4=(1-t)*p0+t*p1; + p5=(1-t)*p1+t*p2; + p6=(1-t)*p2+t*p3; + p7=(1-t)*p4+t*p5; + p8=(1-t)*p5+t*p6; + p9=(1-t)*p7+t*p8; + if(flg3==0,p7,p9); +); + +Bezier(ptctrlist):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,[]); +Bezier(ptctrlist,options):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,options); +Bezier(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]); +Bezier(nm,ptlist,ctrlist,options):=BezierCurve(nm,ptlist,ctrlist,options); +BezierCurve(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]); +BezierCurve(nm,ptlistorg,ctrlistorg,options):=( +//help:Bezier("1",[A,D],[B,C]); +//help:Bezier(options=["Num=10"]); + regional(name,Ltype,Noflg,opstr,opcindy,Num, + ptlist,ctrlist,tmp,tmp1,tmp2,ii,st,out,list); + name="bz"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + Num=10; + tmp1=tmp_5; + forall(tmp1, // 14.12.31 + if(substring(#,0,1)=="N", + tmp2=indexof(#,"="); + Num=parse(substring(#,tmp2,length(#))); + opstr=opstr+","+Dq+#+Dq; + ); + ); + ptlist=apply(ptlistorg,Lcrd(#)); // 16.08.16 + ctrlist=[]; // 14.12.31 + if(length(ctrlistorg)==length(ptlist)-1, + forall(ctrlistorg,tmp1, + if(MeasureDepth(tmp1)==0,tmp=[tmp1],tmp=tmp1); + tmp=apply(tmp,Lcrd(#)); // 16.08.16 + ctrlist=append(ctrlist,tmp); + ); + , + forall(1..(length(ptlist)-1),ii, + tmp=ctrlistorg_((2*ii-1)..(2*ii)); + tmp=apply(tmp,Lcrd(#)); // 16.08.16 + ctrlist=append(ctrlist,tmp); + ); + ); + if(!islist(Num), + Num=apply(ctrlist,Num); + ); + list=[]; + forall(1..(length(ptlist)-1),ii, + tmp1=ptlist_(ii..(ii+1)); + tmp2=ctrlist_ii; + if(ii==1,st=0,st=1); + forall(st..Num_ii, + tmp=Bezierpt(#/Num_ii,tmp1,tmp2); + list=append(list,tmp); + ); + ); + if(Noflg<3, + println("generate Bezier "+name); + out=apply(list,Pcrd(#)); + tmp=name+"="+textformat(out,5); + parse(tmp); + tmp1=textformat(ptlist,5); + tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")"; + tmp2=textformat(ctrlist,5); + tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")"; + GLIST=append(GLIST,name+"=Bezier("+tmp1+","+tmp2+opstr+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + list; +); + +Readcsvsla(fname):=Readplotdigdata(fname,[]); +Readcsvsla(fname,options):=Readplotdigdata(fname,options); +Readplotdigdata(fname):=Readplotdigdata(fname,[]); +Readplotdigdata(fname,options):=( + regional(fsc,mv,cmdall,dataL,nd,npt,ptdata,ii,tmp,tmp1,tmp2,tmp3); + tmp=Divoptions(options); + tmp1=tmp_6; + sc=1;//10; + mv=[0,0];//[5,5]; + forall(tmp1, + if(!islist(#),sc=#,mv=#); + ); + if(indexof(fname,".")>0, + tmp=load(fname); + , + tmp=load(fname+".txt"); + ); + cmdall=tokenize(tmp,"//"); + dataL=[]; + forall(2..length(cmdall),ii, + tmp1=parse("["+cmdall_ii+"]"); + dataL=append(dataL,tmp1); + ); + if(length(dataL_(length(dataL)))<2, + dataL=dataL_(1..(length(dataL)-1)); + ); + nd=length(dataL_1)/2; + npt=length(dataL); + ptdata=[]; + forall(1..nd,ii, + tmp3=[]; + forall(1..npt, + tmp1=dataL_#_(2*ii-1); + tmp2=dataL_#_(2*ii); + if(isreal(tmp1), + tmp3=append(tmp3,[tmp1,tmp2]); + ); + ); + ptdata=append(ptdata,tmp3); + ); + tmp1=[]; + forall(ptdata, + tmp=#/sc; + tmp=translatedata("1",[tmp],-mv,["nodata"]); + tmp1=append(tmp1,tmp); + ); + ptdata=tmp1; + ptdata; +); + +Putbezierdata(name,ptL):=Putbezierdata(name,ptL,[]); +Putbezierdata(name,ptL,options):=( + regional(psize,Deg,tmp,tmp1,tmp2,p1,p2,pts,ctrs); + tmp=Divoptions(options); + psize=3; + Deg=3; + tmp1=tmp_5; + forall(tmp1, + if(substring(#,0,1)=="D", + tmp=indexof(#,"="); + Deg=parse(substring(#,tmp,length(#))); + ); + if(substring(#,0,1)=="S", + tmp=indexof(#,"="); + psize=parse(substring(#,tmp,length(#))); + ); + ); + pts=[]; + ctrs=[]; + forall(1..length(ptL), + p2=ptL_#; // 16.08.16 + if(ispoint(p2), + tmp1=text(p2); + , + tmp1=name+text(#); + Putpoint(tmp1,p2,Lcrd(parse(tmp1))); // 16.08.16 + ); + inspect(parse(tmp1),"ptsize",psize); + pts=append(pts,parse(tmp1)); + inspect(parse(tmp1),"color",4); + if(#>1, + p1=Lcrd(ptL_(#-1)); // 16.08.16 + p2=Lcrd(ptL_#); // 16.08.16 + if(Deg==3, + tmp=(2*p1+p2)/3; + tmp1=name+"p"+text(#-1); + Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16 + inspect(parse(tmp1),"labeled",false); //15.01.22 + Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22 + inspect(parse(tmp1),"ptsize",psize); + inspect(parse(tmp1),"color",3); + tmp=(p1+2*p2)/3; + tmp2=name+"q"+text(#-1); + Putpoint(tmp2,tmp,Lcrd(parse(tmp2))); // 16.08.16 + inspect(parse(tmp2),"labeled",false); //15.01.22 + Letter([parse(tmp2),"ne",tmp2],["notex"]); //15.01.22 + inspect(parse(tmp2),"ptsize",psize); + inspect(parse(tmp2),"color",3); + ctrs=append(ctrs,[parse(tmp1),parse(tmp2)]); + , + tmp=(p1+p2)/2; + tmp1=name+"p"+text(#-1); + Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16 + inspect(parse(tmp1),"labeled",false); //15.01.22 + Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22 + inspect(parse(tmp1),"ptsize",psize); + inspect(parse(tmp1),"color",3); + ctrs=append(ctrs,[parse(tmp1)]); + ); + ); + ); + [pts,ctrs,name]; +); + +Bezierstart(n):=( // 2016.02.26 + BezierNumber=n; +); + +Mkbezierptcrv(ptdata):=Mkbezierptcrv(ptdata,[]); +Mkbezierptcrv(ptdata,options):=( + //help:Mkbezierptcrv([A,B,C,D]); + //help:Mkbezierptcrv([[A,B],[C,D]]); + //help:Mkbezierptcrv(options=["Num=10"]); + // global BezierNumber + regional(ptlist,Out,tmp,tmp1,tmp2); + if(isstring(ptdata), + ptlist=Readcsvsla(ptdata,options); + , + ptlist=ptdata; + ); + if(MeasureDepth(ptlist)==1,ptlist=[ptlist]); + Out=[]; + forall(1..length(ptlist), + tmp=floor((BezierNumber-1)/26);// 15.02.23 + if(tmp==0,tmp="",tmp=text(tmp)); + tmp2=mod(BezierNumber,26); + if(tmp2==0,tmp2=26); + tmp1=unicode(text(96+tmp2),base->10)+tmp;// 15.03.11 + tmp2=Putbezierdata(tmp1,ptlist_#,options); + Bezier(tmp2,options); + BezierNumber=BezierNumber+1; + Out=append(Out,tmp2_(1..2)); + ); + Out; +); + +Mkbeziercrv(nm,ptctrL):=Mkbeziercrv(nm,ptctrL,[]); +Mkbeziercrv(nm,ptctrL,options):=( + //help:Mkbeziercrv("1",[[A,B,C,D],[[P,Q],[R,S],T]]); + regional(ptctrLL,name,ptlist,ctrlist,tmp,tmp1,tmp2); + if(MeasureDepth(ptctrL)==2,ptctrLL=[ptctrL],ptctrLL=ptctrL); + forall(1..length(ptctrLL), + name=nm+text(#); + ptlist=ptctrLL_#_1; + ctrlist=ptctrLL_#_2; + Bezier(name,ptlist,ctrlist,options); + ); +); + +Writebezier():=Writebezier(Fhead,"all"); +Writebezier(head):=Writebezier(head,"all"); +Writebezier(head,seL):=( +//help:Writebezier(file); +//help:Writebezier(file,"acd"); + regional(bz,dt,name,tmp,tmp1,tmp2); + bz=select(GLIST,indexof(#,"=Bezier")>0); + tmp1=[]; // 16.04.22from + if(seL!="all", + forall(1..length(seL), + tmp=substring(seL,#-1,#); + tmp=select(bz,indexof(#,"bz"+tmp)>0); + tmp1=concat(tmp1,tmp); + ); + bz=tmp1;// 16.04.22upto + ); + dt=[head+"n",[[length(bz),0]]]; + forall(1..length(bz), + tmp=indexof(bz_#,"="); + name=substring(bz_#,0,tmp-1); + tmp=indexof(bz_#,","+Dq); + if(tmp>0, + tmp1=substring(bz_#,0,tmp-1)+")"; + , + tmp1=bz_#; + ); + tmp1=replace(tmp1,"Bezier(","["); + tmp1=replace(tmp1,"list(","["); + tmp1=replace(tmp1,")","]"); + tmp1=replace(tmp1,",",".xy,"); + tmp1=replace(tmp1,"]",".xy]"); + tmp1=replace(tmp1,".xy,[",",["); + tmp1=replace(tmp1,"].xy","]"); + tmp1=replace(tmp1,name,head+text(#)); + parse(tmp1); + tmp=parse(head+text(#)+"_1"); + dt=concat(dt,[head+text(#)+"k",tmp]); + tmp=parse(head+text(#)+"_2"); + dt=concat(dt,[head+text(#)+"c",tmp]); + ); + WriteOutData(head+".txt",dt); + dt; +); + +Readbezier(file):=Readbezier(file,[]); +Readbezier(file,optionorg):=( +//help:Readbezier("xsr"); +//help:Readbezier(options=["Num=10","nogeo"]); + regional(nn,options,stL,geo,nc,alpha,out,tmp,tmp1,tmp2,tmp3); + options=optionorg; + tmp=Divoptions(options); + stL=tmp_7; + geo=0; + forall(stL, + tmp=Toupper(substring(#,0,1)); + if(tmp=="G",geo=1); + options=remove(options,[#]); + ); + ReadOutData(file); + tmp=file+"n_1_1"; + nn=parse(tmp); + out=[]; + forall(1..nn,nc, + tmp=file+text(nc); + tmp1=parse(tmp+"k"); + tmp2=parse(tmp+"c"); + if(MeasureDepth(tmp2)==1,tmp2=[tmp2]); // 16.04.22from + if(geo==1, + alpha="abcdefghijklmnopqrstuvwxyz"; + forall(1..length(tmp1), + tmp="k"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#); + Putpoint(tmp,tmp1_#,parse(tmp+".xy")); + inspect(parse(tmp),"labeled",false); + inspect(parse(tmp),"ptsize",3); + tmp1_#=parse(tmp+".xy"); + ); + forall(1..length(tmp2), + tmp="c"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#)+"1"; + Putpoint(tmp,tmp2_#_1,parse(tmp+".xy")); + inspect(parse(tmp),"labeled",false); + inspect(parse(tmp),"color",4); + inspect(parse(tmp),"ptsize",3); + tmp2_#_1=parse(tmp+".xy"); + tmp="c"+BezierNumber+"no"+text(nc)+substring(alpha,#-1,#)+"2"; + Putpoint(tmp,tmp2_#_2,parse(tmp+".xy")); + inspect(parse(tmp),"labeled",false); + inspect(parse(tmp),"color",4); + inspect(parse(tmp),"ptsize",3); + tmp2_#_2=parse(tmp+".xy"); + ); + BezierNumber=BezierNumber+1; + ); + Bezier(file+text(nc),tmp1,tmp2,options);// 16.04.22upto + out=append(out,"bz"+tmp); + ); + out; +); + +Ospline(nm,ptlist):=Ospline(nm,ptlist,[]); +Ospline(nm,ptlist,options):=( +//help:Ospline("1",ptlist,[options]); + regional(tmp,tmp1,tmp2,list,ptL,ctrL,name,closed,flg, + p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32); + name="o"+nm; + if(isstring(ptlist),list=parse(ptlist),list=ptlist); + if(|list_1-list_(length(list))|<10^(-6),closed=1,closed=0); +// list=apply(list,LLcrd(#)); + ctrL=[]; + forall(1..(length(list)-1), + flg=0; + p1=Lcrd(list_#); // 16.08.16 + p2=Lcrd(list_(#+1)); // 16.08.16 + if(#==1 % #==length(list)-1, + flg=1; + if(closed==0, + pQ=(p1+2*p2)/3; // 15.09.21 // 16.08.16 + pR=(2*p1+p2)/3; // 16.08.16 + ctrL=append(ctrL,[pQ,pR]); + flg=2; + , + if(#==1, + p0=Lcrd(list_(length(list)-1)); // 16.08.16 + p3=Lcrd(list_(#+2)); // 16.08.16 + , + p0=Lcrd(list_(#-1)); // 16.08.16 + p3=Lcrd(list_2); // 16.08.16 + ); + ); + ); + if(flg<=1, + if(flg==0, + p0=Lcrd(list_(#-1)); // 16.08.16 + p3=Lcrd(list_(#+2)); // 16.08.16 + ); + tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2); + cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp; + pQ=p1+cc*(p2-p0); // 15.09.21 // 16.08.16 + pR=p2+cc*(p1-p3); // 16.08.16 + ctrL=append(ctrL,[pQ,pR]); + ); + ); +// list=apply(list,LLcrd(#)); // 16.08.16 +// ctrL=apply(ctrL,LLcrd(#)); + if(closed==0, // 15.09.21 + p1=ctrL_2_1; + p2=Lcrd(list_2); // 16.08.16 + pQ=p2+(p2-p1); + ctrL_1=[pQ]; + tmp=length(ctrL); + tmp1=ctrL_(tmp-1); + p1=ctrL_(tmp-1)_2; + p2=Lcrd(list_(tmp)); // 16.08.16 + pQ=p2+(p2-p1); + ctrL_tmp=[pQ]; + ); + Bezier("o"+nm,list,ctrL,options); +); + +CRspline(nm,ptL):=CRspline(nm,ptL,[]); +CRspline(nm,ptL,options):=( + // Catmull-Rom spline +//help:CRspline("1",[A,B,C,A]); + regional(name,ptlist,ctrpts,eqL,opcindy,c,v,tmp,tmp1,tmp2,ctrlist,cflg); + name="crsp"+nm; + if(MeasureDepth(ptL)==1,tmp=[ptL],tmp=ptL); + ptlist=tmp_1; + if(length(tmp)==1, + cflg=1; + , + cflg=0; + ctrpts=tmp_2; + ); + c=1/6; + tmp=Divoptions(options); + eqL=tmp_5; + opcindy=tmp_(length(tmp)); // 15.03.05 + forall(eqL, + if(substring(#,0,1)=="R", + tmp2=indexof(#,"="); + c=parse(substring(#,tmp2,length(#))); + ); + ); + ptlist=apply(ptlist,Lcrd(#)); // 16.08.16 + ctrlist=[]; + forall(1..(length(ptlist)-1), + if(#==1, + if(cflg==0, + tmp1=ctrpts_1; + , + v=ptlist_2-ptlist_(length(ptlist)-1); + tmp1=ptlist_#+c*v; + ); + , + v=ptlist_(#+1)-ptlist_(#-1); + tmp1=ptlist_#+c*v; + ); + if(#==length(ptlist)-1, + if(cflg==0, + tmp2=ctrpts_2; + , + v=ptlist_2-ptlist_#; + tmp2=ptlist_(#+1)-c*v; + ); + , + v=ptlist_(#+2)-ptlist_#; + tmp2=ptlist_(#+1)-c*v; + ); + tmp=select(options,indexof(text(#),"->")>0); + tmp=append(tmp,"notex"); //15.03.05 + Pointdata(name+text(#),[tmp1,tmp2],tmp); + ctrlist=append(ctrlist,[tmp1,tmp2]); + ); + Bezier(nm,ptlist,ctrlist,options); +); + +Beziersmooth(nm,ptL):=Bzspline(nm,ptL,[]); +//help:Beziersmooth("1",[A,B,C,A]); +Beziersmooth(nm,ptL,options):=Bzspline(nm,ptL,options); +Bzspline(nm,ptL):=Bzspline(nm,ptL,[]); +Bzspline(nm,ptLorg,options):=( + // smooth bezier + regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr, + tmp,tmp1,tmp2,cflg,ctrlist); + name="bzsp"+nm; + Eps=10^(-3); + ptL=apply(ptLorg,Lcrd(#)); // 16.08.16 + if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0); + forall(2..length(ptL), + pt=ptL_#; + pt1=ptL_(#-1); + tmp1="C"+text(#-1)+"q"; + Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); // 16.08.16 + ); + forall(2..(length(ptL)-1), + if(#<length(ptL) % cflg==1, + lstr="c"+text(#); + pt=ptLorg_#; // 16.08.16 + pt1=parse("C"+text(#-1)+"q"); + create([lstr],"Join",[pt1,pt]); + tmp2="C"+text(#)+"p"; + tmp=Append((2*pt.xy-pt1.xy),1); + create([tmp2],"PointOnLine",[parse(lstr),tmp]); + ); + ); + if(cflg==0, + pt=ptL_1; + pt1=ptL_2; + tmp1="C1p"; + Putpoint(tmp1,(4*pt+pt1)/5,Lcrd(parse(tmp1))); // 16.08.16 + ); + if(cflg==1, + lstr="c1"; + pt=ptLorg_1; // 16.08.16 + pt1=parse("C"+text(length(ptL)-1)+"q"); + create([lstr],"Join",[pt1,pt]); + tmp1="C1p"; + tmp=Append((2*pt.xy-pt1.xy),1); + create([tmp1],"PointOnLine",[parse(lstr),tmp]); + ); + ctrlist=[]; + forall(1..(length(ptL)-1), + if(#>1 % cflg==1, + tmp1="c"+text(#); + inspect(parse(tmp1),"alpha",0.3); + ); + tmp1="C"+text(#)+"p"; + tmp2="C"+text(#)+"q"; + inspect(parse(tmp1),"ptsize",3); + inspect(parse(tmp1),"color",3); + inspect(parse(tmp2),"ptsize",3); + inspect(parse(tmp2),"color",3); + tmp=[parse(tmp1),parse(tmp2)]; + ctrlist=append(ctrlist,tmp); + ); + Bezier(nm,ptL,ctrlist,options); + [ptL,ctrlist]; +); + +Beziersym(nm,ptL):=Bzsspline(nm,ptL,[]); +Beziersym(nm,ptL,options):=Bzsspline(nm,ptL,options); +Bzsspline(nm,ptL):=Bzsspline(nm,ptL,[]); +Bzsspline(nm,ptLorg,options):=( + // smooth bezier with symmetric control points + regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr, + tmp,tmp1,tmp2,cflg,ctrlist); + name="bzssp"+nm; + Eps=10^(-3); + ptL=apply(ptLorg,Lcrd(#)); // 16.08.16 + if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0); + forall(2..length(ptL), + pt=ptL_#; + pt1=ptL_(#-1); + tmp1="C"+text(#-1)+"q"; + Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); + ); + forall(2..(length(ptL)-1), + if(#<length(ptL) % cflg==1, + pt=ptL_#; + pt1=parse("C"+text(#-1)+"q"); + tmp2="C"+text(#)+"p=2*pt-pt1"; + parse(tmp2); + ); + ); + if(cflg==0, + pt=ptL_1; + pt1=ptL_2; + Putpoint("C1p",(4*pt+pt1)/5,Lcrd(C1p)); // 16.08.16 + inspect(C1p,"ptsize",3); + inspect(C1p,"color",3); + ); + if(cflg==1, + pt=ptL_1; + pt1=Lcrd(parse("C"+text(length(ptL)-1)+"q")); // 16.08.16 + tmp1="Putpoint("+Dq+"C1p"+Dq+",2*pt-pt1)"; // 16.08.16 + parse(tmp1); + ); + ctrlist=[]; + forall(1..(length(ptL)-1), + tmp1="C"+text(#)+"p"; + tmp2="C"+text(#)+"q"; + inspect(parse(tmp2),"ptsize",3); + inspect(parse(tmp2),"color",3); + tmp=[parse(tmp1),parse(tmp2)]; + ctrlist=append(ctrlist,tmp); + ); + Bezier(nm,ptL,ctrlist,options); + [ptL,ctrlist]; +); + +Listbspline2bz(listorg):=( + regional(Eps,list,pcl,ptl,ctrl,k); + Eps=10^(-3); + list=apply(listorg,Lcrd(#)); // 16.08.16 + k=length(list); + if(|list_1-list_k|>Eps, + pcl=list; + pcl_1=2*list_1-list_2; + pcl_k=2*list_k-list_(k-1); + , + pcl=concat(list,[list_2]); + ); + ctrl=apply(2..(length(pcl)-1),[pcl_#]); + ptl=apply(1..(length(pcl)-1),(pcl_#+pcl_(#+1))/2); + [ptl,ctrl]; +); + +Bspline(nm,ctrL):=Bspline(nm,ctrL,[]); +Bspline(nm,ctrL,options):=( +//help:Bspline("",[A,B,C]); + regional(list,tmp); + list=Listbspline2bz(ctrL); + tmp=BezierCurve("b"+nm,list_1,list_2,options); + tmp; +); + +MeetCurve(Crv,Xorg,Yorg):=( + regional(Cv,tmp,tmp1,tmp2,X0,Y0,x1,x2,y1,y2,Ylist,Ban,Tate); + if(isstring(Crv),Cv=parse(Crv),Cv=Crv); + if(MeasureDepth(Cv)==2,Cv=Cv_1); + Cv=apply(Cv,LLcrd(#)); // 14.12.18 + while(length(Cv)==1, + Cv=Cv_1; + ); + Cv=apply(Cv,Lcrd(#)); + tmp1=min(apply(Cv,#_1)); + tmp2=max(apply(Cv,#_1)); + if(isstring(Xorg),X0=parse(Xorg),X0=Xorg); + if(isstring(Yorg),Y0=parse(Yorg),Y0=Yorg); + if(X0<tmp1, + X0=tmp1; + , + if(X0>tmp2, + X0=tmp2; + ); + ); + tmp1=select( + 1..(length(Cv)-1),Cv_#_1<=X0 & X0<=Cv_(#+1)_1); + tmp2=select( + 1..(length(Cv)-1),Cv_#_1>=X0 & X0>=Cv_(#+1)_1); + tmp2=remove(tmp2,common(tmp2,tmp1)); + Ban=concat(tmp1,tmp2); + Tate=select(Ban, + abs(Cv_#_1-Cv_(#+1)_1)<= + 10^(-2)*abs(Cv_#_2-Cv_(#+1)_2) + ); + Ban=remove(Ban,Tate); + Ylist=[]; + forall(Ban, + tmp=Cv_#; + x1=tmp_1; y1=tmp_2; + tmp=Cv_(#+1); + x2=tmp_1; y2=tmp_2; + tmp=((x2-X0)*y1+(X0-x1)*y2)/(x2-x1); + Ylist=append(Ylist,tmp); + ); + forall(Tate, + tmp=Cv_#; + x1=tmp_1; y1=tmp_2; + tmp=Cv_(#+1); + x2=tmp_1; y2=tmp_2; + tmp1=min([y1,y2]); + tmp2=max([y1,y2]); + if(Y0<tmp1, + tmp=tmp1; + , + if(Y0>tmp2, + tmp=tmp2; + , + tmp=Y0; + ); + ); + Ylist=append(Ylist,tmp); + ); + tmp=sort(Ylist,abs(#_1-Y0)); + [X0,tmp_1]; +); + +PutonLine(name,p1,p2):=PutonLine(name,p1,p2,[]); +PutonLine(name,p1org,p2org,options):=( +//help:PutonLine("C","sgAB"); +//help:PutonLine("C",pA,pB); + regional(par,p1,p2,dx,dy,tmp,tmp1,tmp2); + par=0.5; + tmp=Divoptions(options); + if(length(tmp_6)>0, + par=tmp_6_1; + ); + p1=Lcrd(p1org);//16.10.11from + p2=Lcrd(p2org); + dx=p2_1-p1_1; + dy=p2_2-p1_2; + tmp1=(1-par)*p1+par*p2; + if(abs(dx)>abs(dy), + tmp=name+".x"; + tmp2="["+tmp+",dy/dx*("+tmp+"-p1_1)+p1_2]";//16.10.11upto + Putpoint(name,tmp1,parse(tmp2)); + , + if(abs(dy)>0, + tmp=name+".y"; + tmp2="[dx/dy*("+tmp+"-p1.y)+p1_1,"+tmp+"]"; + Putpoint(name,tmp1,parse(tmp2)); + , + tmp2=p1;//16.10.11 + Putpoint(name,tmp1,tmp2); + ); + ); +); + +PutonSeg(name,sgstr):=( + regional(seg,p1,p2); + if(isstring(sgstr),seg=parse(sgstr),seg=sgstr); + PutonSeg(name,LLcrd(seg_1),LLcrd(seg_2)); +); +PutonSeg(name,p1,p2):=PutonSeg(name,p1,p2,[]); +PutonSeg(name,p1org,p2org,options):=( +//help:PutonSeg("C","sgAB"); +//help:PutonSeg("C",pA,pB); + regional(par,dx,dy,p,tmp,tmp1,tmp2); + par=0.5; + tmp=Divoptions(options); + if(length(tmp_6)>0, + par=tmp_6_1; + ); + p1=Lcrd(p1org);//16.10.11from + p2=Lcrd(p2org); + PutonLine(name,p1,p2,[par]); + dx=p2_1-p1_1; + dy=p2_2-p1_2; + p=parse(name+".xy"); + p=LLcrd(p); + if(abs(dx)>abs(dy) & (p_1-p1_1)*(p_1-p2_1)>0, + if(|p-p1|<|p-p2|, + parse(name+".xy=Pcrd(p1)"); + , + parse(name+".xy=Pcrd(p2)"); + ); + ); + if(abs(dx)<abs(dy) & (p_2-p1_2)*(p_2-p2_2)>0, + if(|p-p1|<|p-p2|, + parse(name+".xy=Pcrd(p1)"); + , + parse(name+".xy=Pcrd(p2)");//16.10.11upto + ); + ); +); + +PutonCurve(pn,crv):=PutonCurve(pn,crv,[]); +PutonCurve(pn,crv,options):=( +//help:PutonCurve("A","gr1"); + regional(Pmt,pstr,optionL,leftlim,rightlim,tmp,tmp1,Flg,Msg); + if(!islist(options),optionL=[options],optionL=options); + leftlim=XMIN; + rightlim=XMAX; + Flg=0; + Msg="y"; + forall(optionL, + if(isstring(#), // 16.02.10 from + tmp=indexof(#,"="); + tmp1=Toupper(substring(#,tmp,tmp+1)); + if(tmp1=="N", Msg="n"); // 16.02.10 upto + , + if(Flg==0, + leftlim=#; + Flg=Flg+1; + , + rightlim=#; + ); + ); + ); + Pmt=MeetCurve(crv,leftlim,0); + pstr=apply(allpoints(),textformat(#,5)); // 15.04.07 + if(!contains(pstr,pn), + createpoint(pn,Pcrd(Pmt)); + , + tmp1=parse(pn+".x"); + if(tmp1< leftlim % tmp1>rightlim, + if(tmp1< leftlim,tmp= leftlim, tmp=rightlim); + Pmt=MeetCurve(crv,textformat(tmp,5),pn+".y"); + , + Pmt=MeetCurve(crv,pn+".x",pn+".y"); + ); + ptstr=pn+".xy="+textformat(Pcrd(Pmt),5)+";"; + parse(ptstr); + ); + if(Msg=="y", + println("Put "+pn+" on Curve "+text(crv)); + ); +); + +CrossPoint(name,Crv1,Crv2,range):=( + regional(Mx1,Mx2,Mx3,tmp,Crs1,Crs2,Crs3,Crs4,df1,df2); + Mx1=range_1; Mx2=range_2; + repeat(15, + Mx3=(Mx1+Mx2)/2; + Crs1=MeetCurve(Crv1,Mx1,0); + Crs2=MeetCurve(Crv2,Mx1,0); + Crs3=MeetCurve(Crv1,Mx3,0); + Crs4=MeetCurve(Crv2,Mx3,0); + df1=Crs1_2-Crs2_2; + df2=Crs3_2-Crs4_2; + if((df1>0 & df2>0) % (df1<0 & df2<0), + Mx1=Mx3; + , + Mx2=Mx3; + ); + ); + Putpoint(name,Crs1); +); + +Setscaling(sc):=( +//help:Setscaling(3); + SCALEX=1; + SCALEY=sc; + Com0th("Setscaling("+sc+")"); + Setwindow("Msg=no"); +); + +Tabledatalight(nm,xLst,yLst,rmvL):=Tabledatalight(nm,xLst,yLst,rmvL,[]); +Tabledatalight(nm,xLst,yLst,rmvL,options):=( +//help:Tabledatalight("",xLst,yLst,rmvL,[2]); + regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb, + tmp,tmp1,tmp2,tmp3,Eps); +// name="tb"+nm; + name="tb"; + println("Tabledatalight "+name+" generated"); + tmp=sum(yLst); + upleft=[0,tmp]; + tick=1; + tmp=Divoptions(options); + flg=0; + forall(tmp_6, + if(flg==0, + tick=#; + flg=flg+1; + , + upleft=tmp_6_1; + ); + ); + ul=upleft/10; + m=length(xLst); + n=length(yLst); + xsize=sum(xLst); + ysize=sum(yLst); + clist=[ul]; + rlist=[ul]; + forall(1..m, + tmp1=clist_(#)_1+xLst_#/10; + clist=append(clist,[tmp1,clist_1_2]); + ); + forall(1..n, + tmp1=rlist_(#)_2-yLst_#/10; + rlist=append(rlist,[0,tmp1]); + ); + Tb=[clist,rlist]; + tmp=name+"="+Tb; + parse(tmp); + forall(0..m, + tmp1="c"+text(#)+"r0"; + tmp2="c"+text(#)+"r"+text(n); + Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options); + if(mod(#,tick)==0 % #==m, + tmp=clist_(#+1); + drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#)); + ); + ); + forall(0..n, + tmp1="c0r"+text(#); + tmp2="c"+text(m)+"r"+text(#); + Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options); + if(mod(#,tick)==0 % #==n, + tmp=rlist_(#+1); + drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#)); + ); + ); + Tsegrmv(rmvL,options); + Addax(0); + Eps=10^(-3); + tmp1=clist_(length(clist)); + tmp2=rlist_1; + tmp3=rlist_(length(rlist)); + Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]); + Tb; +); + +Tabledata(nm,n,m,xsize,ysize,rmvL):= + Tabledata(nm,n,m,xsize,ysize,rmvL,[]); +Tabledata(nm,n,m,xsize,ysize,rmvL,options):=( + regional(Tb,name,tmp,xLst,yLst); + name="tb"+nm; + xLst=apply(1..n,xsize/n); + yLst=apply(1..m,ysize/m); + Tabledata(nm,xLst,yLst,rmvL,options) +); +Tabledata(nm,xLst,yLst,rmvL):=Tabledata(nm,xLst,yLst,rmvL,[]); +Tabledata(nm,xLst,yLst,rmvL,options):=( +//help:Tabledata("",xLst,yLst,rmvL,[2]); + regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb, + tmp,tmp1,tmp2,tmp3,Eps); +// name="tb"+nm; + name="tb"; + println("Tabledata "+name+" generated"); + tmp=sum(yLst); + upleft=[0,tmp]; + tick=1; + tmp=Divoptions(options); + flg=0; + forall(tmp_6, + if(flg==0, + tick=#; + flg=flg+1; + , + upleft=tmp_6_1; + ); + ); + ul=upleft/10; + m=length(xLst); + n=length(yLst); + xsize=sum(xLst); + ysize=sum(yLst); + clist=[ul]; + rlist=[ul]; + forall(1..m, + tmp1=clist_(#)_1+xLst_#/10; + clist=append(clist,[tmp1,clist_1_2]); + ); + forall(1..n, + tmp1=rlist_(#)_2-yLst_#/10; + rlist=append(rlist,[0,tmp1]); + ); + Tb=[clist,rlist]; + tmp=name+"="+Tb; + parse(tmp); + forall(0..m, + tmp="C"+text(#); + tmp1="c"+text(#)+"r0"; + if(#==0, + Putpoint(tmp,Tgrid(tmp1)); + , + Putpoint(tmp,Tgrid(tmp1),[parse(tmp+".x"),C0.y]); + clist_(#+1)=parse(tmp+".xy"); + ); + inspect(parse(tmp),"ptsize",3); + inspect(parse(tmp),"labeled",false); + if(mod(#,tick)==0 % #==m, + tmp=clist_(#+1); + drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#)); + ); + ); + forall(0..n, + tmp="R"+text(#); + tmp1="c0r"+text(#); + if(#==0, + Putpoint(tmp,Tgrid(tmp1)); + , + Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]); + rlist_(#+1)=parse(tmp+".xy"); + ); + Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]); + inspect(parse(tmp),"ptsize",3); + inspect(parse(tmp),"labeled",false); + if(mod(#,tick)==0 % #==n, + tmp=rlist_(#+1); + drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#)); + ); + ); + Tb=[clist,rlist]; + tmp=name+"="+Tb; + parse(tmp); + forall(0..m, + tmp1="c"+text(#)+"r0"; + tmp2="c"+text(#)+"r"+text(n); + Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options); + if(#<m, + tmp1=parse("C"+text(#)); + tmp2=parse("C"+text(#+1)); + tmp=(tmp1.xy+tmp2.xy)/2; + drawtext(tmp+[-0.2,0.5],text((tmp2.x-tmp1.x)*10)); + ); + ); + forall(0..n, + tmp1="c0r"+text(#); + tmp2="c"+text(m)+"r"+text(#); + Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options); + if(#<n, + tmp1=parse("R"+text(#)); + tmp2=parse("R"+text(#+1)); + tmp=(tmp1.xy+tmp2.xy)/2; + drawtext(tmp-[1.2,0.1],text(abs(tmp1.y-tmp2.y)*10)); + ); + ); + Tsegrmv(rmvL,options); + Addax(0); + Eps=10^(-3); + tmp1=clist_(length(clist)); + tmp2=rlist_1; + tmp3=rlist_(length(rlist)); // 15.06.11 + Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]); + Tb; +); + +Tseginfo(seg):=( + regional(cr,tp,tpc,n1,n2,n3,tmp,tmp1,tmp2); + if(substring(seg,0,2)=="sg", + cr=substring(seg,2,length(seg)); + , + cr=seg; + ); + tp=substring(cr,0,1); + if(tp=="c", + tpc="r"; + , + tpc="c"; + ); + tmp1=indexof(cr,tpc); + tmp=substring(cr,tmp1,length(cr)); + tmp2=tmp1+indexof(tmp,tpc); + n1=substring(cr,1,tmp1-1); + n2=substring(cr,tmp1,tmp2-1); + n3=substring(cr,tmp2,length(cr)); + [tp+n1,tpc,parse(n2),parse(n3)]; +); + +Tsegrmv(rmvL):=Tsegrmv(rmvL,[]); +Tsegrmv(rmvL,options):=( + regional(cr,gcL,flg,gc,hd,tail,tpc,m1,m2,n1,n2,tmp,tmp1,tmp2); + forall(rmvL,cr, + tmp1=Tseginfo(cr); + hd=tmp1_1; + tpc=tmp1_2; + m1=tmp1_3; + m2=tmp1_4; + gcL=select(GCLIST,Tseginfo(#_1)_1==tmp1_1); + flg=0; + forall(gcL, + if(flg==0, + tmp=Tseginfo(#_1); + n1=tmp_3; + n2=tmp_4; + if(m1>=n1 & m2<=n2, + gc=#; + flg=1; + ); + ); + ); + if(flg==1, + Changestyle([gc_1],["nodisp"]); + tail=""; + if(indexof(hd,"r")>0, + tail=hd; hd=""; + ); + if(n1<m1, + tmp1=tpc+text(n1); + tmp2=tpc+text(m1); + tmp=hd+tail+tmp1+tmp2; + Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options); + ); + if(m2<n2, + tmp1=tpc+text(m2); + tmp2=tpc+text(n2); + tmp=hd+tail+tmp1+tmp2; + Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options); + ); + ); + ); +); + +Tgrid(ptstr):=( +//help:Tgrid("c2r5"); + regional(tmp,tmp1,tmp2); + tmp=parse(ptstr); + if(islist(tmp), + tmp; + , + tmp=indexof(ptstr,"r"); + tmp1=substring(ptstr,1,tmp-1); + tmp1=parse(tmp1); + tmp2=substring(ptstr,tmp,length(ptstr)); + tmp2=parse(tmp2); + [tb_1_(tmp1+1)_1,tb_2_(tmp2+1)_2]; + ); +); + +Tlistplot(ptL):=Tlistplot(ptL,[]); +Tlistplot(Ag1,Ag2):=( + regional(nm,ptL,options); + if(isstring(Ag1), + nm=Ag1; + ptL=Ag2; + options=[]; + , + ptL=Ag1; + options=Ag2; + nm=ptL_1+ptL_2; + ); + Tlistplot(nm,ptL,options); +); +Tlistplot(nm,ptL,options):=( +//help:Tlistplot(["c0r0","c0r4"]); +//help:Tlistplot("1",["c0r0","c0r4"]); + regional(tmp); + tmp=apply(ptL,Tgrid(#)); // 15.06.03 + Listplot(nm,tmp,append(options,"Msg=no")); +); + +ChangeTablestyle(nameL,style):=( +////help:ChangeTablestyle(["r0c0c3"],["da"]); + regional(nmL,tmp,tmp1,tmp2); + if(islist(nameL),nmL=nameL,nmL=[nameL]); + nmL=apply(nmL,"sg"+#); + nmL=select(nmL,islist(parse(#))); + Changestyle(nmL,style); +); + +Findcell(pos1,pos2):=Findcell("",pos1,pos2); +Findcell(Tbdata,pos1,pos2):=( +//help:Findcell("c0r0","c2r1"); + regional(tmp1,tmp2,posnw,posse,ctr,dx,dy); + if(isstring(pos1), + posnw=Tgrid(pos1); // 15.05.20 + posse=Tgrid(pos2); + //posnw=parse(pos1); + //posse=parse(pos2); + , + if(islist(pos1), + posnw=pos1; + posse=pos2; + , + tmp1="c"+text(pos1-1)+"r"+text(pos2-1); + tmp2="c"+text(pos1)+"r"+text(pos2); + posnw=Tgrid(tmp1); + posse=Tgrid(tmp2); +// posnw=parse(tmp1); +// posse=parse(tmp2); + ); + ); + ctr=(posnw+posse)/2; + dx=abs(posse_1-ctr_1); + dy=abs(posnw_2-ctr_2); + [ctr,dx,dy]; +); + +Putcell(pos1,pos2,dir,lttr):=Putcell("",pos1,pos2,dir,lttr); +Putcell(Tbdata,pos1,pos2,dir,lttr):=( +//help:Putcell("c0r0","c2r1","lt","abc"); +//help:Putcell(2,3,"c","xyz"); + regional(tmp,tmp1,tmp2,posnw,posse, + posdir,posstr,ctr,dx,dy); + tmp=Findcell(Tbdata,pos1,pos2); + ctr=tmp_1; dx=tmp_2; dy=tmp_3; + posdir=ctr; + posstr=dir; + if(indexof(dir,"b")>0, + posdir_2=posdir_2-dy; + posstr=replace(posstr,"b","n"); + ); + if(indexof(dir,"t")>0, + posdir_2=posdir_2+dy; + posstr=replace(posstr,"t","s"); + ); + if(indexof(dir,"l")>0, + posdir_1=posdir_1-dx; + posstr=replace(posstr,"l","e"); + ); + if(indexof(dir,"r")>0, + posdir_1=posdir_1+dx; + posstr=replace(posstr,"r","w"); + ); + Letter(posdir,posstr,text(lttr)); +); + +Putcellexpr(pos1,pos2,dir,ex):=Putcellexpr("",pos1,pos2,dir,ex); +Putcellexpr(Tbdata,pos1,pos2,dir,ex):=( +//help:Putcellexpr("c0r0","c2r1","lt","abc"); +//help:Putcellexpr(2,3,"c","\sin x"); + Putcell(Tbdata,pos1,pos2,dir,"$"+text(ex)+"$"); +); + +Putrow(nrow,dir,lttrL):=Putrow("",nrow,dir,lttrL); +Putrow(Tbdata,nrow,dir,lttrL):=( +//help:Putrow(1,"c",["x","y","z"]); + regional(tmp,tmp1,mcol); + mcol=length(lttrL); + forall(1..mcol, + Putcell(Tbdata,#,nrow,dir,lttrL_#); + ); +); + +Putrowexpr(nrow,dir,exL):=Putrowexpr("",nrow,dir,exL); +Putrowexpr(Tbdata,nrow,dir,exL):=( +//help:Putrowexpr(2,"r",["x","y","z"]); + regional(lttrL); + lttrL=apply(exL,"$"+#+"$"); + Putrow(Tbdata,nrow,dir,lttrL); +); + +PutcoL(mcol,dir,lttrL):=PutcoL("",mcol,dir,lttrL); +PutcoL(Tbdata,mcol,dir,lttrL):=( +//help:PutcoL(1,"c",["x","y","z"]); + regional(tmp,tmp1,nrow); + nrow=length(lttrL); + forall(1..nrow, + Putcell(Tbdata,mcol,#,dir,lttrL_#); + ); +); +PutcoLexpr(mcol,dir,exL):=PutcoLexpr("",mcol,dir,exL); +PutcoLexpr(Tbdata,mcol,dir,exL):=( +//help:PutcoLexpr(2,"r",["x","y","z"]); + regional(lttrL); + lttrL=apply(exL,"$"+#+"$"); + PutcoL(Tbdata,mcol,dir,lttrL); +); + +Setwindow():=Setwindow("Msg=yes"); +Setwindow(str):=( + regional(tmp,tmp1,tmp2,msg); + msg="y"; + tmp=indexof(str,"="); // 16.02.10 + tmp1=Toupper(substring(str,tmp,tmp+1)); + if(tmp1=="N",msg="n"); + if((ispoint(SW) & ispoint(NE)), + tmp1=Lcrd(SW); + tmp2=Lcrd(NE); + XMIN=tmp1_1; XMAX=tmp2_1; + YMIN=tmp1_2; YMAX=tmp2_2; + , +// XMIN=-5; XMAX=5; +// YMIN=Lcrdy(-5); YMAX=Lcrdy(5); + createpoint("SW",Pcrd([XMIN,YMIN])); + createpoint("NE", Pcrd([XMAX,YMAX])); + ); + if(msg=="y", + println("Setwindow(["+XMIN+","+XMAX+"],["+YMIN+","+YMAX+"])"); + ); + layer(KETPICLAYER); + autoclearlayer(KETPICLAYER,true); + drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]), + Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]); +); +Setwindow(xrange,yrange):=( +//help:Setwindow([2,3],[-1,1]); + XMIN=xrange_1; + XMAX=xrange_2; + YMIN=yrange_1; + YMAX=yrange_2; +// Setwindow(); +); + +Sciform(list):=( + regional(plotlist,comp,pos,out,out2,nn,strL,flg, + tmp,tmp1,tmp2,tmp3,Nj); + plotlist=Flatten([list]); + out=replace(plotlist_1,".xy",""); + out=replace(out,".x","(1)"); + out=replace(out,".y","(2)"); + if(length(plotlist)==1, + comp=[]; + forall(1..length(out), + comp=append(comp,substring(out,#-1,#)); + ); + out=""; + pos=0; + forall(comp, + if(#!="'", + out=out+#; + , + if(pos==0, + tmp=indexof(out,"Assign("); + if(substring(out,length(out)-7,length(out))=="Assign(", + out=out+"'"; + pos=1; + , + out=out+"Assign('"; + pos=2; + ); + , + if(pos==2, + out=out+"')"; + , + out=out+"'"; + ); + pos=0; + ); + ); + ); + , + forall(2..length(plotlist), + comp=plotlist_#; + if(isstring(comp), + pos=indexof(comp,"Assign("); + if(pos>0, + comp=substring(comp,6,length(comp)); + ); + out=out+"Assign("; + comp=replace(comp,".xy",""); + comp=replace(comp,".x","(1)"); + comp=replace(comp,".y","(2)"); + out=out+"'"+comp+"'"; + out=out+"),"; + ); + if(islist(comp), + forall(comp, + out=out+"'"+#+"',"; + ); + ); + ); + if(length(plotlist)>1, + out=substring(out,0,length(out)-1); + out=out+");"; + ); + ); + pos=[]; + forall(1..length(out), + tmp=indexof(substring(out,#-1,length(out)),"Assign"); + if(tmp>0, + tmp1=#-1+tmp; + if(length(pos)==0, + pos=[tmp1]; + , + if(pos_(length(pos))<tmp1, + pos=append(pos,tmp1); + ); + ); + ); + ); + if(length(pos)>0, + strL=[]; + Nj=0; + forall(pos, + tmp=substring(out,Nj,#-1); + strL=append(strL,tmp); + Nj=#-1; + ); + strL=append(strL,substring(out,Nj,length(out))); + out=""; + forall(strL, + if(indexof(#,"Assign")==0, + out=out+#; + , + tmp=indexof(#,"('"); + tmp1=indexof(#,"')"); + tmp2=substring(#,tmp+1,tmp1-2); + tmp3=substring(#,tmp1-2,length(#)); + if(indexof(tmp2,"=")==0, + out=out+#; + , + tmp=substring(tmp2,0,indexof(tmp2,"=")); + out=out+"'"+tmp+"'+"+"Assign('"; + tmp=substring(tmp2,indexof(tmp2,"="),length(tmp2)); + out=out+tmp+tmp3; + ); + ); + ); + ); + out2=""; // patched 16.01.21 from + nn=length(out); + flg=0; + forall(1..nn, + if(flg==0, + tmp=indexof(out,"='+Assign('"); + if(tmp==0, + out2=out2+out; + flg=1; + , + out2=out2+substring(out,0,tmp); + out=substring(out,tmp+10,length(out)); + tmp=indexof(out,"'"); // 16.04.19 from + tmp1=substring(out,0,tmp-1); + tmp2="1234567890"; + tmp=apply(1..length(tmp1), + indexof(tmp2,substring(tmp1,#-1,#))); + tmp=min(tmp); + if(tmp==0, // 16.04.19 upto + out2=out2+"'+Assign('"; + , + tmp=indexof(out,"'"); + out=substring(out,0,tmp)+substring(out,tmp+1,length(out)); // 16.04.18 upto + ); + ); + ); + ); + out2=replace(out2,"Dist=","D="); + out2=replace(out2,"Dis=","D="); + out2; +); + + +Rform(list):=( + regional(plotlist,comp,pos,out,strL,tmp,tmp1,tmp2,tmp3,Nj); + out=list; + out=replace(out,"[[[","list([["); + out=replace(out,"[","c("); + out=replace(out,"]",")"); + out=replace(out,".xy",""); + out=replace(out,".x","[1]"); + out=replace(out,".y","[2]"); + out; +); + +Defvar(varstr):=( + regional(name,value,tmp,tmp1); + parse(varstr); + tmp=indexof(varstr,"="); + name=substring(varstr,0,tmp-1); + value=substring(varstr,tmp,length(varstr)); + value=parse(value); + tmp1=select(1..length(VLIST),VLIST_#_1==name+"="); + if(length(tmp1)>0, + tmp=tmp1_1; + VLIST_tmp=[name+"=",value]; + , + VLIST=prepend([name+"=",value],VLIST); + ); +); + +Defvar(name,value):=( +//help:Defvar("a",0.3); + regional(tmp,tmp1); + if(islist(value), + tmp1="["; + forall(value, + tmp1=tmp1+format(#,5)+","; + ); + tmp1=substring(tmp1,0,length(tmp1)-1)+"]"; + , + tmp1=format(value,5); + ); + tmp=name+"="+tmp1; // 15.02.06 + parse(tmp); + VLIST=select(VLIST,#_1!=name+"="); // 15.02.08 + VLIST=prepend([name+"=",value],VLIST); +); + +Iftosci(strorg):=( // 16.06.10 + regional(str,ifL,ppL,cpL,kk,sL, + tmp,tmp1,tmp2,tmp3,tmp4); + str=replace(strorg,LFmark,""); + ifL=Indexall(str,"if("); + ppL=Bracket(str,"()"); + cpL=Indexall(str,","); + tmp1=Bracket(str,"[]"); + forall(1..(length(tmp1)/2),kk, + cpL=select(cpL,#<tmp1_(2*kk-1)_1%#_1>tmp1_(2*kk)_1); + ); + forall(1..length(ifL),kk, + tmp=select(ppL,#_1>ifL_kk); + tmp1=tmp_1; + tmp2=select(tmp,#_2==-tmp1_2); + tmp2=tmp2_1; + tmp3=select(cpL,#>tmp1_1 & #<tmp2_1); + ifL_kk=[tmp1_1,tmp2_1,tmp1_2,tmp3]; + ); + forall(1..length(cpL),kk, + tmp=select(1..length(ifL),contains(ifL_#_4,cpL_kk)); + tmp1=tmp_(length(tmp)); + cpL_kk=[cpL_kk,tmp1]; + ); + sL=apply(1..length(str),substring(str,#-1,#)); + forall(1..length(ifL),kk, + tmp1=ifL_kk_1; + tmp2=ifL_kk_2; + tmp=select(cpL,#_2==kk); + tmp3=apply(tmp,#_1); + sL_tmp1=" "; + sL_tmp2=";end;"; + sL_(tmp3_1)=" then,"; + if(length(tmp3)>1, + sL_(tmp3_2)=";else,"; + ); + ); + tmp=sum(sL); +); + +Fortosci(strorg):=( + regional(str,jj,var,tmp,tmp1,tmp2,tmp3,tmp4, + Out,repL,Pflg,Iflg,Cflg); + str=strorg; + repL=[]; + tmp1=Indexall(str,"forall"); + tmp2=Indexall(str,","); + forall(1..length(tmp1),jj, + tmp=select(tmp2,#>tmp1_jj); + var=substring(str,tmp_1,tmp_2-1); + tmp3=substring(str,tmp1_jj-1,tmp_2-1); + tmp=indexof(tmp3,"("); + tmp4=substring(tmp3,tmp,length(tmp3)); + tmp=indexof(tmp4,","); + tmp4=substring(tmp4,0,tmp-1); + tmp4="for "+var+"="+tmp4; + tmp4=replace(tmp4,"..",":"); + repL=concat(repL,[tmp3,tmp4]); + ); + forall(1..length(repL)/2, + str=replace(str,repL_(2*#-1),repL_(2*#)); + ); + tmp=Bracket(str); + tmp=select(tmp,#_2==0); + tmp=tmp_1_1; + tmp1=substring(str,tmp-1,length(str)); + tmp1=replace(tmp1,")",";end"); + str=substring(str,0,tmp-1)+tmp1; + str=replace(str,";;",";"); + str; +); + +Deffun(name,bodylist):=( +//help:Deffun("f(x)",["regional(y)","y=x^2*(x-3)","y"]); // 16.02.18 + regional(funstr,tmp,tmp1,str,Pos); + funstr=name+":=("; + forall(bodylist, + funstr=funstr+#+";"; + ); + funstr=funstr+");"; + parse(funstr); + tmp=bodylist_(length(bodylist)); + str="function "+tmp+"="+name+","; + forall(1..(length(bodylist)-1), + tmp1=bodylist_#; + tmp1=replace(tmp1,LFmark,"");// 16.05.26 + tmp1=replace(tmp1," ","");// 16.05.26 + Pos=indexof(tmp1,"regional")+indexof(tmp1,"local"); + if(Pos==0, + tmp=replace(tmp1,".xy",""); + tmp=replace(tmp,".x","(1)"); + tmp=replace(tmp,".y","(2)"); + if(indexof(tmp,"if(")>0, + tmp=iftosci(tmp); + ); + if(indexof(tmp,"forall(")>0, // 16.05.26from + tmp=Fortosci(tmp); + ); // 16.05.26upto + str=str+tmp+","; + ); + ); + str=str+"endfunction;"; + FUNLIST=append(FUNLIST,str); +); + +Windispg():=( + regional(Nj,Nk,Dt,Vj,tmp,tmp1,tmp2,tmp3,opcindy); + gsave(); + layer(KETPIClayer); + forall(GCLIST,Nj, + if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17 + if(islist(Dt) & length(Dt)>0, // 12.19,12.22 + tmp=MeasureDepth(Dt); + if(tmp==1,Dt=[Dt]); + opcindy=Nj_3; + if(Nj_2<0,tmp1=0,tmp1=Nj_2); + if(tmp1<10, + forall(Dt,Nk, +// tmp2=apply(Nk,if(ispoint(#),Lcrd(#),#)); +// tmp2=apply(tmp2,Pcrd(#)); + tmp2=Nk; // 14.12.04 + if(length(Nk)>1, + forall(2..length(Nk), + tmp3=textformat(Nk_[#-1,#],5); + tmp3=substring(tmp3,1,length(tmp3)-1); + if(tmp1==1,opcindy=opcindy+",dashpattern->[2,2]"); + tmp="draw("+tmp3+ + ",dashtype->"+text(tmp1)+",linecolor->"+KCOLOR+opcindy+")"; + parse(tmp); + ); + , + if(length(Nk)==1, + tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31 + parse(tmp); + ); + ); + ); + ); + ); + ); +// if(ADDAXES=="1", // 16.10.08from +// draw([XMIN,0],[XMAX,0],color->[0,0.2,0]); +// draw([0,YMIIN],[0,YMAX],color->[0,0.2,0]); +// Letter([[XMAX,0],"e","x",[0,YMAX],"n","y"]); +// Letter([[0,0],"sw","O"]); +// ); // 16.10.08upto + grestore(); + layer(0); +); +</script> + <script type="text/javascript"> +var cdy = CindyJS({ + scripts: "cs*", + use: ["katex"], + defaultAppearance: { + dimDependent: 0.7, + fontFamily: "sans-serif", + lineSize: 1, + pointSize: 5.0, + textsize: 12.0 + }, + angleUnit: "°", + geometry: [ + {name: "SW", type: "Free", pos: [4.0, 3.2, -0.8], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "NE", type: "Free", pos: [4.0, 1.7506361323155215, 0.372929562139521], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "A", type: "Free", pos: [4.0, 3.0, -1.0], color: [1.0, 0.0, 0.0], size: 2.0}, + {name: "B", type: "Free", pos: [-2.1481481481481484, -4.0, -1.3570492400077014], color: [1.0, 0.0, 0.0], size: 2.0}, + {name: "C", type: "Free", pos: [4.0, -3.0, 1.0], color: [1.0, 0.0, 0.0], size: 2.0}, + {name: "D", type: "Free", pos: [4.0, 0.3393939393939394, 0.4441252058207023], color: [1.0, 0.0, 0.0], size: 1.0}, + {name: "Text1", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 1.0, 0.0], fillalpha: 0.27272728085517883, script: "if(length(Shellparent)>0,\n Makeshell(),Makebat();\n);\nWritetoSci(2);", text: "Parent", textsize: 18.0, dock: {corner: "UL", offset: [10.0, -20.0]}}, + {name: "Text3", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 0.29, 0.29], fillalpha: 0.27272728085517883, script: "Viewtex();", text: "Texview", textsize: 18.0, dock: {corner: "UL", offset: [79.0, -20.0]}}, + {name: "Text0", type: "ToggleButton", color: [0.0, 0.0, 0.0], fillcolor: [0.0, 1.0, 1.0], fillalpha: 0.27272728085517883, script: "Mkketcindyjs();", text: "KeTJS", textsize: 18.0, dock: {corner: "UL", offset: [243.0, -20.0]}}, + {name: "Text4'", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 0.498, 0.0], fillalpha: 0.27272728085517883, script: "kc();", text: "Exekc", textsize: 18.0, dock: {corner: "UL", offset: [164.0, -20.0]}} + ], + ports: [{ + id: "CSCanvas", + width: 766, + height: 453, + transform: [{visibleRect: [-7.764668168545777, 5.826912667783914, 13.141257374885031, -6.536513273696708]}], + axes: true, + grid: 1.0, + snap: true, + background: "rgb(168,176,192)" + }], + csconsole: false, + cinderella: {build: 1894, version: [2, 9, 1894]} +}); + </script> +</head> +<body> + <div id="CSCanvas"></div> +</body> +</html> diff --git a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js02diffeq2.cdy b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js02diffeq2.cdy Binary files differnew file mode 100644 index 00000000..4f3445d2 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js02diffeq2.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js02diffeq2ketcindy.html b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js02diffeq2ketcindy.html new file mode 100644 index 00000000..53b5c9a0 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js02diffeq2ketcindy.html @@ -0,0 +1,6502 @@ +<!DOCTYPE html> +<html> +<head> + <meta charset="UTF-8"> + + <title>js02diffeq2.cdy</title> + <style type="text/css"> + * { + margin: 0px; + padding: 0px; + } + + #CSConsole { + background-color: #FAFAFA; + border-top: 1px solid #333333; + bottom: 0px; + height: 200px; + overflow-y: scroll; + position: fixed; + width: 100%; + } + </style> + <link rel="stylesheet" href="http://cindyjs.org/dist/v0.8/CindyJS.css"> + <script type="text/javascript" src="http://cindyjs.org/dist/v0.8/Cindy.js"></script> + <script type="text/javascript" src="http://cindyjs.org/dist/v0.8/KetCindyPlugin.js"></script> +<script id="csdraw" type="text/x-cindyscript"> +Fhead="s210diffeq2"; +Texparent=""; + +Ketinit(); +Changework(Dirhead+"/ketsample/samplesJS"); + +//Deqplot("1","y`=y","x",0,1); +Deqplot("2","y``=-L.x*y`-G.x*y","t=[0,XMAX]",0,[C.y,0],["Num=200"]); +//Deqplot("3","[x,y]`=[x*(1-y),0.3*y*(x-1)]","t=[0,20]",0,A,["Num=200"]); + +Expr([M,"e","\displaystyle\frac{d^2 x}{dt^2}+"+L.x+"\frac{dx}{dt}+"+G.x+"x=0"]); + +Windispg(); + +//Help("De"); + +; +</script> +<script id="csinit" type="text/x-cindyscript"> +Ketinit():=Ketinit(1); +Ketinit(sy):=Ketinit(sy,[-5,5],[-5,5]); +Ketinit(sy,rangex,rangey):=( + regional(pt,tmp,tmp1,tmp2); + PenThickInit=8; + ULEN="1cm"; + KETPICLAYER=20; + MilliIn=1/2.54*1000; + PenThick=round(MilliIn*0.02); + PenThickInit=PenThick; + TenSizeInit=0.02; + TenSize=TenSizeInit; + YaSize=1; YaAngle=18; YaPosition=1; + YaThick=1; YaStyle='tf'; + KETPICCOUNT=1; + KCOLOR=[0,0,0]; + GLIST=[]; + GCLIST=[]; +// GDATALIST=[]; + GOUTLIST=[]; + POUTLIST=[]; + VLIST=[]; + FUNLIST=[]; + LETTERlist=[]; + COM0thlist=[]; + COM1stlist=[]; + COM2ndlist=[]; + SCIWRLIST=[]; + SCIRELIST=[]; + ADDAXES="1"; + LFmark=unicode("000a"); + Dq=unicode("0022"); + WaitUnit=10; + CONTINUED=0; + OutComList=[]; + OutFileLIst=[]; // 15.10.22 + FigPdfList=[]; // 16.04.08 + ADDPACK=[]; // 16.05.16 + ErrFlag=0; + setdirectory(Dirwork); + if(isstring(Fhead), // 15.04.06 + Fnametex=Fhead+".tex"; + Fnamesci=Fhead+".sce"; + Fnamescibody=Fhead+"body.sce"; + Fnameout=Fhead+".txt"; + ); + if(!isstring(Mackc),// 16.06.07 + Mackc="sh"; + ); + ArrowlineNumber=1; // 15.01.05 + ArrowheadNumber=1; + BezierNumber=1; //15.01.03 + SCALEX=1; + SCALEY=sy; +// Setscaling(sy); + XMIN=rangex_1/SCALEX; + XMAX=rangex_2/SCALEX; + YMIN=rangey_1/SCALEY; + YMAX=rangey_2/SCALEY; + Setwindow("Msg=n"); // 16.05.31 +); + +DqDq(str):=unicode("0022")+str+unicode("0022"); + +Tab2list(dtstr):=Tab2list(dtstr,[]); +Tab2list(dtstr,options):=( +//help:Tab2list(datastr); +//help:Tab2list(options=[0]); + regional(dtall,dt,rep,out,crm,lfm,htm,first,tmp,tmp1,tmp2); + crm=unicode("000d"); + lfm=unicode("000a"); + htm=unicode("0009"); + rep=0; + if(length(options)>0,rep=options_1); + first=lfm; // 16.09.05from + if(indexof(dtstr,crm)>0, + first=crm; + if(indexof(dtstr,crm+lfm)>0, + first=first+lfm; + ); // 16.09.05upto + ); + tmp1=Indexall(dtstr,first); + tmp1=prepend(0,tmp1); + tmp1=append(tmp1,length(dtstr)); + dtall=[]; + forall(1..(length(tmp1)-1), + tmp=substring(dtstr,tmp1_#,tmp1_(#+1)-1); + if(length(tmp)>0, + dtall=append(dtall,tmp); + ); + ); + out=[]; + forall(dtall,dt, + tmp1=tokenize(dt,unicode("0009")); + tmp2=[]; + forall(tmp1, + if(isstring(#),tmp=parse(#),tmp=#); + if(!isreal(tmp), + if(length(#)>0,tmp=#,tmp=rep); + ); + tmp2=append(tmp2,tmp); + ); + out=append(out,tmp2); + ); + out; +); + +Columnlist(dt,list):=( // 16.09.04 +//help:Columnlist(dt,1..3); + apply(dt,#_list); +); + +Dispmat(dt):=( // 16.09.16 +//help:Dispmat(dt); + regional(htm,crm,lfm,row,tmp,tmp1,tmp2); + htm=unicode("0009"); + crm=unicode("000d"); + lfm=unicode("000a"); + tmp2=""; + forall(dt,row, + tmp1=""; + forall(row, + if(isstring(#), + tmp1=tmp1+#+htm; + , + tmp1=tmp1+text(#)+htm; + ); + ); + tmp1=substring(tmp1,0,length(tmp1)-1); + tmp1=tmp1+lfm; + tmp2=tmp2+tmp1; + ); + print(tmp2); + println(); +); + +norm(v1):=( // 16.09.01 +//help:norm([2,1,3]); + regional(out,tmp,tmp1,tmp2); + out=0; + forall(1..length(v1), + out=out+(v1_#)^2; + ); + out=sqrt(out); + out; +); +norm(v1,v2):=( + norm(v2-v1); +); + +// 16.03.28 +Removespace(str):=( +//help:Removespace(" a b c "); + regional(tmp,flg,out); + tmp=length(str)+1; + flg=0; + forall(1..length(str), + if(flg==0, + if((str_#)!=" ", + tmp=#; + flg=1; + ); + ); + ); + out=substring(str,tmp-1,length(str)); + flg=0; + tmp=0; + forall(reverse(1..length(out)), + if(flg==0, + if((out_#)!=" ", + tmp=#; + flg=1; + ); + ); + ); + out=substring(out,0,tmp); +); + +Indexall(str,key):=( + regional(rest,out,flg,tmp,tmp1,); + out=[]; + rest=str; + flg=0; + forall(1..length(str), + if(flg==0, + tmp=indexof(rest,key); + if(tmp>0, + tmp1=tmp+length(str)-length(rest); + out=append(out,tmp1); + rest=substring(rest,tmp,length(rest)); + , + flg=1; + ); + ); + ); + out; +); + +Changework(path):=( +//help:Changework(directory); + regional(tmp); // 16.04.23from + Dirwork=path; + setdirectory(Dirwork); // 16.04.23 + if(ismacosx(), + if(!iskcexists(Dirwork), // 16.06.07from + SCEOUTPUT = openfile("kc.sh"); + println(SCEOUTPUT,"#!/bin/sh"); +// if(!isstring(Dq),Dq=unicode("0022")); // 18.07.30 + println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); + println(SCEOUTPUT,"chmod +x kc.sh"); + println(SCEOUTPUT,"exit 0"); + closefile(SCEOUTPUT); + println(kc(Dirwork+"/kc.sh",Dirlib,Fnametex)); // 16.07.23 + ); // 16.06.07upto + ); +); + +Changestyle(nameL,style):=( +//help:Changestyle(["sgAB"],["da"]); + regional(nmL,name,Ltype,Ltypeorg,Noflg,opcindy,tmp); + tmp=Divoptions(style); + Ltypeorg=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + if(islist(nameL),nmL=nameL,nmL=[nameL]); + forall(nmL,name, + Ltype=Ltypeorg; + GCLIST=select(GCLIST,#_1!=name); + COM2ndlist=select(COM2ndlist,indexof(#,"("+name)==0); // 15.05.23 + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + ); +); + +Op(n,object):=( // 16.05.25 +//help:Op(4,[1,2,3,4]); +//help:Op(3,"abcd"); + regional(out); + if(islist(object), + out=object_n; + , + if(isstring(object), + out=substring(object,n-1,n); + ); + ); + out; +); + +Toupper(str):=( + regional(alphabet,out,tmp,tmp1); + alphabet="abcdefghijklmnopqrstuvwxyz"; + out=""; + forall(1..length(str), + tmp=substring(str,#-1,#); + tmp1=indexof(alphabet,tmp); + if(tmp1>0, + out=out+unicode(text(tmp1+64),base->10); + , + out=out+tmp; + ); + ); + out; +); + +Textformat(value,dig):=( +//help:Textformat(2/3,4); +//help:Textformat([gr1,gr2],5); + regional(vv,tmp,tmp1); + if(islist(value), + tmp1="["; + forall(value, + tmp1=tmp1+Textformat(#,dig)+","; + ); + tmp1=substring(tmp1,0,length(tmp1)-1)+"]"; + , + if(ispoint(value) % isstring(value), +// vv=Lcrd(value); +// tmp1=Textformat(vv,dig); +// tmp1=text(value); // 15.04.07 + if(isstring(value),tmp1=Dq+value+Dq,tmp1=text(value)); // 15.10.02 + , + tmp1=format(value,dig); + ); + ); + tmp1; +); + +Sprintf(value,dig):=( +//help:Sprintf(5.1,4); + regional(vv,tmp,tmp1); + if(!islist(value), + vv=Textformat(value,dig); + if(indexof(vv,".")==0,vv=vv+"."); + vv=vv+"0000000000000000"; + tmp=indexof(vv,".")+dig; + vv=substring(vv,0,tmp); + , + vv=apply(value,Sprintf(#,dig)); + ); + vv; +); + +Assign(funstr,vrL):=( + regional(nn,out,tmp,tmp1); + nn=length(vrL)/2; + out=funstr; + forall(1..nn, + out=Assign(out,vrL_(2*#-1),vrL_(2*#)); + ); + out; +); + +Assign(funstr,varname,rep):=( +//help:Assign("x^2+a*x","a",1.3); +//help:Assign("a*x^2+b*x",["a",1,"b",2]); + regional(repstr,ii,jj,tmp,tmp1,tmp2,Notvar,Flg); + if(isstring(rep),repstr=rep,repstr="("+Textformat(rep,5)+")"); // 15.02.09, 07.06 + tmp=[46]; // 12.20 + tmp=concat(tmp,48..57); + tmp=concat(tmp,65..90); + tmp=concat(tmp,97..122); + Notvar=apply(tmp,unicode(text(#),base->10)); + tmp2=""; + forall(1..100, + ii=indexof(funstr,varname); + if(ii>0, + Flg=0; + if(ii>1, + tmp=substring(funstr,ii-2,ii-1); + if(contains(Notvar,tmp), + tmp2=tmp2+substring(funstr,0,ii); + funstr=substring(funstr,ii,length(funstr)); + Flg=1; + ); + ); + if(Flg==0, + jj=ii-1+length(varname); + if(jj<length(funstr), + tmp=substring(funstr,jj,jj+1)); + if(contains(Notvar,tmp), + tmp2=tmp2+substring(funstr,0,jj); + funstr=substring(funstr,jj,length(funstr)); + Flg=1; + ); + ); + if(Flg==0, + tmp2=tmp2+substring(funstr,0,ii-1)+repstr; + funstr=substring(funstr,jj,length(funstr)); + ); + ); + ); + funstr=tmp2+funstr; + funstr; +); + +MeasureDepth(list):=( + regional(tmp,Depth,Flg); + Flg=0; + Depth=0; + if(ispoint(list), // 15.01.22 + Depth=0; + Flg=1; + , + tmp=list_1; + ); + repeat(4, + if(Flg==0, + if(islist(tmp), + tmp=tmp_1; + Depth=Depth+1; + , + if(ispoint(tmp),Depth=Depth+1); + Flg=1; + ); + ); + ); + Depth; +); + +Flattenlist(pltlist):=( +//help:Flattenlist([[2,3],[[1,2],[5,6]]]); + regional(Out,nn,Dt,ii,tmp,flg); + Out=[]; + if(MeasureDepth(pltlist)==1, + Out=[pltlist]; + , + forall(1..length(pltlist),nn, + Dt=pltlist_nn; + if(MeasureDepth(Dt)<2, + Out=append(Out,Dt); + , + forall(1..length(Dt),ii, + tmp=Flattenlist(Dt_ii); + Out=concat(Out,tmp); + ); + ); + ); + ); + Out; +); + +Divoptions(options):=( +//help:Divoptions(options); + regional(Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy,flg,tmp,tmp1); + Ltype="dr"; // 2015.01.13 + Noflg=0; + Inflg=0; + Outflg=0; + eqL=[]; + realL=[]; + strL=[]; + opstr=""; + opcindy=""; + forall(options, + flg=0; + if(flg==0, + if(isreal(#) % ispoint(#) % islist(#), + realL=append(realL,#); + opstr=opstr+","+text(#); + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"=")>0, + eqL=append(eqL,#); + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"no")+indexof(#,"No")>0, + if(indexof(#,"tex")>0,Noflg=1); + if(indexof(#,"disp")>0,Noflg=2); + if(indexof(#,"data")>0,Noflg=3); + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"->")>0, + opcindy=opcindy+","+#; + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"out")+indexof(#,"Out")>0, + if(indexof(#,"-")==0, + Outflg=1; + , + Outflg=2; + ); + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"in")+indexof(#,"In")>0, + if(indexof(#,"-")==0, + Inflg=1; + , + Inflg=2; + ); + flg=1; + ); + ); + if(flg==0, + tmp=substring(#,0,2); + tmp1=indexof(tmp,"dr")+indexof(tmp,"Dr"); + tmp1=tmp1+indexof(tmp,"da")+indexof(tmp,"Da"); + tmp1=tmp1+indexof(tmp,"id")+indexof(tmp,"Id"); + tmp1=tmp1+indexof(tmp,"do")+indexof(tmp,"Do"); + tmp1=tmp1+indexof(tmp,"dp")+indexof(tmp,"Dp"); + if(tmp1>0, + Ltype=#; + flg=1; + ); + if(flg==0, + strL=append(strL,#); + opstr=opstr+","+Dq+#+Dq; + ); + ); + ); + if(indexof(opcindy,"color->")==0,// 16.10.07from + opcindy=opcindy+",color->[0,0,0]"; + ); + [Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy]; +); + +Dotprod(vec1,vec2):=( +//help:Dotprod(vec1,vec2); + regional(v1,v2,tmp); + if(ispoint(vec1),v1=vec1.xy,v1=vec1); + if(ispoint(vec2),v2=vec2.xy,v2=vec2); + v1*v2; +); + +Crossprod(a,b):=( +//help:Crossprod(vec1,vec2); + regional(tmp1,tmp2,tmp3,Out); + if(length(a)==3, + tmp1=a_2*b_3-a_3*b_2; + tmp2=a_3*b_1-a_1*b_3; + tmp3=a_1*b_2-a_2*b_1; + Out=[tmp1,tmp2,tmp3]; + , + Out=a_1*b_2-a_2*b_1; + ); + Out; +); + +Ptstart(Fig):=( +//help:Ptstart("gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.21 + tmp_1; +); + +Ptend(Fig):=( +//help:Ptend("gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); + tmp_(length(tmp)); // 15.04.12 +); + +Numptcrv(Fig):=( +//help:Numptcrv("gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 15.12.23 + length(tmp); +); + +Ptcrv(Num,Fig):=( +//help:Ptcrv(10,"gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); + tmp_Num; +); + +Invert(Fig):=( +//help:Invert("gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.27 + reverse(tmp); +); +Invert(nm,Fig):=Invert(nm,Fig,["nodisp"]); // from 16.01.27 +Invert(nm,Fig,options):=( +//help:Invert("1","gr1"); + regional(name,tmp); + name="-inv"+nm; + tmp=Invert(Fig); + Listplot(name,tmp,options); +);// upto 16.01.27 + +Paramoncrv(pP,Gdata):=( + regional(Tmp,PtL); +// Eps=10^(-8); + if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata); + Tmp=Nearestpt(pP,PtL); + Tmp_2; +); + +ParamonCurve(pP,nN,plist):=( +//help:ParamonCurve(A,10,"gr1"); + regional(PtL,Out,Pa,Pb,vV,vW,sS); + if(isstring(plist),PtL=parse(plist),PtL=plist); + if(nN==length(PtL), + Out=nN; + , + Pa=PtL_nN; + Pb=PtL_(nN+1); + vV=Pb-Pa; + vW=pP-Pa; + sS=vV*vW/|vV|^2; + sS=min([max([sS,0]),1]); + Out=nN+sS; + ); + Out; +); + +Pointoncrv(tT,PtL):=PointonCurve(tT,PtL); +PointonCurve(tT,Gdata):=( +//help:PointonCurve(20.5,"gr1"); + regional(Out,Eps,nN,sS,Pa,Pb,PtL); + if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata); + if(length(PtL)==1,PtL=PtL_1); + Eps=10^(-4); + nN=floor(tT+Eps); + sS=max([tT-nN,0]); + if(nN==length(PtL), + Out=PtL_nN; + , + Pa=PtL_nN; + Pb=PtL_(nN+1); + Out=(1-sS)*Pa+sS*Pb; + ); + Out; +); + +Koutenseg(pA,pB,pC,pD):=Koutenseg(pA,pB,pC,pD,[]); +Koutenseg(pA,pB,pC,pD,options):=( + regional(Eps0,Eps,Eps2,pV,Sv2,Out,pP,pQ,Flg,p1,p2,q1,q2, + em1,eM1,em2,eM2,rT,Tmp1,Tmp2); + Eps0=10^(-4); + pV=pB-pA; + Sv2=|pV|; + pP=pC-pA; pQ=pD-pA; + Eps=10^(-3); + Eps2=0.2; + Tmp1=0; + forall(options, + if(Tmp1==0, + Eps=#; + Tmp1=1; + , + Eps2=#; + ); + ); + Flg=0; + if(Sv2<10^(-3), + Out=["inf","inf"]; + Flg=1; + ); + if(Flg==0, + Eps=min([Eps2,Eps/Sv2]); + p1=pP*pV/Sv2^2; + p2=[pP_2,-pP_1]*pV/Sv2^2; + q1=pQ*pV/Sv2^2; + q2=[pQ_2,-pQ_1]*pV/Sv2^2; + em1=-Eps; eM1=1+Eps; + em2=-Eps; eM2=Eps; + if(max([p1,q1])<em1 % min([p1,q1])>eM1, + Out=["inf","inf"]; + Flg=1; + ); + if(max([p2,q2])<em2 % min([p2,q2])>eM2, + Out=["inf","inf"]; + Flg=1; + ); + ); + if(Flg==0 & p2*q2<0, + rT=p1-(q1-p1)/(q2-p2)*p2; + if(rT>em1 & rT<eM1, + if(rT>-Eps0 & rT<1+Eps0, + Tmp1=pA+rT*pV; + Tmp2=min([max([rT,0]),1]); + Out=[Tmp1,Tmp2,0]; + , + Tmp1=pA+rT*pV; + Tmp2=min([max([rT,0]),1]); + Out=[Tmp1,Tmp2,1]; + ); + Flg=1; + ); + if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2), + if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2, + Out=["inf","inf"]; + Flg=1; + ); + if(Flg==0, + rT=min([max([p1,0]),1]); + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,1]; + Flg=1; + ); + ); + ); + if(Flg==0 & (p1 > -Eps0 & p1 < 1 + Eps0 & p2 > -Eps0 & p2 < Eps0), + rT= p1; + Tmp1=pA+rT*pV; + Out= [Tmp1, rT, 0]; + Flg=1; + ); + if(Flg==0 & (q1 > -Eps0 & q1 < 1 + Eps0 & q2 > -Eps0 & q2 < Eps0), + rT= q1; + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,0]; + Flg=1; + ); + if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2), + if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2, + Out=["inf","inf"]; + Flg=1; + ); + if(Flg==0, + rT=min([max([q1,0]),1]); + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,1]; + Flg=1; + ); + ); + if(Flg==0 & (q1<em1 % q1>eM1% q2<em2 % q2>eM2), + rT=min([max([p1,0]),1]); + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,1]; + Flg=1; + ); + if(Flg==0, + if(abs(p2)<abs(q2), + rT=min([max([p1,0]),1]); + , + rT=min([max([q1,0]),1]); + ); + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,1]; + ); + Out; +); + +IntersectcrvsPp(Gr1,Gr2):=IntersectcrvsPp(Gr1,Gr2,[]); +IntersectcrvsPp(Gr1,Gr2,options):=( +//help:IntersectcrvsPp("gr1","pa1"); + regional(Out,Eps,Eps2,Eps0,Flg,Data1,Data2, + Tmp1,Tmp2,Tmp3,Tmp,KL1,KL2,pA,pB,Ni,Nj, + pP,pQ,rT,Flg,eqL,realL,opstr,Dif); + Eps=10^(-4); + Eps2=0.1; + Dif=0.05; // 2015.05.31 + Flg=0; + Tmp1=Divoptions(options); // + eqL=Tmp1_5; + realL=Tmp1_6; + opstr=Tmp1_(length(Tmp1)); + forall(eqL, + if(substring(#,0,1)=="D", + Tmp1=indexof(#,"="); + Dif=parse(substring(#,Tmp1,length(#))); + ); + ); + Tmp1=length(realL); + if(Tmp1>0, + Eps=realL_1; + if(Tmp1>1, + Eps2=realL_2; + ); + ); + Flg=0; + if(isstring(Gr1),Data1=parse(Gr1),Data1=Gr1); + if(isstring(Gr2),Data2=parse(Gr2),Data2=Gr2); + if(MeasureDepth(Data1)==2,Data1=Data1_1); + if(MeasureDepth(Data2)==2,Data2=Data2_1); + Data1=apply(Data1,LLcrd(#)); + Data2=apply(Data2,LLcrd(#)); + if(length(Data1)==length(Data2), + Tmp1=Reverse(Data2); + Eps0=10^(-6); + Tmp2=0; + forall(1..length(Data1), + Tmp2=Tmp2+abs(Data1_#-Data2_#); + ); + Tmp3=0; + forall(1..length(Data1), + Tmp3=Tmp3+abs(Data1_#-Tmp1_#); + ); + if(Tmp2<Eps0 % Tmp3<Eps0, + Out=[]; + Flg=1; + ); + ); + if(Flg==0, + KL1=[]; + KL2=[]; + forall(1..(length(Data1)-1),Ni, + pA=Data1_Ni; + pB=Data1_(Ni+1); + forall(1..(length(Data2)-1), + pP=Data2_#; pQ=Data2_(#+1); + Tmp=Koutenseg(pA,pB,pP,pQ,[Eps,Eps2]); + if(Tmp!=["inf","inf"], + if(Tmp_3==0, + Tmp1=[Tmp_1,Tmp_2,Ni,#]; + KL1=concat(KL1,[Tmp1]); + , + Tmp2=[Tmp_1,Tmp_2,Ni,#]; + KL2=concat(KL2,[Tmp2]); + ); + ); + ); + ); + Out=[]; + if(length(KL1)>0, + Tmp=KL1_1; + pP=Tmp_1; + rT=Tmp_2; + Ni=Tmp_3; + Nj=Tmp_4; + Tmp=[pP,Ni+rT,Nj]; + Out=[Tmp]; + ); + forall(2..length(KL1),Ni, + Tmp=KL1_Ni; + pP=Tmp_1; + Tmp2=0; + Flg=0; + forall(1..length(Out),Nj, + if(Flg==0, + Tmp=Out_Nj; + if(|pP-Tmp_1|<Eps, + Tmp2=1; + Flg=1; + ); + ); + ); + if(Tmp2==0, + Tmp=KL1_Ni; + pP=Tmp_1; + rT=Tmp_2; + Tmp1=Tmp_3; + Tmp2=Tmp_4; + Tmp=[pP,Tmp1+rT,Tmp2]; + Out=concat(Out,[Tmp]); + ); + ); + forall(1..length(KL2),Ni, + Tmp=KL2_Ni; // 15.11.21 Usui + pP=Tmp_1; + Tmp2=0; + Flg=0; + forall(1..length(Out),Nj, + if(Flg==0, + Tmp=Out_Nj; + if(|pP-Tmp_1|<Eps, + Tmp2=1; + Flg=1; + ); + ); + ); + if(Tmp2==0, + Tmp=KL2_Ni; + rT=Tmp_2; + rT=min([max([rT,0]),1]); // 15.11.21 Usui + Tmp=[pP,Tmp_3+rT,Tmp_4]; + Out=concat(Out,[Tmp]); + ); + ); + ); + Tmp1=Out; // 15.04.06 from + Out=[]; + forall(Tmp1,Tmp2, + Tmp3=select(Out,|#_1-Tmp2_1|<Dif); + if(length(Tmp3)==0, + Out=append(Out,Tmp2); + ); + ); // 15.04.06 upto + Out; +); + +Intersectcrvs(Gr1,Gr2):=Intersectcrvs(Gr1,Gr2,[]); +//help:Intersectcrvs("gr1","pa1"); +Intersectcrvs(Gr1,Gr2,options):=( + regional(tmp,tmp1,tmp2); + tmp1=IntersectcrvsPp(Gr1,Gr2,options); + apply(tmp1,#_1); +); + +NearestptcrvPhy(point,PL):=( + regional(tmp,pP,plist); + pP=Pcrd(point); + if(isstring(PL),plist=parse(PL),plist=PL); + if(MeasureDepth(plist)==2,plist=plist_1); + plist=apply(plist,#); // 14.12.18 + tmp=Nearestpt(pP,plist); + tmp=tmp_1; + [tmp_1/SCALEX,tmp_2/SCALEY]; +); + +Nearestptcrv(point,plist):=( +//help:Nearestptcrv(A,"gr1"); + regional(tmp); + tmp=Nearestpt(point,plist); + tmp_1; +); + +Nearestpt(point,PL2):=( + regional(PL1,PL,Ans,Flg,Eps,pA,Pm,Im,Sm,Nn,Ni, + a1,b1,a2,b2,v1,v2,x1,x2,Tmp,rT,pP,sS,Lm,Pm,Sm,Flg); +//help:Nearestpt("gr1","gr2"); + if(isstring(point),PL1=parse(point),PL1=point); + if(MeasureDepth(PL1)==2,PL1=PL1_1); + if(!islist(PL1_1), + PL1=[PL1]; + Flg=0; + , + Flg=1; + ); + if(isstring(PL2),PL=parse(PL2),PL=PL2); + if(MeasureDepth(PL)==2,PL=PL_1); + Eps=10^(-6); + Ans=[PL1_1,1,PL_1,1,|PL1_1-PL_1|]; + forall(1..length(PL1),Nn, // 16.05.04 + pA=PL1_Nn; + Pm=PL_1; + Im=1; + Sm=|Pm-pA|; + forall(1..(length(PL)-1),Ni, + a1=PL_Ni_1; a2=PL_Ni_2; + b1=PL_(Ni+1)_1; b2=PL_(Ni+1)_2; + v1=b1-a1; v2=b2-a2; + x1=pA_1; x2=pA_2; + Tmp=v2^2+v1^2; + if(abs(Tmp)>Eps, + rT=(-a2*v2-v1*a1+v1*x1+x2*v2)/Tmp; + if(rT<-Eps, + pP=[a1,a2]; + , + if(rT>1+Eps, + pP=[b1,b2]; + , + pP=[a1+rT*v1,a2+rT*v2]; + ); + ); + sS=|pP-pA|; + if(sS<Sm-Eps, + Tmp=ParamonCurve(pP,Ni,PL); + Pm=pP; Lm=Tmp; Sm=sS; + ); + ); + if(Sm<Ans_5, // 16.05.03from + Ans=[pA,Nn,Pm,Lm,Sm]; + ); + ); // 16.05.03upto + ); + if(Flg==0, + Ans=Ans_(3..5); + ); + Ans; +); + +Derivative(fun,var,value):=( +//help:Derivative("x^3","x",2); + regional(str,tmp); + str="d("; + str=str+replace(fun,var,"#")+","; + str=str+value+")"; + tmp=Pcrd([1,parse(str)]); // 14.11.08 + tmp_2; +); + +Integrate(pltdata,range):=Integrate(pltdata,range,[]); +Intergrate(Arg1,Arg2,Arg3):=( + regional(pltdata,range,options,fnstr,vartr); + if(islist(Arg2), + pltdata=Arg1; + range=Arg2; + options=Arg3; + Integrate(pltdata,range,options); + , + fnstr=Arg1; + vastr=Arg2; + range=Arg3; + Integrate(fnstr,vastr,range,[]); + ); +); + +Integrate(pltdata,range,options):=( +//help:Integrate("gr1",[1,3]); +//help:Integrate("gr1",[1,3],["Rule=t"]); + regional(tmp,tmp1,eqL,Rule,pdata,Sm,ptP,ptQ,list,va1,va2); + tmp=Divoptions(options); + eqL=tmp_5; + Rule="o"; + forall(eqL, + if(Toupper(substring(#,0,1))=="R", + tmp=indexof(#,"="); + Rule=substring(#,tmp,tmp+1); + ); + ); + if(Rule=="o", + Sm= IntegrateO(pltdata,range); + , + if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata); + if(MeasureDepth(pdata)==2,pdata=pdata_1); + va1=MeetCurve(pdata,range_1,0); + va2=MeetCurve(pdata,range_2,0); + list=select(pdata,(#_1>range_1 & #_1<range_2)); + list=apply(list,LLcrd(#)); // 15.09.14 + list=concat([va1],list); + list=concat(list,[va2]); + Sm=0; + forall(1..(length(list)-1), + ptP=list_#; // 15.09.14 + ptQ=list_(#+1); + Sm=Sm+(ptP_2+ptQ_2)*(ptQ_1-ptP_1)/2; + ); + Sm; + ); +); + +Integrate(fnstr,vastr,range,options):=( +//help:Integrate("sin(x)","x",[0,pi],["Num=100","Rule=s"]); + regional(tmp,tmp1,Sm,Lx,Rx,va1,va2,Num,Waysx,ex,dx,xn,yn,x0,x1,x2,y0,y1,y2); + Num=100; + Way="t"; + forall(options, + if(indexof(#,"=")>0, + if(indexof(#,"N=")>0, + Num=parse(substring(#,indexof(#,"="),length(#))); + ); + if(indexof(#,"Num=")>0, + Num=parse(substring(#,indexof(#,"="),length(#))); + ); + if(Toupper(substring(#,0,1))=="R", + tmp=indexof(#,"="); + Way=substring(#,tmp,tmp+1); + ); + ); + ); + Sm=0; + if(Way=="t", + forall(1..Num, + Lx=range_1+(range_2-range_1)*(#-1)/Num; + Rx=range_1+(range_2-range_1)*#/Num; + va1=parse(replace(fnstr,vastr,textformat(Lx,5))); + va2=parse(replace(fnstr,vastr,textformat(Rx,5))); + Sm=Sm+(va1+va2)*(Rx-Lx)/2; + ); + , + sx=range_1; + ex=range_2; + dx=(ex-sx)/Num; + xn=apply(0..Num,sx+#*dx); + yn=apply(xn,parse(replace(fnstr,vastr,textformat(#,5)))); + dx=dx/2; + repeat(Num,s, + x0=xn_s; + x1=(xn_s+xn_(s+1))/2; + x2=xn_(s+1); + y0=yn_s; + y1=parse(replace(fnstr,vastr,textformat(x1,5))); + y2=yn_(s+1); + Sm=Sm+dx*(y0+4*y1+y2)/3; + ); + ); + Sm; +); + +IntegrateO(p0org,p1org,p2org,p3org):=( + regional(p0,p1,p2,p3,pQ,pR,cc,p01,p02, + p11,p12,p21,p22,p31,p32, tmp); + if(ispoint(p0org),p0=p0org.xy,p0=p0org); // 16.03.10 + if(ispoint(p1org),p1=p1org.xy,p1=p1org); // 16.03.16 + if(ispoint(p2org),p2=p2org.xy,p2=p2org); + if(ispoint(p3org),p3=p3org.xy,p3=p3org); + tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2); + cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp; + pQ=p1+cc*(p2-p0); + pR=p2+cc*(p1-p3); + p01=p1_1; p02=p1_2; + p31=p2_1; p32=p2_2; + p11=pQ_1; p12=pQ_2; + p21=pR_1; p22=pR_2; + tmp=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11- + 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11- + 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01- + 6*p32*p21+10*p32*p31; + tmp=tmp/20; +); +IntegrateO(pltdata,rangeorg):=( +//help:IntegrateO("gr1",[0,2]); + regional(tmp,tmp1,tmp2,pdata,va1,va2,list,Bzk,Bzc,range,pmflg, + Sm,p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32); + if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata); + if(MeasureDepth(pdata)==2,pdata=pdata_1); + range=rangeorg; + pmflg=1; + if(range_2<range_1, + range=reverse(range); + pmflg=-1; + ); + va1=MeetCurve(pdata,range_1,0); + va2=MeetCurve(pdata,range_2,0); + list=select(pdata,(#_1>range_1 & #_1<range_2)); + if((length(list)>0) & (list_1_1>list_(length(list))_2), + list=reverse(list); +// pmflg=pmflg*(-1); + ); + list=apply(list,LLcrd(#)); + list=concat([va1],list); + list=concat(list,[va2]); + Sm=0; + forall(1..(length(list)-1), + p1=list_#; + p2=list_(#+1); + if(#==1 % #==length(list)-1, + tmp1=(p1_2+p2_2)*(p2_1-p1_1)/2; + Sm=Sm+tmp1; + , + p0=list_(#-1); + p3=list_(#+2); + tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2); + cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp; + pQ=p1+cc*(p2-p0); + pR=p2+cc*(p1-p3); + p01=p1_1; p02=p1_2; + p31=p2_1; p32=p2_2; + p11=pQ_1; p12=pQ_2; + p21=pR_1; p22=pR_2; + tmp1=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11- + 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11- + 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01- + 6*p32*p21+10*p32*p31; + tmp1=tmp1/20; + Sm=Sm+tmp1; + ); + ); + if(pmflg==-1, + Sm=-Sm; + ); + Sm; +); + +Findarea(pdstr):=( +//help:Findarea("sgABCA"); + regional(pd,p1,p2,s,tmp); + if(isstring(pdstr),pd=parse(pdstr),pd=pdstr); + s=0; + forall(1..(length(pd)-1), + p1=Lcrd(pd_#); + p2=Lcrd(pd_(#+1)); + tmp=(p1_2+p2_2)*(p2_1-p1_1)/2; + s=s+tmp; + ); + if(s<0,s=-s); + s; +); + +Findarea(pdstr):=( // 15.11.27 +//help:Findarea("cr1"); + regional(pd,p0,p1,p2,p3,s,tmp); + if(isstring(pdstr),pd=parse(pdstr),pd=pdstr); + s=0; + forall(1..(length(pd)-1), + p1=pd_#; + p2=pd_(#+1); + if(#==1,p0=pd_(length(pd)-1),p0=pd_(#-1)); + if(#==length(pd)-1,p3=pd_2,p3=pd_(#+2)); + tmp=IntegrateO(p0,p1,p2,p3); + s=s+tmp; + ); + if(s<0,s=-s); + s; +); + +Findlength(pdstr):=( +//help:Findlength("gr1"); + regional(pd,p1,p2,s,tmp); + if(isstring(pdstr),pd=parse(pdstr),pd=pdstr); + s=0; + forall(1..(length(pd)-1), + p1=Lcrd(pd_#); + p2=Lcrd(pd_(#+1)); + tmp=|p2-p1|; + s=s+tmp; + ); + s; +); + +Inversefun(fnstr,rngstr,value):=( + regional(tmp,varstr,range,x1,x2,x3,va1,va2); + tmp=indexof(rngstr,"="); + varstr=substring(rngstr,0,tmp-1); + range=parse(substring(rngstr,tmp,length(rngstr))); + x1=range_1; x2=range_2; + repeat(15, + x3=(x1+x2)/2; + va1=parse(replace(fnstr,varstr,textformat(x1,5))); + va2=parse(replace(fnstr,varstr,textformat(x3,5))); + if((va1>value & va2>value) % (va1<value & va2<value), + x1=x3; + , + x2=x3; + ); + ); + va1=parse(replace(fnstr,varstr,textformat(x1,5)))-value; + va2=parse(replace(fnstr,varstr,textformat(x2,5)))-value; + if(x1==range_1 % x2==range_2, + println("not found in ("+textformat(range_1,5) + +","+textformat(range_2,5)+")"); + ); + if(abs(va1)<=abs(va2),x1,x2); +); + +Lcrd(pt):=( + regional(tmp); + if(ispoint(pt), + tmp=[pt.x/SCALEX,pt.y/SCALEY]; + , + tmp=pt; + ); + tmp; +); + +Pcrd(pt):=( + regional(tmp); + if(ispoint(pt), + tmp=re(pt.xy); // 15.07.24 + , + tmp=[pt_1*SCALEX,pt_2*SCALEY]; + ); + tmp; +); + +LLcrd(pt):=( + regional(tmp); + if(ispoint(pt), + tmp=pt.xy + , + tmp=pt; + ); + tmp=[tmp_1/SCALEX,tmp_2/SCALEY]; + tmp; +); + +Doscaling(pltdata):=( + regional(Level,Out,gL,gr,tmp); + if(ispoint(pltdata) % isreal(pltdata_1), + gL=[[pltdata]]; + Level=0; + , + if(ispoint(pltdata_1) % isreal(pltdata_1_1), + gL=[pltdata]; + Level=1; + , + gL=pltdata; + Level=2; + ); + ); + Out=[]; + forall(gL,gr, + tmp=apply(gr,Lcrd(#)); + tmp=apply(tmp,LLcrd(#)); + Out=concat(Out,[tmp]); + ); + if(Level==0, + Out=Out_1_1; + ); + if(Level==1, + Out=Out_1; + ); + Out; +); + +Unscaling(pltdata):=( + regional(Level,Out,gL,gr,tmp); + if(ispoint(pltdata) % isreal(pltdata_1), + gL=[[pltdata]]; + Level=0; + , + if(ispoint(pltdata_1) % isreal(pltdata_1_1), + gL=[pltdata]; + Level=1; + , + gL=pltdata; + Level=2; + ); + ); + Out=[]; + forall(gL,gr, + tmp=apply(gr,Lcrd(#)); + tmp=apply(tmp,LLcrd(#)); + Out=concat(Out,[tmp]); + ); + if(Level==0, + Out=Out_1_1; + ); + if(Level==1, + Out=Out_1; + ); + Out; +); + +Definecolor(name,data):=( +//help:Definecolor("mycolor",[1,1,1,0]); + regional(type,tmp); + if(length(data)>3,type="cmyk",type="rgb"); + tmp=text(data); + tmp=substring(tmp,1,length(tmp)-1); + tmp="\definecolor{"+name+"}{"+type+"}{"+tmp+"}"; + Texcom(tmp); +); + +Setcolor(Par):=( +//help:Setcolor([1,0,0,1]); +//help:Setcolor([1,1,0]); + if(islist(Par), + if(length(Par)==3, + Setcolorrgb(Par); // 2015.04.28 +// KCOLOR=Par; + ); + if(length(Par)==4, + Setcolor(Par,[]); + ); + , + Setcolor(Par,[]); + ); +); + +Setcolor(colorname,options):=( +//help:Setcolor("greenyellow",0.3); + regional(tmp); + if(isstring(colorname), + tmp="Setcolor("+Dq+colorname+Dq; + if(length(options)>0, + tmp=tmp+","+text(options_1); + ); + Com2nd(tmp+")"); + ); + if(islist(colorname), + tmp=text(colorname); + tmp=substring(tmp,1,length(tmp)-1); + tmp="Texcom("+Dq+"\color[cmyk]{"+tmp+"}"+Dq+")"; + Com2nd(tmp); + ); +); + +Setcolorrgb(colorlist):=( +// help:Setcolorrgb([0.5,0.3,0.4]); + regional(tmp); + tmp=text(colorlist); + tmp=substring(tmp,1,length(tmp)-1); + tmp="Texcom("+Dq+"\color[rgb]{"+tmp+"}"+Dq+")"; + Com2nd(tmp); +); + +ColorRgb2Cmyk(clr):=( +// help:ColorRgb([0.2,0.5,0.1]); + regional(clrnew,tmp,black); + tmp=apply(clr,1-#); + black=min(tmp); + tmp=apply(clr,(1-#-black)/(1-black)); + clrnew=append(tmp,black); + clrnew; +); + +ColorCmyk2Rgb(clr):=( +// help:ColorRgb([0.2,0.5,0.1,0.2]); + regional(clrnew,tmp,black); + black=clr_4; + tmp=apply(clr,1-min(1,#*(1-black)+black)); + clrnew=tmp_(1..3); + clrnew; +); + +Colorrgbhsv(rgb):=( + regional(varR,varG,varB,varMin,varMax,delMax,hh,ss,vv,delR,delG,delB); + varR = rgb_1; + varG = rgb_2; + varB = rgb_3; + varMin = min( [varR, varG, varB] ); + varMax = max( [varR, varG, varB] ); + delMax = varMax - varMin ; + vv = varMax; + if ( delMax == 0 , + hh = 0 ; + ss = 0 ; + , + ss = delMax / varMax; + delR = ( ( ( varMax - varR ) / 6 ) + ( delMax / 2 ) ) / delMax; + delG = ( ( ( varMax - varG ) / 6 ) + ( delMax / 2 ) ) / delMax; + delB = ( ( ( varMax - varB ) / 6 ) + ( delMax / 2 ) ) / delMax; + if( varR == varMax , + hh = delB - delG; + , + if ( varG == varMax, + hh = ( 1 / 3 ) + delR - delB; + , + if ( varB == varMax , + hh = ( 2 / 3 ) + delG - delR; + ); + ); + ); + if ( hh < 0 ,hh = hh+1); + if ( hh > 1 ,hh = hh-1); + ); + [hh*360,ss,vv]; +); + +Colorhsvrgb(sL):=( + regional(tmp,tmp1,tmp2,tmp3,hi,ff,dL); + tmp=[sL_1/60,sL_2,sL_3]; + hi=mod(floor(tmp_1),6); + ff=tmp_1-floor(tmp_1); + tmp2=tmp_3*[1-tmp_2,1-tmp_2*ff,1-tmp_2*(1-ff)]; + tmp2=append(tmp2,tmp_3); + if(hi==0,dL=tmp2_[4,3,1]); + if(hi==1,dL=tmp2_[2,4,1]); + if(hi==2,dL=tmp2_[1,4,3]); + if(hi==3,dL=tmp2_[1,2,4]); + if(hi==4,dL=tmp2_[3,1,4]); + if(hi==5,dL=tmp2_[4,1,2]); + dL; +); + +Colorrgbhsl(rgb):=( + regional(rr,gg,bb,mn,mx,delta,deltaR,deltaG,deltaB,hh,ss,ll); + rr = rgb_1 ; + gg = rgb_2 ; + bb = rgb_3 ; + mn = min([rr, gg, bb]); + mx = max([rr, gg, bb]); + delta = mx - mn; + ll = (mx + mn) / 2; + if (delta == 0, + hh=0; + ss=0; + , + if (ll < 0.5, + ss = delta/ (mx + mn); + , + ss = delta / (2 - mx - mn); + ); + deltaR = (((mx - rr) / 6) + (delta / 2)) / delta; + deltaG = (((mx - gg) / 6) + (delta / 2)) / delta; + deltaB = (((mx - bb) / 6) + (delta / 2)) / delta; + if (rr == mx, + hh = deltaB - deltaG; + , + if (gg == mx, + hh = (1 / 3) + deltaR - deltaB; + , + if (bb == mx, + hh = (2 / 3) + deltaG - deltaR; + ); + ); + ); + if ( hh < 0, hh = hh+1); + if ( hh > 1, hh = hh-1); + ); + [hh*360,ss,ll]; +); + +Colorhslrgb(hsl):=( + regional(hh,ss,ll,rr,gg,bb,var1,var2); + hh=hsl_1/360; + ss=hsl_2; + ll=hsl_3; + if ( ss == 0.0, + rr = ll ; + gg = ll ; + bb = ll ; + , + if ( ll < 0.5 , + var2 = ll * ( 1.0 + ss ); + , + var2 = ( ll + ss ) - ( ss * ll ); + ); + var1 = 2.0 * ll - var2; + rr = hue2rgb( var1, var2, hh + ( 1.0 / 3.0 ) ); + gg = hue2rgb( var1, var2, hh ); + bb = hue2rgb( var1, var2, hh - ( 1.0 / 3.0 ) ); + ); + [rr,gg,bb]; +); + +hue2rgb(vv1,vv2,vh):=( + regional(out); + if ( vh < 0.0 ,vh =vh+1); + if ( vh > 1.0 ,vh =vh-1); + if ( 6.0*vh < 1.0 , + out = vv1 + ( vv2 - vv1 ) * 6.0 * vh ; + , + if( 2.0*vh < 1.0 , + out = vv2; + , + if ( 3.0*vh < 2.0 , + out = vv1 + ( vv2 - vv1 ) * ( ( 2.0 / 3.0 ) - vh ) * 6.0 ; + , + out= vv1 ; + ); + ); + ); + out; +); + +Colorrgbhwb(sL):=( + regional(dl1,dl2,dl3); + dl1 = Colorrgbhsl(sL)_1;//Colorcode("rgb","hsl",sL)_1; + dl2 = min(sL); + dl3 = 1 - max(sL); + dL= [dl1, dl2 , dl3 ]; +); + +Colorhwbrgb(sLorg):=( + regional(sL,tmp,tmp1,tmp2,tmp3,ratio,ff,ii,vv,nn,dL,flg); + sL=sLorg; + sL=[sL_1/360,sL_2,sL_3]; + ratio = sL_2 + sL_3; + // sL_2 + sL_3 cant be > 1 + if (ratio > 1., + sL_2 =sL_2 / ratio; + sL_3 = sL_3 / ratio; + ); + ii = floor(6 * sL_1); + vv = 1 - sL_3; + ff = 6 * sL_1 - ii; + if(mod(ii,2)==1,ff = 1 - ff); + nn = sL_2 + ff * (vv - sL_2); // linear interpolation + tmp=[[vv,nn,sL_2],[nn,vv,sL_2],[sL_2,vv,nn], + [sL_2,nn,vv],[nn,sL_2,vv],[vv,sL_2,nn],[vv,nn,sL_2]]; + flg=0; + forall(0..6, + if(flg==0 & ii == # , + dL=tmp_(#+1); + flg=1; + ); + ); + dL; +); + +Colorhslhsv(sL):=( + regional(dl1,dl2,dl3,dL); + dl1=sL_1; + if(sL_3 == 0, + // no need to do calc on black + // also avoids divide by 0 error + dL= [0, 0, 0]; + , + sL_3 = sL_3 * 2; + if(sL_3 <= 1,sL_2 = sL_2 * sL_3,sL_2 = sL_2 * (2 - sL_3)); + dl3 = (sL_3 + sL_2) / 2; + dl2 = (2 * sL_2) / (sL_3 + sL_2); + dL = [dl1, dl2, dl3]; + ); + dL; +); + +Colorcode(src,dest,sL):=( +//help:Colorcode("rgb","cmyk",[1,0.5,0]); + regional(tmp,tmp1,tmp2,tmp3,mn,mx,delta,black,dL,flg); + regional(dl1,dl2,dl3); + if(src=="rgb" & dest=="hsv", dL=Colorrgbhsv(sL)); + if(src=="hsv" & dest=="rgb", dL=Colorhsvrgb(sL)); + if(src=="rgb" & dest=="hsl", dL=Colorrgbhsl(sL)); + if(src=="hsl" & dest=="rgb", dL=Colorhslrgb(sL)); + if(src=="rgb" & dest=="hwb", dL=Colorrgbhwb(sL)); + if(src=="hwb" & dest=="rgb", dL=Colorhwbrgb(sL)); + if(src=="hsl" & dest=="hsv", dL=Colorhslhsv(sL)); + if(src=="hsv" & dest=="hsl", + dl1 = sL_1; + dl3 = (2 - sL_2) * sL_3; + dl2 = sL_2 * sL_3; + if(dl3 <= 1,dl2 = dl2/dl3,dl2=dl2/(2 - dl3)); + dl3 =d l3/ 2; + dL = [dl1, dl2 , dl3 ]; + ); + + if(src=="rgb" & dest=="cmyk", + tmp=apply(sL,1-#); + black=min(tmp); + tmp=apply(sL,(1-#-black)/(1-black)); + dL=append(tmp,black); + ); + if(src=="cmyk" & dest=="rgb", + black=sL_4; + tmp=apply(sL,1-min(1,#*(1-black)+black)); + dL=tmp_(1..3); + ); + if(src=="hsv" & dest=="cmyk", + tmp=Colorcode("hsv","rgb",sL); + dL=Colorcode("rgb","cmyk",tmp); + ); + if(src=="cmyk" & dest=="hsv", + tmp=Colorcode("cmyk","rgb",sL); + dL=Colorcode("rgb","hsv",tmp); + ); + + if(src=="hsv" & dest=="hwb", + tmp = Colorcode("hsv","rgb",sL); + dL = Colorcode("rgb","hwb",tmp); + ); + if(src=="hwb" & dest=="hsv", + tmp = Colorcode("hwb","rgb",sL); + dL = Colorcode("rgb","hsv",tmp); + ); + if(src=="hsl" & dest=="hwb", + tmp = Colorcode("hsl","rgb",sL); + dL = Colorcode("rgb","hwb",tmp); + ); + if(src=="hwb" & dest=="hsl", + tmp = Colorcode("hwb","rgb",sL); + dL = Colorcode("rgb","hsl",tmp); + ); + if(src=="hsl" & dest=="cmyk", + tmp = Colorcode("hsl","rgb",sL); + dL = Colorcode("rgb","cmyk",tmp); + ); + if(src=="hwb" & dest=="cmyk", + tmp = Colorcode("hwb","rgb",sL); + dL = Colorcode("rgb","cmyk",tmp); + ); + if(src=="cmyk" & dest=="hsl", + tmp = Colorcode("cmyk","rgb",sL); + dL = Colorcode("rgb","hsl",tmp); + ); + if(src=="cmyk" & dest=="hwb", + tmp = Colorcode("cmyk","rgb",sL); + dL = Colorcode("rgb","hwb",tmp); + ); + if(src=="hsb" & dest=="rgb",dL=Colorcode("hsv","rgb",sL)); + if(src=="rgb" & dest=="hsb",dL=Colorcode("rgb","hsv",sL)); + + if(src=="hsb" & dest=="hsl",dL=Colorcode("hsv","hsl",sL)); + if(src=="hsl" & dest=="hsb",dL=Colorcode("hsl","hsv",sL)); + + if(src=="hsb" & dest=="hwb",dL=Colorcode("hsv","hwb",sL)); + if(src=="hwb" & dest=="hsb",dL=Colorcode("hwb","hsv",sL)); + + if(src=="hsb" & dest=="cmyk",dL=Colorcode("hsv","cmyk",sL)); + if(src=="cmyk" & dest=="hsb",dL=Colorcode("cmyk","hsv",sL)); + + dL; +); + +Addcolor(cmdorg,list):=( +//help:Addcolor("Plotdata('1','x^2','x',[])",[1,1,0]); + regional(rgb,cmyk,cmd,tmp,tmp1,tmp2,tmp3,tmp4); + cmd=replace(cmdorg,"'",Dq); + if(length(list)==3, + rgb=list; + cmyk=Colorcode("rgb","cmyk",list); + , + cmyk=list; + rgb=Colorcode("cmyk","rgb",list); + ); + tmp1="color->"+text(rgb); + tmp2="Setcolor("+text(cmyk)+");"; + tmp3=substring(cmd,0,length(cmd)-2); + tmp=substring(tmp3,length(tmp3)-1,length(tmp3)); + if(tmp!="[", + tmp3=tmp3+","; + ); + tmp3=tmp3+Dq+tmp1+Dq+"])"; + parse(tmp2); + parse(tmp3); + Setcolor("black"); +); + +Colorinfile(filename,clrf,clrt):=( + regional(tmp,tmp1,tmp2,head,cstrL,chstrL,head,body); + if(length(clrf_1)==3, + head="[rgb]{"; + , + head="[cmyk]{"; + ); + tmp=apply(clrf,text(#)); + cstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}"); + if(length(clrt_1)==3, + head="[rgb]{"; + , + head="[cmyk]{"; + ); + tmp=apply(clrt,text(#)); + chstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}"); + tmp1=load(filename); + tmp=tokenize(tmp1,"{\unitlength"); + head=tokenize(tmp_1,"%%%"); + head=head_(2..length(head)); + head=apply(head,"%%%"+#); + tmp2=tmp_2; + forall(1..5, + tmp2=replace(tmp2,cstrL_#,chstrL_#); + ); + body=tokenize(tmp2,"%"); + body_1="{\unitlength"+body_1; + body=apply(body,#+"%"); + body=body_(1..(length(body)-1)); + tmp=replace(filename,".tex","new.tex"); + SCEOUT=openfile(tmp); + forall(head, + println(SCEOUT,#); + ); + forall(1..length(body), + tmp=body_#; + if(#<length(body), + println(SCEOUT,tmp); + , + print(SCEOUT,tmp) + ); + ); + closefile(SCEOUT); +); + +GetLinestyle(str,name):=( + regional(noflg,tmp,tmp1,tmp2,Dop,Ltype,subflg); + Ltype=-1; + Dop=""; + tmp1=indexof(str,","); + if(tmp1>0, + Dop=","+substring(str,tmp1,length(str)); + ); + noflg=parse(substring(str,0,1)); + if(substring(name,0,3)=="sub",subflg=1,subflg=0); // 16.02.29 + tmp1=substring(str,1,3); + if(tmp1=="dr" % tmp1=="Dr", + Ltype=0; + if(noflg==0 & subflg==0, // 16.02.29 + Drwline(name+Dop); + ); + ); + if(tmp1=="da" % tmp1=="Da", + Ltype=1; + if(noflg==0 & subflg==0, // 16.02.29 + Dashline(name+Dop); + ); + ); + if(tmp1=="id" % tmp1=="Id", + Ltype=2; // 15.11.09 + if(noflg==0 & subflg==0, // 16.02.29 + Invdashline(name+Dop); + ); + ); + if(tmp1=="do" % tmp1=="Do", + Ltype=3; + if(noflg==0 & subflg==0, // 16.02.29 + Dottedline(name+Dop); + ); + ); + if(tmp1=="dp" % tmp1=="Dp", + Ltype=0; + tmp1=parse(name); + tmp2=""; + forall(tmp1, + tmp2=tmp2+textformat(#_1,5)+","; + ); + tmp2=substring(tmp2,0,length(tmp2)-1); + if(noflg==0, + Drwpt(tmp2+Dop); + ); + ); + if(tmp1=="no" % tmp1=="No", + Ltype=10; + ); + Ltype; +); + +Chunderscore(str):=( + regional(flg,tmp,tmp1,tmp2,tmp3); + if(indexof(str,"]")>0, + tmp1=replace(str,"]",",]"); + , + tmp1=str+","; + ); + flg=0; + tmp2=[]; + tmp3=0; + forall(1..length(tmp1), + if(flg==0, + tmp=substring(tmp1,tmp3,length(tmp1)); + tmp=indexof(tmp,"_"); + if(tmp==0, + flg=1; + , + tmp3=tmp3+tmp; + tmp=substring(tmp1,tmp3,length(tmp1)); + tmp=indexof(tmp,",")-1; + tmp=substring(tmp1,tmp3,tmp3+tmp); + tmp2=append(tmp2,tmp); + ); + ); + ); + forall(tmp2, + tmp1=replace(tmp1,"_"+#,"("+#+")"); + ); + if(indexof(str,"]")>0, + tmp1=replace(tmp1,",]",")"); + tmp1=replace(tmp1,"[","list("); + , + tmp1=substring(tmp1,0,length(tmp1)-1); + ); + tmp1; +); + +//AddGraph(pltdata):=AddGraph("-"+pltdata,pltdata,[]); +AddGraph(nm,pltdata):=AddGraph(nm,pltdata,[]); +// if(isstring(Arg2), +// AddGraph(Arg1,Arg2,[]); +// , +// if(MeasureDepth(Arg2)>0, +// Addgraph(Arg1,Arg2,[]); +// , +// Addgraph("-"+Arg1,Arg1,Arg2); +// ); +// ); +//); +AddGraph(nm,pltdata,options):=( +//help:AddGraph("1","imp1"); // 16.04.04 +//help:Addgraph("1",["[pt1]","gr1"],["nodisp"]); + regional(name,Ltype,Noflg,opcindy,pdata,fname,flg, + tmp,tmp1,tmp2,tmp3); + if(substring(nm,0,1)=="-", + name=substring(nm,1,length(nm)); + , + name="ad"+nm; + ); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_9; + if(isstring(pltdata), + pdata=parse(pltdata) + , + if(!islist(pltdata),pdata=[pltdata],pdata=pltdata); + pdata=apply(pdata,parse(#)); + ); // 15.01.22 + pdata=Flattenlist(pdata); + tmp1=[]; + forall(pdata,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + pdata=tmp1; + if(Noflg<3, + println("generate addgraph "+name); + tmp=name+"="+textformat(pdata,5); + parse(tmp); + if(isstring(pltdata), // 16.04.04 from + if(indexof(pltdata,"]")>0, + tmp1="list(Listplot("+substring(pltdata,1,length(pltdata)); + tmp1=replace(tmp1,"]",",]"); + , + tmp1="Listplot("+substring(pltdata,0,length(pltdata))+",]"; + ); + flg=0; + tmp2=[]; + tmp3=0; + forall(1..length(tmp1), + if(flg==0, + tmp=indexof(substring(tmp1,tmp3,length(tmp1)),"_"); + if(tmp==0, + flg=1; + , + tmp3=tmp3+tmp; + tmp=indexof(substring(tmp1,tmp3,length(tmp1)),",")-1; + tmp=substring(tmp1,tmp3,tmp3+tmp); + tmp2=append(tmp2,tmp); + ); + ); + ); + forall(tmp2, + tmp1=replace(tmp1,"_"+#,"("+#+")"); + ); + tmp1=replace(tmp1,",]",")"); + tmp1=replace(tmp1,",","),Listplot("); + if(indexof(pltdata,"[")>0, + tmp1=tmp1+")"; + ); + GLIST=append(GLIST,name+"="+tmp1); + , + if(MeasureDepth(pdata)==1, + tmp1=name+"=Listplot("+textformat(pdata,5)+")"; + , + tmp1="list("; + forall(1..length(pdata), + tmp=name+"p"+textformat(#,5)+"="; + if(length(pdata_#)>1, // 15.01.22 + tmp=tmp+"Listplot("+textformat(pdata_#,5)+")"; + , + tmp=tmp+"Pointdata("+textformat(pdata_#_1,5)+")"; + ); + GLIST=append(GLIST,tmp); + tmp1=tmp1+name+"p"+textformat(#,5)+","; + ); + tmp1=name+"="+substring(tmp1,0,length(tmp1)-1)+")"; + ); + GLIST=append(GLIST,tmp1); + ); + ); // 16.04.04 upto + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); +); + +Joincrvs(nm,plotstrL):=Joincrvs(nm,plotstrL,[]); +Joincrvs(nm,plotstrL,options):=( +//help:Joincrvs("1",["sgAB","sgDCB"]); + regional(plotlist,PtL,Eps,QdL,Flg,Ni,Qd,pP,pS,pQ,pR,rMN, + opcindy,tmp,tmp1,tmp2,str,name,Ltype,Noflg); + name="join"+nm; + plotlist=[]; + forall(plotstrL,str, + if(isstring(str), + tmp=parse(str); + tmp=apply(tmp,LLcrd(#)); + , + tmp=str; + ); + plotlist=append(plotlist,tmp); + ); + Eps=10^(-4); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + tmp1=tmp_6; + if(length(tmp1)>0,Eps=tmp1_1); + QdL=[]; + forall(plotlist,Qd, + if(ispoint(Qd_1) % !islist(Qd_1_1), + QdL=concat(QdL,[Qd]); + , + forall(Qd, + QdL=concat(QdL,[#]); + ); + ); + ); + Flg=0; + if(length(QdL)==0, + PtL=[]; + Flg=1; + ); + if(Flg==0, + PtL=QdL_1; + forall(2..length(QdL),Ni, + Qd=QdL_Ni; + if(Numptcrv(Qd)>1, + pP=Ptend(PtL); + pS=Ptstart(PtL); + pQ=Ptstart(Qd); + pR=Ptend(Qd); + rMN=min([|pP-pQ|,|pP-pR|,|pS-pQ|,|pS-pR|]); + if(rMN==|pP-pR|, + Qd=reverse(Qd); + , + if(rMN==|pS-pQ|, + PtL=reverse(PtL); + , + if(rMN==|pS-pR|, + PtL=reverse(PtL); + Qd=reverse(Qd); + ); + ); + ); + ); + if(rMN>Eps, + PtL=concat(PtL,Qd); + , + PtL=concat(PtL,Qd_(2..length(Qd))); + ); + ); + ); + if(Noflg<3, + println("generate joincurve "+name); + tmp1=apply(PtL,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=""; + forall(plotstrL, + tmp1=tmp1+#+","; + ); + tmp1=substring(tmp1,0,length(tmp1)-1); + GLIST=append(GLIST,name+"=Joincrvs("+tmp1+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PtL; +); + +Partcrv(nm,pA,pB,PkLstr):=Partcrv(nm,pA,pB,PkLstr,[]); +Partcrv(nm,pA,pB,PkLstr,options):=( +//help:Partcrv("1",A,B,"sgABC"); +//help:Partcrv("1",1.3,2.5,"sgABC"); + regional(PkL,Ans,Eps,Npt,Out1,Out2,tmp,tmp1,Flg,nS,nE,PPL,pP, + opcindy,Ta,Tb,name,Ltype,Noflg,DepthFlg); + name="part"+nm; + if(isstring(PkLstr),PkL=parse(PkLstr),PkL=PkLstr); + DepthFlg=0; + if(MeasureDepth(PkL)==2, + PkL=PkL_1; + DepthFlg=1; + ); + PkL=apply(PkL,LLcrd(#)); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + Eps=10^(-3); + Flg=0; + if(isreal(pA), + if(pA>pB+Eps, + Npt=Numptcrv(PkL); + Out1=Partcrv("",pA,Npt,PkLstr,["nodata"]); + Out2=Partcrv("",1,pB,PkLstr,["nodata"]); + tmp=Ptstart(PkL)-Ptend(PkL); + if(|tmp|<Eps, + Ans=Joincrvs("",[Out1,Out2],["nodata"]); + , + Ans=[apply(Out1,Pcrd(#)),apply(Out2,Pcrd(#))]; + ); + Flg=1; + ); + if(Flg==0, + nS=ceil(pA); + nE=floor(pB); + PPL=[]; + if(pA<nS-Eps, + pP=(nS-pA)*PkL_(nS-1)+(1-nS+pA)*PkL_nS; + PPL=[pP]; + ); + PPL=concat(PPL,PkL_(nS..nE)); + if(pB>nE+Eps, + pP=(1-pB+nE)*PkL_nE+(pB-nE)*PkL_(nE+1); + PPL=concat(PPL,[pP]); + ); + Ans=PPL; + Flg=1; + ); + ); + if(Flg==0, + tmp=Nearestpt(LLcrd(Pcrd(pA)),PkL); + Ta=tmp_2; + tmp=Nearestpt(LLcrd(Pcrd(pB)),PkL); // 15.09.12 + Tb=tmp_2; + Ans=Partcrv("",Ta,Tb,PkL,["nodata"] ); + Ans=apply(Ans,Pcrd(#)); + ); + if(Noflg<3, + println("generate partcrv "+name); + tmp1=apply(Ans,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// GLIST=append(GLIST, // 16.04.03 + if(DepthFlg==0, + tmp=PkLstr; + , + tmp=PkLstr+"(1)"; + ); + tmp1=name+"=Partcrv("+textformat(Lcrd(pA),5) + +","+textformat(Lcrd(pB),5)+","+tmp+")"; // 16.04.03 + GLIST=append(GLIST,tmp1); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Ans; +); + +Opcrvs(num,Fig):=Opcrvs(num,Fig,["nodisp"]); +Opcrvs(num,Fig,options):=( + //help:Subgraph(2,"grfs"); + regional(name,tmp,tmp1); + name="-"+Fig+text(num); + tmp=Fig+"_"+text(num); + tmp1=parse(tmp); + Listplot(name,tmp1,options); +); + + +Pointdata(nm,list):=Pointdata(nm,list,[]); +Pointdata(nm,list,options):=( +//help:Pointdata("1",[2,4],["Size=5"]); +//help:Pointdata("2",[[2,3],[4,1]]); + regional(name,nameL,ptlist,opstr,opcindy, + eqL,size,thick,tmp,tmp1,tmp2,tmp3,Ltype,Noflg); + name="pt"+nm; + nameL=name+"L"; + println("generate pointdata "+name); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + opstr=tmp_(length(tmp)-1); + size=""; + eqL=tmp_5; + if(length(eqL)>0, + forall(eqL, + tmp=substring(#,0,1); + if(tmp=="s" % tmp=="S", + tmp=indexof(#,"="); + size=substring(#,tmp,length(#)); + ); + ); + ); + tmp=MeasureDepth(list); + if(tmp>0, // 2015.02.21 + if(tmp==1,ptlist=list,ptlist=list_1); + tmp=apply(ptlist,[textformat(Pcrd(#),5)]); + tmp1=text(tmp); + tmp2=substring(tmp1,1,length(tmp1)-1); + tmp3=tmp1; + , + ptlist=list; + tmp1=textformat(Pcrd(ptlist),5); + tmp2=tmp1; + tmp3="["+tmp1+"]"; + ); + tmp=name+"="+tmp1; + parse(tmp); + tmp=nameL+"="+tmp3; + parse(tmp); + if(Noflg<3, + GLIST=append(GLIST,name+"=Pointdata("+tmp2+")"); + ); + if(Noflg<2, + tmp=[nameL,0,opcindy]; + GCLIST=append(GCLIST,tmp); + if(Noflg==0, + if(length(size)>0, + Com2nd("Setpt("+size+")"); + ); + thick=PenThick/PenThickInit; // 16.04.09 from + if(length(size)>0,tmp1=parse(size),tmp1=1); + tmp1=max(tmp1,1)/8; + Setpen(tmp1); // 16.04.09 upto + Com2nd("Drwpt(list("+name+")"+opstr+")"); + Setpen(thick); // 16.04.09 + if(length(size)>0, + Com2nd("Setpt("+textformat(TenSize/TenSizeInit,1)+")"); + ); + ); + ); + ptlist; +); + +Listplot(nm,list,options):=( +//help:Listplot([A,B]); +// help:Listplot(["A","B"]); +//help:Listplot("1",[[2,1],[3,3]]); +//help:Listplot(options2=["Msg=yes"]); + regional(name,tmp,tmp1,ptlist,Ltype,opcindy,Noflg,eqL,Msg); + if(substring(nm,0,1)=="-", // 16.01.27 from + name=substring(nm,1,length(nm)); + , + name="sg"+nm; + ); // upto + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + eqL=tmp_5; + opcindy=tmp_(length(tmp)); + Msg=1; // 15.09.17 + forall(eqL, + tmp=substring(#,0,1); + if(Toupper(tmp)=="M", + tmp=indexof(#,"="); + tmp1=substring(#,tmp,tmp+1); // 16.06.28 + if(Toupper(tmp1)=="N", // 16.06.28 + Msg=0; + ); + ); + ); + if(Noflg<3, + if(Msg==1, + println("generate Listplot "+name); + ); + if(isstring(list_1),tmp=apply(list,parse(#)),tmp=list); // 15.03.24 + ptlist=apply(tmp,Pcrd(#)); + tmp=name+"="+textformat(ptlist,5); + parse(tmp); + GLIST=append(GLIST,name+"=Listplot("+textformat(list,5)+")"); // 15.12.23 + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + tmp1=apply(list,Lcrd(#)); + tmp1; +); +Listplot(Arg1,Arg2):=( + regional(name,list,options,str); + if(isstring(Arg1), + name=Arg1; + list=Arg2; + Listplot(name,list,[]); + , + list=Arg1; + options=Arg2; + name=""; + forall(list, // 16.10.07from + name=name+#.name; + );// 16.10.07upto + Listplot(name,list,options); + ); +); +Listplot(list):=Listplot(list,[]); + +Lineplot(nm,list,options):=( +//help:Lineplot([A,B]); +//help:Lineplot("1",[[2,1],[3,3]]); + regional(name,Out,tmp,tmp1,opstr,opcindy,Mag,Semi, + Vec,pA,pB,Ltype,Noflg); + name="ln"+nm; + Mag=100; + Semi=""; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + opstr=tmp_(length(tmp)-1); + tmp1=tmp_6; + if(length(tmp1)>0,Mag=tmp1_1); + tmp1=tmp_7; + if(length(tmp1)>0,Semi=tmp1_1); + pA=Lcrd(list_1); pB=Lcrd(list_2); + Vec= Mag/dist(pA,pB)*(pB-pA); + if(length(Semi)==0, + Out=[pA-Vec,pA+Vec]; + , + if(Semi=="+", + Out=[pA,pA+Vec]; + , + Out=[pA-Vec,pA]; + ); + ); + if(Noflg<3, + println("generate Lineplot "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + GLIST=append(GLIST,name+"=Lineplot("+textformat(list,5)+opstr+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); +Lineplot(Arg1,Arg2):=( + regional(name,list,options,str); + if(isstring(Arg1), + name=Arg1; + list=Arg2; + Lineplot(name,list,[]); + , + list=Arg1; + options=Arg2; + name=""; + forall(list, // 16.10.07from + name=name+#.name; + );// 16.10.07upto + Lineplot(name,list,options); + ); +); +Lineplot(list):=Lineplot(list,[]); + +Plotdata(name1,func,variable):=Plotdata(name1,func,variable,[]); +Plotdata(name1,func,variable,options):=( +//help:Plotdata("1","sin(x)","x",["Num=100"]); +//help:Plotdata("2","x^2","x=[-1,1]"); +//help:Plotdata("3","Fout(x)","x",["out"]); + regional(Fn,Va,tmp,tmp1,tmp2,eqL,name,Vname,x1,x2,dx, + PdL,QdL,Num,Ec,Dc,Fun,Exfun,x,Ke,Eps,Pa, + Ltype,Noflg,Inflg,Outflg,opstr,opcindy); + name="gr"+name1; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + Inflg=tmp_3; + Outflg=tmp_4; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + Num=50; + Ec=[]; + Exfun=""; + Dc=1000; + forall(eqL, + tmp=indexof(#,"="); + tmp1=substring(#,tmp,length(#)); + opstr=opstr+",'"+#+"'"; + if(substring(#,0,1)=="N", + Num=parse(tmp1); + ); + if(substring(#,0,1)=="E", + if(substring(tmp1,0,1)=="[", + Ec=parse(tmp1); + , + Exfun=tmp1; + ); + ); + if(substring(#,0,1)=="D", + Dc=parse(tmp1); + ); + ); + if(Inflg==0 & Outflg==0, + Eps=10^(-3); + tmp=replace(func,LFmark,""); + tmp=tokenize(variable,"="); + Vname=tmp_1; + if(length(tmp)>1, + tmp=tmp_2; + tmp=parse(tmp); + x1=tmp_1; + x2=tmp_2; + , + x1=XMIN; + x2=XMAX; + ); + // dx=(x2-x2)/Num; + Ec=append(sort(Ec),10000); + Fun=Assign(func,Vname, "xx"); + Exfun=Assign(Exfun,Vname, "xx"); + PdL=[]; + Ke=1; + forall(0..Num, + xx=x1+#*(x2-x1)/Num; // differs from Scilab ( / Num-1) + if(length(Exfun)>0, + tmp=parse(Exfun); + if(abs(tmp)<Eps, + if(length(Pdt)>0, + PdL=concat(PdL,["inf"]); + ); + ); + , + Pa=[]; + if(xx-Ec_Ke<-Eps, + Pa=[xx,parse(Fun)]; + ); + if(abs(xx-Ec_Ke)<=Eps, + if(length(PdL)>0, + if(PdL_(length(PdL))_1!="inf", + Pa=["inf"]; + ); + ); + ); + if(xx-Ec_Ke>Eps, + Pa=[xx,parse(Fun)]; + Ke=Ke+1; + ); + if(length(Pa)>0, + if(Pa_1=="inf", + PdL=concat(PdL,[Pa]); + , + if(length(PdL)==0, + PdL=[Pa]; + , + tmp=PdL_(length(PdL)); + if(tmp_1=="inf", + PdL=concat(PdL,[Pa]); + , + if(dist(tmp,Pa)<Dc, + PdL=concat(PdL,[Pa]); + , + PdL=concat(PdL,[["inf"],Pa]); + ); + ); + ); + ); + ); + ); + ); + tmp1=[]; + tmp2=select(1..length(PdL),PdL_#==["inf"]); + tmp=1; + forall(tmp2, + if(#>tmp, + tmp1=concat(tmp1,[PdL_(tmp..(#-1))]) + ); + tmp=#+1; + ); + if(tmp<length(PdL), + tmp1=concat(tmp1,[PdL_(tmp..length(PdL))]); + ); + PdL=tmp1; + if(length(PdL)==1, + PdL=PdL_1; + ); + if(Noflg<3, + println("generate Plotdata "+name); + if(MeasureDepth(PdL)==1, + tmp1=apply(PdL,Pcrd(#)); + , + tmp1=[]; + forall(PdL,tmp2, + tmp1=append(tmp1,apply(tmp2,Pcrd(#))); + ); + ); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=replace(func,LFmark,""); + tmp2=replace(variable,LFmark,""); + tmp=name+"=Plotdata('"+tmp1+"','"+tmp2+"'"+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; + , + // Inflg or Outflg >0 15.05.15 + if(Noflg<3, + if(Outflg==1, + println("Output Plotdata "+name); + tmp=name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")"; + GLIST=append(GLIST,tmp); + SCIWRLIST=append(SCIWRLIST,name); + if(Inflg==0,Inflg=1); // 15.05.17 + ); + if(Inflg==1, + println("Input Plotdata "+name); + if(length(SCIRELIST)==0, + ReadOutData(Fnameout); + ); + tmp=parse(name); + if(islist(tmp), + Extractdata(name,["nodisp"]); // 12.19 + ); + tmp="// "+name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")"; + Com1st(tmp); + SCIRELIST=append(SCIRELIST,name); + ); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + if(Inflg==1, + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + ); + ); +); + +Paramplot(name1,funstr,variable):=Paramplot(name1,funstr,variable,[]); +Paramplot(name1,funstr,variable,options):=( +//help:Paramplot("1","[2*cos(t),sin(t)]","t=[0,2*pi]"); + regional(name,Out,tmp,tmp1,tmp2,vname,func,str,Rng,Num, + Ec,Exfun,Dc,eqL,Fntmp,Vatmp,t1,t2,dt,tt,pa,ke, + Ltype,Noflg,Inflg,Outflg,opstr,opcindy); + name="gp"+name1; + Eps=10^(-4); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + Inflg=tmp_3; + Outflg=tmp_4; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + Num=50; + Ec=[]; + Exfun=""; + Dc=1000; + forall(eqL, + tmp=indexof(#,"="); + tmp1=substring(#,tmp,length(#)); + opstr=opstr+",'"+#+"'"; + if(substring(#,0,1)=="N", + Num=parse(tmp1); + ); + if(substring(#,0,1)=="E", + if(substring(tmp1,0,1)=="[", + Ec=parse(tmp1); + , + Exfun=tmp1; + ); + ); + if(substring(#,0,1)=="D", + Dc=parse(tmp1); + ); + ); + if(Inflg==0 & Outflg==0, + tmp=indexof(variable,"="); + vname=substring(variable,0,tmp-1); + str=substring(variable,tmp,length(variable)); + Rng=parse(str); + t1=Rng_1; t2=Rng_2; + dt=(t2-t1)/Num;// differs from Scilab ( / Num-1) + func=Assign(funstr,vname,"tt"); + Out=[]; + Ec=append(sort(Ec),10000); + ke=1; + forall(0..Num, + pt=[]; + tt=Rng_1+#*dt; + if(tt-Ec_ke<-Eps, + pa=parse(func); + ); + if(abs(tt-Ec_ke)<=Eps, + if(length(Out)>0, + if(Out_(length(Out))_1!="inf", + pa=["inf"]; + ); + ); + ); + if(tt-Ec_ke>Eps, + pa=parse(func); + ke=ke+1; + ); + if(length(pa)>0, + if(pa_1=="inf", + Out=append(Out,pa); + , + if(length(Out)==0, + Out=[pa]; + , + tmp=Out_(length(Out)); + if(tmp_1=="inf", + Out=append(Out,pa); + , + if(|tmp-pa|<Dc, + Out=append(Out,pa); + , + Out=concat(Out,[["inf"],pa]); + ); + ); + ); + ); + ); + ); + tmp1=[]; + tmp2=select(1..length(Out),Out_#==["inf"]); + tmp=1; + forall(tmp2, + if(#>tmp, + tmp1=concat(tmp1,[Out_(tmp..(#-1))]) + ); + tmp=#+1; + ); + if(tmp<length(Out), + tmp1=concat(tmp1,[Out_(tmp..length(Out))]); + ); + Out=tmp1; + if(length(Out)==1, + Out=Out_1; + ); + if(Noflg<3, + println("generate Paramplot "+name); + if(MeasureDepth(Out)==1, + tmp1=apply(Out,Pcrd(#)); + , + tmp1=[]; + forall(Out,tmp2, + tmp1=append(tmp1,apply(tmp2,Pcrd(#))); + ); + ); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=replace(funstr,LFmark,""); // 15.11.13 + tmp2=replace(variable,LFmark,""); + tmp=name+"=Paramplot('"+tmp1+"','"+tmp2+"'"+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; + , + // Inflg or Outflg >0 15.05.15 + if(Noflg<3, + if(Outflg==1, + println("Output Paramplot "+name); + tmp=name+"=Paramplot('"+funstr+"','"+variable+"'"+opstr+")"; + GLIST=append(GLIST,tmp); + SCIWRLIST=append(SCIWRLIST,name); + if(Inflg==0,Inflg=1); // 15.05.17 + ); + if(Inflg==1, + println("Input Paramplotdata "+name); + if(length(SCIRELIST)==0, + ReadOutData(Fnameout); + ); + tmp=parse(name); + if(islist(tmp), + Extractdata(name,["nodisp"]); // 12.19 + ); + tmp="// "+name+"=Paramplot('"+func+"','"+variable+"'"+opstr+")"; + Com1st(tmp); + SCIRELIST=append(SCIRELIST,name); + ); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + if(Inflg==1, + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + ); + ); +); + +Circledata(cenrad):=Circledata(cenrad,[]); +Circledata(para1,para2):=( +//help:Circledata([A,B],["Rng=[0,pi/2]"]); +//help:Circledata([A,B,C]); + regional(name,cenrad,options,str,n); + if(isstring(para1), + name=para1; + cenrad=para2; + options=[]; + , + cenrad=para1; + options=para2; + name="";// 16.10.07from + forall(cenrad, + name=name+#.name; + );// 16.10.07upto + ); + Circledata(name,cenrad,options); +); +Circledata(nm,cenrad,options):=( + regional(name,Out,Ctr,Ptcir,ra,Num,Rg,opstr,opcindy, + tmp,tmp1,tmp1,Th,Ltype,Noflg,eqL,pA,pB,pC,d1,d2,Eps); + name="cr"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + Num=50; + Rg=[0,2*pi]; + forall(eqL, + tmp=indexof(#,"="); + tmp1=substring(#,tmp,length(#)); + opstr=opstr+",'"+#+"'"; + if(substring(#,0,1)=="N", + Num=parse(tmp1); + ); + if(substring(#,0,1)=="R", + Rg=parse(tmp1); + ); + ); + if(length(cenrad)==2, + Ctr=Lcrd(cenrad_1); + Ptcir=Lcrd(cenrad_2); + ra=dist(Ctr,Ptcir); + , + Eps=10^(-1); + pA=Lcrd(cenrad_1); + pB=Lcrd(cenrad_2); + pC=Lcrd(cenrad_3); + tmp=pB-pA; + tmp1=(tmp_2,-tmp_1); + tmp=pC-pB; + tmp2=(tmp_2,-tmp_1); + d1=det([tmp1,tmp2]); + d2=det([pC-pA,tmp2]); + if(abs(d1)<Eps & abs(d2)>10*Eps, + println("points are in a line"); + ra=0; + , + Ctr=1/2*(pA+pB)+1/2*d2/d1*tmp1; + ra=|pA-Ctr|; + tmp=name+"center="+Ctr; + parse(tmp); + Defvar(name+"center",Ctr); + ); + ); + if(ra>0, + Out=[]; + forall(0..Num, + Th=Rg_1+#*(Rg_2-Rg_1)/Num; + Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]); + ); + , + Out=Lineplot("1",[pA,pB],["nodata"]); + ); + if(Noflg<3, + println("generate Circledata "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + if(length(cenrad)==2, + tmp=name+"=Circledata("+cenrad+opstr+")"; + , + if(ra>0, + tmp=name+"=Circledata(["+Ctr+","+cenrad_1+"]"+opstr+")"; + , + tmp=name+"=Lineplot("+cenrad_1+","+cenrad_2+")"; + ); + ); + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); + +Framedata():=( + regional(pA,pB); + pA=LLcrd((SW+NE)/2); // 15.09.17 + pB=LLcrd(NE); + Framedata("win",[pA,pB]); +); +Framedata(list):=Framedata(list,[]); +Framedata(Arg1,Arg2):=( + regional(name,list,options,str); + if(isstring(Arg1), + name=Arg1; + list=Arg2; + Framedata(name,list,[]); + , + list=Arg1; + options=Arg2; + name="";// 16.10.07from + forall(list, + name=name+#.name; + );// 16.10.07upto + Framedata(name,list,options); + ); +); + +Framedata(nm,list,options):=( +//help:Framedata(); +//help:Framedata([A,B]); +//help:Framedata("1",[A,B]); +//help:Framedata("1",[C,dx,dy]); + regional(name,Out,tmp,tmp1,pB,x1,x2,y1,y2,dx,dy, + opcindy,Ltype,Noflg,cent,dx,dy); + name="fr"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + if(length(list)==2, // 15.05.12 + pA=Lcrd(list_1); pB=Lcrd(list_2); + dx=abs(pB_1-pA_1); dy=abs(pB_2-pA_2); + , + pA=Lcrd(list_1); + dx=list_2; dy=list_3; + ); + x1=pA_1-dx; x2=pA_1+dx; + y1=pA_2-dy; y2=pA_2+dy; + Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]]; + if(Noflg<3, + println("generate Framedata "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + GLIST=append(GLIST,name+"=Framedata("+pA+","+dx+","+dy+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); +Framedata(nm,cent,dx,dy):=Framedata(nm,cent,dx,dy,[]); +Framedata(nm,cent,dx,dy,options):=( + regional(name,Out,tmp,tmp1,x1,y1,x2,y2,Ltype,opcindy,Noflg); + name="fr"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + x1=cent.x-dx; x2=cent.x+dx; + y1=cent.y-dy; y2=cent.y+dy; + Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]]; + if(Noflg<3, + println("generate Framedata "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + GLIST=append(GLIST,name+"=Framedata("+cent.xy+","+dx+","+dy+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); + +Framedata2(nm,list):=Framedata2(nm,list,[]); +Framedata2(nm,list,options):=( +//help:Framedata2("1",[A,B]); + regional(tmp,tmp1,pC,pB); + pC=(Lcrd(list_1)+Lcrd(list_2))/2; + pB=Lcrd(list_2); + Framedata(nm,[pC,pB],options); +); + +Ovaldata(nm,Pdata):=Ovaldata(nm,Pdata,[]); +Ovaldata(nm,Pdata,options):=( +//help:Ovaldata("1",[A,B]); +//help:Ovaldata(optios=[size]); + regional(name,Graph,Ctr,Dx,Dy,Rc,Out,Point,Graph, + opstr,opcindy,tmp,tmp1,tmp2,tmp3,Ltype,Noflg); + name="ov"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + opstr=tmp_(length(tmp)-1); + Rc=0.2; + tmp1=tmp_6; + if(length(tmp1)>0,Rc=tmp1_1*Rc); +// if(length(tmp1)>0,Rc=tmp1_1); //15.11.15 + Ctr=Lcrd(Pdata_1); + if(ispoint(Pdata_2) % islist(Pdata_2), + tmp1=Lcrd(Pdata_2); + Dx=abs(tmp1_1-Ctr_1); + Dy=abs(tmp1_2-Ctr_2); + , + Dx=Pdata_2; + Dy=Pdata_3; + ); + Point=Ctr+[Dx-Rc,Dy-Rc]; + tmp1=Circledata("1",[Point,Point+[Rc,0]], + ["Rng=[0,pi/2]","Num=10","nodata"]); + tmp2=Listplot("1",[Ctr+[Dx-Rc,Dy],Ctr+[0,Dy]], + ["nodata"]); + tmp3=Listplot("2",[Ctr+[Dx,0],Ctr+[Dx,Dy-Rc]], + ["nodata"]); + Graph=Joincrvs("1",[tmp3,tmp1,tmp2],["nodata"]); + tmp1=Reflectdata("1",[Graph],[Ctr,Ctr+[0,1]],["nodata"]); + Graph=Joincrvs("1",[Graph,tmp1],["nodata"]); + tmp2=Reflectdata("2",[Graph],[Ctr,Ctr+[1,0]], + ["nodata"]); + Graph=Joincrvs("2",[Graph,tmp2],["nodata"]); + if(Noflg<3, + println("generate Ovaldata "+name); + tmp1=apply(Graph,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + GLIST=append(GLIST, + name+"=Ovaldata("+Ctr+","+Dx+","+Dy+opstr+")");//16.01.30 + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + tmp1=apply(Graph,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp=textformat(Ctr,5)+","+textformat(Dx,5)+","+textformat(Dy,5); + GLIST=append(GLIST, + name+"=Ovaldata("+tmp+opstr+")"); + ); + Graph; +); + +Segmark(nm,ptlist):=Segmark(nm,ptlist,[]); +Segmark(nm,ptlist,options):=Drawsegmark(nm,ptlist,options); +Drawsegmark(nm,ptlist):=Drawsegmark(nm,ptlist,[]); +Drawsegmark(nm,ptlist,options):=( +//help:Segmark("1",[A,B]); +//help:Segmark(options=["Type=1","Width=1","Size=1"]); + regional(name,pA,pB,wid,mid,size,tp,dir,nor,eqL, + tmp,tmp1,tmp2); + name="mrk"+nm; + pA=ptlist_1; + pB=ptlist_2; + size=0.15; + wid=0.05; + tp=1; + tmp1=Divoptions(options); + eqL=tmp1_5; + forall(eqL, + tmp=indexof(#,"="); + tmp1=substring(#,tmp,length(#)); + tmp1=parse(tmp1); + tmp=substring(#,0,1); + if(tmp=="S" % tmp=="s", + size=size*tmp1; + ); + if(tmp=="W" % tmp=="w", + wid=wid*tmp1; + ); + if(tmp=="T" % tmp=="t", + tp=tmp1; + ); + ); + mid=(pA+pB)/2; + dir=(pB-pA)/|pB-pA|; + nor=[-dir_2,dir_1]; +// nor=nor/|nor|; + if(tp==1, + tmp1=mid+size*nor; + tmp2=mid-size*nor; + Listplot(name,[tmp1,tmp2]); + ); + if(tp==2, + tmp1=mid+wid*dir+size*nor; + tmp2=mid+wid*dir-size*nor; + Listplot(name+"r",[tmp1,tmp2]); + tmp1=mid-wid*dir+size*nor; + tmp2=mid-wid*dir-size*nor; + Listplot(name+"l",[tmp1,tmp2]); + ); + if(tp==3, + tmp1=mid; + tmp2=mid+size*dir; + Circledata(name,[tmp1,tmp2]); + ); + if(tp==4, + tmp=mid+size*2/sqrt(3)*nor; + tmp1=mid+size*dir-size/sqrt(3)*nor; + tmp2=mid-size*dir-size/sqrt(3)*nor; + Listplot(name,[tmp,tmp1,tmp2,tmp]); + ); +); + +Parabolaplot(nm,ptlist):=Parabolaplot(nm,ptlist,"[-5,5]",[]); +Parabolaplot(nm,ptlist,Arg):=( + regional(rng,options); + if(isstring(Arg), + rng=Arg; + options=[]; + , + rng="[-5,5]"; + options=Arg; + ); + Parabolaplot(nm,ptlist,rng,options); +); +Parabolaplot(nm,ptlist,rng,options):=( +//help:Parabolaplot("1",[A,B,C]): +//help:Parabolaplot("1",[A,B,C],"[-5,5]"); + regional(pA,pB,pC,angle,tmp,tmp1,tmp2); + tmp1=Lcrd(ptlist_1); + tmp2=Lcrd(ptlist_3); + pB=Lcrd(ptlist_2); + tmp=(tmp2-pB)/|tmp2-pB|; + if(tmp_2>=0, + angle=arccos(tmp_1); + , + if(tmp_1>=0, + angle=arcsin(tmp_2); + , + angle=-arccos(tmp_1); + ); + ); + pA=Rotatepoint(tmp1,-angle,pB); + pC=Rotatepoint(tmp2,-angle,pB); + tmp1=1/(2*(pA_2-pB_2)); + tmp2=1/2*(pA_2+pB_2); + tmp="("+format(tmp1,5)+")*(x-("+format(pA_1,5)+"))^2"; + tmp=tmp+"+("+format(tmp2,5)+")"; + tmp1=parse(rng); + tmp1=[pA_1-(tmp1_2-tmp1_1)/2,pA_1+(tmp1_2-tmp1_1)/2]; + tmp2="x="+textformat(tmp1,5); + Plotdata(nm+"para",tmp,tmp2,append(options,"nodisp")); + Rotatedata(nm+"para","gr"+nm+"para",angle,append(options,pB)); +); + +Ellipseplot(nm,ptlist):=Ellipseplot(nm,ptlist,"[0,2*pi]",[]); +Ellipseplot(nm,ptlist,Arg):=( + regional(rng,options); + if(isstring(Arg), + rng=Arg; + options=[]; + , + rng="[0,2*pi]"; + options=Arg; + ); + Ellipseplot(nm,ptlist,rng,options); +); +Ellipseplot(nm,ptlist,rng,options):=( +//help:Ellipseplot("1",[A,B,3]); +//help:Ellipseplot("1",[A,B,C],"[0,pi]",[options]); + regional(pA,pB,d,angle,f,a,b,pM,tmp,tmp1,tmp2); + pA=Lcrd(ptlist_1); + tmp1=Lcrd(ptlist_2); + if(ispoint(ptlist_3), + tmp2=Lcrd(ptlist_3); + d=|tmp2-pA|+|tmp2-tmp1|; + , + d=ptlist_3; + ); + tmp=(tmp1-pA)/|tmp1-pA|; + if(tmp_2>=0, + angle=arccos(tmp_1); + , + if(tmp_1>=0, + angle=arcsin(tmp_2); + , + angle=-arccos(tmp_1); + ); + ); + pB=Rotatepoint(tmp1,-angle,pA); + f=|pB_1-pA_1|/2; + a=d/2; + b=sqrt(d^2/4-f^2); + pM=(pA+pB)/2; + tmp="["+format(pM_1,5)+","+format(pM_2,5)+"]"; + tmp=tmp+"+["+format(a,5)+"*cos(t),"+format(b,5)+"*sin(t)]"; + Paramplot(nm+"elp",tmp,"t="+rng,append(options,"nodisp")); + Rotatedata(nm+"elp","gp"+nm+"elp",angle,append(options,pA)); +); + +Hyperbolaplot(nm,ptlist):=Hyperbolaplot(nm,ptlist,"[-5/2,5/2]",[]); +Hyperbolaplot(nm,ptlist,Arg):=( + regional(rng,options); + if(isstring(Arg), + rng=Arg; + options=[]; + , + rng="[-5/2,5/2]"; + options=Arg; + ); + Hyperbolaplot(nm,ptlist,rng,options); +); +Hyperbolaplot(nm,ptlist,rng,optionsorg):=( +//help:Hyperbolaplot("1",[A,B,C],["Num=200"]): +//help:Hyperbolaplot("1",[A,B,C],"[-5,5]",["Asy=do"]); + regional(pA,pB,d,angle,f,a,b,pM,eqL,options,opasy,tmp,tmp1,tmp2); + tmp=Divoptions(optionsorg); + eqL=tmp_5; + options=optionsorg; + opasy=[]; + forall(eqL, + if(Toupper(substring(#,0,1))=="A", + tmp=indexof(#,"="); + opasy=[substring(#,tmp,length(#))]; + options=remove(options,[#]); + ); + ); + pA=Lcrd(ptlist_1); + tmp1=Lcrd(ptlist_2); + if(ispoint(ptlist_3), + tmp2=Lcrd(ptlist_3); + d=abs(|tmp2-pA|-|tmp2-tmp1|); + , + d=ptlist_3; + ); + tmp=(tmp1-pA)/|tmp1-pA|; + if(tmp_2>=0, + angle=arccos(tmp_1); + , + if(tmp_1>=0, + angle=arcsin(tmp_2); + , + angle=-arccos(tmp_1); + ); + ); + pB=Rotatepoint(tmp1,-angle,pA); + f=|pB_1-pA_1|/2; + a=d/2; + b=sqrt(f^2-d^2/4); + pM=(pA+pB)/2; + tmp="["+format(pM_1,5)+"+"+format(a,5)+"*(exp(t)+exp(-t))/2,"; + tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]"; + Paramplot(nm+"hyp1",tmp,"t="+rng,append(options,"nodisp")); + tmp="["+format(pM_1,5)+"-"+format(a,5)+"*(exp(t)+exp(-t))/2,"; + tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]"; + Paramplot(nm+"hyp2",tmp,"t="+rng,append(options,"nodisp")); + tmp=["gp"+nm+"hyp1","gp"+nm+"hyp2"]; + Rotatedata(nm+"hyp",tmp,angle,append(options,pA)); + if(length(opasy)>0, + Lineplot(nm+"asy1",[pM+[a,b],pM+[-a,-b]],["nodisp"]); + Lineplot(nm+"asy2",[pM+[-a,b],pM+[a,-b]],["nodisp"]); + tmp=["ln"+nm+"asy1","ln"+nm+"asy2"]; + Rotatedata(nm+"asy",tmp,angle,append(opasy,pA)); + ); +); + +Polygonplot(nm,ptlist,number):=Polygonplot(nm,ptlist,number,[]); +Polygonplot(nm,ptlist,number,options):=( +//help:Polygonplot("1",[A,B],12); + regional(rr,pA,pB,ptL,angle,tmp,tmp1,tmp2); + pA=Lcrd(ptlist_1); + pB=Lcrd(ptlist_2); + rr=|pB-pA|; + tmp=(pB-pA)/rr; + if(tmp_2>=0, + angle=arccos(tmp_1); + , + if(tmp_1>=0, + angle=arcsin(tmp_2); + , + angle=-arccos(tmp_1); + ); + ); + ptL=[]; + forall(0..number, + tmp=angle+#*2*pi/number; + tmp1=pA+rr*[cos(tmp),sin(tmp)]; + if(#>0 & #<number, + Putpoint((ptlist_2).name+text(#),tmp1);//16.10.07 + //Pointdata(nm,ptL); + ); + tmp2=tmp1; + ptL=append(ptL,tmp1); + ); + Listplot(nm+"ply",ptL,options); +); + +Putintersect(nm,pdata1,pdata2):=( +//help:Putintersect("Q","gr1","gr2"); + regional(pd1,pd2,tmp); + if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1); + if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2); + tmp=Intersectcrvs(pd1,pd2); + if(length(tmp)==1, + Putpoint(nm,tmp_1); + , + if(length(tmp)==0, + err("No intersect point"); + , + err("Multiple intersect points"); + println(tmp); + err("Choose point number"); + ); + ); +); +Putintersect(nm,pdata1,pdata2,ptno):=( + regional(pd1,pd2,tmp); + if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1); + if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2); + tmp=Intersectcrvs(pd1,pd2); + if(length(tmp)>0, + Putpoint(nm,tmp_ptno); + , + err("No intersect point"); + ); +); + +Arrowheaddata(point,direction):=Arrowheaddata(point,direction,[]); +Arrowheaddata(point,direction,options):=( +//help:Arrowheaddata(A,B); + regional(list,Ookisa,Hiraki,Futosa,Houkou,Str,Flg,tmp,Ev,Nv,pA,pB, + pP,rF,gG,Flg,Nj,Eps,tmp1,scx,scy); + Eps=10^(-3); + pP=point; + Ookisa=0.2*YaSize; + Hiraki=YaAngle; + Futosa=0; + Str=YaStyle; + tmp=Divoptions(options); + tmp1=tmp_6; + if(length(tmp1)>0,Ookisa=Ookisa*tmp1_1); + if(length(tmp1)>1, + tmp=tmp1_2; + if(tmp<5, + Hiraki=Hiraki*tmp; + , + Hiraki=tmp; + ); + ); + Flg=0; + Hiraki=Hiraki*pi/180; + if(isstring(direction),Houkou=parse(direction),Houkou=direction); + if(MeasureDepth(Houkou)==2,Houkou=Houkou_1); + if(islist(Houkou_1), +// pP=Lcrd(pP); +// pP=Doscaling(pP); +// Houkou=Dosscaling(Houkou); + pP=Pcrd(pP); + scy=SCALEY; + SCALEY=1; + tmp=Nearestpt(pP,Houkou); + pA=tmp_1; + rF=floor(tmp_2); + if(rF==1, + if(|Ptend(Houkou)-Ptstart(Houkou)|<Eps, + rF=Numptcrv(Houkou); + ); + ); + gG=apply(0..10,pP+Ookisa*cos(Hiraki)*[cos(2*pi/10*#),sin(2*pi/10*#)]); + Flg=0; + forall(1..rF,Nj, + if(Flg==0, + pB=Ptcrv(rF+1-Nj,Houkou); + tmp=IntersectcrvsPp([pA,pB],gG); + if(length(tmp)>0, + Houkou=pP-tmp_1_1; + Flg=1; + ); + pA=pB; + ); + ); + SCALEY=scy; + if(Flg==0, + println("Arrowhead may be too large (no intersect)"); + Flg=2; + ); + if(Flg==1, + Houkou=Unscaling(Houkou); + pP=Unscaling(pP); + ); + ); + if(Flg<2, +// pP=Doscaling(pP); +// Houkou=Doscaling(Houkou); + pP=Pcrd(pP); + if(!ispoint(point), + Houkou=Pcrd(Houkou); + ); +// if(MeasureDepth(Houkou)==0,Houkou=Pcrd(Houkou)); + Ev=-1/|Houkou|*Houkou; + Ev=Lcrd(Ev); + Nv=[-Ev_2, Ev_1]; + if(indexof(Str,"c")>0, + pP=pP-0.5*Ookisa*cos(Hiraki)*Ev; + ); + if(indexof(Str,"b")>0, + pP=pP-Ookisa*cos(Hiraki)*Ev; + ); + pA=pP+Ookisa*cos(Hiraki)*Ev+Ookisa*sin(Hiraki)*Nv; + pB=pP+Ookisa*cos(Hiraki)*Ev-Ookisa*sin(Hiraki)*Nv; + list=[pA,pP,pB]; + list=apply(list,LLcrd(#)); +// Out=Unscaling(Out); + list; + ); +); + +Arrowhead(point,Houkou):=Arrowhead(point,Houkou,[]); +Arrowhead(point,Houkou,options):=( +//help:Arrowhead(B,B-A,[1.5,30]); +//help:Arrowhead(A,"gr1"); + // global ArrowheadNumber + regional(name,Ltype,Noflg,reL,opstr,opcindy,ptstr,hostr,tmp,tmp1,list); + name="arh"+text(ArrowheadNumber); + ArrowheadNumber=ArrowheadNumber+1; + ptstr=textformat(point,5); + if(isstring(Houkou), // 15.01.11 + tmp=parse(Houkou); + if(MeasureDepth(tmp)<2, + hostr=Houkou; + , + hostr=Houkou+"(1)"; + ); + , + if(ispoint(point), + hostr=textformat(LLcrd(Houkou),5); + , + hostr=textformat(Houkou,5); + ); + ); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + reL=tmp_6; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + list=Arrowheaddata(point,Houkou,options); + if(Noflg<3, +// println("generate Arrowhead "+name); + tmp1=apply(list,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// GLIST=append(GLIST,name+"=Listplot("+list+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(1)+Ltype,name); + , +// if(Noflg==1,Ltype=0); + Ltype=0; + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + if(Noflg==0, + if(length(reL)<3, // 16.04.09 from + forall(1..(2-length(reL)), + opstr=opstr+",1"; + ); + tmp=PenThick/PenThickInit; + opstr=opstr+","+text(tmp); + ); // 16.04.09 upto + Com2nd("Arrowhead("+ptstr+","+hostr+opstr+")"); + ); +); + +Arrowdata(ptlist):=Arrowdata(ptlist,[]); +Arrowdata(Arg1,Arg2):=( + regional(tmp,nm,ptlist,flg,pA,pB,options); + flg=0; + if(isstring(Arg1), + nm=Arg1; + ptlist=Arg2; + Arrowdata(nm,ptlist,[]); + flg=1; + ); + if(flg==0, + tmp=MeasureDepth(Arg1); + if(tmp==0, + pA=Arg1; + pB=Arg2; + Arrowdata(pA,pB,[]); + , + ptlist=Arg1; + options=Arg2; + nm=text(ArrowlineNumber); + ArrowlineNumber=ArrowlineNumber+1; + Arrowdata(nm,ptlist,options); + ); + ); +); +Arrowdata(Arg1,Arg2,options):=( +//help:Arrowdata([A,B],[2,10]); + regional(Retflg,nm,ptlist,name,opstr,opcindy,realL,strL,size, + flg,Ltype,Noflg,lineflg,tmp,tmp1,tmp2,pA,pB,segpos); + Retflg=0; + Noflg=0; + Ltype=0; + if(!isstring(Arg1), + pA=Arg1; + pB=Arg2; + Arrowdata(pA,pB,options,"old"); + Retflg=1; + ptlist=[pA,pB]; + ); + if(Retflg==0, + nm=Arg1; + ptlist=Arg2; + name="ar"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + realL=tmp_6; + strL=tmp_7; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + size=1; // 15.06.11 + if(length(realL)>0, + size=realL_1; + ); + tmp2=select(strL,indexof(#,"l")>0); // 16.04.09 + if(length(tmp2)>0,lineflg=1,lineflg=0); // 16.04.09 + segpos=1; + tmp1=tmp_5; + if(length(tmp1)>2, + segpos=tmp1_3; + ); + if(Noflg<3, +// println("generate Arrowdata "+name); + tmp1=apply(ptlist,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=Lcrd(ptlist_1);//16.10.10 + tmp2=Lcrd(ptlist_2);//16.10.10 + if(lineflg==0, // 16.04.09 from + tmp=tmp2-0.2*size/2*(tmp2-tmp1)/|tmp2-tmp1|; // 15.06.11 + , + tmp=tmp2; + ); // 16.04.09 upto + tmp=[tmp1,tmp]; + GLIST=append(GLIST,name+"=Listplot("+textformat(tmp,5)+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + tmp=textformat(ptlist,5); + tmp=substring(tmp,1,length(tmp)-1); + tmp1=indexof(tmp,"],["); + if(tmp1>0, + pA=substring(tmp,0,tmp1); + pB=substring(tmp,tmp1+1,length(tmp)); + , + tmp1=indexof(tmp,","); + pA=substring(tmp,0,tmp1-1); + pB=substring(tmp,tmp1,length(tmp)); + ); + tmp1="Lcrd("+pA+")+" + +textformat(segpos,5)+"*(Lcrd("+pB+")-"+"Lcrd("+pA+"))"; + tmp1=parse(tmp1); + tmp2="Lcrd("+pB+")-Lcrd("+pA+")"; + tmp2=parse(tmp2); + Arrowhead(tmp1,tmp2,options); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + ); + ptlist; +); +Arrowdata(pA,pB,options,str):=( + regional(ptA,ptB,opstr,Astr,Bstr,name,tmp,opcindy); + Astr=textformat(pA,5); + Bstr=textformat(pB,5); + name="ar"+pA.name+pB.name; + println("generate Arrow "+name); + opstr=""; + opcindy=""; + forall(options, + if(isstring(#), + if(indexof(#,"->")>0, + opcindy=opcindy+","+#; + , + tmp="'"+#+"'"; + ); + , + tmp=text(#); + ); + opstr=opstr+","+tmp; + ); + ptA=Lcrd(pA); + ptB=Lcrd(pB); + Arrowheaddata(ptB,ptB-ptA,options); + tmp="connect("+textformat([ptA,ptB],5) + +",linecolor->"+text(KCOLOR)+opcindy+");"; + parse(tmp); // 14.11.17 + Com2nd("Arrowline("+Astr+","+Bstr+opstr+")"); // 14.10.04 +); + +Anglemark(plist):=Anglemark(plist,[]); +Anglemark(Arg1,Arg2):=( // 2015.04.28 from + regional(nm,plist,options,tmp); + if(isstring(Arg1), + nm=Arg1; + plist=Arg2; + Anglemark(nm,plist,[]); + , + plist=Arg1; + options=Arg2; + tmp=textformat(plist,5); + tmp=replace(tmp,",",""); + nm=substring(tmp,1,length(tmp)-1); + Anglemark(nm,plist,options); + ); +); // upto +Anglemark(nm,plist,options):=( +//help:Anglemark([A,B,C],["E=\theta",2]); +//help:Anglemark("1",[A,B,C],["E=1.2,\theta",2]); + regional(name,Out,pB,pA,pC,Ctr,ra,sab,sac,ratio,opstr,Bname,Bpos, + Brat,tmp,tmp1,tmp2,Num,opcindy,Ltype,eqL,realL,Rg,Th,Noflg); + name="ag"+nm; + ra=0.5; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + realL=tmp_6; + Bname=""; + Brat=1.5; + Num=20; + if(length(realL)>0, + ra=realL_1*ra; + opstr=opstr+","+text(realL_1); + ); + forall(eqL, + if(substring(#,0,1)=="L",Bname="Letter("); + if(substring(#,0,1)=="E",Bname="Expr("); + Bpos="md"+name; + Bname=Bname+Dq+Bpos+Dq+","+Dq+"c"+Dq+","+Dq; + tmp=substring(#,indexof(#,"="),length(#)); + tmp1=indexof(tmp,","); + Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")"; + if(tmp1>0, + Brat=parse(substring(tmp,0,tmp1-1)); + ); + ); + pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3); + Ctr=Lcrd(pA); + sab=pB-pA; + sac=pC-pA; + Rg=[arctan2(sab)+0,arctan2(sac)+0]; + if(Rg_2<Rg_1,Rg_2=Rg_2+2*pi); + Out=[]; + forall(0..Num, + Th=Rg_1+#*(Rg_2-Rg_1)/Num; + Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]); + ); + if(length(Bname)>0, + Th=(Rg_1+Rg_2)/2; + tmp1=Ctr+Brat*ra*[cos(Th),sin(Th)]; + tmp="Defvar("+Dq+Bpos+"="; + tmp=tmp+textformat(tmp1,5)+Dq+");"; + parse(tmp); + parse(Bname); + ); + if(Noflg<3, + println("generate anglemark "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp=textformat(plist,5); + tmp1=substring(tmp,1,length(tmp)-1); + tmp=name+"=Anglemark("+tmp1+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); + +Paramark(plist):=Paramark(plist,[]); +Paramark(plist,options):=( +//help:Paramark([A,B,C],["E=\theta"]); + regional(name,Out,pB,pA,pC,ra,sab,sac,ratio,opstr,Bname,Bpos, + Brat,tmp,tmp1,tmp2,Ltype,Noflg,eqL,realL,opcindy); + tmp=textformat(plist,5); + tmp=replace(tmp,",",""); + tmp=substring(tmp,1,length(tmp)-1); + name="pm"+tmp; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + realL=tmp_6; + ra=0.5; + Bname=""; + Brat=1.2; + if(length(realL)>0, + tmp=realL_1; + ra=tmp*ra; + opstr=opstr+","+text(tmp); + ); + forall(eqL, + if(substring(#,0,1)=="L",Bname="Letter("); + if(substring(#,0,1)=="E",Bname="Expr("); + Bpos="md"+name; + Bname=Bname+Dq+Bpos+Dq+","+Dq+"c"+Dq+","+Dq; + tmp=substring(#,indexof(#,"="),length(#)); + tmp1=indexof(tmp,","); + Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")"; + if(tmp1>0, + Brat=parse(substring(tmp,0,tmp1-1)); + ); + ); + pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3); + Ctr=Lcrd(pA); + Out=[]; + Out=append(Out,pA+ra*(pB-pA)/|pB-pA|); + Out=append(Out,pA+ra*(pB-pA)/|pB-pA|+ra*(pC-pA)/|pC-pA|); + Out=append(Out,pA+ra*(pC-pA)/|pC-pA|); + if(length(Bname)>0, + tmp1=pA+Brat*ra*(pB-pA)/|pB-pA|+Brat*ra*(pC-pA)/|pC-pA|; + tmp="Defvar("+Dq+Bpos+"="+textformat(tmp1,5)+Dq+");"; + parse(tmp); + parse(Bname); + ); + if(Noflg<3, + println("generate paramark "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1); + tmp=name+"=Paramark("+tmp1+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); + +MakeBowdata(pA,pB,Hgt):=( + regional(angle,pB2,pH2,pC2,pC,tmp,Th1,Th2,ra,dMA); + angle=arctan2(pB-pA)+0; + pB2=Rotatepoint(pB,-angle,pA); + tmp=Lcrd(pA); + pH2=[(tmp_1+pB2_1)/2,tmp_2-Hgt]; + dMA=|tmp-pB2|/2; + ra=(dMA^2+Hgt^2)/(2*Hgt); + pC2=[pH2_1,pB2_2+(ra-Hgt)]; + pC=Rotatepoint(pC2,angle,pA); + Th1=arctan2(pA-pC2)+angle; + Th2=arctan2(pB2-pC2)+angle; + [pC,ra,Th1,Th2]; +); + +Bowdata(plist):=Bowdata(plist,[]); +Bowdata(plist,options):=( + regional(nm,tmp); + tmp=textformat(plist,5); + tmp=replace(tmp,",",""); + nm=substring(tmp,1,length(tmp)-1); + Bowdata(nm,plist,options); +); +Bowdata(nm,plist,options):=( +//help:Bowdata([C,A],[2,1.2,"Expr=10","da"]); + regional(name,Out,pB,pA,pC,ra,tmp,tmp1,tmp2,Ltype,eqL,realL, + Bname,Bpos,Th,Cut,Num,Hgt,opstr,opcindy,Ydata,pC, + Th1,Th2,Noflg,Bops); + name="bw"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + realL=tmp_6; + pA=Lcrd(plist_1); pB=Lcrd(plist_2); + Hgt=1/2*|pB-pA|*0.2; + Cut=0; + Num=24; + Bname=""; + if(length(realL)>0, + Hgt=realL_1*Hgt; // 15.04.12 + if(length(realL)>1,Cut=realL_2); + ); + forall(eqL, + tmp=substring(#,0,1); + if(tmp=="L" % tmp=="l", + if(indexof(#,"rot")>0, + Bname="Letterrot("; + , + Bname="Letter("; + ); + ); + if(tmp=="E" % tmp=="e", + if(indexof(#,"rot")>0, + Bname="Exprrot("; + , + Bname="Expr("; + ); + ); + Bops=#; + ); + Ydata=MakeBowdata(pA,pB,Hgt); + pC=Ydata_1; + ra=Ydata_2; + Th=(Ydata_3+Ydata_4)*0.5; + BOWMIDDLE=[pC_1+ra*cos(Th),pC_2+ra*sin(Th)]; + if(length(Bname)>0, + Bpos="md"+name; + tmp="Defvar("+Dq+Bpos+"="+textformat(BOWMIDDLE,5)+Dq+");"; + parse(tmp); + Bname=Bname+Dq+Bpos+Dq+","; + if(indexof(Bname,"rot")>0, + tmp1=pB-pA; + if(tmp1_1<0, tmp1=-tmp1); + tmp2=indexof(Bops,","); + if(tmp2>0, + tmp=substring(Bops,0,tmp2-1); + if(indexof(tmp,"u")>0, + tmp1=-tmp1; + Bops=replace(tmp,"u","")+substring(Bops,tmp2-1,length(Bops)); + Bops=replace(Bops,"=,","="); + ); + ); + Bname=Bname+text(tmp1)+","; + ); + tmp=substring(Bops,indexof(Bops,"="),length(Bops)); + tmp1=indexof(tmp,","); + if(tmp1==0, + if(indexof(Bname,"rot")==0, + Bname=Bname+Dq+"c"+Dq+","+Dq+tmp; + , + Bname=Bname+Dq+tmp; + ); + , + Bname=Bname+Dq+substring(tmp,0,tmp1-1)+Dq+"," + +Dq+substring(tmp,tmp1,length(tmp)); + ); + Bname=Bname+Dq+")"; + parse(Bname); + ); + if(Cut==0, + Th1=Ydata_3; + Th2=Ydata_4; + Out=[]; + forall(0..Num, + tmp=Th1+#*(Th2-Th1)/Num; + Out=append(Out,pC+ra*[cos(tmp),sin(tmp)]); + ); + , + Th1=Ydata_3; + Th2=Th-Cut/(2*ra); + tmp1=[]; + forall(0..Num/2, + tmp=Th1+#*(Th2-Th1)/(Num/2); + tmp1=append(tmp1,pC+ra*[cos(tmp),sin(tmp)]); + ); + Th1=Th+Cut/(2*ra); + Th2=Ydata_4; + tmp2=[]; + forall(0..Num/2, + tmp=Th1+#*(Th2-Th1)/(Num/2); + tmp2=append(tmp2,pC+ra*[cos(tmp),sin(tmp)]); + ); + Out=[tmp1,tmp2]; + ); + if(Noflg<3, + println("generate bowdata "+name); + if(MeasureDepth(Out)==1,Out=[Out]); + tmp1=[]; + forall(Out,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1); + tmp=name+"=Bowdata("+tmp1+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); +); + +Bowname(str):=Bowname("c",str); +Bowname(dir,str):=( + Expr([BOWMIDDLE,dir,str]); +); + +Bownamerot(bwdata,str):=Bownamerot(bwdata,0,0,str,1); +Bownamerot(bwdata,str,updown):=Bownamerot(bwdata,0,0,str,updown); +Bownamerot(bwdata,tmov,nmov,str):=Bownamerot(bwdata,tmov,nmov,str,1); +Bownamerot(bwdata,tmov,nmov,str,updown):=( + regional(bdata,tmp); + tmp=MeasureDepth(bwdata); + if(tmp==1,bdata=[bwdata],bdata=bwdata); + if(length(bdata)>1, + tmp=Ptend(bdata_2)-Ptstart(bdata_1); + , + tmp=Ptend(bdata_1)-Ptstart(bdata_1); + ); + if(updown<0,tmp=-tmp); + Exprrot(BOWMIDDLE,tmp,tmov,nmov,str); +); + +Deqplot(nm,deq,rng,initf):=Deqplot(nm,deq,rng,Lcrd(initf)_1,initf,[]); +Deqplot(nm,deq,rng,Arg1,Arg2):=( + regional(initt,initf,options); + if(isreal(Arg1) & length(Arg1)==1, + initt=Arg1; + initf=Arg2; + options=[]; + , + initf=Lcrd(Arg1); + initt=initf_1; + options=Arg2; + ); + Deqplot(nm,deq,rng,initt,initf,options); +); +Deqplot(nm,deq,rng,initt,initf,options):=( + regional(name,Noflg,Ltype,eqL,opstr,opcindy,pdL,var2,deq2,rng2,initt2,initf2, + tmp,tmp1,tmp2,tmp3,tmp4); + tmp=tokenize(deq,"="); + tmp1=tmp_1; + tmp2=tmp_2; + tmp3=tokenize(tmp1,"`"); + if(length(tmp3)==2, + if(indexof(tmp1,"[")>0, + Deqplot(nm,deq,rng,initt,initf,options,[2,3]); + , + if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]"); + tmp=tokenize(rng2,"="); + deq2="["+tmp_1+","+replace(tmp1,"`","]")+"`=[1,"+tmp2+"]"; + rng2="t="+tmp_2; + if(isreal(initf) & length(initf)==1, + initf2=[initt,initf]; + initt2=initt; + , + initf2=Lcrd(initf)); + initt2=initf2_1; + Deqplot(nm,deq2,rng2,initt2,initf2,options,[2,3]); + ); + , + name="de"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + eqL=tmp_5; + opcindy=tmp_9; + opstr=""; + forall(eqL, + if(Toupper(substring(#,0,1))=="N", + tmp=indexof(#,"="); + tmp1="N="+substring(#,tmp,length(#)); + opstr=opstr+",'"+tmp1+"'"; + ); + ); + if(Noflg<1, + if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]"); + var2="d"+tmp3_1; + deq2="["+tmp3_1+","+var2+"]`=["; + tmp=replace(tmp2,tmp3_1+"`",var2); + deq2=deq2+var2+","+tmp+"]"; + Deqplot(nm,deq2,rng2,initt,initf,append(options,"nodisp"),[1,2]); + parse(tmp); + tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',"; + tmp=tmp+initt+","+initf+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + parse("de"+nm); + ); + ); +); +Deqplot(nm,deq,rng,initt,initf,options,Sel):=( +//help:Deqplot("2","y`=y*(1-y)","x",0, 0.5,["Num=100"]); +//help:Deqplot("1","y``=-y","x",0, [1,0]); +//help:Deqplot("3","[x,y]`=[x*(1-y),0.3*y*(x-1)]","t=[0,20]",[1,0.5]); + regional(Ltype,Noflg,Inflg,Outflg,strL,opstr,opcindy,Num, + outstr,name,func,xf,yf,pdL,Eps,Inf,t1,t2,tt,Vname,dt,funP,funN,flg, + kl1,kl2,kl3,kl4,x0,y0,x1,y1,tmp,tmp1,tmp2); + name="de"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + Inflg=tmp_3; + Outflg=tmp_4; + eqL=tmp_5; + strL=tmp_7; +// opstr=tmp_(length(tmp)-1); + opstr=""; + opcindy=tmp_(length(tmp)); + outstr=""; + forall(strL, + tmp=Toupper(substring(#,0,1)); + if(tmp=="S", + outstr="Sci"; + ); + ); + Num=50; + forall(eqL, + tmp=indexof(#,"="); + tmp2=substring(#,0,1); + tmp2=Toupper(tmp2); + tmp1=substring(#,tmp,length(#)); + opstr=opstr+",'"+tmp2+"="+tmp1+"'"; + if(Toupper(substring(#,0,1))=="N", + Num=parse(tmp1); + ); + ); + if(outstr=="Sci", + if(Inflg==0 & Outflg==0,Outflg=1;Inflg=1); + ); + if(Noflg<3, + if(outstr=="Sci", + if(Outflg==1, + println("Output Deqplot "+name); + SCIWRLIST=append(SCIWRLIST,name); + ); + if(Inflg==1, + println("Input Deqplot "+name); + if(length(SCIRELIST)==0, + ReadOutData(Fnameout); + ); + tmp=parse(name); + if(islist(tmp), + Extractdata(name,["nodisp"]); // 12.19 + ); + SCIRELIST=append(SCIRELIST,name); + ); + , + Eps=10^(-3); + Inf=10^3; + tmp=tokenize(deq,"="); + tmp1=tmp_1; + func=tmp_2; + tmp=indexof(tmp1,","); + xf=substring(tmp1,1,tmp-1); + yf=substring(tmp1,tmp,length(tmp1)); + tmp=indexof(yf,"]"); + yf=substring(yf,0,tmp-1); + tmp=tokenize(rng,"="); + Vname=tmp_1; + tmp=parse(tmp_2); + t1=tmp_1; + t2=tmp_2; + tmp="funP("+Vname+","+xf+","+yf+"):="+func+";"; + parse(tmp); + tmp=tokenize(func,","); + tmp1="-("+substring(tmp_1,1,length(tmp_1))+")"; + tmp2="-("+substring(tmp_2,0,length(tmp_2)-1)+")"; + tmp="funN("+Vname+","+xf+","+yf+"):=["+tmp1+","+tmp2+"];"; + parse(tmp); + dt=(t2-t1)/Num; + tt=initt; + tmp=Lcrd(initf); + x0=tmp_1; + y0=tmp_2; + pdL=[[tt,x0,y0]]; + flg=0; + forall(1..floor((t2-initt)/dt), + if(flg==0, + kl1=dt*funP(tt,x0,y0); + kl2=dt*funP(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2); + kl3=dt*funP(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2); + kl4=dt*funP(tt+dt,x0+kl3_1,y0+kl3_2);//16.10.14 + tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6; + x0=tmp1_1; + y0=tmp1_2; + tt=initt+#*dt; + pdL=append(pdL,[tt,x0,y0]); + if(|tmp1|>Inf,flg=1); + ); + ); + tt=initt; + tmp=Lcrd(initf); + x0=tmp_1; + y0=tmp_2; + flg=0; + forall(1..floor((initt-t1)/dt), + if(flg==0, + kl1=dt*funN(tt,x0,y0); + kl2=dt*funN(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2); + kl3=dt*funN(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2); + kl4=dt*funN(tt+dt/2,x0+kl3_1/2,y0+kl3_2/2); + tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6; + x0=tmp1_1; + y0=tmp1_2; + tt=initt-#*dt; + pdL=prepend([tt,x0,y0],pdL); + if(|tmp1|>Inf,flg=1); + ); + ); + println("Generate Deqplot "+name); + pdL=apply(pdL,#_Sel); + tmp1=apply(pdL,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + ); + if(Noflg<1, + tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',"; + tmp=tmp+initt+","+initf+opstr+")"; + GLIST=append(GLIST,tmp); + ); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + if(outstr=="Sci", + if(Inflg==1, + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + , + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + pdL; + ); + ); +); + +Enclosing(nm,plist):=EnclosingS(nm,plist); +Enclosing(nm,plist,options):=EnclosingS(nm,plist,options); +EnclosingS(nm,plist):=EnclosingS(nm,plist,[]); +EnclosingS(nm,plist,options):=( +//help:Enclosing("1",["sc2","crAB","sc2","Invert(sc1)"],[pt,"dr"]); + regional(name,AnsL,Start,Eps,EEps,S,Flg,Fdata,Gdata,KL,pt,qt, + t1,t2,t3,ii,nn,tmp,tmp1,tmp2,Ltype,Noflg,realL,eqL,opstr,opcindy); + name="en"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + eqL=tmp_5; + realL=tmp_6; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + Eps=10^(-3); + EEps=0.1; + Start=[]; + Flg=0; + forall(realL, + if(isList(#) % ispoint(#), + Start=Lcrd(#); // 15.09.12 + , + Flg=Flg+1; + if(Flg==1,Eps=#); + if(Flg==2,EEps=#); + ); + ); +// tmp1=concat([Eps,EEps],eqL); // 15.04.06 + Fdata=plist_1; + Gdata=plist_(length(plist)); + KL=IntersectcrvsPp(Fdata,Gdata); + if(length(KL)==1, + pt=KL_1_1; + t1=KL_1_2; + ); + if(length(KL)==0, + if(Numptcrv(Fdata)>Numptcrv(Gdata), + tmp=Nearestpt(Fdata,Gdata); + pt=tmp_1; + t1=tmp_2; + , + tmp=Nearestpt(Gdata,Fdata); + pt=tmp_3; + t1=tmp_4; + ); + ); + if(length(KL)>1, + if(Start==[], + err("No Start Point"); + , + pt=KL_1_1; + t1=KL_1_2; + tmp=|pt-Start|; + forall(2..length(KL),ii, // 15.04.20 + tmp1=KL_ii_1; + tmp2=|tmp1-Start|; // 15.04.20 + if(tmp2<tmp, + pt=tmp1; + t1=KL_ii_2; + tmp=tmp2; + ); + ); + ); + ); +// pt=Pcrd(pt); // 15.09.12 + Start=pt; + AnsL=[]; + forall(1..length(plist),nn, + Fdata=plist_nn; + if(nn>1, pt=qt); + if(nn==length(plist), + qt=Start; + , + Flg=0; + Gdata=plist_(nn+1); +// tmp1=concat([Eps,EEps],eqL); // 15.04.06 + KL=IntersectcrvsPp(Gdata,Fdata); + if(length(KL)==1, + tmp=KL_1; + qt=KL_1_1; + t3=KL_1_2; + Flg=10; + ); + if(length(KL)==0,Flg=1); + if(length(KL)>1, + tmp1=KL_1_1; + tmp2=KL_2_1; + tmp=|tmp1-tmp2|; + if(tmp<Eps*10, Flg=1); + ); + if(Flg==1, + if(Numptcrv(Fdata)>Numptcrv(Gdata), + tmp=Nearestpt(Fdata,Gdata); + qt=tmp_1; + t3=tmp_4; + Flg=10; + , + tmp=Nearestpt(Gdata,Fdata); + qt=tmp_3; + t3=tmp_2; + Flg=10; + ); + ); + if(Flg<10, + t2=10^6; //%inf; + forall(1..length(KL),ii, + tmp1=KL_ii_1; + tmp=KL_ii_3; + tmp2=ParamonCurve(tmp1,tmp,Fdata); + tmp3=KL_ii_2; + if(tmp2>t1+Eps & tmp2<t2+Eps, + qt=tmp1; + t2=tmp2; + t3=tmp3; + ); + ); + ); + ); + tmp=Partcrv("",pt,qt,Fdata,["nodata"]); + t1=t3; + if(nn==1, + AnsL=tmp; + , + AnsL=concat(AnsL,tmp_(2..length(tmp))); + ); + ); + AnsL=apply(AnsL,Pcrd(#)); // 15.09.12 + if(Noflg<3, + println("generate Enclosing "+name); + tmp=name+"="+textformat(AnsL,5); + parse(tmp); + tmp=name+"=Enclosing("; + tmp1="list("; + forall(plist, + tmp1=tmp1+#+","; + ); + tmp=tmp+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + tmp=apply(AnsL,Lcrd(#)); + tmp; +); + +Shade(plist):=Shade(plist,[]); +Shade(plist,options):=( +//help:Shade(["gr2","sg1"],[0.5]); +//help:Shade([pointlist],[0.5]); + regional(tmp,tmp1,tmp2,opstr,opcindy,Str,G2,flg); + if(isstring(plist_1), // 16.01.24 + println("output Shade of "+plist); + , + println("output Shade of lists"); + ); + tmp=Divoptions(options); + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + flg=0; + forall(plist, + if(flg==0, + if(isstring(#),tmp=parse(#),tmp=#); // from 16.01.24 + if(!islist(tmp),flg=1); upto + ); + ); + if(flg==1, +// err("some data not defined yet"); + , + G2=Joincrvs("1",plist,["nodata"]); + G2=apply(G2,Pcrd(#)); + tmp1="fillpoly("+textformat(G2,5)+opcindy+");"; + parse(tmp1); + ); + Str="Shade("; + tmp1="list("; + forall(plist, + if(isstring(#), // from 16.01.24 + if(length(#)>1, + tmp1=tmp1+#+","; + , + tmp1=tmp1+Dq+#+Dq+","; + ); + , + tmp1=tmp1+"Listplot("+textformat(#,5)+"),"; + ); // upto 16.01.24 + ); + Str=Str+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")"; + Com2nd(Str); +); + + +//help:start(); + +Rotatepoint(point,Theta,ctr):=( +//help:Rotatepoint(A,2*pi/3,B); + regional(X1,X2,Y1,Y2,Cx,Cy,tmp); + tmp=Lcrd(point); + X1=tmp_1; Y1=tmp_2; + tmp=Lcrd(ctr); + Cx=tmp_1; Cy=tmp_2; + X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta); + Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta); + [X2,Y2]; +); + +Translatepoint(point,mov):=( +//help:Translatepoint(A,[2,3]); + regional(X1,X2,Y1,Y2,Cx,Cy,tmp); + tmp=Lcrd(point); + X1=tmp_1; Y1=tmp_2; + tmp=Lcrd(mov); + Cx=tmp_1; Cy=tmp_2; + X2=X1+Cx; + Y2=Y1+Cy; + [X2,Y2]; +); + +Scalepoint(point,ratio,center):=( +//help:Scalepoint(A,[3,2],[0,0]); + regional(X1,X2,Y1,Y2,Cx,Cy,tmp); + tmp=Lcrd(point); + X1=tmp_1; Y1=tmp_2; + tmp=Lcrd(center); + Cx=tmp_1; Cy=tmp_2; + X2=Cx+ratio_1*(X1-Cx); + Y2=Cy+ratio_2*(Y1-Cy); + [X2,Y2]; +); + +Reflectpoint(point,symL):=( +//help:Reflectpoint(A,B); +//help:Reflectpoint(A,[[2,3]]); +//help:Reflectpoint(A,[C,E]);\\ + regional(X1,X2,Y1,Y2,Us,Vs,Pt1,Pt2,Cx,Cy,tmp); + tmp=Lcrd(point); + X1=tmp_1; Y1=tmp_2; + Pt1=Lcrd(symL_1); + if(length(symL)==1, + Pt2=Pt1; + , + Pt2=Lcrd(symL_2); + ); + Us=Pt2_1-Pt1_1; + Vs=Pt2_2-Pt1_2; + if(Pt1==Pt2, + X2=2*Pt1_1-X1; + Y2=2*Pt1_2-Y1; + , + X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1 + -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); + Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1 + +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); + ); + [X2,Y2]; +); + +Rotatedata(nm,plist,Theta):=Rotatedata(nm,plist,Theta,[]); +Rotatedata(nm,plist,angle,options):=( +//help:Rotatedata("1","crAB",pi/3,[[1,5],"dr,2"]); + regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdLL,PdL, + opcindy,Nj,Njj,Kj,Mj,X1,Y1,X2,Y2,Ltype,Noflg,name); + name="rt"+nm; + Pt=[0,0]; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + tmp1=tmp_6; + if(length(tmp1)>0,Pt=Lcrd(tmp1_1)); + pdata=plist; + if(isstring(pdata),pdata=[pdata]); + if(!isstring(pdata_1) & MeasureDepth(pdata)==1, + pdata=[pdata]; + ); + if(isstring(angle),Theta=parse(angle),Theta=angle); + Cx=Pt_1; Cy=Pt_2; + PdL=[]; + forall(pdata,Njj, + if(isstring(Njj),Kj=parse(Njj),Kj=Njj); + if(MeasureDepth(Kj)==1,Kj=[Kj]); + tmp2=[]; + forall(Kj,Nj, + tmp1=[]; + forall(Nj, + tmp=LLcrd(#); + X1=tmp_1; + Y1=tmp_2; + X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta); + Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta); + tmp1=concat(tmp1,[[X2,Y2]]); + ); + tmp2=concat(tmp2,[tmp1]); + ); + PdL=concat(PdL,tmp2); + ); + if(Noflg<3, + println("generate Rotatedata "+name); + tmp1=[]; + forall(PdL,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// tmp1=textformat(plist,5); + tmp1=text(plist); // 15.10.15 + tmp1=replace(tmp1,"[","list("); + tmp1=replace(tmp1,"]",")"); + tmp=name+"=Rotatedata("+tmp1+"," + +textformat(angle,5)+","+textformat(Pt,5)+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; +); + +translatedata(nm,plist,mov):=translatedata(nm,plist,mov,[]); +translatedata(nm,plist,mov,options):=( +//help:translatedata("1",["gr1"],[1,2]); + regional(tmp,tmp1,tmp2,pdata,Cx,Cy,PdL,Nj,Njj,Kj, + opcindy,X2,Y2,Ltype,Noflg,name); + name="tr"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + pdata=plist; + if(isstring(pdata),pdata=[pdata]); + if(!isstring(pdata_1) & MeasureDepth(pdata)==1, + pdata=[pdata]; + ); + tmp=Lcrd(mov); + Cx=tmp_1; Cy=tmp_2; + PdL=[]; + forall(pdata,Njj, + if(isstring(Njj),Kj=parse(Njj),Kj=Njj); + if(MeasureDepth(Kj)==1,Kj=[Kj]); + tmp2=[]; + forall(Kj,Nj, + tmp1=[]; + forall(Nj, + tmp=LLcrd(#); + X2=tmp_1+Cx; + Y2=tmp_2+Cy; + tmp1=concat(tmp1,[[X2,Y2]]); + ); + tmp2=concat(tmp2,[tmp1]); + ); + PdL=concat(PdL,tmp2); + ); + if(Noflg<3, + println("generate translatedata "+name); + tmp1=[]; + forall(PdL,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// tmp1=textformat(plist,5); + tmp1=text(plist); // 15.10.15 + tmp1=replace(tmp1,"[","list("); + tmp1=replace(tmp1,"]",")"); + tmp=name+"=translatedata("+tmp1+","+textformat(mov,5)+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; +); + +Scaledata(nm,plist,ratioV):=( + regional(tmp); + tmp=Lcrd(ratioV); + Scaledata(nm,plist,tmp_1,tmp_2,[]); +); +Scaledata(nm,plist,Arg1,Arg2):=( +//help:Scaledata("1","crAB",3,2,[[0,0]]); + regional(tmp,options); + if(islist(Arg2), + tmp=Lcrd(Arg1); + options=Arg2; + Scaledata(nm,plist,tmp_1,tmp_2,options); + , + Scaledata(nm,plist,Arg1,Arg2,[]); + ); +); +Scaledata(nm,plist,rx,ry,options):=( + regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdL, + opcindy,Nj,Njj,Kj,X2,Y2,Ltype,Noflg,name); + name="sc"+nm; + Pt=[0,0]; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + tmp1=tmp_6; + if(length(tmp1)>0, + Pt=Lcrd(tmp1_1); + ); + pdata=plist; + if(isstring(pdata),pdata=[pdata]); + if(!isstring(pdata_1) & MeasureDepth(pdata)==1, + pdata=[pdata]; + ); + Cx=Pt_1; Cy=Pt_2; + PdL=[]; + forall(pdata,Njj, + if(isstring(Njj),Kj=parse(Njj),Kj=Njj); + if(MeasureDepth(Kj)==1,Kj=[Kj]); + tmp2=[]; + forall(Kj,Nj, + tmp1=[]; + forall(Nj, + tmp=LLcrd(#); + X2=Cx+rx*(tmp_1-Cx); + Y2=Cy+ry*(tmp_2-Cy); + tmp1=concat(tmp1,[[X2,Y2]]); + ); + tmp2=concat(tmp2,[tmp1]); + ); + PdL=concat(PdL,tmp2); + ); + if(Noflg<3, + println("generate Scaledata "+name); + tmp1=[]; + forall(PdL,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=text(plist); // 15.10.15 + tmp1=replace(tmp1,"[","list("); + tmp1=replace(tmp1,"]",")"); + tmp=name+"=Scaledata("+tmp1+"," + +textformat(rx,5)+","+textformat(ry,5)+","+textformat(Pt,5)+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; +); + +Reflectdata(nm,plist,symL):=Reflectdata(nm,plist,symL,[]); +Reflectdata(nm,plist,symL,options):=( +//help:Reflectdata("1","crAB",[C]); + regional(tmp,tmp1,tmp2,pdata,Us,Vs,Pt1,Pt2,Cx,Cy,PdL, + opcindy,Nj,Njj,Kj,X1,Y1,X2,Y2,Ltype,Noflg,name); + name="re"+nm; + Pt=[0,0]; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + pdata=plist; + if(isstring(pdata),pdata=[pdata]); + if(!isstring(pdata_1) & MeasureDepth(pdata)==1, + pdata=[pdata]; + ); + Pt1=Lcrd(symL_1); + if(length(symL)==1, + Pt2=Pt1; + , + Pt2=Lcrd(symL_2); + ); + Us=Pt2_1-Pt1_1; + Vs=Pt2_2-Pt1_2; + PdL=[]; + forall(pdata,Njj, + if(isstring(Njj),Kj=parse(Njj),Kj=Njj); + if(MeasureDepth(Kj)==1,Kj=[Kj]); + tmp2=[]; + forall(Kj,Nj, + tmp1=[]; + forall(Nj, + tmp=LLcrd(#); + X1=tmp_1; + Y1=tmp_2; + if(Pt1==Pt2, + X2=2*Pt1_1-X1; + Y2=2*Pt1_2-Y1; + , + X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1 + -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); + Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1 + +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); + ); + tmp1=concat(tmp1,[[X2,Y2]]); + ); + tmp2=concat(tmp2,[tmp1]); + ); + PdL=concat(PdL,tmp2); + ); + if(Noflg<3, + println("generate Reflectdata "+name); + tmp1=[]; + forall(PdL,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// tmp1=textformat(plist,5); + tmp1=text(plist); // 15.10.15 + tmp1=replace(tmp1,"[","list("); + tmp1=replace(tmp1,"]",")"); + tmp=name+"=Reflectdata("+tmp1+","+textformat(symL,5)+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; +); + +Mksegments():=Mksegments([]); +Mksegments(options):=( +//help:Mksegments(); + regional(segstr,p,q,r,tmp1,tmp2,tmp3); + forall(allsegments(),seg, + str=text(inspect(seg,"definition")); + tmp1=indexof(str,"("); + tmp2=indexof(str,";"); + tmp3=indexof(str,")"); + p=substring(str,tmp1,tmp2-1); + q=substring(str,tmp2,tmp3-1); + Listplot([parse(p),parse(q)]); + ); +); + +Mkcircles():=Mkcircles([]); +Mkcircles(options):=( +//help:Mkcircles(): + regional(seg,cir,str,p,q,r,tmp1,tmp2,tmp3,tmp4); + forall(allcircles(),cir, + str=text(inspect(cir,"definition")); + tmp1=indexof(str,"("); + tmp2=indexof(str,";"); + tmp3=indexof(str,")"); + tmp4=indexof(str,";",tmp2+1); + if(tmp4==0, + p=substring(str,tmp1,tmp2-1); + q=substring(str,tmp2,tmp3-1); + Circledata([parse(p),parse(q)]); + , + p=substring(str,tmp1,tmp2-1); + q=substring(str,tmp2,tmp4-1); + r=substring(str,tmp4,tmp3-1); + Circledata([parse(p),parse(q),parse(r)]); + ); + ); +); + +Makesciarg(arglist):=( + regional(str,tmpstr); + str=""; + forall(arglist, + if(isstring(#), + tmpstr=Dq+#+Dq; + , + tmpstr=textformat(#,5); + ); + str=str+tmpstr+","; + ); + str=substring(str,0,length(str)-1); + str; +); + +Setax(arglist):=( +//help:Setax(["l","x","e","y","n","O","sw"]); +//help:Setax([7,"nw"]); + regional(tmp); + tmp=Makesciarg(arglist); + Com1st("Setax("+tmp+")"); +); + +Htickmark(arglist):=( +//help:Htickmark([1,"1",2,"sw","2"]); + regional(tmp); + tmp=""; + tmp=Makesciarg(arglist); + Com2nd("Htickmark("+tmp+")"); +); + +Vtickmark(arglist):=( +//help:Vtickmark([1,"1",2,"sw","2"]); + regional(tmp); + tmp=Makesciarg(arglist); + Com2nd("Vtickmark("+tmp+")"); +); + +Drwxy():=( +//help:Drwxy(); + Com2nd("Drwxy()"); + Addax(0); // 16.01.21 +); + +Drwpt(pstr):=Drawpoint(pstr); +Drwpt(ptlist,nn):=( // 16.03.05 from +//help:Drwpt(A); +//help:Drwpt("[1,1],0"); +//help:Drwpt(A,0); +//help:Drwpt([1,2],0); + Drawpoint(ptlist,nn); +); +Drawpoint(pstr):=( + if(isstring(pstr), + println("Drwpt : "+pstr); + Com2nd("Drwpt("+pstr+")"); + , + Drawpoint(pstr,1); + ); +); +Drawpoint(ptlistorg,nn):=( + regional(ptlist,thick,tmp,tmp1); + println("Drwpt : "+text(ptlistorg)); + if(islist(ptlistorg), + if(MeasureDepth(ptlistorg)==1, + ptlist=ptlistorg + , + ptlist=[ptlistorg] + ); + , + ptlist=[ptlistorg] + ); + thick=PenThick/PenThickInit;// 16.04.09 from + tmp1=max(TenSize/TenSizeInit,1)/8; + Setpen(tmp1); // 16.04.09 upto + forall(ptlist, + tmp=textformat(#,5)+","+text(nn); + Com2nd("Drwpt("+tmp+")"); // 16.04.09 + ); + Setpen(thick); // 16.04.09 +);// 16.03.05 upto + +Addax(param):=( +//help:Addax(0); + ADDAXES=text(param); +); + +Expr(Pt,Dr,St):=Expr([Pt,Dr,St]); +Expr(list):=Expr(list,[]); +Expr(listorg,options):=( //16.10.09 +//help:Expr([A,"e","f(x)=x^2"]); + regional(list,str,tmp,tmp1,tmp2); + list=listorg; + forall(1..round(length(list)/3), + str=list_(3*#); + if(!isstring(str),str=format(str,5)); + str="$"+str+"$"; + list_(3*#)=str; + ); + Letter(list,options); +); + +Letter(Pt,Dr,St):=Letter([Pt,Dr,St]); +Letter(list):=Letter(list,[]); +Letter(list,options):=( +//help:Letter([C,"c","Graph of f(x)"]); + regional(Nj,Pos,Dir,Str,Off,Dmv,Xmv,Ymv,Noflg,opcindy, + opL,aln,sz,clr,bld,ita,tmp,tmp1,tmp2); + tmp=Divoptions(options); + Noflg=tmp_2; + opL=select(options,indexof(#,"->")>0); //16.10.09from + tmp=select(opL,indexof(#,"color")); + size=12; + clr=[0,0,0]; + bld=false; + ita=false; + aln="left"; + forall(opL, + tmp=indexof(#,"->"); + tmp1=removespace(substring(#,0,tmp-1)); + tmp2=substring(#,tmp+1,length(#)); + if(tmp1=="size",sz=parse(tmp2)); + if(tmp1=="color",clr=parse(tmp2)); + if(tmp1=="bold",bld=parse(tmp2)); + if(tmp1=="ita",ita=parse(tmp2)); + );//16.10.09upto + Off=-4; + Dmv=8; + Nj=1; + while(Nj+2<=length(list), +// Pos=textformat(list_Nj,5); + Pos=list_Nj; + Dir=list_(Nj+1); + if(Dir=="s" % Dir=="n", Dir=Dir+"c");//16.10.08 + Str=list_(Nj+2); + if(!isstring(Str),Str=format(Str,5)); // 16.09.30,10.09 + tmp=replace(Str,".xy",""); + tmp=replace(tmp,".x","(1)"); + Str=replace(tmp,".y","(2)"); + if(indexof(Str,"`")>0, +// tmp=Dq+",Assign('"+Str+"','`',Prime()))"; + tmp=Dq+",Assign('"+Str+"'))"; // 15.02.22 + , + tmp=Dq+","+Dq+Str+Dq+")"; + ); + if(Noflg==0, + Com2nd("Letter("+Lcrd(Pos)+","+Dq+Dir+tmp);//16.10.10 + ); + if(Noflg<2, + Xmv=0;//16.10.13 + Ymv=-4; + if(indexof(Dir,"n")>0, + Ymv=Dmv/2; + ); + if(indexof(Dir,"s")>0, + Ymv=-Dmv*3/2;//16.10.13 + ); + if(indexof(Dir,"e")>0, + Xmv=Dmv/2; + Off=0; + aln="left"; + ); + if(indexof(Dir,"w")>0, + Xmv=-Dmv/2; + Off=0; // 16.09.30from + aln="right"; + ); + if(indexof(Dir,"c")>0, + Xmv=0;//16.10.13 + Off=0; + if(Ymv==0,Ymv=-4);//16.10.08 + aln="mid"; // 16.09.30upto + ); + drawtext(Pcrd(Pos),Str,offset->[Off+Xmv,Off+Ymv], + size->sz,color->clr,align->aln,bold->bld,italics->ita);//16.10.09 + ); + Nj=Nj+3; + ); +); + +Letterrot(pt,dir,str):=Letterrot(pt,dir,0,0,str); +Letterrot(pt,dir,movstr,str):=( +//help:Letterrot(C,B-A,"AB"): +//help:Letterrot(C,B-A,0,5,"AB"): +//help:Letterrot(C,B-A,"t0n5","AB"): + regional(tmov,nmov,tmp,tmp1,tmp2); + tmp1=indexof(movstr,"t"); + tmp2=indexof(movstr,"n"); + if(tmp1>0, + if(tmp2>0,tmp=tmp2-1,tmp=length(movstr)); + tmov=parse(substring(movstr,tmp1,tmp)); + , + tmov=0; + ); + if(tmp2>0, + nmov=parse(substring(movstr,tmp2,length(movstr))); + , + nmov=0; + ); + Letterrot(pt,dir,tmov,nmov,str); +); +Letterrot(pt,dir,tmov,nmov,str):=( + Letter([pt,"c",str],["notex"]); + Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')"); +); + +Exprrot(pt,dir,str):=Exprrot(pt,dir,0,0,str); +Exprrot(pt,dir,movstr,str):=( +//help:Exprrot(C,B-A,"d"): +//help:Exprrot(C,B-A,0,5,"d"): +//help:Exprrot(C,B-A,"t0n5","d"): + regional(tmov,nmov,tmp,tmp1,tmp2); + tmp1=indexof(movstr,"t"); + tmp2=indexof(movstr,"n"); + if(tmp1>0, + if(tmp2>0,tmp=tmp2-1,tmp=length(movstr)); + tmov=parse(substring(movstr,tmp1,tmp)); + , + tmov=0; + ); + if(tmp2>0, + nmov=parse(substring(movstr,tmp2,length(movstr))); + , + nmov=0; + ); + Exprrot(pt,dir,tmov,nmov,str); +); +Exprrot(pt,dir,tmov,nmov,str):=( + Expr([pt,"c",str],["notex"]); + Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')"); +); + +Putpoint(name,Pt):=Putpoint(name,Pt,Pt); +Putpoint(name,Ptinit,Pt):=( +//help:Putpoint("A",[1,2],[1,A.y]); + regional(ptstr); + ptstr=apply(allpoints(),#.name); + if(!contains(ptstr,name), + createpoint(name,Pcrd([Ptinit_1,Ptinit_2])); + , + ptstr=name+".xy="+textformat(Pcrd(Pt),5); + parse(ptstr); + ); +); + +Bezierpt(t,ptlist,ctrlist):=( + regional(flg3,p0,p1,p2,p3,p4,p5,p6,p7,p8,p9); + p0=ptlist_1; + p3=ptlist_2; + p1=ctrlist_1; + if(length(ctrlist)==1, + p2=p3; + flg3=0; + , + p2=ctrlist_2; + flg3=1; + ); + if(length(p0)<3, // 15.02.08 + p0=Lcrd(p0); + p3=Lcrd(p3); + p1=Lcrd(p1); + p2=Lcrd(p2); + ); + p4=(1-t)*p0+t*p1; + p5=(1-t)*p1+t*p2; + p6=(1-t)*p2+t*p3; + p7=(1-t)*p4+t*p5; + p8=(1-t)*p5+t*p6; + p9=(1-t)*p7+t*p8; + if(flg3==0,p7,p9); +); + +Bezier(ptctrlist):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,[]); +Bezier(ptctrlist,options):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,options); +Bezier(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]); +Bezier(nm,ptlist,ctrlist,options):=BezierCurve(nm,ptlist,ctrlist,options); +BezierCurve(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]); +BezierCurve(nm,ptlistorg,ctrlistorg,options):=( +//help:Bezier("1",[A,D],[B,C]); +//help:Bezier(options=["Num=10"]); + regional(name,Ltype,Noflg,opstr,opcindy,Num, + ptlist,ctrlist,tmp,tmp1,tmp2,ii,st,out,list); + name="bz"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + Num=10; + tmp1=tmp_5; + forall(tmp1, // 14.12.31 + if(substring(#,0,1)=="N", + tmp2=indexof(#,"="); + Num=parse(substring(#,tmp2,length(#))); + opstr=opstr+","+Dq+#+Dq; + ); + ); + ptlist=apply(ptlistorg,Lcrd(#)); // 16.08.16 + ctrlist=[]; // 14.12.31 + if(length(ctrlistorg)==length(ptlist)-1, + forall(ctrlistorg,tmp1, + if(MeasureDepth(tmp1)==0,tmp=[tmp1],tmp=tmp1); + tmp=apply(tmp,Lcrd(#)); // 16.08.16 + ctrlist=append(ctrlist,tmp); + ); + , + forall(1..(length(ptlist)-1),ii, + tmp=ctrlistorg_((2*ii-1)..(2*ii)); + tmp=apply(tmp,Lcrd(#)); // 16.08.16 + ctrlist=append(ctrlist,tmp); + ); + ); + if(!islist(Num), + Num=apply(ctrlist,Num); + ); + list=[]; + forall(1..(length(ptlist)-1),ii, + tmp1=ptlist_(ii..(ii+1)); + tmp2=ctrlist_ii; + if(ii==1,st=0,st=1); + forall(st..Num_ii, + tmp=Bezierpt(#/Num_ii,tmp1,tmp2); + list=append(list,tmp); + ); + ); + if(Noflg<3, + println("generate Bezier "+name); + out=apply(list,Pcrd(#)); + tmp=name+"="+textformat(out,5); + parse(tmp); + tmp1=textformat(ptlist,5); + tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")"; + tmp2=textformat(ctrlist,5); + tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")"; + GLIST=append(GLIST,name+"=Bezier("+tmp1+","+tmp2+opstr+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + list; +); + +Readcsvsla(fname):=Readplotdigdata(fname,[]); +Readcsvsla(fname,options):=Readplotdigdata(fname,options); +Readplotdigdata(fname):=Readplotdigdata(fname,[]); +Readplotdigdata(fname,options):=( + regional(fsc,mv,cmdall,dataL,nd,npt,ptdata,ii,tmp,tmp1,tmp2,tmp3); + tmp=Divoptions(options); + tmp1=tmp_6; + sc=1;//10; + mv=[0,0];//[5,5]; + forall(tmp1, + if(!islist(#),sc=#,mv=#); + ); + if(indexof(fname,".")>0, + tmp=load(fname); + , + tmp=load(fname+".txt"); + ); + cmdall=tokenize(tmp,"//"); + dataL=[]; + forall(2..length(cmdall),ii, + tmp1=parse("["+cmdall_ii+"]"); + dataL=append(dataL,tmp1); + ); + if(length(dataL_(length(dataL)))<2, + dataL=dataL_(1..(length(dataL)-1)); + ); + nd=length(dataL_1)/2; + npt=length(dataL); + ptdata=[]; + forall(1..nd,ii, + tmp3=[]; + forall(1..npt, + tmp1=dataL_#_(2*ii-1); + tmp2=dataL_#_(2*ii); + if(isreal(tmp1), + tmp3=append(tmp3,[tmp1,tmp2]); + ); + ); + ptdata=append(ptdata,tmp3); + ); + tmp1=[]; + forall(ptdata, + tmp=#/sc; + tmp=translatedata("1",[tmp],-mv,["nodata"]); + tmp1=append(tmp1,tmp); + ); + ptdata=tmp1; + ptdata; +); + +Putbezierdata(name,ptL):=Putbezierdata(name,ptL,[]); +Putbezierdata(name,ptL,options):=( + regional(psize,Deg,tmp,tmp1,tmp2,p1,p2,pts,ctrs); + tmp=Divoptions(options); + psize=3; + Deg=3; + tmp1=tmp_5; + forall(tmp1, + if(substring(#,0,1)=="D", + tmp=indexof(#,"="); + Deg=parse(substring(#,tmp,length(#))); + ); + if(substring(#,0,1)=="S", + tmp=indexof(#,"="); + psize=parse(substring(#,tmp,length(#))); + ); + ); + pts=[]; + ctrs=[]; + forall(1..length(ptL), + p2=ptL_#; // 16.08.16 + if(ispoint(p2), + tmp1=text(p2); + , + tmp1=name+text(#); + Putpoint(tmp1,p2,Lcrd(parse(tmp1))); // 16.08.16 + ); + inspect(parse(tmp1),"ptsize",psize); + pts=append(pts,parse(tmp1)); + inspect(parse(tmp1),"color",4); + if(#>1, + p1=Lcrd(ptL_(#-1)); // 16.08.16 + p2=Lcrd(ptL_#); // 16.08.16 + if(Deg==3, + tmp=(2*p1+p2)/3; + tmp1=name+"p"+text(#-1); + Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16 + inspect(parse(tmp1),"labeled",false); //15.01.22 + Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22 + inspect(parse(tmp1),"ptsize",psize); + inspect(parse(tmp1),"color",3); + tmp=(p1+2*p2)/3; + tmp2=name+"q"+text(#-1); + Putpoint(tmp2,tmp,Lcrd(parse(tmp2))); // 16.08.16 + inspect(parse(tmp2),"labeled",false); //15.01.22 + Letter([parse(tmp2),"ne",tmp2],["notex"]); //15.01.22 + inspect(parse(tmp2),"ptsize",psize); + inspect(parse(tmp2),"color",3); + ctrs=append(ctrs,[parse(tmp1),parse(tmp2)]); + , + tmp=(p1+p2)/2; + tmp1=name+"p"+text(#-1); + Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16 + inspect(parse(tmp1),"labeled",false); //15.01.22 + Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22 + inspect(parse(tmp1),"ptsize",psize); + inspect(parse(tmp1),"color",3); + ctrs=append(ctrs,[parse(tmp1)]); + ); + ); + ); + [pts,ctrs,name]; +); + +Bezierstart(n):=( // 2016.02.26 + BezierNumber=n; +); + +Mkbezierptcrv(ptdata):=Mkbezierptcrv(ptdata,[]); +Mkbezierptcrv(ptdata,options):=( + //help:Mkbezierptcrv([A,B,C,D]); + //help:Mkbezierptcrv([[A,B],[C,D]]); + //help:Mkbezierptcrv(options=["Num=10"]); + // global BezierNumber + regional(ptlist,Out,tmp,tmp1,tmp2); + if(isstring(ptdata), + ptlist=Readcsvsla(ptdata,options); + , + ptlist=ptdata; + ); + if(MeasureDepth(ptlist)==1,ptlist=[ptlist]); + Out=[]; + forall(1..length(ptlist), + tmp=floor((BezierNumber-1)/26);// 15.02.23 + if(tmp==0,tmp="",tmp=text(tmp)); + tmp2=mod(BezierNumber,26); + if(tmp2==0,tmp2=26); + tmp1=unicode(text(96+tmp2),base->10)+tmp;// 15.03.11 + tmp2=Putbezierdata(tmp1,ptlist_#,options); + Bezier(tmp2,options); + BezierNumber=BezierNumber+1; + Out=append(Out,tmp2_(1..2)); + ); + Out; +); + +Mkbeziercrv(nm,ptctrL):=Mkbeziercrv(nm,ptctrL,[]); +Mkbeziercrv(nm,ptctrL,options):=( + //help:Mkbeziercrv("1",[[A,B,C,D],[[P,Q],[R,S],T]]); + regional(ptctrLL,name,ptlist,ctrlist,tmp,tmp1,tmp2); + if(MeasureDepth(ptctrL)==2,ptctrLL=[ptctrL],ptctrLL=ptctrL); + forall(1..length(ptctrLL), + name=nm+text(#); + ptlist=ptctrLL_#_1; + ctrlist=ptctrLL_#_2; + Bezier(name,ptlist,ctrlist,options); + ); +); + +Writebezier():=Writebezier(Fhead,"all"); +Writebezier(head):=Writebezier(head,"all"); +Writebezier(head,seL):=( +//help:Writebezier(file); +//help:Writebezier(file,"acd"); + regional(bz,dt,name,tmp,tmp1,tmp2); + bz=select(GLIST,indexof(#,"=Bezier")>0); + tmp1=[]; // 16.04.22from + if(seL!="all", + forall(1..length(seL), + tmp=substring(seL,#-1,#); + tmp=select(bz,indexof(#,"bz"+tmp)>0); + tmp1=concat(tmp1,tmp); + ); + bz=tmp1;// 16.04.22upto + ); + dt=[head+"n",[[length(bz),0]]]; + forall(1..length(bz), + tmp=indexof(bz_#,"="); + name=substring(bz_#,0,tmp-1); + tmp=indexof(bz_#,","+Dq); + if(tmp>0, + tmp1=substring(bz_#,0,tmp-1)+")"; + , + tmp1=bz_#; + ); + tmp1=replace(tmp1,"Bezier(","["); + tmp1=replace(tmp1,"list(","["); + tmp1=replace(tmp1,")","]"); + tmp1=replace(tmp1,",",".xy,"); + tmp1=replace(tmp1,"]",".xy]"); + tmp1=replace(tmp1,".xy,[",",["); + tmp1=replace(tmp1,"].xy","]"); + tmp1=replace(tmp1,name,head+text(#)); + parse(tmp1); + tmp=parse(head+text(#)+"_1"); + dt=concat(dt,[head+text(#)+"k",tmp]); + tmp=parse(head+text(#)+"_2"); + dt=concat(dt,[head+text(#)+"c",tmp]); + ); + WriteOutData(head+".txt",dt); + dt; +); + +Readbezier(file):=Readbezier(file,[]); +Readbezier(file,optionorg):=( +//help:Readbezier("xsr"); +//help:Readbezier(options=["Num=10","nogeo"]); + regional(nn,options,stL,geo,nc,alpha,out,tmp,tmp1,tmp2,tmp3); + options=optionorg; + tmp=Divoptions(options); + stL=tmp_7; + geo=0; + forall(stL, + tmp=Toupper(substring(#,0,1)); + if(tmp=="G",geo=1); + options=remove(options,[#]); + ); + ReadOutData(file); + tmp=file+"n_1_1"; + nn=parse(tmp); + out=[]; + forall(1..nn,nc, + tmp=file+text(nc); + tmp1=parse(tmp+"k"); + tmp2=parse(tmp+"c"); + if(MeasureDepth(tmp2)==1,tmp2=[tmp2]); // 16.04.22from + if(geo==1, + alpha="abcdefghijklmnopqrstuvwxyz"; + forall(1..length(tmp1), + tmp="k"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#); + Putpoint(tmp,tmp1_#,parse(tmp+".xy")); + inspect(parse(tmp),"labeled",false); + inspect(parse(tmp),"ptsize",3); + tmp1_#=parse(tmp+".xy"); + ); + forall(1..length(tmp2), + tmp="c"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#)+"1"; + Putpoint(tmp,tmp2_#_1,parse(tmp+".xy")); + inspect(parse(tmp),"labeled",false); + inspect(parse(tmp),"color",4); + inspect(parse(tmp),"ptsize",3); + tmp2_#_1=parse(tmp+".xy"); + tmp="c"+BezierNumber+"no"+text(nc)+substring(alpha,#-1,#)+"2"; + Putpoint(tmp,tmp2_#_2,parse(tmp+".xy")); + inspect(parse(tmp),"labeled",false); + inspect(parse(tmp),"color",4); + inspect(parse(tmp),"ptsize",3); + tmp2_#_2=parse(tmp+".xy"); + ); + BezierNumber=BezierNumber+1; + ); + Bezier(file+text(nc),tmp1,tmp2,options);// 16.04.22upto + out=append(out,"bz"+tmp); + ); + out; +); + +Ospline(nm,ptlist):=Ospline(nm,ptlist,[]); +Ospline(nm,ptlist,options):=( +//help:Ospline("1",ptlist,[options]); + regional(tmp,tmp1,tmp2,list,ptL,ctrL,name,closed,flg, + p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32); + name="o"+nm; + if(isstring(ptlist),list=parse(ptlist),list=ptlist); + if(|list_1-list_(length(list))|<10^(-6),closed=1,closed=0); +// list=apply(list,LLcrd(#)); + ctrL=[]; + forall(1..(length(list)-1), + flg=0; + p1=Lcrd(list_#); // 16.08.16 + p2=Lcrd(list_(#+1)); // 16.08.16 + if(#==1 % #==length(list)-1, + flg=1; + if(closed==0, + pQ=(p1+2*p2)/3; // 15.09.21 // 16.08.16 + pR=(2*p1+p2)/3; // 16.08.16 + ctrL=append(ctrL,[pQ,pR]); + flg=2; + , + if(#==1, + p0=Lcrd(list_(length(list)-1)); // 16.08.16 + p3=Lcrd(list_(#+2)); // 16.08.16 + , + p0=Lcrd(list_(#-1)); // 16.08.16 + p3=Lcrd(list_2); // 16.08.16 + ); + ); + ); + if(flg<=1, + if(flg==0, + p0=Lcrd(list_(#-1)); // 16.08.16 + p3=Lcrd(list_(#+2)); // 16.08.16 + ); + tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2); + cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp; + pQ=p1+cc*(p2-p0); // 15.09.21 // 16.08.16 + pR=p2+cc*(p1-p3); // 16.08.16 + ctrL=append(ctrL,[pQ,pR]); + ); + ); +// list=apply(list,LLcrd(#)); // 16.08.16 +// ctrL=apply(ctrL,LLcrd(#)); + if(closed==0, // 15.09.21 + p1=ctrL_2_1; + p2=Lcrd(list_2); // 16.08.16 + pQ=p2+(p2-p1); + ctrL_1=[pQ]; + tmp=length(ctrL); + tmp1=ctrL_(tmp-1); + p1=ctrL_(tmp-1)_2; + p2=Lcrd(list_(tmp)); // 16.08.16 + pQ=p2+(p2-p1); + ctrL_tmp=[pQ]; + ); + Bezier("o"+nm,list,ctrL,options); +); + +CRspline(nm,ptL):=CRspline(nm,ptL,[]); +CRspline(nm,ptL,options):=( + // Catmull-Rom spline +//help:CRspline("1",[A,B,C,A]); + regional(name,ptlist,ctrpts,eqL,opcindy,c,v,tmp,tmp1,tmp2,ctrlist,cflg); + name="crsp"+nm; + if(MeasureDepth(ptL)==1,tmp=[ptL],tmp=ptL); + ptlist=tmp_1; + if(length(tmp)==1, + cflg=1; + , + cflg=0; + ctrpts=tmp_2; + ); + c=1/6; + tmp=Divoptions(options); + eqL=tmp_5; + opcindy=tmp_(length(tmp)); // 15.03.05 + forall(eqL, + if(substring(#,0,1)=="R", + tmp2=indexof(#,"="); + c=parse(substring(#,tmp2,length(#))); + ); + ); + ptlist=apply(ptlist,Lcrd(#)); // 16.08.16 + ctrlist=[]; + forall(1..(length(ptlist)-1), + if(#==1, + if(cflg==0, + tmp1=ctrpts_1; + , + v=ptlist_2-ptlist_(length(ptlist)-1); + tmp1=ptlist_#+c*v; + ); + , + v=ptlist_(#+1)-ptlist_(#-1); + tmp1=ptlist_#+c*v; + ); + if(#==length(ptlist)-1, + if(cflg==0, + tmp2=ctrpts_2; + , + v=ptlist_2-ptlist_#; + tmp2=ptlist_(#+1)-c*v; + ); + , + v=ptlist_(#+2)-ptlist_#; + tmp2=ptlist_(#+1)-c*v; + ); + tmp=select(options,indexof(text(#),"->")>0); + tmp=append(tmp,"notex"); //15.03.05 + Pointdata(name+text(#),[tmp1,tmp2],tmp); + ctrlist=append(ctrlist,[tmp1,tmp2]); + ); + Bezier(nm,ptlist,ctrlist,options); +); + +Beziersmooth(nm,ptL):=Bzspline(nm,ptL,[]); +//help:Beziersmooth("1",[A,B,C,A]); +Beziersmooth(nm,ptL,options):=Bzspline(nm,ptL,options); +Bzspline(nm,ptL):=Bzspline(nm,ptL,[]); +Bzspline(nm,ptLorg,options):=( + // smooth bezier + regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr, + tmp,tmp1,tmp2,cflg,ctrlist); + name="bzsp"+nm; + Eps=10^(-3); + ptL=apply(ptLorg,Lcrd(#)); // 16.08.16 + if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0); + forall(2..length(ptL), + pt=ptL_#; + pt1=ptL_(#-1); + tmp1="C"+text(#-1)+"q"; + Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); // 16.08.16 + ); + forall(2..(length(ptL)-1), + if(#<length(ptL) % cflg==1, + lstr="c"+text(#); + pt=ptLorg_#; // 16.08.16 + pt1=parse("C"+text(#-1)+"q"); + create([lstr],"Join",[pt1,pt]); + tmp2="C"+text(#)+"p"; + tmp=Append((2*pt.xy-pt1.xy),1); + create([tmp2],"PointOnLine",[parse(lstr),tmp]); + ); + ); + if(cflg==0, + pt=ptL_1; + pt1=ptL_2; + tmp1="C1p"; + Putpoint(tmp1,(4*pt+pt1)/5,Lcrd(parse(tmp1))); // 16.08.16 + ); + if(cflg==1, + lstr="c1"; + pt=ptLorg_1; // 16.08.16 + pt1=parse("C"+text(length(ptL)-1)+"q"); + create([lstr],"Join",[pt1,pt]); + tmp1="C1p"; + tmp=Append((2*pt.xy-pt1.xy),1); + create([tmp1],"PointOnLine",[parse(lstr),tmp]); + ); + ctrlist=[]; + forall(1..(length(ptL)-1), + if(#>1 % cflg==1, + tmp1="c"+text(#); + inspect(parse(tmp1),"alpha",0.3); + ); + tmp1="C"+text(#)+"p"; + tmp2="C"+text(#)+"q"; + inspect(parse(tmp1),"ptsize",3); + inspect(parse(tmp1),"color",3); + inspect(parse(tmp2),"ptsize",3); + inspect(parse(tmp2),"color",3); + tmp=[parse(tmp1),parse(tmp2)]; + ctrlist=append(ctrlist,tmp); + ); + Bezier(nm,ptL,ctrlist,options); + [ptL,ctrlist]; +); + +Beziersym(nm,ptL):=Bzsspline(nm,ptL,[]); +Beziersym(nm,ptL,options):=Bzsspline(nm,ptL,options); +Bzsspline(nm,ptL):=Bzsspline(nm,ptL,[]); +Bzsspline(nm,ptLorg,options):=( + // smooth bezier with symmetric control points + regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr, + tmp,tmp1,tmp2,cflg,ctrlist); + name="bzssp"+nm; + Eps=10^(-3); + ptL=apply(ptLorg,Lcrd(#)); // 16.08.16 + if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0); + forall(2..length(ptL), + pt=ptL_#; + pt1=ptL_(#-1); + tmp1="C"+text(#-1)+"q"; + Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); + ); + forall(2..(length(ptL)-1), + if(#<length(ptL) % cflg==1, + pt=ptL_#; + pt1=parse("C"+text(#-1)+"q"); + tmp2="C"+text(#)+"p=2*pt-pt1"; + parse(tmp2); + ); + ); + if(cflg==0, + pt=ptL_1; + pt1=ptL_2; + Putpoint("C1p",(4*pt+pt1)/5,Lcrd(C1p)); // 16.08.16 + inspect(C1p,"ptsize",3); + inspect(C1p,"color",3); + ); + if(cflg==1, + pt=ptL_1; + pt1=Lcrd(parse("C"+text(length(ptL)-1)+"q")); // 16.08.16 + tmp1="Putpoint("+Dq+"C1p"+Dq+",2*pt-pt1)"; // 16.08.16 + parse(tmp1); + ); + ctrlist=[]; + forall(1..(length(ptL)-1), + tmp1="C"+text(#)+"p"; + tmp2="C"+text(#)+"q"; + inspect(parse(tmp2),"ptsize",3); + inspect(parse(tmp2),"color",3); + tmp=[parse(tmp1),parse(tmp2)]; + ctrlist=append(ctrlist,tmp); + ); + Bezier(nm,ptL,ctrlist,options); + [ptL,ctrlist]; +); + +Listbspline2bz(listorg):=( + regional(Eps,list,pcl,ptl,ctrl,k); + Eps=10^(-3); + list=apply(listorg,Lcrd(#)); // 16.08.16 + k=length(list); + if(|list_1-list_k|>Eps, + pcl=list; + pcl_1=2*list_1-list_2; + pcl_k=2*list_k-list_(k-1); + , + pcl=concat(list,[list_2]); + ); + ctrl=apply(2..(length(pcl)-1),[pcl_#]); + ptl=apply(1..(length(pcl)-1),(pcl_#+pcl_(#+1))/2); + [ptl,ctrl]; +); + +Bspline(nm,ctrL):=Bspline(nm,ctrL,[]); +Bspline(nm,ctrL,options):=( +//help:Bspline("",[A,B,C]); + regional(list,tmp); + list=Listbspline2bz(ctrL); + tmp=BezierCurve("b"+nm,list_1,list_2,options); + tmp; +); + +MeetCurve(Crv,Xorg,Yorg):=( + regional(Cv,tmp,tmp1,tmp2,X0,Y0,x1,x2,y1,y2,Ylist,Ban,Tate); + if(isstring(Crv),Cv=parse(Crv),Cv=Crv); + if(MeasureDepth(Cv)==2,Cv=Cv_1); + Cv=apply(Cv,LLcrd(#)); // 14.12.18 + while(length(Cv)==1, + Cv=Cv_1; + ); + Cv=apply(Cv,Lcrd(#)); + tmp1=min(apply(Cv,#_1)); + tmp2=max(apply(Cv,#_1)); + if(isstring(Xorg),X0=parse(Xorg),X0=Xorg); + if(isstring(Yorg),Y0=parse(Yorg),Y0=Yorg); + if(X0<tmp1, + X0=tmp1; + , + if(X0>tmp2, + X0=tmp2; + ); + ); + tmp1=select( + 1..(length(Cv)-1),Cv_#_1<=X0 & X0<=Cv_(#+1)_1); + tmp2=select( + 1..(length(Cv)-1),Cv_#_1>=X0 & X0>=Cv_(#+1)_1); + tmp2=remove(tmp2,common(tmp2,tmp1)); + Ban=concat(tmp1,tmp2); + Tate=select(Ban, + abs(Cv_#_1-Cv_(#+1)_1)<= + 10^(-2)*abs(Cv_#_2-Cv_(#+1)_2) + ); + Ban=remove(Ban,Tate); + Ylist=[]; + forall(Ban, + tmp=Cv_#; + x1=tmp_1; y1=tmp_2; + tmp=Cv_(#+1); + x2=tmp_1; y2=tmp_2; + tmp=((x2-X0)*y1+(X0-x1)*y2)/(x2-x1); + Ylist=append(Ylist,tmp); + ); + forall(Tate, + tmp=Cv_#; + x1=tmp_1; y1=tmp_2; + tmp=Cv_(#+1); + x2=tmp_1; y2=tmp_2; + tmp1=min([y1,y2]); + tmp2=max([y1,y2]); + if(Y0<tmp1, + tmp=tmp1; + , + if(Y0>tmp2, + tmp=tmp2; + , + tmp=Y0; + ); + ); + Ylist=append(Ylist,tmp); + ); + tmp=sort(Ylist,abs(#_1-Y0)); + [X0,tmp_1]; +); + +PutonLine(name,p1,p2):=PutonLine(name,p1,p2,[]); +PutonLine(name,p1org,p2org,options):=( +//help:PutonLine("C","sgAB"); +//help:PutonLine("C",pA,pB); + regional(par,p1,p2,dx,dy,tmp,tmp1,tmp2); + par=0.5; + tmp=Divoptions(options); + if(length(tmp_6)>0, + par=tmp_6_1; + ); + p1=Lcrd(p1org);//16.10.11from + p2=Lcrd(p2org); + dx=p2_1-p1_1; + dy=p2_2-p1_2; + tmp1=(1-par)*p1+par*p2; + if(abs(dx)>abs(dy), + tmp=name+".x"; + tmp2="["+tmp+",dy/dx*("+tmp+"-p1_1)+p1_2]";//16.10.11upto + Putpoint(name,tmp1,parse(tmp2)); + , + if(abs(dy)>0, + tmp=name+".y"; + tmp2="[dx/dy*("+tmp+"-p1.y)+p1_1,"+tmp+"]"; + Putpoint(name,tmp1,parse(tmp2)); + , + tmp2=p1;//16.10.11 + Putpoint(name,tmp1,tmp2); + ); + ); +); + +PutonSeg(name,sgstr):=( + regional(seg,p1,p2); + if(isstring(sgstr),seg=parse(sgstr),seg=sgstr); + PutonSeg(name,LLcrd(seg_1),LLcrd(seg_2)); +); +PutonSeg(name,p1,p2):=PutonSeg(name,p1,p2,[]); +PutonSeg(name,p1org,p2org,options):=( +//help:PutonSeg("C","sgAB"); +//help:PutonSeg("C",pA,pB); + regional(par,dx,dy,p,tmp,tmp1,tmp2); + par=0.5; + tmp=Divoptions(options); + if(length(tmp_6)>0, + par=tmp_6_1; + ); + p1=Lcrd(p1org);//16.10.11from + p2=Lcrd(p2org); + PutonLine(name,p1,p2,[par]); + dx=p2_1-p1_1; + dy=p2_2-p1_2; + p=parse(name+".xy"); + p=LLcrd(p); + if(abs(dx)>abs(dy) & (p_1-p1_1)*(p_1-p2_1)>0, + if(|p-p1|<|p-p2|, + parse(name+".xy=Pcrd(p1)"); + , + parse(name+".xy=Pcrd(p2)"); + ); + ); + if(abs(dx)<abs(dy) & (p_2-p1_2)*(p_2-p2_2)>0, + if(|p-p1|<|p-p2|, + parse(name+".xy=Pcrd(p1)"); + , + parse(name+".xy=Pcrd(p2)");//16.10.11upto + ); + ); +); + +PutonCurve(pn,crv):=PutonCurve(pn,crv,[]); +PutonCurve(pn,crv,options):=( +//help:PutonCurve("A","gr1"); + regional(Pmt,pstr,optionL,leftlim,rightlim,tmp,tmp1,Flg,Msg); + if(!islist(options),optionL=[options],optionL=options); + leftlim=XMIN; + rightlim=XMAX; + Flg=0; + Msg="y"; + forall(optionL, + if(isstring(#), // 16.02.10 from + tmp=indexof(#,"="); + tmp1=Toupper(substring(#,tmp,tmp+1)); + if(tmp1=="N", Msg="n"); // 16.02.10 upto + , + if(Flg==0, + leftlim=#; + Flg=Flg+1; + , + rightlim=#; + ); + ); + ); + Pmt=MeetCurve(crv,leftlim,0); + pstr=apply(allpoints(),textformat(#,5)); // 15.04.07 + if(!contains(pstr,pn), + createpoint(pn,Pcrd(Pmt)); + , + tmp1=parse(pn+".x"); + if(tmp1< leftlim % tmp1>rightlim, + if(tmp1< leftlim,tmp= leftlim, tmp=rightlim); + Pmt=MeetCurve(crv,textformat(tmp,5),pn+".y"); + , + Pmt=MeetCurve(crv,pn+".x",pn+".y"); + ); + ptstr=pn+".xy="+textformat(Pcrd(Pmt),5)+";"; + parse(ptstr); + ); + if(Msg=="y", + println("Put "+pn+" on Curve "+text(crv)); + ); +); + +CrossPoint(name,Crv1,Crv2,range):=( + regional(Mx1,Mx2,Mx3,tmp,Crs1,Crs2,Crs3,Crs4,df1,df2); + Mx1=range_1; Mx2=range_2; + repeat(15, + Mx3=(Mx1+Mx2)/2; + Crs1=MeetCurve(Crv1,Mx1,0); + Crs2=MeetCurve(Crv2,Mx1,0); + Crs3=MeetCurve(Crv1,Mx3,0); + Crs4=MeetCurve(Crv2,Mx3,0); + df1=Crs1_2-Crs2_2; + df2=Crs3_2-Crs4_2; + if((df1>0 & df2>0) % (df1<0 & df2<0), + Mx1=Mx3; + , + Mx2=Mx3; + ); + ); + Putpoint(name,Crs1); +); + +Setscaling(sc):=( +//help:Setscaling(3); + SCALEX=1; + SCALEY=sc; + Com0th("Setscaling("+sc+")"); + Setwindow("Msg=no"); +); + +Tabledatalight(nm,xLst,yLst,rmvL):=Tabledatalight(nm,xLst,yLst,rmvL,[]); +Tabledatalight(nm,xLst,yLst,rmvL,options):=( +//help:Tabledatalight("",xLst,yLst,rmvL,[2]); + regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb, + tmp,tmp1,tmp2,tmp3,Eps); +// name="tb"+nm; + name="tb"; + println("Tabledatalight "+name+" generated"); + tmp=sum(yLst); + upleft=[0,tmp]; + tick=1; + tmp=Divoptions(options); + flg=0; + forall(tmp_6, + if(flg==0, + tick=#; + flg=flg+1; + , + upleft=tmp_6_1; + ); + ); + ul=upleft/10; + m=length(xLst); + n=length(yLst); + xsize=sum(xLst); + ysize=sum(yLst); + clist=[ul]; + rlist=[ul]; + forall(1..m, + tmp1=clist_(#)_1+xLst_#/10; + clist=append(clist,[tmp1,clist_1_2]); + ); + forall(1..n, + tmp1=rlist_(#)_2-yLst_#/10; + rlist=append(rlist,[0,tmp1]); + ); + Tb=[clist,rlist]; + tmp=name+"="+Tb; + parse(tmp); + forall(0..m, + tmp1="c"+text(#)+"r0"; + tmp2="c"+text(#)+"r"+text(n); + Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options); + if(mod(#,tick)==0 % #==m, + tmp=clist_(#+1); + drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#)); + ); + ); + forall(0..n, + tmp1="c0r"+text(#); + tmp2="c"+text(m)+"r"+text(#); + Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options); + if(mod(#,tick)==0 % #==n, + tmp=rlist_(#+1); + drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#)); + ); + ); + Tsegrmv(rmvL,options); + Addax(0); + Eps=10^(-3); + tmp1=clist_(length(clist)); + tmp2=rlist_1; + tmp3=rlist_(length(rlist)); + Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]); + Tb; +); + +Tabledata(nm,n,m,xsize,ysize,rmvL):= + Tabledata(nm,n,m,xsize,ysize,rmvL,[]); +Tabledata(nm,n,m,xsize,ysize,rmvL,options):=( + regional(Tb,name,tmp,xLst,yLst); + name="tb"+nm; + xLst=apply(1..n,xsize/n); + yLst=apply(1..m,ysize/m); + Tabledata(nm,xLst,yLst,rmvL,options) +); +Tabledata(nm,xLst,yLst,rmvL):=Tabledata(nm,xLst,yLst,rmvL,[]); +Tabledata(nm,xLst,yLst,rmvL,options):=( +//help:Tabledata("",xLst,yLst,rmvL,[2]); + regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb, + tmp,tmp1,tmp2,tmp3,Eps); +// name="tb"+nm; + name="tb"; + println("Tabledata "+name+" generated"); + tmp=sum(yLst); + upleft=[0,tmp]; + tick=1; + tmp=Divoptions(options); + flg=0; + forall(tmp_6, + if(flg==0, + tick=#; + flg=flg+1; + , + upleft=tmp_6_1; + ); + ); + ul=upleft/10; + m=length(xLst); + n=length(yLst); + xsize=sum(xLst); + ysize=sum(yLst); + clist=[ul]; + rlist=[ul]; + forall(1..m, + tmp1=clist_(#)_1+xLst_#/10; + clist=append(clist,[tmp1,clist_1_2]); + ); + forall(1..n, + tmp1=rlist_(#)_2-yLst_#/10; + rlist=append(rlist,[0,tmp1]); + ); + Tb=[clist,rlist]; + tmp=name+"="+Tb; + parse(tmp); + forall(0..m, + tmp="C"+text(#); + tmp1="c"+text(#)+"r0"; + if(#==0, + Putpoint(tmp,Tgrid(tmp1)); + , + Putpoint(tmp,Tgrid(tmp1),[parse(tmp+".x"),C0.y]); + clist_(#+1)=parse(tmp+".xy"); + ); + inspect(parse(tmp),"ptsize",3); + inspect(parse(tmp),"labeled",false); + if(mod(#,tick)==0 % #==m, + tmp=clist_(#+1); + drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#)); + ); + ); + forall(0..n, + tmp="R"+text(#); + tmp1="c0r"+text(#); + if(#==0, + Putpoint(tmp,Tgrid(tmp1)); + , + Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]); + rlist_(#+1)=parse(tmp+".xy"); + ); + Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]); + inspect(parse(tmp),"ptsize",3); + inspect(parse(tmp),"labeled",false); + if(mod(#,tick)==0 % #==n, + tmp=rlist_(#+1); + drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#)); + ); + ); + Tb=[clist,rlist]; + tmp=name+"="+Tb; + parse(tmp); + forall(0..m, + tmp1="c"+text(#)+"r0"; + tmp2="c"+text(#)+"r"+text(n); + Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options); + if(#<m, + tmp1=parse("C"+text(#)); + tmp2=parse("C"+text(#+1)); + tmp=(tmp1.xy+tmp2.xy)/2; + drawtext(tmp+[-0.2,0.5],text((tmp2.x-tmp1.x)*10)); + ); + ); + forall(0..n, + tmp1="c0r"+text(#); + tmp2="c"+text(m)+"r"+text(#); + Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options); + if(#<n, + tmp1=parse("R"+text(#)); + tmp2=parse("R"+text(#+1)); + tmp=(tmp1.xy+tmp2.xy)/2; + drawtext(tmp-[1.2,0.1],text(abs(tmp1.y-tmp2.y)*10)); + ); + ); + Tsegrmv(rmvL,options); + Addax(0); + Eps=10^(-3); + tmp1=clist_(length(clist)); + tmp2=rlist_1; + tmp3=rlist_(length(rlist)); // 15.06.11 + Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]); + Tb; +); + +Tseginfo(seg):=( + regional(cr,tp,tpc,n1,n2,n3,tmp,tmp1,tmp2); + if(substring(seg,0,2)=="sg", + cr=substring(seg,2,length(seg)); + , + cr=seg; + ); + tp=substring(cr,0,1); + if(tp=="c", + tpc="r"; + , + tpc="c"; + ); + tmp1=indexof(cr,tpc); + tmp=substring(cr,tmp1,length(cr)); + tmp2=tmp1+indexof(tmp,tpc); + n1=substring(cr,1,tmp1-1); + n2=substring(cr,tmp1,tmp2-1); + n3=substring(cr,tmp2,length(cr)); + [tp+n1,tpc,parse(n2),parse(n3)]; +); + +Tsegrmv(rmvL):=Tsegrmv(rmvL,[]); +Tsegrmv(rmvL,options):=( + regional(cr,gcL,flg,gc,hd,tail,tpc,m1,m2,n1,n2,tmp,tmp1,tmp2); + forall(rmvL,cr, + tmp1=Tseginfo(cr); + hd=tmp1_1; + tpc=tmp1_2; + m1=tmp1_3; + m2=tmp1_4; + gcL=select(GCLIST,Tseginfo(#_1)_1==tmp1_1); + flg=0; + forall(gcL, + if(flg==0, + tmp=Tseginfo(#_1); + n1=tmp_3; + n2=tmp_4; + if(m1>=n1 & m2<=n2, + gc=#; + flg=1; + ); + ); + ); + if(flg==1, + Changestyle([gc_1],["nodisp"]); + tail=""; + if(indexof(hd,"r")>0, + tail=hd; hd=""; + ); + if(n1<m1, + tmp1=tpc+text(n1); + tmp2=tpc+text(m1); + tmp=hd+tail+tmp1+tmp2; + Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options); + ); + if(m2<n2, + tmp1=tpc+text(m2); + tmp2=tpc+text(n2); + tmp=hd+tail+tmp1+tmp2; + Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options); + ); + ); + ); +); + +Tgrid(ptstr):=( +//help:Tgrid("c2r5"); + regional(tmp,tmp1,tmp2); + tmp=parse(ptstr); + if(islist(tmp), + tmp; + , + tmp=indexof(ptstr,"r"); + tmp1=substring(ptstr,1,tmp-1); + tmp1=parse(tmp1); + tmp2=substring(ptstr,tmp,length(ptstr)); + tmp2=parse(tmp2); + [tb_1_(tmp1+1)_1,tb_2_(tmp2+1)_2]; + ); +); + +Tlistplot(ptL):=Tlistplot(ptL,[]); +Tlistplot(Ag1,Ag2):=( + regional(nm,ptL,options); + if(isstring(Ag1), + nm=Ag1; + ptL=Ag2; + options=[]; + , + ptL=Ag1; + options=Ag2; + nm=ptL_1+ptL_2; + ); + Tlistplot(nm,ptL,options); +); +Tlistplot(nm,ptL,options):=( +//help:Tlistplot(["c0r0","c0r4"]); +//help:Tlistplot("1",["c0r0","c0r4"]); + regional(tmp); + tmp=apply(ptL,Tgrid(#)); // 15.06.03 + Listplot(nm,tmp,append(options,"Msg=no")); +); + +ChangeTablestyle(nameL,style):=( +////help:ChangeTablestyle(["r0c0c3"],["da"]); + regional(nmL,tmp,tmp1,tmp2); + if(islist(nameL),nmL=nameL,nmL=[nameL]); + nmL=apply(nmL,"sg"+#); + nmL=select(nmL,islist(parse(#))); + Changestyle(nmL,style); +); + +Findcell(pos1,pos2):=Findcell("",pos1,pos2); +Findcell(Tbdata,pos1,pos2):=( +//help:Findcell("c0r0","c2r1"); + regional(tmp1,tmp2,posnw,posse,ctr,dx,dy); + if(isstring(pos1), + posnw=Tgrid(pos1); // 15.05.20 + posse=Tgrid(pos2); + //posnw=parse(pos1); + //posse=parse(pos2); + , + if(islist(pos1), + posnw=pos1; + posse=pos2; + , + tmp1="c"+text(pos1-1)+"r"+text(pos2-1); + tmp2="c"+text(pos1)+"r"+text(pos2); + posnw=Tgrid(tmp1); + posse=Tgrid(tmp2); +// posnw=parse(tmp1); +// posse=parse(tmp2); + ); + ); + ctr=(posnw+posse)/2; + dx=abs(posse_1-ctr_1); + dy=abs(posnw_2-ctr_2); + [ctr,dx,dy]; +); + +Putcell(pos1,pos2,dir,lttr):=Putcell("",pos1,pos2,dir,lttr); +Putcell(Tbdata,pos1,pos2,dir,lttr):=( +//help:Putcell("c0r0","c2r1","lt","abc"); +//help:Putcell(2,3,"c","xyz"); + regional(tmp,tmp1,tmp2,posnw,posse, + posdir,posstr,ctr,dx,dy); + tmp=Findcell(Tbdata,pos1,pos2); + ctr=tmp_1; dx=tmp_2; dy=tmp_3; + posdir=ctr; + posstr=dir; + if(indexof(dir,"b")>0, + posdir_2=posdir_2-dy; + posstr=replace(posstr,"b","n"); + ); + if(indexof(dir,"t")>0, + posdir_2=posdir_2+dy; + posstr=replace(posstr,"t","s"); + ); + if(indexof(dir,"l")>0, + posdir_1=posdir_1-dx; + posstr=replace(posstr,"l","e"); + ); + if(indexof(dir,"r")>0, + posdir_1=posdir_1+dx; + posstr=replace(posstr,"r","w"); + ); + Letter(posdir,posstr,text(lttr)); +); + +Putcellexpr(pos1,pos2,dir,ex):=Putcellexpr("",pos1,pos2,dir,ex); +Putcellexpr(Tbdata,pos1,pos2,dir,ex):=( +//help:Putcellexpr("c0r0","c2r1","lt","abc"); +//help:Putcellexpr(2,3,"c","\sin x"); + Putcell(Tbdata,pos1,pos2,dir,"$"+text(ex)+"$"); +); + +Putrow(nrow,dir,lttrL):=Putrow("",nrow,dir,lttrL); +Putrow(Tbdata,nrow,dir,lttrL):=( +//help:Putrow(1,"c",["x","y","z"]); + regional(tmp,tmp1,mcol); + mcol=length(lttrL); + forall(1..mcol, + Putcell(Tbdata,#,nrow,dir,lttrL_#); + ); +); + +Putrowexpr(nrow,dir,exL):=Putrowexpr("",nrow,dir,exL); +Putrowexpr(Tbdata,nrow,dir,exL):=( +//help:Putrowexpr(2,"r",["x","y","z"]); + regional(lttrL); + lttrL=apply(exL,"$"+#+"$"); + Putrow(Tbdata,nrow,dir,lttrL); +); + +PutcoL(mcol,dir,lttrL):=PutcoL("",mcol,dir,lttrL); +PutcoL(Tbdata,mcol,dir,lttrL):=( +//help:PutcoL(1,"c",["x","y","z"]); + regional(tmp,tmp1,nrow); + nrow=length(lttrL); + forall(1..nrow, + Putcell(Tbdata,mcol,#,dir,lttrL_#); + ); +); +PutcoLexpr(mcol,dir,exL):=PutcoLexpr("",mcol,dir,exL); +PutcoLexpr(Tbdata,mcol,dir,exL):=( +//help:PutcoLexpr(2,"r",["x","y","z"]); + regional(lttrL); + lttrL=apply(exL,"$"+#+"$"); + PutcoL(Tbdata,mcol,dir,lttrL); +); + +Setwindow():=Setwindow("Msg=yes"); +Setwindow(str):=( + regional(tmp,tmp1,tmp2,msg); + msg="y"; + tmp=indexof(str,"="); // 16.02.10 + tmp1=Toupper(substring(str,tmp,tmp+1)); + if(tmp1=="N",msg="n"); + if((ispoint(SW) & ispoint(NE)), + tmp1=Lcrd(SW); + tmp2=Lcrd(NE); + XMIN=tmp1_1; XMAX=tmp2_1; + YMIN=tmp1_2; YMAX=tmp2_2; + , +// XMIN=-5; XMAX=5; +// YMIN=Lcrdy(-5); YMAX=Lcrdy(5); + createpoint("SW",Pcrd([XMIN,YMIN])); + createpoint("NE", Pcrd([XMAX,YMAX])); + ); + if(msg=="y", + println("Setwindow(["+XMIN+","+XMAX+"],["+YMIN+","+YMAX+"])"); + ); + layer(KETPICLAYER); + autoclearlayer(KETPICLAYER,true); + drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]), + Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]); +); +Setwindow(xrange,yrange):=( +//help:Setwindow([2,3],[-1,1]); + XMIN=xrange_1; + XMAX=xrange_2; + YMIN=yrange_1; + YMAX=yrange_2; +// Setwindow(); +); + +Sciform(list):=( + regional(plotlist,comp,pos,out,out2,nn,strL,flg, + tmp,tmp1,tmp2,tmp3,Nj); + plotlist=Flatten([list]); + out=replace(plotlist_1,".xy",""); + out=replace(out,".x","(1)"); + out=replace(out,".y","(2)"); + if(length(plotlist)==1, + comp=[]; + forall(1..length(out), + comp=append(comp,substring(out,#-1,#)); + ); + out=""; + pos=0; + forall(comp, + if(#!="'", + out=out+#; + , + if(pos==0, + tmp=indexof(out,"Assign("); + if(substring(out,length(out)-7,length(out))=="Assign(", + out=out+"'"; + pos=1; + , + out=out+"Assign('"; + pos=2; + ); + , + if(pos==2, + out=out+"')"; + , + out=out+"'"; + ); + pos=0; + ); + ); + ); + , + forall(2..length(plotlist), + comp=plotlist_#; + if(isstring(comp), + pos=indexof(comp,"Assign("); + if(pos>0, + comp=substring(comp,6,length(comp)); + ); + out=out+"Assign("; + comp=replace(comp,".xy",""); + comp=replace(comp,".x","(1)"); + comp=replace(comp,".y","(2)"); + out=out+"'"+comp+"'"; + out=out+"),"; + ); + if(islist(comp), + forall(comp, + out=out+"'"+#+"',"; + ); + ); + ); + if(length(plotlist)>1, + out=substring(out,0,length(out)-1); + out=out+");"; + ); + ); + pos=[]; + forall(1..length(out), + tmp=indexof(substring(out,#-1,length(out)),"Assign"); + if(tmp>0, + tmp1=#-1+tmp; + if(length(pos)==0, + pos=[tmp1]; + , + if(pos_(length(pos))<tmp1, + pos=append(pos,tmp1); + ); + ); + ); + ); + if(length(pos)>0, + strL=[]; + Nj=0; + forall(pos, + tmp=substring(out,Nj,#-1); + strL=append(strL,tmp); + Nj=#-1; + ); + strL=append(strL,substring(out,Nj,length(out))); + out=""; + forall(strL, + if(indexof(#,"Assign")==0, + out=out+#; + , + tmp=indexof(#,"('"); + tmp1=indexof(#,"')"); + tmp2=substring(#,tmp+1,tmp1-2); + tmp3=substring(#,tmp1-2,length(#)); + if(indexof(tmp2,"=")==0, + out=out+#; + , + tmp=substring(tmp2,0,indexof(tmp2,"=")); + out=out+"'"+tmp+"'+"+"Assign('"; + tmp=substring(tmp2,indexof(tmp2,"="),length(tmp2)); + out=out+tmp+tmp3; + ); + ); + ); + ); + out2=""; // patched 16.01.21 from + nn=length(out); + flg=0; + forall(1..nn, + if(flg==0, + tmp=indexof(out,"='+Assign('"); + if(tmp==0, + out2=out2+out; + flg=1; + , + out2=out2+substring(out,0,tmp); + out=substring(out,tmp+10,length(out)); + tmp=indexof(out,"'"); // 16.04.19 from + tmp1=substring(out,0,tmp-1); + tmp2="1234567890"; + tmp=apply(1..length(tmp1), + indexof(tmp2,substring(tmp1,#-1,#))); + tmp=min(tmp); + if(tmp==0, // 16.04.19 upto + out2=out2+"'+Assign('"; + , + tmp=indexof(out,"'"); + out=substring(out,0,tmp)+substring(out,tmp+1,length(out)); // 16.04.18 upto + ); + ); + ); + ); + out2=replace(out2,"Dist=","D="); + out2=replace(out2,"Dis=","D="); + out2; +); + + +Rform(list):=( + regional(plotlist,comp,pos,out,strL,tmp,tmp1,tmp2,tmp3,Nj); + out=list; + out=replace(out,"[[[","list([["); + out=replace(out,"[","c("); + out=replace(out,"]",")"); + out=replace(out,".xy",""); + out=replace(out,".x","[1]"); + out=replace(out,".y","[2]"); + out; +); + +Defvar(varstr):=( + regional(name,value,tmp,tmp1); + parse(varstr); + tmp=indexof(varstr,"="); + name=substring(varstr,0,tmp-1); + value=substring(varstr,tmp,length(varstr)); + value=parse(value); + tmp1=select(1..length(VLIST),VLIST_#_1==name+"="); + if(length(tmp1)>0, + tmp=tmp1_1; + VLIST_tmp=[name+"=",value]; + , + VLIST=prepend([name+"=",value],VLIST); + ); +); + +Defvar(name,value):=( +//help:Defvar("a",0.3); + regional(tmp,tmp1); + if(islist(value), + tmp1="["; + forall(value, + tmp1=tmp1+format(#,5)+","; + ); + tmp1=substring(tmp1,0,length(tmp1)-1)+"]"; + , + tmp1=format(value,5); + ); + tmp=name+"="+tmp1; // 15.02.06 + parse(tmp); + VLIST=select(VLIST,#_1!=name+"="); // 15.02.08 + VLIST=prepend([name+"=",value],VLIST); +); + +Iftosci(strorg):=( // 16.06.10 + regional(str,ifL,ppL,cpL,kk,sL, + tmp,tmp1,tmp2,tmp3,tmp4); + str=replace(strorg,LFmark,""); + ifL=Indexall(str,"if("); + ppL=Bracket(str,"()"); + cpL=Indexall(str,","); + tmp1=Bracket(str,"[]"); + forall(1..(length(tmp1)/2),kk, + cpL=select(cpL,#<tmp1_(2*kk-1)_1%#_1>tmp1_(2*kk)_1); + ); + forall(1..length(ifL),kk, + tmp=select(ppL,#_1>ifL_kk); + tmp1=tmp_1; + tmp2=select(tmp,#_2==-tmp1_2); + tmp2=tmp2_1; + tmp3=select(cpL,#>tmp1_1 & #<tmp2_1); + ifL_kk=[tmp1_1,tmp2_1,tmp1_2,tmp3]; + ); + forall(1..length(cpL),kk, + tmp=select(1..length(ifL),contains(ifL_#_4,cpL_kk)); + tmp1=tmp_(length(tmp)); + cpL_kk=[cpL_kk,tmp1]; + ); + sL=apply(1..length(str),substring(str,#-1,#)); + forall(1..length(ifL),kk, + tmp1=ifL_kk_1; + tmp2=ifL_kk_2; + tmp=select(cpL,#_2==kk); + tmp3=apply(tmp,#_1); + sL_tmp1=" "; + sL_tmp2=";end;"; + sL_(tmp3_1)=" then,"; + if(length(tmp3)>1, + sL_(tmp3_2)=";else,"; + ); + ); + tmp=sum(sL); +); + +Fortosci(strorg):=( + regional(str,jj,var,tmp,tmp1,tmp2,tmp3,tmp4, + Out,repL,Pflg,Iflg,Cflg); + str=strorg; + repL=[]; + tmp1=Indexall(str,"forall"); + tmp2=Indexall(str,","); + forall(1..length(tmp1),jj, + tmp=select(tmp2,#>tmp1_jj); + var=substring(str,tmp_1,tmp_2-1); + tmp3=substring(str,tmp1_jj-1,tmp_2-1); + tmp=indexof(tmp3,"("); + tmp4=substring(tmp3,tmp,length(tmp3)); + tmp=indexof(tmp4,","); + tmp4=substring(tmp4,0,tmp-1); + tmp4="for "+var+"="+tmp4; + tmp4=replace(tmp4,"..",":"); + repL=concat(repL,[tmp3,tmp4]); + ); + forall(1..length(repL)/2, + str=replace(str,repL_(2*#-1),repL_(2*#)); + ); + tmp=Bracket(str); + tmp=select(tmp,#_2==0); + tmp=tmp_1_1; + tmp1=substring(str,tmp-1,length(str)); + tmp1=replace(tmp1,")",";end"); + str=substring(str,0,tmp-1)+tmp1; + str=replace(str,";;",";"); + str; +); + +Deffun(name,bodylist):=( +//help:Deffun("f(x)",["regional(y)","y=x^2*(x-3)","y"]); // 16.02.18 + regional(funstr,tmp,tmp1,str,Pos); + funstr=name+":=("; + forall(bodylist, + funstr=funstr+#+";"; + ); + funstr=funstr+");"; + parse(funstr); + tmp=bodylist_(length(bodylist)); + str="function "+tmp+"="+name+","; + forall(1..(length(bodylist)-1), + tmp1=bodylist_#; + tmp1=replace(tmp1,LFmark,"");// 16.05.26 + tmp1=replace(tmp1," ","");// 16.05.26 + Pos=indexof(tmp1,"regional")+indexof(tmp1,"local"); + if(Pos==0, + tmp=replace(tmp1,".xy",""); + tmp=replace(tmp,".x","(1)"); + tmp=replace(tmp,".y","(2)"); + if(indexof(tmp,"if(")>0, + tmp=iftosci(tmp); + ); + if(indexof(tmp,"forall(")>0, // 16.05.26from + tmp=Fortosci(tmp); + ); // 16.05.26upto + str=str+tmp+","; + ); + ); + str=str+"endfunction;"; + FUNLIST=append(FUNLIST,str); +); + +Windispg():=( + regional(Nj,Nk,Dt,Vj,tmp,tmp1,tmp2,tmp3,opcindy); + gsave(); + layer(KETPIClayer); + forall(GCLIST,Nj, + if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17 + if(islist(Dt) & length(Dt)>0, // 12.19,12.22 + tmp=MeasureDepth(Dt); + if(tmp==1,Dt=[Dt]); + opcindy=Nj_3; + if(Nj_2<0,tmp1=0,tmp1=Nj_2); + if(tmp1<10, + forall(Dt,Nk, +// tmp2=apply(Nk,if(ispoint(#),Lcrd(#),#)); +// tmp2=apply(tmp2,Pcrd(#)); + tmp2=Nk; // 14.12.04 + if(length(Nk)>1, + forall(2..length(Nk), + tmp3=textformat(Nk_[#-1,#],5); + tmp3=substring(tmp3,1,length(tmp3)-1); + if(tmp1==1,opcindy=opcindy+",dashpattern->[2,2]"); + tmp="draw("+tmp3+ + ",dashtype->"+text(tmp1)+",linecolor->"+KCOLOR+opcindy+")"; + parse(tmp); + ); + , + if(length(Nk)==1, + tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31 + parse(tmp); + ); + ); + ); + ); + ); + ); +// if(ADDAXES=="1", // 16.10.08from +// draw([XMIN,0],[XMAX,0],color->[0,0.2,0]); +// draw([0,YMIIN],[0,YMAX],color->[0,0.2,0]); +// Letter([[XMAX,0],"e","x",[0,YMAX],"n","y"]); +// Letter([[0,0],"sw","O"]); +// ); // 16.10.08upto + grestore(); + layer(0); +); +</script> + <script type="text/javascript"> +var cdy = CindyJS({ + scripts: "cs*", + use: ["katex"], + defaultAppearance: { + dimDependent: 0.7, + fontFamily: "sans-serif", + lineSize: 1, + pointSize: 5.0, + textsize: 12.0 + }, + angleUnit: "°", + geometry: [ + {name: "SW", type: "Free", pos: [-2.5744680851063833, -4.0, 0.8525536333742482], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "NE", type: "Free", pos: [4.0, 2.4285714285714284, 0.44032989855593035], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "A", type: "Free", pos: [0.0, -4.0, -0.8], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "B", type: "Free", pos: [-0.02366863905325444, -4.0, 0.9484028584281579], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "a", type: "Segment", color: [0.0, 0.0, 1.0], args: ["A", "B"], labeled: true}, + {name: "C", type: "PointOnSegment", pos: [0.011092747971205843, -4.0, -1.619421523013707], color: [1.0, 0.0, 0.0], args: ["a"], labeled: true}, + {name: "E", type: "Free", pos: [0.0, -4.0, 0.6666666666666666], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "F", type: "Free", pos: [4.0, -2.1818181818181817, 0.36363636363636365], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "b", type: "Segment", color: [0.0, 0.0, 1.0], args: ["E", "F"], labeled: true}, + {name: "G", type: "PointOnSegment", pos: [2.8117446133333335, -4.0, 0.6666666666666666], color: [1.0, 0.0, 0.0], args: ["b"], labeled: true}, + {name: "H", type: "Free", pos: [0.0, -4.0, 0.5714285714285714], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "K", type: "Free", pos: [4.0, -2.5454545454545454, 0.36363636363636365], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "c", type: "Segment", color: [0.0, 0.0, 1.0], args: ["H", "K"], labeled: true}, + {name: "L", type: "PointOnSegment", pos: [0.5714285714285715, -4.0, 0.5714285714285714], color: [1.0, 0.0, 0.0], args: ["c"], labeled: true}, + {name: "M", type: "Free", pos: [-2.0, -4.0, -1.0], color: [1.0, 0.0, 0.0], size: 2.0}, + {name: "Text3", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 0.29, 0.29], fillalpha: 0.27272728085517883, script: "Viewtex();", text: "Texview", textsize: 18.0, dock: {corner: "UL", offset: [76.0, -20.0]}}, + {name: "Text4", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 0.498, 0.0], fillalpha: 0.27272728085517883, script: "kc();", text: "Exekc", textsize: 18.0, dock: {corner: "UL", offset: [157.0, -20.0]}}, + {name: "Text1", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 1.0, 0.0], fillalpha: 0.27272728085517883, script: "if(length(Shellparent)>0,\n Makeshell(),Makebat();\n);\nWritetoSci(2);", text: "Parent", textsize: 18.0, dock: {corner: "UL", offset: [10.0, -20.0]}}, + {name: "Text0", type: "ToggleButton", color: [0.0, 0.0, 0.0], fillcolor: [0.0, 1.0, 1.0], fillalpha: 0.27272728085517883, script: "Mkketcindyjs();", text: "KeTJS", textsize: 18.0, dock: {corner: "UL", offset: [225.0, -20.0]}} + ], + ports: [{ + id: "CSCanvas", + width: 1052, + height: 584, + transform: [{visibleRect: [-9.745440419289913, 6.700770173058494, 16.50860137608266, -7.873716907262401]}], + axes: true, + grid: 1.0, + snap: true, + background: "rgb(168,176,192)" + }], + csconsole: false, + cinderella: {build: 1894, version: [2, 9, 1894]} +}); + </script> +</head> +<body> + <div id="CSCanvas"></div> +</body> +</html> diff --git a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js03gamow.cdy b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js03gamow.cdy Binary files differnew file mode 100755 index 00000000..2e926cd4 --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js03gamow.cdy diff --git a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js03gamowketcindy.html b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js03gamowketcindy.html new file mode 100644 index 00000000..3acb1b2c --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/js03gamowketcindy.html @@ -0,0 +1,6494 @@ +<!DOCTYPE html> +<html> +<head> + <meta charset="UTF-8"> + + <title>js03gamow.cdy</title> + <style type="text/css"> + * { + margin: 0px; + padding: 0px; + } + + #CSConsole { + background-color: #FAFAFA; + border-top: 1px solid #333333; + bottom: 0px; + height: 200px; + overflow-y: scroll; + position: fixed; + width: 100%; + } + </style> + <link rel="stylesheet" href="http://cindyjs.org/dist/v0.8/CindyJS.css"> + <script type="text/javascript" src="http://cindyjs.org/dist/v0.8/Cindy.js"></script> + <script type="text/javascript" src="http://cindyjs.org/dist/v0.8/KetCindyPlugin.js"></script> +<script id="csdraw" type="text/x-cindyscript"> +Fhead="js03gamow"; +Ketinit(); + +Changework(gethome()+"/Desktop"); + +rotate(points,th):=( + regional(pa,pb,za,zb,zr,deg); + pa=points_1; pb=points_2; + za=pa.x+pa.y*i; zb=pb.x+pb.y*i; + deg=pi/180*th; + zr=za+(zb-za)*(cos(deg)+i*sin(deg)); + [re(zr),im(zr)]; +); + +p1=rotate([A,C],90); +p2=rotate([B,C],-90); +Ds=0.5; +red="color->[1,0,0]"; + +Listplot([C,A]); +Listplot([C,B]); +Listplot("a",[A,p1]); +Listplot("b",[B,p2]); +Listplot("0",[p1,p2],[red]); +Pointdata("a",p1,[red,"Size=4"]); +Pointdata("b",p2,[red,"Size=4"]); +if(norm(C.xy-pc)>Ds, + ptsL=append(ptsL,[p1,p2]); + pc=C.xy; +); +forall(1..(length(ptsL)), + Listplot(text(#),ptsL_#,[red,"do"]); +); + +Windispg(); + +; +</script> +<script id="csinit" type="text/x-cindyscript"> +Ketinit():=Ketinit(1); +Ketinit(sy):=Ketinit(sy,[-5,5],[-5,5]); +Ketinit(sy,rangex,rangey):=( + regional(pt,tmp,tmp1,tmp2); + PenThickInit=8; + ULEN="1cm"; + KETPICLAYER=20; + MilliIn=1/2.54*1000; + PenThick=round(MilliIn*0.02); + PenThickInit=PenThick; + TenSizeInit=0.02; + TenSize=TenSizeInit; + YaSize=1; YaAngle=18; YaPosition=1; + YaThick=1; YaStyle='tf'; + KETPICCOUNT=1; + KCOLOR=[0,0,0]; + GLIST=[]; + GCLIST=[]; +// GDATALIST=[]; + GOUTLIST=[]; + POUTLIST=[]; + VLIST=[]; + FUNLIST=[]; + LETTERlist=[]; + COM0thlist=[]; + COM1stlist=[]; + COM2ndlist=[]; + SCIWRLIST=[]; + SCIRELIST=[]; + ADDAXES="1"; + LFmark=unicode("000a"); + Dq=unicode("0022"); + WaitUnit=10; + CONTINUED=0; + OutComList=[]; + OutFileLIst=[]; // 15.10.22 + FigPdfList=[]; // 16.04.08 + ADDPACK=[]; // 16.05.16 + ErrFlag=0; + setdirectory(Dirwork); + if(isstring(Fhead), // 15.04.06 + Fnametex=Fhead+".tex"; + Fnamesci=Fhead+".sce"; + Fnamescibody=Fhead+"body.sce"; + Fnameout=Fhead+".txt"; + ); + if(!isstring(Mackc),// 16.06.07 + Mackc="sh"; + ); + ArrowlineNumber=1; // 15.01.05 + ArrowheadNumber=1; + BezierNumber=1; //15.01.03 + SCALEX=1; + SCALEY=sy; +// Setscaling(sy); + XMIN=rangex_1/SCALEX; + XMAX=rangex_2/SCALEX; + YMIN=rangey_1/SCALEY; + YMAX=rangey_2/SCALEY; + Setwindow("Msg=n"); // 16.05.31 +); + +DqDq(str):=unicode("0022")+str+unicode("0022"); + +Tab2list(dtstr):=Tab2list(dtstr,[]); +Tab2list(dtstr,options):=( +//help:Tab2list(datastr); +//help:Tab2list(options=[0]); + regional(dtall,dt,rep,out,crm,lfm,htm,first,tmp,tmp1,tmp2); + crm=unicode("000d"); + lfm=unicode("000a"); + htm=unicode("0009"); + rep=0; + if(length(options)>0,rep=options_1); + first=lfm; // 16.09.05from + if(indexof(dtstr,crm)>0, + first=crm; + if(indexof(dtstr,crm+lfm)>0, + first=first+lfm; + ); // 16.09.05upto + ); + tmp1=Indexall(dtstr,first); + tmp1=prepend(0,tmp1); + tmp1=append(tmp1,length(dtstr)); + dtall=[]; + forall(1..(length(tmp1)-1), + tmp=substring(dtstr,tmp1_#,tmp1_(#+1)-1); + if(length(tmp)>0, + dtall=append(dtall,tmp); + ); + ); + out=[]; + forall(dtall,dt, + tmp1=tokenize(dt,unicode("0009")); + tmp2=[]; + forall(tmp1, + if(isstring(#),tmp=parse(#),tmp=#); + if(!isreal(tmp), + if(length(#)>0,tmp=#,tmp=rep); + ); + tmp2=append(tmp2,tmp); + ); + out=append(out,tmp2); + ); + out; +); + +Columnlist(dt,list):=( // 16.09.04 +//help:Columnlist(dt,1..3); + apply(dt,#_list); +); + +Dispmat(dt):=( // 16.09.16 +//help:Dispmat(dt); + regional(htm,crm,lfm,row,tmp,tmp1,tmp2); + htm=unicode("0009"); + crm=unicode("000d"); + lfm=unicode("000a"); + tmp2=""; + forall(dt,row, + tmp1=""; + forall(row, + if(isstring(#), + tmp1=tmp1+#+htm; + , + tmp1=tmp1+text(#)+htm; + ); + ); + tmp1=substring(tmp1,0,length(tmp1)-1); + tmp1=tmp1+lfm; + tmp2=tmp2+tmp1; + ); + print(tmp2); + println(); +); + +norm(v1):=( // 16.09.01 +//help:norm([2,1,3]); + regional(out,tmp,tmp1,tmp2); + out=0; + forall(1..length(v1), + out=out+(v1_#)^2; + ); + out=sqrt(out); + out; +); +norm(v1,v2):=( + norm(v2-v1); +); + +// 16.03.28 +Removespace(str):=( +//help:Removespace(" a b c "); + regional(tmp,flg,out); + tmp=length(str)+1; + flg=0; + forall(1..length(str), + if(flg==0, + if((str_#)!=" ", + tmp=#; + flg=1; + ); + ); + ); + out=substring(str,tmp-1,length(str)); + flg=0; + tmp=0; + forall(reverse(1..length(out)), + if(flg==0, + if((out_#)!=" ", + tmp=#; + flg=1; + ); + ); + ); + out=substring(out,0,tmp); +); + +Indexall(str,key):=( + regional(rest,out,flg,tmp,tmp1,); + out=[]; + rest=str; + flg=0; + forall(1..length(str), + if(flg==0, + tmp=indexof(rest,key); + if(tmp>0, + tmp1=tmp+length(str)-length(rest); + out=append(out,tmp1); + rest=substring(rest,tmp,length(rest)); + , + flg=1; + ); + ); + ); + out; +); + +Changestyle(nameL,style):=( +//help:Changestyle(["sgAB"],["da"]); + regional(nmL,name,Ltype,Ltypeorg,Noflg,opcindy,tmp); + tmp=Divoptions(style); + Ltypeorg=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + if(islist(nameL),nmL=nameL,nmL=[nameL]); + forall(nmL,name, + Ltype=Ltypeorg; + GCLIST=select(GCLIST,#_1!=name); + COM2ndlist=select(COM2ndlist,indexof(#,"("+name)==0); // 15.05.23 + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + ); +); + +Op(n,object):=( // 16.05.25 +//help:Op(4,[1,2,3,4]); +//help:Op(3,"abcd"); + regional(out); + if(islist(object), + out=object_n; + , + if(isstring(object), + out=substring(object,n-1,n); + ); + ); + out; +); + +Toupper(str):=( + regional(alphabet,out,tmp,tmp1); + alphabet="abcdefghijklmnopqrstuvwxyz"; + out=""; + forall(1..length(str), + tmp=substring(str,#-1,#); + tmp1=indexof(alphabet,tmp); + if(tmp1>0, + out=out+unicode(text(tmp1+64),base->10); + , + out=out+tmp; + ); + ); + out; +); + +Textformat(value,dig):=( +//help:Textformat(2/3,4); +//help:Textformat([gr1,gr2],5); + regional(vv,tmp,tmp1); + if(islist(value), + tmp1="["; + forall(value, + tmp1=tmp1+Textformat(#,dig)+","; + ); + tmp1=substring(tmp1,0,length(tmp1)-1)+"]"; + , + if(ispoint(value) % isstring(value), +// vv=Lcrd(value); +// tmp1=Textformat(vv,dig); +// tmp1=text(value); // 15.04.07 + if(isstring(value),tmp1=Dq+value+Dq,tmp1=text(value)); // 15.10.02 + , + tmp1=format(value,dig); + ); + ); + tmp1; +); + +Sprintf(value,dig):=( +//help:Sprintf(5.1,4); + regional(vv,tmp,tmp1); + if(!islist(value), + vv=Textformat(value,dig); + if(indexof(vv,".")==0,vv=vv+"."); + vv=vv+"0000000000000000"; + tmp=indexof(vv,".")+dig; + vv=substring(vv,0,tmp); + , + vv=apply(value,Sprintf(#,dig)); + ); + vv; +); + +Assign(funstr,vrL):=( + regional(nn,out,tmp,tmp1); + nn=length(vrL)/2; + out=funstr; + forall(1..nn, + out=Assign(out,vrL_(2*#-1),vrL_(2*#)); + ); + out; +); + +Assign(funstr,varname,rep):=( +//help:Assign("x^2+a*x","a",1.3); +//help:Assign("a*x^2+b*x",["a",1,"b",2]); + regional(repstr,ii,jj,tmp,tmp1,tmp2,Notvar,Flg); + if(isstring(rep),repstr=rep,repstr="("+Textformat(rep,5)+")"); // 15.02.09, 07.06 + tmp=[46]; // 12.20 + tmp=concat(tmp,48..57); + tmp=concat(tmp,65..90); + tmp=concat(tmp,97..122); + Notvar=apply(tmp,unicode(text(#),base->10)); + tmp2=""; + forall(1..100, + ii=indexof(funstr,varname); + if(ii>0, + Flg=0; + if(ii>1, + tmp=substring(funstr,ii-2,ii-1); + if(contains(Notvar,tmp), + tmp2=tmp2+substring(funstr,0,ii); + funstr=substring(funstr,ii,length(funstr)); + Flg=1; + ); + ); + if(Flg==0, + jj=ii-1+length(varname); + if(jj<length(funstr), + tmp=substring(funstr,jj,jj+1)); + if(contains(Notvar,tmp), + tmp2=tmp2+substring(funstr,0,jj); + funstr=substring(funstr,jj,length(funstr)); + Flg=1; + ); + ); + if(Flg==0, + tmp2=tmp2+substring(funstr,0,ii-1)+repstr; + funstr=substring(funstr,jj,length(funstr)); + ); + ); + ); + funstr=tmp2+funstr; + funstr; +); + +MeasureDepth(list):=( + regional(tmp,Depth,Flg); + Flg=0; + Depth=0; + if(ispoint(list), // 15.01.22 + Depth=0; + Flg=1; + , + tmp=list_1; + ); + repeat(4, + if(Flg==0, + if(islist(tmp), + tmp=tmp_1; + Depth=Depth+1; + , + if(ispoint(tmp),Depth=Depth+1); + Flg=1; + ); + ); + ); + Depth; +); + +Flattenlist(pltlist):=( +//help:Flattenlist([[2,3],[[1,2],[5,6]]]); + regional(Out,nn,Dt,ii,tmp,flg); + Out=[]; + if(MeasureDepth(pltlist)==1, + Out=[pltlist]; + , + forall(1..length(pltlist),nn, + Dt=pltlist_nn; + if(MeasureDepth(Dt)<2, + Out=append(Out,Dt); + , + forall(1..length(Dt),ii, + tmp=Flattenlist(Dt_ii); + Out=concat(Out,tmp); + ); + ); + ); + ); + Out; +); + +Divoptions(options):=( +//help:Divoptions(options); + regional(Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy,flg,tmp,tmp1); + Ltype="dr"; // 2015.01.13 + Noflg=0; + Inflg=0; + Outflg=0; + eqL=[]; + realL=[]; + strL=[]; + opstr=""; + opcindy=""; + forall(options, + flg=0; + if(flg==0, + if(isreal(#) % ispoint(#) % islist(#), + realL=append(realL,#); + opstr=opstr+","+text(#); + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"=")>0, + eqL=append(eqL,#); + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"no")+indexof(#,"No")>0, + if(indexof(#,"tex")>0,Noflg=1); + if(indexof(#,"disp")>0,Noflg=2); + if(indexof(#,"data")>0,Noflg=3); + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"->")>0, + opcindy=opcindy+","+#; + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"out")+indexof(#,"Out")>0, + if(indexof(#,"-")==0, + Outflg=1; + , + Outflg=2; + ); + flg=1; + ); + ); + if(flg==0, + if(indexof(#,"in")+indexof(#,"In")>0, + if(indexof(#,"-")==0, + Inflg=1; + , + Inflg=2; + ); + flg=1; + ); + ); + if(flg==0, + tmp=substring(#,0,2); + tmp1=indexof(tmp,"dr")+indexof(tmp,"Dr"); + tmp1=tmp1+indexof(tmp,"da")+indexof(tmp,"Da"); + tmp1=tmp1+indexof(tmp,"id")+indexof(tmp,"Id"); + tmp1=tmp1+indexof(tmp,"do")+indexof(tmp,"Do"); + tmp1=tmp1+indexof(tmp,"dp")+indexof(tmp,"Dp"); + if(tmp1>0, + Ltype=#; + flg=1; + ); + if(flg==0, + strL=append(strL,#); + opstr=opstr+","+Dq+#+Dq; + ); + ); + ); + if(indexof(opcindy,"color->")==0,// 16.10.07from + opcindy=opcindy+",color->[0,0,0]"; + ); + [Ltype,Noflg,Inflg,Outflg,eqL,realL,strL,opstr,opcindy]; +); + +Dotprod(vec1,vec2):=( +//help:Dotprod(vec1,vec2); + regional(v1,v2,tmp); + if(ispoint(vec1),v1=vec1.xy,v1=vec1); + if(ispoint(vec2),v2=vec2.xy,v2=vec2); + v1*v2; +); + +Crossprod(a,b):=( +//help:Crossprod(vec1,vec2); + regional(tmp1,tmp2,tmp3,Out); + if(length(a)==3, + tmp1=a_2*b_3-a_3*b_2; + tmp2=a_3*b_1-a_1*b_3; + tmp3=a_1*b_2-a_2*b_1; + Out=[tmp1,tmp2,tmp3]; + , + Out=a_1*b_2-a_2*b_1; + ); + Out; +); + +Ptstart(Fig):=( +//help:Ptstart("gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.21 + tmp_1; +); + +Ptend(Fig):=( +//help:Ptend("gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); + tmp_(length(tmp)); // 15.04.12 +); + +Numptcrv(Fig):=( +//help:Numptcrv("gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 15.12.23 + length(tmp); +); + +Ptcrv(Num,Fig):=( +//help:Ptcrv(10,"gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); + tmp_Num; +); + +Invert(Fig):=( +//help:Invert("gr1"); + regional(tmp); + if(isstring(Fig),tmp=parse(Fig),tmp=Fig); // 16.01.27 + reverse(tmp); +); +Invert(nm,Fig):=Invert(nm,Fig,["nodisp"]); // from 16.01.27 +Invert(nm,Fig,options):=( +//help:Invert("1","gr1"); + regional(name,tmp); + name="-inv"+nm; + tmp=Invert(Fig); + Listplot(name,tmp,options); +);// upto 16.01.27 + +Paramoncrv(pP,Gdata):=( + regional(Tmp,PtL); +// Eps=10^(-8); + if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata); + Tmp=Nearestpt(pP,PtL); + Tmp_2; +); + +ParamonCurve(pP,nN,plist):=( +//help:ParamonCurve(A,10,"gr1"); + regional(PtL,Out,Pa,Pb,vV,vW,sS); + if(isstring(plist),PtL=parse(plist),PtL=plist); + PtL=apply(PtL,LLcrd(#));//16.10.16 + if(nN==length(PtL), + Out=nN; + , + Pa=PtL_nN; + Pb=PtL_(nN+1); + vV=Pb-Pa; + vW=pP-Pa; + sS=vV*vW/|vV|^2; + sS=min([max([sS,0]),1]); + Out=nN+sS; + ); + Out; +); + +Pointoncrv(tT,PtL):=PointonCurve(tT,PtL); +PointonCurve(tT,Gdata):=( +//help:PointonCurve(20.5,"gr1"); + regional(Out,Eps,nN,sS,Pa,Pb,PtL); + if(isstring(Gdata),PtL=parse(Gdata),PtL=Gdata); + if(length(PtL)==1,PtL=PtL_1); + Eps=10^(-4); + nN=floor(tT+Eps); + sS=max([tT-nN,0]); + if(nN==length(PtL), + Out=PtL_nN; + , + Pa=PtL_nN; + Pb=PtL_(nN+1); + Out=(1-sS)*Pa+sS*Pb; + ); + Out; +); + +Koutenseg(pA,pB,pC,pD):=Koutenseg(pA,pB,pC,pD,[]); +Koutenseg(pA,pB,pC,pD,options):=( + regional(Eps0,Eps,Eps2,pV,Sv2,Out,pP,pQ,Flg,p1,p2,q1,q2, + em1,eM1,em2,eM2,rT,Tmp1,Tmp2); + Eps0=10^(-4); + pV=pB-pA; + Sv2=|pV|; + pP=pC-pA; pQ=pD-pA; + Eps=10^(-3); + Eps2=0.2; + Tmp1=0; + forall(options, + if(Tmp1==0, + Eps=#; + Tmp1=1; + , + Eps2=#; + ); + ); + Flg=0; + if(Sv2<10^(-3), + Out=["inf","inf"]; + Flg=1; + ); + if(Flg==0, + Eps=min([Eps2,Eps/Sv2]); + p1=pP*pV/Sv2^2; + p2=[pP_2,-pP_1]*pV/Sv2^2; + q1=pQ*pV/Sv2^2; + q2=[pQ_2,-pQ_1]*pV/Sv2^2; + em1=-Eps; eM1=1+Eps; + em2=-Eps; eM2=Eps; + if(max([p1,q1])<em1 % min([p1,q1])>eM1, + Out=["inf","inf"]; + Flg=1; + ); + if(max([p2,q2])<em2 % min([p2,q2])>eM2, + Out=["inf","inf"]; + Flg=1; + ); + ); + if(Flg==0 & p2*q2<0, + rT=p1-(q1-p1)/(q2-p2)*p2; + if(rT>em1 & rT<eM1, + if(rT>-Eps0 & rT<1+Eps0, + Tmp1=pA+rT*pV; + Tmp2=min([max([rT,0]),1]); + Out=[Tmp1,Tmp2,0]; + , + Tmp1=pA+rT*pV; + Tmp2=min([max([rT,0]),1]); + Out=[Tmp1,Tmp2,1]; + ); + Flg=1; + ); + if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2), + if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2, + Out=["inf","inf"]; + Flg=1; + ); + if(Flg==0, + rT=min([max([p1,0]),1]); + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,1]; + Flg=1; + ); + ); + ); + if(Flg==0 & (p1 > -Eps0 & p1 < 1 + Eps0 & p2 > -Eps0 & p2 < Eps0), + rT= p1; + Tmp1=pA+rT*pV; + Out= [Tmp1, rT, 0]; + Flg=1; + ); + if(Flg==0 & (q1 > -Eps0 & q1 < 1 + Eps0 & q2 > -Eps0 & q2 < Eps0), + rT= q1; + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,0]; + Flg=1; + ); + if(Flg==0 & (p1<em1 % p1>eM1 % p2<em2 % p2>eM2), + if(q1<em1 % q1>eM1 % q2<em2 % q2>eM2, + Out=["inf","inf"]; + Flg=1; + ); + if(Flg==0, + rT=min([max([q1,0]),1]); + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,1]; + Flg=1; + ); + ); + if(Flg==0 & (q1<em1 % q1>eM1% q2<em2 % q2>eM2), + rT=min([max([p1,0]),1]); + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,1]; + Flg=1; + ); + if(Flg==0, + if(abs(p2)<abs(q2), + rT=min([max([p1,0]),1]); + , + rT=min([max([q1,0]),1]); + ); + Tmp1=pA+rT*pV; + Out=[Tmp1,rT,1]; + ); + Out; +); + +IntersectcrvsPp(Gr1,Gr2):=IntersectcrvsPp(Gr1,Gr2,[]); +IntersectcrvsPp(Gr1,Gr2,options):=( +//help:IntersectcrvsPp("gr1","pa1"); + regional(Out,Eps,Eps2,Eps0,Flg,Data1,Data2, + Tmp1,Tmp2,Tmp3,Tmp,KL1,KL2,pA,pB,Ni,Nj, + pP,pQ,rT,Flg,eqL,realL,opstr,Dif); + Eps=10^(-4); + Eps2=0.1; + Dif=0.05; // 2015.05.31 + Flg=0; + Tmp1=Divoptions(options); // + eqL=Tmp1_5; + realL=Tmp1_6; + opstr=Tmp1_(length(Tmp1)); + forall(eqL, + if(substring(#,0,1)=="D", + Tmp1=indexof(#,"="); + Dif=parse(substring(#,Tmp1,length(#))); + ); + ); + Tmp1=length(realL); + if(Tmp1>0, + Eps=realL_1; + if(Tmp1>1, + Eps2=realL_2; + ); + ); + Flg=0; + if(isstring(Gr1),Data1=parse(Gr1),Data1=Gr1); + if(isstring(Gr2),Data2=parse(Gr2),Data2=Gr2); + if(MeasureDepth(Data1)==2,Data1=Data1_1); + if(MeasureDepth(Data2)==2,Data2=Data2_1); + Data1=apply(Data1,LLcrd(#)); + Data2=apply(Data2,LLcrd(#)); + if(length(Data1)==length(Data2), + Tmp1=Reverse(Data2); + Eps0=10^(-6); + Tmp2=0; + forall(1..length(Data1), + Tmp2=Tmp2+abs(Data1_#-Data2_#); + ); + Tmp3=0; + forall(1..length(Data1), + Tmp3=Tmp3+abs(Data1_#-Tmp1_#); + ); + if(Tmp2<Eps0 % Tmp3<Eps0, + Out=[]; + Flg=1; + ); + ); + if(Flg==0, + KL1=[]; + KL2=[]; + forall(1..(length(Data1)-1),Ni, + pA=Data1_Ni; + pB=Data1_(Ni+1); + forall(1..(length(Data2)-1), + pP=Data2_#; pQ=Data2_(#+1); + Tmp=Koutenseg(pA,pB,pP,pQ,[Eps,Eps2]); + if(Tmp!=["inf","inf"], + if(Tmp_3==0, + Tmp1=[Tmp_1,Tmp_2,Ni,#]; + KL1=concat(KL1,[Tmp1]); + , + Tmp2=[Tmp_1,Tmp_2,Ni,#]; + KL2=concat(KL2,[Tmp2]); + ); + ); + ); + ); + Out=[]; + if(length(KL1)>0, + Tmp=KL1_1; + pP=Tmp_1; + rT=Tmp_2; + Ni=Tmp_3; + Nj=Tmp_4; + Tmp=[pP,Ni+rT,Nj]; + Out=[Tmp]; + ); + forall(2..length(KL1),Ni, + Tmp=KL1_Ni; + pP=Tmp_1; + Tmp2=0; + Flg=0; + forall(1..length(Out),Nj, + if(Flg==0, + Tmp=Out_Nj; + if(|pP-Tmp_1|<Eps, + Tmp2=1; + Flg=1; + ); + ); + ); + if(Tmp2==0, + Tmp=KL1_Ni; + pP=Tmp_1; + rT=Tmp_2; + Tmp1=Tmp_3; + Tmp2=Tmp_4; + Tmp=[pP,Tmp1+rT,Tmp2]; + Out=concat(Out,[Tmp]); + ); + ); + forall(1..length(KL2),Ni, + Tmp=KL2_Ni; // 15.11.21 Usui + pP=Tmp_1; + Tmp2=0; + Flg=0; + forall(1..length(Out),Nj, + if(Flg==0, + Tmp=Out_Nj; + if(|pP-Tmp_1|<Eps, + Tmp2=1; + Flg=1; + ); + ); + ); + if(Tmp2==0, + Tmp=KL2_Ni; + rT=Tmp_2; + rT=min([max([rT,0]),1]); // 15.11.21 Usui + Tmp=[pP,Tmp_3+rT,Tmp_4]; + Out=concat(Out,[Tmp]); + ); + ); + ); + Tmp1=Out; // 15.04.06 from + Out=[]; + forall(Tmp1,Tmp2, + Tmp3=select(1..(length(Out)),|Out_#_1-Tmp2_1|<Dif);//16.11.27 + if(length(Tmp3)==0, + Out=append(Out,Tmp2); + , + forall(Tmp3,//16.11.27 + Out_#=(Out_#+Tmp2)/2; + ); + ); + ); // 15.04.06 upto + Out; +); + +Intersectcrvs(Gr1,Gr2):=Intersectcrvs(Gr1,Gr2,[]); +//help:Intersectcrvs("gr1","pa1"); +Intersectcrvs(Gr1,Gr2,options):=( + regional(tmp,tmp1,tmp2); + tmp1=IntersectcrvsPp(Gr1,Gr2,options); + apply(tmp1,#_1); +); + +NearestptcrvPhy(point,PL):=( + regional(tmp,pP,plist); + pP=Pcrd(point); + if(isstring(PL),plist=parse(PL),plist=PL); + if(MeasureDepth(plist)==2,plist=plist_1); + plist=apply(plist,#); // 14.12.18 + tmp=Nearestpt(pP,plist); + tmp=tmp_1; + [tmp_1/SCALEX,tmp_2/SCALEY]; +); + +Nearestptcrv(point,plist):=( +//help:Nearestptcrv(A,"gr1"); + regional(tmp); + tmp=Nearestpt(point,plist); + tmp_1; +); + +Nearestpt(point,PL2):=( + regional(PL1,PL,Ans,Flg,Eps,pA,Pm,Im,Sm,Nn,Ni, + a1,b1,a2,b2,v1,v2,x1,x2,Tmp,rT,pP,sS,Lm,Pm,Sm,Flg); +//help:Nearestpt("gr1","gr2"); + if(isstring(point),PL1=parse(point),PL1=point); + if(MeasureDepth(PL1)==2,PL1=PL1_1); + if(!islist(PL1_1), + PL1=[PL1]; + Flg=0; + , + Flg=1; + ); + if(isstring(PL2),PL=parse(PL2),PL=PL2); + if(MeasureDepth(PL)==2,PL=PL_1); + Eps=10^(-6); + Ans=[PL1_1,1,PL_1,1,|PL1_1-PL_1|]; + forall(1..length(PL1),Nn, // 16.05.04 + pA=PL1_Nn; + Pm=PL_1; + Im=1; + Sm=|Pm-pA|; + forall(1..(length(PL)-1),Ni, + a1=PL_Ni_1; a2=PL_Ni_2; + b1=PL_(Ni+1)_1; b2=PL_(Ni+1)_2; + v1=b1-a1; v2=b2-a2; + x1=pA_1; x2=pA_2; + Tmp=v2^2+v1^2; + if(abs(Tmp)>Eps, + rT=(-a2*v2-v1*a1+v1*x1+x2*v2)/Tmp; + if(rT<-Eps, + pP=[a1,a2]; + , + if(rT>1+Eps, + pP=[b1,b2]; + , + pP=[a1+rT*v1,a2+rT*v2]; + ); + ); + sS=|pP-pA|; + if(sS<Sm-Eps, + Tmp=ParamonCurve(pP,Ni,PL); + Pm=pP; Lm=Tmp; Sm=sS; + ); + ); + if(Sm<Ans_5, // 16.05.03from + Ans=[pA,Nn,Pm,Lm,Sm]; + ); + ); // 16.05.03upto + ); + if(Flg==0, + Ans=Ans_(3..5); + ); + Ans; +); + +Derivative(fun,var,value):=( +//help:Derivative("x^3","x",2); + regional(str,tmp); + str="d("; + str=str+replace(fun,var,"#")+","; + str=str+value+")"; + tmp=Pcrd([1,parse(str)]); // 14.11.08 + tmp_2; +); + +Integrate(pltdata,range):=Integrate(pltdata,range,[]); +Intergrate(Arg1,Arg2,Arg3):=( + regional(pltdata,range,options,fnstr,vartr); + if(islist(Arg2), + pltdata=Arg1; + range=Arg2; + options=Arg3; + Integrate(pltdata,range,options); + , + fnstr=Arg1; + vastr=Arg2; + range=Arg3; + Integrate(fnstr,vastr,range,[]); + ); +); + +Integrate(pltdata,range,options):=( +//help:Integrate("gr1",[1,3]); +//help:Integrate("gr1",[1,3],["Rule=t"]); + regional(tmp,tmp1,eqL,Rule,pdata,Sm,ptP,ptQ,list,va1,va2); + tmp=Divoptions(options); + eqL=tmp_5; + Rule="o"; + forall(eqL, + if(Toupper(substring(#,0,1))=="R", + tmp=indexof(#,"="); + Rule=substring(#,tmp,tmp+1); + ); + ); + if(Rule=="o", + Sm= IntegrateO(pltdata,range); + , + if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata); + if(MeasureDepth(pdata)==2,pdata=pdata_1); + va1=MeetCurve(pdata,range_1,0); + va2=MeetCurve(pdata,range_2,0); + list=select(pdata,(#_1>range_1 & #_1<range_2)); + list=apply(list,LLcrd(#)); // 15.09.14 + list=concat([va1],list); + list=concat(list,[va2]); + Sm=0; + forall(1..(length(list)-1), + ptP=list_#; // 15.09.14 + ptQ=list_(#+1); + Sm=Sm+(ptP_2+ptQ_2)*(ptQ_1-ptP_1)/2; + ); + Sm; + ); +); + +Integrate(fnstr,vastr,range,options):=( +//help:Integrate("sin(x)","x",[0,pi],["Num=100","Rule=s"]); + regional(tmp,tmp1,Sm,Lx,Rx,va1,va2,Num,Waysx,ex,dx,xn,yn,x0,x1,x2,y0,y1,y2); + Num=100; + Way="t"; + forall(options, + if(indexof(#,"=")>0, + if(indexof(#,"N=")>0, + Num=parse(substring(#,indexof(#,"="),length(#))); + ); + if(indexof(#,"Num=")>0, + Num=parse(substring(#,indexof(#,"="),length(#))); + ); + if(Toupper(substring(#,0,1))=="R", + tmp=indexof(#,"="); + Way=substring(#,tmp,tmp+1); + ); + ); + ); + Sm=0; + if(Way=="t", + forall(1..Num, + Lx=range_1+(range_2-range_1)*(#-1)/Num; + Rx=range_1+(range_2-range_1)*#/Num; + va1=parse(replace(fnstr,vastr,textformat(Lx,5))); + va2=parse(replace(fnstr,vastr,textformat(Rx,5))); + Sm=Sm+(va1+va2)*(Rx-Lx)/2; + ); + , + sx=range_1; + ex=range_2; + dx=(ex-sx)/Num; + xn=apply(0..Num,sx+#*dx); + yn=apply(xn,parse(replace(fnstr,vastr,textformat(#,5)))); + dx=dx/2; + repeat(Num,s, + x0=xn_s; + x1=(xn_s+xn_(s+1))/2; + x2=xn_(s+1); + y0=yn_s; + y1=parse(replace(fnstr,vastr,textformat(x1,5))); + y2=yn_(s+1); + Sm=Sm+dx*(y0+4*y1+y2)/3; + ); + ); + Sm; +); + +IntegrateO(p0org,p1org,p2org,p3org):=( + regional(p0,p1,p2,p3,pQ,pR,cc,p01,p02, + p11,p12,p21,p22,p31,p32, tmp); + if(ispoint(p0org),p0=p0org.xy,p0=p0org); // 16.03.10 + if(ispoint(p1org),p1=p1org.xy,p1=p1org); // 16.03.16 + if(ispoint(p2org),p2=p2org.xy,p2=p2org); + if(ispoint(p3org),p3=p3org.xy,p3=p3org); + tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2); + cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp; + pQ=p1+cc*(p2-p0); + pR=p2+cc*(p1-p3); + p01=p1_1; p02=p1_2; + p31=p2_1; p32=p2_2; + p11=pQ_1; p12=pQ_2; + p21=pR_1; p22=pR_2; + tmp=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11- + 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11- + 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01- + 6*p32*p21+10*p32*p31; + tmp=tmp/20; +); +IntegrateO(pltdata,rangeorg):=( +//help:IntegrateO("gr1",[0,2]); + regional(tmp,tmp1,tmp2,pdata,va1,va2,list,Bzk,Bzc,range,pmflg, + Sm,p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32); + if(isstring(pltdata),pdata=parse(pltdata),pdata=pltdata); + if(MeasureDepth(pdata)==2,pdata=pdata_1); + range=rangeorg; + pmflg=1; + if(range_2<range_1, + range=reverse(range); + pmflg=-1; + ); + va1=MeetCurve(pdata,range_1,0); + va2=MeetCurve(pdata,range_2,0); + list=select(pdata,(#_1>range_1 & #_1<range_2)); + if((length(list)>0) & (list_1_1>list_(length(list))_1), + list=reverse(list); +// pmflg=pmflg*(-1); + ); + list=apply(list,LLcrd(#)); + list=concat([va1],list); + list=concat(list,[va2]); + Sm=0; + forall(1..(length(list)-1), + p1=list_#; + p2=list_(#+1); + if(#==1 % #==length(list)-1, + tmp1=(p1_2+p2_2)*(p2_1-p1_1)/2; + Sm=Sm+tmp1; + , + p0=list_(#-1); + p3=list_(#+2); + tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2); + cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp; + pQ=p1+cc*(p2-p0); + pR=p2+cc*(p1-p3); + p01=p1_1; p02=p1_2; + p31=p2_1; p32=p2_2; + p11=pQ_1; p12=pQ_2; + p21=pR_1; p22=pR_2; + tmp1=-6*p12*p01+3*p12*p21+3*p12*p31+6*p02*p11- + 10*p02*p01+3*p02*p21+p02*p31-3*p22*p11- + 3*p22*p01+6*p22*p31-3*p32*p11-p32*p01- + 6*p32*p21+10*p32*p31; + tmp1=tmp1/20; + Sm=Sm+tmp1; + ); + ); + if(pmflg==-1, + Sm=-Sm; + ); + Sm; +); + +Findarea(pdstr):=( +//help:Findarea("sgABCA"); + regional(pd,p1,p2,s,tmp); + if(isstring(pdstr),pd=parse(pdstr),pd=pdstr); + s=0; + forall(1..(length(pd)-1), + p1=Lcrd(pd_#); + p2=Lcrd(pd_(#+1)); + tmp=(p1_2+p2_2)*(p2_1-p1_1)/2; + s=s+tmp; + ); + if(s<0,s=-s); + s; +); + +Findarea(pdstr):=( // 15.11.27 +//help:Findarea("cr1"); + regional(pd,p0,p1,p2,p3,s,tmp); + if(isstring(pdstr),pd=parse(pdstr),pd=pdstr); + s=0; + forall(1..(length(pd)-1), + p1=pd_#; + p2=pd_(#+1); + if(#==1,p0=pd_(length(pd)-1),p0=pd_(#-1)); + if(#==length(pd)-1,p3=pd_2,p3=pd_(#+2)); + tmp=IntegrateO(p0,p1,p2,p3); + s=s+tmp; + ); + if(s<0,s=-s); + s; +); + +Findlength(pdstr):=( +//help:Findlength("gr1"); + regional(pd,p1,p2,s,tmp); + if(isstring(pdstr),pd=parse(pdstr),pd=pdstr); + s=0; + forall(1..(length(pd)-1), + p1=Lcrd(pd_#); + p2=Lcrd(pd_(#+1)); + tmp=|p2-p1|; + s=s+tmp; + ); + s; +); + +Inversefun(fnstr,rngstr,value):=( + regional(tmp,varstr,range,x1,x2,x3,va1,va2); + tmp=indexof(rngstr,"="); + varstr=substring(rngstr,0,tmp-1); + range=parse(substring(rngstr,tmp,length(rngstr))); + x1=range_1; x2=range_2; + repeat(15, + x3=(x1+x2)/2; + va1=parse(replace(fnstr,varstr,textformat(x1,5))); + va2=parse(replace(fnstr,varstr,textformat(x3,5))); + if((va1>value & va2>value) % (va1<value & va2<value), + x1=x3; + , + x2=x3; + ); + ); + va1=parse(replace(fnstr,varstr,textformat(x1,5)))-value; + va2=parse(replace(fnstr,varstr,textformat(x2,5)))-value; + if(x1==range_1 % x2==range_2, + println("not found in ("+textformat(range_1,5) + +","+textformat(range_2,5)+")"); + ); + if(abs(va1)<=abs(va2),x1,x2); +); + +Lcrd(pt):=( + regional(tmp); + if(ispoint(pt), + tmp=[pt.x/SCALEX,pt.y/SCALEY]; + , + tmp=pt; + ); + tmp; +); + +Pcrd(pt):=( + regional(tmp); + if(ispoint(pt), + tmp=re(pt.xy); // 15.07.24 + , + tmp=[pt_1*SCALEX,pt_2*SCALEY]; + ); + tmp; +); + +LLcrd(pt):=( + regional(tmp); + if(ispoint(pt), + tmp=pt.xy + , + tmp=pt; + ); + tmp=[tmp_1/SCALEX,tmp_2/SCALEY]; + tmp; +); + +Doscaling(pltdata):=( + regional(Level,Out,gL,gr,tmp); + if(ispoint(pltdata) % isreal(pltdata_1), + gL=[[pltdata]]; + Level=0; + , + if(ispoint(pltdata_1) % isreal(pltdata_1_1), + gL=[pltdata]; + Level=1; + , + gL=pltdata; + Level=2; + ); + ); + Out=[]; + forall(gL,gr, + tmp=apply(gr,Lcrd(#)); + tmp=apply(tmp,LLcrd(#)); + Out=concat(Out,[tmp]); + ); + if(Level==0, + Out=Out_1_1; + ); + if(Level==1, + Out=Out_1; + ); + Out; +); + +Unscaling(pltdata):=( + regional(Level,Out,gL,gr,tmp); + if(ispoint(pltdata) % isreal(pltdata_1), + gL=[[pltdata]]; + Level=0; + , + if(ispoint(pltdata_1) % isreal(pltdata_1_1), + gL=[pltdata]; + Level=1; + , + gL=pltdata; + Level=2; + ); + ); + Out=[]; + forall(gL,gr, + tmp=apply(gr,Lcrd(#)); + tmp=apply(tmp,LLcrd(#)); + Out=concat(Out,[tmp]); + ); + if(Level==0, + Out=Out_1_1; + ); + if(Level==1, + Out=Out_1; + ); + Out; +); + +Definecolor(name,data):=( +//help:Definecolor("mycolor",[1,1,1,0]); + regional(type,tmp); + if(length(data)>3,type="cmyk",type="rgb"); + tmp=text(data); + tmp=substring(tmp,1,length(tmp)-1); + tmp="\definecolor{"+name+"}{"+type+"}{"+tmp+"}"; + Texcom(tmp); +); + +Setcolor(Par):=( +//help:Setcolor([1,0,0,1]); +//help:Setcolor([1,1,0]); + if(islist(Par), + if(length(Par)==3, + Setcolorrgb(Par); // 2015.04.28 +// KCOLOR=Par; + ); + if(length(Par)==4, + Setcolor(Par,[]); + ); + , + Setcolor(Par,[]); + ); +); + +Setcolor(colorname,options):=( +//help:Setcolor("greenyellow",0.3); + regional(tmp); + if(isstring(colorname), + tmp="Setcolor("+Dq+colorname+Dq; + if(length(options)>0, + tmp=tmp+","+text(options_1); + ); + Com2nd(tmp+")"); + ); + if(islist(colorname), + tmp=text(colorname); + tmp=substring(tmp,1,length(tmp)-1); + tmp="Texcom("+Dq+"\color[cmyk]{"+tmp+"}"+Dq+")"; + Com2nd(tmp); + ); +); + +Setcolorrgb(colorlist):=( +// help:Setcolorrgb([0.5,0.3,0.4]); + regional(tmp); + tmp=text(colorlist); + tmp=substring(tmp,1,length(tmp)-1); + tmp="Texcom("+Dq+"\color[rgb]{"+tmp+"}"+Dq+")"; + Com2nd(tmp); +); + +ColorRgb2Cmyk(clr):=( +// help:ColorRgb([0.2,0.5,0.1]); + regional(clrnew,tmp,black); + tmp=apply(clr,1-#); + black=min(tmp); + tmp=apply(clr,(1-#-black)/(1-black)); + clrnew=append(tmp,black); + clrnew; +); + +ColorCmyk2Rgb(clr):=( +// help:ColorRgb([0.2,0.5,0.1,0.2]); + regional(clrnew,tmp,black); + black=clr_4; + tmp=apply(clr,1-min(1,#*(1-black)+black)); + clrnew=tmp_(1..3); + clrnew; +); + +Colorrgbhsv(rgb):=( + regional(varR,varG,varB,varMin,varMax,delMax,hh,ss,vv,delR,delG,delB); + varR = rgb_1; + varG = rgb_2; + varB = rgb_3; + varMin = min( [varR, varG, varB] ); + varMax = max( [varR, varG, varB] ); + delMax = varMax - varMin ; + vv = varMax; + if ( delMax == 0 , + hh = 0 ; + ss = 0 ; + , + ss = delMax / varMax; + delR = ( ( ( varMax - varR ) / 6 ) + ( delMax / 2 ) ) / delMax; + delG = ( ( ( varMax - varG ) / 6 ) + ( delMax / 2 ) ) / delMax; + delB = ( ( ( varMax - varB ) / 6 ) + ( delMax / 2 ) ) / delMax; + if( varR == varMax , + hh = delB - delG; + , + if ( varG == varMax, + hh = ( 1 / 3 ) + delR - delB; + , + if ( varB == varMax , + hh = ( 2 / 3 ) + delG - delR; + ); + ); + ); + if ( hh < 0 ,hh = hh+1); + if ( hh > 1 ,hh = hh-1); + ); + [hh*360,ss,vv]; +); + +Colorhsvrgb(sL):=( + regional(tmp,tmp1,tmp2,tmp3,hi,ff,dL); + tmp=[sL_1/60,sL_2,sL_3]; + hi=mod(floor(tmp_1),6); + ff=tmp_1-floor(tmp_1); + tmp2=tmp_3*[1-tmp_2,1-tmp_2*ff,1-tmp_2*(1-ff)]; + tmp2=append(tmp2,tmp_3); + if(hi==0,dL=tmp2_[4,3,1]); + if(hi==1,dL=tmp2_[2,4,1]); + if(hi==2,dL=tmp2_[1,4,3]); + if(hi==3,dL=tmp2_[1,2,4]); + if(hi==4,dL=tmp2_[3,1,4]); + if(hi==5,dL=tmp2_[4,1,2]); + dL; +); + +Colorrgbhsl(rgb):=( + regional(rr,gg,bb,mn,mx,delta,deltaR,deltaG,deltaB,hh,ss,ll); + rr = rgb_1 ; + gg = rgb_2 ; + bb = rgb_3 ; + mn = min([rr, gg, bb]); + mx = max([rr, gg, bb]); + delta = mx - mn; + ll = (mx + mn) / 2; + if (delta == 0, + hh=0; + ss=0; + , + if (ll < 0.5, + ss = delta/ (mx + mn); + , + ss = delta / (2 - mx - mn); + ); + deltaR = (((mx - rr) / 6) + (delta / 2)) / delta; + deltaG = (((mx - gg) / 6) + (delta / 2)) / delta; + deltaB = (((mx - bb) / 6) + (delta / 2)) / delta; + if (rr == mx, + hh = deltaB - deltaG; + , + if (gg == mx, + hh = (1 / 3) + deltaR - deltaB; + , + if (bb == mx, + hh = (2 / 3) + deltaG - deltaR; + ); + ); + ); + if ( hh < 0, hh = hh+1); + if ( hh > 1, hh = hh-1); + ); + [hh*360,ss,ll]; +); + +Colorhslrgb(hsl):=( + regional(hh,ss,ll,rr,gg,bb,var1,var2); + hh=hsl_1/360; + ss=hsl_2; + ll=hsl_3; + if ( ss == 0.0, + rr = ll ; + gg = ll ; + bb = ll ; + , + if ( ll < 0.5 , + var2 = ll * ( 1.0 + ss ); + , + var2 = ( ll + ss ) - ( ss * ll ); + ); + var1 = 2.0 * ll - var2; + rr = hue2rgb( var1, var2, hh + ( 1.0 / 3.0 ) ); + gg = hue2rgb( var1, var2, hh ); + bb = hue2rgb( var1, var2, hh - ( 1.0 / 3.0 ) ); + ); + [rr,gg,bb]; +); + +hue2rgb(vv1,vv2,vh):=( + regional(out); + if ( vh < 0.0 ,vh =vh+1); + if ( vh > 1.0 ,vh =vh-1); + if ( 6.0*vh < 1.0 , + out = vv1 + ( vv2 - vv1 ) * 6.0 * vh ; + , + if( 2.0*vh < 1.0 , + out = vv2; + , + if ( 3.0*vh < 2.0 , + out = vv1 + ( vv2 - vv1 ) * ( ( 2.0 / 3.0 ) - vh ) * 6.0 ; + , + out= vv1 ; + ); + ); + ); + out; +); + +Colorrgbhwb(sL):=( + regional(dl1,dl2,dl3); + dl1 = Colorrgbhsl(sL)_1;//Colorcode("rgb","hsl",sL)_1; + dl2 = min(sL); + dl3 = 1 - max(sL); + dL= [dl1, dl2 , dl3 ]; +); + +Colorhwbrgb(sLorg):=( + regional(sL,tmp,tmp1,tmp2,tmp3,ratio,ff,ii,vv,nn,dL,flg); + sL=sLorg; + sL=[sL_1/360,sL_2,sL_3]; + ratio = sL_2 + sL_3; + // sL_2 + sL_3 cant be > 1 + if (ratio > 1., + sL_2 =sL_2 / ratio; + sL_3 = sL_3 / ratio; + ); + ii = floor(6 * sL_1); + vv = 1 - sL_3; + ff = 6 * sL_1 - ii; + if(mod(ii,2)==1,ff = 1 - ff); + nn = sL_2 + ff * (vv - sL_2); // linear interpolation + tmp=[[vv,nn,sL_2],[nn,vv,sL_2],[sL_2,vv,nn], + [sL_2,nn,vv],[nn,sL_2,vv],[vv,sL_2,nn],[vv,nn,sL_2]]; + flg=0; + forall(0..6, + if(flg==0 & ii == # , + dL=tmp_(#+1); + flg=1; + ); + ); + dL; +); + +Colorhslhsv(sL):=( + regional(dl1,dl2,dl3,dL); + dl1=sL_1; + if(sL_3 == 0, + // no need to do calc on black + // also avoids divide by 0 error + dL= [0, 0, 0]; + , + sL_3 = sL_3 * 2; + if(sL_3 <= 1,sL_2 = sL_2 * sL_3,sL_2 = sL_2 * (2 - sL_3)); + dl3 = (sL_3 + sL_2) / 2; + dl2 = (2 * sL_2) / (sL_3 + sL_2); + dL = [dl1, dl2, dl3]; + ); + dL; +); + +Colorcode(src,dest,sL):=( +//help:Colorcode("rgb","cmyk",[1,0.5,0]); + regional(tmp,tmp1,tmp2,tmp3,mn,mx,delta,black,dL,flg); + regional(dl1,dl2,dl3); + if(src=="rgb" & dest=="hsv", dL=Colorrgbhsv(sL)); + if(src=="hsv" & dest=="rgb", dL=Colorhsvrgb(sL)); + if(src=="rgb" & dest=="hsl", dL=Colorrgbhsl(sL)); + if(src=="hsl" & dest=="rgb", dL=Colorhslrgb(sL)); + if(src=="rgb" & dest=="hwb", dL=Colorrgbhwb(sL)); + if(src=="hwb" & dest=="rgb", dL=Colorhwbrgb(sL)); + if(src=="hsl" & dest=="hsv", dL=Colorhslhsv(sL)); + if(src=="hsv" & dest=="hsl", + dl1 = sL_1; + dl3 = (2 - sL_2) * sL_3; + dl2 = sL_2 * sL_3; + if(dl3 <= 1,dl2 = dl2/dl3,dl2=dl2/(2 - dl3)); + dl3 =d l3/ 2; + dL = [dl1, dl2 , dl3 ]; + ); + + if(src=="rgb" & dest=="cmyk", + tmp=apply(sL,1-#); + black=min(tmp); + tmp=apply(sL,(1-#-black)/(1-black)); + dL=append(tmp,black); + ); + if(src=="cmyk" & dest=="rgb", + black=sL_4; + tmp=apply(sL,1-min(1,#*(1-black)+black)); + dL=tmp_(1..3); + ); + if(src=="hsv" & dest=="cmyk", + tmp=Colorcode("hsv","rgb",sL); + dL=Colorcode("rgb","cmyk",tmp); + ); + if(src=="cmyk" & dest=="hsv", + tmp=Colorcode("cmyk","rgb",sL); + dL=Colorcode("rgb","hsv",tmp); + ); + + if(src=="hsv" & dest=="hwb", + tmp = Colorcode("hsv","rgb",sL); + dL = Colorcode("rgb","hwb",tmp); + ); + if(src=="hwb" & dest=="hsv", + tmp = Colorcode("hwb","rgb",sL); + dL = Colorcode("rgb","hsv",tmp); + ); + if(src=="hsl" & dest=="hwb", + tmp = Colorcode("hsl","rgb",sL); + dL = Colorcode("rgb","hwb",tmp); + ); + if(src=="hwb" & dest=="hsl", + tmp = Colorcode("hwb","rgb",sL); + dL = Colorcode("rgb","hsl",tmp); + ); + if(src=="hsl" & dest=="cmyk", + tmp = Colorcode("hsl","rgb",sL); + dL = Colorcode("rgb","cmyk",tmp); + ); + if(src=="hwb" & dest=="cmyk", + tmp = Colorcode("hwb","rgb",sL); + dL = Colorcode("rgb","cmyk",tmp); + ); + if(src=="cmyk" & dest=="hsl", + tmp = Colorcode("cmyk","rgb",sL); + dL = Colorcode("rgb","hsl",tmp); + ); + if(src=="cmyk" & dest=="hwb", + tmp = Colorcode("cmyk","rgb",sL); + dL = Colorcode("rgb","hwb",tmp); + ); + if(src=="hsb" & dest=="rgb",dL=Colorcode("hsv","rgb",sL)); + if(src=="rgb" & dest=="hsb",dL=Colorcode("rgb","hsv",sL)); + + if(src=="hsb" & dest=="hsl",dL=Colorcode("hsv","hsl",sL)); + if(src=="hsl" & dest=="hsb",dL=Colorcode("hsl","hsv",sL)); + + if(src=="hsb" & dest=="hwb",dL=Colorcode("hsv","hwb",sL)); + if(src=="hwb" & dest=="hsb",dL=Colorcode("hwb","hsv",sL)); + + if(src=="hsb" & dest=="cmyk",dL=Colorcode("hsv","cmyk",sL)); + if(src=="cmyk" & dest=="hsb",dL=Colorcode("cmyk","hsv",sL)); + + dL; +); + +Addcolor(cmdorg,list):=( +//help:Addcolor("Plotdata('1','x^2','x',[])",[1,1,0]); + regional(rgb,cmyk,cmd,tmp,tmp1,tmp2,tmp3,tmp4); + cmd=replace(cmdorg,"'",Dq); + if(length(list)==3, + rgb=list; + cmyk=Colorcode("rgb","cmyk",list); + , + cmyk=list; + rgb=Colorcode("cmyk","rgb",list); + ); + tmp1="color->"+text(rgb); + tmp2="Setcolor("+text(cmyk)+");"; + tmp3=substring(cmd,0,length(cmd)-2); + tmp=substring(tmp3,length(tmp3)-1,length(tmp3)); + if(tmp!="[", + tmp3=tmp3+","; + ); + tmp3=tmp3+Dq+tmp1+Dq+"])"; + parse(tmp2); + parse(tmp3); + Setcolor("black"); +); + +Colorinfile(filename,clrf,clrt):=( + regional(tmp,tmp1,tmp2,head,cstrL,chstrL,head,body); + if(length(clrf_1)==3, + head="[rgb]{"; + , + head="[cmyk]{"; + ); + tmp=apply(clrf,text(#)); + cstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}"); + if(length(clrt_1)==3, + head="[rgb]{"; + , + head="[cmyk]{"; + ); + tmp=apply(clrt,text(#)); + chstrL=apply(tmp,head+substring(#,1,length(#)-1)+"}"); + tmp1=load(filename); + tmp=tokenize(tmp1,"{\unitlength"); + head=tokenize(tmp_1,"%%%"); + head=head_(2..length(head)); + head=apply(head,"%%%"+#); + tmp2=tmp_2; + forall(1..5, + tmp2=replace(tmp2,cstrL_#,chstrL_#); + ); + body=tokenize(tmp2,"%"); + body_1="{\unitlength"+body_1; + body=apply(body,#+"%"); + body=body_(1..(length(body)-1)); + tmp=replace(filename,".tex","new.tex"); + SCEOUT=openfile(tmp); + forall(head, + println(SCEOUT,#); + ); + forall(1..length(body), + tmp=body_#; + if(#<length(body), + println(SCEOUT,tmp); + , + print(SCEOUT,tmp) + ); + ); + closefile(SCEOUT); +); + +GetLinestyle(str,name):=( + regional(noflg,tmp,tmp1,tmp2,Dop,Ltype,subflg); + Ltype=-1; + Dop=""; + tmp1=indexof(str,","); + if(tmp1>0, + Dop=","+substring(str,tmp1,length(str)); + ); + noflg=parse(substring(str,0,1)); + if(substring(name,0,3)=="sub",subflg=1,subflg=0); // 16.02.29 + tmp1=substring(str,1,3); + if(tmp1=="dr" % tmp1=="Dr", + Ltype=0; + if(noflg==0 & subflg==0, // 16.02.29 + Drwline(name+Dop); + ); + ); + if(tmp1=="da" % tmp1=="Da", + Ltype=1; + if(noflg==0 & subflg==0, // 16.02.29 + Dashline(name+Dop); + ); + ); + if(tmp1=="id" % tmp1=="Id", + Ltype=2; // 15.11.09 + if(noflg==0 & subflg==0, // 16.02.29 + Invdashline(name+Dop); + ); + ); + if(tmp1=="do" % tmp1=="Do", + Ltype=3; + if(noflg==0 & subflg==0, // 16.02.29 + Dottedline(name+Dop); + ); + ); + if(tmp1=="dp" % tmp1=="Dp", + Ltype=0; + tmp1=parse(name); + tmp2=""; + forall(tmp1, + tmp2=tmp2+textformat(#_1,5)+","; + ); + tmp2=substring(tmp2,0,length(tmp2)-1); + if(noflg==0, + Drwpt(tmp2+Dop); + ); + ); + if(tmp1=="no" % tmp1=="No", + Ltype=10; + ); + Ltype; +); + +Chunderscore(str):=( + regional(flg,tmp,tmp1,tmp2,tmp3); + if(indexof(str,"]")>0, + tmp1=replace(str,"]",",]"); + , + tmp1=str+","; + ); + flg=0; + tmp2=[]; + tmp3=0; + forall(1..length(tmp1), + if(flg==0, + tmp=substring(tmp1,tmp3,length(tmp1)); + tmp=indexof(tmp,"_"); + if(tmp==0, + flg=1; + , + tmp3=tmp3+tmp; + tmp=substring(tmp1,tmp3,length(tmp1)); + tmp=indexof(tmp,",")-1; + tmp=substring(tmp1,tmp3,tmp3+tmp); + tmp2=append(tmp2,tmp); + ); + ); + ); + forall(tmp2, + tmp1=replace(tmp1,"_"+#,"("+#+")"); + ); + if(indexof(str,"]")>0, + tmp1=replace(tmp1,",]",")"); + tmp1=replace(tmp1,"[","list("); + , + tmp1=substring(tmp1,0,length(tmp1)-1); + ); + tmp1; +); + +//AddGraph(pltdata):=AddGraph("-"+pltdata,pltdata,[]); +AddGraph(nm,pltdata):=AddGraph(nm,pltdata,[]); +// if(isstring(Arg2), +// AddGraph(Arg1,Arg2,[]); +// , +// if(MeasureDepth(Arg2)>0, +// Addgraph(Arg1,Arg2,[]); +// , +// Addgraph("-"+Arg1,Arg1,Arg2); +// ); +// ); +//); +AddGraph(nm,pltdata,options):=( +//help:AddGraph("1","imp1"); // 16.04.04 +//help:Addgraph("1",["[pt1]","gr1"],["nodisp"]); + regional(name,Ltype,Noflg,opcindy,pdata,fname,flg, + tmp,tmp1,tmp2,tmp3); + if(substring(nm,0,1)=="-", + name=substring(nm,1,length(nm)); + , + name="ad"+nm; + ); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_9; + if(isstring(pltdata), + pdata=parse(pltdata) + , + if(!islist(pltdata),pdata=[pltdata],pdata=pltdata); + pdata=apply(pdata,parse(#)); + ); // 15.01.22 + pdata=Flattenlist(pdata); + tmp1=[]; + forall(pdata,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + pdata=tmp1; + if(Noflg<3, + println("generate addgraph "+name); + tmp=name+"="+textformat(pdata,5); + parse(tmp); + if(isstring(pltdata), // 16.04.04 from + if(indexof(pltdata,"]")>0, + tmp1="list(Listplot("+substring(pltdata,1,length(pltdata)); + tmp1=replace(tmp1,"]",",]"); + , + tmp1="Listplot("+substring(pltdata,0,length(pltdata))+",]"; + ); + flg=0; + tmp2=[]; + tmp3=0; + forall(1..length(tmp1), + if(flg==0, + tmp=indexof(substring(tmp1,tmp3,length(tmp1)),"_"); + if(tmp==0, + flg=1; + , + tmp3=tmp3+tmp; + tmp=indexof(substring(tmp1,tmp3,length(tmp1)),",")-1; + tmp=substring(tmp1,tmp3,tmp3+tmp); + tmp2=append(tmp2,tmp); + ); + ); + ); + forall(tmp2, + tmp1=replace(tmp1,"_"+#,"("+#+")"); + ); + tmp1=replace(tmp1,",]",")"); + tmp1=replace(tmp1,",","),Listplot("); + if(indexof(pltdata,"[")>0, + tmp1=tmp1+")"; + ); + GLIST=append(GLIST,name+"="+tmp1); + , + if(MeasureDepth(pdata)==1, + tmp1=name+"=Listplot("+textformat(pdata,5)+")"; + , + tmp1="list("; + forall(1..length(pdata), + tmp=name+"p"+textformat(#,5)+"="; + if(length(pdata_#)>1, // 15.01.22 + tmp=tmp+"Listplot("+textformat(pdata_#,5)+")"; + , + tmp=tmp+"Pointdata("+textformat(pdata_#_1,5)+")"; + ); + GLIST=append(GLIST,tmp); + tmp1=tmp1+name+"p"+textformat(#,5)+","; + ); + tmp1=name+"="+substring(tmp1,0,length(tmp1)-1)+")"; + ); + GLIST=append(GLIST,tmp1); + ); + ); // 16.04.04 upto + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); +); + +Joincrvs(nm,plotstrL):=Joincrvs(nm,plotstrL,[]); +Joincrvs(nm,plotstrL,options):=( +//help:Joincrvs("1",["sgAB","sgDCB"]); + regional(plotlist,PtL,Eps,QdL,Flg,Ni,Qd,pP,pS,pQ,pR,rMN, + opcindy,tmp,tmp1,tmp2,str,name,Ltype,Noflg); + name="join"+nm; + plotlist=[]; + forall(plotstrL,str, + if(isstring(str), + tmp=parse(str); + tmp=apply(tmp,LLcrd(#)); + , + tmp=str; + ); + plotlist=append(plotlist,tmp); + ); + Eps=10^(-4); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + tmp1=tmp_6; + if(length(tmp1)>0,Eps=tmp1_1); + QdL=[]; + forall(plotlist,Qd, + if(ispoint(Qd_1) % !islist(Qd_1_1), + QdL=concat(QdL,[Qd]); + , + forall(Qd, + QdL=concat(QdL,[#]); + ); + ); + ); + Flg=0; + if(length(QdL)==0, + PtL=[]; + Flg=1; + ); + if(Flg==0, + PtL=QdL_1; + forall(2..length(QdL),Ni, + Qd=QdL_Ni; + if(Numptcrv(Qd)>1, + pP=Ptend(PtL); + pS=Ptstart(PtL); + pQ=Ptstart(Qd); + pR=Ptend(Qd); + rMN=min([|pP-pQ|,|pP-pR|,|pS-pQ|,|pS-pR|]); + if(rMN==|pP-pR|, + Qd=reverse(Qd); + , + if(rMN==|pS-pQ|, + PtL=reverse(PtL); + , + if(rMN==|pS-pR|, + PtL=reverse(PtL); + Qd=reverse(Qd); + ); + ); + ); + ); + if(rMN>Eps, + PtL=concat(PtL,Qd); + , + PtL=concat(PtL,Qd_(2..length(Qd))); + ); + ); + ); + if(Noflg<3, + println("generate joincurve "+name); + tmp1=apply(PtL,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=""; + forall(plotstrL, + tmp1=tmp1+#+","; + ); + tmp1=substring(tmp1,0,length(tmp1)-1); + GLIST=append(GLIST,name+"=Joincrvs("+tmp1+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PtL; +); + +Partcrv(nm,pA,pB,PkLstr):=Partcrv(nm,pA,pB,PkLstr,[]); +Partcrv(nm,pA,pB,PkLstr,options):=( +//help:Partcrv("1",A,B,"sgABC"); +//help:Partcrv("1",1.3,2.5,"sgABC"); + regional(PkL,Ans,Eps,Npt,Out1,Out2,tmp,tmp1,Flg,nS,nE,PPL,pP, + opcindy,Ta,Tb,name,Ltype,Noflg,DepthFlg); + name="part"+nm; + if(isstring(PkLstr),PkL=parse(PkLstr),PkL=PkLstr); + DepthFlg=0; + if(MeasureDepth(PkL)==2, + PkL=PkL_1; + DepthFlg=1; + ); + PkL=apply(PkL,LLcrd(#)); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + Eps=10^(-3); + Flg=0; + if(isreal(pA), + if(pA>pB+Eps, + Npt=Numptcrv(PkL); + Out1=Partcrv("",pA,Npt,PkLstr,["nodata"]); + Out2=Partcrv("",1,pB,PkLstr,["nodata"]); + tmp=Ptstart(PkL)-Ptend(PkL); + if(|tmp|<Eps, + Ans=Joincrvs("",[Out1,Out2],["nodata"]); + , + Ans=[apply(Out1,Pcrd(#)),apply(Out2,Pcrd(#))]; + ); + Flg=1; + ); + if(Flg==0, + nS=ceil(pA); + nE=floor(pB); + PPL=[]; + if(pA<nS-Eps, + pP=(nS-pA)*PkL_(nS-1)+(1-nS+pA)*PkL_nS; + PPL=[pP]; + ); + PPL=concat(PPL,PkL_(nS..nE)); + if(pB>nE+Eps, + pP=(1-pB+nE)*PkL_nE+(pB-nE)*PkL_(nE+1); + PPL=concat(PPL,[pP]); + ); + Ans=PPL; + Flg=1; + ); + ); + if(Flg==0, + tmp=Nearestpt(LLcrd(Pcrd(pA)),PkL); + Ta=tmp_2; + tmp=Nearestpt(LLcrd(Pcrd(pB)),PkL); // 15.09.12 + Tb=tmp_2; + Ans=Partcrv("",Ta,Tb,PkL,["nodata"] ); + Ans=apply(Ans,Pcrd(#)); + ); + if(Noflg<3, + println("generate partcrv "+name); + tmp1=apply(Ans,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// GLIST=append(GLIST, // 16.04.03 + if(DepthFlg==0, + tmp=PkLstr; + , + tmp=PkLstr+"(1)"; + ); + tmp1=name+"=Partcrv("+textformat(Lcrd(pA),5) + +","+textformat(Lcrd(pB),5)+","+tmp+")"; // 16.04.03 + GLIST=append(GLIST,tmp1); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Ans; +); + +Opcrvs(num,Fig):=Opcrvs(num,Fig,["nodisp"]); +Opcrvs(num,Fig,options):=( + //help:Subgraph(2,"grfs"); + regional(name,tmp,tmp1); + name="-"+Fig+text(num); + tmp=Fig+"_"+text(num); + tmp1=parse(tmp); + Listplot(name,tmp1,options); +); + + +Pointdata(nm,list):=Pointdata(nm,list,[]); +Pointdata(nm,list,options):=( +//help:Pointdata("1",[2,4],["Size=5"]); +//help:Pointdata("2",[[2,3],[4,1]]); + regional(name,nameL,ptlist,opstr,opcindy, + eqL,size,thick,tmp,tmp1,tmp2,tmp3,Ltype,Noflg); + name="pt"+nm; + nameL=name+"L"; + println("generate pointdata "+name); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + opstr=tmp_(length(tmp)-1); + size=""; + eqL=tmp_5; + if(length(eqL)>0, + forall(eqL, + tmp=substring(#,0,1); + if(tmp=="s" % tmp=="S", + tmp=indexof(#,"="); + size=substring(#,tmp,length(#)); + ); + ); + ); + tmp=MeasureDepth(list); + if(tmp>0, // 2015.02.21 + if(tmp==1,ptlist=list,ptlist=list_1); + tmp=apply(ptlist,[textformat(Pcrd(#),5)]); + tmp1=text(tmp); + tmp2=substring(tmp1,1,length(tmp1)-1); + tmp3=tmp1; + , + ptlist=list; + tmp1=textformat(Pcrd(ptlist),5); + tmp2=tmp1; + tmp3="["+tmp1+"]"; + ); + tmp=name+"="+tmp1; + parse(tmp); + tmp=nameL+"="+tmp3; + parse(tmp); + if(Noflg<3, + GLIST=append(GLIST,name+"=Pointdata("+tmp2+")"); + ); + if(Noflg<2, + tmp=[nameL,0,opcindy]; + GCLIST=append(GCLIST,tmp); + if(Noflg==0, + if(length(size)>0, + Com2nd("Setpt("+size+")"); + ); + thick=PenThick/PenThickInit; // 16.04.09 from + if(length(size)>0,tmp1=parse(size),tmp1=1); + tmp1=max(tmp1,1)/8; + Setpen(tmp1); // 16.04.09 upto + Com2nd("Drwpt(list("+name+")"+opstr+")"); + Setpen(thick); // 16.04.09 + if(length(size)>0, + Com2nd("Setpt("+textformat(TenSize/TenSizeInit,1)+")"); + ); + ); + ); + ptlist; +); + +Listplot(nm,list,options):=( +//help:Listplot([A,B]); +// help:Listplot(["A","B"]); +//help:Listplot("1",[[2,1],[3,3]]); +//help:Listplot(options2=["Msg=yes"]); + regional(name,tmp,tmp1,ptlist,Ltype,opcindy,Noflg,eqL,Msg); + if(substring(nm,0,1)=="-", // 16.01.27 from + name=substring(nm,1,length(nm)); + , + name="sg"+nm; + ); // upto + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + eqL=tmp_5; + opcindy=tmp_(length(tmp)); + Msg=1; // 15.09.17 + forall(eqL, + tmp=substring(#,0,1); + if(Toupper(tmp)=="M", + tmp=indexof(#,"="); + tmp1=substring(#,tmp,tmp+1); // 16.06.28 + if(Toupper(tmp1)=="N", // 16.06.28 + Msg=0; + ); + ); + ); + if(Noflg<3, + if(Msg==1, + println("generate Listplot "+name); + ); + if(isstring(list_1),tmp=apply(list,parse(#)),tmp=list); // 15.03.24 + ptlist=apply(tmp,Pcrd(#)); + tmp=name+"="+textformat(ptlist,5); + parse(tmp); + GLIST=append(GLIST,name+"=Listplot("+textformat(list,5)+")"); // 15.12.23 + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + tmp1=apply(list,Lcrd(#)); + tmp1; +); +Listplot(Arg1,Arg2):=( + regional(name,list,options,str); + if(isstring(Arg1), + name=Arg1; + list=Arg2; + Listplot(name,list,[]); + , + list=Arg1; + options=Arg2; + name=""; + forall(list, // 16.10.07from + name=name+#.name; + );// 16.10.07upto + Listplot(name,list,options); + ); +); +Listplot(list):=Listplot(list,[]); + +Lineplot(nm,list,options):=( +//help:Lineplot([A,B]); +//help:Lineplot("1",[[2,1],[3,3]]); + regional(name,Out,tmp,tmp1,opstr,opcindy,Mag,Semi, + Vec,pA,pB,Ltype,Noflg); + name="ln"+nm; + Mag=100; + Semi=""; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + opstr=tmp_(length(tmp)-1); + tmp1=tmp_6; + if(length(tmp1)>0,Mag=tmp1_1); + tmp1=tmp_7; + if(length(tmp1)>0,Semi=tmp1_1); + pA=Lcrd(list_1); pB=Lcrd(list_2); + Vec= Mag/dist(pA,pB)*(pB-pA); + if(length(Semi)==0, + Out=[pA-Vec,pA+Vec]; + , + if(Semi=="+", + Out=[pA,pA+Vec]; + , + Out=[pA-Vec,pA]; + ); + ); + if(Noflg<3, + println("generate Lineplot "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + GLIST=append(GLIST,name+"=Lineplot("+textformat(list,5)+opstr+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); +Lineplot(Arg1,Arg2):=( + regional(name,list,options,str); + if(isstring(Arg1), + name=Arg1; + list=Arg2; + Lineplot(name,list,[]); + , + list=Arg1; + options=Arg2; + name=""; + forall(list, // 16.10.07from + name=name+#.name; + );// 16.10.07upto + Lineplot(name,list,options); + ); +); +Lineplot(list):=Lineplot(list,[]); + +Plotdata(name1,func,variable):=Plotdata(name1,func,variable,[]); +Plotdata(name1,func,variable,options):=( +//help:Plotdata("1","sin(x)","x",["Num=100"]); +//help:Plotdata("2","x^2","x=[-1,1]"); +//help:Plotdata("3","Fout(x)","x",["out"]); + regional(Fn,Va,tmp,tmp1,tmp2,eqL,name,Vname,x1,x2,dx, + PdL,QdL,Num,Ec,Dc,Fun,Exfun,x,Ke,Eps,Pa, + Ltype,Noflg,Inflg,Outflg,opstr,opcindy); + name="gr"+name1; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + Inflg=tmp_3; + Outflg=tmp_4; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + Num=50; + Ec=[]; + Exfun=""; + Dc=1000; + forall(eqL, + tmp=indexof(#,"="); + tmp1=substring(#,tmp,length(#)); + opstr=opstr+",'"+#+"'"; + if(substring(#,0,1)=="N", + Num=parse(tmp1); + ); + if(substring(#,0,1)=="E", + if(substring(tmp1,0,1)=="[", + Ec=parse(tmp1); + , + Exfun=tmp1; + ); + ); + if(substring(#,0,1)=="D", + Dc=parse(tmp1); + ); + ); + if(Inflg==0 & Outflg==0, + Eps=10^(-3); + tmp=replace(func,LFmark,""); + tmp=tokenize(variable,"="); + Vname=tmp_1; + if(length(tmp)>1, + tmp=tmp_2; + tmp=parse(tmp); + x1=tmp_1; + x2=tmp_2; + , + x1=XMIN; + x2=XMAX; + ); + // dx=(x2-x2)/Num; + Ec=append(sort(Ec),10000); + Fun=Assign(func,Vname, "xx"); + Exfun=Assign(Exfun,Vname, "xx"); + PdL=[]; + Ke=1; + forall(0..Num, + xx=x1+#*(x2-x1)/Num; // differs from Scilab ( / Num-1) + if(length(Exfun)>0, + tmp=parse(Exfun); + if(abs(tmp)<Eps, + if(length(Pdt)>0, + PdL=concat(PdL,["inf"]); + ); + ); + , + Pa=[]; + if(xx-Ec_Ke<-Eps, + Pa=[xx,parse(Fun)]; + ); + if(abs(xx-Ec_Ke)<=Eps, + if(length(PdL)>0, + if(PdL_(length(PdL))_1!="inf", + Pa=["inf"]; + ); + ); + ); + if(xx-Ec_Ke>Eps, + Pa=[xx,parse(Fun)]; + Ke=Ke+1; + ); + if(length(Pa)>0, + if(Pa_1=="inf", + PdL=concat(PdL,[Pa]); + , + if(length(PdL)==0, + PdL=[Pa]; + , + tmp=PdL_(length(PdL)); + if(tmp_1=="inf", + PdL=concat(PdL,[Pa]); + , + if(dist(tmp,Pa)<Dc, + PdL=concat(PdL,[Pa]); + , + PdL=concat(PdL,[["inf"],Pa]); + ); + ); + ); + ); + ); + ); + ); + tmp1=[]; + tmp2=select(1..length(PdL),PdL_#==["inf"]); + tmp=1; + forall(tmp2, + if(#>tmp, + tmp1=concat(tmp1,[PdL_(tmp..(#-1))]) + ); + tmp=#+1; + ); + if(tmp<length(PdL), + tmp1=concat(tmp1,[PdL_(tmp..length(PdL))]); + ); + PdL=tmp1; + if(length(PdL)==1, + PdL=PdL_1; + ); + if(Noflg<3, + println("generate Plotdata "+name); + if(MeasureDepth(PdL)==1, + tmp1=apply(PdL,Pcrd(#)); + , + tmp1=[]; + forall(PdL,tmp2, + tmp1=append(tmp1,apply(tmp2,Pcrd(#))); + ); + ); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=replace(func,LFmark,""); + tmp2=replace(variable,LFmark,""); + tmp=name+"=Plotdata('"+tmp1+"','"+tmp2+"'"+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; + , + // Inflg or Outflg >0 15.05.15 + if(Noflg<3, + if(Outflg==1, + println("Output Plotdata "+name); + tmp=name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")"; + GLIST=append(GLIST,tmp); + SCIWRLIST=append(SCIWRLIST,name); + if(Inflg==0,Inflg=1); // 15.05.17 + ); + if(Inflg==1, + println("Input Plotdata "+name); + if(length(SCIRELIST)==0, + ReadOutData(Fnameout); + ); + tmp=parse(name); + if(islist(tmp), + Extractdata(name,["nodisp"]); // 12.19 + ); + tmp="// "+name+"=Plotdata('"+func+"','"+variable+"'"+opstr+")"; + Com1st(tmp); + SCIRELIST=append(SCIRELIST,name); + ); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + if(Inflg==1, + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + ); + ); +); + +Paramplot(name1,funstr,variable):=Paramplot(name1,funstr,variable,[]); +Paramplot(name1,funstr,variable,options):=( +//help:Paramplot("1","[2*cos(t),sin(t)]","t=[0,2*pi]"); + regional(name,Out,tmp,tmp1,tmp2,vname,func,str,Rng,Num, + Ec,Exfun,Dc,eqL,Fntmp,Vatmp,t1,t2,dt,tt,pa,ke, + Ltype,Noflg,Inflg,Outflg,opstr,opcindy); + name="gp"+name1; + Eps=10^(-4); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + Inflg=tmp_3; + Outflg=tmp_4; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + Num=50; + Ec=[]; + Exfun=""; + Dc=1000; + forall(eqL, + tmp=indexof(#,"="); + tmp1=substring(#,tmp,length(#)); + opstr=opstr+",'"+#+"'"; + if(substring(#,0,1)=="N", + Num=parse(tmp1); + ); + if(substring(#,0,1)=="E", + if(substring(tmp1,0,1)=="[", + Ec=parse(tmp1); + , + Exfun=tmp1; + ); + ); + if(substring(#,0,1)=="D", + Dc=parse(tmp1); + ); + ); + if(Inflg==0 & Outflg==0, + tmp=indexof(variable,"="); + vname=substring(variable,0,tmp-1); + str=substring(variable,tmp,length(variable)); + Rng=parse(str); + t1=Rng_1; t2=Rng_2; + dt=(t2-t1)/Num;// differs from Scilab ( / Num-1) + func=Assign(funstr,vname,"tt"); + Out=[]; + Ec=append(sort(Ec),10000); + ke=1; + forall(0..Num, + pt=[]; + tt=Rng_1+#*dt; + if(tt-Ec_ke<-Eps, + pa=parse(func); + ); + if(abs(tt-Ec_ke)<=Eps, + if(length(Out)>0, + if(Out_(length(Out))_1!="inf", + pa=["inf"]; + ); + ); + ); + if(tt-Ec_ke>Eps, + pa=parse(func); + ke=ke+1; + ); + if(length(pa)>0, + if(pa_1=="inf", + Out=append(Out,pa); + , + if(length(Out)==0, + Out=[pa]; + , + tmp=Out_(length(Out)); + if(tmp_1=="inf", + Out=append(Out,pa); + , + if(|tmp-pa|<Dc, + Out=append(Out,pa); + , + Out=concat(Out,[["inf"],pa]); + ); + ); + ); + ); + ); + ); + tmp1=[]; + tmp2=select(1..length(Out),Out_#==["inf"]); + tmp=1; + forall(tmp2, + if(#>tmp, + tmp1=concat(tmp1,[Out_(tmp..(#-1))]) + ); + tmp=#+1; + ); + if(tmp<length(Out), + tmp1=concat(tmp1,[Out_(tmp..length(Out))]); + ); + Out=tmp1; + if(length(Out)==1, + Out=Out_1; + ); + if(Noflg<3, + println("generate Paramplot "+name); + if(MeasureDepth(Out)==1, + tmp1=apply(Out,Pcrd(#)); + , + tmp1=[]; + forall(Out,tmp2, + tmp1=append(tmp1,apply(tmp2,Pcrd(#))); + ); + ); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=replace(funstr,LFmark,""); // 15.11.13 + tmp2=replace(variable,LFmark,""); + tmp=name+"=Paramplot('"+tmp1+"','"+tmp2+"'"+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; + , + // Inflg or Outflg >0 15.05.15 + if(Noflg<3, + if(Outflg==1, + println("Output Paramplot "+name); + tmp=name+"=Paramplot('"+funstr+"','"+variable+"'"+opstr+")"; + GLIST=append(GLIST,tmp); + SCIWRLIST=append(SCIWRLIST,name); + if(Inflg==0,Inflg=1); // 15.05.17 + ); + if(Inflg==1, + println("Input Paramplotdata "+name); + if(length(SCIRELIST)==0, + ReadOutData(Fnameout); + ); + tmp=parse(name); + if(islist(tmp), + Extractdata(name,["nodisp"]); // 12.19 + ); + tmp="// "+name+"=Paramplot('"+func+"','"+variable+"'"+opstr+")"; + Com1st(tmp); + SCIRELIST=append(SCIRELIST,name); + ); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + if(Inflg==1, + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + ); + ); +); + +Circledata(cenrad):=Circledata(cenrad,[]); +Circledata(para1,para2):=( +//help:Circledata([A,B],["Rng=[0,pi/2]"]); +//help:Circledata([A,B,C]); + regional(name,cenrad,options,str,n); + if(isstring(para1), + name=para1; + cenrad=para2; + options=[]; + , + cenrad=para1; + options=para2; + name="";// 16.10.07from + forall(cenrad, + name=name+#.name; + );// 16.10.07upto + ); + Circledata(name,cenrad,options); +); +Circledata(nm,cenrad,options):=( + regional(name,Out,Ctr,Ptcir,ra,Num,Rg,opstr,opcindy, + tmp,tmp1,tmp1,Th,Ltype,Noflg,eqL,pA,pB,pC,d1,d2,Eps); + name="cr"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + Num=50; + Rg=[0,2*pi]; + forall(eqL, + tmp=indexof(#,"="); + tmp1=substring(#,tmp,length(#)); + opstr=opstr+",'"+#+"'"; + if(substring(#,0,1)=="N", + Num=parse(tmp1); + ); + if(substring(#,0,1)=="R", + Rg=parse(tmp1); + ); + ); + if(length(cenrad)==2, + Ctr=Lcrd(cenrad_1); + Ptcir=Lcrd(cenrad_2); + ra=dist(Ctr,Ptcir); + , + Eps=10^(-1); + pA=Lcrd(cenrad_1); + pB=Lcrd(cenrad_2); + pC=Lcrd(cenrad_3); + tmp=pB-pA; + tmp1=(tmp_2,-tmp_1); + tmp=pC-pB; + tmp2=(tmp_2,-tmp_1); + d1=det([tmp1,tmp2]); + d2=det([pC-pA,tmp2]); + if(abs(d1)<Eps & abs(d2)>10*Eps, + println("points are in a line"); + ra=0; + , + Ctr=1/2*(pA+pB)+1/2*d2/d1*tmp1; + ra=|pA-Ctr|; + tmp=name+"center="+Ctr; + parse(tmp); + Defvar(name+"center",Ctr); + ); + ); + if(ra>0, + Out=[]; + forall(0..Num, + Th=Rg_1+#*(Rg_2-Rg_1)/Num; + Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]); + ); + , + Out=Lineplot("1",[pA,pB],["nodata"]); + ); + if(Noflg<3, + println("generate Circledata "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + if(length(cenrad)==2, + tmp=name+"=Circledata("+cenrad+opstr+")"; + , + if(ra>0, + tmp=name+"=Circledata(["+Ctr+","+cenrad_1+"]"+opstr+")"; + , + tmp=name+"=Lineplot("+cenrad_1+","+cenrad_2+")"; + ); + ); + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); + +Framedata():=( + regional(pA,pB); + pA=LLcrd((SW+NE)/2); // 15.09.17 + pB=LLcrd(NE); + Framedata("win",[pA,pB]); +); +Framedata(list):=Framedata(list,[]); +Framedata(Arg1,Arg2):=( + regional(name,list,options,str); + if(isstring(Arg1), + name=Arg1; + list=Arg2; + Framedata(name,list,[]); + , + list=Arg1; + options=Arg2; + name="";// 16.10.07from + forall(list, + name=name+#.name; + );// 16.10.07upto + Framedata(name,list,options); + ); +); + +Framedata(nm,list,options):=( +//help:Framedata(); +//help:Framedata([A,B]); +//help:Framedata("1",[A,B]); +//help:Framedata("1",[C,dx,dy]); + regional(name,Out,tmp,tmp1,pB,x1,x2,y1,y2,dx,dy, + opcindy,Ltype,Noflg,cent,dx,dy); + name="fr"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + if(length(list)==2, // 15.05.12 + pA=Lcrd(list_1); pB=Lcrd(list_2); + dx=abs(pB_1-pA_1); dy=abs(pB_2-pA_2); + , + pA=Lcrd(list_1); + dx=list_2; dy=list_3; + ); + x1=pA_1-dx; x2=pA_1+dx; + y1=pA_2-dy; y2=pA_2+dy; + Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]]; + if(Noflg<3, + println("generate Framedata "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + GLIST=append(GLIST,name+"=Framedata("+pA+","+dx+","+dy+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); +Framedata(nm,cent,dx,dy):=Framedata(nm,cent,dx,dy,[]); +Framedata(nm,cent,dx,dy,options):=( + regional(name,Out,tmp,tmp1,x1,y1,x2,y2,Ltype,opcindy,Noflg); + name="fr"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + x1=cent.x-dx; x2=cent.x+dx; + y1=cent.y-dy; y2=cent.y+dy; + Out=[[x1,y1],[x2,y1],[x2,y2],[x1,y2],[x1,y1]]; + if(Noflg<3, + println("generate Framedata "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + GLIST=append(GLIST,name+"=Framedata("+cent.xy+","+dx+","+dy+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); + +Framedata2(nm,list):=Framedata2(nm,list,[]); +Framedata2(nm,list,options):=( +//help:Framedata2("1",[A,B]); + regional(tmp,tmp1,pC,pB); + pC=(Lcrd(list_1)+Lcrd(list_2))/2; + pB=Lcrd(list_2); + Framedata(nm,[pC,pB],options); +); + +Ovaldata(nm,Pdata):=Ovaldata(nm,Pdata,[]); +Ovaldata(nm,Pdata,options):=( +//help:Ovaldata("1",[A,B]); +//help:Ovaldata(optios=[size]); + regional(name,Graph,Ctr,Dx,Dy,Rc,Out,Point,Graph, + opstr,opcindy,tmp,tmp1,tmp2,tmp3,Ltype,Noflg); + name="ov"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + opstr=tmp_(length(tmp)-1); + Rc=0.2; + tmp1=tmp_6; + if(length(tmp1)>0,Rc=tmp1_1*Rc); +// if(length(tmp1)>0,Rc=tmp1_1); //15.11.15 + Ctr=Lcrd(Pdata_1); + if(ispoint(Pdata_2) % islist(Pdata_2), + tmp1=Lcrd(Pdata_2); + Dx=abs(tmp1_1-Ctr_1); + Dy=abs(tmp1_2-Ctr_2); + , + Dx=Pdata_2; + Dy=Pdata_3; + ); + Point=Ctr+[Dx-Rc,Dy-Rc]; + tmp1=Circledata("1",[Point,Point+[Rc,0]], + ["Rng=[0,pi/2]","Num=10","nodata"]); + tmp2=Listplot("1",[Ctr+[Dx-Rc,Dy],Ctr+[0,Dy]], + ["nodata"]); + tmp3=Listplot("2",[Ctr+[Dx,0],Ctr+[Dx,Dy-Rc]], + ["nodata"]); + Graph=Joincrvs("1",[tmp3,tmp1,tmp2],["nodata"]); + tmp1=Reflectdata("1",[Graph],[Ctr,Ctr+[0,1]],["nodata"]); + Graph=Joincrvs("1",[Graph,tmp1],["nodata"]); + tmp2=Reflectdata("2",[Graph],[Ctr,Ctr+[1,0]], + ["nodata"]); + Graph=Joincrvs("2",[Graph,tmp2],["nodata"]); + if(Noflg<3, + println("generate Ovaldata "+name); + tmp1=apply(Graph,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + GLIST=append(GLIST, + name+"=Ovaldata("+Ctr+","+Dx+","+Dy+opstr+")");//16.01.30 + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + tmp1=apply(Graph,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp=textformat(Ctr,5)+","+textformat(Dx,5)+","+textformat(Dy,5); + GLIST=append(GLIST, + name+"=Ovaldata("+tmp+opstr+")"); + ); + Graph; +); + +Segmark(nm,ptlist):=Segmark(nm,ptlist,[]); +Segmark(nm,ptlist,options):=Drawsegmark(nm,ptlist,options); +Drawsegmark(nm,ptlist):=Drawsegmark(nm,ptlist,[]); +Drawsegmark(nm,ptlist,options):=( +//help:Segmark("1",[A,B]); +//help:Segmark(options=["Type=1","Width=1","Size=1"]); + regional(name,pA,pB,wid,mid,size,tp,dir,nor,eqL, + tmp,tmp1,tmp2); + name="mrk"+nm; + pA=ptlist_1; + pB=ptlist_2; + size=0.15; + wid=0.05; + tp=1; + tmp1=Divoptions(options); + eqL=tmp1_5; + forall(eqL, + tmp=indexof(#,"="); + tmp1=substring(#,tmp,length(#)); + tmp1=parse(tmp1); + tmp=substring(#,0,1); + if(tmp=="S" % tmp=="s", + size=size*tmp1; + ); + if(tmp=="W" % tmp=="w", + wid=wid*tmp1; + ); + if(tmp=="T" % tmp=="t", + tp=tmp1; + ); + ); + mid=(pA+pB)/2; + dir=(pB-pA)/|pB-pA|; + nor=[-dir_2,dir_1]; +// nor=nor/|nor|; + if(tp==1, + tmp1=mid+size*nor; + tmp2=mid-size*nor; + Listplot(name,[tmp1,tmp2]); + ); + if(tp==2, + tmp1=mid+wid*dir+size*nor; + tmp2=mid+wid*dir-size*nor; + Listplot(name+"r",[tmp1,tmp2]); + tmp1=mid-wid*dir+size*nor; + tmp2=mid-wid*dir-size*nor; + Listplot(name+"l",[tmp1,tmp2]); + ); + if(tp==3, + tmp1=mid; + tmp2=mid+size*dir; + Circledata(name,[tmp1,tmp2]); + ); + if(tp==4, + tmp=mid+size*2/sqrt(3)*nor; + tmp1=mid+size*dir-size/sqrt(3)*nor; + tmp2=mid-size*dir-size/sqrt(3)*nor; + Listplot(name,[tmp,tmp1,tmp2,tmp]); + ); +); + +Parabolaplot(nm,ptlist):=Parabolaplot(nm,ptlist,"[-5,5]",[]); +Parabolaplot(nm,ptlist,Arg):=( + regional(rng,options); + if(isstring(Arg), + rng=Arg; + options=[]; + , + rng="[-5,5]"; + options=Arg; + ); + Parabolaplot(nm,ptlist,rng,options); +); +Parabolaplot(nm,ptlist,rng,options):=( +//help:Parabolaplot("1",[A,B,C]): +//help:Parabolaplot("1",[A,B,C],"[-5,5]"); + regional(pA,pB,pC,angle,tmp,tmp1,tmp2); + tmp1=Lcrd(ptlist_1); + tmp2=Lcrd(ptlist_3); + pB=Lcrd(ptlist_2); + tmp=(tmp2-pB)/|tmp2-pB|; + if(tmp_2>=0, + angle=arccos(tmp_1); + , + if(tmp_1>=0, + angle=arcsin(tmp_2); + , + angle=-arccos(tmp_1); + ); + ); + pA=Rotatepoint(tmp1,-angle,pB); + pC=Rotatepoint(tmp2,-angle,pB); + tmp1=1/(2*(pA_2-pB_2)); + tmp2=1/2*(pA_2+pB_2); + tmp="("+format(tmp1,5)+")*(x-("+format(pA_1,5)+"))^2"; + tmp=tmp+"+("+format(tmp2,5)+")"; + tmp1=parse(rng); + tmp1=[pA_1-(tmp1_2-tmp1_1)/2,pA_1+(tmp1_2-tmp1_1)/2]; + tmp2="x="+textformat(tmp1,5); + Plotdata(nm+"para",tmp,tmp2,append(options,"nodisp")); + Rotatedata(nm+"para","gr"+nm+"para",angle,append(options,pB)); +); + +Ellipseplot(nm,ptlist):=Ellipseplot(nm,ptlist,"[0,2*pi]",[]); +Ellipseplot(nm,ptlist,Arg):=( + regional(rng,options); + if(isstring(Arg), + rng=Arg; + options=[]; + , + rng="[0,2*pi]"; + options=Arg; + ); + Ellipseplot(nm,ptlist,rng,options); +); +Ellipseplot(nm,ptlist,rng,options):=( +//help:Ellipseplot("1",[A,B,3]); +//help:Ellipseplot("1",[A,B,C],"[0,pi]",[options]); + regional(pA,pB,d,angle,f,a,b,pM,tmp,tmp1,tmp2); + pA=Lcrd(ptlist_1); + tmp1=Lcrd(ptlist_2); + if(ispoint(ptlist_3), + tmp2=Lcrd(ptlist_3); + d=|tmp2-pA|+|tmp2-tmp1|; + , + d=ptlist_3; + ); + tmp=(tmp1-pA)/|tmp1-pA|; + if(tmp_2>=0, + angle=arccos(tmp_1); + , + if(tmp_1>=0, + angle=arcsin(tmp_2); + , + angle=-arccos(tmp_1); + ); + ); + pB=Rotatepoint(tmp1,-angle,pA); + f=|pB_1-pA_1|/2; + a=d/2; + b=sqrt(d^2/4-f^2); + pM=(pA+pB)/2; + tmp="["+format(pM_1,5)+","+format(pM_2,5)+"]"; + tmp=tmp+"+["+format(a,5)+"*cos(t),"+format(b,5)+"*sin(t)]"; + Paramplot(nm+"elp",tmp,"t="+rng,append(options,"nodisp")); + Rotatedata(nm+"elp","gp"+nm+"elp",angle,append(options,pA)); +); + +Hyperbolaplot(nm,ptlist):=Hyperbolaplot(nm,ptlist,"[-5/2,5/2]",[]); +Hyperbolaplot(nm,ptlist,Arg):=( + regional(rng,options); + if(isstring(Arg), + rng=Arg; + options=[]; + , + rng="[-5/2,5/2]"; + options=Arg; + ); + Hyperbolaplot(nm,ptlist,rng,options); +); +Hyperbolaplot(nm,ptlist,rng,optionsorg):=( +//help:Hyperbolaplot("1",[A,B,C],["Num=200"]): +//help:Hyperbolaplot("1",[A,B,C],"[-5,5]",["Asy=do"]); + regional(pA,pB,d,angle,f,a,b,pM,eqL,options,opasy,tmp,tmp1,tmp2); + tmp=Divoptions(optionsorg); + eqL=tmp_5; + options=optionsorg; + opasy=[]; + forall(eqL, + if(Toupper(substring(#,0,1))=="A", + tmp=indexof(#,"="); + opasy=[substring(#,tmp,length(#))]; + options=remove(options,[#]); + ); + ); + pA=Lcrd(ptlist_1); + tmp1=Lcrd(ptlist_2); + if(ispoint(ptlist_3), + tmp2=Lcrd(ptlist_3); + d=abs(|tmp2-pA|-|tmp2-tmp1|); + , + d=ptlist_3; + ); + tmp=(tmp1-pA)/|tmp1-pA|; + if(tmp_2>=0, + angle=arccos(tmp_1); + , + if(tmp_1>=0, + angle=arcsin(tmp_2); + , + angle=-arccos(tmp_1); + ); + ); + pB=Rotatepoint(tmp1,-angle,pA); + f=|pB_1-pA_1|/2; + a=d/2; + b=sqrt(f^2-d^2/4); + pM=(pA+pB)/2; + tmp="["+format(pM_1,5)+"+"+format(a,5)+"*(exp(t)+exp(-t))/2,"; + tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]"; + Paramplot(nm+"hyp1",tmp,"t="+rng,append(options,"nodisp")); + tmp="["+format(pM_1,5)+"-"+format(a,5)+"*(exp(t)+exp(-t))/2,"; + tmp=tmp+format(pM_2,5)+"+"+format(b,5)+"*(exp(t)-exp(-t))/2]"; + Paramplot(nm+"hyp2",tmp,"t="+rng,append(options,"nodisp")); + tmp=["gp"+nm+"hyp1","gp"+nm+"hyp2"]; + Rotatedata(nm+"hyp",tmp,angle,append(options,pA)); + if(length(opasy)>0, + Lineplot(nm+"asy1",[pM+[a,b],pM+[-a,-b]],["nodisp"]); + Lineplot(nm+"asy2",[pM+[-a,b],pM+[a,-b]],["nodisp"]); + tmp=["ln"+nm+"asy1","ln"+nm+"asy2"]; + Rotatedata(nm+"asy",tmp,angle,append(opasy,pA)); + ); +); + +Polygonplot(nm,ptlist,number):=Polygonplot(nm,ptlist,number,[]); +Polygonplot(nm,ptlist,number,options):=( +//help:Polygonplot("1",[A,B],12); + regional(rr,pA,pB,ptL,angle,tmp,tmp1,tmp2); + pA=Lcrd(ptlist_1); + pB=Lcrd(ptlist_2); + rr=|pB-pA|; + tmp=(pB-pA)/rr; + if(tmp_2>=0, + angle=arccos(tmp_1); + , + if(tmp_1>=0, + angle=arcsin(tmp_2); + , + angle=-arccos(tmp_1); + ); + ); + ptL=[]; + forall(0..number, + tmp=angle+#*2*pi/number; + tmp1=pA+rr*[cos(tmp),sin(tmp)]; + if(#>0 & #<number, + Putpoint((ptlist_2).name+text(#),tmp1);//16.10.07 + //Pointdata(nm,ptL); + ); + tmp2=tmp1; + ptL=append(ptL,tmp1); + ); + Listplot(nm+"ply",ptL,options); +); + +Putintersect(nm,pdata1,pdata2):=( +//help:Putintersect("Q","gr1","gr2"); + regional(pd1,pd2,tmp); + if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1); + if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2); + tmp=Intersectcrvs(pd1,pd2); + if(length(tmp)==1, + Putpoint(nm,tmp_1); + , + if(length(tmp)==0, + err("No intersect point"); + , + err("Multiple intersect points"); + println(tmp); + err("Choose point number"); + ); + ); +); +Putintersect(nm,pdata1,pdata2,ptno):=( + regional(pd1,pd2,tmp); + if(isstring(pdata1),pd1=parse(pdata1),pd1=pdata1); + if(isstring(pdata2),pd2=parse(pdata2),pd2=pdata2); + tmp=Intersectcrvs(pd1,pd2); + if(length(tmp)>0, + Putpoint(nm,tmp_ptno); + , + err("No intersect point"); + ); +); + +Arrowheaddata(point,direction):=Arrowheaddata(point,direction,[]); +Arrowheaddata(point,direction,options):=( +//help:Arrowheaddata(A,B); + regional(list,Ookisa,Hiraki,Futosa,Houkou,Str,Flg,tmp,Ev,Nv,pA,pB, + pP,rF,gG,Flg,Nj,Eps,tmp1,scx,scy); + Eps=10^(-3); + pP=point; + Ookisa=0.2*YaSize; + Hiraki=YaAngle; + Futosa=0; + Str=YaStyle; + tmp=Divoptions(options); + tmp1=tmp_6; + if(length(tmp1)>0,Ookisa=Ookisa*tmp1_1); + if(length(tmp1)>1, + tmp=tmp1_2; + if(tmp<5, + Hiraki=Hiraki*tmp; + , + Hiraki=tmp; + ); + ); + Flg=0; + Hiraki=Hiraki*pi/180; + if(isstring(direction),Houkou=parse(direction),Houkou=direction); + if(MeasureDepth(Houkou)==2,Houkou=Houkou_1); + if(islist(Houkou_1), +// pP=Lcrd(pP); +// pP=Doscaling(pP); +// Houkou=Dosscaling(Houkou); + pP=Pcrd(pP); + scy=SCALEY; + SCALEY=1; + tmp=Nearestpt(pP,Houkou); + pA=tmp_1; + rF=floor(tmp_2); + if(rF==1, + if(|Ptend(Houkou)-Ptstart(Houkou)|<Eps, + rF=Numptcrv(Houkou); + ); + ); + gG=apply(0..10,pP+Ookisa*cos(Hiraki)*[cos(2*pi/10*#),sin(2*pi/10*#)]); + Flg=0; + forall(1..rF,Nj, + if(Flg==0, + pB=Ptcrv(rF+1-Nj,Houkou); + tmp=IntersectcrvsPp([pA,pB],gG); + if(length(tmp)>0, + Houkou=pP-tmp_1_1; + Flg=1; + ); + pA=pB; + ); + ); + SCALEY=scy; + if(Flg==0, + println("Arrowhead may be too large (no intersect)"); + Flg=2; + ); + if(Flg==1, + Houkou=Unscaling(Houkou); + pP=Unscaling(pP); + ); + ); + if(Flg<2, +// pP=Doscaling(pP); +// Houkou=Doscaling(Houkou); + pP=Pcrd(pP); + if(!ispoint(point), + Houkou=Pcrd(Houkou); + ); +// if(MeasureDepth(Houkou)==0,Houkou=Pcrd(Houkou)); + Ev=-1/|Houkou|*Houkou; + Ev=Lcrd(Ev); + Nv=[-Ev_2, Ev_1]; + if(indexof(Str,"c")>0, + pP=pP-0.5*Ookisa*cos(Hiraki)*Ev; + ); + if(indexof(Str,"b")>0, + pP=pP-Ookisa*cos(Hiraki)*Ev; + ); + pA=pP+Ookisa*cos(Hiraki)*Ev+Ookisa*sin(Hiraki)*Nv; + pB=pP+Ookisa*cos(Hiraki)*Ev-Ookisa*sin(Hiraki)*Nv; + list=[pA,pP,pB]; + list=apply(list,LLcrd(#)); +// Out=Unscaling(Out); + list; + ); +); + +Arrowhead(point,Houkou):=Arrowhead(point,Houkou,[]); +Arrowhead(point,Houkou,options):=( +//help:Arrowhead(B,B-A,[1.5,30]); +//help:Arrowhead(A,"gr1"); + // global ArrowheadNumber + regional(name,Ltype,Noflg,reL,opstr,opcindy,ptstr,hostr,tmp,tmp1,list); + name="arh"+text(ArrowheadNumber); + ArrowheadNumber=ArrowheadNumber+1; + ptstr=textformat(point,5); + if(isstring(Houkou), // 15.01.11 + tmp=parse(Houkou); + if(MeasureDepth(tmp)<2, + hostr=Houkou; + , + hostr=Houkou+"(1)"; + ); + , + if(ispoint(point), + hostr=textformat(LLcrd(Houkou),5); + , + hostr=textformat(Houkou,5); + ); + ); + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + reL=tmp_6; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + list=Arrowheaddata(point,Houkou,options); + if(Noflg<3, +// println("generate Arrowhead "+name); + tmp1=apply(list,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// GLIST=append(GLIST,name+"=Listplot("+list+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(1)+Ltype,name); + , +// if(Noflg==1,Ltype=0); + Ltype=0; + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + if(Noflg==0, + if(length(reL)<3, // 16.04.09 from + forall(1..(2-length(reL)), + opstr=opstr+",1"; + ); + tmp=PenThick/PenThickInit; + opstr=opstr+","+text(tmp); + ); // 16.04.09 upto + Com2nd("Arrowhead("+ptstr+","+hostr+opstr+")"); + ); +); + +Arrowdata(ptlist):=Arrowdata(ptlist,[]); +Arrowdata(Arg1,Arg2):=( + regional(tmp,nm,ptlist,flg,pA,pB,options); + flg=0; + if(isstring(Arg1), + nm=Arg1; + ptlist=Arg2; + Arrowdata(nm,ptlist,[]); + flg=1; + ); + if(flg==0, + tmp=MeasureDepth(Arg1); + if(tmp==0, + pA=Arg1; + pB=Arg2; + Arrowdata(pA,pB,[]); + , + ptlist=Arg1; + options=Arg2; + nm=text(ArrowlineNumber); + ArrowlineNumber=ArrowlineNumber+1; + Arrowdata(nm,ptlist,options); + ); + ); +); +Arrowdata(Arg1,Arg2,options):=( +//help:Arrowdata([A,B],[2,10]); + regional(Retflg,nm,ptlist,name,opstr,opcindy,realL,strL,size, + flg,Ltype,Noflg,lineflg,tmp,tmp1,tmp2,pA,pB,segpos); + Retflg=0; + Noflg=0; + Ltype=0; + if(!isstring(Arg1), + pA=Arg1; + pB=Arg2; + Arrowdata(pA,pB,options,"old"); + Retflg=1; + ptlist=[pA,pB]; + ); + if(Retflg==0, + nm=Arg1; + ptlist=Arg2; + name="ar"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + realL=tmp_6; + strL=tmp_7; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + size=1; // 15.06.11 + if(length(realL)>0, + size=realL_1; + ); + tmp2=select(strL,indexof(#,"l")>0); // 16.04.09 + if(length(tmp2)>0,lineflg=1,lineflg=0); // 16.04.09 + segpos=1; + tmp1=tmp_5; + if(length(tmp1)>2, + segpos=tmp1_3; + ); + if(Noflg<3, +// println("generate Arrowdata "+name); + tmp1=apply(ptlist,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=Pcrd(ptlist_1);//16.10.20 + tmp2=Pcrd(ptlist_2);//16.10.20 + if(lineflg==0, // 16.04.09 from + tmp=tmp2-0.2*size/2*(tmp2-tmp1)/|tmp2-tmp1|; // 15.06.11 + , + tmp=tmp2; + ); // 16.04.09 upto + tmp=[LLcrd(tmp1),LLcrd(tmp)];//16.10.20 + GLIST=append(GLIST,name+"=Listplot("+textformat(tmp,5)+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + tmp=textformat(ptlist,5); + tmp=substring(tmp,1,length(tmp)-1); + tmp1=indexof(tmp,"],["); + if(tmp1>0, + pA=substring(tmp,0,tmp1); + pB=substring(tmp,tmp1+1,length(tmp)); + , + tmp1=indexof(tmp,","); + pA=substring(tmp,0,tmp1-1); + pB=substring(tmp,tmp1,length(tmp)); + ); + tmp1="Lcrd("+pA+")+" + +textformat(segpos,5)+"*(Lcrd("+pB+")-"+"Lcrd("+pA+"))"; + tmp1=parse(tmp1); + tmp2="Lcrd("+pB+")-Lcrd("+pA+")"; + tmp2=parse(tmp2); + Arrowhead(tmp1,tmp2,options); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + ); + ptlist; +); +Arrowdata(pA,pB,options,str):=( + regional(ptA,ptB,opstr,Astr,Bstr,name,tmp,opcindy); + Astr=textformat(pA,5); + Bstr=textformat(pB,5); + name="ar"+pA.name+pB.name; + println("generate Arrow "+name); + opstr=""; + opcindy=""; + forall(options, + if(isstring(#), + if(indexof(#,"->")>0, + opcindy=opcindy+","+#; + , + tmp="'"+#+"'"; + ); + , + tmp=text(#); + ); + opstr=opstr+","+tmp; + ); + ptA=Lcrd(pA); + ptB=Lcrd(pB); + Arrowheaddata(ptB,ptB-ptA,options); + tmp="connect("+textformat([ptA,ptB],5) + +",linecolor->"+text(KCOLOR)+opcindy+");"; + parse(tmp); // 14.11.17 + Com2nd("Arrowline("+Astr+","+Bstr+opstr+")"); // 14.10.04 +); + +Anglemark(plist):=Anglemark(plist,[]); +Anglemark(Arg1,Arg2):=( // 2015.04.28 from + regional(nm,plist,options,tmp); + if(isstring(Arg1), + nm=Arg1; + plist=Arg2; + Anglemark(nm,plist,[]); + , + plist=Arg1; + options=Arg2; + tmp=textformat(plist,5); + tmp=replace(tmp,",",""); + nm=substring(tmp,1,length(tmp)-1); + Anglemark(nm,plist,options); + ); +); // upto +Anglemark(nm,plist,options):=( +//help:Anglemark([A,B,C],["E=\theta",2]); +//help:Anglemark("1",[A,B,C],["E=1.2,\theta",2]); +//help:Anglemark(options=["E/L=(sep,)letter",size]); + regional(name,Out,pB,pA,pC,Ctr,ra,sab,sac,ratio,opstr,Bname,Bpos, + Brat,tmp,tmp1,tmp2,Num,opcindy,Ltype,eqL,realL,Rg,Th,Noflg); + name="ag"+nm; + ra=0.5; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + realL=tmp_6; + Bname=""; + Brat=1.5; + Num=20; + if(length(realL)>0, + ra=realL_1*ra; + opstr=opstr+","+text(realL_1); + ); + forall(eqL, + if(substring(#,0,1)=="L",Bname="Letter("); + if(substring(#,0,1)=="E",Bname="Expr("); + Bpos="md"+name; + Bname=Bname+Bpos+","+Dq+"c"+Dq+","+Dq;//16.10.29 + tmp=substring(#,indexof(#,"="),length(#)); + tmp1=indexof(tmp,","); + Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")"; + if(tmp1>0, + Brat=parse(substring(tmp,0,tmp1-1)); + ); + ); + pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3); + Ctr=Lcrd(pA); + sab=pB-pA; + sac=pC-pA; + Rg=[arctan2(sab)+0,arctan2(sac)+0]; + if(Rg_2<Rg_1,Rg_2=Rg_2+2*pi); + Out=[]; + forall(0..Num, + Th=Rg_1+#*(Rg_2-Rg_1)/Num; + Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]); + ); + if(length(Bname)>0, + Th=(Rg_1+Rg_2)/2; + tmp1=Ctr+Brat*ra*[cos(Th),sin(Th)]; + tmp="Defvar("+Dq+Bpos+"="; + tmp=tmp+textformat(tmp1,5)+Dq+");"; + parse(tmp); + parse(Bname); + ); + if(Noflg<3, + println("generate anglemark "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp=textformat(plist,5); + tmp1=substring(tmp,1,length(tmp)-1); + tmp=name+"=Anglemark("+tmp1+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); + +Paramark(plist):=Paramark(plist,[]); +Paramark(plist,options):=( +//help:Paramark([A,B,C],["E=\theta"]); + regional(name,Out,pB,pA,pC,ra,sab,sac,ratio,opstr,Bname,Bpos, + Brat,tmp,tmp1,tmp2,Ltype,Noflg,eqL,realL,opcindy); + tmp=textformat(plist,5); + tmp=replace(tmp,",",""); + tmp=substring(tmp,1,length(tmp)-1); + name="pm"+tmp; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + realL=tmp_6; + ra=0.5; + Bname=""; + Brat=1.2; + if(length(realL)>0, + tmp=realL_1; + ra=tmp*ra; + opstr=opstr+","+text(tmp); + ); + forall(eqL, + if(substring(#,0,1)=="L",Bname="Letter("); + if(substring(#,0,1)=="E",Bname="Expr("); + Bpos="md"+name; + Bname=Bname+Dq+Bpos+Dq+","+Dq+"c"+Dq+","+Dq; + tmp=substring(#,indexof(#,"="),length(#)); + tmp1=indexof(tmp,","); + Bname=Bname+substring(tmp,tmp1,length(tmp))+Dq+")"; + if(tmp1>0, + Brat=parse(substring(tmp,0,tmp1-1)); + ); + ); + pB=Lcrd(plist_1); pA=Lcrd(plist_2); pC=Lcrd(plist_3); + Ctr=Lcrd(pA); + Out=[]; + Out=append(Out,pA+ra*(pB-pA)/|pB-pA|); + Out=append(Out,pA+ra*(pB-pA)/|pB-pA|+ra*(pC-pA)/|pC-pA|); + Out=append(Out,pA+ra*(pC-pA)/|pC-pA|); + if(length(Bname)>0, + tmp1=pA+Brat*ra*(pB-pA)/|pB-pA|+Brat*ra*(pC-pA)/|pC-pA|; + tmp="Defvar("+Dq+Bpos+"="+textformat(tmp1,5)+Dq+");"; + parse(tmp); + parse(Bname); + ); + if(Noflg<3, + println("generate paramark "+name); + tmp1=apply(Out,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1); + tmp=name+"=Paramark("+tmp1+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + Out; +); + +MakeBowdata(pA,pB,Hgt):=( + regional(angle,pB2,pH2,pC2,pC,tmp,Th1,Th2,ra,dMA); + angle=arctan2(pB-pA)+0; + pB2=Rotatepoint(pB,-angle,pA); + tmp=Lcrd(pA); + pH2=[(tmp_1+pB2_1)/2,tmp_2-Hgt]; + dMA=|tmp-pB2|/2; + ra=(dMA^2+Hgt^2)/(2*Hgt); + pC2=[pH2_1,pB2_2+(ra-Hgt)]; + pC=Rotatepoint(pC2,angle,pA); + Th1=arctan2(pA-pC2)+angle; + Th2=arctan2(pB2-pC2)+angle; + [pC,ra,Th1,Th2]; +); + +Bowdata(nm,plist,options):=( +//help:Bowdata([C,A],[2,1.2,"Expr=10","da"]); +//help:Bowdata([A,B],["Expr=t0n3,a"]); +//help:Bowdata([A,B],["Exprrot=t0n2r,a"]); + regional(name,Out,pB,pA,pC,ra,tmp,tmp1,tmp2,Ltype,eqL,realL, + Bname,Bpos,Th,Cut,Num,Hgt,opstr,opcindy,Ydata,pC, + Th1,Th2,Noflg,Bops,Bmov,Tmov,Nmov,rev); + name="bw"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + eqL=tmp_5; + realL=tmp_6; + pA=Lcrd(plist_1); pB=Lcrd(plist_2); + Hgt=1/2*|pB-pA|*0.2; + Cut=0; + Num=24; + Bname=""; + Tmov=0;//16.11.01from + Nmov=0; + Bmov=""; + rev=0;//16.11.01upto + if(length(realL)>0, + Hgt=realL_1*Hgt; // 15.04.12 + if(length(realL)>1,Cut=realL_2); + ); + forall(eqL, + tmp=substring(#,0,1); + if(tmp=="L" % tmp=="l", + if(indexof(#,"rot")>0, + Bname="Letterrot("; + , + Bname="Letter("; + ); + ); + if(tmp=="E" % tmp=="e", + if(indexof(#,"rot")>0, + Bname="Exprrot("; + , + Bname="Expr("; + ); + ); + tmp=indexof(#,"="); + Bops=substring(#,tmp,length(#)); // 16.11.01 + ); + Ydata=MakeBowdata(pA,pB,Hgt); + pC=Ydata_1; + ra=Ydata_2; + Th=(Ydata_3+Ydata_4)*0.5; + BOWMIDDLE=[pC_1+ra*cos(Th),pC_2+ra*sin(Th)]; + Bpos="md"+name; // 16.10.31from(moved) + tmp="Defvar("+Dq+Bpos+"="+textformat(BOWMIDDLE,5)+Dq+");"; + parse(tmp);// 16.10.31upto(moved) + if(length(Bname)>0, //16.11.01from + tmp=indexof(Bops,","); + if(tmp>0, + tmp1=substring(Bops,0,tmp-1); + if(length(tmp1)>=4 & substring(tmp1,0,1)=="t" & indexof(tmp1,"n")>0, + Bmov=tmp1; + Bops=substring(Bops,tmp,length(Bops)); + ); + ); + if(length(Bmov)>0, + tmp=indexof(Bmov,"t"); + if(tmp>0, + tmp1=indexof(Bmov,"n"); + Tmov=parse(substring(Bmov,tmp,tmp1-1)); + tmp=indexof(Bmov,"r"); + if(tmp>0, + Nmov=parse(substring(Bmov,tmp1,tmp-1)); + rev=1; + , + Nmov=parse(substring(Bmov,tmp1,length(Bmov))); + ); + ); + ); + Bname=Bname+Bpos;//16.11.01 + if(abs(Tmov)+abs(Nmov)>0, + tmp=Pcrd(pA)-Pcrd(pB); + tmp1=1/norm(tmp)*tmp; + tmp2=[-tmp1_2,tmp1_1]; + tmp=MARKLEN*(Tmov*tmp1+Nmov*tmp2); + tmp=LLcrd(tmp); + Bname=Bname+"+"+text(tmp); + ); + Bname=Bname+","; + if(indexof(Bname,"rot")>0, + if(rev==1,tmp=pB-pA,tmp=pA-pB); + Bname=Bname+textformat(tmp,5)+","; + , + Bname=Bname+Dq+"c"+Dq+","; + ); + Bname=Bname+Dq+Bops+Dq+")"; + parse(Bname); + );//16.11.01upto + if(Cut==0, + Th1=Ydata_3; + Th2=Ydata_4; + Out=[]; + forall(0..Num, + tmp=Th1+#*(Th2-Th1)/Num; + Out=append(Out,pC+ra*[cos(tmp),sin(tmp)]); + ); + , + Th1=Ydata_3; + Th2=Th-Cut/(2*ra); + tmp1=[]; + forall(0..Num/2, + tmp=Th1+#*(Th2-Th1)/(Num/2); + tmp1=append(tmp1,pC+ra*[cos(tmp),sin(tmp)]); + ); + Th1=Th+Cut/(2*ra); + Th2=Ydata_4; + tmp2=[]; + forall(0..Num/2, + tmp=Th1+#*(Th2-Th1)/(Num/2); + tmp2=append(tmp2,pC+ra*[cos(tmp),sin(tmp)]); + ); + Out=[tmp1,tmp2]; + ); + if(Noflg<3, + println("generate bowdata "+name+" and "+Bpos);//16.10.31 + if(MeasureDepth(Out)==1,Out=[Out]); + tmp1=[]; + forall(Out,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=substring(textformat(plist,5),1,length(textformat(plist,5))-1); + tmp=name+"=Bowdata("+tmp1+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); +); + +Deqplot(nm,deq,rng,initf):=Deqplot(nm,deq,rng,Lcrd(initf)_1,initf,[]); +Deqplot(nm,deq,rng,Arg1,Arg2):=( + regional(initt,initf,options); + if(isreal(Arg1) & length(Arg1)==1, + initt=Arg1; + initf=Arg2; + options=[]; + , + initf=Lcrd(Arg1); + initt=initf_1; + options=Arg2; + ); + Deqplot(nm,deq,rng,initt,initf,options); +); +Deqplot(nm,deq,rng,initt,initf,options):=( + regional(name,Noflg,Ltype,eqL,opstr,opcindy,pdL,var2,deq2,rng2,initt2,initf2, + tmp,tmp1,tmp2,tmp3,tmp4); + tmp=tokenize(deq,"="); + tmp1=tmp_1; + tmp2=tmp_2; + tmp3=tokenize(tmp1,"`"); + if(length(tmp3)==2, + if(indexof(tmp1,"[")>0, + Deqplot(nm,deq,rng,initt,initf,options,[2,3]); + , + if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]"); + tmp=tokenize(rng2,"="); + deq2="["+tmp_1+","+replace(tmp1,"`","]")+"`=[1,"+tmp2+"]"; + rng2="t="+tmp_2; + if(isreal(initf) & length(initf)==1, + initf2=[initt,initf]; + initt2=initt; + , + initf2=Lcrd(initf)); + initt2=initf2_1; + Deqplot(nm,deq2,rng2,initt2,initf2,options,[2,3]); + ); + , + name="de"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + eqL=tmp_5; + opcindy=tmp_9; + opstr=""; + forall(eqL, + if(Toupper(substring(#,0,1))=="N", + tmp=indexof(#,"="); + tmp1="N="+substring(#,tmp,length(#)); + opstr=opstr+",'"+tmp1+"'"; + ); + ); + if(Noflg<1, + if(indexof(rng,"=")>0,rng2=rng,rng2=rng+"=[XMIN,XMAX]"); + var2="d"+tmp3_1; + deq2="["+tmp3_1+","+var2+"]`=["; + tmp=replace(tmp2,tmp3_1+"`",var2); + deq2=deq2+var2+","+tmp+"]"; + Deqplot(nm,deq2,rng2,initt,initf,append(options,"nodisp"),[1,2]); + parse(tmp); + tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',"; + tmp=tmp+initt+","+initf+opstr+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + parse("de"+nm); + ); + ); +); +Deqplot(nm,deq,rng,initt,initf,options,Sel):=( +//help:Deqplot("2","y`=y*(1-y)","x",0, 0.5,["Num=100"]); +//help:Deqplot("1","y``=-y","x",0, [1,0]); +//help:Deqplot("3","[x,y]`=[x*(1-y),0.3*y*(x-1)]","t=[0,20]",[1,0.5]); + regional(Ltype,Noflg,Inflg,Outflg,strL,opstr,opcindy,Num, + outstr,name,func,xf,yf,pdL,Eps,Inf,t1,t2,tt,Vname,dt,funP,funN,flg, + kl1,kl2,kl3,kl4,x0,y0,x1,y1,tmp,tmp1,tmp2); + name="de"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + Inflg=tmp_3; + Outflg=tmp_4; + eqL=tmp_5; + strL=tmp_7; +// opstr=tmp_(length(tmp)-1); + opstr=""; + opcindy=tmp_(length(tmp)); + outstr=""; + forall(strL, + tmp=Toupper(substring(#,0,1)); + if(tmp=="S", + outstr="Sci"; + ); + ); + Num=50; + forall(eqL, + tmp=indexof(#,"="); + tmp2=substring(#,0,1); + tmp2=Toupper(tmp2); + tmp1=substring(#,tmp,length(#)); + opstr=opstr+",'"+tmp2+"="+tmp1+"'"; + if(Toupper(substring(#,0,1))=="N", + Num=parse(tmp1); + ); + ); + if(outstr=="Sci", + if(Inflg==0 & Outflg==0,Outflg=1;Inflg=1); + ); + if(Noflg<3, + if(outstr=="Sci", + if(Outflg==1, + println("Output Deqplot "+name); + SCIWRLIST=append(SCIWRLIST,name); + ); + if(Inflg==1, + println("Input Deqplot "+name); + if(length(SCIRELIST)==0, + ReadOutData(Fnameout); + ); + tmp=parse(name); + if(islist(tmp), + Extractdata(name,["nodisp"]); // 12.19 + ); + SCIRELIST=append(SCIRELIST,name); + ); + , + Eps=10^(-3); + Inf=10^3; + tmp=tokenize(deq,"="); + tmp1=tmp_1; + func=tmp_2; + tmp=indexof(tmp1,","); + xf=substring(tmp1,1,tmp-1); + yf=substring(tmp1,tmp,length(tmp1)); + tmp=indexof(yf,"]"); + yf=substring(yf,0,tmp-1); + tmp=tokenize(rng,"="); + Vname=tmp_1; + tmp=parse(tmp_2); + t1=tmp_1; + t2=tmp_2; + tmp="funP("+Vname+","+xf+","+yf+"):="+func+";"; + parse(tmp); + tmp=tokenize(func,","); + tmp1="-("+substring(tmp_1,1,length(tmp_1))+")"; + tmp2="-("+substring(tmp_2,0,length(tmp_2)-1)+")"; + tmp="funN("+Vname+","+xf+","+yf+"):=["+tmp1+","+tmp2+"];"; + parse(tmp); + dt=(t2-t1)/Num; + tt=initt; + tmp=Lcrd(initf); + x0=tmp_1; + y0=tmp_2; + pdL=[[tt,x0,y0]]; + flg=0; + forall(1..floor((t2-initt)/dt), + if(flg==0, + kl1=dt*funP(tt,x0,y0); + kl2=dt*funP(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2); + kl3=dt*funP(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2); + kl4=dt*funP(tt+dt,x0+kl3_1,y0+kl3_2);//16.10.14 + tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6; + x0=tmp1_1; + y0=tmp1_2; + tt=initt+#*dt; + pdL=append(pdL,[tt,x0,y0]); + if(|tmp1|>Inf,flg=1); + ); + ); + tt=initt; + tmp=Lcrd(initf); + x0=tmp_1; + y0=tmp_2; + flg=0; + forall(1..floor((initt-t1)/dt), + if(flg==0, + kl1=dt*funN(tt,x0,y0); + kl2=dt*funN(tt+dt/2,x0+kl1_1/2,y0+kl1_2/2); + kl3=dt*funN(tt+dt/2,x0+kl2_1/2,y0+kl2_2/2); + kl4=dt*funN(tt+dt/2,x0+kl3_1/2,y0+kl3_2/2); + tmp1=[x0,y0]+(kl1+2*kl2+2*kl3+kl4)/6; + x0=tmp1_1; + y0=tmp1_2; + tt=initt-#*dt; + pdL=prepend([tt,x0,y0],pdL); + if(|tmp1|>Inf,flg=1); + ); + ); + println("Generate Deqplot "+name); + pdL=apply(pdL,#_Sel); + tmp1=apply(pdL,Pcrd(#)); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + ); + if(Noflg<1, + tmp=name+"=Deqplot(Assign("+Dq+deq+Dq+"),'"+rng+"',"; + tmp=tmp+initt+","+initf+opstr+")"; + GLIST=append(GLIST,tmp); + ); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + if(outstr=="Sci", + if(Inflg==1, + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + , + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + pdL; + ); + ); +); + +Enclosing(nm,plist):=EnclosingS(nm,plist); +Enclosing(nm,plist,options):=EnclosingS(nm,plist,options); +EnclosingS(nm,plist):=EnclosingS(nm,plist,[]); +EnclosingS(nm,plist,options):=( +//help:Enclosing("1",["sc2","crAB","sc2","Invert(sc1)"],[pt,"dr"]); + regional(name,AnsL,Start,Eps,EEps,S,Flg,Fdata,Gdata,KL,pt,qt, + t1,t2,t3,ii,nn,tmp,tmp1,tmp2,Ltype,Noflg,realL,eqL,opstr,opcindy); + name="en"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + eqL=tmp_5; + realL=tmp_6; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + Eps=10^(-3); + EEps=0.1; + Start=[]; + Flg=0; + forall(realL, + if(isList(#) % ispoint(#), + Start=Lcrd(#); // 15.09.12 + , + Flg=Flg+1; + if(Flg==1,Eps=#); + if(Flg==2,EEps=#); + ); + ); +// tmp1=concat([Eps,EEps],eqL); // 15.04.06 + Fdata=plist_1; + Gdata=plist_(length(plist)); + KL=IntersectcrvsPp(Fdata,Gdata); + if(length(KL)==1, + pt=KL_1_1; + t1=KL_1_2; + ); + if(length(KL)==0, + if(Numptcrv(Fdata)>Numptcrv(Gdata), + tmp=Nearestpt(Fdata,Gdata); + pt=tmp_1; + t1=tmp_2; + , + tmp=Nearestpt(Gdata,Fdata); + pt=tmp_3; + t1=tmp_4; + ); + ); + if(length(KL)>1, + if(Start==[], + err("No Start Point"); + , + pt=KL_1_1; + t1=KL_1_2; + tmp=|pt-Start|; + forall(2..length(KL),ii, // 15.04.20 + tmp1=KL_ii_1; + tmp2=|tmp1-Start|; // 15.04.20 + if(tmp2<tmp, + pt=tmp1; + t1=KL_ii_2; + tmp=tmp2; + ); + ); + ); + ); +// pt=Pcrd(pt); // 15.09.12 + Start=pt; + AnsL=[]; + forall(1..length(plist),nn, + Fdata=plist_nn; + if(nn>1, pt=qt); + if(nn==length(plist), + qt=Start; + , + Flg=0; + Gdata=plist_(nn+1); +// tmp1=concat([Eps,EEps],eqL); // 15.04.06 + KL=IntersectcrvsPp(Gdata,Fdata); + if(length(KL)==1, + tmp=KL_1; + qt=KL_1_1; + t3=KL_1_2; + Flg=10; + ); + if(length(KL)==0,Flg=1); + if(length(KL)>1, + tmp1=KL_1_1; + tmp2=KL_2_1; + tmp=|tmp1-tmp2|; + if(tmp<Eps*10, Flg=1); + ); + if(Flg==1, + if(Numptcrv(Fdata)>Numptcrv(Gdata), + tmp=Nearestpt(Fdata,Gdata); + qt=tmp_1; + t3=tmp_4; + Flg=10; + , + tmp=Nearestpt(Gdata,Fdata); + qt=tmp_3; + t3=tmp_2; + Flg=10; + ); + ); + if(Flg<10, + t2=10^6; //%inf; + forall(1..length(KL),ii, + tmp1=KL_ii_1; + tmp=KL_ii_3; + tmp2=ParamonCurve(tmp1,tmp,Fdata); + tmp3=KL_ii_2; + if(tmp2>t1+Eps & tmp2<t2+Eps, + qt=tmp1; + t2=tmp2; + t3=tmp3; + ); + ); + ); + ); + tmp=Partcrv("",pt,qt,Fdata,["nodata"]); + t1=t3; + if(nn==1, + AnsL=tmp; + , + AnsL=concat(AnsL,tmp_(2..length(tmp))); + ); + ); + AnsL=apply(AnsL,Pcrd(#)); // 15.09.12 + AnsL_(length(AnsL))=AnsL_1;//16.10.20 + if(Noflg<3, + println("generate Enclosing "+name); + tmp=name+"="+textformat(AnsL,5); + parse(tmp); +// tmp=name+"=Enclosing(";//16.10.20from +// tmp1="list("; +// forall(plist, +// tmp1=tmp1+#+","; +// ); +// tmp=tmp+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")"; + tmp=apply(AnsL,LLcrd(#)); + tmp=name+"=Listplot("+textformat(tmp,5)+")";//16.10.20upto + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + tmp=apply(AnsL,LLcrd(#));//16.10.20 + tmp; +); + +Shade(plist):=Shade(plist,[]); +Shade(plist,options):=( +//help:Shade(["gr2","sg1"],[0.5]); +//help:Shade([pointlist],[0.5]); + regional(tmp,tmp1,tmp2,opstr,opcindy,Str,G2,flg); + if(isstring(plist_1), // 16.01.24 + println("output Shade of "+plist); + , + println("output Shade of lists"); + ); + tmp=Divoptions(options); + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + flg=0; + forall(plist, + if(flg==0, + if(isstring(#),tmp=parse(#),tmp=#); // from 16.01.24 + if(!islist(tmp),flg=1); upto + ); + ); + if(flg==1, +// err("some data not defined yet"); + , + G2=Joincrvs("1",plist,["nodata"]); + G2=apply(G2,Pcrd(#)); + tmp1="fillpoly("+textformat(G2,5)+opcindy+");"; + parse(tmp1); + ); + Str="Shade("; + tmp1="list("; + forall(plist, + if(isstring(#), // from 16.01.24 + if(length(#)>1, + tmp1=tmp1+#+","; + , + tmp1=tmp1+Dq+#+Dq+","; + ); + , + tmp1=tmp1+"Listplot("+textformat(#,5)+"),"; + ); // upto 16.01.24 + ); + Str=Str+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")"; + Com2nd(Str); +); + + +//help:start(); + +Rotatepoint(point,Theta,ctr):=( +//help:Rotatepoint(A,2*pi/3,B); + regional(X1,X2,Y1,Y2,Cx,Cy,tmp); + tmp=Lcrd(point); + X1=tmp_1; Y1=tmp_2; + tmp=Lcrd(ctr); + Cx=tmp_1; Cy=tmp_2; + X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta); + Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta); + [X2,Y2]; +); + +Translatepoint(point,mov):=( +//help:Translatepoint(A,[2,3]); + regional(X1,X2,Y1,Y2,Cx,Cy,tmp); + tmp=Lcrd(point); + X1=tmp_1; Y1=tmp_2; + tmp=Lcrd(mov); + Cx=tmp_1; Cy=tmp_2; + X2=X1+Cx; + Y2=Y1+Cy; + [X2,Y2]; +); + +Scalepoint(point,ratio,center):=( +//help:Scalepoint(A,[3,2],[0,0]); + regional(X1,X2,Y1,Y2,Cx,Cy,tmp); + tmp=Lcrd(point); + X1=tmp_1; Y1=tmp_2; + tmp=Lcrd(center); + Cx=tmp_1; Cy=tmp_2; + X2=Cx+ratio_1*(X1-Cx); + Y2=Cy+ratio_2*(Y1-Cy); + [X2,Y2]; +); + +Reflectpoint(point,symL):=( +//help:Reflectpoint(A,B); +//help:Reflectpoint(A,[[2,3]]); +//help:Reflectpoint(A,[C,E]);\\ + regional(X1,X2,Y1,Y2,Us,Vs,Pt1,Pt2,Cx,Cy,tmp); + tmp=Lcrd(point); + X1=tmp_1; Y1=tmp_2; + Pt1=Lcrd(symL_1); + if(length(symL)==1, + Pt2=Pt1; + , + Pt2=Lcrd(symL_2); + ); + Us=Pt2_1-Pt1_1; + Vs=Pt2_2-Pt1_2; + if(Pt1==Pt2, + X2=2*Pt1_1-X1; + Y2=2*Pt1_2-Y1; + , + X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1 + -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); + Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1 + +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); + ); + [X2,Y2]; +); + +Rotatedata(nm,plist,Theta):=Rotatedata(nm,plist,Theta,[]); +Rotatedata(nm,plist,angle,options):=( +//help:Rotatedata("1","crAB",pi/3,[[1,5],"dr,2"]); + regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdLL,PdL, + opcindy,Nj,Njj,Kj,Mj,X1,Y1,X2,Y2,Ltype,Noflg,name); + name="rt"+nm; + Pt=[0,0]; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + tmp1=tmp_6; + if(length(tmp1)>0,Pt=Lcrd(tmp1_1)); + pdata=plist; + if(isstring(pdata),pdata=[pdata]); + if(!isstring(pdata_1) & MeasureDepth(pdata)==1, + pdata=[pdata]; + ); + if(isstring(angle),Theta=parse(angle),Theta=angle); + Cx=Pt_1; Cy=Pt_2; + PdL=[]; + forall(pdata,Njj, + if(isstring(Njj),Kj=parse(Njj),Kj=Njj); + if(MeasureDepth(Kj)==1,Kj=[Kj]); + tmp2=[]; + forall(Kj,Nj, + tmp1=[]; + forall(Nj, + tmp=LLcrd(#); + X1=tmp_1; + Y1=tmp_2; + X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta); + Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta); + tmp1=concat(tmp1,[[X2,Y2]]); + ); + tmp2=concat(tmp2,[tmp1]); + ); + PdL=concat(PdL,tmp2); + ); + if(Noflg<3, + println("generate Rotatedata "+name); + tmp1=[]; + forall(PdL,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// tmp1=textformat(plist,5); + tmp1=text(plist); // 15.10.15 + tmp1=replace(tmp1,"[","list("); + tmp1=replace(tmp1,"]",")"); + tmp=name+"=Rotatedata("+tmp1+"," + +textformat(angle,5)+","+textformat(Pt,5)+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; +); + +translatedata(nm,plist,mov):=translatedata(nm,plist,mov,[]); +translatedata(nm,plist,mov,options):=( +//help:translatedata("1",["gr1"],[1,2]); + regional(tmp,tmp1,tmp2,pdata,Cx,Cy,PdL,Nj,Njj,Kj, + opcindy,X2,Y2,Ltype,Noflg,name); + name="tr"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + pdata=plist; + if(isstring(pdata),pdata=[pdata]); + if(!isstring(pdata_1) & MeasureDepth(pdata)==1, + pdata=[pdata]; + ); + tmp=Lcrd(mov); + Cx=tmp_1; Cy=tmp_2; + PdL=[]; + forall(pdata,Njj, + if(isstring(Njj),Kj=parse(Njj),Kj=Njj); + if(MeasureDepth(Kj)==1,Kj=[Kj]); + tmp2=[]; + forall(Kj,Nj, + tmp1=[]; + forall(Nj, + tmp=LLcrd(#); + X2=tmp_1+Cx; + Y2=tmp_2+Cy; + tmp1=concat(tmp1,[[X2,Y2]]); + ); + tmp2=concat(tmp2,[tmp1]); + ); + PdL=concat(PdL,tmp2); + ); + if(Noflg<3, + println("generate translatedata "+name); + tmp1=[]; + forall(PdL,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// tmp1=textformat(plist,5); + tmp1=text(plist); // 15.10.15 + tmp1=replace(tmp1,"[","list("); + tmp1=replace(tmp1,"]",")"); + tmp=name+"=translatedata("+tmp1+","+textformat(mov,5)+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; +); + +Scaledata(nm,plist,ratioV):=( + regional(tmp); + tmp=Lcrd(ratioV); + Scaledata(nm,plist,tmp_1,tmp_2,[]); +); +Scaledata(nm,plist,Arg1,Arg2):=( +//help:Scaledata("1","crAB",3,2,[[0,0]]); + regional(tmp,options); + if(islist(Arg2), + tmp=Lcrd(Arg1); + options=Arg2; + Scaledata(nm,plist,tmp_1,tmp_2,options); + , + Scaledata(nm,plist,Arg1,Arg2,[]); + ); +); +Scaledata(nm,plist,rx,ry,options):=( + regional(tmp,tmp1,tmp2,pdata,Theta,Pt,Cx,Cy,PdL, + opcindy,Nj,Njj,Kj,X2,Y2,Ltype,Noflg,name); + name="sc"+nm; + Pt=[0,0]; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + tmp1=tmp_6; + if(length(tmp1)>0, + Pt=Lcrd(tmp1_1); + ); + pdata=plist; + if(isstring(pdata),pdata=[pdata]); + if(!isstring(pdata_1) & MeasureDepth(pdata)==1, + pdata=[pdata]; + ); + Cx=Pt_1; Cy=Pt_2; + PdL=[]; + forall(pdata,Njj, + if(isstring(Njj),Kj=parse(Njj),Kj=Njj); + if(MeasureDepth(Kj)==1,Kj=[Kj]); + tmp2=[]; + forall(Kj,Nj, + tmp1=[]; + forall(Nj, + tmp=LLcrd(#); + X2=Cx+rx*(tmp_1-Cx); + Y2=Cy+ry*(tmp_2-Cy); + tmp1=concat(tmp1,[[X2,Y2]]); + ); + tmp2=concat(tmp2,[tmp1]); + ); + PdL=concat(PdL,tmp2); + ); + if(Noflg<3, + println("generate Scaledata "+name); + tmp1=[]; + forall(PdL,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); + tmp1=text(plist); // 15.10.15 + tmp1=replace(tmp1,"[","list("); + tmp1=replace(tmp1,"]",")"); + tmp=name+"=Scaledata("+tmp1+"," + +textformat(rx,5)+","+textformat(ry,5)+","+textformat(Pt,5)+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; +); + +Reflectdata(nm,plist,symL):=Reflectdata(nm,plist,symL,[]); +Reflectdata(nm,plist,symL,options):=( +//help:Reflectdata("1","crAB",[C]); + regional(tmp,tmp1,tmp2,pdata,Us,Vs,Pt1,Pt2,Cx,Cy,PdL, + opcindy,Nj,Njj,Kj,X1,Y1,X2,Y2,Ltype,Noflg,name); + name="re"+nm; + Pt=[0,0]; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opcindy=tmp_(length(tmp)); + pdata=plist; + if(isstring(pdata),pdata=[pdata]); + if(!isstring(pdata_1) & MeasureDepth(pdata)==1, + pdata=[pdata]; + ); + Pt1=Lcrd(symL_1); + if(length(symL)==1, + Pt2=Pt1; + , + Pt2=Lcrd(symL_2); + ); + Us=Pt2_1-Pt1_1; + Vs=Pt2_2-Pt1_2; + PdL=[]; + forall(pdata,Njj, + if(isstring(Njj),Kj=parse(Njj),Kj=Njj); + if(MeasureDepth(Kj)==1,Kj=[Kj]); + tmp2=[]; + forall(Kj,Nj, + tmp1=[]; + forall(Nj, + tmp=LLcrd(#); + X1=tmp_1; + Y1=tmp_2; + if(Pt1==Pt2, + X2=2*Pt1_1-X1; + Y2=2*Pt1_2-Y1; + , + X2=(Us^2-Vs^2)/(Us^2+Vs^2)*X1+2*Us*Vs/(Us^2+Vs^2)*Y1 + -2*Vs*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); + Y2=2*Us*Vs/(Us^2+Vs^2)*X1-(Us^2-Vs^2)/(Us^2+Vs^2)*Y1 + +2*Us*(Us*Pt1_2-Vs*Pt1_1)/(Us^2+Vs^2); + ); + tmp1=concat(tmp1,[[X2,Y2]]); + ); + tmp2=concat(tmp2,[tmp1]); + ); + PdL=concat(PdL,tmp2); + ); + if(Noflg<3, + println("generate Reflectdata "+name); + tmp1=[]; + forall(PdL,tmp2, + tmp=apply(tmp2,Pcrd(#)); + tmp1=append(tmp1,tmp); + ); + if(length(tmp1)==1,tmp1=tmp1_1); + tmp=name+"="+textformat(tmp1,5); + parse(tmp); +// tmp1=textformat(plist,5); + tmp1=text(plist); // 15.10.15 + tmp1=replace(tmp1,"[","list("); + tmp1=replace(tmp1,"]",")"); + tmp=name+"=Reflectdata("+tmp1+","+textformat(symL,5)+")"; + GLIST=append(GLIST,tmp); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + PdL; +); + +Mksegments():=Mksegments([]); +Mksegments(options):=( +//help:Mksegments(); + regional(segstr,p,q,r,tmp1,tmp2,tmp3); + forall(allsegments(),seg, + str=text(inspect(seg,"definition")); + tmp1=indexof(str,"("); + tmp2=indexof(str,";"); + tmp3=indexof(str,")"); + p=substring(str,tmp1,tmp2-1); + q=substring(str,tmp2,tmp3-1); + Listplot([parse(p),parse(q)]); + ); +); + +Mkcircles():=Mkcircles([]); +Mkcircles(options):=( +//help:Mkcircles(): + regional(seg,cir,str,p,q,r,tmp1,tmp2,tmp3,tmp4); + forall(allcircles(),cir, + str=text(inspect(cir,"definition")); + tmp1=indexof(str,"("); + tmp2=indexof(str,";"); + tmp3=indexof(str,")"); + tmp4=indexof(str,";",tmp2+1); + if(tmp4==0, + p=substring(str,tmp1,tmp2-1); + q=substring(str,tmp2,tmp3-1); + Circledata([parse(p),parse(q)]); + , + p=substring(str,tmp1,tmp2-1); + q=substring(str,tmp2,tmp4-1); + r=substring(str,tmp4,tmp3-1); + Circledata([parse(p),parse(q),parse(r)]); + ); + ); +); + +Makesciarg(arglist):=( + regional(str,tmpstr); + str=""; + forall(arglist, + if(isstring(#), + tmpstr=Dq+#+Dq; + , + tmpstr=textformat(#,5); + ); + str=str+tmpstr+","; + ); + str=substring(str,0,length(str)-1); + str; +); + +Setax(arglist):=( +//help:Setax(["l","x","e","y","n","O","sw"]); +//help:Setax([7,"nw"]); + regional(tmp); + tmp=Makesciarg(arglist); + Com1st("Setax("+tmp+")"); +); + +Htickmark(arglist):=( +//help:Htickmark([1,"1",2,"sw","2"]); + regional(tmp); + tmp=""; + tmp=Makesciarg(arglist); + Com2nd("Htickmark("+tmp+")"); +); + +Vtickmark(arglist):=( +//help:Vtickmark([1,"1",2,"sw","2"]); + regional(tmp); + tmp=Makesciarg(arglist); + Com2nd("Vtickmark("+tmp+")"); +); + +Drwxy():=( +//help:Drwxy(); + Com2nd("Drwxy()"); + Addax(0); // 16.01.21 +); + +Drwpt(pstr):=Drawpoint(pstr); +Drwpt(ptlist,nn):=( // 16.03.05 from +//help:Drwpt(A); +//help:Drwpt("[1,1],0"); +//help:Drwpt(A,0); +//help:Drwpt([1,2],0); + Drawpoint(ptlist,nn); +); +Drawpoint(pstr):=( + if(isstring(pstr), + println("Drwpt : "+pstr); + Com2nd("Drwpt("+pstr+")"); + , + Drawpoint(pstr,1); + ); +); +Drawpoint(ptlistorg,nn):=( + regional(ptlist,thick,tmp,tmp1); + println("Drwpt : "+text(ptlistorg)); + if(islist(ptlistorg), + if(MeasureDepth(ptlistorg)==1, + ptlist=ptlistorg + , + ptlist=[ptlistorg] + ); + , + ptlist=[ptlistorg] + ); + thick=PenThick/PenThickInit;// 16.04.09 from + tmp1=max(TenSize/TenSizeInit,1)/8; + Setpen(tmp1); // 16.04.09 upto + forall(ptlist, + tmp=textformat(#,5)+","+text(nn); + Com2nd("Drwpt("+tmp+")"); // 16.04.09 + ); + Setpen(thick); // 16.04.09 +);// 16.03.05 upto + +Addax(param):=( +//help:Addax(0); + ADDAXES=text(param); +); + +Expr(Pt,Dr,St):=Expr([Pt,Dr,St]); +Expr(list):=Expr(list,[]); +Expr(listorg,options):=( //16.10.09 +//help:Expr([A,"e","f(x)=x^2"]); + regional(list,str,tmp,tmp1,tmp2); + list=listorg; + forall(1..round(length(list)/3), + str=list_(3*#); + if(!isstring(str),str=format(str,5)); + str="$"+str+"$"; + list_(3*#)=str; + ); + Letter(list,options); +); + +Letter(Pt,Dr,St):=Letter([Pt,Dr,St]); +Letter(list):=Letter(list,[]); +Letter(list,options):=( +//help:Letter([C,"c","Graph of f(x)"]); + regional(Nj,Pos,Dir,Str,Off,Dmv,Xmv,Ymv,Noflg,opcindy, + opL,aln,sz,clr,bld,ita,tmp,tmp1,tmp2); + tmp=Divoptions(options); + Noflg=tmp_2; + opL=select(options,indexof(#,"->")>0); //16.10.09from + tmp=select(opL,indexof(#,"color")); + size=12; + clr=[0,0,0]; + bld=false; + ita=false; + aln="left"; + forall(opL, + tmp=indexof(#,"->"); + tmp1=removespace(substring(#,0,tmp-1)); + tmp2=substring(#,tmp+1,length(#)); + if(tmp1=="size",sz=parse(tmp2)); + if(tmp1=="color",clr=parse(tmp2)); + if(tmp1=="bold",bld=parse(tmp2)); + if(tmp1=="ita",ita=parse(tmp2)); + );//16.10.09upto + Off=-4; + Dmv=8; + Nj=1; + while(Nj+2<=length(list), +// Pos=textformat(list_Nj,5); + Pos=list_Nj; + Dir=list_(Nj+1); + tmp=indexof(Dir,"s")+indexof(Dir,"n");//16.10.19from + if(tmp>0, + tmp=indexof(Dir,"w")+indexof(Dir,"e"); + if(tmp==0, + Dir="c"+Dir;//16.10.08 + ); + );//16.10.19upto + Str=list_(Nj+2); + if(!isstring(Str),Str=format(Str,5)); // 16.09.30,10.09 + tmp=replace(Str,".xy",""); + tmp=replace(tmp,".x","(1)"); + Str=replace(tmp,".y","(2)"); + if(indexof(Str,"`")>0, +// tmp=Dq+",Assign('"+Str+"','`',Prime()))"; + tmp=Dq+",Assign('"+Str+"'))"; // 15.02.22 + , + tmp=Dq+","+Dq+Str+Dq+")"; + ); + if(Noflg==0, + Com2nd("Letter("+Lcrd(Pos)+","+Dq+Dir+tmp);//16.10.10 + ); + if(Noflg<2, + Xmv=0;//16.10.13 + Ymv=-4; + if(indexof(Dir,"n")>0, + Ymv=Dmv/2; + ); + if(indexof(Dir,"s")>0, + Ymv=-Dmv*3/2;//16.10.13 + ); + if(indexof(Dir,"e")>0, + Xmv=Dmv/2; + Off=0; + aln="left"; + ); + if(indexof(Dir,"w")>0, + Xmv=-Dmv/2; + Off=0; // 16.09.30from + aln="right"; + ); + if(indexof(Dir,"c")>0, + Xmv=0;//16.10.13 + Off=0; + if(Ymv==0,Ymv=-4);//16.10.08 + aln="mid"; // 16.09.30upto + ); + drawtext(Pcrd(Pos),Str,offset->[Off+Xmv,Off+Ymv], + size->sz,color->clr,align->aln,bold->bld,italics->ita);//16.10.09 + ); + Nj=Nj+3; + ); +); + +Letterrot(pt,dir,str):=Letterrot(pt,dir,0,0,str); +Letterrot(pt,dir,movstr,str):=( +//help:Letterrot(C,B-A,"AB"): +//help:Letterrot(C,B-A,0,5,"AB"): +//help:Letterrot(C,B-A,"t0n5","AB"): + regional(tmov,nmov,tmp,tmp1,tmp2); + tmp1=indexof(movstr,"t"); + tmp2=indexof(movstr,"n"); + if(tmp1>0, + if(tmp2>0,tmp=tmp2-1,tmp=length(movstr)); + tmov=parse(substring(movstr,tmp1,tmp)); + , + tmov=0; + ); + if(tmp2>0, + nmov=parse(substring(movstr,tmp2,length(movstr))); + , + nmov=0; + ); + Letterrot(pt,dir,tmov,nmov,str); +); +Letterrot(pt,dir,tmov,nmov,str):=( + Letter([pt,"c",str],["notex"]); + Com2nd("Letterrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')"); +); + +Exprrot(pt,dir,str):=Exprrot(pt,dir,0,0,str); +Exprrot(pt,dir,movstr,str):=( +//help:Exprrot(C,B-A,"d"): +//help:Exprrot(C,B-A,0,5,"d"): +//help:Exprrot(C,B-A,"t0n5","d"): + regional(tmov,nmov,tmp,tmp1,tmp2); + tmp1=indexof(movstr,"t"); + tmp2=indexof(movstr,"n"); + if(tmp1>0, + if(tmp2>0,tmp=tmp2-1,tmp=length(movstr)); + tmov=parse(substring(movstr,tmp1,tmp)); + , + tmov=0; + ); + if(tmp2>0, + nmov=parse(substring(movstr,tmp2,length(movstr))); + , + nmov=0; + ); + Exprrot(pt,dir,tmov,nmov,str); +); +Exprrot(pt,dir,tmov,nmov,str):=( + Expr([pt,"c",str],["notex"]); + Com2nd("Exprrot("+pt+","+dir+","+tmov+","+nmov+",'"+str+"')"); +); + +Putpoint(name,Pt):=Putpoint(name,Pt,Pt); +Putpoint(name,Ptinit,Pt):=( +//help:Putpoint("A",[1,2],[1,A.y]); + regional(ptstr); + ptstr=apply(allpoints(),#.name); + if(!contains(ptstr,name), + createpoint(name,Pcrd([Ptinit_1,Ptinit_2])); + , + ptstr=name+".xy="+textformat(Pcrd(Pt),5); + parse(ptstr); + ); +); + +Bezierpt(t,ptlist,ctrlist):=( + regional(flg3,p0,p1,p2,p3,p4,p5,p6,p7,p8,p9); + p0=ptlist_1; + p3=ptlist_2; + p1=ctrlist_1; + if(length(ctrlist)==1, + p2=p3; + flg3=0; + , + p2=ctrlist_2; + flg3=1; + ); + if(length(p0)<3, // 15.02.08 + p0=Lcrd(p0); + p3=Lcrd(p3); + p1=Lcrd(p1); + p2=Lcrd(p2); + ); + p4=(1-t)*p0+t*p1; + p5=(1-t)*p1+t*p2; + p6=(1-t)*p2+t*p3; + p7=(1-t)*p4+t*p5; + p8=(1-t)*p5+t*p6; + p9=(1-t)*p7+t*p8; + if(flg3==0,p7,p9); +); + +Bezier(ptctrlist):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,[]); +Bezier(ptctrlist,options):=BezierCurve(ptctrlist_3,ptctrlist_1,ptctrlist_2,options); +Bezier(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]); +Bezier(nm,ptlist,ctrlist,options):=BezierCurve(nm,ptlist,ctrlist,options); +BezierCurve(nm,ptlist,ctrlist):=BezierCurve(nm,ptlist,ctrlist,[]); +BezierCurve(nm,ptlistorg,ctrlistorg,options):=( +//help:Bezier("1",[A,D],[B,C]); +//help:Bezier(options=["Num=10"]); + regional(name,Ltype,Noflg,opstr,opcindy,Num, + ptlist,ctrlist,tmp,tmp1,tmp2,ii,st,out,list); + name="bz"+nm; + tmp=Divoptions(options); + Ltype=tmp_1; + Noflg=tmp_2; + opstr=tmp_(length(tmp)-1); + opcindy=tmp_(length(tmp)); + Num=10; + tmp1=tmp_5; + forall(tmp1, // 14.12.31 + if(substring(#,0,1)=="N", + tmp2=indexof(#,"="); + Num=parse(substring(#,tmp2,length(#))); + opstr=opstr+","+Dq+#+Dq; + ); + ); + ptlist=apply(ptlistorg,Lcrd(#)); // 16.08.16 + ctrlist=[]; // 14.12.31 + if(length(ctrlistorg)==length(ptlist)-1, + forall(ctrlistorg,tmp1, + if(MeasureDepth(tmp1)==0,tmp=[tmp1],tmp=tmp1); + tmp=apply(tmp,Lcrd(#)); // 16.08.16 + ctrlist=append(ctrlist,tmp); + ); + , + forall(1..(length(ptlist)-1),ii, + tmp=ctrlistorg_((2*ii-1)..(2*ii)); + tmp=apply(tmp,Lcrd(#)); // 16.08.16 + ctrlist=append(ctrlist,tmp); + ); + ); + if(!islist(Num), + Num=apply(ctrlist,Num); + ); + list=[]; + forall(1..(length(ptlist)-1),ii, + tmp1=ptlist_(ii..(ii+1)); + tmp2=ctrlist_ii; + if(ii==1,st=0,st=1); + forall(st..Num_ii, + tmp=Bezierpt(#/Num_ii,tmp1,tmp2); + list=append(list,tmp); + ); + ); + if(Noflg<3, + println("generate Bezier "+name); + out=apply(list,Pcrd(#)); + tmp=name+"="+textformat(out,5); + parse(tmp); + tmp1=textformat(ptlist,5); + tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")"; + tmp2=textformat(ctrlist,5); + tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")"; + GLIST=append(GLIST,name+"=Bezier("+tmp1+","+tmp2+opstr+")"); + ); + if(Noflg<2, + if(isstring(Ltype), + Ltype=GetLinestyle(text(Noflg)+Ltype,name); + , + if(Noflg==1,Ltype=0); + ); + GCLIST=append(GCLIST,[name,Ltype,opcindy]); + ); + list; +); + +Readcsvsla(fname):=Readplotdigdata(fname,[]); +Readcsvsla(fname,options):=Readplotdigdata(fname,options); +Readplotdigdata(fname):=Readplotdigdata(fname,[]); +Readplotdigdata(fname,options):=( + regional(fsc,mv,cmdall,dataL,nd,npt,ptdata,ii,tmp,tmp1,tmp2,tmp3); + tmp=Divoptions(options); + tmp1=tmp_6; + sc=1;//10; + mv=[0,0];//[5,5]; + forall(tmp1, + if(!islist(#),sc=#,mv=#); + ); + if(indexof(fname,".")>0, + tmp=load(fname); + , + tmp=load(fname+".txt"); + ); + cmdall=tokenize(tmp,"//"); + dataL=[]; + forall(2..length(cmdall),ii, + tmp1=parse("["+cmdall_ii+"]"); + dataL=append(dataL,tmp1); + ); + if(length(dataL_(length(dataL)))<2, + dataL=dataL_(1..(length(dataL)-1)); + ); + nd=length(dataL_1)/2; + npt=length(dataL); + ptdata=[]; + forall(1..nd,ii, + tmp3=[]; + forall(1..npt, + tmp1=dataL_#_(2*ii-1); + tmp2=dataL_#_(2*ii); + if(isreal(tmp1), + tmp3=append(tmp3,[tmp1,tmp2]); + ); + ); + ptdata=append(ptdata,tmp3); + ); + tmp1=[]; + forall(ptdata, + tmp=#/sc; + tmp=translatedata("1",[tmp],-mv,["nodata"]); + tmp1=append(tmp1,tmp); + ); + ptdata=tmp1; + ptdata; +); + +Putbezierdata(name,ptL):=Putbezierdata(name,ptL,[]); +Putbezierdata(name,ptL,options):=( + regional(psize,Deg,tmp,tmp1,tmp2,p1,p2,pts,ctrs); + tmp=Divoptions(options); + psize=3; + Deg=3; + tmp1=tmp_5; + forall(tmp1, + if(substring(#,0,1)=="D", + tmp=indexof(#,"="); + Deg=parse(substring(#,tmp,length(#))); + ); + if(substring(#,0,1)=="S", + tmp=indexof(#,"="); + psize=parse(substring(#,tmp,length(#))); + ); + ); + pts=[]; + ctrs=[]; + forall(1..length(ptL), + p2=ptL_#; // 16.08.16 + if(ispoint(p2), + tmp1=text(p2); + , + tmp1=name+text(#); + Putpoint(tmp1,p2,Lcrd(parse(tmp1))); // 16.08.16 + ); + inspect(parse(tmp1),"ptsize",psize); + pts=append(pts,parse(tmp1)); + inspect(parse(tmp1),"color",4); + if(#>1, + p1=Lcrd(ptL_(#-1)); // 16.08.16 + p2=Lcrd(ptL_#); // 16.08.16 + if(Deg==3, + tmp=(2*p1+p2)/3; + tmp1=name+"p"+text(#-1); + Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16 + inspect(parse(tmp1),"labeled",false); //15.01.22 + Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22 + inspect(parse(tmp1),"ptsize",psize); + inspect(parse(tmp1),"color",3); + tmp=(p1+2*p2)/3; + tmp2=name+"q"+text(#-1); + Putpoint(tmp2,tmp,Lcrd(parse(tmp2))); // 16.08.16 + inspect(parse(tmp2),"labeled",false); //15.01.22 + Letter([parse(tmp2),"ne",tmp2],["notex"]); //15.01.22 + inspect(parse(tmp2),"ptsize",psize); + inspect(parse(tmp2),"color",3); + ctrs=append(ctrs,[parse(tmp1),parse(tmp2)]); + , + tmp=(p1+p2)/2; + tmp1=name+"p"+text(#-1); + Putpoint(tmp1,tmp,Lcrd(parse(tmp1))); // 16.08.16 + inspect(parse(tmp1),"labeled",false); //15.01.22 + Letter([parse(tmp1),"ne",tmp1],["notex"]); //15.01.22 + inspect(parse(tmp1),"ptsize",psize); + inspect(parse(tmp1),"color",3); + ctrs=append(ctrs,[parse(tmp1)]); + ); + ); + ); + [pts,ctrs,name]; +); + +Bezierstart(n):=( // 2016.02.26 + BezierNumber=n; +); + +Mkbezierptcrv(ptdata):=Mkbezierptcrv(ptdata,[]); +Mkbezierptcrv(ptdata,options):=( + //help:Mkbezierptcrv([A,B,C,D]); + //help:Mkbezierptcrv([[A,B],[C,D]]); + //help:Mkbezierptcrv(options=["Num=10"]); + // global BezierNumber + regional(ptlist,Out,tmp,tmp1,tmp2); + if(isstring(ptdata), + ptlist=Readcsvsla(ptdata,options); + , + ptlist=ptdata; + ); + if(MeasureDepth(ptlist)==1,ptlist=[ptlist]); + Out=[]; + forall(1..length(ptlist), + tmp=floor((BezierNumber-1)/26);// 15.02.23 + if(tmp==0,tmp="",tmp=text(tmp)); + tmp2=mod(BezierNumber,26); + if(tmp2==0,tmp2=26); + tmp1=unicode(text(96+tmp2),base->10)+tmp;// 15.03.11 + tmp2=Putbezierdata(tmp1,ptlist_#,options); + Bezier(tmp2,options); + BezierNumber=BezierNumber+1; + Out=append(Out,tmp2_(1..2)); + ); + Out; +); + +Mkbeziercrv(nm,ptctrL):=Mkbeziercrv(nm,ptctrL,[]); +Mkbeziercrv(nm,ptctrL,options):=( + //help:Mkbeziercrv("1",[[A,B,C,D],[[P,Q],[R,S],T]]); + regional(ptctrLL,name,ptlist,ctrlist,tmp,tmp1,tmp2); + if(MeasureDepth(ptctrL)==2,ptctrLL=[ptctrL],ptctrLL=ptctrL); + forall(1..length(ptctrLL), + name=nm+text(#); + ptlist=ptctrLL_#_1; + ctrlist=ptctrLL_#_2; + Bezier(name,ptlist,ctrlist,options); + ); +); + +Writebezier():=Writebezier(Fhead,"all"); +Writebezier(head):=Writebezier(head,"all"); +Writebezier(head,seL):=( +//help:Writebezier(file); +//help:Writebezier(file,"acd"); + regional(bz,dt,name,tmp,tmp1,tmp2); + bz=select(GLIST,indexof(#,"=Bezier")>0); + tmp1=[]; // 16.04.22from + if(seL!="all", + forall(1..length(seL), + tmp=substring(seL,#-1,#); + tmp=select(bz,indexof(#,"bz"+tmp)>0); + tmp1=concat(tmp1,tmp); + ); + bz=tmp1;// 16.04.22upto + ); + dt=[head+"n",[[length(bz),0]]]; + forall(1..length(bz), + tmp=indexof(bz_#,"="); + name=substring(bz_#,0,tmp-1); + tmp=indexof(bz_#,","+Dq); + if(tmp>0, + tmp1=substring(bz_#,0,tmp-1)+")"; + , + tmp1=bz_#; + ); + tmp1=replace(tmp1,"Bezier(","["); + tmp1=replace(tmp1,"list(","["); + tmp1=replace(tmp1,")","]"); + tmp1=replace(tmp1,",",".xy,"); + tmp1=replace(tmp1,"]",".xy]"); + tmp1=replace(tmp1,".xy,[",",["); + tmp1=replace(tmp1,"].xy","]"); + tmp1=replace(tmp1,name,head+text(#)); + parse(tmp1); + tmp=parse(head+text(#)+"_1"); + dt=concat(dt,[head+text(#)+"k",tmp]); + tmp=parse(head+text(#)+"_2"); + dt=concat(dt,[head+text(#)+"c",tmp]); + ); + WriteOutData(head+".txt",dt); + dt; +); + +Readbezier(file):=Readbezier(file,[]); +Readbezier(file,optionorg):=( +//help:Readbezier("xsr"); +//help:Readbezier(options=["Num=10","nogeo"]); + regional(nn,options,stL,geo,nc,alpha,out,tmp,tmp1,tmp2,tmp3); + options=optionorg; + tmp=Divoptions(options); + stL=tmp_7; + geo=0; + forall(stL, + tmp=Toupper(substring(#,0,1)); + if(tmp=="G",geo=1); + options=remove(options,[#]); + ); + ReadOutData(file); + tmp=file+"n_1_1"; + nn=parse(tmp); + out=[]; + forall(1..nn,nc, + tmp=file+text(nc); + tmp1=parse(tmp+"k"); + tmp2=parse(tmp+"c"); + if(MeasureDepth(tmp2)==1,tmp2=[tmp2]); // 16.04.22from + if(geo==1, + alpha="abcdefghijklmnopqrstuvwxyz"; + forall(1..length(tmp1), + tmp="k"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#); + Putpoint(tmp,tmp1_#,parse(tmp+".xy")); + inspect(parse(tmp),"labeled",false); + inspect(parse(tmp),"ptsize",3); + tmp1_#=parse(tmp+".xy"); + ); + forall(1..length(tmp2), + tmp="c"+BezierNumber+"n"+text(nc)+substring(alpha,#-1,#)+"1"; + Putpoint(tmp,tmp2_#_1,parse(tmp+".xy")); + inspect(parse(tmp),"labeled",false); + inspect(parse(tmp),"color",4); + inspect(parse(tmp),"ptsize",3); + tmp2_#_1=parse(tmp+".xy"); + tmp="c"+BezierNumber+"no"+text(nc)+substring(alpha,#-1,#)+"2"; + Putpoint(tmp,tmp2_#_2,parse(tmp+".xy")); + inspect(parse(tmp),"labeled",false); + inspect(parse(tmp),"color",4); + inspect(parse(tmp),"ptsize",3); + tmp2_#_2=parse(tmp+".xy"); + ); + BezierNumber=BezierNumber+1; + ); + Bezier(file+text(nc),tmp1,tmp2,options);// 16.04.22upto + out=append(out,"bz"+tmp); + ); + out; +); + +Ospline(nm,ptlist):=Ospline(nm,ptlist,[]); +Ospline(nm,ptlist,options):=( +//help:Ospline("1",ptlist,[options]); + regional(tmp,tmp1,tmp2,list,ptL,ctrL,name,closed,flg, + p0,p1,p2,p3,pQ,pR,cc,p01,p02,p11,p12,p21,p22,p31,p32); + name="o"+nm; + if(isstring(ptlist),list=parse(ptlist),list=ptlist); + if(|list_1-list_(length(list))|<10^(-6),closed=1,closed=0); +// list=apply(list,LLcrd(#)); + ctrL=[]; + forall(1..(length(list)-1), + flg=0; + p1=Lcrd(list_#); // 16.08.16 + p2=Lcrd(list_(#+1)); // 16.08.16 + if(#==1 % #==length(list)-1, + flg=1; + if(closed==0, + pQ=(p1+2*p2)/3; // 15.09.21 // 16.08.16 + pR=(2*p1+p2)/3; // 16.08.16 + ctrL=append(ctrL,[pQ,pR]); + flg=2; + , + if(#==1, + p0=Lcrd(list_(length(list)-1)); // 16.08.16 + p3=Lcrd(list_(#+2)); // 16.08.16 + , + p0=Lcrd(list_(#-1)); // 16.08.16 + p3=Lcrd(list_2); // 16.08.16 + ); + ); + ); + if(flg<=1, + if(flg==0, + p0=Lcrd(list_(#-1)); // 16.08.16 + p3=Lcrd(list_(#+2)); // 16.08.16 + ); + tmp=1+sqrt((1+Dotprod(p2-p0,p3-p1)/|p2-p0|/|p3-p1|)/2); + cc=4*|p2-p1|/3/(|p2-p0|+|p3-p1|)/tmp; + pQ=p1+cc*(p2-p0); // 15.09.21 // 16.08.16 + pR=p2+cc*(p1-p3); // 16.08.16 + ctrL=append(ctrL,[pQ,pR]); + ); + ); +// list=apply(list,LLcrd(#)); // 16.08.16 +// ctrL=apply(ctrL,LLcrd(#)); + if(closed==0, // 15.09.21 + p1=ctrL_2_1; + p2=Lcrd(list_2); // 16.08.16 + pQ=p2+(p2-p1); + ctrL_1=[pQ]; + tmp=length(ctrL); + tmp1=ctrL_(tmp-1); + p1=ctrL_(tmp-1)_2; + p2=Lcrd(list_(tmp)); // 16.08.16 + pQ=p2+(p2-p1); + ctrL_tmp=[pQ]; + ); + Bezier("o"+nm,list,ctrL,options); +); + +CRspline(nm,ptL):=CRspline(nm,ptL,[]); +CRspline(nm,ptL,options):=( + // Catmull-Rom spline +//help:CRspline("1",[A,B,C,A]); + regional(name,ptlist,ctrpts,eqL,opcindy,c,v,tmp,tmp1,tmp2,ctrlist,cflg); + name="crsp"+nm; + if(MeasureDepth(ptL)==1,tmp=[ptL],tmp=ptL); + ptlist=tmp_1; + if(length(tmp)==1, + cflg=1; + , + cflg=0; + ctrpts=tmp_2; + ); + c=1/6; + tmp=Divoptions(options); + eqL=tmp_5; + opcindy=tmp_(length(tmp)); // 15.03.05 + forall(eqL, + if(substring(#,0,1)=="R", + tmp2=indexof(#,"="); + c=parse(substring(#,tmp2,length(#))); + ); + ); + ptlist=apply(ptlist,Lcrd(#)); // 16.08.16 + ctrlist=[]; + forall(1..(length(ptlist)-1), + if(#==1, + if(cflg==0, + tmp1=ctrpts_1; + , + v=ptlist_2-ptlist_(length(ptlist)-1); + tmp1=ptlist_#+c*v; + ); + , + v=ptlist_(#+1)-ptlist_(#-1); + tmp1=ptlist_#+c*v; + ); + if(#==length(ptlist)-1, + if(cflg==0, + tmp2=ctrpts_2; + , + v=ptlist_2-ptlist_#; + tmp2=ptlist_(#+1)-c*v; + ); + , + v=ptlist_(#+2)-ptlist_#; + tmp2=ptlist_(#+1)-c*v; + ); + tmp=select(options,indexof(text(#),"->")>0); + tmp=append(tmp,"notex"); //15.03.05 + Pointdata(name+text(#),[tmp1,tmp2],tmp); + ctrlist=append(ctrlist,[tmp1,tmp2]); + ); + Bezier(nm,ptlist,ctrlist,options); +); + +Beziersmooth(nm,ptL):=Bzspline(nm,ptL,[]); +//help:Beziersmooth("1",[A,B,C,A]); +Beziersmooth(nm,ptL,options):=Bzspline(nm,ptL,options); +Bzspline(nm,ptL):=Bzspline(nm,ptL,[]); +Bzspline(nm,ptLorg,options):=( + // smooth bezier + regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr, + tmp,tmp1,tmp2,cflg,ctrlist); + name="bzsp"+nm; + Eps=10^(-3); + ptL=apply(ptLorg,Lcrd(#)); // 16.08.16 + if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0); + forall(2..length(ptL), + pt=ptL_#; + pt1=ptL_(#-1); + tmp1="C"+text(#-1)+"q"; + Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); // 16.08.16 + ); + forall(2..(length(ptL)-1), + if(#<length(ptL) % cflg==1, + lstr="c"+text(#); + pt=ptLorg_#; // 16.08.16 + pt1=parse("C"+text(#-1)+"q"); + create([lstr],"Join",[pt1,pt]); + tmp2="C"+text(#)+"p"; + tmp=Append((2*pt.xy-pt1.xy),1); + create([tmp2],"PointOnLine",[parse(lstr),tmp]); + ); + ); + if(cflg==0, + pt=ptL_1; + pt1=ptL_2; + tmp1="C1p"; + Putpoint(tmp1,(4*pt+pt1)/5,Lcrd(parse(tmp1))); // 16.08.16 + ); + if(cflg==1, + lstr="c1"; + pt=ptLorg_1; // 16.08.16 + pt1=parse("C"+text(length(ptL)-1)+"q"); + create([lstr],"Join",[pt1,pt]); + tmp1="C1p"; + tmp=Append((2*pt.xy-pt1.xy),1); + create([tmp1],"PointOnLine",[parse(lstr),tmp]); + ); + ctrlist=[]; + forall(1..(length(ptL)-1), + if(#>1 % cflg==1, + tmp1="c"+text(#); + inspect(parse(tmp1),"alpha",0.3); + ); + tmp1="C"+text(#)+"p"; + tmp2="C"+text(#)+"q"; + inspect(parse(tmp1),"ptsize",3); + inspect(parse(tmp1),"color",3); + inspect(parse(tmp2),"ptsize",3); + inspect(parse(tmp2),"color",3); + tmp=[parse(tmp1),parse(tmp2)]; + ctrlist=append(ctrlist,tmp); + ); + Bezier(nm,ptL,ctrlist,options); + [ptL,ctrlist]; +); + +Beziersym(nm,ptL):=Bzsspline(nm,ptL,[]); +Beziersym(nm,ptL,options):=Bzsspline(nm,ptL,options); +Bzsspline(nm,ptL):=Bzsspline(nm,ptL,[]); +Bzsspline(nm,ptLorg,options):=( + // smooth bezier with symmetric control points + regional(name,Eps,ptL,pt,pt1,pt2,pt3,npt,lstr, + tmp,tmp1,tmp2,cflg,ctrlist); + name="bzssp"+nm; + Eps=10^(-3); + ptL=apply(ptLorg,Lcrd(#)); // 16.08.16 + if(|ptL_1-ptL_(length(ptL))|<Eps,cflg=1,cflg=0); + forall(2..length(ptL), + pt=ptL_#; + pt1=ptL_(#-1); + tmp1="C"+text(#-1)+"q"; + Putpoint(tmp1,(pt1+4*pt)/5,Lcrd(parse(tmp1))); + ); + forall(2..(length(ptL)-1), + if(#<length(ptL) % cflg==1, + pt=ptL_#; + pt1=parse("C"+text(#-1)+"q"); + tmp2="C"+text(#)+"p=2*pt-pt1"; + parse(tmp2); + ); + ); + if(cflg==0, + pt=ptL_1; + pt1=ptL_2; + Putpoint("C1p",(4*pt+pt1)/5,Lcrd(C1p)); // 16.08.16 + inspect(C1p,"ptsize",3); + inspect(C1p,"color",3); + ); + if(cflg==1, + pt=ptL_1; + pt1=Lcrd(parse("C"+text(length(ptL)-1)+"q")); // 16.08.16 + tmp1="Putpoint("+Dq+"C1p"+Dq+",2*pt-pt1)"; // 16.08.16 + parse(tmp1); + ); + ctrlist=[]; + forall(1..(length(ptL)-1), + tmp1="C"+text(#)+"p"; + tmp2="C"+text(#)+"q"; + inspect(parse(tmp2),"ptsize",3); + inspect(parse(tmp2),"color",3); + tmp=[parse(tmp1),parse(tmp2)]; + ctrlist=append(ctrlist,tmp); + ); + Bezier(nm,ptL,ctrlist,options); + [ptL,ctrlist]; +); + +Listbspline2bz(listorg):=( + regional(Eps,list,pcl,ptl,ctrl,k); + Eps=10^(-3); + list=apply(listorg,Lcrd(#)); // 16.08.16 + k=length(list); + if(|list_1-list_k|>Eps, + pcl=list; + pcl_1=2*list_1-list_2; + pcl_k=2*list_k-list_(k-1); + , + pcl=concat(list,[list_2]); + ); + ctrl=apply(2..(length(pcl)-1),[pcl_#]); + ptl=apply(1..(length(pcl)-1),(pcl_#+pcl_(#+1))/2); + [ptl,ctrl]; +); + +Bspline(nm,ctrL):=Bspline(nm,ctrL,[]); +Bspline(nm,ctrL,options):=( +//help:Bspline("",[A,B,C]); + regional(list,tmp); + list=Listbspline2bz(ctrL); + tmp=BezierCurve("b"+nm,list_1,list_2,options); + tmp; +); + +MeetCurve(Crv,Xorg,Yorg):=( + regional(Cv,tmp,tmp1,tmp2,X0,Y0,x1,x2,y1,y2,Ylist,Ban,Tate); + if(isstring(Crv),Cv=parse(Crv),Cv=Crv); + if(MeasureDepth(Cv)==2,Cv=Cv_1); + Cv=apply(Cv,LLcrd(#)); // 14.12.18 + while(length(Cv)==1, + Cv=Cv_1; + ); + Cv=apply(Cv,Lcrd(#)); + tmp1=min(apply(Cv,#_1)); + tmp2=max(apply(Cv,#_1)); + if(isstring(Xorg),X0=parse(Xorg),X0=Xorg); + if(isstring(Yorg),Y0=parse(Yorg),Y0=Yorg); + if(X0<tmp1, + X0=tmp1; + , + if(X0>tmp2, + X0=tmp2; + ); + ); + tmp1=select( + 1..(length(Cv)-1),Cv_#_1<=X0 & X0<=Cv_(#+1)_1); + tmp2=select( + 1..(length(Cv)-1),Cv_#_1>=X0 & X0>=Cv_(#+1)_1); + tmp2=remove(tmp2,common(tmp2,tmp1)); + Ban=concat(tmp1,tmp2); + Tate=select(Ban, + abs(Cv_#_1-Cv_(#+1)_1)<= + 10^(-2)*abs(Cv_#_2-Cv_(#+1)_2) + ); + Ban=remove(Ban,Tate); + Ylist=[]; + forall(Ban, + tmp=Cv_#; + x1=tmp_1; y1=tmp_2; + tmp=Cv_(#+1); + x2=tmp_1; y2=tmp_2; + tmp=((x2-X0)*y1+(X0-x1)*y2)/(x2-x1); + Ylist=append(Ylist,tmp); + ); + forall(Tate, + tmp=Cv_#; + x1=tmp_1; y1=tmp_2; + tmp=Cv_(#+1); + x2=tmp_1; y2=tmp_2; + tmp1=min([y1,y2]); + tmp2=max([y1,y2]); + if(Y0<tmp1, + tmp=tmp1; + , + if(Y0>tmp2, + tmp=tmp2; + , + tmp=Y0; + ); + ); + Ylist=append(Ylist,tmp); + ); + tmp=sort(Ylist,abs(#_1-Y0)); + [X0,tmp_1]; +); + +PutonLine(name,p1,p2):=PutonLine(name,p1,p2,[]); +PutonLine(name,p1org,p2org,options):=( +//help:PutonLine("C","sgAB"); +//help:PutonLine("C",pA,pB); + regional(par,p1,p2,dx,dy,tmp,tmp1,tmp2); + par=0.5; + tmp=Divoptions(options); + if(length(tmp_6)>0, + par=tmp_6_1; + ); + p1=Lcrd(p1org);//16.10.11from + p2=Lcrd(p2org); + dx=p2_1-p1_1; + dy=p2_2-p1_2; + tmp1=(1-par)*p1+par*p2; + if(abs(dx)>abs(dy), + tmp=name+".x"; + tmp2="["+tmp+",dy/dx*("+tmp+"-p1_1)+p1_2]";//16.10.11upto + Putpoint(name,tmp1,parse(tmp2)); + , + if(abs(dy)>0, + tmp=name+".y"; + tmp2="[dx/dy*("+tmp+"-p1.y)+p1_1,"+tmp+"]"; + Putpoint(name,tmp1,parse(tmp2)); + , + tmp2=p1;//16.10.11 + Putpoint(name,tmp1,tmp2); + ); + ); +); + +PutonSeg(name,sgstr):=( + regional(seg,p1,p2); + if(isstring(sgstr),seg=parse(sgstr),seg=sgstr); + PutonSeg(name,LLcrd(seg_1),LLcrd(seg_2)); +); +PutonSeg(name,p1,p2):=PutonSeg(name,p1,p2,[]); +PutonSeg(name,p1org,p2org,options):=( +//help:PutonSeg("C","sgAB"); +//help:PutonSeg("C",pA,pB); + regional(par,dx,dy,p,tmp,tmp1,tmp2); + par=0.5; + tmp=Divoptions(options); + if(length(tmp_6)>0, + par=tmp_6_1; + ); + p1=Lcrd(p1org);//16.10.11from + p2=Lcrd(p2org); + PutonLine(name,p1,p2,[par]); + dx=p2_1-p1_1; + dy=p2_2-p1_2; + p=parse(name+".xy"); + p=LLcrd(p); + if(abs(dx)>abs(dy) & (p_1-p1_1)*(p_1-p2_1)>0, + if(|p-p1|<|p-p2|, + parse(name+".xy=Pcrd(p1)"); + , + parse(name+".xy=Pcrd(p2)"); + ); + ); + if(abs(dx)<abs(dy) & (p_2-p1_2)*(p_2-p2_2)>0, + if(|p-p1|<|p-p2|, + parse(name+".xy=Pcrd(p1)"); + , + parse(name+".xy=Pcrd(p2)");//16.10.11upto + ); + ); +); + +PutonCurve(pn,crv):=PutonCurve(pn,crv,[]); +PutonCurve(pn,crv,options):=( +//help:PutonCurve("A","gr1"); + regional(Pmt,pstr,optionL,leftlim,rightlim,tmp,tmp1,Flg,Msg); + if(!islist(options),optionL=[options],optionL=options); + leftlim=XMIN; + rightlim=XMAX; + Flg=0; + Msg="y"; + forall(optionL, + if(isstring(#), // 16.02.10 from + tmp=indexof(#,"="); + tmp1=Toupper(substring(#,tmp,tmp+1)); + if(tmp1=="N", Msg="n"); // 16.02.10 upto + , + if(Flg==0, + leftlim=#; + Flg=Flg+1; + , + rightlim=#; + ); + ); + ); + Pmt=MeetCurve(crv,leftlim,0); + pstr=apply(allpoints(),textformat(#,5)); // 15.04.07 + if(!contains(pstr,pn), + createpoint(pn,Pcrd(Pmt)); + , + tmp1=parse(pn+".x"); + if(tmp1< leftlim % tmp1>rightlim, + if(tmp1< leftlim,tmp= leftlim, tmp=rightlim); + Pmt=MeetCurve(crv,textformat(tmp,5),pn+".y"); + , + Pmt=MeetCurve(crv,pn+".x",pn+".y"); + ); + ptstr=pn+".xy="+textformat(Pcrd(Pmt),5)+";"; + parse(ptstr); + ); + if(Msg=="y", + println("Put "+pn+" on Curve "+text(crv)); + ); +); + +CrossPoint(name,Crv1,Crv2,range):=( + regional(Mx1,Mx2,Mx3,tmp,Crs1,Crs2,Crs3,Crs4,df1,df2); + Mx1=range_1; Mx2=range_2; + repeat(15, + Mx3=(Mx1+Mx2)/2; + Crs1=MeetCurve(Crv1,Mx1,0); + Crs2=MeetCurve(Crv2,Mx1,0); + Crs3=MeetCurve(Crv1,Mx3,0); + Crs4=MeetCurve(Crv2,Mx3,0); + df1=Crs1_2-Crs2_2; + df2=Crs3_2-Crs4_2; + if((df1>0 & df2>0) % (df1<0 & df2<0), + Mx1=Mx3; + , + Mx2=Mx3; + ); + ); + Putpoint(name,Crs1); +); + +Setscaling(sc):=( +//help:Setscaling(3); + SCALEX=1; + SCALEY=sc; + Com0th("Setscaling("+sc+")"); + Setwindow("Msg=no"); +); + +Tabledatalight(nm,xLst,yLst,rmvL):=Tabledatalight(nm,xLst,yLst,rmvL,[]); +Tabledatalight(nm,xLst,yLst,rmvL,options):=( +//help:Tabledatalight("",xLst,yLst,rmvL,[2]); + regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb, + tmp,tmp1,tmp2,tmp3,Eps); +// name="tb"+nm; + name="tb"; + println("Tabledatalight "+name+" generated"); + tmp=sum(yLst); + upleft=[0,tmp]; + tick=1; + tmp=Divoptions(options); + flg=0; + forall(tmp_6, + if(flg==0, + tick=#; + flg=flg+1; + , + upleft=tmp_6_1; + ); + ); + ul=upleft/10; + m=length(xLst); + n=length(yLst); + xsize=sum(xLst); + ysize=sum(yLst); + clist=[ul]; + rlist=[ul]; + forall(1..m, + tmp1=clist_(#)_1+xLst_#/10; + clist=append(clist,[tmp1,clist_1_2]); + ); + forall(1..n, + tmp1=rlist_(#)_2-yLst_#/10; + rlist=append(rlist,[0,tmp1]); + ); + Tb=[clist,rlist]; + tmp=name+"="+Tb; + parse(tmp); + forall(0..m, + tmp1="c"+text(#)+"r0"; + tmp2="c"+text(#)+"r"+text(n); + Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options); + if(mod(#,tick)==0 % #==m, + tmp=clist_(#+1); + drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#)); + ); + ); + forall(0..n, + tmp1="c0r"+text(#); + tmp2="c"+text(m)+"r"+text(#); + Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options); + if(mod(#,tick)==0 % #==n, + tmp=rlist_(#+1); + drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#)); + ); + ); + Tsegrmv(rmvL,options); + Addax(0); + Eps=10^(-3); + tmp1=clist_(length(clist)); + tmp2=rlist_1; + tmp3=rlist_(length(rlist)); + Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]); + Tb; +); + +Tabledata(nm,n,m,xsize,ysize,rmvL):= + Tabledata(nm,n,m,xsize,ysize,rmvL,[]); +Tabledata(nm,n,m,xsize,ysize,rmvL,options):=( + regional(Tb,name,tmp,xLst,yLst); + name="tb"+nm; + xLst=apply(1..n,xsize/n); + yLst=apply(1..m,ysize/m); + Tabledata(nm,xLst,yLst,rmvL,options) +); +Tabledata(nm,xLst,yLst,rmvL):=Tabledata(nm,xLst,yLst,rmvL,[]); +Tabledata(nm,xLst,yLst,rmvL,options):=( +//help:Tabledata("",xLst,yLst,rmvL,[2]); + regional(name,upleft,ul,flg,tick,n,m,xsize,ysize,rlist,clist,Tb, + tmp,tmp1,tmp2,tmp3,Eps); +// name="tb"+nm; + name="tb"; + println("Tabledata "+name+" generated"); + tmp=sum(yLst); + upleft=[0,tmp]; + tick=1; + tmp=Divoptions(options); + flg=0; + forall(tmp_6, + if(flg==0, + tick=#; + flg=flg+1; + , + upleft=tmp_6_1; + ); + ); + ul=upleft/10; + m=length(xLst); + n=length(yLst); + xsize=sum(xLst); + ysize=sum(yLst); + clist=[ul]; + rlist=[ul]; + forall(1..m, + tmp1=clist_(#)_1+xLst_#/10; + clist=append(clist,[tmp1,clist_1_2]); + ); + forall(1..n, + tmp1=rlist_(#)_2-yLst_#/10; + rlist=append(rlist,[0,tmp1]); + ); + Tb=[clist,rlist]; + tmp=name+"="+Tb; + parse(tmp); + forall(0..m, + tmp="C"+text(#); + tmp1="c"+text(#)+"r0"; + if(#==0, + Putpoint(tmp,Tgrid(tmp1)); + , + Putpoint(tmp,Tgrid(tmp1),[parse(tmp+".x"),C0.y]); + clist_(#+1)=parse(tmp+".xy"); + ); + inspect(parse(tmp),"ptsize",3); + inspect(parse(tmp),"labeled",false); + if(mod(#,tick)==0 % #==m, + tmp=clist_(#+1); + drawtext(clist_(#+1)-[0.04,-0.1],"c"+text(#)); + ); + ); + forall(0..n, + tmp="R"+text(#); + tmp1="c0r"+text(#); + if(#==0, + Putpoint(tmp,Tgrid(tmp1)); + , + Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]); + rlist_(#+1)=parse(tmp+".xy"); + ); + Putpoint(tmp,Tgrid(tmp1),[R0.x,parse(tmp+".y")]); + inspect(parse(tmp),"ptsize",3); + inspect(parse(tmp),"labeled",false); + if(mod(#,tick)==0 % #==n, + tmp=rlist_(#+1); + drawtext(rlist_(#+1)-[0.4,0.1],"r"+text(#)); + ); + ); + Tb=[clist,rlist]; + tmp=name+"="+Tb; + parse(tmp); + forall(0..m, + tmp1="c"+text(#)+"r0"; + tmp2="c"+text(#)+"r"+text(n); + Tlistplot("c"+text(#)+"r0r"+text(n),[tmp1,tmp2],options); + if(#<m, + tmp1=parse("C"+text(#)); + tmp2=parse("C"+text(#+1)); + tmp=(tmp1.xy+tmp2.xy)/2; + drawtext(tmp+[-0.2,0.5],text((tmp2.x-tmp1.x)*10)); + ); + ); + forall(0..n, + tmp1="c0r"+text(#); + tmp2="c"+text(m)+"r"+text(#); + Tlistplot("r"+text(#)+"c0c"+text(m),[tmp1,tmp2],options); + if(#<n, + tmp1=parse("R"+text(#)); + tmp2=parse("R"+text(#+1)); + tmp=(tmp1.xy+tmp2.xy)/2; + drawtext(tmp-[1.2,0.1],text(abs(tmp1.y-tmp2.y)*10)); + ); + ); + Tsegrmv(rmvL,options); + Addax(0); + Eps=10^(-3); + tmp1=clist_(length(clist)); + tmp2=rlist_1; + tmp3=rlist_(length(rlist)); // 15.06.11 + Setwindow([0-Eps,tmp1_1+Eps],[tmp3_2-Eps,tmp2_2+Eps]); + Tb; +); + +Tseginfo(seg):=( + regional(cr,tp,tpc,n1,n2,n3,tmp,tmp1,tmp2); + if(substring(seg,0,2)=="sg", + cr=substring(seg,2,length(seg)); + , + cr=seg; + ); + tp=substring(cr,0,1); + if(tp=="c", + tpc="r"; + , + tpc="c"; + ); + tmp1=indexof(cr,tpc); + tmp=substring(cr,tmp1,length(cr)); + tmp2=tmp1+indexof(tmp,tpc); + n1=substring(cr,1,tmp1-1); + n2=substring(cr,tmp1,tmp2-1); + n3=substring(cr,tmp2,length(cr)); + [tp+n1,tpc,parse(n2),parse(n3)]; +); + +Tsegrmv(rmvL):=Tsegrmv(rmvL,[]); +Tsegrmv(rmvL,options):=( + regional(cr,gcL,flg,gc,hd,tail,tpc,m1,m2,n1,n2,tmp,tmp1,tmp2); + forall(rmvL,cr, + tmp1=Tseginfo(cr); + hd=tmp1_1; + tpc=tmp1_2; + m1=tmp1_3; + m2=tmp1_4; + gcL=select(GCLIST,Tseginfo(#_1)_1==tmp1_1); + flg=0; + forall(gcL, + if(flg==0, + tmp=Tseginfo(#_1); + n1=tmp_3; + n2=tmp_4; + if(m1>=n1 & m2<=n2, + gc=#; + flg=1; + ); + ); + ); + if(flg==1, + Changestyle([gc_1],["nodisp"]); + tail=""; + if(indexof(hd,"r")>0, + tail=hd; hd=""; + ); + if(n1<m1, + tmp1=tpc+text(n1); + tmp2=tpc+text(m1); + tmp=hd+tail+tmp1+tmp2; + Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options); + ); + if(m2<n2, + tmp1=tpc+text(m2); + tmp2=tpc+text(n2); + tmp=hd+tail+tmp1+tmp2; + Tlistplot(tmp,[hd+tmp1+tail,hd+tmp2+tail],options); + ); + ); + ); +); + +Tgrid(ptstr):=( +//help:Tgrid("c2r5"); + regional(tmp,tmp1,tmp2); + tmp=parse(ptstr); + if(islist(tmp), + tmp; + , + tmp=indexof(ptstr,"r"); + tmp1=substring(ptstr,1,tmp-1); + tmp1=parse(tmp1); + tmp2=substring(ptstr,tmp,length(ptstr)); + tmp2=parse(tmp2); + [tb_1_(tmp1+1)_1,tb_2_(tmp2+1)_2]; + ); +); + +Tlistplot(ptL):=Tlistplot(ptL,[]); +Tlistplot(Ag1,Ag2):=( + regional(nm,ptL,options); + if(isstring(Ag1), + nm=Ag1; + ptL=Ag2; + options=[]; + , + ptL=Ag1; + options=Ag2; + nm=ptL_1+ptL_2; + ); + Tlistplot(nm,ptL,options); +); +Tlistplot(nm,ptL,options):=( +//help:Tlistplot(["c0r0","c0r4"]); +//help:Tlistplot("1",["c0r0","c0r4"]); + regional(tmp); + tmp=apply(ptL,Tgrid(#)); // 15.06.03 + Listplot(nm,tmp,append(options,"Msg=no")); +); + +ChangeTablestyle(nameL,style):=( +////help:ChangeTablestyle(["r0c0c3"],["da"]); + regional(nmL,tmp,tmp1,tmp2); + if(islist(nameL),nmL=nameL,nmL=[nameL]); + nmL=apply(nmL,"sg"+#); + nmL=select(nmL,islist(parse(#))); + Changestyle(nmL,style); +); + +Findcell(pos1,pos2):=Findcell("",pos1,pos2); +Findcell(Tbdata,pos1,pos2):=( +//help:Findcell("c0r0","c2r1"); + regional(tmp1,tmp2,posnw,posse,ctr,dx,dy); + if(isstring(pos1), + posnw=Tgrid(pos1); // 15.05.20 + posse=Tgrid(pos2); + //posnw=parse(pos1); + //posse=parse(pos2); + , + if(islist(pos1), + posnw=pos1; + posse=pos2; + , + tmp1="c"+text(pos1-1)+"r"+text(pos2-1); + tmp2="c"+text(pos1)+"r"+text(pos2); + posnw=Tgrid(tmp1); + posse=Tgrid(tmp2); +// posnw=parse(tmp1); +// posse=parse(tmp2); + ); + ); + ctr=(posnw+posse)/2; + dx=abs(posse_1-ctr_1); + dy=abs(posnw_2-ctr_2); + [ctr,dx,dy]; +); + +Putcell(pos1,pos2,dir,lttr):=Putcell("",pos1,pos2,dir,lttr); +Putcell(Tbdata,pos1,pos2,dir,lttr):=( +//help:Putcell("c0r0","c2r1","lt","abc"); +//help:Putcell(2,3,"c","xyz"); + regional(tmp,tmp1,tmp2,posnw,posse, + posdir,posstr,ctr,dx,dy); + tmp=Findcell(Tbdata,pos1,pos2); + ctr=tmp_1; dx=tmp_2; dy=tmp_3; + posdir=ctr; + posstr=dir; + if(indexof(dir,"b")>0, + posdir_2=posdir_2-dy; + posstr=replace(posstr,"b","n"); + ); + if(indexof(dir,"t")>0, + posdir_2=posdir_2+dy; + posstr=replace(posstr,"t","s"); + ); + if(indexof(dir,"l")>0, + posdir_1=posdir_1-dx; + posstr=replace(posstr,"l","e"); + ); + if(indexof(dir,"r")>0, + posdir_1=posdir_1+dx; + posstr=replace(posstr,"r","w"); + ); + Letter(posdir,posstr,text(lttr)); +); + +Putcellexpr(pos1,pos2,dir,ex):=Putcellexpr("",pos1,pos2,dir,ex); +Putcellexpr(Tbdata,pos1,pos2,dir,ex):=( +//help:Putcellexpr("c0r0","c2r1","lt","abc"); +//help:Putcellexpr(2,3,"c","\sin x"); + Putcell(Tbdata,pos1,pos2,dir,"$"+text(ex)+"$"); +); + +Putrow(nrow,dir,lttrL):=Putrow("",nrow,dir,lttrL); +Putrow(Tbdata,nrow,dir,lttrL):=( +//help:Putrow(1,"c",["x","y","z"]); + regional(tmp,tmp1,mcol); + mcol=length(lttrL); + forall(1..mcol, + Putcell(Tbdata,#,nrow,dir,lttrL_#); + ); +); + +Putrowexpr(nrow,dir,exL):=Putrowexpr("",nrow,dir,exL); +Putrowexpr(Tbdata,nrow,dir,exL):=( +//help:Putrowexpr(2,"r",["x","y","z"]); + regional(lttrL); + lttrL=apply(exL,"$"+#+"$"); + Putrow(Tbdata,nrow,dir,lttrL); +); + +PutcoL(mcol,dir,lttrL):=PutcoL("",mcol,dir,lttrL); +PutcoL(Tbdata,mcol,dir,lttrL):=( +//help:PutcoL(1,"c",["x","y","z"]); + regional(tmp,tmp1,nrow); + nrow=length(lttrL); + forall(1..nrow, + Putcell(Tbdata,mcol,#,dir,lttrL_#); + ); +); +PutcoLexpr(mcol,dir,exL):=PutcoLexpr("",mcol,dir,exL); +PutcoLexpr(Tbdata,mcol,dir,exL):=( +//help:PutcoLexpr(2,"r",["x","y","z"]); + regional(lttrL); + lttrL=apply(exL,"$"+#+"$"); + PutcoL(Tbdata,mcol,dir,lttrL); +); + +Setwindow():=Setwindow("Msg=yes"); +Setwindow(str):=( + regional(tmp,tmp1,tmp2,msg); + msg="y"; + tmp=indexof(str,"="); // 16.02.10 + tmp1=Toupper(substring(str,tmp,tmp+1)); + if(tmp1=="N",msg="n"); + if((ispoint(SW) & ispoint(NE)), + tmp1=Lcrd(SW); + tmp2=Lcrd(NE); + XMIN=tmp1_1; XMAX=tmp2_1; + YMIN=tmp1_2; YMAX=tmp2_2; + , +// XMIN=-5; XMAX=5; +// YMIN=Lcrdy(-5); YMAX=Lcrdy(5); + createpoint("SW",Pcrd([XMIN,YMIN])); + createpoint("NE", Pcrd([XMAX,YMAX])); + ); + if(msg=="y", + println("Setwindow(["+XMIN+","+XMAX+"],["+YMIN+","+YMAX+"])"); + ); + layer(KETPICLAYER); + autoclearlayer(KETPICLAYER,true); + drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]), + Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]); +); +Setwindow(xrange,yrange):=( +//help:Setwindow([2,3],[-1,1]); + XMIN=xrange_1; + XMAX=xrange_2; + YMIN=yrange_1; + YMAX=yrange_2; +// Setwindow(); +); + +Sciform(list):=( + regional(plotlist,comp,pos,out,out2,nn,strL,flg, + tmp,tmp1,tmp2,tmp3,Nj); + plotlist=Flatten([list]); + out=replace(plotlist_1,".xy",""); + out=replace(out,".x","(1)"); + out=replace(out,".y","(2)"); + if(length(plotlist)==1, + comp=[]; + forall(1..length(out), + comp=append(comp,substring(out,#-1,#)); + ); + out=""; + pos=0; + forall(comp, + if(#!="'", + out=out+#; + , + if(pos==0, + tmp=indexof(out,"Assign("); + if(substring(out,length(out)-7,length(out))=="Assign(", + out=out+"'"; + pos=1; + , + out=out+"Assign('"; + pos=2; + ); + , + if(pos==2, + out=out+"')"; + , + out=out+"'"; + ); + pos=0; + ); + ); + ); + , + forall(2..length(plotlist), + comp=plotlist_#; + if(isstring(comp), + pos=indexof(comp,"Assign("); + if(pos>0, + comp=substring(comp,6,length(comp)); + ); + out=out+"Assign("; + comp=replace(comp,".xy",""); + comp=replace(comp,".x","(1)"); + comp=replace(comp,".y","(2)"); + out=out+"'"+comp+"'"; + out=out+"),"; + ); + if(islist(comp), + forall(comp, + out=out+"'"+#+"',"; + ); + ); + ); + if(length(plotlist)>1, + out=substring(out,0,length(out)-1); + out=out+");"; + ); + ); + pos=[]; + forall(1..length(out), + tmp=indexof(substring(out,#-1,length(out)),"Assign"); + if(tmp>0, + tmp1=#-1+tmp; + if(length(pos)==0, + pos=[tmp1]; + , + if(pos_(length(pos))<tmp1, + pos=append(pos,tmp1); + ); + ); + ); + ); + if(length(pos)>0, + strL=[]; + Nj=0; + forall(pos, + tmp=substring(out,Nj,#-1); + strL=append(strL,tmp); + Nj=#-1; + ); + strL=append(strL,substring(out,Nj,length(out))); + out=""; + forall(strL, + if(indexof(#,"Assign")==0, + out=out+#; + , + tmp=indexof(#,"('"); + tmp1=indexof(#,"')"); + tmp2=substring(#,tmp+1,tmp1-2); + tmp3=substring(#,tmp1-2,length(#)); + if(indexof(tmp2,"=")==0, + out=out+#; + , + tmp=substring(tmp2,0,indexof(tmp2,"=")); + out=out+"'"+tmp+"'+"+"Assign('"; + tmp=substring(tmp2,indexof(tmp2,"="),length(tmp2)); + out=out+tmp+tmp3; + ); + ); + ); + ); + out2=""; // patched 16.01.21 from + nn=length(out); + flg=0; + forall(1..nn, + if(flg==0, + tmp=indexof(out,"='+Assign('"); + if(tmp==0, + out2=out2+out; + flg=1; + , + out2=out2+substring(out,0,tmp); + out=substring(out,tmp+10,length(out)); + tmp=indexof(out,"'"); // 16.04.19 from + tmp1=substring(out,0,tmp-1); + tmp2="1234567890"; + tmp=apply(1..length(tmp1), + indexof(tmp2,substring(tmp1,#-1,#))); + tmp=min(tmp); + if(tmp==0, // 16.04.19 upto + out2=out2+"'+Assign('"; + , + tmp=indexof(out,"'"); + out=substring(out,0,tmp)+substring(out,tmp+1,length(out)); // 16.04.18 upto + ); + ); + ); + ); + out2=replace(out2,"Dist=","D="); + out2=replace(out2,"Dis=","D="); + out2; +); + + +Rform(list):=( + regional(plotlist,comp,pos,out,strL,tmp,tmp1,tmp2,tmp3,Nj); + out=list; + out=replace(out,"[[[","list([["); + out=replace(out,"[","c("); + out=replace(out,"]",")"); + out=replace(out,".xy",""); + out=replace(out,".x","[1]"); + out=replace(out,".y","[2]"); + out; +); + +Defvar(varstr):=( + regional(name,value,tmp,tmp1); + parse(varstr); + tmp=indexof(varstr,"="); + name=substring(varstr,0,tmp-1); + value=substring(varstr,tmp,length(varstr)); + value=parse(value); + tmp1=select(1..length(VLIST),VLIST_#_1==name+"="); + if(length(tmp1)>0, + tmp=tmp1_1; + VLIST_tmp=[name+"=",value]; + , + VLIST=prepend([name+"=",value],VLIST); + ); +); + +Defvar(name,value):=( +//help:Defvar("a",0.3); + regional(tmp,tmp1); + if(islist(value), + tmp1="["; + forall(value, + tmp1=tmp1+format(#,5)+","; + ); + tmp1=substring(tmp1,0,length(tmp1)-1)+"]"; + , + tmp1=format(value,5); + ); + tmp=name+"="+tmp1; // 15.02.06 + parse(tmp); + VLIST=select(VLIST,#_1!=name+"="); // 15.02.08 + VLIST=prepend([name+"=",value],VLIST); +); + +Iftosci(strorg):=( // 16.06.10 + regional(str,ifL,ppL,cpL,kk,sL, + tmp,tmp1,tmp2,tmp3,tmp4); + str=replace(strorg,LFmark,""); + ifL=Indexall(str,"if("); + ppL=Bracket(str,"()"); + cpL=Indexall(str,","); + tmp1=Bracket(str,"[]"); + forall(1..(length(tmp1)/2),kk, + cpL=select(cpL,#<tmp1_(2*kk-1)_1%#_1>tmp1_(2*kk)_1); + ); + forall(1..length(ifL),kk, + tmp=select(ppL,#_1>ifL_kk); + tmp1=tmp_1; + tmp2=select(tmp,#_2==-tmp1_2); + tmp2=tmp2_1; + tmp3=select(cpL,#>tmp1_1 & #<tmp2_1); + ifL_kk=[tmp1_1,tmp2_1,tmp1_2,tmp3]; + ); + forall(1..length(cpL),kk, + tmp=select(1..length(ifL),contains(ifL_#_4,cpL_kk)); + tmp1=tmp_(length(tmp)); + cpL_kk=[cpL_kk,tmp1]; + ); + sL=apply(1..length(str),substring(str,#-1,#)); + forall(1..length(ifL),kk, + tmp1=ifL_kk_1; + tmp2=ifL_kk_2; + tmp=select(cpL,#_2==kk); + tmp3=apply(tmp,#_1); + sL_tmp1=" "; + sL_tmp2=";end;"; + sL_(tmp3_1)=" then,"; + if(length(tmp3)>1, + sL_(tmp3_2)=";else,"; + ); + ); + tmp=sum(sL); +); + +Fortosci(strorg):=( + regional(str,jj,var,tmp,tmp1,tmp2,tmp3,tmp4, + Out,repL,Pflg,Iflg,Cflg); + str=strorg; + repL=[]; + tmp1=Indexall(str,"forall"); + tmp2=Indexall(str,","); + forall(1..length(tmp1),jj, + tmp=select(tmp2,#>tmp1_jj); + var=substring(str,tmp_1,tmp_2-1); + tmp3=substring(str,tmp1_jj-1,tmp_2-1); + tmp=indexof(tmp3,"("); + tmp4=substring(tmp3,tmp,length(tmp3)); + tmp=indexof(tmp4,","); + tmp4=substring(tmp4,0,tmp-1); + tmp4="for "+var+"="+tmp4; + tmp4=replace(tmp4,"..",":"); + repL=concat(repL,[tmp3,tmp4]); + ); + forall(1..length(repL)/2, + str=replace(str,repL_(2*#-1),repL_(2*#)); + ); + tmp=Bracket(str); + tmp=select(tmp,#_2==0); + tmp=tmp_1_1; + tmp1=substring(str,tmp-1,length(str)); + tmp1=replace(tmp1,")",";end"); + str=substring(str,0,tmp-1)+tmp1; + str=replace(str,";;",";"); + str; +); + +Deffun(name,bodylist):=( +//help:Deffun("f(x)",["regional(y)","y=x^2*(x-3)","y"]); // 16.02.18 + regional(funstr,tmp,tmp1,str,Pos); + funstr=name+":=("; + forall(bodylist, + funstr=funstr+#+";"; + ); + funstr=funstr+");"; + parse(funstr); + tmp=bodylist_(length(bodylist)); + str="function "+tmp+"="+name+","; + forall(1..(length(bodylist)-1), + tmp1=bodylist_#; + tmp1=replace(tmp1,LFmark,"");// 16.05.26 + tmp1=replace(tmp1," ","");// 16.05.26 + Pos=indexof(tmp1,"regional")+indexof(tmp1,"local"); + if(Pos==0, + tmp=replace(tmp1,".xy",""); + tmp=replace(tmp,".x","(1)"); + tmp=replace(tmp,".y","(2)"); + if(indexof(tmp,"if(")>0, + tmp=iftosci(tmp); + ); + if(indexof(tmp,"forall(")>0, // 16.05.26from + tmp=Fortosci(tmp); + ); // 16.05.26upto + str=str+tmp+","; + ); + ); + str=str+"endfunction;"; + FUNLIST=append(FUNLIST,str); +); + +Windispg():=( + regional(Nj,Nk,Dt,Vj,tmp,tmp1,tmp2,tmp3,opcindy); + gsave(); + layer(KETPIClayer); + forall(GCLIST,Nj, + if(isstring(Nj_1),Dt=parse(Nj_1),Dt=Nj_1); // 11.17 + if(islist(Dt) & length(Dt)>0, // 12.19,12.22 + tmp=MeasureDepth(Dt); + if(tmp==1,Dt=[Dt]); + opcindy=Nj_3; + if(Nj_2<0,tmp1=0,tmp1=Nj_2); + if(tmp1<10, + forall(Dt,Nk, +// tmp2=apply(Nk,if(ispoint(#),Lcrd(#),#)); +// tmp2=apply(tmp2,Pcrd(#)); + tmp2=Nk; // 14.12.04 + if(length(Nk)>1, + forall(2..length(Nk), + tmp3=textformat(Nk_[#-1,#],5); + tmp3=substring(tmp3,1,length(tmp3)-1); + if(tmp1==1,opcindy=opcindy+",dashpattern->[2,2]"); + tmp="draw("+tmp3+ + ",dashtype->"+text(tmp1)+",linecolor->"+KCOLOR+opcindy+")"; + parse(tmp); + ); + , + if(length(Nk)==1, + tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31 + parse(tmp); + ); + ); + ); + ); + ); + ); +// if(ADDAXES=="1", // 16.10.08from +// draw([XMIN,0],[XMAX,0],color->[0,0.2,0]); +// draw([0,YMIIN],[0,YMAX],color->[0,0.2,0]); +// Letter([[XMAX,0],"e","x",[0,YMAX],"n","y"]); +// Letter([[0,0],"sw","O"]); +// ); // 16.10.08upto + grestore(); + layer(0); +); +</script> + <script type="text/javascript"> +var cdy = CindyJS({ + scripts: "cs*", + use: ["katex"], + defaultAppearance: { + dimDependent: 0.7, + fontFamily: "sans-serif", + lineSize: 1, + pointSize: 5.0, + textsize: 12.0 + }, + angleUnit: "°", + geometry: [ + {name: "SW", type: "Free", pos: [4.0, 0.5714285714285714, -0.5714285714285714], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "NE", type: "Free", pos: [4.0, 2.857142857142857, 0.5714285714285714], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "A", type: "Free", pos: [4.0, -0.0, -2.0], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "B", type: "Free", pos: [4.0, -0.0, 2.0], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "C", type: "Free", pos: [-1.3333333333333333, -4.0, -1.3333333333333333], color: [1.0, 0.0, 0.0], labeled: true}, + {name: "Text4", type: "Button", color: [0.0, 0.0, 0.0], fillcolor: [1.0, 1.0, 1.0], fillalpha: 0.27272728085517883, script: "pc=C.xy;\nptsL=[];", text: "Start", textsize: 18.0, dock: {corner: "UL", offset: [298.0, -20.0]}} + ], + ports: [{ + id: "CSCanvas", + width: 753, + height: 540, + transform: [{visibleRect: [-8.362618329472264, 7.29077405760399, 8.451938685461288, -4.767474000914095]}], + axes: true, + grid: 1.0, + snap: true, + background: "rgb(168,176,192)" + }], + csconsole: false, + cinderella: {build: 1894, version: [2, 9, 1894]} +}); + </script> +</head> +<body> + <div id="CSCanvas"></div> +</body> +</html> diff --git a/texmf-dist/doc/support/ketpic/ketsample/samplesJS/kc.sh b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/kc.sh new file mode 100755 index 00000000..e69de29b --- /dev/null +++ b/texmf-dist/doc/support/ketpic/ketsample/samplesJS/kc.sh |