summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib')
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylib3d.cs4517
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpE.txt29
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpJ.txt45
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylib3dlog.txt295
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1.cs4874
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1log.txt647
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2.cs5135
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2log.txt293
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpE.txt116
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpJ.txt140
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylibmv.cs812
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpE.txt4
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpJ.txt4
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylibmvlog.txt66
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindylibout.cs5359
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketcindyliboutlog.txt325
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Addcounter.binbin648 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Anglemark.binbin4128 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowdata.binbin5420 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowhead.binbin13408 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowheaddata.binbin10624 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowline.binbin6168 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assign.binbin20540 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignadd.binbin1104 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignrep.binbin1808 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignset.binbin436 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Beginpicture.binbin216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezier.binbin3792 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezierpt.binbin4152 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderHiddenData.binbin328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderPt.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderparadata.binbin16600 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderpersdata.binbin16648 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderrawdata.binbin10016 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowdata.binbin6416 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowmiddle.binbin7776 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowname.binbin3972 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bownamerot.binbin7136 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcHeight.binbin3852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcWidth.binbin2652 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Calcfun.binbin820 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameraCurve.binbin2320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameracoordCurve.binbin5852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpara.binbin2572 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpers.binbin5688 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Circledata.binbin4012 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Clipindomain.binbin6992 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closefile.binbin1692 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closeobj.binbin612 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepar.binbin1212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closephr.binbin980 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepicture.binbin1776 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Connectseg.binbin10104 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crossprod.binbin1956 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfHiddenData.binbin336 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfparadata.binbin5856 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfpersdata.binbin5860 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvonsfHiddenData.binbin332 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfparadata.binbin12948 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfpersdata.binbin12716 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvsfHiddenData.binbin324 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfparadata.binbin9760 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfpersdata.binbin9760 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspData.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspPt.binbin288 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspSplitPt.binbin308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpara.binbin23320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpers.binbin23352 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cutsf2d.binbin1420 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dashline.binbin3500 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dataindex.binbin1844 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Definecolor.binbin2124 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Deqplot.binbin27240 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Derivative.binbin6444 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Diagcelldata.binbin2012 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividegraphics.binbin1728 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividetable.binbin944 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Doscaling.binbin1564 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotfilldata.binbin26872 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotprod.binbin276 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dottedline.binbin14728 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dropnumlistcrv.binbin3216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Droppoint.binbin2820 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwline.binbin6912 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwpt.binbin13948 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwxy.binbin3316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Embed.binbin4060 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Enclosing.binbin2516 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/EnclosingS.binbin14244 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Endpicture.binbin572 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepara.binbin11336 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepers.binbin11312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Execmd.binbin480 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Expr.binbin10616 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Exprrot.binbin4380 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Faceremovaldata.binbin8964 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Facesdata.binbin16256 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Findcell.binbin15652 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Flattenlist.binbin1464 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fontsize.binbin4028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriercoeff.binbin2080 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/FouriercoeffL.binbin1952 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriersum.binbin2180 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fracform.binbin1720 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Framedata.binbin5292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fullformfunc.binbin12768 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gaiseki.binbin1804 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Getcounter.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gettrace.binbin300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hatchdata.binbin19876 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hexahedrondata.binbin2972 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/HiddenWireData.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Htickmark.binbin16940 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ImplicitData.binbin312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Implicitplot.binbin9664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/InWindow.binbin1440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Initangle.binbin472 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Integrate.binbin2248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvs.binbin3080 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectcrvsPp.binbin12372 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvsf.binbin5064 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectlines.binbin3840 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectselfPp.binbin12584 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invdashline.binbin3604 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invert.binbin384 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invparapt.binbin5932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invperspt.binbin8520 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joincrvs.binbin5604 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joingraphics.binbin2476 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ketinit.binbin5160 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kouten.binbin4212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/KoutenList.binbin6844 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Koutenseg.binbin16424 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukannozoku.binbin4228 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukeiwake.binbin9200 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyorihensuu.binbin2648 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyoukai.binbin18292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letter.binbin10560 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letterrot.binbin4324 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Lineplot.binbin4028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Listplot.binbin1884 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeBowdata.binbin8068 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeCurves.binbin6312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakecutbycrvL.binbin4576 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makehasen.binbin17088 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeliststr.binbin3736 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makesfcutoffdata.binbin53024 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeshasen.binbin4688 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletondata.binbin21092 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletonpersdata.binbin23944 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makevaltable.binbin7988 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeveLfaceL.binbin7812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makexybdy.binbin16852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mawarikomi.binbin3220 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MeetWindow.binbin12032 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Meetpoints.binbin29828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Member.binbin1192 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi.binbin27248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi2.binbin22316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mix.binbin712 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixL.binbin712 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixS.binbin712 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixadd.binbin1348 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixdisp.binbin676 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixjoin.binbin1764 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixlength.binbin756 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixmake.binbin684 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixop.binbin1088 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixsub.binbin812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixtype.binbin876 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naigai.binbin1828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naiseki.binbin276 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nearestpt.binbin7004 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Newlength.binbin616 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara.binbin32960 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara2.binbin19056 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers.binbin32456 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers2.binbin18916 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Numptcrv.binbin252 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objcurve.binbin14664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objjoin.binbin720 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objname.binbin980 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolygon.binbin7580 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolyhedron.binbin2684 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objrecs.binbin12672 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsurf.binbin17328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsymb.binbin624 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objthicksurf.binbin17228 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Op.binbin2636 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openfile.binbin9316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openobj.binbin2696 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpar.binbin2612 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openphr.binbin888 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpicture.binbin11128 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovalbox.binbin5300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovaldata.binbin4812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramark.binbin2400 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ParamonCurve.binbin2128 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramoncrv.binbin3512 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramplot.binbin14900 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Parapt.binbin1820 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv.binbin5492 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv3.binbin4300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partframe.binbin4232 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PartitionPt.binbin308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partitionseg.binbin12336 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Perspt.binbin5236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhFaceL.binbin388 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhHiddenData.binbin312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhVertexL.binbin388 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutdata.binbin22004 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutoffdata.binbin23048 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phidegree.binbin356 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phparadata.binbin380 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phpersdata.binbin380 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawparadata.binbin392 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawpersdata.binbin368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsparadata.binbin264 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phspersdata.binbin264 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawparadata.binbin276 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawpersdata.binbin252 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Plotdata.binbin14492 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointdata.binbin1996 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PointonCurve.binbin1652 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointoncrv.binbin2304 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Powersum.binbin1924 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Prime.binbin600 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Printobjstr.binbin736 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjCurve.binbin3788 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjcoordCurve.binbin2892 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpara.binbin3628 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpers.binbin3628 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptcrv.binbin284 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptend.binbin328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PthiddenQ.binbin38656 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptne.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptnw.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptse.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptstart.binbin236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptsw.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcell.binbin6936 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcirmark.binbin1776 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoL.binbin6668 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLexpr.binbin6860 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLstr.binbin3204 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putdashmark.binbin1740 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrecmark.binbin1640 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrow.binbin3988 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowexpr.binbin4180 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowstr.binbin3204 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Puttrace.binbin300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ratiocmyk.binbin14664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadOutData.binbin8392 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadfromCindy.binbin2660 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Readtextdata.binbin15532 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Reflectdata.binbin7140 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rmmember.binbin1732 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3data.binbin3696 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3pt.binbin18700 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotatedata.binbin4212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Roundstr.binbin812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Scaledata.binbin3696 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sectionview.binbin1708 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setangle.binbin1484 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setarrow.binbin3424 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setax.binbin9496 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcolor.binbin3212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcounter.binbin732 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmark.binbin5372 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmarklen.binbin1364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjdecimals.binbin724 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjscale.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setorigin.binbin804 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpen.binbin1308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpers.binbin1248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpt.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setscaling.binbin2196 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoL.binbin2304 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoR.binbin2304 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setunitlen.binbin7572 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setversion.binbin284 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setwindow.binbin5828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sf3data.binbin9872 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdparadata.binbin4736 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdpersdata.binbin4772 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawparadata.binbin3556 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawpersdata.binbin3556 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutdata.binbin16388 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffparadata.binbin932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffpersdata.binbin932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawparadata.binbin920 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.binbin920 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfparadata.binbin1504 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfpersdata.binbin1504 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Shade.binbin7784 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeleton2data.binbin6808 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpara3data.binbin5092 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonparadata.binbin2896 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpers3data.binbin4348 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpersdata.binbin2896 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spacecurve.binbin9444 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spaceline.binbin2412 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Splinedata.binbin12656 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Strop.binbin1028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Subs.binbin2108 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sumfun.binbin7688 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symb3data.binbin4260 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symbdata.binbin7908 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tabledata.binbin18164 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texcom.binbin2664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texctr.binbin1216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texelse.binbin292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texend.binbin156 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendfor.binbin1480 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendif.binbin404 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texfor.binbin1544 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texforinit.binbin408 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texif.binbin1328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texletter.binbin4548 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewcmd.binbin1972 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewctr.binbin1044 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texrenewcmd.binbin1980 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texsetctr.binbin6440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texthectr.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvalctr.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvctr.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Thetadegree.binbin364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ThisVersion.binbin308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tolist.binbin580 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translate3data.binbin3620 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translatedata.binbin3856 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Trunc.binbin508 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Unscaling.binbin1508 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa.binbin1056 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa2.binbin880 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Viewfrom.binbin2024 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vtickmark.binbin16976 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Windisp.binbin13224 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WireHiddenData.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WirePt.binbin288 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wireparadata.binbin16456 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirepersdata.binbin16448 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawparadata.binbin11664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawpersdata.binbin11664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WriteOutData.binbin6748 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writeobjpoint.binbin1668 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writetextdata.binbin4484 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WritetoCindy.binbin5196 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmax.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmin.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzax3data.binbin3216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxparaname.binbin11368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxpersname.binbin11368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymax.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymin.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zparapt.binbin1300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zperspt.binbin3756 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ketcindylibhelpE.txt116
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/names341
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.binbin922 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.binbin5238 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci33
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.binbin6737 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.sci58
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.binbin16618 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.sci107
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.binbin13269 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.sci89
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.binbin7643 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.sci57
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.binbin27459 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.sci202
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.binbin1449 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.binbin2609 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.sci22
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.binbin703 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.binbin324 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.sci6
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.binbin5272 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.sci35
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.binbin6060 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.sci39
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.binbin443 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.binbin419 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.binbin22449 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.sci121
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.binbin22411 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.sci120
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.binbin13046 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.sci64
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.binbin8338 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.sci45
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.binbin10457 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.sci53
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.binbin5225 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci40
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.binbin7824 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.sci77
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.binbin4360 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci31
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.binbin3001 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.sci26
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.binbin1090 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.sci9
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.binbin3257 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.sci24
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.binbin7543 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.sci28
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.binbin3159 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.binbin7165 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.sci22
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.binbin5752 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci32
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.binbin9264 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.sci58
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.binbin2182 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci24
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.binbin767 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.sci10
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.binbin1266 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.binbin1103 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.sci13
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.binbin1991 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.sci22
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.binbin14179 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.sci76
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.binbin2819 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.sci13
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.binbin449 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.binbin7742 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci49
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.binbin7742 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci50
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.binbin446 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.binbin17490 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci90
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.binbin16797 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci86
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.binbin440 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.binbin12964 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.sci81
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.binbin12924 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.sci80
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.binbin419 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.binbin413 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.binbin426 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.binbin31919 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.sci179
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.binbin31845 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.sci176
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.binbin1833 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.binbin4784 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.sci31
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.binbin2593 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.sci24
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.binbin2668 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.sci23
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.binbin37476 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.sci195
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.binbin9089 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.sci64
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.binbin2752 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.binbin2511 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.sci20
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.binbin1280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.sci9
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.binbin2167 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.binbin33511 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.sci186
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.binbin454 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.sci6
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.binbin19335 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.sci124
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.binbin17289 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.sci115
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.binbin4450 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci34
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.binbin4030 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci28
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.binbin8499 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.sci66
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.binbin17128 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.sci142
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.binbin4108 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.binbin5585 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.binbin3330 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci23
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.binbin17806 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.sci126
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.binbin836 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.binbin15211 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.sci79
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.binbin15184 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.sci77
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.binbin721 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.binbin12554 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.sci100
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.binbin5757 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci36
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.binbin12460 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.sci78
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.binbin12215 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.sci81
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.binbin19645 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.sci154
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.binbin13219 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.sci88
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.binbin20630 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.sci127
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.binbin2035 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.binbin4895 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.sci54
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.binbin2555 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.sci21
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.binbin2655 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.binbin2809 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.binbin2385 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.binbin6802 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci36
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.binbin17186 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci79
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.binbin2585 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.binbin421 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.binbin421 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.binbin25781 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.sci141
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.binbin3973 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.binbin437 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.binbin21909 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.sci144
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.binbin516 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.sci9
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.binbin13253 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.sci61
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.binbin1826 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.binbin750 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.binbin3053 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.sci25
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.binbin4302 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.sci34
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.binbin15887 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci101
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.binbin6854 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.sci47
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.binbin4990 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.sci22
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.binbin15552 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.sci95
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.binbin4788 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.sci29
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.binbin621 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.sci6
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.binbin7426 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.sci50
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.binbin10756 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.sci65
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.binbin7402 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.sci51
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.binbin3408 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci26
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.binbin8060 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.sci57
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.binbin5636 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.sci31
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.binbin9114 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.sci51
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.binbin20514 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.sci105
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.binbin5978 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.sci45
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.binbin11635 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.sci62
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.binbin2900 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci30
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.binbin24740 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.sci144
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.binbin12440 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.sci100
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.binbin5653 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.sci36
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.binbin5483 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci44
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.binbin2824 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.sci24
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.binbin10906 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.sci49
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.binbin8640 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.sci62
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.binbin6014 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci45
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.binbin21601 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.sci123
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.binbin4911 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.binbin68349 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci345
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.binbin6211 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.binbin27821 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.sci171
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.binbin31439 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci188
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.binbin10699 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.sci79
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.binbin10368 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci68
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.binbin21856 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.sci111
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.binbin3637 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.sci39
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.binbin15057 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.sci91
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.binbin40156 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.sci169
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.binbin1651 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.sci21
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.binbin34512 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.sci206
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.binbin28313 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.sci186
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.binbin1174 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.binbin1136 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.binbin1135 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.binbin2264 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.sci23
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.binbin937 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.binbin2517 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.sci29
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.binbin1260 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.binbin1085 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.binbin1799 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.sci22
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.binbin1280 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.binbin1415 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.sci19
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.binbin2552 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.binbin411 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.sci4
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.binbin9290 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.sci53
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.binbin771 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.sci9
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.binbin42226 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.sci254
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.binbin23811 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.sci131
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.binbin41591 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.sci253
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.binbin23608 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.sci134
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.binbin398 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.sci4
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.binbin17718 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.sci115
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.binbin973 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.sci9
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.binbin1206 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.binbin10238 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci65
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.binbin3588 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci25
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.binbin16478 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.sci87
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.binbin22731 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.sci114
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.binbin862 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.binbin22172 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.sci123
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.binbin3732 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.sci35
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.binbin13035 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.sci106
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.binbin2939 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci33
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.binbin3258 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.sci29
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.binbin1045 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.binbin13672 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.sci92
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.binbin6676 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.sci42
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.binbin6365 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.sci31
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.binbin3079 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.sci20
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.binbin2839 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.binbin4477 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.sci35
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.binbin20071 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.sci140
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.binbin2390 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.binbin6865 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.sci42
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.binbin5346 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.sci34
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.binbin5465 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.sci27
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.binbin428 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.binbin15744 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.sci100
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.binbin6665 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.sci21
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.binbin496 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.binbin431 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.binbin500 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.binbin29830 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.sci173
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.binbin30095 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.sci184
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.binbin531 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.binbin619 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.binbin619 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.binbin625 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.binbin592 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.binbin492 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.binbin492 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.binbin498 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.binbin465 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.binbin19408 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.sci138
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.binbin2896 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.sci25
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.binbin2135 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.binbin3006 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.sci21
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.binbin2642 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.binbin948 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.sci10
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.binbin849 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.sci10
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.binbin5078 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.sci32
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.binbin3725 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.binbin4932 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.binbin4858 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.sci39
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.binbin415 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.sci4
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.binbin484 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.sci4
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.binbin51975 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.sci250
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.binbin1729 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.binbin1729 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.binbin1730 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.binbin389 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.sci4
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.binbin1699 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.sci13
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.binbin9367 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci72
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.binbin2231 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.binbin8400 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.sci65
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.binbin8687 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.sci65
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.binbin4017 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci34
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.binbin2122 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.binbin2078 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.binbin5045 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.binbin5332 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.binbin4017 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci34
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.binbin419 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.binbin23174 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.sci87
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.binbin11262 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.sci92
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.binbin3831 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci38
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.binbin21821 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.sci160
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.binbin9990 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.sci51
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.binbin2316 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.sci20
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.binbin4411 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.sci40
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.binbin25211 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.sci75
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.binbin5669 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.sci39
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.binbin1170 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.binbin5149 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.sci39
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.binbin2344 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.binbin2016 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.binbin4137 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.sci35
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.binbin13034 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.sci102
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.binbin4119 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.sci36
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.binbin1023 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.sci13
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.binbin4968 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci43
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.binbin1802 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.binbin1028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.binbin432 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.sci6
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.binbin1056 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.binbin1471 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.binbin1533 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.sci16
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.binbin1607 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.sci16
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.binbin3006 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.sci28
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.binbin3147 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.binbin3069 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.sci10
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.binbin10271 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci78
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.binbin11998 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.sci182
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.binbin7533 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci44
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.binbin13224 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci62
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.binbin5885 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci39
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.binbin5938 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.sci42
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.binbin4537 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci33
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.binbin4498 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci31
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.binbin22872 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.sci105
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.binbin1348 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.binbin1349 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.binbin1349 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.binbin1349 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.binbin2149 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.binbin2149 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.binbin9556 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.sci84
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.binbin9324 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.sci71
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.binbin6935 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.sci48
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.binbin4084 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.sci29
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.binbin5901 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.binbin4038 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.sci29
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.binbin12729 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.sci83
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.binbin3439 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.sci27
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.binbin16665 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.sci108
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.binbin1354 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.binbin2852 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci21
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.binbin9947 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.sci65
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.binbin5491 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.sci30
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.binbin10750 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci67
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.binbin25828 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.sci130
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.binbin3162 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.binbin1603 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.binbin420 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.binbin251 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.binbin1781 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.binbin546 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.binbin1806 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.binbin565 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.binbin1677 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.sci19
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.binbin5621 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci44
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.binbin2605 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.sci20
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.binbin1266 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.sci13
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.binbin2609 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.sci20
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.binbin8313 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.sci70
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.binbin469 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.binbin531 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.binbin526 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.sci6
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.binbin537 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.binbin385 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.binbin909 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.binbin4301 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.sci36
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.binbin5248 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.sci42
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.binbin728 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.sci10
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.binbin2122 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.binbin1434 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.binbin1292 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.binbin2667 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci21
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.binbin21938 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.sci144
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.binbin17429 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.sci110
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.binbin437 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.binbin463 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.binbin21470 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.sci120
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.binbin21438 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.sci120
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.binbin15066 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.sci86
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.binbin15066 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.sci86
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.binbin8150 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.sci55
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.binbin2135 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.binbin5610 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.sci47
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.binbin6440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.sci42
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.binbin364 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.binbin364 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.binbin4660 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.binbin14997 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.sci71
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.binbin15036 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.sci72
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.binbin364 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.binbin364 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.binbin1665 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.binbin4894 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.sci20
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/lib344
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/names335
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpic_ltd.Rdatabin1322605 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Addcounter.binbin648 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Anglemark.binbin4128 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowdata.binbin5420 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowhead.binbin13408 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowheaddata.binbin10624 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowline.binbin6168 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assign.binbin20540 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignadd.binbin1104 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignrep.binbin1808 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignset.binbin436 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Beginpicture.binbin216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezier.binbin3792 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezierpt.binbin4152 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderHiddenData.binbin328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderPt.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderparadata.binbin16600 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderpersdata.binbin16648 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderrawdata.binbin10016 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowdata.binbin6416 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowmiddle.binbin7776 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowname.binbin3972 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bownamerot.binbin7136 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcHeight.binbin3852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcWidth.binbin2652 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Calcfun.binbin820 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameraCurve.binbin2320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameracoordCurve.binbin5852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpara.binbin2572 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpers.binbin5688 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Circledata.binbin4012 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Clipindomain.binbin6992 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closefile.binbin1692 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closeobj.binbin612 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepar.binbin1212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closephr.binbin980 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepicture.binbin1776 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Connectseg.binbin10104 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crossprod.binbin1956 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfHiddenData.binbin336 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfparadata.binbin5856 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfpersdata.binbin5860 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvonsfHiddenData.binbin332 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfparadata.binbin12948 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfpersdata.binbin12716 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvsfHiddenData.binbin324 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfparadata.binbin9760 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfpersdata.binbin9760 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspData.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspPt.binbin288 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspSplitPt.binbin308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpara.binbin23320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpers.binbin23352 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cutsf2d.binbin1420 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dashline.binbin3500 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dataindex.binbin1844 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Definecolor.binbin2124 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Deqplot.binbin27240 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Derivative.binbin6444 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Diagcelldata.binbin2012 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividegraphics.binbin1728 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividetable.binbin944 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Doscaling.binbin1564 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotfilldata.binbin26872 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotprod.binbin276 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dottedline.binbin17676 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dropnumlistcrv.binbin3216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Droppoint.binbin2820 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwline.binbin8004 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwpt.binbin8588 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwxy.binbin3316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Embed.binbin4060 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Enclosing.binbin2516 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/EnclosingS.binbin14244 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Endpicture.binbin572 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepara.binbin11336 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepers.binbin11312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Execmd.binbin480 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Expr.binbin10616 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Exprrot.binbin4380 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Faceremovaldata.binbin8964 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Facesdata.binbin16256 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Findcell.binbin15652 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Flattenlist.binbin1464 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fontsize.binbin4028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriercoeff.binbin2080 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/FouriercoeffL.binbin1952 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriersum.binbin2180 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fracform.binbin1720 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Framedata.binbin5292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fullformfunc.binbin12768 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gaiseki.binbin1804 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Getcounter.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gettrace.binbin300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hatchdata.binbin19876 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hexahedrondata.binbin2972 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/HiddenWireData.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Htickmark.binbin16940 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ImplicitData.binbin312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Implicitplot.binbin9664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/InWindow.binbin1440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Initangle.binbin472 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Integrate.binbin2248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvs.binbin3080 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectcrvsPp.binbin12372 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvsf.binbin5064 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectlines.binbin3840 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectselfPp.binbin12584 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invdashline.binbin3604 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invert.binbin384 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invparapt.binbin5932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invperspt.binbin8520 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joincrvs.binbin5604 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joingraphics.binbin2476 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ketinit.binbin5160 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kouten.binbin4212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/KoutenList.binbin6844 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Koutenseg.binbin16424 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukannozoku.binbin4228 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukeiwake.binbin9200 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyorihensuu.binbin2648 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyoukai.binbin18292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letter.binbin10560 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letterrot.binbin4324 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Lineplot.binbin4028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Listplot.binbin1884 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeBowdata.binbin8068 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeCurves.binbin6312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakecutbycrvL.binbin4576 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makehasen.binbin17804 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeliststr.binbin3736 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makesfcutoffdata.binbin53024 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeshasen.binbin4688 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletondata.binbin21092 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletonpersdata.binbin23944 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makevaltable.binbin7988 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeveLfaceL.binbin7812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makexybdy.binbin16852 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mawarikomi.binbin3220 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MeetWindow.binbin12032 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Meetpoints.binbin29828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Member.binbin1192 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi.binbin27248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi2.binbin22316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mix.binbin712 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixL.binbin712 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixS.binbin712 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixadd.binbin1348 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixdisp.binbin676 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixjoin.binbin1764 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixlength.binbin756 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixmake.binbin684 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixop.binbin1088 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixsub.binbin812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixtype.binbin876 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naigai.binbin1828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naiseki.binbin276 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nearestpt.binbin7004 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Newlength.binbin616 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara.binbin32960 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara2.binbin19056 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers.binbin32456 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers2.binbin18916 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Numptcrv.binbin252 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objcurve.binbin14664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objjoin.binbin720 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objname.binbin980 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolygon.binbin7580 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolyhedron.binbin2684 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objrecs.binbin12672 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsurf.binbin17328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsymb.binbin624 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objthicksurf.binbin17228 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Op.binbin2636 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openfile.binbin9316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openobj.binbin2696 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpar.binbin2612 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openphr.binbin888 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpicture.binbin11080 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovalbox.binbin5300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovaldata.binbin4812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramark.binbin2400 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ParamonCurve.binbin2128 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramoncrv.binbin3512 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramplot.binbin14900 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Parapt.binbin1820 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv.binbin5492 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv3.binbin4300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partframe.binbin4232 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PartitionPt.binbin308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partitionseg.binbin12336 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Perspt.binbin5236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhFaceL.binbin388 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhHiddenData.binbin312 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhVertexL.binbin388 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutdata.binbin22004 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutoffdata.binbin23048 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phidegree.binbin356 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phparadata.binbin380 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phpersdata.binbin380 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawparadata.binbin392 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawpersdata.binbin368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsparadata.binbin264 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phspersdata.binbin264 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawparadata.binbin276 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawpersdata.binbin252 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Plotdata.binbin14492 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointdata.binbin1996 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PointonCurve.binbin1652 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointoncrv.binbin2304 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Powersum.binbin1924 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Prime.binbin600 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Printobjstr.binbin736 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjCurve.binbin3788 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjcoordCurve.binbin2892 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpara.binbin3628 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpers.binbin3628 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptcrv.binbin284 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptend.binbin328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PthiddenQ.binbin38656 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptne.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptnw.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptse.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptstart.binbin236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptsw.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcell.binbin6936 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcirmark.binbin1776 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoL.binbin6668 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLexpr.binbin6860 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLstr.binbin3204 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putdashmark.binbin1740 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrecmark.binbin1640 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrow.binbin3988 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowexpr.binbin4180 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowstr.binbin3204 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Puttrace.binbin300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ratiocmyk.binbin14664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadOutData.binbin8392 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadfromCindy.binbin2660 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Readtextdata.binbin15532 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Reflectdata.binbin7140 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rmmember.binbin1732 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3data.binbin3696 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3pt.binbin18700 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotatedata.binbin4212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Roundstr.binbin812 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Scaledata.binbin3696 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sectionview.binbin1708 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setangle.binbin1484 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setarrow.binbin3424 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setax.binbin9496 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcolor.binbin3212 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcounter.binbin732 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmark.binbin5372 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmarklen.binbin1364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjdecimals.binbin724 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjscale.binbin296 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setorigin.binbin804 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpen.binbin1260 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpers.binbin1248 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpt.binbin1236 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setscaling.binbin2196 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoL.binbin2304 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoR.binbin2304 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setunitlen.binbin7620 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setversion.binbin284 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setwindow.binbin5828 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sf3data.binbin9872 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdparadata.binbin4736 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdpersdata.binbin4772 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawparadata.binbin3556 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawpersdata.binbin3556 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutdata.binbin16388 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffparadata.binbin932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffpersdata.binbin932 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawparadata.binbin920 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawpersdata.binbin920 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfparadata.binbin1504 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfpersdata.binbin1504 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Shade.binbin9176 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeleton2data.binbin6808 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpara3data.binbin5092 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonparadata.binbin2896 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpers3data.binbin4348 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpersdata.binbin2896 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spacecurve.binbin9444 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spaceline.binbin2412 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Splinedata.binbin12656 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Strop.binbin1028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Subs.binbin2108 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sumfun.binbin7688 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symb3data.binbin4260 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symbdata.binbin7908 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tabledata.binbin18164 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texcom.binbin2664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texctr.binbin1216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texelse.binbin292 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texend.binbin156 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendfor.binbin1480 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendif.binbin404 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texfor.binbin1544 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texforinit.binbin408 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texif.binbin1328 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texletter.binbin4548 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewcmd.binbin1972 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewctr.binbin1044 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texrenewcmd.binbin1980 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texsetctr.binbin6440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texthectr.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvalctr.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvctr.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Thetadegree.binbin364 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ThisVersion.binbin308 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tolist.binbin580 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translate3data.binbin3620 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translatedata.binbin3856 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Trunc.binbin508 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Unscaling.binbin1508 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa.binbin1056 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa2.binbin880 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Viewfrom.binbin2024 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vtickmark.binbin16976 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Windisp.binbin13224 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WireHiddenData.binbin320 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WirePt.binbin288 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wireparadata.binbin16456 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirepersdata.binbin16448 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawparadata.binbin11664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawpersdata.binbin11664 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WriteOutData.binbin6748 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writeobjpoint.binbin1668 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writetextdata.binbin4484 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WritetoCindy.binbin5196 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmax.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmin.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzax3data.binbin3216 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxparaname.binbin11368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxpersname.binbin11368 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymax.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymin.binbin280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zparapt.binbin1300 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zperspt.binbin3756 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicsciL5/names341
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/.Rhistory1
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.binbin922 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.binbin5238 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.sci33
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.binbin6737 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.sci58
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.binbin16618 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.sci107
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.binbin13269 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.sci89
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.binbin7643 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.sci57
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.binbin27459 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.sci202
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.binbin1449 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.binbin2609 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.sci22
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.binbin703 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.binbin324 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.sci6
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.binbin5272 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.sci35
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.binbin6060 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.sci39
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.binbin443 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.binbin419 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.binbin22449 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.sci121
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.binbin22411 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.sci120
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.binbin13046 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.sci64
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.binbin8338 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.sci45
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.binbin10457 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.sci53
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.binbin5225 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.sci40
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.binbin7824 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.sci77
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.binbin4360 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.sci31
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.binbin3001 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.sci26
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.binbin1090 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.sci9
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.binbin3257 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.sci24
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.binbin7543 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.sci28
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.binbin3159 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.binbin7165 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.sci22
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.binbin5752 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.sci32
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.binbin9264 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.sci58
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.binbin2182 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.sci24
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.binbin767 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.sci10
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.binbin1266 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.binbin1103 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.sci13
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.binbin1991 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.sci22
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.binbin14179 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.sci76
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.binbin2819 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.sci13
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.binbin449 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.binbin7742 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.sci49
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.binbin7742 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci50
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.binbin446 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.binbin17490 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.sci90
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.binbin16797 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.sci86
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.binbin440 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.binbin12964 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.sci81
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.binbin12924 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.sci80
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.binbin419 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.binbin413 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.binbin426 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.binbin31919 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.sci179
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.binbin31845 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.sci176
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.binbin1833 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.binbin4784 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.sci31
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.binbin2593 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.sci24
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.binbin2668 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.sci23
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.binbin37476 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.sci195
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.binbin9089 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.sci64
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.binbin2752 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.binbin2511 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.sci20
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.binbin1280 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.sci9
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.binbin2167 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.binbin33511 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.sci186
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.binbin454 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.sci6
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.binbin22860 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.sci133
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.binbin17289 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.sci115
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.binbin4450 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.sci34
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.binbin4030 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.sci28
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.binbin9618 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.sci71
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.binbin11037 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.sci75
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.binbin4108 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.binbin5585 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.binbin3330 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.sci23
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.binbin17806 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.sci126
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.binbin836 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.binbin15211 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.sci79
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.binbin15184 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.sci77
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.binbin721 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.binbin12554 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.sci100
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.binbin5757 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.sci36
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.binbin12460 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.sci78
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.binbin12215 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.sci81
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.binbin19645 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.sci154
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.binbin13219 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.sci88
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.binbin20630 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.sci127
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.binbin2035 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.binbin4895 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.sci54
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.binbin2555 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.sci21
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.binbin2655 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.binbin2809 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.binbin2385 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.binbin6802 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.sci36
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.binbin17186 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.sci79
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.binbin2585 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.binbin421 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.binbin421 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.binbin25781 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.sci141
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.binbin3973 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.binbin437 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.binbin21909 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.sci144
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.binbin516 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.sci9
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.binbin13253 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.sci61
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.binbin1826 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.binbin750 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.binbin3053 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.sci25
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.binbin4302 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.sci34
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.binbin15887 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.sci101
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.binbin6854 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.sci47
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.binbin4990 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.sci22
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.binbin15552 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.sci95
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.binbin4788 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.sci29
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.binbin621 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.sci6
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.binbin7426 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.sci50
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.binbin10756 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.sci65
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.binbin7402 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.sci51
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.binbin3408 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.sci26
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.binbin8060 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.sci57
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.binbin5636 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.sci31
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.binbin9114 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.sci51
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.binbin20514 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.sci105
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.binbin5978 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.sci45
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.binbin11635 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.sci62
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.binbin2900 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.sci30
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.binbin24740 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.sci144
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.binbin12440 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.sci100
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.binbin5653 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.sci36
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.binbin5483 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.sci44
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.binbin2824 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.sci24
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.binbin10906 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.sci49
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.binbin8640 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci62
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.binbin6014 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.sci45
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.binbin22258 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.sci119
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.binbin4911 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.binbin68349 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.sci345
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.binbin6211 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.binbin27821 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.sci171
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.binbin31439 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci188
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.binbin10699 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.sci79
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.binbin10368 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.sci68
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.binbin21856 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.sci111
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.binbin3637 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.sci39
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.binbin15057 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.sci91
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.binbin40156 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.sci169
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.binbin1651 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.sci21
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.binbin34512 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.sci206
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.binbin28313 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.sci186
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.binbin1174 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.binbin1136 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.binbin1135 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.binbin2264 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.sci23
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.binbin937 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.binbin2517 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.sci29
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.binbin1260 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.binbin1085 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.binbin1799 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.sci22
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.binbin1280 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.binbin1415 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.sci19
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.binbin2552 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.binbin411 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.sci4
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.binbin9290 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.sci53
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.binbin771 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.sci9
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.binbin42226 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.sci254
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.binbin23811 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.sci131
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.binbin41591 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.sci253
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.binbin23608 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.sci134
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.binbin398 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.sci4
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.binbin17718 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.sci115
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.binbin973 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.sci9
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.binbin1206 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.binbin10238 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.sci65
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.binbin3588 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.sci25
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.binbin16478 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.sci87
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.binbin22731 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.sci114
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.binbin862 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.binbin22172 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.sci123
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.binbin3732 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.sci35
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.binbin13035 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.sci106
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.binbin2939 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.sci33
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.binbin3258 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.sci29
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.binbin1045 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.binbin13672 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.sci92
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.binbin6676 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.sci42
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.binbin6365 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.sci31
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.binbin3079 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.sci20
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.binbin2839 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.binbin4477 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.sci35
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.binbin20071 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.sci140
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.binbin2390 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.binbin6865 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.sci42
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.binbin5346 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.sci34
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.binbin5465 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.sci27
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.binbin428 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.binbin15744 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.sci100
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.binbin6665 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.sci21
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.binbin496 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.binbin431 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.binbin500 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.binbin29830 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.sci173
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.binbin30095 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.sci184
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.binbin531 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.binbin619 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.binbin619 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.binbin625 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.binbin592 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.binbin492 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.binbin492 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.binbin498 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.binbin465 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.binbin19408 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.sci138
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.binbin2896 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.sci25
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.binbin2135 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.binbin3006 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.sci21
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.binbin2642 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.binbin948 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.sci10
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.binbin849 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.sci10
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.binbin5078 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.sci32
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.binbin3725 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.binbin4932 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.binbin4858 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.sci39
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.binbin415 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.sci4
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.binbin484 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.sci4
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.binbin51975 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.sci250
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.binbin1729 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.binbin1729 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.binbin1730 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.binbin389 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.sci4
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.binbin1699 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.sci13
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.binbin9367 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.sci72
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.binbin2231 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.binbin8400 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.sci65
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.binbin8687 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.sci65
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.binbin4017 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.sci34
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.binbin2122 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.sci18
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.binbin2078 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.binbin5045 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.binbin5332 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.binbin4017 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.sci34
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.binbin419 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.binbin23174 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.sci87
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.binbin11262 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.sci92
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.binbin3831 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.sci38
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.binbin21821 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.sci160
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.binbin9990 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.sci51
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.binbin2316 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.sci20
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.binbin4411 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.sci40
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.binbin25211 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.sci75
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.binbin5669 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.sci39
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.binbin1170 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.binbin5149 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.sci39
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.binbin2344 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.binbin2016 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.binbin4137 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.sci35
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.binbin13034 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.sci102
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.binbin4119 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.sci36
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.binbin1023 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.sci13
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.binbin4968 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.sci43
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.binbin1802 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.binbin1028 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.binbin432 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.sci6
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.binbin1056 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.binbin1405 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.binbin1533 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.sci16
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.binbin1607 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.sci16
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.binbin3006 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.sci28
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.binbin3147 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.binbin3069 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.sci10
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.binbin10271 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.sci78
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.binbin11998 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.sci182
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.binbin7533 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.sci44
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.binbin13224 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.sci62
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.binbin5885 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.sci39
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.binbin5938 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.sci42
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.binbin4537 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.sci33
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.binbin4498 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci31
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.binbin22872 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.sci105
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.binbin1348 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.binbin1349 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.binbin1349 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.binbin1349 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.binbin2149 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.binbin2149 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.sci17
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.binbin11150 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.sci93
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.binbin9324 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.sci71
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.binbin6935 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.sci48
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.binbin4084 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.sci29
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.binbin5901 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.binbin4038 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.sci29
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.binbin12729 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.sci83
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.binbin3439 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.sci27
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.binbin16665 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.sci108
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.binbin1354 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.binbin2852 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.sci21
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.binbin9947 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.sci65
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.binbin5491 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci30
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.binbin10750 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.sci67
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.binbin25828 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.sci130
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.binbin3162 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci41
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.binbin1603 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.binbin420 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.binbin251 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.binbin1781 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.binbin546 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.binbin1806 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.sci15
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.binbin565 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.binbin1677 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.sci19
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.binbin5621 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.sci44
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.binbin2605 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.sci20
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.binbin1266 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.sci13
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.binbin2609 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.sci20
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.binbin8313 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.sci70
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.binbin469 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.binbin531 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.binbin526 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.sci6
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.binbin537 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.binbin385 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.binbin909 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.binbin4301 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.sci36
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.binbin5248 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.sci42
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.binbin728 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.sci10
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.binbin2122 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.binbin1434 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.binbin1292 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.sci11
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.binbin2667 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.sci21
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.binbin21938 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.sci144
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.binbin17429 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.sci110
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.binbin437 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.sci7
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.binbin463 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.binbin21470 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.sci120
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.binbin21438 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.sci120
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.binbin15066 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.sci86
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.binbin15066 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.sci86
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.binbin8150 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.sci55
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.binbin2135 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.sci12
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.binbin5610 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.sci47
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.binbin6440 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.sci42
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.binbin364 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.binbin364 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.binbin4660 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.sci14
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.binbin14997 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.sci71
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.binbin15036 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.sci72
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.binbin364 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.binbin364 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.sci5
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.binbin1665 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.sci8
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.binbin4894 -> 0 bytes
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.sci20
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/lib344
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/maximaL/fourier_sec.max260
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/maximaL/matoperation.max47
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/maximaL/poincare.mac71
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/maximaL/rkfun.lisp99
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.pdfbin2214196 -> 0 bytes
-rw-r--r--texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.rr18855
2088 files changed, 0 insertions, 77179 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3d.cs b/texmf-dist/scripts/ketpic/ketlib/ketcindylib3d.cs
deleted file mode 100644
index 53b542a0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3d.cs
+++ /dev/null
@@ -1,4517 +0,0 @@
-// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
-//
-//This program is free software: you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 3 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program. If not, see <http://www.gnu.org/licenses/>
-//
-
-println("ketcindylib3d(2017.06.02) loaded");
-
-//help:start();
-
-Ketinit3d():=Ketinit3d(1);
-Ketinit3d(sf):=(
- regional(tmp);
- tmp=round(4*SW.y)/4;
-// Ketinit3d(sf,[round(SW.x)+1,tmp-0.5,tmp-1]);
- Ketinit3d(sf,[-5,tmp-0.5,tmp-1]);
-);
-Ketinit3d(subflg,position):=(
-//help:Ketinit3d(subflg=1)
- regional(ctr,tmp,tmp1,tmp2,tmp3,tmp4,xPos,yTh,yPh);
-// println("KETCindy3d V.2.3.5(2016.02.03)");
- BezierNumber3=1; //15.02.28
- if(!islist(BZLIST3),
- BZLIST3=[]; //15.02.28
- ,
- tmp=apply(allpoints(),text(#));
- tmp1=select(tmp,substring(#,length(#)-1,length(#))=="p");
- tmp2=[];
- forall(tmp1,ctr,
- tmp=substring(ctr,0,length(ctr)-1);
- tmp=select(BZLIST3,#_1==tmp);
- if(length(tmp)>0,
- tmp2=append(tmp2,tmp_1);
- );
- );
- BZLIST3=tmp2;
- );
- SUBSCR=subflg;
- Setwindow("Msg=no");
- if(length(position)>2,
- xPos=position_1;
- yTh=position_2;
- yPh=position_3;
- ,
- xPos=0;
- yTh=position_1;
- yPh=position_2;
- );
-// THETA=60*pi/180;
-// PHI=30*pi/180;
- FocusPoint=[0,0,0];
- EyePoint=[5,5,5];
- Listplot("th",[[xPos,yTh],[xPos+9,yTh]],["notex","linecolor->[0,1,0]","Msg=no"]);
- Listplot("ph",[[xPos,yPh],[xPos+9,yPh]],["notex","linecolor->[0,1,0]","Msg=no"]);
- //16.02.10
- PutonCurve("TH",sgth,[xPos,xPos+9,"Msg=no"]);
- PutonCurve("FI",sgph,[xPos,xPos+9,"Msg=no"]);
- THETA=(TH.x-xPos)*20*pi/180;
- PHI=(FI.x-xPos)*40*pi/180;
-// Defvar("THETA",THETA); // 16.06.20
-// Defvar("PHI",PHI); // 16.06.20
- drawtext([xPos-0.8,yTh-0.1],Sprintf((TH.x-xPos)*20,2),align->"right"); //17.05.02
- drawtext([xPos-0.8,yPh-0.1],Sprintf((FI.x-xPos)*40,2),align->"right"); //17.05.02
- tmp="Setangle("+text((TH.x-xPos)*20)+","+text((FI.x-xPos)*40)+")";
- GLIST=append(GLIST,tmp);
- Addax(0);
- TSIZE=10;
- TSIZEZ=10;
- ErrFlg=0;
-);
-
-Start3d():=Start3d([]); //16.11.12
-Start3d(ptexception):=( //16.11.12
-//help:Start3d();
-//help:Start3d(execptionptlist);
- regional(xmn,xMx,ymn,yMx,pt,pt3,pt2,
- xPos,yTh,yPh,Eps,tmp,tmp1,tmp2,tmp3,tmp4);
- GCLIST=[];
- GLIST=[];
- FUNLIST=[];
- COM0thlist=[];
- COM1stlist=[];
- COM2ndlist=[];
- SEG3dlist=[];
- SCIWRLIST=[];
- SCIRELIST=[];
- OutFileList=[];
- FigPdfList=[]; // 16.04.08
- ErrFlag=0;
- OBJCMD=[]; // 16.11.29from
- OCNAME=Fhead;
- OCOPTION=["m","v"];// 16.11.29upto
- ArrowlineNumber=1; // 16.01.31
- ArrowheadNumber=1;
- BezierNumber=1; //16.01.31
- BezierNumber3=1; //16.08.19
- Fnametex=Fhead+".tex"; // 15.04.06
- Fnamesci=Fhead+".sce";
- Fnamescibody=Fhead+"body.sce";
- Fnameout=Fhead+".txt";
-// Ketinit3d(SUBSCR); // 16.06.20
- Setwindow("Msg=no"); // 16.06.20from
- tmp=round(4*SW.y)/4;
- xPos=-5;yTh=tmp-0.5;yPh=tmp-1;
- Listplot("th",[[xPos,yTh],[xPos+9,yTh]],
- ["notex","linecolor->[0,1,0]","Msg=no"]);
- Listplot("ph",[[xPos,yPh],[xPos+9,yPh]],
- ["notex","linecolor->[0,1,0]","Msg=no"]);
- //16.02.10
- PutonCurve("TH",sgth,[xPos,xPos+9,"Msg=no"]);
- PutonCurve("FI",sgph,[xPos,xPos+9,"Msg=no"]);
- drawtext([xPos-0.8,yTh-0.1],Sprintf((TH.x-xPos)*20,2),align->"right"); //17.05.02
- drawtext([xPos-0.8,yPh-0.1],Sprintf((FI.x-xPos)*40,2),align->"right"); //17.05.02
- tmp="Setangle("
- +format((TH.x-xPos)*20,5)+","
- +format((FI.x-xPos)*40,5)+")";
- GLIST=append(GLIST,tmp);
- THETA=(TH.x-xPos)*20*pi/180;
- PHI=(FI.x-xPos)*40*pi/180; // 16.06.20upto
- if(isselected(TH) % isselected(FI), // 17.05.18from
- if(length(Ch)>0,
- ChNum=Ch_(length(Ch));
- if(ChNum==0, ChNum=1);
- ,
- ChNum=1;
- );
- Ch=[0];
- );// 17.05.18upto
- if(length(VLIST)==0, // 16.06.20
- tmp=remove(allpoints(),[NE,SW,TH,FI,O,X,Y,Z]);//17.06.02
- tmp4=remove(tmp,ptexception);
- forall(tmp4,pt,
- tmp1=text(pt);
- tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
- if(tmp!="z",
- tmp=parse(tmp1+"z.y");
- pt3=Xyzcoord(pt.x,pt.y,tmp);
- Defvar(tmp1+"3d",pt3);
- pt2=Parapt(pt3); // 16.05.28from
- Defvar(tmp1+"2d",pt2); // 16.05.28upto
- );
- );
- ,
- if(isselected(NE) % isselected(SW),
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp4=remove(tmp,ptexception);
- forall(tmp4,pt,
- tmp1=text(pt);
- tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
- if(tmp!="z",
- tmp=select(VLIST,#_1==tmp1+"3d=");
- pt3=tmp_1_2;
- tmp=tmp1+".xy=Parapt("+pt3+")_[1,2];";
- parse(tmp);
-// if(SUBSCR==1,
-// tmp=tmp1+"z"+".x=NE.x-SW.x+"+tmp1+".x";
-// parse(tmp);
-// );
- );
- );
- ,
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp4=remove(tmp,ptexception);
- forall(tmp4,pt,
- tmp1=text(pt);
- tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
- if(tmp!="z",
- tmp2=parse(tmp1+"z");
- if(isselected(pt) % isselected(tmp2),
- Defvar(tmp1+"2d",pt.xy);
- tmp=parse(tmp1+"z.y");
- tmp=Xyzcoord(pt.x,pt.y,tmp);
- Defvar(tmp1+"3d",tmp);
- );
- );
- );
- );
- );
- if(SUBSCR==1,
- xmn=SW.x+NE.x-SW.x;
- xMx=NE.x+NE.x-SW.x;
- ymn=SW.y;
- yMx=NE.y;
- drawpoly([[xMx,yMx],[xmn,yMx],
- [xmn,ymn],[xMx,ymn]],color->[1,1,1]);
- connect([[NE.x-SW.x,yMx],[NE.x-SW.x,ymn]],
- color->[0.5,0.5,0.5]);
- );
- // for Presentation //17.07.01from
- letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
- shadowc=[0,0,0,0.5]; mboxc="yellow"; //17.03.02 regional debugged
- SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
- letterc,mboxc,mboxc,mboxc,62,2,letterc];
- ThinDense=0.1; //17.07.01upto
- Ptseg3data(ptexception); //16.08.23
-);
-
-Setangle(theta,phi):=( //16.12.24
-//help:Setangle(60,30);
- regional(xmn,xMx,ymn,yMx,pt,pt3,pt2,
- xPos,yTh,yPh,Eps,tmp,tmp1,tmp2,tmp3,tmp4);
- tmp=round(4*SW.y)/4;
- xPos=-5;yTh=tmp-0.5;yPh=tmp-1;
- if(theta=="",theta=THETA*180/pi); // 17.01.19
- if(phi=="",phi=PHI*180/pi);
- THETA=theta*pi/180;
- TH.x=theta/20+xPos;
- PHI=phi*pi/180;
- FI.x=phi/40+xPos;
-// drawtext([xPos-0.8,yTh-0.1],text(theta)); //17.05.05
-// drawtext([xPos-0.8,yPh-0.1],text(phi));
- tmp="Setangle("
- +format(theta,5)+","+format(phi,5)+")";
- GLIST=append(GLIST,tmp);
- if(length(VLIST)==0, // 16.06.20
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp4=remove(tmp,ptexception);
- forall(tmp4,pt,
- tmp1=text(pt);
- tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
- if(tmp!="z",
- tmp=parse(tmp1+"z.y");
- pt3=Xyzcoord(pt.x,pt.y,tmp);
- Defvar(tmp1+"3d",pt3);
- pt2=Parapt(pt3); // 16.05.28from
- Defvar(tmp1+"2d",pt2); // 16.05.28upto
- );
- );
- ,
- if(isselected(NE) % isselected(SW),
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp4=remove(tmp,ptexception);
- forall(tmp4,pt,
- tmp1=text(pt);
- tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
- if(tmp!="z",
- tmp=select(VLIST,#_1==tmp1+"3d=");
- pt3=tmp_1_2;
- tmp=tmp1+".xy=Parapt("+pt3+")_[1,2];";
- parse(tmp);
- );
- );
- ,
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp4=remove(tmp,ptexception);
- forall(tmp4,pt,
- tmp1=text(pt);
- tmp=substring(tmp1,length(tmp1)-1,length(tmp1));
- if(tmp!="z",
- tmp2=parse(tmp1+"z");
- if(isselected(pt) % isselected(tmp2),
- Defvar(tmp1+"2d",pt.xy);
- tmp=parse(tmp1+"z.y");
- tmp=Xyzcoord(pt.x,pt.y,tmp);
- Defvar(tmp1+"3d",tmp);
- );
- );
- );
- );
- );
- forall(Datalist3d(),#,
- tmp1=replace(#,"3d","2d");
- tmp2=Projpara(#,["nodata"]);
- tmp=tmp1+"="+textformat(tmp2,5);
- parse(tmp);
- );
- Ptseg3data(ptexception);
-);
-
-Changestyle3d(nameL,style):=(
-//help:Changestyle3d(["geoseg3d","ax3d"],["notex"]);
- regional(nmL,name,tmp,tmp1,tmp2);
- if(islist(nameL),nmL=nameL,nmL=[nameL]);
- tmp1=[];
- forall(nmL,name,
- tmp=parse(name);
- if(isstring(tmp_1),
- tmp1=concat(tmp1,tmp);
- ,
- tmp1=append(tmp1,name);
- );
- tmp=apply(tmp1,replace(#,"3d","2d"));
- Changestyle(tmp,style);
- tmp=apply(tmp,"sub"+#); // 15.05.24
- Changestyle(tmp,style);
- );
-);
-
-Dist3d(pt1):=Dist3d(pt1,[0,0,0]);
-Dist3d(pt1,pt2):=(
-//help:Dist3d(A3d,B3d);
-//help:Dist3d(A,B);
-//help:Dist3d("A","B");
- regional(p1,p2);
- if(islist(pt1),
- p1=pt1;
- ,
- if(ispoint(pt1),p1=text(pt1),p1=pt1);
- p1=parse(p1+"3d");
- );
- if(islist(pt2),
- p2=pt2;
- ,
- if(ispoint(pt2),p2=text(pt2),p2=pt2);
- p2=parse(p2+"3d");
- );
- sqrt((p2-p1)*(p2-p1));
-);
-
-Findangle(vec):=(
-//help:Findangle([2,1,4]);
-//help:Findangle([0,0,1,0]);
- regional(vec3,vec2,Eps,th,ph,tmp);
- Eps=10^(-4);
- vec3=vec_(1..3);
- vec2=vec_(1..2);
- th=arccos(vec_3/|vec3|);
- if(|vec2|>Eps,
- ph=arccos(vec_1/|vec2|);
- if(vec_2<0,
- ph=2*pi-ph; // 15.03.28
- );
- ,
- if(length(vec)>3,ph=vec_4*pi/180,ph=PHI);
- );
- [th,ph];
-);
-
-Cancoordpara(pc):=(
-//help:Cancoordpara([1,2,0]);
- regional(Xz,Yz,Zz,tmp1,tmp2,tmp3);
- Xz=pc_1; Yz=pc_2; Zz=pc_3;
- tmp1=-Xz*sin(PHI)-Yz*cos(PHI)*cos(THETA)+Zz*cos(PHI)*sin(THETA);
- tmp2=Xz*cos(PHI)-Yz*sin(PHI)*cos(THETA)+Zz*sin(PHI)*sin(THETA);
- tmp3=Yz*sin(THETA)+Zz*cos(THETA);
- [tmp1,tmp2,tmp3];
-);
-
-Zparapt(cc):=(
- regional(x,y,z);
- x=cc_1; y=cc_2; z=cc_3;
- x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA);
-);
-
-Projcoordpara(cc):=(
-//help:Projcoordpara([3,1,2]);
- regional(tmp);
- tmp=Parapt(cc);
- [tmp_1,tmp_2,Zparapt(cc)];
-);
-
-Parapt(pt):=(
-//help:Parapt([2,1,5]);
- regional(Xz,Yz);
- Xz=-pt_1*sin(PHI)+pt_2*cos(PHI);
- Yz=-pt_1*cos(PHI)*cos(THETA)-pt_2*sin(PHI)*cos(THETA)+pt_3*sin(THETA);
- [Xz,Yz];
-);
-
-ProjCurve(crv):=(
-//help:Projcurve("sl3d1");
- regional(CurveL,Curve,Eps,AnsL,Out,sp,cp,st,,ct,ii,pt,
- Xz,Yz,tmp,tmp1,tmp2);
- Eps=10^(-6);
- sp=sin(PHI); cp=cos(PHI);
- st=sin(THETA); ct=cos(THETA);
- if(isstring(crv),CurveL=parse(crv),CurveL=crv);
- if(MeasureDepth(CurveL)==1,CurveL=[CurveL]);
- Out=[];
- forall(CurveL,Curve,
- AnsL=[];
- forall(1..length(Curve),ii,
- pt=Curve_ii;
- if(pt_1!="inf",
- Xz=-pt_1*sp+pt_2*cp;
- Yz=-pt_1*cp*ct-pt_2*sp*ct+pt_3*st;
- tmp=[Xz,Yz];
- if(ii==1,
- AnsL=[tmp];
- ,
- tmp1=AnsL_(length(AnsL));
- if(tmp1_1=="inf" % |tmp-tmp1|>Eps,
- AnsL=append(AnsL,tmp);
- );
- );
- ,
- AnsL=append(AnsL,["inf"]);
- );
- );
- tmp1=[];
- tmp2=select(1..length(AnsL),AnsL_#==["inf"]);
- tmp=1;
- forall(tmp2,
- if(#>tmp,
- tmp1=concat(tmp1,[AnsL_(tmp..(#-1))])
- );
- tmp=#+1;
- );
- if(tmp<length(AnsL),
- tmp1=concat(tmp1,[AnsL_(tmp..length(AnsL))]);
- );
- AnsL=tmp1;
- if(length(AnsL)==1,AnsL=AnsL_1);
- Out=append(Out,AnsL);
- );
- if(length(Out)==1,
- Out=Out_1;
- );
- Out;
-);
-
-Projpara(ptdata):=Projpara(ptdata,[]);
-Projpara(ptdata,options):=(
- regional(name2,name3,Ltype,Noflg,opcindy,dtL,ptL,tmp,Out);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- if(islist(ptdata),dtL=ptdata,dtL=[ptdata]);
- Out=[];
- forall(dtL,name3,
-// name3=#;
- if(indexof(name3,"3d")>0, //17.05.24
- name2=replace(name3,"3d","2d");
- ,
- name2="para"+name3;
- );
- ptL=Projcurve(name3);
- ptL=select(ptL,length(#)>1);//17.06.02
- if(length(ptL)==1,
- ptL=ptL_1;
- );
- Out=append(Out,ptL);
- if(Noflg<3,
- println("generate projparadata "+name2);
- tmp=name2+"="+textformat(ptL,5);
- parse(tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- );
- );
- if(length(Out)==1,Out=Out_1);
-// Out=Flattenlist(Out);
- if(length(Out)==1,Out=Out_1); // 15.02.24
- tmp=[];
- forall(Out,
- if(length(#)>0,tmp=append(tmp,#));
- );
- Out=tmp;
- Out;
-);
-
-InvparaptPp(pt,pd):=(
- regional(Eps,fk,nfk,ph,fh,ah,bh,ak,bk,v1,v2,
- nn,s0,t2,out,tmp,tmp1,tmp2,flg);
- Eps=10^(-4);
- if(isstring(pd),
- fk=pd;
- ,
- fk=textformat(pd,5);
- );
- nfk=Numptcrv(parse(fk));
- flg=0;
- tmp=pt;
- if(length(tmp)==1,
- ph=tmp;
- fh=pd;
- ,
- fh=Projpara(fk,["nodata"]);
- if(nfk>2,
- tmp1=Nearestpt(tmp,fh);
- ph=tmp1_2;
- ,
- ah=Ptcrv(1,fh); bh=Ptcrv(2,fh);
- v1=tmp-ah; v2=bh-ah;
- tmp1=Crossprod(v1,v2);
- if(abs(tmp1)>Eps,
- println(" Not on the line");
- out=[];
- flg=1;
- ,
- ph=Dotprod(v1,v2)/|v2|^2+1;
- );
- );
- );
- if(flg==0,
- if(nfk>2,
- nn=floor(ph);
- s0=ph-nn;
- if(ph>Numptcrv(fh)-Eps,
- out=[Ptend(fk),Numptcrv(fh)];
- flg=1;
- );
- ,
- nn=1;
- s0=ph-1;
- );
- );
- if(flg==0,
- ak=Ptcrv(nn,fk); bk=Ptcrv(nn+1,fk);
- ah=Ptcrv(nn,fh); bh=Ptcrv(nn+1,fh);
- ph=(1-s0)*ah+a0*bh;
- t2=s0;
- pk=(1-t2)*ak+t2*bk;
- out=[pk,nn+t2];
- );
- out;
-);
-
-Invparapt(pt,pd):=(
- regional(tmp);
- tmp=InvparaptPp(pt,pd);
- tmp_1;
-);
-
-Subgraph(name,opcindy):=(
- regional(tht,tmp,tmp1);
- tht=THETA; THETA=pi/2;
- tmp=Projpara(name3,["nodata"]);
- if(length(tmp)>0, //15.08.17
- tmp=Translatedata("",[tmp],[NE.x-SW.x,0],["nodata"]);
- tmp1=replace("sub"+name,"3d","2d");
- tmp=tmp1+"="+Textformat(tmp,5);
- parse(tmp);
- GCLIST=append(GCLIST,[tmp1,0,opcindy]);
- );
- THETA=tht; // 15.11.03
-);
-
-Spaceline(ptlist):=Spaceline(ptlist,[]); // 16.02.22 from
-Spaceline(Arg1,Arg2):=(
- regional(name,tmp,tmp1,tmp2);
- if(isstring(Arg1),
- Spaceline(Arg1,Arg2,[]);
- ,
- tmp=text(Arg1);
- tmp=substring(tmp,1,length(tmp)-1);
- name="-"+replace(tmp,",","");
- Spaceline(name,Arg1,Arg2);
- );
-); // 16.02.22 upto
-Spaceline(nm,ptlistorg,optionorg):=(
-//help:Spaceline("1",[[2,5,1],[4,2,3]]);
-//help:Spaceline([A,B]);
- regional(name2,name3,options,Out,tmp,tmp1,tmp2,
- opstr,opcindy,Ltype,Noflg,eqL,ptlist, Msg);
- ptlist=apply(ptlistorg,if(ispoint(#),parse(text(#)+"3d"),#)); // 16.02.10
- if(substring(nm,0,2)=="bz",
- name2=replace(nm,"bz","bz2d");
- name3=replace(nm,"bz","bz3d");
- ,
- if(substring(nm,0,1)=="-",
- tmp=substring(nm,1,length(nm));
- if(indexof(tmp,"3d")>0,name3=tmp,name3=tmp+"3d");
- name2=replace(name3,"3d","2d");
- ,
- name2="sl2d"+nm;
- name3="sl3d"+nm;
- );
- );
- options=select(optionorg,length(#)>0); // 160415
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opcindy=tmp_(length(tmp));
- Msg=1;
- forall(eqL,
- tmp=substring(#,0,1);
- if(Toupper(tmp)=="M",
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,tmp+1);
- if(Toupper(tmp1)=="N",
- Msg=0;
- );
- );
- );
- if(Noflg<3,
- if(Msg==1,
- println("generate Spaceline "+name3);
- );
- tmp=name3+"="+ptlist;
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp="[";
- forall(ptlist, //17.07.13from
- if(isstring(#),
- tmp=tmp+#+",";
- ,
- tmp=tmp+textformat(#,5)+",";
- );
- );
- tmp=substring(tmp,0,length(tmp)-1)+"]";
- tmp=name3+"=Spaceline("+tmp+")"; //17.07.13upto
-// tmp=name3+"=Spaceline("+textformat(ptlist,5)+")"; //17.05.24
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- Subgraph(name3,opcindy);
- );
- );
- ptlist;
-);
-
-Spacecurve(nm,funstr,variable):=Spacecurve(nm,funstr,variable,[]);
-Spacecurve(nm,funstr,variable,optionorg):=(
-//help:Spacecurve("1","[cos(t),sin(t),0.5*t]","t=[0,4*pi]",["Num=200"]);
- regional(name2,name3,options,Out,tmp,tmp1,tmp2,vname,tmpfn,str,Rng,Num,Msg,
- Ec,Exfun,Dc,opstr,opcindy,Fntmp,Vatmp,Ltype,Noflg,eqL,t1,t2,dt,tt,pa,ke);
- if(substring(nm,0,2)=="bz",
- name2=replace(nm,"bz","bz2d");
- name3=replace(nm,"bz","bz3d");
- ,
- name2="sc2d"+nm;
- name3="sc3d"+nm;
- );
- Eps=10^(-4);
- Num=50;
- Ec=[];
- Exfun="";
- Dc=1000;
- options=select(optionorg,length(#)>0); // 160415
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Msg=1;
- forall(eqL,
- tmp=substring(#,0,1);
- if(Toupper(tmp)=="M",
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,tmp+2);
- if(Toupper(tmp1)=="NO",
- Msg=0;
- );
- );
- tmp=indexof(#,"N=");
- if(tmp>0,
- tmp1=substring(#,tmp+1,length(#));
- Num=parse(tmp1);
- opstr=opstr+",'"+#+"'";
- );
- tmp=indexof(#,"Num=");
- if(tmp>0,
- tmp1=substring(#,tmp+3,length(#));
- Num=parse(tmp1);
- opstr=opstr+",'"+#+"'";
- );
- tmp=indexof(#,"E=");
- if(tmp>0,
- tmp1=substring(#,tmp+1,length(#));
- if(substring(tmp1,0,1)=="[",
- Ec=parse(tmp1);
- ,
- Exfun=tmp1;
- );
- opstr=opstr+",'"+#+"'";
- );
- tmp=indexof(#,"Exc=");
- if(tmp>0,
- tmp1=substring(#,tmp+3,length(#));
- if(substring(tmp1,0,1)=="[",
- Ec=parse(tmp1);
- ,
- Exfun=tmp1;
- );
- );
- );
- 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; // differ from Scilab
- tmp="tmpfn("+vname+"):="+funstr+";";
- parse(tmp);
- Out=[];
- Ec=append(sort(Ec),10000);
- ke=1;
- forall(0..Num,
- pt=[];
- tt=Rng_1+#*dt;
- if(tt-Ec_ke<-Eps,
- pa=tmpfn(tt);
- );
- if(abs(tt-Ec_ke)<=Eps,
- if(length(Out)>0,
- if(Out_(length(Out))_1!="inf",
- pa=["inf"];
- );
- );
- );
- if(tt-Ec_ke>Eps,
- pa=tmpfn(tt);
- 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))]);
- );
- if(length(Out)==1,
- Out=Out_1;
- );
- if(Noflg<3,
- if(Msg==1,
- println("generate Spacecurve "+name3);
- );
- tmp=name3+"="+textformat(Out,5);
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=name3+"=Spacecurve(Assign('"+funstr+"'),'"+variable+"'"+opstr+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- tmp=parse(name2); // 15.08.17
- if(length(tmp)>0,
- Subgraph(name3,opcindy);
- ); // 15.08.17
- );
- );
- Out;
-);
-
-Partcrv3d(nm,pA,pB,PkLstr):=Partcrv3d(nm,pA,pB,PkLstr,[]);
-Partcrv3d(nm,pA,pB,PkLstr,options):=(
-//help:Partcrv3d("1",A,B,"sl3d1");
-//help:Partcrv3d("1",1.3,2.5,"sl3d1");
- regional(p1,p2,q1,q2,dt1,dts,dt3,tmp,tmp1,tmp2);
- if(isreal(pA),
- p1=pA; q1=pA;
- ,
- if(islist(pA),
- tmp=pA;
- ,
- if(ispoint(pA),tmp=text(pA),tmp=pA);
- tmp=parse(tmp+"3d");
- );
- p1=parapt(tmp);
- q1=[p1_1,tmp_3]+[NE.x-SW.x,0];
- );
- if(isreal(pB),
- p2=pB; q2=pB;
- ,
- if(islist(pB),
- tmp=pB;
- ,
- if(ispoint(pB),tmp=text(pB),tmp=pB);
- tmp=parse(tmp+"3d");
- );
- p2=parapt(tmp);
- q2=[p2_1,tmp_3]+[NE.x-SW.x,0];
- );
- tmp=replace(PkLstr,"3d","2d");
- dt1=partcrv("",p1,p2,tmp,["nodata"]);
- dts=partcrv("",q1,q2,"sub"+tmp,["nodata"]);
- dt=apply(1..length(dt1),
- Xyzcoord(dt1_#_1,dt1_#_2,dts_#_2));
- Spaceline("-part3d"+nm,dt,options);
-);
-
-Joincrvs3d(nm,plotstrL):=Joincrvs3d(nm,plotstrL,[]);//16.10.06
-Joincrvs3d(nm,plotstrL,options):=(
-//help:Joincrvs3d("1",["bz3da1","bz3da1"]);
- regional(PtL,Eps,QdL,Flg,Ni,Qd,pP,pS,pQ,pR,rMN,
- opcindy,tmp,tmp1,tmp2,str,name2,name3,Ltype,Noflg);
- name2="join2d"+nm;
- name3="join3d"+nm;
- QdL=[];
- forall(plotstrL,str,
- if(isstring(str),
- tmp=parse(str);
- ,
- tmp=str;
- );
- QdL=append(QdL,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);
- Flg=0;
- if(length(QdL)==0,
- PtL=[];
- Flg=1;
- );
- if(Flg==0,
- PtL=QdL_1;
- forall(2..length(QdL),Ni,
- Qd=QdL_Ni;
- if(length(Qd)>1,
- pP=PtL_1;
- pS=PtL_(length(PtL));
- pQ=Qd_1;
- pR=Qd_(length(Qd));
- rMN=min([norm(pP-pQ),norm(pP-pR),
- norm(pS-pQ),norm(pS-pR)]);
- if(rMN==norm(pP-pR),
- Qd=reverse(Qd);
- ,
- if(rMN==norm(pS-pQ),
- PtL=reverse(PtL);
- ,
- if(rMN==norm(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 Joincurves3d "+name3);
- tmp=name3+"="+textformat(PtL,5);
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=text(plotstrL);
- tmp=substring(tmp,1,length(tmp)-1);
- tmp=name3+"=Joincrvs("+tmp+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- tmp=parse(name2); // 15.08.17
- if(length(tmp)>0,
- Subgraph(name3,opcindy);
- ); // 15.08.17
- );
- );
- PtL;
-);
-
-Xyzax3data(nm,Xrange,Yrange,Zrange):=
- Xyzax3data(nm,Xrange,Yrange,Zrange,[]);
-Xyzax3data(nm,Xrange,Yrange,Zrange,options):=(
-//help:Xyzax3data("","x=[-5,5]","y=[-5,5]","z=[-5,5]");
-//help:Xyzax3data(Options2=["a1","Osw"]);
- regional(name2,name3,Out,tmp,tmp1,tmp2,eqL,reL,strL,
- opstr,opcindy,Ltype,Noflg,Axname,Arrow,Origin);
- name2="ax2d"+nm;
- name3="ax3d"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- opcindy=tmp_(length(tmp));
- Axname=1;
- Arrow=0; // 16.08.14
- Origin=""; // 16.08.14
- if(length(reL)>0,
- Axname=reL_1;
- );
- forall(strL, // 16.08.14from
- tmp1=Toupper(substring(#,0,1));
- if(tmp1=="A",
- tmp=substring(#,1,length(#));
- if(length(tmp)>0,
- Arrow=parse(tmp);
- ,
- Arrow=1;
- );
- );
- if(tmp1=="O",
- tmp=indexof(#,",");
- if(tmp>0,
- Origin=substring(#,tmp,length(#));
- ,
- tmp=substring(#,1,length(#));
- if(length(tmp)>0,
- Origin=tmp;
- ,
- Origin="sw";
- );
- );
- );
- ); // 16.08.14upto
- tmp1=indexof(Xrange,"=");
- tmp=parse(substring(Xrange,tmp1,length(Xrange)));
- Px=[tmp_1,0,0]; Qx=[tmp_2,0,0];
- tmp1=indexof(Yrange,"=");
- tmp=parse(substring(Yrange,tmp1,length(Yrange)));
- Py=[0,tmp_1,0]; Qy=[0,tmp_2,0];
- tmp1=indexof(Zrange,"=");
- tmp=parse(substring(Zrange,tmp1,length(Zrange)));
- Pz=[0,0,tmp_1]; Qz=[0,0,tmp_2];
- Out=[[Px,Qx],[Py,Qy],[Pz,Qz]];
- if(Axname>0,
- Xyzaxparaname(Xrange,Yrange,Zrange,[Axname]);
- );
- if(Noflg<3,
- println("generate axes "+name3);
- tmp=name3+"="+textformat(Out,5);
- parse(tmp);
- tmp1=Projpara([name3],["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=name3+"=Xyzax3data("+
- Dq+Xrange+Dq+","+Dq+Yrange+Dq+","+Dq+Zrange+Dq+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(Noflg<1, // 16.08.14from
- if(Arrow>0,
- tmp1=Parapt(Px); tmp2=Parapt(Qx);
- Arrowhead(tmp2,tmp2-tmp1,[Arrow]);
- tmp1=Parapt(Py); tmp2=Parapt(Qy);
- Arrowhead(tmp2,tmp2-tmp1,[Arrow]);
- tmp1=Parapt(Pz); tmp2=Parapt(Qz);
- Arrowhead(tmp2,tmp2-tmp1,[Arrow]);
- );
- if(length(Origin)>0,
- Letter([Parapt([0,0,0]),Origin,"O"]);
- );
- ); // 16.08.14upto
- if(SUBSCR==1, // 15.02.11
- Subgraph(name3,opcindy);
- );
- );
- Out;
-);
-
-Xyzaxparaname(Xrange,Yrange,Zrange):=
- Xyzaxparaname(Xrange,Yrange,Zrange,[]);
-Xyzaxparaname(Xrange,Yrange,Zrange,options):=(
- regional(tmp,tmp1,tmp2,Eps,Dr,Noflg,Xname,Yname,Zname,
- px,qx,py,qy,pz,qz,ph,qh,rr,ch);
- Eps=10.0^(-6);
- Dr=0.19*1000/2.54/MilliIn;
- Noflg=0;
- forall(options,
- if(isreal(#),Dr=Dr*#);
- );
- tmp=indexof(Xrange,"=");
- Xname=substring(Xrange,0,tmp-1);
- tmp=parse(substring(Xrange,tmp,length(Xrange)));
- px=[tmp_1,0,0]; qx=[tmp_2,0,0];
- tmp=indexof(Yrange,"=");
- Yname=substring(Yrange,0,tmp-1);
- tmp=parse(substring(Yrange,tmp,length(Yrange)));
- py=[0,tmp_1,0]; qy=[0,tmp_2,0];
- tmp=indexof(Zrange,"=");
- Zname=substring(Zrange,0,tmp-1);
- tmp=parse(substring(Zrange,tmp,length(Zrange)));
- pz=[0,0,tmp_1]; qz=[0,0,tmp_2];
- ph=Parapt(px); qh=Parapt(qx); rr=|ph-qh|;
- if(rr>Eps,
- ch=qh+Dr/rr*(qh-ph);
- Expr(ch,"c",Xname);
- );
- ph=Parapt(py); qh=Parapt(qy); rr=|ph-qh|;
- if(rr>Eps,
- ch=qh+Dr/rr*(qh-ph);
- Expr(ch,"c",Yname);
- );
- ph=Parapt(pz); qh=Parapt(qz); rr=|ph-qh|;
- if(rr>Eps,
- ch=qh+Dr/rr*(qh-ph);
- Expr(ch,"c",Zname);
- );
-);
-
-Datalist3d():=(
-//help:Datalist3d();
- regional(out,tmp,tmp2,tmp3);
- tmp=apply(GCLIST,#_1);
- tmp=select(tmp,indexof(#,"2d")>0);
- tmp2=select(tmp,indexof(#,"sub")==0);
- tmp3=apply(tmp2,replace(#,"2d","3d"));
- out=tmp3;
-);
-
-Datalist2d():=(
-//help:Datalist2d();
- regional(out,tmp,tmp2,tmp3);
- tmp=apply(GCLIST,#_1);
- tmp=select(tmp,indexof(#,"2d")>0);
- tmp2=select(tmp,indexof(#,"sub")==0);
-// tmp3=apply(tmp2,replace(#,"2d","3d"));
- out=tmp2;
-);
-
-Embed(nm,Pd2str,funstr,varstr):=
- Embed(nm,Pd2str,funstr,varstr,[]);
-Embed(nm,Pd2str,funstr,varstr,options):=(
-//help:Embed("1",["gr1"],"A3d+x*(B3d-A3d)+y*(C3d-A3d)","[x,y]");
- regional(name2,name3,Pd2L,Pd2,tmp,tmp1,xstr,ystr,
- Ltype,Noflg,opstr,opcindy,Out);
- name2="em2d"+nm;
- name3="em3d"+nm;
- if(!islist(Pd2str),Pd2L=[Pd2str],Pd2L=Pd2str); // 15.03.06
- tmp1=[]; // 15.10.31
- forall(Pd2L,
- if(isstring(#),tmp=parse(#),tmp=#);
- if(MeasureDepth(tmp)==2,
- tmp1=concat(tmp1,tmp);
- );
- if(MeasureDepth(tmp)==1,
- tmp1=append(tmp1,tmp);
- );
- );
- Pd2L=tmp1;
- tmp=substring(varstr,0,1);
- if(tmp=="[" % tmp=="(",
- tmp1=substring(varstr,1,length(varstr)-1);
- ,
- tmp1=varstr;
- );
- tmp=indexof(tmp1,",");
- xstr=substring(tmp1,0,tmp-1);
- ystr=substring(tmp1,tmp,length(tmp1));
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- Out=[];
- forall(Pd2L,Pd2,
- tmp1=[];
- forall(Pd2,
- tmp=Assign(funstr,xstr,"("+textformat(#_1,5)+")");
- tmp=Assign(tmp,ystr,"("+textformat(#_2,5)+")");
- tmp=parse(tmp);
- tmp1=append(tmp1,tmp);
- );
- Out=append(Out,tmp1);
- );
- if(length(Out)==1,
- Out=Out_1;
- );
- if(Noflg<3,
- println("generate Embed "+name3);
- if(length(Out)>0,
- tmp=name3+"="+textformat(Out,5);
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- );
- if(!islist(Pd2str),
- tmp=Pd2str;
- ,
- tmp=text(Pd2str);
- tmp="list("+substring(tmp,1,length(tmp)-1)+")";
- );
- tmp=name3+"=Embed("+tmp+",'"+funstr+"','"+varstr+"'"+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(length(Out)>0,
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- Subgraph(name3,opcindy);
- );
- );
- );
- Out;
-);
-
-Rotatept3d(point,w1,w2):=Rotate3pt(point,w1,w2);
-Rotatept3d(point,w1,w2,center):=Rotate3pt(point,w1,w2,center);
-//help:Rotatept3d(pt3d,[0,0,1],pi/2);
-//help:Rotatept3d(pt3d,[0,0,1],pi/2,[1,1,1]);
-Rotate3pt(point,w1,w2):=Rotate3pt(point,w1,w2,[0,0,0]);
-Rotate3pt(point,w1,w2,center):=(
-//help:Rotate3pt(pt3d,[0,0,1],pi/2);
-//help:Rotate3pt(pt3d,[0,0,1],pi/2,[1,1,1]);
- regional(Eps,ct,st,v3,v1,v2,Ans,ns,PtL,num,
- pt,tmp,tmp1,tmp2,Retflg,x,y,z,xx,yy,zz,flg);
- Eps=10^(-4);
- Retflg=0;
- if(length(w2)==1,
- ct=cos(w2);
- st=sin(w2);
- v3=1/|w1|*w1;
- if(v3_1==0,
- tmp=[1,0,0];
- ,
- tmp=[0,1,0];
- );
- w1=[tmp_2*v3_3-tmp_3*v3_2,
- tmp_3*v3_1-tmp_1*v3_3,
- tmp_1*v3_2-tmp_2*v3_1];
- v1=1/|w1|*w1;
- v2=[v3_2*v1_3-v3_3*v1_2,
- v3_3*v1_1-v3_1*v1_3,
- v3_1*v1_2-v3_2*v1_1];
- ,
- tmp=[w1_2*w2_3-w1_3*w2_2,
- w1_3*w2_1-w1_1*w2_3,
- w1_1*w2_2-w1_2*w2_1];
- if(|tmp|<Eps,
- Ans=point;
- Retflg=1;
- );
- if(Retflg==0,
- v1=1/|w1|*w1;
- ns=v1_1*w2_1+v1_2*w2_2+v1_3*w2_3;
- tmp=w2-ns*v1;
- v2=1/|tmp|*tmp;
- tmp=[v1_2*v2_3-v1_3*v2_2,
- v1_3*v2_1-v1_1*v2_3,
- v1_1*v2_2-v1_2*v2_1];
- v3=1/|tmp|*tmp;
- ct=ns/|w2|;
- st=sqrt(1-ct^2);
- );
- );
- if(Retflg==0,
- if(|tmp|<Eps,
- Ans=point;
- Retflg=1;
- );
- );
- if(Retflg==0,
- if(MeasureDepth(point)>0,
- PtL=point;
- ,
- PtL=[point];
- );
- Ans=[];
- flg=0;
- forall(1..length(PtL),num,
- pt=PtL_num;
- if(pt_1=="inf",
- Ans=append(Ans,["inf"]);
- flg=1;
- );
- if(flg==0,
- x=pt_1-center_1; y=pt_2-center_2; z=pt_3-center_3;
- xx=((v1_1*ct+v2_1*st)*v1_1+ (-v1_1*st+v2_1*ct)*v2_1+v3_1^2)*x
- +((v1_1*ct+v2_1*st)*v1_2+(-v1_1*st+v2_1*ct)*v2_2+v3_1*v3_2)*y
- +((v1_1*ct+v2_1*st)*v1_3+(-v1_1*st+v2_1*ct)*v2_3+v3_1*v3_3)*z;
- yy=((v1_2*ct+v2_2*st)*v1_1+(-v1_2*st+v2_2*ct)*v2_1+v3_1*v3_2)*x
- +((v1_2*ct+v2_2*st)*v1_2+(-v1_2*st+v2_2*ct)*v2_2+v3_2^2)*y
- +((v1_2*ct+v2_2*st)*v1_3+(-v1_2*st+v2_2*ct)*v2_3+v3_2*v3_3)*z;
- zz=((v1_3*ct+v2_3*st)*v1_1+(-v1_3*st+v2_3*ct)*v2_1+v3_1*v3_3)*x
- +((v1_3*ct+v2_3*st)*v1_2+(-v1_3*st+v2_3*ct)*v2_2+v3_2*v3_3)*y
- +((v1_3*ct+v2_3*st)*v1_3+(-v1_3*st+v2_3*ct)*v2_3+v3_3^2)*z;
- Ans=append(Ans,center+[xx,yy,zz]);
- );
- );
- if(length(Ans)==1,
- Ans=Ans_1;
- );
- );
- Ans;
-);
-
-Rotatedata3d(nm,P3data,w1,w2):=Rotate3data(nm,P3data,w1,w2);
-Rotatedata3d(nm,P3data,w1,w2,options):=
- Rotate3data(nm,P3data,w1,w2,options);
-//help:Rotatedata3d("1",["sl3d1","sc3d2"],[0,0,1],pi/3);
-Rotate3data(nm,P3data,w1,w2):=Rotate3data(nm,P3data,w1,w2,[]);
-Rotate3data(nm,P3data,w1,w2,options):=(
- regional(name3,name2,center,pdata,Pd3,Pd,Out,tmp,tmp1,
- Ltype,Noflg,opcindy,opstr);
- name3="rot3d"+nm;
- name2="rot2d"+nm;
- center=[0,0,0];
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- tmp1=tmp_6;
- if(length(tmp1)>0,
- center=tmp1_1;
- );
- if(islist(P3data) & isstring(P3data_1),Pd3=P3data,Pd3=[P3data]);
- Out=[];
- forall(Pd3,Pd,
- if(isstring(Pd),Pd=parse(Pd));
- if(MeasureDepth(Pd)==1,Pd=[Pd]);
- Ans=[];
- forall(Pd,
- tmp=Rotate3pt(#,w1,w2,center);
- Ans=append(Ans,tmp);
- );
- Out=append(Out,Ans);
- );
- Out=Flattenlist(Out);
- if(length(Out)==1,Out=Out_1);
- if(Noflg<3,
- println("generate Rotate3data "+name3);
- tmp=name3+"="+textformat(Out,5);
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=text(P3data);
- tmp=replace(tmp,"[","list(");
- tmp=replace(tmp,"]",")");
- tmp=name3+"=Rotate3data("+tmp+","
- +textformat(w1,5)+","+textformat(w2,5)+opstr+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- Subgraph(name3,opcindy);
- );
- );
- Out;
-);
-
-Translatept3d(point,w1):=Translate3pt(point,w1);
-//help:Translatept3d(pt3d,[1,2,3]);
-Translate3pt(point,w1):=(
- regional(Eps,Ans,PtL,pt,num,xx,yy,zz,flg);
- Eps=10^(-4);
- if(MeasureDepth(point)>0,
- PtL=point;
- ,
- PtL=[point];
- );
- Ans=[];
- flg=0;
- forall(1..length(PtL),num,
- pt=PtL_num;
- if(pt_1=="inf",
- Ans=append(Ans,["inf"]);
- flg=1;
- );
- if(flg==0,
- xx=pt_1+w1_1; yy=pt_2+w1_2; zz=pt_3+w1_3;
- Ans=append(Ans,[xx,yy,zz]);
- );
- );
- if(length(Ans)==1,
- Ans=Ans_1;
- );
- Ans;
-);
-
-Translatedata3d(nm,P3data,w1):=Translate3data(nm,P3data,w1);
-Translatedata3d(nm,P3data,w1,options):=
- Translate3data(nm,P3data,w1,options);
-//help:Translatedata3d("1",["sl3d1"],[1,2,3]);
-Translate3data(nm,P3data,w1):=Translate3data(nm,P3data,w1,[]);
-Translate3data(nm,P3data,w1,options):=(
- regional(name3,name2,pdata,Pd3,Pd,Out,tmp,tmp1,
- Ltype,Noflg,opcindy);
- name3="tra3d"+nm;
- name2="tra2d"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- if(islist(P3data) & isstring(P3data_1),Pd3=P3data,Pd3=[P3data]);
- Out=[];
- forall(Pd3,Pd,
- if(isstring(Pd),Pd=parse(Pd));
- if(MeasureDepth(Pd)==1,Pd=[Pd]);
- Ans=[];
- forall(Pd,
- tmp=Translate3pt(#,w1);
- Ans=append(Ans,tmp);
- );
- Out=append(Out,Ans);
- );
- Out=Flattenlist(Out);
- if(length(Out)==1,Out=Out_1);
- if(Noflg<3,
- println("generate Translate3data "+name3);
- tmp=name3+"="+textformat(Out,5);
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp=text(P3data);
- tmp=replace(tmp,"[","list(");
- tmp=replace(tmp,"]",")");
- tmp=name3+"=Translate3data("+tmp+","+textformat(w1,5)+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- Subgraph(name3,opcindy);
- );
- );
- Out;
-);
-
-Reflectpoint3d(point,vecL):=Reflect3point(point,vecL);
-Reflectpt3d(point,vecL):=Reflect3pt(point,vecL);
-//help:Reflectpoint3d(pt3d,[v1,v2,v3]);
-Reflect3point(point,vecL):=Reflect3pt(point,vecL);
-Reflect3pt(point,vecL):=(
- regional(ans,v1,v2,v3,tmp,tmp1);
- if(length(vecL)==1,
- v1=vecL_1;
- ans=2*v1-point;
- );
- if(length(vecL)==2,
- v1=vecL_1;
- v2=vecL_2;
- v3=(v2-v1)/|v2-v1|;
- tmp=v1+Dotprod(point-v1,v3)*v3;
- ans=2*tmp-point;
- );
- if(length(vecL)==3,
- v1=vecL_1;
- v2=vecL_2;
- v3=vecL_3;
- tmp=Crossprod(v2-v1,v3-v1);
- tmp1=point-Dotprod(tmp,point-v1)/|tmp|^2*tmp;
- ans=2*tmp1-point;
- );
- ans;
-);
-
-Xyzcoord(X,Y,z):=(
-//help:Xyzcoord(A.x,A.y,Az.y);
- regional(Eps,x3d,y3d,z3d);
- x3d=(-X*sin(PHI)*cos(THETA)-Y*cos(PHI)+z*cos(PHI)*sin(THETA))/cos(THETA);
- y3d=(X*cos(PHI)*cos(THETA)-Y*sin(PHI)+z*sin(PHI)*sin(THETA))/cos(THETA);
- z3d=z;
- [x3d,y3d,z3d];
-);
-
-PutonCurve3d(name,pdstr):=(
-//help:PutonCurve3d("T","sc3d1");
- regional(pt,pd2str,tmp,tmp1,tmp2);
- pd2str=replace(pdstr,"3d","2d");
- PutonCurve(name,pd2str);
- pt=parse(name+".xy");
- tmp=Nearestpt(pt,pd2str); // 15.03.13
- tmp1=ParamonCurve(tmp_1,tmp_2,pd2str);
- tmp="sub"+pd2str;
- tmp2=PointonCurve(tmp1,tmp);
- pt=append(pt,tmp2_2);
- pt=Xyzcoord(pt_1,pt_2,pt_3); // 15.03.13
- tmp=name+"z.xy="+textformat(tmp2,5);
- parse(tmp);
- VLIST=select(VLIST,#_1!=name+"3d=");
- Defvar(name+"3d",pt);
-);
-
-Mkpointlist():=Mkpointlist([]); //16.11.12
-Mkpointlist(options):=( //16.11.12
- regional(Eps,pos,ptL,plist,ilist,plistrest,
- inforest,free,pt,pt3,ptz,par,vlistpre,
- tmp,tmp1,tmp2,tmp3,tmp4,p1,p2,flg);
- Eps=10^(-4);
- tmp=Finddef(NE);
- free=tmp_1;
- pos=[NE.x+1,NE.y];
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp=remove(tmp,options); //16.11.12
- plist=select(tmp,
- substring(text(#),length(text(#))-1,length(text(#)))!="z"
- );
- if(SUBSCR==0,plist=[]);
- ptL=[];
- plistrest=[];
- inforest=[];
- forall(plist,pt,
- inspect(pt,"ptsize",3);
- inspect(pt,"color",2);
- inspect(pt,"textsize",TSIZE);
- ptz=text(pt)+"z";
- tmp=Finddef(pt);
- if(indexof(tmp_1,free)>0, // free point
- tmp=select(VLIST,#_1==text(pt)+"3d=");
- if(length(tmp)==0,
- tmp=pt.x+NE.x-SW.x;
- Putpoint(ptz,[tmp,0],[tmp,parse(ptz+".y")]);
- pt3=Xyzcoord(pt.x,pt.y,parse(text(ptz)+".y"));
- Defvar(text(pt)+"3d",pt3);
- Defvar(text(pt)+"fix",0);
- vlistpre=VLIST; //16.08.20
- );
- flg=0;
- if(isselected(pt),
- if(parse(text(pt)+"fix")!=1, // 15.03.01
- tmp=pt.x+NE.x-SW.x;
- Putpoint(ptz,[tmp,0],[tmp,parse(ptz+".y")]);
- pt3=Xyzcoord(pt.x,pt.y,parse(text(ptz)+".y"));
- VLIST=select(VLIST,#_1!=text(pt)+"3d=");
- Defvar(text(pt)+"3d",pt3);
- vlistpre=VLIST; //16.08.20
- flg=1;
- );
- );
- inspect(parse(ptz),"ptsize",3);
- inspect(parse(ptz),"color",3);
- inspect(parse(ptz),"textsize",TSIZEZ);
- if(isselected(parse(ptz)),
- if(parse(ptz+"fix")!=1, // 15.03.01
- tmp=select(vlistpre,#_1==text(pt)+"3d="); //16.08.20
- pt3=tmp_1_2;
- pt3_3=parse(ptz+".y");
- pt.xy=Parapt(pt3);
- tmp=ptz+".x=pt.x+NE.x-SW.x";
- parse(tmp);
- VLIST=select(VLIST,#_1!=text(pt)+"3d=");
- Defvar(text(pt)+"3d",pt3);
- flg=2;
- );
- );
- if(flg==0,
- tmp=select(VLIST,#_1==text(pt)+"3d=");
- pt3=tmp_1_2;
- pt.xy=Parapt(pt3);
- tmp=ptz+".x=pt.x+NE.x-SW.x";
- parse(tmp);
- );
- if(isselected(pt) % isselected(parse(ptz)),
- drawtext(pos,text(pt3));
- );
- if(!contains(["p","q"],text(pt)),
- ptL=append(ptL,pt);
- );
- ,
- tmp=Findgeoinfo(pt);
- tmp1=[parse(tmp_1),parse(tmp_2),parse(tmp_3)];
- plistrest=append(plistrest,pt);
- inforest=append(inforest,tmp);
- );
- );
- if(length(plistrest)>0,
- tmp=Sortpointlist([plistrest,inforest]);
- plist=tmp_1;
- ilist=tmp_2;
- forall(1..length(plist),
- pt=plist_#;
- ptz=text(pt)+"z";
- tmp=ilist_#;
- p1=parse(tmp_3);
- p2=p1+parse(tmp_2)-parse(tmp_1);
- tmp1=p2-p1;
- tmp2=pt-p1;
- if(abs(tmp1_1)>abs(tmp1_2),
- par=tmp2_1/tmp1_1;
- ,
- par=tmp2_2/tmp1_2;
- );
- tmp=ilist_#;
- tmp1=parse(tmp_1+"3d");
- tmp2=parse(tmp_2+"3d");
- tmp3=parse(tmp_3+"3d");
- tmp1=(1-par)*tmp3+par*(tmp3+tmp2-tmp1);
- Putpoint(ptz,[pt.x+NE.x-SW.x,tmp1_3]);
- inspect(parse(ptz),"ptsize",3);
- inspect(parse(ptz),"color",3);
- inspect(parse(ptz),"textsize",TSIZEZ);
- pt3=Xyzcoord(pt.x,pt.y,parse(text(ptz)+".y"));
- VLIST=select(VLIST,#_1!=tmp1+"3d=");
- Defvar(text(pt)+"3d",pt3);
- vlistpre=VLIST; //16.08.20
- if(isselected(pt) % isselected(parse(ptz)),
- drawtext(pos,text(pt3));
- );
- if(!contains(["p","q"],text(pt)),
- ptL=append(ptL,pt);
- );
- );
- );
- ptL;
-);
-
-Mkseg3d():=Mkseg3d([]);
-Mkseg3d(options):=(
- regional(seg,nmseg,def,ptA,ptB,segL,opstr,opcindy,
- name,strg,Ltype,Noflg,tht,tmp,tmp1,tmp2,tmp3);
- name="geoseg3d";
- strg=name+"=list(";
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opcindy=tmp_(length(tmp));
- segL=[];
- forall(allsegments(),seg,
- inspect(seg,"labeled",false);
- tmp=Finddef(seg);
- def=tmp_1;
- ptA=tmp_2;
- ptB=tmp_3;
- if(ispoint(parse(ptA)) & ispoint(parse(ptB)),
- tmp1=select(VLIST,indexof(#_1,ptA+"3d=")>0);
- tmp2=select(VLIST,indexof(#_1,ptB+"3d=")>0);
- if(length(tmp1)>0 & length(tmp2)>0,
- tmp1="["+ptA+"3d,"+ptB+"3d]";
- nmseg=ptA+ptB;
-// Spaceline(nmseg,parse(tmp1),append(options,"Msg=nodisp")); //15.06.15
- Spaceline("-"+nmseg+"3d",[ptA+"3d",ptB+"3d"], // 16.04.07
- append(options,"Msg=nodisp")); //15.06.15
- segL=append(segL,nmseg+"3d");// 16.04.07
- strg=strg+nmseg+"3d,";// 16.04.07
- );
- );
- );
- println("generate totally "+name);
- if(length(segL)>0, // 15.03.06
- strg=substring(strg,0,length(strg)-1)+")";
- if(Noflg<3,
- GLIST=append(GLIST,strg);
- );
- tmp1=apply(segL,Dq+#+Dq); //15.03.02
- tmp=name+"="+text(tmp1);
- parse(tmp);
- );
- segL;
-);
-
-Ptseg3data():=Ptseg3data([]);
-//help:Ptseg3data();
-//help:Ptseg3data([A,B]);
-Ptseg3data(options):=(
- regional(pt,pt3,plist,tmp,tmp1,tmp2);
- if(isselected(TH) % isselected(FI),
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp=remove(tmp,options); //16.11.12
- tmp=apply(tmp,text(#));
- plist=select(tmp,substring(#,length(#)-1,length(#))!="z");
- forall(plist,pt,
- tmp1=text(pt);
- tmp=select(VLIST,#_1==tmp1+"3d=");
- if(length(tmp)>0,
- pt3=tmp_1_2;
- tmp=tmp1+".xy=Parapt("+pt3+")_[1,2];";
- parse(tmp);
- if(SUBSCR==1,
- tmp=tmp1+"z"+".x=NE.x-SW.x+"+tmp1+".x";
- parse(tmp);
- );
- );
- );
- ,
- Mkpointlist(options); // 16.12.18
- );
- forall(alllines(),
- #.color=[0.5,0.5,1];
- );
- SEG3dlist=Mkseg3d(options);
- SEG3dlist;
-);
-
-Putonseg3d(name,ptL):=Putonseg3d(name,ptL_1,ptL_2,[]);
-Putonseg3d(name,Arg1,Arg2):=(
- if(islist(Arg1),
- Putonseg3d(name,Arg1_1,Arg1_2,Arg2);
- ,
- Putonseg3d(name,Arg1,Arg2,[]);
- );
-);
-Putonseg3d(name,pt1,pt2,options):=(
-//help:Putonseg3d("C",[A,B]);
-//help:Putonseg3d("C",A,B);
- regional(par,pn1,pn2,tmp,tmp1,tmp2,tmp3);
- par=0.5;
- tmp=divoptions(options);
- if(length(tmp_6)>0,
- par=tmp_6_1;
- );
- Putonseg(name,pt1,pt2,[par]);
- inspect(parse(name),"ptsize",3);
- inspect(parse(name),"color",2);
- inspect(parse(name),"textsize",TSIZEZ);
- Putpoint(name+"z",[parse(name+".x"),0]);
- inspect(parse(name+"z"),"ptsize",3);
- inspect(parse(name+"z"),"color",3);
- inspect(parse(name+"z"),"textsize",TSIZEZ);
- pn1=text(pt1);
- pn2=text(pt2);
- tmp1=replace("PTCz.y=PTAz.y+|PTC-PTA|/|PTB-PTA|*(PTBz.y-PTAz.y)","PTC",name);
- tmp1=replace(tmp1,"PTA",pn1);
- tmp1=replace(tmp1,"PTB",pn2);
- tmp2=replace("PTCz.x=PTAz.x+|PTC-PTA|/|PTB-PTA|*(PTBz.x-PTAz.x)","PTC",name);
- tmp2=replace(tmp2,"PTA",pn1);
- tmp2=replace(tmp2,"PTB",pn2);
- parse(tmp2);
- parse(tmp1);
- tmp1=parse(name+".x");
- tmp2=parse(name+".y");
- tmp3=parse(name+"z.y");
- tmp=Xyzcoord(tmp1,tmp2,tmp3);
- Defvar(name+"3d",tmp);
-);
-
-Putpoint3d(ptslist):=Putpoint3d(ptslist,"",0);
-Putpoint3d(Arg1,Arg2):=( // 16.03.02 from
- if(islist(Arg1),
- Putpoint3d(Arg1,Arg2,0);
- ,
- Putpoint3d(Arg1,Arg2,"fix");
- );
-);
-Putpoint3d(Arg1,Arg2,Arg3):=(
-//help:Putpoint3d(["A",[2,1,3]]);
-//help:Putpoint3d(["A",[2,1,3]],"fix");
-//help:Putpoint3d("A",[2,1,3]);
-//help:Putpoint3d(["A",[2,1,3]],["fix"]);
- regional(nn,kk,pt,pt3,ptslist,fixstr,tmp,tmp1,tmp2,tmp3); //16.08.19
- if(isstring(Arg1),
- ptslist=[Arg1,Arg2];
- fixstr=Arg3;
- ,
- ptslist=Arg1;
- fixstr=Arg2;
- );
- if(islist(fixstr),fixstr=fixstr_1);// 16.03.02 upto
- nn=length(ptslist)/2;
- forall(1..nn,kk, // 16.08.19from
- tmp1=ptslist_(2*kk-1);
- pt3=ptslist_(2*kk); // 16.08.19upto
- VLIST=select(VLIST,#_1!=tmp1+"3d=");
- tmp2=parse(tmp1);
- if(ispoint(tmp2), // 16.05.26from
- if(islist(fixstr),tmp=fixstr_1,tmp=fixstr);
- tmp=Toupper(tmp);
- if(tmp!="FIX",
- tmp=Xyzcoord(tmp2.x,tmp2.y,parse(tmp1+"z").y);
- ,
- tmp=pt3;
- );
- Defvar(tmp1+"3d",tmp);
- ,
- Defvar(tmp1+"3d",pt3);
- ); // 16.05.26upto
- Defvar(tmp1+"fix",0);
- pt=Parapt(pt3);
- Putpoint(tmp1,pt,parse(tmp1+".xy"));
- inspect(parse(tmp1),"ptsize",3);
- inspect(parse(tmp1),"color",2);
- inspect(parse(tmp1),"textsize",TSIZE);
- if(SUBSCR==1,
- tmp2=tmp1+"z";
- tmp=[pt.x+NE.x-SW.x,pt3_3];
- tmp1="[NE.x-SW.x+"+tmp1+".x,"+tmp2+"y]";
- Putpoint(tmp2,tmp,parse(tmp1));
- inspect(parse(tmp2),"ptsize",3);
- inspect(parse(tmp2),"color",3);
- inspect(parse(tmp2),"textsize",TSIZEZ);
- );
- );
- if(islist(fixstr),tmp=fixstr_1,tmp=fixstr);
- if(tmp=="fix" % tmp=="Fix",
- Fixpoint3d(ptslist);
- );
-);
-
-Fixpoint3d(ptlist):=(
-// help:Fixpoint3d(["O",[0,0,0],"X",[1,0,0]]);
- regional(name,pt3,pt2,tmp,tmp1,tmp2);
- forall(1..(length(ptlist)/2),
- name=ptlist_(2*#-1);
- Defvar(name+"fix",1);
- pt3=ptlist_(2*#);
- pt2=Parapt(pt3);
- tmp1=textformat(pt2_1,5);
- tmp2=textformat(pt2_2,5);
- tmp=name+".xy=["+tmp1+","+tmp2+"]";
- parse(tmp);
- tmp1=name+".x+NE.x-SW.x";
- tmp2=textformat(pt3_3,5);
- tmp=name+"z.xy=["+tmp1+","+tmp2+"];";
- parse(tmp);
- );
-);
-
-Perppt(name,ptstr,pLstr):=Putperp(name,ptstr,pLstr,"draw");
-Perppt(name,ptstr,pLstr,option):=Putperp(name,ptstr,pLstr,option);
-Putperp(name,ptstr,pLstr):=Putperp(name,ptstr,pLstr,"put");
-Putperp(name,ptstr,pLstr,option):=(
-//help:Perppt("N","O","A-B-C");
-//help:Perppt("N","O","A-B-C","put");
-//help:Perppt("N","O","A-B","none");
- regional(out,Eps,N3d,sgstr,pP,pA,pB,pC,tmp,tmp1,flgpL);
- Eps=10^(-4);
- pP=parse(ptstr+"3d");
- tmp=indexof(pLstr,"-");
- pA=parse(substring(pLstr,0,tmp-1)+"3d");
- tmp1=substring(pLstr,tmp,length(pLstr));
- tmp=indexof(tmp1,"-");
- if(tmp>0,
- pB=parse(substring(tmp1,0,tmp-1)+"3d");
- pC=parse(substring(tmp1,tmp,length(tmp1))+"3d");
- flgpL=1;
- ,
- pB=parse(tmp1+"3d");
- flgpL=0;
- );
- if(flgpL==1,
- tmp=Crossprod(pB-pA,pC-pA);
- if(abs(tmp)<Eps,
- err("not a plane");
- ,
- tmp=tmp/|tmp|;
- N3d=pP+tmp;
- Defvar("tmp3d",N3d); // temporary
- sgstr=ptstr+"-tmp";
- tmp=IntersectsgpL(name,sgstr,pLstr,"none");
- VLIST=select(VLIST,#_1!="tmp3d=");
- out=tmp_1;
- Defvar(name+"3d",tmp_1);
- );
- ,
- if(|pB-pA|<Eps,
- err("on the line");
- ,
- tmp1=(pB-pA)/|pB-pA|;
- tmp=Dotprod(pP-pA,tmp1);
- out=pA+tmp*tmp1;
- Defvar(name+"3d",out);
- );
- );
- if(islist(option),tmp=option_1,tmp=option);
- tmp=substring(tmp,0,1);
- if(tmp=="P" % tmp=="p",
- Putpoint3d([name,out]);
- Fixpoint3d([name,out]);
- );
- if(tmp=="D" % tmp=="d",
- Drawpoint3d(out);
- );
- out;
-);
-
-Perpplane(name,ptstr,nvec):=
- Perpplane(name,ptstr,nvec,"draw");
-Perpplane(name,ptstr,nstr,option):=(
-//help:Perpplane("A-B","P",[1,3,2]);
-//help:Perpplane("A-B","P",[0,0,1,0]);
- regional(Eps,nvec,sgstr,pP,v1,v2,v3,
- th,ph,pA,pB,tmp,tmp1,tmp2);
- Eps=10^(-4);
- if(isstring(nstr),nvec=parse(nstr+"3d"),nvec=nstr);
- pP=parse(ptstr+"3d");
- v3=nvec/|nvec|;
- th=THETA; ph=PHI;
- tmp=findangle(v3);
- THETA=tmp_1; PHI=tmp_2;
- v1=Cancoordpara([1,0,0]);
- v2=Cancoordpara([0,1,0]);
- THETA=th; PHI=ph;
- tmp=indexof(pLstr,"-");
- pA=pP+v1;
- pB=pP+v2;
- if(islist(option),tmp=option_1,tmp=option);
- tmp=Toupper(substring(tmp,0,1)); // 16.06.19
- if(tmp=="P",
- tmp=indexof(name,"-");
- tmp1=substring(name,0,tmp-1);
- tmp2=substring(name,tmp,length(name));
- Putpoint3d([tmp1,pA,tmp2,pB],["fix"]);
- );
- if(tmp=="D",
- Drawpoint3d(pA);
- Drawpoint3d(pB);
- );
- [pA,pB];
-);
-
-Drawpoint3d(pt3):=(
-//help:Drawpoint3d(pt3d);
- regional(ptL,tmp,tmp1,tmp2);
- if(MeasureDepth(pt3)==0,ptL=[pt3],ptL=pt3);
- forall(ptL,
- tmp=parapt(#);
- draw(tmp_(1..2));
- if(SUBSCR==1,
- draw([tmp_1+NE.x-SW.x, #_3]);
- );
- );
-);
-
-Putaxes3d(size):=(
-//help:Putaxes3d(5);
-//help:Putaxes3d([1,2,3]);
- regional(sL);
- if(islist(size),sL=size,sL=[size,size,size]);
- Putpoint3d(["O",[0,0,0]],"fix"); //17.06.02from
- Putpoint3d(["X",[sL_1,0,0]],"fix");
- Putpoint3d(["Y",[0,sL_2,0]],"fix");
- Putpoint3d(["Z",[0,0,sL_3]],"fix");
-// Fixpoint3d(["O",[0,0,0]]);
-// Fixpoint3d(["X",[sL_1,0,0],"Y",[0,sL_2,0],"Z",[0,0,sL_3]]);//17.06.02fupto
-);
-
-IntersectsgpL(name,sgstr,pLstr):=
- IntersectsgpL(name,sgstr,pLstr,"draw");
-IntersectsgpL(name,sgstr,pLstr,option):=(
-//help:IntersectsgpL("R","P-Q","A-B-C");
-//help:IntersectsgpL("R","P-Q","A-B-C","put");
-//// help:IntersectsgpL("","P-Q","A-B-C","none");
-//help:IntersectsgpL("",[p1,p2],[p3,p4,p5],"draw");
- regional(opstr,out,pP,pQ,pA,pB,pC,pH,pK,pR,tseg,tt,ss,Eps,flg,
- nvec,tmp,tmp1,tmp2,tmp3,tmp4);
- if(islist(option),opstr=option_1,opstr=option);
- Eps=10^(-4);
- flg=0;
- if(!isstring(sgstr), // 15.05.29
- pP=sgstr_1;
- pQ=sgstr_2;
- ,
- tmp=indexof(sgstr,"-");
- if(tmp>0, // 15.05.28
- pP=parse(substring(sgstr,0,tmp-1)+"3d");
- pQ=parse(substring(sgstr,tmp,length(sgstr))+"3d");
- ,
- tmp1=parse(sgstr);
- pP=tmp1_1;
- pQ=tmp1_2;
- );
- );
- if(!isstring(pLstr), // 16.02.02
- pA=pLstr_1;
- pB=pLstr_2;
- pC=pLstr_3;
- ,
- tmp=indexof(pLstr,"-");
- pA=parse(substring(pLstr,0,tmp-1)+"3d");
- tmp1=substring(pLstr,tmp,length(pLstr));
- tmp=indexof(tmp1,"-");
- pB=parse(substring(tmp1,0,tmp-1)+"3d");
- pC=parse(substring(tmp1,tmp,length(tmp1))+"3d");
- );
- nvec=Crossprod(pB-pA,pC-pA);
- if(abs(Dotprod(nvec,pQ-pP))>Eps,
- pH=(Reflect3point(pP,[pA,pB,pC])+pP)/2;
- pK=(Reflect3point(pQ,[pA,pB,pC])+pQ)/2;
- tmp1=pP-pH;
- tmp2=tmp1+pK-pQ;
- tmp=select(tmp2,abs(#)==max(apply(tmp2,abs(#))));
- tmp=select(1..3,tmp2_#==tmp_1);
- tmp=tmp_1;
- tseg=tmp1_tmp/tmp2_tmp;
- pR=(1-tseg)*pH+tseg*pK;
- tmp=substring(opstr,0,1);
- if(Toupper(tmp)=="P",
- Putpoint3d([name,pR]);
- Fixpoint3d([name,pR]);
- );
- if(Toupper(tmp)=="D",
- Drawpoint3d(pR);
- );
- tmp=Dotprod(pB-pA,pC-pA);
- tmp1=Dotprod(pB-pA,pB-pA);
- tmp2=Dotprod(pC-pA,pC-pA);
- tmp3=Dotprod(pR-pA,pB-pA);
- tmp4=Dotprod(pR-pA,pC-pA);
- ss=-(tmp*tmp4-tmp3*tmp2)/(tmp1*tmp2-tmp^2);
- tt=(tmp1*tmp4-tmp*tmp3)/(tmp1*tmp2-tmp^2);
- out=[pR,tseg,ss,tt];
- ,
- if(Toupper(substring(opstr,0,1))!="N",
- println(" "+sgstr+","+pLstr+" are parallel");
- );
- out=[];
- );
- out;
-);
-
-Bezier3d(nm,ptctrlist):=Bezier3(nm,ptctrlist);
-Bezier3d(nm,Ag1,Ag2):=Bezier3(nm,Ag1,Ag2);
-Bezier3d(nm,ptlistorg,ctrlistorg,options):=
- Bezier3(nm,ptlistorg,ctrlistorg,options);
-//help:Bezier3d("1",["A","B","C"],["D","E","F","G"]);
-Bezier3(nm,ptctrlist):=Bezier3(nm,ptctrlist_1,ptctrlist_2,[]);
-Bezier3(nm,Ag1,Ag2):=(
- if(MeasureDepth(Ag1)==0,
- Bezier3(nm,Ag1,Ag2,[]);
- ,
- if(MeasureDepth(Ag1)>1,
- Bezier3(nm,Ag1_1,Ag1_2,Ag2);
- ,
- if(isstring(Ag_1_1),
- Bezier3(nm,Ag1,Ag2,[]);
- ,
- Bezier3(nm,Ag1_1,Ag1_2,Ag2);
- );
- );
- );
-);
-Bezier3(nm,ptlistorg,ctrlistorg,options):=(
- regional(name,name3,name2,tmp,tmp1,tmp2,
- Ltype,Noflg,opstr,eqL,ii,knt,ctr,out);
- name="bz"+nm;
- name3="bz3d"+nm;
- name2="bz2d"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opcindy=tmp_(length(tmp));
- tmp1=select(eqL,indexof(#,"Num")>0);
- if(length(tmp1)==0,eqL=append(eqL,"Num=20"));
- ptlist=ptlistorg;
- if(isstring(ptlistorg_1),ptlist=apply(ptlistorg,parse(#+"3d")));
- ctrlist=ctrlistorg;
- if(isstring(ctrlistorg_1),ctrlist=apply(ctrlistorg,parse(#+"3d")));
- out=[];
- forall(1..(length(ptlist)-1),ii,
- knt=[ptlist_ii,ptlist_(ii+1)];
- ctr=[ctrlist_(2*ii-1),ctrlist_(2*ii)];
- tmp="Bezierpt(T,ptlist,ctrlist)";//17.01.04
- tmp=Assign(tmp,"ptlist",knt);
- tmp=Assign(tmp,"ctrlist",ctr);
- Spacecurve(name+text(ii),tmp,"T=[0,1]",append(eqL,"nodisp"));//17.01.04
- out=append(out,name3+text(ii));
- );
- tmp1=[];
- forall(1..length(out),
- tmp=parse(out_#);
- if(#==1,tmp1=tmp,tmp1=concat(tmp1,tmp_(2..length(tmp))));
- );
- if(Noflg<3,
- println("generate Beziercurve "+name3);
- tmp2=Spaceline("",tmp1,["nodata"]);
- tmp=name3+"="+tmp2;
- parse(tmp);
- tmp1=Projpara(name3,["nodata"]);
- tmp=name2+"="+textformat(tmp1,5);
- parse(tmp);
- tmp1=text(out);
- tmp1=substring(tmp1,1,length(tmp1)-1);
- tmp=name3+"=Joincrvs("+tmp1+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1, // 15.02.11
- Subgraph(name3,opcindy);
- );
- );
- out;
-);
-
-Putbezier3data(name,pt3Lorg):=Putbezier3data(name,pt3Lorg,[]);
-Putbezier3data(name,pt3Lorg,options):=(
- regional(pt3L,psize,Deg,nn,numstr,
- tmp,tmp1,tmp2,tmp3,pts,ctrpts);
- tmp=Divoptions(options);
- Deg=3;
- tmp1=tmp_5;
- forall(tmp1,
- if(substring(#,0,1)=="D",
- tmp=indexof(#,"=");
- Deg=parse(substring(#,tmp,length(#)));
- );
- );
- pt3L=pt3Lorg;
- if(isstring(pt3L_1),pt3L=apply(pt3L,parse(#+"3d")));
- ctrpts=[];
- forall(2..length(pt3L),nn, // 16.08.19from
-// if(nn==2,numstr="",numstr=text(nn-2));
- numstr=text(nn-1); // 16.08.19
- if(Deg==3,
- tmp1=name+numstr+"p";
- tmp2=(2*pt3L_(nn-1)+pt3L_(nn))/3;
- VLIST=select(VLIST,#_1!=tmp1+"3d="); // 16.08.19from
-// if(length(tmp)==0,
- Putpoint3d([tmp1,tmp2]);
-// );// 16.08.19upto
- ctrpts=append(ctrpts,tmp1);
- tmp1=name+numstr+"q";
- tmp3=(pt3L_(nn-1)+2*pt3L_nn)/3;
- VLIST=select(VLIST,#_1!=tmp1+"3d=");
-// if(length(tmp)==0,
- Putpoint3d([tmp1,tmp3]);
-// );
- ctrpts=append(ctrpts,tmp1);
- ,
- tmp1=name+numstr+"p";
- tmp2=(pt3L_(nn-1)+pt3L_nn)/2;
- VLIST=select(VLIST,#_1!=tmp1+"3d="); // 16.08.19upto
-// if(length(tmp)==0,
- Putpoint3d([tmp1,tmp2]);
-// );
- ctrpts=append(ctrpts,tmp1);
- );
- );
- ctrpts;
-);
-
-Mkbezierptcrv3d(ptdata):=Mkbezierptcrv3(ptdata);
-Mkbezierptcrv3d(ptdata,options):=Mkbezierptcrv3(ptdata,options);
-//help:Mkbezierptcrv3d(["A","B","C","D"]);
-Mkbezierptcrv3(ptdata):=Mkbezierptcrv3(ptdata,[]);
-Mkbezierptcrv3(ptdata,options):=(
- regional(Eps,ptlist,nn,pt3L,name,bz,pt,p1,p2,p13d,p23d,pt3,
- Out,tt,pos,tmp,tmp1,tmp2);
- Eps=10^(-4);
- pos=[NE.x+1,NE.y];
- if(MeasureDepth(ptdata)==0,ptlist=[ptdata],ptlist=[ptdata]);
- Out=[];
- forall(1..length(ptlist),nn,
- nn=1;
- pt3L=ptlist_nn;
- tmp=floor((BezierNumber3-1)/26);// 15.02.23 from
- if(tmp==0,tmp="",tmp=text(tmp));
- tmp2=mod(BezierNumber3,26);
- if(tmp2==0,tmp2=26);
- name=unicode(text(96+tmp2),base->10)+tmp;
- tmp2=Putbezier3data(name,pt3L,options);
- Bezier3(name,pt3L,tmp2,options);
-// BZLIST3=append(BZLIST3,[name,pt3L]);
- Out=append(Out,tmp2);
- BezierNumber3=BezierNumber3+1;
- );
- Out;
-);
-
-
-///////////////////////////////////////////
-
-Readobj(filename):=Readobj(filename,[]);
-Readobj(filename,options):=(
-//help:Readobj("file.obj",["size=-3"]);
- regional(eqL,size,vL,fnL,tmp,tmp1,tmp2);
- size=1;
- tmp=Divoptions(options);
- eqL=tmp_5;
- forall(eqL,
- if(Toupper(substring(#,0,1))=="S",
- tmp=indexof(#,"=");
- size=parse(substring(#,tmp,length(#)));
- );
- );
- tmp=load(filename);
- tmp=tokenize(tmp,"v");
- tmp1=tmp_(2..(length(tmp)-1));
- tmp2=tmp_(length(tmp));
- tmp2=tokenize(tmp2,"f");
- tmp1=append(tmp1,tmp2_1);
- tmp1=apply(tmp1,Removespace(#));
- tmp1=apply(tmp1,replace(#," "," "));
- tmp1=apply(tmp1,"["+replace(#," ",",")+"]");
- vL=apply(tmp1,size*parse(#));
- tmp2=tmp2_(2..(length(tmp2)));
- tmp2=apply(tmp2,Removespace(#));
- tmp2=apply(tmp2,replace(#," "," "));
- tmp2=apply(tmp2,"["+replace(#," ",",")+"]");
- fnL=apply(tmp2,parse(#));
- [vL,fnL];
-);
-
-/////////////////////////////////////////
-
-Readobj(filename,options):=(
-//help:Readobj("file.obj",["size=-3"]);
- regional(eqL,size,vL,fnL,dtL,numer,flg,flg2,
- tmp,tmp1,tmp2,tmp3,tmp4,tmp5);
- size=1;
- tmp=Divoptions(options);
- eqL=tmp_5;
- forall(eqL,
- if(Toupper(substring(#,0,1))=="S",
- tmp=indexof(#,"=");
- size=parse(substring(#,tmp,length(#)));
- );
- );
- numer="-0123456789";
- tmp=load(filename);
- dtL=tokenize(tmp,"v ");
- vL=[];
- fnL=[];
- flg=0;
- flg2=0;
- forall(dtL,dt,
- tmp1=Removespace(dt);
- if(indexof(numer,substring(tmp1,0,1))>0,
- tmp2="";
- tmp=indexof(tmp1,"f");
- if(tmp>0,
- tmp2=substring(tmp1,tmp-1,length(tmp1));
- tmp1=substring(tmp1,0,tmp-1);
- if(substring(tmp1,length(tmp1)-1,length(tmp1))=="#",
- tmp2="#"+tmp2;
- tmp1=substring(tmp1,0,length(tmp1)-1);
- );
-// tmp=indexof(tmp2,"#");
-// if(tmp>0,
-// tmp2=substring(tmp2,0,tmp-1);
-// );
- );
- if(flg==1,
- tmp1="";
- flg=0;
- );
- if(length(tmp1)>0,
- tmp=indexof(tmp1,"#");
- if(tmp>0,
- tmp1=substring(tmp1,0,tmp-1);
- flg=1;
- );
- tmp=indexof(tmp1,"vt");
- if(tmp>0,
- tmp1=substring(tmp1,0,tmp-1);
- );
- tmp1=replace(tmp1," ",",");
- tmp1=replace(tmp1," ",",");
- tmp1="["+tmp1+"]";
- tmp1=size*parse(tmp1);
- vL=append(vL,tmp1);
- );
- if(length(tmp2)>0,
- tmp2=tokenize(tmp2,"f");
- if(length(tmp2_1)==0,
- tmp2=tmp2_(2..length(tmp2));
- // ,
- // if(tmp2_1=="#",
-// tmp2=tmp2_(2..length(tmp2));
-// tmp2_1="#"+tmp2_1;
-// );
- );
- forall(1..length(tmp2),tmp3,
- tmp=tmp2_tmp3;
- if(substring(tmp,length(tmp)-1,length(tmp))=="#",
- tmp2_(tmp3+1)="#"+Removespace(tmp2_(tmp3+1));
- tmp2_tmp3=substring(tmp,0,length(tmp)-1);
- );
- tmp5="";
- if(length(tmp2_tmp3)>0,
- tmp4=tokenize(tmp2_tmp3," ");
- forall(tmp4,
- if(length(text(#))>0,
- if(indexof(text(#),"/")==0,
- tmp=text(#);
- ,
- tmp=tokenize(text(#),"/");
- tmp=tmp_1;
- );
- if(length(tmp)>0,
- tmp5=tmp5+tmp+",";
- );
- );
- );
- tmp5=substring(tmp5,0,length(tmp5)-1);
- if(length(tmp5)>0,
- if(substring(tmp5,0,1)!="#",
- tmp5="["+tmp5+"]";
- fnL=append(fnL,parse(tmp5));
- );
- );
- );
- );
- );
- );
- );
- [vL,fnL];
-);
-
-Concatobj(objL):=Concatobj(objL,[]);
-Concatobj(objL,options):=(
-//help:Concatobj([polyhed,triangle]);
-//help:Concatobj([polyhed,triangle],["Rmf=no"]);
-//help:Concatobj([[A,B,C],[A,C,D]]);
- regional(obj,vL,fL,vadd,vtx,faces,fnew,face,jj,kk,vctr,eps,
- tmp,tmp1,tmp2,tmp3,eqL,rmf);
- tmp=divoptions(options);
- eqL=tmp_5;
- rmf="y"; // 16.08.19
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="R",
- if(tmp2=="Y",rmf="y"); // 16.08.14
- );
- );
- eps=10^(-4);
- vL=[];
- fL=[];
- vctr=0;
- forall(objL,obj,
- if(isstring(obj),
- tmp1=parse(obj);
- ,
- tmp1=obj;
- );
- if(length(tmp1)>2, // 16.02.28
- tmp=1..length(tmp1);
- tmp1=[tmp1,[tmp]];
- );
- vtx=tmp1_1; // 16.02.11 from
- faces=tmp1_2;
- fnew=faces;
- vctr=0;
- vadd=[];
- forall(1..length(vtx),jj,
- tmp1=vtx_jj;
- tmp=select(1..length(vL),dist3d(vL_#,tmp1)<eps);
- if(length(tmp)==0,
- vadd=append(vadd,tmp1);
- vctr=vctr+1;
- tmp2=length(vL)+vctr;
- ,
- tmp2=tmp_1;
- );
- forall(1..length(faces),kk,
- face=faces_kk;
- tmp=select(1..length(face),face_#==jj);
- if(length(tmp)>0,
- tmp1=tmp_1;
- fnew_kk_tmp1=tmp2;
- );
- );
- );
- vL=concat(vL,vadd);
- fL=concat(fL,fnew); // 16.02.11 upto
- );
- tmp2=apply(1..length(fL),1);
- if(rmf=="y",
- forall(1..length(fL),jj,
- tmp=fL_jj;
- tmp1=select((jj+1)..length(fL),fL_#==tmp);
- forall(tmp1,tmp2_#=0);
- );
- tmp=select(1..length(tmp2),tmp2_#==1);
- fL=fL_tmp;
- );
- [vL,fL];
-);
-
-if(1==0,
-
-Mkobjfile(fname,objL):=Mkobjfile(Dirwork,fname,objL);
-Mkobjfile(path,fnameorg,objL):=(
-//help:Mkobj(filename,objlist);
- regional(fname,obj,vtx,face,tmp,tmp1,tmp2);
- fname=fnameorg;
- if(indexof(fname,".")==0,fname=fname+".obj");
- vtx=objL_1;
- face=objL_2;
- setdirectory(path);
- SCEOUTPUT = openfile(fname);
- forall(vtx,tmp1,
- tmp2=tmp1;
- if(ispoint(tmp1),
- tmp2=parse(text(tmp1)+"3d");
- );
- tmp="v "+format(tmp2_1,5)+" "+format(tmp2_2,5)+" "+format(tmp2_3,5);
- println(SCEOUTPUT,tmp);
- );
- forall(face,tmp1,
- tmp="f";
- forall(tmp1,
- tmp=tmp+" "+text(#);
- );
- println(SCEOUTPUT,tmp);
- );
- closefile(SCEOUTPUT);
- setdirectory(Dirwork);
-);
-
-);
-
-VertexandEdge(nm,vfnL):=VertexEdgeFace(nm,vfnL,[]);
-VertexandEdge(nm,vfnL,options):=VertexEdgeFace(nm,vfnL,options);
-VertexEdgeFace(nm,vfnL):=VertexEdgeFace(nm,vfnL,[]); // 16.02.10
-//help:VertexEdgeFace("1",[vL,fnL]);
-//help:VertexEdgeFace("1",["A","B","C"]);
-//help:VertexEdgeFace(options=["Pt=fix","Edg=geo"]);
-VertexEdgeFace(nm,vfnLorg,optionorg):=(
- regional(name3,namev,namee,namef,vfnL,options,Noflg,eqL,strL,
- vL,eL,enL,face,edge,vtx,vname,fixflg,edgflg,tmp,tmp1,tmp2);
- name3="phvef"+nm;
- namev="phv3d"+nm;
- namee="phe3d"+nm;
- namef="phf3d"+nm;
- options=optionorg;
- vfnL=vfnLorg; // 16.06.19from
- if(length(vfnL)>2,
- vfnL=[vfnL,[1..length(vfnL)]];
- );
- if(length(vfnL)==1,
- vfnL=[vfnL_1,[1..length(vfnL_1)]];
- ); // 16.06.19upto
- tmp=Divoptions(options);
- Noflg=tmp_2;
- eqL=tmp_5;
- strL=tmp_7;
- fixflg=1;
- edgflg=1;
- forall(eqL,
- tmp1=Toupper(substring(#,0,1));
- tmp=indexof(#,"=");
- tmp2=Toupper(substring(#,tmp,length(#)));
- if(tmp1=="P",
- if(tmp2=="FREE", fixflg=0);
- options=remove(options,[#]);
- );
- if(tmp1=="E",
- if(substring(tmp2,0,1)=="N", edgflg=0);
- options=remove(options,[#]);
- );
- );
- forall(strL,
- if(Toupper(#)=="FREE",
- fixflg=0;
- options=remove(options,[#]);
- );
- );
- vL=[];
- forall(1..length(vfnL_1),
- vtx=vfnL_1_#; // 16.02.10 from
- if(isstring(vtx),vtx=parse(vtx)); // 16.06.19
- if(ispoint(vtx),
- tmp=parse(text(vtx)+"3d");
- vname=text(vtx);
-// tmp=parse(text(vtx)+"3d");
-// tmp="v"+text(#)+"3d="+textformat(tmp,5);
-// parse(tmp);
- ,
- vname="v"+text(#);
- if(fixflg==1,
- Putpoint3d(["v"+text(#),vtx],"fix");
- );
- );
- vL=append(vL,vname); // 16.02.10 upto
- );
- eL=[];
- forall(vfnL_2,face,
- forall(1..length(face),
- tmp1=face_#;
- if(#<length(face),
- tmp2=face_(#+1);
- ,
- tmp2=face_1;
- );
- if(tmp2<tmp1,
- tmp=tmp2; tmp2=tmp1; tmp1=tmp;
- );
-// tmp1="v"+text(tmp1)+"3d";
-// tmp2="v"+text(tmp2)+"3d";
- tmp1=vL_tmp1+"3d";
- tmp2=vL_tmp2+"3d";
- tmp=select(eL,#==[tmp1,tmp2] % #==[tmp2,tmp1]);
- if(length(tmp)==0,
- eL=append(eL,[tmp1,tmp2]);
- );
- );
- );
- if(Noflg<3,
- enL=[];
- forall(eL,edge,
- if(edgflg==0,
- if(Noflg<2,
- tmp1=edge_1;//parse(edge_1);
- tmp2=edge_2;//parse(edge_2);
- tmp="sl3d"+edge_1+edge_2;
- if(islist(parse(tmp)),
- Changestyle3d([tmp],["nodisp"]);
- );
- tmp="sl3d"+edge_2+edge_1;
- if(islist(parse(tmp)),
- Changestyle3d([tmp],["nodisp"]);
- );
- tmp=replace(edge_1+edge_2,"3d","");
- options=append(options,"Msg=no");
- Spaceline("-"+tmp,[tmp1,tmp2],options); //16.02.28
- );
- enL=append(enL,tmp+"3d"); //16.02.29
- ,
- tmp1=replace(edge_1,"3d","");
- tmp2=replace(edge_2,"3d","");
- tmp=tmp1+tmp2;
- create([tmp],"Segment",[parse(tmp1),parse(tmp2)]);
- enL=append(enL,tmp+"3d");//16.02.29
- );
- );
- if(Noflg<2,
- println("generate "+name3);
- println(" generate totally "+namee);
- println(" generate vertexes "+namev);
- println(" generate faces "+namef);
- );
- tmp1="";
- forall(enL,
- tmp1=tmp1+Dq+#+Dq+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1);
- tmp=namee+"=["+tmp1+"]";
- parse(tmp);
- tmp=namee+"=list("+tmp1+")";
- tmp=replace(tmp,Dq,"");
- GLIST=append(GLIST,tmp);
- tmp1=apply(vL,Dq+#+"3d"+Dq);
- tmp1=text(tmp1);
- tmp1=substring(tmp1,1,length(tmp1)-1);
- tmp=namev+"=["+tmp1+"]";
- parse(tmp);
- tmp1=replace(tmp1,Dq,"");
- tmp=namev+"=list("+tmp1+")";
- GLIST=append(GLIST,tmp);
- tmp1=text(vfnL_2);
- tmp1=substring(tmp1,1,length(tmp1)-1);
- tmp=namef+"=["+tmp1+"]";
- parse(tmp);
- tmp=namef+"=list("+tmp1+")";
- GLIST=append(GLIST,tmp);
- );
- [namev,namee,namef];
-);
-
-Phparadata(nm,nmvf):=(
- regional(tmp1,tmp2);
- tmp1=parse("phv3d"+nmvf);
- tmp2=parse("phf3d"+nmvf);
- Phparadata(nm,nmvf,[tmp1,tmp2]);
-);
-Phparadata(nm,nmvf,Arg1):=(
- regional(vfL,options,tmp1,tmp2);
- if(islist(Arg1) & !islist(Arg1_1),
- tmp1=parse("phv3d"+nmvf);
- tmp2=parse("phf3d"+nmvf);
- vfL=[tmp1,tmp2];
- options=Arg1;
- ,
- vfL=Arg1;
- options=[];
- );
- Phparadata(nm,nmvf,vfL,options);
-);
-Phparadata(nm,nmvf,vfL,options):=(
-//help:Phparadata("1","1",["do"]);
- regional(name2,name3,nameh2,nameh3,Ltype,Noflg,eqL,Hidden,
- opstr,opcindy,Outflg,Inflg,pdata1,tmp,tmp1,tmp2);
- name2="php2d"+nm;
- name3="php3d"+nm;
- nameh2="phh2d"+nm;
- nameh3="phh3d"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15
- eqL=tmp_5;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Hidden="";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="H",
- Hidden=tmp2;
- );
- );
- if(Noflg<3,
- if(Outflg>=1,
- println("Output Phparadata "+name3);
- if(isstring(vfL_1), // 2015.05.27 from
- tmp1=vfL_1;
- ,
- tmp1="list(";
- forall(vfL_1,
- tmp1=tmp1+#+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1)+")";
- );
- if(isstring(vfL_2),
- tmp2=vfL_2;
- ,
- tmp2="list(";
- forall(vfL_2,
- tmp2=tmp2+text(#)+",";
- );
- tmp2=substring(tmp2,0,length(tmp2)-1)+")";
- ); // 2015.05.27 upto
- tmp=name3+"=Phparadata("+tmp1+","+tmp2+opstr+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- tmp=nameh3+"=PhHiddenData()";
- GLIST=append(GLIST,tmp);
- tmp=nameh2+"=Projpara("+nameh3+")";
- GLIST=append(GLIST,tmp);
- if(Outflg==1,
- SCIWRLIST=append(SCIWRLIST,name3);
- SCIWRLIST=append(SCIWRLIST,name2);
- SCIWRLIST=append(SCIWRLIST,nameh3);
- SCIWRLIST=append(SCIWRLIST,nameh2);
- );
- );
- if(Inflg==1,
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name2);
- if(islist(tmp),
- Extractdata(name2,["nodisp"]); // 12.19
- );
- SCIRELIST=append(SCIRELIST,name3);
- SCIRELIST=append(SCIRELIST,name2);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
-// tmp=apply(pltdata1,replace(#,"3d","2d")); // 15.05.18 from
- Changestyle3d("phe3d"+nmvf,["nodisp"]);
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- );
- );
- if(Hidden!="",
- Drawlinetype(nameh2,Hidden);
- if(Inflg==1,
- tmp1=Toupper(substring(Hidden,0,2));
- if(tmp1=="DR",Ltype=0);
- if(tmp1=="DA",Ltype=1);
- if(tmp1=="DO",Ltype=3);
- if(tmp1=="ID",Ltype=1);
- GCLIST=append(GCLIST,[nameh2,Ltype,opcindy]);
- );
- );
-);
-
-Nohiddenseg(seg,rng,triang):=(
-// help:Nohiddenseg("1",seg1,[0,1],["v1","v2","v3"]);
- regional(Eps,pA3,pB3,pC3,pA,pB,pC,sg1,sg2,ss1,ss2,parL,flgL,flg1,flg2,
- veB,veC,sgnoh,sghid,added,tristr,tmp,tmp1,tmp2,tmp3,tmp4,tmp5);
- Eps=10^(-4);
- sgnoh=[0,1];
- pA3=if(isstring(triang_1),parse(triang_1+"3d"),triang_1); //16.06.19
- pA=Parapt(pA3);
- pB3=if(isstring(triang_2),parse(triang_2+"3d"),triang_2); //16.06.19
- pB=Parapt(pB3);
- pC3=if(isstring(triang_3),parse(triang_3+"3d"),triang_3); //16.06.19
- pC=Parapt(pC3);
- sg1=seg_1+rng_1*(seg_2-seg_1);
- sg2=seg_1+rng_2*(seg_2-seg_1);
- ss1=Parapt(sg1);
- ss2=Parapt(sg2);
- tristr=replace(text(triang),",","-");
- tristr=substring(tristr,1,length(tristr)-1);
- if(|ss2-ss1|>Eps & abs(Crossprod(pB-pA,pC-pA))>Eps,
- tmp=IntersectcrvsPp([ss1,ss2],[pA,pB,pC,pA]);
- parL=apply(tmp,#_2-1);
- parL=sort(parL);
- if(length(parL)==0,
- parL=[0,1];
- ,
- if(parL_1>Eps,parL=prepend(0,parL));
- if(parL_(length(parL))<1-Eps,parL=append(parL,1));
- );
- tmp1=Crossprod(pB3-pA3,pC3-pA3);
- if(abs(Dotprod(tmp1,sg2-sg1))>Eps,
- tmp=IntersectsgpL("",[sg1,sg2],tristr,["nodisp"]);
- if(tmp_2>-Eps & tmp_2<1+Eps,
- if(tmp_3>-Eps & tmp_4>-Eps & tmp_3+tmp_4<1+Eps,
- tmp1=select(parL,abs(tmp_2-#)<Eps);
- if(length(tmp1)==0,
- parL=sort(append(parL,tmp_2));
- );
- );
- );
- );
- flgL=[];
- forall(parL,
- tmp1=sg1+#*(sg2-sg1);
- tmp=Projcoordpara(tmp1);
- tmp_3=tmp_3+1;
- tmp2=Cancoordpara(tmp);
- tmp=IntersectsgpL("",[tmp1,tmp2],tristr,["nodisp"]);
- tmp1=Projcoordpara(tmp1);
- tmp2=Projcoordpara(tmp_1);
- flg1=0;
- if(tmp1_3<tmp2_3-Eps,flg1=-1);
- if(tmp1_3>tmp2_3+Eps,flg1=1);
- flgL=append(flgL,flg1);
- );
- sgnoh=[];
- forall(2..length(flgL),
- added=[];
- flg1=flgL_(#-1);
- flg2=flgL_#;
- if(max([flg1,flg2])==1 % flg1+flg2==0,
- added=[parL_(#-1),parL_#];
- ,
- sghid=[parL_(#-1),parL_#];
- tmp1=ss1+sghid_1*(ss2-ss1);
- tmp2=ss1+sghid_2*(ss2-ss1);
- tmp=IntersectcrvsPp([tmp1,tmp2],[pA,pB,pC,pA]);
- if(length(tmp)<2,
- veB=pB-pA;
- veC=pC-pA;
- tmp3=tmp1-pA;
- tmp4=tmp2-pA;
- tmp5=Crossprod(veB,veC);
- tmp1=(tmp3_1*veC_2-tmp3_2*veC_1)/tmp5;
- tmp2=(-tmp3_1*veB_2+tmp3_2*veB_1)/tmp5;
- if(tmp1>-Eps & tmp2>-Eps & tmp1+tmp2<1+Eps,flg1=1,flg1=0);
- tmp1=(tmp4_1*veC_2-tmp4_2*veC_1)/tmp5;
- tmp2=(-tmp4_1*veB_2+tmp4_2*veB_1)/tmp5;
- if(tmp1>-Eps & tmp2>-Eps & tmp1+tmp2<1+Eps,flg2=1,flg2=0);
- if(flg1==1 & flg2==0,
- if(length(tmp)>0,
- tmp1=tmp_1_2-1;
- tmp1=sghid_1+(sghid_2-sghid_1)*tmp1;
- ,
- tmp1=sghid_1;
- );
- added=[tmp1,sghid_2];
-// added=[tmp1+Eps,sghid_2]; // <--- USUI 2016.02.27
- );
- if(flg1==0 & flg2==1,
- if(length(tmp)>0,
- tmp1=tmp_1_2-1;
- tmp1=sghid_1+(sghid_2-sghid_1)*tmp1;
- ,
- tmp1=sghid_2;
- );
- added=[sghid_1,tmp1];
- );
- if(flg1+flg2==0,
- added=sghid;
- );
- );
- if(length(tmp)==2,
- if(min([flg1,flg2])>=0,added=sghid,added=[]);
- );
- );
- if(length(added)>0,
- if(length(sgnoh)==0,
- sgnoh=added;
- ,
- if(sgnoh_(length(sgnoh))<added_1-Eps,
- sgnoh=concat(sgnoh,added);
- ,
- sgnoh=sgnoh_(1..(length(sgnoh)-1));
- sgnoh=concat(sgnoh,added_(2..length(added)));
- );
- );
- );
- );
- );
- sgnoh=apply(sgnoh,rng_1+#*(rng_2-rng_1));
- sgnoh;
-);
-
-Nohiddensegs(seg,range,faceno,vtxL):=(
- regional(Eps,rng,face,vtx,out,ra,rb,tmp,tmp1,tmp2);
- Eps=10^(-4);
- face=apply(faceno,vtxL_#); // 16.02.10
- rng=range;
- out=rng;
- forall(2..(length(face)-1),vtx,
- tmp1=[face_1,face_vtx,face_(vtx+1)];
- forall(1..(length(rng)/2),
- tmp=[rng_(2*#-1),rng_(2*#)];
- out=remove(out,tmp);
- tmp2=Nohiddenseg(seg,tmp,tmp1);
- if(length(tmp2)>0,
- out=remove(out,tmp);
- out=concat(out,tmp2);
- );
- );
- tmp=sort(out);
- out=[];
- forall(1..(length(tmp)/2),
- ra=tmp_(2*#-1);
- rb=tmp_(2*#);
- if(ra<rb-Eps,
- if(length(out)==0,
- out=[ra,rb];
- ,
- if(out_(length(out))<ra-Eps,
- out=concat(out,[ra,rb]);
- ,
- out_(length(out))=rb;
- );
- );
- );
- );
- rng=out;
- );
- rng;
-);
-
-Nohiddenbyfaces(nm,facestr):=
- Nohiddenbyfaces(nm,Datalist3d(),facestr,[],["do"]);
-Nohiddenbyfaces(nm,Arg1,Arg2):=(
- regional(segstr,facestr,options);
- if(islist(Arg2),
- segstr=Datalist3d();
- facestr=Arg1;
- options=Arg2;
- ,
- segstr=Arg1;
- facestr=Arg2;
- options=[];
- );
- Nohiddenbyfaces(nm,segstr,facestr,options,["do"]);
-);
-Nohiddenbyfaces(nm,Arg1,Arg2,Arg3):=(
- regional(segstr,facestr,options,optionsh);
- if(islist(Arg2),
- segstr=Datalist3d();
- facestr=Arg1;
- options=Arg2;
- optionsh=Arg3;
- ,
- segstr=Arg1;
- facestr=Arg2;
- options=Arg3;
- optionsh=["do"];
- );
- Nohiddenbyfaces(nm,segstr,facestr,options,optionsh); // 16.02.21
-);
-Nohiddenbyfaces(nm,segstr,facestr,optionorg,optionsh):=(
-//help:Nohiddenbyfaces("1","phf3d1");
-//help:Nohiddenbyfaces("1","ax3d","phf3d1");
-//help:Nohiddenbyfaces(options1=["dr"]);
-//help:Nohiddenbyfaces(options2=["do"]);
- regional(Eps,namen,nameh,options,segL,faceL,vtxL,rng,seg,face,
- flg,ctr,tmp,tmp1,tmp2,Ltype,Noflg,eqL,opstr,opcindy,frnL,frhL);
- Eps=10^(-4);
- namen="frn"+nm;
- nameh="frh"+nm;
- if(isstring(segstr),
-// segL=parse(segstr);
- segL=[segstr]; // 16.08.19
- ,
- segL=segstr;
- );
- tmp2=[]; // 16.02.29 from
- forall(segL,seg,
- tmp=replace(seg,"3d","2d");
- tmp1=select(GCLIST,#_1==tmp);
- tmp1=tmp1_1;
- if(tmp1_2==0,
- tmp2=append(tmp2,seg);
- );
- );
- segL=tmp2;
- Changestyle3d(segL,["nodisp"]); // 16.02.29 upto
- if(islist(segL),
- if(isstring(segL_1),
- segL=apply(segL,parse(#));
- );
- );
- segL=Flattenlist(segL);
- flg=0;
- if(isstring(facestr),
- if(substring(facestr,0,3)=="phf", // 16.08.19from
- faceL=parse(facestr);
- tmp=replace(facestr,"phf","phv"); // 16.02.10 from
- tmp=parse(tmp);
- vtxL=apply(tmp,replace(#,"3d","")); // 16.02.10 upto
- flg=1;
- ,
- faceL=parse(facestr);
- );
- );
- if(flg==0,
- if(length(faceL)==2, // 16.08.19upto
- vtxL=facestr_1;
- faceL=facestr_2;
- ,
- vtxL=facestr;
- faceL=[1..length(vtxL)];
- );
- );
-// Hidden="";
- options=optionorg;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
-// forall(eqL,
-// tmp=indexof(#,"=");
-// tmp1=Toupper(substring(#,0,1));
-// tmp2=substring(#,tmp,length(#));
-// if(tmp1=="H",
-// Hidden=tmp2;
-// );
-// );
-
- ctr=1;
- frnL=[];
- frhL=[];
- forall(segL,seg,
- rng=[0,1];
- forall(faceL,face,
- rng=Nohiddensegs(seg,rng,face,vtxL);
- );
- forall(1..length(rng)/2,
- tmp=rng_(2*#-1);
- tmp1=seg_1+tmp*(seg_2-seg_1);
- tmp=rng_(2*#);
- tmp2=seg_1+tmp*(seg_2-seg_1);
-// tmp=remove(options,eqL);
- tmp=append(options,"Msg=nodisp"); // 15.06.22
- Spaceline("-"+namen+"n"+text(ctr),[tmp1,tmp2],tmp);
- frnL=append(frnL,namen+"n"+text(ctr)+"3d");
- ctr=ctr+1;
- );
- if(length(rng)==0,
- rng=[0,1];
- ,
- if(rng_1>0+Eps,
- rng=prepend(0,rng);
- ,
- rng=rng_(2..length(rng));
- );
- if(rng_(length(rng))<1-Eps,
- rng=append(rng,1);
- ,
- rng=rng_(1..(length(rng)-1));
- );
- );
- forall(1..length(rng)/2,
- tmp=rng_(2*#-1);
- tmp1=seg_1+tmp*(seg_2-seg_1);
- tmp=rng_(2*#);
- tmp2=seg_1+tmp*(seg_2-seg_1);
- if(length(optionsh)>0,tmp=optionsh,tmp=["do"]);
- tmp=append(tmp,"Msg=nodisp"); // 15.06.22
- Spaceline("-"+nameh+"n"+text(ctr),[tmp1,tmp2],tmp);
- frhL=append(frhL,nameh+"n"+text(ctr)+"3d");
- ctr=ctr+1;
- );
- );
- tmp1=apply(frnL,Dq+#+Dq);
- tmp="frn3d"+nm+"="+text(tmp1);
- parse(tmp);
- println(" generate totally "+"frn3d"+nm);
- tmp1=apply(frhL,Dq+#+Dq);
- tmp="frh3d"+nm+"="+text(tmp1);
- parse(tmp);
- println(" generate totally "+"frh3d"+nm);
-);
-
-Faceremovaldata(nm,vfdata,crvdata):=Faceremovaldata(nm,vfdata,crvdata,[]);
-Faceremovaldata(nm,vfdata,crvdata,options):=(
- regional(name2,name3,nameh2,nameh3,Ltype,Noflg,eqL,Hidden,
- opstr,opcindy,Outflg,Inflg,tmp,tmp1,tmp2);
- name2="frc2d"+nm;
- name3="frc3d"+nm;
- nameh2="frch2d"+nm;
- nameh3="frch3d"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15
- eqL=tmp_5;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Hidden="";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="H",
- Hidden=tmp2;
- );
- );
- if(Noflg<3,
- if(Outflg>=1,
- println("Output Faceremovaldata "+name3);
- if(MeasureDepth(vfdata)==1,
- tmp1=text(apply(vfdata,#_[1,3]));
- ,
- tmp1=text([vfdata_[1,3]]);
- );
- tmp1=replace(tmp1,"[","list(");
- tmp1=replace(tmp1,"]",")");
- tmp2=text(crvdata);
- tmp2=replace(tmp2,"[","list(");
- tmp2=replace(tmp2,"]",")");
-// tmp2="Flattenlist("+tmp2+")";
- tmp=name3+"=Faceremovaldata("+tmp1+","+tmp2+opstr+","+Dq+"para"+Dq+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- tmp=nameh3+"=PhHiddenData()";
- GLIST=append(GLIST,tmp);
- tmp=nameh2+"=Projpara("+nameh3+")";
- GLIST=append(GLIST,tmp);
- if(Outflg==1,
- SCIWRLIST=append(SCIWRLIST,name3);
- SCIWRLIST=append(SCIWRLIST,name2);
- SCIWRLIST=append(SCIWRLIST,nameh3);
- SCIWRLIST=append(SCIWRLIST,nameh2);
- );
- );
- if(Inflg==1,
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name2);
- if(islist(tmp),
- Extractdata(name2,["nodisp"]); // 12.19
- );
- SCIRELIST=append(SCIRELIST,name3);
- SCIRELIST=append(SCIRELIST,name2);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
- if(MeasureDepth(vfdata)==1,
- tmp1=apply(vfdata,parse(#_2));
- ,
- tmp1=[parse(vfdata_2)];
- );
- forall(tmp1,
- Changestyle3d(#,["nodisp"]);
- );
- Changestyle3d(crvdata,["nodisp"]);
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- );
- );
- if(Hidden!="",
- Drawlinetype(nameh2,Hidden);
- if(Inflg==1,
- tmp1=Toupper(substring(Hidden,0,2));
- if(tmp1=="DR",Ltype=0);
- if(tmp1=="DA",Ltype=1);
- if(tmp1=="DO",Ltype=3);
- if(tmp1=="ID",Ltype=1);
- GCLIST=append(GCLIST,[nameh2,Ltype,opcindy]);
- );
- );
-);
-
-Fullformfunc(FdL):=(
- regional(Out,nn,ii,Jrg,flg,Urg,Vrg,kk,Uname,
- Zf,Xname,Xf,Yname,Yf,tmp,tmp1,tmp2);
- Out=[FdL_1];
- nn=length(FdL);
- flg=0;
- forall(1..nn,
- if(flg==0,
- tmp=FdL_#;
- if(substring(tmp,length(tmp)-1,length(tmp))=="]",
- Jrg=#;
- Urg=FdL_Jrg;
- flg=1;
- );
- );
- );
- kk=indexof(Urg,"=");
- Uname=Removespace(substring(Urg,0,kk-1));
- tmp=substring(Urg,kk,length(Urg));
- Urg=Uname+"="+tmp;
-// tmp1=parse(tmp);
-// Urg=Uname+"="+textformat(tmp1,5);
- Vrg=FdL_(Jrg+1);
- kk=indexof(Vrg,"=");
- Vname=Removespace(substring(Vrg,0,kk-1));
- tmp=substring(Vrg,kk,length(Vrg));
- Vrg=Vname+"="+tmp;
-// tmp1=parse(tmp);
-// Vrg=Vname+"="+textformat(tmp1,5);
- if(Jrg==2,
- tmp=FdL_1;
- kk=indexof(tmp,"=");
- Zf=substring(tmp,kk,length(tmp));
- tmp=[Uname,Vname,Zf,Urg,Vrg];
- Out=concat(Out,tmp);
- ,
- if(Jrg==4,
- tmp=FdL_1;
- kk=indexof(tmp,"=");
- Zf=substring(tmp,kk,length(tmp));
- tmp=FdL_2;
- kk=indexof(tmp,"=");
- Xname=Removespace(substring(tmp,0,kk-1));
- Xf=substring(tmp,kk,length(tmp));
- tmp=FdL_3;
- kk=indexof(tmp,"=");
- Yname=Removespace(substring(tmp,0,kk-1));
- Yf=substring(tmp,kk,length(tmp));
- tmp=replace(Zf,Xname,"("+Xf+")");
- Zf=replace(tmp,Yname,"("+Yf+")");
- Tmp=[Xf,Yf,Zf,Urg,Vrg];
- Out=concat(Out,Tmp);
- ,
- tmp=FdL_2;
- kk=indexof(tmp,"=");
- Xf=substring(tmp,kk,length(tmp));
- tmp=FdL_3;
- kk=indexof(tmp,"=");
- Yf=substring(tmp,kk,length(tmp));
- tmp=FdL_4;
- kk=indexof(tmp,"=");
- Zf=substring(tmp,kk,length(tmp));
- tmp=[Xf,Yf,Zf,Urg,Vrg];
- Out=concat(Out,tmp);
- );
- );
- DrwS="enws";
- BdyL=[];
- forall((Jrg+2)..length(FdL),ii,
- tmp=FdL_ii;
- if(isstring(tmp),
- if(length(tmp)==0,
- tmp=" ";
- );
- DrwS=tmp;
- );
- if(islist(tmp) & length(tmp_1)>1,
- BdyL=tmp;
- );
- );
- tmp=[DrwS,BdyL];
- Out=concat(Out,tmp);
-);
-
-Surffun(nm,Fd):=(
- regional(name,coord,var1,var2,rng1,rng2,bdy,tmp,tmp1,tmp2);
- tmp=Fullformfunc(Fd);
- rng1=tmp_5;
- rng2=tmp_6;
- bdy=tmp_7;
- coord="["+tmp_2+","+tmp_3+","+tmp_4+"]";
- tmp=indexof(rng1,"=");
- var1=substring(rng1,0,tmp-1);
- rng1=substring(rng1,tmp,length(rng1));
- tmp=indexof(rng2,"=");
- var2=substring(rng2,0,tmp-1);
- rng2=substring(rng2,tmp,length(rng2));
- name="Sfn"+nm+"("+var1+","+var2+")";
- Deffun(name,["regional(tmp)","tmp="+coord,"tmp"]);
- [name,var1,rng1,var2,rng2,bdy];
-);
-
-Sf3data(nm,fdata):=Sf3data(nm,fdata,[]);
-Sf3data(nm,fdata,optionorg):=(
- regional(tmp,tmp1,tmp2);
- tmp=Surffun(nm,fdata);
- tmp1=tmp_2+"="+tmp_3;
- tmp2=tmp_4+"="+tmp_5;
- Sf3data(nm,tmp_1,tmp1,tmp2,optionorg);
-);
-Sf3data(nm,funstr,var1,var2):=Sf3data(nm,funstr,var1,var2,[]);
-Sf3data(nm,funstr,var1org,var2org,optionorg):=(
-//help:Sf3data("1",Fd);
-//help:Sf3data(options=["Num=[25,25]","Wire=[20,20]"]);
- regional(name2,name3,var1,var2,Ltype,Noflg,opstr,opcindy,eqL,Num,
- Wire,varu,varv,rngu,rngv,sfdtuL,sfdtvL,options,
- tmp,tmp1,tmp2,tmp3);
- var1=replace(var1org,"%pi","pi");
- var2=replace(var2org,"%pi","pi");
- tmp=Divoptions(optionorg);
- Ltype=tmp_1;
- Noflg=tmp_2;
- eqL=tmp_5;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- options=optionorg;
- Num=[25,25];
- Wire=[20,20];
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#)); // 16.05.25
- tmp=Toupper(substring(tmp1,0,1));
- if(tmp=="N",
- tmp2=parse(tmp2);
- if(!islist(tmp2),tmp2=[tmp2,tmp2]);
- Num=tmp2;
- options=remove(options,[#]);
- );
- if(tmp=="W",
- tmp2=parse(tmp2);
- if(!islist(tmp2),tmp2=[tmp2,tmp2]);
- Wire=tmp2;
- options=remove(options,[#]);
- );
- );
- tmp=indexof(var1,"=");
- varu=substring(var1,0,tmp-1);
- rngu=parse(substring(var1,tmp,length(var1)));
- tmp=indexof(var2,"=");
- varv=substring(var2,0,tmp-1);
- rngv=parse(substring(var2,tmp,length(var2)));
- sfdtuL=[];
- forall(0..Wire_2,
- tmp=rngv_1+#/Wire_2*(rngv_2-rngv_1);
- tmp1=replace(funstr,varv,textformat(tmp,5));
- tmp="Num="+text(Num_2);
- tmp2=concat(options,["Msg=no",tmp]);
- Spacecurve(nm+"u"+#,tmp1,var1,tmp2);
- sfdtuL=append(sfdtuL,"sc3d"+nm+"u"+#);
- );
- sfdtvL=[];
- forall(0..Wire_1,
- tmp=rngu_1+#/Wire_1*(rngu_2-rngu_1);
- tmp1=replace(funstr,varu,textformat(tmp,5));
- tmp="Num="+text(Num_1);
- tmp2=concat(options,["Msg=no",tmp]);
- Spacecurve(nm+"v"+#,tmp1,var2,tmp2);
- sfdtvL=append(sfdtvL,"sc3d"+nm+"v"+#);
- );
- if(Noflg<3,
- println(" generate totally "+"sf3d"+nm);
- tmp1="";
- forall(sfdtuL,
- tmp1=tmp1+Dq+#+Dq+",";
- );
- tmp1=substring(tmp1,0,length(tmp1)-1);
- tmp2="";
- forall(sfdtvL,
- tmp2=tmp2+Dq+#+Dq+",";
- );
- tmp2=substring(tmp2,0,length(tmp2)-1);
- tmp="sf3d"+nm+"=[["+tmp1+"],["+tmp2+"]]";
- parse(tmp);
- );
- [sfdtuL,sfdtvL];
-);
-
-Sfbdparadata(nm,fd):=
- Sfbdparadata(nm,fd,[],["nodisp"]);
-Sfbdparadata(nm,fd,options):=
- Sfbdparadata(nm,fd,options,["nodisp"]);
-Sfbdparadata(nm,fdorg,optionorg,optionsh):=(
-//help:Sfbdparadata("1",Fd);
-//help:Sfbdparadata(options2=["Wait=30",limit1([0.05,1], limit2(0.2)]);
- regional(fd,options,name2,name3,name2h,name3h,waiting,
- eqL,reL,strL,fname,outreg,tmp,tmp1,tmp2,flg,wflg);
- name2="sfbd2d"+nm;
- name3="sfbd3d"+nm;
- name2h="sfbdh2d"+nm;
- name3h="sfbdh3d"+nm;
- fname=Fhead+"sfbd"+nm+".txt";
- fd=apply(fdorg,if(isstring(#),"'"+#+"'",#));
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- waiting=30;
- outreg=0; // 16.08.20
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
-// if(tmp1=="O", // 16.08.20
-// tmp=Toupper(substring(tmp2,0,1));
-// if(tmp=="T" % tmp=="Y", outreg=1,outreg=0);
-// options=remove(options,[#]);
-// );
- );
- options=remove(options,reL);
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- cmdL=MkprecommandS(5); // 16.02.01
- tmp=[
- Dq+fname+Dq,
- Dq+name3+Dq,name3,
- Dq+name2+Dq,name2,
- Dq+name3h+Dq,name3h,
- Dq+name2h+Dq,name2h,
- Dq+"HIDDENDATA"+Dq,"HIDDENDATA", // 16.08.20from
- Dq+"PARTITIONPT"+Dq,"PARTITIONPT",
- Dq+"OTHERPARTITION"+Dq,"OTHERPARTITION" // 16.08.20upto
- ];
- fd=apply(fd,replace(#,"_1","(1)")); // 16.05.25from
- fd=apply(fd,replace(#,"_2","(2)"));
- fd=apply(fd,replace(#,"_3","(3)")); // 16.05.25upto
- cmdL=concat(cmdL,[
- name3+"=Sfbdparadata",concat([fd,"Error"],reL),
- name2+"=Projpara",[name3],
- name3h+"=BorderHiddenData()",[],
- name2h+"=Projpara",[name3h],
- "function Ot=Hiddend(),global HIDDENDATA,Ot=HIDDENDATA,endfunction)"
- ,[], // 16.08.20from
- "function Ot=Otherp(),global OTHERPARTITION,Ot=OTHERPARTITION,endfunction)"
- ,[],
- "HIDDENDATA=Hiddend()",[],
- "PARTITIONPT=PartitionPt()",[],
- "OTHERPARTITION=Otherp()",[],
- "for J=1:length(OTHERPARTITION)",[],
- " Tmp1=OTHERPARTITION(J)",[],
- " Tmp2=[]",[],
- " for K=1:length(Tmp1)",[],
- " Tmp2=[Tmp2;Tmp1(K),1000]",[],
- " end",[],
- " OTHERPARTITION(J)=Tmp2",[],
- "end",[],
- "WriteOutData",tmp
- ]);
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"])); // 16.08.20
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS("sfbd"+nm,cmdL,options);
- );
- if(ErrFlag==1,
- err("Sfbdparadata not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[fname]);
- OutFileList=append(OutFileList,fname);
- );
- ReadOutData(fname);
- if(islist(parse(name2)),
- Extractdata(name2,options);
- if(length(optionsh)>0,tmp=optionsh,tmp=["nodisp"]);
- Extractdata(name2h,tmp);
- ,
- ErrFlag=1;
- );
- );
-);
-
-Wireparadata(nm,out,wr1,wr2,fd):=
- Wireparadata(nm,out,fd,wr1,wr2,[],["nodisp"]);
-Wireparadata(nm,out,fd,wr1,wr2,options):=
- Wireparadata(nm,out,fd,wr1,wr2,options,["nodisp"]);
-Wireparadata(nm,outstr,fdorg,wr1,wr2,optionorg,optionsh):=(
-//help:Wireparadata("1","sfbd3d1",fd,5,5);
-//help:Wireparadata(options2=["Wait=40"]);
- regional(out,fd,options,name2,name3,name2h,name3h,outreg,
- eqL,reL,strL,fname,outfname,waiting,tmp,tmp1,tmp2,flg,wflg);
- name2="wire2d"+nm;
- name3="wiref3d"+nm;
- name2h="wireh2d"+nm;
- name3h="wireh3d"+nm;
- fname=Fhead+"wire"+nm+".txt";
- tmp=replace(outstr,"3d","");
- outfname=Fhead+tmp+".txt"; // 16.08.20
- out=parse(outstr);
- if(!islist(out), ErrFlag=1);
- fd=apply(fdorg,if(isstring(#),"'"+#+"'",#));
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- waiting=40;
- outreg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
-// if(tmp1=="O", // 16.08.20from
-// tmp=Toupper(substring(tmp2,0,1));
-// if(tmp=="T" % tmp=="Y", outreg=1,outreg=0);
-// options=remove(options,[#]);
-// );// 16.08.20upto
- );
- options=remove(options,reL);
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- flg=0;
- tmp1=floor(5*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp=load(Fhead+replace(outstr,"3d","")+".txt");
- if(length(tmp)>=4,
- tmp2=substring(tmp,length(tmp)-4,length(tmp));
- if(tmp2=="////",
- flg=1;
- );
- ,
- wait(WaitUnit);
- );
- );
- );
- if(flg==0,
- Err(outstr+" file not copleted");
- ErrFlag=1;
- );
- if(ErrFlag==0,
-// Writeoutdata(outfname,["Out",out]);
- );
- cmdL=MkprecommandS(5); // 16.02.01
- tmp=[
- Dq+fname+Dq,
- Dq+name3+Dq,name3,
- Dq+name2+Dq,name2,
- Dq+name3h+Dq,name3h,
- Dq+name2h+Dq,name2h
- ];
- fd=apply(fd,if(isstring(#),replace(#,"_1","(1)"),#)); // 16.05.25 08.17from
- fd=apply(fd,if(isstring(#),replace(#,"_2","(2)"),#));
- fd=apply(fd,if(isstring(#),replace(#,"_3","(3)"),#)); // 16.05.25 08.17upto
- cmdL=concat(cmdL,[
- "disp('Running Wireparadata')",[],
- "tmp=ReadOutData",[Dq+outfname+Dq],
- "execstr(tmp)",[],
- "function SetHidd(Dt),global HIDDENDATA,HIDDENDATA=Dt,endfunction)",
- [], // 16.08.20from
- "function SetPart(Dt),global PARTITIONPT,PARTITIONPT=Dt,endfunction)",
- [],
- "function SetOther(Dt),global OTHERPARTITION,OTHERPARTITION=Dt,endfunction)",
- [],
- "if type(HIDDENDATA)~=15,HIDDENDATA=list(HIDDENDATA),end",[],
- "if type(PARTITIONPT)~=15,PARTITIONPT=list(PARTITIONPT),end",[],
- "if type(OTHERPARTITION)~=15,OTHERPARTITION=list(OTHERPARTITION),end",[],
- "for J=1:length(OTHERPARTITION)",[],
- " Tmp=OTHERPARTITION(J)",[],
- " OTHERPARTITION(J)=Tmp(:,1)",[],
- "end",[],
- "SetHidd(HIDDENDATA)",[],
- "SetPart(PARTITIONPT)",[],
- "SetOther(OTHERPARTITION)",[],
- "if type("+outstr+")~=15,"+outstr+"=list("+outstr+"),end",[], // 16.08.20upto
- name3+"=Wireparadata",concat([outstr,fd,wr1,wr2,"Error"],reL),
- name2+"=Projpara",[name3],
- name3h+"=WireHiddenData()",[],
- name2h+"=Projpara",[name3h],
- "WriteOutData",tmp
- ]);
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"]));
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS("wire"+nm,cmdL,options);
- );
- if(ErrFlag==1,
- err("Wireparadata not completed");
- ,
- if(outreg==1,
-// OutFileList=remove(OutFileList,[fname]);
-// OutFileList=append(OutFileList,fname);
- );
- ReadOutData(fname);
- if(!islist(parse(name2)), ErrFlag=1);
- if(ErrFlag==0,
- Extractdata(name2,options);
- if(length(optionsh)>0,tmp=optionsh,tmp=["nodisp"]);
- Extractdata(name2h,tmp);
- );
- );
-);
-
-Crvsfparadata(nm,gd,out,fd):=
- Crvsfparadata(nm,gd,out,fd,[],["nodisp"]);
-Crvsfparadata(nm,gd,out,fd,options):=
- Crvsfparadata(nm,gd,out,fd,options,["nodisp"]);
-Crvsfparadata(nm,gdstr,outstr,fdorg,optionorg,optionsh):=(
-//help:Crvsfparadata("1","ax3d","sfbd3d1",fd);
-//help:Crvsfparadata(options2=["Wait=20"]);
- regional(gd,out,fd,options,name2,name3,name2h,name3h,outreg,
- eqL,reL,strL,fname,gdfname,outfname,waiting,tmp,tmp1,tmp2,flg,wflg);
- name2="crvsf2d"+nm;
- name3="crvsf3d"+nm;
- name2h="crvsfh2d"+nm;
- name3h="crvsfh3d"+nm;
- fname=Fhead+"crvsf"+nm+".txt";
- gdfname=Fhead+"crv"+nm+".txt";
- tmp=replace(outstr,"3d","");
- outfname=Fhead+tmp+".txt"; // 16.08.20
- gd=parse(gdstr);
- out=parse(outstr);
- if(!islist(out), ErrFlag=1);
- fd=apply(fdorg,if(isstring(#),"'"+#+"'",#));
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- waiting=20;
- outreg=1;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
-// if(tmp1=="O",
-// tmp=Toupper(substring(tmp2,0,1));
-// if(tmp=="T" % tmp=="Y", outreg=1,outreg=0);
-// options=remove(options,[#]);
-// );
- );
- options=remove(options,reL);
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- flg=0;
- tmp1=floor(5*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp=load(Fhead+replace(outstr,"3d","")+".txt");
- if(length(tmp)>=4,
- tmp2=substring(tmp,length(tmp)-4,length(tmp));
- if(tmp2=="////",
- flg=1;
- );
- ,
- wait(WaitUnit);
- );
- );
- );
- if(flg==0,
- Err(outstr+" file not copleted");
- ErrFlag=1;
- );
- if(wflg==0,
- tmp=load(fname);
- if(length(tmp)==0,wflg=1);
- );
- if(ErrFlag==0,
-// Writeoutdata(outfname,["Gc",gd,"Out",out]);
-// wait(WaitUnit);
- );
- cmdL=MkprecommandS(5); // 16.02.01
- tmp=[
- Dq+fname+Dq,
- Dq+name3+Dq,name3,
- Dq+name2+Dq,name2,
- Dq+name3h+Dq,name3h,
- Dq+name2h+Dq,name2h
- ];
- fd=apply(fd,if(isstring(#),replace(#,"_1","(1)"),#)); // 16.05.25 08.17from
- fd=apply(fd,if(isstring(#),replace(#,"_2","(2)"),#));
- fd=apply(fd,if(isstring(#),replace(#,"_3","(3)"),#)); // 16.05.25 08.17upto
- cmdL=concat(cmdL,[
- "disp('Running Crvsfparadata')",[],
- "tmp=ReadOutData",[Dq+outfname+Dq],
- "execstr(tmp)",[],
- "function SetHidd(Dt),global HIDDENDATA,HIDDENDATA=Dt,endfunction)",
- [], // 16.08.20from
- "function SetPart(Dt),global PARTITIONPT,PARTITIONPT=Dt,endfunction)",
- [],
- "function SetOther(Dt),global OTHERPARTITION,OTHERPARTITION=Dt,endfunction)",
- [],
- "if type(HIDDENDATA)~=15,HIDDENDATA=list(HIDDENDATA),end",[],
- "if type(PARTITIONPT)~=15,PARTITIONPT=list(PARTITIONPT),end",[],
- "if type(OTHERPARTITION)~=15,OTHERPARTITION=list(OTHERPARTITION),end",[],
- "for J=1:length(OTHERPARTITION)",[],
- " Tmp=OTHERPARTITION(J)",[],
- " OTHERPARTITION(J)=Tmp(:,1)",[],
- "end",[],
- "SetHidd(HIDDENDATA)",[],
- "SetPart(PARTITIONPT)",[],
- "SetOther(OTHERPARTITION)",[],
- "if type("+outstr+")~=15,"+outstr+"=list("+outstr+"),end",[], // 16.08.20upto
- name3+"=Crvsfparadata",concat([gdstr,outstr,fd,"Error"],reL),
- name2+"=Projpara",[name3],
- name3h+"=CrvsfHiddenData()",[],
- name2h+"=Projpara",[name3h],
- "WriteOutData",tmp
- ]);
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"]));
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS("crvsf"+nm,cmdL,options);
- );
- if(ErrFlag==1,
- err("Crvsfparadata not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[fname]);
- OutFileList=append(OutFileList,fname);
- );
- ReadOutData(fname);
- tmp=replace(gdstr,"3d","2d");
- Changestyle([tmp],["nodisp"]);
- Extractdata(name2,options);
- if(length(optionsh)>0,tmp=optionsh,tmp=["nodisp"]);
- Extractdata(name2h,tmp);
- );
-);
-
-Intersectcrvsf(nm,gd,fd):=
- Intersectcrvsf(nm,gd,fd,[]);
-Intersectcrvsf(nm,gdstr,fdorg,optionorg):=(
-//help:Intersectcrvsf("1",ax3d_1,fd);
-//help:Intersectcrvsf(options=["Wait=10",50,0.05]);
- regional(name,gd,fd,options,reL,fname,gdfname,
- waiting,tmp,tmp1,tmp2,flg,wflg,pts);
- name="intpts"+nm;
- fname=Fhead+name+".txt";
- gdfname=Fhead+"crv"+nm+".txt";
- gd=parse(gdstr);
- fd=apply(fdorg,if(isstring(#),"'"+#+"'",#));
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- waiting=10;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- options=remove(options,reL);
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- if(wflg>-1,
- Writeoutdata(gdfname,["Gd",gd]);
-// wait(WaitUnit);
- );
- fd=apply(fd,replace(#,"_1","(1)")); // 16.05.25from
- fd=apply(fd,replace(#,"_2","(2)"));
- fd=apply(fd,replace(#,"_3","(3)")); // 16.05.25upto
- cmdL=[
- "disp('Finding Intersectcrvsf')",[],
- "Setangle",[THETA,PHI]*180/pi,
- "tmp=ReadOutData",[Dq+gdfname+Dq],
- "execstr(tmp)",[],
- "Intpts=Intersectcrvsf",concat(["Gd",fd,"Error"],reL),
- "tmp1='['",[],
- "for J=1:length(Intpts)",[],
- " tmp2=Intpts(J)",[],
- " for K=1:length(tmp2)",[],
- " if K==1",[],
- " tmp1=tmp1+'['",[],
- " end",[],
- " tmp1=tmp1+string(tmp2(K))",[],
- " if K<length(tmp2)",[],
- " tmp1=tmp1+','",[],
- " else",[],
- " tmp1=tmp1+']'",[],
- " end",[],
- " end",[],
- " if J<length(Intpts)",[],
- " tmp1=tmp1+','",[],
- " else",[],
- " tmp1=tmp1+']||||'",[], //16.08.09
- " end",[],
- "end",[],
- "fid=mopen('"+fname+"','w')",[],
- " mputl(tmp1,fid)",[],
- "mclose(fid)",[]
- ];
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"]));
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS(name,cmdL,options); // 16.08.14
- );
- if(ErrFlag==1,
- err("Intersectcrvsf not completed");
- ,
- println(name+" obtained"); //16.08.14from
- pts=load(fname);
- pts=replace(pts,"||||","");
- tmp=name+"="+pts;
- parse(tmp);
- parse(pts); //16.08.14upto
- );
-);
-
-Skeletonparadata2(nm):=Skeletonparadata2(nm,[]);
-Skeletonparadata2(nm,options):=(
- regional(tmp,tmp2,tmp3);
- // tmp=apply(GCLIST,#_1);
- // tmp=select(tmp,indexo(#,"2d")>0);
- // tmp2=select(tmp,indexof(#,"sub")==0);
- tmp3=Datalist3d();
- Changestyle3d(tmp3,["nodisp"]); // 15.06.02, 07.22
- // tmp3=apply(tmp2,replace(#,"2d","3d"));
- Skeletonparadata2(nm,"",tmp3,tmp3,options);
-);
-Skeletonparadata2(nm,Arg1,Arg2):=(
- regional(nme,pltdata1,pltdata2,options);
- if(isstring(Arg1) & islist(Arg2),
- nme=Arg1;
-// pltdata1=parse("phe3d"+nme);
- pltdata1="phe3d"+nme;
- pltdata2=pltdata1;
- options=Arg2;
- ,
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=[];
- );
- Skeletonparadata2(nm,nme,pltdata1,pltdata2,options);
-);
-Skeletonparadata2(nm,Arg1,Arg2,Arg3):=(
- regional(nme,pltdata1,pltdata2,options);
- if(!isstring(Arg1),
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=Arg3;
- ,
- if(isstring(Arg2) & !isstring(Arg3),
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=Arg3;
- ,
- nme=Arg1;
- pltdata1=Arg2;
- pltdata2=Arg3;
- options=[];
- );
- );
- Skeletonparadata2(nm,nme,pltdata1,pltdata2,options); // 15.07.09
-);
-Skeletonparadata2(nm,nme,pltdata1,pltdata2,options):=(
- regional(name2,name3,count,Ltype,Noflg,PdL,tmp,tmp1,tmp2,
- opstr,opcindy,Str,Outflg,Inflg,realL,pdata1,pdata2,level);
- name2="sk2d"+nm;
- name3="sk3d"+nm;
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15
- realL=tmp_6;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- if(Noflg<3,
- if(Outflg>=1,
- println("Output Skeletonparadata2 "+name3);
- if(isstring(pltdata1), // 15.05.27 from
- tmp1=pltdata1;
- ,
- tmp1="";
- forall(pltdata1,
- tmp1=tmp1+#+",";
- );
- tmp1="list("+substring(tmp1,0,length(tmp1)-1)+")";
- );
- if(isstring(pltdata2),
- tmp2=pltdata2;
- ,
- tmp2="";
- forall(pltdata2,
- tmp2=tmp2+#+",";
- );
- tmp2="list("+substring(tmp2,0,length(tmp2)-1)+")";
- );
- Str="Skeletonpara3data("+tmp1+","+tmp2+opstr+")"; // 15.05.27 upto
- GLIST=append(GLIST,name3+"="+Str);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- if(Outflg==1,
- SCIWRLIST=append(SCIWRLIST,name3);
- SCIWRLIST=append(SCIWRLIST,name2);
- );
- );
- if(Inflg==1,
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name2);
- if(islist(tmp),
- Extractdata(name2,["nodisp"]); // 12.19
- );
- SCIRELIST=append(SCIRELIST,name3);
- SCIRELIST=append(SCIRELIST,name2);
- );
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
-// tmp=apply(pltdata1,replace(#,"3d","2d")); // 15.05.18 from
- if(nme!="", // 15.05.27
- Changestyle3d("phe3d"+nme,["nodisp"]);
- ,
- forall(pltdata1, // 15.07.16
- tmp=replace(#,"3d","2d");
- if(contains(GCLIST,tmp),
- Changestyle3d(#,["nodisp"]);
- );
- );
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- );
- );
-);
-
-Skeletonparadata(nm):=Skeletonparadata(nm,[]);
-Skeletonparadata(nm,options):=(
- regional(tmp,tmp2,tmp3);
- tmp3=Datalist3d();
- Skeletonparadata(nm,"",tmp3,tmp3,options);
-// Changestyle3d(tmp3,["nodisp"]); // 15.06.02, 07.22
-);
-Skeletonparadata(nm,Arg1,Arg2):=(
-//help:Skeletonparadata("1");
-//help:Skeletonparadata("1",[pdata1,pdata2],[pdata3]);
-//help:Skeletonparadata(options2=[width(1), "Wait=20]);
- regional(nme,pltdata1,pltdata2,options);
- if(isstring(Arg1) & islist(Arg2),
- nme=Arg1;
-// pltdata1=parse("phe3d"+nme);
- pltdata1="phe3d"+nme;
- pltdata2=pltdata1;
- options=Arg2;
- ,
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=[];
- );
- Skeletonparadata(nm,nme,pltdata1,pltdata2,options);
-);
-Skeletonparadata(nm,Arg1,Arg2,Arg3):=(
- regional(nme,pltdata1,pltdata2,options);
- if(!isstring(Arg1),
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=Arg3;
- ,
- if(isstring(Arg2) & !isstring(Arg3),
- nme="";
- pltdata1=Arg1;
- pltdata2=Arg2;
- options=Arg3;
- ,
- nme=Arg1;
- pltdata1=Arg2;
- pltdata2=Arg3;
- options=[];
- );
- );
- Skeletonparadata(nm,nme,pltdata1,pltdata2,options); // 15.07.09
-);
-Skeletonparadata(nm,nme,pltdata1org,pltdata2org,optionorg):=(
- regional(name2,name3,eqL,strL,options,fname,outreg,waiting,
- reL, pltdata1,pltdata2,wflg,opcindy,width,pdata,
- tmp,tmp1,tmp2);
- name2="sk2d"+nm;
- name3="sk3d"+nm;
- fname=Fhead+"sk"+nm+".txt";
- pltdata1=[];// 16.01.31
- forall(pltdata1org,tmp1,
- tmp=parse(tmp1);
- if(isstring(tmp_1),
- pltdata1=concat(pltdata1,tmp);
- ,
- pltdata1=append(pltdata1,tmp1);
- );
- );
- pltdata2=[];// 16.01.31
- forall(pltdata2org,tmp1,
- tmp=parse(tmp1);
- if(isstring(tmp_1),
- pltdata2=concat(pltdata2,tmp);
- ,
- pltdata2=append(pltdata2,tmp1);
- );
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6; //16.02.28
- strL=tmp_7;
- opcindy=tmp_9;
- waiting=20;
- outreg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="O",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", outreg=1,outreg=0);
- options=remove(options,[#]);
- );
- );
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- width=1;
- if(length(reL)>0, //16.02.28
- width=reL_1;
- );
- forall(pltdata1,pdata,
- tmp=select(GLIST,indexof(#,pdata+"=")>0);
- if(tmp==0,
- Defvar(pdata,parse(pdata));
- );
- );
- forall(pltdata2,pdata,
- tmp=select(GLIST,indexof(#,pdata+"=")>0);
- if(tmp==0,
- tmp=select(VLIST,#_1==pdata+"=");
- if(tmp==0,
- Defvar(pdata,parse(pdata));
- );
- );
- );
- cmdL=MkprecommandS(4);
- tmp2=[
- Dq+fname+Dq,
- Dq+name3+Dq,name3,
- Dq+name2+Dq,name2
- ];
- cmdL=concat(cmdL,[
- "Setangle",[THETA,PHI]*180/pi,
- name3+"=Skeletonpara3data",[pltdata1,pltdata2,width,"Error"],
- name2+"=Projpara",[name3],
- "WriteOutData",tmp2
- ]);
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"]));
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS("sk"+nm,cmdL,options);
- );
- if(ErrFlag==1,
- err("Skeletonparadata not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[fname]);
- OutFileList=append(OutFileList,fname);
- );
- ReadOutData(fname);
- if(islist(parse(name2)),
- Extractdata(name2,options);
-// if(isstring(pltdata1_1), // 16.01.31
- tmp=apply(pltdata1,replace(#,"3d","2d"));
-// ,
-// tmp=replace(pltdata1org,"3d","2d");
-// );
- Changestyle(tmp,["nodisp"]);
-// Changestyle3d(pltdata1,["nodisp"]);
- ,
- ErrFlag=1;
- );
- );
-);
-
-Skeletondatacindy(nm):=Skeletondatacindy(nm,[]);
-Skeletondatacindy(nm,options):=(
- regional(tmp);
- tmp=Datalist3d();
- Skeletondatacindy(nm,tmp,tmp,options);
-);
-Skeletondatacindy(nm,pltdata1,pltdata2):=
- Skeletondatacindy(nm,pltdata1,pltdata2,[]);
-Skeletondatacindy(nm,pltdata1org,pltdata2org,options):=(
-//help:Skeletondatacindy("1");
-//help:Skeletondatacindy("1",[pdata1,pdata2],[pdata3]);
-//help:Skeletondatacindy(options2=[1(width)]);
- regional(Eps,Eps2,name2,name3,Ltype,Noflg,reL,opcindy,
- Out,ObjL,Plt3L,Rr,pltdata1,pltdata2,Plt2L,ObjL,ii,Data,
- Obj3,jj,Gd,PtD,size,tmp,tmp1,tmp2);
- name2="sk2d"+nm;
- name3="sk3d"+nm;
- pltdata1=[];// 16.01.31
- forall(pltdata1org,tmp1,
- tmp=parse(tmp1);
- pltdata1=append(pltdata1,tmp);
- );
- pltdata2=[];// 16.01.31
- forall(pltdata2org,tmp1,
- tmp=parse(tmp1);
- pltdata2=append(pltdata2,tmp);
- );
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- reL=tmp_6; //16.02.28
- opcindy=tmp_9;
- Rr=0.075*1000/2.54/MilliIn;
- size=1;
- Eps2=0.05;
- if(length(reL)>0, //16.02.28
- size=reL_1;
- Rr=size*Rr;
- if(length(reL)>1,Eps2=reL_2);
- );
- Eps=10^(-4);
- ObjL=Flattenlist(pltdata1);
- Plt3L=Flattenlist(pltdata2);
- tmp=apply(Plt3L,ProjcoordCurve(#));
- Plt2L=Flattenlist(tmp);
-/////////// tmp=apply(pltdata1,replace(#,"3d","2d"));
- Out=[];
- forall(1..(length(ObjL)),ii,
- Obj3=ObjL_ii;
- tmp=ProjcoordCurve(Obj3);
- Data=Makeskeletondata([tmp],Plt2L,Rr,Eps2);
- forall(1..(length(Data)),jj,
- Gd=Data_jj;
- if((length(Gd)>1)
- & (norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))>Eps),
- PtD=[];
- forall(1..(length(Gd)),
- tmp=Gd_#;
- tmp1=Invparapt(tmp,Obj3);
- PtD=append(PtD,tmp1);
- );
- Out=append(Out,PtD);
- );
- );
- );
- Out=select(Out,length(Projcurve(#))>0); // 16.12.19
- tmp1=apply(Out,textformat(#,5));
- tmp=name3+"="+tmp1;
- parse(tmp);
- tmp=name2+"=Projcurve("+tmp1+");";
- parse(tmp);
- Changestyle3d(pltdata1org,["nodisp"]);
- if(Noflg<3,
- println("generate skeleton :"+name3);
- tmp1=text(pltdata1org);
- tmp1="list("+substring(tmp1,1,length(tmp1)-1)+")";
- tmp2=text(pltdata2org);
- tmp2="list("+substring(tmp2,1,length(tmp2)-1)+")";
- tmp=name3+"=Skeletonpara3data("+tmp1+","+tmp2+",";
- tmp=tmp+text(size)+")";
- GLIST=append(GLIST,tmp);
- tmp=name2+"=Projpara("+name3+")";
- GLIST=append(GLIST,tmp);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name2);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name2,Ltype,opcindy]);
- if(SUBSCR==1,
- Subgraph(name3,opcindy);
- );
- );
- Out;
-);
-
-Makeskeletondata(Obj2L,Plt2L,R0,Eps2):=(
- regional(Allres,Eps,Dmat,Dind,ii,Dt,nn1,nn2,Nind,Nobj,
- Plt2,PhL,ClipL,ns,pt1,pt2,pt,pta,ptb,za,zb,z1,z2,t1,t2,te,
- koc,KukanL,nn,tt,Rr,Flg,ii,jj,ptq,hh,Ku,Res,contflg,breakflg);
- Eps=10.0^(-4);
- Dmat=[];
- Dind=[];
- forall(1..(length(Plt2L)),ii,
- Dt=Plt2L_ii;
- nn1=length(Dmat)+1;
- Dmat=concat(Dmat,Dt);
- nn2=length(Dmat);
- Dind=append(Dind,[nn1,nn2]);
- );
- Nind=length(Dind);
- Allres=[];
- forall(1..(length(Obj2L)),Nobj,
- Plt2=Obj2L_Nobj;
- PhL=Columnlist(Plt2,1..2);
- ClipL=[];
- forall(1..(length(PhL)-1),ns,
- pt1=PhL_(ns..(ns+1));
- forall(1..(length(Dind)),ii,
- tmp=Dind_ii;
- tmp=Dmat_(Dind_ii_1..Dind_ii_2);
- pt2=Columnlist(tmp,1..2);
- koc=IntersectcrvsPp(pt1,pt2,[Eps]);
- if(length(koc)>0,
- breakflg=0;
- forall(1..(length(koc)),jj,
- contflg=0;
- if(breakflg==0,
- pt=Op(1,Op(jj,koc));
- tmp=Op(2,Op(jj,koc));
- if((tmp<1+Eps) & (ns==1),
- contflg=1;
- );
- if(contflg==0,
- if((tmp>length(pt1)-Eps)
- & (ns==length(PhL)-1),
- contflg=1;
- );
- );
- if(contflg==0,
- nn1=ns;
- nn2=Op(3,Op(jj,koc));
- tmp=Plt2_nn1;
- pta=tmp_(1..2);
- za=tmp_3;
- tmp=Plt2_(nn1+1);
- ptb=tmp_(1..2);
- zb=tmp_3;
- if(norm(pta-ptb)<Eps,
- contflg=1;
- );
- );
- if(contflg==0,
- t1=norm(pta-pt)/norm(pta-ptb);
- z1=(1-t1)*za+t1*zb;
- tmp=Dmat_(Dind_ii_1..Dind_ii_2);
- tmp1=tmp_nn2;
- pta=tmp1_(1..2);
- za=tmp1_3;
- tmp2=tmp_(nn2+1);
- ptb=tmp2_(1..2);
- zb=tmp2_3;
- if(norm(pta-ptb)<Eps,
- contflg=1;
- );
- );
- if(contflg==0,
- t2=norm(pta-pt)/norm(pta-ptb);
- z2=(1-t2)*za+t2*zb;
- if(z1<z2-Eps2,
- if(length(ClipL)==0,
- tmp=1;
- ,
- tmp1=column(ClipL,1);
- tmp1=apply(tmp1,#-pt_1);
- tmp2=column(ClipL,2);
- tmp2=apply(tmp2,#-pt_2);
- tmp3=apply(tmp1,#^2)+apply(tmp2,#^2);
- tmp=min(tmp3);
- );
- if(tmp>Eps^2,
- tmp1=pt1_2-pt1_1;
- tmp2=ptb-pta;
- tmp3=Dotprod(tmp1,tmp2);
- tmp3=tmp3/norm(tmp1)/norm(tmp2);
- tmp=1-0.5*tmp3^2;
- tmp1=concat(pt,[nn1,t1,R0/tmp]);
- ClipL=append(ClipL,tmp1);
- );
- );
- );
- );
- );
- );
- );
- );
- te=length(Plt2);
- KukanL=[[1.0,te]];
- pt1=PhL;
- if(length(ClipL)>0,
- forall(1..(length(ClipL)),ii,
- tmp=ClipL_ii;
- pt=tmp_(1..2);
- nn=tmp_3;
- tt=nn+tmp_4;
- Rr=tmp_5;
- Flg=0;
- breakflg=0;
- forall(reverse(1..nn),jj,
- contflg=0;
- if(breakflg==0,
- ptq=PointonCurve(jj,pt1);
- if(norm(pt-ptq)<Rr,
- contflg=1;
- );
- if(contflg==0,
- Flg=jj;
- breakflg=1;
- contflg=1;
- );
- );
- );
- if(Flg==0,
- t1=1;
- ,
- t1=Flg; t2=tt;
- hh=t2-t1;
- forall(1..10,
- hh=hh*0.5;
- ptq=PointonCurve(t1+hh,pt1);
- if(norm(pt-ptq)<Rr,
- t2=t2-hh;
- ,
- t1=t1+hh;
- );
- );
- );
- Ku=[t1];
- Flg=0;
- breakflg=0;
- forall((nn+1)..te,jj,
- contflg=0;
- if(breakflg==0,
- ptq=PointonCurve(jj,pt1);
- if(norm(pt-ptq)<Rr,
- contflg=1;
- );
- if(contflg==0,
- Flg=jj;
- breakflg=1;
- contflg=1;
- );
- );
- );
- if(Flg==0,
- t2=te;
- ,
- t1=tt; t2=Flg;
- hh=t2-t1;
- forall(1..10,
- hh=hh*0.5;
- ptq=PointonCurve(t1+hh,pt1);
- if(norm(pt-ptq)<Rr,
- t1=t1+hh;
- ,
- t2=t2-hh;
- );
- );
- );
- Ku=append(Ku,t2);
- KukanL=Kukannozoku(Ku,KukanL);
- );
- );
- Res=[];
- forall(1..(length(KukanL)),ii,
- tmp=KukanL_ii;
- t1=tmp_1; nn1=floor(t1);
- t2=tmp_2; nn2=floor(t2);
- PtL=[];
- if(t1-nn1<1-Eps,
- tmp=PointonCurve(t1,pt1);
- PtL=[tmp];
- );
- forall((nn1+1)..nn2,jj,
- tmp=PointonCurve(jj,pt1);
- PtL=append(PtL,tmp);
- );
- if(t2-nn2>Eps,
- tmp=PointonCurve(t2,pt1);
- PtL=append(PtL,tmp);
- );
- tmp=Listplot("",PtL,["nodata"]);
- Res=append(Res,tmp);
- );
- Allres=concat(Allres,Res);
- );
- Allres;
-);
-
-Kukannozoku(Jokyo,KukanL):=(
- regional(Res,Eps,nn,ii,t1,t2,Ku,Flg,contflg,tmp,tmp1);
- Eps=10^(-6);
- nn=length(KukanL);
- t1=Jokyo_1; t2=Jokyo_2;
- tmp=KukanL_1;
- t1=max(t1,tmp_1);
- tmp=KukanL_nn;
- t2=min(t2,tmp_2);
- Res=[];
- Flg=0;
- contflg=0;
- forall(1..nn,ii,
- if(contflg==0,
- Ku=KukanL_ii;
- if(Flg==0,
- if(Ku_2<t1,
- Res=append(Res,Ku);
- ,
- Flg=1;
- if(Ku_1<t1-Eps,
- tmp=[Ku_1,t1];
- Res=append(Res,tmp);
- );
- if(Ku_2>t2+Eps,
- tmp=[t2,Ku_2];
- Res=append(Res,tmp);
- );
- );
- ,
- if(Flg==1,
- if(Ku_2<t2,
- contflg=1;
- ,
- if(contflg==0,
- Flg=2;
- if(Ku_1<t2-Eps,
- Ku=[t2,Ku_2];
- );
- Res=append(Res,Ku);
- );
- );
- ,
- if(contflg==0,
- Res=append(Res,Ku);
- );
- );
- );
- );
- );
- Res;
-);
-
-ProjcoordCurve(Curve):=(
- regional(SP,CP,ST,CT,Out,jj,pt,x,y,z,xz,yz,zz);
- SP=sin(PHI); CP=cos(PHI);
- ST=sin(THETA); CT=cos(THETA);
- Out=[];
- forall(1..(length(Curve)),jj,
- pt=Curve_jj;
- x=pt_1; y=pt_2; z=pt_3;
- xz=-x*SP+y*CP;
- yz=-x*CP*CT-y*SP*CT+z*ST;
- zz=x*CP*ST+y*SP*ST+z*CT;
- Out=append(Out,[xz,yz,zz]);
- );
- Out;
-);
-
-Divnohidhid(nm,dt3dorg,nvec):=Divnohidhid(nm,dt3dorg,nvec,[],["do"]);
-Divnohidhid(nm,dt3dorg,nvec,optionorg,options2):=(
-//help:Divnohidhid("1","sc3d1",nvec,["Num=100"],["Num=100","do"]);
- regional(name,dt3d,options,pvec,disp,nohid,hid,flg,tmp,tmp1,eqL);
- name="nh"+nm;
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- disp="Y";
- forall(eqL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="D",
- tmp=indexof(#,"=");
- disp=Toupper(substring(#,tmp,tmp+1));
- options=remove(options,[#]);
- );
- );
- if(isstring(dt3dorg),dt3d=parse(dt3dorg),dt3d=dt3dorg);
- pvec=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
- nohid=[];
- hid=[];
- flg=0;
- forall(1..(length(dt3d)-1),
- p1=dt3d_#;
- p2=dt3d_(#+1);
- tmp=assign(nvec,["x",p1_1,"y",p1_2,"z",p1_3]);
- tmp=parse(tmp);
- if(Dotprod(tmp,pvec)>0,
- if(flg==0 % flg==-1,
- nohid=append(nohid,[p1,p2]);
- flg=1;
- );
- if(flg==1,
- nohid_(length(nohid))=append(nohid_(length(nohid)),p2);
- );
- ,
- if(flg==0 % flg==1,
- hid=append(hid,[p1,p2]);
- flg=-1;
- );
- if(flg==-1,
- hid_(length(hid))=append(hid_(length(hid)),p2);
- );
- );
- );
- if(disp=="Y",
- Changestyle3d([dt3dorg],["nodisp"]);
- forall(1..length(nohid),
- Spaceline(name+"nh"+text(#),nohid_#,options);
- );
- forall(1..length(hid),
- Spaceline(name+"h"+text(#),hid_#,options2);
- );
- );
- tmp1="[";
- forall(nohid,tmp1=tmp1+textformat(#,5)+",");
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- parse(name+"nh="+tmp1);
- tmp1="[";
- forall(hid,tmp1=tmp1+textformat(#,5)+",");
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- parse(name+"h="+tmp1);
- [nohid,hid];
-);
-
-Beziersurf(nm,m,n,pL):=(
-//help:Beziersurf("pt",2,2,pL);
- regional(p3dL,ptlistx,ptlilsty,ptlistz);
- factorial(n):=(
- regional(out);
- out=1;
- forall(1..n,
- out=out*#;
- );
- out;
- );
- Deffun("Comb(n,r)",[
- "regional(y)",
- "y=factorial(n)/(factorial(r)*factorial(n-r))",
- "y"
- ]);
- Deffun("Bterm(u,v,m,n,i,j)",[
- "regional(y)",
- "y=Comb(m,i)*u^i*(1-u)^(m-i)",
- "y=y*Comb(n,j)*v^j*(1-v)^(n-j)",
- "y"
- ]);
- Deffun("Ball(u,v,m,n,pL)",[
- "regional(y,ii,jj,tmp,tmp1)",
- "y=0",
- "forall(0..m,ii,
- forall(0..n,jj,
- tmp=(n+1)*ii+jj+1;
- tmp1=Op(tmp,pL);
- tmp1=tmp1*Bterm(u,v,m,n,ii,jj);
- y=y+tmp1;
- )
- )",
- "y"
- ]);
- if(ispoint(pL_1),
- p3dL=apply(pL,parse(text(#)+"3d"));
- ,
- p3dL=apply(pL,parse(#+"3d"));
- );
- ptlistx=apply(p3dL,#_1);
- ptlisty=apply(p3dL,#_2);
- ptlistz=apply(p3dL,#_3);
- Defvar(nm+"x",ptlistx);
- Defvar(nm+"y",ptlisty);
- Defvar(nm+"z",ptlistz);
- tmp=[
- "p",
- "x=Ball(U,V,2,2,"+nm+"x)",
- "y=Ball(U,V,2,2,"+nm+"y)",
- "z=Ball(U,V,2,2,"+nm+"z)",
- "U=[0,1]",
- "V=[0,1]"
- ];
- tmp;
-);
-
-//help:end();
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpE.txt b/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpE.txt
deleted file mode 100644
index 27b40955..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpE.txt
+++ /dev/null
@@ -1,29 +0,0 @@
-//help:start();
-//help:Changstyle3d*(change the attribute of 3d plot data);
-//help:Findangle*(specify the angles theta and phi);
-//help:Cancoordpara*(specify the coordinate with respect to canonical coordinate);
-//help:Projcoordpara*(specify the coordinate of projected image);
-//help:Parapt*(the coordinate of the point in the projected plane);
-//help:Spaceline*(generate the plot data of 3d segments);
-//help:Spacecurve*(generate the plot data of 3d curve);
-//help:Xyzax3data*(generate the plot data of coordinate axes);
-//help:Datalist3d*(list of plot data of the all objects on the screen. Both 2d and 3d values are returned);
-//help:Skeletonparadata*(generate the plot data of the objects with hidden line elimination);
-//help:Embed*(generate the embedded plot data);
-//help:Rotate3pt*(rotate the point);
-//help:Rotate3data*(rotate 3d plot data);
-//help:Translate3pt*(parallelly transport the point);
-//help:Translate3data*(parallelly transport the plot data);
-//help:Reflect3point*(reflect the point);
-//help:Xyzcoord*(coordinate of a point determined with respect to main screen and sub screen);
-//help:PutonCurve3d*(put a point on the 3d curve);
-//help:Ptsegdata*(generate the 3d plot data of point and segment derived from those on 2d screen);
-//help:Putpoint3d*(put a specific point);
-//help:Perppt*(the foot of the perpendicular on the plane);
-//help:Perpplane*(a fiducial point of a plane with specific point on it and with specific normal vector);
-//help:Drawpoint3d*(draw a specific point);
-//help:Putaxes3d*(take a point with specific coordinates as geometric one);
-//help:IntersectsgpL*(intersection between line and plane);
-//help:Bezier3*(draw 3d Bezier curve);
-//help:Mkbezierptcrv3*(draw 3d Bezier curve by automatically taking controll points);
-//help:end();
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpJ.txt b/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpJ.txt
deleted file mode 100644
index bd29d25f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dhelpJ.txt
+++ /dev/null
@@ -1,45 +0,0 @@
-//help:start();
-//help:Changstyle3d*(3d繝励Ο繝繝医ョ繝シ繧ソ縺ョ螻樊ァ繧貞、画峩);
-//help:Findangle*(theta,phi繧呈アゅa繧);
-//help:Cancoordpara*(讓呎コ門コァ讓吶r豎ゅa繧);
-//help:Projcoordpara*(謚募スア蠎ァ讓吶r豎ゅa繧);
-//help:Parapt*(轤ケ縺ョ謚募スア髱「縺ァ縺ョ蠎ァ讓);
-//help:Spaceline*(遨コ髢薙ョ謚倡キ壹ョ繝シ繧ソ菴懈);
-//help:Spacecurve*(遨コ髢捺峇邱壹ョ繝繝シ繧ソ菴懈);
-//help:Xyzax3data*(蠎ァ讓呵サク縺ョ繝繝シ繧ソ菴懈);
-//help:Datalist3d*(逕サ髱「縺ォ謠上°繧後※縺繧九☆縺ケ縺ヲ縺ョ繝励Ο繝繝医ョ繝シ繧ソシ取綾繧雁、縺ッ3d,2d);
-//help:Skeletonparadata*(繧ケ繧ア繝ォ繝医Φ蜃ヲ逅縺ョ繝繝シ繧ソ菴懈);
-//help:Embed*(蝓九a霎シ縺ソ繝繝シ繧ソ菴懈);
-//help:Rotatept3d*(遨コ髢鍋せ繧貞屓霆「);
-//help:Rotatedata3d*(繝励Ο繝繝医ョ繝シ繧ソ繧貞屓霆「);
-//help:Translatept3d*(遨コ髢鍋せ繧貞ケウ陦檎ァサ蜍);
-//help:Translatedata3d*(遨コ髢薙励Ο繝繝医ョ繝シ繧ソ繧貞ケウ陦檎ァサ蜍);
-//help:Reflectpoint3d*(轤ケ繧帝升譏);
-//help:Xyzcoord*(荳サ蜑ッ逕サ髱「縺ァ豎コ縺セ繧狗せ縺ョ蠎ァ讓);
-//help:PutonCurve3d*(遨コ髢捺峇邱壻ク翫↓轤ケ繧偵→繧);
-//help:Ptsegdata*(逕サ髱「縺ォ縺ィ縺」縺溽せ縺ィ邱壼縺九i遨コ髢薙ョ轤ケ縺ィ邱壼繧剃ス懈);
-//help:Putpoint3d*(遨コ髢鍋せ繧偵→繧);
-//help:Perppt*(蟷ウ髱「縺ォ荳九m縺励◆蝙らキ壹ョ雜ウ);
-//help:Perpplane*(轤ケ繧帝壹j蝙ら峩縺ェ蟷ウ髱「荳翫ョ蝓コ貅也せ);
-//help:Drawpoint3d*(遨コ髢鍋せ繧呈緒縺);
-//help:Putaxes3d*(蠎ァ讓咏せ繧貞ケセ菴慕せ縺ィ縺励※縺ィ繧);
-//help:IntersectsgpL*(遨コ髢薙ョ逶エ邱壹→蟷ウ髱「縺ョ莠、轤ケ);
-//help:Bezier3d*(遨コ髢薙吶ず繧ァ譖イ邱);
-//help:Mkbezierptcrv3d*(蛻カ蠕。轤ケ繧定ェ蜍慕噪縺ォ縺ィ繧狗ゥコ髢薙吶ず繧ァ譖イ邱);
-//help:Readobj*(obj繝輔ぃ繧、繝ォ繧定ェュ縺ソ霎シ繧シ弱が繝励す繝ァ繝ウ縺ッ荳贋ク句渚霆「シ育ャヲ蜿キシ峨→蛟咲紫);
-//help:VertexandEdge*(鬆らせ縺ィ髱「縺九i霎コ繧呈アゅaシ瑚セコ繧呈緒縺);
-//help:Phparadata*(螟夐擇菴薙r髯ー邱壼ヲ逅縺励※謠上¥
-//霑ス蜉繧ェ繝励す繝ァ繝ウ : "Hidden=邱夂ィョ");
-//help:Nohiddenbyfaces*(螟夐擇菴薙→遨コ髢捺峇邱壹r髯ー邱壼ヲ逅);
-//help:Fixpoint3d*(遨コ髢薙ョ蝗コ螳夂せ繧偵→繧);
-//help:Sf3data*(髯ー邱壼ヲ逅縺ェ縺励ョ遨コ髢捺峇髱「繧呈緒縺);
-//help:Concatobj*(縺縺上▽縺九ョobj繝繝シ繧ソ繧堤オ仙粋);
-//help:Crvsfparadata*(譖イ邱壹ョ譖イ髱「縺ォ繧医k髯ー邱壼ヲ逅);
-//help:Intersectcrvsf*(譖イ邱壹→譖イ髱「縺ョ莠、轤ケ繧呈アゅa繧);
-//help:Intersectcrvsf*(譖イ邱壹→譖イ髱「縺ョ莠、轤ケ繧呈アゅa繧);
-//help:Sfbdparaparadata*(遨コ髢捺峇髱「縺ョ髯ー邱壼ヲ逅);
-//help:Wireparadata*(譖イ髱「縺ョ繝ッ繧、繝、繝輔Ξ繝シ繝繧帝匆邱壼ヲ逅);
-//help:Dist3d*(遨コ髢薙ョシ堤せ縺ョ霍晞屬);
-
-
-//help:end();
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dlog.txt b/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dlog.txt
deleted file mode 100644
index 63f107b7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylib3dlog.txt
+++ /dev/null
@@ -1,295 +0,0 @@
-// s: 2017.07.13
-// Spaceline debugged ( ["A3d","B3d"] =>[A3d,B3d] )
-// s: 2017.07.01
-// Start3d changed (debugged) ( Initialize SlideColorList )
-// s: 2017.06.02
-// Putaxes3d debugged ( for THETA=90 )
-// Projpara debugged ( list with length <2 removed)
-// s: 2017.05.18
-// Start3d changed ( Ch,ChNum added )
-// s: 2017.05.02
-// Ketinit3d, Start3d changed ( Sprintf(*.2) used )
-// s: 2017.04.14
-// Makeskeleton debugged ( Eps=10^(-4) )
-// s: 2017.01.19
-// Setangle changed ( for "" )
-// s: 2017.01.04
-// Bezier3 debugged ( t => T)
-// s: 2016.12.24
-// Setangle added
-// s: 2016.12.19
-// Skeletondatacindy debugged ( for null 2d data);
-// s: 2016.12.18
-// Ptseg3data debugged ( points to be removed );
-// s: 2016.11.29
-// Start3d changed ( CONCATCMD,OCNAME added )
-// s: 2016.11.12
-// Start3d changed ( option:ptexception added )
-// ( with Ptseg3data, Mkpointlist );
-// s: 2016.11.11
-// Skeletondatacindy added
-// ( with Makeskeletondata, Kukannozoku,ProjcoordCurve )
-// s: 2016.11.02
-// Divnohidhid added
-// s: 2016.10.06
-// Joincrvs3d added
-// s: 2016.08.20(22)
-// Ptseg3data included in Start3d
-// Wait option adjusted
-// s: 2016.08.20(21)
-// Mkpointlist changed ( x,y fixed when ptz changes )
-// Sfbdparadata,Wireparadata,Crvsfparadata debugged ( global var, for non list )
-// s: 2016.08.19
-// Nohiddenbyfaces, Mkbezierptcrv3d changed
-// Start3d debugged ( BezierNumber3 added )
-// Concatobj changed ( Default : "rmf=y" )
-// s: 2016.08.17
-// Wireparadata debugged
-// s: 2016.08.14
-// Xyzax3data changed ( options "a1","Osw" added )
-// Intersectcrvsf debugged
-// s: 2016.08.09
-// Intersectcrvsf debugged ( //// => |||| )
-// s: 2016.06.20
-// Start3d changed ( no ketinit3d )
-// s: 2016.06.19
-// VertexEdgeFace changed ( for ptdata alone )
-// Putpoint3d debugged
-// s: 2016.05.26
-// Putpoint3d debugged
-// Beziersurf added
-// s: 2016.05.26
-// Start3d changed ( pt2d added)
-
-/////////////
-// s: 2014.12.13 v1.0.0(beta)
-// Ketinit3d, Projpara, Parapt, Spaceline, Spacecurve, Xyzax3data
-// e: 2014.12.14
-// Skeletonparadata
-// e: 2014.12.18
-// Embed added
-// e: 2014.12.19
-// Skeletonparadata debugged ( Extractdata used )
-// Dotprod, Crossprod added
-// e: 2014.12.22
-// Skeletonparadata changed and debugged
-// Rotate3pt, Rotate3data added
-// Translate3pt, Translate3data added
-// e: 2014.12.27
-// Projcurve changed ( options )
-// e: 2015.02.02
-// Ketinit3d changed ( slider position )
-// e: 2015.02.06
-// xyzcoord, Mkpointlist, Mkseg3d, Putpoint3d, Makescreen added
-// e: 2015.02.07
-// Mkseg3d changed ( LineSeg )
-// 2nd frame changed (10 -> Pne.x-Psw.x )
-// e: 2015.02.08
-// Spacecurve changed ( Assign written to Scilab)
-// Ketinit changed ( position of slider)
-// e: 2015.02.09
-// Bezierpt3sub,Bezier3,Putbezier3data,Mkbezierptcrv3 added
-// e: 2015.02.10
-// Spacecurve changed ( Num )
-// e: 2015.02.11
-// Ketinit3d, Ptseg3data,Putpoint3d changed ( SUBSCR )
-// Subscreen, Subgraph added
-// Spaceline,Spacecurve, Rotate3data, Tranlate3data changed (SUBSCR)
-// Bezier3 changed
-// e: 2015,02.12
-// Bezier3, Putbezierpt debugged
-// Spacecurve changed ( name when "bz")
-// e: 2015.02.14
-// Ptseg3data changed ( alllines => allsegments )
-// e: 2015.02.15
-// Subscreen renamed to Start3d
-// e: 2015.02.16
-// Ptseg3data, Mkpointlist changed
-// e: 2015.02.17
-// Skeletonparadata debugged ( textformat was wrongly used)
-// Mkpointlist debugged ( not finished )
-// e: 2015.02.18
-// Rotate3data, Translate3data changed ( available for pdlist )
-// Puttickmark3d ( not yet )
-// Putonaxes3 added
-// drawpoint3d added
-// e: 2015.02.23
-// help(example) added
-// Pne,Psw,Th,Ph changed to NE,SW,TH,FI
-// e: 2015.02.24
-// Bezier3 debugged
-// Projpara changed ( for single data )
-// Reflectpt, PutonCurve3d added
-// e: 2015.02.25 v1.2.1
-// Puonaxes changed ( sizelist for each axis )
-// e: 2015.02.26
-// Mkpointlist changed ( point moves perpendicular to xy-plain)
-// e: 2015.02.27
-// IntersectsgpL, Fixpoint3d added
-// Puonaxes3 renamed to Putaxes3d and changed
-// e: 2015.02.28
-// Fixaxes3d removed
-// Mkbezierptcrv changed
-// Ketinit3d changed ( global BezierNumber3, BZLIST3)
-// e: 2015.03.01
-// Findangle, Cancoordpara,Zparapt, Projcoordpara,added
-// Putpoint3d changed ( fix option );
-// Putperp added
-// e: 2015.03.02
-// Mkseg3d changed ( geoseg3 defined )
-// Changestyle3d added
-// IntersectsgpL changed ( option put, draw, none )
-// Putperp rename to Perppt, available for segment, option added
-// e: 2015.03.05
-// Start3d changed ( VLIST defined if empty )
-// e: 2015.03.06 v1.2.2
-// Keinit3d, Putpoint3d changed (TSIZE,TSIZEZ)
-// Perpplane added
-// Embed debugged (for data as string )
-// Pseg3d debugged (case of empty )
-// e: 2015:03.13 v1.2.3
-// Help ( Putoncurve3d ) added
-// Putoncurve3d debugged
-// e: 2015.03.25 v1.2.4
-// Skeletonparadata changed ( nm, options );
-// e: 2015.03.26
-// Bezier3, Mkbezierptcrv3d debugged
-// e: 2015.03.28
-// Findangle ( and Perpplane ) debugged
-// e: 2015.04.06
-// Start3d changed ( Var from Fhead )
-// e: 2015.05.12 v1.3.1
-// Datalist3d added
-// e: 2015.05.14
-// Start3d debugged (SCEWRLIST, SCEWRLIST reset )
-// Skeletonpara changed (Divoptions used )
-// e: 2015.05.17 v1.3.2
-// Skeletonpara changed (out/in )
-// e: 2015.05.24 v1.3.3
-// Bezier3,Rotate3data,.. renamed to Bezier3d, ...
-// help:start(), help:end() added
-// VertexandEdge, Readobj, Removespace added
-// Changestyle3d changed
-// e: 2015.05.26 v1.4.1
-// Readobj, VertexandEdge added
-// Phparadata added
-// e: 2015.05.27 v1.4.1a
-// Skeletonpara, Phparadata changed ( for string ) and debugged
-// e: 2015.05.28
-// IntersectsgpL changed ( with segdata )
-// e: 2015.05.29 v1.4.2
-// Findhiddenseg added
-// e: 2015.05.30
-// Spaceline changed ( name when "-" )
-// Datalist3d changed, Datalist2d added;
-// Nohiddenbyfaces, Nohiddensegs, Nohiddenseg added
-// e: 2015.06.02 v1.4.3
-// Nohiddenseg revised/debugged ( major revision )
-// Skeletonparadata changed
-// e: 2015.06.06 v1.4.4
-// Readobj changed ( for #, f / )
-// Spaceline changed ( Message option )
-// e: 2015.06.08 v1.4.5
-// Nohiddenbyfaces changed
-// e: 2015.06.15 v1.4.6
-// Vertexedgeface changed ( edge drawn as geometric figure )
-// Mkseg3data changed ( Points of Spaceline changed to vertex name )
-// e: 2015.06.22 v1.5.0
-// .cs adopted
-// e: 2015.07.06 v1.5.1
-// Vertexedgeface changed ( options "Pt=..", "Sg=.." );
-// e: 2015.07.09 v1.5.2
-// Skeletonparadata debugged
-// e: 2015.07.16 v1.5.3
-// Skeletonparadata debugged
-// e: 2015.07.22 v1.5.4
-// Skeletonparadata debugged
-// e: 2015.08.11 v1.5.6
-// Fullformfunc added
-// e: 2015.08.14 v1.5.7
-// Spacecurve changed ( Msg option, tmpfn defined )
-// Start3d debugged ( FUNLIST initialized )
-// e: 2015.08.17
-// Spacecurve debugged
-// Subgraph debugged
-// e: 2015.10.04 v1.8.0
-// Sf3data, Sfbdparadata added
-// Ketinit3d changed ( Position of Th,Phi sliders)
-// e: 2015.10.05
-// Sfbdparadata changed
-// Crvsfparadata added
-// e: 2015.10.09 v1.8.1
-// Sfbdparadata,Crvsfparadata changed
-// e: 2015.10.10
-// Sf3data debugged
-// e: 2015.10.12 v1.8.2
-// Wireparadata, Intersectcrvsf added
-// e: 2015.10.19 v1.8.4
-// Concatobj added
-// Nohiddenbyseg changed ( optionh )
-// e: 2015.10.19 v1.8.5
-// Intersectcrvsf changed ( according to the mod of ReadOutData of Scilab)
-// Drawpoint3d changed ( for pointlist)
-// e: 2015.10.31 v2.0.0
-// Bugs fixed
-// Embed debugged
-// e: 2015.11.01 v2.0.1
-// Skeletonparadata changed to new version
-// ( old version renamed to Skeletonparadata2 )
-// e: 2015.11.03 v2.0.1
-// Subgraph debugged
-// e: 2015.11.05 v2.1.0
-// Start3d changed ( OutFileList reset )
-// e: 2015.12.16
-// VertexEdgeFace changed (help )
-// e:2016.01.24
-// Concatobj debugged ( major revision )
-// e:2016.01.30
-// geoseg3 => geoseg3d
-// e:2016.01.31
-// Skeletonparadata debugged
-// Start3d changed ( Arrow..counter reset )
-// e:2016.02.01
-// Skeletonparadata changed ( prec=4 )
-// Sfbdparadata changed ( precommandS added )
-// e:2016.02.02
-// IntersectsgpL changed ( for pointlist )
-// e:2016.02.02
-// Skeletonparadata debugged ( linestyle options )
-// e:2016.02.07
-// Dist3d added
-// e:2016.02.10
-// Partcrv3d added
-// Ketinit3d changed ( no display for sgTH,sgFI and TH,FI ,setwindow)
-// Spaceline changed ( for [A,B,C,...] )
-// Vertexedgeface changed ( for [A,B,C,...] )
-// Nohiddenbyfaces, Nohiddenbyseg changed
-// e:2016.02.11
-// Concatobj changed ( for duplicated point, removeface option )
-// e:2016.02.21
-// Nohiddenbyfaces debugged ( optionorg )
-// e:2016.02.22
-// Putonseg3d added
-// Spaceline changed ( name defined automatically when no name )
-// e:2016.02.23
-// Nohiddenbyfaces debugged
-// e:2016.02.28
-// Skeletonparadata debugged ( width option )
-// Concatobj changed ( for the list of points )
-// e:2016.02.29
-// Nohiddenbyfaces, Vertexedgeface debugged ( width option )
-// e:2016.03.02
-// Putpoint3d changed ( ("A",[1,2,3],"fix") is OK )
-// e:2016.03.30
-// Invparapt, InvparaptPp added
-// e:2016.04.07
-// Mkseg3d debugged
-// e:2016.04.08
-// Start3d changed (FigPdfList added )
-// e:2016.04.15
-// Spacecurve debugged ( option empty case )
-// e:2016.05.25
-// Sf3data debugged (parse in options )
-// Sfbdparadata, Wireparadata, Crvsfparadata debugged ( Sciform)
-///////// To Reverse Sequence ////////////////
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1.cs b/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1.cs
deleted file mode 100644
index bf9a81eb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1.cs
+++ /dev/null
@@ -1,4874 +0,0 @@
-// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
-//
-//This program is free software: you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 3 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program. If not, see <http://www.gnu.org/licenses/>
-//
-
-println("KETCindy V.3.0.2(2017.08.23)");
-println(ketjavaversion());//17.06.05
-println("ketcindylibbasic1(2017.08.23) loaded");
-
-//help:start();
-
-//help:drawimage([0,0],"picture.png",scale->2,alpha->0.4);
-//help:drawtext((2,1),"Text",size->2);
-//help:system(list=append(list,"a"););
-//help:system(list=concat(list,["a","b"]););
-//help:system(arccos,arcsin,arctan);
-//help:system(abs,round,floor,ceil);
-
-//help:Option1(["dr","dr,2","da","da,2,1","do","do,1,2"]);
-//help:Option2(["notex","nodisp","nodata"]);
-//help :Option3(["in","out","in-","out-"]);
-
-//help:getdirhead();
-//help:gedirhead("/Applications");
-//help:gedirhead("C:\Users\(username)");
-
-Ch=[0]; ChNum=1;
-
-Ketinit():=Ketinit(1);
-//help:Ketinit();
-Ketinit(sy):=Ketinit(sy,[-5,5],[-5,5]);
-Ketinit(sy,rangex,rangey):=(
- regional(pt,tmp,tmp1,tmp2,letterc,boxc,shadowc,mboxc,sep);
- PenThickInit=8;
- ULEN="1cm";
- MARKLEN=0.2; //16.11.01
- 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");
- CRmark=unicode("000d");//16.12.13
- 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
- // for Presentation
- letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
- shadowc=[0,0,0,0.5]; mboxc="yellow"; //17.03.02 regional debugged
- SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
- letterc,mboxc,mboxc,mboxc,62,2,letterc];
- ThinDense=0.1;//17.01.08
- if(indexof(PathS,"-6.")>0,//17.04.14from
- if(iswindows(),sep="\",sep="/");
- if((indexof(PathT,"pdflatex")==0)&(indexof(PathT,"lualatex")==0),
- Libname=Dirlib+sep+"ketpicscifiles6";
- ,
- Libname=Dirlib+sep+"ketpic2escifiles6";
- );
- );//17.04.14upto
-);
-
-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]));
- Putpoint("SW",Pcrd([XMIN,YMIN]));
- Putpoint("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;
- Putpoint("SW",Pcrd([XMIN,YMIN]));//17.05.30
- Putpoint("NE",Pcrd([XMAX,YMAX]));//17.05.30
-// Ketinit();
-);
-
-Setfiles(file):=( // 17.01.16
-//help:Setfiles(file);
- Fhead=file;
- Fnametex=Fhead+".tex";
- Fnamesci=Fhead+".sce";
- Fnamescibody=Fhead+"body.sce";
- Fnameout=Fhead+".txt";
-);
-
-Setcindyname():=Setcindyname("");//16.12.25
-Setcindyname(file):=(
-//help:Setcindyname("Fhead");
-//help:Setcindyname(<only when on the terminal "ketcindy/cindy.sh "+file>);
- regional(tmp,tmp1,tmp2);
- setdirectory(Dirhead);
- CindyPathName="";
- CindyFileName="";
- CindyPathName=load("cindypath.txt");
- tmp2=load("cindyfile.txt");
- tmp2=replace(tmp2,".cdy","");
- if(length(tmp2)>0,
- CindyFileName=tmp2;
- if(length(file)>0,
- tmp=file+"="+DqDq(tmp2);
- parse(tmp);
- println(file+" set to "+DqDq(tmp2));
- );
- ,
- println("set "+file+" manually");
- );
- setdirectory(Dirwork);
- CindyFileName;
-);
-
-Cindypath():=( // 16.12.26
-//help:Cindypath();
- regional(out);
- CindyPathName="";
- setdirectory(Dirhead);
- CindyPathName=load("cindypath.txt");
- setdirectory(Dirwork);
- if(length(CindyPathName)==0,
- out=Dirwork;
- ,
- out=CindyPathName;
- );
- println(" path name="+out);
- out;
-);
-
-Cindyfile():=( // 16.12.26
-//help:Cindyfile();
- regional(out);
- CindyFileName="";
- setdirectory(Dirhead);
- out=load("cindyfile.txt");
- out=replace(out,".cdy","");
- setdirectory(Dirwork);
- CindyFileName=out;
- println(" file name="+out);
- out;
-);
-
-DqDq(str):=unicode("0022")+str+unicode("0022");
-
-Tab2list(dtstr):=Tab2list(dtstr,[]);
-Tab2list(dtstrorg,options):=(
-//help:Tab2list(datastr);
-//help:Tab2list(options=["Blank=(null)","Sep=tab"]);
- regional(dtstr,dtall,dt,rep,out,crm,lfm,htm,first,eqL,sep,
- tmp,tmp1,tmp2);
- crm=unicode("000d");
- lfm=unicode("000a");
- htm=unicode("0009");
- tmp=Divoptions(options);
- eqL=tmp_5;
- rep="";
- sep=htm;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="B",
- tmp1="0123456789+-."; // 16.09.28from
- tmp=substring(tmp2,0,1);
- if(indexof(tmp1,tmp)>0,rep=parse(tmp2),rep=tmp2); // 16.09.28upto
- );
- if(tmp1=="S", // 16.12.04
- if(tmp2!="tab",sep=tmp2);
- );
- );
- first=lfm; // 16.09.05from
- if(indexof(dtstr,crm)>0,
- first=crm;
- if(indexof(dtstr,crm+lfm)>0,
- first=first+lfm;
- ); // 16.09.05upto
- );
- dtstr=dtstrorg;// 16.09.19from
- tmp=substring(dtstr,length( dtstr)-1,length(dtstr));
- if(tmp!=lfm,
- dtstr=dtstr+first;
- );// 16.09.19upto
- 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,sep); //16.12.04
- 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();
-);
-
-Sep1000(va):=( //17.07.18
-//help:Sep1000(1344555);
-//help:Sep1000([12456,55567]);
- regional(str,nall,out);
- if(islist(va),
- out=apply(va,Sep1000(#));
- ,
- str=text(va);
- nall=length(str);
- out="";
- forall(1..nall,
- out=str_(nall+1-#)+out;
- if((#<nall)&(mod(#,3)==0),
- out=","+out;
- );
- );
- );
- out;
-);
-
-factorial(n):=(
-//help:factorial(5);
- regional(out);
- out=1;
- forall(1..n,
- out=out*#;
- );
- out;
-);
-
-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;
-);
-
-Parlevel(str):=Bracket(str); // 16.05.22from
-Bracket(str):=Bracket(str,"()");
-Bracket(str,br):=(
-//help:Bracket(string,"()");
- regional(ph,pt,out,noL,ncL,nall,level,tmp);
- ph=substring(br,0,1);
- pt=substring(br,1,2);
- noL=Indexall(str,ph);
- ncL=Indexall(str,pt); // 16.05.22upto
- nall=sort(concat(noL,ncL));
- level=0;
- out=[];
- forall(nall,
- if(contains(noL,#),
- level=level+1;
- tmp=[#,level];
- ,
- tmp=[#,-level];
- level=level-1;
- );
- out=append(out,tmp);
- );
- out;
-);
-
-Pardiagram(str):=Pardiagram(str,[20]);
-Pardiagram(str,options):=(
-//help:Pardiagram(exprstr);
-//help:Pardiagram(options=[20,"Disp=y","Fig=y"]);
- regional(reL,eqL,len,disp,scheme,bra,nn,sta,out,
- opos,cpos,all,dx,dh,mxh,start,nn,p1,p2,p3,p4,tmp,tmp1,tmp2,tmp3);
- len=20;
- disp=1;
- scheme=1;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="D",
- if(tmp2=="N" % tmp2=="F",disp=0);
- );
- if(tmp1=="F",
- if(tmp2=="N" % tmp2=="F",scheme=0);
- );
- );
- forall(reL,
- len=#;
- );
- bra=Bracket(str);
- tmp1=select(bra,#_2>0);
- tmp2=select(bra,#_2<0);
- out=[];
- forall(1..(length(tmp1)),nn,
- sta=tmp1_nn;
- tmp=select(tmp2,#_2==-sta_2 & #_1>sta_1);
- tmp=tmp_1;
- out=append(out, [substring(str,sta_1-1,tmp_1),
- nn,sta_2,sta_1,tmp_1,
- substring(str,sta_1-1,sta_1+len-1),
- substring(str,tmp_1-len,tmp_1)] );
- );
- if(disp==1,
- println("Printing from 2 to 7. (Extract full string using _1)");
- apply(out,println(#_(2..7)));
- );
- if(scheme==1,
- opos=sort(apply(out,#_4));
- cpos=sort(apply(out,#_5));
- tmp=concat(opos,cpos);
- all=sort(tmp);
- mxh=max(apply(out,#_3));
- dx=1;
- dh=1;
- start=[-5,5];
- forall(1..(length(all)),nn,
- tmp=select(out,#_4==all_nn);
- if(length(tmp)>0,
- tmp1=tmp_1_3;
- tmp2=tmp_1_4;
- tmp3=tmp_1_5;
- tmp=select(1..(length(all)),all_#==tmp3);
- tmp4=tmp_1;
- p1=start+[(nn-1)*dx,-0.5];
- p2=p1+[0,(tmp1-mxh-1)*dh];
- p3=p2+[(tmp4-nn)*dx,0];
- p4=p3+[0,(mxh+1-tmp1)*dh];
- Listplot("ch"+text(nn),[p1,p2,p3,p4],["Message=n"]);
- Letter([p2,"s",text(tmp2),p3,"s",text(tmp3)]);
- tmp=select(1..(length(opos)),opos_#==tmp2);
- tmp=tmp_1;
- if(tmp==1,
- tmp=substring(str,tmp2-1,tmp2);
- ,
- if(opos_(tmp-1)==opos_tmp-1,
- tmp=substring(str,tmp2-1,tmp2);
- ,
- tmp=substring(str,tmp2-2,tmp2);
- );
- );
- tmp=replace(tmp,"^","**");
- Expr(p1,"n",tmp);
- tmp=select(1..(length(cpos)),cpos_#==tmp3);
- tmp=tmp_1;
- if(tmp==length(cpos),
- tmp=substring(str,tmp3-1,tmp3);
- ,
- if(cpos_(tmp+1)==cpos_tmp+1,
- tmp=substring(str,tmp3-1,tmp3);
- ,
- tmp=substring(str,tmp3-1,tmp3+1);
- );
- );
- tmp=replace(tmp,"^","**");
- Expr(p4,"n",tmp);
- );
- );
- );
- out;
-);
-
-Changelib(path):=(
- Dirlib=path;
- setdirectory(Dirlib);
- import("ketcindyset.txt");
- setdirectory(Dirwork); // 16.04.23
-);
-
-Changework(path):=( //16.10.21
-//help:Changework(directory);
- regional(tmp);
- if(path=="" % !isexists(path,""),
- println("Directory "+path+" not exist, so set to "+Dirwork);
- ErrFlag=-1;
- ,
- Dirwork=path;
- setdirectory(Dirwork);
- if(!iswindows(), //17.04.11
- if(!iskcexists(Dirwork),
- SCEOUTPUT = openfile(Shellparent);
- closefile(SCEOUTPUT);
- println(setexec(Dirwork,Shellparent));
- );
- );
- );
-);
-
-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)%(indexof(#,"Shade")>0)); // 15.05.23,16.12.13
- 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;
-);
-
-Finddef(G):=(
- regional(def,tmp,tmp1,tmp2,tmp3);
- if(isstring(G),tmp=parse(G),tmp=G);
- def=text(inspect(tmp,"definition"));
- tmp1=indexof(def,"(");
- tmp2=indexof(def,";");
- tmp3=indexof(def,")");
- tmp=[substring(def,0,tmp1-1)];
- if(tmp2>0,
- tmp=append(tmp,substring(def,tmp1,tmp2-1));
- if(indexof(def,")",tmp3+1)==0,
- tmp=append(tmp,substring(def,tmp2,tmp3-1));
- ,
- tmp=append(tmp,substring(def,tmp2,tmp3));
- );
- ,
- tmp=append(tmp,substring(def,tmp1-1,tmp3));
- );
- tmp;
-);
-
-Findgeoinfo(geo):=(
- regional(out,tmp,tmp1,tmp2);
- tmp=Finddef(geo);
- if(ispoint(parse(tmp_2)),
- out=[tmp_2,tmp_3];
- ,
- tmp1=Findgeoinfo(parse(tmp_2));
- if(ispoint(parse(tmp1_1)),
- out=[tmp1_1,tmp1_2];
- ,
- tmp2=Findgeoinfo(parse(tmp1_2));
- out=[tmp2_1,tmp2_2];
- );
- );
- if(ispoint(geo),
- if(!ispoint(parse(tmp_2)),
- tmp1=Finddef(parse(tmp_2));
- ,
- tmp1=tmp;
- );
- out=append(out,tmp1_3);
- ,
- out=append(out,tmp_3);
- );
- out;
-);
-
-Dependgeo(geo):=(
- regional(tmp,tmp1,tmp2,out);
- tmp=Finddef(geo);
- if(!iscircle(geo),
- out=[text(geo)];
- ,
- out=[geo];
- );
- if(length(tmp)<3,
- out=concat(out,[tmp_1,[]]);
- ,
- out=concat(out,[tmp_1]);
- tmp1=[tmp_2,tmp_3];
- tmp=parse(tmp1_2);
- if(islist(tmp) % isreal(tmp),
- tmp1=[tmp1_1];
- );
- out=append(out,tmp1);
- );
- out;
-);
-
-Workprocess():=Workprocess(300);
-Workprocess(nn):=Drawprocess(nn);
-Drawprocess():=Drawprocess(300);
-Drawprocess(nn):=(
-//help:Workprocess();
- regional(All,added,remain,out,flg,tmp,tmp1,tmp2);
- tmp=remove(allpoints(),[NE,SW,TH,FI]);
- tmp1=select(tmp,
- substring(text(#),length(text(#))-1,length(text(#)))!="z");
- tmp1=concat(tmp1,alllines());
-// tmp1=concat(tmp1,allcircles());
- All=apply(tmp1,Dependgeo(#));
- added=select(All,length(#_3)==0);
- out=sort(apply(added,#_1));
- remain=remove(All,added);
- flg=0;
- repeat(nn,
- if(flg==0,
- tmp1=select(remain,remove(#_3,out)==[]);
- tmp2=sort(apply(tmp1,#_1));
- out=concat(out,tmp2);
- remain=remove(remain,tmp1);
- if(length(remain)==0,flg=1);
- );
- );
- println("Process of drawing");
- forall(out,
- println(Dependgeo(parse(#)));
- );
- out;
-);
-
-Sortpointlist(list):=(
- regional(plist,ilist,jj,kk,flg,p1,p2,in1,in2,
- tmp,tmp1,tmp2,out);
- out=list;
- plist=list_1;
- ilist=list_2;
- flg=0;
- forall(1..(length(plist)),jj,
- p1=plist_jj;
- in1=ilist_jj;
- forall((jj+1)..(length(plist)),kk,
- if(flg==0,
- p2=plist_kk;
- in2=ilist_kk;
- if(contains(in1,p2),
- tmp1=plist_(1..(jj-1));
- tmp1=append(tmp1,p2);
- tmp1=concat(tmp1,plist_((jj+1)..(kk-1)));
- tmp1=append(tmp1,p1);
- tmp1=concat(tmp1,plist_((kk+1)..(length(plist))));
- tmp2=ilist_(1..(jj-1));
- tmp2=append(tmp2,in2);
- tmp2=concat(tmp2,ilist_((jj+1)..(kk-1)));
- tmp2=append(tmp2,in1);
- tmp2=concat(tmp2,ilist_((kk+1)..(length(plist))));
- out=Sortpointlist([tmp1,tmp2]);
- flg=1;
- );
- );
- );
- );
- out;
-);
-
-Toupper(str):=(
-//help:Toupper("Abc");
- 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), // 17.03.12from
- if(isstring(value),
- vv=value;
- ,
- vv=Textformat(value,dig);
- ); // 17.03.12from
- 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(str):=( // old
- regional(out);
- out=str;
- forall(VLIST,
- tmp=substring(#_1,0,length(#_1)-1);
- out=replace(out,tmp,"("+#_2+")");
- );
- out;
-);
-
-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,6)+")");
- // 15.02.09, 07.06,17.08.24
- 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,tmp1,Depth,Flg);
- Flg=0;
- Depth=0;
- if(ispoint(list), // 15.01.22
- Depth=0;
- Flg=1;
- ,
- tmp1=select(1..(length(list)),length(list_#)>0);//17.05.21from
- tmp=list_(tmp1_1);//17.05.21upto
- );
- 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");
-//help:IntersectcrvsPp(options=[Eps2(0.1),"Dif=0.05"]);
- 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)),//16.11.27,
- |Out_#_1-Tmp2_1|<Dif & |Out_#_2-Tmp2_2|<=1& |Out_#_3-Tmp2_3|<=1);
- //17.04.13
- if(length(Tmp3)==0,
- Out=append(Out,Tmp2);
- ,
- forall(Tmp3, //16.11.27
- Out_#_1=(Out_#_1+Tmp2_1)/2;//17.04.14
- );
- );
- ); // 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(options=["Rule=o"]);
- 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, // 16.09.25
- if(list_1_1>list_(length(list))_1, //16.11.03
- 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);
-);
-
-Com0th(String):=(
- regional(str);
- str=replace(String,LFmark,"");
- COM0thlist=append(COM0thlist,str);
-);
-
-Com1st(String):=(
- regional(str);
- str=replace(String,LFmark,"");
- GLIST=append(GLIST,str); // 15.05.27
-// COM1stlist=append(COM1stlist,str);
-);
-
-Com2nd(String):=(
-// help:Com2nd("");
- regional(str);
- str=replace(String,LFmark,"");
- COM2ndlist=append(COM2ndlist,str);
-);
-
-Com2ndpre(String):=(
- regional(str);
- str=replace(String,LFmark,"");
- COM2ndlist=prepend(str,COM2ndlist);
-);
-
-Texcom(String):=(
-//help:Texcom("\color[cmyk]{0,0,0,0.5}");
- regional(str);
- str="Texcom("+Dq+String+Dq+")";
- Com2nd(str);
-);
-
-Ketcindylogo():=(
-//help:Ketcindylogo();
- Com2nd("Texcom("+Dq+"\def\ketcindy{{K\kern-.20em
- \lower.5ex\hbox{E}\kern-.125em{TCindy}}}"+Dq+")");
-);
-
-Drwline():=Drwline(textformat(GrL,5));
-Drwline(gstr):=(
- Com2nd("Drwline("+gstr+")");
-);
-
-Dashline(gstr):=(
- Com2nd("Dashline("+gstr+")");
-);
-
-Invdashline(gstr):=(
- Com2nd("Invdashline("+gstr+")");
-);
-
-Dottedline(gstr):=(
- Com2nd("Dottedline("+gstr+")");
-);
-
-SetEnglish():=(
-//help:SetEnglish();
- Com0th("setlanguage('en')");
-);
-
-Drawlinetype(name,type):=(
-//help:Drawlinetype("gr1","da,1");
- regional(Dop,tmp,tmp1,tmp2);
- Dop="";
- tmp1=indexof(type,",");
- if(tmp1>0,
- Dop=","+substring(type,tmp1,length(type));
- );
- tmp1=Toupper(substring(type,0,3));
- if(tmp1=="DR",
- Drwline(name+Dop);
- );
- if(tmp1=="DA",
- Dashline(name+Dop);
- );
- if(tmp1=="ID",
- Invdashline(name+Dop);
- );
- if(tmp1=="DO",
- Dottedline(name+Dop);
- );
-);
-
-Setunitlen(string):=(
-//help:Setunitlen("5mm");
- ULEN=string;
- GLIST=append(GLIST,"Setunitlen("+Dq+string+Dq+")");
-);
-
-Setmarklen(ratio):=(
-//help:Setmarklen(0.2);
- MARKLEN=ratio*0.2;//16.11.01
- Com2nd("Setmarklen("+textformat(ratio,5)+")");
-);
-
-Setorigin(point):=(
-//help:Setorigin([1,2]);
- Com2nd("Setorigin("+textformat(point,5)+")");
-);
-
-Fontsize(sizestr):=(
-//help:Fontsize("s");
- Com2nd("Fontsize('"+sizestr+"')");
-);
-
-Setpen(width):=(
-//help:Setpen(2);
- PenThick=PenThickInit*width; // 16.04.09
- Com2nd("Setpen("+text(width)+")");
-);
-
-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;
-);
-
-Setpt(n):=Ptsize(n);
-//help:Setpt(5);
-Ptsize(n):=(
- println("Setpt("+text(n)+")");
- TenSize=TenSizeInit*n;
- Com2nd("Setpt("+text(n)+")"); // 14.01.19
-);
-
-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():=Framedata(["dr"]);//16.10.29from
-Framedata(list):=(
- regional(pA,pB);
- if(MeasureDepth(list)==0,
- pA=LLcrd((SW+NE)/2); // 15.09.17
- pB=LLcrd(NE);
- Framedata("win",[pA,pB],list);
- ,
- Framedata(list,[]);
- );
-);//16.10.29upto
-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([C,A]);
-//help:Framedata("1",[C,A]);
-//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);
- );
- 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;
- Bpos="md"+name;
- 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(");
- 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=[];
- if(ra>min(|sab|,|sac|), // 16.12.29
- println(" segments too short");
- ,
- forall(0..Num,
- Th=Rg_1+#*(Rg_2-Rg_1)/Num;
- Out=append(Out,Ctr+ra*[cos(Th),sin(Th)]);
- );
- Th=(Rg_1+Rg_2)/2; //16.10.31from(moved)
- tmp1=Ctr+Brat*ra*[cos(Th),sin(Th)];
- tmp="Defvar("+Dq+Bpos+"=";
- tmp=tmp+textformat(tmp1,5)+Dq+");";
- parse(tmp);//16.10.31upto(moved)
- if(length(Bname)>0,
- parse(Bname);
- );
- if(Noflg<3,
- println("generate anglemark "+name+" and "+Bpos);
- 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(Arg1,Arg2):=( // 17.03.27 from
- regional(nm,plist,options,tmp);
- if(isstring(Arg1),
- nm=Arg1;
- plist=Arg2;
- Paramark(nm,plist,[]);
- ,
- plist=Arg1;
- options=Arg2;
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- nm=substring(tmp,1,length(tmp)-1);
- Paramark(nm,plist,options);
- );
-);// upto
-Paramark(nm,plist,options):=(
-//help:Paramark([A,B,C],["E=\theta"]);
-//help:Paramark("1",[p1,p2,p3],["E=\theta"]);
- regional(name,Out,pB,pA,pC,ra,sab,sac,ratio,opstr,Bname,Bpos,
- Brat,tmp,tmp1,tmp2,Ltype,Noflg,eqL,realL,opcindy);
- name="pm"+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;
- 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);
- if(islist(plist), // 16.12.04from
- tmp=textformat(plist,5);
- tmp=replace(tmp,",","");
- nm=substring(tmp,1,length(tmp)-1);
- Bowdata(nm,plist,options);
- ,
- nm=plist;
- tmp=options;
- Bowdata(nm,tmp,[]);
- ); // 16.12.04upto
-);
-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]);
- );
-);
-
-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) & !islist(Arg1),
- 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="tvar="+tmp_2; //17.02.26
- if(isreal(initf) & !islist(initf),
- 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]);
- );
- );
- if(outstr!="Sci",pdL); // 17.02.17
-);
-
-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^(-5); // 16.12.05
- EEps=0.05;
- 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.11.07from
- tmp1="list(";
- forall(plist,
- tmp1=tmp1+#+",";
- );
- tmp=tmp+substring(tmp1,0,length(tmp1)-1)+")"+opstr+")";
- GLIST=append(GLIST,tmp);//16.11.07upto
- // GLIST=append(GLIST,"Tmp=[]"); // 16.11.05from
-// nn=floor(length(AnsL)/20);
-// forall(1..nn,ii,
-// tmp=AnsL_(((ii-1)*20+1)..(ii*20));
-// tmp=apply(tmp,LLcrd(#));
-// tmp="Tmp=[Tmp,"+textformat(tmp,5)+"]";
-// GLIST=append(GLIST,tmp);
-// );
-// if(length(AnsL)>nn*20,
-// tmp=AnsL_((nn*20+1)..(length(AnsL)));
-// tmp=apply(tmp,LLcrd(#));
-// tmp="Tmp=[Tmp,"+textformat(tmp,5)+"]";
-// GLIST=append(GLIST,tmp);
-// );
-// GLIST=append(GLIST,name+"=Listplot(Tmp)"); // 16.11.05upto
- );
- 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:end();
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1log.txt b/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1log.txt
deleted file mode 100644
index cf775fa8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic1log.txt
+++ /dev/null
@@ -1,647 +0,0 @@
-// s:2017.08.23
-// Help of getdirhead changed
-// s:2017.07.19
-// Sep1000 added;
-// s:2017.07.03
-// Deqplot debugged ( )); )
-// s:2017.06.26
-// Ch added at the first line
-// s:2017.06.19
-// factorial added
-// s:2017.06.05
-// Ketinit changed (ketjavaversion added)
-// s:2017.05.21
-// Ketinit() debugged (Ch removed to setketcindy.txt)
-// MeasureDepth debugged (in the case of null list)
-// s:2017.05.18
-// Ketinit() debugged (Chnum => ChNum)
-// s:2017.05.16
-// Ketinit() changed (Ch added)
-// s:2017.05.15
-// C command for surface drawing are added (partly)
-// s:2017.04.14
-// IntersectcrvPp debugged ( in samepoint )
-// Ketinit changed ( to change Libname for scilab6 )
-// s:2017.04.10(all)
-// Buttons can be removed
-// s:2017.04.08
-// bugs fixed
-// e: 2017.03.27
-// Paramark changed ( name supported)
-// e: 2017.03.12
-// Sprintf changed ( for string input )
-// e: 2017.03.02
-// Ketinit debugged ( regional changed from bodyc to mboxc)
-// e: 2017.02.26
-// Deqplot debugged ( "t=" changed to "tvar=" )
-// e: 2017.02.17
-// Deqplot debugged ( for data output for "nodata" )
-// e: 2017.01.16
-// Setfiles added (Fhead,Fnamesci, Fnametex )
-// e: 2017.01.09
-// Ketinit changed ( slidecolor )
-// e: 2017.01.08
-// Ketinit changed ( for presentation )
-// e: 2016.12.29
-// Anglemark changed ( for too short segment )
-// e: 2016.12.26
-// Cindypathname,Cindyfilename added
-// e: 2016.12.25
-// Setcindyname added
-// Only avalable when Cinderella has been started in terminal mode.
-// e: 2016.12.22
-// Changework changed ( ErrFlg=-1 if path not exists )
-// e: 2016.12.13
-// Changestyle changed ( "Shade" not removed from COM2ndlist)
-// Ketinit change ( CRmark added);
-// e: 2016.12.04
-// Bowdata debugged ( for 3 arguments )
-// Tab2list ( sep option added )
-// e: 2016.11.27
-// IntersectcrvsPp Changed ( for adjacent points )
-// e: 2016.11.22
-// Ovaldata debugged ( Double written to GLIST)
-// e: 2016.11.07
-// Enclosing changed ( back to old version)
-// e: 2016.11.05
-// Enclosing debugged
-// e: 2016.11.03
-// Integrate(0) debugged
-// e: 2016.11.01
-// Bowdata changed ( "Expr(rot)=t0n1(r),a" )
-// e: 2016.10.31
-// Bowdata,Anglemark changed ( Bpos )
-// e: 2016.10.30
-// Bowdata debugged ( Bname )
-// e: 2016.10.29
-// Framedata changed ( option for window size )
-// Anglemark debugged ( Bname )
-// e: 2016.10.21
-// Changework changed
-// e: 2016.10.20
-// Arrowdata debugged ( Scaling )
-// Enclosing debugged ( data passed directly )
-// e: 2016.10.19
-// Changework changed ( Case that directory not exists, java "iskcexists" )
-// e: 2016.10.16
-// ParamonCurve debugged (scaling)
-// e: 2016.10.14
-// Deqplot debugged (mistake of formula)
-// e: 2016.10.10
-// Arrowdata debugged ( for scaling)
-// e: 2016.10.07
-// Listplot,Lineplot,Circledata Framedata changed ( auto naming)
-// Polygonplot changed ( Putpoint )
-// Divoptions changed ( opcindy)
-// e: 2016.10.02
-// Changework debugged ( Fnametex)
-// e: 2016.09.28
-// tab2list debugged ( for option "Blank" )
-// e: 2016.09.25
-// small bug-fix
-// IntegrateO debugged
-// e: 2016.09.19
-// Tab2list changed ( for numbers / mac )
-// e: 2016.09.16
-// Dispmat added
-// e: 2016.09.01
-// Tab2list, Columnlist added
-// e: 2016.09.01
-// norm added
-// e: 2016.08.15
-// DqDq added
-// e: 2016.07.30
-// Changework changed (Dq)
-// e: 2016.07.23
-// Changework changed
-// e: 2016.07.21
-// basic2 : makeshell,makebat changed
-// e: 2016.06.28
-// StringinPar changed ( Chart implemented )
-// StringPar renamed to Pardiagram ( Chart => Fig )
-// Listplot changed (Message option 2chars => 1char)
-// e: 2016.06.23
-// StringinPar added
-// e: 2016.06.07
-// Mackc added
-// Changework changed (iskcexists )
-// e: 2016.06.06
-// Changework changed ( "c" removed )
-// e: 2016.06.04
-// Ketinit, Changework changed (kc )
-// setketcindy.txt changed , kc changed in KetcindyPlugin
-// e: 2016.05.31
-// Ketinit() changed ( Setwindow message=n )
-// e: 2016.05.29
-// Ketinit() changed ( for /Users )
-
-
-//////////////////
-// s: 2014.12.01 v1.0.0
-// e: 2014.12.03 v1.0.1
-// e: 2014.12.05 v1.0.2
-// Paramplot debugged ( negative number )
-// e: 2014.12.09 v1.1.0
-// Setscaling changed ( Setwindow() added )
-// Arrowdata debugged ( Arrowhead options )
-// Arrowheadata debugged (Scaling )
-// Writetosci changed (XMIN,... assigned )
-// Coordinate System changed
-// Pcrd used for GCLIST, Lcrd used calculating
-// Extractdata added
-// Plotdata debugged (Exc option)
-// Assign added
-// Plotdata, Paramplot changed ( Assign used )
-// e: 2014.12.11
-// Circledata through 3 pts supported
-// e: 2014.12.14
-// ReadOutData changed ( for 3d )
-// e: 2014.12.16 v1.1.1
-// nodata option added
-// Makeshell added
-// e: 2014.12.17
-// Extractdata changed (GLIST )
-// e: 2014.12.18
-// Exptractdata changed ( case of list length==1)
-// Integrate changed ( for scaling )
-// IntersectcrvPhy, Intersectcrv, Meetcurve changed ( for scaling)
-// Arrowheaddata debugged ( for scaling )
-// e: 2014.12.19
-// Windispg changed ( empty case )
-// hatchdata changed ( Extractdata used )
-// e: 2014.12.20
-// Assign debugged ( case of .x )
-// Plotdata, Paramplot changed ( Num changed to number of intervals )
-// e: 2014.12.21
-// ReadOutData changed ( comment if headchar="#" )
-// e: 2014.12.22
-// Windispg changed ( case of empty data )
-// ReadOutData debugged
-// Flattenlist, WriteOutData added
-// e: 2014.12.24
-// Divoptions added
-// Addgraph added ( need to be revised )
-// e: 2014.12.27
-// Dotprod, Crossprod moved from 3dlib
-// BezierCurve added
-// e: 2014.12.28
-// Bezier changed (2 & 3 )
-// e: 2014.12.30
-// ViewTeX added
-// Bezier changed ( choosable 2/3 )
-// Hatchdata debugged ( iostr to list )
-// v1.1.3
-// e: 2014.12.31
-// Bezier changed ( varirous forms of Num, ctrlist usable)
-// Pointdata changed ( opcindy supported )
-// e: 2015.01.01
-// Bezier(list) supported ([ptlist,ctrlist,name]);
-// Readpcsvsla, Putbezierdata added
-// e: 2015.01.02
-// Bezier changed ( corresponded to Bezier in ketsciL5.1.4 )
-// Mkbezierptcrv added
-// e: 2015.01.03
-// Mkbeziercrv added
-// Putbezierdata changed (option "Size=")
-// BezierNumber added to Ketinit
-// Mkbezierptcrv changed ( ptctrLL returned )
-// Shade changed ( case of not defined yet )
-// e: 2015.01.04 v1.1.4
-// ketcindylogo added
-// e: 2015.01.05
-// CRspline added
-// e: 2015.01.05
-// CRspline changed ( "Rat=" added )
-// Com2ndpre added ( ex) shade
-// e: 2015.01.07
-// Com2ndpre added
-// Shade changed ( Com2ndpre used );
-// Bzspline added
-// e: 2015.01.08
-// Shade (Com2nd ) restored
-// Bzsspline added
-// Bspline added ( Usui )
-// e:2015.01.11
-// Beziersmooth, Beziersym = Bzspline, Bzsspline
-// Arrowheaddata,Arrowhead, Arrowdata changed ( option etc)
-// e: 2015.01.12
-// Setunitlen changed (added to GLIST )
-// e: 2015.01.13
-// Makeshell, Makebat changed ( case of Texmain=="");
-// Divoptions used for options of all commands
-// e: 2015.01.14
-// Arrowhead debugged
-// e: 2015.01.15
-// Makesh, Makebat debugged and changed ( Warning message )
-// e: 2015.01.17
-// WriteOutData changed ( list of Gname permitted)
-// e: 2015.01.20
-// Setpt changed ( written to COM2nd )
-// AddGraph debugged & changed
-// e: 2015.01.22
-// AddGraph changed ( for, stringdata, for pointdata)
-// MeasureDepth changed ( singlepoint =0)
-// Mkbezierptcrv changed (label of points )
-// Setcolor changed ( Setcolor (ketpic)command supported)
-// e: 2015.01.27
-// Plist, Vlist changed (format(. , 5 ) used )
-// e: 2015.01.31
-// Windispg(pltlist) added (changed from Windispg(GoutL))
-// e: 2015.02.05
-// format(.., 5) changed ( to remove "i" )
-// e: 2015.02.06
-// Defvar(name,value) changed (parse executed )
-// WritetoSci changed ( VLIST )
-// e: 2015.02.08
-// Defvar(name,value) debugged
-// Bezierpt changed ( available for 3d )
-// e: 2015.02.09
-// Changestyle, ChangeTablestyle, Textformat added
-// Assign changed (Textformat used )
-// e: 2015.02.13
-// Tabledata, Putpttable changed ( made from up to down )
-// e: 2015.02.14
-// Putpttable changed ( R0 fixed )
-// e: 2015.02.15
-// Putpttable debugged
-// Mksegments, Mkcircles added
-// PtonLine, PtonSeg added
-// e: 2015.02.16
-// Finddef added
-// e: 2015.02.18
-// Rotatedata,... debugged ( for pdlist )
-// e: 2015.02.19
-// Findgeoinfo,Sortpointlist added
-// e: 2015.02.21
-// Pointdata changed ( for non list, and "size=" added )
-// e: 2015.02.22
-// Letter, Expr changed ( ` )
-// PtonLine,... renamed to PutonLine,..
-// Pne, Psw renamed to NE, SE
-// e: 2015.02.23
-// help(example) added
-// Mkbezierptcrv changed ( available for BezierNumber >26)
-// Makehelplist,Makecmdlist,Savecmdlist,Quicksort,Lessstr added
-// Helplist,Help added
-// e: 2015.02.24
-// Help ( PointonCurve ) revised
-// e: 2015.02.25 v1.2.1
-// Helplist changed
-// Dependgeo, Viewprocess added
-// e: 2015.02.27
-// Drawprocess renamed to Workprocess
-// Help changed ( Capital transform quitted )
-// e: 2015.02.28
-// Makecmd changed ( Dirlb )
-// Mkbezierptcrv debugged ( name )
-// Shade changed ( err message removed )
-// system help added
-// e: 2015.03.05
-// CRspline changed (cinderella options available )
-// e: 2015.03.06 v1.2.2
-// Findarea added
-// e: 2015.03.07
-// Findlength added
-// e: 2015.03.11 v1.2.3
-// Mkbezierptcrv changed ( A,... => a,... )
-// e: 2015.03.12
-// Bowdata debugged
-// e: 2015.03.24 v.1.2.4
-// Listplot changed ( for stringdata )
-// e: 2015.03.25
-// Enclosing changed ( implemented to Cindy )
-// e: 2015.04.06 v.1.2.5
-// Ketinit changed ( for Fhead not defined )
-// IntersectcrvsPp changed ( Dif option added )
-// EnclosingS changed
-// Letter, Expr changed ( options "nodisp" )
-// Textformat changed ( for point )
-// text => textformat
-// e: 2015.04.10 v.1.2.6
-// Textformat debugged
-// Writetosci changed ( ThisVersion written )
-// e: 2015.04.12
-// Anglemark debugged
-// Bowdata debugged
-// Ptend debugged
-// e: 2015.04.20 v1.2.7
-// Enclosing debugged
-// e: 2015.04.21
-// Setcolor changed (for [c,m,y,k] )
-// e: 2015.04.28 v1.2.8
-// Setcolorrgb added
-// Setcolor changed ( KCOLOR abolished )
-// e: 2015.05.04
-// Toupper, Definecolor added
-// e: 2015.05.11 v1.3.1
-// Widispg(Pdata) debugged
-// Framedata changed ( for Findcell )
-// e: 2015.05.15
-// Writesci changed (arccos,.. added )
-// Plotdata, Paramplot changed (for out/in )
-// Deqplot added ( only executed externally )
-// Hatchdata changed ( in and out executed as default)
-// Writetosci changed ( load only if the file exists )
-// e: 2015.20 v1.3.2
-// Framedata debugged
-// Plotdata,Paramplot changed (for outdata )
-// Divoptions changed (Out-, In- supported )
-// e: 2015.21 v1.3.3
-// Tabledatalight, Tablelightseg added
-// Tablelightdata, Tgrid, Tseginfo, Tlistplot, Tsegrmv added
-// Putcell, ChangeTablestyle changed ( for Tabledatalight )
-// Help changed ( Description added with ? )
-// e: 2015.23 v1.3.3
-// Helplist changed ( fileslist is not to be added )
-// Tabledata changed (similar to Tabledatalight )
-// Findcell debugged
-// Changestyle debugged
-// Changetablestyle changed
-// e: 2015.05.26 v1.4.1
-// Help of Hatchdata changed
-// Removespace added
-// Drawlinetype added
-// e: 2015.05.27 v1.4.1a
-// Com1st changed ( string is added to GLIST )
-// e: 2015.05.31 v1.4.2
-// Divoptions debugged
-// IntersectcrvsPp debugged (Dif -> 0.05 )
-// e: 2015.0602 v1.4.3
-// Divoptions debugged
-// e: 2015.06.02 v1.4.4
-// Writetosci changed ( for C version )
-// e: 2015.06.03 v1.4.5
-// Tlistplot changed ( for more than 2 points )
-// e: 2015.06.11
-// Talbedata debugged ( Setwindow )
-// Arrowdata changed ( listplot )
-// e: 2015.06.20 v1.4.6
-// Helplist debugged
-// e: 2015.06.22 v1.5.0
-// .cs adopted
-// Helplist changed
-// Makeshell, Makebat changed ( "..." )
-// e: 2015.07.06 v1.5.1
-// helpJ slighty changed
-// Assign debugged
-// Depplot changed ( realtime )
-// e: 2015.07.15
-// Presentation, Mkslides added
-// e: 2015.07.16 v 1.5.3
-// Mksh, Mkbat slightly changed
-// Hatchdata changed ( for "nodisp" )
-// e: 2015.07.21 v 1.5.4
-// Presendata changed ( for preample)
-// e: 2015.07.25
-// Pcrd changed ( re added for point )
-// e: 2015.07.26 v1.5.5
-// Drawsegmark, Parabolaplot, Putintersect added
-// e: 2015.07.27
-// Polygonplot, Drawsegmark added
-// e: 2015.07.28
-// Texmain renamed to Texparent
-// e: 2015.08.07 v1.5.6
-// Ellipseplot added
-// e: 2015.08.08
-// Hyperbolaplot added
-// Parabolaplot changed ( range )
-// e: 2015.08.09
-// Polygonplot changed ( options added )
-// help of Letterrot,Exprrot debugged
-// e: 2015.08.10
-// Ellipseplot changed ( range added )
-// e: 2015.08.14 v1.5.7
-// Mkslides debugged ( Texmain )
-// e: 2015.08.29
-// Ovaldata debugged
-// e: 2015.09.10 v1.6.0
-// WritetoR, kcR, PlotdataR added
-// e: 2015.09.12 v1.6.1
-// Writesci, Extractdata changed ( for length==1)
-// Partcrv, Enclosing debugged (for scaling )
-// e: 2015.09.13
-// CalcbyR added
-// e: 2015.09.14
-// Integrate changed ( Oshima rule implemented, Way => Rule )
-// Ospline added
-// e: 2015.09.15
-// Sprintf added ( = sprintf("%*.(dig)f") );
-// Assign changed ( multi assignment supported )
-// e: 2015.09.16 v1.6.2
-// KcR changed ( wait added )
-// PlotdataR, CalcbyR changed ( PathR set as defalt )
-// Boxplot added
-// e: 2015.09.17 v1.6.3
-// Histplot, Framedata2 added
-// Boxplot changed ( from file )
-// Boxplot added
-// e: 2015.09.18 v1.6.4
-// Rulerscale added
-// Tlisplot changed ( "Msg=no" added )
-// e: 2015.09.20 v1.6.5
-// CalcbyR changed ( in case of name is a number )
-// e: 2015.09.21
-// Ospline changed ( in case of non-closed )
-// e: 2015.09.23 v1.6.6
-// ColorRgb2Cmyk, ColorCmyk2Rgb, Colorinfile added
-// e: 2015.09.25
-// PlotdataR, CalcbyR changed ("make" option not needed )
-// e: 2015.09.29 v1.6.7
-// CalcbyR, Boxplot debugged/changed
-// Readcsv added
-// e: 2015.09.29 v1.6.8
-// Histplot debugged/changed
-// WritetoR debugged
-// e: 2015.09.30 v1.6.9
-// WritetoR changed ( "setwd" added )
-// PlotdiscR added
-// e: 2015.10.01 v1.6.9a
-// Readcsv changed ( for blank )
-// Scatterplot added
-// e: 2015.10.02 v1.6.9b
-// WritetoR,... changed ( options )
-// textformat changed ( Dq added for string )
-// CalcbyR chanded ( case of start with "=", name added )
-// e: 2015.10.03 v1.7.0
-// Histplot changed ( options for Listplot)
-// Writecsv added
-// e: 2015.10.04 v1.8.0
-// WritetoS, kcS, CalcbyS added
-// ReadOutData debugged ( for null data, and case of outdt is null )
-// e: 2015.10.05
-// CalcbyR, CalcbyS changed (deleting the file at first,
-// waiting until file generated )
-// PlotdataR, PlotdiscR, Readcsv, Boxplot, Histplot changed ( timing )
-// e: 2015.10.06
-// Implicitplot added ( using CalcbyS)
-// e: 2015.10.08 v1.8.1
-// kcR, kcS,... changed ( path of "kc" can be at any place, etc )
-// Colorcode added
-// e: 2015.10.13 v1.8.2
-// waiting added
-// WritetoR changed
-// PlotdataR debugged/changed
-// WaitUnit (global var ) added
-// e: 2015.10.15 v1.8.3
-// HatchdataS, MkprecommandS added
-// Histplot changed ( density options )
-// Scaledata, ... debugged ( in case of list)
-// Writecsv changed (option of "Col=" )
-// e: 2015.10.16
-// CalcbyS, CalcbyR, Hatchdata changed
-// e: 2015.10.17
-// Readcsv changed ( option "Head=" added )
-// e: 2015.10.19 v1.8.4
-// Colorcode changed (hsi,hwb supported)
-// e: 2015.10.22 v1.8.5
-// Boxplot, Histplot changed ( option "" )
-// OutFileLIst,Rform added
-// e: 2015.10.29 v1.8.6
-// WriteOutData changed (endmark //// )
-// ReadOutData changed (renewal )
-// CalcbyR, CalcbyS changed ( //// used)
-// ErrFlag are defined
-// e: 2015.10.31 v2.0.0
-// Bugs fixed
-// e: 2015.11.01 v2.0.1
-// CalcbyS changed ( for [[[ ... ]]] )
-// Hatchdata changed from HatchdataS
-// (Old version renamed to Hatchdata2 )
-// e: 2015.11.03 v2.0.2
-// Default of waiting raised
-// e: 2015.11.05 v2.1.0
-// lib divided to libbasic, libout
-// Use of cs changed
-// Mkhellp changed
-// Colorcode,... changed/debugged
-// Cindycolor added
-// e: 2015.11.06 v2.1.1
-// libbasic divided to libbasic1,libbasic2
-// Readcsv, .., changed ( for case of non-exiting file )
-// e: 2015.11.09 v2.1.2
-// helplist debugged
-// Getlinestyle debugged ( for id )
-// e: 2015.11.09 v2.1.3
-// Plotdata, Paramplot changed ( LFmark)
-// e: 2015.11.20 v2.2.1
-// Addcolor added
-// e: 2015.11.20 v2.2.2
-// Koutenseg, IntersectcrvsPp debugged (from Usui)
-// e: 2015.11.24 v2.2.3 ( out )
-// e: 2015.11.26
-// IntegrateO changed ( for a>b of range )
-// e: 2015.11.29 v2.2.5
-// basic2, out
-// example.txt adde
-// e: 2015.12.08 v2.2.6
-// basic2, out
-// e: 2015.12.12 v2.2.7
-// basic2, out ( autosetting )
-// e: 2015.12.14 v2.2.8
-// basic2, ( autosetting of slides)
-// e: 2015.12.23 v2.2.9
-// Listplot, Lineplot debugged ( precision)
-// Numcrv debugged (tmp)
-// e: 2016.01.07 v2.3.0
-// out (Mxtex)
-// e: 2016.01.10 v2.3.1
-// out (Mxtex,kcS)
-// e: 2016.01.12
-// basic2 (Viewtex)
-// e: 2016.01.18 v2.3.2
-// basic2 (Viewtex)
-// out ( Mxtex )
-// e: 2016.01.21 v2.3.3
-// Ptstart debugged
-// basic2 ( Drwxy,Sciform )
-// e: 2016.01.24 v2.3.4
-// Shade changed ( for non-string data )
-// 3d ( concatobj )
-// e: 2016.01.27
-// Invert debugged
-// Invert changed ( for a list of plotdata )
-// Listplot changed ("sg" not added when name starts with "-" )
-// Opcrvs added
-// e: 2016.01.29
-// Ovaldata debugged ( "nodisp" , Tex output)
-// e: 2016.01.29 v2.3.5
-// out
-// e: 2016.02.22
-// basic2, 3d, out
-// e: 2016.02.24
-// out
-// e: 2016.02.26
-// out
-// e: 2016.02.29 v2.3.7
-// GetLinestyle changed ( "sub..." not outputted to TeX )
-// out,3d
-// e: 2016.03.02
-// out,3d
-// e: 2016.03.03
-// out
-// e: 2016.03.05
-// basic2,out
-// e: 2016.03.07
-// basic2
-// e: 2016.03.10
-// integrateO changed ( for geo. point )
-// e: 2016.03.14
-// out
-// e: 2016.03.16
-// IntegralO debugged
-// e: 2016.03.17 v2.3.8
-// out
-// e: 2016.03.25 v2.3.9
-// basic2
-// e: 2016.03.26
-// out, basic2
-// e: 2016.03.27
-// out
-// e: 2016.03.28
-// basic2
-// Removespace debugged
-// e: 2016.04.01
-// mv
-// e: 2016.04.03
-// Partcrv debugged
-// e: 2016.04.04
-// Addgraph changed ( when data is a string )
-// e: 2016.04.05
-// Addgraph changed ( case data is a list of plotdata )
-// Chunderscore added
-// e: 2016.04.06
-// out (Hatchdata)
-// e: 2016.04.08
-// Ketinit() changed ( FigPdfList added )
-// e: 2016.04.09 v2.4.1
-// Setpen,Setpt changed ( PenThick, TenSize )
-// Arrowdata changed ( Arrow thickness/position for "l" )
-// Addgraph changed ( for non string data )
-// e: 2016.04.11
-// basic2(BBdata)
-// e: 2016.04.13
-// Changework added
-// e: 2016.04.15
-// out(Mkobj...)
-// e: 2016.04.17
-// basic2, out
-// e: 2016.04.23
-// Changework debugged
-// e: 2016.04.25
-// Changelib added
-// e: 2016.04.26
-// Indexall added
-// e: 2016.05.03
-// Nearestpt debugged
-// e: 2016.05.12
-// Parlevel added
-// e: 2016.05.16
-// Ketinit changed ( ADDPACK added)
-// e: 2016.05.22
-// Parlevel changed ( for any parenthes )
-// Bracket aded ( Parlevel renamed)
-// e: 2016.05.25
-// Op added
-////// To Reverse sequence //////
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2.cs b/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2.cs
deleted file mode 100644
index 80e48da9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2.cs
+++ /dev/null
@@ -1,5135 +0,0 @@
-// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
-//
-//This program is free software: you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 3 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program. If not, see <http://www.gnu.org/licenses/>
-//
-
-println("ketcindybasic2(2017.08.23) loaded");
-
-//help:start();
-
-Dispchoice():=(
- if(islist(Ch),
- if(!isreal(ChNum),ChNum=1);
- drawtext(mouse().xy,"Ch="+text(Ch)+" N="+text(ChNum),size->24,color->[0,0,1]);
- );
-);
-
-Datetime():=(
-//help:Datetime();
- regional(names,dt,tmp);
- tmp=getdatetime();
- dt=tokenize(tmp," ");
- dt=apply(dt,if(!isstring(#),text(#),#));
- names=["Jan","Feb","Mar","Apr","May","Jun",
- "Jul","Aug","Sep","Oct","Nov","Dec"];
- tmp=select(1..12,names_#==dt_2);
- tmp=text(tmp_1);
- tmp=[dt_6+"/"+tmp+"/"+dt_3,dt_4];
-);
-
-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+")");
-);
-
-Vtick(py):=Vtick(py,MARKLEN,[]);
-Vtick(py,len):=Vtick(py,len,[]);
-Vtick(py,len,options):=(
-//help:Vtick(1,0.1,options);
- regional(tmp,tmp1,tmp2);
- tmp="v"+text(round(py*100));
- tmp=replace(tmp,"-","m");
- tmp1=[0-len/2,py];
- tmp2=[0+len/2,py];
- Listplot(tmp,[tmp1,tmp2],options);
-);
-
-Htick(px):=Htick(px,MARKLEN,[]);
-Htick(px,len):=Htick(px,len,[]);
-Htick(px,lenorg,options):=(
-//help:Htick(-1,0.1,options);
- regional(len,tmp,tmp1,tmp2);
- tmp=LLcrd([0,lenorg]);
- len=tmp_2;
- tmp="h"+text(round(px*100));
- tmp=replace(tmp,"-","m");
- tmp1=[px,0-len/2];
- tmp2=[px,0+len/2];
- Listplot(tmp,[tmp1,tmp2],options);
-);
-
-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=textformat(param,5);
-);
-
-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+"')");
-);
-
-Putslider(ptstr,p1,p2):=Slider(ptstr,p1,p2);
-Slider(ptstr,p1,p2):=( //17.04.11
-//help:Slider("A-C-B",[-3,0],[3,0]);
- regional(pA,pB,pC,seg,sname,Alpha,tmp,tmp1);
- tmp=indexall(ptstr,"-");
- pA=substring(ptstr,0,tmp_1-1);
- pC=substring(ptstr,tmp_1,tmp_2-1);
- pB=substring(ptstr,tmp_2,length(ptstr));
- seg=pA+pB;
- Alpha="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
- sname="";
- forall(1..(length(seg)),
- tmp=substring(seg,#-1,#);
- tmp1=indexof(Alpha,tmp);
- if(tmp1>0,
- sname=sname+unicode(text(tmp1+96),base->10);
- ,
- sname=sname+tmp;
- );
- );
- Putpoint(pA,p1);
- Putpoint(pB,p2);
- Listplot([parse(pA),parse(pB)],["notex","color->[0,0.4,0.4]","size->2"]);
-// create([sname],"Segment",[parse(pA),parse(pB)]);
-// tmp2=Listplot("",[p1,p2],["nodata"]);
- Putonseg(pC,parse("sg"+pA+pB));
-// create([pC],"PointOn",[parse(sname),0.5]);
-);
-
-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);//16.10.06
- 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(nm,ptlist,ctrlist,options); // 17.01.06
- );
-);
-
-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";// 16.10.07
- 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");
-);
-
-Periodfun(defL,rep):=Periodfun(defL,rep,[]);
-Periodfun(defL,rep,optionorg):=( // 16.11.24
-//help:Periodfun(["0",[-1,0],"1",1,[0,1],1],2(num of repetition),options);
-//help:Periodfun(options=["Con=y"]);
-//help:Periodfun(defL=[function string, range, devision number,...]);
- regional(nn,fun,range,num,options,nr,maxfun,
- tmp,tmp1,tmp2,eqL,connect,minx,maxx,pdata,Eps,prept);
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- connect="Y";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp2=substring(#,tmp,tmp+1);
- tmp=substring(#,0,3);
- if(Toupper(tmp)=="CON",
- connect=Toupper(tmp2);
- options=remove(options,[#]);
- );
- );
- minx=10000;
- maxx=-10000;
- mxfun="";
- pdata=[];
- forall(1..(length(defL)/3),nn,
- fun=defL_(3*nn-2);
- range=defL_(3*nn-1);
- tmp1=if(isstring(range_1),parse(range_1),range_1); //17.06.11(2lines)
- tmp2=if(isstring(range_2),parse(range_2),range_2);
- minx=min(minx,tmp1);
- maxx=max(maxx,tmp2);
- num=defL_(3*nn);
- options=append(options,"Num="+text(num));
- Plotdata("pe"+text(nn),fun,
- "x="+textformat([tmp1,tmp2],5),options);
- pdata=append(pdata,"grpe"+text(nn));
- tmp1=range_1; //17.06.11(4lines)
- if(isstring(tmp1),tmp1=replace(tmp1,"pi","%pi"),tmp1=format(tmp1,5));
- tmp2=range_2;
- if(isstring(tmp2),tmp2=replace(tmp2,"pi","%pi"),tmp2=format(tmp2,5));
- mxfun=mxfun+"elseif ("+tmp1+
- "<=x and x<"+tmp2+") then "+fun+" ";
- );
- per=maxx-minx;
- forall(1..rep,nr,
- tmp1=[];
- forall(pdata,
- Translatedata("p"+#+text(nr),#,[per*nr,0],options);
- Translatedata("m"+#+text(nr),#,[-per*nr,0],options);
- tmp1=concat(tmp1,["trp"+#+text(nr),"trm"+#+text(nr)]);
- );
- );
- pdata=concat(pdata,tmp1);
- if(connect=="Y",
- Eps=10^(-5);
- pdata=sort(pdata,[parse(#)_1_1]);
- prept=parse(pdata_1)_1;
- forall(1..(length(pdata)),
- tmp=parse(pdata_#);
- tmp1=tmp_1;
- tmp2=tmp_(length(tmp));
- if(|prept-tmp1|>Eps,
- Listplot("con"+text(#),[prept,tmp1],append(options,"da"));
- );
- prept=tmp_(length(tmp));
- );
- );
- mxfun=substring(mxfun,4,length(mxfun)-1);
- [mxfun,per];
-);
-
-Fourierseries(nm,coeff,per,nterm):=
- Fourierseries(nm,coeff,per,nterm,[]); // 16.11.24
-Fourierseries(nm,coeff,per,nterm,options):=(
-//help:Fourierseries("1",[c0,cn,sn],period,numterm,options);
- regional(c0,cn,sn,fs,tmp,tmp1,tmp2);
- c0=coeff_1;
- if(!isstring(c0),c0=format(c0,5));
- c0=replace(c0,"%pi","pi");
- cn=coeff_2;
- if(!isstring(cn),cn=format(cn,5));
- cn=replace(cn,"%pi","pi");
- sn=coeff_3;
- if(!isstring(sn),sn=format(sn,5));
- sn=replace(sn,"%pi","pi");
- fs=c0;
- forall(1..nterm,
- tmp=parse(Assign(cn,["n",#]));
- tmp1=Assign("("+format(tmp,5)+")*cos(n*2*pi/per*x)",
- ["n",#,"per",per]);
- tmp=parse(Assign(sn,["n",#]));
- tmp2=Assign("("+format(tmp,5)+")*sin(n*2*pi/per*x)",
- ["n",#,"per",per]);
- fs=fs+"+"+tmp1+"+"+tmp2;
- );
- Plotdata("four"+nm,fs,"x",options);
-);
-
-Tabledatalight(nm,xLst,yLst,rmvL):=Tabledatalight(nm,xLst,yLst,rmvL,[]);
-Tabledatalight(nm,xLst,yLst,rmvL,optionorg):=(
-//help:Tabledatalight("",xLst,yLst,rmvL,[2,"Rng=y"]);
- regional(options,rng,name,upleft,ul,flg,tick,eqL,reL,n,m,xsize,ysize,
- rlist,clist,Tb,tmp,tmp1,tmp2,tmp3,Eps);
-// name="tb"+nm;
- name="tb";
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5; //16.12.16from
- reL=tmp_6;
- rng="Y";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,2));
- tmp2=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="RN",
- rng=tmp2;
- options=remove(options,[#]);
- );
- );//16.12.16upto
- tick=1;
- flg=0;
- forall(reL,
- if(flg==0,
- tick=#;
- flg=flg+1;
- ,
- upleft=tmp_6_1;
- );
- );
- tmp=sum(yLst);
- upleft=[0,tmp];
- TableOptions=options; // 16.11.28
- println("Tabledatalight "+name+" generated");
- 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));
- if(rng=="Y", // 16.12.16
- 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):=(
-//help:Tabledata("",xLst,yLst,rmvL,[2,"Rng=y"]);
- 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,optionorg):=(
-//help:Tabledata("",xLst,yLst,rmvL,[2,"Rng=y"]);
- regional(name,options,eqL,reL,rng,upleft,ul,flg,tick,n,m,xsize,ysize,
- rlist,clist,Tb,tmp,tmp1,tmp2,tmp3,Eps);
-// name="tb"+nm;
- name="tb";
- tmp=sum(yLst);
- upleft=[0,tmp];
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5; //16.12.16from
- reL=tmp_6;
- rng="Y";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,2));
- tmp2=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="RN",
- rng=tmp2;
- options=remove(options,[#]);
- );
- );//16.12.16upto
- tick=1;
- flg=0;
- forall(reL,
- if(flg==0,
- tick=#;
- flg=flg+1;
- ,
- upleft=tmp_6_1;
- );
- );
- TableOptions=options; // 16.11.28
- println("Tabledata "+name+" generated");
- 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
- if(rng=="Y", // 16.12.16
- 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,grid,head,sb,tmp,tmp1,tmp2,
- tsg,segall,sg,str);
- if(islist(nameL),nmL=nameL,nmL=[nameL]);
- forall(nmL,grid,
- if(substring(grid,0,1)=="r",sb="c",sb="r");
- tmp=Indexall(grid,sb);
- head=substring(grid,0,tmp_1-1);
- tmp1=substring(grid,tmp_1,tmp_2-1);
- tmp2=substring(grid,tmp_2,length(grid));
- tsg=apply([tmp1,tmp2],parse(#));
- tmp1=apply(GCLIST,#_1); // 16.12.06from
- segall=[];
- forall(tmp1,
- tmp2=substring(#,2,length(#));
- tmp=indexof(tmp2,sb);
- tmp2=substring(tmp2,0,tmp-1);
- if(head==tmp2,segall=append(segall,#));
- );// 16.12.06upto
- sg=[];
- forall(segall,
- tmp=Indexall(#,sb);
- tmp1=substring(#,tmp_1,tmp_2-1);
- tmp2=substring(#,tmp_2,length(#));
- tmp=apply([tmp1,tmp2],parse(#));
- if((tsg_1>=tmp_1) & (tsg_2<=tmp_2),
- sg=tmp;
- Changestyle(#,["nodisp"]);
- );
- );
- if(length(sg)==0,
- println("No segment includes "+grid);
- ,
- if(sb=="c",str=sb+"no"+head,str=head+sb+"no");
- if(sg_1<tsg_1,
- tmp1=replace(str,"no",text(sg_1));
- tmp2=replace(str,"no",text(tsg_1));
- tmp=head+sb+text(sg_1)+"c"+text(tsg_1);
- Tlistplot(tmp,[tmp1,tmp2],TableOptions);
- );
- tmp1=replace(str,"no",text(tsg_1));
- tmp2=replace(str,"no",text(tsg_2));
- tmp=head+"c"+text(tsg_1)+"c"+text(tsg_2);
- Tlistplot(tmp,[tmp1,tmp2],style);
- if(tsg_2<sg_2,
- tmp1=replace(str,"no",text(tsg_2));
- tmp2=replace(str,"no",text(sg_2));
- tmp=head+"c"+text(tsg_2)+"c"+text(sg_2);
- Tlistplot(tmp,[tmp1,tmp2],TableOptions);
- );
- );
- );
-);
-
-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);
-);
-
-Setrange():=(
-//help:Setrange();
- SW.xy=Pcrd([XMIN,YMIN]);
- NE.xy=Pcrd([XMAX,YMAX]);
- drawpoly([Pcrd([XMIN,YMIN]), Pcrd([XMAX,YMIN]),
- Pcrd([XMAX,YMAX]),Pcrd([XMIN,YMAX])],color->[1,1,1]);
-);
-
-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);
- if(isstring(varstr),
- 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);
- );
- ,
- forall(1..(length(varstr)/2), // 16.11.16from
- name=varstr_(2*#-1);
- value=varstr_(2*#);
- Defvar(name,value);
- ); // 16.11.16upto
- );
-);
-
-Defvar(name,value):=(
-//help:Defvar("a",0.3);
-//help:Defvar(["a",0.3,"b",2]);
- regional(tmp,tmp1);
- if(islist(value),
- tmp1="[";
- forall(value,
- if(isstring(#), // 16.11.14
- tmp1=tmp1+Dq+#+Dq+","; // 16.11.14
- ,
- 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,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,
- tmp="connect("+textformat(tmp2,5)+
- ",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);
-);
-
-Windispg(pltdata):=(
- regional(pdata,Nj,Nk,Dt,tmp,tmp1,tmp2,opcindy);
- gsave();
- layer(KETPIClayer);
- if(!islist(pltdata),tmp=[pltdata],tmp=pltdata);
- pdata=select(GCLIST,contains(tmp,#_1));
- forall(pdata,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=Nk; // 14.12.04
- if(length(Nk)>1,
- tmp="connect("+textformat(tmp2,5)+ // 15.05.11
- ",dashtype->"+text(tmp1)+
- ",linecolor->"+KCOLOR+opcindy+")";
- parse(tmp);
- ,
- if(length(Nk)==1,
- tmp="draw("+text(tmp2_1)+opcindy+")"; // 14.12.31
- parse(tmp);
- );
- );
- );
- );
- );
- );
- grestore();
- layer(0);
-);
-
-
-WritetoSci() := WritetoSci(Fnamesci);
-WritetoSci(Arg) := (
- regional(string,filename,shch,tmp1,tmp2);
- if(isstring(Arg),
- string=Arg;
- if(indexof(string,".sce")>0,
- filename=string;
- shchoice="";
- ,
- filename=Fnamesci;
- shch=string;
- );
- WritetoSci(filename,shch);
- ,
- if(Arg<=1,WritetoSci(Fnamesci,"all"));
- if(Arg==2,WritetoSci(Fnamesci,"sh"));
- if(Arg==3,WritetoScibody(Fnamescibody));
- );
-);
-WritetoSci(filename,shchoice) := (
- regional(Plist,Pos,Pnamelist,Pvaluelist,GrL,str,tmp,tmp1,tmp2,cmd);
- println("Write to Sci "+filename);
- Plist=[];
- Pnamelist=[];
- Pvaluelist=[];
- forall(remove(allpoints(),[SW,NE]),
- tmp=Lcrd(#);
- tmp1=format(re(tmp_1),5);// 15.02.05
- tmp2=format(re(tmp_2),5);
- tmp="["+tmp1+","+tmp2+"]";
- Plist=append(Plist,#.name+"="+tmp+";");
- Pnamelist=append(Pnamelist,#.name);
- Pvaluelist=append(Pvaluelist,tmp);
- );
- SCEOUTPUT = openfile(filename);
- tmp=Datetime();//16.12.25from
- println(SCEOUTPUT,"//date time="+tmp_1+" "+tmp_2);
- if(isstring(CindyPathName), // 16.12.25from
- if(length(CindyPathName)>0,
- println(SCEOUTPUT,"//path file="+CindyPathName+" "+CindyFileName+".cdy");
- ,
- println(SCEOUTPUT,"");
- );
- ,
- println(SCEOUTPUT,"");
- );//16.12.25upto
- println(SCEOUTPUT,"cd('"+Dirwork+"');");
- if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0) ,//16.11.29,12.16
- if(indexof(PathS,"-6.")>0,
- Libname=Dirlib+"/ketpic2escifiles6";//17.05.13
- ,
- Libname=Dirlib+"/ketpic2esciL5";//16.11.29
- );
- );
- println(SCEOUTPUT,"Ketlib=lib('"+Libname+"');");
- tmp=length(Libname)-1;
- if(substring(Libname,tmp-1,tmp)!="C", // 15.06.02
- println(SCEOUTPUT,"Ketinit();");
- ,
- println(SCEOUTPUT,"errcatch(235,"+DqDq("continue")+");");
- println(SCEOUTPUT,"Ketinit("+DqDq("Ketlib")+");");
- );
- println(SCEOUTPUT,"disp('KETpic '+ThisVersion())"); // 15.04.12
- println(SCEOUTPUT,"Fnametex='"+Fnametex+"';");
- println(SCEOUTPUT,"Fnamesci='"+Fnamesci+"';");
- println(SCEOUTPUT,"Fnamescibody='"+Fnamescibody+"';");
- println(SCEOUTPUT,"Fnameout='"+Fnameout+"';");
- if(iswindows(), // 17.01.11from
- println(SCEOUTPUT,"setlanguage('en')");
- ); // 17.01.11upto
- println(SCEOUTPUT,"pi=%pi; i=%i;");
- println(SCEOUTPUT,"arccos=acos; arcsin=asin; arctan=atan;"); // 15.05.15
- println(SCEOUTPUT,"");
- forall(COM0thlist,
- println(SCEOUTPUT,#+";");
- );
- println(SCEOUTPUT,
- "Setwindow(["+XMIN+","+XMAX+"], ["+YMIN+","+YMAX+"]);");
- println(SCEOUTPUT,"Assignadd('pi',%pi);");
- println(SCEOUTPUT,"Assignadd('XMIN',Xmin());");
- println(SCEOUTPUT,"Assignadd('XMAX',Xmax());");
- println(SCEOUTPUT,"Assignadd('YMIN',Ymin());");
- println(SCEOUTPUT,"Assignadd('YMAX',Ymax());");
- forall(1..length(Plist),
- print(SCEOUTPUT,Plist_#);
- println(SCEOUTPUT," Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+");");
- );
- forall(VLIST,
- tmp=Sciform(#_1);
- tmp1=#_2; // 15.02.06
- if(!isstring(tmp1),
- if(islist(tmp1),
- tmp2="[";
- forall(tmp1,
- tmp2=tmp2+format(#,5)+",";
- );
- tmp1=substring(tmp2,0,length(tmp2)-1)+"]";
- ,
- tmp1=format(tmp1,5);
- );
- );
- print(SCEOUTPUT,tmp+"evstr('"+tmp1+"')"+"; ");
- tmp=substring(tmp,0,length(tmp)-1);
- println(SCEOUTPUT," Assignrep('"+tmp+"',"+tmp1+");"); // 15.01.27
- );
- forall(FUNLIST,
- println(SCEOUTPUT,#);
- );
- forall(GLIST,
- println(SCEOUTPUT,Sciform(#)+";");
- );
- tmp=text(Pnamelist);
- tmp=replace(tmp,"[","list(");
- Pnamelist=replace(tmp,"]",")");
- println(SCEOUTPUT,"PtL="+Pnamelist+";");
- tmp=select(GCLIST,#_2==-1);
- GrL=apply(tmp,#_1);
- tmp=text(GrL);
- tmp=replace(tmp,"[","list(");
- tmp=replace(tmp,"]",")");
- println(SCEOUTPUT,"GrL="+tmp+";");
- tmp1="";
- forall(SCIWRLIST,
- tmp1=tmp1+","+Dq+#+Dq+","+#;
- );
- if(length(tmp1)>0,
- tmp1="WriteOutData(Fnameout"+tmp1+");";
- println(SCEOUTPUT,tmp1);
- );
- if(length(SCIRELIST)>0,
- println(SCEOUTPUT,"if length(fileinfo(Fnameout))>0"); // 15.05.15
- println(SCEOUTPUT," Tmpout=ReadOutData(Fnameout);");// 15.09.12
- println(SCEOUTPUT," execstr(Tmpout);"); // 15.05.15
-// println(SCEOUTPUT," forall Tmp1=1:size(Tmpout,1)");
-// println(SCEOUTPUT," Tmp=strindex(Tmpout(Tmp1,1),'=list()');");
-// println(SCEOUTPUT," if length(Tmp)>0");
-// println(SCEOUTPUT," Tmp=part(Tmpout(Tmp1,1),1:(Tmp-1));");
-// println(SCEOUTPUT," if length(evstr(Tmp))==1,");
-// println(SCEOUTPUT," Tmp=Tmp+'='+Tmp+'(1)';");
-// println(SCEOUTPUT," execstr(Tmp);");
-// println(SCEOUTPUT," end;");
-// println(SCEOUTPUT," end;");
-// println(SCEOUTPUT," end;");
-// println(SCEOUTPUT,"end;");
- );
- if(shchoice=="sh",
- println(SCEOUTPUT,"//if length(fileinfo(Fnamescibody))>0");
- println(SCEOUTPUT,"// Gbdy=ReadfromCindy(Fnamescibody);");
- println(SCEOUTPUT,"// execstr(Gbdy)");
- println(SCEOUTPUT,"//end;");
- ,
- println(SCEOUTPUT,"//if length(fileinfo(Fnamescibody))>0");
- println(SCEOUTPUT,"// Gbdy=ReadfromCindy(Fnamescibody);");
- println(SCEOUTPUT,"// execstr(Gbdy)");
- println(SCEOUTPUT,"//end;");
- );
- forall(COM1stlist,
- println(SCEOUTPUT,#+";");
- );
-// forall(GOUTLIST,
-// if(length(#_2)>0,
-// tmp1=#_1;
-// println(SCEOUTPUT,"execstr(ReadOutData('"+tmp1+"'));");
-// );
-// );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"//Windisp(GrL,'c');");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"if 1==1 then");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"Openfile('"+Dirwork+"/"+Fnametex+"','"+ULEN+"');");// 16.05.29
- forall(COM2ndlist,
- println(SCEOUTPUT," "+#+";");
- );
- if(length(GrL)>0,
- println(SCEOUTPUT," Drwline(GrL);");
- );
-// forall(GOUTLIST,
-// if(length(#_2)>0,
-// tmp1=textformat(#_2,5);
-// tmp1=substring(tmp1,1,length(tmp1)-1);
-// println(SCEOUTPUT," Drwline("+tmp1+");");
-// );
-// );
- println(SCEOUTPUT,"Closefile('"+ADDAXES+"');");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"end;");
- if(shchoice=="sh",
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"quit();");
- ,
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"//quit();");
- );
- closefile(SCEOUTPUT);
-
-);
-
-WritetoScibody() := WritetoScibody(Fnamescibody);
-WritetoScibody(filename) := (
- regional(Plist,Pos,Pnamelist,Pvaluelist,GrL,str,tmp,tmp1,cmd);
- println("WritetoScibody "+filename);
- Plist=[];
- Pnamelist=[];
- Pvaluelist=[];
- forall(remove(allpoints(),[SW,NE]),
- Plist=append(Plist,#.name+"="+#.xy+";");
- Pnamelist=append(Pnamelist,#.name);
- Pvaluelist=append(Pvaluelist,#.xy);
- );
- SCEOUTPUT = openfile(filename);
- println(SCEOUTPUT,
- "Setwindow(["+XMIN+","+XMAX+"], ["+YMIN+","+YMAX+"]);");
- println(SCEOUTPUT,"Assignadd('pi',%pi);");
- println(SCEOUTPUT,"Assignadd('XMIN',Xmin());");
- println(SCEOUTPUT,"Assignadd('XMAX',Xmax());");
- println(SCEOUTPUT,"Assignadd('YMIN',Ymin());");
- println(SCEOUTPUT,"Assignadd('YMAX',Ymax());");
- forall(1..length(Plist),
- print(SCEOUTPUT,Plist_#);
- println(SCEOUTPUT," Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+");");
- );
- forall(VLIST,
- tmp=Sciform(#_1);
- tmp1=#_2;
- if(!isstring(tmp1),
- print(SCEOUTPUT,tmp+tmp1+"; ");
- ,
- print(SCEOUTPUT,tmp+"evstr('"+tmp1+"')"+"; ");
- );
- tmp=substring(tmp,0,length(tmp)-1);
- println(SCEOUTPUT," Assignrep('"+tmp+"',"+#_2+");");
- );
- forall(FUNLIST,
- println(SCEOUTPUT,#);
- );
- forall(GLIST,
- println(SCEOUTPUT,Sciform(#)+";");
- );
- tmp=text(Pnamelist);
- tmp=replace(tmp,"[","list(");
- Pnamelist=replace(tmp,"]",")");
- println(SCEOUTPUT,"PtL="+Pnamelist+";");
- tmp=select(GCLIST,#_2==-1);
- GrL=apply(tmp,#_1);
- tmp=textformat(GrL,5);
- tmp=replace(tmp,"[","list(");
- tmp=replace(tmp,"]",")");
- println(SCEOUTPUT,"GrL="+tmp+";");
- tmp1="";
- forall(SCIWRLIST,
- tmp1=tmp1+","+Dq+#+Dq+","+#;
- );
- if(length(tmp1)>0,
- tmp1="WriteOutData(Fnameout"+tmp1+");";
- println(SCEOUTPUT,tmp1);
- );
- if(length(SCIRELIST)>0,
- println(SCEOUTPUT,"Tmpout=ReadOutData(Fnameout);");
- println(SCEOUTPUT,"execstr(Tmpout);");
- println(SCEOUTPUT,"forall Tmp1=1:size(Tmpout,1)");
- println(SCEOUTPUT," Tmp=strindex(Tmpout(Tmp1,1),'=list()');");
- println(SCEOUTPUT," if length(Tmp)>0");
- println(SCEOUTPUT," Tmp=part(Tmpout(Tmp1,1),1:(Tmp-1));");
- println(SCEOUTPUT," if length(evstr(Tmp))==1,");
- println(SCEOUTPUT," Tmp=Tmp+'='+Tmp+'(1)';");
- println(SCEOUTPUT," execstr(Tmp);");
- println(SCEOUTPUT," end;");
- println(SCEOUTPUT," end;");
- println(SCEOUTPUT,"end;");
- );
- if(shchoice=="sh",
- println(SCEOUTPUT,"//if length(fileinfo(Fnamescibody))>0");
- println(SCEOUTPUT,"// Gbdy=ReadfromCindy(Fnamescibody);");
- println(SCEOUTPUT,"// execstr(Gbdy)");
- println(SCEOUTPUT,"//end;");
- ,
- println(SCEOUTPUT,"//if length(fileinfo(Fnamescibody))>0");
- println(SCEOUTPUT,"// Gbdy=ReadfromCindy(Fnamescibody);");
- println(SCEOUTPUT,"// execstr(Gbdy)");
- println(SCEOUTPUT,"//end;");
- );
- forall(COM1stlist,
- println(SCEOUTPUT,#+";");
- );
-// forall(GOUTLIST, 2014.12.18
-// if(length(#_2)>0,
-// tmp1=#_1;
-// println(SCEOUTPUT,"execstr(ReadOutData('"+tmp1+"'));");
-// );
-// );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"//Windisp(GrL,'c');");
- println(SCEOUTPUT,"");
-
- closefile(SCEOUTPUT);
-);
-
-Extractdata(name):=Extractdata(1,name,[]);
-Extractdata(Arg1,Arg2):=(
- if(isstring(Arg1),
- Extractdata(1,Arg1,Arg2);
- ,
- Extractdata(Arg1,Arg2,[]);
- );
-);
-Extractdata(number,name,options):=(
-//help:ExtractData("ha1");
-//help:ExtractData(1,"ha1");
- regional(dlist,tmp,tmp1,tmp2,tmp3,File,Ltype,Noflg,opstr,opcindy);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- tmp1=[];
- forall(1..length(GOUTLIST),
- if(contains(GOUTLIST_#_2,name),
- tmp1=append(tmp1,#);
- );
- );
- if(length(tmp1)==0,
- println(varname+" not found");
- ,
- tmp1=tmp1_number;
- tmp2=GOUTLIST_tmp1;
- tmp=remove(tmp2_2,[name]);
- GOUTLIST_tmp1=[tmp2_1,tmp];
- File=tmp2_1;
- );
- if(Noflg<3,
- println("extract outdata "+name);
- tmp1=parse(name);
- if(1==0,
- Com0th("Tmpout=ReadOutData("+Dq+File+Dq+");");
- Com0th("execstr(Tmpout);");
- Com0th("for Tmp1=1:size(Tmpout,1)");
- Com0th(" Tmp=strindex(Tmpout(Tmp1,1),'=list()');");
- Com0th(" if length(Tmp)>0");
- Com0th(" Tmp=part(Tmpout(Tmp1,1),1:(Tmp-1));");
- Com0th(" if length(evstr(Tmp))==1,");
- Com0th(" Tmp=Tmp+'='+Tmp+'(1)';");
- Com0th(" execstr(Tmp);");
- Com0th(" end;");
- Com0th(" end;");
- Com0th("end;");
- );
- tmp3=[
- "Tmpout=ReadOutData("+Dq+File+Dq+");",
- "execstr(Tmpout);",
- "for Tmp1=1:size(Tmpout,1)",
- " Tmp=strindex(Tmpout(Tmp1,1),'=list()');",
- " if length(Tmp)>0",
- " Tmp=part(Tmpout(Tmp1,1),1:(Tmp-1));",
- " if length(evstr(Tmp))==1",
- " Tmp=Tmp+'='+Tmp+'(1)';",
- " execstr(Tmp);",
- " end;",
- " end;",
- "end;"
- ];
- GLIST=concat(GLIST,tmp3);
- );
- if(Noflg<2,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- tmp2;
-);
-
-RemoveOut(pltlist):=(
- regional(name,tmp,tmp1,tmp2);
- forall(pltlist,name,
- tmp1=[];
- forall(GOUTLIST,
- tmp=remove(#_2,[name]);
- tmp1=append(tmp1,[#_1,tmp]);
- );
- GOUTLIST=tmp1;
- );
-);
-
-ReadOutData():=ReadOutData(Fnameout);
-ReadOutData(filename):=ReadOutData("",filename); //16.03.07
-ReadOutData(pathorg,filenameorg):=(
-//help:ReadOutData();
-//help:Readoutdata();
-//help:ReadOutData("file.txt");
-//help:Readoutdata("file.txt");
-//help:ReadOutData("/datafolder","file.txt");
-//help:Readoutdata("/datafolder","file.txt");
- regional(path,filename,varname,varL,ptL,pts,tmp,tmp1,tmp2,tmp3,tmp4,
- nmbr,cmdall,cmd,cmdorg,outdt,goutdt);
- path=pathorg; //16.03.07 from
- if(length(path)>0,
- setdirectory(path);
- if(indexof(path,"\")>0,tmp1="\",tmp1="/");
- tmp=substring(path,length(path)-1,length(path));
- if(tmp!=tmp1,path=path+tmp1);
- ); //16.03.07 upto
- filename=filenameorg; // 16.04.17
- if(indexof(filename,".")==0,filename=filename+".txt");
- tmp=load(filename);
- cmdall=tokenize(tmp,"//");
- varname=cmdall_1;
- cmdall=cmdall_(2..length(cmdall));
- outdt=[];
- varL=[varname];
- ptL=[];
- forall(cmdall,cmdorg,
- cmd=replace(cmdorg,LFmark,"");
- if(length(cmd)>0,
- if(cmd=="start" % cmd=="end" % substring(cmd,0,1)=="[",
- if(cmd=="start",
- pts=[];
- );
- if(cmd=="end",
- ptL=append(ptL,pts);
- );
- if(substring(cmd,0,1)=="[",
- tmp1=parse(cmd);
- if(length(tmp1_1)==2,
- tmp1=apply(tmp1,Pcrd(#));
- );
- pts=concat(pts,tmp1);
- );
- ,
- if(length(ptL)>0,
- if(length(ptL)==1,
- ptL=ptL_1;
- tmp=apply(ptL,textformat(#,6));
- ,
- tmp="[";
- forall(ptL,tmp1,
- tmp=tmp+apply(tmp1,textformat(#,6))+",";
- );
- tmp=substring(tmp,0,length(tmp)-1)+"]";
- );
- ,
- tmp="[]";
- );
- parse(varname+"="+tmp);
- outdt=append(outdt,ptL);
- ptL=[];
- varname=cmd;
- varL=append(varL,varname);
- );
- );
- );
- if(length(ptL)>0,
- if(length(ptL)==1,
- ptL=ptL_1;
- tmp=apply(ptL,textformat(#,6));
- ,
- tmp="[";
- forall(ptL,tmp1,
- tmp=tmp+apply(tmp1,textformat(#,6))+",";
- );
- tmp=substring(tmp,0,length(tmp)-1)+"]";
- );
- ,
- tmp="[]";
- );
- parse(varname+"="+tmp);
- outdt=append(outdt,ptL);
- if(path=="",tmp=filename,tmp=path+filename); //16.03.07
- GOUTLIST=append(GOUTLIST,[tmp,varL]);
- if(length(path)>0, // 16.03.09
- setdirectory(Dirwork); // 16.03.07
- );
- print("readoutdata from "+tmp+" : ");
- println(varL);
- varL;
-);
-
-WriteOutData(filename,ptlist):=(
-//help:WriteOutData("file.txt",["g1",gr1,"sg",sgAB]);
-//help:Writeoutdata("file.txt",["g1",gr1,"sg",sgAB]);
- regional(nn,Gname,Gdata,Str,Gstr,Gj,Pt,Flg,tmp,tmp1,loopend);
- Flg=0;
- if(isstring(ptlist_(length(ptlist))),
- Flg=1;
- );
- SCEOUTPUT = openfile(filename);
- if(Flg==0,
- loopend=length(ptlist)/2;
- ,
- loopend=length(ptlist);
- );
- Gstr="[";
- forall(1..loopend,nn,
- if(Flg==0,
- Gname=ptlist_(2*nn-1);
- ,
- Gname=ptlist_nn;
- );
- Gstr=Gstr+Gname+",";
- println(SCEOUTPUT,Gname+"//");
- if(Flg==0,
- Gdata=ptlist_(2*nn);
- ,
- Gdata=parse(Gname);
- );
- Gdata=Flattenlist(Gdata);
- if(MeasureDepth(Gdata)==1,Gdata=[Gdata]);
- forall(Gdata,Gj,
- println(SCEOUTPUT,"start//");
- Str="";
- forall(Gj,Pt,
- if(length(Str)>0,
- Str=Str+","
- );
- Str=Str+"["+format(Pt_1,5)+",";
- Str=Str+format(Pt_2,5);
- if(length(Pt)<3,
- Str=Str+"]";
- ,
- Str=Str+","+format(Pt_3,5)+"]";
- );
- if(length(Str)>80,
- println(SCEOUTPUT,"["+Str+"]//");
- Str="";
- );
- );
- if(length(Str)>0,
- println(SCEOUTPUT,"["+Str+"]//");
- );
- if((nn==loopend) & (Gj==Gdata_(length(Gdata))),
- println(SCEOUTPUT,"end////");
- ,
- println(SCEOUTPUT,"end//");
- );
- );
- );
- closefile(SCEOUTPUT);
- Gstr=substring(Gstr,0,length(Gstr)-1)+"]";
- println("writeoutdata "+filename+":"+Gstr);
-);
-
-Makeshell():=(
- if(length(Texmain)>0,
- Texparent=Texmain;
- );
- if(length(Texparent)>0,
- Makeshell(Texparent);
- if(length(FigPdfList)>0,
- SCEOUTPUT=openfile(Texparent+".tex");
- forall(FigPdfList,println(SCEOUTPUT,#));
- closefile(SCEOUTPUT);
- );
- ,
- Makeshell(Fhead+"main");
- );
-);
-Makeshell(texmainfile):=Makeshell(texmainfile,"stv");
-Makeshell(texmainfile,flow):=(
- regional(parent,tmp,tmp1,tmp2,tmp3,flg,tex,path,shnm);
- parent=Dirwork+Shellparent; // 16.05.29
- kc():=(
- println("kc : "+kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex)); // 16.06.04,06.07
- );
- tmp1="";
-// tmp2=parent;
- flg=0;
- forall(reverse(1..length(parent)),
- if(flg==0,
- tmp=substring(parent,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- tmp1=substring(parent,0,#-1);
- tmp2=substring(parent,#,length(parent));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(tmp1);
- );
- SCEOUTPUT = openfile(tmp2);
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq); // 15.07.16
- tmp1=" "+Dq+Fhead+Dq+" "+Dq+texmainfile+Dq; // 15.12.11
- if((isstring(Shellfile)) & (length(Shellfile)>5), // 16.04.01
- tmp="sh "+Dq+Shellchild+Dq+tmp1; // 16.05.15,16.05.30
- ,
- flg=0;
- forall(reverse(1..length(PathT)),
- if(flg==0,
- if(substring(PathT,#-1,#)=="/",
- tex=substring(PathT,#,length(PathT));
- path=substring(PathT,0,#-1);
- flg=1;
- );
- );
- );
- if(indexof(flow,"s")>0,
- tmp=Dq+PathS+Dq+" -nwni -f "+Fhead+".sce"; // 16.07.21from
- println(SCEOUTPUT,tmp);
- );
- if(tex=="latex" % tex=="platex" % tex=="uplatex", //17.08.13
- tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- tmp=replace(Dq+PathT+Dq,tex,"dvipdfmx")+" "+texmainfile+".dvi";
- println(SCEOUTPUT,tmp);
- tmp="rm "+texmainfile+".dvi";
- println(SCEOUTPUT,tmp);
- );
- if(tex=="xelatex",
- tmp="export PATH=$"+path+":${PATH}";
- println(SCEOUTPUT,tmp);
- tmp="xelatex"+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- tmp="rm "+texmainfile+".dvi";
- println(SCEOUTPUT,tmp);
- );
- if(tex=="pdflatex" % tex=="pdftex",//16.11.22from
- tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- );//16.11.22upto
- if(tex=="lualatex",//16.12.16
- tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- );//16.12.16
- tmp="";
- if(isstring(Shellfile),
- if(indexof(Shellfile,"mv")>0,
- tmp=PathAd;
- );
- );
- if(length(tmp)==0,
- if(!isstring(Pathpdf),
- tmp="preview";
- ,
- tmp=Pathpdf;
- );
- );
- if(tmp=="preview" % tmp=="skim", // 16.09.09from,16.10.20
- tmp="open -a "+Dq+tmp+Dq+" "+texmainfile+".pdf";
- ,
- tmp=Dq+tmp+Dq+" "+texmainfile+".pdf";
- );// 16.09.09upto
- );
- println(SCEOUTPUT,tmp); // 16.07.21upto
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- setdirectory(Dirwork);
-);
-
-Makebat():=(
- if(length(Texmain)>0,
- Texparent=Texmain;
- );
- if(length(Texparent)>0,
- Makebat(Texparent);
- if(length(FigPdfList)>0,
- SCEOUTPUT=openfile(Texparent+".tex");
- forall(FigPdfList,println(SCEOUTPUT,#));
- closefile(SCEOUTPUT);
- );
- ,
- Makebat(Fhead+"main");
- );
-);
-Makebat(texmainfile):=Makebat(texmainfile,"stv");
-Makebat(texmainfile,flow):=(
- regional(drive,fname,tmp,tmp1,tmp2,tmp3,flg,tex,path,batnm);
- drive="C:";
- fname=Dirwork+Batparent;
- kc():=(
- println("kc : "+kc(Dirwork+Batparent,Dirlib,Fnametex)); // 16.06.04
- );
- tmp=indexof(fname,":");
- if(tmp>0,
- drive=substring(fname,0,tmp);
- fname=substring(fname,tmp,length(fname));
- );
- tmp1="";
- tmp2=fname;
- flg=0;
- forall(reverse(1..length(fname)),
- if(flg==0,
- tmp=substring(fname,#-1,#);
- if(tmp=="/" % tmp=="\" % tmp=="\", // 14.01.15
- tmp1=substring(fname,0,#-1);
- tmp2=substring(fname,#,length(fname));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(drive+tmp1);
- );
- SCEOUTPUT = openfile(tmp2);
- fname=Dirwork;
- tmp=indexof(fname,":");
- if(tmp>0,
- drive=substring(Dirwork,0,tmp);
- fname=substring(Dirwork,tmp,length(Dirwork));
- println(SCEOUTPUT,drive);
- );
- println(SCEOUTPUT,"cd "+Dq+fname+Dq);// 15.07.16
- if((isstring(Shellfile)) & (length(Shellfile)>6), // 16.04.01
- tmp=Dq+Batchild+Dq+tmp1;
- ,
- flg=0;
- forall(reverse(1..length(PathT)),
- if(flg==0,
- if(substring(PathT,#-1,#)=="\",
- tex=substring(PathT,#,length(PathT));
- path=substring(PathT,0,#-1);
- flg=1;
- );
- );
- );
- if(indexof(flow,"s")>0,
- tmp=Dq+PathS+Dq+" -nb -nwni -f "+Fhead+".sce"; // 16.07.21from
- println(SCEOUTPUT,tmp);
- );
- if(tex=="latex" % tex=="platex" % tex=="uplatex", //17.08.13
- tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- tmp=replace(Dq+PathT+Dq,tex,"dvipdfmx")+" "+texmainfile+".dvi";
- println(SCEOUTPUT,tmp);
- tmp="del "+texmainfile+".dvi";
- println(SCEOUTPUT,tmp);
- );
- if(tex=="xelatex",
- tmp="set Path = %Path%;"+Dq+path+Dq;
- println(SCEOUTPUT,tmp);
- tmp="xelatex"+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- tmp="del "+texmainfile+".dvi";
- println(SCEOUTPUT,tmp);
- );
- if(tex=="pdflatex" % tex=="pdftex",//16.11.22from
- tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- );//16.11.22upto
- if(tex=="lualatex",//16.12.16
- tmp=Dq+PathT+Dq+" "+texmainfile+".tex";
- println(SCEOUTPUT,tmp);
- if(indexof(Shellfile,"mv")>0,
- println(SCEOUTPUT,tmp);
- );
- );//16.12.16
-// tmp="del "+texmainfile+".dvi";
-// println(SCEOUTPUT,tmp);
- tmp="";
- if(isstring(Shellfile),
- if(indexof(Shellfile,"mv")>0,
- tmp=PathAd;
- );
- );
- if(length(tmp)==0,
- if(!isstring(Pathpdf),
- tmp=indexof(PathS,"\scilab");// 15.12.12
- tmp=substring(PathS,0,tmp-1)+"\SumatraPDF\SumatraPDF.exe";
- ,
- tmp=Pathpdf;
- );
- );
- tmp=Dq+tmp+Dq+" "+texmainfile+".pdf";
- ); //16.07.21upto
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- if(indexof(Dirwork,":")==0, // 14.01.15
- drive="C:";
- ,
- drive="";
- );
- setdirectory(drive+Dirwork);
-);
-
-Addpackage(packorg):=(
-//help:Addpackage("bm");
-//help:Addpackage(["bm","enumerate"]);
-//help:Addpackage(["bm","[c]{somepackage}"]);
- regional(packL,tmp);
- packL=packorg; //17.06.25from
- if(!islist(packL),packL=[packL]);
- packL=apply(packL,replace(#,"\","/"));
- forall(1..(length(packL)),
- tmp=packL_#;
- if(substring(tmp,0,11)=="ketpicstyle",
- tmp=replace(Dirhead+"/"+tmp,"\","/");
- );
- if(indexof(tmp,"[")==0,
- packL_#="{"+tmp+"}";
- );
- );
- ADDPACK=concat(ADDPACK,packL); //17.06.25upto
-);
-
-Viewtex():=(
- regional(texfile,tmp,tmp1,sep);
- texfile=Fhead+"main";
-// if(iswindows(),sep="\",sep="/"); // 17.04.07
-// sep="/";
- SCEOUTPUT=openfile(texfile+".tex");
- tmp="\documentclass{article}"; // 16.06.09from
- if(indexof(PathT,"platex")>0,
- tmp=replace(tmp,"article","jarticle");
- if(indexof(PathT,"uplatex")>0, //17.08.13from
- tmp=replace(tmp,"jarticle","ujarticle");
- );//17.08.13upto
- ); // 16.06.09upto
- println(SCEOUTPUT,tmp);
- if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0) ,//16.11.23,12.16
- if(indexof(PathT,"pdflatex")>0,
- println(SCEOUTPUT,"\usepackage[pdftex]{pict2e}");//16.11.24
- ,
- println(SCEOUTPUT,"\usepackage{pict2e}");//16.12.16
- println(SCEOUTPUT,"\usepackage{luatexja}");//16.12.18
- );
-// println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.07from
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
- ,
-// println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
- );//17.04.07upto
- println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
- println(SCEOUTPUT,"\usepackage{graphicx}");
- println(SCEOUTPUT,"\usepackage{color}");
- forall(ADDPACK, // 16.05.16from
- println(SCEOUTPUT,"\usepackage"+#); //17.05.25
- );// 16.05.16upto
- println(SCEOUTPUT,"");
-// println(SCEOUTPUT,"\def\ketcindy{{K\kern-.20em%"); // deleted 16.11.27,recovered11.29 redeleted17.04.07
-// println(SCEOUTPUT,"\lower.5ex\hbox{E}\kern-.125em{TCindy}}}");
-// println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\setmargin{20}{20}{20}{20}");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\begin{document}");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\verb|"+Fhead+"| by \ketcindy");// 16.01.12, 18, 16.04.08
-// println(SCEOUTPUT,"\verb|"+Fhead+"| by KeTCindy");// 16.11.29 temporarily
- println(SCEOUTPUT,"\vspace{5mm}");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\input{"+Fhead+".tex}");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\end{document}");
- closefile(SCEOUTPUT);
- if(iswindows(),
- kc():=(
- println("kc : "+kc(Dirwork+Batparent,Dirlib,Fnametex)); // 16.06.04
- );
- Makebat(texfile);
- ,
- kc():=(
- println("kc : "+kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex)); // 16.06.04
- );
- Makeshell(texfile);
- );
- WritetoSci(2);
-);
-
-Viewparent():=( //17.04.13
- if(!isexists(Dirwork,Texparent+".tex"),
- if(isstring(Texparent),
- drawtext(mouse().xy,Texparent+".tex not exist",
- size->24,color->[1,0,0]);
- ,
- drawtext(mouse().xy,"Texparent not defined",
- size->24,color->[1,0,0]);
- );
- ,
- if(iswindows(),
- Makebat();
- ,
- Makeshell();
- );
- WritetoSci(2);
- kc();
- );
-);
-
-Makecmdlist(libname):=(
-//help:Makecmdlist("ketcindylib");
- regional(cmdall,cmd,flg,tmp,tmp1,tmp2,out);
- setdirectory(Dirlib);
- tmp=load(libname+".cs");
- cmdall=tokenize(tmp,":=");
- out=[];
- forall(cmdall,cmd,
- tmp=max([0,length(cmd)-50]);
- tmp1=";"+substring(cmd,tmp,length(cmd));
- flg=0;
- forall(reverse(1..length(tmp1)),
- if(flg==0,
- if(substring(tmp1,#-1,#)==";",
- tmp=substring(tmp1,#,length(tmp1));
- tmp2=substring(tmp,0,1);
- if(length(tmp)>0,
- if(!contains([" ","/"],tmp2),
- out=append(out,tmp);
- flg=1;
- );
- );
- );
- );
- );
- );
- setdirectory(Dirwork);
- tmp=length(out)-1;
- out=out_(2..tmp);
- out=sort(out);
-);
-
-Savecmdlist(cmdlist,cmdfile):=(
- SCEOUTPUT=openfile(cmdfile+".cs");
- forall(cmdlist,
- println(SCEOUTPUT,#);
- );
- closefile(SCEOUTPUT);
-);
-
-Quicksort(seq):=(
- regional(pivot,left,right,out);
- if(length(seq)<2,
- out=seq;
- ,
- pivot = max(seq_1,seq_2);
- left = [];
- right = [];
- forall(seq,
- if(#< pivot,
- left=append(left,#);
- ,
- right=append(right,#);
- );
- );
- left = Quicksort(left);
- right = Quicksort(right);
- out=concat(left,right);
- );
- out;
-);
-
-Lessstr(st1,st2):=(
- regional(tmp,tmp1,tmp2,out);
- tmp=min(length(st1),length(st2));
- flg=0;
- forall(1..tmp,
- if(flg==0,
- tmp1=substring(st1,#-1,#);
- tmp2=substring(st2,#-1,#);
- if(tmp1<tmp2,
- out=(1<2);
- flg=1;
- ,
- if(tmp1>tmp2,
- out=(1>2);
- flg=1;
- );
- );
- );
- );
- if(flg==0,
- if(length(st1)<length(str2),
- out=(1<2);
- ,
- out=(1>2);
- );
- );
- out;
-);
-
-Figpdf():=Figpdf(Texparent,[]);
-Figpdf(Arg1):=(
- if(isstring(Arg1),
- Figpdf(Arg1,[]);
- ,
- Figpdf(Texparent,Arg1);
- );
-);
-Figpdf(fnameorg,optionorg):=(
-//help:Figpdf();
-//help:Figpdf([10,,10,,[0,2] ]);(margin(4),move)
-//help:Figpdf([[0,0]]);(move)
-//help:Figpdf(options=[5,5,5,5,[0,0]]]);
- regional(options,fname,mar,pos,dp,sc,tmp,tmp1,tmp2,sep);
- fname=fnameorg;
- if(indexof(fnameorg,".")==0,
- fname=fnameorg+".tex";
- );
- tmp=apply(optionorg,if(isstring(#),parse("["+#+"]"),#)); // 16.04.07
- tmp=select(tmp,#!=[]);
- options=optionorg;//16.11.08from
-// mar=[5,5,5,5];
- dp=[0,-3];
- tmp=select(options,islist(#));
- if(length(tmp)>0,
- dp=tmp_1;
- options=remove(options,tmp);
- );
- tmp=4-length(options);
- tmp1=apply(1..tmp,5);
- mar=concat(options,tmp1);
- mar=apply(mar,if(length(#)==0,5,#));//16.11.08upto
- pos=[mar_1+dp_1,mar_3+dp_2];
- sc=10;
- tmp=indexof(ULEN,"cm");
- if(tmp>0,
- tmp1=Removespace(substring(ULEN,0,tmp-1));
- sc=parse(tmp1)*10;
- );
- tmp=indexof(ULEN,"mm");
- if(tmp>0,
- tmp1=Removespace(substring(ULEN,0,tmp-1));
- sc=parse(tmp1);
- );
- tmp="\documentclass{article}"; // 16.06.09from
- if(indexof(PathT,"platex")>0,
- tmp=replace(tmp,"article","jarticle");
- if(indexof(PathT,"uplatex")>0, //17.08.13from
- tmp=replace(tmp,"jarticle","ujarticle");
- );//17.08.13upto
- );
- FigPdfList=append(FigPdfList,tmp); // 16.06.09upto
- tmp1="\special{papersize=W mm,H mm}";
- tmp=(XMAX-XMIN)*sc+(mar_1+mar_2);
- tmp1=replace(tmp1,"W",text(tmp));
- tmp=(YMAX-YMIN)*sc+(mar_3+mar_4);
- tmp1=replace(tmp1,"H",text(tmp));
-// if(iswindows(),sep="\",sep="/");//17.04.08
-// sep="/";
- FigPdfList=append(FigPdfList,tmp1);
- if(indexof(PathT,"pdflatex")>0 ,//16.11.23
- Libname=Dirlib+"/ketpic2esciL5";//16.11.23
- FigPdfList=append(FigPdfList,
- "\usepackage[pdftex]{pict2e}");//16.11.24
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- FigPdfList=concat(FigPdfList, // 17.04.08from
-// "\usepackage{ketpic2e,ketlayer2e}");
- ["\usepackage{"+tmp+"/ketpic2e}",
- "\usepackage{"+tmp+"/ketlayer2e}"]
- );
- ,
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- FigPdfList=concat(FigPdfList,
-// "\usepackage{ketpic,ketlayer}");
- ["\usepackage{"+tmp+"/ketpic}",
- "\usepackage{"+tmp+"/ketlayer}"]
- );// 17.04.08upto
- );//16.11.22from
- FigPdfList=append(FigPdfList,
- "\usepackage{amsmath,amssymb}");
- FigPdfList=append(FigPdfList,
- "\usepackage{graphicx,color}");
- forall(ADDPACK, // 16.05.16from
-// if(indexof(#,"[")==0, // 16.09.05from
-// tmp1="\usepackage{"+#+"}";
-// ,
- tmp1="\usepackage"+#; //17.07.10
-// );
- FigPdfList=append(FigPdfList,tmp1); // 16.09.05upto
- );
- FigPdfList=append(FigPdfList,"");
-// FigPdfList=append(FigPdfList, // deleted 2016.11.27
-// "\def\ketcindy{{K\kern-.20em%");
-// tmp="\lower.5ex\hbox{E}\kern-.125em";
-// tmp=tmp+"{TCindy}}}";
-// FigPdfList=append(FigPdfList,tmp);
-// FigPdfList=append(FigPdfList,"");
- FigPdfList=append(FigPdfList,
- "\setmargin{0}{0}{0}{0}");
- FigPdfList=append(FigPdfList,"");
- FigPdfList=append(FigPdfList,"\begin{document}");
- FigPdfList=append(FigPdfList,"");
- FigPdfList=append(FigPdfList,
- "\begin{layer}{50}{0}");
- tmp1="\putnotese{X}{Y}{\input{";
- tmp1=replace(tmp1,"X",text(pos_1));
- tmp1=replace(tmp1,"Y",text(pos_2));
- FigPdfList=append(FigPdfList,tmp1+Fhead+".tex}}");
- FigPdfList=append(FigPdfList,"");
- FigPdfList=append(FigPdfList,"\end{layer}");
- FigPdfList=append(FigPdfList,"");
- FigPdfList=append(FigPdfList,"\end{document}");
- if(fnameorg!=Texparent,
- SCEOUTPUT=openfile(fname);
- forall(FigPdfList,println(SCEOUTPUT,#));
- closefile(SCEOUTPUT);
- );
- FigPdfList;
-);
-
-Makehelplist(libname):=(
- regional(cmdall,cmd,flg,lev,tmp,tmp1,out);
- tmp=load(libname);
- cmdall=tokenize(tmp,"//help:");
- cmdall=select(cmdall,substring(#,1,3)!=");");
- flg=0;
- forall(1..3,
- if(flg==0,
- if(substring(cmdall_#,0,7)=="start()",
- cmdall=cmdall_((#+1)..length(cmdall));
- flg=1;
- );
- );
- );
- flg=0;
- tmp=length(cmdall);
- forall(0..2,
- if(flg==0,
- if(substring(cmdall_(tmp-#),0,5)=="end()",
- cmdall=cmdall_(1..(tmp-#-1));
- flg=1;
- );
- );
- );
- out=[];
- forall(cmdall,cmd,
- tmp1=indexof(cmd,"(");
- lev=1;
- flg=0;
- forall((tmp1+1)..length(cmd),
- if(flg==0,
- tmp=substring(cmd,#-1,#);
- if(tmp=="(",lev=lev+1);
- if(tmp==")",
- lev=lev-1;
- if(lev==0,
- flg=1;
- out=append(out,substring(cmd,0,#)+";");
- );
- );
- );
- );
- );
- sort(out);
-);
-
-Helplist():=Helplist(Dirlib,["+","+3d"],"helpJ");
-// 15.05.22
-Helplist(Arg):=(
- if(islist(Arg),
- Helplist(Dirlib,Arg,"helpJ"); // 15.06.20
- ,
- if(indexof(Arg,"help")>0,
- Helplist(Dirlib,["+","+3d"],Arg);
- ,
- Helplist(Arg,["+","+3d"],"helpJ");
- );
- );
-);
-Helplist(Arg1,Arg2):=(
- if(islist(Arg1),
- Helplist(Dirlib,Arg1,Arg2);
- ,
- if(indexof(Arg2,"help")>0,
- Helplist(Dirlib,Arg1,Arg2);
- ,
- Helplist(Arg,["+","+3d"],Arg2);
- );
- );
-);
-Helplist(dir,files,help):=(
-//help:Helplist();
-//help:Helplist("helpE");
- regional(ketfiles,tmp,tmp1,tmp2);
- setdirectory(dir);
- if(contains(files,"+"),
- tmp=remove(files,["+"]);
- ketfiles=concat(["+basic1","+basic2","+out"],tmp);
- ,
- ketfiles=files;
- );
- ketfiles=apply(ketfiles,replace(#,"+","ketcindylib"));
- ketfiles=apply(ketfiles,#+".cs"); // 15.11.05 from
- tmp=apply(files,replace(#,"+","ketcindylib"));
-// tmp=apply(files,replace(#,".cs",""));
-// tmp=remove(tmp,["ketcindylibout"]);
-// tmp=apply(tmp,replace(#,"basic",""));
- tmp=apply(tmp,#+help+".txt");
- ketfiles=concat(ketfiles,tmp);// 15.11.05 upto
- tmp1=[];
- forall(ketfiles,
- tmp=Makehelplist(#);
- tmp1=concat(tmp1,tmp);
- );
- if(!islist(HLIST), // 16.12.31from
- HLIST=sort(tmp1);
- ,
- HLIST=sort(concat(HLIST,tmp1));
- ); // 16.12.31upto
- setdirectory(Dirwork);
-);
-
-
-Help():=(
- forall(HLIST,
- println(#);
- );
-);
-Help(strorg):=(
-//help:Help("Plot");
-//help:Help("*");
- regional(str,sel,tmp,tmp1,tmp2,flg,Endflg);
- if(length(HLIST)>0,flg=0,flg=-1);
- str=replace(strorg,"'",Dq); // 15.11.25
- if(length(str)==0,
- forall(HLIST,
- if(indexof(#,"*")>0,
- println(#);
- );
- flg=1;
- );
- ,
- if(str=="*",
- sel=HLIST;
- ,
- sel=select(HLIST,substring(#,0,length(str))==str);
- );
- if(length(sel)>0,flg=1);
- forall(sel,
- tmp=indexof(#,"(");
- if(substring(#,tmp-2,tmp-1)!="*",
- println(#);
- ,
-// println(substring(#,0,tmp-1));
- tmp1=substring(#,tmp,length(#)-2);
- tmp2=indexof(tmp1,"//");
- Endflg=0;
- forall(1..4,
- if(Endflg==0,
- tmp2=indexof(tmp1,"//");
- if(tmp2==0,
- println(" "+tmp1);
- Endflg=1;
- ,
- println(" "+substring(tmp1,0,tmp2-1));
- tmp1=substring(tmp1,tmp2+1,length(tmp1));
- );
- );
- );
- );
- );
- );
- if(flg==-1,println(" Help not read in"));
- if(flg==0,println(" no example"));
-);
-
-Helpkey(str):=(
- regional(tmp,tmp1,tmp2);
- tmp1=select(HLIST,indexof(#,str)>0);
- forall(tmp1,
- tmp=substring(#,0,indexof(#,"*")-1);
- Help(tmp);
- );
-);
-Helpkey(str1,str2):=(
-//help:Helpkey(keyword);
-//help:Helpkey(keyword1,keyword2);
- regional(tmp,tmp1,tmp2);
- tmp1=select(HLIST,indexof(#,str1)>0);
- tmp1=select(tmp1,indexof(#,str2)>0);
- forall(tmp1,
- tmp=substring(#,0,indexof(#,"*")-1);
- Help(tmp);
- );
-);
-
-Slidework():=Slidework(Dirwork); // 16.06.10
-Slidework(dirorg):=(
-//help:Slidework(directory);
- regional(dir,tmp,sep); // 16.06.25
- dir=replace(dirorg,unicode("000a"),""); // 16.06.25
- sep="/"; //17.04.16from
- if(iswindows(),
- dir=replace(dir,"/","\");
- sep="\";
- ); //17.04.16upto
- if(isexists(dir,""), // 16.12.20
- Changework(dir);
- if(!isexists(Dirwork,"fig"), // 16.12.18
- cmdL=["createdir",[Dq+dir+sep+"fig"+Dq]];//16.12.27,17.04.16
- CalcbyS("crdr",cmdL,["m"]);
- println(dir+sep+"fig generated"); //17.04.16
- );
- tmp=dir+sep+"fig"; //17.04.16from
- Changework(tmp);// 17.02.19upto
- ,
- println(dir+ " not exists");
- );
-);
-
-Setslidepage():=( // 17.03.05
- regional(tmp1,tmp2,tmp3);
- tmp1=["letterc","boxc","framec","shadowc","xpos","size"];
- tmp2=apply([1,2,4,5,7,8],SlideColorList_#);
- tmp3=apply(1..(length(tmp1)),tmp1_#+"="+tmp2_#);
- println(tmp3);
-);
-Setslidepage(list):=( // 16.12.22
-//help:Setslidepage([letterc,boxc,framec,shadowc,xpos,size]);
- regional(numlist,tmp,tmp1,letterc,boxc,shadowc,mboxc);
- letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
- shadowc=[0,0,0,0.5]; mboxc="yellow";
- if(!islist(SlideColorList),
- SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
- letterc,mboxc,mboxc,mboxc,62,2,letterc];
- );
- numlist=[1,2,4,5,7,8];
- forall(1..(length(list)),
- if(length(list_#)>0,
- tmp=numlist_#;
- SlideColorList_tmp=list_#;
- );
- );
- SlideColorList_3=SlideColorList_2;
- SlideColorList_6=SlideColorList_5;
-);
-
-Setslidemain():=( // 17.03.05
- regional(tmp1,tmp2,tmp3);
- tmp1=["letterc","boxc","framec","xpos","size"];
- tmp2=apply([9,10,12,13,14],SlideColorList_#);
- tmp3=apply(1..(length(tmp1)),tmp1_#+"="+tmp2_#);
- println(tmp3);
-);
-Setslidemain(list):=( // 16.12.22
-//help:Setslidemain([letterc,boxc,framec,xpos,size]);
- regional(numlist,tmp,tmp1,letterc,boxc,shadowc,mboxc);
- letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
- shadowc=[0,0,0,0.5]; mboxc="yellow";
- if(!islist(SlideColorList),
- SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
- letterc,mboxc,mboxc,mboxc,62,2,letterc];
- );
- numlist=[9,10,12,13,14];
- forall(1..(length(list)),
- if(length(list_#)>0, //17.01.04
- tmp=numlist_#;
- SlideColorList_tmp=list_#;
- );
- );
- SlideColorList_11=SlideColorList_10;
-);
-
-Setslidebody():=( // 17.03.05
- regional(tmp1,tmp2,tmp3);
- tmp1=["letterc","style","thindense"];
- tmp2=[SlideColorList_(15),BodyStyle,ThinDense];
- tmp3=apply(1..(length(tmp1)),tmp1_#+"="+tmp2_#);
- println(tmp3);
-);
-Setslidebody(str):=(
- regional(clr,style,thin);
- if(isstring(str),
- Setslidebody(str,"\Large\bf\boldmath",0.1);
- ,
- if(length(str)==1,Setslidebody(str_1));
- if(length(str)==2,Setslidebody(str_1,str_2));
- if(length(str)==3,Setslidebody(str_1,str_2,str_3));
- );
-);
-Setslidebody(str,Arg):=( //17.01.08
- if(isstring(Arg),
- Setslidebody(str,Arg,0.1);
- ,
- Setslidebody(str,"\Large\bf\boldmath",Arg);
- );
-);
-Setslidebody(str,style,density):=( // 16.12.22,17.01.06,01.08
-//help:Setslidebody(["black",,0]);
-//help:Setslidebody(["blue","\Large\bf\boldmath",0.1]);
- regional(numlist,tmp,tmp1,letterc,boxc,shadowc,mboxc);
- letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
- shadowc=[0,0,0,0.5]; mboxc="yellow";
- if(!islist(SlideColorList),
- SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
- letterc,mboxc,mboxc,mboxc,62,2,letterc];
- );
- if(length(str)>0,SlideColorList_(15)=str);
- if(length(style)>0,BodyStyle=style);
- ThinDense=density;//17.01.08
-);
-
-Setslidehyper():=Setslidehyper(["cl=true,lc=blue,fc=blue",125,70,1]);
-// 16.12.31from
-Setslidehyper(Arg):=(
- if(isstring(Arg),
- if(length(Arg)==0, //17.01.29from
- Setslidehyper();
- ,
- Setslidehyper(Arg,[]);
- );//17.01.29upto
- ,
- Setslidehyper("dvipdfmx",Arg);
- );
-);
-Setslidehyper(driver,options):=(
-//help:Setslidehyper();
-//help:Setslidehyper("dvipdfmx",["cl=true,lc=blue,fc=blue",125,70,1]);
- regional(reL,stL,tmp,tmp1,tmp2,str,reL);
- str="";
- reL=[];
- forall(options,
- if(isstring(#),
- str=#
- ,
- reL=append(reL,#);
- );
- );
- if(length(str)>0,str=","+str);
- tmp1="";
- if(length(driver+str)>0,
- tmp1="["+driver+str+"]";
- );
- tmp1=replace(tmp1,"cl=","colorlinks=");
- tmp1=replace(tmp1,"lc=","linkcolor=");
- tmp1=replace(tmp1,"fc=","filecolor=");
- tmp1=replace(tmp1,"uc=","urlcolor=");
- Addpackage(tmp1+"{hyperref}");
- LinkPosH=125;
- LinkPosV=70;
- LinkSize=1;
- if(length(reL)>0,LinkPosH=reL_1);
- if(length(reL)>1,LinkPosV=reL_2);
- if(length(reL)>2,LinkSize=max(reL_3,0.1)); // 17.07.31
-);
-
-Settitle(cmdL):=Settitle("slide0",cmdL,[]);
-Settitle(Arg1,Arg2):=(
- if(isstring(Arg1),
- Settitle(Arg1,Arg2,[]);
- ,
- Settitle("slide0",Arg1,Arg2);
- );
-);
-Settitle(name,cmdL,options):=(
-//help:Settitle(cmdL);
-//help:Settitle(name,cmdL);
-//help:Settitle(options=["Layery=0","Color=blue"]);
- regional(tmp,tmp1,tmp2,eqL,layery,color,size,font);
- TitleName=name;
- layery="0";
- color="blue";
- size="\Large";
- font="\bf";
- tmp=Divoptions(options);
- eqL=tmp_5;
- forall(eqL,
- tmp1=Toupper(substring(#,0,1));
- tmp=indexof(#,"=");
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="L",
- layery=tmp2;
- );
- if(tmp1=="C",
- color=tmp2;
- );
- if(tmp1=="S",
- size=tmp2;
- if(substring(size,0,1)!="\",size="\"+size);
- );
- if(tmp1=="F",
- font=tmp2;
- if(substring(font,0,1)!="\",font="\"+font);
- );
- );
- TitleCmdL=["{"+size+font];
- if(indexof(color,"[")>0,
- tmp=replace(color,"[","{");
- tmp=replace(tmp,"]","}");
- tmp1=Indexall(tmp,",");
- if(length(tmp1)>=3,
- tmp="\color[cmyk]"+tmp;
- ,
- tmp="\color[rgb]"+tmp;
- );
- ,
- tmp="\color{"+color+"}";
- );
- TitleCmdL=append(TitleCmdL,tmp);
- TitleCmdL=concat(TitleCmdL,["","\begin{layer}{120}{"+layery+"}"]);
- forall(1..(length(cmdL)),
- tmp=cmdL_#;
- if(length(tmp)>0,
- if(#==1,
- tmp="{\Huge \putnote"+tmp+"}"
- ,
- tmp="\putnote"+tmp;
- );
- TitleCmdL=append(TitleCmdL,tmp);
- );
- );
- TitleCmdL=concat(TitleCmdL,["\end{layer}","","}"]);
-);
-
-Maketitle():=(
- if(!isstring(TitleName), //17.04.13from
- drawtext(mouse().xy,"Settitle not defined",
- size->24,color->[1,0,0]);
- , //17.04.13upto
- Maketitle(TitleName);
- );
-);
-Maketitle(name):=(
-//help:Maketitle();
- regional(texfile,texmain,tmp,tmp1,sep);
- texfile=name;
- texmain=name+"main";
- SCEOUTPUT=openfile(texfile+".tex");
- forall(TitleCmdL,
- println(SCEOUTPUT,#);
- );
- closefile(SCEOUTPUT);
- SCEOUTPUT=openfile(texmain+".tex");
- tmp="\documentclass[landscape,10pt]{article}";
- if(indexof(PathT,"platex")>0,
- tmp=replace(tmp,"article","jarticle");
- if(indexof(PathT,"uplatex")>0, //17.08.13from
- tmp=replace(tmp,"jarticle","ujarticle");
- );//17.08.13upto
- );
- println(SCEOUTPUT,tmp);
- tmp="\special{papersize=\the\paperwidth,\the\paperheight}";
- println(SCEOUTPUT,tmp);
-// if(iswindows(),sep="\",sep="/"); // 17.04.08from
-// sep="/";
- //println(SCEOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}");
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}");
- println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
- println(SCEOUTPUT,"\usepackage{bm,enumerate}");
- if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0),
- println(SCEOUTPUT,"\usepackage{graphicx}");
- ,
- println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}");
- );
- println(SCEOUTPUT,"\usepackage[usenames]{xcolor}");
- forall(ADDPACK,
-// if(indexof(#,"[")==0,
-// println(SCEOUTPUT,"\usepackage{"+#+"}");
-// ,
- println(SCEOUTPUT,"\usepackage"+#); // 17.07.10
-// );
- );
- if(indexof(PathT,"platex")>0,tmp="\ketmarginJ",tmp="\ketmarginE");
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"\ketslideinit");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\begin{document}");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\input{"+texfile+".tex}");
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\end{document}");
- closefile(SCEOUTPUT);
- if(iswindows(),
- Makebat(texmain,"tv");
- ,
- Makeshell(texmain,"tv");
- );
- kc();
-);
-
-Repeatsameslide(repeatflg,sestr,addedL):=(
- regional(seL,flg1,ss,nn,nrep,tmp,tmp1,tmp2,tmp3,str,j,k);
- // global RepeatList, SCEOUTPUT
- nrep=length(RepeatList);
- flg1=0;
- forall(addedL,ss,
- if(repeatflg==0,
- if(substring(ss,0,1)!="%", //16.01.04
- println(SCEOUTPUT,ss);
- );//16.01.04
- ,
- forall(1..nrep,nn,
- if(sestr=="",
- RepeatList_nn=append(RepeatList_nn,ss);
- );
- );
- if(sestr=="",
- seL=[1];
- ,
- tmp1=substring(sestr,1,length(sestr)-1);
- tmp1=replace(tmp1,",-",".."+text(nrep));
- tmp1=replace(tmp1,"-,","1..");
- tmp1="["+tmp1+"]"; //17.01.03
- seL=flatten(parse(tmp1)); //17.01.03
- );
- if(contains(seL,1),
- if(substring(ss,0,1)!="%", //16.01.04
- println(SCEOUTPUT,ss);
- );
- seL=remove(seL,[1]);
- flg1=1;
- );
- forall(1..(length(seL)),nn,
- tmp=seL_nn;
- if(tmp<=length(RepeatList), //17.01.12from
- RepeatList_tmp=append( RepeatList_tmp,ss);
- ,
- println(" "+sestr+" : "+text(tmp)+" > "+text(length(RepeatList)));
- );
- );
- if(ThinFlg==1,//16.01.05from
- if(flg1==1,seL=append(seL,1));
- seL=remove(1..nrep,seL);
- str=ss; // 17.05.28from
- repeat(10,
- tmp1=Indexall(str,"{\color");
- if(length(tmp1)>0,
- tmp2=Indexall(str,"}");
- tmp=select(tmp2,tmp1_1<#);
- tmp=substring(str,tmp1_1,tmp_1);
- str=replace(str,tmp+" ","");
- str=replace(str,tmp,"");
- );
- );//17.05.28upto
- if(contains(seL,1),
- if(substring(str,0,1)!="%",
- if(NonThinFlg==0,
- if(!contains(["\begi","\end{"],substring(str,0,5)),//17.01.15
- println(SCEOUTPUT,"{\color[cmyk]{\thin,\thin,\thin,\thin}");//17.08.23
- println(SCEOUTPUT,str);
- println(SCEOUTPUT,"}%");
- ,
- println(SCEOUTPUT,str);
- );
- );
- if(NonThinFlg==1,
- if(!contains(["\begi","\end{"],substring(str,0,5)),//17.01.15
- println(SCEOUTPUT,"{\color[cmyk]{\thin,\thin,\thin,\thin}");//17.08.23
- );
- println(SCEOUTPUT,str);
- );
- if(NonThinFlg==2,
- println(SCEOUTPUT,str);
- if(!contains(["\begi","\end{"],substring(str,0,5)),//17.01.15
- println(SCEOUTPUT,"}%");
- );
- );
- seL=remove(seL,[1]);
- );
- );
- if(substring(ss,0,1)!="%", //16.01.04
- forall(1..(length(seL)),nn,
- tmp=seL_nn;
- if(NonThinFlg==0,
- tmp1="{\color[cmyk]{\thin,\thin,\thin,\thin}";//17.08.23
- tmp1=[tmp1,str,"}%"];
- );
- if(NonThinFlg==1,
- tmp1="{\color[cmyk]{\thin,\thin,\thin,\thin}";//17.08.23
- tmp1=[tmp1,str];//17.01.08upto
- );
- if(NonThinFlg==2,
- tmp1=[str,"}%"];
- );
- RepeatList_tmp=concat( RepeatList_tmp,tmp1);
- );
- );
- );//16.01.05upto
- );
- );//16.12.05upto
-);
-
-Presentation(texfile):=Presentation(texfile,texfile);
-Presentation(texfile,txtfile):=(
-//help:Presentation(texfile,txtfile);
- regional(file,flgL,flg,verbflg,slideL,ns,slideorgL,wall,sld,slidecmd,tmp,tmp0,tmp1,
- tmp2,tmp3,tmp4,tmp5,newoption,top,repeatflg,nrep,nrepprev,,repstr,
- sestr,npara,paradt,parafiles,hyperflg,paractr,
- letterc,boxc,shadowc,mboxc,sep);
- slidecmd=["\ketcletter","\ketcbox","\ketdbox","\ketcframe",
- "\ketcshadow","\ketdshadow","\slidetitlex","\slidetitlesize",
- "\mketcletter","\mketcbox","\mketdbox","\mketcframe",
- "\mslidetitlex","\mslidetitlesize"];
- if(!isstring(BodyStyle),//17.01.06
- BodyStyle="\Large\bf\boldmath";
- );
- repeatflg=0;
- RepeatList=[];
- paractr=0; //16.12.31
- if(indexof(texfile,".")==0,file=texfile+".tex",file=texfile);
- if(indexof(txtfile,".")==0,tmp1=txtfile+".txt",tmp1=txtfile);
- tmp=load(tmp1);
- tmp=replace(tmp,"////","||||");// 16.05.11, 06.24(reactivated)
- slideL=tokenize(tmp,"//");
- slideorgL=slideL; // 16.07.11
- slideL=apply(slideL,Removespace(#));
- tmp=select(1..length(slideL),length(slideL_#)>0); // 16.07.11from
- slideL=apply(tmp,slideL_#);
- slideorgL=apply(tmp,slideorgL_#);
-// slideL=select(slideL,length(#)>0); // 16.07.11upto
- flg=0; // 16.06.09from
- forall(1..10,
- if(flg==0,
- if(substring(slideL_1,0,1)!="%",
- flg=1;
- ,
- slideL=slideL_(2..length(slideL));
- slideorgL=slideorgL_(2..length(slideorgL));
- );
- );
- ); // 16.06.09upto
- flgL=[];
- SCEOUTPUT = openfile(file);
- tmp=tokenize(slideL_1,"::");
- tmp1=tmp_1;
- if(length(tmp)>1,
- tmp2=tmp_2;
- tmp3=tmp_(3..length(tmp));//16.06.25
- ,
- tmp2="";
- tmp3=tmp_(2..length(tmp));//16.06.25
- );
- wall=""; // 16.06.10
- if(length(tmp3)>0,//16.06.25from
- if(substring(tmp3_1,0,1)!="\" & indexof(tmp3_1,"=")==0,
- wall=tmp3_1;
- tmp3=tmp3_(2..length(tmp3));
- );
- );//16.06.25upto
- tmp="%%% "+tmp1+" "+txtfile;// 16.06.09from
- println(SCEOUTPUT,tmp);
- tmp="\documentclass[landscape,10pt]{article}";
- if(indexof(PathT,"platex")>0,
- tmp=replace(tmp,"article","jarticle");
- if(indexof(PathT,"uplatex")>0, //17.08.13from
- tmp=replace(tmp,"jarticle","ujarticle");
- );//17.08.13upto
- );
- println(SCEOUTPUT,tmp);// 16.06.09from
- tmp=select(1..(length(tmp3)),indexof(tmp3_#,"\usepackage")>0);//17.06.18from
- forall(tmp,
- println(SCEOUTPUT,tmp3_#);
- );
- tmp=remove(1..(length(tmp3)),tmp);
- tmp3=tmp3_tmp;//17.06.18upto
-// if(iswindows(),sep="\",sep="/"); // 17.04.08
-// sep="/";
- if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0),
- if(indexof(PathT,"lualatex")>0,
- println(SCEOUTPUT,"\usepackage{luatexja}");
- );
- println(SCEOUTPUT,"\usepackage{pict2e}");
-// println(SCEOUTPUT,"\usepackage{ketpic2e,ketlayer2e}");// 17.04.08from
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic2e}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer2e}");
- ,
- println(SCEOUTPUT,"\special{papersize=\the\paperwidth,\the\paperheight}");
- //println(SCEOUTPUT,"\usepackage{ketpic,ketlayer}");
- tmp=replace(Dirhead+"/ketpicstyle","\","/");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketpic}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketlayer}");
- );// 17.04.08upto
- if(length(wall)==0,
- //println(SCEOUTPUT,"\usepackage{ketslide}");//17.04.08from
- tmp=replace(Dirhead+"/ketpicstyle","\","/");//17.04.16
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide}");
- ,
- tmp=replace(Dirhead+"/ketpicstyle","\","/");//17.04.16
- //println(SCEOUTPUT,"\usepackage{ketslide2}");
- println(SCEOUTPUT,"\usepackage{"+tmp+"/ketslide2}");
- );//17.04.08upto
- println(SCEOUTPUT,"\usepackage{amsmath,amssymb}");
- println(SCEOUTPUT,"\usepackage{bm,enumerate}");
- if((indexof(PathT,"pdflatex")>0)%(indexof(PathT,"lualatex")>0),
- println(SCEOUTPUT,"\usepackage{graphicx}");
- ,
- println(SCEOUTPUT,"\usepackage[dvipdfmx]{graphicx}");
- );
-// println(SCEOUTPUT,"\usepackage[usenames]{color}");
-// println(SCEOUTPUT,"\usepackage{color}");//17.06.14
- println(SCEOUTPUT,"\usepackage{xcolor}");//17.07.31
- letterc=[0.98,0.13,0,0.43]; boxc=[0,0.32,0.52,0];
- shadowc=[0,0,0,0.5]; mboxc="yellow";
-// if(!islist(SlideColorList), //17.03.02from
-// SlideColorList=[letterc,boxc,boxc,boxc,shadowc,shadowc,6,1.3,
-// letterc,mboxc,mboxc,mboxc,62,2,letterc];
-// , //17.03.02upto
- tmp4="abcdefghijklmno";
- forall(1..15,
- tmp=SlideColorList_#;
- if(islist(tmp),
- tmp=text(tmp);
- tmp=substring(tmp,1,length(tmp)-1);
- if(length(SlideColorList_#)==4,//17.01.07from
- println(SCEOUTPUT,"\definecolor{slidecolor"+tmp4_#+"}{cmyk}{"+tmp+"}");
- );
- if(length(SlideColorList_#)==3,
- println(SCEOUTPUT,"\definecolor{slidecolor"+tmp4_#+"}{rgb}{"+tmp+"}");
- );//17.01.07upto
- SlideColorList_#="slidecolor"+tmp4_#;
- );
- );
-// ); //17.03.02
- println(SCEOUTPUT,"\def\setthin#1{\def\thin{#1}}");//17.08.23
- println(SCEOUTPUT,"\setthin{"+text(ThinDense)+"}");//17.08.23
- forall(ADDPACK,// 16.06.09from
-// if(indexof(#,"[")==0, // 16.09.05from
-// println(SCEOUTPUT,"\usepackage{"+#+"}");
-// ,
- println(SCEOUTPUT,"\usepackage"+#); //17.07.10
-// );
- );// 16.06.09upto
- tmp=select(ADDPACK,indexof(#,"{hyperref}")>0);//16.12.31from
- if(length(tmp)>0,
- hyperflg=1;
- ,
- hyperflg=0; //16.12.31upto
- );
- forall(tmp3,
- println(SCEOUTPUT,#);
- );
- if(indexof(PathT,"platex")>0,tmp="\ketmarginJ",tmp="\ketmarginE"); // 16.06.09
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"\ketslideinit");
- println(SCEOUTPUT,"");
- forall(tmp, // 15.07.21
- if(substring(#,0,1)=="\", println(SCEOUTPUT,#));
- );
- if(!isstring(PageStyle),PageStyle="headings");//17.04.09
- println(SCEOUTPUT,"\pagestyle{"+PageStyle+"}");//17.04.09
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\begin{document}");
- println(SCEOUTPUT,"");
- if(length(wall)>0,
- println(SCEOUTPUT,"\input{fig/"+wall+".tex}");
- println(SCEOUTPUT,"");
- );
- if(length(tmp2)>0,
- if(indexof(tmp2," no")==0, // 16.11.11from
- println(SCEOUTPUT,"\begin{layer}{120}{0}");
- if(substring(tmp2,0,1)!="\",
- tmp2="\putnotese{0}{0}{\input{fig/"+tmp2+".tex}}";//16.12.27
- );
- println(SCEOUTPUT,tmp2);
- println(SCEOUTPUT,"\end{layer}");
- println(SCEOUTPUT,"");
- ,
- tmp=indexof(tmp2,"=");
- if(tmp==0,
- top="10mm";
- ,
- top=substring(tmp2,tmp,length(tmp2));
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\vspace*{"+top+"}");
- println(SCEOUTPUT,"");
- ); // 16.11.11upto
- );
- println(SCEOUTPUT,"\def\mainslidetitley{22}");
- forall(1..14, //16.12.22from
- tmp=SlideColorList_#;
- if(!isstring(tmp),tmp=text(tmp));
- if(length(tmp)>0,
- tmp="\def"+slidecmd_#+"{"+tmp+"}";
- println(SCEOUTPUT,tmp);
- );
- );//16.12.22upto
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\color{"+SlideColorList_(15)+"}");
- println(SCEOUTPUT,BodyStyle);//17.01.07
- println(SCEOUTPUT,"\thispagestyle{empty}");//17.01.29
- println(SCEOUTPUT,"\addtocounter{page}{-1}");//17.01.29
- println(SCEOUTPUT,"");
- verbflg=0; //16.06.28
- repeatflg=0;//16.12.02
- nrep=0;//16.12.27
- nrepprev=0;//17.01.03
- npara=0;//16.12.27
- forall(2..length(slideL),ns,
- ThinFlg=0;
- NonThinFlg=0;
- flg=0;
- tmp1="";
- tmp2="";
- tmp3="";
- sld=removespace(slideL_ns); // 16.06.28
- sestr="";
- if((substring(sld,0,1)=="%") & (substring(sld,0,2)!="%%"), // 17.06.23
- Repeatsameslide(repeatflg,"",[slideL_ns]);
- if(repeatflg>0,
- tmp=indexof(sld,"]::");
- if(tmp>0,
- if(substring(sld,1,2)!="%",//17.05.31
- if(substring(sld,1,5)=="thin", ThinFlg=1); // 17.05.28
- sestr=substring(sld,1,tmp);
- sld=substring(sld,tmp+2,length(sld));
- tmp=indexof(sestr,"[");
- sestr=substring(sestr,tmp-1,length(sestr));//17.01.05
- );
- );
- );
- if(substring(sld,1,7)=="repeat", // 16.12.09from
- tmp=indexof(sld,"=");
- tmp5=substring(sld,tmp,length(sld));
- tmp=indexof(tmp5,",");
- if(tmp>0,//17.01.03from
- tmp5=substring(tmp5,0,tmp-1);
- );//17.01.03upto
- repeatflg=1;
- if(length(tmp5)>0,
- nrep=parse(tmp5);
- tmp=[];
- if(length(wall)>0,
- tmp=["","\input{fig/"+wall+".tex}"];
- );
- tmp=concat(tmp,["","\sameslide"+NewSlideOption,"","\vspace*{18mm}",""]);
- RepeatList=apply(1..nrep,if(#==1,[],tmp));
- );
- if(sestr=="",flg=1);
- tmp=indexof(sld,",");//17.01.03from
- if(tmp>0,
- sld="%"+substring(sld,tmp,length(sld));
- if(indexof(sld,"=")==0,sld=sld+"=");
- );//17.01.03upto
- );
- if(substring(sld,1,5)=="para",
- paractr=paractr+1;
- repeatflg=1;
- tmp=indexof(sld,"=");
- tmp=substring(sld,tmp,length(sld));
- if(length(tmp)==0, //17.01.03
- npara=0;
- ,
- paradt=tokenize(tmp,":");
- tmp=fileslist(Dirwork+"/fig/"+paradt_1);
- if(length(tmp)>0,
- parafiles=tokenize(tmp,",");
- if(indexof(paradt_4,"input")>0,
- tmp0=indexof(paradt_4,",");//17.01.29from
- if(tmp0>0,
- paradt=append(paradt,substring(paradt_4,tmp0,length(paradt_4)));
- paradt_4=substring(paradt_4,0,tmp0-1);
- );//17.01.29upto
- parafiles=select(parafiles,indexof(#,".tex")>0);
- if(indexof(paradt_4,"\input")==0,paradt_4="\"+paradt_4);//16.12.17
- );
- if(indexof(paradt_4,"include")>0,
- parafiles=select(parafiles,indexof(#,".pdf")>0);
- );
- npara=length(parafiles);
- ,
- println(Dirwork+"/fig/"+paradt_1+" not found");
- parafiles=[];
- npara=0;
- );
- if(nrep==0,
- nrep=npara;
- if(length(wall)>0,
- tmp=["","\input{fig/"+wall+".tex}"];
- );
- tmp=concat(tmp,["","\sameslide"+NewSlideOption,"","\vspace*{18mm}",""]);
- RepeatList=apply(1..nrep,if(#==1,[],tmp));
- );
- );
- forall(1..nrep, //16.12.28
- tmp4=[]; //16.12.31from
- if(hyperflg>0,
- tmp4=["\hypertarget{para"+text(paractr)+"pg"+text(#)+"}{}"];
- );//16.12.31upto
- if(npara>0, //17.01.03
- tmp4=concat(tmp4,["","\begin{layer}{120}"+paradt_2]);
- if(#<=npara, //16.12.28from
- tmp=parafiles_#;
- ,
- tmp=parafiles_npara;
- );
- tmp="{"+paradt_4+"{fig/"+paradt_1+"/"+tmp+"}}";
- if(length(paradt)>=5,
- tmp="{\scalebox{"+text(paradt_5)+"}"+tmp+"}";
- );
- if(substring(paradt_3,0,1)=="\",
- tmp=paradt_3+tmp;
- ,
- tmp="\putnote"+paradt_3+tmp;
- );
- tmp4=concat(tmp4,[tmp]);//16.12.31
- ,
- tmp4=concat(tmp4,["","\begin{layer}{120}{0}"]);
- );
- if((hyperflg>0) & (LinkSize>0.15),
- tmp="{"+text(LinkPosV)+"}{\hyperlink{para"; // 17.01.12from
- tmp1=tmp+text(paractr)+"pg";
- tmp2=tmp+text(paractr-1)+"pg"+text(nrepprev);
- if(#>1,tmp=tmp1+text(1),tmp=tmp2);
- tmp3=[text(LinkPosH-29*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut|\!\lhd$}}}}}"];
- if(#>1,tmp=tmp1+text(max(#-3,1)),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH-24*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut\!\! \lhd\!\!\lhd\!$}}}}}");
- if(#>1,tmp=tmp1+text(#-1),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH-17*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(4.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut\!\!\lhd\!\!$}}}}}");
- tmp="{"+text(LinkPosV)+"}{\hyperlink{para";
- tmp2=tmp+text(paractr+1)+"pg"+text(1);
- if(#<nrep,tmp=tmp1+text(#+1),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH-10*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(4.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut\!\rhd\!$}}}}}");
- if(#<nrep,tmp=tmp1+text(min(#+3,nrep)),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH-5*LinkSize)+"}"+tmp+"}{\fbox{\Ctab{"
- +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut\!\!\rhd\!\!\rhd\!$}}}}}");
- if(#<nrep,tmp=tmp1+text(nrep),tmp=tmp2);
- tmp3=append(tmp3,
- text(LinkPosH)+"}"+tmp+"}{\fbox{\Ctab{" // 17.01.19
- +text(2.5*LinkSize)+"mm}{\scalebox{"+text(LinkSize)
- +"}{\scriptsize $\mathstrut \!\rhd\!\!|$}}}}}");
- tmp3=apply(tmp3,tmp,"\putnotew{"+tmp);
- tmp4=concat(tmp4,tmp3);// 17.01.12uptor
- tmp="\putnotew{"+text(LinkPosH)+"}{"+text(LinkPosV+6)+"}";//17.10.21from
- tmp=tmp+"{\scriptsize\color{black} "+text(#)+"/"+text(nrep)+"}";
- tmp4=append(tmp4,tmp);//17.10.21upto
- );
- tmp4=concat(tmp4,["\end{layer}",""]);//16.12.31upto
- Repeatsameslide(repeatflg,text([#]),tmp4);
- );
- );
- );
- if(substring(sld,0,2)=="%%", //17.06.23from
- println(SCEOUTPUT,sld);
- flg=1;
- ); //17.06.23upto
- if(flg==0,
- if(indexof(sld,"\begin{verbatim}")==1, // 16.06.28from
- Repeatsameslide(repeatflg,sestr,[slideL_ns]);
- verbflg=1;
- flg=1;
- ); // 16.06.28
- if(indexof(sld,"\end{verbatim}")==1,
- Repeatsameslide(repeatflg,sestr,[slideL_ns]);
- verbflg=0;
- flg=1;
- ); // 16.06.28upto
- if(flg==0,
- tmp=replace(sld,"||||","//"); // 16.05.11
- tmp=tokenize(tmp,"::"); // 16.05.11
- tmp1=tmp_1;
- if(length(tmp)>1,tmp2=tmp_2,tmp2="");
- if(length(tmp)>2,tmp3=tmp_3,tmp3="");
- if(length(tmp)>3,tmp4=tmp_4,tmp4="");
- if(length(tmp)>4,tmp5=tmp_5,tmp5="");
- if(contains(["main","new","same"],tmp1),
- if(tmp1=="new", // 16.11.09from
- newoption="";
- if(substring(tmp2,0,1)=="[",newoption=tmp2);
- );
- if(tmp1=="same",
- if(length(tmp2)==0,tmp2=newoption);
- );// 16.11.09upto
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%%%%%%%%%%%%%%%%%%%%");
- println(SCEOUTPUT,"");
- );
- );
- if(flg==0&tmp1=="main",
- if(repeatflg==1,
- forall(2..(length(RepeatList)),nrep,
- tmp=RepeatList_nrep;
- forall(tmp,
- if(substring(#,0,1)!="%", //16.01.04
- println(SCEOUTPUT,#);
- );
- );
- );
- println(SCEOUTPUT,"");
- repeatflg=0;RepeatList=[];
- nrepprev=nrep;//17.01.03
- nrep=0;//16.12.27
- npara=0;//16.12.27
- );
- if(length(wall)>0,
- println(SCEOUTPUT,"\input{fig/"+wall+".tex}");
- );
- println(SCEOUTPUT,"\mainslide{"+tmp2+"}");
- println(SCEOUTPUT,"");
- tmp2="";
- flg=1;
- );
- if(flg==0&tmp1=="new",
- if(repeatflg==1,
- forall(2..(length(RepeatList)),nrep,
- tmp=RepeatList_nrep;
- forall(tmp,
- if(substring(#,0,1)!="%", //16.01.04
- println(SCEOUTPUT,#);
- );
- );
- );
- println(SCEOUTPUT,"");
- repeatflg=0;RepeatList=[];
- nrepprev=nrep;//17.01.03
- nrep=0;
- npara=0;
- );
- if(length(wall)>0,
- Repeatsameslide(repeatflg,sestr,["\input{fig/"+wall+".tex}"]);
- );
- tmp="\newslide";
- NewSlideOption=""; //17.01.04
- if(substring(tmp2,0,1)=="[",
- NewSlideOption=tmp2; //17.01.04
- tmp=tmp+tmp2;
- tmp2=tmp3;
- tmp3=tmp4;
- tmp4=tmp5;
- );
- tmp=tmp+"{"+tmp2+"}";
- Repeatsameslide(repeatflg,sestr,[tmp,"","\vspace*{18mm}",""]);
- tmp2="";
- flg=1;
- );
- if(flg==0&tmp1=="same",
- if(repeatflg==1,
- forall(2..(length(RepeatList)),nrep,
- tmp=RepeatList_nrep;
- forall(tmp,
- if(substring(#,0,1)!="%", //16.01.04
- println(SCEOUTPUT,#);
- );
- );
- );
- println(SCEOUTPUT,"");
- repeatflg=0;RepeatList=[];
- nrepprev=nrep;//17.01.03
- nrep=0;
- npara=0;
- );
- if(length(wall)>0,
- println(SCEOUTPUT,"\input{fig/"+wall+".tex}");
- );
- tmp="\sameslide"+NewSlideOption; //17.01.04;
-// if(substring(tmp2,0,1)=="[",
-// tmp=tmp+tmp2;
-// tmp2=tmp3;
-// tmp3=tmp4;
-// );
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\vspace*{18mm}");
- println(SCEOUTPUT,"");
- tmp4=tmp3;
- tmp3=tmp2;
- tmp2="";
- flg=1;
- );
- if(flg==0&tmp1=="itemize",
- Repeatsameslide(repeatflg,sestr,["\begin{itemize}"]);
- flgL=append(flgL,"i");
- tmp2="";
- tmp3="";
- flg=1;
- );
- if(flg==0&tmp1=="enumerate",
- Repeatsameslide(repeatflg,sestr,["\begin{enumerate}"+tmp2]);
- flgL=append(flgL,"e");
- tmp2="";
- tmp3="";
- flg=1;
- );
- if(flg==0&tmp1=="verbatim", //16.06.28from
- Repeatsameslide(repeatflg,sestr,["\begin{verbatim}"]);
- flgL=append(flgL,"v");
- tmp1="";
- tmp2="";
- tmp3="";
- verbflg=1;
- flg=1;
- ); //16.06.28upto
- if(flg==0&tmp1=="layer",
- Repeatsameslide(repeatflg,sestr,[""]);
- tmp="\begin{layer}";
- if(length(tmp2)>0,
- tmp=tmp+tmp2;
- ,
- tmp=tmp+"{120}{0}";
- );
- Repeatsameslide(repeatflg,sestr,[tmp]);
- flgL=append(flgL,"l");
- tmp2="";
- tmp3="";
- flg=1;
- );
- if(flg==0&tmp1=="putnote",
- tmp="\putnote"+tmp2+"{";
- if(indexof(tmp3,"include")==0,
- tmp1=indexof(tmp3,",");
- if(tmp1==0,
- tmp=tmp+"\input{fig/"+tmp3+".tex}}";
- ,
- tmp2=substring(tmp3,tmp1,length(tmp3));
- tmp3=substring(tmp3,0,tmp1-1);
- tmp=tmp+"\scalebox{"+tmp2+"}{\input{fig/"+tmp3+".tex}}}";
- );
- ,
- tmp2=indexof(tmp3,"[");
- tmp3=substring(tmp3,tmp2-1,length(tmp3));
- tmp=tmp+"\includegraphics"+tmp3+"{fig/"+tmp4+"}}";
- );
- Repeatsameslide(repeatflg,sestr,[tmp]);
- tmp2="";
- tmp3="";
- flg=1;
- );
- if(flg==0&tmp1=="item",
- NonThinFlg=1;
- Repeatsameslide(repeatflg,sestr,["\item"]);
- tmp3="";
- flg=1;
- );
- if(flg==0&tmp1=="end",
- tmp=flgL_(length(flgL));
- if(tmp=="i",
- Repeatsameslide(repeatflg,sestr,["\end{itemize}"]);
- );
- if(tmp=="e",
- Repeatsameslide(repeatflg,sestr,["\end{enumerate}"]);
- );
- if(tmp=="l",
- Repeatsameslide(repeatflg,sestr,["\end{layer}",""]);
- );
- if(tmp=="v", // 16.06.28from
- Repeatsameslide(repeatflg,sestr,["\end{verbatim}",""]);
- verbflg=0;
- ); // 16.06.28upto
- flgL=flgL_(1..(length(flgL)-1));
- tmp2="";
- tmp3="";
- flg=1;
- );
- if(flg==0, // 16.06.28from
- if(verbflg==0,
- tmp2=tmp1;
- ,
- tmp2=slideorgL_ns; // 16.07.11
- tmp2=replace(tmp2,"||","//"); // 16.07.10
- tmp3="";
- );
- ); // 16.06.28upto
- if(length(tmp2)>0,
- if(tmp2=="...", tmp2="");
- if(NonThinFlg==1,NonThinFlg=2);
- Repeatsameslide(repeatflg,sestr,[tmp2]);
- );
- if(length(tmp3)>0,
- Repeatsameslide(repeatflg,sestr,["\begin{layer}{120}{0}"]);
- if(substring(tmp3,0,1)=="{",
- tmp=tmp3;
- tmp3=tmp4;
- ,
- tmp="{60}{0}";
- );
- tmp1=indexof(tmp3,",");
- if(tmp1==0,
- tmp3="\putnotes"+tmp+"{\input{fig/"+tmp3+".tex}}";
- ,
- tmp2=substring(tmp3,tmp1,length(tmp3));
- tmp3=substring(tmp3,0,tmp1-1);
- tmp3="\putnotes"+tmp+"{\scalebox{"+tmp2+"}
- {\input{fig/"+tmp3+".tex}}}";
- );
- Repeatsameslide(repeatflg,sestr,[tmp3,"\end{layer}",""]);
- );
- );
- );
- if(repeatflg==1,
- forall(2..(length(RepeatList)),nrep,
- tmp=RepeatList_nrep;
- forall(tmp,
- if(substring(#,0,1)!="%", //16.01.04
- println(SCEOUTPUT,#);
- );
- );
- );
- println(SCEOUTPUT,"");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"\end{document}");
- closefile(SCEOUTPUT);
-);
-
-Mkslides():=(
- regional(sep,parent,texparentorg,tmp,tmp1,tmp2,tmp3,tmp4,flg);
- tmp4=Fhead;
- Fhead="";
- if(length(Shellparent)>0, // 16.05.29
- sep="/";
- Dirwork=replace(Dirwork,"\",sep);
- parent=replace(Dirwork+Shellparent,"\",sep);// 16.05.29
- ,
- sep="\";
- Dirwork=replace(Dirwork,"/",sep);
- parent=replace(Dirwork+Batparent,"/",sep);// 16.05.29
- );
- Dirwork=replace(Dirwork,sep+"fig","");
- Setdirectory(Dirwork);
- if(length(Texmain)>0, // 15.08.14 from
- Texparent=Texmain;
- );
- texparentorg=Texparent; //17.04.10from
- if(isstring(Slidename), // 15.08.14 from
- Texparent=Slidename;
- );//17.04.10upto
- if(!isexists(Dirwork,Texparent+".txt"), // 17.04.12from
- drawtext(mouse().xy,Texparent+".txt not exist in "+Dirwork,
- size->24,color->[1,0,0]);
- , // 17.04.12upto
- Presentation(Texparent); // 15.08.14 upto
- if(iswindows(),
- tmp1=Batchild;
- tmp2=Batparent;
- tmp3=Shellfile;
- parent=replace(Dirwork+Batparent,sep+"fig","");// 16.05.29
- if((isstring(Sheslide)) & (length(Shellslide)>0),
- Shellfile=Dirbin+sep+Shellslide+".bat"; // 15.12.08
- Batchild=Shellfile;
- ,
- Shellfile=".bat";
- );
- Makebat(Texparent,"tv"); // 16.07.21
- kc():=(
- println("kc : "+kc(parent,Dirlib,Fnametex)); // 16.06.10, 17.02.19
- );
- kc();
- Batchild=tmp1;
- Batparent=tmp2;
- Shellfile=tmp3;
- ,
- tmp1=Shellchild;
- tmp2=Shellparent;
- tmp3=Shellfile;
- parent=replace(Dirwork+Shellparent,sep+"fig","");// 16.05.29
- if((isstring(Shellslide)) & (length(Shellslide)>0),
- Shellfile=Dirbin+sep+Shellslide+".sh"; // 15.12.08
- Shellchild=Shellfile;
- ,
- Shellfile=".sh";
- );
- Shellparent=replace(Shellparent,sep+"fig","");
- Makeshell(Texparent,"tv"); // 16.07.21
- kc():=(
- println("kc : "+kc(parent,Mackc+Dirlib,Fnametex)); // 16.06.10
- );
- kc();
- Shellchild=tmp1;
- Shellparent=tmp2;
- Shellfile=tmp3;
- );
- );
- Dirwork=Dirwork+sep+"fig";
- setdirectory(Dirwork);
- Fhead=tmp4;
- Texparent=texparentorg;//17.04.10
-);
-
-Mkslidesummary():=( // 17.04.10revised
- regional(texparentorg);
- texparentorg=Texparent;
- if(isstring(Slidename),
- Texparent=Slidename;
- );
- Mkslidesummary(Texparent,Texparent+"sum",["m","Wait=3"]);
- Texparent=texparentorg;//17.04.10
-);
-Mkslidesummary(fin,fout):=
- Mkslidesummary(fin,fout,["m","Wait=3"]);
-Mkslidesummary(inputfile,outputfile,options):=(
-//help:Mkslidesummary(fin,fout,options);
- regional(fin,fout,out,sep,figflg,dirworkorg,dirtop,tmp);
- dirworkorg=Dirwork;//17.04.10from
- if(iswindows(),sep="\",sep="/");
- dirtop=replace(Dirwork,sep+"fig","");
- Changework(dirtop);//17.04.10uptp
- fin=inputfile;
- if(indexof(fin,".")==0,fin=fin+".tex");
- fout=outputfile;
- if(indexof(fout,".")==0,fout=fout+".tex");
- cmdL=[
- "Dt=mgetl('"+fin+"');",[],
- "Tmp=find((strstr(Dt,'\hypertarget')=='')
- &(strstr(Dt,'\hyperlink')==''))",[],
- "Dt=Dt(Tmp)",[],
- "Smain=strstr(Dt,'\mainslide')",[],
- "Snew=strstr(Dt,'\newslide')",[],
- "Ssame=strstr(Dt,'\sameslide')",[],
- "Nnew=[]",[],
- "Nsame=[]",[],
- "for J=1:size(Dt,1),
- if (length(Snew(J))>0)|(length(Smain(J))>0),
- Nnew=[Nnew,J],
- end;
- if length(Ssame(J))>0,
- Nsame=[Nsame,J],
- end;
- end",[],
- "Out=Dt(1:Nnew(1))",[],
- "for J=2:length(Nnew),
- Tmp=find(Nsame<Nnew(J));
- Tmp=max(Tmp);
- Tmp=max([Nsame(Tmp),Nnew(J-1)])+1;
- Out=[Out;Dt(Tmp:Nnew(J))],
- end",[],
- "Tmp=max([Nsame($),Nnew($)])+1",[],
- "Out=[Out;Dt(Tmp:size(Dt,1))]",[],
- "mputl(Out,'"+fout+"');",[]
- ];
- CalcbyS("out",cmdL,options);
- wait(1000);
- Changework(dirtop);//17.04.10
- tmp=replace(fout,".tex","");
- if(iswindows(),
- Makebat(tmp,"tv");
- ,
- Makeshell(tmp,"tv");
- );
- kc();
- Changework(dirworkorg);//17.04.10
-);
-
-Example(exorg):=Example(exorg,"");
-Example(exorg,suborg):=(
-//help:Example("Mxfun","diff");
- regional(ex,tmp,tmp1,tmp2);
- ex=replace(exorg,"'",Dq);
- sub=replace(suborg,"'",Dq);
- setdirectory(Dirlib);
- tmp=load("examples.txt");
- setdirectory(Dirwork);
- tmp=tokenize(tmp,"//");
- tmp=tmp_(1..(length(tmp)-1));
- tmp1=select(tmp,substring(#,0,length(ex))==ex);
- tmp1=sort(tmp1);
- if(length(sub)>0,
- tmp1=select(tmp1,indexof(#,sub)>0);
- );
- forall(tmp1,
- if((indexof(#,"##")>0) % (indexof(#,"~#")>0),
- tmp=indexof(#,",");
- println(substring(#,tmp,length(#)));
- ,
- println(#);
- );
- );
-);
-
-BBdata():=Bbdata(BBTarget,0);
-BBdata(fname):=Bbdata(fname,0); // 16.04.09
-BBdata(fname,optionorg):=(
-//help:BBdata(filename);
-//help:BBdata(options=0(automatic),1(make),"w=","h=");
- regional(fout,flg,path,file,kcfile,options,eqL,reL,stL,
- waiting,addop,tmp,tmp1,tmp2);
- path="";
- file=fname;
- flg=0;
- waiting=2;
- forall(reverse(1..length(fname)),
- if(flg==0,
- tmp=substring(fname,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- path=substring(fname,0,#-1);
- file=substring(fname,#,length(fname));
- flg=1;
- );
- );
- );
- if(path=="",path=Dirwork);//16.10.05
- if(indexof(file,".")==0,file=file+".pdf");
- if(islist(optionorg),options=optionorg,options=[optionorg]);
- tmp=divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- stL=tmp_7;
- flg=0;
- addop="";
- if(length(reL)>0,
- tmp=reL_1;
- if(tmp==1,flg=1);
- );
- forall(stL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",flg=1);
- );
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,2));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W=",
- addop=addop+",width="+tmp2;
- options=remove(options,[#]);
- );
- if(tmp1=="H=",
- addop=addop+",height="+tmp2;
- options=remove(options,[#]);
- );
- );
- tmp=indexof(file,".");
- tmp1=substring(file,0,tmp-1);
- fout=tmp1+".txt";
- if(iswindows(),
- kcfile="kc.bat";
- ,
- kcfile="kc.sh";
- );
- if(flg==0,
- tmp=load(fout); //
- if(length(tmp)==0,
- flg=1;
- ,
- tmp=tokenize(tmp,"%%");
- tmp=tmp_2;
- tmp1=indexof(tmp,":");
- tmp=substring(tmp,tmp1,length(tmp));
- tmp=Removespace(tmp);
- if(tmp!=file,flg=1);
- );
- );
- if(length(path)==0,
- path=Dirwork;
- );
- if(flg==1,
- setdirectory(path);
- tmp=load(file);
- setdirectory(Dirwork);
- if(length(tmp)==0,
- println(" => "+file+" not exists");
- flg=-1;
- );
- );
- if(flg==1,
- SCEOUTPUT = openfile(kcfile);
- if(!iswindows(),
- println(SCEOUTPUT,"#!/bin/sh");
- );
- println(SCEOUTPUT,"cd "+Dq+path+Dq);
- tmp=replace(PathT,"pdflatex","extractbb"); //16.11.22
- tmp=replace(tmp,"pdftex","extractbb"); //16.11.22
- tmp=replace(tmp,"xelatex","extractbb");
- tmp=replace(tmp,"platex","extractbb");
- tmp=replace(tmp,"latex","extractbb");
- tmp=tmp+" -O "+file;
- if(iswindows(),
- tmp=tmp+" > "+Dirwork+"\"+fout;
- ,
- tmp=tmp+" > "+Dirwork+"/"+fout;
- );
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- kc(Dirwork+"/"+kcfile,Mackc+Dirlib,Fnametex); // 16.06.07
- );
- if(flg>=0,
- tmp1=0;
- repeat(floor(waiting*1000/WaitUnit),
- if(tmp1==0,
- wait(10);
- tmp=load(fout);
- if(indexof(tmp,"CreationDate")>0,
- tmp1=1;
- );
- );
- );
- if(length(tmp)==0,
- println(fout+" not generated. Maybe "+kcfile+" not run.");
- ,
- tmp=tokenize(tmp,"%%");
- tmp=select(tmp,indexof(#,"Bounding")>0);
- tmp=tmp_2; //
- tmp1=indexof(tmp,":");
- tmp=substring(tmp,tmp1,length(tmp));
- tmp=removespace(tmp);
- tmp=tokenize(tmp," ");
- tmp1="";
- forall(tmp,
- tmp1=tmp1+Sprintf(#,2)+" ";
- );
- tmp1=removespace(tmp1)+addop;
- tmp2="\includegraphics[bb="+tmp1+"]{"+file+"}";
- println(tmp2);
- );
- );
-// setdirectory(Dirwork);
- tmp2; // 16.04.25
-);
-
-//help:end();
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2log.txt b/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2log.txt
deleted file mode 100644
index 98d7a8c3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibbasic2log.txt
+++ /dev/null
@@ -1,293 +0,0 @@
-// s:2017.08.23
-// thin changed so as to change dynamically
-// \setthin{dense} supported
-// s:2017.08.13
-// uplatex added
-// s:2017.07.31
-// Presentation, Mktitle changed (color->xcolor)
-// Setslidehyper, Presentation changed (the case LinkSize==0)
-// s:2017.07.10
-// Presentation,.. debugged (Addpack )
-// s:2017.06.25
-// Addpackage changed ( change to full form of package )
-// Presentation changed ( ADDPACK )
-// s:2017.06.23
-// Presentation debugged ("%%")
-// s:2017.06.19
-// Htick, Vtick added
-// s:2017.06.18
-// Presentation changed ( usepackages in the1st line are writte first)
-// s:2017.06.14
-// Presentation changed ( usepackage{color} )
-// s:2017.06.11
-// Periodfun debugged( for "pi",etc)
-// e:2017.05.31
-// Presentation changed (for %%[, %%thin[ )
-// e:2017.05.30
-// Setwindow changed and moved to basic1( SW,NE )
-// e:2017.05.28
-// Repeatsameslide changed (color for thin)
-// Presentation changed ( comment out the thin line )
-// e:2017.05.24
-// WriteOutData changed (format changed 4 -> 5)
-// ReadOutdata changed ( for blank file )
-// e:2017.05.13
-// Dispchoice() added ( for Keypressed )
-// e:2017.05.13
-// WritetoSci debugged ( for Scilab6 and pdflatexs )
-// e:2017.04.16
-// Slidework debugged ( "\" for windows )
-// e:2017.04.13
-// Maketitle changed ( Error Message when Settitle is not defined )
-// Viewparent added
-// e:2017.04.12
-// Mkslides changed ( Error Message when txt file do not exist )
-// e:2017.04.11
-// Putslider added
-// e:2017.04.10
-// Mkslides,Mkslidesummary changed ( Slidename )
-// Mkslidesummary debugged
-// e:2017.04.09
-// Presentation debugged (for verbatim )
-// Presentation changed (PageStyle )
-// s:2017.04.08
-// bugs fixed
-// e:2017.04.08
-// Figpdf, Mktitle, Presentation changed
-// ( To read stylefiles from ketpicstyle);
-// e:2017.04.07
-// Viewtex changed ( To read stylefiles from ketpicstyle, log of ketcindy deleted);
-// e:2017.03.05
-// Setslide... changed (to display values when no argment )
-// e:2017.03.02
-// Presentation changed ( To define SlideColorList removed);
-// e:2017.02.19
-// Maketitle, Mkslides debugged ( for windows )
-// e:2017.01.29
-// Setslidehyper changed ( for null string)
-// Presentation changed (pagestyle added, para for input(,) changed )
-// e:2017.01.21
-// Presentation changed ( counter added to para )
-// e:2017.01.20
-// Setrange added
-// e:2017.01.15
-// Repeatsameslide debugged ( for \begin,\end )
-// e:2017.01.14
-// Mkslidesummary added
-// e:2017.01.12
-// Repeatsameslide changed ( message for "n>nrep" added)
-// Presentation changed ( hyperlink )
-// Writetosci changed ( english message for windows)
-// e:2017.01.07
-// Setslide..., Presentation changed ( slidecolorlist);
-// e:2017.01.06
-// Setslidebody, Presentation changed ( BodyStyle, "\boldmath");
-// Presentation changed ( thin added )
-// Mkbeziercrv changed ( name => nm )
-// Presentation changed ( for pdflatex,lualatex , not finished )
-// e:2017.01.05
-// Setslidemain debugged
-// Presentation changed ( NewSlideOption added to sameslide )
-// Presentation,Repeatsameslide changed (ThinFlg,NonThinFlg)
-// e:2017.01.03
-// Presentation changed (control button)
-// e:2016.12.31
-// Helplist changed (when adding to HLIST)
-// Setslidehyper added
-// Presentation changed (paractr,hyherflg)
-// e:2016.12.29
-// Writetosci changed ( add null row when path not defined)
-/// e:2016.12.28
-// Maketitle debugged
-// e:2016.12.27
-// Maketitle, Settitle added
-// Slidework debugged ( when "fig" not exists )
-// Presentation changed ( nrep,npara )
-// e:2016.12.25
-// WritetoSci changed ( date/time and path/file stamped if possible)
-// e:2016.12.23
-// BBdata changed ( waiting=2)
-// e:2016.12.22
-// Setslidetitle,Setslidemain,Setslidebody added
-// Presentation changed ( for commands above )
-// e:2016.12.20
-// Slidework changed ( isexists(dir) checked )
-// e:2016.12.18
-// Slidework changed ( to create "fig" when not exists )
-// Presentation changed ( input replaced to \input )
-// viewtex changed ( luatexja-core => luatexja )
-// e:2016.12.16
-// Tabledata,Tabledatalight changed ( "Rng" option added );
-// Viewtex,Writetosci,Makeshell,Makebat changed (for lualatex );
-// e:2016.12.09
-// Presentation changed ( for parapara ) here fileslist(directory) used
-// e:2016.12.06
-// Changetablestyle debugged
-// e:2016.12.05
-// Repeatsameslide added
-// Presentation changed ( for repeated slide )
-// e:2016.11.29
-// Macro \ketcindy recovered
-// Writetosci debugged ( for pdflatex )
-// e:2016.11.28
-// Tabledata,Tabldata changed (TableOptions added )
-// ChangeTablestyle changed completely
-// e:2016.11.24
-// Periodfun,Fourierseries added
-// Viewtex changed ( option [pdftex] added to pict2e )
-// e:2016.11.23
-// Viewtex changed (if pdflatex, Libname changed)
-// e:2016.11.22
-// Viewtex changed (for pict2e)
-// BBdata changed ( for pdflatex )
-// e:2016.11.16
-// Defvar changed (for a list of variables )
-// e:2016.11.11
-// Presentation changed (for no title (nodisp=10mm) )
-// e:2016.11.09
-// Presentation changed (for same option([]) )
-// e:2016.11.08
-// Figpdf changed (options )
-// e:2016.10.21
-// Datetime added
-// e:2016.10.20
-// Makeshell changed (skim for mac )
-// e:2016.10.19
-// Letter debugged (case of s,e )
-// e:2016.10.13
-// Letter changed (position )
-// e:2016.10.11
-// PutonLine,PutonSeg debugged & changed ( scaling, segstr)
-// e:2016.10.09
-// Expr and Letter(slightly) changed
-// e:2016.10.07
-// Commands which use Putpoint changed (=> .name )
-// e:2016.10.06
-// Putpoint changed ( .name used )
-// BBdata changed (default path )
-// e:2016.09.30
-// Letter,Expr changed ( align, string )
-// e:2016.09.25
-// Small bug-fix ( :, ", _ )
-// e:2016.09.05
-// Texview, Figpdf, Presentation changed ( for ADDPACK )
-// e:2016.08.16
-// Mkbezierptcrv, Ospline, Bspline, Beziersmooth,
-// CRspline, Beziersym changed ( for scaling )
-// e:2016.08.10
-// Setslidecolor added
-// Presentation changed ( for color change )
-// e:2016.07.21
-// Makeshell,Makebat, Mkslides changed (no call of .sh/.bat )
-// e:2016.07.11
-// Presentation changed (spaces in verbatim, and || in verbatim changed // )
-// e:2016.07.07
-// Letter, Expr changed ( opcindy "size->..." supported )
-// e:2016.06.28
-// Presentation debugged and changed (verbatim, :: )
-// e:2016.06.25
-// Presentation debugged (Preamble addtion )
-// e:2016.06.10
-// Iftosci changed (Major change )
-// Presentation debugged ( wall )
-// Slidework added
-// e:2016.06.09
-// Viewtex,Figpdf,Presentation changed ( jartcle used when platex )
-// Presentation changed ( for % )
-// e:2016.06.07
-// Mackc added
-// e:2016.06.06
-// Makebat debugged
-// e:2016.06.04
-// Viewtex,Mkslide, BBdata changed ( kc)
-// e:2016.06.02
-// Makeshell,Makebat changed ( Pathpdf= )
-// e:2016.05.30
-// Makeshell changed ( output to kcout.txt )
-// Makebat changed ( for Sumatra )
-// e:2016.05.29
-// WritetoSci changed ( for /users )
-// Makeshell, Makebat, Mkslide changed ( for /users )
-// e: 2016.05.25
-// Defun changed ( for "forall")
-// Iftosci debugged, Fortosci added
-
-
-///////////////////
-// e: 2015.11.06
-// libbasic divided to libbasic1,libbasic2
-// e: 2015.11.09
-// helplist debugged
-// e: 2015.11.25
-// Help changed ( ' changed to Dq)
-// e: 2015.11.29
-// Example, Helpkey added
-// e: 2015.12.08
-// Mkslide changed ( Dirbin )
-// e: 2015.12.12
-// Makeshell, Makebat changed ( for autosetting )
-// Mksliides changed ( for autosetting )
-// e: 2015.12.14
-// Mkslides, Makeshell, Makebat changed ( for autosetting of slides )
-// e: 2016.01.12
-// Viewtex changed ( Title changed to verb )
-// e: 2016.01.18
-// Viewtex debugged ( Title changed to verb )
-// e: 2016.01.21
-// Drwxy debugged
-// Help of Drwpt added
-// Sciform patched
-// e: 2016.02.02
-// Helpkey changed ( for 2 keywords )
-// e: 2016.02.10
-// Putoncurve changed ( option :"Msg=no" )
-// Setwindow changed ( option :"Msg=no" )
-// e: 2016.02.16
-// Help of ExtractData changed
-// e: 2016.02.18
-// Deffun ( help ) changed
-// e: 2016.02.22
-// Ptonseg changed ( par option added )
-// e: 2016.03.05
-// Drwpt changed ( point/pointlist allowed)
-// e: 2016.03.07
-// ReadOutData changed ( change of path supported)
-// e: 2016.03.09
-// ReadOutData debugged ( in case of no path)
-// e: 2016.03.25
-// Figpdf added
-// e: 2016.03.26
-// Figpdf changed ( for various unitlen )
-// e: 2016.03.28
-// Mkshell, Mkbat changed ( for "mv" )
-// e: 2016.04.07
-// Viewtex changed ( by \ketcindy)
-// Figpdf changed ( options "4,3,2" effective )
-// e: 2016.04.08
-// Figpdf,Makeshell, Makebat changed ( FigPdfList )
-// Figpdf changed ( options )
-// e: 2016.04.09
-// Drwpt,Pointdata changed ( boundary )
-// e: 2016.04.11
-// BBdata added
-// BBdata changed ( to look at fig.txt)
-// e: 2016.04.12
-// BBdata changed ( prec=2, option of width/heigh )
-// e: 2016.04.17
-// ReadOutData changed ( for file of no "." => ".txt" )
-// Writebezier, Readbezier added
-// e: 2016.04.18
-// Sciform debugged
-// e: 2016.04.19
-// Sciform changed
-// e: 2016.04.22
-// Writebezier, Readbezier changed
-// e: 2016.05.11
-// Presentation changed (for url //// )
-// e: 2016.05.15
-// Makeshell changed (sh added )
-// e: 2016.05.16
-// Addpackage added
-// Viewtex,Figpdf changed ( for Addpackage )
-////// To Reverse sequence //////
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpE.txt b/texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpE.txt
deleted file mode 100644
index 437bdefd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpE.txt
+++ /dev/null
@@ -1,116 +0,0 @@
-//help:start();
-//help:drawimage*(import image into the screen);
-//help:drawtext*(write letters on the screen);
-//help:Option1*(specify the style of drawing lines);
-//help:Option2*(specify the way of writing data out);
-//help:Option3*(specify the way of reading and writing data in);
-//help:Changestyle*(change the style for drawing plot data);
-//help:Workprocess*(display the process of execution);
-//help:Textformat*(convert number into string with specific number of digits);
-//help:Assign*(replace the name of variable in the string by some specific value);
-//help:Flattenlist*(flatten the list of data);
-//help:Dotprod*(inner product);
-//help:Crossprod*(exterior product);
-//help:Ptstart*(starting point of plot data);
-//help:Ptend*(ending point of plot data);
-//help:Numptcrvtenn*(number of points in plot data);
-//help:Ptcrv*(the n-th point of plot data);
-//help:Invert*(reverse the orientation of curve);
-//help:ParamonCurve*(information (parameter value etc.) of the point in plot data);
-//help:PointonCurve*(the point in the plot data specified by the given information);
-//help:Nearestptcrv*(the point in the curve which is nearest to the given point);
-//help:Nearestpt*(the points in two given curves which are nearest each other);
-//help:Derivative*(calculate the differential coefficient);
-//help:Integrate*(numerical integration);
-//help:Findarea*(calculate the area of the region surrounded by a closed curve);
-//help:Findlength*(calculate the length of curve);
-//help:Com2nd*(add the Scilab command to write out plot data into TeX);
-//help:Texcom*(write command into TeX output exactly as written here);
-//help:SetEnglish*(display Scilab messages in English language);
-//help:Setunitlen*(specify the unit length);
-//help:Setmarklen*(specify the unit length of the tickmarks on coordinate axis);
-//help:Setorigin*(specify the position the origin);
-//help:Fontsize*(specify the size of font);
- //help:Setpen*(specify the thickness of line);
-//help:Setpt*(specify the size of point);
-//help:Definecolor*(define the color for user's own use);
-//help:Setcolor*(specify the color);
-//help:Joincrvs*(join curves);
-//help:Partcrv*(cut out some part of the curve);
-//help:Pointdata*(generate the plot data of point
-//additional option : "Size=");
-//help:Listplot*(generate the plot data of a polyline);
-//help:Lineplot*(generate the plot data of line);
-//help:Plotdata*(generate the plot data of function
-//additional option : "Num=", "Exc=", "Dis=");
-//help:Paramplot*(generate the plot data of parametric function
-//additional option : "Num=", "Exc=", "Dis=");
-//help:Circledata*(generate the plot data of circle
-//additional option : "Num=", "Rng=");
-//help:Framedata*(generate the plot data of rectangle);
-//help:Ovaldata*(generate the plot data of oval shape);
-//help:Arrowhead*(generate the plot data of arrowhead
-//option : size, sharpness, shape and position in the arrow);
-//help:Arrowdata*(generate the plot data of arrow line
-//option : size of arrowhead, sharpness(angle)シ継osition of arrowhead);
-//help:Anglemark*(generate the plot data of angle mark option : size);
-//help:Paramark*(generate the plot data of right angle mark option : size);
-//help:Bowdata*(generate the plot data of bow arched curve
-//option : curvatute, size of the blank space, letter);
-//help:Deqplot*(generate the solution curve of differential equation
-//additional option : "Num=");
-//help:Hatchdata*(add hatching into some region
-// option : slope, degree, space betwen lines));
-//help:Enclosing*(generate the plot data of closed curve connecting some curves);
-//help:Shade*(add shading into some region option : depth);
-//help:Rotatepoint*(rotate the point, option : center);
-//help:Translatepoint*(pararell transport of the point);
-//help:Scalepoint*(magnify or reduce the position of point option : center);
- //help:Reflectpoint*(reflect the point);
-//help:Rotatedata*(rotate the plot data option : center);
-//help:Scaledata*(magnify or reduce the plot data option : center);
-//help:Reflectdata*(reflect the plot data);
-//help:Mksegments*(generate the plot data of all segments on the screen);
-//help:Mkcircles*(generate the plot data of all circles on the screen):
-//help:Setax*(specify the setting of coordinate axes);
-//help:Htickmark*(put a tickmark on the horizontal coordinate axis);
-//help:Vtickmark*(put a tickmark on the vertical coordinate axis);
-//help:Drwxy*(draw coordinate axes);
-//help:Addax*(specify whether coordinate axes are drawn or not);
-//help:Expr*(write mathematical expressions at a specific position);
-//help:Letter*(write letters at a specific position);
-//help:Letterrot*(write sloped letters at a specific position):
-//help:Exprrot*(write sloped mathematical expressions at a specific position):
-//help:Putpoint*(put a point at the specific position);
-//help:Bezier*(generate the plot data of Bezier curve);
-//help:Mkbezierptcrv*(generate the plot data of Bezier curve by automatically taking controll points);
-//help:CRspline*(generate the plot data of Catmull-Rom spline curve);
-//help:Beziersmooth*(generate the plot data of Bezier spline curve);
-//help:Bspline*(generate the plot data of B-spline curve);
-//help:PtonLine*(put a point on a specific line);
-//help:PtonSeg*(put a point on a specific segment);
-//help:PutonCurve*(put a point on a specific curve);
-//help:Setscaling*(specify the rate of magnification in the vertical direction);
- //help:Tabledatalight*(generate the plot data of table without geometric points
- //additional option : rules to be removed);
- //help:Tgrid*(return the coordinates of a cell in the table);
- //help:Tlistplot*(draw segment connecting two lattice points in the table);
-//help:ChangeTablestyle*(change the style for drawing rules in the table);
-//help:Tabledata*(generate the plot data of table with geometric points
- //option : usual optionsシ脚ules to be removed);
-//help:Tabledata*(xLst=apply(1..5,10);yLst=apply(1..4,8);rmvL=[];);
-//help:Findcell*(return the information of a cell in the table);
-//help:Putcell*(write letters in a specific cell of the table);
-//help:Putcellexpr*(write mathematical expressions in a specific cell of the table);
-//help:Putrow*(write letters in a specific row of the table));
-//help:Putrowexpr*(write mathematical expressions in a specific row of the table);
-//help:PutcoL*(write letters in a specific column of the table));
-//help:PutcoLexpr*(write mathematical expressions in a specific column of the table));
-//help:Setwindow*(specify the area of drawing);
-//help:Defvar*(the definition of a variable is called by Scilab);
-//help:Deffun*(the definition of a function is called by Scilab);
-//help:Extractdata*(endow attribute to the imported plot data);
-//help:ReadOutData*(import the plot data);
-//help:WriteOutData*(export the plot data);
-//help:Removespace*(remove spaces of in front and behind);
-//help:end();
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpJ.txt b/texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpJ.txt
deleted file mode 100644
index 330a47c4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibhelpJ.txt
+++ /dev/null
@@ -1,140 +0,0 @@
-//help:start();
-//help:drawimage*(逕サ蜒上r逕サ髱「縺ォ隱ュ縺ソ霎シ繧);
-//help:drawtext*(逕サ髱「縺ォ譁蟄励r譖ク縺崎セシ繧);
-//help:Option1*(邱夂ィョ繧呈欠螳夲シ弱さ繝槭Φ繝峨ョ繧ェ繝励す繝ァ繝ウ);
-//help:Option2*(譖ク縺榊コ縺励r謖螳夲シ弱さ繝槭Φ繝峨ョ繧ェ繝励す繝ァ繝ウ);
-//help:Option3*(螟夜Κ繝輔ぃ繧、繝ォ縺ョ隱ュ霎シシ乗嶌霎シ縺ョ謖螳夲シ弱さ繝槭Φ繝峨ョ繧ェ繝励す繝ァ繝ウ);
-//help:Changestyle*(繝励Ο繝繝医ョ繝シ繧ソ縺ョ繧ェ繝励す繝ァ繝ウ繧貞、画峩);
-//help:Workprocess*(螳溯。梧焔鬆繧定。ィ遉コ);
-//help:Textformat*(謨ー蛟、縺ョ譁蟄怜怜喧縺ァ譯∵焚謖螳);
-//help:Assign*(譁蟄怜怜縺ョ螟画焚縺ク縺ョ蜑イ蠖薙※);
-//help:Flattenlist*(繝繝シ繧ソ繝ェ繧ケ繝医r蟷ウ蝮ヲ蛹);
-//help:Dotprod*(蜀遨);
-//help:Crossprod*(螟也ゥ);
-//help:Ptstart*(繝励Ο繝繝医ョ繝シ繧ソ縺ョ蟋狗せ);
-//help:Ptend*(繝励Ο繝繝医ョ繝シ繧ソ縺ョ邨らせ);
-//help:Numptcrvtenn*(繝励Ο繝繝医ョ繝シ繧ソ縺ョ轤ケ縺ョ謨ー);
-//help:Ptcrv*(繝励Ο繝繝医ョ繝シ繧ソ縺ョn逡ェ逶ョ縺ョ轤ケ);
-//help:Invert*(繝励Ο繝繝医ョ繝シ繧ソ縺ョ蜷代″繧帝縺ォ縺吶k);
-//help:ParamonCurve*(繝励Ο繝繝医ョ繝シ繧ソ荳翫ョ轤ケ縺ョ諠蝣ア);
-//help:PointonCurve*(繝励Ο繝繝医ョ繝シ繧ソ荳翫ョ諠蝣ア縺ォ繧医k轤ケ);
-//help:Nearestptcrv*(轤ケ縺ォ縺、縺縺ヲ繝励Ο繝繝医ョ繝シ繧ソ荳翫ョ譛霑醍せ);
-//help:Nearestpt*(シ呈峇邱壹ョ譛霑醍せ);
-//help:Derivative*(蠕ョ蛻菫よ焚);
-//help:Integrate*(謨ー蛟、遨榊);
-//help:Findarea*(髢画峇邱壹↓蝗イ縺セ繧後◆髱「遨);
-//help:Findlength*(譖イ邱壹ョ髟キ縺);
-//help:Com2nd*(TeX縺ョ譖ク縺榊コ縺励さ繝槭Φ繝峨r蜈・繧後k);
-//help:Texcom*(TeX縺ョ繧ウ繝槭Φ繝峨r逶エ謗・險倩ソー);
-//help:SetEnglish*(Scilab縺ョ繝。繝繧サ繝シ繧ク繧定恭隱槭↓縺吶k);
-//help:Setunitlen*(蜊倅ス埼聞繧呈欠螳);
-//help:Setmarklen*(蠕ョ蟆丞腰菴埼聞繧呈欠螳);
-//help:Setorigin*(蜴溽せ縺ョ菴咲スョ繧呈欠螳);
-//help:Fontsize*(繝輔か繝ウ繝医し繧、繧コ繧呈欠螳);
- //help:Setpen*(邱壹ョ螟ェ縺輔r謖螳);
-//help:Setpt*(轤ケ縺ョ螟ァ縺阪&繧呈欠螳);
-//help:Definecolor*(繝ヲ繝シ繧カ繝シ濶イ繧貞ョ夂セゥ);
-//help:Setcolor*(濶イ繧呈欠螳);
-//help:Joincrvs*(譖イ邱壹r縺、縺ェ縺偵k);
-//help:Partcrv*(驛ィ蛻譖イ邱壹r菴懊k);
-//help:Pointdata*(轤ケ繝繝シ繧ソ繧定。ィ遉コシ丈ス懈
-//霑ス蜉繧ェ繝励す繝ァ繝ウ : "Size=");
-//help:Listplot*(邱壼繧謚倥l邱壹ョ繝シ繧ソ繧剃ス懈);
-//help:Lineplot*(逶エ邱壹ョ繝シ繧ソ繧剃ス懈);
-//help:Plotdata*(髢「謨ー縺ョ繧ー繝ゥ繝輔r菴懈
-//霑ス蜉繧ェ繝励す繝ァ繝ウ : "Num=", "Exc=", "Dis=");
-//help:Paramplot*(蟐剃サ句、画焚縺ョ髢「謨ー縺ョ繧ー繝ゥ繝輔r菴懈
-//霑ス蜉繧ェ繝励す繝ァ繝ウ : "Num=", "Exc=", "Dis=");
-//help:Circledata*(蜀縺ョ繝繝シ繧ソ繧剃ス懈
-//霑ス蜉繧ェ繝励す繝ァ繝ウ : "Num=", "Rng=");
-//help:Framedata*(髟キ譁ケ蠖「縺ョ繝繝シ繧ソ繧剃ス懈);
-//help:Ovaldata*(繧ェ繝シ繝舌Ν繝繝シ繧ソ繧剃ス懈);
-//help:Arrowhead*(髀繧剃ス懈
-//繧ェ繝励す繝ァ繝ウ : 螟ァ縺阪&シ碁幕縺崎ァ抵シ悟ス「迥カ縺ィ菴咲スョ);
-//help:Arrowdata*(遏「蜊ー繧剃ス懈
-//繧ェ繝励す繝ァ繝ウ : 螟ァ縺阪&シ碁幕縺崎ァ抵シ檎泙縺倥j菴咲スョ);
-//help:Anglemark*(隗貞コヲ繝槭シ繧ッ繧剃ス懈. 繧ェ繝励す繝ァ繝ウ : 隗偵ョ蜊ー縺ョ螟ァ縺阪&);
-//help:Paramark*(蝙ら峩繝槭シ繧ッ繧剃ス懈. 繧ェ繝励す繝ァ繝ウ : 隗偵ョ蜊ー縺ョ螟ァ縺阪&);
-//help:Bowdata*(蠑灘ス「繧呈緒縺
-//繧ェ繝励す繝ァ繝ウ : 譖イ縺後jシ檎ゥコ逋ス繧オ繧、繧コシ梧枚蟄);
-//help:Deqplot*(蠕ョ蛻譁ケ遞句シ上ョ隗」譖イ邱壹r菴懈
-//霑ス蜉繧ェ繝励す繝ァ繝ウ : "Num=");
-//help:Hatchdata*(譁懃キ壼。励j. 繧ェ繝励す繝ァ繝ウ : 蛯セ縺搾シ亥コヲシ会シ碁俣髫);
-//help:Enclosing*(隍謨ー譖イ邱壹r縺、縺ェ縺偵※髢画峇邱壹r菴懈);
-//help:Shade*(繧キ繧ァ繝シ繝繧」繝ウ繧ー. 繧ェ繝励す繝ァ繝ウ : 豼縺);
-//help:Rotatepoint*(轤ケ繧貞屓霆「. 繧ェ繝励す繝ァ繝ウ : 荳ュ蠢);
-//help:Translatepoint*(轤ケ繧貞ケウ陦檎ァサ蜍);
-//help:Translatedata*(繝励Ο繝繝医ョ繝シ繧ソ繧貞ケウ陦檎ァサ蜍);
-//help:Scalepoint*(轤ケ繧堤クョ蟆擾シ乗僑螟ァ. 繧ェ繝励す繝ァ繝ウ : 荳ュ蠢);
-//help:Reflectpoint*(轤ケ繧帝升譏);
-//help:Rotatedata*(繝励Ο繝繝医ョ繝シ繧ソ繧貞屓霆「. 繧ェ繝励す繝ァ繝ウ : 荳ュ蠢);
-//help:Scaledata*(繝励Ο繝繝医ョ繝シ繧ソ繧堤クョ蟆擾シ乗僑螟ァ. 繧ェ繝励す繝ァ繝ウ : 荳ュ蠢);
-//help:Reflectdata*(繝励Ο繝繝医ョ繝シ繧ソ繧帝升譏);
-//help:Mksegments*(逕サ髱「縺ォ縺ゅk縺吶∋縺ヲ縺ョ邱壼繝繝シ繧ソ繧剃ス懈);
-//help:Mkcircles*(逕サ髱「縺ォ縺ゅk縺吶∋縺ヲ縺ョ蜀繝繝シ繧ソ繧剃ス懈):
-//help:Setax*(蠎ァ讓呵サク繧呈欠螳);
-//help:Htickmark*(讓ェ霆ク縺ォ逶ョ逶帙j繧呈緒縺);
-//help:Vtickmark*(邵ヲ霆ク縺ォ逶ョ逶帙j繧呈緒縺);
-//help:Drwxy*(蠎ァ讓呵サク繧呈緒縺);
-//help:Addax*(蠎ァ讓呵サク繧呈緒縺上°謠上°縺ェ縺縺九ョ謖螳);
-//help:Expr*(謨ー蠑上r譖ク縺崎セシ繧);
-//help:Letter*(譁蟄励r譖ク縺崎セシ繧);
-//help:Letterrot*(蛯セ縺縺滓枚蟄励r譖ク縺崎セシ繧):
-//help:Exprrot*(蛯セ縺縺滓焚蠑上r譖ク縺崎セシ繧):
-//help:Putpoint*(蟷セ菴慕せ繧偵→繧);
-//help:Bezier*(繝吶ず繧ァ譖イ邱壹ョ繝シ繧ソ繧剃ス懈);
-//help:Mkbezierptcrv*(蛻カ蠕。轤ケ繧定ェ蜍慕噪縺ォ縺ィ縺」縺ヲ繝吶ず繧ァ繧剃ス懈);
-//help:CRspline*(Catmull-Rom繧ケ繝励Λ繧、繝ウ繧剃ス懈);
-//help:Beziersmooth*(繝吶ず繧ァ繧ケ繝励Λ繧、繝ウ繧剃ス懈);
-//help:Bspline*(B-繧ケ繝励Λ繧、繝ウ繧剃ス懈);
-//help:PtonLine*(逶エ邱壻ク翫↓轤ケ繧偵→繧);
-//help:PtonSeg*(邱壼荳翫↓轤ケ繧偵→繧);
-//help:PutonCurve*(譖イ邱壻ク翫↓轤ケ繧偵→繧);
-//help:Setscaling*(邵ヲ譁ケ蜷代ョ蛟咲紫繧呈欠螳);
- //help:Tabledatalight*(蟷セ菴慕せ繧偵b縺溘↑縺陦ィ繝繝シ繧ソ菴懈
- //霑ス蜉繧ェ繝励す繝ァ繝ウ : 繝ゥ繝吶Ν縺ョ縺ィ縺ウシ梧緒逕サ鬆伜沺繧定。ィ縺ォ蜷医o縺帙k縺);
- //help:Tgrid*(陦ィ縺ョ繧サ繝ォ縺ョ蠎ァ讓吶r霑斐☆);
- //help:Tlistplot*(陦ィ縺ョ2譬シ蟄千せ繧堤オ舌カ邱壼);
-////help:ChangeTablestyle*(陦ィ縺ョ鄂ォ邱壹ョ繧ケ繧ソ繧、繝ォ螟画峩);
-//help:Tabledata*(蟷セ菴慕せ繧偵b縺、陦ィ繝繝シ繧ソ繧剃ス懈
- //霑ス蜉繧ェ繝励す繝ァ繝ウ : 繝ゥ繝吶Ν縺ョ縺ィ縺ウシ梧緒逕サ鬆伜沺繧定。ィ縺ォ蜷医o縺帙k縺);
-//help:Tabledata*(xLst=apply(1..5,10);yLst=apply(1..4,8);rmvL=[];);
-//help:Findcell*(陦ィ縺ョ繧サ繝ォ縺ョ諠蝣ア繧定ソ斐☆);
-//help:Putcell*(陦ィ縺ョ繧サ繝ォ縺ォ譁蟄励r譖ク縺榊・繧後k);
-//help:Putcellexpr*(陦ィ縺ョ繧サ繝ォ縺ォ謨ー蠑上r譖ク縺榊・繧後k);
-//help:Putrow*(陦ィ縺ョ陦後↓譁蟄励r譖ク縺榊・繧後k));
-//help:Putrowexpr*(陦ィ縺ョ陦後↓謨ー蠑上r譖ク縺榊・繧後k);
-//help:PutcoL*(陦ィ縺ョ蛻励↓譁蟄励r譖ク縺榊・繧後k));
-//help:PutcoLexpr*(陦ィ縺ョ蛻励↓謨ー蠑上r譖ク縺榊・繧後k));
-//help:Setwindow*(謠冗判鬆伜沺繧呈欠螳);
-//help:Defvar*(螟画焚繧担cilab縺ォ貂。縺);
-//help:Deffun*(髢「謨ー繧担cilab縺ォ貂。縺);
-//help:Extractdata*(隱ュ縺ソ霎シ繧薙□繝繝シ繧ソ縺ォ螻樊ァ繧剃ク弱∴繧);
-//help:ReadOutData*(繝繝シ繧ソ繧定ェュ縺ソ霎シ繧);
-//help:WriteOutData*(繝繝シ繧ソ繧呈嶌縺榊コ縺);
-//help:Removespace*(蜑榊セ後ョ繧ケ繝壹シ繧ケ繧帝勁縺);
-//help:Drawlinetype*(邱夂ィョ繧呈欠螳壹@縺ヲ譖イ邱壹r謠上¥);
-//help:Intersectcrvs*(莠、轤ケ繝ェ繧ケ繝医r豎ゅa繧);
-//help:IntersectcrvsPp*(莠、轤ケ縺ィ繝代Λ繝。繝シ繧ソ蛟、縺ョ繝ェ繧ケ繝医r豎ゅa繧);
-//help:Implicitplot*(髯ー髢「謨ー縺ョ繧ー繝ゥ繝輔r謠上¥);
-//help:Boxplot*(邂ア繝偵ご蝗ウ繧呈緒縺擾シR菴ソ逕ィシ);
-//help:CalcbyR*(R縺ョ繧ウ繝槭Φ繝峨r螳溯。後@縺ヲ邨先棡繧定ソ斐☆);
-//help:CalcbyS*(Scilab縺ョ繧ウ繝槭Φ繝峨r螳溯。後@縺ヲ邨先棡繧定ソ斐☆);
-//help:Framedata2*(蟾ヲ荳九→蜿ウ荳翫ョ轤ケ縺ァ髟キ譁ケ蠖「繧呈緒縺);
-//help:HIstplot*(繝偵せ繝医げ繝ゥ繝繧呈緒縺擾シR菴ソ逕ィシ);
-//help:Hyperbolaplot*(蜿梧峇邱壹r謠上¥);
-//help:Ellipseplot*(讌募繧呈緒縺);
-//help:Ospline*(Oshima縺ョ繧ケ繝励Λ繧、繝ウ繧呈緒縺);
-//help:Parabolaplot*(謾セ迚ゥ邱壹r謠上¥);
-//help:PlotdataR*(R縺ョ髢「謨ー縺ョ繧ー繝ゥ繝輔r謠上¥);
-//help:Polygonplot*(豁」螟夊ァ貞ス「繧呈緒縺);
-//help:Putintersect*(莠、轤ケ縺ォ蟷セ菴慕せ繧偵→繧);
-//help:Rulerscale*(轤ケ縺ョ蜿ウ縺ィ荳翫↓逶ョ逶帙r謠上¥);
-//help:Segmark*(邱壼縺ォ繝槭シ繧ッ繧偵▽縺代k);
-//help:Sprintf*(蟆乗焚轤ケ莉・荳九ョ髟キ縺輔r蝗コ螳壹@縺滓枚蟄怜励↓螟画鋤);
-//help:Readcsv*(csv繝輔ぃ繧、繝ォ繧定ェュ縺ソ霎シ縺ソ);
-//help:Writecsv*(csv繝輔ぃ繧、繝ォ繧呈嶌縺崎セシ縺ソ);
-//help:Drwpt*(轤ケ繧探eX縺ォ謠上¥シ弱が繝励す繝ァ繝ウシ夂區謚懊″ 0);
-
-
-//help:end();
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmv.cs b/texmf-dist/scripts/ketpic/ketlib/ketcindylibmv.cs
deleted file mode 100644
index bf846d08..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmv.cs
+++ /dev/null
@@ -1,812 +0,0 @@
-// Copyright (C) 2014 Masataka Kaneko, Setsuo Takato, KETCindyJapan project team
-//
-//This program is free software: you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 3 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program. If not, see <http://www.gnu.org/licenses/>
-//
-
-println("ketcindymv(2017.08.19) loaded");
-
-//help:start();
-
-Ketinitmv():=(
- regional(tmp,tmp1,tmp2,tmp3);
- Ketinit();//17.04.10
- Texmov=Fhead+"movie";
- Texpara=Fhead+"para";
- ParaTitle=Texpara;//16.12.10
- tmp1=round(4*SW.y)/4-0.5;
- tmp2=SW.x+1;
- tmp3=NE.x-1;
- Listplot("sl",[[tmp2,tmp1],[tmp3,tmp1]],["notex","linecolor->[0,1,0]"]);
- PutonCurve("MF",sgsl,[tmp2,tmp3]);
- Paraamble(); // 16.08.10
- Shellfile="mv"; // 17.04.09
-);
-
-Moviedata(func,var):=Moviedata(func,var,[]);
-Moviedata(func,var,options):=(
-//help:Moviedata("mf(t)","t=[0,4]");
-//help:Moviedata(Options=["Cut=20","Div=80"]);
- regional(tmp,tmp1,tmp2,eqL);
- tmp=Divoptions(options);
- eqL=tmp_5;
- CUT=20;
- DVALL=0;
- Ec=[];
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=Toupper(substring(#,tmp,length(#)));
- if(tmp1=="D",
- DVALL=parse(tmp2);
- );
- if(tmp1=="C",
- CUT=parse(tmp2);
- );
- );
- if(DVALL==0,
- DVALL=4*CUT;
- );
- tmp=indexof(var,"=");
- tmp1=substring(var,0,tmp-1);
- tmp2=substring(var,tmp,length(var));
- tmp2=parse(tmp2);
- if(indexof(func,"Moiveframe")==0,
- tmp="Movieframe("+tmp1+"):="+func+";";
- parse(tmp);
- );
- tmp="Movierange="+tmp2+";";
- parse(tmp);
-// tmp="Movieoptions=["+Dq+"Div="+text(DVALL)+Dq+","+Dq+"Cut="+text(CUT)+Dq+"]";
-// parse(tmp);
-);
-
-Paraamble():=Paraamble("");
-Paraamble(str):=(
-//help:Paraamble();
-//help:Paraamble(amblelist);
-//help:Paraamble(filename);
- regional(cmdall,sep,tmp,tmp1,tmp2);
- if(isstring(str),
- if(str=="",
- Parafirsthead=[
- "\def\ketcbox{white}", // 17.02.26
- "\newslide[0]{"+ParaTitle+"}", //16.12.10
- "",
- "\hypertarget{FIRST}{}",
- "Commonhead"
- ];
- Parafirsttail=[
- "Commontail"
- ];
- Parahead=[
- "\sameslide[0]",
- "Commonhead"
- ];
- Paratail=[
- "Commontail"
- ];
- Paralasthead=[
- "\sameslide[0]",
- "",
- "\hypertarget{LAST}{}",
- "Commonhead"
- ];
- Paralasttail=[
- "Commontail"
- ];
- Commonhead=[
- "",
- "\definecolor{thinblue}{cmyk}{0.3,0.3,0,0}", //17.02.19
- "\begin{layer}{130}{0}",
- "\hyperlink{FIRST}{\colorframe[8]{0}{80}{thinblue}{yellow}{blue}{FIRST}}", //17.02.19
- "\hyperlink{LAST}{\colorframe[8]{110}{80}{thinblue}{yellow}{blue}{LAST}}", //17.02.19
- "\putnotec{60}{40}{" // 16.07.06
- ];
- Commontail=[
- "",
- "}",
- "\end{layer}",
- ""
- ];
- ,
- if(indexof(str,".")>0,tmp1=str,tmp1=str+".txt");
- tmp=load(tmp1);
- cmdall=tokenize(tmp,"...");
- cmdall=apply(cmdall,Removespace(#));
- sep=select(1..length(cmdall),substring(cmdall_#,0,5)=="%Para");
- Parafirsthead=cmdall_(2..(sep_2-1));
- Parafirsttail=cmdall_((sep_2+1)..(sep_3-1));
- Parahead=cmdall_((sep_3+1)..(sep_4-1));
- Paratail=cmdall_((sep_4+1)..(sep_5-1));
- Paralasthead=cmdall_((sep_5+1)..(sep_6-1));
- tmp1=cmdall_((sep_6+1)..length(cmdall));
- sep=select(1..length(tmp1),substring(tmp1_#,0,7)=="%Common");
- Paralasttail=tmp1_(1..sep_1-1);
- Commonhead=tmp1_((sep_1+1)..(sep_2-1));
- Commontail=tmp1_((sep_2+1)..length(tmp1));
- );
- );
- if(islist(str),
- Parafirsthead=str_1;
- Parafirsttail=str_2;
- Parahead=str_3;
- Paratail=str_4;
- Paralasthead=str_5;
- Paralasttail=str_6;
- Commonhead=str_7;
- Commontail=str_8;
- );
- tmp1=apply(Parafirsthead,Dq+#+Dq);
- tmp2=apply(Parafirsttail,Dq+#+Dq);
- tmp=[tmp1,tmp2];
- tmp1=apply(Parahead,Dq+#+Dq);
- tmp2=apply(Paratail,Dq+#+Dq);
- tmp=concat(tmp,[tmp1,tmp2]);
- tmp1=apply(Paralasthead,Dq+#+Dq);
- tmp2=apply(Paralasttail,Dq+#+Dq);
- tmp=concat(tmp,[tmp1,tmp2]);
- tmp1=apply(Commonhead,Dq+#+Dq);
- tmp2=apply(Commontail,Dq+#+Dq);
- tmp=concat(tmp,[tmp1,tmp2]);
- tmp;
-);
-
-Writeparaamble(filename):=(
- //regional(tmp,tmp1,tmp2);
- SCEOUTPUT=openfile(filename);
- println(SCEOUTPUT,"%Parafirsthead"+"...");
- forall(Parafirsthead,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Parafirsttail"+"...");
- forall(Parafirsttail,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Parahead"+"...");
- forall(Parahead,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Paratail"+"...");
- forall(Paratail,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Paralasthead"+"...");
- forall(Paralasthead,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Paralasttail"+"...");
- forall(Paralasttail,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Commonhead"+"...");
- forall(Commonhead,
- println(SCEOUTPUT,#+"...");
- );
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"%Commontail"+"...");
- forall(Commontail,
- println(SCEOUTPUT,#+"...");
- );
- closefile(SCEOUTPUT);
-);
-
-Mvdispg():=(
- regional(tmp,tmp1,tmp2,tmp3,num,s,i);
- CLIST=COM2ndlist;
- FIXGLIST=[];
- forall(2..length(GLIST),
- FIXGLIST=append(FIXGLIST,GLIST_#);
- );
- STPTlist=remove(allpoints(),[SW,NE,MF]);
- STPlist=[];
- STPnamelist=[];
- STPvaluelist=[];
- forall(STPTlist,
- tmp=Lcrd(#);
- tmp1=format(re(tmp_1),5);
- tmp2=format(re(tmp_2),5);
- tmp="["+tmp1+","+tmp2+"]";
- STPlist=append(STPlist,#.name+"="+tmp+";");
- STPnamelist=append(STPnamelist,#.name);
- STPvaluelist=append(STPvaluelist,tmp);
- );
- tmp1=round(4*SW.y)/4-0.5;
- tmp2=SW.x+1;
- tmp3=NE.x-1;
- if(length(Movierange)==2,
- s=Movierange_1+(MF.x-tmp2)/(tmp3-tmp2)*(Movierange_2-Movierange_1);
- Movieframe(s);
- ,
- num=length(Movierange);
- tmp=Movierange_1+(MF.x-tmp2)/(tmp3-tmp2)*(Movierange_num-Movierange_1);
- i=1;
- while(Movierange_(i+1)<=tmp,
- i=i+1;
- );
- s=Movierange_i;
- Movieframe(s);
- );
- Windispg();
- Defvar("s",s);
- GOUTLIST=[];
-);
-
-Mkmovie():=Mkmovie(Movierange);
-Mkmovie(rng):=(
- regional(x1,x2,PLIST,GL,num0,num1,num2,num3,num4,num5,num6,num,
- l,s,k,tmp,tmp1,tmp2,tmp3,Plist,Pnamelist,Pvaluelist,
- ALLPlist,MVPlist);
- if(length(rng)==2,
- x1=rng_1;
- x2=rng_2;
- PLIST=[x1];
- forall(1..DVALL,k,
- s=x1+k*(x2-x1)/DVALL;
- PLIST=append(PLIST,s);
- );
- ,
- PLIST=rng;
- DVALL=length(rng)-1;
- );
- if(VERNUM==0,
- SCEOUTPUT=openfile(Texmov+".sce");
- ,
- SCEOUTPUT=openfile(Texpara+".sce");
- );
- println(SCEOUTPUT,"cd('"+Dirwork+"');");
- println(SCEOUTPUT,"Ketlib=lib('"+Libname+"');");
- println(SCEOUTPUT,"Ketinit();");
- println(SCEOUTPUT,"pi=%pi;");
- tmp="Setwindow(["+text(XMIN)+","+text(XMAX)+
- "],["+text(YMIN)+","+text(YMAX)+"]);";// 16.05.19
- println(SCEOUTPUT,tmp);
- //println(SCEOUTPUT,"Setax('l','x','e','y','n','O','sw');");
- num1=length(COM1stlist);
- forall(1..num1,l,
- println(SCEOUTPUT,COM1stlist_l+";");
- );
- forall(1..length(STPlist),
- print(SCEOUTPUT,STPlist_#);
- println(SCEOUTPUT," Assignrep('"+STPnamelist_#+"',"+STPvaluelist_#+");");
- );
- num2=length(CLIST);
- num3=length(FIXGLIST);
- num=0;
- repeat(num3,
- num=num+1;
- tmp1=FIXGLIST_num;
- num4=indexof(tmp1,"=");
- if(num4>0,
- tmp2=substring(tmp1,num4,length(tmp1));
- tmp=substring(tmp1,0,num4-1);
- println(SCEOUTPUT,tmp+"="+text(tmp2)+";");
- );
- );
- if(VERNUM==0,
- println(SCEOUTPUT,"Openfile('"+Texmov+"figs.tex');");
- println(SCEOUTPUT,"Texcom('\begin{animateinline}{"+text(CUT)+"}');");
- ,
- println(SCEOUTPUT,"Openfile('"+Texpara+"figs.tex');");
- );
- println(SCEOUTPUT,"");
- forall(0..DVALL,k,
- s=PLIST_(k+1);
- println(SCEOUTPUT,"s="+format(s,5)+";");
- GLIST=[];
- COM2ndlist=[];
- GCLIST=FIXGCLIST;
- Movieframe(s);
- clrscr(); // 15.06.17
- Plist=[];
- Pnamelist=[];
- Pvaluelist=[];
- ALLPlist=remove(allpoints(),[SW,NE,MF]);
- RMPlist=[];
- forall(1..length(ALLPlist),
- tmp=indexof(STPvaluelist_#,",");
- tmp1=substring(STPvaluelist_#,1,tmp-1);
- tmp2=substring(STPvaluelist_#,tmp,length(STPvaluelist_#)-1);
- if(parse(format(Lcrd(ALLPlist_#)_1,5))==parse(tmp1),
- if(parse(format(Lcrd(ALLPlist_#)_2,5))==parse(tmp2),
- RMPlist=append(RMPlist,ALLPlist_#);
- );
- );
- );
- MVPlist=remove(ALLPlist,RMPlist);
- forall(MVPlist,
- tmp=Lcrd(#);
- tmp1=format(re(tmp_1),5);
- tmp2=format(re(tmp_2),5);
- tmp="["+tmp1+","+tmp2+"]";
- Plist=append(Plist,#.name+"="+tmp+";");
- Pnamelist=append(Pnamelist,#.name);
- Pvaluelist=append(Pvaluelist,tmp);
- );
- forall(1..length(Plist),
- print(SCEOUTPUT,Plist_#);
- println(SCEOUTPUT," Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+");");
- );
- num3=length(GLIST);
- num=0;
- GL=[];
- forall(GCLIST,
- GL=append(GL,#_1);
- );
- repeat(num3,
- num=num+1;
- tmp1=GLIST_num;
- num4=indexof(tmp1,"=");
- tmp2=substring(tmp1,num4,length(tmp1));
- tmp=substring(tmp1,0,num4-1);
- //if(indexof(tmp2,"=")>0,
- if(substring(tmp2,0,5)=="Param",
- num5=indexof(tmp2,"=");
- tmp3=substring(tmp2,num5,length(tmp2)-2);
- tmp3=parse(tmp3);
- if(tmp3_1==tmp3_2,
- tmp2="Pointdata([0,0])";
- );
- );
- println(SCEOUTPUT,tmp+"="+text(tmp2)+";");
- );
- forall(GOUTLIST,
- tmp=#_1;
- println(SCEOUTPUT,"Tmpout=ReadOutData('"+tmp+"');");
- println(SCEOUTPUT,"execstr(Tmpout);");
- );
- if(VERNUM==1,
- if(k==0,
- tmp1=apply(Parafirsthead,Removespace(#));
- ,
- if(k<DVALL,
- tmp1=apply(Parahead,Removespace(#));
- ,
- tmp1=apply(Paralasthead,Removespace(#));
- );
- );
- tmp1=apply(tmp1,if(length(#)==0,"newline",#));
- tmp=select(1..length(tmp1),indexof(tmp1_#,"Common")>0);
- tmp2=apply(Commonhead,Removespace(#));
- tmp2=apply(tmp2,if(length(#)==0,"newline",#));
- tmp1_(tmp_1)=tmp2;
- tmp1=flatten(tmp1);
- forall(tmp1,
- println(SCEOUTPUT,"Texcom('"+#+"');");
- );
- );
- tmp=indexof(ULEN,"cm"); // 16.05.19from
- if(tmp>0,
- tmp1=Removespace(substring(ULEN,0,tmp-1));
- tmp2=0.5/parse(tmp1)
- ); // 16.05.19upto
- tmp=indexof(ULEN,"mm");
- if(tmp>0,
- tmp1=Removespace(substring(ULEN,0,tmp-1));
- tmp2=5/parse(tmp1);
- );
- tmp="Setwindow(["+text(XMIN)+","+text(XMAX+tmp2)+
- "],["+text(YMIN)+","+text(YMAX+tmp2)+"]);";// 16.05.19
- println(SCEOUTPUT,tmp);// 16.05.19
- println(SCEOUTPUT,"Beginpicture('"+ULEN+"');");
- tmp="Setwindow(["+text(XMIN)+","+text(XMAX)+
- "],["+text(YMIN)+","+text(YMAX)+"]);";// 16.05.19
- println(SCEOUTPUT,tmp);// 16.05.19
- forall(1..num2,l,
- println(SCEOUTPUT,CLIST_l+";");
- );
- forall(1..length(COM2ndlist),l,
- println(SCEOUTPUT,COM2ndlist_l+";");
- );
- println(SCEOUTPUT,"Endpicture("+ADDAXES+");");
- if(VERNUM==0,
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"Texcom('');");
- if(k<DVALL,
- println(SCEOUTPUT,"Texcom('\newframe');");
- println(SCEOUTPUT,"");
- ,
- println(SCEOUTPUT,"Texcom('\end{animateinline}')");
- println(SCEOUTPUT,"Closefile();");
- println(SCEOUTPUT,"quit();");
- closefile(SCEOUTPUT);
- );
- ,
- if(k==0,
- tmp1=apply(Parafirsttail,Removespace(#));
- ,
- if(k<DVALL,
- tmp1=apply(Paratail,Removespace(#));
- ,
- tmp1=apply(Paralasttail,Removespace(#));
- );
- );
- tmp1=apply(tmp1,if(length(#)==0,"newline",#));
- tmp=select(1..length(tmp1),indexof(tmp1_#,"Common")>0);
- tmp2=apply(Commontail,Removespace(#));
- tmp2=apply(tmp2,if(length(#)==0,"newline",#));
- tmp1_(tmp_1)=tmp2;
- tmp1=flatten(tmp1);
- forall(tmp1,
- println(SCEOUTPUT,"Texcom('"+#+"');");
- );
- if(k==DVALL,
- println(SCEOUTPUT,"");
- println(SCEOUTPUT,"Closefile();");
- println(SCEOUTPUT,"quit();");
- closefile(SCEOUTPUT);
- );
- );
- Windispg(GL);
- time=1000/CUT;
- wait(time);
- GLIST=[];
- GCLIST=[];
- COM2ndlist=[];
- GOUTLIST=[];
- );
-);
-
-Mkmovietexmain():=(
- TEXOUTPUT=openfile(Texmov+"main"+".tex"); // 15.03.28
- println(TEXOUTPUT,"");
- println(TEXOUTPUT,"\documentclass{article}");
- println(TEXOUTPUT,"\usepackage{amsmath,amssymb}"); // 16.07.06
- println(TEXOUTPUT,"\usepackage{graphicx}");
- println(TEXOUTPUT,"\usepackage[dvipdfmx]{animate}");
- println(TEXOUTPUT,"\usepackage{color}");
- println(TEXOUTPUT,"\usepackage{ketpic,ketlayer}");
- println(TEXOUTPUT,"\setmargin{20}{20}{20}{20}");
- println(TEXOUTPUT,"\begin{document}");
- println(TEXOUTPUT,"\input{"+Texmov+"figs.tex}%");
- println(TEXOUTPUT,"\end{document}");
- closefile(TEXOUTPUT);
-);
-
-Mkmoviesh():=(
- regional(parentorg,tmp);
- parentorg=Texparent;//17.04.10
- Texparent="";//17.04.10
- tmp=Fhead;// 15.03.28
- Fhead=Texmov;
- if(length(Shellparent)>0,
- Makeshell()
- ,
- Makebat();
- );
- Fhead=tmp;
- Texparent=parentorg;//17.04.10
-);
-
-Texmovie():=(
- VERNUM=0;
- Mkmovie();
- Mkmovietexmain();
- Mkmoviesh();
-);
-
-Mkparatexmain():=(
- TEXOUTPUT=openfile(Texpara+"main"+".tex");
- println(TEXOUTPUT,"");
- println(TEXOUTPUT,"\documentclass[landscape,10pt]{article}");
- println(TEXOUTPUT,"\usepackage{amsmath,amssymb}"); // 16.07.06
- println(TEXOUTPUT,"\usepackage{graphicx}");
- println(TEXOUTPUT,"\usepackage[dvipdfmx,colorlinks=true,linkcolor=black]{hyperref}");
- println(TEXOUTPUT,"\AtBeginDvi{\special{pdf:tounicode 90ms-RKSJ-UCS2}}");
- println(TEXOUTPUT,"\usepackage{color}");
- println(TEXOUTPUT,"\usepackage{ketpic,ketlayer,ketslide}");
- println(TEXOUTPUT,"\ketmarginE");
- println(TEXOUTPUT,"\ketslideinit");
- println(TEXOUTPUT,"\begin{document}");
- println(TEXOUTPUT,"\input{"+Texpara+"figs.tex}%");
- println(TEXOUTPUT,"\end{document}");
- closefile(TEXOUTPUT);
-);
-
-Mkparash():=(
- regional(tmp);
- tmp=Fhead;
- Fhead=Texpara;
- if(length(Shellparent)>0,
- Makeshell()
- ,
- Makebat();
- );
- Fhead=tmp;
-);
-
-Texpara():=(
- VERNUM=1;
- Mkmovie();
- Mkparatexmain();
- Mkparash();
-);
-
-Setpara(path,fstr,sL):=Setpara(path,fstr,sL,[]); // 16.12.27added
-Setpara(pathorg,fstr,sL,options):=(
-//help:Setpara("folder name","funstr","range",options);
-//help:Setpara(folder,funstr,range,options);
-//help:Setpara(options=["m/r","Div=25"]);
-//help:Setpara(options=["Frate=10","Scale=1","OpA=[loop]"] for animation);
- regional(path);//17.04.10
- if(length(pathorg)==0, path=Slidename,path=pathorg);//17.04.10
- ParaPath=path;
- ParaFstr=fstr;
- ParaSL=sL;
- ParaOp=options;
- GLISTback=GLIST;
- GCLISTback=GCLIST;
- GOUTLISTback=GOUTLIST;
- POUTLISTback=POUTLIST;
- VLISTback=VLIST;
- FUNLISTback=FUNLIST;
- LETTERlistback=LETTERlist;
- COM0thlistback=COM0thlist;
- COM1stlistback=COM1stlist;
- COM2ndlistback=COM2ndlist;
-);
-
-Parafolder():=Parafolder(ParaPath,ParaFstr,ParaSL,ParaOp);
-Parafolder(path,fstr,sL):=Parafolder(path,fstr,sL,[]);
-Parafolder(path,fstr,sLorg,optionorg):=(
-//help:Parafolder(foldername,1..4);
-//help:Parafolder(foldername,"s=[0,1]");
-//help:Parafolder("mf(s)",foldername,"s=[0,1]");
-//help:Parafolder(options=["m/r","Div=25"]);
-//help:Paraslide(para=folder:layery:pos:input,scale);
-//help:Paraslide(para=folder:layery:pos:include:[width=100]);
- regional(nn,sL,tmp,tmp1,tmp2,strL,eqL,
- mksce,mktex,ndiv,options,sciall,sfL);
- if(!isstring(ParaPath),
- println("Setpara not executed");
- ,
- sL=sLorg;//16.12.24from
- if(!isstring(sL),
- tmp=indexof(fstr,"(");
- tmp1=substring(fstr,tmp,length(fstr));
- tmp=indexof(tmp1,")");
- tmp1=substring(tmp1,0,tmp-1);
- ,
- tmp=indexof(sL,"=");//16.12.21from
- if(length(tmp)>0,
- tmp1=substring(sL,0,tmp-1);
- );
- );//16.12.21,24upto
- parse("Movieframe("+tmp1+"):="+fstr);
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- if(length(strL)==0,options=append(options,"m"));//16.12.18
- mksce="A";
- mktex="A";
- ndiv=25;
- forall(eqL,
- tmp=Indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="D",
- ndiv=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- forall(strL,
- tmp1=Toupper(substring(#,0,1));
- if(tmp1=="M",
- mksce="Y"; mktex="Y";
- );
- );
- sL=sLorg;
- if(isstring(sL),
- tmp=indexof(sL,"=");
- tmp1=parse(substring(sL,tmp,length(sL)));
- sL=apply(0..ndiv,tmp1_1+#*(tmp1_2-tmp1_1)/ndiv);
- );
- if(!isexists(Dirwork,path),
- if(ErrFlag!=-1,
- cmdL=["createdir",[Dq+path+Dq]];//16.12.20
- CalcbyS("crdr",cmdL,["m"]);
- wait(200);//17.02.20from
- repeat(1..30,
- if(!isexists(Dirwork,path),wait(100));
- );//17.02.20upto
- ,
- println(" ==> Changework may not work properly");
- sL=[];
- );
- ,
- if(mksce=="Y",
- cmdL=[
- "rmdir",[Dq+path+Dq,Dq+"s"+Dq],
- "createdir",[Dq+path+Dq]
- ];//16.12.20
- CalcbyS("crdr",cmdL,["m"]);
- wait(200);//17.02.20from
- tmp=Dirwork+"/"+path;
- if(iswindows(),tmp=replace(tmp,"/","\"));
- repeat(1..30,
- if(!isexists(Dirwork,path),
- wait(100);
- ,
- if(length(fileslist(tmp))>0,wait(100));
- );
- );
- );//17.02.20upto
- );
- sciall=path+"/all.sce";
- if(iswindows(),sciall=replace(sciall,"/","\"));//17.02.20
- sfL=[];
- forall(1..(length(sL)),nn,
- clrscr(); // 16.12.28
- GLIST=GLISTback;
- GCLIST=GCLISTback;
- GOUTLIST=GOUTLISTback;
- POUTLIST=POUTLISTback;
- VLIST=VLISTback;
- FUNLIST=FUNLISTback;
- LETTERlist=LETTERlistback;
- COM0thlist=COM0thlistback;
- COM1stlist=COM1stlistback;
- COM2ndlist=COM2ndlistback;
- tmp1=Sprintf(nn/1000,3);
- tmp=indexof(tmp1,".");
- tmp1=substring(tmp1,tmp,length(tmp1));
- Fnamesci=path+"/p"+tmp1+".sce";
- sfL=append(sfL,Fnamesci);
- Fnametex=replace(Fnamesci,".sce",".tex");
- Movieframe(sL_nn);
-// windispg();//16.12.28
- if(!isexists(Dirwork,Fnamesci) % mksce=="Y",
- if(ErrFlag!=-1,
- Viewtex();
- );
- );
- ); // 16.12.27upto
- cmdL=[
- "fL="+text(apply(sfL,Dq+#+Dq)),[],
- "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,'"+sciall+"')",[],
- "exec('"+sciall+"',-1)",[]
- ];
- if(ErrFlag!=-1,
- if(!isexists(Dirwork,Fnametex) % mktex=="Y",
- CalcbyS("all",cmdL,options);
- ,
- println("Parafolder "+path+" finished");//16.12.20
- );
- if(length(after)>0, // 16.12.27
- parse(after);
- );
- Fnamesci=Fhead+".sce";
- Fnametex=Fhead+".tex";
- );
- );
-);
-
-Flipbook():=( //17.04.09
- regional(parentorg,Dirworkorg,figfolder,sep,x0,y0,sc,title,tmp,tmp1,tmp2);
- Dirworkorg=Dirwork;
- Slidework(Dirwork);
- figfolder=Dirwork;
- parentorg=Texparent;
- PageStyle="empty";
- title=Texparent;
- tmp=Divoptions(ParaOp);
- tmp1=tmp_5;
- forall(tmp1,
- tmp2=substring(Toupper(#),0,1);
- if(tmp2=="T",
- tmp=indexof(#,"=");
- title=substring(#,tmp,length(#));
- ParaOp=remove(ParaOp,[#]);
- );
- );
- x0="60"; y0="5"; sc="1";
- tmp=select(ParaOp,islist(#));
- if(length(tmp)>0,
- x0=text(tmp_1_1);
- y0=text(tmp_1_2);
- ParaOp=remove(ParaOp,[tmp_1]);
- );
- tmp=select(ParaOp,!islist(#) & isreal(#));
- if(length(tmp)>0,
- sc=text(tmp_1);
- ParaOp=remove(ParaOp,[tmp_1]);
- );
- Parafolder();
- Changework(Dirworkorg);
- if(isstring(Slidename),
- Texparent=Slidename;
- ,
- Texparent=parentorg+"flip";
- );
- SCEOUTPUT = openfile(Texparent+".txt");
- println(SCEOUTPUT,"%title//");
- println(SCEOUTPUT,"\pagestyle{empty};//");
- println(SCEOUTPUT,"new::"+title+"//");
- println(SCEOUTPUT,
- "%repeat=,para="+ParaPath+":{0}:s{"+x0+"}{"+y0+"}:input:"+sc+"//");
- closefile(SCEOUTPUT);
- Changework(figfolder);
- Setslidebody("black");
- Setslidehyper("");
- Mkslides();
- Changework(Dirworkorg);
- Texparent=parentorg;
-);
-
-Animatefile():=Animatefile(Dirwork,ParaPath);
-Animatefile(path,folder):=(
-//help:Animatefile();
-//help:Animatefile(Dirwork,ParaPath);
- regional(FRate, Scale, OpA, pa,fname,eqL,tmp,tmp1,tmp2);
- tmp=divoptions(ParaOp);
- eqL=tmp_5;
- FRate="10";
- Scale="1";
- OpA="";
- forall(eqL,
- tmp1=Toupper(substring(#,0,2));
- tmp=indexof(#,"=");
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="FR",
- FRate=tmp2;
- );
- if(tmp1=="SC",
- Scale=tmp2;
- );
- if(tmp1=="OP",
- if(substring(tmp2,0,1)!="[",tmp2="["+tmp2+"]");
- OpA=tmp2;
- );
- );
- pa=replace(path,"\","/");
- fname="anim"+folder+".tex";
- tmp=Dirwork+"/"+folder;
- path=replace(tmp,"\","/");
- if(iswindows(),tmp=replace(tmp,"/","\"));
- tmp1=fileslist(tmp);
- tmp1=tokenize(tmp1,",");
- tmp1=select(tmp1,indexof(#,".tex")>0);
- SCEOUTPUT= openfile(fname);
- println(SCEOUTPUT,"\def\parapath{"+pa+"}%"); //17.06.22
- println(SCEOUTPUT,"\begin{animateinline}"+OpA+"{"+FRate+"}%");
- forall(1..(length(tmp1)),
- if(Scale==1, // 17.08.30from
- tmp="\input{\parapath/";
- tmp=tmp+folder+"/"+tmp1_#+"}%";
- ,
- tmp="\scalebox{"+Scale+"}{\input{\parapath/";//17.06.22(3lines)
- tmp=tmp+folder+"/"+tmp1_#+"}}%";
- ); // 17.08.30upto
- println(SCEOUTPUT,tmp);
-// println(SCEOUTPUT,""); //17.06.25
- if(#<length(tmp1),
- println(SCEOUTPUT,"\newframe%");
- );
- );
- println(SCEOUTPUT,"\end{animateinline}%");
- closefile(SCEOUTPUT);
- println(fname+" has been generated");
-);
-
-//help:end();
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpE.txt b/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpE.txt
deleted file mode 100644
index 9a7edb2e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpE.txt
+++ /dev/null
@@ -1,4 +0,0 @@
-//help:start();
-//help:Moviedata*(generate movie/para data);
-//help:Paraamble*(Define preamble and postamble);
-//help:end();
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpJ.txt b/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpJ.txt
deleted file mode 100644
index 354d6596..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvhelpJ.txt
+++ /dev/null
@@ -1,4 +0,0 @@
-//help:start();
-//help:Moviedata*(movie繝繝シ繧ソ繧貞ョ夂セゥ
-//繧ェ繝励す繝ァ繝ウ : "Cut=シ醍ァ偵ョ繧ウ繝樊焚(20)", "Div=蜈ィ菴薙ョ繧ウ繝樊焚(80)");
-//help:end();
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvlog.txt b/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvlog.txt
deleted file mode 100644
index b39a48e0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibmvlog.txt
+++ /dev/null
@@ -1,66 +0,0 @@
-// e: 2017.08.19
-// Help of Setpara changed
-// e: 2017.06.25
-// Animatefile changed (remove blank lines)
-// e: 2017.06.22
-// Animatefile changed (parapath)
-// e: 2017.06.18
-// Animatefile added
-// e: 2017.04.10
-// Mkmoviesh changed ( Texparent )
-// Ketinitmv changed ( Ketinit included )
-// e: 2017.04.09
-// Ketinitmv changed ( Shellfile="mv" added )
-// Flipbook added
-// s:2017.04.08
-// bugs fixed
-// e: 2017.02.26
-// Paraamble debugged ( \def\ketcbox{white} added )
-// e: 2017.02.20
-// Parafolder debugged ( waiting time )
-// e: 2017.02.19
-// Paraamble debugged ( "colorframe" )
-// e: 2016.12.29
-// Parafolder changed (rmdir added);
-// e: 2016.12.28
-// Parafolder changed (clrscr,windispg);
-// e: 2016.12.27
-// Setpara added ( for Para button )
-// Parafolder changed( "m" for remake)
-// e: 2016.12.26
-// Parafolder debugged("quit" removed from all.sce)
-// e: 2016.12.25
-// Parafolder debugged/changed (OK for "Scetex=m or m,r")
-// e: 2016.12.24
-// Parafolder debugged (definition of movieframe )
-// e: 2016.12.22
-// Parafolder changed ( not executed when Errflg=-1 from Changework )
-// e: 2016.12.21
-// Parafolder changed ( for functionstring )
-// e: 2016.12.19
-// Parafolder debugged
-// e: 2016.12.15
-// Parafolder added
-// e: 2016.12.10
-// Setpara added (global var ParaTitle added )
-// e: 2016.08.10
-// Ketinitmv changed ( Paraamble() added)
-// e: 2016.07.06
-// amsmath,amssymb added
-// putnotes => putnotec in paraamble
-
-//////////// old ////
-// s: 2015.06.20 v1.4.6
-// e: 2015.06.22 v1.5.0
-// .cs adopted
-// movie, para embodied
-// e: 2015.07.10 v1.5.1
-// applied to Deqplot
-// e: 2015.07.10 v1.5.2
-// rename "start","end" to "First", "Last"
-// e: 2016.04.01 v1.5.3
-// rename Texmovie to Texmov
-// e: 2016.05.19
-// Mkmovie changed ( for name of axis )
-//////// To Reverse Sequence
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindylibout.cs b/texmf-dist/scripts/ketpic/ketlib/ketcindylibout.cs
deleted file mode 100644
index baf06a73..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindylibout.cs
+++ /dev/null
@@ -1,5359 +0,0 @@
-// Copyright (C) 2014 Setsuo Takato, KETCindy Japan project team
-//
-//This program is free software: you can redistribute it and/or modify
-// it under the terms of the GNU General Public License as published by
-// the Free Software Foundation; either version 3 of the License, or
-// (at your option) any later version.
-//
-// This program is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with this program. If not, see <http://www.gnu.org/licenses/>
-//
-
-println("ketcindyout(2017.06.23) loaded");
-
-//help:start();
-
-WritetoS(fname,cmdL):=(
-// help:WritetoS("outdata",cmdL);
- regional(tmp,tmp1,tmp2,filename);
- if(indexof(fname,".")==0,
- filename=fname+".sce";
- ,
- filename=fname;
- );
- SCEOUTPUT = openfile(filename);
- tmp="cd('"+Dirwork+"');//";
- println(SCEOUTPUT,tmp);
-// tmp1=replace(Dirlib,"\","/");
- tmp="Ketlib=lib("+Dq+Libname+Dq+");//";
- println(SCEOUTPUT,tmp);
- tmp="Ketinit();//";
- println(SCEOUTPUT,tmp);
- tmp="Setwindow([XMIN,XMAX],[YMIN,YMAX]);"; // 16.06.26from
- tmp=Assign(tmp,["XMIN",XMIN,"XMAX",XMAX,"YMIN",YMIN,"YMAX",YMAX]);
- println(SCEOUTPUT,tmp); // 16.06.26upto
- if(iswindows(), // 17.01.11from
- println(SCEOUTPUT,"setlanguage('en')");
- ); // 17.01.11upto
- tmp="pi=%pi;////";
- println(SCEOUTPUT,tmp);
- forall(cmdL,
- println(SCEOUTPUT,#+"//");
- );
- closefile(SCEOUTPUT);
-);
-
-kcS(path,fname):=kcS(path,fname,[]);
-kcS(path,fname,optionorg):=(
-//help:kcS(PathS,"boxdata");
-//help:kcS(options=["r/m"]);
- regional(options,tmp,tmp1,tmp2,eqL,strL,filename,flg);
- if(indexof(fname,".")==0,
- filename=fname+".sce";
- ,
- filename=fname;
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- );
- flg=0;
- forall(strL,
- if(Toupper(substring(#,0,1))=="R",
- flg=0;
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="M",
- flg=1;
- );
- );
- if(flg==0,
- tmp2=replace(filename,".sce",".txt");
- tmp1=load(tmp2);
- if(length(tmp1)==0,
- flg=1;
- );
- );
- if(flg==1,
- tmp1=""; // 15.10.08 from
- if(iswindows(),
- tmp2=Batparent;
- ,
- tmp2=Shellparent;
- );
- flg=0;
- forall(reverse(1..length(tmp2)),
- if(flg==0,
- tmp=substring(tmp2,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- tmp1=substring(tmp2,0,#-1);
- tmp2=substring(tmp2,#,length(tmp2));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(tmp1);
- ); // 15.10.08 to
- if(iswindows(),
- SCEOUTPUT = openfile("kc.bat");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=Dq+path+Dq+" -nb -nwni -f "+filename;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29, 0605
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=Dq+path+Dq+" -nwni -f "+filename;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29
- );
- wait(WaitUnit);
- setdirectory(Dirwork);
- );
-);
-
-SetpathS():=(
- regional(tmp,tmp1);
- if(!isstring(PathS), // 15.12.11
- Setdirectory(Dirbin); // 15.12.07
- tmp=load(Shellfile);
- if(iswindows(),
- tmp=tokenize(tmp," -nb");
- PathS=tmp_1;
- ,
- tmp=tokenize(tmp," -nwni");
- tmp=tokenize(tmp_1,"/Applications/sci");
- PathS="/Applications/sci"+tmp_2;
- );
- setdirectory(Dirwork);
- );
- PathS;
-);
-
-ErrhandleS(fname):=( // 2016.02.28
- regional(str); //17.04.14
- if(indexof(PathS,"-6.")==0,
- str=["if iserror(-1) then"," error=lasterror()+'????';"];
- str=append(str," errclear(-1);"); // 16.03.14
- str=append(str," Fd=mopen("+Dq+wfile+Dq+",'wt');");
- str=append(str," mfprintf(Fd,'%s','Error: '+error);");
- str=append(str," mclose(Fd);");
- str=append(str," quit();");
- str=append(str,"end;");
- str;
- ,
- str=[]; //17.04.14
- );
-);
-
-Testfunstr(funstr,varx,vary):=(
- regional(var,val,fun,tmp,tmp1,tmp2);
- fun=replace(funstr,".x","(1)"); // 16.05.19
- fun=replace(fun,".y","(2)"); // 16.05.19
- tmp=indexof(varx,"=");
- var=substring(varx,0,tmp-1);
- val=substring(varx,tmp+1,length(varx));
- tmp=indexof(val,",");
- val=substring(val,0,tmp-1);
- tmp1=replace(fun,var,"("+val+")");
- tmp=indexof(vary,"=");
- var=substring(vary,0,tmp-1);
- val=substring(vary,tmp+1,length(vary));
- tmp=indexof(val,",");
- val=substring(val,0,tmp-1);
- tmp1=replace(tmp1,var,"("+val+")");
- tmp1;
-);
-
-CalcbyS(name,cmd):=CalcbyS(name,SetpathS(),cmd,[]);
-CalcbyS(name,Arg1,Arg2):=(
- if(isstring(Arg1),
- CalcbyS(name,Arg1,Arg2,[]);
- ,
- CalcbyS(name,SetpathS(),Arg1,Arg2);
- );
-);
-CalcbyS(name,path,cmd,optionorg):=(
-//help:CalcbyS("a",cmd);
-//help:CalcbyS(options= ["m/r","Wait=10","Cat=middle"]]);
-//help:CalcbyS(options1= ["Ncol=2","File=result","Dig=5"]]);
- regional(options,tmp,tmp1,tmp2,tmp3,tmp4,realL,strL,eqL,
- ncoL,cat,dig,flg,wflg,file,nc,arg,cmdS,cmdlist,wfile,ext,
- waiting, errcheck);
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- realL=tmp_6;
- strL=tmp_7;
- cat="M";//16.11.24
- ncoL=2;
- ext=".txt";
- waiting=10;
- dig=5;
- wfile="";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,2));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="CA",
- cat=Toupper(substring(tmp2,0,1));// 16.11.24
- options=remove(options,[#]);
- );
- if(tmp1=="NC",
- ncoL=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="EX",
- if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="WA",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="DI",
- dig=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="FI", // 16.06.26from
- wfile=tmp2;
- options=remove(options,[#]);
- ); // 16.06.26upto
- );
- if(wfile=="",
- if(cat=="Y",
- wfile=Fhead+name;
- ,
- wfile="resultS";
- );
- );
- if(indexof(wfile,".")==0,// 16.06.26from
- wfile=wfile+ext;
- ); // 16.06.26upto
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- if(CONTINUED==0,
- if((wflg==0) & (cat=="Y"), // 16.11.24
- tmp=load(wfile);
- if(length(tmp)==0,wflg=1);
- );
- );
- file=Fhead+name;
- cmdS=cmd;
- cmdlist=[];
- forall(1..floor(length(cmdS)/2),nc, //17.05.18
- tmp1=cmdS_(2*nc-1);
- tmp1=replace(tmp1,LFmark,""); // 16.06.12
- tmp1=replace(tmp1,CRmark,""); // 16.12.13
- if(nc==length(cmdR)/2, //16.10.23from
- if(indexof(tmp1,"=")==0,tmp1="="+tmp1);
- ); //16.10.23from
- if(substring(tmp1,0,1)=="=",
-// tmp1=name+tmp1; // 16.12.20
- );
- tmp2=cmdS_(2*nc); // list of argments
- tmp3="";
- tmp4="";
- errcheck=0;
- forall(tmp2,arg,
- if(isstring(arg),
- if(Toupper(arg)=="ERROR",
- errcheck=1;
- ,
- tmp3=tmp3+replace(arg,"'",Dq)+",";
- );
- ,
- if(!islist(arg),
- tmp3=tmp3+textformat(arg,dig)+",";
- ,
- tmp=select(arg,isstring(#) % islist(#));
- if(length(tmp)>0,
- tmp3=tmp3+"list(";
- tmp4=")";
- ,
- tmp3=tmp3+"[";
- tmp4="]";
- );
- forall(arg,
- if(isstring(#),
- tmp3=tmp3+replace(#,"'",Dq)+",";
- ,
- if(!islist(#), // 15.11.01 from
- tmp3=tmp3+textformat(#,dig)+",";
- ,
- tmp=textformat(#,dig);
- tmp=replace(tmp,"],[","];[");
- tmp3=tmp3+tmp+",";
- ); // 15.11.01 upto
- );
- );
- tmp3=substring(tmp3,0,length(tmp3)-1)+tmp4+",";
- );
- );
- );
- if(length(tmp3)>0,
- tmp3=substring(tmp3,0,length(tmp3)-1);
- tmp1=tmp1+"("+tmp3+");";
- );
- if(errcheck==1,
- if(indexof(Dirlib,"sciL5")>0, // 17.03.20
- cmdlist=append(cmdlist,"errcatch(-1,'continue','nomessage');");
- ); // 17.03.20
- );
- cmdlist=append(cmdlist,tmp1);
- if(errcheck==1,
- tmp=ErrhandleS(wfile);
- cmdlist=concat(cmdlist,tmp);
- );
- );
- if(CONTINUED==1,
- ComOutList=concat(ComOutList,cmdlist);
- ,
- if(cat=="Y",
- tmp=[];
- tmp=append(tmp,"Fd=mopen("+Dq+file+".txt"+Dq+",'wt');");
- // 16.03.11 from
- tmp=append(tmp,"mfprintf(Fd,'%s',"+name+");");
- tmp=append(tmp,"mclose(Fd);");
- cmdlist=concat(cmdlist,tmp);
-// tmp="fprintfMat("+Dq+file+".txt"+Dq+","+name+")";
-// cmdlist=append(cmdlist,tmp); // 16.03.11 upto
- ,
-// tmp="mputl(['????'],"+Dq+file+".txt"+Dq+");"; // 16.06.2 from
-// cmdlist=concat(cmdlist,[tmp]); // 16.06.2 upto
- );
- if(cat!="Y", // 16.12.18
- cmdlist=append(cmdlist,"mputl('||||','"+wfile+"')");
- );
- cmdlist=append(cmdlist,"quit()");
- if(wflg==0,
- tmp1=load(file+".sce");
- if(length(tmp1)==0,
- wflg=1;
- ,
- tmp1=tokenize(tmp1,"////");
- tmp1=tokenize(tmp1_2,"//");
- tmp1=tmp1_(1..(length(tmp1)-1));
- if(length(tmp1)!=length(cmdlist),
- wflg=1;
- ,
- tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
- if(length(tmp)>0, wflg=1);
- );
- );
- );
- if(wflg==0,wflg=-1); // 15.10.16
- if(wflg==1,
- if(length(wfile)>0, // 15.10.05
- SCEOUTPUT=openfile(wfile);
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- );
- WritetoS(file+".sce",cmdlist);
- kcS(path,file,concat(options,["m"])); // 15.09.25
- );
- flg=0;
- tmp1=floor(waiting*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp=load(wfile);
- if(length(tmp)>=4,
- tmp2=substring(tmp,length(tmp)-4,length(tmp));
- if(tmp2=="////" % tmp2=="||||" % tmp2=="????", // 16.08.09
- if(indexof(Toupper(tmp),"ERROR")>0,
- println(tmp);
- flg=2;
- ,
- flg=1;
- );
- );
- tmp2=#*WaitUnit/1000;
- ,
- if(wflg==-1,
- flg=-1;
- ,
- wait(WaitUnit);
- );
- );
- );
- );
- if(flg<=0,
- ErrFlag=1;
- if(flg==-1,
- println(wfile+" does not exist");
- ,
- tmp="("+text(waiting)+" s )";
- println(wfile+" not generated "+tmp);
- );
- ,
- if(flg==1,
- println(" CalcbyS succeeded "+name+"("+text(tmp2)+" sec)"); //16.06.03
- ,
- ErrFlag=1;
- );
- );
- );
- if(wflg>-1,
-// wait(WaitUnit);
- );
-);
-
-Scifun(name,fun,argL):=Scifun(name,fun,argL,[]);//16.10.22
-Scifun(name,fun,argL,optionorg):=(
-//help:Scifun("1","date()",[]);
-//help:Scifun(options=["Disp=y"]);
- regional(nm,options,eqL,disp,cmdL,fname,
- tmp,tmp1,tmp2);
- nm="sc"+name;
- fname=Fhead+nm+".txt";
- options=optionorg;
- tmp=divoptions(options);
- precise=6;
- disp=1;
- pack=[];
- set=[];
- add="";
- eqL=tmp_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if((tmp1=="DIS") % (tmp1=="DSP") ,
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="F") % (tmp=="N"),
- disp=0;
- );
- options=remove(options,[#]);
- );
- );
- cmdL=[];
- cmdL=concat(cmdL,[
- nm+"="+fun,argL,
- "Fd=mopen",[Dq+fname+Dq,Dq+"wt"+Dq],
- "Sla=char(47)+char(47);",[],
- "mputl",["string("+nm+")+Sla","Fd"],
- "mputl",["Sla","Fd"],
- "mclose",["Fd"]
- ]);
- options=append(options,"Wait=2");
- CalcbyS(nm,cmdL,options);
- if(ErrFlag==0,
- tmp=load(fname);
- tmp=replace(tmp,"////","");
- tmp=tokenize(tmp,"//");
- tmp=apply(tmp,if(!isstring(#),textformat(#,6),Dq+#+Dq));
- if(length(tmp)==1,
- tmp=tmp_1;
- );
- tmp=nm+"="+text(tmp);
- parse(tmp);
- if(disp==1, // 15.11.24
- println(nm+" is : ");
- println(parse(nm));
- );
- );
- parse(nm);
-);
-
-WritetoR(fname,cmdL):=WritetoR(fname,cmdL,[]);
-WritetoR(fname,cmdL,options):=(
-// help:WritetoR("outdata",cmdL);
- regional(eqL,tmp,tmp1,tmp2,filename,waiting);
- if(indexof(fname,".")==0,
- filename=fname+".r";
- ,
- filename=fname;
- );
- tmp=divoptions(options);
- eqL=tmp_5;
- waiting=5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- if(Toupper(substring(tmp1,0,1))=="W",
- waiting=parse(tmp2);
- );
- );
- SCEOUTPUT = openfile(filename);
- tmp1=replace(Dirwork,"\","/");
- tmp="setwd("+Dq+tmp1+Dq+")##";
- println(SCEOUTPUT,tmp);
- tmp1=replace(Dirlib,"\","/");
- tmp="load("+Dq+tmp1;
- tmp=tmp+"/ketpic_ltd.Rdata"+Dq+")##";
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"Ketinit()##"); // 16.07.07
- tmp="Setwindow(c(XMIN,XMAX),c(YMIN,YMAX))####"; // 16.06.26from
- tmp=Assign(tmp,["XMIN",XMIN,"XMAX",XMAX,"YMIN",YMIN,"YMAX",YMAX]);
- println(SCEOUTPUT,tmp);
- forall(cmdL,
- println(SCEOUTPUT,#+"##");
- );
- closefile(SCEOUTPUT);
-// flg=0;
-// tmp1=floor(waiting*1000/WaitUnit);
-// repeat(tmp1,
-// if(flg==0,
-// tmp=load(filename);
-// if(length(tmp)>0,
-// flg=1;
-// ,
-// wait(WaitUnit);
-// );
-// );
-// );
-);
-
-kcR(path,fname):=kcR(path,fname,[]);
-kcR(path,fname,optionorg):=(
-//help:kcR(PathR,"boxdata");
-//help:kcR(options=["m/r","Wait=10"]);
- regional(options,tmp,tmp1,tmp2,eqL,strL,filename,ferr,flg);
- if(indexof(fname,".")==0,
- filename=fname+".r";
- ,
- filename=fname;
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- );
- flg=0;
- forall(strL,
- if(Toupper(substring(#,0,1))=="R",
- flg=0;
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="M",
- flg=1;
- options=remove(options,[#]);
- );
- );
- if(flg==0,
- tmp2=replace(filename,".r",".txt");
- tmp1=load(tmp2);
- if(length(tmp1)==0,
- flg=1;
- );
- );
- if(flg==1,
- tmp1=""; // 15.10.08 from
- if(iswindows(),
- tmp2=Batparent;
- ,
- tmp2=Shellparent;
- );
- flg=0;
- forall(reverse(1..length(tmp2)),
- if(flg==0,
- tmp=substring(tmp2,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- tmp1=substring(tmp2,0,#-1);
- tmp2=substring(tmp2,#,length(tmp2));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(tmp1);
- ); // 15.10.08 to
- ferr="errormessageR.txt";//16.10.22from
- SCEOUTPUT=openfile(ferr);
- closefile(SCEOUTPUT);//16.10.22uptp
- if(iswindows(),
- SCEOUTPUT = openfile("kc.bat");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=Dq+path+"\R"+Dq+" --vanilla --slave < "+filename+" 2> "+ferr;
- //16.10.22
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29,06.05
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- if(PathR=="",tmp="R",tmp=PathR);//16.10.20
- tmp=tmp+" --vanilla --slave < "+filename+" >& "+ferr;//16.10.22
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29,06.05
- );
- wait(WaitUnit);
- setdirectory(Dirwork);
- );
-);
-
-Dataframe(nmL,dL):=Dataframe(nmL,dL,[]);
-Dataframe(nmL,dL,options):=(
-//help:Dataframe(["name","no1","no2"],dtL);
-//help:Dataframe(options=["Dig=5"]);
- regional(dig,tmp,tmp1,tmp2,out);
- dig=5;
- tmp=Divoptions(options);
- tmp=tmp_5;
- forall(tmp,
- tmp1=Toupper(substring(#,0,1));
- tmp2=indexof(#,"=");
- tmp2=substring(#,tmp2,length(#));
- if(tmp1=="D",
- dig=parse(tmp2);
- );
- );
- out="data.frame(";
- forall(1..(length(nmL)),
- tmp1=nmL_#;
- tmp2=column(dL,#);
- tmp2=apply(tmp2,if(isstring(#),Dq+#+Dq,format(#,dig)));
- tmp=tmp1+"="+tmp2+",";
- out=out+tmp;
- );
- out=substring(out,0,length(out)-1)+")";
- out=replace(out,"[","c(");
- out=replace(out,"]",")");
-);
-
-CalcbyR(name,cmd):=CalcbyR(name,PathR,cmd,[]);
-CalcbyR(name,Arg1,Arg2):=(
- if(isstring(Arg1),
- CalcbyR(name,Arg1,Arg2,[]);
- ,
- CalcbyR(name,PathR,Arg1,Arg2);
- );
-);
-CalcbyR(name,path,cmd,optionorg):=(
-//help:CalcbyR("Pr",cmd);
-//help:CalcbyR(options=["m/r","Wait=2","Cat=yes","File=result" ]);
- regional(options,tmp,tmp1,tmp2,tmp3,realL,strL,eqL,
- cat,dig,flg,wflg,file,nc,arg,cmdR,cmdlist,wfile,ext,waiting);
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- realL=tmp_6;
- strL=tmp_7;
- dig=5;
- cat="Y";
- wfile="";
- ext=".txt";
- waiting=2;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="C",
- cat=Toupper(substring(tmp2,0,1));
- options=remove(options,[#]);
- );
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="E",
- if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="D",
- dig=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="F",
- wfile=tmp2;
- options=remove(options,[#]);
- );
- );
- if(wfile=="",
- if(cat=="Y",
- wfile=Fhead+name+ext;
- ,
- wfile="resultR"+ext;
- );
- );
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- if(CONTINUED==0,
- if((wflg==0) & (cat!="N"), // 16.11.13
- tmp=load(wfile);
- if(length(tmp)==0,wflg=1);
- );
- );
- file=Fhead+name;
-// cmdR=flatten(cmd);
- cmdR=cmd;
- cmdlist=[];
- if(dig>5, //16.10.28from
- cmdlist=append(cmdlist,"options(digits="+text(dig+2)+");");
- ); //16.10.28upto
- forall(1..floor(length(cmdR)/2),nc, //17.05.18
- tmp1=cmdR_(2*nc-1);
- tmp1=replace(tmp1,LFmark,""); // 16.06.12
- if(nc==length(cmdR)/2, //16.10.23from
-// if(indexof(tmp1,"=")==0,tmp1="="+tmp1);//16.12.20
- ); //16.10.23uptp
- if(substring(tmp1,0,1)=="=",
- tmp1=name+tmp1;
- );
- tmp2=cmdR_(2*nc); // list of argments
- tmp3="";
- forall(tmp2,arg,
- if(isstring(arg),
- tmp3=tmp3+replace(arg,"'",Dq)+",";
- ,
- if(length(arg)==1,
- tmp3=tmp3+textformat(arg,dig)+",";
- ,
- tmp3=tmp3+"c(";
- forall(arg,
- tmp3=tmp3+textformat(#,dig)+",";
- );
- tmp3=substring(tmp3,0,length(tmp3)-1)+")"+",";
- );
- );
- );
- if(length(tmp3)>0,
- tmp3=substring(tmp3,0,length(tmp3)-1);
- tmp1=tmp1+"("+tmp3+")";
- );
- cmdlist=append(cmdlist,tmp1);
- );
- if(CONTINUED==1,
- ComOutList=concat(ComOutList,cmdlist);
- ,
- if(cat=="Y", //16.10.23from
- tmp="sharp=rawToChar(as.raw(35))";
- cmdlist=append(cmdlist,tmp);
- tmp="sharps=paste(sharp,sharp,'\n',sep='')";
- cmdlist=append(cmdlist,tmp);
- cmdlist=append(cmdlist,"if(is.matrix("+name+")){");
- cmdlist=append(cmdlist," "+name+"=as.data.frame("+name+")");
- cmdlist=append(cmdlist,"}");
- cmdlist=append(cmdlist,"if(is.list("+name+")){");
- tmp=" cat(names("+name+"),file='"+wfile+"',sep=',')";
- cmdlist=append(cmdlist,tmp);
- tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
- cmdlist=append(cmdlist,tmp);
- cmdlist=append(cmdlist," for(ii in 1:length("+name+")){");
- tmp=" cat("+name+"[[ii]],file='"+wfile+"',";
- tmp=tmp+"sep=',',append=TRUE)";
- cmdlist=append(cmdlist,tmp);
- tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
- cmdlist=append(cmdlist,tmp);
- cmdlist=append(cmdlist," }");
- cmdlist=append(cmdlist,"}else{");
- tmp=" cat("+name+",file='"+wfile+"',sep=',')";
- cmdlist=append(cmdlist,tmp);
- tmp=" cat(sharps,file='"+wfile+"',append=TRUE)";
- cmdlist=append(cmdlist,tmp);
- cmdlist=append(cmdlist,"}");
- tmp="cat('////',file='"+wfile+"',sep=',',append=TRUE)";
- cmdlist=append(cmdlist,tmp);
- ); //16.10.23upto
- if(cat!="Y", // 16.12.18
- cmdlist=append(cmdlist,"cat('////',file='"+wfile+"',sep='')");
- );
- cmdlist=append(cmdlist,"quit()");
- if(wflg==0,
- tmp1=load(file+".r");
- if(length(tmp1)==0,
- wflg=1;
- ,
- tmp1=tokenize(tmp1,"####"); // 15.09.25 from
- tmp1=tokenize(tmp1_2,"##");
- tmp1=tmp1_(1..(length(tmp1)-1));
- if(length(tmp1)!=length(cmdlist),
- wflg=1;
- ,
- tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
- if(length(tmp)>0, wflg=1);
- );
- ); // 15.09.25 to
- );
- if(wflg==0,wflg=-1); // 15.10.16
- if(wflg==1,
- if(length(wfile)>0, // 15.10.05
- SCEOUTPUT=openfile(wfile);
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- );
- WritetoR(file+".r",cmdlist);
- kcR(PathR,file,concat(options,["m"])); // 15.09.25
- );
- flg=0;
- tmp1=floor(waiting*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp=load(wfile);
- if(length(tmp)>=4,
- tmp2=substring(tmp,length(tmp)-4,length(tmp));
- if(tmp2=="////",
- tmp=substring(tmp,0,length(tmp)-4);
- flg=1;
- tmp2=#*WaitUnit/1000;
- );
- ,
- if(wflg==-1,
- flg=-1;
- ,
- wait(WaitUnit);
- );
- );
- );
- );
- if(flg<=0,
- ErrFlag=1;
- if(flg==-1,
- println(wfile+" does not exist");
- ,
- tmp="("+text(waiting)+" s )";
- println(wfile+" not generated "+tmp);
- tmp=load("errormessageR.txt");//16.10.22
- if(length(tmp)>1,println(tmp));//16.10.22
- );
- ,
- println(" CalcbyR succeeded "+name+" ("+text(tmp2)+" sec)");
- if(cat=="Y", // 16.10.29,11.25
- tmp1=tokenize(tmp,"##"); //16.10.23from
- tmp1=tmp1_(1..(length(tmp1)-1));
- tmp2=[];
- forall(tmp1,tmp3,
- if(!isstring(tmp3),tmp3=format(tmp3,dig));
- tmp=tokenize(tmp3,",");
- tmp=apply(tmp,if(isstring(#),Dq+#+Dq,format(#,dig)));
- tmp2=append(tmp2,tmp);
- );
- if(length(tmp2)==1,
- tmp2=tmp2_1;
- if(length(tmp2)==1,tmp2=tmp2_1);//16.10.24
- ,
- tmp2=[tmp2_1,tmp2_(2..(length(tmp2)))];
- );
- tmp=name+"="+text(tmp2); //16.10.23upto
- parse(tmp);
- );
- );
- );
-);
-
-Rfun(name,fun,argL):=Rfun(name,fun,argL,[]);//16.10.22
-Rfun(name,fun,argL,optionorg):=(
-//help:Rfun("1","rnorm",[10]);
-//help:Rfun(options=["Disp=y"]);
- regional(nm,options,eqL,disp,cmdL,
- tmp,tmp1,tmp2);
- nm="R"+name;
- options=optionorg;
- tmp=divoptions(options);
- precise=6;
- disp=1;
- pack=[];
- set=[];
- add="";
- eqL=tmp_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if((tmp1=="DIS") % (tmp1=="DSP") ,
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="F") % (tmp=="N"),
- disp=0;
- );
- options=remove(options,[#]);
- );
- );
- cmdL=[];
- cmdL=concat(cmdL,[
- nm+"="+fun,argL
- ]);
- options=concat(options,["Wait=2"]);
- CalcbyR(nm,cmdL,options);
- if(ErrFlag==0,
- if(disp==1, // 15.11.24
- println(nm+" is : ");
- println(parse(nm));
- );
- );
- parse(nm);
-);
-
-Readcsv(file):=Readcsv(Dirwork,file,[]);
-Readcsv(Arg1,Arg2):=(
- if(isstring(Arg2),
- Readcsv(Arg1,Arg2,[]);
- ,
- Readcsv(Dirwork,Arg1,Arg2);
- );
-);
-Readcsv(pathorg,file,optionorg):=(
-//help:Readcsv("ex.csv");
-//help:Readcsv(directory,"ex.csv");
-//help:Readcsv(options=["Head=yes","Sep=-999","Flat=no","Use=R"]);
- regional(path,fname,fout,options,eqL,header,cmdL,sep,
- dt,nrow,tmp,tmp1,tmp2,csv,use,flat);
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- header=1;
- sep="-999";
- csv="Y"; // 16.12.12
- use="R";
- flat="N";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- tmp=Toupper(substring(tmp1,0,2));
- if(tmp=="HE",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="F" % tmp=="N",
- header=0;
- options=remove(options,[#]);
- );
- );
-// if(tmp=="WA", // removed:17.02.19
-// waiting=parse(tmp2);
-// options=remove(options,[#]);
-// );
- if(tmp=="SE",
- sep=tmp2;
- options=remove(options,[#]);
- );
- if(tmp=="CS",
- csv=Toupper(substring(tmp2,0,1));
- options=remove(options,[#]);
- );
- if(tmp=="US",
- use=Toupper(substring(tmp2,0,1));
- options=remove(options,[#]);
- );
- if(tmp=="FL",
- flat=Toupper(substring(tmp2,0,1));
- options=remove(options,[#]);
- );
- );
- if(flat=="Y",csv="N");
- sep=","+sep;
- tmp=indexof(file,".");
- if(tmp==0,
- fname=file+".csv";
- fout=file+"sep.csv";
- ,
- fname=file;
- tmp1=substring(file,0,tmp-1);
- tmp2=substring(file,tmp-1,length(file));
- fout=tmp1+"sep"+tmp2;
- );
- path=pathorg;
- if(!isexists(path,fname),
- println(path+" "+fname+" not found");
- ,
- path=replace(path,"\","/");
- if(use=="S",
- cmdL=[ // 16.12.20from
- "cd('"+path+"')",[],
- "Dt=mgetl('"+fname+"');",[],
- "cd('"+Dirwork+"')",[],
- "Dt2=[]",[],
- "for I=1:size(Dt,1),
- Tmp=Dt(I,:)+'"+sep+"';
- Dt2=[Dt2;Tmp];
- end",[],
- "mputl(Dt2,'"+fout+"')",[]
- ];
- CalcbyS("sep",cmdL,options);
- ,
- cmdL=[
- "setwd",[Dq+path+Dq],
- "tmp1=readLines",[Dq+fname+Dq,"warn=FALSE"],
- "fun=function(s) paste(s,"+Dq+sep+Dq+",sep="+Dq+Dq+")",[],
- "tmp2=sapply(tmp1,fun)",[],
- "writeLines",["tmp2",Dq+fout+Dq]
- ];
- CalcbyR("sep",cmdL,concat(options,["Cat=n"]));
- ); // 16.12.20upto
- if(ErrFlag==1,
- println("Readcsv not completed");
- ,
- dt=load(fout);
- dt=tokenize(dt,sep);
- dt=dt_(1..(length(dt)-1));//16.12.20
- if(isstring(dt_1),// 17.02.10from
- if(indexof(dt_1,",")==0,csv="N");
- ,
- csv="N";
- );// 17.02.10upto
- if(csv=="Y",
- dt=apply(dt,tokenize(#,","));
- ,
- dt=apply(dt,[#]);
- );
- forall(1..(length(dt)),nrow,
- tmp1=dt_nrow;
- tmp2=[];
- forall(tmp1,
- if(!isstring(#),
- tmp=#;
- ,
- if(substring(#,0,1)==Dq,
- tmp=parse(#);
- ,
- tmp=#;
- );
- );
- tmp2=append(tmp2,tmp);
- );
- dt_nrow=tmp2;
- );
- if(header==0,dt=dt_(2..(length(dt))));
- if(length(dt)==1,
- dt=dt_1
- ,
- if(length(dt_1)==1,
- dt=apply(dt,#_1);
- );
- );
- dt;
- );
- );
-);
-
-Writecsv(nmL,data,file):=Writecsv(nmL,data,file,[]);
-Writecsv(nmL,dataorg,file,optionorg):=(
-//help:Writecsv([],data,"ex.csv");
-//help:Writecsv(["a","b"],data,"ex.csv");
-//help:Writecsv(optins=["Col=1"]);
- regional(nameL,data,eqL,strL,ncol,nrow,fname,dig,tmp,tmp1,tmp2);
- ncol=0; // 17.02.09from
- dig=5;
- if(isstring(dataorg),data=parse(dataorg),data=dataorg);
- if(islist(data_1),
- ncol=length(data_1);
- data=flatten(data);
- ); // 17.02.09upto
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- if(Toupper(substring(tmp1,0,1))=="C",
- ncol=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- if(indexof(file,".")==0,fname=file+".csv",fname=file);
- if(ncol==0,ncol=max(1,length(nmL)));
- tmp1=mod(length(data),ncol);
- if(tmp1>0,
- tmp=apply(1..(ncol-tmp1),-1);
- data=concat(data,tmp);
- );
- nrow=length(data)/ncol;
- if(length(nmL)<ncol,
- nameL=apply(1..ncol,"c"+text(#));
-// tmp=nameL_length(nameL)+"##";//17.02.09
- tmp=nameL_(length(nameL));//17.02.09
- nameL_(length(nameL))=tmp;
- ,
- nameL=nmL;
- );
- SCEOUTPUT=openfile(fname);
- tmp=text(nameL);
- println(SCEOUTPUT,substring(tmp,1,length(tmp)-1));
- forall(1..nrow,
- tmp1=data_(((#-1)*ncol+1)..(#*ncol));
- tmp2="";
- forall(tmp1,
- tmp2=tmp2+textformat(#,5)+",";
- );
- tmp2=substring(tmp2,0,length(tmp2)-1);
- println(SCEOUTPUT,tmp2);
- );
- closefile(SCEOUTPUT);
-);
-
-PlotdataR(name1,func,var):=PlotdataR(name1,PathR,func,var);
-PlotdataR(name1,Arg1,Arg2,Arg3):=(
- if(islist(Arg3),
- PlotdataR(name1,PathR,Arg1,Arg2,Arg3);
- ,
- PlotdataR(name1,Arg1,Arg2,Arg3,[]);
- );
-);
-PlotdataR(name1,path,func,variable,optionorg):=(
-//help:PlotdataR("1","dnorm(x)","x");
-//help:PlotdataR(options=["m/r","Num=50","Wait=10"]);
- regional(options,tmp,tmp1,tmp2,tmp3,name,varstr,flg,Num,
- Ltype,Noflg,eqL,strL,flg,outreg,filename,wfile,cmdL,waiting);
- name="grR"+name1;
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- Num=50;
- waiting=5;
- outreg=0;
- flg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- if(Toupper(substring(#,0,1))=="N",
- Num=parse(tmp1);
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="W",
- waiting=parse(tmp1);
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="O",
- tmp=Toupper(substring(tmp1,0,1));
- if(tmp=="T" % tmp=="Y", outreg=1);
- options=remove(options,[#]);
- );
- );
- tmp=indexof(variable,"=");
- if(tmp>0,
- varstr=variable;
- ,
- varstr=variable+"="+textformat([XMIN,XMAX],5);
- );
- varstr=replace(varstr,"[","c(");
- varstr=replace(varstr,"]",")");
- filename=Fhead+name+".r";
- wfile=Fhead+name+".txt";
- cmdL=MkprecommandR();
- cmdL=concat(cmdL,[
- name+"=Plotdata",[Dq+func+Dq,Dq+varstr+Dq,Dq+"Num="+text(Num)+Dq],
- "WriteOutData",[Dq+wfile+Dq,Dq+name+Dq,name]
- ]);
- if(ErrFlag==0,
- CalcbyR(name,cmdL,concat(options,["Cat=middle","Wait="+text(waiting)]));
- );
- if(ErrFlag==1,
- println("PlotdataR not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[wfile]);
- OutFileList=append(OutFileList,wfile);
- );
- ReadOutData(wfile);
- Extractdata(name,options);
- tmp=parse(name);
- tmp1=name+"="+textformat(tmp,5);
- parse(tmp1);
- tmp2=apply(tmp,Lcrd(#));
- tmp2;
- );
-);
-
-PlotdiscR(nm,fun,varrng):=PlotdiscR(nm,fun,varrng,[]);
-PlotdiscR(nm,fun,varrng,options):=(
-//help:PlotdiscR("1","dbinom(k,10,0.4)","k=[0,10]");
- regional(name,pb,cmdL,var,range,tmp,tmp1,tmp2,wfile);
- name="grd"+nm;
- tmp=indexof(varrng,"=");
- var=substring(varrng,0,tmp-1);
- range=parse(substring(varrng,tmp,length(varrng)));
- if(length(range)==2,
- range=(range_1)..(range_2);
- );
- cmdL=[
- "fnb=function("+var+") "+fun,[],
- name+"=sapply",[range,"fnb"]
- ];
- wfile=Fhead+name+".txt";
- if(ErrFlag==0,
- CalcbyR(name,cmdL,options);
- );
- if(ErrFlag==1,
- println("PlotdiscR not completed");
- ,
- tmp1=load(wfile);
- tmp1=substring(tmp1,0,length(tmp1)-4);
- tmp1=replace(tmp1,"##","");
- pb=tokenize(tmp1,",");
- tmp=apply(range,[#,pb_(#+1)]);
- Listplot(name,tmp,options);
- );
-);
-
-Boxplot(nm,dataorg,ypos,dy):=Boxplot(nm,dataorg,ypos,dy,[]);
-Boxplot(nm,dataorg,ypos,dy,optionorg):=(
-//help:Boxplot("1",dt,2,1/2,[""]);
- regional(options,name,data,bp,cmdL,waiting,tmp,tmp1,tmp2,tmp3,tmp4,
- out,eqL,strL,pstr,ext,file,flg,wrflg);
- name="bp"+nm;
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- waiting=3;
- wrflg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- if(Toupper(substring(tmp1,0,1))=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="R",
- wrflg=-1;
- options=remove(options,[#]);
- );
- if(tmp=="M",
- wrflg=1;
- options=remove(options,[#]);
- );
- );
- data=dataorg;
- if(isstring(data),
- if(indexof(data,".")==0,data=data+".dat");
- if(iswindows(), // 15.11.10
- data=replace(data,"/","\");
- flg="\";
- ,
- data=replace(data,"\","/");
- flg="/";
- );
- forall(reverse(1..length(data)),
- if(length(flg)>0,
- tmp=substring(data,#-1,#);
- if(tmp==flg,
- tmp3=substring(data,0,#-1);
- tmp4=substring(data,#,length(data));
- if(indexof(tmp3,":")==0, // 11.11.10
- tmp=substring(tmp3,0,1);
- if(tmp!=flg,
- tmp3=Dirwork+flg+tmp3;
- );
- );
- flg="";
- );
- );
- );
- if(length(flg)>0,
- tmp3=Dirwork; //15.11.10
- tmp4=data;
- );
- setdirectory(tmp3);
- tmp=load(tmp4);
- if(length(tmp)==0, ErrFlag=2); // 15.11.07 upto
- setdirectory(Dirwork);
- ,
- file=Fhead+name+".dat";
- tmp=load(file);
- if(length(tmp)>0,
- tmp1=tokenize(tmp,",");
- tmp1=tmp1_(1..(length(tmp1)-1));
- ,
- tmp1=[];
- );
- flg=0;
- if(length(tmp1)==length(data),
- tmp=tmp1-data;
- tmp=select(tmp,#!=0);
- if(length(tmp)>0,flg=1);
- ,
- flg=1;
- );
- if(flg==1,
- SCEOUTPUT=openfile(file);
- forall(data,
- print(SCEOUTPUT,textformat(#,5)+",");
- );
- println(SCEOUTPUT,"////");
- closefile(SCEOUTPUT);
-// wait(WaitUnit);
- );
- data=file;
- );
- data=replace(data,"\","/");
- cmdL=[
- "tmp=readLines",[Dq+data+Dq, "warn=FALSE"],
- "tmp=substring",["tmp",1,"nchar(tmp)-4"],
- "data=strsplit",["tmp",Dq+","+Dq,"fix=TRUE"],
- "data=data[[1]]",[],
- "fun=function(s) eval(parse(text=s))",[],
- "data=sapply",["data","fun"],
- "data=data[!is.na(data)]",[],
- "tmp=boxplot",["data","plot=FALSE"],
- "tmp1=tmp$stat",[],
- "tmp2=tmp$out",[],
- name+"=c(tmp1,tmp2)",[]
- ];
- file=Fhead+name+".txt";
- options=append(options,"Wait="+text(waiting));
- if(wrflg==1,options=append(options,"m"));
- if(wrflg==-1,options=append(options,"r"));
- if(ErrFlag==0,
- CalcbyR(name,cmdL,options);
- );
- if(ErrFlag>0,
- if(ErrFlag==1,println("Boxplot not completed"));
- if(ErrFlag==2,println(Dq+data+Dq+" not found"));
- ,
-// tmp=load(file);//16.10.23from
-// println([1449,tmp]);
-// tmp=replace(tmp,"/","");
-// tmp=tokenize(tmp,",");
-// tmp=name+"="+textformat(tmp,5);
-// parse(tmp);//16.10.23upto
- bp=parse(name);
- pstr="[";
- tmp1=[bp_1,ypos-dy/2];
- tmp2=[bp_1,ypos+dy/2];
- Listplot(name+text(1),[tmp1,tmp2],["Msg=no"]);
- pstr=pstr+Dq+"sg"+name+text(1)+Dq+",";
- tmp1=[bp_2,ypos-dy];
- tmp2=[bp_2,ypos+dy];
- tmp3=[bp_4,ypos+dy];
- tmp4=[bp_4,ypos-dy];
- Listplot(name+text(2),[tmp1,tmp2,tmp3,tmp4,tmp1],["Msg=no"]);
- pstr=pstr+Dq+"sg"+name+text(2)+Dq+",";
- tmp1=[bp_5,ypos-dy/2];
- tmp2=[bp_5,ypos+dy/2];
- Listplot(name+text(3),[tmp1,tmp2],["Msg=no"]);
- pstr=pstr+Dq+"sg"+name+text(3)+Dq+",";
- tmp1=[bp_3,ypos-dy];
- tmp2=[bp_3,ypos+dy];
- Listplot(name+text(4),[tmp1,tmp2],["dr,2","Msg=no"]);
- pstr=pstr+Dq+"sg"+name+text(4)+Dq+",";
- tmp1=[bp_1,ypos];
- tmp2=[bp_2,ypos];
- Listplot(name+text(5),[tmp1,tmp2],["da","Msg=no"]);
- pstr=pstr+Dq+"sg"+name+text(5)+Dq+",";
- tmp1=[bp_4,ypos];
- tmp2=[bp_5,ypos];
- Listplot(name+text(6),[tmp1,tmp2],["da","Msg=no"]);
- pstr=pstr+Dq+"sg"+name+text(6)+Dq+",";
- out=bp_(6..length(bp));
- if(length(out)>0,
- out=apply(out,[#,ypos]);
- Pointdata(name+text(1),out,[0,"Size=4"]);
- );
- pstr=substring(pstr,0,length(pstr)-1)+"]";
- println("generate totally "+name);
- tmp=name+"="+pstr;
- [bp_(1..5),out];
- );
-);
-
-Histplot(nm,dataorg):=Histplot(nm,dataorg,[]);
-Histplot(nm,dataorg,optionorg):=(
-//help:Histplot("1",data(fillename));
-//help:Histplot(options=["Breaks=","Den=no","Rel=no"]);
- regional(options,name,data,waiting,hp,cmdL,tmp,tmp1,tmp2,tmp3,tmp4,
- out,eqL,strL,breaks,bdata,cdata,pstr,file,flg,rwflg,density,relative);
- name="hp"+nm;
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- breaks = "breaks="+Dq+"Sturges"+Dq;
- density=0;
- relative=0;
- waiting=3;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,tmp,length(#));
- if(Toupper(substring(#,0,1))=="B",
- if(substring(tmp1,0,1)=="[",
- tmp1="c("+substring(tmp1,1,length(tmp1)-1)+")";
- );
- breaks="breaks="+tmp1;
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="D",
- tmp2=Toupper(substring(tmp1,0,1));
- if(tmp2=="T" % tmp2=="Y",
- density=1;
- );
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="R",
- tmp2=Toupper(substring(tmp1,0,1));
- if(tmp2=="T" % tmp2=="Y",
- relative=1;
- );
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="W",
- waiting=parse(tmp1);
- options=remove(options,[#]);
- );
- );
- wrflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="R",
- wrflg=-1;
- options=remove(options,[#]);
- );
- if(tmp=="M",
- wrflg=1;
- options=remove(options,[#]);
- );
- );
- data=dataorg;
- if(isstring(data),
- if(indexof(data,".")==0,data=data+".csv");
- if(iswindows(), // 15.11.10
- data=replace(data,"/","\");
- flg="\";
- ,
- data=replace(data,"\","/");
- flg="/";
- );
- forall(reverse(1..length(data)),
- if(length(flg)>0,
- tmp=substring(data,#-1,#);
- if(tmp==flg,
- tmp3=substring(data,0,#-1);
- tmp4=substring(data,#,length(data));
- if(indexof(tmp3,":")==0, // 11.11.10
- tmp=substring(tmp3,0,1);
- if(tmp!=flg,
- tmp3=Dirwork+flg+tmp3;
- );
- );
- flg="";
- );
- );
- );
- if(length(flg)>0,
- tmp3=Dirwork; //15.11.10
- tmp4=data;
- );
- setdirectory(tmp3);
- tmp=load(tmp4);
- if(length(tmp)==0, ErrFlag=2); // 15.11.07 upto
- setdirectory(Dirwork);
- ,
- file=Fhead+name+".dat";
- tmp=load(file);
- if(length(tmp)>0,
- tmp1=tokenize(tmp,",");
- tmp1=tmp1_(1..(length(tmp1)-1));
- ,
- tmp1=[];
- );
- flg=0;
- if(length(tmp1)==length(data),
- tmp=tmp1-data;
- tmp=select(tmp,#!=0);
- if(length(tmp)>0,flg=1);
- ,
- flg=1;
- );
- if(flg==1,
- SCEOUTPUT=openfile(file);
- forall(data,
- print(SCEOUTPUT,textformat(#,5)+",");
- );
- println(SCEOUTPUT,"////");
- closefile(SCEOUTPUT);
-// wait(WaitUnit);
- );
- data=file;
- );
- data=replace(data,"\","/");
- cmdL=[
- "tmp=readLines",[Dq+data+Dq, "warn=FALSE"],
- "tmp=substring",["tmp",1,"nchar(tmp)-4"],
- "data=strsplit",["tmp",Dq+","+Dq,"fix=TRUE"],
- "data=data[[1]]",[],
- "fun=function(s) eval(parse(text=s))",[],
- "data=sapply",["data","fun"],
- "data=data[!is.na(data)]",[],
- "tmp=hist",["data","plot=FALSE",breaks],
- "tmp1=tmp$breaks",[],
- "tmp2=tmp$count",[],
- "tmp3=tmp$density",[],
- name+"=c(tmp1,tmp2,tmp3)",[]
- ];
- file=Fhead+name+".txt";
- options=append(options,"Wait="+text(waiting));
- if(wrflg==1,options=append(options,"m"));
- if(wrflg==-1,options=append(options,"r"));
- if(ErrFlag==0,
- CalcbyR(name,cmdL,options);
- );
- if(ErrFlag>0,
- if(ErrFlag==1,println("Histplot not completed"));
- if(ErrFlag==2,println(Dq+data+Dq+" not found"));
- ,
-// tmp=load(file);
-// tmp=replace(tmp,"/","");
-// tmp=tokenize(tmp,",");
-// tmp=name+"="+textformat(tmp,5);
-// parse(tmp);
- hp=parse(name);
- tmp1=(length(hp)-1)/3+1;
- tmp2=tmp1+(length(hp)-1)/3;
- bdata=hp_(1..tmp1);
- if(density==0,
- cdata=hp_((tmp1+1)..tmp2);
- ,
- cdata=hp_((tmp2+1)..length(hp));
- );
- if(relative==1,
- cdata=cdata/sum(cdata);
- );
- options=append(options,"Msg=no"); // 15.10.03
- pstr="[";
- forall(1..length(cdata),
- tmp1=[bdata_#,0];
- tmp2=[bdata_#,cdata_#];
- tmp3=[bdata_(#+1),cdata_#];
- tmp4=[bdata_(#+1),0];
- Listplot(name+text(#),[tmp1,tmp2,tmp3,tmp4,tmp1],options);
- pstr=pstr+Dq+"sg"+name+text(#)+Dq+",";
- );
- pstr=substring(pstr,0,length(pstr)-1)+"]";
- println("generate totally "+name);
- tmp=name+"="+pstr;
- parse(tmp);
- [bdata,cdata];
- );
-);
-
-Scatterplot(nm,file):=Scatterplot(nm,file,[]);
-Scatterplot(nm,file,optionorg):=(
-//help:Scatterplot("1",path+filename);
-//help:Scatterplot(options=["Reg=yes",A,B,C,"Size"=4"]);
- regional(tmp,tmp1,tmp2,fname,name,reg,eqL,reL,cdysize,
- options,dtx,dty,nn,mx,my,sx,sy,sxy,rr,aa,bb,size);
- name="sc"+nm;
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- options=remove(options,reL);
- cdysize=select(options,indexof(#,"size->")>0);
- options=remove(options,cdysize);
- size=4;
- reg="yes";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="R",
- reg=tmp2;
- options=remove(options,[#]);
- );
- if(tmp1=="S",
- size=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- if(indexof(file,".")==0,
- fname=file+".csv";
- ,
- fname=file;
- );
- Readcsv(nm,fname);
- tmp=concat(options,cdysize);
- Pointdata(name,parse("rc"+nm),append(tmp,"Size="+text(size)));
- tmp=parse("rc"+nm);
- dtx=apply(tmp,#_1);
- dty=apply(tmp,#_2);
- nn=length(dtx);
- mx=sum(dtx)/nn;
- my=sum(dty)/nn;
- sx=sqrt(dtx*dtx/nn-mx^2);
- sy=sqrt(dty*dty/nn-my^2);
- sxy=dtx*dty/nn-mx*my;
- rr=sxy/sx/sy;
- aa=sxy/sx^2;
- bb=my-aa*mx;
- tmp=Assign("a*x+b",["a",aa,"b",bb]);
- if(reg!="no",
- Plotdata(name,tmp,"x",append(options,"Num=2"));
- );
- if(length(reL)>=2,
- Framedata2(name,[reL_1,reL_2]);
- if(length(reL)>2,
- tmp="r="+textformat(rr,3)+",\ y=";
- tmp=tmp+textformat(aa,3)+"x";
- if(bb>0,tmp=tmp+"+",tmp=tmp+"-");
- tmp=tmp+textformat(abs(bb),3);
- Expr([reL_3,"e",tmp]);
- );
- );
- [mx,my,sx,sy,sxy,rr,bb,aa];
-);
-
-Rulerscale(pt,hscale,vscale):=Rulerscale(pt,hscale,vscale,0.1);
-Rulerscale(pt,hscale,vscale,tick):=(
-//help:Rulerscale(A,["r",0,5,1],["s2",0,2,4]);
-//help:Rulerscale(A,["r",0,5,1],["f",10,"a",20,"w2","b"]);
-//help:Rulerscale(A,["r",0,5,1],["r",0,10,1],0.2);
- regional(pA,pos,mrk,dir,tmp,tmp1,tmp2,tmp3);
- pA=Lcrd(pt);
- if(length(hscale)>0,
- pos=[]; mrk=[]; dir=[];
- tmp=Toupper(substring(hscale_1,0,1));
- if(tmp=="R" % tmp=="F",
- if(tmp=="R",
- dir="s2";
- tmp1=hscale_2;
- tmp2=hscale_3;
- tmp3=hscale_4;
- tmp=floor((tmp2-tmp1)/tmp3);
- pos=apply(0..tmp,tmp1+#*tmp3);
- mrk=apply(pos,text(#));
- dir=apply(1..length(pos),"s2");
- ,
- forall(2..(length(hscale)-2),
- tmp1=hscale_(#);
- tmp2=hscale_(#+1);
- tmp3=hscale_(#+2);
- if(isreal(tmp1),
- pos=append(pos,tmp1);
- if(isstring(tmp3),
- dir=append(dir,tmp2);
- mrk=append(mrk,tmp3);
- ,
- dir=append(dir,"s2");
- mrk=append(mrk,tmp2);
- );
- );
- );
- if(isreal(tmp2),
- pos=append(pos,tmp2);
- dir=append(dir,"s2");
- mrk=append(mrk,tmp3);
- );
- );
- ,
- pos=hscale_(2..length(hscale));
- dir=apply(pos,"s2");
- mrk=apply(pos,text(#));
- );
- pos=apply(pos,[#,pA_2]);
- forall(1..length(pos),
- Expr([pos_#,dir_#,mrk_#]);
- tmp1=pos_#;
- tmp2=pos_#-[0,tick/SCALEY];
- Listplot("rsh"+text(#),[tmp1,tmp2],["Msg=no"]);
- );
- );
- if(length(vscale)>0,
- pos=[]; mrk=[]; dir=[];
- tmp=Toupper(substring(vscale_1,0,1));
- if(tmp=="R" % tmp=="F",
- if(tmp=="R",
- dir="w2";
- tmp1=vscale_2;
- tmp2=vscale_3;
- tmp3=vscale_4;
- tmp=floor((tmp2-tmp1)/tmp3);
- pos=apply(0..tmp,tmp1+#*tmp3);
- mrk=apply(pos,text(#));
- dir=apply(1..length(pos),"w2");
- ,
- forall(2..(length(vscale)-2),
- tmp1=vscale_(#);
- tmp2=vscale_(#+1);
- tmp3=vscale_(#+2);
- if(isreal(tmp1),
- pos=append(pos,tmp1);
- if(isstring(tmp3),
- dir=append(dir,tmp2);
- mrk=append(mrk,tmp3);
- ,
- dir=append(dir,"w2");
- mrk=append(mrk,tmp2);
- );
- );
- );
- if(isreal(tmp2),
- pos=append(pos,tmp2);
- dir=append(dir,"w2");
- mrk=append(mrk,tmp3);
- );
- );
- ,
- pos=vscale_(2..length(vscale));
- dir=apply(pos,"w1");
- mrk=apply(pos,text(#));
- );
- pos=apply(pos,[pA_1,#]);
- forall(1..length(pos),
- Expr([pos_#,dir_#,mrk_#]);
- tmp1=pos_#;
- tmp2=pos_#-[tick/SCALEX,0];
- Listplot("rsv"+text(#),[tmp1,tmp2],["Msg=no"]);
- );
- );
-);
-
-MkprecommandR():=MkprecommandR(5); // 15.02.01
-MkprecommandR(prec):=(
- regional(cmdL,Plist,Pnamelist,Pvaluelist,tmp,tmp1,tmp2);
- Plist=[];
- Pnamelist=[];
- Pvaluelist=[];
- forall(remove(allpoints(),[SW,NE]),
- tmp=Lcrd(#);
- tmp1=format(re(tmp_1),prec);// 15.02.05
- tmp2=format(re(tmp_2),prec);
- tmp="c("+tmp1+","+tmp2+")";
- Plist=append(Plist,#.name+"="+tmp);
- Pnamelist=append(Pnamelist,#.name);
- Pvaluelist=append(Pvaluelist,tmp);
- );
- cmdL=[];
- forall(1..length(Plist),
- cmdL=concat(cmdL,[Plist_#,[]]);
- cmdL=concat(cmdL,
- ["Assign("+Dq+Pnamelist_#+Dq+","+Pvaluelist_#+")",[]]);
- );
- tmp2=sort(apply(VLIST,#_1)); // 16.02.03 from
- tmp1=[];
- forall(tmp2,tmp,
- tmp1=concat(tmp1,select(VLIST,#_1==tmp));
- );
- VLIST=tmp1;// 16.02.03 upto
- forall(VLIST,
- tmp=Rform(#_1);
- tmp1=#_2; // 15.02.06
- if(!isstring(tmp1),
- if(islist(tmp1),
- tmp2="[";
- forall(tmp1,
- if(abs(#)<10^(-5), // 16.01.30
- tmp2=tmp2+"0,";
- ,
- tmp2=tmp2+format(#,prec)+",";
- );
- );
- tmp1=substring(tmp2,0
- ,length(tmp2)-1)+"]";
- ,
- tmp1=format(tmp1,prec);
- );
- );
- cmdL=concat(cmdL,["eval(parse(text="+tmp+Dq+tmp1+Dq+")",[]]);
- tmp=substring(tmp,0,length(tmp)-1);
- cmdL=concat(cmdL,
- ["Assign("+Dq+tmp+Dq+","+tmp1+")",[]]); // 15.01.27
- );
- forall(OutFileList,
- cmdL=concat(cmdL,["tmp=ReadOutData",[Dq+#+Dq]]);
- );
-// forall(FUNLIST, // 16.04.23from
-// cmdL=concat(cmdL,[#,[]]);
-// ); // 16.02.17 upto
-// forall(GLIST,
-// tmp1=Rform(#);
-// cmdL=concat(cmdL,[tmp1,[]]);
-// );// 16.04.23upto
- cmdL;
-);
-
-MkprecommandS():=MkprecommandS(5);
-MkprecommandS(prec):=(
- regional(cmdL,Plist,Pnamelist,Pvaluelist,tmp,tmp1,tmp2);
- cmdL=[];
- Plist=[];
- Pnamelist=[];
- Pvaluelist=[];
- forall(remove(allpoints(),[SW,NE]),
- tmp=Lcrd(#);
- tmp1=format(re(tmp_1),prec);// 15.02.05
- tmp2=format(re(tmp_2),prec);
- tmp="["+tmp1+","+tmp2+"]";
- Plist=append(Plist,#.name+"="+tmp);
- Pnamelist=append(Pnamelist,#.name);
- Pvaluelist=append(Pvaluelist,tmp);
- );
- forall(1..length(Plist),
- cmdL=concat(cmdL,[Plist_#,[]]);
- cmdL=concat(cmdL,["Assignrep('"+Pnamelist_#+"',"+Pvaluelist_#+")",[]]);
- );
- tmp2=sort(apply(VLIST,#_1)); // 16.02.03 from
- tmp1=[];
- forall(tmp2,tmp,
- tmp1=concat(tmp1,select(VLIST,#_1==tmp));
- );
- VLIST=tmp1;// 16.02.03 upto
- forall(VLIST,
- tmp=Sciform(#_1);
- tmp1=#_2; // 15.02.06
- if(!isstring(tmp1),
- if(islist(tmp1),
- if(!isstring(tmp1_1), // 16.11.14
- tmp2="[";
- forall(tmp1,
- if(abs(#)<10^(-prec), // 16.01.30
- tmp2=tmp2+"0,";
- ,
- tmp2=tmp2+format(#,prec)+",";
- );
- );
- tmp1=substring(tmp2,0,length(tmp2)-1)+"]";
- ,
- tmp2="list("; // 16.11.14from
- forall(tmp1,
- tmp2=tmp2+#+",";
- );
- tmp1=substring(tmp2,0,length(tmp2)-1)+")";
- ); // 16.11.14upto
- ,
- tmp1=format(tmp1,prec);
- );
- );
- cmdL=concat(cmdL,[tmp+"evstr('"+tmp1+"')",[]]);
- tmp=substring(tmp,0,length(tmp)-1);
- cmdL=concat(cmdL,["Assignrep('"+tmp+"',"+tmp1+")",[]]); // 15.01.27
- );
- forall(OutFileList,
- tmp=["tmp=ReadOutData",[Dq+#+Dq],
- "if length(tmp(1))>8,execstr(tmp),end",[]];
- cmdL=concat(cmdL,tmp);
- );
- forall(FUNLIST, // 16.02.17 from
- cmdL=concat(cmdL,[#,[]]);
- ); // 16.02.17 upto
- forall(GLIST,
- tmp1=Sciform(#);
- cmdL=concat(cmdL,[tmp1,[]]);
- );
- cmdL;
-);
-
-PlotdataS(name1,func,var):=PlotdataS(name1,func,var,[]);
-PlotdataS(nm,fun,variable,optionorg):=(
-//help:PlotdataS("1","besselj(1,x)","x");
-//help:PlotdataS(options=["m/r","Num=50","Wait=5","Mx=no"]);
- regional(options,name,varstr,Num,waiting,mxcheck,outreg,
- eqL,strL,fname,tmp,tmp1,tmp2,tmp3,cmdL,flg,wflg);
- name="grsc"+nm;
- fname=Fhead+name+".txt";
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- Num=50;
- waiting=5;
- mxcheck=0; // 16.03.02
- outreg=0;
- flg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="N",
- Num=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="O",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", outreg=1);
- options=remove(options,[#]);
- );
- if(tmp1=="M",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", mxcheck=1);
- options=remove(options,[#]);
- );
- );
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(length(#)==0,
- options=remove(options,[#]);
- );
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- tmp=indexof(variable,"=");
- if(tmp>0,
- varstr=variable;
- ,
- varstr=variable+"="+textformat([XMIN,XMAX],5);
- );
- cmdL=MkprecommandS();
- cmdL=concat(cmdL,[
- name+"=Plotdata",[Dq+fun+Dq,Dq+varstr+Dq,Dq+"Num="+text(Num)+Dq],
- "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name]
- ]);
- ErrFlag=0; // 16.03.02 from
- if(mxcheck==1,
- Mxfun(name,fun,[],["Disp=n"]);
- tmp=parse("mx"+name);
- if(!isstring(tmp),ErrFlag=1);
- );
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=append(options,"m"));
- if(wflg==-1,options=append(options,"r"));// 16.03.02 upto
- if(ErrFlag==0,
- CalcbyS(name,cmdL,concat(options,["cat=middle","Wait="+text(waiting)]));
- );
- if(ErrFlag==1,
- println(" PlotdataS not completed");
- ,
- if(outreg==1, // 2016.03.02 ( // )
- OutFileList=remove(OutFileList,[wfile]);
- OutFileList=append(OutFileList,wfile);
- );
- ReadOutData(fname);
- Extractdata(name,options);
- tmp=parse(name);
- tmp1=name+"="+textformat(tmp,5);
- parse(tmp1);
-// Addgraph(name); // 16.04.04
- tmp2=apply(tmp,Lcrd(#));
- tmp2;
- );
-);
-
-Implicitplot(nm,fun,varx,vary):=
- Implicitplot(nm,fun,varx,vary,[]);
-Implicitplot(nm,fnorg,varx,vary,optionorg):=(
-//help:Implicitplot("1","3*x^2+y^2=1","x=[-3,3]","y=[-3,3]");
-//help:Implicitplot(options2=["Wait=10","Out=no","Mx=no"]);
- regional(options,name,fun,waiting,mxcheck,outreg,
- eqL,reL,strL,fname,var,rng,val,tmp,tmp1,tmp2,cmdL,flg,wflg);
- name="imp"+nm;
- fname=Fhead+name+".txt";
- fun=fnorg;
- tmp=indexof(fun,"=");
- if(tmp>0,
- tmp1=substring(fun,0,tmp-1);
- tmp2=substring(fun,tmp,length(fun));
- fun=tmp1+"-("+tmp2+")";
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- waiting=5; // 16.02.29
- mxcheck=0; // 16.02.29
- outreg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,2));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="WA",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="OU",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", outreg=1);
- options=remove(options,[#]);
- );
- if(tmp1=="MX",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", mxcheck=1);
- options=remove(options,[#]);
- );
- );
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(length(#)==0,
- options=remove(options,[#]);
- );
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- tmp1=Testfunstr(fun,varx,vary);
- tmp=apply([fun,varx,vary],Dq+#+Dq);
- tmp_1=Sciform(tmp_1);
- tmp=concat(tmp,reL);
-// tmp=append(tmp,"Error"); // 16.02.29
- cmdL=MkprecommandS();
- cmdL=concat(cmdL,[
- "evstr",[tmp1,"Error"], // 16.03.15
- name+"=Implicitplot",tmp, // 16.03.15
- "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name]
- ]);
-// tmp=[""];
- ErrFlag=0; // 16.02.29 from
- if(mxcheck==1,
- Mxfun(name,"expand",[fun],["Disp=n"]);
- tmp=parse("mx"+name);
- if(!isstring(tmp),ErrFlag=1);
- ); // 16.02.29 upto
- options=concat(options,["Wait="+text(waiting)]);
- if(wflg==1,options=append(options,"m"));
- if(wflg==-1,options=append(options,"r"));
- if(ErrFlag==0,
- CalcbyS(name,cmdL,options);
- );
- if(ErrFlag==1,
- println(" Implicitplot not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[fname]);
- OutFileList=append(OutFileList,fname);
- );
- ReadOutData(fname);
- Extractdata(name,options);
- tmp=parse(name);
- tmp1=name+"="+textformat(tmp,5);
- parse(tmp1);
-// Addgraph(name); // 16.04.04
- tmp2=apply(tmp,Lcrd(#));
- tmp2;
- );
-);
-
-Hatchdata2(nm,iostr,pltlist):=Hatchdata2(nm,iostr,pltlist,[]);
-Hatchdata2(nm,iostr,pltlist,options):=(
-// help: Hatchdata2("1",["i"],[["crAB"]],["dr,0.7"]);
- regional(name,Ltype,Noflg,PdL,tmp,tmp1,tmp2,opstr,opcindy,Str,Outflg,Inflg);
- name="ha"+nm;
-// println("output hatchdata2 "+name);
- tmp=Divoptions(options);
- Ltype=tmp_1;
- Noflg=tmp_2;
- Inflg=tmp_3;
- Outflg=tmp_4;
- if(Inflg==0 & Outflg==0, Inflg=1;Outflg=1); // 15.05.15
- opstr=tmp_(length(tmp)-1);
- opcindy=tmp_(length(tmp));
- Str="Hatchdata(";
- if(islist(iostr),
- tmp="list(";
- forall(iostr,
- tmp=tmp+Dq+#+Dq+",";
- );
- Str=Str+substring(tmp,0,length(tmp)-1)+"),";
- ,
- Str=Str+Dq+iostr+Dq+",";
- );
- PdL=pltlist;
- if(isstring(PdL_1) % !islist(PdL),PdL=[PdL]);
- forall(PdL,tmp1,
- tmp="list(";
- forall(tmp1,
- if(length(#)>1,
- tmp=tmp+#+",";
- ,
- tmp=tmp+Dq+#+Dq+",";
- );
- );
- Str=Str+substring(tmp,0,length(tmp)-1)+"),";
- );
- Str=substring(Str,0,length(Str)-1)+opstr+")";
- if(Noflg<3, // 2015.07.16
- GLIST=append(GLIST,name+"="+Str);
- );
- if(Noflg<2,
- if(Outflg==1,
- println("Output Hatchdata2 "+name);
- SCIWRLIST=append(SCIWRLIST,name);
- );
- if(Inflg==1,
- println("Input Hatchdata2 "+name);
- if(length(SCIRELIST)==0,
- ReadOutData(Fnameout);
- );
- tmp=parse(name);
- if(islist(tmp),
- Extractdata(name,["nodisp"]); // 12.19
- );
- SCIRELIST=append(SCIRELIST,name);
- );
- );
- if(Noflg<1,
- if(isstring(Ltype),
- Ltype=GetLinestyle(text(Noflg)+Ltype,name);
- ,
- if(Noflg==1,Ltype=0);
- );
- if(Inflg==1,
- GCLIST=append(GCLIST,[name,Ltype,opcindy]);
- );
- );
-);
-
-Hatchdata(nm,iostr,pltlist):=Hatchdata(nm,iostr,pltlist,[]);
-Hatchdata(nm,iostr,pltlist,optionorg):=(
-//help:Hatchdata("1","ii",[["gr1"],["gr2","n"]]);
-//help:Hatchdata(options=["Wait=5"]);
- regional(options,name,fun,eqL,reL,strL,outreg,
- plt,fname,options,tmp,tmp1,tmp2,tmp3,flg,wflg,waiting);
- name="ha"+nm;
- fname=Fhead+name+".txt";
- fun=fnorg;
- tmp=indexof(fun,"=");
- if(tmp>0,
- tmp1=substring(fun,0,tmp-1);
- tmp2=substring(fun,tmp,length(fun));
- fun=tmp1+"-("+tmp2+")";
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- waiting=5;
- outreg=0;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="O",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", outreg=1);
- options=remove(options,[#]);
- );
- );
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(length(#)==0,
- options=remove(options,[#]);
- );
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- if(islist(iostr),
- tmp1=text(apply(iostr,Dq+#+Dq));
- tmp1=replace(tmp1,"[","list("); //16.02.14
- tmp1=replace(tmp1,"]",")"); //16.02.14
- ,
- tmp1=Dq+iostr+Dq;
- );
- if(!islist(pltlist_1),
- tmp2=apply(pltlist,if(length(#)==1,Dq+#+Dq,Chunderscore(#)));
- tmp2=text(tmp2);
- tmp2="list("+substring(tmp2,1,length(tmp2)-1)+"),";
- ,
- tmp2="";
- forall(pltlist,plt,
- tmp=apply(plt,if(length(#)==1,Dq+#+Dq,Chunderscore(#))); // 16.04.06
- tmp=text(tmp);
- tmp="list("+substring(tmp,1,length(tmp)-1)+")";
- tmp2=tmp2+tmp+",";
- );
- );
- cmdL=MkprecommandS();
- tmp2=substring(tmp2,0,length(tmp2)-1);
- tmp=[tmp1,tmp2];
- tmp=concat(tmp,reL);
- tmp=append(tmp,"Error"); // 16.03.05
- cmdL=concat(cmdL,[
- "Setscaling",[SCALEY],
- "Setunitlen",[Dq+ULEN+Dq],
- name+"=Hatchdata",tmp, //16.12.23
- "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name],
- ]);
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"]));
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS(name,cmdL,options);
- );
- if(ErrFlag==1,
- err("Hatchdata not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[fname]);
- OutFileList=append(OutFileList,fname);
- );
- if(ErrFlag==0,
- ReadOutData(fname);
- Extractdata(name,options);
- );
- );
-);
-
-Dotfilldata(nm,iostr,pltlist):=
- Dotfilldata(nm,iostr,pltlist,[]);
-Dotfilldata(nm,iostr,pltlist,optionorg):=(
-//help:Dotfilldata("1","ii",[["sg1"],["sg2"]]);
-//help:Dotfilldata(options=[0.3,"Wait=5"]);
- regional(options,name,fun,eqL,reL,strL,outreg,
- plt,fname,options,tmp,tmp1,tmp2,tmp3,flg,
- wflg,waiting,dense);
- name="df"+nm;
- fname=Fhead+name+".txt";
- fun=fnorg;
- tmp=indexof(fun,"=");
- if(tmp>0,
- tmp1=substring(fun,0,tmp-1);
- tmp2=substring(fun,tmp,length(fun));
- fun=tmp1+"-("+tmp2+")";
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- strL=tmp_7;
- dense=0.3;
- waiting=5;
- outreg=0;
- forall(reL,
- dense=#;
- );
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="O",
- tmp=Toupper(substring(tmp2,0,1));
- if(tmp=="T" % tmp=="Y", outreg=1);
- options=remove(options,[#]);
- );
- );
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(length(#)==0,
- options=remove(options,[#]);
- );
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- if(islist(iostr),
- tmp1=text(apply(iostr,Dq+#+Dq));
- tmp1=replace(tmp1,"[","list("); //16.02.14
- tmp1=replace(tmp1,"]",")"); //16.02.14
- ,
- tmp1=Dq+iostr+Dq;
- );
- if(!islist(pltlist_1),
- tmp2=apply(pltlist,if(length(#)==1,Dq+#+Dq,#));
- tmp2=text(tmp2);
- tmp2="list("+substring(tmp2,1,length(tmp2)-1)+"),";
- ,
- tmp2="";
- forall(pltlist,plt,
- tmp=apply(plt,if(length(#)==1,Dq+#+Dq,#));
- tmp=text(tmp);
- tmp="list("+substring(tmp,1,length(tmp)-1)+")";
- tmp2=tmp2+tmp+",";
- );
- );
- cmdL=MkprecommandS();
- tmp2=substring(tmp2,0,length(tmp2)-1);
- tmp=[tmp1,tmp2];
- tmp=concat(tmp,dense);
- cmdL=concat(cmdL,[
- "Setscaling",[SCALEY],
- "Setunitlen",[Dq+ULEN+Dq],
- name+"=Dotfilldata",tmp,
- "WriteOutData",[Dq+fname+Dq,Dq+name+Dq,name],
- ]);
- options=append(options,"Wait="+text(waiting));
- if(wflg==1,options=concat(options,["m"]));
- if(wflg==-1,options=concat(options,["r"]));
- if(ErrFlag==0,
- CalcbyS(name,cmdL,options);
- );
- if(ErrFlag==1,
- println("Dotfilldata not completed");
- ,
- if(outreg==1,
- OutFileList=remove(OutFileList,[fname]);
- OutFileList=append(OutFileList,fname);
- );
- if(ErrFlag==0,
- ReadOutData(fname);
- tmp1=parse(name);
- forall(tmp1,
- tmp=#_1;
- draw(tmp,pointsize->1);
- );
- Com2nd("tmp=ReadOutData("+Dq+fname+Dq+")");
- Com2nd("execstr(tmp)");
- Com2nd("Drwpt(list("+name+")"+")");
- );
- );
-);
-
-WritetoA(fname,cmdL):=(
-// help:WritetoA("outdata",cmdL);
- regional(tmp,tmp1,tmp2,filename,wfilename,endmark);
- if(indexof(fname,".")==0,
- filename=fname+".rr";
- ,
- filename=fname;
- );
- wfilename=replace(filename,".rr",".txt");
- SCEOUTPUT = openfile(filename);
-// tmp=replace(Dirlib,"\","/");
-// tmp="load("+Dq+tmp+"/oshima/os_muldif.rr"+Dq+")$/*####*/";
- tmp="/*####*/"; // 16.03.11
- println(SCEOUTPUT,tmp);
- tmp="output("+Dq+wfilename+Dq+")$/*##*/"; // 16.05.18from
- println(SCEOUTPUT,tmp); // 16.05.18upto
- forall(1..(length(cmdL)),
- tmp1=cmdL_#;
- tmp=indexof(tmp1,";"); // 16.05.18from
- if(tmp>0,endmark=";",endmark="$");
- tmp1=replace(tmp1,";",""); // 16.05.18upto
- if(#==length(cmdL)-1,
- println(SCEOUTPUT,tmp1+";/*##*/");
- ,
- println(SCEOUTPUT,tmp1+endmark+"/*##*/");//16.05.18
- );
- );
- closefile(SCEOUTPUT);
-);
-
-kcA(fname):=kcA(fname,[]);
-kcA(fname,optionorg):=(
-//help:kcA("boxdata");
-//help:kcA(options=["r/m"]);
- regional(options,tmp,tmp1,tmp2,eqL,strL,filename,flg);
- if(indexof(fname,".")==0,
- filename=fname+".rr";
- ,
- filename=fname;
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- );
- flg=0;
- forall(strL,
- if(Toupper(substring(#,0,1))=="R",
- flg=0;
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="M",
- flg=1;
- );
- );
- if(flg==0,
- tmp2=replace(filename,".rr",".txt");
- tmp1=load(tmp2);
- if(length(tmp1)==0,
- flg=1;
- );
- );
- if(flg==1,
- tmp1="";
- if(iswindows(),
- tmp2=Batparent;
- ,
- tmp2=Shellparent;
- );
- flg=0;
- forall(reverse(1..length(tmp2)),
- if(flg==0,
- tmp=substring(tmp2,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- tmp1=substring(tmp2,0,#-1);
- tmp2=substring(tmp2,#,length(tmp2));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(tmp1);
- );
- if(iswindows(),
- SCEOUTPUT = openfile("kc.bat");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp="del "+replace(filename,".rr",".txt");
- println(SCEOUTPUT,tmp);
- tmp=Dq+PathA+Dq+" -quiet -f "+Dq+filename+Dq;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit");
- closefile(SCEOUTPUT);
- tmp=replace(filename,".rr",".txt");
- println(kc(Dirwork+Batparent,Dirlib,tmp)); // 16.05.29,06.05
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp="rm "+replace(filename,".rr",".txt");
- println(SCEOUTPUT,tmp);
- tmp=Dq+PathA+Dq+" -quiet -f "+Dq+filename+Dq;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- tmp=replace(filename,".rr",".txt");
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,tmp));// 16.05.29,06.05
-
- );
-// wait(WaitUnit);
- setdirectory(Dirwork);
- );
-);
-
-CalcbyA(name,cmd):=CalcbyA(name,cmd,[]);
-CalcbyA(name,cmd,optionorg):=(
-//help:CalcbyA("a",cmd);
-//help:CalcbyA(options= ["m/r","Wait=10","Ext=txt","Dig=16"]]);
- regional(options,tmp,tmp1,tmp2,tmp3,tmp4,realL,strL,eqL,
- dig,flg,wflg,file,nc,arg,cmdA,cmdlist,wfile,ext,waiting,num,st);
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- realL=tmp_6;
- strL=tmp_7;
- wfile="";
- ext=".txt";
- waiting=2;
- dig=6;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="E",
- if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="D",
- dig=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- wfile=Fhead+name+ext;
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- file=Fhead+name;
- cmdA=cmd;
- cmdlist=[];
- forall(1..floor(length(cmdA)/2),nc, //17.5.18
- tmp1=cmdA_(2*nc-1);
- tmp1=replace(tmp1,LFmark,""); // 16.06.12
- if(nc==length(cmdA)/2,
- tmp=indexof(tmp1,"=");
- tmp1=substring(tmp1,tmp,length(tmp1));
- if(substring(tmp1,0,1)=="[",
- tmp=substring(tmp1,0,length(tmp1)-1);
- ,
- tmp="["+Dq+"/start/"+Dq+","+tmp1; // 16.05.18
- );
- tmp=replace(tmp,"::",","+Dq+"//"+Dq+",");
- tmp1=tmp+","+Dq+"////"+Dq+"]";
- );
- tmp2=cmdA_(2*nc); // list of argments
- tmp3="";
- tmp4="";
- forall(tmp2,arg,
- if(isstring(arg),
- tmp3=tmp3+replace(arg,"'",Dq)+",";
-// tmp3=tmp3+arg;
- ,
- if(!islist(arg),
- tmp3=tmp3+textformat(arg,dig)+",";
- ,
- tmp3=tmp3+"[";
- tmp4="]";
- forall(arg,
- if(isstring(#),
-// tmp3=tmp3+Dq+#+Dq+",";
- tmp=replace(#,"'",Dq);
-// tmp=#;// 2016.03.03
- tmp3=tmp3+tmp+",";
- ,
- if(!islist(#),
- tmp3=tmp3+textformat(#,dig)+",";
- ,
- tmp=textformat(#,dig);
- tmp=replace(tmp,"],[","];[");
- tmp3=tmp3+tmp+",";
- );
- );
- );
- tmp3=substring(tmp3,0,length(tmp3)-1)+tmp4+",";
- );
- );
- );
- if(length(tmp3)>0,
- tmp3=substring(tmp3,0,length(tmp3)-1);
- tmp1=tmp1+"("+tmp3+")";
- );
- cmdlist=append(cmdlist,tmp1);
- );
- cmdlist=append(cmdlist,"quit");
- if(wflg==0,
- tmp1=load(file+".rr");
- if((length(tmp1)==0) % (indexof(tmp1,"/*####*/")==0), //15.11.26
- wflg=1;
- ,
- tmp1=tokenize(tmp1,"/*####*/");
- tmp1=tokenize(tmp1_2,"/*##*/");
- tmp1=tmp1_(1..(length(tmp1)-1));
- tmp=select(tmp1,indexof(#,"output")>0);
- tmp1=remove(tmp1,tmp);
- tmp1=apply(tmp1,substring(#,0,length(#)-1));
- if(length(tmp1)!=length(cmdlist), // 15.12.06
- wflg=1;
- ,
- tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
- if(length(tmp)>0, wflg=1);
- );
- );
- );
- if(wflg==0,wflg=-1); // 15.10.16
- if(wflg==1,
- if(length(wfile)>0, // 15.10.05
- SCEOUTPUT=openfile(wfile);
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- );
- WritetoA(file+".rr",cmdlist);
- kcA(file,concat(options,["m"]));
- );
- flg=0;
- tmp1=floor(waiting*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp=load(wfile);
- if(length(tmp)>=4,
- tmp2=substring(tmp,length(tmp)-5,length(tmp));
- if(tmp2=="////]",
- tmp=substring(tmp,1,length(tmp)-6);
-// old tmp1=tokenize(tmp,",//,");
-// old tmp1=apply(tmp1,if(isstring(#),Dq+#+Dq,textformat(#,dig)));
- num="1234567890+-.";
- tmp1=tokenize(","+tmp,",//");
- tmp3=apply(tmp1,substring(#,1,length(#)));
- tmp1="[";
- forall(tmp3,st,
- tmp=select(1..length(st),indexof(num,substring(st,#-1,#))==0);
- if((length(tmp)==0) & (length(st)<4), // 16.05.10 16=>4
- tmp1=tmp1+st+",";
- ,
- tmp1=tmp1+Dq+st+Dq+",";
- );
- );
- tmp=Indexof(tmp1,"/start/,"); // 16.05.18from
- tmp1="["+Dq+substring(tmp1,tmp+7,length(tmp1)-1)+"]";
- // 16.05.18upto
-// tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- parse(name+"="+tmp1);
- tmp=parse(name);
- if(length(tmp)==1,
- tmp1=substring(tmp1,1,length(tmp1)-1);
- parse(name+"="+tmp1);
- );
- flg=1;
- tmp2=#*WaitUnit/1000;
- );
- ,
- if(wflg==-1,
- flg=-1;
- ,
- wait(WaitUnit);
- );
- );
- );
- );
- if(flg<=0,
- ErrFlag=1;
- if(flg==-1,
- println(wfile+" does not exist");
- ,
- tmp="("+text(waiting)+" s )";
- println(wfile+" not generated "+tmp);
- );
- ,
- println(" CalcbyA succeeded "+name+" ("+text(tmp2)+" sec)");
- );
-);
-
-AsfunO(name,fun,argL):=AsirfunO(name,fun,argL); // 16.02.03
-AsfunO(name,fun,argL,options):=AsirfunO(name,fun,argL,options);
-Asfun(name,fun,argL):=Asirfun(name,fun,argL);
-Asfun(name,fun,argL,optionorg):=Asirfun(name,fun,argL,optionorg);
-AsirfunO(name,fun,argL):=AsirfunO(name,fun,argL,[]);
-AsirfunO(name,fun,argLorg,options):=(
-//help:AsirfunO("an1","fint",["1/(x^2+1)",32,"['-','+']"]);
- regional(argL,tmp,tmp1,tmp2,eqL);// 16.05.26from
- tmp=divoptions(options);
- eqL=tmp_5;
- argL=argLorg;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="PRO", // 16.05.26from
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="T") % (tmp=="Y"),
- tmp1=argL_(length(argL));
- tmp=indexof(tmp1,"|");
- if(tmp==0,
- argL_(length(argL))=tmp1+"|dumb=-1,dviout=-2";
- );
- );
- );
- ); // 16.05.26upto
- Asirfun(name,"os_md."+fun,argL,options);
-);
-Asirfun(name,fun,argL):=Asirfun(name,fun,argL,[]);
-Asirfun(name,fun,argL,optionorg):=(
-//help:Asirfun("al1","2*(3+5^4)",[],[""]);
- regional(nm,options,eqL,precise,disp,process,
- cmdL,tmp,tmp1,tmp2,tmp3,tmp4,out,out2);
- nm="as"+name;
- options=optionorg;
- tmp=divoptions(options);
- precise=6;
- disp=1;
- process=0;
- eqL=tmp_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="PRE",
- precise=parse(tmp2);
- options=remove(options,[#]);
- );
- if((tmp1=="DIS") % (tmp1=="DSP"),
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="F") % (tmp=="N"),
- disp=0;
- );
- options=remove(options,[#]);
- );
- if(tmp1=="PRO", // 16.05.26from
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="T") % (tmp=="Y"),
- process=1;
- );
- options=remove(options,[#]);
- ); // 16.05.26upt
- );
- tmp=replace(Dirlib,"\","/");
- cmdL=[
- "load",[Dq+tmp+"/oshima/os_muldif.rr"+Dq], // 16.03.11
- "ctrl",[Dq+"real_digit"+Dq,precise],
- "A="+fun,argL, // 16.05.26from
- "A",[]
- ];
- CalcbyA(nm,cmdL,options);
- out=parse(nm); //16.05.26from
- if(process==1,
- tmp1=Bracket(out,"[]");
- tmp2=select(tmp1,abs(#_2)==2);
- tmp2=apply(tmp2,#_1);
- out=[];
- forall(1..length(tmp2)/2,
- tmp3=tmp2_(2*#-1);
- tmp4=tmp2_(2*#);
- tmp=substring(as1,tmp3+1,tmp4-2);
- tmp=tokenize(tmp,"],[");
- out=append(out,tmp);
- );
- out2=[];
- forall(out,tmp2,
- tmp4="";
- forall(tmp2,tmp3,
- tmp1=tokenize(tmp3,",");
- if(tmp1_1==0,
- tmp4=tmp4+tmp1_2+"="+tmp1_3+"+";
- ,
- if(tmp1_1==1,
- tmp4=tmp4+tmp1_2+"+";
- ,
- tmp="'integrate(";
- forall(2..length(tmp1),
- tmp=tmp+tmp1_#+"+";
- );
- tmp=substring(tmp,0,length(tmp)-1);
- tmp=tmp+","+tmp1_1+")";
- tmp4=tmp4+tmp+"+";
- );
- );
- );
- tmp4=substring(tmp4,0,length(tmp4)-1);
- out2=append(out2,tmp4);
- );
- out=out2;
- tmp=apply(out,Dq+#+Dq);
- parse(nm+"="+tmp);
- );
- if(ErrFlag==0,
- if(disp==1, // 15.11.24
- println(nm+" is : ");
- println(parse(nm));
- );
- );
- out; //16.05.26upto
-);
-
-WritetoM(fname,cmdL,allflg):=(
-// help:WritetoM("outdata",cmdL);
- regional(tmp,tmp1,tmp2,filename,wfilename,outflg);
- if(indexof(fname,".")==0,
- filename=fname+".max";
- ,
- filename=fname;
- );
- wfilename=replace(filename,".max",".txt");
- SCEOUTPUT = openfile(filename);
- outflg=0;
- forall(1..(length(cmdL)),
- tmp1=cmdL_#;
-
- if(allflg==1, // 2016.02.23 from
- if(#==1,
- tmp="writefile("+Dq+Dirwork+"/"+wfilename+Dq+")$/*##*/";
- tmp=replace(tmp,"\","/");
- println(SCEOUTPUT,tmp);
- outflg=1;
- println(SCEOUTPUT,tmp1+"$/*##*/");
- ,
- println(SCEOUTPUT,tmp1+"$/*##*/");
- );
- ,
- if((indexof(tmp1,"disp(")>0) & (outflg==0),
- tmp="writefile("+Dq+Dirwork+"/"+wfilename+Dq+")$/*##*/";
- tmp=replace(tmp,"\","/");
- println(SCEOUTPUT,tmp);
- outflg=1;
- println(SCEOUTPUT,tmp1+"$/*##*/");
- ,
- println(SCEOUTPUT,tmp1+"$/*##*/");
- );
- );
- );
- closefile(SCEOUTPUT);
-);
-
-kcM(fname):=kcM(fname,[]);
-kcM(fname,optionorg):=(
-//help:kcM("boxdata");
-//help:kcM(options=["r/m"]);
- regional(options,tmp,tmp1,tmp2,eqL,strL,filename,flg);
- if(indexof(fname,".")==0,
- filename=fname+".max";
- ,
- filename=fname;
- );
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- );
- flg=0;
- forall(strL,
- if(Toupper(substring(#,0,1))=="R",
- flg=0;
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="M",
- flg=1;
- );
- );
- if(flg==0,
- tmp2=replace(filename,".max",".txt");
- tmp1=load(tmp2);
- if(length(tmp1)==0,
- flg=1;
- );
- );
- if(flg==1,
- tmp1="";
- if(iswindows(),
- tmp2=Batparent;
- ,
- tmp2=Shellparent;
- );
- flg=0;
- forall(reverse(1..length(tmp2)),
- if(flg==0,
- tmp=substring(tmp2,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- tmp1=substring(tmp2,0,#-1);
- tmp2=substring(tmp2,#,length(tmp2));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(tmp1);
- );
- if(iswindows(),
- SCEOUTPUT=openfile(replace(filename,".max",".txt"));
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- SCEOUTPUT = openfile("kc.bat");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
-// tmp="del "+replace(filename,".max",".txt");
-// println(SCEOUTPUT,tmp);
- tmp=Indexall(PathM,".");
- tmp=substring(PathM,tmp_1,tmp_2-1);
- tmp=parse(tmp);
- if(tmp<39,
- tmp="call "+Dq+Dq+PathM+Dq+Dq+" -b "+Dq+filename+Dq;
- ,
- tmp="call "+Dq+PathM+Dq+" -b "+Dq+filename+Dq;
- );
-// tmp="cmd/c "+Dq+PathM+" -b "+filename+Dq;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit");
- closefile(SCEOUTPUT);
- tmp=replace(filename,".max",".txt");
- println(kc(Dirwork+Batparent,Mackc+Dirlib,tmp));// 16.05.29,06.05
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp="rm "+replace(filename,".max",".txt");
- println(SCEOUTPUT,tmp);
- tmp=Dq+PathM+Dq+" -b "+Dq+filename+Dq;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- tmp=replace(filename,".max",".txt");
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,tmp));// 16.05.29,06.05
- );
-// wait(WaitUnit);
- setdirectory(Dirwork);
- );
-);
-
-CalcbyM(name,cmd):=CalcbyM(name,cmd,[]);
-CalcbyM(name,cmd,optionorg):=(
-//help:CalcbyM("a",cmdL);
-//help:CalcbyM(options1= ["m/r","Wait=5","Ext=txt","Dig=6","Pow=no","All=y"]);
-//help:CalcbyM(options2= ["line=1000"]);
- regional(options,tmp,tmp0,tmp1,tmp2,tmp3,tmp4,realL,strL,eqL,allflg,indL,line,
- dig,flg,wflg,file,nc,arg,add,powerd,cmdM,cmdlist,wfile,ext,waiting,num,st);
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- realL=tmp_6;
- strL=tmp_7;
- wfile="";
- ext=".txt";
- waiting=5;
- dig=6;
- allflg=1;
- powerd="false";
- line=1000; // 16.06.13
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="E",
- if(indexof(tmp2,".")==0,ext="."+tmp2,ext=tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="D",
- dig=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="L", // 16.06.13
- line=parse(tmp2);
- options=remove(options,[#]);
- );
- if(tmp1=="P",
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="y") % (tmp=="F"),powerd="true");
- options=remove(options,[#]);
- );
- if(tmp1=="A", // 2016.02.23
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="N") % (tmp=="F"),allflg=0);
- options=remove(options,[#]);
- );
- );
- wfile=Fhead+name+ext;
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- file=Fhead+name;
- cmdM=cmd;
- cmdlist=[
- "powerdisp:"+powerd,"display2d:false","linel:"+text(line) //15.11.25,16.06.13
- ];
- forall(1..floor(length(cmdM)/2),nc, //17.5.18
- tmp1=replace(cmdM_(2*nc-1),"`","'");//2016.02.23
- tmp1=replace(tmp1,LFmark,""); // 16.06.12
- if(nc==length(cmdM)/2,
- tmp=indexof(tmp1,"=");
- tmp1=substring(tmp1,tmp,length(tmp1));
- if(substring(tmp1,0,1)=="[",
- tmp=substring(tmp1,0,length(tmp1)-1);
- ,
- tmp="["+tmp1;
- );
- tmp2="";
- forall(1..length(tmp1),
- if(substring(tmp1,#-1,#+1)=="::",
- if(substring(tmp2,0,1)==":", tmp2=substring(tmp2,1,length(tmp2)));
- cmdlist=append(cmdlist,"disp("+tmp2+")");
- tmp2="";
- ,
- tmp2=tmp2+substring(tmp1,#-1,#);
- );
- );
- if(length(tmp2)>0,
- if(substring(tmp2,0,1)==":", tmp2=substring(tmp2,1,length(tmp2)));
- cmdlist=append(cmdlist,"disp("+tmp2+")");
- );
- ,
- tmp2=cmdM_(2*nc); // list of argments
- tmp3="";
- tmp4="";
- add="";
- forall(tmp2,arg,
- if(isstring(arg),
- if(substring(arg,0,1)!=",",
-// tmp=replace(arg,"'",Dq); // 16.03.03
- tmp=arg; // 16.03.03
- tmp=replace(tmp,"`","'");// 2016.02.23
- tmp3=tmp3+tmp+",";
- ,
- add=add+arg;
- );
- ,
- if(!islist(arg),
- tmp3=tmp3+textformat(arg,dig)+",";
- ,
- tmp3=tmp3+"[";
- tmp4="]";
- forall(arg,
- if(isstring(#),
-// tmp3=tmp3+Dq+#+Dq+",";
- tmp=replace(#,"'",Dq);
- tmp3=tmp3+tmp+",";
- ,
- if(!islist(#),
- tmp3=tmp3+textformat(#,dig)+",";
- ,
- tmp=textformat(#,dig);
- tmp=replace(tmp,"],[","];[");
- tmp3=tmp3+tmp+",";
- );
- );
- );
- tmp3=substring(tmp3,0,length(tmp3)-1)+tmp4+",";
- );
- );
- );
- if(length(tmp3)>0,
- tmp3=substring(tmp3,0,length(tmp3)-1);
- tmp1=tmp1+"("+tmp3+")"+add;
- );
- cmdlist=append(cmdlist,tmp1);
- );
- );
- cmdlist=append(cmdlist,"closefile()");
- cmdlist=append(cmdlist,"quit()");
- if(wflg==0,
- tmp1=load(file+".max");
- if(length(tmp1)==0,
- wflg=1;
- ,
- if(indexof(tmp1,"/*##*/")==0, // 15.11.26
- wflg=1;
- ,
- tmp1=tokenize(tmp1,"/*##*/");
- tmp1=tmp1_(1..(length(tmp1)-1));
- tmp=select(tmp1,indexof(#,"writefile")>0);
- tmp1=remove(tmp1,tmp);
- tmp1=apply(tmp1,substring(#,0,length(#)-1));
- if(length(tmp1)!=length(cmdlist), // 15.12.07
- wflg=1;
- ,
- tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
- if(length(tmp)>0, wflg=1);
- );
- );
- );
- );
- if(wflg==0,wflg=-1); // 15.10.16
- if(wflg==1,
- if(length(wfile)>0, // 15.10.05
- SCEOUTPUT=openfile(wfile);
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- );
- WritetoM(file+".max",cmdlist,allflg); // 2016.02.23
- kcM(file,concat(options,["m"]));
- );
- flg=0;
- tmp1=floor(waiting*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp1=load(wfile);
- if(wflg==1,wait(WaitUnit)); // 2016.02.23
- if(length(tmp1)>0,
- tmp=indexof(tmp1,"error")+indexof(tmp1,"syntax"); //2016.02.23
- if(tmp>0,
- println("Some error(s) occurred"); //2016.02.24 from
- tmp2=tokenize(tmp1,"(%");
- forall(4..length(tmp2),println(tmp2_#)); //2016.02.24 upto
- flg=2; //2016.02.23
- ,
- if(indexof(tmp1,"closefile()")>0, // 15.11.24
- tmp=tokenize(tmp1,"disp(");
- tmp1=tmp_(2..length(tmp));
- tmp4=[];
- forall(tmp1,tmp2,
- tmp=indexof(tmp2,")");
- tmp3=substring(tmp2,tmp,length(tmp2));
- indL=Indexall(tmp3,"(%i"); // 16.04.26from
- tmp0=0;
- forall(indL,
- if(tmp0==0,
- tmp=substring(tmp3,#+2,#+3);
- if(indexof("0123456789",tmp)>0,//16.04.25?
- tmp3=removespace(substring(tmp3,0,#-1));
- tmp4=append(tmp4,tmp3);
- tmp0=1;
- );
- );// 16.04.26upto
- );
- );
- num="1234567890+-.";
- tmp1="[";
- forall(tmp4,st,
- tmp=select(1..length(st),indexof(num,substring(st,#-1,#))==0);
- if((length(tmp)==0) & (length(st)<4), // 16.05.10 16=>4
- tmp1=tmp1+st+",";
- ,
- tmp1=tmp1+Dq+st+Dq+",";
- );
- );
- tmp1=substring(tmp1,0,length(tmp1)-1)+"]";
- tmp1=replace(tmp1,".d+0",""); // 15.11.23
- parse(name+"="+tmp1);
- tmp=parse(name);
- if(length(tmp)==1,
- tmp1=substring(tmp1,1,length(tmp1)-1);
- parse(name+"="+tmp1);
- );
- flg=1;
- tmp2=#*WaitUnit/1000;
- );
- );
- ,
- if(wflg==-1,
- flg=-1;
- ,
- wait(WaitUnit);
- );
- );
- );
- );
- if(flg<=0,
- ErrFlag=1;
- if(flg==-1,
- println(wfile+" does not exist");
- ,
- tmp="("+text(waiting)+" s )";
- tmp1=load(wfile);
- if(length(tmp1)>0,
- println(wfile+" incomplete"+tmp); // 2016.02.24
- ,
- println(wfile+" not generated "+tmp);
- );
- );
- ,
- if(flg==1, // 2016.02.23
- println(" CalcbyM succeeded "+name+" ("+text(tmp2)+" sec)");
- );
- );
-);
-
-Mxfun(name,fun,argL):=Mxfun(name,fun,argL,[]);
-Mxfun(name,fun,argL,optionorg):=(
-//help:Mxfun("ca1","diff",["sin(x)^3","x"],[""]);
-//help:Mxfun(options=["Pre=6","Disp=y","Load= :: ","Set=::","Add="]);
- regional(nm,options,eqL,precise,disp,pack,set,add,cmdL,tmp,tmp1,tmp2);
- nm="mx"+name;
- options=optionorg;
- tmp=divoptions(options);
- precise=6;
- disp=1;
- pack=[];
- set=[];
- add="";
- eqL=tmp_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="PRE",
- precise=parse(tmp2);
- options=remove(options,[#]);
- );
- if((tmp1=="DIS") % (tmp1=="DSP") ,
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="F") % (tmp=="N"),
- disp=0;
- );
- options=remove(options,[#]);
- );
- if((tmp1=="PAC") % (tmp1=="LOA"), // 16.02.08
- pack=tokenize(tmp2,"::");
- options=remove(options,[#]);
- );
- if(tmp1=="SET",
- set=tokenize(tmp2,"::");
- options=remove(options,[#]);
- );
- if(tmp1=="ADD",
- add=","+tmp2;
- options=remove(options,[#]);
- );
- );
- cmdL=[];
- forall(pack,
- cmdL=concat(cmdL,["load",[#]]);
- );
- forall(set,
- cmdL=concat(cmdL,[#,[]]);
- );
- if(length(add)>0,
- tmp=append(argL,add);
- ,
- tmp=argL;
- );
- cmdL=concat(cmdL,[
- "ans"+":"+fun,tmp,
- "ans",[]
- ]);
- CalcbyM(nm,cmdL,options);
- if(ErrFlag==0,
- if(disp==1, // 15.11.24
- println(nm+" is : ");
- println(parse(nm));
- );
- );
- parse(nm);
-);
-
-Mxtex(nm,ex):=Mxtex(nm,ex,[]);
-Mxtex(nm,ex,optionorg):=(
-//help:Mxtex("1","sin(x)/x");
-//help:Mxtex(options=["Disp=y"]);
- regional(name,cmdL,eqL,options,tx,disp,out,set,
- tmp,tmp1,tmp2); // 16.01.25
- name="tx"+nm;
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- disp=1;
- set=[];
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if((tmp1=="DIS") % (tmp1=="DSP") ,
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="F") % (tmp=="N"),
- disp=0;
- );
- options=remove(options,[#]);
- );
- if(tmp1=="SET", // 16.03.01
- set=tokenize(tmp2,"::");
- options=remove(options,[#]);
- );
- if(tmp1=="ORD", // 16.03.01
- tmp="ordergreat("+tmp2+")";
- set=append(set,tmp);
- options=remove(options,[#]);
- );
- );
- cmdL=[
- "load",[Dq+"mactex-utilities.lisp"+Dq]]; // 16.03.03
- forall(set, // 16.03.01
- cmdL=concat(cmdL,[#,[]]);
- );
- cmdL=concat(cmdL,[
- name+":disp(tex("+ex+"))",[], // 16.01.18
- name,[] // 16.01.18
- ]);
- CalcbyM(name,cmdL,options); // 16.02.19
- tx=parse(name);
- if(islist(tx), // 16.01.10
- out=tx_1;
- ,
- out=tx;
- );
- tmp=indexof(out,"$$")+1;
- out=substring(out,tmp,length(out));
- tmp=indexof(out,"$$")-1;
- out=substring(out,0,tmp);
- if(disp==1, // 16.01.10
- println(name+" is:");
- println(out);
- );
- tmp=name+"="+Dq+out+Dq; //16.01.10
- parse(tmp);
- out;
-);
-
-MxtexL(nm,exlist):=MxtexL(nm,exlist,[]); // 16.05.27
-MxtexL(nm,exlist,options):=(
- regional(out,tmp,tmp1);
- out=[];
- forall(1..length(exlist),
- tmp=Mxtex(nm+"n"+text(#),exlist_#,["Disp=n"]);
- out=append(out,Dq+tmp+Dq);
- );
- tmp="tx"+nm+"="+out;
- parse(tmp);
- println("tx"+nm+"is:");
- apply(out,println(#));
- out;
-);
-
-Mxbatch(file):=(
-//help:Mxbatch(["matoperation.max"]);
- regional(figL,out,path,tmp,tmp1,tmp2);
- if(!islist(file),figL=[file],figL=file);
- path=replace(Dirlib+"/maximaL/","\","/");
- out=[];
- forall(figL,
- if(indexof(#,".")==0,tmp1=#+".max",tmp1=#);
- tmp1=Dq+path+tmp1+Dq;
- tmp2=["batch",[tmp1]];
- out=concat(out,tmp2);
- );
- out;
-);
-
-Mxload(file):=( //17.06.16
-//help:Mxload(["rkfun.lispp"]);
- regional(figL,out,path,tmp,tmp1,tmp2);
- if(!islist(file),figL=[file],figL=file);
- path=replace(Dirlib+"/maximaL/","\","/");
- out=[];
- forall(figL,
- if(indexof(#,".")==0,tmp1=#+".lisp",tmp1=#);
- tmp1=Dq+path+tmp1+Dq;
- tmp2=["load",[tmp1]];
- out=concat(out,tmp2);
- );
- out;
-);
-
-kcV3(fname):=kcV3(Dirwork,fname);
-kcV3(path,fname):=(
-//help:kcV3(path,"ex.obj");
- regional(tmp,tmp1,tmp2,eqL,strL,filename,flg);
- if(indexof(fname,".")==0,
- filename=fname+".obj";
- ,
- filename=fname;
- );
- flg=1;
- if(flg==1,
- tmp1=""; // 15.10.08 from
- if(iswindows(),
- tmp2=Batparent;
- ,
- tmp2=Shellparent;
- );
- tmp=replace(path,"\","/");
- tmp=substring(tmp,length(tmp)-1,length(tmp));
- if(tmp=="/" % tmp=="\", tmp1=path, tmp1=path+"/");
- if(iswindows(),
- SCEOUTPUT = openfile("kc.bat");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=Dq+PathV3+Dq+" "+tmp1+filename;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29,06.05
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=Dq+PathV3+Dq+" "+tmp1+filename;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29,06.05
- );
- wait(WaitUnit);
- );
- if(fig==2,
- println("Obj file not exist / imperfect");
- );
-);
-
-Changeobjscale(fname):=Changeobjscale(ULEN,fname,fname,[]);
-Changeobjscale(fname,Arg):=(
- if(islist(Arg),
- Changeobjscale(ULEN,fname,fname,Arg);
- ,
- Changeobjscale(ULEN,fname,Arg,[]);
- );
-);
-Changeobjscale(Arg1,Arg2,Arg3):=(
- if(islist(Arg3),
- Changeobjscale(ULEN,Arg1,Arg2,Arg3);
- ,
- Changeobjscale(Arg1,Arg2,Arg3,[]);
- );
-);
-Changeobjscale(unitlen,fnameorg,foutorg,optionorg):=(
-//help:Changeobjscale("20mm",fnamei,fmediate);
-//help:Changeobjscale(options=["Unit=mm",[0,0,0]]);
- regional(fname,fout,fmd,unit,val,options,eqL,reL,
- origin,outunit,sc,stL,nn,tmp,tmp1,tmp2);
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- outunit="IN";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=Toupper(substring(#,tmp,length(#)));
- if(tmp1=="O" % tmp1=="U",
- outunit=tmp2;
- options=remove(options,[#]);
- );
- );
- options=remove(options,reL);
- origin=[0,0,0];
- forall(reL,
- if(islist(#),origin=#);
- );
- options=remove(options,reL);
- tmp1=".0123456789+-*/";
- unit="";
- val=1;
- tmp2=0;
- forall(reverse(1..length(unitlen)),
- tmp=substring(unitlen,#-1,#);
- if(tmp2==0,
- if(indexof(tmp1,tmp)>0,
- tmp2=#;
- );
- );
- unit=substring(unitlen,tmp2,length(unitlen));
- unit=removespace(unit);
- val=parse(substring(unitlen,0,tmp2));
- );
- sc=1;
- if(unit=="cm",sc=1);
- if(unit=="mm",sc=0.1);
- if(unit=="in",sc=2.54);
- sc=sc*val;
- if(outunit=="IN",sc=sc/2.54);
- if(outunit=="MM",sc=sc*10);
- fname=fnameorg;
- if(indexof(fname,".")==0,fname=fname+".obj");
- fmd=replace(fname,".obj",".txt");
- fout=foutorg;
- if(indexof(fout,".")==0,fout=fout+".obj");
- tmp1=Textformat(origin,4);
- tmp1=replace(tmp1,",",";");
- cmdL=[
- "Origin="+tmp1+";",[],
- "Sc="+format(sc,6)+";",[],
- "Stv=mgetl",[Dq+fname+Dq],
- "for nn=1:size(Stv,1),Tmp=Stv(nn);",[],
- " if part(Tmp,1:2)=='v ' then,Tmp=tokens(Tmp,' ');",[],
- " Tmp=evstr(Tmp(2:4));",[],
- " Tmp=Origin+Sc*(Tmp-Origin);",[],
- " Tmp='v '+msprintf('%7.4f %7.4f %7.4f',Tmp(1),Tmp(2),Tmp(3));",[],
- " Stv(nn,1)=Tmp;",[],
- " end;",[],
- "end;",[],
- "mputl",["Stv",Dq+fout+Dq],
- "mputl",["['finished////']",Dq+fmd+Dq]
- ];
- options=concat(["Wait=3","Cat=n","File="+fmd],options); // 16.06.26
- CalcbyS("cs",cmdL,options);
- println("Scale of "+fname+" changed");
-);
-
-Mkviewobj(fname,cmdL):=Mkviewobj(Dirwork,fname,cmdL,[]);
-Mkviewobj(Arg1,Arg2,Arg3):=(
- if(!isstring(OCNAME), //17.04.13from
- drawtext(mouse().xy,"Mkobjcmd not defined",
- size->24,color->[1,0,0]);
- , //17.04.13upto
- if(islist(Arg2),
- Mkviewobj(Dirwork,Arg1,Arg2,Arg3);
- ,
- Mkviewobj(Arg1,Arg2,Arg3,[]);
- );
- );
-);
-Mkviewobj(pathorg,fnameorg,cmdLorg,optionorg):=(
-//help:Mkviewobj(fname,cmdlist);
-//help:Mkviewobj(fname,[]);
-//help:Mkviewobj(path,fname,cmdlist);
-//help:Mkviewobj(options=["M/R","V","Unit=in","Wait=5"]);
- regional(path,cmdL,eqL,strL,flg,fname,options,make,view,cmdlist,
- vtx,face,unit,tmp,tmp1,tmp2);
- path=replace(pathorg,"\","/");
- if(substring(path,length(path)-1,length(path))!="/",path=path+"/");
- fname=fnameorg;
- if(indexof(fname,".")==0,fname=fname+".obj");
- cmdL=cmdLorg;
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- make=-1;
- view=0;
- unit="";
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="M",
- tmp2=Toupper(substring(tmp2,0,1));
- if(tmp2=="N" % tmp2=="F",
- make=0;
- );
- options=remove(options,[#]);
- );
- if(tmp1=="V",
- tmp2=Toupper(substring(tmp2,0,1));
- if(tmp2=="N" % tmp2=="F",
- view=0;
- );
- options=remove(options,[#]);
- );
- if(tmp1=="U", // 16.06.30from
- unit=tmp2;
- options=remove(options,[#]);
- ); // 16.06.30upto
- );
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- make=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- make=0;
- options=remove(options,[#]);
- );
- if(tmp=="V",
- view=1;
- options=remove(options,[#]);
- );
- );
- if(islist(cmdL),
- if(length(cmdL)==0,
- make=0;
- println("Command sequence not defnamed");
- );
- ,
- make=0;
- println("Command sequence not defined");
- );
- if(make==-1,
- setdirectory(pathorg);
- tmp1=load(fname);
- if(length(tmp1)==0,make=1,make=0);
- setdirectory(Dirwork);
- );
- if(make==1,
- if(isstring(cmdL_1),
- cmdlist=MkprecommandS(); // 16.04.23
- cmdlist=concat(cmdlist,["Openobj",[Dq+path+fname+Dq]]);
- cmdlist=concat(cmdlist,cmdL);
- tmp=["Closeobj()",[],"ans="+Dq+"||||"+Dq,[]];//16.12.26
- cmdlist=concat(cmdlist,tmp);
- tmp=append(options,"Cat=y");
- tmp1=apply(tmp,Toupper(substring(#,0,1))); // 16.04.23from
- tmp1=select(tmp1,#=="W");
- if(length(tmp1)==0,
- tmp=append(tmp,"Wait=5");
- );// 16.04.23upto
- CalcbyS("ans",cmdlist,tmp);
- wait(WaitUnit*100); // 16.03.18
- ,
- vtx=cmdL_1;
- face=cmdL_2;
- setdirectory(pathorg);
- SCEOUTPUT = openfile(fname);
- forall(vtx,tmp1,
- tmp2=tmp1;
- if(ispoint(tmp1),
- tmp2=parse(text(tmp1)+"3d");
- );
- tmp2=apply(tmp2,format(#,5));
- tmp="v "+tmp2_1+" "+tmp2_2+" "+tmp2_3;
- println(SCEOUTPUT,tmp);
- );
- forall(face,tmp1,
- tmp="f";
- forall(tmp1,
- tmp=tmp+" "+text(#);
- );
- println(SCEOUTPUT,tmp);
- );
- closefile(SCEOUTPUT);
- setdirectory(Dirwork);
- );
- );
- if(length(unit)>0, // 16.06.30from
- Changeobjscale(fname,["Unit="+unit]);//16.10.04
- ); // 16.06.30upto
- if(view==1,
- flg=0; // 16.03.14 from
- if(isstring(ViewFile),
- if(ViewFile==fname,flg=1);
- );
- if(flg==0,
- kcV3(path,fname);
- ViewFile=fname;
- ); // 16.03.14 upto
- );
-);
-
-SetObj(str):=Objname(str,["m","v"]); //17.01.12
-SetObj(str,options):=Objname(str,options); //17.01.12
-Objnameoptions(str,options):=Objname(str,options);// 16.11.29
-Objname(str):=Objname(str,["m","v"]); // 16.11.29
-Objname(str,options):=(
-//help:Objname("sample");
-//help:Objname(options=["m","v"]);
-//help:Setobj("sample");
-//help:Setobj(options=["m","v"]);
- if(length(str)>0,
- OCNAME=str;
- );
- OCOPTION=options;
- println([OCNAME,OCOPTION]);
-);
-
-Mkobjcmd(nm,fd):=Mkobjcmd(nm,fd,[40,40,"+"]);
-Mkobjcmd(nm,fd,options):=(
-//help:Mkobjcmd("1",fd,[40,40,"+"]);
- regional(ffd,cmd,out,div1,div2,side,
- reL,stL,tmp,tmp1,tmp2,tmp3,tmp4);
- div1=40;
- div2=40;
- side="+";
- tmp=Divoptions(options);
- reL=tmp_6;
- stL=select(tmp_7,length(#)>0);
- forall(1..length(reL),
- if(#==1,
- div1=reL_1;
- div2=div1;
- ,
- div2=reL_2;
- );
- );
- forall(stL,
- side=#;
- );
- side="'"+side+"'";
- ffd=Fullformfunc(fd);
- tmp=indexof(ffd_5,"=");
- tmp1=substring(ffd_5,0,tmp-1);
- tmp2=substring(ffd_5,tmp,length(ffd_5));
- tmp=indexof(ffd_6,"=");
- tmp3=substring(ffd_6,0,tmp-1);
- tmp4=substring(ffd_6,tmp,length(ffd_6));
- out=["function Out=Fun"+nm+"("+tmp1+","+tmp3+")",[]];
- tmp=" Out=["+ffd_2+","+ffd_3+","+ffd_4+"]";
- out=concat(out,[tmp,[]]);
- out=concat(out,["endfunction",[]]);
- tmp1=["Objsurf",
- ["Fun"+nm,tmp2,tmp4,div1,div2,side]];
- out=concat(out,tmp1);
- tmp2=[]; // 16.06.10from
- forall(out,tmp1,
- if(islist(tmp1),
- tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
- ,
- if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
- );
- tmp2=append(tmp2,tmp);
- );
- parse("oc"+nm+"="+tmp2);
- println("cmd seq oc"+nm+" generated"); // 16.06.10upto
- OBJCMD=concat(OBJCMD,out);//16.11.29
- out;
-);
-
-Mkobjnrm(nm,fd):=Mkobjnrm(nm,fd,[]);
-Mkobjnrm(nm,fd,optionorg):=(
-//help:Mkobjnrm("1",fd1,["Disp=y"]);
-//help:Mkobjnrm("1","[x,y,x*y/(x^2+y^2)],x,y");
- regional(name,options,stL,eqL,disp,ffd,fst,xst,yst,cmdL,
- precmd,out,tmp,tmp1,tmp2,tmp3);
- name="nrm"+nm;
- options=select(optionorg,length(#)>0);
- tmp=Divoptions(options);
- eqL=tmp_5;
- stL=tmp_7;
- precmd=[];
- disp="N";
- forall(eqL, // 16.05.02
- tmp1=Toupper(substring(#,0,1));
- tmp=indexof(#,"=");
- tmp2=Toupper(substring(#,tmp,tmp+1));
- if(tmp1=="D",
- if(tmp2=="Y" % tmp2=="T",
- disp="Y";
- options=remove(options,[#]);
- );
- );
- );
- forall(stL,
- if(indexof(#,"+")+indexof(#,"-")==0,
- precmd=concat(precmd,[#,[]]);
- options=remove(options,[#]);
- );
- );
- if(isstring(fd),
- tmp=Indexall(fd,",");
- fst=[
- substring(fd,1,tmp_1-1),
- substring(fd,tmp_1,tmp_2-1),
- substring(fd,tmp_2,tmp_3-2)
- ];
- xst=substring(fd,tmp_3,tmp_4-1);
- yst=substring(fd,tmp_4,length(fd));
- ,
- ffd=Fullformfunc(fd);
- fst=text(ffd_(2..4));
- tmp=indexof(ffd_5,"=");
- xst=substring(ffd_5,0,tmp-1);
- tmp=indexof(ffd_6,"=");
- yst=substring(ffd_6,0,tmp-1);
- );
- cmdL=precmd;
- cmdL=concat(cmdL,[
- "fx:diff",[fst,xst],
- "fy:diff",[fst,yst],
- "nx:fx[2]*fy[3]-fx[3]*fy[2]",[],
- "ny:fx[3]*fy[1]-fx[1]*fy[3]",[],
- "nz:fx[1]*fy[2]-fx[2]*fy[1]",[],
- "nn:factor(nx^2+ny^2+nz^2)",[], // 16.04.21
- "nn:sqrt(nn)",[], // 16.04.20
- "nx:nx/nn",[],
- "ny:ny/nn",[],
- "nz:nz/nn",[],
- "n:[nx,ny,nz]",[], // 16.04.21from
- "n:ratsimp(n)",[],
- "n:trigsimp(n)",[],
- "n:factor(n)",[], // 16.04.21upto
- "n",[]
- ]);
- CalcbyM(name,cmdL,options); // 16.05.12
- tmp1=parse(name); // 16.05.12
- out=[tmp1]; // 15.04.21b from
- tmp2=[];
- forall(1..3,
- tmp=indexof(tmp1,",");
- if(tmp==0,
- tmp=indexof(tmp1,"]");
- );
- tmp3=substring(tmp1,0,tmp-1);
- tmp1=substring(tmp1,tmp,length(tmp1));
- tmp=indexof(tmp3,"/");
- if(tmp>0,
- tmp3=substring(tmp3,tmp,length(tmp3));
- tmp2=append(tmp2,tmp3);
- ,
- tmp2=append(tmp2,"1");
- );
- );
-// out=append(out,tmp2);
- out=out_1; // 16.05.02from
- println("calculate "+name+":"); // 16.05.12
- if(disp=="Y", // 16.05.02
- println(out);
- // println(out_2);
- ); // 16.05.02upto
- out;
-);
-
-Mkobjthickcmd(nm,fd):=Mkobjthickcmd(nm,fd,"",[40,40,"+"]);
-Mkobjthickcmd(nm,fd,Arg):=(
- if(islist(Arg),
- Mkobjthickcmd(nm,fd,"",Arg);
- ,
- Mkobjthickcmd(nm,fd,Arg,[]);
- );
-);
-Mkobjthickcmd(nm,fd,fnrm,optionorg):=(
-//help:Mkobjthickcmd("1",fd,["assume(R>0)"]);
-//help:Mkobjthickcmd("1",fd,fnorm);
-//help:Mkobjthickcmd(options1=[40,40,0.05,-0.05,"+n+s+e+w+"]);
-//help:Mkobjthickcmd(options2=["ratsimp","trigsimp"]);
- regional(options,ffd,cmd,out,div1,div2,thick1,thick2,side,
- reL,stL,addcmd,fst,xst,yst,tmp,tmp1,tmp2,tmp3,tmp4);
- div1=40;
- div2=40;
- thick1=0.05;
- thick2=-0.05;
- side="+n+s+e+w+";
- options=select(optionorg,length(#)>0);
- tmp=Divoptions(options);
- reL=tmp_6;
- stL=tmp_7;
- tmp1=1; // 16.04.21from
- tmp2=1;
- forall(1..length(reL),
- tmp=reL_#;
- if(tmp>1,
- if(tmp1==1,
- div1=tmp;
- div2=tmp;
- ,
- div2=tmp;
- );
- tmp1=tmp1+1;
- ,
- if(tmp2==1,
- thick1=tmp;
- thick2=-tmp;
- ,
- thick2=tmp;
- );
- tmp2=tmp2+1;
- );
- ); // 16.04.21upto
- options=remove(options,reL);
- forall(stL,
- if(length(#)>0,
- tmp=indexof(#,"+")+indexof(#,"-");
- if(tmp>0,
- side=#;
- options=remove(options,[#]);
- );
- );
- );
- side="'"+side+"'";
- ffd=Fullformfunc(fd);
- tmp=indexof(ffd_5,"=");
- tmp1=substring(ffd_5,0,tmp-1);
- tmp2=substring(ffd_5,tmp,length(ffd_5));
- tmp=indexof(ffd_6,"=");
- tmp3=substring(ffd_6,0,tmp-1);
- tmp4=substring(ffd_6,tmp,length(ffd_6));
- fst=text(ffd_(2..4));
- tmp=indexof(ffd_5,"=");
- xst=substring(ffd_5,0,tmp-1);
- tmp=indexof(ffd_6,"=");
- yst=substring(ffd_6,0,tmp-1);
- out=["function Out=Fun"+nm+"("+tmp1+","+tmp3+")",[]];
- tmp=" Out=["+ffd_2+","+ffd_3+","+ffd_4+"]";
- out=concat(out,[tmp,[]]);
- out=concat(out,["endfunction",[]]);
- tmp=["function Out=Fnrm"+nm+"("+xst+","+yst+")",[]];
- out=concat(out,tmp);
- if(fnrm=="",
- tmp=Mkobjnrm(nm,fd,options);
- tmp1="Out="+tmp; // 16.05.17
- tmp="Fnrmden"+nm+"("+xst+","+yst+"):="+tmp_2;
- parse(tmp);
- ,
-// tmp1=" Out="+fnrm; // 16.04.30
- tmp1=fnrm; // 16.04.30
- if(indexof(tmp1,"Out=")==0, // 16.05.09from
- tmp1="Out="+tmp1;
- ); // 16.05.09upto
- );
- out=concat(out,[tmp1,[]]);
- out=concat(out,["endfunction",[]]);
- tmp1=["Objthicksurf",
- ["Fun"+nm,tmp2,tmp4,div1,div2,"Fnrm"+nm,thick1,thick2,side]];
- out=concat(out,tmp1);
- tmp2=[]; // 16.06.10from
- forall(out,tmp1,
- if(islist(tmp1),
- tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
- ,
- if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
- );
- tmp2=append(tmp2,tmp);
- );
- parse("oc"+nm+"="+tmp2);
- println("cmd seq oc"+nm+" generated"); // 16.06.10upto
- OBJCMD=concat(OBJCMD,out);//16.11.29
- out;
-);
-
-Mkobjpolycmd(nm,pd):=Mkobjpolycmd(nm,pd,[]);
-Mkobjpolycmd(nm,pd,optionorg):=(
-//help:Mkobjpolycmd("1",pd);
-//help:Mkobjpolycmd(options1=[internal([0,0,0])]);
- regional(options,cmd,out,thick1,thick2,origin,
- reL,stL,vtx,face,pt1,pt2,pt3,tmp,tmp1,tmp2);
- thick1=0;
- thick2=-0;
- origin=[0,0,0];
- options=select(optionorg,length(#)>0);
- tmp=Divoptions(options);
- reL=tmp_6;
- stL=tmp_7;
- tmp1=1;
- forall(1..length(reL),
- tmp=reL_#;
- if(islist(tmp),
- origin=tmp;
- ,
- if(tmp1==1,
- thick1=tmp;
- thick2=-tmp;
- ,
- thick2=tmp;
- );
- tmp1=tmp1+1; // 16.07.08
- );
- );
- options=remove(options,reL);
- forall(stL,
- tmp=indexof(#,"+")+indexof(#,"-");
- if(tmp>0,
- side=#;
- options=remove(options,[#]);
- );
- );
- vtx=pd_1; //16.04.23from
- if(length(pd)==2,face=pd_2,face=pd_3);
- if(isstring(vtx),vtx=parse(vtx));
- vtx=apply(vtx,if(isstring(#),parse(#),#)); // 16.06.18
- if(isstring(face),face=parse(face));
- forall(1..length(face),
- tmp=face_#;
- pt1=vtx_(tmp_1);// 16.06.18
- pt2=vtx_(tmp_2);// 16.06.18
- pt3=vtx_(tmp_(length(tmp)));// 16.06.18
- tmp1=Crossprod(pt2-pt1,pt3-pt1);
- tmp2=Dotprod(tmp1,pt1-origin);
- if(tmp2<0,
- face_#=reverse(face_#);
- );
- );
- out=["Objpolyhedron",[vtx,face]];
- tmp2=[]; // 16.06.10from
- forall(out,tmp1,
- if(islist(tmp1),
- tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
- ,
- if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
- );
- tmp2=append(tmp2,tmp);
- );
- parse("oc"+nm+"="+tmp2);
- println("cmd seq oc"+nm+" generated"); // 16.06.10upto
- OBJCMD=concat(OBJCMD,out);//16.11.29
- out;
-);
-
-Mkobjplatecmd(nm,pd):=Mkobjplatecmd(nm,pd,[]);
-Mkobjplatecmd(nm,pdorg,optionorg):=( // 16.06.18
-//help:Mkobjplatecmd("1",pd);
-//help:Mkobjplatecmd("1",vtxlist);
-//help:Mkobjplatecmd(options1=[0.05,-0.05]);
- regional(pd,options,cmd,out,thick1,thick2,nn,pdn,
- reL,vtx,face,nv,npttmp,tmp1,tmp2,tmp3);
- pd=pdorg;
- if(MeasureDepth(pd)==1,pd=[pd]);
- if(MeasureDepth(pd)==2,pd=[pd]);//16.10.04from
- forall(1..length(pd),nn, // 16.06.19from
- pdn=pd_nn;
- vtx=pdn_1;
- if(length(pdn)==1,face=[1..(length(vtx))],face=pdn_2);
- vtx=apply(vtx,if(isstring(#),parse(#),#));
- vtx=apply(vtx,if(ispoint(#),parse(text(#)+"3d"),#));
- pd_nn=[vtx,face];//16.10.04upto
- ); // 16.06.19upto
- thick1=0.05;
- thick2=-0.05;
- options=select(optionorg,length(#)>0);
- tmp=Divoptions(options);
- reL=tmp_6;
- tmp1=1;
- forall(1..length(reL),
- tmp=reL_#;
- if(tmp1==1,
- thick1=tmp;
- thick2=-tmp;
- ,
- thick2=tmp;
- );
- tmp1=tmp1+1;// 16.07.08
- );
- options=remove(options,reL);
- out=[];
- forall(1..length(pd),npd,
- forall(pd_npd_2,face,
- vtx=apply(face,pd_npd_1_#);
- npt=length(vtx);
- tmp1=vtx_1;
- tmp2=vtx_2;
- tmp3=vtx_npt;
- tmp=Crossprod(tmp2-tmp1,tmp3-tmp1);
- nv=tmp/Dist3d(tmp);
- tmp1=apply(vtx,#+thick1*nv);
- tmp2=apply(vtx,#+thick2*nv);
- vtx=concat(tmp1,tmp2);
- tmp=apply(1..npt,#+npt);
- tmp2=[1..npt,reverse(tmp)];
- tmp=apply(1..(npt-1),[#,#+npt,#+npt+1,#+1]);
- tmp2=concat(tmp2,tmp);
- tmp=[npt,npt+npt,1+npt,1];
- tmp2=append(tmp2,tmp);
- out=concat(out,["Objpolyhedron",[vtx,tmp2]]);
- );
- );
- tmp3="["; // 16.06.10from
- forall(out,tmp1,
- tmp2="";
- if(isstring(tmp1),
- tmp2=tmp2+Dq+tmp1+Dq+",[";
- ,
- tmp2=tmp2+Textformat(tmp1_1,5)+",";
- tmp2=tmp2+Textformat(tmp1_2,5)+"],";
- );
- tmp3=tmp3+tmp2;
- );
- tmp3=substring(tmp3,0,length(tmp3)-1)+"]";
- parse("oc"+nm+"="+tmp3);
- println("cmd seq oc"+nm+" generated");
- OBJCMD=concat(OBJCMD,out);//16.11.29
- out;
-);
-
-Mkobjcrvcmd(nm,pst):=Mkobjcrvcmd(nm,pst,[]);
-Mkobjcrvcmd(nm,pstorg,options):=(
-//help:Mkobjcrvcmd("1","sc3d1",[0.02,6,"xy"]);
- regional(cmd,out,thick,poly,dir,phead,pst,
- reL,stL,tmp,tmp1,tmp2,tmp3,tmp4,flg);
- thick=0.02;
- poly=6;
- dir="xy";
- tmp=Divoptions(options);
- reL=tmp_6;
- stL=select(tmp_7,length(#)>0);
- forall(1..length(reL),
- if(#==1,
- thick=reL_1;
- ,
- poly=reL_2;
- );
- );
- forall(stL,
- dir=#;
- );
- dir="'"+dir+"'";
- tmp=indexof(pstorg,"_");
- if(tmp==0,
- phead=pstorg;
- ,
- phead=substring(pstorg,0,tmp-1);
- );
- pst=pstorg;
- out=[];
- tmp1=select(GLIST,indexof(#,phead+"=")>0);
- if(length(tmp1)==0, println(phead+" incorrect"));
-// out=[tmp1_1,[]];
- out=[];
- tmp1=parse(pst);
- flg=0; // 16.04.23from
- if(MeasureDepth(tmp1)==2,flg=1);
- if(MeasureDepth(tmp1)==0,
- if(islist(tmp1),flg=1);
- );
- if(flg==1, // 16.04.23upto
- if(!isstring(tmp1_1),
- forall(1..length(tmp1),
- tmp=["Objcurve",[pst+"("+text(#)+")",thick,poly,dir]];
- out=concat(out,tmp);
- );
- ,
- forall(1..length(tmp1), // 16.11.14from
- tmp=["Objcurve",[tmp1_#,thick,poly,dir]];
- out=concat(out,tmp);
- );// 16.11.14upto
- );
- ,
- tmp1=Chunderscore(pst);
- tmp=["Objcurve",[tmp1,thick,poly,dir]];
- out=concat(out,tmp);
- );
- tmp2=[]; // 16.06.10from
- forall(out,tmp1,
- if(islist(tmp1),
- tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
- ,
- if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
- );
- tmp2=append(tmp2,tmp);
- );
- parse("oc"+nm+"="+tmp2);
- println("cmd seq oc"+nm+" generated"); // 16.06.10upto
- OBJCMD=concat(OBJCMD,out);//16.11.29
- out;
-);
-
-Mkobjsymbcmd(symb,size,rot,dir,pos):=
- Mkobjsymbcmd("",symb,size,rot,dir,pos,[]);
-Mkobjsymbcmd(Ar1,Ar2,Ar3,Ar4,Ar5,Ar6):=(
- if(isstring(Ar2),
- Mkobjsymbcmd(Ar1,Ar2,Ar3,Ar4,Ar5,Ar6,[]);
- ,
- Mkobjsymbcmd("",Ar1,Ar2,Ar3,Ar4,Ar5,Ar6);
- );
-);
-Mkobjsymbcmd(path,symborg,size,rot,dir,pos,optionorg):=(
-//help:Mkobjsymbcmd("x",0.5,0,V3d,A3d);
-//help:Mkobjsymbcmd("P",0.5,0,V3d,A3d);
-//help:Mkobjsymbcmd(options=[0.05,4,"'yz'"]);
- regional(symb,options,opbez,eqL,reL,stL,dtL,dt,
- alpha,Alpha,out,mx,Mx,my,My,center,tmp,tmp1,tmp2);
- alpha="abcdefghijklmnopqrstuvwxyz";
- Alpha=Toupper(alpha);
- symb=symborg;
- options=optionorg;
- opbez=["nodisp"];
- tmp=Divoptions(options);
- eqL=tmp_5;
- reL=tmp_6;
- stL=tmp_7;
- opbez=concat(opbez,eqL);
- options=remove(options,eqL);
- tmp1=[0.05,4,"'yz'"];
- if(length(reL)==0,
- options=concat(options,tmp1_(1..2));
- );
- if(length(reL)==1, // debugged 16.06.18
- options=concat(options,[tmp1_2]);
- );
- if(length(stL)==0,
- options=concat(options,[tmp1_3]);
- );
- tmp=parse(symb);
- if(islist(tmp),
- tmp1=select(GLIST,substring(#,0,length(symb))==symb);
- tmp1=tmp1_1;
- out=[tmp1,[]];
- dtL=symb;
- ,
- tmp=substring(symb,0,1);
- if(tmp>="a" & tmp<="z",tmp1=tmp+"s");
- if(tmp>="A" & tmp<="Z",
- tmp=indexof(Alpha,tmp);
- tmp=substring(alpha,tmp-1,tmp);
- tmp1=tmp+"c";
- );
- if(length(symb)==1,
- if(symb>"Z",
- symb=tmp1+"i";
- ,
- symb=tmp1+"r";
- );
- );
- if(length(symb)==2,symb=tmp1+substring(symb,1,2));
- out=[];
- if(length(path)>0, // 16.04.23from
- setdirectory(path);
- ,
-// tmp=Dirhead+"/ketsample/samples/s13meshlab/fontF";
- tmp=Dirhead+"/data/fontF"; // 16.05.10
- setdirectory(tmp);
- ); // 16.04.23upto
- dtL=Readbezier(symb,opbez);
- setdirectory(Dirwork);
- forall(dtL,dt,
- tmp=dt+"=";
- tmp1=select(GLIST,indexof(#,tmp)>0);
- tmp1=tmp1_1;
- out=concat(out,[tmp1,[]]);
- );
- mx=100;Mx=-100;my=100;My=-100;
- forall(dtL,dt,
- tmp=apply(parse(dt),#_1);
- mx=min(append(tmp,mx));
- Mx=max(append(tmp,Mx));
- tmp=apply(parse(dt),#_2);
- my=min(append(tmp,my));
- My=max(append(tmp,My));
- );
- center=[(mx+Mx)/2,(my+My)/2];
- tmp1=[];
- forall(dtL,dt,
- Rotatedata(dt,dt,rot,[center,"nodisp"]); // 16.04.23
- Translatedata(dt,"rt"+dt,-center,["nodisp"]);
- tmp1=append(tmp1,"tr"+dt);
- );
- dtL=tmp1;
- forall(dtL,dt,
- tmp=dt+"=";
- tmp1=select(GLIST,indexof(#,tmp)>0);
- tmp1=tmp1_1;
- out=concat(out,[tmp1,[]]);
- );
- );
- tmp1=text(options);
- tmp1=substring(tmp1,1,length(tmp1)-1);
- out=concat(out,[
- "Sd=Symb3data",[dtL,size,0,dir,pos], // 16.04.23
- "Objsymb(Sd,"+tmp1+")",[]
- ]);
- tmp2=[]; // 16.06.10from
- forall(out,tmp1,
- if(islist(tmp1),
- tmp=apply(tmp1,if(isstring(#),Dq+#+Dq,Textformat(#,5)));
- ,
- if(isstring(tmp1),tmp=Dq+tmp1+Dq,tmp=Textformat(#,5));
- );
- tmp2=append(tmp2,tmp);
- );
- parse("oc"+symborg+"="+tmp2);
- println("cmd seq oc"+symborg+" generated"); // 16.06.10upto
- OBJCMD=concat(OBJCMD,out);//16.11.29
- out;
-);
-
-Concatcmd(cmdlist):=(
-//help:Concatcmd([cmdL1,cmdL2]);
- regional(out);
- out=[];
- forall(cmdlist,
- out=concat(out,#);
- );
- out;
-);
-
-WritetoF(fname,cmdL):=(
-// help:WritetoF("outdata",cmdL);
- regional(tmp,tmp1,tmp2,filename,wfilename);
- if(indexof(fname,".")==0,
- filename=fname+".input";
- ,
- filename=fname;
- );
- wfilename=replace(filename,".input",".txt");
- SCEOUTPUT = openfile(filename);
- forall(1..(length(cmdL)),
- tmp1=cmdL_#;
- if(substring(tmp1,0,1)=="[",
- tmp1=tmp1+" --##";
- println(SCEOUTPUT,tmp1);
- ,
- println(SCEOUTPUT,tmp1);
- println(SCEOUTPUT," --##");
- );
- );
- closefile(SCEOUTPUT);
-);
-
-kcF(fname):=kcF(fname,[]);
-kcF(fname,optionorg):=(
- regional(options,tmp,tmp1,tmp2,eqL,strL,
- filename,wfile,flg);
- if(indexof(fname,".")==0,
- filename=fname+".input";
- ,
- filename=fname;
- );
- wfile=replace(filename,".input",".sfort");
- options=optionorg;
- tmp=Divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=substring(#,0,tmp-1);
- tmp2=substring(#,tmp,length(#));
- );
- flg=0;
- forall(strL,
- if(Toupper(substring(#,0,1))=="R",
- flg=0;
- options=remove(options,[#]);
- );
- if(Toupper(substring(#,0,1))=="M",
- flg=1;
- );
- );
- if(flg==0,
- tmp2=replace(filename,".input",".sfort");
- tmp1=load(tmp2);
- if(length(tmp1)==0,
- flg=1;
- );
- );
- if(flg==1,
- tmp1="";
- if(iswindows(),
- tmp2=Batparent;
- ,
- tmp2=Shellparent;
- );
- flg=0;
- forall(reverse(1..length(tmp2)),
- if(flg==0,
- tmp=substring(tmp2,#-1,#);
- if(tmp=="/" % tmp=="\", // 14.01.15
- tmp1=substring(tmp2,0,#-1);
- tmp2=substring(tmp2,#,length(tmp2));
- flg=1;
- );
- );
- );
- if(length(tmp1)>0,
- setdirectory(tmp1);
- );
- if(iswindows(),
-// SCEOUTPUT=openfile(wfile);
-// println(SCEOUTPUT,"");
-// closefile(SCEOUTPUT);
- SCEOUTPUT = openfile("kc.bat");
- tmp=Dq+PathF+"\bash"+Dq+" --login -i -c "+Dq+"/cygdrive/";
- tmp1=replace(Dirwork,"\","/");
- if(indexof(tmp1,":")==0,
- tmp=tmp+"c/"+tmp1+"/kc.sh"+Dq;
- ,
- tmp1=replace(tmp1,":","");
- tmp=tmp+tmp1+"/kc.sh"+Dq;
- );
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- SCEOUTPUT = openfile("kc.sh");
- Lf=unicode("10",base->10);
- print(SCEOUTPUT,"#!/bin/sh"+Lf);
- tmp1=replace(Dirwork,"\","/");
- if(indexof(tmp1,":")==0,
- tmp="cd "+Dq+"/cygdrive/c/"+tmp1+Dq;
- ,
- tmp1=replace(tmp1,":","");
- tmp="cd "+Dq+"/cygdrive/"+tmp1+Dq;
- );
- print(SCEOUTPUT,tmp+Lf);
- tmp=Dq+"/opt/fricas/bin/fricas";
- tmp=tmp+Dq+" -nox -eval ";
- tmp=tmp+Dq+")read "+filename+Dq;
-// tmp=tmp+" > "+Dq+wfile+Dq;
- print(SCEOUTPUT,tmp+Lf);
- print(SCEOUTPUT,"exit 0"+Lf);
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Batparent,Dirlib,Fnametex));// 16.05.29,06.05
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=Dq+PathF+Dq+" -nox -eval "+Dq+")read "+filename+Dq;
-// tmp=tmp+" > "+wfile;
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,Fnametex));// 16.05.29,06.05
- );
- setdirectory(Dirwork);
- );
-);
-
-CalcbyF(name,cmd):=CalcbyM(name,cmd,[]);
-CalcbyF(name,cmd,optionorg):=(
-//help:CalcbyF("a",cmdL);
-//help:CalcbyF(options= ["m/r","Wait=5"]]);
- regional(options,tmp,tmp1,tmp2,tmp3,tmp4,strL,eqL,
- flg,wflg,file,nc,arg,cmdF,cmdlist,wfile,Alpha,
- waiting,num,dig,varlist);
- options=optionorg;
- tmp=divoptions(options);
- eqL=tmp_5;
- strL=tmp_7;
- waiting=5;
- dig=5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,1));
- tmp2=substring(#,tmp,length(#));
- if(tmp1=="W",
- waiting=parse(tmp2);
- options=remove(options,[#]);
- );
- );
- file=Fhead+name+".input";
- wfile=Fhead+name+".sfort";
- wflg=0;
- forall(strL,
- tmp=Toupper(substring(#,0,1));
- if(tmp=="M",
- wflg=1;
- options=remove(options,[#]);
- );
- if(tmp=="R",
- wflg=-1;
- options=remove(options,[#]);
- );
- );
- cmdF=cmd;
- tmp1=")set breakmode quit";
- tmp2=")set output fortran on";
- tmp3=")set fortran precision single";
- cmdlist=[tmp1,tmp2,tmp3];
- tmp=")set output fortran "+wfile;
- cmdlist=append(cmdlist,tmp);
- forall(1..floor(length(cmdF)/2),nc, //17.5.18
- tmp1=cmdF_(2*nc-1);
- tmp1=replace(tmp1,LFmark,""); // 16.06.12
- tmp2=cmdF_(2*nc); // list of argments
- if(nc<length(cmdF)/2,
- tmp3="";
- forall(tmp2,arg,
- if(isstring(arg),
- tmp3=tmp3+arg+",";
- ,
- tmp3=tmp3+textformat(arg,dig)+",";
- );
- );
- if(length(tmp3)>0,
- tmp3=tmp1+
- "("+substring(tmp3,0,length(tmp3)-1)+")";
- ,
- tmp3=tmp1;
- );
- cmdlist=append(cmdlist,tmp3);
- ,
- if(indexof(tmp1,"::")==0,
- varlist=[tmp1];
- ,
- varlist=tokenize(tmp1,"::");
- );
- forall(varlist,
- cmdlist=append(cmdlist,"["+#+"]");
- );
- );
- );
- cmdlist=concat(cmdlist,["111111*1",")quit"]);
- if(wflg==0,
- tmp1=load(file);
- if(length(tmp1)==0,
- wflg=1;
- ,
- if(indexof(tmp1," --##")==0, // 15.11.26
- wflg=1;
- ,
- tmp1=tokenize(tmp1," --##");
- tmp1=tmp1_(1..(length(tmp1)-1));
- if(length(tmp1)!=length(cmdlist),
- wflg=1;
- ,
- tmp=select(1..length(tmp1),tmp1_#!=cmdlist_#);
- if(length(tmp)>0, wflg=1);
- );
- );
- );
- );
- if(wflg==0,wflg=-1);
- if(wflg==1,
- if(length(wfile)>0,
- SCEOUTPUT=openfile(wfile);
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- );
- WritetoF(file,cmdlist);
- kcF(file,concat(options,["m"]));
- );
- Alpha="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
- flg=0;
- tmp1=floor(waiting*1000/WaitUnit);
- repeat(tmp1,
- if(flg==0,
- tmp1=load(wfile);
- if(wflg==1,wait(WaitUnit));
- tmp=indexof(tmp1,"Error")+indexof(tmp1,"find");
- if(tmp>0,
- println("Some error(s) occurred");
- tmp=tokenize(tmp1," --##");
- forall(tmp,
- if(indexof(#,"Error")+indexof(#,"find")>0,
- println(tmp_(length(tmp)));
- );
- );
- flg=2;
- );
- if(indexof(tmp1,"111111")>0,
- tmp1=replace(tmp1," &","");
- tmp3="[";
- forall(1..length(varlist),
- tmp=indexof(tmp1,"["+varlist_#+"]");
- tmp1=substring(tmp1,tmp,length(tmp1));
- tmp=indexof(tmp1,"(1)=");
- tmp1=substring(tmp1,tmp+3,length(tmp1));
- tmp=indexof(tmp1," ");
- tmp3=tmp3+Dq+substring(tmp1,0,tmp-1)+Dq+",";
- );
- tmp3=replace(tmp3,"**","^");
- tmp3=replace(tmp3,".0","");
- tmp4="";
- forall(1..length(tmp3),
- tmp=substring(tmp3,#-1,#);
- tmp1=indexof(Alpha,tmp);
- if(tmp1>0,
- tmp4=tmp4+unicode(text(tmp1+96),base->10);
- ,
- if(tmp==" " % tmp=="&",
- ,
- tmp4=tmp4+tmp;
- );
- );
- );
- tmp=name+"="+substring(tmp4,0,length(tmp4)-1)+"]";
- parse(tmp);
- tmp=parse(name);
- if(length(tmp)==1,
- tmp1=substring(tmp4,1,length(tmp3)-1);
- parse(name+"="+tmp1);
- );
- flg=1;
- tmp2=#*WaitUnit/1000;
- ,
- if(wflg==-1,
- flg=-1;
- ,
- wait(WaitUnit);
- );
- );
- );
- );
- if(flg<=0,
- if(flg==-1,
- println(wfile+" does not exist");
- ,
- tmp="("+text(waiting)+" s )";
- tmp1=load(wfile);
- if(length(tmp1)>0,
- println(wfile+" incomplete"+tmp); // 2016.02.24
- ,
- println(wfile+" not generated "+tmp);
- );
- );
- ,
- if(flg==1,
- println(" Succeeded "+name+" ("+text(tmp2)+" sec)");
- );
- );
-);
-
-Frfun(name,fun,argL):=Frifun(name,fun,argL,[]);
-Frfun(name,fun,argL,optionorg):=Frifun(name,fun,argL,optionorg);
-Frifun(name,fun,argL):=Frifun(name,fun,argL,[]);
-Frifun(name,fun,argL,optionorg):=(
-//help:Frfun("1","integrate",["sin(x)^3","x"],[""]);
-//help:Mxfun(options=["Disp=y"]);
- regional(nm,options,eqL,disp,cmdL,tmp,tmp1,tmp2);
- nm="fri"+name;
- options=optionorg;
- tmp=divoptions(options);
- disp=1;
- eqL=tmp_5;
- forall(eqL,
- tmp=indexof(#,"=");
- tmp1=Toupper(substring(#,0,3));
- tmp2=substring(#,tmp,length(#));
- if((tmp1=="DIS") % (tmp1=="DSP") ,
- tmp=Toupper(substring(tmp2,0,1));
- if((tmp=="F") % (tmp=="N"),
- disp=0;
- );
- options=remove(options,[#]);
- );
- );
- cmdL=[];
- cmdL=concat(cmdL,[
- "ans"+":="+fun,argL,
- "ans",[]
- ]);
- CalcbyF(nm,cmdL,options);
- if(disp==1, // 15.11.24
- println(nm+" is : ");
- println(parse(nm));
- );
- parse(nm);
-);
-
-Mkketcindyjs():=Mkketcindyjs("ketcindylib"); //16.10.07,11.06
-Mkketcindyjs(Arg):=(
- if(isstring(Arg),
- Mkketcindyjs(Arg,[])
- ,
- Mkketcindyjs("ketcindylib",Arg)
- );
-);
-Mkketcindyjs(libname,options):=(
-//help:Mkketcindyjs("ketcindylib");
-//help:Mkketcindyjs(options="Tex=y","Net=y"]);
- regional(texflg,netflg,tmp,tmp1,tmp2);
- texflg="Y";
- netflg="Y";
- forall(options,
- tmp1=Toupper(#);
- if(indexof(tmp1,"TEX")>0,
- tmp=indexof(tmp1,"=");
- texflg=Toupper(substring(tmp1,tmp,tmp+1));
- );
- if(indexof(tmp1,"NET")>0,
- tmp=indexof(tmp1,"=");
- netflg=Toupper(substring(tmp1,tmp,tmp+1));
- );
- );
- SCEOUTPUT = openfile(Fhead+".sce");
- println(SCEOUTPUT,"cd('"+Dirhead+"/CindyJS);");
- println(SCEOUTPUT,"Dtket=mgetl('"+libname+".txt');");
- println(SCEOUTPUT,"cd('"+Dirwork+"');");
- println(SCEOUTPUT,"Dtjs=mgetl('"+Fhead+".html');");
- println(SCEOUTPUT,"Qt=char(34);");
- println(SCEOUTPUT,"Fb=0;Lb=0;Ka=0;");
- println(SCEOUTPUT,
- "for I=1:size(Dtjs,1)");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['<script id=','csinit']);");
- println(SCEOUTPUT,
- " if length(Tmp)>1 then Fb=I,end;");
- println(SCEOUTPUT,
- " if Fb>0 then");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),'</script>');");
- println(SCEOUTPUT,
- " if Tmp>0 then Lb=I,end;");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),'scripts: '+Qt+'cs*'+Qt+',');");
- println(SCEOUTPUT,
- " if Tmp>0 then Ka=I;break,end;");
- println(SCEOUTPUT,
- " end;");
- println(SCEOUTPUT,
- "end;");
- if(netflg=="N", //16.11.08from
- println(SCEOUTPUT,
- "for I=1:Fb");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['href=','CindyJS.css']);");
- println(SCEOUTPUT,
- " if length(Tmp)>1 then");
- println(SCEOUTPUT,
- " Tmp=part(Dtjs(I,:),1:(Tmp(1)+4))+Qt+'CindyJS.css'+Qt+'>';");
- println(SCEOUTPUT,
- " Dtjs(I,:)=Tmp;");
- println(SCEOUTPUT,
- " end;");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['src=','Cindy.js']);");
- println(SCEOUTPUT,
- " if length(Tmp)>1 then");
- println(SCEOUTPUT,
- " Tmp=part(Dtjs(I,:),1:(Tmp(1)+3))+Qt+'Cindy.js'+Qt+'></script>';");
- println(SCEOUTPUT,
- " Dtjs(I,:)=Tmp;");
- println(SCEOUTPUT,
- " end;");
- println(SCEOUTPUT,
- "end;");
- );//16.11.08upto
- println(SCEOUTPUT,
- "Dtket=[Dtjs(1:Fb,:);Dtket;Dtjs(Lb:Ka,:)];");
- if(texflg=="Y",
- println(SCEOUTPUT,
- "Dtket=[Dtket;' use: ['+Qt+'katex'+Qt+'],'];");
- );
- println(SCEOUTPUT, //16.11.08from
- "for I=Ka+1:size(Dtjs,1)");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['Button',Qt+'Figure']);");
- println(SCEOUTPUT,
- " if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['Button',Qt+'Exekc']);");
- println(SCEOUTPUT,
- " if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['Button',Qt+'Parent']);");
- println(SCEOUTPUT,
- " if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT,
- " Tmp=strindex(Dtjs(I,:),['Button',Qt+'KeTJS']);");
- println(SCEOUTPUT,
- " if length(Tmp)>1 then continue,end;");
- println(SCEOUTPUT,
- " Dtket=[Dtket;Dtjs(I,:)];");
- println(SCEOUTPUT,
- "end"); //16.11.08upto
-// println(SCEOUTPUT,
-// "Dtket=[Dtket;Dtjs((Ka+1):(size(Dtjs,1)),:)];");
- println(SCEOUTPUT,
- "mputl(Dtket,'"+Fhead+"ketcindy.html');");
- println(SCEOUTPUT,"quit()");
- closefile(SCEOUTPUT);
- kcS(PathS,Fhead+".sce",["m"]);
-);
-
-Cheader():=Cheader(FdC,FheadC+"header.h");
-Cheader(fdc,fname):=(
- regional(tmp,tmp1,tmp2,j, dW,dE,dS,dN,dstr,
- DsizeLL,DsizeL,DsizeM,DsizeS,Eps,Eps1,Eps2,Eps3);
- Mdv=50; Ndv=50;
- DsizeLL=15000; DsizeL=1500; DsizeM=500; DsizeS=200;
- Eps=0.00001; Eps1=0.05; Eps2=0.2; Eps3=1;
- SCEOUTPUT = openfile(fname);
- tmp=indexof(fdc_2,"=");
- tmp1=substring(fdc_2,tmp,length(fdc_2));
- tmp1=replace(tmp1,"[","{");
- tmp1=replace(tmp1,"]","}");
- tmp=indexof(fdc_3,"=");
- tmp2=substring(fdc_3,tmp,length(fdc_3));
- tmp2=replace(tmp2,"[","{");
- tmp2=replace(tmp2,"]","}");
- tmp="const double Urng[2]="+tmp1+", Vrng[2]="+tmp2;
- println(SCEOUTPUT,tmp+";");
- tmp="const double XMIN="+Sprintf(XMIN,6);
- tmp=tmp+",XMAX="+Sprintf(XMAX,6);
- println(SCEOUTPUT,tmp+";");
- tmp="const double THETA="+Sprintf(THETA,6);
- tmp=tmp+",PHI="+Sprintf(PHI,6);
- println(SCEOUTPUT,tmp+";");
- tmp=" //THETA:"+Sprintf(THETA*180/pi,2);
- tmp=tmp+", PHI:"+Sprintf(PHI*180/pi,2);
- println(SCEOUTPUT,tmp+";");
- dstr=fdc_4;
- if(indexof(dstr,"w")>0,dW=1,dW=0);
- if(indexof(dstr,"e")>0,dE=1,dE=0);
- if(indexof(dstr,"s")>0,dS=1,dS=0);
- if(indexof(dstr,"n")>0,dN=1,dN=0);
- tmp="const int DrawW="+text(dW)+", DrawE="+text(dE);
- tmp=tmp+", DrawS="+text(dS)+", DrawN="+text(dN);
- println(SCEOUTPUT,tmp+";");
- forall(j=5..(length(fdc)),
- tmp=fdc_#; //17.05.21from
- if(length(tmp)==2,
- if(tmp_1>1, //17.05.24from
- Mdv=tmp_1; Ndv=tmp_2;
- ,
- if(length(tmp_1)>0, Eps1=tmp_1);
- if(length(tmp_1)>0, Eps2=tmp_2);
- ); //17.05.24upto
- );
- if(length(tmp)==3,
- if(length(tmp_1)>0, DsizeLL=tmp_1);//17.06.09(3lines)
- if(length(tmp_2)>0, DsizeL=tmp_2);
- if(length(tmp_3)>0, DsizeM=tmp_3);
- );
- if(length(tmp)==4,
- if(min(tmp)<1,
- if(length(tmp_1)>0, Eps=tmp_1);
- if(length(tmp_2)>0, Eps1=tmp_2);
- if(length(tmp_3)>0, Eps2=tmp_3);
- if(length(tmp_4)>0, Eps3=tmp_4);
- ,
- if(length(tmp_1)>0, DsizeLL=tmp_1);
- if(length(tmp_2)>0, DsizeL=tmp_2);
- if(length(tmp_3)>0, DsizeM=tmp_3);
- if(length(tmp_4)>0, DsizeS=tmp_4);
- )
- );//17.05.21upto
- );
- tmp1=text(fdc_5_1);
- tmp2=text(fdc_5_2);
- tmp="const int Mdv="+text(Mdv)+", Ndv="+text(Ndv);
- println(SCEOUTPUT,tmp+";");
- tmp="#define DsizeLL "+text(DsizeLL);//17.05.21
- println(SCEOUTPUT,tmp);
- tmp="#define DsizeL "+text(DsizeL);
- println(SCEOUTPUT,tmp);
- tmp="#define DsizeM "+text(DsizeM);
- println(SCEOUTPUT,tmp);
- tmp="#define DsizeS "+text(DsizeS);
- println(SCEOUTPUT,tmp);
- tmp="const double Eps="+format(Eps,7);
- tmp=tmp+", Eps1="+format(Eps1,7);
- tmp=tmp+", Eps2="+format(Eps2,7);
- tmp=tmp+", Eps3= "+format(Eps3,7);
- println(SCEOUTPUT,tmp+";");
- tmp="void surffun(double u, double v, double pt[3]){";
- println(SCEOUTPUT,tmp);
- forall(fdc_1,
- tmp1=replace(#,"x=","pt[0]=");
- tmp1=replace(tmp1,"y=","pt[1]=");
- tmp1=replace(tmp1,"z=","pt[2]=");
- println(SCEOUTPUT," "+tmp1+";");
- );
- println(SCEOUTPUT,"}");
- closefile(SCEOUTPUT);
-);
-
-Cmain():=Cmain(FheadC+".c",MainC);
-Cmain(fname,cmdLorg):=(
-//help:MainC(writesfbd("sfbd");)
-//help:MainC(writeax("ax");)
-//help:MainC(writewire("wire" (,2), [10,10]);)
-//help:MainC(writewire("wire", [[0.5,1],[0,1,2]]]);)
-//help:MainC(writecut("sfcut","x+y+2*z-4");)
-//help:MainC(writesc("sl3d1");)
-//help:MainC(skeleton("sk",[objlist],[pltlist] (,width));)
-//help:MainC(writewire ptincrease (=2) are optional);)
- regional(cmdL, tmp,tmp1,tmp2,tmp3,tmp4,nL, nn,kk,jj, num, en,cmd,
- ax1,ax2,ax3,path, var,varh,file,fileh, flg, cutctr);
- path=Dirwork+"/"; //17.05.29from
- path=replace(path,"\","/");
- cmdL=cmdLorg;// 17.05.26from
- nL=select(1..(length(cmdL)),cmdL_#=="writeax");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- forall(1..(length(nL)),
- tmp2=cmdL_(nL_#+1);
- if(length(tmp2)==1,tmp2=append(tmp2,"Surf"));
- tmp=tmp2_1; // 17.06.08(5lines)
- if(substring(tmp,length(tmp)-2,length(tmp))!="3d",
- tmp=tmp+"3d";
- );
- tmp1=parse(tmp);
- tmp="axx="+textformat(tmp1_1,5);
- parse(tmp);
- tmp="axy="+textformat(tmp1_2,5);
- parse(tmp);
- tmp="axz="+textformat(tmp1_3,5);
- parse(tmp);
- tmp3=concat(tmp3,[
- "double "+tmp2_1+"[DsizeL][3];",[], //17.06.07(2lines)
- "double axx[3][3], axy[3][3], axz[3][3];",[],
- "spaceline",["axx"],
- "spaceline",["axy"],
- "spaceline",["axz"],
- tmp2_1+"[0][0]=0;",[],
- "appendd3(2,1,2,axx,"+tmp2_1+");",[],
- "appendd3(2,1,2,axy,"+tmp2_1+");",[],
- "appendd3(2,1,2,axz,"+tmp2_1+");",[],
- "writecrv",[tmp2_1,tmp2_2] //17.06.07
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );
- nL=select(1..(length(cmdL)),cmdL_#=="writesc");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- forall(1..(length(nL)),
- tmp2=cmdL_(nL_#+1);
- if(length(tmp2)==1,
- tmp2=[tmp2_1,"Surf"];
- );
- tmp3=concat(tmp3,[
- "double "+tmp2_1+"[DsizeL][3];",[], //17.06.07(2lines)
- "double "+tmp2_1+"h[DsizeL][3];",[],
- "spaceline",[tmp2_1],
- "writecrv",[tmp2_1,tmp2_2] //17.06.07
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );
- nL=select(1..(length(cmdL)),cmdL_#=="writesfbd");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- forall(1..(length(nL)),
- tmp2=cmdL_(nL_#+1);
- if(length(tmp2)==1,tmp2=append(tmp2,"Surf"));
- var=Dq+tmp2_1+"3d"+Dq;
- varh=Dq+tmp2_1+"h3d"+Dq;
- file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
- fileh=Dq+path+FheadC+tmp2_1+"h.txt"+Dq;
- tmp="Borderhiddendata";
- tmp3=concat(tmp3,[
- "double "+tmp2_1+"[DsizeL][3];",[], //17.06.09(6lines)
- "sfbdparadata",[tmp2_1],
- "output3h",[var, varh,file,tmp2_1],
- "dataindexd3",[3,tmp2_1,"din"],
- tmp2_2+"[0][0]=0;",[],
- "appendd3",[2,"din[1][0]","din[1][1]",tmp2_1,tmp2_2]
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );
- nL=select(1..(length(cmdL)),cmdL_#=="writecrv");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- forall(1..(length(nL)),
- tmp2=cmdL_(nL_#+1);
- if(length(tmp2)==1,tmp2=append(tmp2,"Surf"));
- var=Dq+tmp2_1+"3d"+Dq;
- varh=Dq+tmp2_1+"h3d"+Dq;
- file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
- tmp3=concat(tmp3,[
- "crvsfparadata",[tmp2_1,tmp2_2,1,"Crvdata"],
- tmp2_1+"[0][0]=0;",[], //17.06.09(3lines)
- "appendd3",[0,1,"length3(Crvdata)","Crvdata",tmp2_1],
- "output3h",[var, varh, file,tmp2_1]
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );
- nL=select(1..(length(cmdL)),cmdL_#=="writescrvonsf");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- forall(1..(length(nL)),
- tmp2=cmdL_(nL_#+1);
- if(length(tmp2)==1,tmp2=append(tmp2,"Surf"));
- var=Dq+tmp2_1+"3d"+Dq;
- varh=Dq+tmp2_1+"h3d"+Dq; //17.06.09(8lines)
- file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
- tmp3=concat(tmp3,[
- "double "+tmp2_1+"[DsizeL][3];",[],
- " crv3onsfparadata",[tmp2_1,tmp2_2,1,"Crvdata"],
- tmp2_1+"[0][0]=0;",[],
- "appendd3",[0,1,"length3(Crvdata)","Crvdata",tmp2_1],
- "output3h",[var,varh, file ,tmp2_1]
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );
- nL=select(1..(length(cmdL)),cmdL_#=="writecut");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- cutctr=0;
- forall(1..(length(nL)),
- cutctr=#;
- tmp2=cmdL_(nL_#+1);
- if(length(tmp2)==2,
- tmp2=[tmp2_1,"Surf",tmp2_2];
- );
- var=Dq+tmp2_1+"3d"+Dq;
- varh=Dq+tmp2_1+"h3d"+Dq; //17.06.09(10lines)
- file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
- tmp3=concat(tmp3,[
- "cutfun",[tmp2_3],
- "double "+tmp2_1+"[DsizeL][3];",[],
- "sfcutdata",[text(cutctr),"out"], //17.06.02
- "crv3onsfparadata",["out",tmp2_2,"Crvdata"],
- tmp2_1+"[0][0]=0;",[],
- "appendd3",[0,1,"length3(Crvdata)","Crvdata",tmp2_1],
- "output3h",[var, varh, file, tmp2_1]
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(nL_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );
- nL=select(1..(length(cmdL)),cmdL_#=="writewire");
- cmd=[];
- if(length(nL)>0,tmp3=cmdL_(1..(nL_1-1)),tmp3=[]);
- forall(1..(length(nL)),
- tmp2=cmdL_(nL_#+1);
- if(!isstring(tmp2_2),
- tmp2=[tmp2_1,"Surf",tmp2_2,tmp2_3];
- );
- var=Dq+tmp2_1+"3d"+Dq;
- varh=Dq+tmp2_1+"h3d"+Dq; //17.06.09
- file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
- tmp4=tmp2_(length(tmp2)); num=2;
- if(!islist(tmp4),
- num=tmp4; tmp4=tmp2_(length(tmp2)-1);
- );
- if(!islist(tmp4_1),
- tmp3=concat(tmp3,[
- "double udv[2]={-1,"+text(tmp4_1)+"};",[]
- ]);
- ,
- len=length(tmp4_1);
- tmp="double udv["+text(len+1)+"]={"+text(len)+",";
- forall(tmp4_1,
- tmp=tmp+format(#,5)+",";
- );
- tmp=substring(tmp,0,length(tmp)-1)+"};";
- tmp3=concat(tmp3,[tmp,[]]);
- );
- if(!islist(tmp4_2),
- tmp3=concat(tmp3,[
- "double vdv[2]={-1,"+text(tmp4_2)+"};",[]
- ]);
- ,
- len=length(tmp4_2);
- tmp="double vdv["+text(len+1)+"]={"+text(len)+",";
- forall(tmp4_2,
- tmp=tmp+format(#,5)+",";
- );
- tmp=substring(tmp,0,length(tmp)-1)+"};";
- tmp3=concat(tmp3,[tmp,[]]);
- );
- tmp3=concat(tmp3,[
- "double "+tmp2_1+"[DsizeLL][3];",[], //17.06.09(5lines)
- "wireparadata",["Surf", "udv","vdv", num, "Wiredata"],
- tmp2_1+"[0][0]=0;",[],
- "appendd3",[0,1,"length3(Wiredata)","Wiredata",tmp2_1],
- "output3h",[var, varh, file, tmp2_1]
- ]);
- cmd=concat(cmd,tmp3);
- if(#<length(nL),
- tmp3=cmdL_((nL_#+2)..(tmp_(#+1)-1));
- ,
- tmp3=cmdL_((nL_#+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );
- );// 17.05.29upto
- nL=select(1..(length(cmdL)),cmdL_#=="skeleton");// 17.06.05from
- cmd=[];
- if(length(nL)>0,
- tmp3=cmdL_(1..(nL_1-1));
- tmp3=concat(tmp3,["double sk[DsizeLL][3];",[]]);//17.06.13
- ,
- tmp3=[];
- );
- forall(1..(length(nL)),nn,
- tmp2=cmdL_(nL_nn+1);
- var=Dq+tmp2_1+"3d"+Dq;
- file=Dq+path+FheadC+tmp2_1+".txt"+Dq;
- tmp3=concat(tmp3,[ //17.06.08from
- "data[0][0]=0;",[]
- ]);
- forall(tmp2_2,
- if(substring(#,length(#)-1,length(#))!="h",
- tmp1=#;
- tmp=[0,"din[1][0]","din[1][1]",tmp1,"data"];
- ,
- tmp1=substring(#,0,length(#)-1);
- tmp=[0,"din[2][0]","din[2][1]",tmp1,"data"];
- );
- tmp3=concat(tmp3,[
- "dataindexd3",[3,tmp1,"din"],
- "appendd3",tmp
- ]);
- );
- forall(1..(length(tmp2_3)),
- if(substring(tmp2_3_#,length(tmp2_3_#)-1,length(tmp2_3_#))!="h",
- tmp1=tmp2_3_#;
- tmp=[0,"din[1][0]","din[1][1]",tmp1,"data"];
- ,
- tmp1=substring(tmp2_3_#,0,length(tmp2_3_#)-1);
- tmp=[0,"din[2][0]","din[2][1]",tmp1,"data"];
- );
- tmp3=concat(tmp3,[
- "push3",["Inf",3,0,"data"],
- "dataindexd3",[3,tmp1,"din"],
- "appendd3",tmp
- ]);
- );
- if(length(tmp2)<=3,tmp=1,tmp=tmp2_4);
- tmp3=concat(tmp3,[
- "skeletondata3",["data", tmp, "Eps1","Eps2","sk"],//17.06.13
- "output3",[var, file, 2, "sk"]
- ]);
- cmd=concat(cmd,tmp3);
- if(nn<length(nL),
- tmp3=cmdL_((nL_nn+2)..(nL_(nn+1)-1));
- ,
- tmp3=cmdL_((nL_nn+2)..(length(cmdL)));
- cmdL=concat(cmd,tmp3);
- );//17.06.08upto
- );// 17.06.05upto
- path=DirlibC+"/";
- path=replace(path,"\","/");
- cmd=[
- "#include <stdio.h>", "#include <math.h>",
- "#include "+Dq+FheadC+"header.h"+Dq,
- "#include "+Dq+path+"ketcommon.h"+Dq,
- "#include "+Dq+path+"surflibhead.h"+Dq,
- "#include "+Dq+path+"surflib.h"+Dq,
- "int main(void){",
- " double out[DsizeL][3], data[DsizeLL][3];", //17.06.10
- " int i, j, nall, din[DsizeS][2];" //17.06.09
- ];
-// tmp=select(cmdL,#=="cutfun");
-// if(length(tmp)==0,
- if(cutctr==0, //17.06.02
- cmdL=prepend(["1"],cmdL);
- cmdL=prepend("cutfun",cmdL);
- );// 17.05.26upto
- cutctr=0;
- forall(1..(floor(length(cmdL))/2),nn,
- tmp1=cmdL_(2*nn-1); tmp2=cmdL_(2*nn);
- flg=0; // 17.05.26from
- if(tmp1=="cutfun",
- cutctr=cutctr+1;
- tmp=select(1..(length(cmd)), indexof(cmd_#,"main")>0);
- tmp3=cmd_((tmp_1)..(length(cmd)));
- cmd=cmd_(1..(tmp_1-1));
- cmd=append(cmd,"double cutfun"+text(cutctr)+"(double u, double v){");
- cmd=append(cmd," double p[3],val;");
- cmd=append(cmd," surffun(u,v,p);");
- tmp=" val="+assign(tmp2_1,["x","p[0]","y","p[1]","z","p[2]"])+";";
- cmd=concat(cmd, [tmp," return val;", "}"]);
- cmd=concat(cmd, tmp3);
- flg=1;
- );
- if(tmp1=="xyzax3data",
- tmp=" "+tmp1+"(";
- tmp=tmp+textformat(tmp2_1_1_1_1,5)+",";
- tmp=tmp+textformat(tmp2_1_1_2_1,5)+",";
- tmp=tmp+textformat(tmp2_1_2_1_2,5)+",";
- tmp=tmp+textformat(tmp2_1_2_2_2,5)+",";
- tmp=tmp+textformat(tmp2_1_3_1_3,5)+",";
- tmp=tmp+textformat(tmp2_1_3_2_3,5)+",";
- tmp=tmp+tmp2_2+");";
- cmd=append(cmd,tmp);
- flg=1;
- );
- if(tmp1=="spaceline",
- if(!isstring(tmp2_1),
- println(tmp2_1+" should be assgined as a string");
- ,
- tmp3=parse(tmp2_1);
- tmp=text(length(tmp3)+1);
-// cmd=append(cmd, " double "+tmp2_1+"["+tmp+"][3];");
- tmp=text(length(tmp3));
- cmd=append(cmd, " "+tmp2_1+"[0][0]="+tmp+";");
- forall(1..(length(tmp3)),
- tmp=" "+tmp2_1+"["+text(#)+"][0]="+textformat(tmp3_#_1,5)+",";
- tmp=tmp+tmp2_1+"["+text(#)+"][1]="+textformat(tmp3_#_2,5)+",";
- tmp=tmp+tmp2_1+"["+text(#)+"][2]="+textformat(tmp3_#_3,5)+";";
- cmd=append(cmd,tmp);
- );
- );
- flg=1;
- );
- if(flg==0,
- tmp=" "+tmp1;
- if(length(tmp2)>0,
- tmp=tmp+"(";
- forall(1..length(tmp2),kk,
- if(isstring(tmp2_kk),
- if((kk==1)&(substring(tmp1,0,5)=="write"),
- file=path+FheadC+tmp2_kk+".txt";
- fileh=path+FheadC+tmp2_kk+"h.txt";
- tmp=tmp+Dq+tmp2_kk+Dq+","+Dq+file+Dq+","+Dq+fileh+Dq;
- ,
- tmp=tmp+tmp2_kk;
- );
- ,
- if(!islist(tmp2_kk),
- tmp=tmp+textformat(tmp2_kk,5);
- ,
- );
- );
- if(kk<length(tmp2),
- tmp=tmp+",";
- ,
- tmp=tmp+");";
- );
- );
- );
- cmd=append(cmd, tmp);// 17.05.26upto
- );
- );
- tmp=select(1..(length(cmd)), indexof(cmd_#,"main")>0);//17.06.02from
- tmp3=cmd_((tmp_1)..(length(cmd)));
- cmd=cmd_(1..(tmp_1-1));
- cmd=append(cmd,"double cutfun(int ch, double u, double v){");
- cmd=append(cmd," double val;");
- forall(1..cutctr,
- tmp=text(#);
- cmd=append(cmd," if(ch=="+tmp+"){val=cutfun"+tmp+"(u,v);}");
- );
- cmd=concat(cmd,[" return val;", "}"]);
- cmd=concat(cmd, tmp3);//17.06.02upto
- cmd=concat(cmd, [" return 0;", "}"]);
- SCEOUTPUT = openfile(fname);
- forall(cmd,
- println(SCEOUTPUT,#);
- );
- closefile(SCEOUTPUT);
- tmp=fileslist(Dirwork); // 17.05.20from
- tmp=tokenize(tmp,",");
- tmp=select(tmp,indexof(#,".txt")>0);
- tmp=select(tmp,indexof(#,FheadC)>0);
- forall(tmp,
- SCEOUTPUT = openfile(#);
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- ); // 17.05.20upto
-);
-
-kcC():=kcC(FheadC);
-kcC(cname):=(
- regional(tmp, tmp1, flg);
- if(iswindows(),
- SCEOUTPUT = openfile("kc.bat");
- println(SCEOUTPUT,"set path="+Dirwork);
- tmp=Indexall(PathC,"\");
- if(length(tmp)==0, tmp=ndexall(PathC,"/"));
- tmp1=substring(PathC,0,tmp_(length(tmp))-1);
- println(SCEOUTPUT,"cd "+tmp1);
- tmp=PathC+" %path%\"+cname+".c";
- tmp=tmp+" -o %path%\main.exe";
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"%path%\main.exe");
- println(SCEOUTPUT,"echo //// > %path%\resultC.txt");
- println(SCEOUTPUT,"exit");
- closefile(SCEOUTPUT);
- tmp=cname+".txt";
- println(kc(Dirwork+Batparent,Mackc+Dirlib,tmp));
- ,
- SCEOUTPUT = openfile("kc.sh");
- println(SCEOUTPUT,"#!/bin/sh");
- println(SCEOUTPUT,"cd "+Dq+Dirwork+Dq);
- tmp=PathC+" "+cname+".c -o main.out";
- println(SCEOUTPUT,tmp);
- println(SCEOUTPUT,"./main.out");
- println(SCEOUTPUT,"echo //// > resultC.txt");
- println(SCEOUTPUT,"exit 0");
- closefile(SCEOUTPUT);
- tmp=cname+".txt";
- println(kc(Dirwork+Shellparent,Mackc+Dirlib,tmp));
- );
- SCEOUTPUT=openfile("resultC.txt");
- println(SCEOUTPUT,"");
- closefile(SCEOUTPUT);
- flg=0;
- repeat(floor(10*1000/WaitUnit),
- if(flg==0,
- tmp1=load("resultC.txt");
- if(substring(tmp1,0,4)=="////",
- flg=1;
- );
- wait(WaitUnit);
- );
- );
- if(flg==0,
- println("Ckc not completed");
- ,
- println("Ckc succeeded");
- );
-);
-
-ReadCdata(var, fname):=ReadCdata(var, fname,[]);
-ReadCdata(var, fname,options):=(
- regional(file,dt,name,str,tmp,tmp1,opstr,gout, out3,out2);
- if(indexof(fname,".")==0,
- file=fname+".txt";
- name=fname;
- ,
- file=fname;
- tmp=indexof(fname,".");
- name=substring(fname,0,tmp-1);
- );
- tmp=Divoptions(options);
- opstr=tmp_8;
- gout=ReadOutData(file);
- GLIST=Append(GLIST,"Tmpstr=ReadOutData("+Dq+file+Dq+")");//17.06.16from
- GLIST=Append(GLIST,"execstr(Tmpstr)");
- if(substring(var,length(var)-1,length(var))!="h",
- if(length(parse(gout_1))>0,
- Projpara(var+"3d",options);
- );
- ,
- if(length(parse(gout_2))>0,
- Projpara(var+"3d",options);
- );
- );//17.06.16upto
-);
-
-WriteCdata(fnameorg,dataorg):=(
-//help:WriteCdata(filename, 3ddata);
- regional(tmp,fname,data,kk,nn,pt);
- data=dataorg;
- if(isstring(data),data=parse(data));
- if(MeasureDepth(data)==1,data=[data]);
- fname=fnameorg;
- if(indexof(fname,".")==0, fname=fname+".txt");
- SCEOUTPUT=openfile(fname);
- forall(1..(length(data)),kk,
- forall(1..(length(data_kk)),nn,
- pt=apply(1..3,Sprintf(data_kk_nn_#,5));
- tmp=pt_1+" "+pt_2+" "+pt_3;
- println(SCEOUTPUT,tmp);
- );
- if(kk<length(data),
- println(SCEOUTPUT,"99999.00000 2.00000 0.00000");
- );
- );
- closefile(SCEOUTPUT);
-);
-
-DisplayC():=DisplayC(DispC);
-DisplayC(name,options):=DisplayC([name,options]);
-DisplayC(dispc):=(
-//help:DisplayC("out",["Color=[1,0,0]");
-//help:DispC(options=["dr", "Color=[0,0,0]"])
- regional(tmp,tmp1,cflg,var, file,options,eqL,opcindy,color);
- forall(1..(floor(length(dispc)/2)), //17.05.18
- var=dispc_(2*#-1); // 17.05.24
- if(substring(var,length(var)-1,length(var))!="h",//17.06.09(5lines)
- file=FheadC+var+".txt";
- ,
- file=FheadC+substring(var,0,length(var)-1)+".txt";
- );
- options=dispc_(2*#);
- cflg=0;
- tmp=Divoptions(options);//17.06.18from
- eqL=tmp_5;
- opcindy=tmp_9;
- forall(eqL,
- if(Toupper(substring(#,0,2))=="CO",
- tmp=indexof(#,"=");
- color=substring(#,tmp,length(#));
- if(substring(color,0,1)=="[",
- color=parse(color);
- if(length(color)==3,
- tmp1="color->"+text(color);
- ,
- tmp=Colorcode("rgb","cmyk",color);
- tmp1="color->"+text(tmp);
- );
- options=append(options,tmp1);
- );
- options=remove(options,[#]);
- cflg=1;
- );
- );
- if(cflg==1,
- Texcom("{");
- Setcolor(color);
- );
- ReadCdata(var,file,options);// 17.05.24
- if(cflg==1,
- Texcom("}");
- );
- );
-);
-
-//help:end();
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketcindyliboutlog.txt b/texmf-dist/scripts/ketpic/ketlib/ketcindyliboutlog.txt
deleted file mode 100644
index 1e4a426e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketcindyliboutlog.txt
+++ /dev/null
@@ -1,325 +0,0 @@
-//// s:2017.08.26
-//// MkketcindyJS ( data/js => CindyJS )
-// s:2017.07.02
-// MkketcindyJS ( Texview => Figure )
-// s:2017.06.23
-// MainC changed (ax1 => axx ,etc)
-// s:2017.06.16
-// Mxload added
-// ReadCdata debugged (for null list )
-// s:2017.06.13
-// Cmain changed (skeleton : sk1,2 -> sk)
-// s:2017.06.10
-// Cmain debugged(skeleton "data" should be declared commonly)
-// s:2017.06.09
-// Cmain, Cheader changed (output3h used )
-// s:2017.06.08
-// Cmain changed (skeleton finished )
-// s:2017.06.07
-// Cmain debugged ( ax3d ) /changed ( local data name)
-// s:2017.06.05
-// Cmain changed ( for skeleton)
-// s:2017.06.02
-// ReadCdata debugged ( for hiddenfile )
-// s:2017.05.29
-// DisplayC changed ( DisplayC(name,options) supported )
-// Cmain changed ("write..." are resolved in Cmain)
-// s:2017.05.27
-// Cmain changed (coding arranged)
-// s:2017.05.25
-// Cmain changed (cmd list, surfcut)
-// s:2017.05.24
-// Cmain changed ("write" changed)
-// Cheader changed (options)
-// ReadCdata3 changed
-// s:2017.05.23
-// Cmain changed (point number option)
-// s:2017.05.21
-// Cheader debugge ( Assignment of values)
-// s:2017.05.20
-// Cmain changed (files reset, param for writewire)
-// ReadCdata3 changed ( for blank data )
-// s:2017.05.18
-// CalcbyS,... changed (/2 => floor( /2))
-// DisplayC changed (color option added, floor(./2))
-// changed
-// s:2017.05.15
-// WriteCdata added
-// s:2017.05.14
-// Cheader,Cmain, kcC, ReadCdata3, DisplayC added
-// s:2017.04.14
-// ErrhandleS changed (nothing for scilab6)
-// s:2017.04.13
-// Mkviewobj changed (Error message when Setobj not defined )
-// s:2017.04.08
-// bugs fixed
-// s:2017.03.29
-// kcM changed ( for Maxima version >3.38 )
-// s:2017.02.19
-// Readcsv debugged ( waiting removed )
-// s:2017.02.09
-// Writecsv changed ( for double list )
-// Readcsv changed ( for sigle column )
-// s:2017.01.13
-// Setobj added (=Objname)
-// s:2017.01.12
-// WritetoS changed (English message for Windows )
-// s:2016.12.27
-// Mkviewobj debugged ( = )
-// s:2016.12.23
-// Hatchdata,Dotfilldata,... debugged ( "=.." => name+"=... )
-// s:2016.12.20
-// CalcbyR changed (in case of Cat!="Y" )
-// Readcsv changed (Both R and Scilab available with "Use=",
-// Flat option added )
-// s:2016.12.18
-// CalcbyS debugged (in case of Cat!="Y" )
-// s:2016.12.13
-// CalcbyS changed ( LFmark )
-// s:2016.12.12
-// Readcsv changed ( csv option added )
-// s:2016.12.11
-// CalcbyS debugged
-// Readcsv rewritten ( CalcbyS used )
-// s:2016.11.29
-// Mkobj... changed (OBJCMD added )
-// Objname(option) added
-// s: 2016.11.25
-// CalcbyR changed(about .txt file, cat="yes"(default),"no","middle")
-// s: 2016.11.24
-// CalcbyS changed(about .txt file, cat="yes","no","middle"(default))
-// s: 2016.11.22
-// CalcbyS debugged ( comment out : wfile when cat!="Y")
-// s: 2016.11.14
-// CalcbyS changed ( wfile when cat!="Y")
-// Mkobjcrvcmd changed ( for a string of a list of strings )
-// s: 2016.11.13
-// CalcbyS, CalcbyR debugged ( wflg==0 & cat!="Y")
-// s: 2016.11.08
-// Mkketcindy changed ( Buttons of KeTCindy removed)
-// Mkketcindy changed ( "Net=" option)
-// s: 2016.11.06
-// Mkketcindy debugged
-// s: 2016.10.29
-// CalcbyR debugged ( case of "Cat=no" )
-// s: 2016.10.28
-// CalcbyR changed ( options(digits=,,,) added)
-// s: 2016.10.24
-// Dataframe added
-// CalcbyR changed ( for only 1 value)
-// s: 2016.10.23
-// CalcbyS changed ( = in last line )
-// CalcbyR changed ( for output in list, vector,matrix)
-// MkketcindyJS changed ( libname )
-// MkketcindyJS changed ( libname )
-// s: 2016.10.22
-// Scifun, Rfun added
-// err => println
-// kcR,CalcbyR changed ( error message )
-// s: 2016.10.21
-// Help of Dotfilldata changed
-// s: 2016.10.20
-// kcR changed (for pathR)
-// s: 2016.10.13
-// Mkketcindyjs changed (for katex)
-// s: 2016.10.07
-// Mkketcindyjs added
-// s: 2016.10.04
-// Mkviewobj, Mkobjplate, Changeobjscale debugged
-// s: 2016.09.18
-// Histplot(help) debugged
-// s: 2016.08.09
-// CalcbyS changed ( |||| added )
-// s: 2016.07.08
-// Mkobjpoly,Mkobjplate debugged( option thick1,thick2 )
-// s: 2016.07.07
-// CalcbyR debugged( add "####" at setwindow )
-// s: 2016.06.30
-// Mkviewobj changed ( Changeobjscale executed when "Unit=.." )
-// s: 2016.06.27
-// Mkobjplatecmd debugged ( nv )
-// s: 2016.06.26
-// CalcbyS re-debugged and chaged ( case of "Cat=n", "File=" added )
-// Changeobjscale changed
-// WritetoS, WritetoR changed ( Setwindow added )
-// Changeobjscale majorly revised ( Scilab mainly used )
-// s: 2016.06.25
-// CalcbyS debugged ( case of "Cat=n" )
-// Changeobjscale added
-// s: 2016.06.19
-// Mkobjplatecmd debugged
-// s: 2016.06.18
-// Mkobjplatecmd added
-// Mkobjsymbcmd debugged ( rel > reL )
-// s: 2016.06.17
-// Mkobjpoiycmd,Mkobjsymbcmd changed (Help modified)
-// s: 2016.06.13
-// CalcbyM changed (Oprion Line=1000 )
-// s: 2016.06.12
-// CalcbyS,... changed ( LFmark removed )
-// s: 2016.06.08
-// Mkobjnrm debugged ( option eqL )
-// s: 2016.06.07
-// kcA,kcS,kcM,kcR,kcF,kcV3 changed ( kc(,Mackc+,) )
-// s: 2016.06.05
-// kcA,kcS,kcM,kcR,kcF,kcV3 changed ( kc(,,) )
-// s: 2016.06.03
-// Calcby. changed ( name added after "suceeded" )
-// s: 2016.05.29
-// kcA,kcS,kcM,kcR,kcF,kcV3 changed ( kc(Dirwork+ ) )
-// s: 2016.05.27
-// MxtexL added ( for the list of expressions )
-// s: 2016.05.26
-// AsirfunO changed ( Process implemented )
-
-//////////////
-// s: 2015.11.05 v2.1.0
-// Divided from ketcindylib
-// kcR, kcS changed ( waiting removed )
-// PlotdataS added
-// e: 2015.11.07 v2.1.1
-// Readcsv, .., changed ( for case of non-exiting file )
-// e: 2015.11.10 v2.1.2
-// Boxplot, Readcsv, Hatchdata debugged ( directory of input file )
-// e: 2015.11.11
-// Boxplot, Readcsv, Hatchdata re-debugged ( directory of input file )
-// e: 2015.11.17
-// WritetoA, kcA, CalcbyA, Asirfun added
-// e:2015.11.18
-// WritetoA, kcA, CalcbyA, Asirfun changed ( PathA )
-// CalcbyA changed ( ' for Dq=" )
-// Asirfun changed ( name adde )
-// e:2015.11.19
-// kcA changed ( for windows )
-// CalcbyR,CalcbyS changed ( ' for Dq )
-// CalcbyA changed ( a big number represented as string )
-// e:2015.11.20
-// Asirfun changed ( precise option added )
-// e:2015.11.21
-// MkprecommandS debugged
-// e:2015.11.22
-// WritetoM, kcM, CalcbyM, Mxfun added
-// PathA change ( to full path )
-// e:2015.11.23
-// CalcbyM changed ( for "+d")
-// e:2015.11.24
-// CalcbyM changed ( for windows)
-// Asirfun, Mxfun changed ( Disp, Pack options )
-// Example added
-// Mxfun changed ( Set option )
-// e:2015.11.25
-// changed "fortran" to "disp"
-// kcM changed ( for windows )
-// e:2015.11.26
-// CalcbyA, CalcbyB changed ( for wflg=0)
-// e:2015.11.27
-// AsirfunO added
-// e:2015.12.06
-// CalcbyS, CalcbyR, CalcbyM,CalcbyA changed
-// ( for length(tmp1)!=length(cmdlsit) )
-// e:2015.12.07
-// SetpathS changed ( Dirlib => Dirbin )
-// e:2015.12.11
-// SetpathS changed ( for autosetting )
-// e:2016.01.07
-// Mxtex added
-// e:2016.01.10
-// Mxtex debugged
-// kcS debugged ( for Windows )
-// e:2016.01.18
-// Mxtex debugged
-// e:2016.01.25
-// Mxtex debugged ( regional )
-// e:2016.01.30
-// MkprecommandR, MkprecommandS debugged ( -0 and 0 )
-// e:2016.02.01
-// MkprecommandR, MkprecommandS changed ( prec option added )
-// e:2016.02.03
-// MkprecommandR, MkprecommandS debugged ( sorting of VLIST )
-// AsfunO, Asfun supported
-// e:2016.02.08
-// Mxfun changed ( option PACK or LOAD)
-// e:2016.02.14
-// Hatchdata debugged ( bug of ["ii","oo"] for example)
-// e:2016.02.16
-// Dotfilldata added
-// e:2016.02.19
-// Mxtex debugged ( options )
-// e:2016.02.23
-// WritetoM, CalcbyM changed ( option "All=y" added for error )
-// CalcbyM changed ( ` changed to ' )
-// e:2016.02.24
-// CalcbyM changed ( if errors occurred, output displayed under "All=y" )
-// e:2016.02.26
-// CalcbyM changed ( defalut of All changed to "y" )
-// e:2016.02.29
-// ErrhandleS added
-// CalcbyS changed ( "Error" option )
-// Implicitplot changed ( "Mx" option added )
-// e:2016.03.01
-// Mxtex changed ( Set & Ord option added )
-// e:2016.03.02
-// PlotdataS,Implicitdata changed ( equalized )
-// e:2016.03.03
-// CalcbyM changed ( replacement ' abolished )
-// e:2016.03.05
-// Hatchdata changed ( "Error" added )
-// e:2016.03.09
-// Implicitplot, Hatchdata changed ( "Out=" option readded)
-// e:2016.03.11
-// WritetoA,AsirfunO changed ( ooshima lib read in AsirfunO)
-// e:2016.03.12
-// CalcbyM changed (output for "Cat=y")
-// kcV3,Mkviewobj added
-// e:2016.03.12
-// kcV3,Mkviewobj debugged/changed
-// e:2016.03.14
-// Mkviewobj changed ( repetition of Meshlab avoided )
-// e:2016.03.15
-// Mkviewobj changed ( for making from objlist )
-// Implicitplot changed ( error handling)
-// e:2016.03.17
-// WritetoF,kcF,CalcbyF,Frifun added
-// e:2016.03.26
-// kcF changed ( added for windows )
-// e: 2016.04.04
-// PlotdataS, Implicitplot changed (Addgraph added )
-// e: 2016.04.06
-// Hatchdata changed (Chunderscore added )
-// e: 2016.04.14
-// Mkobjcmd added
-// e:2016.04.15
-// Mkobjthickcmd, Mkobjnrm, Mkobjcrvcmd added
-// Mkobjcrvcmd, Concatcmd added
-// e:2016.04.17
-// Mkobjsymbcmd added
-// e:2016.04.20
-// Mkobjnrm,Mkobjthickcmd changed
-// e:2016.04.21
-// Mkobjnrm,Mkobjthickcmd changed (precmd added , option "simp" unused)
-// e:2016.04.22
-// Mkobjpolycmd added
-// e:2016.04.23
-// Mkviewobj,Mkobjpolycmd,Mkobjcrvcmd,Mkobjsymbcmd changed
-// MkprecommandR debugged
-// e:2016.04.26
-// CalcbyM changed ( Indexall used)
-// e:2016.04.29
-// Mxbatch added
-// e:2016.04.30
-// Mkobjnrm changed ( twice )
-// Mxbatch debugged
-// e:2016.05.02
-// Mkobjnrm changed ( Out= , disp option )
-// e:2016.05.10
-// Mkobjsymbcmd changed ( defaut path changed )
-// e:2016.05.12
-// Mkobjnrm changed ( name => "nrm"+nm )
-// e:2016.05.18
-// WritetoA changed ( output )
-// CalcbyA changed ( ; supported )
-// e:2016.05.1
-// Testfunstr debugged ( ".x", ".y" )
-////// To Reverse sequence //////
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Addcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Addcounter.bin
deleted file mode 100644
index c1e3ef24..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Addcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Anglemark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Anglemark.bin
deleted file mode 100644
index 8b094651..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Anglemark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowdata.bin
deleted file mode 100644
index 2af2be64..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowhead.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowhead.bin
deleted file mode 100644
index f4101b32..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowhead.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowheaddata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowheaddata.bin
deleted file mode 100644
index 3640469b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowheaddata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowline.bin
deleted file mode 100644
index 0d68e6d0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Arrowline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assign.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assign.bin
deleted file mode 100644
index 3f243306..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assign.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignadd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignadd.bin
deleted file mode 100644
index 99a0cecd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignrep.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignrep.bin
deleted file mode 100644
index 47ac2ac9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignrep.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignset.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignset.bin
deleted file mode 100644
index afb1b3bc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Assignset.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Beginpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Beginpicture.bin
deleted file mode 100644
index 81625f07..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Beginpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezier.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezier.bin
deleted file mode 100644
index 1e8b41fb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezier.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezierpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezierpt.bin
deleted file mode 100644
index f146b511..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bezierpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderHiddenData.bin
deleted file mode 100644
index bb466f84..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderPt.bin
deleted file mode 100644
index 80964b1c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/BorderPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderparadata.bin
deleted file mode 100644
index 94cfb714..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderpersdata.bin
deleted file mode 100644
index bee787d9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderrawdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderrawdata.bin
deleted file mode 100644
index f53ad324..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Borderrawdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowdata.bin
deleted file mode 100644
index 05a4fb2e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowmiddle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowmiddle.bin
deleted file mode 100644
index bc02de52..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowmiddle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowname.bin
deleted file mode 100644
index 77aa840f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bowname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bownamerot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bownamerot.bin
deleted file mode 100644
index 49978903..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Bownamerot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcHeight.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcHeight.bin
deleted file mode 100644
index 5e3f28b9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcHeight.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcWidth.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcWidth.bin
deleted file mode 100644
index 426023be..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CalcWidth.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Calcfun.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Calcfun.bin
deleted file mode 100644
index 7745bccc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Calcfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameraCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameraCurve.bin
deleted file mode 100644
index d037c656..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameraCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameracoordCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameracoordCurve.bin
deleted file mode 100644
index 13e374db..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CameracoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpara.bin
deleted file mode 100644
index c16f84ba..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpers.bin
deleted file mode 100644
index 55b15ad7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cancoordpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Circledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Circledata.bin
deleted file mode 100644
index 9a27e094..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Circledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Clipindomain.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Clipindomain.bin
deleted file mode 100644
index 73ea5db3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Clipindomain.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closefile.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closefile.bin
deleted file mode 100644
index e7a00c3e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closefile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closeobj.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closeobj.bin
deleted file mode 100644
index f62af795..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closeobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepar.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepar.bin
deleted file mode 100644
index f73458f1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closephr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closephr.bin
deleted file mode 100644
index 5960bb73..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closephr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepicture.bin
deleted file mode 100644
index 1c8fd062..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Closepicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Connectseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Connectseg.bin
deleted file mode 100644
index 70566c55..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Connectseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crossprod.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crossprod.bin
deleted file mode 100644
index ade04624..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crossprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin
deleted file mode 100644
index 5c4f8404..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfparadata.bin
deleted file mode 100644
index 7d645929..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin
deleted file mode 100644
index 7f994b75..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crv3onsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin
deleted file mode 100644
index d92d7a5a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvonsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfparadata.bin
deleted file mode 100644
index 71b24de1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfpersdata.bin
deleted file mode 100644
index 835d570f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvonsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvsfHiddenData.bin
deleted file mode 100644
index 0ecbcb1c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CrvsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfparadata.bin
deleted file mode 100644
index dba77269..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfpersdata.bin
deleted file mode 100644
index b3a3f8e4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Crvsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspData.bin
deleted file mode 100644
index b2124b51..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspPt.bin
deleted file mode 100644
index 08f82d89..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspSplitPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspSplitPt.bin
deleted file mode 100644
index 2fbf6adb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/CuspSplitPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpara.bin
deleted file mode 100644
index b09e4aeb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpers.bin
deleted file mode 100644
index 609d057a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cuspsplitpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cutsf2d.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cutsf2d.bin
deleted file mode 100644
index e6f70b1c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Cutsf2d.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dashline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dashline.bin
deleted file mode 100644
index 8f7d28a1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dataindex.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dataindex.bin
deleted file mode 100644
index e3bd11d0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dataindex.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Definecolor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Definecolor.bin
deleted file mode 100644
index f0ff3ef8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Definecolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Deqplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Deqplot.bin
deleted file mode 100644
index a3ba57b6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Deqplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Derivative.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Derivative.bin
deleted file mode 100644
index 8ab45716..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Derivative.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Diagcelldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Diagcelldata.bin
deleted file mode 100644
index 70d3663e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Diagcelldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividegraphics.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividegraphics.bin
deleted file mode 100644
index 03498fd7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividegraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividetable.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividetable.bin
deleted file mode 100644
index abf752c8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dividetable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Doscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Doscaling.bin
deleted file mode 100644
index 1a024a4d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Doscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotfilldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotfilldata.bin
deleted file mode 100644
index 589adeaf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotfilldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotprod.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotprod.bin
deleted file mode 100644
index 7a097bea..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dotprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dottedline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dottedline.bin
deleted file mode 100644
index c4c45ddd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dottedline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dropnumlistcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dropnumlistcrv.bin
deleted file mode 100644
index 9ac44969..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Dropnumlistcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Droppoint.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Droppoint.bin
deleted file mode 100644
index f4bff84e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Droppoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwline.bin
deleted file mode 100644
index 69c411ef..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwpt.bin
deleted file mode 100644
index 5af3db83..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwxy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwxy.bin
deleted file mode 100644
index 54ce1e7c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Drwxy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Embed.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Embed.bin
deleted file mode 100644
index 5a081c10..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Embed.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Enclosing.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Enclosing.bin
deleted file mode 100644
index 17e55798..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Enclosing.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/EnclosingS.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/EnclosingS.bin
deleted file mode 100644
index 1a6860c5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/EnclosingS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Endpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Endpicture.bin
deleted file mode 100644
index 7fa6e7b9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Endpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepara.bin
deleted file mode 100644
index e4bb3e12..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepers.bin
deleted file mode 100644
index a300752a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Evlptablepers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Execmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Execmd.bin
deleted file mode 100644
index 3ed90ff9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Execmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Expr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Expr.bin
deleted file mode 100644
index 3cae8493..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Expr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Exprrot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Exprrot.bin
deleted file mode 100644
index e249a055..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Exprrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Faceremovaldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Faceremovaldata.bin
deleted file mode 100644
index f7f2e09b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Faceremovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Facesdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Facesdata.bin
deleted file mode 100644
index 003930bd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Facesdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Findcell.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Findcell.bin
deleted file mode 100644
index 1cc63d81..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Findcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Flattenlist.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Flattenlist.bin
deleted file mode 100644
index 47cd3aff..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Flattenlist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fontsize.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fontsize.bin
deleted file mode 100644
index d0ac6d1f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fontsize.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriercoeff.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriercoeff.bin
deleted file mode 100644
index 0c1ff22d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriercoeff.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/FouriercoeffL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/FouriercoeffL.bin
deleted file mode 100644
index 0ada7614..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/FouriercoeffL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriersum.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriersum.bin
deleted file mode 100644
index 80d7fa1d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fouriersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fracform.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fracform.bin
deleted file mode 100644
index f17997ae..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fracform.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Framedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Framedata.bin
deleted file mode 100644
index 4dfc5fba..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Framedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fullformfunc.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fullformfunc.bin
deleted file mode 100644
index a445388d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Fullformfunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gaiseki.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gaiseki.bin
deleted file mode 100644
index 00cefe7b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gaiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Getcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Getcounter.bin
deleted file mode 100644
index 5efa1ba3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Getcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gettrace.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gettrace.bin
deleted file mode 100644
index 31de11e2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Gettrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hatchdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hatchdata.bin
deleted file mode 100644
index 8bc86748..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hatchdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hexahedrondata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hexahedrondata.bin
deleted file mode 100644
index ebb9f45e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Hexahedrondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/HiddenWireData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/HiddenWireData.bin
deleted file mode 100644
index 0335b185..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/HiddenWireData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Htickmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Htickmark.bin
deleted file mode 100644
index 88ce57e9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Htickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ImplicitData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ImplicitData.bin
deleted file mode 100644
index f52ad0ee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ImplicitData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Implicitplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Implicitplot.bin
deleted file mode 100644
index 5662575f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Implicitplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/InWindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/InWindow.bin
deleted file mode 100644
index 38306a20..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/InWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Initangle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Initangle.bin
deleted file mode 100644
index 3c6ed6c5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Initangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Integrate.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Integrate.bin
deleted file mode 100644
index deb2de0d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Integrate.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvs.bin
deleted file mode 100644
index 3a87071b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectcrvsPp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectcrvsPp.bin
deleted file mode 100644
index de85e2a9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectcrvsPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvsf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvsf.bin
deleted file mode 100644
index 3a918b84..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectcrvsf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectlines.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectlines.bin
deleted file mode 100644
index 5b1846e7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Intersectlines.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectselfPp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectselfPp.bin
deleted file mode 100644
index 2b895f4d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/IntersectselfPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invdashline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invdashline.bin
deleted file mode 100644
index 76baa221..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invdashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invert.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invert.bin
deleted file mode 100644
index def0bb31..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invert.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invparapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invparapt.bin
deleted file mode 100644
index 07c0c078..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invperspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invperspt.bin
deleted file mode 100644
index 5dbdc7cb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Invperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joincrvs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joincrvs.bin
deleted file mode 100644
index dafe1e24..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joincrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joingraphics.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joingraphics.bin
deleted file mode 100644
index 97caac64..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Joingraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ketinit.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ketinit.bin
deleted file mode 100644
index 70e1971c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ketinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kouten.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kouten.bin
deleted file mode 100644
index 21dc66a1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kouten.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/KoutenList.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/KoutenList.bin
deleted file mode 100644
index 9ccea2a3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/KoutenList.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Koutenseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Koutenseg.bin
deleted file mode 100644
index d191d41a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Koutenseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukannozoku.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukannozoku.bin
deleted file mode 100644
index 313c934d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukannozoku.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukeiwake.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukeiwake.bin
deleted file mode 100644
index f705d5b1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kukeiwake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyorihensuu.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyorihensuu.bin
deleted file mode 100644
index 3940a613..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyorihensuu.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyoukai.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyoukai.bin
deleted file mode 100644
index c9ce9f14..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Kyoukai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letter.bin
deleted file mode 100644
index bcaebbbd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letterrot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letterrot.bin
deleted file mode 100644
index 4bc6206a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Letterrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Lineplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Lineplot.bin
deleted file mode 100644
index 51fbfbe1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Lineplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Listplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Listplot.bin
deleted file mode 100644
index 0fa577df..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Listplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeBowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeBowdata.bin
deleted file mode 100644
index fb13efa4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeBowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeCurves.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeCurves.bin
deleted file mode 100644
index 98ddd1a4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeCurves.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakecutbycrvL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakecutbycrvL.bin
deleted file mode 100644
index 6356eaed..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakecutbycrvL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makehasen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makehasen.bin
deleted file mode 100644
index 0d7bd77d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makehasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeliststr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeliststr.bin
deleted file mode 100644
index 83ba3861..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeliststr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makesfcutoffdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makesfcutoffdata.bin
deleted file mode 100644
index 92534466..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makesfcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeshasen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeshasen.bin
deleted file mode 100644
index 2d013048..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeshasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletondata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletondata.bin
deleted file mode 100644
index 0bd11580..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin
deleted file mode 100644
index 49a24e6c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makeskeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makevaltable.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makevaltable.bin
deleted file mode 100644
index 67316bd1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makevaltable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeveLfaceL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeveLfaceL.bin
deleted file mode 100644
index 1658b408..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MakeveLfaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makexybdy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makexybdy.bin
deleted file mode 100644
index 95c31670..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Makexybdy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mawarikomi.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mawarikomi.bin
deleted file mode 100644
index fcf74e3c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mawarikomi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MeetWindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MeetWindow.bin
deleted file mode 100644
index f5ced4c3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MeetWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Meetpoints.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Meetpoints.bin
deleted file mode 100644
index 6cd9f985..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Meetpoints.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Member.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Member.bin
deleted file mode 100644
index c41eb72e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Member.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi.bin
deleted file mode 100644
index ab493424..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi2.bin
deleted file mode 100644
index 659d412f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Menkakusi2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mix.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mix.bin
deleted file mode 100644
index f26a75b6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mix.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixL.bin
deleted file mode 100644
index 1a2a931f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixS.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixS.bin
deleted file mode 100644
index 92c22101..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/MixS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixadd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixadd.bin
deleted file mode 100644
index 43809cb9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixdisp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixdisp.bin
deleted file mode 100644
index 4562fd87..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixdisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixjoin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixjoin.bin
deleted file mode 100644
index 29800896..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixlength.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixlength.bin
deleted file mode 100644
index dc725565..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixmake.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixmake.bin
deleted file mode 100644
index e1ab36e0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixmake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixop.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixop.bin
deleted file mode 100644
index 74a5a6aa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixsub.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixsub.bin
deleted file mode 100644
index 332d7968..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixsub.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixtype.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixtype.bin
deleted file mode 100644
index b188ade7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Mixtype.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naigai.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naigai.bin
deleted file mode 100644
index 4c0a5b2d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naigai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naiseki.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naiseki.bin
deleted file mode 100644
index d7d9f480..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Naiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nearestpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nearestpt.bin
deleted file mode 100644
index bf51af8a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nearestpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Newlength.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Newlength.bin
deleted file mode 100644
index 80a32401..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Newlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara.bin
deleted file mode 100644
index b7f0d8cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara2.bin
deleted file mode 100644
index 7bfcf7ab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpara2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers.bin
deleted file mode 100644
index 2bdabcc4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers2.bin
deleted file mode 100644
index b692d55a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Nohiddenpers2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Numptcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Numptcrv.bin
deleted file mode 100644
index 57a2ce6f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Numptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objcurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objcurve.bin
deleted file mode 100644
index 845d40ca..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objcurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objjoin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objjoin.bin
deleted file mode 100644
index 92afe9ad..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objname.bin
deleted file mode 100644
index a14bcc2f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolygon.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolygon.bin
deleted file mode 100644
index da05430c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolygon.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolyhedron.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolyhedron.bin
deleted file mode 100644
index 18416f1c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objpolyhedron.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objrecs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objrecs.bin
deleted file mode 100644
index bef4fb7d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objrecs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsurf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsurf.bin
deleted file mode 100644
index 6bbe6d7d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsymb.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsymb.bin
deleted file mode 100644
index 8c215679..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objsymb.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objthicksurf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objthicksurf.bin
deleted file mode 100644
index e66c254e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Objthicksurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Op.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Op.bin
deleted file mode 100644
index fb3d3b45..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Op.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openfile.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openfile.bin
deleted file mode 100644
index e1625a76..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openfile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openobj.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openobj.bin
deleted file mode 100644
index 2024ea60..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpar.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpar.bin
deleted file mode 100644
index c812540a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openphr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openphr.bin
deleted file mode 100644
index 41d69ca5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openphr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpicture.bin
deleted file mode 100644
index f10f1efc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Openpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovalbox.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovalbox.bin
deleted file mode 100644
index 32bf34e8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovalbox.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovaldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovaldata.bin
deleted file mode 100644
index d28e36ee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramark.bin
deleted file mode 100644
index a7078f9c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ParamonCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ParamonCurve.bin
deleted file mode 100644
index e4c31df3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ParamonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramoncrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramoncrv.bin
deleted file mode 100644
index f532d7ee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramplot.bin
deleted file mode 100644
index ffebca84..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Paramplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Parapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Parapt.bin
deleted file mode 100644
index e7958ab9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Parapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv.bin
deleted file mode 100644
index d54eb52f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv3.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv3.bin
deleted file mode 100644
index 07321262..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partcrv3.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partframe.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partframe.bin
deleted file mode 100644
index a13d3f5f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partframe.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PartitionPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PartitionPt.bin
deleted file mode 100644
index 58cef916..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PartitionPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partitionseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partitionseg.bin
deleted file mode 100644
index 6f557a3b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Partitionseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Perspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Perspt.bin
deleted file mode 100644
index f95c613a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Perspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhFaceL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhFaceL.bin
deleted file mode 100644
index 2d1eec35..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhFaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhHiddenData.bin
deleted file mode 100644
index ac5490d9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhVertexL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhVertexL.bin
deleted file mode 100644
index 814b8791..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PhVertexL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutdata.bin
deleted file mode 100644
index d700ec69..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutoffdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutoffdata.bin
deleted file mode 100644
index ccea3366..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phidegree.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phidegree.bin
deleted file mode 100644
index c3f667e3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phidegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phparadata.bin
deleted file mode 100644
index 2e3c664b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phpersdata.bin
deleted file mode 100644
index 1a2bbf95..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawparadata.bin
deleted file mode 100644
index 903c9029..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawpersdata.bin
deleted file mode 100644
index 5e7b5ffb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsparadata.bin
deleted file mode 100644
index da8b1196..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phspersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phspersdata.bin
deleted file mode 100644
index 6ac27dcb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phspersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawparadata.bin
deleted file mode 100644
index a3da7dd1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawpersdata.bin
deleted file mode 100644
index 8843cde4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Phsrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Plotdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Plotdata.bin
deleted file mode 100644
index c0547852..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Plotdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointdata.bin
deleted file mode 100644
index 8c11c2c2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PointonCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PointonCurve.bin
deleted file mode 100644
index e6055b42..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PointonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointoncrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointoncrv.bin
deleted file mode 100644
index cf693dd1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Pointoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Powersum.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Powersum.bin
deleted file mode 100644
index 1dce322f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Powersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Prime.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Prime.bin
deleted file mode 100644
index e7094eb4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Prime.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Printobjstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Printobjstr.bin
deleted file mode 100644
index 3a62be73..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Printobjstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjCurve.bin
deleted file mode 100644
index 2ca583e9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjcoordCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjcoordCurve.bin
deleted file mode 100644
index 5de23ccd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ProjcoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpara.bin
deleted file mode 100644
index bda03ab0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpers.bin
deleted file mode 100644
index fbf6d134..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Projpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptcrv.bin
deleted file mode 100644
index 13f43f67..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptend.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptend.bin
deleted file mode 100644
index 10ac2f07..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PthiddenQ.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PthiddenQ.bin
deleted file mode 100644
index cf36ca4e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PthiddenQ.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptne.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptne.bin
deleted file mode 100644
index 4f608b89..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptne.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptnw.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptnw.bin
deleted file mode 100644
index 727cf4d5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptnw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptse.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptse.bin
deleted file mode 100644
index f09e463c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptstart.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptstart.bin
deleted file mode 100644
index c1303557..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptstart.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptsw.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptsw.bin
deleted file mode 100644
index 1003cd61..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ptsw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcell.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcell.bin
deleted file mode 100644
index be3a6f13..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcirmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcirmark.bin
deleted file mode 100644
index d154a0a0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putcirmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoL.bin
deleted file mode 100644
index 77a99874..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLexpr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLexpr.bin
deleted file mode 100644
index 01e1b69c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLstr.bin
deleted file mode 100644
index a4872a7f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/PutcoLstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putdashmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putdashmark.bin
deleted file mode 100644
index 1e679bfc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putdashmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrecmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrecmark.bin
deleted file mode 100644
index 5df6db75..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrecmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrow.bin
deleted file mode 100644
index 042a7261..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowexpr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowexpr.bin
deleted file mode 100644
index df1a3849..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowstr.bin
deleted file mode 100644
index da18fb37..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Putrowstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Puttrace.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Puttrace.bin
deleted file mode 100644
index 10769324..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Puttrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ratiocmyk.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ratiocmyk.bin
deleted file mode 100644
index 56a87566..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ratiocmyk.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadOutData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadOutData.bin
deleted file mode 100644
index 0acb33cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadfromCindy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadfromCindy.bin
deleted file mode 100644
index 8d4a1b0e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ReadfromCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Readtextdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Readtextdata.bin
deleted file mode 100644
index f51f7599..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Readtextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Reflectdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Reflectdata.bin
deleted file mode 100644
index 02bd0619..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Reflectdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rmmember.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rmmember.bin
deleted file mode 100644
index 1036fe46..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rmmember.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3data.bin
deleted file mode 100644
index 6cfc7b1c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3pt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3pt.bin
deleted file mode 100644
index 7bc8974d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotate3pt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotatedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotatedata.bin
deleted file mode 100644
index dcde7e7d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Rotatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Roundstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Roundstr.bin
deleted file mode 100644
index c9678719..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Roundstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Scaledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Scaledata.bin
deleted file mode 100644
index aca40719..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Scaledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sectionview.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sectionview.bin
deleted file mode 100644
index bfdb8495..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sectionview.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setangle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setangle.bin
deleted file mode 100644
index 997e8178..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setarrow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setarrow.bin
deleted file mode 100644
index 1d2063bf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setarrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setax.bin
deleted file mode 100644
index 46e49d69..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcolor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcolor.bin
deleted file mode 100644
index ae62bffa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcounter.bin
deleted file mode 100644
index 3a609bc9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmark.bin
deleted file mode 100644
index be2cbbb6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmarklen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmarklen.bin
deleted file mode 100644
index 79ae6660..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setmarklen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjdecimals.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjdecimals.bin
deleted file mode 100644
index 3fe068d8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjdecimals.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjscale.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjscale.bin
deleted file mode 100644
index adc5ef97..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setobjscale.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setorigin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setorigin.bin
deleted file mode 100644
index ed695e7f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setorigin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpen.bin
deleted file mode 100644
index 934f8764..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpers.bin
deleted file mode 100644
index e417c91f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpt.bin
deleted file mode 100644
index f9fb21b4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setscaling.bin
deleted file mode 100644
index faf60668..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoL.bin
deleted file mode 100644
index c0d4e9e7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoR.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoR.bin
deleted file mode 100644
index 44dc173e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/SetstereoR.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setunitlen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setunitlen.bin
deleted file mode 100644
index d6b8e988..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setunitlen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setversion.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setversion.bin
deleted file mode 100644
index 9658e1ab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setversion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setwindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setwindow.bin
deleted file mode 100644
index fc39c4e1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Setwindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sf3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sf3data.bin
deleted file mode 100644
index bed3747e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sf3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdparadata.bin
deleted file mode 100644
index bd7b7168..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdpersdata.bin
deleted file mode 100644
index 86ba2a9e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawparadata.bin
deleted file mode 100644
index c4009953..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin
deleted file mode 100644
index 278af331..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfbdrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutdata.bin
deleted file mode 100644
index 5aa6fd04..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffparadata.bin
deleted file mode 100644
index b22043d8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin
deleted file mode 100644
index 64f416d6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin
deleted file mode 100644
index cd356699..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin
deleted file mode 100644
index 295812ba..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfcutoffrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfparadata.bin
deleted file mode 100644
index c98b95ed..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfpersdata.bin
deleted file mode 100644
index 5a780fab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Shade.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Shade.bin
deleted file mode 100644
index c4a3aef7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Shade.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeleton2data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeleton2data.bin
deleted file mode 100644
index b3d2d402..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeleton2data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpara3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpara3data.bin
deleted file mode 100644
index 5895e254..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpara3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonparadata.bin
deleted file mode 100644
index c34f7e16..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpers3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpers3data.bin
deleted file mode 100644
index 4ba4947b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpers3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpersdata.bin
deleted file mode 100644
index 9c83ea64..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Skeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spacecurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spacecurve.bin
deleted file mode 100644
index 0e8bacaf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spacecurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spaceline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spaceline.bin
deleted file mode 100644
index b097e980..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Spaceline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Splinedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Splinedata.bin
deleted file mode 100644
index 7a3c634c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Splinedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Strop.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Strop.bin
deleted file mode 100644
index ca70656e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Strop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Subs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Subs.bin
deleted file mode 100644
index 66f8e6c0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Subs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sumfun.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sumfun.bin
deleted file mode 100644
index a2bafc2c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Sumfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symb3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symb3data.bin
deleted file mode 100644
index 131297e0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symb3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symbdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symbdata.bin
deleted file mode 100644
index a1a27f00..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Symbdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tabledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tabledata.bin
deleted file mode 100644
index ab4bb5ed..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tabledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texcom.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texcom.bin
deleted file mode 100644
index 74871299..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texcom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texctr.bin
deleted file mode 100644
index e0e2dab3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texelse.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texelse.bin
deleted file mode 100644
index 4e974456..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texelse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texend.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texend.bin
deleted file mode 100644
index d22ea31d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendfor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendfor.bin
deleted file mode 100644
index 0d86b601..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendif.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendif.bin
deleted file mode 100644
index 46fd7b7e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texendif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texfor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texfor.bin
deleted file mode 100644
index f5e92c99..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texforinit.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texforinit.bin
deleted file mode 100644
index a8140128..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texforinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texif.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texif.bin
deleted file mode 100644
index be4c9157..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texletter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texletter.bin
deleted file mode 100644
index 99ef9902..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texletter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewcmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewcmd.bin
deleted file mode 100644
index 0904029d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewctr.bin
deleted file mode 100644
index 7d332cfd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texnewctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texrenewcmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texrenewcmd.bin
deleted file mode 100644
index 1abdf882..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texrenewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texsetctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texsetctr.bin
deleted file mode 100644
index ccfce689..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texsetctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texthectr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texthectr.bin
deleted file mode 100644
index f2e50561..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texthectr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvalctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvalctr.bin
deleted file mode 100644
index a224f885..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvalctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvctr.bin
deleted file mode 100644
index 2fee3584..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Texvctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Thetadegree.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Thetadegree.bin
deleted file mode 100644
index 5f360f2f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Thetadegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ThisVersion.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ThisVersion.bin
deleted file mode 100644
index 5aa530ec..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ThisVersion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tolist.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tolist.bin
deleted file mode 100644
index 5e76126d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Tolist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translate3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translate3data.bin
deleted file mode 100644
index 3fd4aeda..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translatedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translatedata.bin
deleted file mode 100644
index 3262007d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Translatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Trunc.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Trunc.bin
deleted file mode 100644
index a05f649a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Trunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Unscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Unscaling.bin
deleted file mode 100644
index 1bd27535..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Unscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa.bin
deleted file mode 100644
index 1668581e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa2.bin
deleted file mode 100644
index 3acff07e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vecnagasa2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Viewfrom.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Viewfrom.bin
deleted file mode 100644
index 06515c27..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Viewfrom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vtickmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vtickmark.bin
deleted file mode 100644
index e0c9fdf2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Vtickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Windisp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Windisp.bin
deleted file mode 100644
index 487a5881..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Windisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WireHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WireHiddenData.bin
deleted file mode 100644
index 15d7c7ea..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WireHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WirePt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WirePt.bin
deleted file mode 100644
index 8356c7d3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WirePt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wireparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wireparadata.bin
deleted file mode 100644
index 8a956544..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wireparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirepersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirepersdata.bin
deleted file mode 100644
index 06813c26..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirepersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawparadata.bin
deleted file mode 100644
index 53ef48f2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawpersdata.bin
deleted file mode 100644
index a4463d6f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Wirerawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WriteOutData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WriteOutData.bin
deleted file mode 100644
index 35bbb30a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WriteOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writeobjpoint.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writeobjpoint.bin
deleted file mode 100644
index 1c115eb9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writeobjpoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writetextdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writetextdata.bin
deleted file mode 100644
index 90e83be0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Writetextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WritetoCindy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WritetoCindy.bin
deleted file mode 100644
index 3cc76a71..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/WritetoCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmax.bin
deleted file mode 100644
index 51ccdf48..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmin.bin
deleted file mode 100644
index bba8a4ee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xmin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzax3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzax3data.bin
deleted file mode 100644
index 3a5e517b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzax3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxparaname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxparaname.bin
deleted file mode 100644
index d89801c7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxparaname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxpersname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxpersname.bin
deleted file mode 100644
index f89ae3a7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Xyzaxpersname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymax.bin
deleted file mode 100644
index cc5aea83..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymin.bin
deleted file mode 100644
index e454fb5a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Ymin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zparapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zparapt.bin
deleted file mode 100644
index 1749fad9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zperspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zperspt.bin
deleted file mode 100644
index 8613eba7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/Zperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ketcindylibhelpE.txt b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ketcindylibhelpE.txt
deleted file mode 100644
index 437bdefd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/ketcindylibhelpE.txt
+++ /dev/null
@@ -1,116 +0,0 @@
-//help:start();
-//help:drawimage*(import image into the screen);
-//help:drawtext*(write letters on the screen);
-//help:Option1*(specify the style of drawing lines);
-//help:Option2*(specify the way of writing data out);
-//help:Option3*(specify the way of reading and writing data in);
-//help:Changestyle*(change the style for drawing plot data);
-//help:Workprocess*(display the process of execution);
-//help:Textformat*(convert number into string with specific number of digits);
-//help:Assign*(replace the name of variable in the string by some specific value);
-//help:Flattenlist*(flatten the list of data);
-//help:Dotprod*(inner product);
-//help:Crossprod*(exterior product);
-//help:Ptstart*(starting point of plot data);
-//help:Ptend*(ending point of plot data);
-//help:Numptcrvtenn*(number of points in plot data);
-//help:Ptcrv*(the n-th point of plot data);
-//help:Invert*(reverse the orientation of curve);
-//help:ParamonCurve*(information (parameter value etc.) of the point in plot data);
-//help:PointonCurve*(the point in the plot data specified by the given information);
-//help:Nearestptcrv*(the point in the curve which is nearest to the given point);
-//help:Nearestpt*(the points in two given curves which are nearest each other);
-//help:Derivative*(calculate the differential coefficient);
-//help:Integrate*(numerical integration);
-//help:Findarea*(calculate the area of the region surrounded by a closed curve);
-//help:Findlength*(calculate the length of curve);
-//help:Com2nd*(add the Scilab command to write out plot data into TeX);
-//help:Texcom*(write command into TeX output exactly as written here);
-//help:SetEnglish*(display Scilab messages in English language);
-//help:Setunitlen*(specify the unit length);
-//help:Setmarklen*(specify the unit length of the tickmarks on coordinate axis);
-//help:Setorigin*(specify the position the origin);
-//help:Fontsize*(specify the size of font);
- //help:Setpen*(specify the thickness of line);
-//help:Setpt*(specify the size of point);
-//help:Definecolor*(define the color for user's own use);
-//help:Setcolor*(specify the color);
-//help:Joincrvs*(join curves);
-//help:Partcrv*(cut out some part of the curve);
-//help:Pointdata*(generate the plot data of point
-//additional option : "Size=");
-//help:Listplot*(generate the plot data of a polyline);
-//help:Lineplot*(generate the plot data of line);
-//help:Plotdata*(generate the plot data of function
-//additional option : "Num=", "Exc=", "Dis=");
-//help:Paramplot*(generate the plot data of parametric function
-//additional option : "Num=", "Exc=", "Dis=");
-//help:Circledata*(generate the plot data of circle
-//additional option : "Num=", "Rng=");
-//help:Framedata*(generate the plot data of rectangle);
-//help:Ovaldata*(generate the plot data of oval shape);
-//help:Arrowhead*(generate the plot data of arrowhead
-//option : size, sharpness, shape and position in the arrow);
-//help:Arrowdata*(generate the plot data of arrow line
-//option : size of arrowhead, sharpness(angle)シ継osition of arrowhead);
-//help:Anglemark*(generate the plot data of angle mark option : size);
-//help:Paramark*(generate the plot data of right angle mark option : size);
-//help:Bowdata*(generate the plot data of bow arched curve
-//option : curvatute, size of the blank space, letter);
-//help:Deqplot*(generate the solution curve of differential equation
-//additional option : "Num=");
-//help:Hatchdata*(add hatching into some region
-// option : slope, degree, space betwen lines));
-//help:Enclosing*(generate the plot data of closed curve connecting some curves);
-//help:Shade*(add shading into some region option : depth);
-//help:Rotatepoint*(rotate the point, option : center);
-//help:Translatepoint*(pararell transport of the point);
-//help:Scalepoint*(magnify or reduce the position of point option : center);
- //help:Reflectpoint*(reflect the point);
-//help:Rotatedata*(rotate the plot data option : center);
-//help:Scaledata*(magnify or reduce the plot data option : center);
-//help:Reflectdata*(reflect the plot data);
-//help:Mksegments*(generate the plot data of all segments on the screen);
-//help:Mkcircles*(generate the plot data of all circles on the screen):
-//help:Setax*(specify the setting of coordinate axes);
-//help:Htickmark*(put a tickmark on the horizontal coordinate axis);
-//help:Vtickmark*(put a tickmark on the vertical coordinate axis);
-//help:Drwxy*(draw coordinate axes);
-//help:Addax*(specify whether coordinate axes are drawn or not);
-//help:Expr*(write mathematical expressions at a specific position);
-//help:Letter*(write letters at a specific position);
-//help:Letterrot*(write sloped letters at a specific position):
-//help:Exprrot*(write sloped mathematical expressions at a specific position):
-//help:Putpoint*(put a point at the specific position);
-//help:Bezier*(generate the plot data of Bezier curve);
-//help:Mkbezierptcrv*(generate the plot data of Bezier curve by automatically taking controll points);
-//help:CRspline*(generate the plot data of Catmull-Rom spline curve);
-//help:Beziersmooth*(generate the plot data of Bezier spline curve);
-//help:Bspline*(generate the plot data of B-spline curve);
-//help:PtonLine*(put a point on a specific line);
-//help:PtonSeg*(put a point on a specific segment);
-//help:PutonCurve*(put a point on a specific curve);
-//help:Setscaling*(specify the rate of magnification in the vertical direction);
- //help:Tabledatalight*(generate the plot data of table without geometric points
- //additional option : rules to be removed);
- //help:Tgrid*(return the coordinates of a cell in the table);
- //help:Tlistplot*(draw segment connecting two lattice points in the table);
-//help:ChangeTablestyle*(change the style for drawing rules in the table);
-//help:Tabledata*(generate the plot data of table with geometric points
- //option : usual optionsシ脚ules to be removed);
-//help:Tabledata*(xLst=apply(1..5,10);yLst=apply(1..4,8);rmvL=[];);
-//help:Findcell*(return the information of a cell in the table);
-//help:Putcell*(write letters in a specific cell of the table);
-//help:Putcellexpr*(write mathematical expressions in a specific cell of the table);
-//help:Putrow*(write letters in a specific row of the table));
-//help:Putrowexpr*(write mathematical expressions in a specific row of the table);
-//help:PutcoL*(write letters in a specific column of the table));
-//help:PutcoLexpr*(write mathematical expressions in a specific column of the table));
-//help:Setwindow*(specify the area of drawing);
-//help:Defvar*(the definition of a variable is called by Scilab);
-//help:Deffun*(the definition of a function is called by Scilab);
-//help:Extractdata*(endow attribute to the imported plot data);
-//help:ReadOutData*(import the plot data);
-//help:WriteOutData*(export the plot data);
-//help:Removespace*(remove spaces of in front and behind);
-//help:end();
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/names b/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/names
deleted file mode 100755
index 02079ff8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2esciL5/names
+++ /dev/null
@@ -1,341 +0,0 @@
-Addcounter
-Anglemark
-Arrowdata
-Arrowhead
-Arrowheaddata
-Arrowline
-Assign
-Assignadd
-Assignrep
-Assignset
-Beginpicture
-Bezierpt
-Bezier
-BorderHiddenData
-Borderparadata
-Borderpersdata
-BorderPt
-Borderrawdata
-Bowdata
-Bowmiddle
-Bowname
-Bownamerot
-Calcfun
-CalcHeight
-CalcWidth
-CameracoordCurve
-CameraCurve
-Cancoordpara
-Cancoordpers
-Circledata
-Clipindomain
-Closefile
-Closepar
-Closephr
-Closepicture
-Closeobj
-Connectseg
-Crossprod
-Crv3onsfHiddenData
-Crv3onsfparadata
-Crv3onsfpersdata
-CrvonsfHiddenData
-Crvonsfparadata
-Crvonsfpersdata
-CrvsfHiddenData
-Crvsfparadata
-Crvsfpersdata
-CuspData
-CuspPt
-Cuspsplitpara
-Cuspsplitpers
-CuspSplitPt
-Cutsf2d
-Dashline
-Dataindex
-Definecolor
-Deqplot
-Derivative
-Diagcelldata
-Dividegraphics
-Dividetable
-Doscaling
-Dotfilldata
-Dotprod
-Dottedline
-Dropnumlistcrv
-Droppoint
-Drwline
-Drwpt
-Drwxy
-Embed
-Enclosing
-EnclosingS
-Endpicture
-Evlptablepara
-Evlptablepers
-Execmd
-Expr
-Exprrot
-Faceremovaldata
-Facesdata
-Findcell
-Flattenlist
-Fontsize
-Fouriercoeff
-FouriercoeffL
-Fouriersum
-Fracform
-Framedata
-Fullformfunc
-Gaiseki
-Getcounter
-Gettrace
-Hatchdata
-Hexahedrondata
-HiddenWireData
-Htickmark
-Implicitplot
-ImplicitData
-Initangle
-Integrate
-Intersectcrvs
-Intersectcrvsf
-IntersectcrvsPp
-Intersectlines
-IntersectselfPp
-Invdashline
-Invert
-Invparapt
-Invperspt
-InWindow
-Joincrvs
-Joingraphics
-Ketinit
-Kouten
-KoutenList
-Koutenseg
-Kukannozoku
-Kukeiwake
-Kyorihensuu
-Kyoukai
-Letter
-Letterrot
-Lineplot
-Listplot
-MakeBowdata
-MakecutbycrvL
-MakeCurves
-Makehasen
-Makeliststr
-Makesfcutoffdata
-Makeshasen
-Makeskeletondata
-Makeskeletonpersdata
-Makevaltable
-MakeveLfaceL
-Makexybdy
-Mawarikomi
-Meetpoints
-MeetWindow
-Member
-Menkakusi
-Menkakusi2
-Mix
-Mixadd
-Mixdisp
-Mixjoin
-MixL
-Mixlength
-Mixmake
-Mixop
-MixS
-Mixsub
-Mixtype
-Naigai
-Naiseki
-Nearestpt
-Newlength
-Nohiddenpara
-Nohiddenpara2
-Nohiddenpers
-Nohiddenpers2
-Numptcrv
-Objjoin
-Objname
-Objcurve
-Objpolyhedron
-Objpolygon
-Objrecs
-Objsurf
-Objsymb
-Objthicksurf
-Openobj
-Op
-Openfile
-Openpar
-Openphr
-Openpicture
-Ovalbox
-Ovaldata
-Paramark
-Paramoncrv
-ParamonCurve
-Paramplot
-Parapt
-Partcrv
-Partcrv3
-Partframe
-PartitionPt
-Partitionseg
-Perspt
-Phcutdata
-Phcutoffdata
-Phidegree
-PhFaceL
-PhHiddenData
-Phparadata
-Phpersdata
-Phsparadata
-Phspersdata
-Phrawparadata
-Phrawpersdata
-Phsrawparadata
-Phsrawpersdata
-PhVertexL
-Plotdata
-Pointdata
-Pointoncrv
-PointonCurve
-Powersum
-Prime
-Printobjstr
-ProjcoordCurve
-ProjCurve
-Projpara
-Projpers
-Ptcrv
-Ptend
-PthiddenQ
-Ptne
-Ptnw
-Ptse
-Ptstart
-Ptsw
-Putcell
-Putcirmark
-PutcoL
-PutcoLexpr
-PutcoLstr
-Putdashmark
-Putrecmark
-Putrow
-Putrowexpr
-Putrowstr
-Puttrace
-Ratiocmyk
-ReadfromCindy
-ReadOutData
-Readtextdata
-Reflectdata
-Rmmember
-Rotate3data
-Rotate3pt
-Rotatedata
-Roundstr
-Scaledata
-Sectionview
-Setangle
-Setarrow
-Setax
-Setcolor
-Setcounter
-Setmark
-Setmarklen
-Setobjdecimals
-Setobjscale
-Setorigin
-Setpen
-Setpers
-Setpt
-Setscaling
-SetstereoL
-SetstereoR
-Setunitlen
-Setversion
-Setwindow
-Sf3data
-Sfbdparadata
-Sfbdpersdata
-Sfbdrawparadata
-Sfbdrawpersdata
-Sfcutdata
-Sfcutoffparadata
-Sfcutoffpersdata
-Sfcutoffrawparadata
-Sfcutoffrawpersdata
-Sfparadata
-Sfpersdata
-Shade
-Skeleton2data
-Skeletonparadata
-Skeletonpara3data
-Skeletonpersdata
-Skeletonpers3data
-Spacecurve
-Spaceline
-Splinedata
-Strop
-Subs
-Sumfun
-Symbdata
-Symb3data
-Tabledata
-Texcom
-Texctr
-Texelse
-Texend
-Texendfor
-Texendif
-Texfor
-Texforinit
-Texif
-Texletter
-Texnewcmd
-Texnewctr
-Texrenewcmd
-Texsetctr
-Texthectr
-Texvalctr
-Texvctr
-Thetadegree
-ThisVersion
-Tolist
-Translate3data
-Translatedata
-Trunc
-Unscaling
-Vecnagasa
-Vecnagasa2
-Viewfrom
-Vtickmark
-Windisp
-WireHiddenData
-Wireparadata
-Wirepersdata
-WirePt
-Wirerawparadata
-Wirerawpersdata
-WriteOutData
-Writetextdata
-WritetoCindy
-Writeobjpoint
-Xmax
-Xmin
-Xyzaxparaname
-Xyzaxpersname
-Xyzax3data
-Ymax
-Ymin
-Zparapt
-Zperspt
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.bin
deleted file mode 100644
index 04ec361b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.sci
deleted file mode 100755
index c940a543..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Addcounter.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 09.09.10
-
-function Addcounter(varargin)
- global GCOUNTER;
- if Nargs==0
- N=1;
- else
- N=varargin(1);
- GCOUNTER=GCOUNTER+N;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.bin
deleted file mode 100644
index 9e505d61..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci
deleted file mode 100755
index 6deb302c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Anglemark.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-// 08.06.05
-// 16.12.29 ( for too short segment )
-
-function Out=Anglemark(varargin)
- Nargs=length(varargin);
- Eps=10^(-3);
- PA=varargin(1); PB=varargin(2); PC=varargin(3);
- r = 0.5;
- if Nargs>=4
- r = varargin(4)*r;
- end
- Out=[]; // 16.12.29
- if r>min(norm(PA-PB),norm(PC-PB)) then
- return;
- end;
- Cir=Circledata(PB,r);
- Tmp=IntersectcrvsPp(Cir,Listplot(PA,PB));
- P1=Op(2,Op(1,Tmp));
- Tmp=IntersectcrvsPp(Cir,Listplot(PC,PB));
- P2=Op(2,Mixop(1,Tmp));
- if abs(P1-P2)<Eps
- Out=[];
- return;
- end
- if P1<P2-Eps
- Out=Partcrv(P1,P2,Cir);
- else
- Tmp=Numptcrv(Cir);
- Tmp1=Partcrv(P1,Tmp,Cir);
- Tmp2=Partcrv(1,P2,Cir);
- Out=Joincrvs(Tmp1,Tmp2);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.bin
deleted file mode 100644
index fa50bd08..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.sci
deleted file mode 100755
index f6ac6ef2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowdata.sci
+++ /dev/null
@@ -1,58 +0,0 @@
-// 08.05.08
-
-function Out=Arrowdata(varargin)
- global YaSize YaAngle YaPosition YaThick YaStyle;
- Nargs=length(varargin);
- P=varargin(1);
- Q=varargin(2);
- R=Q;
- Futosa=YaThick;
- Ookisa=YaSize;
- Thickness=1;
- Hiraki=YaAngle;
- Yapos=YaPosition;
- Position=1;
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- if length(Tmp)>1
- R=Tmp
- else
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki;
- else
- Hiraki=Tmp;
- end
- end
- if Flg==2
- R=P+Tmp*(Q-P);
- else
- R=P+Yapos*(Q-P);
- end
- if Flg==3
- Futosa=Tmp
- end
- Flg=Flg+1;
- end
- end
- if type(Tmp)==10
- if mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- Futosa=Futosa*Thickness;
- R=P+Position*(Q-P);
- else
- Str=Tmp
- end
- end
- end
- Tmp1=Listplot([P,Q]);
- Tmp2=Arrowheaddata(R,Q-P,Ookisa,Hiraki,Futosa,Str);
- Out=Joingraphics(Tmp1,Tmp2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.bin
deleted file mode 100644
index bbd95348..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.sci
deleted file mode 100755
index 9073ca6e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowhead.sci
+++ /dev/null
@@ -1,107 +0,0 @@
-//
-// 08.06.01
-// 09.12.25
-// 12.01.07 kirikomi(Cut)
-// 12.04.16 debugged
-// 13.05.17 debugged
-// 13.11.13 debugged
-// 15.06.11 debugged
-// 15.06.14 debugged
-// 15.06.15 improved
-
-function Arrowhead(varargin)
- global Wfile FID MilliIn YaSize
- global YaAngle YaPosition YaThick YaStyle;
- Nargs=length(varargin);
- P=varargin(1);
- Houkou=varargin(2);
- Ookisa=0.2*YaSize;
- Hiraki=YaAngle;
- Futosa=0.5*YaThick;
- Cut=0;
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==10
- Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from
- if length(Equal)>0
- Tmp2=strsplit(Tmp,Equal-1);
- if Tmp2(1)=="Cut" | Tmp2(1)=="cut"
- Tmp="Cut"+Tmp2(2);
- execstr(Tmp);
- end;
- else
- Str=Tmp;
- end; // 12.01.07 upto
- end;
- if type(Tmp)==1 & length(Tmp)==1
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki
- else
- Hiraki=Tmp
- end
- end
- if Flg==2
- Futosa=Tmp
- end
- Flg=Flg+1;
- end
- end;
- Ookisa=1000/2.54/MilliIn*Ookisa;
- Theta=Hiraki*%pi/180;
- if size(Houkou,1)>1
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Tmp=Nearestpt(P,Houkou);
- A=Op(1,Tmp);
- I=floor(Op(2,Tmp));
- G=Circledata(P,Ookisa*cos(Theta),'N=10');
- Flg=0; // 13.11.13
- for J=I:-1:1
- B=Ptcrv(J,Houkou);
- Tmp=IntersectcrvsPp(Listplot([A,B]),G);
- if Mixlength(Tmp)>0
- Flg=1;
- break
- end
- A=B
- end
- if Flg==0 // 13.11.13
- disp('Arrowhead may be too large (no intersect)');
- return
- end
- Houkou=P-Op(1,Op(1,Tmp));
- Houkou=Unscaling(Houkou);
- P=Unscaling(P);
- end;
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Ev=-1/Vecnagasa(Houkou)*Houkou;
- Nv=[-Ev(2),Ev(1)];
- if mtlb_findstr(Str,'c')~=[]
- P=P-0.5*Ookisa*cos(Theta)*Ev
- end;
- if mtlb_findstr(Str,'b')~=[]
- P=P-Ookisa*cos(Theta)*Ev
- end;
- A=P+Ookisa*cos(Theta)*Ev+Ookisa*sin(Theta)*Nv;
- B=P+Ookisa*cos(Theta)*Ev-Ookisa*sin(Theta)*Nv;
- if mtlb_findstr(Str,'l')~=[]
- Tmp=Listplot([A,P,B]);
- Tmp1=Unscaling(Tmp); // 13.05.17
- Drwline(Tmp1,Futosa);
- else
- C=P+(1-Cut)*((A+B)/2-P); // 12.01.05
- Tmp=Listplot([A,P,B,C,A]); // 12.01.05
- Tmp1=Unscaling(Tmp);
- Shade(Tmp1);
- Tmp=Listplot([A,P,B,C,A,P]); // 15.6.20
- Tmp1=Unscaling(Tmp);
- Drwline(Tmp1,0.1); // 15.06.11, 15.06.14
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.bin
deleted file mode 100644
index 99f58621..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.sci
deleted file mode 100755
index 68dfe27c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowheaddata.sci
+++ /dev/null
@@ -1,89 +0,0 @@
-// 08.05.31
-// 09.12.25
-// 13.11.13 debugged
-// 14.11.02 debugged
-
-function Out=Arrowheaddata(varargin)
- global YaSize YaAngle YaPosition YaThick YaStyle;
- Eps=10^(-3);
- Nargs=length(varargin);
- Out=[];
- P=varargin(1);
- Houkou=varargin(2);
- Ookisa=0.2*YaSize;
- Hiraki=YaAngle;
- Futosa=0;
- Thickness=1;
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==10
- if mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- Futosa=Thickness;
- else
- Str=Tmp;
- end
- end
- if type(Tmp)==1 & length(Tmp)==1
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki;
- else
- Hiraki=Tmp;
- end
- end
- Flg=Flg+1;
- end
- end
- Theta=Hiraki*%pi/180;
- if size(Houkou,1)>1
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Tmp=Nearestpt(P,Houkou);
- A=Op(1,Tmp);
- I=floor(Op(2,Tmp));
- if I==1 // 14.11.02
- if norm(Ptend(Houkou)-Ptstart(Houkou))<Eps
- l=Numptcrv(Houkou);
- end;
- end;
- G=Circledata(P,Ookisa*cos(Theta),'N=10');
- Flg=0; // 13.11.13
- for J=I:-1:1
- B=Ptcrv(J,Houkou);
- Tmp=IntersectcrvsPp(Listplot([A,B]),G);
- if Mixlength(Tmp)>0
- Flg=1;
- break
- end
- A=B
- end
- if Flg==0 // 13.11.13
- disp('Arrowhead may be too large (no intersect)');
- return
- end
- Houkou=P-Op(1,Op(1,Tmp));
- Houkou=Unscaling(Houkou);
- P=Unscaling(P);
- end
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- E=-1/Vecnagasa(Houkou)*Houkou;
- N=[-E(2),E(1)];
- if mtlb_findstr(Str,'c')~=[]
- P=P-0.5*Ookisa*cos(Theta)*E;
- end
- if mtlb_findstr(Str,'b')~=[]
- P=P-Ookisa*cos(Theta)*E
- end
- A=P+Ookisa*cos(Theta)*E+Ookisa*sin(Theta)*N;
- B=P+Ookisa*cos(Theta)*E-Ookisa*sin(Theta)*N;
- Out=Listplot([A,P,B]);
- Out=Unscaling(Out);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.bin
deleted file mode 100644
index dec6b519..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.sci
deleted file mode 100755
index 881662b1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Arrowline.sci
+++ /dev/null
@@ -1,57 +0,0 @@
-//
-// 12.01.07 kirikomi(Cut)
-// 12.08.26 debugged
-// 15.06.11 debugged
-// 15.10.24 debugged
-
-function Arrowline(varargin)
- global YaSize YaAngle YaPosition YaThick YaStyle Kirikomi;
- Nargs=length(varargin)
- P=varargin(1);
- Q=varargin(2);
- Futosa=YaThick;
- Ookisa=YaSize;
- Hiraki=YaAngle;
- Yapos=YaPosition;
- Cutstr="Cut=0";
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==10
- Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from
- if length(Equal)>0
- Tmp2=strsplit(Tmp,Equal-1);
- if (Tmp2(1)=="Cut") | (Tmp2(1)=="cut")
- Tmp="Cut"+Tmp2(2);
- Cutstr=Tmp;
- end
- else
- Str=Tmp; // 12.01.07 upto (debugged on 12.08.26)
- end;
- end;
- if (type(Tmp)==1) & (length(Tmp)==1)
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki;
- else
- Hiraki=Tmp;
- end
- end
- if Flg==2
- Yapos=Tmp;
- end
- if Flg==3
- Futosa=Tmp;
- end
- Flg=Flg+1;
- end
- end
- R=P+Yapos*(Q-P);
- Tmp=Q-Unscaling(0.2*Ookisa/2*(Q-P)/norm(Q-P)); // 15.10.24
- Drwline(Listplot([P,Tmp]),Futosa);
- Arrowhead(R,Q-P,Ookisa,Hiraki,Futosa,Cutstr,Str); // 12.01.07
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.bin
deleted file mode 100644
index a4ad2b27..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.sci
deleted file mode 100755
index 8d9201cc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assign.sci
+++ /dev/null
@@ -1,202 +0,0 @@
-// 08.09.26
-// 09.09.21
-// 09.09.26
-// 09.10.01
-// 09.10.03
-// 09.10.05
-// 09.10.08
-// 09.10.09 ( format=20)
-// 09.10.15 ( added Assign('') : reset
-// 09.10.17 ( Matrix added, ? -> number returned)
-// 09.10.21 ( list supported with Makeliststr )
-// 14.10.04 format=12
-// 14.12.11 only replaced when variable name
-// 14.12.28 debugged ( tmp2, ` )
-// 15.02.18 debugged ( for list of string )
-// 15.02.19 debugged
-// 15.04.18 debugged
-
-function Out=Assign(varargin)
- global ASSIGNLIST;
- Curfmt=format();
- format(12); // 14.10.04
- Nargs=length(varargin);
- if Nargs==0
- ASSIGNLIST=list('`',Prime());
- Out=ASSIGNLIST;
- format(Curfmt(2));
- return;
- end;
- L=list('`',char(39));
- NL=length(L);
- if modulo(Nargs,2)==0
- for I=1:Nargs
- L(I+NL)=varargin(I);
- end;
- ASSIGNLIST=L;
- Out=L;
- format(Curfmt(2));
- return;
- end;
- if Nargs==1
- Fnstr=varargin(1);
- if Fnstr==''
- L=ASSIGNLIST;
- Out=[];
- for I=1:2:length(L)
- Tmp1=L(I);
- Tmp2=L(I+1);
- if length(Tmp2)==1
- Tmp3=string(Tmp2);
- else
- Tmp3='[';
- for J=1:length(Tmp2)
- Tmp3=Tmp3+string(Tmp2(J));
- if J<length(Tmp2)
- Tmp3=Tmp3+',';
- end;
- end;
- Tmp3=Tmp3+']';
- end;
- Out=[Out,Tmp1+'='+Tmp3];
- end;
- format(Curfmt(2));
- return;
- end;
- if part(Fnstr,1)=='?'
- Tmp=strsplit(Fnstr,1);
- Fnstr=Tmp(2);
- for I=1:2:length(ASSIGNLIST)
- Tmp=ASSIGNLIST(I);
- if Tmp==Fnstr
- Out=Mixjoin(I,ASSIGNLIST(I+1));
- format(Curfmt(2));
- return;
- end;
- end;
- Out='Not found';
- format(Curfmt(2));
- return;
- end; //
- L=ASSIGNLIST;
- else
- if type(varargin(2))==1
- Fnstr=varargin(Nargs);
- for I=1:Nargs-1
- L(I)=varargin(I);
- end;
- else
- Fnstr=varargin(1);
- for I=2:Nargs
- L(I-1)=varargin(I);
- end;
- end;
- end;
- Tmp3=Fnstr; // 15.04.18
- for I=1:2:length(L)
- Vname=L(I);
- Val=L(I+1);
- if Vname=="`" // 14.12.28
- Tmp3=strsubst(Tmp3,Vname,Val);
- continue
- end;
- if type(Val)==1
- if size(Val,1)==1 & size(Val,2)>1 // 15.04.18
- for K=1:length(Val)
- Tmp=Vname+'('+string(K)+')';
- if mtlb_findstr(Tmp3,Tmp)~=[]
- if type(Val(K))==1
- Tmp1='('+string(Val(K))+')';
- else
- Tmp1=Val(K);
- end;
- Tmp3=strsubst(Tmp3,Tmp,Tmp1);
- end;
- end;
- else
- for J=1:size(Val,1)
- for K=1:size(Val,2)
- Tmp=Vname+'('+string(J)+','+string(K)+')';
- if mtlb_findstr(Tmp3,Tmp)~=[]
- if type(Val(J,K))==1
- Tmp1='('+string(Val(J,K))+')';
- else
- Tmp1=Val(J,K);
- end;
- Tmp3=strsubst(Tmp3,Tmp,Tmp1);
- end;
- end;
- end;
- end;
- if length(Val)==1
- Rep=string(Val);
- else
- Rep='[';
- for J=1:size(Val,1)
- for K=1:size(Val,2)
- Rep=Rep+string(Val(J,K));
- if K<size(Val,2)
- Rep=Rep+',';
- end;
- end;
- if J<size(Val,1)
- Rep=Rep+';';
- else
- Rep=Rep+']';
- end;
- end;
- end;
- Tmp1='('+Rep+')';
- end;
- if type(Val)==10
- Tmp1=Val;
- end;
- if type(Val)==15
- Tmp1=Makeliststr(Val);
- end;
- Notvar=[48:57,65:90,97:122];
- for K=1:size(Tmp3,2)
- Tmp2=Tmp3(K);
- if length(Tmp2)>0 then
- Flist=mtlb_findstr(Tmp2,Vname);
- else
- Flist=[];
- end
- if length(Flist)==0 then
- Tmp3(K)=Tmp2; // 15.04.18
- continue
- end
- Str=part(Tmp2,1:(Flist(1)-1));
- for I=1:length(Flist)
- Flg=0;
- J=Flist(I);
- if J>1 then
- Tmp=ascii(part(Tmp2,J-1));
- if Member(Tmp,Notvar) then
- Flg=1;
- end;
- end
- if J+length(Vname)-1<length(Tmp2) then // 15.04.18
- Tmp=ascii(part(Tmp2,J+length(Vname))); // 15.04.18
- if Member(Tmp,Notvar) then
- Flg=1;
- end;
- end;
- if Flg==0 then
- Str=Str+Tmp1;
- else
- Str=Str+Vname;
- end;
- if I<length(Flist) then
- Tmp=Flist(I+1)-1;
- else
- Tmp=length(Tmp2);
- end;
- Str=Str+part(Tmp2,(J+length(Vname)):Tmp);
- Tmp3(K)=Str; // 15.04.18
- end;
- end;
- end;
- Out=Tmp3; // 15.02.18 upto
- format(Curfmt(2));
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.bin
deleted file mode 100644
index c6c202fa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.sci
deleted file mode 100755
index d8883e6c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignadd.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 09.10.03
-
-function Out=Assignadd(varargin)
- global ASSIGNLIST;
- Nargs=length(varargin);
- L=ASSIGNLIST;
- Is=length(L);
- for I=1:Nargs
- L(I+Is)=varargin(I);
- end;
- ASSIGNLIST=L;
- Out=L;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.bin
deleted file mode 100644
index 3e962180..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.sci
deleted file mode 100755
index 0a362b01..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignrep.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 09.10.17
-// 09.12.05
-// 09.12.29
-// 14.09.30 addition supported
-
-function Assignrep(varargin)
- global ASSIGNLIST;
- Nargs=length(varargin);
- for I=1:2:Nargs
- Vname=varargin(I);
- Val=varargin(I+1);
- Tmp=Assign('?'+Vname);
- if Tmp=='Not found'
- Tmp=length(ASSIGNLIST);
- ASSIGNLIST(Tmp+1)=Vname;
- ASSIGNLIST(Tmp+2)=Val;
- else
- I=Tmp(1);
- ASSIGNLIST(I+1)=Val;
- end;
- end
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.bin
deleted file mode 100644
index 04246041..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.sci
deleted file mode 100755
index bb77c105..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Assignset.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.10.21
-
-function Assignset(varargin)
- I=1:length(varargin);
- Tmp=Assign(varargin(I));;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.bin
deleted file mode 100644
index aa6d94ab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.sci
deleted file mode 100755
index f93e3200..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Beginpicture.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 08.05.22
-
-function Beginpicture(ul)
- Openpicture(ul)
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.bin
deleted file mode 100644
index 4de26d03..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.sci
deleted file mode 100644
index 7d1993eb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezier.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 15.01.01
-
-function Out=Bezier(varargin)
- Nargs=length(varargin);
- Ptlist=varargin(1);
- Ctrlist=varargin(2);
- Num=10;
- for J=3:Nargs
- Tmp=varargin(J);
- K=mtlb_findstr(Tmp,'=');
- Tmp1=strsplit(Tmp,[K-1,K]);
- Tmp2=ascii(Tmp1(1,1));
- Lhs=char(Tmp2(1));
- if Lhs=="N" then
- Num=evstr(Tmp1(3,1));
- end;
- end;
- if length(Num)==1
- Num=Num*ones(1:length(Ctrlist))
- end;
- Out=[];
- for ii=1:length(Ctrlist)
- Tmp1=[Ptlist(ii),Ptlist(ii+1)];
- Tmp2=Ctrlist(ii);
- if ii==1 then
- St=0
- else
- St=1
- end;
- for J=St:Num(ii)
- Tmp=Bezierpt(J/Num(ii),Tmp1,Tmp2);
- Out=[Out;Tmp];
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.bin
deleted file mode 100644
index 53d89112..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.sci
deleted file mode 100644
index ac639249..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bezierpt.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 15.01.01
-// 15.02.08 for 3d
-
-function Out=Bezierpt(t,Ptlist,Ctrlist)
- if length(Ptlist)==6 then // 3d 15.02.08
- P0=Ptlist(1:3);
- P3=Ptlist(4:6);
- P1=Ctrlist(1:3);
- if length(Ctrlist)==3 then
- P2=P3;
- flg3=0;
- else
- P2=Ctrlist(4:6);
- flg3=1;
- end;
- else
- P0=Ptlist(1:2);
- P3=Ptlist(3:4);
- P1=Ctrlist(1:2);
- if length(Ctrlist)==2 then
- P2=P3;
- flg3=0;
- else
- P2=Ctrlist(3:4);
- flg3=1;
- end;
- end;
- 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 then
- Out=P7;
- else
- Out=P9;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.bin
deleted file mode 100644
index 2c743976..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.sci
deleted file mode 100755
index dac12561..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.13
-
-function Out=BorderHiddenData()
- global BORDERHIDDENDATA
- Out=BORDERHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.bin
deleted file mode 100644
index 6fb6e54e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.sci
deleted file mode 100755
index 12947bcd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/BorderPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.13
-
-function Out=BorderPt()
- global BORDERPT
- Out=BORDERPT
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.bin
deleted file mode 100644
index 1e0a62fc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.sci
deleted file mode 100755
index 2e944821..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderparadata.sci
+++ /dev/null
@@ -1,121 +0,0 @@
-// 08.09.13
-// 08.09.16
-// 08.10.10
-// 08.10.11
-// 08.10.15
-// 08.10.28
-// 09.03.09
-// 09.05.27
-// 09.06.03
-// 10.02.16 Eps=> [Eps, Epsmg]
-// 13.10.21 ( __ added to varibles )
-
-function FsL__=Borderparadata(varargin)
- global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA
- global PARTITIONPT
- Nargs__=length(varargin);
- FkL__=varargin(1);
- Fd__=varargin(2); N__=3;
- FdL__=Fullformfunc(Fd__);
- Fxy__=Mixop(1,FdL__);
- Tmp__1=Mixop(2,FdL__);
- Tmp__2=Mixop(3,FdL__);
- Tmp__3=Mixop(4,FdL__);
- Xyzstr__=[Tmp__1,Tmp__2,Tmp__3];
- DrwS__=Mixop(7,FdL__);
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Np__=[50,50];
- if Nargs__>=3
- Np__=varargin(3); N__=4;
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Eps__=[0.05,1]; //
- if Nargs__>=N__ Eps__=varargin(N__); end;
- Eps__2=0.2;
- if Nargs__>=N__+1 Eps__2=varargin(N__+1); end;
- Umin__=Urg__(1); Umax__=Urg__(2);
- Vmin__=Vrg__(1); Vmax__=Vrg__(2);
- EkL__=[];
- Tmp__=mtlb_findstr(DrwS__,'e');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'n');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'w');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'s');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- if Mixlength(EkL__)>0
- FkL__=Mixjoin(FkL__,EkL__);
- end;
- Fall__=Projpara(FkL__);
- if Mixtype(Fall__)==1
- Fall__=Mix(Fall__)
- end;
- Fbdxy__=Makexybdy(Fd__,Np__);
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- BORDERPT=[];
- Tmp__=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixadd(Tmp__,[]);
- end;
- OTHERPARTITION=Tmp__;
- FsL__=[];
- BORDERHIDDENDATA=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixop(I__,FkL__);
- Tmp__=Projpara(Tmp__);
- Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); //
- if Mixlength(PARTITIONPT)>2
- Tmp__=Mixlength(PARTITIONPT)-1;
- Tmp__1=Mixsub(2:Tmp__,PARTITIONPT);
- BORDERPT=Mixjoin(BORDERPT,Tmp__1);
- end;
- Tmp__1=Mixop(I__,FkL__);
- Tmp__=Nohiddenpara2(Par__,Tmp__1,Fd__,1,Np__,Eps__);
- if Mixlength(HIDDENDATA)>0
- BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA);
- end;
- if Mixlength(Tmp__)>0
- FsL__=Mixjoin(FsL__,Tmp__);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.bin
deleted file mode 100644
index 2a4cc650..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.sci
deleted file mode 100755
index f86ddfa0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderpersdata.sci
+++ /dev/null
@@ -1,120 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 08.10.11
-// 08.10.28
-// 09.03.09
-// 09.05.27
-// 09.06.03
-// 10.02.16 Eps__
-// 13.11.01 ( __ added to varibles )
-
-function FsL__=Borderpersdata(varargin)
- global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA
- global PARTITIONPT
- Nargs__=length(varargin);
- FkL__=varargin(1);
- Fd__=varargin(2); N=3;
- FdL__=Fullformfunc(Fd__);
- Fxy__=Mixop(1,FdL__);
- Tmp__1=Mixop(2,FdL__);
- Tmp__2=Mixop(3,FdL__);
- Tmp__3=Mixop(4,FdL__);
- Xyzstr__=[Tmp__1,Tmp__2,Tmp__3];
- DrwS__=Mixop(7,FdL__);
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Np__=[50,50];
- if Nargs__>=3
- Np__=varargin(3); N=4;
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Eps__=0.05;
- Eps__=[0.05,1]; //
- if Nargs__>=N Eps__=varargin(N); end;
- Eps__2=0.2;
- if Nargs__>=N+1 Eps__2=varargin(N+1); end;
- Umin__=Urg__(1); Umax__=Urg__(2);
- Vmin__=Vrg__(1); Vmax__=Vrg__(2);
- EkL__=[];
- Tmp__=mtlb_findstr(DrwS__,'e');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'n');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'w');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'s');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- if Mixlength(EkL__)>0
- FkL__=Mixjoin(FkL__,EkL__);
- end;
- Fall__=Projpers(FkL__);
- if Mixtype(Fall__)==1
- Fall__=Mix(Fall__);
- end;
- Fbdxy__=Makexybdy(Fd__,Np__);
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- BORDERPT=[];
- Tmp__=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixadd(Tmp__,[]);
- end;
- OTHERPARTITION=Tmp__;
- FsL__=[];
- BORDERHIDDENDATA=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixop(I__,FkL__);
- Tmp__=Projpers(Tmp__);
- Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__);
- if Mixlength(PARTITIONPT)>2
- Tmp__=Mixlength(PARTITIONPT)-1;
- Tmp__1=Mixsub(2:Tmp__,PARTITIONPT);
- BORDERPT=Mixjoin(BORDERPT,Tmp__1);
- end;
- Tmp__1=Mixop(I__,FkL__);
- Tmp__=Nohiddenpers2(Par__,Tmp__1,Fd__,1,Np__,Eps__);
- if Mixlength(HIDDENDATA)>0
- BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA);
- end;
- if Mixlength(Tmp__)>0
- FsL__=Mixjoin(FsL__,Tmp__);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.bin
deleted file mode 100644
index fb44560f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.sci
deleted file mode 100755
index 657efc23..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Borderrawdata.sci
+++ /dev/null
@@ -1,64 +0,0 @@
-// 08.09.10
-
-function FkL=Borderrawdata(varargin)
- Nall=length(varargin);
- FkL=varargin(1);
- FdL=Fullformfunc(varargin(2));
- Tmp1=Mixop(2,FdL);
- Tmp2=Mixop(3,FdL);
- Tmp3=Mixop(4,FdL);
- Xyzstr=[Tmp1,Tmp2,Tmp3];
- DrwS=Mixop(7,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- Np=[50,50];
- if Nall>=3
- Np=varargin(3);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Um=Urg(1); UM=Urg(2);
- Vm=Vrg(1); VM=Vrg(2);
- EkL=[];
- Tmp=mtlb_findstr(DrwS,'e');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Uname,'('+string(UM)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'n');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Vname,'('+string(VM)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'w');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Uname,'('+string(Um)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'s');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Vname,'('+string(Vm)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- FkL=Mixjoin(FkL,EkL);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.bin
deleted file mode 100644
index a5819013..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.sci
deleted file mode 100755
index 48154cf1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowdata.sci
+++ /dev/null
@@ -1,45 +0,0 @@
-//
-// 08.05.22
-// 08.08.24
-
-function Pd=Bowdata(varargin)
- global BOWMIDDLE BOWSTART BOWEND
- Nargs=length(varargin);
- PA=varargin(1);
- PB=varargin(2);
- Cut=0;
- D=1/2*Vecnagasa(PB-PA);
- if Nargs>=3
- H=varargin(3)*D*0.2;
- else
- H=D*0.2;
- end
- H=min(H,D);
- if Nargs>=4
- Cut=varargin(4);
- end
- Ydata=MakeBowdata(PA,PB,H);
- C=Mixop(1,Ydata);
- r=Mixop(2,Ydata);
- R1=Mixop(3,Ydata);
- R2=Mixop(4,Ydata);
- Rng='R=['+string(R1)+','+string(R2)+']';
- Theta=(R1+R2)*0.5;
- BOWMIDDLE=MixS([C(1)+r*cos(Theta),C(2)+r*sin(Theta)],Theta);
- M=Mixop(1,BOWMIDDLE);
- ThetaM=Mixop(2,BOWMIDDLE);
- BOWSTART=PA;
- BOWEND=PB;
- if Cut==0
- Pd=Circledata(C,r,Rng);
- else
- Alpha=R1; Beta=ThetaM-Cut/(2*r);
- Rng='R=['+string(Alpha)+','+string(Beta)+']';
- Pd=Circledata(C,r,Rng);
- Alpha=ThetaM+Cut/(2*r); Beta=R2;
- Rng='R=['+string(Alpha)+','+string(Beta)+']';
- Tmp=Circledata(C,r,Rng);
- Pd=[Pd;%inf,%inf;Tmp];
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.bin
deleted file mode 100644
index b212c380..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.sci
deleted file mode 100755
index 5157c111..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowmiddle.sci
+++ /dev/null
@@ -1,53 +0,0 @@
-//
-// 08.05.22
-// 08.05.31
-// 09.08.12
-
-function M=Bowmiddle(varargin)
- global BOWMIDDLE;
- Nargs=length(varargin);
- if Nargs==0
- M=BOWMIDDLE;
- return;
- end;
- if Nargs==1
- Bdata=varargin(1);
- A=Bdata(1,:);
- Dind=Dataindex(Bdata);
- Dc=size(Dind,1);
- Tmp=Dind(Dc,2);
- B=Bdata(Tmp,:);
- if Dc==1
- Tmp1=round(Tmp/2);
- else
- Tmp1=Dind(1,2);
- end;
- D=Bdata(Tmp1,:);
- B=B-A;
- D=D-A;
- Tmp1=B(1)*D(2)-D(1)*B(2);
- Tmp2=((B(1)^2+B(2)^2)*D(2)-B(2)*(D(1)^2+D(2)^2))/2;
- Tmp3=-((B(1)^2+B(2)^2)*D(1)-B(1)*(D(1)^2+D(2)^2))/2;
- C=[Tmp2,Tmp3]/Tmp1+A;
- R=norm(C-A);
- B=B+A;
- V=(A+B)/2-C;
- V=V/norm(V);
- M=C+R*V;
- else
- A=varargin(1); B=varargin(2);
- D=1/2*Vecnagasa(B-A);
- H=0.2*D;
- if length(varargin)>=3
- Tmp=varargin(3);
- H=Tmp*D*0.2;
- end
- H=min(H,D);
- Ydata=MakeBowdata(A,B,H);
- C=Op(1,Ydata);
- R=Op(2,Ydata);
- T=(Op(3,Ydata)+Op(4,Ydata))/2;
- P=C+R*[cos(T),sin(T)];
- M=MixS(P,T);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.bin
deleted file mode 100644
index 7286b547..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci
deleted file mode 100755
index f57c4961..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci
+++ /dev/null
@@ -1,40 +0,0 @@
-//
-// 08.08.24
-// 09.08.12
-// 09.08.13
-// 13.11.30 Directon supported
-
-function Bowname(varargin)
- global BOWMIDDLE;
- Nargs=length(varargin);
- Siki=varargin(Nargs);
- Nargs=Nargs-1; // 13.11.30
- Dr="c";
- if Nargs>=1 then
- Tmp=varargin(Nargs);
- if type(Tmp)==10
- Dr=Tmp;
- Nargs=Nargs-1;
- end
- end
- if Nargs==0 // 13.11.30
- P=Mixop(1,BOWMIDDLE);
- elseif Nargs==1 // 13.11.30
- Bdata=varargin(1);
- P=Bowmiddle(Bdata);
- else
- A=varargin(1); B=varargin(2);
- D=1/2*Vecnagasa(B-A);
- Tmp=varargin(3);
- if type(Tmp)==10
- H=D*0.2;
- else
- H=Tmp*D*0.2;
- end;
- H=min(H,D);
- Ydata=MakeBowdata(A,B,H);
- Tmp=Bowmiddle(Ydata);
- P=Mixop(1,Tmp);
- end
- Expr(P,Dr,Siki); //13.11.30
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.bin
deleted file mode 100644
index b66d56a9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.sci
deleted file mode 100755
index 8d1edf78..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bownamerot.sci
+++ /dev/null
@@ -1,77 +0,0 @@
-// 08.05.31
-// 08.08.24
-// 09.08.12
-// 09.08.13
-// 13.12.15 tiny move supported
-// A,B type no longer supported
-
-function Bownamerot(varargin)
- global Wfile FID BOWMIDDLE BOWSTART BOWEND;
- Nargs=length(varargin);
- Eps=10^(-6);
- Flg=1;
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & length(Tmp)==1 & Tmp<0
- Flg=Tmp;
- Nargs=Nargs-1;
- end;
- Siki=varargin(Nargs);
- Nargs=Nargs-1;
- Dr="c";
- if Nargs>=1 then
- Tmp=varargin(Nargs);
- if type(Tmp)==10
- Dr=Tmp;
- Nargs=Nargs-1;
- end
- end
- if Nargs==0
- P=Mixop(1,BOWMIDDLE);
- A=BOWSTART;
- B=BOWEND;
- else
- Bdata=varargin(1);
- P=Bowmiddle(Bdata);
- A=Bdata(1,:);
- B=Bdata(size(Bdata,1),:);
- Tm=0; Tv=0;
- if Nargs>1 then // 13.12.15
- Tm=varargin(2);
- if Nargs>2 then
- Tv=varargin(3);
- end
- end
- end;
-// elseif Nargs==1
-// Bdata=varargin(1);
-// P=Bowmiddle(Bdata);
-// A=Bdata(1,:);
-// B=Bdata(size(Bdata,1),:);
-// else
-// A=varargin(1); B=varargin(2);
-// D=1/2*Vecnagasa(B-A);
-// Tmp=varargin(3);
-// if type(Tmp)==10
-// H=0.2*D; Siki=Tmp;
-// else
-// H=Tmp*D*0.2; Siki=varargin(4);
-// end
-// H=min(H,D);
-// Ydata=MakeBowdata(A,B,H);
-// C=Op(1,Ydata);
-// R=Op(2,Ydata);
-// T=(Op(3,Ydata)+Op(4,Ydata))/2;
-// P=C+R*[cos(T),sin(T)];
-// end;
- if A(1)>B(1)+Eps
- Tmp=A;
- A=B;
- B=Tmp;
- end;
- if Flg>0
- Tmp=B-A;
- else
- Tmp=A-B;
- end;
- Exprrot(P,Tmp,Tm,Tv,Siki);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.bin
deleted file mode 100644
index dd6d1a9c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci
deleted file mode 100755
index aa1216dd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcHeight.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-function CalcHeight(Hoko,Moji)
- global Wfile FID;
- D=0;
- Tmp=ascii(Hoko);
- H=char(Tmp(1));
- Str=['\settoheight{\Height}{'+Moji+'}'];
- Str=[Str,'\settodepth{\Depth}{'+Moji+'}'];
- if H=='n'
- Str=[Str,'\setlength{\Height}{\Depth}'];
- end
- if H=='s'
- Str=[Str,'\setlength{\Height}{-\Height}'];
- end
- if H=='c'
- Str=[Str,'\setlength{\Height}{-0.5\Height}'];
- Str=[Str,'\setlength{\Depth}{0.5\Depth}'];
- Str=[Str,'\addtolength{\Height}{\Depth}'];
- end
- if Wfile=='default'
- for I=1:size(Str,2)
- mprintf('%s',Str(I));
- end
- mprintf('%s\n','%');
- else
- for I=1:size(Str,2)
- mfprintf(FID,'%s',Str(I));
- end
- mfprintf(FID,'%s\n','%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.bin
deleted file mode 100644
index cba76bac..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.sci
deleted file mode 100755
index 111e9b3b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CalcWidth.sci
+++ /dev/null
@@ -1,26 +0,0 @@
-function CalcWidth(Hoko,Moji)
- global Wfile FID
- D=0;
- Tmp=ascii(Hoko);
- H=char(Tmp(2));
- if H=='e'
- D=0;
- end
- if H=='w'
- D=-1.0;
- end
- if H=='c'
- D=-0.5;
- end
- Str1='\settowidth{\Width}{'+Moji+'}';
- Tmp=string(D);
- Str2='\setlength{\Width}{'+Tmp+'\Width}';
- if Wfile=='default'
- mprintf('%s',Str1);
- mprintf('%s%s\n',Str2,'%');
- else
- mfprintf(FID,'%s',Str1);
- mfprintf(FID,'%s%s\n',Str2,'%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.bin
deleted file mode 100644
index 4fdb507e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.sci
deleted file mode 100755
index 30c646a6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Calcfun.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// 08.05.30
-
-function PL=Calcfun(Siki,Namae,Atai)
- execstr(Namae+'=Atai');
- Tmp='XY='+Siki;
- execstr(Tmp);
- PL=[Atai(:,1),XY(:,2)];
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.bin
deleted file mode 100644
index 5227aec7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.sci
deleted file mode 100755
index fcc7687c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameraCurve.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-// 08.08.12
-// 08.10.07
-// 09.06.02
-
-function AnsL=CameraCurve(Curve)
- Eps=10^(-6);
- for I=1:size(Curve,1)
- P=Curve(I,:);
- x=P(1); y=P(2); z=P(3);
- if x~=%inf
- Tmp=Perspt(P);
- if I==1
- AnsL=[Tmp];
- else
- Tmp1=AnsL(size(AnsL,1),:);
- if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps
- AnsL=[AnsL;Tmp];
- end;
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.bin
deleted file mode 100644
index dfe76941..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.sci
deleted file mode 100755
index 310ac166..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CameracoordCurve.sci
+++ /dev/null
@@ -1,28 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 09.09.25
-
-function Out=CameracoordCurve(Curve)
- global FocusPoint EyePoint;
- Out=[]; // 09.09.25
- for J=1:size(Curve,1)
- P=Curve(J,:);
- Tmp=P-FocusPoint;
- X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3);
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1;
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb;
- E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb;
- Xz=X3;
- Yz=E3/(E3-X3)*Y3;
- Zz=E3/(E3-X3)*Z3;
- Out=[Out;Yz,Zz,Xz];
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.bin
deleted file mode 100644
index 58fd0152..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.sci
deleted file mode 100644
index 1574d812..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpara.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-// 13.08.13
-
-function Out=Cancoordpara(P)
- global PHI THETA;
- Xz=P(1); Yz=P(2); Zz=P(3);
- X=-Xz*sin(PHI)-Yz*cos(PHI)*cos(THETA)+Zz*cos(PHI)*sin(THETA);
- Y=Xz*cos(PHI)-Yz*sin(PHI)*cos(THETA)+Zz*sin(PHI)*sin(THETA);
- Z=Yz*sin(THETA)+Zz*cos(THETA);
- Out=[X,Y,Z];
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.bin
deleted file mode 100644
index 57e2e49c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.sci
deleted file mode 100755
index b63aba5c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cancoordpers.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 08.08.12
-
-function Out=Cancoordpers(P)
- global EyePoint FocusPoint;
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb;
- Xz=P(3); Yz=P(1); Zz=P(2);
- X3=Xz; Y3=Yz*(E3-Xz)/E3; Z3=Zz*(E3-Xz)/E3;
- X2=X3*Cb-Sb*Z3; Y2=Y3; Z2=Cb*Z3+Sb*X3;
- X1=X2*Ca-Sa*Y2; Y1=Ca*Y2+Sa*X2; Z1=Z2;
- X=X1+FocusPoint(1);
- Y=Y1+FocusPoint(2);
- Z=Z1+FocusPoint(3);
- Out=[X,Y,Z];
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.bin
deleted file mode 100644
index 0b9ca934..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci
deleted file mode 100755
index 2148c061..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Circledata.sci
+++ /dev/null
@@ -1,32 +0,0 @@
-// s:2008,05.12
-// e:2014.09.08 [A,B] supported
-// e:2014.10.24 N,R => N__, ...
-
-function P=Circledata(varargin)
- Nargs=length(varargin);
- C=varargin(1);
- if length(C)==4 then
- ra=norm(C(1:2)-C(3:4));
- C=C(1:2);
- Nop=2;
- else
- ra=varargin(2);
- Nop=3;
- end;
- R__=[0,2*%pi];
- N__=50; // Numpoints
- for I=Nop:Nargs
- Tmp=varargin(I);
- K=mtlb_findstr(Tmp,'=');
- Tmp1=strsplit(Tmp,[K-1,K]);
- Tmp2=ascii(Tmp1(1,1));
- Lhs=char(Tmp2(1));
- Str=Lhs+'__='+Tmp1(3,1);
- execstr(Str);
- end;
- Dt=(R__(2)-R__(1))/N__;
- T=R__(1):Dt:R__(2);
- X=C(1)+ra*cos(T);
- Y=C(2)+ra*sin(T);
- P=[X',Y'];
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.bin
deleted file mode 100644
index 374f6316..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.sci
deleted file mode 100755
index bf9572c5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Clipindomain.sci
+++ /dev/null
@@ -1,58 +0,0 @@
-// 08.09.10
-// 08.09.16
-// 09.12.31 (gsort)
-
-function OutL=Clipindomain(ObjL,FigL)
- EEps=10^(-4);
- Eps=0.01;
- Eps2=0.2;
- Bdy=Kyoukai(FigL);
- if Mixlength(Bdy)>=2
- Fbdy=Joincrvs(FigL)
- else
- Fbdy=Mixop(1,FigL);
- end;
- if Mixtype(ObjL)==1
- ObjL=Mix(ObjL)
- end;
- if Mixtype(FigL)==1
- FigL=Mix(FigL)
- end;
- OutL=[];
- for Nobj=1:Mixlength(ObjL);
- Obj=Mixop(Nobj,ObjL);
- ParL=[1,Numptcrv(Obj)];
- Tmp=IntersectcrvsPp(Obj,Fbdy,Eps,Eps2);
- for J=1:Mixlength(Tmp)
- Tmp1=Mixop(J,Tmp);
- ParL=[ParL,Mixop(2,Tmp1)];
- end;
- ParL=gsort(ParL);
- ParL=ParL(length(ParL):-1:1);
- Tmp=[1];
- for I=1:length(ParL)
- Tmp1=Tmp(length(Tmp));
- Tmp2=ParL(I);
- if Tmp2-Tmp1>EEps
- Tmp=[Tmp,Tmp2];
- end;
- end;
- ParL=Tmp;
- Tmp1=ParL(length(ParL));
- Tmp2=Numptcrv(Obj);
- if abs(Tmp1-Tmp2)<Eps
- ParL=[ParL(1:length(ParL)-1),Tmp2];
- end;
- Fig=[];
- for N=1:length(ParL)-1
- Tmp=(ParL(N)+ParL(N+1))*0.5;
- Tmp=PointonCurve(Tmp,Obj);
- Tmp=Naigai(Tmp,Bdy);
- Tmp1=modulo(sum(Tmp),2);
- if Tmp1==0 continue; end;
- Fig=Mixadd(Fig,Partcrv(ParL(N),ParL(N+1),Obj));
- end;
- OutL=Mixjoin(OutL,Fig);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.bin
deleted file mode 100644
index 991de452..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci
deleted file mode 100755
index f2928103..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closefile.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-//
-// 13.05.19 openfile error tackled
-// 13.11.01 Endpicture joined optionally
-// 13.11.05 debugged
-
-function Closefile(varargin)
- global Wfile FID;
- if length(varargin)>=1 then
- Pa=varargin(1);
- if type(Pa)==10 then
- if Pa=="1" then // 2013.11.05
- Endpicture(1)
- end;
- if Pa=="0" then
- Endpicture(0)
- end //
- end
- end
- if Wfile~='default' then
- mclose(FID);
- FID=[]; // 2013.05.19
- end
- Wfile='default';
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.bin
deleted file mode 100644
index d8f4d64d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.sci
deleted file mode 100644
index da7c3850..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closeobj.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// s : 2014.06.22
-
-function Closeobj()
- global Wfile FID;
- if Wfile~='default' then
- mclose(FID);
- FID=[];
- end;
- Wfile='default';
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.bin
deleted file mode 100644
index 0e0991c3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.sci
deleted file mode 100755
index 64b93e1a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepar.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.31
-
-function Closepar()
- global Wfile FID
- S='\end{minipage}'
- if Wfile=='default'
- mprintf('%s\n','%');
- mprintf('%s',S);
- else
- mfprintf(FID,'%s\n','%');
- mfprintf(FID,'%s',S);
- end
- Closephr();
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.bin
deleted file mode 100644
index 6bffbf74..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.sci
deleted file mode 100755
index 39b363f6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closephr.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 08.05.31
-
-function Closephr()
- global Wfile FID;
- if Wfile=='default'
- mprintf('%s\n','%');
- mprintf('%s\n','}%');
- else
- mfprintf(FID,'%s\n','%');
- mfprintf(FID,'%s\n','}%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.bin
deleted file mode 100644
index c0c13ad5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.sci
deleted file mode 100755
index a3f345cb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-//
-// 08.12.17
-// 09.02.20
-// 10.04.12
-
-function Closepicture(varargin)
- global Wfile FID MEMORI MEMORINow ULEN MilliIn;
- Nargs=length(varargin);
- if Nargs==0
- Drwxy();
- elseif varargin(1)==1
- Drwxy();
- end
- if Wfile=='default'
- mprintf('%s','\end{picture}}%');
- else
- mfprintf(FID,'%s','\end{picture}}%');
- end
-// MEMORI=MEMORINow*1000/2.54/MilliIn;
- Setunitlen('1cm');
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.bin
deleted file mode 100644
index 7504d934..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.sci
deleted file mode 100755
index 2abe8c90..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Connectseg.sci
+++ /dev/null
@@ -1,76 +0,0 @@
-// 08.09.09
-// 08.09.10
-// 08.09.24
-
-function PlotL=Connectseg(varargin)
- Nargs=length(varargin);
- Pdata=varargin(1);
- Eps=10^(-5);
- if Nargs>=2
- Eps=varargin(2)
- end;
- if Mixtype(Pdata)~=1
- Tmp=Mixop(1,Pdata);
- Tmp=size(Tmp,2);
- Sep=%inf*ones(1,Tmp);
- Tmp=[];
- for I=1:Mixlength(Pdata)
- Tmp1=Mixop(I,Pdata);
- Tmp=[Tmp;Sep;Tmp1];
- end;
- Pdata=Tmp(2:size(Tmp,1),:);
- end;
- Din=Dataindex(Pdata);
- PlotL=[];
- Qd=Pdata(Din(1,1):Din(1,2),:);
- Din=Din(2:size(Din,1),:);
- N=size(Din,1);
- while N>0
- Ah=Qd(1,:);Ao=Qd(size(Qd,1),:);
- Flg=0;
- for J=1:N
- St=Din(J,1);
- En=Din(J,2);
- P=Pdata(St,:);
- Q=Pdata(En,:);
- if norm(P-Ao)<Eps
- Tmp=Pdata(St+1:En,:);
- Qd=[Qd;Tmp];
- Din=[Din(1:J-1,:);Din(J+1:N,:)];
- Flg=1;
- break;
- end;
- if norm(Q-Ao)<Eps
- Tmp=Pdata(En-1:-1:St,:);
- Qd=[Qd;Tmp];
- Din=[Din(1:J-1,:);Din(J+1:N,:)];
- Flg=1;
- break;
- end;
- if norm(P-Ah)<Eps
- Tmp=Pdata(En:-1:St+1,:);
- Qd=[Tmp;Qd];
- Din=[Din(1:J-1,:);Din(J+1:N,:)];
- Flg=1;
- break;
- end;
- if norm(Q-Ah)<Eps
- Tmp=Pdata(St:En-1,:);
- Qd=[Tmp;Qd];
- Din=[Din(1:J-1,:);Din(J+1:N,:)];
- Flg=1;
- break;
- end;
- end;
- if Flg==0
- PlotL=Mixadd(PlotL,Qd);
- Qd=Pdata(Din(1,1):Din(1,2),:);
- Din=Din(2:N,:);
- end;
- N=size(Din,1);
- end;
- if size(Qd,1)>0
- PlotL=Mixadd(PlotL,Qd);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.bin
deleted file mode 100644
index c22f1e9e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.sci
deleted file mode 100755
index ab4d55b5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crossprod.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 09.10.0
-
-function Out=Crossprod(a,b)
- 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];
- else
- Out=a(1)*b(2)-a(2)*b(1);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin
deleted file mode 100644
index 9de876b4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci
deleted file mode 100755
index 07c17303..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.19
-
-function Out=Crv3onsfHiddenData()
- global CRV3ONSFHIDDENDATA
- Out=CRV3ONSFHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin
deleted file mode 100644
index b2cafb90..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci
deleted file mode 100755
index ba168b71..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfparadata.sci
+++ /dev/null
@@ -1,49 +0,0 @@
-// 08.09.16
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-
-function Out=Crv3onsfparadata(varargin)
- global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA
- Nargs=length(varargin);
- Fk=varargin(1);
- Fbdy=Projpara(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Fbdxy=Makexybdy(Fd,Np);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Fxy=='p'
- Out=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- else
- Tmp=Mix(Fxy,Fbdxy,Xname,Yname);
- Out=Nohiddenpara(Par,Fk,Tmp);
- end;
- CRV3ONSFHIDDENDATA=HIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin
deleted file mode 100644
index 55aa8c1f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci
deleted file mode 100755
index 5fc40737..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crv3onsfpersdata.sci
+++ /dev/null
@@ -1,50 +0,0 @@
-// 08.09.21
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-
-function Out=Crv3onsfpersdata(varargin)
- global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA
- Nargs=length(varargin);
- Fk=varargin(1);
- Fbdy=Projpers(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Fbdxy=Makexybdy(Fd,Np);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Fxy=='p'
- Out=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- else
- Tmp=Mix(Fxy,Fbdxy,Xname,Yname);
- Out=Nohiddenpers(Par,Fk,Tmp);
- end;
-
- CRV3ONSFHIDDENDATA=HIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin
deleted file mode 100644
index 5269bbf1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci
deleted file mode 100755
index 9d97b3ce..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvonsfHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.19
-
-function Out=CrvonsfHiddenData()
- global CRVONSFHIDDENDATA
- Out=CRVONSFHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.bin
deleted file mode 100644
index 69551af4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci
deleted file mode 100755
index a530284b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfparadata.sci
+++ /dev/null
@@ -1,90 +0,0 @@
-// 08.09.16
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-// 13.10.22 ( __ added to varibles )
-
-function OutL__=Crvonsfparadata(varargin)
- global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA
- Nargs__=length(varargin);
- Eps__0=10^(-4);
- Figuv__=varargin(1);
- Fbdy__=Projpara(varargin(2));
- Fd__=varargin(3); N__=4;
- Fd__L=Fullformfunc(Fd__);
- Fxy__=Mixop(1,Fd__L);
- Xf__=Mixop(2,Fd__L);
- Yf__=Mixop(3,Fd__L);
- Zf__=Mixop(4,Fd__L);
- Np__=[50,50];
- if Nargs__>=N__
- Np__=varargin(N__); N__=N__+1;
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Eps__=[0.05,1]; //
- if Nargs__>=N__
- Eps__=varargin(N__);
- end;
- if length(Eps__)==1
- Eps__=[Eps__,1];
- end;
- Eps__2=0.2;
- if Nargs__>=N__+1
- Eps__2=varargin(N__+1);
- end;
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Fbdxy__=Makexybdy(Fd__,Np__);
- Fbdy__uv=Mixop(8,Fd__L);
- if Fbdy__uv==[]
- Fbdy__uv=Mix(Framedata(Urg__,Vrg__));
- end;
- FigL__=Clipindomain(Figuv__,Fbdy__uv);
- CRVONSFHIDDENDATA=[];
- OutL__=[];
- for N__=1:Mixlength(FigL__)
- PtL__=Mixop(N__,FigL__);
- Tmp__=[];
- for I__=1:size(PtL__,1)
- P__=PtL__(I__,:);
- Tmp__1=strsubst(Xf__,Uname__,'('+string(P__(1))+')');
- Tmp__1=strsubst(Tmp__1,Vname__,'('+string(P__(2))+')');
- Tmp__1=evstr(Tmp__1);
- Tmp__2=strsubst(Yf__,Uname__,'('+string(P__(1))+')');
- Tmp__2=strsubst(Tmp__2,Vname__,'('+string(P__(2))+')');
- Tmp__2=evstr(Tmp__2);
- Tmp__3=strsubst(Zf__,Uname__,'('+string(P__(1))+')');
- Tmp__3=strsubst(Tmp__3,Vname__,'('+string(P__(2))+')');
- Tmp__3=evstr(Tmp__3);
- Tmp__=[Tmp__,[Tmp__1,Tmp__2,Tmp__3]];
- end;
- Fk__=Spaceline(Tmp__);
- Par__=Partitionseg(Projpara(Fk__),Fbdy__,Eps__(1),Eps__2); //
- if Fxy__=='p'
- Tmp__=Nohiddenpara2(Par__,Fk__,Fd__,1,Np__,Eps__);
- else
- Tmp__1=Mix(Fxy__,Fbdxy__,Xname__,Yname__);
- Tmp__=Nohiddenpara(Par__,Fk__,Tmp__1);
- end;
- if Tmp__~=[]
- OutL__=Mixjoin(OutL__,Tmp__);
- end;
- if HIDDENDATA~=[]
- CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin
deleted file mode 100644
index 48451c6b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci
deleted file mode 100755
index f3bdf700..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvonsfpersdata.sci
+++ /dev/null
@@ -1,86 +0,0 @@
-// 08.09.21
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-
-function OutL=Crvonsfpersdata(varargin)
- global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA
- Nargs=length(varargin);
- Eps0=10^(-4);
- Figuv=varargin(1);
- Fbdy=Projpers(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Xf=Mixop(2,FdL);
- Yf=Mixop(3,FdL);
- Zf=Mixop(4,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1
- Eps=[Eps,1];
- end;
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- Fbdxy=Makexybdy(Fd,Np);
- Fbdyuv=Mixop(8,FdL);
- if Fbdyuv==[]
- Fbdyuv=Mix(Framedata(Urg,Vrg));
- end;
- FigL=Clipindomain(Figuv,Fbdyuv);
- CRVONSFHIDDENDATA=[];
- OutL=[];
- for N=1:Mixlength(FigL)
- PtL=Mixop(N,FigL);
- Tmp=[];
- for I=1:size(PtL,1)
- P=PtL(I,:);
- Tmp1=strsubst(Xf,Uname,'('+string(P(1))+')');
- Tmp1=strsubst(Tmp1,Vname,'('+string(P(2))+')');
- Tmp1=evstr(Tmp1);
- Tmp2=strsubst(Yf,Uname,'('+string(P(1))+')');
- Tmp2=strsubst(Tmp2,Vname,'('+string(P(2))+')');
- Tmp2=evstr(Tmp2);
- Tmp3=strsubst(Zf,Uname,'('+string(P(1))+')');
- Tmp3=strsubst(Tmp3,Vname,'('+string(P(2))+')');
- Tmp3=evstr(Tmp3);
- Tmp=[Tmp,[Tmp1,Tmp2,Tmp3]];
- end;
- Fk=Spaceline(Tmp);
- Par=Partitionseg(Projpers(Fk),Fbdy,Eps(1),Eps2); //
- if Fxy=='p'
- Tmp=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- else
- Tmp1=Mix(Fxy,Fbdxy,Xname,Yname);
- Tmp=Nohiddenpers(Par,Fk,Tmp1);
- end;
- OutL=Mixjoin(OutL,Tmp);
- CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin
deleted file mode 100644
index 110cf0de..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci
deleted file mode 100755
index 0081b20c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CrvsfHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.10.24
-
-function Out=CrvsfHiddenData()
- global CRVSFHIDDENDATA
- Out=CRVSFHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.bin
deleted file mode 100644
index b759eff5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.sci
deleted file mode 100755
index a87506d2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfparadata.sci
+++ /dev/null
@@ -1,81 +0,0 @@
-// 08.10.24
-// 08.10.25
-// 08.10.26
-// 08.10.27
-// 09.06.02
-// 09.12.31 (gsort)
-// 10.02.16
-
-function Out=Crvsfparadata(varargin)
- global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA
- Nargs=length(varargin);
- Sepflg=0;
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & Tmp<=0
- Sepflg=1;
- Nargs=Nargs-1;
- end;
- Fk=varargin(1);
- if Mixtype(Fk)==1
- FkL=Mix(Fk);
- else
- FkL=Fk;
- end;
- Fbdy=Projpara(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Out=[];
- CRVSFHIDDENDATA=[];
- for Nn=1:Mixlength(FkL)
- Fk=Mixop(Nn,FkL);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Sepflg==0
- for I=1:Numptcrv(Fk)-1
- Pa=Ptcrv(I,Fk);
- Pb=Ptcrv(I+1,Fk);
- PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); //
- for J=1:Mixlength(PtL)
- Tmp=Mixop(J,PtL);
- Tmp=Parapt(Tmp);
- Tmp1=ParamonCurve(Tmp,I,Projpara(Fk));
- Tmp2=min(abs(Par-Tmp1));
- if Tmp2*norm(Parapt(Pb-Pa))>Eps (1) //
- Par=[Par,Tmp1];
- end;
- end;
- Par=gsort(Par);
- Par=Par(length(Par):-1:1);
- end;
- end;
- Tmp1=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- Out=Mixjoin(Out,Tmp1);
- CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.bin
deleted file mode 100644
index af00090e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.sci
deleted file mode 100755
index 7e24efcb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Crvsfpersdata.sci
+++ /dev/null
@@ -1,80 +0,0 @@
-// 08.10.24
-// 08.10.25
-// 08.10.26
-// 08.10.27
-// 09.06.02
-// 09.12.31 (gsort)
-
-function Out=Crvsfpersdata(varargin)
- global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA
- Nargs=length(varargin);
- Sepflg=0;
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & Tmp<=0
- Sepflg=1;
- Nargs=Nargs-1;
- end;
- Fk=varargin(1);
- if Mixtype(Fk)==1
- FkL=Mix(Fk);
- else
- FkL=Fk;
- end;
- Fbdy=Projpers(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Out=[];
- CRVSFHIDDENDATA=[];
- for Nn=1:Mixlength(FkL)
- Fk=Mixop(Nn,FkL);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Sepflg==0
- for I=1:Numptcrv(Fk)-1
- Pa=Ptcrv(I,Fk);
- Pb=Ptcrv(I+1,Fk);
- PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); //
- for J=1:Mixlength(PtL)
- Tmp=Mixop(J,PtL);
- Tmp=Perspt(Tmp);
- Tmp1=ParamonCurve(Tmp,I,Projpers(Fk));
- Tmp2=min(abs(Par-Tmp1));
- if Tmp2*norm(Perspt(Pb-Pa))>Eps(1) //
- Par=[Par,Tmp1];
- end;
- end;
- Par=gsort(Par);
- Par=Par(length(Par):-1:1);
- end;
- end;
- Tmp1=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- Out=Mixjoin(Out,Tmp1);
- CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.bin
deleted file mode 100644
index e6820112..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.sci
deleted file mode 100755
index 8c2b6eee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.10
-
-function Out=CuspData()
- global CUSPDATA
- Out=CUSPDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.bin
deleted file mode 100644
index a31b8fa0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.sci
deleted file mode 100755
index 33f1d807..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.10
-
-function Out=CuspPt()
- global CUSPPT
- Out=CUSPPT;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.bin
deleted file mode 100644
index 040b5f3e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.sci
deleted file mode 100755
index 07cbb09b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/CuspSplitPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.10
-
-function PL=CuspSplitPt()
- global CUSPSPLITPT
- PL=CUSPSPLITPT;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.bin
deleted file mode 100644
index 333137e7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.sci
deleted file mode 100755
index 0ea935b6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpara.sci
+++ /dev/null
@@ -1,179 +0,0 @@
-// 08.09.10
-// 08.09.13
-// 08.09.15
-// 08.10.10
-// 10.02.16 Eps
-// 13.10.21 ( __ added to varibles )
-// 14.06.28 debug in the case of no cusp
-
-function OutkL__=Cuspsplitpara(varargin);
- global CUSPSPLITPT;
- Nargs__=length(varargin);
- Gdxy__=varargin(1);
- if Mixtype(Gdxy__)==1
- Gdxy__=Mix(Gdxy__);
- end;
- Fd__=varargin(2);
- FdL__=Fullformfunc(Fd__);
- Eps0__=10^(-5);
- Eps__=0.05;
- if Nargs__>2 Eps__=varargin(3); end;
- if length(Eps__)>1 //
- Eps__=Eps__(1);
- end; //
- Fxy__=Mixop(1,FdL__); N__=2;
- Tmp1__=Mixop(2,FdL__);
- Tmp2__=Mixop(3,FdL__);
- Tmp3__=Mixop(4,FdL__);
- Xyzstr__=[Tmp1__,Tmp2__,Tmp3__];
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- CUSPSPLITPT=[];
- OutkL__=[];
- for Ng__=1:Mixlength(Gdxy__)
- PtxyL__=Mixop(Ng__,Gdxy__);
- PtkL__=[];
- PthL__=[];
- for I__=1:size(PtxyL__,1)
- Tmp__=PtxyL__(I__,:);
- Tmp1__=Uname__+'='+string(Tmp__(1));
- execstr(Tmp1__);
- Tmp1__=Vname__+'='+string(Tmp__(2))
- execstr(Tmp1__);
- Tmp2__=evstr(Xyzstr__);
- Tmp3__=Parapt(Tmp2__);
- if I__==1
- PtkL__=[Tmp2__];
- PthL__=[Tmp3__];
- else
- Tmp4__=PthL__(size(PthL__,1),:);
- if norm(Tmp3__-Tmp4__)>Eps0__
- PtkL__=[PtkL__;Tmp2__];
- PthL__=[PthL__;Tmp3__]
- end;
- end;
- end;
- if size(PthL__,1)==0 then // from 20140628
- OutkL__=[];
- return;
- end; // upto 20140628
- Ps__=PthL__(1,:); Pe__=PthL__(size(PthL__,1),:);
- Cflg__=0;
- if norm(Ps__-Pe__)<Eps__ Cflg__=1; end;
- CuspL__=[];
- Cva__=cos(10*%pi/180);
- for I__=1:size(PthL__,1)-1
- if size(PthL__,1)==2 break; end;
- Tmp__=PthL__(I__,:);
- if I__==1
- if Cflg__==0 continue; end;
- Tmp1__=PthL__(size(PthL__,1)-1,:);
- else
- Tmp1__=PthL__(I__-1,:);
- end;
- Tmp2__=PthL__(I__+1,:);
- V1__=Tmp__-Tmp1__;
- V2__=Tmp2__-Tmp__;
- Tmp3__=V1__(1)*V2__(1)+V1__(2)*V2__(2);
- Tmp3__=Tmp3__/(norm(V1__)*norm(V2__));
- Cuspflg__=0;
- if Tmp3__<Cva__
- P__=PthL__(I__,:);
- Kaku__=acos(Tmp3__)*180/%pi;
- if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0
- Kaku__=-Kaku__
- end;
- Cuspflg__=0;
- for J__=I__+1:size(PthL__,1)-1
- if abs(Kaku__)>90
- Cuspflg__=1;
- break
- end;
- Q__=PthL__(J__,:);
- if norm(P__-Q__)>Eps__
- break
- end;
- V1__=Q__-PthL__(J__-1,:);
- V2__=PthL__(J__+1,:)-Q__;
- Tmp3__=V1__(1)*V2__(1)+V1__(2)*V2__(2);
- Tmp3__=Tmp3__/(norm(V1__)*norm(V2__));
- Tmp__=acos(Tmp3__)*180/%pi;
- if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0
- Tmp__=-Tmp__
- end;
- Kaku__=Kaku__+Tmp__
- end;
- if Cuspflg__==1
- Tmp__=Trunc((I__+J__)*0.5);
- I__=J__;
- if length(CuspL__)==0
- CuspL__=[Tmp__]
- else
- CuspL__=[CuspL__,Tmp__];
- end;
- end;
- end;
- end;
- if Cflg__==0
- CuspL__=[1,CuspL__,size(PthL__,1)];
- elseif length(CuspL__)==0
- CuspL__=[1,size(PthL__,1)];
- elseif CuspL__(1)==1
- CuspL__=[CuspL__,size(PthL__,1)];
- else
- Tmp__=CuspL__(1);
- Tmp1__=size(PthL__,1);
- PthL__=[PthL__(Tmp__:Tmp1__,:);PthL__(2:Tmp__,:)];
- PtkL__=[PtkL__(Tmp__:Tmp1__,:);PtkL__(2:Tmp__,:)];
- CuspL__=CuspL__-Tmp__+1;
- CuspL__=[CuspL__,size(PthL__,1)];
- end;
- if length(CuspL__)==2
- //Outh=[plot(PthL__)];
- Tmp4__=PthL__(size(PthL__,1),:);
- if size(PtkL__,1)>=2
- CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp4__);
- OutkL__=Mixadd(OutkL__,PtkL__);
- end;
- continue
- end;
- //Outh=[];
- Outk__=[];
- Is__=1;
- for I__=1:length(CuspL__)-1
- Tmp1__=CuspL__(Is__); Tmp2__=CuspL__(I__+1);
- Tmp3__=PthL__(Tmp1__,:); Tmp4__=PthL__(Tmp2__,:);
- if norm(Tmp3__-Tmp4__)>Eps__
- //Tmph__=[op(Tmp1__..Tmp2__,PthL__)];
- Tmpk__=PtkL__(Tmp1__:Tmp2__,:);
- //Outh=[op(Outh),plot(Tmph__)];
- Outk__=Mixadd(Outk__,Tmpk__);
- CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp4__);
- Is__=I__+1;
- end;
- end;
- OutkL__=Mixjoin(OutkL__,Outk__);
- end;
- Tmp1__=Dropnumlistcrv(Projpara(OutkL__),Eps__*0.5);
- Tmp__=[];
- for I__=1:Mixlength(OutkL__)
- Tmp2__=Mixop(I__,OutkL__);
- Tmp3__=Mixop(I__,Tmp1__);
- Tmp4__=[];
- for J__=1:length(Tmp3__)
- Tmp5__=Tmp2__(Tmp3__(J__),:);
- Tmp4__=[Tmp4__;Tmp5__];
- end;
- if Tmp4__~=[]
- Tmp__=Mixadd(Tmp__,Tmp4__);
- end;
- end;
- OutkL__=Tmp__;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.bin
deleted file mode 100644
index d5f47f89..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.sci
deleted file mode 100755
index a8221f5b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cuspsplitpers.sci
+++ /dev/null
@@ -1,176 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 10.02.16 Eps__
-// 13.11.01 ( __ added to varibles )
-// 14.06.28 debug in the case of no cusp
-
-function OutkL__=Cuspsplitpers(varargin);
- global CUSPSPLITPT;
- Nargs__=length(varargin);
- Gdxy__=varargin(1);
- if Mixtype(Gdxy__)==1
- Gdxy__=Mix(Gdxy__);
- end;
- Fd__=varargin(2);
- FdL__=Fullformfunc(Fd__);
- Eps__0=10^(-5);
- Eps__=0.05;
- if Nargs__>2 Eps__=varargin(3); end;
- if length(Eps__)>1 //
- Eps__=Eps__(1);
- end; //
- Fxy__=Mixop(1,FdL__); N=2;
- Tmp__1=Mixop(2,FdL__);
- Tmp__2=Mixop(3,FdL__);
- Tmp__3=Mixop(4,FdL__);
- Xyzstr__=[Tmp__1,Tmp__2,Tmp__3];
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- CUSPSPLITPT=[];
- OutkL__=[];
- for Ng__=1:Mixlength(Gdxy__)
- PtxyL__=Mixop(Ng__,Gdxy__);
- PtkL__=[];
- PthL__=[];
- for I__=1:size(PtxyL__,1)
- Tmp__=PtxyL__(I__,:);
- Tmp__1=Uname__+'='+string(Tmp__(1));
- execstr(Tmp__1);
- Tmp__1=Vname__+'='+string(Tmp__(2))
- execstr(Tmp__1);
- Tmp__2=evstr(Xyzstr__);
- Tmp__3=Perspt(Tmp__2);
- if I__==1
- PtkL__=[Tmp__2];
- PthL__=[Tmp__3];
- else
- Tmp__4=PthL__(size(PthL__,1),:);
- if norm(Tmp__3-Tmp__4)>Eps__0
- PtkL__=[PtkL__;Tmp__2];
- PthL__=[PthL__;Tmp__3]
- end;
- end;
- end;
- if size(PthL__,1)==0 then // from 20140628
- OutkL__=[];
- return;
- end; // upto 20140628
- Ps__=PthL__(1,:); Pe=PthL__(size(PthL__,1),:);
- Cflg__=0;
- if norm(Ps__-Pe)<Eps__ Cflg__=1; end;
- CuspL__=[];
- Cva__=cos(10*%pi/180);
- for I__=1:size(PthL__,1)-1
- if size(PthL__,1)==2 break; end;
- Tmp__=PthL__(I__,:);
- if I__==1
- if Cflg__==0 continue; end;
- Tmp__1=PthL__(size(PthL__,1)-1,:);
- else
- Tmp__1=PthL__(I__-1,:);
- end;
- Tmp__2=PthL__(I__+1,:);
- V1__=Tmp__-Tmp__1;
- V2__=Tmp__2-Tmp__;
- Tmp__3=V1__(1)*V2__(1)+V1__(2)*V2__(2);
- Tmp__3=Tmp__3/(norm(V1__)*norm(V2__));
- Cuspflg__=0;
- if Tmp__3<Cva__
- P__=PthL__(I__,:);
- Kaku__=acos(Tmp__3)*180/%pi;
- if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0
- Kaku__=-Kaku__
- end;
- Cuspflg__=0;
- for J__=I__+1:size(PthL__,1)-1
- if abs(Kaku__)>90
- Cuspflg__=1;
- break
- end;
- Q__=PthL__(J__,:);
- if norm(P__-Q__)>Eps__
- break
- end;
- V1__=Q__-PthL__(J__-1,:);
- V2__=PthL__(J__+1,:)-Q__;
- Tmp__3=V1__(1)*V2__(1)+V1__(2)*V2__(2);
- Tmp__3=Tmp__3/(norm(V1__)*norm(V2__));
- Tmp__=acos(Tmp__3)*180/%pi;
- if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0
- Tmp__=-Tmp__
- end;
- Kaku__=Kaku__+Tmp__
- end;
- if Cuspflg__==1
- Tmp__=Trunc((I__+J__)*0.5);
- I__=J__;
- if length(CuspL__)==0
- CuspL__=[Tmp__]
- else
- CuspL__=[CuspL__,Tmp__];
- end;
- end;
- end;
- end;
- if Cflg__==0
- CuspL__=[1,CuspL__,size(PthL__,1)];
- elseif length(CuspL__)==0
- CuspL__=[1,size(PthL__,1)];
- elseif CuspL__(1)==1
- CuspL__=[CuspL__,size(PthL__,1)];
- else
- Tmp__=CuspL__(1);
- Tmp__1=size(PthL__,1);
- PthL__=[PthL__(Tmp__:Tmp__1,:);PthL__(2:Tmp__,:)];
- PtkL__=[PtkL__(Tmp__:Tmp__1,:);PtkL__(2:Tmp__,:)];
- CuspL__=CuspL__-Tmp__+1;
- CuspL__=[CuspL__,size(PthL__,1)];
- end;
- if length(CuspL__)==2
- //Outh__=[plot(PthL__)];
- Tmp__4=PthL__(size(PthL__,1),:);
- if size(PtkL__,1)>=2
- CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp__4);
- OutkL__=Mixadd(OutkL__,PtkL__);
- end;
- continue
- end;
- //Outh__=[];
- Outk__=[];
- Is__=1;
- for I__=1:length(CuspL__)-1
- Tmp__1=CuspL__(Is__); Tmp__2=CuspL__(I__+1);
- Tmp__3=PthL__(Tmp__1,:); Tmp__4=PthL__(Tmp__2,:);
- if norm(Tmp__3-Tmp__4)>Eps__
- //Tmp__h=[op(Tmp__1..Tmp__2,PthL__)];
- Tmp__k=PtkL__(Tmp__1:Tmp__2,:);
- //Outh__=[op(Outh__),plot(Tmp__h)];
- Outk__=Mixadd(Outk__,Tmp__k);
- CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp__4);
- Is__=I__+1;
- end;
- end;
- OutkL__=Mixjoin(OutkL__,Outk__);
- end;
- Tmp__1=Dropnumlistcrv(Projpers(OutkL__),Eps__*0.5);
- Tmp__=[];
- for I__=1:Mixlength(OutkL__)
- Tmp__2=Mixop(I__,OutkL__);
- Tmp__3=Mixop(I__,Tmp__1);
- Tmp__4=[];
- for J__=1:length(Tmp__3)
- Tmp__5=Tmp__2(Tmp__3(J__),:);
- Tmp__4=[Tmp__4;Tmp__5];
- end;
- if Tmp__4~=[]
- Tmp__=Mixadd(Tmp__,Tmp__4);
- end;
- end;
- OutkL__=Tmp__;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.bin
deleted file mode 100644
index d9fb0edd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.sci
deleted file mode 100755
index fa26b319..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Cutsf2d.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.10.15
-
-function Out=Cutsf2d(Nvec,GL,Flg)
- global THETA PHI
- Theta=THETA; Phi=PHI;
- Tmp=Rotate3data(GL,Nvec,[-1,0,0]);
- THETA=%pi/2; PHI=0;
- Out=Projpara(Tmp);
- if Flg==1
- Windisp(Out);
- end;
- THETA=Theta; PHI=Phi;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.bin
deleted file mode 100644
index dc144378..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.sci
deleted file mode 100755
index 1df8e5e3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dashline.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// 08.05.21
-// 08.07.14
-// 10.01.02 bin remade
-// 10.11.13 Flattenlist used
-
-function Dashline(varargin)
- global MilliIn
- Nargs=length(varargin);
- Nall=Nargs; Sen=1 ; Gap=1;
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1 & Tmp>0
- Tmp1=varargin(Nall-1);
- if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0
- Sen=Tmp1; Gap=Tmp;
- Nall=Nall-2;
- else
- Sen=Tmp; Gap=Sen;
- Nall=Nall-1;
- end
- end
- Sen=1000/2.54/MilliIn*Sen;
- Gap=1000/2.54/MilliIn*Gap;
- for N=1:Nall
- Tmp=varargin(N);
- Fdata=Flattenlist(Tmp);
- for I=1:length(Fdata);
- Figdata=Fdata(I);
- Makehasen(Figdata,Sen,Gap,0);
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.bin
deleted file mode 100644
index b64a96c8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.sci
deleted file mode 100755
index 82e9ac48..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dataindex.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-//
-// 08.05.31
-
-function Ndm=Dataindex(P)
- // %inf;%inf -> end
- Ndm=[];
- if P==[] return; end
- N1=1;
- Flg=0;
- for J=1:size(P,1)
- if P(J,1)==%inf
- Ndm=[Ndm;N1,J-1];
- N1=J+1;
- if P(N1,1)==%inf
- Flg=1;
- break;
- end
- end
- end
- if Flg==0
- Ndm=[Ndm;N1,size(P,1)];
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.bin
deleted file mode 100644
index 7ffb898a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.sci
deleted file mode 100644
index b06ac44b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Definecolor.sci
+++ /dev/null
@@ -1,23 +0,0 @@
-// 15.05.04
-
-function Definecolor(Name,Data)
- Tmp1=size(Data,2);
- if Tmp1<3 | Tmp1>4
- disp("Size of data should be 3 or 4.");
- return;
- end;
- if Tmp1==4
- Tp="cmyk"
- else
- Tp="rgb"
- end;
- Tmp="";
- for J=1:Tmp1
- Tmp=Tmp+string(Data(J));
- if J<Tmp1
- Tmp=Tmp+",";
- end;
- end
- Tmp="\definecolor{"+Name+"}{"+Tp+"}{"+Tmp+"}";
- Texcom(Tmp);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.bin
deleted file mode 100644
index a2f5f722..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.sci
deleted file mode 100755
index 43d8ea6e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Deqplot.sci
+++ /dev/null
@@ -1,195 +0,0 @@
-
-// 08.09.22
-// 09.03.10
-// 09.10.09 ( ` and order )
-// 09.10.09b ( system )
-// 09.11.12 ( debug for x<0 )
-// 13.10.19 ( __ added to variables )
-// 15.11.16 N changed to number of intervals
-// 15.12.08 bug of optiion ( __ ) fixed
-
-function P__=Deqplot(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs__=length(varargin);
- Eps__=10^(-5);
- Fnstr__=varargin(1);
- Fnstr__=strsubst(Fnstr__,Prime(),'`');
- K__=mtlb_findstr(Fnstr__,'=');
- Str__=part(Fnstr__,1:(K__-1));
- Fnstr__=part(Fnstr__,(K__+1):length(Fnstr__));
- JL__=mtlb_findstr(Str__,'`');
- Yname__=part(Str__,1:(JL__(1)-1));
- Yname__=strsubst(Yname__,',',';');
- Tmp__=mtlb_findstr(Yname__,';');
- if length(Tmp__)>0
- Dim__=length(Tmp__)+1;
- Order__=1;
- Fnstr__=strsubst(Fnstr__,',',';');
- else
- Dim__=1;
- Order__=length(JL__);
- end;
- Rgstr__=varargin(2);
- K__=mtlb_findstr(Rgstr__,'=');
- if K__~=[]
- Xname__=part(Rgstr__,1:K__-1);
- Rng__=evstr(part(Rgstr__,K__+1:length(Rgstr__)));
- else
- Xname__=Rgstr__;
- Rng__=[XMIN,XMAX];
- end;
- X0__=varargin(3);
- Y0__=varargin(4);
- if size(Y0__,2)>1
- Y0__=Y0__';
- end;
- N__=50;
- if Nargs__>=5
- Tmp__=varargin(5);
- Tmp__=strsubst(Tmp__,"=","__="); // 15.12.08
- Tmp__=strsubst(Tmp__,"____","__");
- execstr(Tmp__);
- end;
- X1__=Rng__(1); X2__=Rng__(2);
- dX__=(X2__-X1__)/(N__-1);
- dX__=(X2__-X1__)/(N__); // 15.11.16
- if Dim__>1
- Tmp__=mtlb_findstr(Yname__,'[');
- Data__=part(Yname__,Tmp__+1:length(Yname__));
- Tmp__=mtlb_findstr(Data__,']');
- Data__=part(Data__,1:Tmp__-1);
- Data__=';'+Data__+';';
- NL__=mtlb_findstr(Data__,';');
- NameL__=list();
- for I__=1:length(NL__)-1
- Tmp__=part(Data__,NL__(I__)+1:NL__(I__+1)-1);
- NameL__(I__)=Tmp__;
- end;
- Fnrep__=Fnstr__;
- for I__=1:length(NameL__)
- Tmp__=NameL__(I__);
- Fnrep__=strsubst(Fnrep__,Tmp__,'Pt('+string(I__)+')');
- end;
- Tmp1__='Outf=Dfp__('+Xname__+',Pt)';
- Tmp2__='Outf='+Fnrep__;
- deff(Tmp1__,Tmp2__);
- Y0p__=Y0__;
- Tmp1__='Outf=Dfn__('+Xname__+',Pt)';
- Tmp2__='Outf=-('+Fnrep__+')';
- deff(Tmp1__,Tmp2__);
- Y0n__=Y0__;
- else
- YL__=mtlb_findstr(Fnstr__,Yname__);
- Fnrep__=part(Fnstr__,1:YL__(1)-1);
- for I__=1:length(YL__)
- Py__=YL__(I__);
- J__=1;
- K__=Py__+1;
- while part(Fnstr__,K__:K__)=='`'
- J__=J__+1; K__=K__+1;
- end;
- Fnrep__=Fnrep__+Yname__+'('+string(J__)+')';
- if I__==length(YL__)
- Fnrep__=Fnrep__+part(Fnstr__,K__:length(Fnstr__));
- else
- J__=YL__(I__+1)-1;
- if J__>=K__
- Fnrep__=Fnrep__+part(Fnstr__,K__:J__);
- end;
- end;
- end;
- Eqvec__='[';
- for I__=1:Order__-1
- Eqvec__=Eqvec__+Yname__+'('+string(I__+1)+');';
- end;
- Eqvec__=Eqvec__+Fnrep__+']';
- Tmp1__='Outf=Dfp__('+Xname__+','+Yname__+')';
- Tmp2__='Outf='+Eqvec__;
- deff(Tmp1__,Tmp2__);
- Y0p__=Y0__;
- YL__=mtlb_findstr(Fnstr__,Yname__);
- Fnrep__=part(Fnstr__,1:YL__(1)-1);
- for I__=1:length(YL__)
- Py__=YL__(I__);
- J__=1;
- K__=Py__+1;
- while part(Fnstr__,K__:K__)=='`'
- J__=J__+1; K__=K__+1;
- end;
- if modulo(J__,2)==1
- Fnrep__=Fnrep__+Yname__+'('+string(J__)+')';
- else
- Fnrep__=Fnrep__+'(-'+Yname__+'('+string(J__)+'))';
- end;
- if I__==length(YL__)
- Fnrep__=Fnrep__+part(Fnstr__,K__:length(Fnstr__));
- else
- J__=YL__(I__+1)-1;
- if J__>=K__
- Fnrep__=Fnrep__+part(Fnstr__,K__:J__);
- end;
- end;
- end;
- if modulo(Order__,2)==1
- Fnrep__='-('+Fnrep__+')';
- end;
- Fnrep__=strsubst(Fnrep__,Xname__,'(-'+Xname__+')'); // 09.11.12
- Eqvec__='[';
- for I__=1:Order__-1
- Eqvec__=Eqvec__+Yname__+'('+string(I__+1)+');';
- end;
- Eqvec__=Eqvec__+Fnrep__+']';
- Tmp1__='Outf=Dfn__('+Xname__+','+Yname__+')';
- Tmp2__='Outf='+Eqvec__;
- deff(Tmp1__,Tmp2__);
- Y0n__=[];
- for I__=1:size(Y0__,1)
- Y0n__=[Y0n__;(-1)^(I__-1)*Y0__(I__)];
- end;
- end;
- if X0__<=X1__
- X__=X1__:dX__:X2__;
- Y__=ode(Y0p__,X0__,X__,Dfp__);
- M__=min(size(X__,2),size(Y__,2));
- if Dim__>1
- PL__=Y__';
- P__=PL__(1:M__,:);
- else
- P__=[X__(:,1:M__);Y__(1,1:M__)]';
- end;
- return;
- end;
- if X2__<=X0__
- X__=(-X2__):dX__:(-X1__);
- Y__=ode(Y0n__,-X0__,X__,Dfn__);
- X__=-X__;
- M__=min(size(X__,2),size(Y__,2));
- if Dim__>1
- PL__=Y__';
- P__=PL__(1:M__,:);
- else
- P__=[X__(:,1:M__);Y__(1,1:M__)]';
- end;
- return;
- end;
- XP__=X0__:dX__:X2__;
- YP__=ode(Y0p__,X0__,XP__,Dfp__);
- M__=min(size(XP__,2),size(YP__,2));
- XP__=XP__(:,1:M__);
- YP__=YP__(:,1:M__);
- XN__=(-X0__)+dX__:dX__:(-X1__);
- YN__=ode(Y0n__,-X0__,XN__,Dfn__);
- M__=min(size(XN__,2),size(YN__,2));
- XN__=XN__(:,1:M__);
- YN__=YN__(:,1:M__);
- XN__=-XN__;
- XN__=XN__(length(XN__):-1:1);
- YN__=YN__(:,size(YN__,2):-1:1);
- if Dim__>1
- P__=[YN__';YP__']
- else
- X__=[XN__,XP__];
- Y__=[YN__(1,:),YP__(1,:)];
- P__=[X__;Y__]';
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.bin
deleted file mode 100644
index c30c8ae4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.sci
deleted file mode 100755
index cbffc3d7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Derivative.sci
+++ /dev/null
@@ -1,64 +0,0 @@
-// 09.10.04
-// 09.10.05
-// 09.10.06
-// 14.10.24 numderivative used after 5.5
-
-function Out=Derivative(varargin)
- Nargs=length(varargin);
- Out=[];
- Fs=varargin(1);
- Vv=varargin(2);
- Np=3;
- if type(Vv)==10
- Prstr=strsubst(Vv,'[','(');
- Prstr=strsubst(Prstr,']',')');
- Tmp=part(Prstr,1);
- if Tmp~='('
- Prstr='('+Prstr+')';
- end;
- deff('Out=Tmpfun'+Prstr,'Out='+Fs);
- Fs='Tmpfun'+Prstr;
- Vv=varargin(Np);
- Np=Np+1;
- end;
- Nd=[];
- if Np<=Nargs
- Nd=varargin(Np);
- end;
- Js=mtlb_findstr(Fs,'(');
- JL=mtlb_findstr(Fs,',');
- Je=mtlb_findstr(Fs,')');
- Sep=[Js(1),JL,Je];
- Fse=Fs;
- for I=1:length(Vv)
- J1=Sep(I)+1;
- J2=Sep(I+1)-1;
- Tmp1=part(Fs,J1:J2);
- Tmp2='X_'+string(I);
- Fse=strsubst(Fse,Tmp1,Tmp2);
- end;
- function Ans=Tmpf(W)
- X1=W(1);
- if length(W)>1
- X2=W(2);
- else;
- X2=%inf;
- end;
- if length(W)>2
- X3=W(3);
- else
- X3=%inf;
- end;
- Tmp=Assign(Fse,'X_1',X1,'X_2',X2,'X_3',X3);
- Ans=evstr(Tmp)';
- endfunction;
- Tmp1=getversion("scilab");
- if Tmp1(1)*10+Tmp1(2)>=55 then
- Out=numderivative(Tmpf,Vv')';
- else
- Out=derivative(Tmpf,Vv')';
- end
- if Nd~=[]
- Out=Out(Nd,:)
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.bin
deleted file mode 100644
index 6f9d2eaf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.sci
deleted file mode 100755
index b6a53b62..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Diagcelldata.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 10.03.28
-
-function Out=Diagcelldata(Tb,Nc,Nr)
- Tmp=Findcell(Tb,Nc,Nr);
- C=Tmp(1);
- Dx=Tmp(2);
- Dy=Tmp(3);
- Pne=C+[Dx,Dy];
- Pnw=C+[-Dx,Dy];
- Psw=C+[-Dx,-Dy];
- Pse=C+[Dx,-Dy];
- Tmp1=Listplot(Pnw,Pse);
- Tmp2=Listplot(Pne,Psw);
- Out=list(Tmp1,Tmp2);
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.bin
deleted file mode 100644
index 76090b77..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.sci
deleted file mode 100755
index be16b473..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividegraphics.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 08.05.31
-// 10.01.01
-// 11.01.07
-
-function OutL=Dividegraphics(Pd)
- if length(Pd)==0
- OutL=Pd;
- return;
- end;
- DtL=Flattenlist(Pd);
- OutL=list();
- for J=1:length(DtL)
- Dt= DtL(J);
- Ndm=Dataindex(Dt);
- for I=1:size(Ndm,1)
- Fd=Dt(Ndm(I,1):Ndm(I,2),:);
- OutL($+1)=Fd;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.bin
deleted file mode 100644
index f65a407d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.sci
deleted file mode 100644
index 36531da2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dividetable.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// 13.05.03
-
-function Out=Dividetable(Tb)
- G=Tb(1);
- Gw=G(1);
- Gt=Mixsub(Tb(2),G);
- Gy=Mixsub(Tb(3),G);
- Out=list(Gw,Gt,Gy)
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.bin
deleted file mode 100644
index 921b0546..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.sci
deleted file mode 100755
index 5054faf2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Doscaling.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 09.12.25
-
-function Out=Doscaling(G)
- global LOGX LOGY SCALEX SCALEY;
- GLg=G;
- if LOGX==1
- GLg=[log10(G(:,1)),GLg(:,2)];
- end;
- if LOGY==1
- GLg=[GLg(:,1),log10(G(:,2))];
- end;
- Out=[SCALEX*GLg(:,1),SCALEY*GLg(:,2)];
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.bin
deleted file mode 100644
index 9b3d417e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.sci
deleted file mode 100755
index fc2847c7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotfilldata.sci
+++ /dev/null
@@ -1,186 +0,0 @@
-// 08.05.31
-// 10.01.01
-// 10.03.07 (Kosa )
-
-function ShaL=Dotfilldata(varargin)
- global XMIN XMAX YMIN YMAX MilliIn;
- Nargs=length(varargin);
- ShaL=[];
- Eps=0.01;
- Kakudo=45;
- Kosa=0.5;
- Tmp=Doscaling([XMIN,YMIN]);
- Xmn=Tmp(1); Ymn=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- Xmx=Tmp(1); Ymx=Tmp(2);
- for N=Nargs:-1:1
- Tmp=varargin(N);
- if Mixtype(Tmp)~=1
- break
- end
- end
- if N<Nargs
- Kosa=varargin(N+1);
- end
-// Kosa=min(Kosa,1); // 100307
- Tmp=1/(2*Kosa);
- Kankaku=Tmp*0.100*1000/2.54/MilliIn;
- NaitenL=varargin(1);
- if Mixtype(NaitenL)==1
- NaitenL=list(NaitenL);
- end
- Ns=2;
- StartP=Op(1,NaitenL);
- if type(StartP)==10
- StartP=[(XMIN+XMAX)/2,(YMIN+YMAX)/2];
- else
- StartP=Doscaling(StartP);
- end;
- Tmp=varargin(2);
- if Mixtype(Tmp)==1
- StartP=Doscaling(Tmp);
- Ns=3;
- end
- Tmp=[];
- for I=Ns:N
- Tmp=Mixjoin(Tmp,list(varargin(I)));
- end
- Bdy=Kyoukai(Tmp);
- Bdys=list();
- for I=1:length(Bdy)
- Tmp1=Bdy(I);
- Tmp2=Doscaling(Tmp1);
- Bdys=Mixjoin(Bdys,list(Tmp2))
- end;
- Bdy=Bdys;
- PtnL=[];
- for I=1:length(NaitenL)
- Tmp=Op(I,NaitenL);
- if type(Tmp)==1
- Tmp1=Naigai(Tmp,Bdy)
- PtnL=Mixjoin(PtnL,list(Tmp1));
- else
- if type(Tmp)~=10
- disp('Type Error');
- return;
- end
- Ptn=[];
- for J=1:length(Tmp)
- if Op(J,Tmp)=='i'
- Ptn=[Ptn,1];
- else
- Ptn=[Ptn,0];
- end
- end
- PtnL=Mixjoin(PtnL,list(Ptn));
- end
- end
- Call=length(Bdy);
- Ptn=zeros(1,Call);
- if Member(Ptn,PtnL)
- Wn=Doscaling(Framedata());
- Bdy=Mixjoin(Bdy,list(Wn));
- Tmp=[];
- for I=1:Mixlength(PtnL)
- Tmp1=[Op(I,PtnL),1];
- Tmp=Mixjoin(Tmp,list(Tmp1));
- end
- PtnL=Tmp;
- end
- V=[cos(Kakudo*%pi/180),sin(Kakudo*%pi/180)];
- Vm=[-sin(Kakudo*%pi/180),cos(Kakudo*%pi/180)];
- Tmp=Op(1,NaitenL);
- if type(Tmp)==1 & size(Tmp,2)>1
- Delta=Tmp-StartP;
- K=Trunc(Dotprod(Delta,Vm)/Kankaku);
- PA=StartP+K*Kankaku*Vm;
- P=PA;
- Sha=Makeshasen(PtnL,P,V,Bdy);
- Sha=Dividegraphics(Sha);
- I=1;
- while length(Sha)~=0
- for J=1:length(Sha)
- Tmp=Op(J,Sha);
- Q=Tmp(1,:);
- R=Tmp(2,:);
- Tmp=Dotprod(Q-P,V)/Kankaku;
- K1=ceil(Tmp);
- if abs(K1-Tmp)<Eps K1=K1+1; end
- Tmp=Dotprod(R-P,V)/Kankaku;
- K2=floor(Tmp);
- if abs(Tmp-K2)<Eps K2=K2-1; end
- for K=K1:K2
- Tmp1=Pointdata(P+K*Kankaku*V)
- ShaL=Mixjoin(ShaL,list(Tmp1));
- end
- end
- P=PA+I*Kankaku*Vm;
- Sha=Makeshasen(PtnL,P,V,Bdy);
- Sha=Dividegraphics(Sha);
- I=I+1;
- end
- P=PA-Kankaku*Vm;
- Sha=Makeshasen(PtnL,P,V,Bdy);
- I=2;
- while length(Sha)~=0
- for J=1:length(Sha)
- Tmp=Op(J,Sha);
- Q=Tmp(1,:);
- R=Tmp(2,:);
- Tmp=Dotprod(Q-P,V)/Kankaku;
- K1=ceil(Tmp);
- if abs(K1-Tmp)<Eps K1=K1+1; end
- Tmp=Dotprod(R-P,V)/Kankaku;
- K2=floor(Tmp);
- if abs(Tmp-K2)<Eps K2=K2-1; end
- for K=K1:K2
- Tmp1=Pointdata(P+K*Kankaku*V)
- ShaL=Mixjoin(ShaL,list(Tmp1));
- end
- end
- P=PA-I*Kankaku*Vm;
- Sha=Makeshasen(PtnL,P,V,Bdy);
- I=I+1;
- end
- else
- Delta=[Xmn,Ymn]-StartP;
- K1=Trunc(Dotprod(Delta,Vm)/Kankaku);
- Delta=[Xmx,Ymn]-StartP;
- K2=Trunc(Dotprod(Delta,Vm)/Kankaku);
- Delta=[Xmx,Ymx]-StartP;
- K3=Trunc(Dotprod(Delta,Vm)/Kankaku);
- Delta=[Xmn,Ymx]-StartP;
- K4=Trunc(Dotprod(Delta,Vm)/Kankaku);
- IM=max(K1,K2,K3,K4);
- Im=min(K1,K2,K3,K4);
- for I=Im:IM
- P=StartP+I*Kankaku*Vm;
- Sha=Makeshasen(PtnL,P,V,Bdy);
- Sha=Dividegraphics(Sha);
- if length(Sha)>0
- for J=1:length(Sha)
- Tmp=Op(J,Sha);
- Q=Tmp(1,:);
- R=Tmp(2,:);
- Tmp=Dotprod(Q-P,V)/Kankaku;
- K1=ceil(Tmp);
- if abs(K1-Tmp)<Eps K1=K1+1; end
- Tmp=Dotprod(R-P,V)/Kankaku;
- K2=floor(Tmp);
- if abs(Tmp-K2)<Eps K2=K2-1; end
- for K=K1:K2
- Tmp1=Pointdata(P+K*Kankaku*V)
- ShaL=Mixjoin(ShaL,list(Tmp1));
- end
- end
- end
- end
- end
- ShaLs=list();
- for I=1:length(ShaL)
- Tmp=ShaL(I);
- Tmp1=Unscaling(Tmp);
- ShaLs=Mixjoin(ShaLs,Tmp1);
- end;
- ShaL=ShaLs
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.bin
deleted file mode 100644
index 2e5b0eb1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.sci
deleted file mode 100755
index dc35fde5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dotprod.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 09.10.03
-
-function Out=Dotprod(a,b)
- Out=a*b';
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.bin
deleted file mode 100644
index 6f85f204..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.sci
deleted file mode 100755
index 253d5d75..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedline.sci
+++ /dev/null
@@ -1,124 +0,0 @@
-// 08.05.21
-// 08.11.26
-// 09.12.24 (Revised)
-// 09.12.29
-// 10.01.02
-// 11.05.27
-
-function Dottedline(varargin)
- global Wfile FID MilliIn PenThick PenThickInit
- Nall=length(varargin);
- Nagasa=0.1;
- Ookisa=PenThick;
- I=Nall;
- Tmp=varargin(I);
- while type(Tmp)==1 & length(Tmp)==1
- I=I-1;
- Tmp=varargin(I);
- end
- if I==Nall-1
- Nagasa=Nagasa*varargin(Nall);
- Nall=Nall-1;
- end
- if I==Nall-2
- Nagasa=Nagasa*varargin(Nall-1);
- Ookisa=Ookisa*varargin(Nall);
- Nall=Nall-2;
- end
- Nagasa=1000/2.54/MilliIn*Nagasa;
- Ra=Ookisa/MilliIn;
- for N=1:Nall
- Tmp=varargin(N);
- Pdata=Flattenlist(Tmp); //
- for II=1:length(Pdata)
- Clist=MakeCurves(Op(II,Pdata));
- DinM=Dataindex(Clist);
- Mojisu=0;
- for n=1:size(DinM,1)
- Tmp=DinM(n,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Len=0;
- Lenlist=[0];
- for I=2:size(Data,1)
- Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:));
- Lenlist=[Lenlist,Len];
- end
- Lenall=Lenlist(length(Lenlist));
- if Lenall==0
- continue
- end
- Naga=Nagasa;
- Nten=round(Lenall/Naga)+1;
- if Nten>1
- Seg=Lenall/(Nten-1);
- else
- Seg=Lenall;
- end
- Eps=10^(-6)*Seg;
- PPd=[];
- Hajime=1;
- for I=0:Nten-1
- Len=Seg*I;
- if I>0
- J=Hajime;
- while Len>=Lenlist(J)+Eps
- J=J+1;
- end
- Hajime=J-1;
- end
- T=(Len-Lenlist(Hajime))...
- /(Lenlist(Hajime+1)-Lenlist(Hajime));
- P=Data(Hajime,:)+T*(Data(Hajime+1,:)...
- -Data(Hajime,:));
- PPd=[PPd;P];
- if I==Nten-1
- if norm(P-Data(1,:))<Eps
- continue
- end
- end
- end
- for I=1:size(PPd,1)
- P=PPd(I,:);
- if size(PPd,1)==1
- V=[1,0];
- elseif I==1
- Tmp=PPd(I+1,:)-P;
- V=1/norm(Tmp)*Tmp;
- elseif I==size(PPd,1)
- Tmp= P-PPd(I-1,:);
- V=1/norm(Tmp)*Tmp;
- else
- Tmp1=PPd(I+1,:)-P;
- Tmp2=P-PPd(I-1,:);
- Tmp3=1/norm(Tmp1)*Tmp1+1/norm(Tmp2)*Tmp2;
- V=1/norm(Tmp3)*Tmp3;
- end;
- X=sprintf('%5.5f',P(1));
- Y=sprintf('%5.5f',P(2));
- Str='\put('+X+','+Y+'){\circle*{'+sprintf('%6.6f',Ra)+'}}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end
- Mojisu=0;
- end
- end
- end
- end;
- if Mojisu>0
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.bin
deleted file mode 100644
index 5576b57e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.sci
deleted file mode 100755
index c4d9b86a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dottedlineold.sci
+++ /dev/null
@@ -1,115 +0,0 @@
-// 08.05.21
-// 08.11.26
-
-function Dottedline(varargin)
- global Wfile FID MilliIn;
- Nall=length(varargin);
- Nagasa=0.1;
- Ookisa=0.02*0.5;
- I=Nall;
- Tmp=varargin(I);
- while type(Tmp)==1 & length(Tmp)==1
- I=I-1;
- Tmp=varargin(I);
- end
- if I==Nall-1
- Nagasa=Nagasa*varargin(Nall);
- Nall=Nall-1;
- end
- if I==Nall-2
- Nagasa=Nagasa*varargin(Nall-1);
- Ookisa=Ookisa*varargin(Nall);
- Nall=Nall-2;
- end
- Nagasa=1000/2.54/MilliIn*Nagasa;
- Ookisa=1000/2.54/MilliIn*Ookisa;
- CL=[];
- Nk=4;
- Tmp=Framedata([0,0],Ookisa/2);
- CL=Tmp;
- for N=1:Nall
- Pdata=varargin(N);
- if Mixtype(Pdata)==1
- Pdata=MixS(Pdata);
- end
- for II=1:Mixlength(Pdata)
- Clist=MakeCurves(Op(II,Pdata));
- DinM=Dataindex(Clist);
- for n=1:size(DinM,1)
- Tmp=DinM(n,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Len=0;
- Lenlist=[0];
- for I=2:size(Data,1)
- Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:));
- Lenlist=[Lenlist,Len];
- end
- Lenall=Lenlist(length(Lenlist));
- if Lenall==0
- continue
- end
- Naga=Nagasa;
- Nten=round(Lenall/Naga)+1;
- if Nten>1
- Seg=Lenall/(Nten-1);
- else
- Seg=Lenall;
- end
- Eps=10^(-6)*Seg;
- Hajime=1;
- for I=0:Nten-1
- Len=Seg*I;
- if I>0
- J=Hajime;
- while Len>=Lenlist(J)+Eps
- J=J+1;
- end
- Hajime=J-1;
- end
- T=(Len-Lenlist(Hajime))...
- /(Lenlist(Hajime+1)-Lenlist(Hajime));
- P=Data(Hajime,:)+T*(Data(Hajime+1,:)...
- -Data(Hajime,:));
- if I==Nten-1
- if Vecnagasa(P-Data(1,:))<Eps
- continue
- end
- end
- PL=[];
- for J=1:size(CL,1)
- PL=[PL;P+CL(J,:)];
- end
- Mojisu=0;
- for J=1:size(PL,1)
- Q=PL(J,:);
- X=round(MilliIn*Q(1));
- X=string(X);
- Y=-round(MilliIn*Q(2));
- Y=string(Y);
- Str='\special{pa '+X+" "+Y+'}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end
- Mojisu=0;
- end
- end
- Str='\special{sh 1}'+'\special{fp}%'
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
- end
- end
- end
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin
deleted file mode 100644
index 14cf5d76..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci
deleted file mode 100755
index 3a06be00..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Dropnumlistcrv.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 08.09.10
-// 08.09.15
-// 08.10.10
-// 10.09.03
-
-function OutL=Dropnumlistcrv(QdL,Eps)
- Eps0=10^(-6); //
- if Mixtype(QdL)==1
- PdL=list(QdL);
- else
- PdL=QdL;
- end;
- OutL=[];
- for I=1:Mixlength(PdL)
- Pd=Op(I,PdL);
- PtL=[1];
- P=Pd(1,:);
- for K=2:size(Pd,1)-1 //
- if norm(P-Pd(K,:))>Eps
- PtL=[PtL,K];
- P=Pd(K,:);
- end;
- end;
- // PtL=[PtL,size(Pd,1)];
- K=size(Pd,1) //
- if norm(P-Pd(K,:))>Eps0 //
- PtL=[PtL,K]; //
- end; //
- if length(PtL)==1
- PtL=[];
- end;
- OutL=Mixadd(OutL,PtL);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.bin
deleted file mode 100644
index 155b2072..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci
deleted file mode 100755
index 84fd6daa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Droppoint.sci
+++ /dev/null
@@ -1,28 +0,0 @@
-// 08.10.07
-// 08.10.27
-// 09.06.02
-
-function AnsL=Droppoint(varargin)
- Nargs=length(varargin);
- Curve=varargin(1);
- Eps=0.02;
- if Nargs>=2
- Eps=varargin(2);
- end;
- AnsL=[%inf,%inf];
- for I=1:size(Curve,1)
- P=Curve(I,:);
- if P(1)~=%inf
- Tmp=AnsL(size(AnsL,1),:);
- if norm(P-Tmp)>Eps
- AnsL=[AnsL;P];
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
- AnsL=AnsL(2:size(AnsL,1),:);
- Tmp=Ptend(Curve);
- AnsL=[AnsL(1:size(AnsL,1)-1,:);Tmp];
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.bin
deleted file mode 100644
index 86d3110c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.sci
deleted file mode 100755
index 60f0da1a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwline.sci
+++ /dev/null
@@ -1,66 +0,0 @@
-// 08.05.21
-// 11.05.25
-
-function Drwline(varargin)
- global Wfile FID MilliIn PenThick PenThickInit;
- Nall=length(varargin);
- Thick=PenThick;
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1
- Setpen(Tmp);
- Nall=Nall-1;
- end;
- for N=1:Nall
- Tmp=varargin(N);
- Pdata=Flattenlist(Tmp);
- for II=1:length(Pdata) //11.05.25
- Clist=MakeCurves(Op(II,Pdata));
- DinM=Dataindex(Clist);
- for n=1:size(DinM,1)
- Tmp=DinM(n,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Mojisu=0;
- Tmp=Data(1,:);
- for I=1:size(Data,1)
- Tmp=Data(I,:);
- X=sprintf('%5.5f',Tmp(1));
- Y=sprintf('%5.5f',Tmp(2));
- Pt='('+X+','+Y+')';
- if I==1 then
- Str='\polyline'+Pt;
- else
- Str=Pt;
- end
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end;
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end
- Mojisu=0;
- end
- end
- if Mojisu~=0
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end;
- end;
- end;
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end;
- end;
- Setpen(Thick/PenThickInit);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.bin
deleted file mode 100644
index 02e88bd7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.sci
deleted file mode 100755
index 5df4a877..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwpt.sci
+++ /dev/null
@@ -1,142 +0,0 @@
-//
-// 08.05.31
-// 09.12.25
-// 10.01.01
-// 11.05.26 (for pdflatex)
-
-function Drwpt(varargin)
- global Wfile FID TenSize TenSizeInit MilliIn;
- Nargs=length(varargin);
- All=Nargs;
- Tmp=varargin(All);
- Iro=[0,0,0,1];
- Iroflg=0;
- if type(Tmp)==10 then
- Iro=Ratiocmyk(Tmp);
- Iroflg=1;
- All=All-1;
- end
- Tmp=varargin(All);
- Kosa=1;
- if type(Tmp)==1 & length(Tmp)==1
- Kosa=Tmp; All=All-1;
- end;
- Ra=TenSize*1000/2.54/MilliIn;
- if Iroflg>0
- Str='{\color[cmyk]{';
- for J=1:4
- Str=Str+string(Kosa*Iro(J));
- if J<4 then
- Str=Str+',';
- end
- end
- Str=Str+'}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
- end;
- Mojisu=0;
- for II=1:All
- Tmp=varargin(II);
- MS=Flattenlist(Tmp); // 11.05.29
- for I=1:length(MS);
- P=Op(I,MS);
- if InWindow(P)~='i'
- continue
- end
- P=Doscaling(P);
- X=sprintf('%5.5f',P(1));
- Y=sprintf('%5.5f',P(2));
- Str='\put('+X+','+Y+'){\circle*{'+sprintf('%6.6f',Ra)+'}}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- Mojisu=0;
- end
- end
- end;
- Str="";
- if Iroflg>0
- Str='}';
- end;
- if Mojisu>0
- Fmt='\n%s\n';
- else
- Fmt='%s\n';
- end;
- if Wfile=='default'
- mprintf(Fmt,Str);
- else
- mfprintf(FID,Fmt,Str);
- end;
- Mojisu=0;
- if Iroflg>0
- Str='{\color[cmyk]{';
- for J=1:4
- Str=Str+string(Iro(J));
- if J<4 then
- Str=Str+',';
- end
- end
- Str=Str+'}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end;
- Mojisu=0;
- end;
- for II=1:All
- Tmp=varargin(II);
- MS=Flattenlist(Tmp); // 11.05.29
- for I=1:length(MS);
- P=Op(I,MS);
- if InWindow(P)~='i'
- continue
- end
- P=Doscaling(P);
- X=sprintf('%5.5f',P(1));
- Y=sprintf('%5.5f',P(2));
- Str='\put('+X+','+Y+'){\circle{'+sprintf('%6.6f',Ra)+'}}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- Mojisu=0;
- end
- end
- end
- Str="%";
- if Iroflg>0
- Str='}%';
- end;
- if Mojisu>0
- Fmt='\n%s\n';
- else
- Fmt='%s\n';
- end;
- if Wfile=='default'
- mprintf(Fmt,Str);
- else
- mfprintf(FID,Fmt,Str);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.bin
deleted file mode 100644
index 6d275fab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.sci
deleted file mode 100755
index b091754f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Drwxy.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-function Drwxy(varargin)
- global XMIN XMAX YMIN YMAX GENTEN ARROWSIZE
- global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ULEN;
- Nargs=length(varargin)
- Tmp=mtlb_findstr(ZIKU,'arrow');
- if Tmp~=[]
- Arrowline([XMIN,GENTEN(2)],[XMAX,GENTEN(2)],ARROWSIZE);
- Arrowline([GENTEN(1),YMIN],[GENTEN(1),YMAX],ARROWSIZE);
- else
- Drwline(Listplot([XMIN,GENTEN(2)],[XMAX,GENTEN(2)]));
- Drwline(Listplot([GENTEN(1),YMIN],[GENTEN(1),YMAX]));
- end;
- Letter([XMAX,GENTEN(2)],XPOS,XNAME);
- Letter([GENTEN(1),YMAX],YPOS,YNAME);
- Letter(GENTEN,OPOS,ONAME);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.bin
deleted file mode 100644
index e3e99cfd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.sci
deleted file mode 100755
index 9b67e366..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Embed.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.09.25
-// 09.11.21
-// 09.11.26
-
-function Out=Embed(varargin)
- Nargs=length(varargin);
- Pd3=varargin(1);
- if Mixtype(Pd3)==1
- Pd3=list(Pd3);
- elseif Mixtype(Pd3)==3
- Tmp=list();
- for I=1:length(Pd3)
- Tmp=Mixjoin(Tmp,Pd3(I));
- end;
- Pd3=Tmp;
- end;
- Tmpf=varargin(2);
- if type(Tmpf)==10
- Tmp=varargin(3);
- Tmp1=strsubst(Tmp,'[','(');
- Vstr=strsubst(Tmp1,']',')');
- deff('Z=Tmpfn'+Vstr,'Z='+Tmpf);
- else
- Tmpfn=Tmpf;
- end;
- Out=list();
- for I=1:length(Pd3)
- PD=Pd3(I);
- Ans=[];
- for J=1:size(PD,1)
- P=PD(J,:);
- Tmp=Tmpfn(P(1),P(2));
- Ans=[Ans;Tmp];
- end;
- Out($+1)=Ans;
- end;
- if length(Out)==1
- Out=Out(1);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.bin
deleted file mode 100644
index 6a5a9096..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci
deleted file mode 100755
index bfc191b9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci
+++ /dev/null
@@ -1,23 +0,0 @@
-// 08.05.31
-// 10.12.04
-// 16.12.05 to make it a closed curve
-
-function AnsL=Enclosing(varargin)
- global MilliIn;
- Eps=10^(-7); // 12.05
- Nargs=length(varargin);
- P=varargin(1);
- if Mixtype(P)==2
- Tmp=Op(1,P);
- if type(Tmp)~=1 | length(Tmp)~=1
- AnsL=EnclosingS(P,varargin(2:Nargs));
- AnsL=Joincrvs(AnsL) // 10.12.04
- end
- end;
- Tmp1=Op(1,AnsL);
- Tmp2=Op(size(AnsL,1),AnsL);
- if norm(Tmp2-Tmp1)>Eps then // 12.05
- AnsL=[AnsL;Tmp1];
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.bin
deleted file mode 100644
index a5f0596e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.sci
deleted file mode 100755
index cded7ef2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/EnclosingS.sci
+++ /dev/null
@@ -1,126 +0,0 @@
-// 08.05.31
-// 08.11.12
-// 09.10.12
-// 09.10.14
-// 15.04.10
-
-function AnsL=EnclosingS(varargin)
- global MilliIn;
- Nargs=length(varargin);
- AnsL=[];
- PdataL=varargin(1);
- Nall=length(PdataL);
- Eps=10^(-3);
- EEps=0.1;
- S=[];
- Flg=0;
- for I=2:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1
- S=Tmp;
- end
- if type(Tmp)==1 & length(Tmp)==1
- if Flg==0
- Eps=Tmp;
- Flg=Flg+1
- else
- EEps=Tmp
- end
- end
- end
- F=Op(1,PdataL); G=Op(Nall,PdataL);
- KL=IntersectcrvsPp(F,G);
- if length(KL)==1
- Tmp=Op(1,KL);
- P=Op(1,Tmp);
- T1=Op(2,Tmp);
- end
- if length(KL)==0
- if Numptcrv(F)>Numptcrv(G)
- Tmp=Nearestpt(F,G);
- P=Op(1,Tmp);
- T1=Op(2,Tmp);
- else
- Tmp=Nearestpt(G,F);
- P=Op(3,Tmp);
- T1=Op(4,Tmp);
- end
- end
- if length(KL)>1 // 15.04.10
- if S==[]
- disp('No Start Point');
- return
- end;
- Tmp=Op(1,KL);
- P=Op(1,Tmp);
- T1=Op(2,Tmp);
- Tmp=norm(P-S);
- for I=2:length(KL)
- Tmp1=Op(1,Op(I,KL));
- Tmp2=norm(Tmp1-S);
- if Tmp2<Tmp
- P=Tmp1;
- T1=Op(2,Op(I,KL));
- Tmp=Tmp2;
- end
- end
- end
- S=P;
- AnsL=[];
- for N=1:Nall
- F=Op(N,PdataL);
- if N>1 P=Q;end
- if N==Nall
- Q=S;
- else
- Flg=0;
- G=Op(N+1,PdataL);
- KL=IntersectcrvsPp(G,F);
- if length(KL)==1
- Tmp=Op(1,KL);
- Q=Op(1,Tmp);
- T3=Op(2,Tmp);
- Flg=10;
- end
- if length(KL)==0 Flg=1; end
- if length(KL)>=2 // Maple bug?
- Tmp1=Op(1,Op(1,KL));
- Tmp2=Op(1,Op(2,KL));
- Tmp=norm(Tmp1-Tmp2);
- if Tmp<Eps*10 Flg=1; end
- end
- if Flg==1
- if Numptcrv(F)>Numptcrv(G)
- Tmp=Nearestpt(F,G);
- Q=Op(1,Tmp);
- T3=Op(4,Tmp);
- Flg=10;
- else
- Tmp=Nearestpt(G,F);
- Q=Op(3,Tmp);
- T3=Op(2,Tmp);
- Flg=10;
- end
- end
- if Flg<10
- T2=%inf;
- for I=1:length(KL)
- Dt=Op(I,KL);
- Tmp1=Op(1,Dt);
- Tmp=Op(3,Dt);
- Tmp2=Paramoncrv(Tmp1,Tmp,F);
- Tmp3=Op(2,Dt);
- if (Tmp2>T1+Eps) & (Tmp2<T2+Eps)
- Q=Tmp1;
- T2=Tmp2;
- T3=Tmp3;
- end
- end
- end
- end
- Tmp=Partcrv(P,Q,F);
- T1=T3;
- AnsL=Mixadd(AnsL,Tmp);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.bin
deleted file mode 100644
index ceb0ffb6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.sci
deleted file mode 100755
index ff4a3c43..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Endpicture.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-// 08.05.22
-
-function Endpicture(varargin)
- if length(varargin)==0
- Flg=1
- else
- Flg=varargin(1);
- end
- Closepicture(Flg)
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.bin
deleted file mode 100644
index 38c7da86..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.sci
deleted file mode 100755
index b9c86eef..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepara.sci
+++ /dev/null
@@ -1,79 +0,0 @@
-// 08.09.10
-// 13.10.21 ( __ added to varibles )
-// 17.05.21 Mdv, Ndv changed to division number
-
-function [Zval__,Xval__,Yval__]=Evlptablepara(MS__)
- Nargs__=Mixlength(MS__);
- Eps__=10^(-3);
- Tmp__=Mixop(1,MS__);
- FdL__=Fullformfunc(Tmp__);
- Mdv=50;
- Ndv__=50;
- if Nargs__>=2
- Tmp__=Mixop(2,MS__);
- if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end;
- if length(Tmp__)>1
- Mdv__=Tmp__(1,1);
- Ndv__=Tmp__(1,2);
- else
- Mdv__=Tmp__
- if Nargs__==2
- Ndv__=Mdv__
- else
- Tmp1__=Mixop(3,MS__);
- if type(Tmp1__)==1 & length(Tmp1__)==1
- Ndv__=Tmp1__;
- else
- Ndv__=Mdv__;
- end
- end
- end
- end;
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urange__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- U1__=Urange__(1); U2__=Urange__(2);
- V1__=Vrange__(1); V2__=Vrange__(2);
- Du__=(U2__-U1__)/(Mdv__); //17.05.21
- Dv__=(V2__-V1__)/(Ndv__); //17.05.21
- Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)];
- I__=1;
- Zval__=[];
- for v__=V1__:Dv__:V2__
- v1__=v__-Eps__/2; v2__=v__+Eps__/2;
- ZuL__=[];
- for u__=U1__:Du__:U2__;
- u1__=u__-Eps__/2; u2__=u__+Eps__/2;
- Tmpv__=strsubst(Xyzstr__,Vname__,'v__');
- Tmp__=strsubst(Tmpv__,Uname__,'u1__');
- P1__=evstr(Tmp__);
- Tmp__=strsubst(Tmpv__,Uname__,'u2__');
- P2__=evstr(Tmp__);
- Tmp1__=Parapt(P1__);
- Tmp2__=Parapt(P2__);
- Dxu__=(Tmp2__(1)-Tmp1__(1))/Eps__;
- Dyu__=(Tmp2__(2)-Tmp1__(2))/Eps__;
- u1__=u__-Eps__/2; u2__=u__+Eps__/2;
- Tmpu__=strsubst(Xyzstr__,Uname__,'u__');
- Tmp__=strsubst(Tmpu__,Vname__,'v1__');
- P1__=evstr(Tmp__);
- Tmp__=strsubst(Tmpu__,Vname__,'v2__');
- P2__=evstr(Tmp__);
- Tmp1__=Parapt(P1__);
- Tmp2__=Parapt(P2__);
- Dxv__=(Tmp2__(1)-Tmp1__(1))/Eps__;
- Dyv__=(Tmp2__(2)-Tmp1__(2))/Eps__;
- Tmp__=Dxu__*Dyv__-Dxv__*Dyu__;
- ZuL__=[ZuL__,Tmp__];
- end;
- Zval__=[Zval__;ZuL__];
- end;
- Yval__=V1__:Dv__:V2__;
- Xval__=U1__:Du__:U2__;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.bin
deleted file mode 100644
index 775dd55e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.sci
deleted file mode 100755
index 15ddd0a8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Evlptablepers.sci
+++ /dev/null
@@ -1,77 +0,0 @@
-// 08.09.21
-// 13.11.01 ( __ added to varibles )
-
-function [Zval__,Xval__,Yval__]=Evlptablepers(MS__)
- Nargs__=Mixlength(MS__);
- Eps__=10^(-3);
- Tmp__=Mixop(1,MS__);
- FdL__=Fullformfunc(Tmp__);
- Mdv__=50;
- Ndv__=50;
- if Nargs__>=2
- Tmp__=Mixop(2,MS__);
- if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end;
- if length(Tmp__)>1
- Mdv__=Tmp__(1,1);
- Ndv__=Tmp__(1,2);
- else
- Mdv__=Tmp__
- if Nargs__==2
- Ndv__=Mdv__
- else
- Tmp__1=Mixop(3,MS__);
- if type(Tmp__1)==1 & length(Tmp__1)==1
- Ndv__=Tmp__1;
- else
- Ndv__=Mdv__;
- end
- end
- end
- end;
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urange__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- U1__=Urange__(1); U2__=Urange__(2);
- V1__=Vrange__(1); V2__=Vrange__(2);
- Du__=(U2__-U1__)/(Mdv__-1);
- Dv__=(V2__-V1__)/(Ndv__-1);
- Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)];
- I__=1;
- Zval__=[];
- for v__=V1__:Dv__:V2__
- v__1=v__-Eps__/2; v__2=v__+Eps__/2;
- ZuL__=[];
- for u__=U1__:Du__:U2__;
- u__1=u__-Eps__/2; u__2=u__+Eps__/2;
- Tmp__v=strsubst(Xyzstr__,Vname__,'v__');
- Tmp__=strsubst(Tmp__v,Uname__,'u__1');
- P1__=evstr(Tmp__);
- Tmp__=strsubst(Tmp__v,Uname__,'u__2');
- P2__=evstr(Tmp__);
- Tmp__1=Perspt(P1__);
- Tmp__2=Perspt(P2__);
- Dxu__=(Tmp__2(1)-Tmp__1(1))/Eps__;
- Dyu__=(Tmp__2(2)-Tmp__1(2))/Eps__;
- u__1=u__-Eps__/2; u__2=u__+Eps__/2;
- Tmp__u=strsubst(Xyzstr__,Uname__,'u__');
- Tmp__=strsubst(Tmp__u,Vname__,'v__1');
- P1__=evstr(Tmp__);
- Tmp__=strsubst(Tmp__u,Vname__,'v__2');
- P2__=evstr(Tmp__);
- Tmp__1=Perspt(P1__);
- Tmp__2=Perspt(P2__);
- Dxv__=(Tmp__2(1)-Tmp__1(1))/Eps__;
- Dyv__=(Tmp__2(2)-Tmp__1(2))/Eps__;
- Tmp__=Dxu__*Dyv__-Dxv__*Dyu__;
- ZuL__=[ZuL__,Tmp__];
- end;
- Zval__=[Zval__;ZuL__];
- end;
- Yval__=V1__:Dv__:V2__;
- Xval__=U1__:Du__:U2__;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.bin
deleted file mode 100644
index 44e39527..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.sci
deleted file mode 100755
index 2a4d1491..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Execmd.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 10.01.16
-// 10.02.24
-
-function Execmd(StrL)
- for I=1:length(StrL)
- execstr(Op(I,StrL))
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.bin
deleted file mode 100644
index b58e53fd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.sci
deleted file mode 100755
index 5b9df24b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Expr.sci
+++ /dev/null
@@ -1,100 +0,0 @@
-//
-// 09.12.25
-
-function Expr(varargin)
- global Wfile FID MEMORI;
- Nargs=length(varargin);
- for I=1:3:Nargs
- Tmp=varargin(I);
- P=Doscaling(Tmp);
- X=P(1);
- Y=P(2);
- Houkou=varargin(I+1);
- Mojiretu='$'+varargin(I+2)+'$';
- Hset=Houkou;
- Vhoko='c';
- if mtlb_findstr(Hset,'n')~=[]
- Vhoko='n'; Y=Y+MEMORI;
- end
- if mtlb_findstr(Hset,'s')~=[]
- Vhoko='s'; Y=Y-MEMORI;
- end
- Hhoko='c';
- if mtlb_findstr(Hset,'e')~=[]
- Hhoko='e'; X=X+MEMORI;
- end
- if mtlb_findstr(Hset,'w')~=[]
- Hhoko='w'; X=X-MEMORI;
- end
- Hoko=Vhoko+Hhoko;
- Suu='+-.0123456789';
- SuuL=Suu;
- Hcode=ascii(Houkou);
- J=1; Dstr='';
- while J<=length(Houkou)
- Tmp=char(Hcode(J));
- if mtlb_findstr(SuuL,Tmp)~=[]
- if Dstr==''
- Hk=char(Hcode(J-1));
- end
- Dstr=Dstr+Tmp;
- else
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- Dstr='';
- end
- end
- J=J+1;
- end
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- end
- CalcWidth(Hoko,Mojiretu);
- CalcHeight(Hoko,Mojiretu);
- Tmp='){\hspace*{\Width}';
- Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}';
- if Wfile=='default'
- mprintf('%s','\put(');
- mprintf('%6.4f%s%6.4f',X,',',Y);
- mprintf('%s%s\n',Str,'%');
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s','\put(');
- mfprintf(FID,'%6.4f%s%6.4f',X,',',Y);
- mfprintf(FID,'%s%s\n',Str,'%');
- mfprintf(FID,'%s\n','%');
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.bin
deleted file mode 100644
index 17904d7a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci
deleted file mode 100755
index d51dfa91..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Exprrot.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 08.05.31
-// 08.08.24
-// 09.12.25
-
-function Exprrot(varargin)
- global MEMORI;
- P=varargin(1);
- V=varargin(2); N=3;
- P=Doscaling(P);
- V=Doscaling(V);
- Tmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1
- Tmov=Tmp; N=N+1;
- end
- Nmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1 then
- Nmov=Tmp; N=N+1;
- end
- Mojiretu='$'+varargin(N)+'$';
- Tv=1/norm(V)*V;
- Nv=[-Tv(2),Tv(1)];
- P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv;
- Tmp=acos(V(1)/norm(V));
- Theta=round(Tmp*180/%pi);
- if V(2)>=0
- Units='';
- else
- Units='units=-360,';
- end
- Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta);
- Tmp=Tmp+'}{'+Mojiretu+'}';
- Letter(P,"c",Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.bin
deleted file mode 100644
index 5095cc06..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.sci
deleted file mode 100755
index ae0bea54..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata.sci
+++ /dev/null
@@ -1,78 +0,0 @@
-// 09.10.29
-// 10.02.07 debugged
-
-function NohiddenL=Faceremovaldata(FL,CLadd,PT)
- global PHHIDDENDATA VELNO VELHI;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CLadd)//
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- VELNO=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- Ntmp=length(VELNO); //
- VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); //
- end;
- end;
- VELHI=list();
- Out=MakeveLfaceL(FL);
- FaceL=Out(2);
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi2(Face,Nf,Ptype);
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- for I=1:length(VELHI)
- Edge=Op(1,VELHI(I));
- if norm(Edge(1)-Edge(2))>Eps
- HiddenL($+1)=Spaceline(Edge);
- end;
- end;
- PHHIDDENDATA=HiddenL;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.bin
deleted file mode 100644
index ea9738c8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.sci
deleted file mode 100755
index 7dc8bef1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Faceremovaldata0.sci
+++ /dev/null
@@ -1,81 +0,0 @@
-// NEW
-// Faceremovaldata
-// 09.10.24
-// 09.10.26
-// 09.10.27
-
-function NohiddenL=Faceremovaldata(FL,CLadd,PT)
- global PHHIDDENDATA VELNO VELHI;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CL)
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- VELNO=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- VELNO($+1)=list(Edge,0);
- end;
- end;
- VELHI=list();
- Out=MakeveLfaceL(FL);
- FaceL=Out(2);
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi(Face,Nf,Ptype);
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- for I=1:length(VELHI)
- Edge=Op(1,VELHI(I));
- if norm(Edge(1)-Edge(2))>Eps
- HiddenL($+1)=Spaceline(Edge);
- end;
- end;
- PHHIDDENDATA=HiddenL;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.bin
deleted file mode 100644
index 84ab9833..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.sci
deleted file mode 100755
index 0ed2f249..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata.sci
+++ /dev/null
@@ -1,154 +0,0 @@
-/////////
-// 09.10.29
-// 11.01.13 (HiddenL) remodified 110122
-// 13.03.30 (HiddenL) debugged 140330
-
-function NohiddenL=Facesdata(varargin)
- global PHHIDDENDATA VELNO VELHI;
- Nargs=length(varargin);
- FL=varargin(1);
- PT=varargin($);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if Nargs==2
- CLadd=list();
- else
- CLadd=varargin(2);
- end;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CL)
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- Out=MakeveLfaceL(FL);
- VELNO=Out(1);
- VELHI=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- Ntmp=length(VELNO); //
- VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); //
- end;
- end;
- FaceL=Out(2);
- if mtlb_findstr(PT,'raw')==[]
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi2(Face,Nf,Ptype);
- end;
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- EdgeL=list(); // from 13.03.30
- for K=1:length(VELHI)
- Edge=Op(1,VELHI(K));
- P=Edge(1); Q=Edge(2);
- if norm(P-Q)>Eps then
- EdgeL($+1)=Edge;
- end
- end
- for K=1:length(EdgeL)
- Edge=EdgeL(K); //
- P=Edge(1); Q=Edge(2);
- Cflg=0;
- for J=K+1:length(EdgeL)
- Ej=EdgeL(J); //
- Pj=Ej(1); Qj=Ej(2);
- if norm(Crossprod(Q-P,Qj-Pj))>Eps then
- continue
- end
- if norm(Q-Pj)<Eps then
- EdgeL(J)=list(P,Qj);
- Cflg=1;
- break;
- end
- if norm(P-Qj)<Eps then
- EdgeL(J)=list(Q,Pj)
- Cflg=1;
- break;
- end;
- end
- if Cflg==0 then
- HiddenL($+1)=Spaceline(Edge);
- end;
- end; // upto 14.03.30
-
-// L=1:length(VELHI); // from 11.01.13
-// while length(L)>0
-// Lr=[];
-// Edge=Op(1,VELHI(L(1))); //
-// P=Edge(1);
-// Q=Edge(2);
-//
-// disp([293,P,Q])
-//
-// if norm(P-Q)>Eps
-// for J=2:length(L)
-// Rflg=0;
-// Ej=Op(1,VELHI(L(J))); //
-// Pj=Ej(1);
-// Qj=Ej(2);
-// if norm(Crossprod(Q-P,Qj-Pj))>Eps
-// Lr=[Lr,J];
-// continue;
-// end;
-// if norm(Q-Pj)<Eps
-// Edge(2)=Qj;
-// Rflg=1;
-// elseif norm(P-Qj)<Eps
-// Edge(1)=Pj;
-// Rflg=1;
-// end;
-// if Rflg==0
-// Lr=[Lr,J];
-// end;
-// end;
-// else
-// Lr=L(2:length(L));
-// end;
-// L=Lr; // upto 11.01.13
-// HiddenL($+1)=Spaceline(Edge);
-// end;
- PHHIDDENDATA=HiddenL;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.bin
deleted file mode 100644
index 82821a8b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.sci
deleted file mode 100755
index c300cf6e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Facesdata0.sci
+++ /dev/null
@@ -1,88 +0,0 @@
-// 09.10.27
-
-function NohiddenL=Facesdata(varargin)
- global PHHIDDENDATA VELNO VELHI;
- Nargs=length(varargin);
- FL=varargin(1);
- PT=varargin($);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if Nargs==2
- CLadd=list();
- else
- CLadd=varargin(2);
- end;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CL)
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- Out=MakeveLfaceL(FL);
- VELNO=Out(1);
- VELHI=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- VELNO($+1)=list(Edge,0);
- end;
- end;
- FaceL=Out(2);
- if mtlb_findstr(PT,'raw')==[]
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi(Face,Nf,Ptype);
- end;
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- for I=1:length(VELHI)
- Edge=Op(1,VELHI(I));
- if norm(Edge(1)-Edge(2))>Eps
- HiddenL($+1)=Spaceline(Edge);
- end;
- end;
- PHHIDDENDATA=HiddenL;
-endfunction
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.bin
deleted file mode 100644
index ade40fbf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.sci
deleted file mode 100755
index 062fcc5c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Findcell.sci
+++ /dev/null
@@ -1,127 +0,0 @@
-// 09.11.26
-// 09.12.06
-// 09.12.14
-// 10.01.12
-// 10.01.13
-// 10.01.14
-
-function Out=Findcell(varargin)//TbL,Nrg,Mrg
- Nargs=length(varargin);
- TbL=varargin(1);
- Ag=varargin(2);
- Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ';
- if type(Ag)==10
- Clm=[];
- Rstr='';
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp-1];
- else
- Rstr=Rstr+C;
- end;
- end;
- Nrg=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg=Nrg+Tmp*26^Tmp1;
- end;
- Mrg=eval(Rstr);
- if Nargs>=3
- Ag=varargin(3);
- Clm=[];
- Rstr='';
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp];
- else
- Rstr=Rstr+C;
- end;
- end;
- Nrg2=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg2=Nrg2+Tmp*26^Tmp1;
- end;
- Nrg=[Nrg,Nrg2];
- Mrg=[Mrg,eval(Rstr)];
- end;
- else
- Nrg=varargin(2);
- Mrg=varargin(3);
- end;
- if length(Mrg)==1
- m1=Mrg; m2=m1+1;
- else
- m1=Mrg(1); m2=Mrg(2);
- end;
- if length(Nrg)==1
- n1=Nrg; n2=n1+1;
- else
- n1=Nrg(1); n2=Nrg(2);
- end;
- n1=n1+1; n2=n2+1;
- m1=m1+1; m2=m2+1;
- Hind=TbL(2);
- Vind=TbL(3);
- HL=Mixsub(TbL(2),TbL(1));
- Tmp1=Op(1,TbL(4));
- Tmp2=Op(2,TbL(4));
- HL=Mixjoin(list(Tmp1),HL,list(Tmp2));
- VL=Mixsub(TbL(3),TbL(1));
- Tmp1=Op(1,TbL(5));
- Tmp2=Op(2,TbL(5));
- VL=Mixjoin(list(Tmp1),VL,list(Tmp2));
- Tmp=TbL(6);
- Tmp1=Listplot([Ptsw(Tmp),Ptnw(Tmp)]);
- Tmp2=Listplot([Ptse(Tmp),Ptne(Tmp)]);
- HL=Mixjoin(list(Tmp1),HL,list(Tmp2));
- Tmp1=Listplot([Ptnw(Tmp),Ptne(Tmp)]);
- Tmp2=Listplot([Ptsw(Tmp),Ptse(Tmp)]);
- VL=Mixjoin(list(Tmp1),VL,list(Tmp2));
- Tmp=HL(n1);
- if type(Tmp)==1
- H1=Tmp(1,1);
- else
- Tmp1=Tmp(1);
- H1=Tmp1(1,1);
- end;
- Tmp=HL(n2);
- if type(Tmp)==1
- H2=Tmp(1,1);
- else
- Tmp1=Tmp(1);
- H2=Tmp1(1,1);
- end;
- Tmp=VL(m1);
- if type(Tmp)==1
- V1=Tmp(1,2);
- else
- Tmp1=Tmp(1);
- V1=Tmp1(1,2);
- end;
- Tmp=VL(m2);
- if type(Tmp)==1
- V2=Tmp(1,2);
- else
- Tmp1=Tmp(1);
- V2=Tmp1(1,2);
- end;
- Pt=[(H1+H2)/2,(V1+V2)/2];
- High=(V1-V2)/2;
- Wide=(H2-H1)/2;
- Out=list(Pt,Wide,High);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.bin
deleted file mode 100644
index 31e5d594..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.sci
deleted file mode 100755
index 903679ab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Flattenlist.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 10.11.13
-
-function Out=Flattenlist(varargin)
- Out=list();
- for N=1:length(varargin)
- D=varargin(N);
- if type(D)~=15
- Out($+1)=D;
- else
- for I=1:length(D)
- Ds=D(I);
- Tmp=Flattenlist(Ds);
- Out=lstcat(Out,Tmp);
- end;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.bin
deleted file mode 100644
index 10387e38..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.sci
deleted file mode 100755
index 218b599f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fontsize.sci
+++ /dev/null
@@ -1,54 +0,0 @@
-function Fontsize(Ookisa)
- global Wfile FID;
- Str='%';
- Ucode=ascii(Ookisa);
- S=char(Ucode(1));
- if S=='n'
- Str='\normalsize%';
- end
- if S=='s'
- if length(Ucode)==1
- Tmp='';
- else
- Tmp=char(Ucode(2));
- end
- if Tmp=='s'
- Str='\scriptsize%';
- else
- Str='\small%';
- end
- end
- if S=='f'
- Str='\footnotesize%';
- end
- if S=='t'
- Str='\tiny%';
- end
- if S=='l'
- Str='\large%';
- end
- if S=='L'
- if length(Ucode)==1
- Tmp='a';
- else
- Tmp=char(Ucode(2));
- end
- if Tmp=='a'
- Str='\Large%';
- else
- Str='\LARGE%';
- end
- end
- if S=='h'
- Str='\huge%';
- end
- if S=='H'
- Str='\Huge%';
- end
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.bin
deleted file mode 100644
index e718a4ba..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.sci
deleted file mode 100755
index af259244..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriercoeff.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 09.03.13
-
-function Out=Fouriercoeff(Fn,T,Ch,K)
- Eps=10^(-5);
- L=T/2;
- Tmp1='Out=FUNC(x)';
- if Ch=='c'
- Tmp2='Out=Fn(10*L*x)*cos('+string(K)+'*%pi*x*10)';
- else
- Tmp2='Out=Fn(10*L*x)*sin('+string(K)+'*%pi*x*10)';
- end;
- deff(Tmp1,Tmp2);
- Out=10*intg(-0.1,0.1,FUNC);
- if K==0
- Out=Out/2;
- end;
- if abs(Out)<Eps
- Out=0;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.bin
deleted file mode 100644
index 59f91f6c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.sci
deleted file mode 100755
index 2d0d840b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/FouriercoeffL.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 09.03.12
-
-function Out=FouriercoeffL(Fn,T,Upto)
- Out=Mix(Fouriercoeff(Fn,T,'c',0));
- CL=[];
- for K=1:Upto
- Tmp=Fouriercoeff(Fn,T,'c',K);
- CL=[CL,Tmp];
- end;
- Out=Mixadd(Out,CL);
- CL=[];
- for K=1:Upto
- Tmp=Fouriercoeff(Fn,T,'s',K);
- CL=[CL,Tmp];
- end;
- Out=Mixadd(Out,CL);
- Out=Mixadd(Out,T);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.bin
deleted file mode 100644
index bf840511..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.sci
deleted file mode 100755
index 6182f4a7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fouriersum.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 09.03.12
-
-function Out=Fouriersum(COEFF,x)
- C=Mixop(1,COEFF);
- A=Mixop(2,COEFF);
- B=Mixop(3,COEFF);
- T=Mixop(4,COEFF);
- Upto=size(A,2);
- L=T/2;
- K=1:Upto;
- Tmp1=sum(A(K).*cos(K*%pi*x/L));
- Tmp2=sum(B(K).*sin(K*%pi*x/L));
- Out=C+Tmp1+Tmp2;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.bin
deleted file mode 100644
index 478d4e52..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.sci
deleted file mode 100755
index 437ff122..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fracform.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 09.08.23
-
-function Out=Fracform(X)
- [N,D]=rat(X);
- Out=[];
- for I=1:size(X,1)
- for J=1:size(X,2)
- Tmp1=N(I,J);
- Tmp2=D(I,J);
- if Tmp2==1
- Out(I,J)=string(Tmp1);
- else
- Out(I,J)=string(Tmp1)+'/'+string(Tmp2);
- end;
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.bin
deleted file mode 100644
index 442df592..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci
deleted file mode 100755
index 071f7381..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Framedata.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 2011.12.18 ( available for list )
-
-function P=Framedata(varargin)
- global XMIN XMAX YMIN YMAX
- VaL=Flattenlist(varargin);
- N=length(VaL);
- if N<=1
- H=1.0*10^(-4);
- PA=[XMIN+H,YMIN+H];
- PB=[XMAX-H,YMIN+H];
- PC=[XMAX-H,YMAX-H];
- PD=[XMIN+H,YMAX-H];
- else
- Tmp=VaL(N);
- if type(Tmp)==1 & length(Tmp)==1
- Dy=Tmp;
- Dx=Dy;
- Tmp=VaL(N-1);
- if type(Tmp)==1 & length(Tmp)==1
- Dx=Tmp;
- end;
- Tmp=VaL(1);
- X=Tmp(1); Y=Tmp(2);
- X1=X-Dx; X2=X+Dx;
- Y1=Y-Dy; Y2=Y+Dy;
- else
- Tmp=VaL(1);
- X1=Tmp(1); X2=Tmp(2);
- Tmp=VaL(2);
- Y1=Tmp(1); Y2=Tmp(2);
- end;
- PA=[X1,Y1]; PB=[X2,Y1];
- PC=[X2,Y2]; PD=[X1,Y2];
- end;
- P=Listplot(PA,PB,PC,PD,PA)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.bin
deleted file mode 100644
index b86c79cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci
deleted file mode 100755
index 97ddae5b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Fullformfunc.sci
+++ /dev/null
@@ -1,79 +0,0 @@
-// 08.08.16
-// 08.09.16
-// 09.11.14
-// 10.08.19
-// 13.10.22 ( __ added to varibles )
-
-function Out__=Fullformfunc(FdL__)
- Out__=MixS(Mixop(1,FdL__));
- N__=Mixlength(FdL__);
- for Jrg__=1:N__
- Tmp__=Mixop(Jrg__,FdL__);
- if part(Tmp__,length(Tmp__))==']'
- break
- end;
- end;
- Urg__=Mixop(Jrg__,FdL__);
- K__=mtlb_findstr(Urg__,'=');
- Uname__=stripblanks(part(Urg__,1:K__-1));
- Tmp__=part(Urg__,K__+1:length(Urg__)); // 2013.10.22
- Tmp1__=evstr(Tmp__);
- Urg__=Uname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]";
- Vrg__=Mixop(Jrg__+1,FdL__);
- K__=mtlb_findstr(Vrg__,'=');
- Vname__=stripblanks(part(Vrg__,1:K__-1));
- Tmp__=part(Vrg__,K__+1:length(Vrg__));
- Tmp1__=evstr(Tmp__);
- Vrg__=Vname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]"; //
- if Jrg__==2
- Tmp__=Mixop(1,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Zf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=MixS(Uname__,Vname__,Zf__,Urg__,Vrg__);
- Out__=Mixjoin(Out__,Tmp__);
- elseif Jrg__==4
- Tmp__=Mixop(1,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Zf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=Mixop(2,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=stripblanks(part(Tmp__,1:K__-1));
- Xf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=Mixop(3,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=stripblanks(part(Tmp__,1:K__-1));
- Yf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=strsubst(Zf__,Xname__,'('+Xf__+')');
- Zf__=strsubst(Tmp__,Yname__,'('+Yf__+')');
- Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__);
- Out__=Mixjoin(Out__,Tmp__);
- else
- Tmp__=Mixop(2,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Xf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=Mixop(3,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Yf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=Mixop(4,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Zf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__);
- Out__=Mixjoin(Out__,Tmp__);
- end;
- DrwS__='enws';
- BdyL__=[];
- for I__=Jrg__+2:Mixlength(FdL__)
- Tmp__=Mixop(I__,FdL__);
- if type(Tmp__)==10
- if length(Tmp__)==0 //
- Tmp__=' ';
- end;
- DrwS__=Tmp__;
- end;
- if type(Tmp__)==1 & size(Tmp__,2)>1
- BdyL__=Tmp__;
- end;
- end;
- Tmp__=MixS(DrwS__,BdyL__);
- Out__=Mixjoin(Out__,Tmp__);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.bin
deleted file mode 100644
index 5ada2529..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.sci
deleted file mode 100755
index 3d17995e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gaiseki.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function G=Gaiseki(a,b)
- if length(a)==3
- Tmp=[a(2)*b(3)-a(3)*b(2),...
- a(3)*b(1)-a(1)*b(3),...
- a(1)*b(2)-a(2)*b(1)];
- else
- Tmp=a(1)*b(2)-a(2)*b(1);
- end;
- G=Tmp;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.bin
deleted file mode 100644
index 9dbd0923..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.sci
deleted file mode 100755
index ca4e0d2a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Getcounter.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.09.10
-
-function Out=Getcounter()
- global GCOUNTER;
- Out=GCOUNTER;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.bin
deleted file mode 100644
index b99800fe..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.sci
deleted file mode 100755
index 5395d885..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Gettrace.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.09.10
-
-function Out=Gettrace();
- global TRACEDATA;
- Out=TRACEDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.bin
deleted file mode 100644
index d688039f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.sci
deleted file mode 100755
index 236287ef..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hatchdata.sci
+++ /dev/null
@@ -1,141 +0,0 @@
-// 08.05.21
-// 09.10.05
-// 09.12.25
-// 10.01.20
-// 10.02.01
-// 10.11.04 ( debugged 83 )
-
-function ShaLs=Hatchdata(varargin)
- global XMIN XMAX YMIN YMAX MilliIn;
- ShaL=[];
- Nargs=length(varargin);
- Kakudo=45;
- Kankaku=0.125*1000/2.54/MilliIn;
- Tmp=Doscaling([XMIN,YMIN]);
- Xmn=Tmp(1); Ymn=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- Xmx=Tmp(1); Ymx=Tmp(2);
- for N=Nargs:-1:1
- Tmp=varargin(N);
- if Mixtype(Tmp)~=1
- break
- end
- end
- if N<Nargs
- Kakudo=varargin(N+1);
- if N==Nargs-2
- Kankaku=0.125*varargin(Nargs);
- end
- end
- NaitenL=varargin(1);
- if Mixtype(NaitenL)==1
- NaitenL=list(NaitenL);
- end
- Ns=2;
- StartP=Op(1,NaitenL);
- if type(StartP)==10
- StartP=[(Xmn+Xmx)/2,(Ymn+Ymx)/2];
- end
- if Mixtype(varargin(2))==1
- StartP=varargin(2);
- StartP=Doscaling(StartP);
- Ns=3;
- end
- Tmp=list();
- for I=Ns:N
- Tmp1=list(varargin(I));
- Tmp=Mixjoin(Tmp,Tmp1);
- end
- Bdy=Kyoukai(Tmp);
- Bdys=list();
- for I=1:length(Bdy)
- Tmp1=Bdy(I);
- Tmp2=Doscaling(Tmp1);
- Bdys=Mixjoin(Bdys,list(Tmp2));
- end;
- Bdy=Bdys;
- PtnL=list();
- for I=1:length(NaitenL)
- Tmp=Op(I,NaitenL);
- if type(Tmp)==1
- Tmp1=Naigai(Tmp,Bdy);
- PtnL=Mixjoin(PtnL,list(Tmp1));
- else
- if type(Tmp)~=10
- disp('Type Error');
- return
- end
- Ptn=[];
- for J=1:length(Tmp)
- if Op(J,Tmp)=='i'
- Ptn=[Ptn,1];
- else
- Ptn=[Ptn,0];
- end
- end
- PtnL=Mixjoin(PtnL,list(Ptn));
- end
- end
- Call=length(Bdy);
- Ptn=zeros(1,Call);
- if Member(Ptn,PtnL)
- Wn=Doscaling(Framedata());
- Bdy=Mixjoin(Bdy,list(Wn));
- Tmp=list();
- for I=1:length(PtnL)
- Tmp1=[Op(I,PtnL),1];
- Tmp=Mixjoin(Tmp,Tmp1); // 10.11.04
- end
- PtnL=Tmp;
- end
- V=[cos(Kakudo*%pi/180),sin(Kakudo*%pi/180)];
- Vm=[-sin(Kakudo*%pi/180),cos(Kakudo*%pi/180)];
- Tmp=Op(1,NaitenL);
- if type(Tmp)==1 & size(Tmp,2)==2
- Tmp=Doscaling(Tmp);
- Delta=Tmp-StartP;
- K=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
- PA=StartP+K*Kankaku*Vm;
- Sha=Makeshasen(PtnL,PA,V,Bdy);
- I=1;
- while length(Sha)~=0
- for J=1:length(Sha)
- ShaL=Mixadd(ShaL,Sha(J));
- end;
- Sha=Makeshasen(PtnL,PA+I*Kankaku*Vm,V,Bdy);
- I=I+1;
- end
- Sha=Makeshasen(PtnL,PA-Kankaku*Vm,V,Bdy);
- I=2;
- while length(Sha)~=0
- for J=1:length(Sha)
- ShaL=Mixjoin(ShaL,list(Sha(J)));
- end;
- Sha=Makeshasen(PtnL,PA-I*Kankaku*Vm,V,Bdy);
- I=I+1;
- end
- else
- Delta=[Xmn,Ymn]-StartP;
- K1=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
- Delta=[Xmx,Ymn]-StartP;
- K2=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
- Delta=[Xmx,Ymx]-StartP;
- K3=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
- Delta=[Xmn,Ymx]-StartP;
- K4=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
- IM=max(K1,K2,K3,K4);
- Im=min(K1,K2,K3,K4);
- for I=Im:IM
- Sha=Makeshasen(PtnL,StartP+I*Kankaku*Vm,V,Bdy);
- for J=1:length(Sha)
- ShaL=Mixjoin(ShaL,list(Sha(J)));
- end
- end
- end
- ShaLs=list();
- for I=1:length(ShaL)
- Tmp=ShaL(I);
- Tmp1=Unscaling(Tmp);
- ShaLs=Mixjoin(ShaLs,list(Tmp1));
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.bin
deleted file mode 100644
index fed0c2c1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.sci
deleted file mode 100644
index 7bc05ed9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Hexahedrondata.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// s : 2014.06.22
-
-function Out=Hexahedrondata(A,V1,V2,V3)
- Tmp=det([V1;V2;V3]);
- if Tmp<0 then
- Tmp1=V1;
- V1=V2;
- V2=Tmp1
- end
- B=A+V1; C=A+V1+V2; D=A+V2;
- E=A+V3; F=B+V3; G=C+V3; H=D+V3;
- VL=list(A,B,C,D,E,F,G,H);
- FL=list([1,4,3,2],[5,6,7,8],[1,2,6,5],[2,3,7,6],[3,4,8,7],[1,5,8,4]);
- Out=list(VL,FL)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.bin
deleted file mode 100644
index 09289136..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.sci
deleted file mode 100755
index 2ead122d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/HiddenWireData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.15
-
-function Out=HiddenWireData()
- global HIDDENWIREDATA
- Out=HIDDENWIREDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.bin
deleted file mode 100644
index 86cae9a7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.sci
deleted file mode 100644
index ab8a54b6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Htickmark.sci
+++ /dev/null
@@ -1,144 +0,0 @@
-// 08.05.17 Debugged
-// 09.12.25
-// 11.04.13 debugged ( [a,b] )
-// 14.03.05 MARKLEN
-
-function Htickmark(varargin)
- global Wfile FID MARKLEN GENTEN XMIN XMAX;
- Nargs=length(varargin);
- ArgsL=list(varargin(1:Nargs));
- if type(Op(1,ArgsL))==10
- Str=Op(1,ArgsL);
- Tmp=mtlb_findstr(Str,'m');
- if Tmp~=[]
- I=Tmp(1);
- else
- I=0;
- end
- Tmp=mtlb_findstr(Str,'n');
- if Tmp~=[]
- J=Tmp(1);
- else
- J=0;
- end
- Tmp=mtlb_findstr(Str,'r');
- if Tmp~=[]
- K=Tmp(1);
- else
- K=0;
- end;
- if K>0
- Tmp=ascii(Str);
- S=char(Tmp(K+1:length(Tmp)));
- R=msscanf(S,'%f');
- if length(R)==0
- R=1;
- end
- else
- R=1;
- K=length(Str)+1;
- end
- if J>0 then
- Tmp=ascii(Str);
- S=char(Tmp(J+1:K-1));
- if S==[]
- S='';
- end;
- Dn=msscanf(S,'%d');
- if length(Dn)==0
- Dn=1;
- end
- else
- Dn=1000;
- J=length(Str)+1;
- end
- Tmp=ascii(Str);
- S=char(Tmp(I+1:J-1));
- if S==[]
- S='';
- end
- Dm=msscanf(S,'%f');
- if length(Dm)==0
- Dm=1;
- end
- ArgsL=list();
- for I=1:floor((XMAX-GENTEN(1))/Dm)
- ArgsL($+1)=I*Dm;
- if I-floor(I/Dn)*Dn==0
- Str=string(I*Dm*R);
- K=length(Str);
- Tmp=ascii(Str);
- if char(Tmp(K))=='.'
- Str=char(Tmp(1:k-1));
- end
- ArgsL($+1)=Str;
- end
- end
- for I=-1:-1:ceil((XMIN-GENTEN(1))/Dm)
- ArgsL($+1)=I*Dm;
- if I-floor(I/Dn)*Dn==0
- Str=string(I*Dm*R);
- K=length(Str);
- Tmp=ascii(Str);
- if char(Tmp(K))=='.'
- Str=char(1:K-1);
- end
- ArgsL($+1)=Str;
- end
- end
- end
- MemoriList=list();
- Memori=list();
- for N=1:length(ArgsL)
- Dt=ArgsL(N);
- if type(Dt)==1 & length(Dt)>1
- if length(Memori)>0
- MemoriList($+1)=Memori;
- end
- Memori=list(Dt(1),Dt(2));
- continue
- end
- if type(Dt)==10
- Memori($+1)=Dt;
- else
- if length(Memori)>0
- MemoriList($+1)=Memori;
- end
- Memori=list(Dt,GENTEN(2));
- end
- end
- MemoriList($+1)=Memori;
- for N=1:length(MemoriList)
- Dt=MemoriList(N);
- Ndt=length(Dt);
- X=Op(1,Dt);
- Y=Op(2,Dt);
- Tmp=Doscaling([X,Y]);
- X=Tmp(1);
- Y=Tmp(2);
- Moji=Op(Ndt,Dt);
- Tmp1=Unscaling([X,Y+MARKLEN]);
- Tmp2=Unscaling([X,Y-MARKLEN]);
- Fd=Listplot([Tmp1,Tmp2]);
- Drwline(Fd);
- if Ndt==3
- Tmp=Unscaling([X,Y-MARKLEN]);
- Expr(Tmp,'s',Moji);
- end
- if Ndt==4
- Houkou=Op(3,Dt);
- if mtlb_findstr(Houkou,'s')~=[]
- Tmp=Unscaling([X,Y-MARKLEN]);
- Expr(Tmp,Houkou,Moji);
- else
- Tmp=Unscaling([X,Y+MARKLEN]);
- Expr(Tmp,Houkou,Moji);
- end
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.bin
deleted file mode 100644
index 6334287e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.sci
deleted file mode 100755
index ae02fee1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ImplicitData.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// 08.09.10
-// 08.09.16
-// 08.10.10 (Name)
-
-function Out=ImplicitData()
- global IMPLICITDATA
- Out=IMPLICITDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.bin
deleted file mode 100644
index 6336bf4c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.sci
deleted file mode 100755
index b0715484..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Implicitplot.sci
+++ /dev/null
@@ -1,61 +0,0 @@
-// 08.09.09
-// 08.09.20
-// 13.10.19 ( __ added to variables )
-
-function Out__=Implicitplot(varargin)
- Eps__=10^(-4);
- Nargs__=length(varargin);
- Fstr__=varargin(1);
- if Mixtype(Fstr__)~=1
- MS__=Fstr__;
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- elseif type(Fstr__)==10
- MS__=[];
- for I__=1:Nargs__
- MS__=Mixadd(MS__,varargin(I__));
- end;
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- else
- Zval__=varargin(1);
- Xval__=varargin(2);
- Yval__=varargin(3);
- end;
- Out__=[];
- for J__=1:length(Yval__)-1
- for I__=1:length(Xval__)-1
- a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__);
- a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1);
- a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1);
- a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__);
- PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__];
- VL__=[c1__,c2__,c3__,c4__,c1__];
- QL__=[];
- for K__=1:4
- if abs(VL__(K__))<=Eps__
- QL__=[QL__;PL__(K__,:)];
- elseif VL__(K__)>Eps__
- if VL__(K__+1)<-Eps__
- Tmp__=1/(VL__(K__)-VL__(K__+1))*(-VL__(K__+1)*PL__(K__,:)...
- + VL__(K__)*PL__(K__+1,:));
- QL__=[QL__;Tmp__];
- end
- else
- if VL__(K__+1)>Eps__
- Tmp__=1/(-VL__(K__)+VL__(K__+1))*(VL__(K__+1)*PL__(K__,:)...
- - VL__(K__)*PL__(K__+1,:));
- QL__=[QL__;Tmp__];
- end;
- end;
- end;
- if size(QL__,1)==2
- Out__=[Out__;%inf,%inf;QL__(1,:);QL__(2,:)];
- end;
- end;
- end;
- Out__=Out__(2:size(Out__,1),:);
- if size(Out__,1)>0
- Out__=Connectseg(Out__);
- else
- Out__=[];
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.bin
deleted file mode 100644
index da2db1f4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.sci
deleted file mode 100755
index 9dacd30c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/InWindow.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function Rx=InWindow(PA)
- global XMIN XMAX YMIN YMAX
- Eps=10.0^(-6);
- X=PA(1); Y=PA(2);
- if X>XMIN-Eps & X<XMAX+Eps & Y>YMIN-Eps & Y<YMAX+Eps
- Rx='i'
- else
- Rx='o'
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.bin
deleted file mode 100644
index ac64c46b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.sci
deleted file mode 100755
index d5e09ff4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Initangle.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 08.07.11
-
-function Initangle()
- global PHI THETA;
- PHI=30*%pi/180;
- THETA=60*%pi/180;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.bin
deleted file mode 100644
index b26672c0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.sci
deleted file mode 100755
index abd3377f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Integrate.sci
+++ /dev/null
@@ -1,25 +0,0 @@
-// 09.10.09
-// 09.10.21 Es, Er
-
-function Out=Integrate(varargin);
- Nargs=length(varargin);
- Fs=varargin(1);
- Vs=varargin(2);
- Itv=varargin(3);
- Es=1d-10;
- if Nargs>3
- Es=varargin(4);
- end;
- Er=1d-8;
- if Nargs>4
- Er=varargin(5);
- end;
- Out=0;
- Na=1;
- while Na<length(Itv)
- A=Itv(Na); B=Itv(Na+1);
- Out=Out+integrate(Fs,Vs,A,B,Es,Er);
- Na=Na+1;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.bin
deleted file mode 100644
index 3ff5a305..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.sci
deleted file mode 100755
index 59b4fdcc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvs.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 08.05.18 Koshikawa
-// 08.05.19 Changed
-// 08.06.03
-// 09.11.12
-// 09.11.14 debug
-
-function PL=Intersectcrvs(varargin)
- Nargs=length(varargin);
- Eps=10^(-4);
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & length(Tmp)==1
- Eps=Tmp;
- end
- G1=varargin(1);
- if Mixtype(G1)==1
- G1=list(G1);
- end;
- G2=varargin(2);
- if Mixtype(G2)==1
- G2=list(G2); //
- end;
- PL=list();
- for N=1:length(G1)
- for M=1:length(G2)
- KL=IntersectcrvsPp(G1(N),G2(M),Eps);
- for I=1:length(KL)
- Tmp=KL(I);;
- P=Tmp(1);
- PL($+1)=P;
- end;
- end;
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin
deleted file mode 100644
index 348451cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci
deleted file mode 100755
index a1218d06..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectcrvsPp.sci
+++ /dev/null
@@ -1,101 +0,0 @@
-// 08.05.18 Koshikawa
-// 08.05.19 Changed
-// 08.00.04
-// 09.11.07 for the same curve
-
-function KL=IntersectcrvsPp(varargin) // Modified
- Nargs=length(varargin);
- G1=varargin(1); G2=varargin(2);
- Eps=10.0^(-4);
- if Nargs>2
- Eps=varargin(3)
- end
- SqEps=10.0^(-10);
- Eps2=0.1;
- if Nargs>3
- Eps2=varargin(4)
- end
- Data1=G1;
- Data2=G2;
- if size(Data1,1)==size(Data2,1)
- Tmp1=Data2(size(Data2,1):-1:1,:); // 09.11.07
- Eps0=10^(-6);
- Tmp2=norm(Data1-Data2);
- Tmp3=norm(Data1-Tmp1);
- if Tmp2<Eps0|Tmp3<Eps0
- KL=list();
- return;
- end; //
- end;
- KL1=[];
- KL2=[];
- for I=1:size(Data1,1)-1
- A=Data1(I,:);
- B=Data1(I+1,:);
- for J=1:size(Data2,1)-1
- P=Data2(J,:); Q=Data2(J+1,:);
- Tmp=Koutenseg(A,B,P,Q,Eps,Eps2);
- if Tmp~=[%inf,-%inf]
- if Op(3,Tmp)==0
- Tmp1=MixS(Op(1,Tmp),Op(2,Tmp),I,J);
- KL1=Mixadd(KL1,Tmp1);
- else
- Tmp2=MixS(Op(1,Tmp),Op(2,Tmp),I,J);
- KL2=Mixadd(KL2,Tmp2);
- end
- end
- end
- end
- KL=[];
- if Mixlength(KL1)>0
- Tmp=Op(1,KL1);
- P=Op(1,Tmp);
- T=Op(2,Tmp);
- I=Op(3,Tmp);
- J=Op(4,Tmp);
- Tmp=MixS(P,I+T,J);
- KL=MixL(Tmp);
- end
- for N=2:Mixlength(KL1)
- Tmp=Op(N,KL1);
- P=Op(1,Tmp);
- Flg=0;
- for K=1:Mixlength(KL)
- Tmp=Op(K,KL);
- if Vecnagasa2(P-Op(1,Tmp))<SqEps
- Flg=1;
- break
- end
- end
- if Flg==0
- Tmp=Op(N,KL1);
- T=Op(2,Tmp);
- I=Op(3,Tmp);
- J=Op(4,Tmp);
- Tmp=MixS(P,I+T,J);
- KL=Mixadd(KL,Tmp);
- end
- end
- for N=1:Mixlength(KL2)
- Tmp=Op(N,KL2);
- P=Op(1,Tmp);
- Flg=0;
- for K=1:Mixlength(KL)
- Tmp=Op(K,KL);
- if Vecnagasa2(P-Op(1,Tmp))<SqEps
- Flg=1;
- break
- end
- end
- if Flg==0
- Tmp=Op(N,KL2);
- T=Op(2,Tmp);
- T=min(max(T,0),1);
- I=Op(3,Tmp);
- J=Op(4,Tmp);
- Tmp=MixS(P,I+T,J);
- KL=Mixadd(KL,Tmp);
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.bin
deleted file mode 100644
index 3d7069f0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.sci
deleted file mode 100755
index 2a2e5b6c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectcrvsf.sci
+++ /dev/null
@@ -1,47 +0,0 @@
-// 08.10.26
-// 10.02.16
-
-function Out=Intersectcrvsf(varargin)
- Nargs=length(varargin);
- Eps0=10^(-4);
- Crv=varargin(1);
- Fd=varargin(2);
- N=3;Uveq=1;
- if Nargs>=3
- Tmp=varargin(3);
- if type(Tmp)==10
- Uveq=Tmp;
- N=4;
- end;
- end;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Out=[];
- for I=1:Numptcrv(Crv)-1
- PtA=Ptcrv(I,Crv);
- PtB=Ptcrv(I+1,Crv);
- if norm(PtB-PtA)<Eps0
- continue;
- end;
- PL=Meetpoints(PtA,PtB,Fd,Uveq,Np,Eps(1));
- for J=1:Mixlength(PL)
- Pt=Mixop(J,PL);
- Tmp=norm(Pt-PtA)/norm(PtB-PtA);
- Tmp=min(max(Tmp,0),1);
- Out=Mixadd(Out,[Pt,I+Tmp]);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.bin
deleted file mode 100644
index bebf87c5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.sci
deleted file mode 100755
index ed92a5aa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Intersectlines.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 09.10.11
-// 09.10.12
-
-function Out=Intersectlines(L1,L2)
- Eps0=10^(-6);
- P=Ptstart(L1);
- a1=P(1); a2=P(2);
- V=Ptend(L1)-P;
- b1=V(1); b2=V(2);
- P=Ptstart(L2);
- c1=P(1); c2=P(2);
- V=Ptend(L2)-P;
- d1=V(1); d2=V(2);
- Den=b1*d2-d1*b2;
- if abs(Den)<Eps0
- Out=[];
- return;
- end;
- x=-(d1*b2*a1-c1*b1*d2-d1*a2*b1+d1*b1*c2)/Den;
- y=-(-a2*b1*d2+b2*a1*d2-b2*c1*d2+c2*d1*b2)/Den;
- Out=[x,y];
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.bin
deleted file mode 100644
index 5f0cad0f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.sci
deleted file mode 100755
index 4b246e95..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/IntersectselfPp.sci
+++ /dev/null
@@ -1,95 +0,0 @@
-// 09.05.27
-// 09.06.03
-// 09.06.05
-
-function KL=IntersectselfPp(varargin)
- Nargs=length(varargin);
- G1=varargin(1);
- Eps=10.0^(-4);
- if Nargs>1
- Eps=varargin(2)
- end
- Eps0=10.0^(-5);
- Eps2=0.01;
-// if Nargs>2
-// Eps2=varargin(3)
-// end;
- Data1=G1;
- KL1=[];
- KL2=[];
- for I=1:size(Data1,1)-2
- A=Data1(I,:);
- B=Data1(I+1,:);
- Is=I+2;
- Tmp=Data1(Is,:);
- while norm(Tmp-B)<Eps & Is<size(Data1,1);
- Is=Is+1;
- Tmp=Data1(Is,:);
- end;
- for J=Is:size(Data1,1)-1
- P=Data1(J,:); Q=Data1(J+1,:);
- Tmp=Koutenseg(A,B,P,Q,Eps,Eps2);
- if Tmp~=[%inf,-%inf]
- if Op(3,Tmp)==0
- Tmp1=MixS(Op(1,Tmp),Op(2,Tmp),I,J);
- KL1=Mixadd(KL1,Tmp1);
- else
- Tmp2=MixS(Op(1,Tmp),Op(2,Tmp),I,J);
- KL2=Mixadd(KL2,Tmp2);
- end
- end
- end
- end
- KL=[];
- if Mixlength(KL1)>0
- Tmp=Op(1,KL1);
- P=Op(1,Tmp);
- T=Op(2,Tmp);
- I=Op(3,Tmp);
- J=Op(4,Tmp);
- S=ParamonCurve(P,J,Data1);
- Tmp=MixS(P,I+T,J);
- Tmp2=MixS(P,S,I);
- KL=MixL(Tmp);
- KL=Mixadd(KL,Tmp2);
- end;
- for N=2:Mixlength(KL1)
- Tmp=Op(N,KL1);
- P=Op(1,Tmp);
- T=Op(2,Tmp);
- I=Op(3,Tmp);
- J=Op(4,Tmp);
- S=ParamonCurve(P,J,Data1);
- Tmp=MixS(P,I+T,J);
- Tmp1=MixS(P,S,I);
- KL=Mixadd(KL,Tmp);
- KL=Mixadd(KL,Tmp1);
- end
- for N=1:Mixlength(KL2)
- Tmp=Op(N,KL2);
- P=Op(1,Tmp);
- T=Op(2,Tmp);
- T=min(max(T,0),1);
- I=Op(3,Tmp);
- J=Op(4,Tmp);
- S=ParamonCurve(P,J,Data1);
- Flg=0;
- for K=1:Mixlength(KL)
- Tmp=Op(K,KL);
- if norm(P-Op(1,Tmp))<Eps
- Tmp1=Op(2,Tmp);
- if abs(I+T-Tmp1)<Eps
- Flg=1;
- break;
- end;
- end;
- end;
- if Flg==0
- Tmp=MixS(P,I+T,J);
- Tmp1=MixS(P,S,I);
- KL=Mixadd(KL,Tmp);
- KL=Mixadd(KL,Tmp1);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.bin
deleted file mode 100644
index e3bc6bf4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.sci
deleted file mode 100644
index bf6f976f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invdashline.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 10.11.13 ( Flattenlist used
-// 13.10.19 debugged
-
-function Invdashline(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Nall=Nargs; Sen=1 ; Gap=1;
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1 & Tmp>0 // 2013.10.19
- Tmp1=varargin(Nall-1);
- if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0 // 2013.10.19
- Sen=Tmp1; Gap=Tmp;
- Nall=Nall-2;
- else
- Sen=Tmp; Gap=Sen;
- Nall=Nall-1;
- end
- end
- Sen=1000/2.54/MilliIn*Sen;
- Gap=1000/2.54/MilliIn*Gap;
- for N=1:Nall
- Tmp=varargin(N);
- Fdata=Flattenlist(Tmp);
- for I=1:length(Fdata);
- Figdata=Fdata(I);
- Makehasen(Figdata,Sen,Gap,1);
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.bin
deleted file mode 100644
index 2e870385..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.sci
deleted file mode 100755
index 9f9f9d95..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invert.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 08.05.31
-
-function OutL=Invert(Pd)
- OutL=Pd(size(Pd,1):-1:1,:);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.bin
deleted file mode 100644
index c92f5024..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.sci
deleted file mode 100755
index 4d7863b1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invparapt.sci
+++ /dev/null
@@ -1,50 +0,0 @@
-// 08.07.11
-// 08.08.17
-// 09.10.31
-// 09.11.12
-
-function Out=Invparapt(varargin)
- Eps=10^(-4);
- Fk=varargin($);
- NFk=Numptcrv(Fk)
- Tmp=varargin(1);
- if type(Tmp)==1 & size(Tmp)==1
- Ph=Tmp;
- Fh=varargin(2);
- else
- Fh=Projpara(Fk);
- if NFk>2
- Tmp1=Nearestpt(Tmp,Fh);
- Ph=Tmp1(2);
- else
- Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh);
- V1=Tmp-Ah; V2=Bh-Ah;
- Tmp1=Crossprod(V1,V2);
- if abs(Tmp1)>Eps
- disp('Not on the line');
- Out=[];
- return;
- else
- Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12
- end;
- end;
- end;
- if NFk>2
- N=Trunc(Ph);
- S0=Ph-N;
- if Ph>Numptcrv(Fh)-Eps
- Out=list(Ptend(Fk),Numptcrv(Fh));
- return;
- end;
- else
- N=1;
- S0=Ph-1; // 09.11.12
- end;
- Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk);
- Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh);
- Ph=(1-S0)*Ah+S0*Bh;
- T2=S0;
- Pk=(1-T2)*Ak+T2*Bk;
- Out=list(Pk,N+T2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.bin
deleted file mode 100644
index 073bbdca..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.sci
deleted file mode 100755
index c2c35355..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Invperspt.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 08.08.12
-// 09.10.31
-// 09.11.12
-
-function Out=Invperspt(varargin)
- global FocusPoint EyePoint;
- Eps=10^(-4);
- Fk=varargin($);
- NFk=Numptcrv(Fk)
- Tmp=varargin(1);
- if type(Tmp)==1 & length(Tmp)==1
- Ph=varargin(1);
- Fh=varargin(2);
- else
- Fh=Projpers(Fk);
- if NFk>2
- Tmp1=Nearestpt(Tmp,Fh);
- Ph=Tmp1(2);
- else
- Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh);
- V1=Tmp-Ah; V2=Bh-Ah;
- Tmp1=Crossprod(V1,V2);
- if abs(Tmp1)>Eps
- disp('Not on the line');
- Out=[];
- return;
- else
- Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12
- end;
- end;
- end;
- if NFk>2
- N=Trunc(Ph);
- S0=Ph-N;
- if Ph>Numptcrv(Fh)-Eps
- Out=list(Ptend(Fk),Numptcrv(Fh));
- return;
- end;
- else
- N=1;
- S0=Ph-1; // 09.11.12
- end;
- Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk);
- Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh);
- Ph=(1-S0)*Ah+S0*Bh;
- Phc=Cancoordpers([Ph,0]);
- Ahc=Cancoordpers([Ah,0]);
- Bhc=Cancoordpers([Bh,0]);
- Vp=Phc-EyePoint;
- Va=Ak-EyePoint;
- AB=Bk-Ak;
- Cp=Crossprod(Vp,AB);
- Nmr=Crossprod(Va,Vp);
- Mx=max(abs(Cp));
- if abs(Cp(1))==Mx
- T2=Nmr(1)/Cp(1);
- elseif abs(Cp(2))==Mx
- T2=Nmr(2)/Cp(2);
- else
- T2=Nmr(3)/Cp(3);
- end;
- Pk=(1-T2)*Ak+T2*Bk;
- Out=list(Pk,N+T2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.bin
deleted file mode 100644
index b44d17eb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.sci
deleted file mode 100755
index 04aaf4eb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joincrvs.sci
+++ /dev/null
@@ -1,51 +0,0 @@
-// 08.05.31
-// 08.08.22
-// 08.09.14
-// 08.09.20
-// 08.10.27
-// 11.06.25
-
-function PtL=Joincrvs(varargin)
- Nall=length(varargin);
- Eps=10^(-4);
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1
- Eps=Tmp;
- Nall=Nall-1;
- end;
- QdL=list();
- for I=1:Nall
- QdL($+1)=varargin(I); // 11.06.25
- end;
- QdL=Flattenlist(QdL); // 11.06.25
- if length(QdL)==0
- PtL=[];
- return;
- end;
- PtL=[Mixop(1,QdL)];
- for I=2:Mixlength(QdL)
- Qd=QdL(I);
- if Numptcrv(Qd)<=1 // 11.06.25
- continue;
- end;
- P=Ptend(PtL)
- S=Ptstart(PtL);
- Q=Ptstart(Qd);
- R=Ptend(Qd);
- MN=min(norm(P-Q),norm(P-R),norm(S-Q),norm(S-R));
- if MN==norm(P-R)
- Qd=Invert(Qd);
- elseif MN==norm(S-Q)
- PtL=Invert(PtL);
- elseif MN==norm(S-R);
- PtL=Invert(PtL);
- Qd=Invert(Qd);
- end;
- if MN>Eps
- PtL=[PtL;Qd];
- else
- PtL=[PtL;Qd(2:size(Qd,1),:)];
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.bin
deleted file mode 100644
index c7b88175..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci
deleted file mode 100755
index 78cd46e5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Joingraphics.sci
+++ /dev/null
@@ -1,26 +0,0 @@
-// 11.11.02 (for list structure)
-
-function P=Joingraphics(varargin)
- Ls=Flattenlist(varargin);
- N=length(Ls);
- Tp=Ls(N);
- Listflg=0;
- if type(Tp)==10
- Tmp=part(Tp,1);
- if Tmp=="L"|Tmp=="l"
- Listflg=1
- end;
- N=N-1;
- Ls=Mixsub(1:N,Ls);
- end;
- if Listflg==1
- P=Ls
- else
- P=[];
- for I=1:N
- Tmp=Ls(I);
- P=[P;%inf,%inf;Tmp];
- end;
- P=P(2:size(P,1),:)
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.bin
deleted file mode 100644
index 140d9028..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.sci
deleted file mode 100755
index bbe02e62..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ketinit.sci
+++ /dev/null
@@ -1,57 +0,0 @@
-// 08.07.08 PHI,THETA,FocusPoint,EyePoint;
-// 08.08.08
-// 08.08.31
-// 08.09.18
-// 09.10.09 ASSIGNLIST
-// 09.12.25 SCALING
-// 10.04.16 TEXFOR
-// 13.05.19 funcprot(0)
-// 13.03.05 MARKLEN instead of MEMORI
-
-function Ketinit()
- global THISVERSION
- global TenSize TenSizeInit Wfile XMIN XMAX YMIN YMAX
- global XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE
- global ULEN MilliIn PenThick PenThickInit ZIKU
- global MEMORI MEMORIInit MEMORINow GENTEN
- global MARKLEN MARKLENInit MARKLENNow
- global YaSize YaAngle YaPosition YaThick YaStyle
- global PHI THETA FocusPoint EyePoint ASSIGNLIST
- global SCALEX SCALEY LOGX LOGY TEXFORLEVEL TEXFORLAST
- funcprot(0); // 2013.05.19
- Setversion();
- XMIN=-5 ;XMAX=5;
- YMIN=-5 ; YMAX=5;
- ZIKU='line'; ARROWSIZE=1;
- XNAME='$x$' ; XPOS='e';
- YNAME='$y$' ; YPOS='n';
- ONAME='O' ; OPOS='sw';
- ULEN='1cm';
- MilliIn=1/2.54*1000;
- PenThick=round(MilliIn*0.02);
- PenThickInit=PenThick;
- TenSizeInit=0.02;
- TenSize=TenSizeInit;
- Wfile='default';
- MEMORI=0.05;
- MEMORIInit=MEMORI;
- MEMORINow=MEMORI;
- MARKLEN=0.05;
- MARKLENInit=MARKLEN;
- MARKLENNow=MARKLEN;
- GENTEN=[0,0];
- YaSize=1; YaAngle=18; YaPosition=1;
- YaThick=1; YaStyle='tf';
- PHI=30*%pi/180;
- THETA=60*%pi/180;
- FocusPoint=[0,0,0];
- EyePoint=[5,5,5];
- ASSIGNLIST=list('`',char(39));
- SCALEX=1;
- SCALEY=1;
- LOGX=0;
- LOGY=0;
- TEXFORLEVEL=0;
- TEXFORLAST=list();
- endfunction;
- \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.bin
deleted file mode 100644
index f5871542..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.sci
deleted file mode 100755
index c12b721e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kouten.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// 08.05.18
-// 08.05.19
-// 09.06.01 (same as 05.19)
-
-function Out=Kouten(PA,V,P,Q);
- Eps=10.0^(-6);
- A1=PA(1); A2=PA(2);
- V1=V(1); V2=V(2);
- P1=P(1); P2=P(2);
- U1=Q(1)-P1; U2=Q(2)-P2;
- Tmp=norm(P-Q)*norm(V);
- if Tmp==0
- Out=[%inf,-%inf];
- return
- end
- D=U1*V2-U2*V1;
- if abs(D)/Tmp<Eps
- Out=[%inf,-%inf];
- return
- end
- S=((-A2+P2)*V1+(A1-P1)*V2)/D;
- if S>1+Eps | S<-Eps
- Out=[%inf,-%inf];
- return
- end
- T=((-A2+P2)*U1+(A1-P1)*U2)/D;
- Tmp=PA+T*V;
- Out=MixS(T,Tmp,sign(D));
-endfunction
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.bin
deleted file mode 100644
index f5b67546..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.sci
deleted file mode 100755
index 82cf1e2c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/KoutenList.sci
+++ /dev/null
@@ -1,51 +0,0 @@
-// 08.05.18
-// 08.05.20
-// 08.06.02
-
-function TenL=KoutenList(PA,V,Bdy)
- Eps=10.0^(-6);
- TenL=[];
- for N=1:Mixlength(Bdy)
- KL=Op(N,Bdy);
- for K=1:size(KL,1)-1
- P=KL(K,:); Q=KL(K+1,:);
- if P~='/' & Q~='/'
- Tmp=Kouten(PA,V,P,Q);
- if Tmp~=[%inf,-%inf]
- Ten=Mixadd(Tmp,N);
- Flg=0;
- NN=Mixlength(TenL);
- I=1;
- while Flg==0 & I<=NN
- Tmp=Op(I,TenL);
- if Op(1,Ten)<Op(1,Tmp)-Eps
- Tmp=Mixsub(1:I-1,TenL);
- Tmp1=Mixadd(Tmp,Ten);
- Tmp2=Mixsub(I:Mixlength(TenL),TenL);
- TenL=Mixjoin(Tmp1,Tmp2);
- Flg=1;
- elseif Op(1,Ten)<Op(1,Tmp)+Eps
- if Op(4,Ten)~=Op(4,Tmp)
- Tmp=Mixsub(1:I-1,TenL);
- Tmp1=Mixadd(Tmp,Ten);
- Tmp2=Mixsub(I:Mixlength(TenL),TenL);
- TenL=Mixjoin(Tmp1,Tmp2);
- Flg=1;
- elseif Op(3,Ten)~=Op(3,Tmp)
- Tmp1=Mixsub(1:I-1,TenL);
- Tmp2=Mixsub(I+1:Mixlength(TenL),TenL);
- TenL=Mixjoin(Tmp1,Tmp2);
- end
- Flg=1;
- end
- I=I+1;
- end
- if Flg==0
- TenL=Mixadd(TenL,Ten);
- end
- end
- end
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.bin
deleted file mode 100644
index be93baf3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.sci
deleted file mode 100755
index 371807fa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Koutenseg.sci
+++ /dev/null
@@ -1,105 +0,0 @@
-//
-// 08.05.19
-// 09.12.05
-
-function Out=Koutenseg(varargin)
- //pointdata on AB at which AB intersects CD
- Nargs=length(varargin);
- Eps0=10^(-4);
- A=varargin(1); V=varargin(2)-A;
- Sv2=V(1)^2+V(2)^2;
- if Sv2<10^(-6)
- Out=[%inf,-%inf];
- return
- end
- P=varargin(3)-A; Q=varargin(4)-A;
- Eps=10.0^(-3);
- if Nargs>=5
- Eps=varargin(5);
- end
- Eps2=0.2;
- if Nargs>=6
- Eps2=varargin(6);
- end
- Eps=min(Eps2,Eps/sqrt(Sv2));
- P1=(P(1)*V(1)+P(2)*V(2))/Sv2;
- P2=(-P(1)*V(2)+P(2)*V(1))/Sv2;
- Q1=(Q(1)*V(1)+Q(2)*V(2))/Sv2;
- Q2=(-Q(1)*V(2)+Q(2)*V(1))/Sv2;
- m1=-Eps; M1=1+Eps;
- m2=-Eps; M2=Eps;
- if (max(P1,Q1)<m1) | (min(P1,Q1)>M1)
- Out=[%inf,-%inf];
- return
- end
- if (max(P2,Q2)<m2) | (min(P2,Q2)>M2)
- Out=[%inf,-%inf];
- return
- end
- if P2*Q2<0
- T=P1-(Q1-P1)/(Q2-P2)*P2;
- if (T>m1) & (T<M1)
- if (T>-Eps0) & (T<1+Eps0)
- Tmp1=A+T*V;
- Tmp2=min(max(T,0),1);
- Out=MixS(Tmp1,Tmp2,0);
- else
- Tmp1=A+T*V;
- Tmp2=min(max(T,0),1);
- Out=MixS(Tmp1,Tmp2,1);
- end
- return
- end
- if P1<m1 | P1>M1 | P2<m2 | P2>M2
- if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2
- Out=[%inf,-%inf];
- return
- end
- T=min(max(Q1,0),1);
- Tmp=A+T*V;
- Out=MixS(Tmp,T,1);
- return
- end
- T=min(max(P1,0),1);
- Tmp=A+T*V;
- Out=MixS(Tmp,T,1);
- return
- end
- if P1 > -Eps0 & P1 < 1 + Eps0 & P2 > -Eps0 & P2 < Eps0
- T= P1;
- Tmp=A+T*V;
- Out= MixS(Tmp, T, 0);
- return
- end
- if Q1 > -Eps0 & Q1 < 1 + Eps0 & Q2 > -Eps0 & Q2 < Eps0
- T= Q1;
- Tmp=A+T*V;
- Out=MixS(Tmp,T,0);
- return
- end
- if P1<m1 | P1>M1 | P2<m2 | P2>M2
- if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2
- Out=[%inf,-%inf];
- return
- end
- T=min(max(Q1,0),1);
- Tmp=A+T*V;
- Out=MixS(Tmp,T,1);
- return
- end
- if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2
- T=min(max(P1,0),1);
- Tmp=A+T*V;
- Out=MixS(Tmp,T,1);
- return
- end
- if abs(P2)<abs(Q2)
- T=min(max(P1,0),1);
- else
- T=min(max(Q1,0),1);
- end
- Tmp=A+T*V;
- Out=MixS(Tmp,T,1);
-endfunction
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.bin
deleted file mode 100644
index 7535fd2e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.sci
deleted file mode 100755
index 0e38dae7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukannozoku.sci
+++ /dev/null
@@ -1,45 +0,0 @@
-// 08.07.13
-// 08.10.16
-
-function Res=Kukannozoku(Jokyo,KukanL)
- Eps=10^(-6);
- N=size(KukanL,1);
- T1=Jokyo(1); T2=Jokyo(2);
- Tmp=KukanL(1,:);
- T1=max(T1,Tmp(1));
- Tmp=KukanL(N,:);
- T2=min(T2,Tmp(2));
- Res=[];
- Flg=0;
- for I=1:N
- Ku=KukanL(I,:);
- if Flg==0
- if Ku(2)<T1
- Res=[Res;Ku];
- else
- Flg=1;
- if Ku(1)<T1-Eps
- Tmp=[Ku(1),T1];
- Res=[Res;Tmp];
- end;
- if Ku(2)>T2+Eps
- Tmp=[T2,Ku(2)];
- Res=[Res;Tmp];
- end;
- end;
- elseif Flg==1
- if Ku(2)<T2
- continue;
- else
- Flg=2;
- if Ku(1)<T2-Eps
- Ku=[T2,Ku(2)];
- end;
- Res=[Res;Ku];
- end;
- else
- Res=[Res;Ku];
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.bin
deleted file mode 100644
index 656dd42d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.sci
deleted file mode 100755
index 4e38175f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kukeiwake.sci
+++ /dev/null
@@ -1,62 +0,0 @@
-// 08.05.30
-
-function Out=Kukeiwake(PL)
- global XMIN XMAX YMIN YMAX;
- Eps=10.0^(-6);
- NW=[XMIN,YMAX]; SW=[XMIN,YMIN];
- SE=[XMAX,YMIN]; NE=[XMAX,YMAX];
- Sikaku=[NW;SW;SE;NE;NW];
- Kt=IntersectcrvsPp(PL,Sikaku);
- if Mixlength(Kt)~=2
- disp('not two points')
- return
- end
- Tmp=Op(1,Kt);
- Pt1=Op(1,Tmp);
- N1=Trunc(Op(2,Tmp));
- M1=Op(3,Tmp);
- Tmp=Op(2,Kt);
- Pt2=Op(1,Tmp);
- N2=Trunc(Op(2,Tmp));
- M2=Op(3,Tmp);
- T1=ParamonCurve(Pt1,M1,Sikaku);
- T2=ParamonCurve(Pt2,M2,Sikaku);
- QL=[];
- if Vecnagasa(Pt1,PL(N1+1,:))>Eps
- QL=[Pt1];
- end
- QL=[QL;PL(N1+1:N2,:)];
- if Vecnagasa(Pt2,PL(N2,:))>Eps
- QL=[QL;Pt2];
- end
- HidariL=QL;
- Ms=M2+1; Me=M1;
- if T1<T2+Eps Me=M1+4; end
- for M=Ms:Me
- Tmp=HidariL(size(HidariL,1),:);
- P=Sikaku(modulo(M-1,4)+1,:);
- if Vecnagasa(Tmp,P)>Eps
- HidariL=[HidariL;P];
- end
- end
- Tmp=HidariL(size(HidariL,1),:);
- if Vecnagasa(Tmp,Pt1)>Eps
- HidariL=[HidariL;Pt1];
- end
- MigiL=QL;
- Ms=M2; Me=M1+1;
- if T1>T2-Eps Me=Me-4; end;
- for M=Ms:-1:Me
- Tmp=MigiL(size(MigiL,1),:);
- P=Sikaku(modulo(M-1,4)+1,:);
- if Vecnagasa(Tmp,P)>Eps
- MigiL=[MigiL;P]
- end
- end
- Tmp=MigiL(size(MigiL,1),:);
- if Vecnagasa(Tmp,Pt1)>Eps
- MigiL=[MigiL;Pt1];
- end
- Out=MixS(HidariL,MigiL);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.bin
deleted file mode 100644
index a45aa2e3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci
deleted file mode 100755
index a07a89d1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyorihensuu.sci
+++ /dev/null
@@ -1,30 +0,0 @@
-function Kyorihensuu(varargin)
- if length(varargin)==0
- FL='default';
- else
- FL=varargin(1);
- if FL==''
- FL='tmp.tex'
- end
- end
- StrM=[...
- '\newlength{\Width}%',...
- '\newlength{\Height}%',...
- '\newlength{\Depth}%'...
- ];
- if FL~='default'
- Fid=mopen(FL,'w');
- mprintf('%s\n\n','Writing to '+FL);
- end;
- for I=1:size(StrM,2)
- Str=StrM(I);
- mprintf('%s\n',Str);
- if FL~='default'
- mfprintf(Fid,'%s\n',Str);
- end
- end
- if FL~='default'
- mclose(Fid)
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.bin
deleted file mode 100644
index 07c938a3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.sci
deleted file mode 100755
index 4090c2da..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Kyoukai.sci
+++ /dev/null
@@ -1,144 +0,0 @@
-// 08.05.18
-// 08.05.19
-// 08.05.20
-// 08.05.30
-// 08.09.19
-// 08.10.26
-// 09.01.15 "e"
-// 09.05.18
-// 09.12.05
-// 16.11.03 Eps=10^(-5)
-// 16.12.05 Eps=10^(-7)
-
-function PLall=Kyoukai(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- Eps0=10^(-7);
- DataL=[];
- for I=1:Nargs
- Tmp=varargin(I);
- if Mixtype(Tmp)==1
- Tmp1=MixS(Tmp);
- DataL=Mixadd(DataL,Tmp1);
- end
- if Mixtype(Tmp)==2
- DataL=Mixadd(DataL,Tmp);
- end
- if Mixtype(Tmp)==3
- DataL=Mixjoin(DataL,Tmp);
- end
- end;
- Eps=10.0^(-4);
- PLall=[];
- Sflg=0;
- N=Mixlength(DataL);
- for I=1:N
- Data=Op(I,DataL);
- Tmp=Op(Mixlength(Data),Data);
- if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1
- Rg=Tmp ; Nd=Mixlength(Data)-1;
- elseif type(Tmp)==10
- Rg=Tmp ; Nd=Mixlength(Data)-1;
- else
- Rg='c' ; Nd=Mixlength(Data);
- end;
- for J=1:Nd
- Tmp=Op(J,Data);
- if type(Tmp)==10
- Rg=Tmp;
- continue
- end
- Points=Tmp;
- P1=Ptstart(Points);
- P2=Ptend(Points);
- if J==1
- PL=Points;
- Pfirst=P1;
- Plast=P2;
- if Nd>=2
- Tmp=Op(2,Data);
- P=Ptstart(Tmp);
- Q=Ptend(Tmp);
- if norm(P2-P)>Eps & norm(P2-Q)>Eps
- Tmp=size(PL,1);
- PL=PL(Tmp:-1:1,:);
- Pfirst=Ptstart(PL);
- Plast=Ptend(PL);
- end;
- end
- else
- if norm(P1-Plast)<Eps
- Stp=1; Ks=2; Ke=size(Points,1);
- elseif norm(P2-Plast)<Eps
- Stp=-1; Ks=size(Points,1)-1; Ke=1;
- else
- PL=[PL;%inf,%inf;Points];
- Sflg=1;
- Pfirst=P1;
- Plast=P2;
- Stp=1; Ks=size(Points,1)-1; Ke=1;
- end
- for K=Ks:Stp:Ke
- PL=[PL;Points(K,:)];
- end
- Plast=Points(Ke,:);
- end
- end
- if norm(Pfirst-Plast)>Eps
- Np=size(PL,1);
- if Rg=='c'
- PL=[PL;Pfirst];
- elseif Rg=='s'
- Tmp=[PL(1:Np,2);YMIN];
- Y=min(Tmp)-1;
- P=[Plast(1),Y]; Q=[Pfirst(1),Y];
- PL=[PL;P;Q;Pfirst];
- elseif Rg=='n'
- Tmp=[PL(1:Np,2);YMAX];
- Y=max(Tmp)+1;
- P=[Plast(1),Y]; Q=[Pfirst(1),Y];
- PL=[PL;P;Q;Pfirst];
- elseif Rg=='w'
- Tmp=[PL(1:Np,1);XMIN];
- X=min(Tmp)-1;
- P=[X,Plast(2)]; Q=[X,Pfirst(2)];
- PL=[PL;P;Q;Pfirst];
- elseif Rg=='e'
- Tmp=[PL(1:Np,1);XMAX];
- X=max(Tmp)+1;
- P=[X,Plast(2)]; Q=[X,Pfirst(2)];
- PL=[PL;P;Q;Pfirst];
- elseif type(Rg)==1 & size(Rg,1)==1 & size(Rg,2)>1
- Tmp=Kukeiwake(PL); //Modified from here
- Tmp1=Op(1,Tmp);
- Tmp2=Naigai(Rg,Mix(Tmp1));
- if Tmp2==[1]
- PL=Op(1,Tmp);
- else
- PL=Op(2,Tmp); // to here
- end
- end
- end
- Tmp=[Ptstart(PL)];
- for J=2:size(PL,1)
- P=PL(J,:);
- Q=Tmp(size(Tmp,1),:);
- if norm(P-Q)>Eps then
- Tmp=[Tmp;P];
- end
- end
- PL=Tmp;
- PLall=Mixadd(PLall,PL);
- end
- if Mixlength(PLall)==1 & Sflg==0
- Tmp=Op(1,PLall);
-// Tmp=Op(1,Tmp);
- if norm(Ptstart(Tmp)-Ptend(Tmp))>Eps0
- Tmp=[Tmp;Ptstart(Tmp)];
- PLall=MixS(Tmp);
- end
- end;
-endfunction;
-
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.bin
deleted file mode 100644
index 41551ef5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.sci
deleted file mode 100755
index 7a7a4b78..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letter.sci
+++ /dev/null
@@ -1,100 +0,0 @@
-//
-// 09.12.25
-
-function Letter(varargin)
- global Wfile FID MEMORI;
- Nargs=length(varargin);
- for I=1:3:Nargs
- Tmp=varargin(I);
- P=Doscaling(Tmp);
- X=P(1);
- Y=P(2);
- Houkou=varargin(I+1);
- Mojiretu=varargin(I+2);
- Hset=Houkou;
- Vhoko='c';
- if mtlb_findstr(Hset,'n')~=[]
- Vhoko='n'; Y=Y+MEMORI;
- end
- if mtlb_findstr(Hset,'s')~=[]
- Vhoko='s'; Y=Y-MEMORI;
- end
- Hhoko='c';
- if mtlb_findstr(Hset,'e')~=[]
- Hhoko='e'; X=X+MEMORI;
- end
- if mtlb_findstr(Hset,'w')~=[]
- Hhoko='w'; X=X-MEMORI;
- end
- Hoko=Vhoko+Hhoko;
- Suu='+-.0123456789';
- SuuL=Suu;
- Hcode=ascii(Houkou);
- J=1; Dstr='';
- while J<=length(Houkou)
- Tmp=char(Hcode(J));
- if mtlb_findstr(SuuL,Tmp)~=[]
- if Dstr==''
- Hk=char(Hcode(J-1));
- end
- Dstr=Dstr+Tmp;
- else
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- Dstr='';
- end
- end
- J=J+1;
- end
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- end
- CalcWidth(Hoko,Mojiretu);
- CalcHeight(Hoko,Mojiretu);
- Tmp='){\hspace*{\Width}';
- Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}';
- if Wfile=='default'
- mprintf('%s','\put(');
- mprintf('%6.4f%s%6.4f',X,',',Y);
- mprintf('%s%s\n',Str,'%');
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s','\put(');
- mfprintf(FID,'%6.4f%s%6.4f',X,',',Y);
- mfprintf(FID,'%s%s\n',Str,'%');
- mfprintf(FID,'%s\n','%');
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.bin
deleted file mode 100644
index 53dcb238..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.sci
deleted file mode 100755
index f99917cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Letterrot.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 08.05.31
-// 08.08.24
-// 09.12.25
-
-function Letterrot(varargin)
- global MEMORI;
- P=varargin(1);
- V=varargin(2); N=3;
- P=Doscaling(P);
- V=Doscaling(V);
- Tmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1
- Tmov=Tmp; N=N+1;
- end
- Nmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1 then
- Nmov=Tmp; N=N+1;
- end
- Mojiretu=varargin(N);
- Tv=1/Vecnagasa(V)*V;
- Nv=[-Tv(2),Tv(1)];
- P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv;
- Tmp=acos(V(1)/Vecnagasa(V));
- Theta=round(Tmp*180/%pi);
- if V(2)>=0
- Units='';
- else
- Units='units=-360,';
- end
- Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta);
- Tmp=Tmp+'}{'+Mojiretu+'}';
- Letter(P,"c",Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.bin
deleted file mode 100644
index 3acfa7aa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci
deleted file mode 100755
index bc44c2e9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Lineplot.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-// 09.10.09
-// 09.10.12
-// 09.11.01
-// 09.11.12
-// 09.12.06
-// 10.12.04
-
-function Out=Lineplot(varargin)
- Nargs=length(varargin);
- A=varargin(1);
- if type(A)==1 // 09.11.12 from
- Tmp=length(A);
- if Tmp>3
- B=A(Tmp/2+1:Tmp);
- A=A(1:Tmp/2);
- Is=2;
- else
- B=varargin(2);
- Is=3;
- end;
- else
- B=A(2);
- A=A(1);
- Is=2;
- end; // upto
- Mag=100; Semi='';
- for I=Is:Nargs
- Tmp=varargin(I);
- select type(Tmp)
- case 1
- Mag=Tmp;
- case 10
- Semi=Tmp;
- end;
- end;
- V= Mag/norm(B-A)*(B-A) // 10.12.04 from here
- if Semi==""
- Out=Listplot(A-V,A+V)
- elseif Semi=="+"
- Out=Listplot(A,A+V)
- else
- Out=Listplot(A-V,A)
- end // 10.12.04 to here
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.bin
deleted file mode 100644
index e2ea3688..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.sci
deleted file mode 100755
index 0bc9f736..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Listplot.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-//
-// 08.07.13
-// 09.06.13
-
-function Z=Listplot(varargin)
- Z=[];
- for I=1:length(varargin)
- Data=varargin(I);
- if Mixtype(Data)==1
- if size(Data,1)==1
- Tmp=matrix(Data,2,size(Data,2)/2);
- Z=[Z;Tmp'];
- else
- Z=[Z;Data];
- end;
- else
- for J=1:Mixlength(Data)
- Tmp=Mixop(J,Data);
- Z=[Z;Tmp];
- end
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.bin
deleted file mode 100644
index 10970e3d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.sci
deleted file mode 100755
index 27e70d48..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeBowdata.sci
+++ /dev/null
@@ -1,49 +0,0 @@
-//
-// 08.08.24
-// 10.01.02
-
-function Out=MakeBowdata(PA,PB,H)
- global BOWSTART BOWEND
- BOWSTART=PA;
- BOWEND=PB;
- Eps=10^(-5);
- D=1/2*Vecnagasa(PB-PA);
- R=(H^2+D^2)/(2*H);
- A1=PA(1); A2=PA(2);
- B1=PB(1); B2=PB(2);
- if abs(A2-B2)>Eps
- x=poly(0,'X');
- y=-(A1-B1)*x/(A2-B2)+(1/2)*(A1^2+A2^2-B1^2-B2^2)/(A2-B2);
- Eq1=(A1-x)^2+(A2-y)^2-R^2;
- Tmp=coeff(Eq1);
- C0=Tmp(1); C1=Tmp(2); C2=Tmp(3);
- Det=sqrt(C1^2-4*C0*C2);
- Ansx1=(-C1+Det)/(2*C2);
- Ansx2=(-C1-Det)/(2*C2);
- Tmp=horner(y,Ansx1);
- PC=[Ansx1,Tmp];
- Tmp=horner(y,Ansx2);
- PC2=[Ansx2,Tmp];
- else
- Tmp=0.5*(PA+PB);
- PC=Tmp+[0,R-H];
- PC2=Tmp-[0,R-H];
- end;
- VA=PA-PC;
- VB=PB-PC;
- if VA(1)*VB(2)-VA(2)*VB(1)<0
- PC=PC2;
- end
- AngA=acos((PA(1)-PC(1))/R);
- if PA(2)-PC(2)<0
- AngA=-AngA;
- end
- AngB=acos((PB(1)-PC(1))/R);
- if PB(2)-PC(2)<0
- AngB=-AngB;
- end
- if AngA>AngB
- AngB=AngB+2*%pi;
- end
- Out=Mixmake(PC,R,AngA,AngB);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.bin
deleted file mode 100644
index 1e4a9df1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.sci
deleted file mode 100755
index f3bbd3ec..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeCurves.sci
+++ /dev/null
@@ -1,62 +0,0 @@
-//
-// 09.12.25
-// 10.01.01
-// 10.12.02 ( debugged for norm()==0 )
-
-function Outdata=MakeCurves(varargin)
- Figdata=varargin(1);
- Ptout=1;
- if length(varargin)>=2
- Ptout=varargin(2);
- end
- Eps=10.0^(-6);
- IndM=Dataindex(Figdata);
- Atos=[];
- for Nd=1:size(IndM,1)
- Tmp=IndM(Nd,:);
- Motos=Figdata(Tmp(1):Tmp(2),:);
- All=size(Motos,1);
- if size(Motos,1)==1
- if InWindow(Motos)=='o'
- continue;
- end;
- if Ptout==1
- Drwpt(Motos(1,:));
- else
- Atos=[Atos;%inf,%inf;Doscaling(Motos)];
- end
- continue
- end
- Crv=[];
- for I=2:All
- P=Motos(I-1,:);
- Q=Motos(I,:);
- Snbn=MeetWindow(P,Q);
- if Snbn==[]
- if Crv~=[]
- Atos=[Atos;%inf,%inf;Doscaling(Crv)];
- Crv=[];
- end
- else
- if norm(Snbn(1,:)-Snbn(2,:))<Eps // 10.12.02
- continue;
- end;
- if Crv==[]
- Crv=Snbn
- else
- Tmp=Crv(size(Crv,1),:);
- if norm(Tmp-Snbn(1,:))<Eps
- Crv=[Crv;Snbn(2,:)];
- else
- Atos=[Atos;%inf,%inf;Doscaling(Crv)];
- Crv=Snbn;
- end
- end
- end
- end
- if size(Crv,1)>=2
- Atos=[Atos;%inf,%inf;Doscaling(Crv)];
- end
- end
- Outdata=Atos(2:size(Atos,1),:);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.bin
deleted file mode 100644
index 8d2516c2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci
deleted file mode 100755
index 81b0492f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakecutbycrvL.sci
+++ /dev/null
@@ -1,45 +0,0 @@
-// 08.09.19
-// 08.10.15
-// 08.12.21
-
-function AnsL=MakecutbycrvL(Out1,CutuvL,Uveqstr,Uname,Vname,Eps)
- if CutuvL==[]
- if Mixtype(Out1)==1
- AnsL=Mix(Out1);
- else
- AnsL=Out1;
- end;
- return;
- end;
- AnsL=[];
- ParL=Partitionseg(Out1,CutuvL,Eps);
- Flg=0;
- for J=1:length(ParL)-1
- Tmp=(ParL(J)+ParL(J+1))*0.5;
- Tmp=PointonCurve(Tmp,Out1);
- Tmp1='('+string(Tmp(1))+')';
- Tmp2='('+string(Tmp(2))+')';
- Tmp=strsubst(Uveqstr,Uname,Tmp1);
- Tmp=strsubst(Tmp,Vname,Tmp2);
- Tmp=evstr(Tmp);
- if Tmp>0
- if Flg==0
- P1=ParL(J);
- end;
- Flg=1
- else
- if Flg==1
- P2=ParL(J);
- Tmp=Partcrv(P1,P2,Out1);
- AnsL=Mixadd(AnsL,Tmp);
- end;
- Flg=0
- end;
- end;
- if Flg==1
- P2=ParL(length(ParL));
- Tmp=Partcrv(P1,P2,Out1);
- AnsL=Mixadd(AnsL,Tmp);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.bin
deleted file mode 100644
index b2f34062..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.sci
deleted file mode 100755
index 3f768e87..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makehasen.sci
+++ /dev/null
@@ -1,123 +0,0 @@
-//
-// 11.05.26 (for pdflatex)
-
-function Makehasen(Figdata,Sen,Gap,Ptn)
- global Wfile FID;
- Eps=10.0^(-6);
- Clist=MakeCurves(Figdata);
- DinM=Dataindex(Clist);
- for N=1:size(DinM,1)
- Tmp=DinM(N,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Dtall=size(Data,1);
- Len=0;
- Lenlist=[0];
- for I=2:Dtall
- Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:));
- Lenlist=[Lenlist,Len];
- end
- Lenall=Lenlist(Dtall);
- if Lenall==0
- continue
- end
- Kari=(Sen+Gap)*0.1;
- Naga=Sen*0.1;
- Tobi=Gap*0.1;
- if Vecnagasa(Data(1,:)-Data(Dtall,:))<Eps
- Nsen=max(ceil(Lenall/Kari),3);
- SegUnit=Lenall/Nsen;
- Naga=SegUnit*Sen/(Sen+Gap);
- Tobi=SegUnit*Gap/(Sen+Gap);
- SegList=[0:SegUnit:(Nsen-1)*SegUnit];
- else
- if Ptn==0
- Nsen=max(ceil((Lenall+Tobi)/Kari),3);
- SegUnit=Lenall*(Sen+Gap)/(Nsen*Sen+(Nsen-1)*Gap);
- Naga=SegUnit*Sen/(Sen+Gap);
- Tobi=SegUnit*Gap/(Sen+Gap);
- SegList=[0:SegUnit:(Nsen-1)*SegUnit];
- else
- Nsen=max(ceil((Lenall+Naga)/Kari),3);
- SegUnit=Lenall*(Sen+Gap)/((Nsen-1)*Sen+Nsen*Gap);
- Naga=SegUnit*Sen/(Sen+Gap);
- Tobi=SegUnit*Gap/(Sen+Gap);
- SegList=[Tobi:SegUnit:Tobi+(Nsen-2)*SegUnit];
- end
- end
- Hajime=1; Owari=1;
- Mojisu=0;
- for I=1:length(SegList)
- Len=SegList(I);
- J=Owari;
- while Len>=Lenlist(J)-Eps
- if J==Dtall
- break
- end
- J=J+1;
- end
- Hajime=J-1;
- J=Hajime;
- while Len+Naga>Lenlist(J)-Eps
- if J==Dtall
- break
- end
- J=J+1
- end
- Owari=J-1;
- T=(Len-Lenlist(Hajime))...
- /(Lenlist(Hajime+1)-Lenlist(Hajime));
- P=Data(Hajime,:)+T*(Data(Hajime+1,:)-Data(Hajime,:));
- X0=sprintf('%5.5f',P(1));
- Y0=sprintf('%5.5f',P(2));
- Pt0='('+X0+','+Y0+')';
- Str='\polyline'+Pt0;
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end;
- Mojisu=Mojisu+length(Str);
- for J=Hajime+1:Owari
- P=Data(J,:);
- X=sprintf('%5.5f',P(1));
- Y=sprintf('%5.5f',P(2));
- Pt='('+X+','+Y+')';
- Str=Pt;
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end;
- Pt0=Pt;
- Mojisu=Mojisu+length(Str);
- end;
- T=(Len+Naga-Lenlist(Owari))...
- /(Lenlist(Owari+1)-Lenlist(Owari));
- P=Data(Owari,:)+T*(Data(Owari+1,:)-Data(Owari,:));
- X=sprintf('%5.5f',P(1));
- Y=sprintf('%5.5f',P(2));
- Pt='('+string(X)+','+string(Y)+')';
- Str=Pt;
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end;
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end;
- Mojisu=0;
- end
- end
- end
- if Wfile=='default'
- mprintf('%s\n%s\n','%','%');
- else
- mfprintf(FID,'%s\n%s\n','%','%');
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.bin
deleted file mode 100644
index 1c9d8f4d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.sci
deleted file mode 100755
index e9915e1b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.10.21
-
-function Out=Makeliststr(L)
- Out='list(';
- for I=1:length(L)
- Dt=L(I);
- if type(Dt)==1
- if length(Dt)==1
- Dts=string(Dt);
- else
- Dts='[';
- for J=1:size(Dt,1)
- for K=1:size(Dt,2)
- Dts=Dts+string(Dt(J,K));
- if K<size(Dt,2)
- Dts=Dts+',';
- end;
- end;
- if J<size(Dt,1)
- Dts=Dts+';';
- else
- Dts=Dts+']';
- end;
- end;
- end;
- end;
- if type(Dt)==10
- Dts=Prime()+Dt+Prime();
- end;
- if type(Dt)==15
- Dts=Makeliststr(Dt);
- end;
- Out=Out+Dts;
- if I<length(L)
- Out=Out+',';
- else
- Out=Out+')';
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin
deleted file mode 100644
index bafa4670..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci
deleted file mode 100755
index e24525e1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makesfcutoffdata.sci
+++ /dev/null
@@ -1,345 +0,0 @@
-// 08.09.19
-// 08.09.24
-// 08.10.09
-// 08.10.10
-// 08.10.15
-// 08.12.06
-// 08.12.21
-// 08.12.31
-// 10.02.16 Eps__ ( And Mislength, Mixop replaced )
-// 13.10.21 ( __ added to varibles )
-
-function FsL__=Makesfcutoffdata(MS__)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT
- global BORDERPT OTHERPARTITION PARTITIONPT
- global HIDDENDATA BORDERHIDDENDATA;
- timer();
- Nargs__=length(MS__);
- HT__=Op(1,MS__);
- PT__=Op(2,MS__);
- Fd__=Op(3,MS__);
- CutD__=Op(4,MS__);
- Np__=[50,50];
- Eps__=[0.05,1]; //
- Eps__2=0.2;
- Sgnstr__='+';
- K__=0;
- for I__=5:Nargs__
- Tmp__=Op(I__,MS__);
- if type(Tmp__)==10
- Sgnstr__=Tmp__;
- end;
- if type(Tmp__)==1 // from
- K__=K__+1;
- if K__==1
- Np__=Tmp__;
- if length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- if K__==2
- Eps__=Tmp__;
- if length(Eps__)==1
- Eps__=[Eps__,1];
- end;
- end;
- if K__==3
- Eps__2=Tmp__;
- end;
- end; // upto
- end;
- Tmp__=Op(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Op(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Op(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Op(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- Fd__L=Fullformfunc(Fd__);
- Fxy__=Op(1,Fd__L);
- Xf__=Op(2,Fd__L);
- Yf__=Op(3,Fd__L);
- Zf__=Op(4,Fd__L);
- DrwS__=Op(7,Fd__L);
- Tmp__=Op(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Op(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); Umax__=Urg__(2);
- Vmin__=Vrg__(1); Vmax__=Vrg__(2);
- Fugou__=1;
- if Sgnstr__=='-' | Sgnstr__=='n'
- Fugou__=-1;
- end;
- if Mixtype(CutD__)~=1
- V1__=Op(1,CutD__);
- Tmp__=Op(2,CutD__);
- if length(Tmp__)>1
- D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3);
- else
- D__=Tmp__;
- end;
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-';
- Eq__=Tmp__+string(D__);
- elseif type(CutD__)==1
- V1__=CutD__(1:3);
- D__=CutD__(4);
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+';
- Eq__=Tmp__+string(D__);
- else
- K__=mtlb_findstr(CutD__,'=');
- if K__>0
- Tmp__1=part(CutD__,1:K__-1);
- Tmp__2=part(CutD__,K__+1:length(CutD__));
- Eq__=Tmp__1+'-('+Tmp__2+')';
- else
- Eq__=CutD__;
- end;
- end;
- Eq__='('+string(Fugou__)+')*('+Eq__+')';
- Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')');
- Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')');
- Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')');
- Tmp__1=Op(5,Fd__L);
- Tmp__2=Op(6,Fd__L);
- CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__);
- EkL__=[];
- for I__=1:length(CutuvL__)
- Out__1=Op(I__,CutuvL__);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixjoin(EkL__,list(Tmp__));
- end;
- Tmp__=mtlb_findstr(DrwS__,'e');
- if length(Tmp__)~=0
- Tmp__=Paramplot('[Umax__,T]','T=[Vmin__,Vmax__]','N='+string(Np__(2)));
- Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1));
- for I__=1:length(Tmp__L)
- Out__1=Op(I__,Tmp__L);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixjoin(EkL__,list(Tmp__));
- end
- end;
- Tmp__=mtlb_findstr(DrwS__,'n');
- if length(Tmp__)~=0
- Tmp__=Paramplot('[T,Vmax__]','T=[Umin__,Umax__]','N='+string(Np__(1)));
- Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1));
- for I__=1:length(Tmp__L)
- Out__1=Op(I__,Tmp__L);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixjoin(EkL__,list(Tmp__));
- end
- end;
- Tmp__=mtlb_findstr(DrwS__,'w');
- if length(Tmp__)~=0
- Tmp__=Paramplot('[Umin__,T]','T=[Vmin__,Vmax__]','N='+string(Np__(2)));
- Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1));
- for I__=1:length(Tmp__L)
- Out__1=Op(I__,Tmp__L);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixjoin(EkL__,list(Tmp__));
- end
- end;
- Tmp__=mtlb_findstr(DrwS__,'s');
- if length(Tmp__)~=0
- Tmp__=Paramplot('[T,Vmin__]','T=[Umin__,Umax__]','N='+string(Np__(1)));
- Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1));
- for I__=1:length(Tmp__L)
- Out__1=Op(I__,Tmp__L);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixjoin(EkL__,list(Tmp__));
- end
- end;
- Fbdxy__=[];
- for I__=1:length(EkL__)
- Out__1=Op(I__,EkL__);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__=Out__1(J__,1:2);
- Out__2=[Out__2,Tmp__];
- end;
- Tmp__=Listplot(Out__2);
- Fbdxy__=Mixjoin(Fbdxy__,list(Tmp__));
- end;
- if PT__=='pers'
- [Zval__,Xval__,Yval__]=Evlptablepers(Mix(Fd__,Np__));
- end;
- if PT__=='para'
- [Zval__,Xval__,Yval__]=Evlptablepara(Mix(Fd__,Np__));
- end;
- Mixdisp(Mix('Ridge Equation obtained ',timer()));
- Out__2=Implicitplot(Zval__,Xval__,Yval__);
- IMPLICITDATA=Out__2;
- Tmp__L=[];
- for I__=1:length(Out__2)
- Tmp__1=Op(I__,Out__2);
- Tmp__=MakecutbycrvL(Tmp__1,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1));
- for J__=1:length(Tmp__)
- Tmp__L=Mixjoin(Tmp__L,Op(J__,Tmp__));
- end;
- end;
- Out__3=Tmp__L;
- IMPLICITDATA=Out__3;
- Mixdisp(Mix('ImplicitData obtained ',timer()));
- if PT__=='pers'
- Out__4=Cuspsplitpers(Out__3,Fd__,Eps__(1));
- end;
- if PT__=='para'
- Out__4=Cuspsplitpara(Out__3,Fd__,Eps__(1));
- end;
- CUSPDATA=Out__4;
- CUSPT=CUSPSPLITPT;
- Mixdisp(Mix('CuspData obtained ',timer()));
- FkL__=Mixjoin(EkL__,Out__4);
- if PT__=='pers'
- Fall__=Projpers(FkL__);
- end;
- if PT__=='para'
- Fall__=Projpara(FkL__);
- end;
- if HT__=='raw'
- Mixdisp(Mix('BorderData obtained ',timer()));
- FsL__=FkL__;
- return;
- end;
- BORDERPT=[];
- Tmp__=[];
- for I__=1:length(Fall__)
- Tmp__=Mixjoin(Tmp__,list([]));
- end;
- OTHERPARTITION=Tmp__;
- FsL__=[];
- BORDERHIDDENDATA=[];
- for I__=1:length(Fall__)
- if PT__=='pers'
- Tmp__=Projpers(Op(I__,FkL__));
- end;
- if PT__=='para'
- Tmp__=Projpara(Op(I__,FkL__));
- end;
- ParL__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__);
- if length(PARTITIONPT)>2
- Tmp__=length(PARTITIONPT)-1;
- Tmp__1=BORDERPT;
- for J__=2:Tmp__
- Tmp__2=Op(J__,PARTITIONPT);
- Tmp__1=Mixjoin(Tmp__1,list(Tmp__2));
- end;
- BORDERPT=Tmp__1;
- end;
- if PT__=='pers'
- if Fxy__=='p'
- Tmp__1=Op(I__,FkL__);
- Tmp__=Nohiddenpers2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__);
- else
- Tmp__1=Op(I__,FkL__);
- Tmp__=Nohiddenpers2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__);
-// Tmp__2=Mix(Fxy__,Fbdxy__,Xname__,Yname__);
-// Tmp__=Nohiddenpers(ParL__,Tmp__1,Tmp__2);
- end;
- else
- if Fxy__=='p'
- Tmp__1=Op(I__,FkL__);
- Tmp__=Nohiddenpara2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__);
- else
- Tmp__1=Op(I__,FkL__);
- Tmp__=Nohiddenpara2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__);
-// Tmp__2=Mix(Fxy__,Fbdxy__,Xname__,Yname__);
-// Tmp__=Nohiddenpara(ParL__,Tmp__1,Tmp__2);
- end;
- end;
- BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA);
- FsL__=Mixjoin(FsL__,Tmp__);
- end;
- Mixdisp(Mix('BorderData obtained ',timer()));
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.bin
deleted file mode 100644
index c4f4d4c5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.sci
deleted file mode 100755
index 443751be..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeshasen.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 08.05.20
-// 09.10.05
-// 10.01.20
-// 10.02.01
-
-function Out=Makeshasen(PtnL,PA,V,Bdy)
- Eps=10.0^(-6);
- TenL=KoutenList(PA,V,Bdy);
- Nten=length(TenL);
- Call=length(Bdy);
- Ptn=zeros(1,Call);
- Out=list();
- GL=[]
- Te=-10.0^6;
- for I=1:Nten-1
- TenP=Op(I,TenL); TenQ=Op(I+1,TenL);
- Ts=Op(1,TenP);
- P=Op(2,TenP); Q=Op(2,TenQ);
- NC=Op(4,TenP);
- Tmp=modulo(Ptn(NC)+1,2);
- Ptn(1,NC)=Tmp;
- if Op(1,TenQ)-Ts>Eps
- if Member(Ptn,PtnL)
- if abs(Te-Ts)>Eps
- if GL~=[]
- J=length(Out);
- Out(J+1)=GL;
- end;
- Tmp=Listplot(P,Q);
- GL=Tmp;
- else
- GL=[GL;Q];
- end
- Te=Op(1,TenQ);
- end
- end
- end
- if size(GL,1)>0
- Out=Mixjoin(Out,list(GL))
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.bin
deleted file mode 100644
index 102b44b6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.sci
deleted file mode 100755
index 99ad5910..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletondata.sci
+++ /dev/null
@@ -1,171 +0,0 @@
-// 08.07.13
-// 08.10.16
-// 09.03.05
-// 09.05.12
-// 10.05.09
-// 14.07.05
-// 16.12.24 ( when kukanL=[] )
-
-function Allres=Makeskeletondata(Obj2L,Plt2L,R0,Eps2)
- Eps=10.0^(-3);
- Dmat=[];
- Dind=[];
- for I=1:Mixlength(Plt2L)
- Dt=Mixop(I,Plt2L);
- N1=size(Dmat,1)+1;
- Dmat=[Dmat;Dt];
- N2=size(Dmat,1);
- Dind=[Dind;N1,N2];
- end;
- Nind=size(Dind,1);
- Allres=[];
- for Nobj=1:Mixlength(Obj2L)
- Plt2=Mixop(Nobj,Obj2L);
- PhL=Plt2(:,1:2);
- ClipL=[];
- for Ns=1:size(PhL,1)-1
- P1=PhL(Ns:Ns+1,:);
- for I=1:size(Dind,1)
- Tmp=Dmat(Dind(I,1):Dind(I,2),:);
- P2=Tmp(:,1:2);
- KC=IntersectcrvsPp(P1,P2,Eps);
- if Mixlength(KC)>0
- for J=1:Mixlength(KC)
- P=Mixop(1,Mixop(J,KC));
- Tmp=Mixop(2,Mixop(J,KC));
- if Tmp<1+Eps & Ns==1 // 2010.05.09
- continue;
- end;
- if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1
- continue;
- end; //
- N1=Ns;
- N2=Mixop(3,Mixop(J,KC));
- Pa=Plt2(N1,1:2);
- Za=Plt2(N1,3);
- Pb=Plt2(N1+1,1:2);
- Zb=Plt2(N1+1,3);
- if norm(Pa-Pb)<Eps // added from here
- continue;
- end; // upto here
- T1=norm(Pa-P)/norm(Pa-Pb);
- Z1=(1-T1)*Za+T1*Zb;
- Tmp=Dmat(Dind(I,1):Dind(I,2),:);
- Pa=Tmp(N2,1:2);
- Za=Tmp(N2,3);
- Pb=Tmp(N2+1,1:2);
- Zb=Tmp(N2+1,3);
- if norm(Pa-Pb)<Eps // added from here
- continue;
- end; // upto here
- T2=norm(Pa-P)/norm(Pa-Pb);
- Z2=(1-T2)*Za+T2*Zb;
- if Z1<Z2-Eps2
- if ClipL==[] // corrected from here
- Tmp=1;
- else
- Tmp1=ClipL(:,1)-P(1);
- Tmp2=ClipL(:,2)-P(2);
- Tmp3=Tmp1.^2+Tmp2.^2; // 20140705
- Tmp=min(Tmp3);
- end; // upto here
- if Tmp>Eps^2
- Tmp1=P1(2,:)-P1(1,:);
- Tmp2=Pb-Pa;
- Tmp3=Naiseki(Tmp1,Tmp2);
- Tmp3=Tmp3/norm(Tmp1)/norm(Tmp2);
- Tmp=1-0.5*Tmp3^2;
- ClipL=[ClipL;P,N1,T1,R0/Tmp];
- end;
- end;
- end;
- end;
- end;
- end;
- Te=size(Plt2,1);
- KukanL=[1.0,Te];
- P1=PhL;
- if size(ClipL,1)>0
- for I=1:size(ClipL,1)
- P=ClipL(I,1:2);
- NN=ClipL(I,3);
- T=NN+ClipL(I,4);
- R=ClipL(I,5);
- Flg=0;
- for J=NN:-1:1
- Q=PointonCurve(J,P1);
- if norm(P-Q)<R
- continue;
- end
- Flg=1;
- break;
- end;
- if Flg==0
- T1=1;
- else
- T1=J; T2=T;
- H=T2-T1;
- for N=1:10
- H=H*0.5;
- Q=PointonCurve(T1+H,P1);
- if norm(P-Q)<R
- T2=T2-H;
- else
- T1=T1+H;
- end;
- end;
- end;
- Ku=[T1];
- Flg=0;
- for J=NN+1:Te
- Q=PointonCurve(J,P1);
- if norm(P-Q)<R
- continue;
- end;
- Flg=1;
- break;
- end;
- if Flg==0
- T2=Te;
- else
- T1=T; T2=J;
- H=T2-T1;
- for N=1:10
- H=H*0.5;
- Q=PointonCurve(T1+H,P1);
- if norm(P-Q)<R
- T1=T1+H;
- else
- T2=T2-H;
- end;
- end;
- end;
- Ku=[Ku,T2];
- if size(KukanL,2)==0 then
- break;
- end;
- KukanL=Kukannozoku(Ku,KukanL);
- end;
- end;
- Res=[];
- for I=1:size(KukanL,1)
- T1=KukanL(I,1); N1=Trunc(T1);
- T2=KukanL(I,2); N2=Trunc(T2);
- PtL=[];
- if T1-N1<1-Eps
- Tmp=PointonCurve(T1,P1);
- PtL=MixS(Tmp);
- end;
- for J=N1+1:N2
- Tmp=PointonCurve(J,P1);
- PtL=Mixadd(PtL,Tmp);
- end;
- if T2-N2>Eps
- Tmp=PointonCurve(T2,P1);
- PtL=Mixadd(PtL,Tmp);
- end;
- Res=Mixadd(Res,Listplot(PtL));
- end;
- Allres=Mixjoin(Allres,Res);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin
deleted file mode 100644
index 0082bcd5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci
deleted file mode 100755
index 4838d658..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeskeletonpersdata.sci
+++ /dev/null
@@ -1,188 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 09.05.12
-// 09.09.25
-// 10.05.09
-// 10.08.17
-// 14.07.05
-
-function Allres=Makeskeletonpersdata(Obj2L,Plt2L,R0,Eps2)
- Eps=10.0^(-3);
- Dmat=[];
- Dind=[];
- for I=1:Mixlength(Plt2L)
- Dt=Mixop(I,Plt2L);
- N1=size(Dmat,1)+1;
- Dmat=[Dmat;Dt];
- N2=size(Dmat,1);
- Dind=[Dind;N1,N2];
- end;
- Nind=size(Dind,1);
- Allres=[];
- for Nobj=1:Mixlength(Obj2L)
- Plt2=Mixop(Nobj,Obj2L);
- PhL=Plt2(:,1:2);
- ClipL=[];
- for Ns=1:size(PhL,1)-1
- P1=PhL(Ns:Ns+1,:);
- for I=1:size(Dind,1)
- Tmp=Dmat(Dind(I,1):Dind(I,2),:);
- P2=Tmp(:,1:2);
- KC=IntersectcrvsPp(P1,P2,Eps);
- if Mixlength(KC)>0
- for J=1:Mixlength(KC)
- P=Mixop(1,Mixop(J,KC));
- Tmp=Mixop(2,Mixop(J,KC));
- if Tmp<1+Eps & Ns==1 // 2010.05.09
- continue;
- end;
- if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1
- continue;
- end; //
- N1=Ns;
- N2=Mixop(3,Mixop(J,KC));
- Pa=Plt2(N1,1:2);
- Za=Plt2(N1,3);
- Pb=Plt2(N1+1,1:2);
- Zb=Plt2(N1+1,3);
- if norm(Pa-Pb)<Eps // added from here
- continue;
- end; // upto here
- T1=norm(Pa-P)/norm(Pa-Pb);
- Pka=Cancoordpers([Pa(1),Pa(2),Za]);
- Pkb=Cancoordpers([Pb(1),Pb(2),Zb]);
- if T1>1-Eps
- Pk=Pkb;
- else
- Tmp1=Listplot([Pa,Pb]);
- Tmp2=Spaceline([Pka,Pkb]);
- Tmp=Invperspt(1+T1,Tmp1,Tmp2);
- Pk=Mixop(1,Tmp);
- end;
- Z1=Zperspt(Pk);
- Tmp=Dmat(Dind(I,1):Dind(I,2),:);
- Pa=Tmp(N2,1:2);
- Za=Tmp(N2,3);
- Pb=Tmp(N2+1,1:2);
- Zb=Tmp(N2+1,3);
- if norm(Pa-Pb)<Eps // added from here
- continue;
- end; // upto here
- T2=norm(Pa-P)/norm(Pa-Pb);
- Pka=Cancoordpers([Pa(1),Pa(2),Za]);
- Pkb=Cancoordpers([Pb(1),Pb(2),Zb]);
- if T2>1-Eps
- Pk=Pkb;
- else
- Tmp1=Listplot([Pa,Pb]);
- Tmp2=Spaceline([Pka,Pkb]);
- Tmp=Invperspt(1+T2,Tmp1,Tmp2);
- Pk=Mixop(1,Tmp);
- end
- Z2=Zperspt(Pk);
- if Z1<Z2-Eps2
- if ClipL==[] // corrected from here
- Tmp=1;
- else
- Tmp1=ClipL(:,1)-P(1);
- Tmp2=ClipL(:,2)-P(2);
- Tmp3=Tmp1.^2+Tmp2.^2; // 20140705
- Tmp=min(Tmp3);
- end; // upto here
- if Tmp>Eps^2
- Tmp1=P1(2,:)-P1(1,:);
- Tmp2=Pb-Pa;
- Tmp3=Naiseki(Tmp1,Tmp2);
- Tmp3=Tmp3/norm(Tmp1)/norm(Tmp2);
- Tmp=1-0.5*Tmp3^2;
- ClipL=[ClipL;P,N1,T1,R0/Tmp];
- end;
- end;
- end;
- end;
- end;
- end;
- Te=size(Plt2,1);
- KukanL=[1.0,Te];
- P1=PhL;
- if size(ClipL,1)>0
- for I=1:size(ClipL,1)
- P=ClipL(I,1:2);
- NN=ClipL(I,3);
- T=NN+ClipL(I,4);
- R= ClipL(I,5); // 10.08.17
- Flg=0;
- for J=NN:-1:1
- Q=PointonCurve(J,P1);
- if norm(P-Q)<R
- continue;
- end
- Flg=1;
- break;
- end;
- if Flg==0
- T1=1;
- else
- T1=J; T2=T;
- H=T2-T1;
- for N=1:10
- H=H*0.5;
- Q=PointonCurve(T1+H,P1);
- if norm(P-Q)<R
- T2=T2-H;
- else
- T1=T1+H;
- end;
- end;
- end;
- Ku=[T1];
- Flg=0;
- for J=NN+1:Te
- Q=PointonCurve(J,P1);
- if norm(P-Q)<R
- continue;
- end;
- Flg=1;
- break;
- end;
- if Flg==0
- T2=Te;
- else
- T1=T; T2=J;
- H=T2-T1;
- for N=1:10
- H=H*0.5;
- Q=PointonCurve(T1+H,P1);
- if norm(P-Q)<R
- T1=T1+H;
- else
- T2=T2-H;
- end;
- end;
- end;
- Ku=[Ku,T2];
- KukanL=Kukannozoku(Ku,KukanL);
- end;
- end;
- Res=[];
- for I=1:size(KukanL,1)
- T1=KukanL(I,1); N1=Trunc(T1);
- T2=KukanL(I,2); N2=Trunc(T2);
- PtL=[];
- if T1-N1<1-Eps
- Tmp=PointonCurve(T1,P1);
- PtL=MixS(Tmp);
- end;
- for J=N1+1:N2
- Tmp=PointonCurve(J,P1);
- PtL=Mixadd(PtL,Tmp);
- end;
- if T2-N2>Eps
- Tmp=PointonCurve(T2,P1);
- PtL=Mixadd(PtL,Tmp);
- end;
- Res=Mixadd(Res,Listplot(PtL));
- end;
- Allres=Mixjoin(Allres,Res);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.bin
deleted file mode 100644
index 37e149ff..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.sci
deleted file mode 100755
index dc917f30..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makevaltable.sci
+++ /dev/null
@@ -1,79 +0,0 @@
-// 08.09.09
-// 08.10.08
-// 08.12.06
-// 08.12.30
-// 09.06.03
-// 13.10.19 ( __ added to variables )
-
-function [Zval__,Xval__,Yval__]=Makevaltable(MS__)
- Eps__=10^(-6);
- Nargs__=Mixlength(MS__);
- Fstr__=Mixop(1,MS__);
- Tmp__=Mixop(2,MS__);
- Tmp1__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,Tmp1__-1);
- Xrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__)));
- Tmp__=Mixop(3,MS__);
- Tmp1__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,Tmp1__-1);
- Yrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__)));
- Tmp__=strsubst(Fstr__,Xname__,'x');
- Fstr__=strsubst(Tmp__,Yname__,'y');
- Tmp__=mtlb_findstr(Fstr__,Xname__);
- if length(Tmp__)==0
- Fstr__=Fstr__+'+0*x';
- end;
- Mdv__=50;
- Ndv__=50;
- if Nargs__>=4
- Tmp__=Mixop(4,MS__);
- if length(Tmp__)>1
- Mdv__=Tmp__(1,1);
- Ndv__=Tmp__(1,2);
- else
- Mdv__=Tmp__
- if Nargs__==4
- Ndv__=Mdv__
- else
- Tmp1__=Mixop(5,MS__);
- if type(Tmp1__)==1 & length(Tmp1__)==1
- Ndv__=Tmp1__;
- else
- Ndv__=Mdv__;
- end
- end
- end
- end
- X1__=Xrange__(1); X2__=Xrange__(2);
- Y1__=Yrange__(1); Y2__=Yrange__(2);
- Dx__=(X2__-X1__)/(Mdv__-1);
- Dy__=(Y2__-Y1__)/(Ndv__-1);
- Xval__=[];
- Tmp__=X1__;
- while Tmp__<X2__+Eps__
- Xval__=[Xval__,Tmp__];
- Tmp__=Tmp__+Dx__;
- end;
- Yval__=[];
- Tmp__=Y1__;
- while Tmp__<Y2__+Eps__
- Yval__=[Yval__,Tmp__];
- Tmp__=Tmp__+Dy__;
- end;
- I__=1;
-// x=Xval;
-// for y=Yval
-// Tmp=evstr(Fstr);
-// Zval(I,:)=Tmp;
-// I=I+1;
-// end;
- for y=Yval__
- J__=1;
- for x=Xval__
- Zval__(I__,J__)=evstr(Fstr__);
- J__=J__+1;
- end;
- I__=I__+1;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.bin
deleted file mode 100644
index 82acb406..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci
deleted file mode 100755
index a16a5a4d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci
+++ /dev/null
@@ -1,68 +0,0 @@
-// 08.08.22
-// 09.10.25
-// 09.10.26
-// 09.10.27
-// 09.10.29
-
-function Out=MakeveLfaceL(VfL)
- // Out format
- // VeL Edge, Face num(as numlist), VeL num
- // FL Face (Vertexs)
- Eps=10^(-4);
- Tmp=VfL($);
- Tmp1=Tmp(1);
- if type(Tmp1)==1
- FvL=list(VfL);
- else
- FvL=VfL;
- end;
- EL=list(); FL=list();
- for Nn=1:length(FvL)
- Tmp=FvL(Nn);
- VL=Tmp(1);
- if length(VL)>0
- FnL=Tmp(2);
- FaceL=list();
- for I=1:length(FnL)
- Tmp1=FnL(I);
- PtL=list();
- for J=1:length(Tmp1)
- Tmp2=Tmp1(J);
- PtL(J)=VL(Tmp2);
- end;
- FaceL(I)=PtL;
- end;
- else
- FaceL=list(Tmp(2));
- end;
- for I=1:length(FaceL)
- Face=FaceL(I);
- Face($+1)=Face(1);
- FL($+1)=Face;
- for J=1:length(Face)-1
- Edge=list(Face(J),Face(J+1));
- Flg=0;
- for K=1:length(EL)
- Tmp=EL(K);
- Tmp1=Tmp(1);
- Tmp2=norm(Edge(1)-Tmp1(1))+norm(Edge(2)-Tmp1(2));
- Tmp3=norm(Edge(1)-Tmp1(2))+norm(Edge(2)-Tmp1(1));
- if Tmp2<Eps | Tmp3<Eps
- Tmp=EL(K);
- Tmp1=Tmp(1);
- Tmp2=[Tmp(2),length(FL)];
- EL(K)=list(Tmp1,Tmp2,K);
- Flg=1;
- break;
- end;
- end;
- if Flg==0
- Ntmp=length(EL);
- EL(Ntmp+1)=list(Edge,[length(FL)],Ntmp+1);
- end;
- end;
- end;
- end;
- Out=list(EL,FL);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.bin
deleted file mode 100644
index 7c309bf0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.sci
deleted file mode 100644
index fb8aa27b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makexybdy.sci
+++ /dev/null
@@ -1,111 +0,0 @@
-// 08.09.13
-// 08.09.16
-// 08.10.11
-// 08.10.27
-// 14.07.07 debug ( Kitahara )
-
-function EhL=Makexybdy(Fd,Np)
- Eps0=10^(-4);
- FdL=Fullformfunc(Fd);
- Tmp1=Mixop(2,FdL);
- Tmp2=Mixop(3,FdL);
- Xystr=[Tmp1,Tmp2];
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- DrwS=Mixop(7,FdL);
- Cflg=0;
- EhL=[];
- Tmp=mtlb_findstr(DrwS,'e');
- if length(Tmp)~=0
- Tmp1=strsubst(Xystr,Uname,'('+string(Umax)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Paramplot(Tmp1,Tmp2,Tmp3);
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- EhL=Mixadd(EhL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'n');
- if length(Tmp)~=0
- Tmp1=strsubst(Xystr,Vname,'('+string(Vmax)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Paramplot(Tmp1,Tmp2,Tmp3);
- if Cflg~=0 // 140707 Kitahara
- Tmp1=Mixop(Mixlength(EhL),EhL);
- Tmp=Joincrvs(Tmp1,Tmp);
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL);
- EhL=Mixadd(Tmp1,Tmp);
- else
- Cflg=0;
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- EhL=Mixadd(EhL,Tmp);
- end;
- end;
- Tmp=mtlb_findstr(DrwS,'w');
- if length(Tmp)~=0
- Tmp1=strsubst(Xystr,Uname,'('+string(Umin)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Paramplot(Tmp1,Tmp2,Tmp3);
- if Cflg~=0 //if Cflg==0
- Tmp1=Mixop(Mixlength(EhL),EhL);
- Tmp=Joincrvs(Tmp1,Tmp);
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL);
- EhL=Mixadd(Tmp1,Tmp);
- else
- Cflg=0;
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- EhL=Mixadd(EhL,Tmp);
- end;
- end;
- Tmp=mtlb_findstr(DrwS,'s');
- if length(Tmp)~=0
- Tmp1=strsubst(Xystr,Vname,'('+string(Vmin)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Paramplot(Tmp1,Tmp2,Tmp3);
- if Cflg~=0 //if Cflg==0
- Tmp1=Mixop(Mixlength(EhL),EhL);
- Tmp=Joincrvs(Tmp1,Tmp);
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL);
- EhL=Mixadd(Tmp1,Tmp);
- else
- Cflg=0;
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- EhL=Mixadd(EhL,Tmp);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.bin
deleted file mode 100644
index 86b2954f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.sci
deleted file mode 100755
index 11b02c63..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mawarikomi.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-function Mawarikomi(varargin)
- FL='default';
- haba='10cm';
- Nargs=length(varargin);
- if Nargs>0
- haba=varargin(1);
- if Nargs>=2
- FL=varargin(2);
- if FL==''
- FL='tmp.tex'
- end
- end
- end
- StrM=[
- '\begin{mawarikomi}%',...
- '%<1>[5](0,0)%',...
- '{'+haba+'}{%',...
- '',...
- '}',...
- '',...
- '',...
- '\end{mawarikomi}'...
- ];
- if FL~='default'
- Fid=mopen(FL,'w');
- mprintf('%s\n\n','Writing to '+FL);
- end;
- for I=1:size(StrM,2)
- Str=StrM(I);
- mprintf('%s\n',Str);
- if FL~='default'
- mfprintf(Fid,'%s\n',Str);
- end
- end
- if FL~='default'
- mclose(Fid);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.bin
deleted file mode 100644
index 78d328fc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.sci
deleted file mode 100755
index 65f543ea..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MeetWindow.sci
+++ /dev/null
@@ -1,91 +0,0 @@
-//
-// 08.05.30 debugged
-// 08.08.14 (horner)
-// 09.12.31 (gsort)
-// 15.10.23 ( horner not used )
-// 16.12.29 (msprintf("%3.10f",..) used )
-
-function R=MeetWindow(PA,PB)
- global XMIN XMAX YMIN YMAX
- if InWindow(PA)=='i' & InWindow(PB)=='i'
- R=[PA;PB];
- return
- end;
- Eps=10.0^(-6);
- t=poly(0,'T');
- PT="(1-(t))*PA+(t)*PB";
- Txm=-1; TxM=-1; Tym=-1; TyM=-1;
- if PA(1)~=PB(1)
- Txm=(XMIN-PA(1))/(PB(1)-PA(1));
- TxM=(XMAX-PA(1))/(PB(1)-PA(1));
- end
- if PA(2)~=PB(2)
- Tym=(YMIN-PA(2))/(PB(2)-PA(2));
- TyM=(YMAX-PA(2))/(PB(2)-PA(2));
- end;
-// Tmp=horner(PT(2),Txm);
- Tmp1=strsubst(PT,"t",msprintf("%3.10f",Txm));
- Tmp1=evstr(Tmp1)
- Tmp=Tmp1(2);
- if Tmp<YMIN-Eps | Tmp>YMAX+Eps
- Txm=-1;
- end
-// Tmp=horner(PT(2),TxM);
- Tmp1=strsubst(PT,"t",msprintf("%3.10f",TxM));
- Tmp1=evstr(Tmp1)
- Tmp=Tmp1(2);
- if Tmp<YMIN-Eps | Tmp>YMAX+Eps
- TxM=-1
- end
-// Tmp=horner(PT(1),Tym);
- Tmp1=strsubst(PT,"t",msprintf("%3.10f",Tym));
- Tmp1=evstr(Tmp1)
- Tmp=Tmp1(1);
- if Tmp<XMIN-Eps | Tmp>XMAX+Eps
- Tym=-1
- end
-// Tmp=horner(PT(1),TyM);
- Tmp1=strsubst(PT,"t",msprintf("%3.10f",TyM));
- Tmp1=evstr(Tmp1)
- Tmp=Tmp1(1);
- if Tmp<XMIN-Eps | Tmp>XMAX+Eps
- TyM=-1
- end
- Tmp=gsort([Txm,TxM,Tym,TyM]);
- Tans=Tmp(length(Tmp):-1:1);
- Tmp=[];
- for I=1:length(Tans)
- Tmp1=Tans(I);
- if Tmp1>-Eps & Tmp1<1+Eps
- if length(Tmp)==0
- Tmp=[Tmp1];
- elseif abs(Tmp(length(Tmp))-Tmp1)>Eps
- Tmp=[Tmp,Tmp1]
- end
- end
- end
- Tans=Tmp;
- if length(Tans)==0
- R=[];
- return;
- end
- if length(Tans)==1
-// Ten1=horner(PT,Tans(1));
- Tmp1=strsubst(PT,"t",string(Tans(1)));
- Ten1=evstr(Tmp1)
- if InWindow(PA)=='i'
- R=[PA;Ten1];
- return;
- else
- R=[Ten1;PB];
- return
- end
- end
-// Ten1=horner(PT,Tans(1));
- Tmp1=strsubst(PT,"t",string(Tans(1)));
- Ten1=evstr(Tmp1)
-// Ten2=horner(PT,Tans(2));
- Tmp1=strsubst(PT,"t",string(Tans(2)));
- Ten2=evstr(Tmp1)
- R=[Ten1;Ten2];
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.bin
deleted file mode 100644
index ebe3ead9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.sci
deleted file mode 100755
index 65ba1166..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Meetpoints.sci
+++ /dev/null
@@ -1,169 +0,0 @@
-// 08.10.24
-// 08.10.25
-// 08.10.26
-// 09.12.31 (gsort)
-// 13.10.22 ( __ added to varibles )
-// 13.12.02 debugged
-
-function PtL__=Meetpoints(PtA__,PtB__,Fd__,Uveq__,Np__,Eps__)
- Eps__0=10^(-4);
- Vec__=PtB__-PtA__;
- Out__=[];
- PtL__=[];
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Mixop(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- Fd__L=Fullformfunc(Fd__);
- Xf__=Mixop(2,Fd__L);
- Yf__=Mixop(3,Fd__L);
- Zf__=Mixop(4,Fd__L);
- Tmp__=Mixop(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); UMax__=Urg__(2);
- Vmin__=Vrg__(1); VMax__=Vrg__(2);
- V1__='('+string(Vec__(1))+')';
- V2__='('+string(Vec__(2))+')';
- V3__='('+string(Vec__(3))+')';
- Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))';
- Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))';
- Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))';
- Urg__str=Mixop(5,Fd__L);
- Vrg__str=Mixop(6,Fd__L);
- if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0
- Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__;
- else
- Eq__=Xstr__;
- end;
- MS__=Mix(Eq__,Urg__str,Vrg__str,Np__);
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- for J=1:length(Yval__)-1
- for I=1:length(Xval__)-1
- a1__=Xval__(I);b1__=Yval__(J);c1__=Zval__(J,I);
- a2__=Xval__(I+1);b2__=Yval__(J);c2__=Zval__(J,I+1);
- a3__=Xval__(I+1);b3__=Yval__(J+1);c3__=Zval__(J+1,I+1);
- a4__=Xval__(I);b4__=Yval__(J+1);c4__=Zval__(J+1,I);
- PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__];
- VL__=[c1__,c2__,c3__,c4__,c1__];
- QL__=[];
- for K__=1:4
- P1__=PL__(K__,:); P2__=PL__(K__+1,:);
- M1__=VL__(K__); M2__=VL__(K__+1);
- if M1__>=Eps__0 & M2__>=Eps__0
- continue;
- end;
- if M1__<=-Eps__0 & M2__<=-Eps__0
- continue;
- end;
- if abs(M1__)<Eps__0
- Tmp__=P1__;
- elseif abs(M2__)<Eps__0
- continue;
- else
- Tmp__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__);
- end;
- QL__=[QL__;Tmp__];
- end;
- if size(QL__,1)==2
- Puv__1=QL__(1,:); Puv__2=QL__(2,:);
- Tmp__1=Puv__1(1);
- Tmp__2=Puv__1(2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__); // 13.12.02
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- P1__=[Xv__,Yv__,Zv__];
- Tmp__1=Puv__2(1);
- Tmp__2=Puv__2(2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- P2__=[Xv__,Yv__,Zv__];
- V1__=Vec__(1); V2__=Vec__(2); V3__=Vec__(3);
- if abs(V1__)>Eps__0
- M1__=PtA__(3)+V3__/V1__*(P1__(1)-PtA__(1))-P1__(3);
- M2__=PtA__(3)+V3__/V1__*(P2__(1)-PtA__(1))-P2__(3);
- elseif abs(V2__)>Eps__0
- M1__=PtA__(3)+V3__/V2__*(P1__(2)-PtA__(2))-P1__(3);
- M2__=PtA__(3)+V3__/V2__*(P2__(2)-PtA__(2))-P2__(3);
- else
- M1__=PtA__(2)-P1__(2);
- M2__=PtA__(2)-P2__(2);
- end;
- if M1__*M2__>=0
- if (M1__>Eps__0 & M2__>Eps__0) | (M1__<-Eps__0 & M2__<-Eps__0)
- continue;
- end;
- if abs(M1__)<=Eps__0
- Pt__=P1__; Ptuv__=Puv__1;
- else
- Pt__=P2__; Ptuv__=Puv__2;
- end;
- else
- Pt__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__);
- Ptuv__=1/(M1__-M2__)*(-M2__*Puv__1+M1__*Puv__2);
- end;
- if type(Uveq__)==10
- Tmp__1='('+string(Ptuv__(1))+')';
- Tmp__2='('+string(Ptuv__(2))+')';
- Tmp__=strsubst(Uveq__,Uname__,Tmp__1);
- Tmp__=strsubst(Tmp__,Vname__,Tmp__2);
- Tmp__=evstr(Tmp__);
- if Tmp__<-Eps__0
- continue;
- end;
- end;
- Tmp__1=Naiseki(Pt__-PtA__,Vec__);
- Tmp__1=Tmp__1/norm(Vec__)^2;
- if Tmp__1>-Eps__0 & Tmp__1<1+Eps__0
- Out__=[Out__,Tmp__1];
- end;
- end;
- end;
- end;
- if length(Out__)>0
- Out__=gsort(Out__);
- Out__=Out__(length(Out__):-1:1);
- Tmp__=[Out__(1)];
- for I__=2:length(Out__)
- Tmp__1=(Out__(I__)-Tmp__(length(Tmp__)))*Vec__;
- Tmp__1=norm(Tmp__1);
- if Tmp__1>Eps__
- Tmp__=[Tmp__,Out__(I__)];
- end;
- end;
- Out__=Tmp__;
- for I__=1:length(Out__)
- Tmp__=PtA__+Out__(I__)*Vec__;
- PtL__=Mixadd(PtL__,Tmp__);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.bin
deleted file mode 100644
index 711c4fc4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.sci
deleted file mode 100755
index 79826f90..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Member.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 08.05.18
-
-// Structure changed
-// 09.10.11
-
-function TF=Member(A,L)
- if Mixtype(L)>1
- N=Mixlength(L);
- else
- N=length(L);
- end
- for I=1:N
- Tmp=Op(I,L);
- if A==Tmp
- TF=%t
- return
- end
- end
- TF=%f
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.bin
deleted file mode 100644
index 9cb3477e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.sci
deleted file mode 100755
index de8d4b0d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi.sci
+++ /dev/null
@@ -1,206 +0,0 @@
-// 08.08.21
-// 09.10.24
-// 09.10.26
-
-function Menkakusi(Face,Nf,Ptype)
- global THETA PHI EyePoint FocusPoint VELNO VELHI;
- Eps0=10^(-6);
- Eps=10^(-4);
- Tmp1=Face(1)-Face(2);
- Tmp2=Face(3)-Face(2);
- if norm(Tmp1)<Eps | norm(Tmp2)<Eps
- return;
- end;
- Vec=1/norm(Tmp1)/norm(Tmp2)*Crossprod(Tmp1,Tmp2);
- if norm(Vec)<Eps
- return;
- end;
- if Ptype==-1
- W=EyePoint;
- Tmp=Dotprod(Vec,W-Face(1));
- else
- W=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
- W=100*W;
- Tmp=Dotprod(Vec,W-Face(1));
- end;
- if abs(Tmp)<Eps
- return;
- end;
- if Tmp<-Eps
- Vec=-Vec;
- end;
- if Ptype==-1
- G1=Projpers(Spaceline(Face));
- else
- G1=Projpara(Spaceline(Face))
- end;
- VL=list();
- for I=1:Numptcrv(G1)
- VL(I)=Ptcrv(I,G1);
- end;
- Out1L=list();
- Out2L=VELHI;
- for N=1:length(VELNO)
- Tmp=VELNO(N);
- Edge=Tmp(1);
- Ne=Tmp(2);
- Nenm=Tmp(3);
- if Member(Nf,Ne)
- Out1L($+1)=list(Edge,Ne,Nenm);
- continue;
- end;
- if Ptype==-1
- P=Perspt(Edge(1));
- Q=Perspt(Edge(2));
- else
- P=Parapt(Edge(1));
- Q=Parapt(Edge(2));
- end;
- if norm(P-Q)<Eps
- continue;
- end;
- Tmp=Kyoukai(Mix(G1));
- Tmp1=Naigai(P,Tmp);
- Ng1=Tmp1(1);
- Tmp1=Naigai(Q,Tmp);
- Ng2=Tmp1(1);
- KL=IntersectcrvsPp(Listplot([P,Q]),G1);
- if Mixlength(KL)==0
- if Ng1==0
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Tmp1=(Edge(1)+Edge(2))*0.5-Face(1);
- Tmp=Dotprod(Tmp1,Vec)/norm(Tmp1);
- if Tmp>-Eps
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Out2L($+1)=list(Edge,Ne,Nenm);
- end;
- end;
- continue;
- end;
- Flg=0;
- for I=1:Mixlength(VL)-1
- Tmp=VL(I+1)-VL(I);
- if norm(Tmp)<Eps continue; end;
- Tmp1=Crossprod(Tmp,Q-P)/norm(Tmp)/norm(Q-P);
- if abs(Tmp1)<Eps
- Flg=1;
- break;
- end;
- end;
- if Flg==1
- Tmp=Mixop(I,VL)-P;
- if norm(Tmp)<Eps
- Tmp1=0;
- else
- Tmp1=Crossprod(Tmp,Q-P)/norm(Tmp)/norm(Q-P);
- end;
- if abs(Tmp1)<Eps then
- Out1L($+1)=list(Edge,Ne,Nenm);
- continue;
- end;
- end;
- if Mixlength(KL)==1
- Tmp=KL(1);
- Tmp=Tmp(2)-1;
- if Tmp<Eps
- if Ng2==0
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Tmp1=Edge(2)-Face(1);
- Tmp1=Dotprod(Tmp1,Vec);
- if Tmp1>-Eps
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Out2L($+1)=list(Edge,Ne,Nenm);
- end;
- end;
- continue;
- end;
- if Tmp>1-Eps
- if Ng1==0
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Tmp1=Edge(1)-Face(1);
- Tmp1=Dotprod(Tmp1,Vec);
- if Tmp1>-Eps
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Out2L($+1)=list(Edge,Ne,Nenm);
- end;
- end;
- continue;
- end;
- if Ng1==0 & Ng2==0
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Tmp1=KL(1);
- Tmp1=Tmp1(1);
- if Ptype==-1
- Tmp=Invperspt(Tmp1,Spaceline(Edge));
- else
- Tmp=Invparapt(Tmp1,Spaceline(Edge))
- end;
- Ak=Tmp(1);
- if Ng1==1
- Tmp1=Edge(1)-Face(1);
- Tmp1=Dotprod(Tmp1,Vec);
- if Tmp1>-Eps
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Tmp2=list(Ak,Edge(2));
- Out1L($+1)=list(Tmp2,Ne,Nenm);
- Tmp2=list(Edge(1),Ak);
- Out2L($+1)=list(Tmp2,Ne,Nenm);
- end;
- end;
- if Ng2==1
- Tmp1=Edge(2)-Face(1);
- Tmp1=Dotprod(Tmp1,Vec);
- if Tmp1>-Eps
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Tmp2=list(Edge(1),Ak);
- Out1L($+1)=list(Tmp2,Ne,Nenm);
- Tmp2=list(Ak,Edge(2));
- Out2L($+1)=list(Tmp2,Ne,Nenm);
- end;
- end;
- end;
- end;
- if Mixlength(KL)==2
- Tmp1=KL(1);
- Tmp1=Tmp1(2);
- Tmp2=KL(2);
- Tmp2=Tmp2(2);
- if Tmp1>Tmp2
- KL=list(KL(2),KL(1));
- end;
- Tmp=Spaceline(Edge);
- Tmp1=KL(1);
- Tmp1=Tmp1(1);
- Tmp2=KL(2);
- Tmp2=Tmp2(1);
- if Ptype==-1
- Ak=Mixop(1,Invperspt(Tmp1,Tmp));
- Bk=Mixop(1,Invperspt(Tmp2,Tmp))
- else
- Ak=Mixop(1,Invparapt(Tmp1,Tmp));
- Bk=Mixop(1,Invparapt(Tmp2,Tmp))
- end;
- Tmp1=(Ak+Bk)*0.5-Face(1);
- Tmp=Dotprod(Tmp1,Vec);
- if Tmp>-Eps
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Out1L($+1)=list(list(Edge(1),Ak),Ne,Nenm);
- Out1L($+1)=list(list(Bk,Edge(2)),Ne,Nenm);
- Out2L($+1)=list(list(Ak,Bk),Ne,Nenm);
- end;
- end;
- end;
- VELNO=Out1L;
- VELHI=Out2L;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.bin
deleted file mode 100644
index e8361324..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.sci
deleted file mode 100755
index 43eab74b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Menkakusi2.sci
+++ /dev/null
@@ -1,186 +0,0 @@
-// 09.10.29
-// 09.11.15
-// 10.08.17 debug (line 66)
-
-function Menkakusi2(Face,Nf,Ptype)
- global THETA PHI EyePoint FocusPoint VELNO VELHI;
- Eps0=10^(-6);
- Eps=10^(-4);
- Tmp1=Face(1)-Face(2);
- Tmp2=Face(3)-Face(2);
- if norm(Tmp1)<Eps | norm(Tmp2)<Eps
- return;
- end;
- Vec=1/norm(Tmp1)/norm(Tmp2)*Crossprod(Tmp1,Tmp2);
- if norm(Vec)<Eps
- return;
- end;
- if Ptype==-1
- W=EyePoint;
- Tmp=Dotprod(Vec,W-Face(1));
- else
- W=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
- W=100*W;
- Tmp=Dotprod(Vec,W-Face(1));
- end;
- if abs(Tmp)<Eps
- return;
- end;
- if Tmp<-Eps
- Vec=-Vec;
- end;
- if Ptype==-1
- G1=Projpers(Spaceline(Face));
- else
- G1=Projpara(Spaceline(Face))
- end;
- VL=list();
- for I=1:Numptcrv(G1)
- VL(I)=Ptcrv(I,G1);
- end;
- Out1L=list();
- Out2L=VELHI;
- for N=1:length(VELNO)
- Out1=list();
- Out2=list();
- Tmp=VELNO(N);
- Edge=Tmp(1);
- Ne=Tmp(2);
- NNe=Tmp(3);
- if Member(Nf,Ne)
- Out1L($+1)=list(Edge,Ne,NNe);
- continue;
- end;
- if Ptype==-1
- PtA=Perspt(Edge(1));
- PtB=Perspt(Edge(2));
- else
- PtA=Parapt(Edge(1));
- PtB=Parapt(Edge(2));
- end;
- if norm(PtA-PtB)<Eps continue; end;
- Bdy=list(G1);
- V=PtB-PtA;
- TenL=KoutenList(PtA,V,Bdy);
- Nten=length(TenL);
- if Nten==0 // 10.08.17
- Out1L($+1)=list(Edge,Ne,NNe);
- continue;
- end;
- Te=0;
- Pe3=Edge(1);
- if Ptype==-1
- Tmp1=Perspt(Pe3);
- Tmp=Invperspt(Tmp1,Spaceline(Face));
- else
- Tmp1=Parapt(Pe3);
- Tmp=Invparapt(Tmp1,Spaceline(Face));
- end;
- Qe3=Tmp(1);
- Flg=0;
- for I=1:Nten
- TenP=TenL(I);
- Ts=TenP(1);
- P=TenP(2);
- if Ts<-Eps
- continue;
- end;
- Eline=Spaceline(Edge);
- if Ptype==-1
- Tmp=Invperspt(P,Eline);
- Tmp1=Invperspt(P,Spaceline(Face));
- else
- Tmp=Invparapt(P,Eline)
- Tmp1=Invparapt(P,Spaceline(Face));
- end;
- P3=Tmp(1); Q3=Tmp1(1);
- if Ts>1-Eps // P3, Q3 are necessary
- Flg=I;
- break;
- end;
- if abs(Te-Ts)>Eps0 //
- if modulo(I,2)==1
- Out1($+1)=list(Pe3,P3);
- else
- if Qe3==[]
- Tmp=Op(2,TenL(I-1));
- if Ptype==-1
- Tmp1=Invperspt(Tmp,Spaceline(Face));
- else
- Tmp1=Invparapt(Tmp,Spaceline(Face));
- end;
- Qe3=Tmp1(1);
- end;
- PM=0.5*(Pe3+P3); QM=0.5*(Qe3+Q3);
- if Ptype==-1
- Z1=Zperspt(PM); Z2=Zperspt(QM);
- else
- Z1=Zparapt(PM); Z2=Zparapt(QM);
- end;
- if Z1>Z2
- Out1($+1)=list(Pe3,P3);
- else
- Out2($+1)=list(Pe3,P3);
- end;
- end;
- end;
- Te=Ts; Pe3=P3; Qe3=Q3;
- end;
- if Flg==0
- if norm(Pe3-Edge(2))>Eps0
- Out1($+1)=list(Pe3,Edge(2));
- end;
- else
- if modulo(Flg,2)==1
- Out1($+1)=list(Pe3,Edge(2));
- else
- PM=0.5*(Pe3+P3); QM=0.5*(Qe3+Q3);
- if Ptype==-1
- Z1=Zperspt(PM); Z2=Zperspt(QM);
- else
- Z1=Zparapt(PM); Z2=Zparapt(QM);
- end;
- if Z1>Z2
- Out1($+1)=list(Pe3,Edge(2));
- else
- Out2($+1)=list(Pe3,Edge(2));
- end;
- end;
- end;
- for I=1:length(Out1)
- Tmp=Out1(I);
- if I==1
- SeL=Tmp;
- else
- if norm(SeL(2)-Tmp(1))<Eps0
- SeL(2)=Tmp(2);
- else
- Out1L($+1)=list(SeL,Ne,NNe);
- SeL=Tmp;
- end;
- end;
- end;
- if length(Out1)>0
- Out1L($+1)=list(SeL,Ne,NNe);
- end;
- for I=1:length(Out2)
- Tmp=Out2(I);
- if I==1
- SeL=Tmp;
- else
- if norm(SeL(2)-Tmp(1))<Eps0
- SeL(2)=Tmp(2);
- else
- Out2L($+1)=list(SeL,Ne,NNe);
- SeL=Tmp;
- end;
- end;
- end;
- if length(Out2)>0
- Out2L($+1)=list(SeL,Ne,NNe);
- end;
- end;
- VELNO=Out1L;
- VELHI=Out2L;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.bin
deleted file mode 100644
index acc02ec0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.sci
deleted file mode 100755
index 4f06c437..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mix.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.20
-// 08.08.08
-
-// Structure changed
-// 09.10.11
-
-function M=Mix(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Da=varargin(I);
- M(I)=Da;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.bin
deleted file mode 100644
index 50f6189c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.sci
deleted file mode 100755
index daf5a2d9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixL.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-
-function M=MixL(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Da=varargin(I);
- M(I)=Da;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.bin
deleted file mode 100644
index 2372bb1f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.sci
deleted file mode 100755
index 623af493..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MixS.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.19
-
-//Structure Changed
-
-// 09.10.11
-
-function M=MixS(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Da=varargin(I);
- M(I)=Da;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.bin
deleted file mode 100644
index 0dbd5427..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.sci
deleted file mode 100755
index 8d45fea1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixadd.sci
+++ /dev/null
@@ -1,23 +0,0 @@
-// 05.14 Data Structure
-// 05.16 List of MixList
-// 05.19 use:MixS, MixL, Mixtype
-// 08.08.17
-
-// Structure changed
-// 09.10.11
-
-function M=Mixadd(varargin)
- Nargs=length(varargin);
- M=list();
- Tmp=varargin(1);
- if length(Tmp)==0
- M(1)=varargin(2);
- else
- M=Tmp;
- M($+1)=varargin(2);
- end;
- for I=3:Nargs
- M($+1)=varargin(I);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.bin
deleted file mode 100644
index 45325b78..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.sci
deleted file mode 100755
index 2fed1197..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixdisp.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-// 10.01.02
-
-function Mixdisp(L)
- if Mixtype(L)==1
- disp(L)
- return;
- end;
- Str=Makeliststr(L);
- disp(Str)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.bin
deleted file mode 100644
index 6ed0a2a6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.sci
deleted file mode 100755
index d6e49c14..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixjoin.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.05.18
-// 08.05.19 Changed
-// 08.08.15
-
-// Structure changed
-// 09.10.11
-
-function M=Mixjoin(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Tmp=varargin(I);
- if length(Tmp)==0
- continue;
- end;
- if Mixtype(Tmp)==1
- Tmp=list(Tmp);
- end;
- if length(M)==0
- M=Tmp;
- else
- M=lstcat(M,Tmp);
- end;
- end;
- if length(M)==0
- M=[];
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.bin
deleted file mode 100644
index b601884d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.sci
deleted file mode 100755
index 6fd31749..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixlength.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.14 Data Structure
-// 08.05.23 Debugged
-
-// Structure changed
-// 09.10.11
-
-function Out=Mixlength(PL)
- if PL==[]
- Out=0;
- return
- end
- if Mixtype(PL)==1
- Out=size(PL,1);
- else
- Out=length(PL);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.bin
deleted file mode 100644
index c607a109..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.sci
deleted file mode 100755
index 7f05a2ab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixmake.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-
-function PL=Mixmake(varargin)
- PL=list();
- for I=1:length(varargin)
- Tmp=varargin(I);
- PL=Mixadd(PL,Tmp);
- end
-endfunction
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.bin
deleted file mode 100644
index 9aa1f9f1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.sci
deleted file mode 100755
index 10c846dc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixop.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 08.05.14 Data Structure
-// 08.04.15 List ex N=1:3
-// 08.05.16 List of MixL
-// 08.05.18 Debugged
-// 08.05.19 Changed
-// 08.08.17
-
-// Structure changed
-// 09.10.11
-
-function D=Mixop(N,PL)
- D=[];
- if Mixtype(PL)==1
- D=PL;
- return;
- end;
- if type(N)~=1 | length(N)>1 | N>Mixlength(PL)
- return
- end;
- D=PL(N);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.bin
deleted file mode 100644
index e2b2ba6a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.sci
deleted file mode 100755
index e3e281f3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixsub.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.19
-// 08.05.20 debugged
-// 08.06.02
-
-// Structure changed
-// 09.10.11
-
-function M=Mixsub(Rg,PL)
- M=list();
- N=Mixlength(PL);
- for I=Rg
- if I>N
- return;
- end;
- M($+1)=PL(I);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.bin
deleted file mode 100644
index 4d786a5d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.sci
deleted file mode 100755
index b336c763..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Mixtype.sci
+++ /dev/null
@@ -1,19 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-
-function T=Mixtype(D)
- if type(D)~=15
- T=1;
- return;
- end;
- for I=1:length(D)
- if type(D(I))==15
- T=3;
- return;
- end;
- end;
- T=2;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.bin
deleted file mode 100644
index aa1e8c72..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.sci
deleted file mode 100755
index 8a4f0557..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naigai.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.18
-// 08.05.20
-
-function Ptn=Naigai(A,Bdy)
- V=[1,1];
- Call=Mixlength(Bdy);
- KL=KoutenList(A,V,Bdy);
- Ptn=zeros(1,Call);
- for K=1:Mixlength(KL)
- Ten=Op(K,KL);
- T=Op(1,Ten); NC=Op(4,Ten);
- if T<0
- Tmp=modulo(Ptn(NC)+1,2);
- Ptn(1,NC)=Tmp;
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.bin
deleted file mode 100644
index 0c5dc7b1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.sci
deleted file mode 100755
index 193ad384..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Naiseki.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function N=Naiseki(a,b)
- N=a*b';
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.bin
deleted file mode 100644
index 59d31369..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.sci
deleted file mode 100755
index a404370a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nearestpt.sci
+++ /dev/null
@@ -1,53 +0,0 @@
-// 08.05.31
-// 08.06.03
-// 08.10.07
-
-function Ans=Nearestpt(varargin)
- Nargs=length(varargin);
- PL1=varargin(1);
- if size(PL1,1)==1
- Flg=0;
- else
- Flg=1
- end
- Eps=10.0^(-6);
-// Fig=varargin(2);
- PL=varargin(2);
- Ans=MixS(PL1(1,:),1,PL(1,:),1,norm(PL1(1,:)-PL(1,:)));
- for N=1:size(PL1,1)
- PA=PL1(N,:);
- Pm=PL(1,:);
- Im=1;
- Sm=norm(Pm-PA);
- for I=1:size(PL,1)-1
- A1=PL(I,1); A2=PL(I,2);
- B1=PL(I+1,1); B2=PL(I+1,2);
- V1=B1-A1; V2=B2-A2;
- X1=PA(1); X2=PA(2);
- Tmp=V2^2+V1^2;
- if abs(Tmp)<Eps
- continue;
- end;
- T=(-A2*V2-V1*A1+V1*X1+X2*V2)/Tmp;
- if T<-Eps
- P=[A1,A2];
- elseif T>1+Eps
- P=[B1,B2];
- else
- P=[A1+T*V1,A2+T*V2];
- end
- S=norm(P-PA);
- if S<Sm-Eps
- Tmp=ParamonCurve(P,I,PL);
- Pm=P; Im=Tmp; Sm=S;
- end
- end
- if Sm<Op(5,Ans)
- Ans=MixS(PA,N,Pm,Im,Sm);
- end
- end
- if Flg==0
- Ans=Mixsub(3:5,Ans);
- end
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.bin
deleted file mode 100644
index 038306fb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.sci
deleted file mode 100755
index 9e0227e8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Newlength.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-function Newlength(varargin)
- if length(varargin)==0
- Kyorihensuu();
- else
- FL=varargin(1);
- Kyorihensuu(FL);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.bin
deleted file mode 100644
index 701b77db..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.sci
deleted file mode 100755
index 3826b281..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara.sci
+++ /dev/null
@@ -1,254 +0,0 @@
-// 08.09.13
-// 09.12.31 (gsort)
-
-function FigkL=Nohiddenpara(varargin)
- global HIDDENDATA THETA PHI;
- Eps=0.001;
- PaL=varargin(1);
- Fk=varargin(2);
- FuncdL=varargin(3);
- Tmp=Mixop(1,FuncdL);
- Fxy=Mixop(1,Tmp);
- K=mtlb_findstr(Fxy,'=');
- Fxy=part(Fxy,K+1:length(Fxy));
- Fbdxy=Mixop(2,FuncdL);
- Tmp=Mixop(3,FuncdL);
- Xname=Mixop(1,Tmp);
- Tmp=Mixop(4,FuncdL);
- Yname=Mixop(1,Tmp);
- FigkL=[];
- if Fbdxy==[]
- return;
- end;
- Bdy=Kyoukai(Fbdxy);
- Ptn=0;
- Fh=Projpara(Fk);
- SeL=[];
- for N=1:length(PaL)-1
- S=(PaL(N)+PaL(N+1))/2;
- P=PointonCurve(S,Fh);
- Tmp=Invparapt(S,Fh,Fk)
- Pk=Mixop(1,Tmp);
- Qk=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
- Flg=zeros(1,Mixlength(Fbdxy));
- for I=1:1000
- Tmp=Pk+I*10*Qk;
- Tmp1=Naigai(Tmp(1:2),Bdy);
- if Tmp1==Flg
- Flg=1;
- Qk=Tmp;
- break;
- end;
- end;
- if Flg~=1
- disp('Bad EyePoint');
- return;
- end;
- T=poly(0,'t');
- P0=(1-T)*Pk+T*Qk;
- X0str='('+pol2str(P0(1))+')';
- Y0str='('+pol2str(P0(2))+')';
- Z0str='('+pol2str(P0(3))+')';
- Tmp=strsubst(Fxy,Xname,X0str);
- Tmp=strsubst(Tmp,Yname,Y0str);
- Efn=Z0str+'-('+Tmp+')';
- t=0;
- Tmp=evstr(Efn);
- Eps=max(Eps,abs(Tmp));
- Tmp1=evstr([X0str,Y0str]);
- t=1;
- Tmp2=evstr([X0str,Y0str]);
- Seg=Listplot([Tmp1,Tmp2]);
- Tmp=[];
- for I=1:Mixlength(Fbdxy)
- Tmp2=Mixop(I,Fbdxy);
- Tmp1=IntersectcrvsPp(Seg,Tmp2,Eps);
- if Mixlength(Tmp1)>0
- Tmp2=[];
- for J=1:Mixlength(Tmp1)
- Tmp3=Mixop(J,Tmp1);
- Tmp3=Mixop(2,Tmp3)-1;
- Tmp2=[Tmp2,Tmp3];
- end;
- Tmp=[Tmp,Tmp2];
- else
- Tmp2=Mixop(I,Fbdxy);
- Tmp1=Nearestpt(Tmp2,Seg);
- Tmp3=Mixop(5,Tmp1);
- if Tmp3<Eps
- Tmp4=Mixop(4,Tmp1);
- Tmp=[Tmp,Tmp4-1];
- end;
- end;
- end;
- if length(Tmp)==0
- SeL=[SeL,N];
- continue;
- end;
- Tmp=gsort(Tmp);
- Tmp=Tmp(length(Tmp):-1:1);
- ParamL=[0];
- for I=1:length(Tmp)
- Tmp1=Tmp(I);
- Tmp2=ParamL(length(ParamL));
- if Tmp1-Tmp2>Eps
- ParamL=[ParamL,Tmp1];
- end;
- end;
- Nhdflg=0;
- for M=1:length(ParamL)-1
- TL=[ParamL(M),ParamL(M+1)];
- t=TL(1);
- Tmp1=evstr([X0str,Y0str]);
- t=TL(2);
- Tmp2=evstr([X0str,Y0str]);
- Tmp=Naigai(0.5*(Tmp1+Tmp2),Bdy);
- Tmp=modulo(sum(Tmp),2);
- if Tmp==Ptn continue; end;
- Ik=max(ceil(log((TL(2)-TL(1))/Eps)/log(2)),6);
- t=TL(1);
- Tmp1=evstr(Efn);
- t=TL(2);
- Tmp2=evstr(Efn);
- if abs(Tmp1)<=Eps
- if M>1
- Nhdflg=-10;
- break;
- end;
- end;
- if abs(Tmp2)<=Eps
- Nhdflg=-10;
- break;
- end;
- if Tmp2>Eps
- if Tmp1<-Eps
- Nhdflg=-10;
- break;
- end;
- for I=1:Ik
- AddL=[];
- VL=[];
- for J=1:length(TL)-1
- Tmp=(TL(J)+TL(J+1))*0.5;
- AddL=[AddL,Tmp];
- t=Tmp;
- Tmp1=evstr(Efn);
- VL=[VL,Tmp1];
- end;
- Tmp1=min(VL);
- if Tmp1<=-Eps*2
- Nhdflg=-10;
- break;
- end;
- TL=gsort([TL,AddL]);
- end;
- if Nhdflg~=0 break; end;
- else
- if Tmp1<-Eps
- Nhdflg=-10;
- break;
- end;
- for I=1:Ik
- AddL=[];
- VL=[];
- for J=1:length(TL)-1
- Tmp=(TL(J)+TL(J+1))*0.5;
- AddL=[AddL,Tmp];
- t=Tmp;
- Tmp1=evstr(Efn);
- VL=[VL,Tmp1];
- end;
- Tmp1=max(VL);
- if Tmp1>Eps*2
- Nhdflg=-10;
- break;
- end;
- TL=gsort([TL,AddL]);
- end;
- if Nhdflg~=0 break; end;
- end;
- end;
- if Nhdflg==0
- SeL=[SeL,N];
- end;
- end;
- FigL=[];
- FigkL=[];
- for I=1:length(SeL)
- Tmp1=PointonCurve(PaL(SeL(I)),Fh);
- Tmp2=PointonCurve(PaL(SeL(I)+1),Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh));
- Tmp3=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- Tmp4=Partcrv3(TP,TQ,Fk)
- FigkL=Mixadd(FigkL,Tmp4);
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps
- FigL=Mixadd(FigL,Partcrv(P,Q,Fh));
- Tmp3=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk));
- else
- FigL=Mixadd(FigL,Fh);
- FigkL=Mixadd(FigkL,Fk);
- end;
- end;
- Tmp=[];
- for I=1:length(PaL)-1
- if ~Member(I,SeL)
- Tmp=[Tmp,I];
- end;
- end;
- SeL=Tmp;
- HIDDENDATA=[];
- for I=1:length(SeL)
- Tmp=PaL(SeL(I));
- Tmp1=PointonCurve(Tmp,Fh);
- Tmp=PaL(SeL(I)+1);
- Tmp2=PointonCurve(Tmp,Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- Tmp=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps
- Tmp=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- else
- HIDDENDATA=Mixadd(HIDDENDATA,Fk);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.bin
deleted file mode 100644
index cbc317ca..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.sci
deleted file mode 100755
index 996559db..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpara2.sci
+++ /dev/null
@@ -1,131 +0,0 @@
-// 08.10.10
-// 08.10.15
-// 09.06.24
-// 10.02.16 Eps
-
-function FigkL=Nohiddenpara2(PaL,Fk,Fd,Uveq,Np,Eps)
- global HIDDENDATA THETA PHI TMP;
- Eps0=10^(-5);
- Fh=Projpara(Fk);
- P1=Ptstart(Fh);
- P2=Ptend(Fh);
- Csp=CuspPt();
- Cspflg=1;
- for I=1:Mixlength(Csp)
- Tmp=Mixop(I,Csp);
- if norm(Tmp-P1)<Eps0
- select Cspflg,
- case 1 then Cspflg=2,
- case 3 then Cspflg=6;
- end;
- continue;
- end;
- if norm(Tmp-P2)<Eps0
- select Cspflg,
- case 1 then Cspflg=3,
- case 2 then Cspflg=6;
- end;
- continue;
- end;
- end;
- SeL=[];
- for N=1:length(PaL)-1
- S=(PaL(N)+PaL(N+1))/2;
- Tmp=Invparapt(S,Fh,Fk);
- PtA=Mixop(1,Tmp);
- PtAp=Parapt(PtA);
- Vec=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
- Epstmp=Eps;
- if N==1 & modulo(Cspflg,2)==0
- Tmp=min(Eps(1)*norm(PtAp-Ptstart(Fh)),Eps(1)); //
- Epstmp=[Tmp,Eps(2)]; //
- end;
- if N==length(PaL)-1 & modulo(Cspflg,3)==0
- Tmp=min(Eps(1)*norm(PtAp-Ptend(Fh)),Eps(1)); //
- Epstmp=[Tmp,Eps(2)]; //
- end;
- Flg=PthiddenQ(PtA,Vec,Fd,Uveq,Np,Epstmp);
- if Flg==0
- SeL=[SeL,N];
- end;
- end;
- FigL=[];
- FigkL=[];
- for I=1:length(SeL)
- Tmp1=PointonCurve(PaL(SeL(I)),Fh);
- Tmp2=PointonCurve(PaL(SeL(I)+1),Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh));
- Tmp3=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- Tmp4=Partcrv3(TP,TQ,Fk)
- FigkL=Mixadd(FigkL,Tmp4);
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps(1) //
- FigL=Mixadd(FigL,Partcrv(P,Q,Fh));
- Tmp3=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk));
- else
- FigL=Mixadd(FigL,Fh);
- FigkL=Mixadd(FigkL,Fk);
- end;
- end;
- Tmp=[];
- for I=1:length(PaL)-1
- if ~Member(I,SeL)
- Tmp=[Tmp,I];
- end;
- end;
- SeL=Tmp;
- HIDDENDATA=[];
- for I=1:length(SeL)
- Tmp=PaL(SeL(I));
- Tmp1=PointonCurve(Tmp,Fh);
- Tmp=PaL(SeL(I)+1);
- Tmp2=PointonCurve(Tmp,Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- Tmp=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps(1) //
- Tmp=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- else
- HIDDENDATA=Mixadd(HIDDENDATA,Fk);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.bin
deleted file mode 100644
index 1ad435a7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.sci
deleted file mode 100755
index 140516b1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers.sci
+++ /dev/null
@@ -1,253 +0,0 @@
-// 08.09.21
-// 09.12.31 (gsort)
-
-function FigkL=Nohiddenpers(varargin)
- global EyePoint FocusPoint HIDDENDATA;
- Eps=0.001;
- PaL=varargin(1);
- Fk=varargin(2);
- FuncdL=varargin(3);
- Tmp=Mixop(1,FuncdL);
- Fxy=Mixop(1,Tmp);
- K=mtlb_findstr(Fxy,'=');
- Fxy=part(Fxy,K+1:length(Fxy));
- Fbdxy=Mixop(2,FuncdL);
- Tmp=Mixop(3,FuncdL);
- Xname=Mixop(1,Tmp);
- Tmp=Mixop(4,FuncdL);
- Yname=Mixop(1,Tmp);
- FigkL=[];
- if Fbdxy==[]
- return;
- end;
- Bdy=Kyoukai(Fbdxy);
- Ptn=0;
- Fh=Projpers(Fk);
- SeL=[];
- for N=1:length(PaL)-1
- S=(PaL(N)+PaL(N+1))/2;
- P=PointonCurve(S,Fh);
- Tmp=Invperspt(S,Fh,Fk)
- Pk=Mixop(1,Tmp);
- Flg=zeros(1,Mixlength(Fbdxy));
- for I=1:1000
- Tmp=Pk+I*(EyePoint-Pk);
- Tmp1=Naigai(Tmp(1:2),Bdy);
- if Tmp1==Flg
- Flg=1;
- Qk=Tmp;
- break;
- end;
- end;
- if Flg~=1
- disp('Bad EyePoint');
- return;
- end;
- T=poly(0,'t');
- P0=(1-T)*Pk+T*Qk;
- X0str='('+pol2str(P0(1))+')';
- Y0str='('+pol2str(P0(2))+')';
- Z0str='('+pol2str(P0(3))+')';
- Tmp=strsubst(Fxy,Xname,X0str);
- Tmp=strsubst(Tmp,Yname,Y0str);
- Efn=Z0str+'-('+Tmp+')';
- t=0;
- Tmp=evstr(Efn);
- Eps=max(Eps,abs(Tmp));
- Tmp1=evstr([X0str,Y0str]);
- t=1;
- Tmp2=evstr([X0str,Y0str]);
- Seg=Listplot([Tmp1,Tmp2]);
- Tmp=[];
- for I=1:Mixlength(Fbdxy)
- Tmp2=Mixop(I,Fbdxy);
- Tmp1=IntersectcrvsPp(Seg,Tmp2,Eps);
- if Mixlength(Tmp1)>0
- Tmp2=[];
- for J=1:Mixlength(Tmp1)
- Tmp3=Mixop(J,Tmp1);
- Tmp3=Mixop(2,Tmp3)-1;
- Tmp2=[Tmp2,Tmp3];
- end;
- Tmp=[Tmp,Tmp2];
- else
- Tmp2=Mixop(I,Fbdxy);
- Tmp1=Nearestpt(Tmp2,Seg);
- Tmp3=Mixop(5,Tmp1);
- if Tmp3<Eps
- Tmp4=Mixop(4,Tmp1);
- Tmp=[Tmp,Tmp4-1];
- end;
- end;
- end;
- if length(Tmp)==0
- SeL=[SeL,N];
- continue;
- end;
- Tmp=gsort(Tmp);
- Tmp=Tmp(length(Tmp):-1:1);
- ParamL=[0];
- for I=1:length(Tmp)
- Tmp1=Tmp(I);
- Tmp2=ParamL(length(ParamL));
- if Tmp1-Tmp2>Eps
- ParamL=[ParamL,Tmp1];
- end;
- end;
- Nhdflg=0;
- for M=1:length(ParamL)-1
- TL=[ParamL(M),ParamL(M+1)];
- t=TL(1);
- Tmp1=evstr([X0str,Y0str]);
- t=TL(2);
- Tmp2=evstr([X0str,Y0str]);
- Tmp=Naigai(0.5*(Tmp1+Tmp2),Bdy);
- Tmp=modulo(sum(Tmp),2);
- if Tmp==Ptn continue; end;
- Ik=max(ceil(log((TL(2)-TL(1))/Eps)/log(2)),6);
- t=TL(1);
- Tmp1=evstr(Efn);
- t=TL(2);
- Tmp2=evstr(Efn);
- if abs(Tmp1)<=Eps
- if M>1
- Nhdflg=-10;
- break;
- end;
- end;
- if abs(Tmp2)<=Eps
- Nhdflg=-10;
- break;
- end;
- if Tmp2>Eps
- if Tmp1<-Eps
- Nhdflg=-10;
- break;
- end;
- for I=1:Ik
- AddL=[];
- VL=[];
- for J=1:length(TL)-1
- Tmp=(TL(J)+TL(J+1))*0.5;
- AddL=[AddL,Tmp];
- t=Tmp;
- Tmp1=evstr(Efn);
- VL=[VL,Tmp1];
- end;
- Tmp1=min(VL);
- if Tmp1<=-Eps*2
- Nhdflg=-10;
- break;
- end;
- TL=gsort([TL,AddL]);
- end;
- if Nhdflg~=0 break; end;
- else
- if Tmp1<-Eps
- Nhdflg=-10;
- break;
- end;
- for I=1:Ik
- AddL=[];
- VL=[];
- for J=1:length(TL)-1
- Tmp=(TL(J)+TL(J+1))*0.5;
- AddL=[AddL,Tmp];
- t=Tmp;
- Tmp1=evstr(Efn);
- VL=[VL,Tmp1];
- end;
- Tmp1=max(VL);
- if Tmp1>Eps*2
- Nhdflg=-10;
- break;
- end;
- TL=gsort([TL,AddL]);
- end;
- if Nhdflg~=0 break; end;
- end;
- end;
- if Nhdflg==0
- SeL=[SeL,N];
- end;
- end;
- FigL=[];
- FigkL=[];
- for I=1:length(SeL)
- Tmp1=PointonCurve(PaL(SeL(I)),Fh);
- Tmp2=PointonCurve(PaL(SeL(I)+1),Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh));
- Tmp3=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- Tmp4=Partcrv3(TP,TQ,Fk)
- FigkL=Mixadd(FigkL,Tmp4);
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps
- FigL=Mixadd(FigL,Partcrv(P,Q,Fh));
- Tmp3=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk));
- else
- FigL=Mixadd(FigL,Fh);
- FigkL=Mixadd(FigkL,Fk);
- end;
- end;
- Tmp=[];
- for I=1:length(PaL)-1
- if ~Member(I,SeL)
- Tmp=[Tmp,I];
- end;
- end;
- SeL=Tmp;
- HIDDENDATA=[];
- for I=1:length(SeL)
- Tmp=PaL(SeL(I));
- Tmp1=PointonCurve(Tmp,Fh);
- Tmp=PaL(SeL(I)+1);
- Tmp2=PointonCurve(Tmp,Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- Tmp=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps
- Tmp=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- else
- HIDDENDATA=Mixadd(HIDDENDATA,Fk);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.bin
deleted file mode 100644
index 7de094a4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.sci
deleted file mode 100644
index d49bce91..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Nohiddenpers2.sci
+++ /dev/null
@@ -1,134 +0,0 @@
-// 08.10.11
-// 08.10.12
-// 08.10.15
-// 09.06.24
-// 10.02.16 Eps
-// 11.04.12 Eps0 (bug)
-// 13.11.02 bug
-
-function FigkL=Nohiddenpers2(PaL,Fk,Fd,Uveq,Np,Eps)
- global EyePoint FocusPoint HIDDENDATA;
- Eps0=10^(-5); // 11.04.12
- Fh=Projpers(Fk);
- P1=Ptstart(Fh);
- P2=Ptend(Fh);
- Csp=CuspPt();
- Cspflg=1;
- for I=1:Mixlength(Csp)
- Tmp=Mixop(I,Csp);
- if norm(Tmp-P1)<Eps0
- select Cspflg,
- case 1 then Cspflg=2,
- case 3 then Cspflg=6;
- end;
- continue;
- end;
- if norm(Tmp-P2)<Eps0
- select Cspflg,
- case 1 then Cspflg=3,
- case 2 then Cspflg=6;
- end;
- continue;
- end;
- end;
- SeL=[];
- for N=1:length(PaL)-1
- S=(PaL(N)+PaL(N+1))/2;
- Tmp=Invperspt(S,Fh,Fk)
- PtA=Mixop(1,Tmp);
- PtAp=Perspt(PtA);
-// Vec=EyePoint-FocusPoint;
- Vec=EyePoint-PtA; // 2013.11.02
- Epstmp=Eps; // 2011.04.12
- if N==1 & modulo(Cspflg,2)==0
- Tmp=min(Eps(1)*norm(PtAp-Ptstart(Fh)),Eps(1)); //
- Epstmp=[Tmp,Eps(2)]; //
- end;
- if N==length(PaL)-1 & modulo(Cspflg,3)==0
- Tmp=min(Eps(1)*norm(PtAp-Ptend(Fh)),Eps(1)); //
- Epstmp=[Tmp,Eps(2)]; //
- end;
- Flg=PthiddenQ(PtA,Vec,Fd,Uveq,Np,Epstmp);
- if Flg==0
- SeL=[SeL,N];
- end;
- end;
- FigL=[];
- FigkL=[];
- for I=1:length(SeL)
- Tmp1=PointonCurve(PaL(SeL(I)),Fh);
- Tmp2=PointonCurve(PaL(SeL(I)+1),Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh));
- Tmp3=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- Tmp4=Partcrv3(TP,TQ,Fk)
- FigkL=Mixadd(FigkL,Tmp4);
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps(1) //
- FigL=Mixadd(FigL,Partcrv(P,Q,Fh));
- Tmp3=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk));
- else
- FigL=Mixadd(FigL,Fh);
- FigkL=Mixadd(FigkL,Fk);
- end;
- end;
- Tmp=[];
- for I=1:length(PaL)-1
- if ~Member(I,SeL)
- Tmp=[Tmp,I];
- end;
- end;
- SeL=Tmp;
- HIDDENDATA=[];
- for I=1:length(SeL)
- Tmp=PaL(SeL(I));
- Tmp1=PointonCurve(Tmp,Fh);
- Tmp=PaL(SeL(I)+1);
- Tmp2=PointonCurve(Tmp,Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- Tmp=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps(1) //
- Tmp=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- else
- HIDDENDATA=Mixadd(HIDDENDATA,Fk);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.bin
deleted file mode 100644
index dff5f719..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.sci
deleted file mode 100755
index dad4f4ef..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Numptcrv.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function N=Numptcrv(Fig)
- N=size(Fig,1)
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.bin
deleted file mode 100644
index 544abced..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.sci
deleted file mode 100644
index 20a86640..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objcurve.sci
+++ /dev/null
@@ -1,115 +0,0 @@
-// s : 2014.06.22
-// 2014.08.26 debugged 1,-1 => "+","-"
-// 2014.09.07 Objjoin added
-// 2016.10.09 Np in Spacecurve changed
-
-function Out=Objcurve(varargin)
- global OBJFIGNO OBJJOIN
- Eps=10^(-6);
- Args=varargin;
- Nargs=length(Args)
- Tmp=Args(1);
- PtL=Flattenlist(Tmp);
- PL=list();
- for J=1:length(PtL)
- Tmp=PtL(J);
- for K=1:size(Tmp,1)
- PL=lstcat(PL,list(Tmp(K,:)))
- end;
- end;
- Closed=norm(PL(length(PL))-PL(1))<Eps
- Pstr="xy";
- Tmp=Args(Nargs)
- if type(Tmp)==10 then
- Pstr=Tmp;
- Nargs=Nargs-1
- end;
- Sz=0.1;
- Np=4;
- if Nargs>=2 then
- Sz=Args(2)
- end;
- if Nargs>=3 then
- Np=Args(3)
- end;
- Assign("Sz",Sz)
- if Pstr=="xy" then
- Vz=[0,0,1];
- Fs=Assign("[Sz*cos(t),Sz*sin(t),0]")
- end;
- if Pstr=="yz" then
- Vz=[1,0,0];
- Fs=Assign("[0,Sz*cos(t),Sz*sin(t)]")
- end;
- if Pstr=="zx" then
- Vz=[0,1,0];
- Fs=Assign("[Sz*sin(t),0,Sz*cos(t)]")
- end;
- Gc0=Spacecurve(Fs,"t=[0,2*%pi]","N="+string(Np));//16.10.09
- P=PL(1); Q=PL(2); R=PL(length(PL)-1);
- PQ1=Q-P;
- if ~Closed then
- PQ2=PQ1
- else
- PQ2=P-R
- end;
- Vp=PQ1/norm(PQ1)+PQ2/norm(PQ2);
- Vp1=Vp/norm(Vp);
- Theta=acos(min(Dotprod(Vz,Vp1),1));
- Vj=Crossprod(Vz,Vp1);
- if norm(Vj)<Eps then
- Vj=Vz
- end;
- Gc1=Rotate3data(Gc0,Vj,Theta);
- CL=list(Translate3data(Gc1,P));
- for J=2:(length(PL)-1)
- P=PL(J); Q=PL(J+1);
- PQ2=Q-P;
- if norm(PQ2)<Eps then
- continue
- end;
- Vp=PQ1/norm(PQ1)+PQ2/norm(PQ2);
- Vp2=Vp/norm(Vp);
- Theta=acos(min(Dotprod(Vp1,Vp2),1));
- Vj=Crossprod(Vp1,Vp2);
- if norm(Vj)<Eps then
- Vj=Vp1
- end;
- Gc2=Rotate3data(Gc1,Vj,Theta);
- CL=lstcat(CL,list(Translate3data(Gc2,P)));
- PQ1=PQ2;
- Vp1=Vp2;
- Gc1=Gc2;
- end;
- if ~Closed then
- Vp2=(Q-P)/norm(Q-P);
- Theta=acos(min(Dotprod(Vp1,Vp2),1));
- Vj=Crossprod(Vp1,Vp2);
- if norm(Vj)<Eps then
- Vj=Vp1
- end;
- Gc3=Rotate3data(Gc1,Vj,Theta);
- CL=lstcat(CL,list(Translate3data(Gc3,Q)))
- end;
- Objname(); // from 140907
- Join=Objjoin();
- Objjoin(1); // upto
- GL1=CL(1);
- for J=2:length(CL)
- GL2=CL(J);
- Dt=Objrecs(GL1,GL2,"-");
- GL1=Dt(2);
- if J==2 then
- GL0=Dt(1)
- end;
- end;
- if ~Closed then
- Objpolygon(CL(1),"-");
- N=length(CL);
- Objpolygon(CL(N),"+")
- else
- Objrecs(GL1,GL0,"-")
- end;
- Out=CL
- OBJJOIN=Join; // 140907
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.bin
deleted file mode 100644
index 9b530ae6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.sci
deleted file mode 100644
index e8a80ff3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objjoin.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// s: 2014.09.07
-
-function Out=Objjoin(varargin)
- global OBJJOIN
- if length(varargin)>0
- OBJJOIN=abs(sign(varargin(1)))
- end;
- Out=OBJJOIN
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.bin
deleted file mode 100644
index c1e415ab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.sci
deleted file mode 100644
index 6c523fc2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objname.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-// s: 2014.09.07
-
-function Objname()
- global OBJFIGNO OBJJOIN
- if OBJJOIN==0 then
- OBJFIGNO=OBJFIGNO+1;
- Gname="ketfig"+string(OBJFIGNO);
- Printobjstr("# "+Gname);
- Printobjstr("g "+Gname);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.bin
deleted file mode 100644
index ad6e0eba..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci
deleted file mode 100644
index ba5b346a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// s : 2014.06.22
-// 14.09.07 Objjoin added
-
-function Out=Objpolygon(varargin)
- global OBJFIGNO OBJJOIN
- Eps=10^(-6);
- Args=varargin;
- Nargs=length(Args);
- Tmp=Args(1);
- PtL=Flattenlist(Tmp);
- PL=list();
- for J=1:length(PtL)
- Tmp=PtL(J);
- for K=1:size(Tmp,1)
- PL=lstcat(PL,list(Tmp(K,:)))
- end;
- end;
- Sel=Args(Nargs); Nargs=Nargs-1;
- Objname(); // 140907
- for J=1:length(PL)
- P=PL(J);
- if (length(P)<4) | (P(4)==0) then
- Np=Writeobjpoint(P);
- PL(J)=[P(1:3),Np]
- end;
- end;
- if Nargs==1 then
- Tmp=PL(1);
- Cen=Tmp(1:3);
- Nc=Tmp(4)
- else
- Tmp=Args(2);
- if length(Tmp)==1 then
- Tmp1=PL(Tmp);
- Cen=Tmp1(1:3);
- Nc=Tmp(4)
- else
- Cen=Tmp;
- Nc=Writeobjpoint(Cen)
- end;
- end;
- for J=1:length(PL)
- if J<length(PL) then
- Je=J+1
- else
- Je=1
- end;
- Pt1=Cen;
- PLj=PL(J); PLje=PL(Je);
- Pt2=PLj(1:3); Pt3=PLje(1:3);
- if norm(Crossprod(Pt2-Pt1,Pt3-Pt1))<Eps then
- continue
- end;
- P1=sprintf("%1d",Nc);
- P2=sprintf("%1d",PLj(4))
- P3=sprintf("%1d",PLje(4))
- if Sel=="+" then // 6.22
- Str="f "+P1+" "+P2+" "+P3+" "
- else
- Str="f "+P1+" "+P3+" "+P2+" "
- end;
- Printobjstr(Str)
- end;
- Out=PL
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.bin
deleted file mode 100644
index a0fdf444..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci
deleted file mode 100644
index c33e23a8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolyhedron.sci
+++ /dev/null
@@ -1,25 +0,0 @@
-// s : 2014.06.22
-// 14.09.07 Objjoin added
-
-function Out=Objpolyhedron(Vertex,Face)
- global NPOINT OBJFIGNO;
- OBJFIGNO=OBJFIGNO+1;
- Ninit=NPOINT;
- Objname(); // 140907
- for N=1:length(Vertex)
- P=Vertex(N);
- Np=Writeobjpoint(P);
- Vertex(N)=[P(1:3),Np]
- end;
- for N=1:length(Face)
- F=Face(N)+Ninit;
- Face(N)=F;
- Str="f"
- for J=1:length(F)
- P=sprintf("%1d",F(J));
- Str=Str+" "+P
- end;
- Printobjstr(Str)
- end;
- Out=list(Vertex,Face)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.bin
deleted file mode 100644
index 4f7b55de..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.sci
deleted file mode 100644
index d8775fb3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objrecs.sci
+++ /dev/null
@@ -1,87 +0,0 @@
-// s : 2014.06.22
-// 2014.09.07 Objjoin added
-
-function Out=Objrecs(varargin)
- global OBJFIGNO OBJJOIN
- Eps=10^(-6);
- Args=varargin;
- Nargs=length(Args);
- Tmp=Args(1);
- PtL=Flattenlist(Tmp);
- PL1=list();
- for J=1:length(PtL)
- Tmp=PtL(J);
- for K=1:size(Tmp,1)
- PL1=lstcat(PL1,list(Tmp(K,:)))
- end;
- end;
- Sel=Args(Nargs); Nargs=Nargs-1;
- Objname(); // // 140907
- for J=1:length(PL1)
- P=PL1(J)
- if (length(P)<4) | (P(4)==0) then
- Np=Writeobjpoint(P);
- PL1(J)=[P(1:3),Np];
- end;
- end;
- Tmp=Args(2);
- if (type(Tmp)==1) & (size(Tmp,1)==1) then
- Drv=Tmp;
- Len=norm(Drv);
- PL2=list();
- for J=1:length(PL1)
- Tmp=PL1(J);
- P=Tmp(1:3)+Drv;
- Np=Writeobjpoint(P);
- PL2=lstcat(PL2,list([P(1:3),Np]));
- if J<length(PL1) then
- Vec=PL1(J+1)-PL1(J);
- if norm(Vec)>Eps then
- Tmp1=Crossprod(Drv,Vec);
- Tmp2=Crossprod(Tmp1,Vec);
- Tmp3=Dotprod(Tmp2,Drv);
- if Tmp3<-Eps then
- Tmp2=-Tmp2
- end;
- Drv=Len/norm(Tmp2)*Tmp2
- end
- end
- end
- else
- PtL=Flattenlist(Tmp);
- PL2=list();
- for J=1:length(PtL)
- Tmp=PtL(J);
- for K=1:size(Tmp,1)
- PL2=lstcat(PL2,list(Tmp(K,:)))
- end;
- end;
- for J=1:length(PL2)
- P=PL2(J);
- if (length(P)<4) | (P(4)==0) then
- Np=Writeobjpoint(P);
- PL2(J)=[P(1:3),Np]
- end;
- end;
- end;
- Printobjstr("vt 0 0");
- Printobjstr("vt 1 0");
- Printobjstr("vt 1 1");
- Printobjstr("vt 0 1");
- for J=2:length(PL1)
- P1=sprintf("%1d",Op(4,PL1(J-1)));
- P2=sprintf("%1d",Op(4,PL2(J-1)));
- P3=sprintf("%1d",Op(4,PL2(J)));
- P4=sprintf("%1d",Op(4,PL1(J)));
- N1=""; N2=""; N3=""; N4="";
- if Sel=="+" then // 6.22
- Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" ";
- Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4;
- else
- Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" ";
- Str=Str+P3+"/3/"+N3+" "+P2+"/2/"+N2;
- end;
- Printobjstr(Str)
- end;
- Out=list(PL1,PL2)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.bin
deleted file mode 100644
index 122e0986..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.sci
deleted file mode 100644
index 15543b8a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsurf.sci
+++ /dev/null
@@ -1,114 +0,0 @@
-// s : 2014.06.22
-// e : 2014.07.18
-// Objsurf, Objthicksurf : Range argments changed
-// 2014.09.07 Objjoin added
-
-function Out=Objsurf(varargin)
- global OBJFIGNO OBJJOIN
- Args=varargin;
- Nargs=length(Args);
- Sel=Args(Nargs); Nargs=Nargs-1;
- Rf=Args(1);
- N=2;
- Mg=0; Ng=0;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- U=Args(N);
- Mg=length(U)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- else
- Ag=Args(N); Bg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- end;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- V=Args(N);
- Ng=length(V)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- else
- Cg=Args(N); Dg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- end;
- if Mg==0 then
- Mg=Args(N);
- N=N+1;
- U=[];
- for J=1:(Mg+1)
- U=[U,Ag+(J-1)/Mg*(Bg-Ag)];
- end;
- end;
- if Ng==0 then
- Ng=Args(N);
- V=[];
- for K=1:(Ng+1)
- V=[V,Cg+(K-1)/Ng*(Dg-Cg)];
- end;
- end;
- Objname(); // // 140907
- PL=list();
- for J=1:(Mg+1)
- for K=1:(Ng+1)
- P=Rf(U(J),V(K));
- Np=Writeobjpoint(P)
- PL=lstcat(PL,list([P,Np]));
- end;
- end;
- Idx=1:(Ng+1):(Ng+1)*Mg+1;
- Pus=Mixsub(Idx,PL);
- Idx=(Ng+1):(Ng+1):(Ng+1)*(Mg+1);
- Pue=Mixsub(Idx,PL);
- Idx=1:1:Ng+1;
- Pvs=Mixsub(Idx,PL);
- Idx=(Ng+1)*Mg+1:1:(Ng+1)*(Mg+1);
- Pve=Mixsub(Idx,PL);
- Printobjstr("vt 0 0");
- Printobjstr("vt 1 0");
- Printobjstr("vt 1 1");
- Printobjstr("vt 0 1");
- for J=1:Mg
- for K=1:Ng
- P1=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K)))
- P2=sprintf("%1d",Op(4,PL((Ng+1)*J+K)))
- P3=sprintf("%1d",Op(4,PL((Ng+1)*J+K+1)))
- P4=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K+1)))
- N1=""; N2=""; N3=""; N4="";
- if Sel=="+" then // 6.22
- Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" ";
- Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4;
- else
- Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" ";
- Str=Str+P3+"/3/"+N3+" "+P2+"/2/",N2;
- end;
- Printobjstr(Str)
- end;
- end;
- Out=list(U,V,Pus,Pue,Pvs,Pve)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.bin
deleted file mode 100644
index 733ab14d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.sci
deleted file mode 100644
index 808924a4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objsymb.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// s : 2014.08.25
-
-function Objsymb(Symb,Thick,Face,Dir)
- for J=1:length(Symb)
- Objcurve(Symb(J),Thick,Face,Dir);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.bin
deleted file mode 100644
index 6c85bcca..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.sci
deleted file mode 100644
index 42fde6a5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objthicksurf.sci
+++ /dev/null
@@ -1,123 +0,0 @@
-// s : 2014.06.22
-// e : 2014.07.18
-// Objsurf, Objthicksurf : Range argments changed
-// 14.09.07 Objjoin added
-
-function Out=Objthicksurf(varargin)
- global OBJJOIN
- Args=varargin;
- Nargs=length(Args)
- Sel=Args(Nargs); Nargs=Nargs-1;
- Selsurf=part(Sel,1); // from 6.22
- Selside=["0","0","0","0"]; // wesn
- Tmp=mtlb_findstr(Sel,"w");
- if length(Tmp)>0 then
- Selside(1)=part(Sel,Tmp+1)
- end;
- Tmp=mtlb_findstr(Sel,"e");
- if length(Tmp)>0 then
- Selside(2)=part(Sel,Tmp+1)
- end;
- Tmp=mtlb_findstr(Sel,"s");
- if length(Tmp)>0 then
- Selside(3)=part(Sel,Tmp+1)
- end;
- Tmp=mtlb_findstr(Sel,"n");
- if length(Tmp)>0 then
- Selside(4)=part(Sel,Tmp+1)
- end;
- Nfth=Args(Nargs-2);
- Thick1=Args(Nargs-1);
- Thick2=Args(Nargs);
- Nargs=Nargs-3; // upto 6.22
- Rfth=Args(1); // 6.22
- N=2;
- Mg=0; Ng=0;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- U=Args(N);
- Mg=length(U)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- else
- Ag=Args(N); Bg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- end;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- V=Args(N);
- Ng=length(V)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- else
- Cg=Args(N); Dg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- end;
- if Mg==0 then
- Mg=Args(N);
- N=N+1;
- U=[];
- for J=1:(Mg+1)
- U=[U,Ag+(J-1)/Mg*(Bg-Ag)];
- end;
- end;
- if Ng==0 then
- Ng=Args(N);
- V=[];
- for K=1:(Ng+1)
- V=[V,Cg+(K-1)/Ng*(Dg-Cg)];
- end;
- end;
- Objname(); // 140907 from
- Join=OBJJOIN;
- OBJJOIN=1; // upto
- deff("Out=F1(u,v)","Out=Rfth(u,v)+Thick1*Nfth(u,v)");
- deff("Out=F2(u,v)","Out=Rfth(u,v)+Thick2*Nfth(u,v)");
- Dt1=Objsurf(F1,U,V,Selsurf);
- if Selsurf=="+" then Tmp="-"; else Tmp="+"; end;
- Dt2=Objsurf(F2,U,V,Tmp);
- Out=list(Dt1,Dt2); //from 06.22
- if Selside(1)~="0" then
- Dt=Objrecs(Dt1(3),Dt2(3),Selside(1));
- Out=lstcat(Out,list(Dt));
- end
- if Selside(2)~="0" then
- Dt=Objrecs(Dt1(4),Dt2(4),Selside(2));
- Out=lstcat(Out,list(Dt));
- end
- if Selside(3)~="0" then
- Dt=Objrecs(Dt1(5),Dt2(5),Selside(3));
- Out=lstcat(Out,list(Dt));
- end
- if Selside(4)~="0" then
- Dt=Objrecs(Dt1(6),Dt2(6),Selside(4));
- Out=lstcat(Out,list(Dt));
- end; // upto 6.22
- OBJJOIN=Join // 140907
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.bin
deleted file mode 100644
index e90f633d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.sci
deleted file mode 100755
index 519bc9da..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Op.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-// 10.01.10 available for plotdata
-// 10.01.12 available for Dataindexed
-// 10.01.16
-
-function C=Op(N,Data)
- C=[];
- if Mixtype(Data)>1
- C=Mixop(N,Data);
- return;
- end;
- if type(Data)==10
- if size(Data,2)==1
- C=part(Data,N:N);
- else
- C=Data(N)
- end;
- return;
- end;
- if type(Data)==1
- if size(Data,1)==1
- C=Data(N);
- else
- Din=Dataindex(Data);
- if size(Din,1)==1
- C=Data(N,:);
- else
- C=Data(Din(N,1):Din(N,2),:);
- end;
- end;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.bin
deleted file mode 100644
index 3935c2e7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.sci
deleted file mode 100755
index 4007e1b3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openfile.sci
+++ /dev/null
@@ -1,106 +0,0 @@
-
-//
-// 10.01.10 filename written
-// 13.05.20 openfile error tackled
-// creator and date recorded
-// 13.11.01 Beginpicture joined optionally
-
-function Openfile(varargin)
- global Wfile FID;
-
- function Out=Datecount(F)
- Tmp1=fileinfo(F);
- Tmp=getdate(Tmp1(7));
- Year=Tmp(1);
- Sec=((Tmp(4)-1)*24+Tmp(7))*3600+Tmp(8)*60+Tmp(9);
- Out=[Year,Sec];
- endfunction
-
- function Out=Datestr(F)
- if F~="" then
- Tmp1=fileinfo(F);
- Tmp=getdate(Tmp1(7));
- else
- Tmp=getdate();
- end;
- Year=Tmp(1);
- Month=Tmp(2);
- Day=Tmp(6);
- Hour=Tmp(7);
- Min=Tmp(8);
- D=string(Year)+"-"+string(Month)+"-"+string(Day);
- T=string(Hour)+":"+string(Min);
- Out=D+" "+T;
- endfunction
-
- File=varargin(1);
- Bflg=0;
- Creator='';
- Cflg=0;
- Nargs=length(varargin);
- for N=2:Nargs
- Tmp=varargin(N);
- K=mtlb_findstr(Tmp,"=");
- if length(K)>0 then
- Creator=part(Tmp,(K+1):length(Tmp));
- Cflg=1;
- else
- Bflg=1;
- Unitstr=Tmp
- end
- end;
- Recentf='';
- Tmp1=dir("*.sce");
- Files=Tmp1(2);
- if size(Files,1)>0 then
- Recentf=Files(1,:);
- Dt=Datecount(Recentf);
- for J=2:size(Files,1)
- F=Files(J,:);
- D=Datecount(F);
- if D(1)~=Dt(1) then
- if D(1)>Dt(1) then
- Recentf=F;
- Dt=D;
- end
- continue
- end
- if D(2)>Dt(2) then
- Recentf=F;
- Dt=D;
- end
- end;
- end;
- StrW="%%% "+File+" "+Datestr("")
- StrC="%%% "+Creator;
- if Cflg==0 then
- if Recentf~="" then
- StrC=StrC+Recentf+" "+Datestr(Recentf);
- end
- end
- if File =='' then
- Wfile='default';
- else
-// errcatch(4,"continue"); // 2017.02.18 from
-// Tmp=FID;
-// if iserror(4) then
-// FID=[];
-// errclear(4);
-// end;
-// if FID~=[] then
-// mclose(FID);
-// FID=[];
-// end
-// errcatch(4,"kill"); // 2017.02.18 upto
- FID=mopen(File,'w');
- Wfile=File;
- end
- if Wfile=='default'
- mprintf('%s\n%s\n',StrW,StrC);
- else
- mfprintf(FID,'%s\n%s\n',StrW,StrC);
- end
- if Bflg==1 then
- Beginpicture(Unitstr)
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.bin
deleted file mode 100644
index e72281c1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci
deleted file mode 100644
index e902ce5d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openobj.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-// s : 2014.06.22
-// e : 14.09.07
-
-function Out=Openobj(Fnm)
- global OBJFMT NPOINT NNORM OBJSCALE OBJFIGNO Wfile FID OBJJOIN
- OBJFMT= "%7.4f";
- NPOINT= 0;
- NNORM=0;
- OBJSCALE=1;
- OBJFIGNO=0;
- OBJJOIN=0; // 140906
- if Fnm =='' then
- Wfile='default';
- else
-// errcatch(4,"continue"); //17.02.18from
-// Tmp=FID;
-// if iserror(4) then
-// FID=[];
-// errclear(4);
-// end;
-// if FID~=[] then
-// mclose(FID);
-// FID=[];
-// end
-// errcatch(4,"kill"); //17.02.18upto
- if length(mtlb_findstr(Fnm,".obj"))==0
- Fnm=Fnm+".obj";
- end;
- FID=mopen(Fnm,'w');
- Wfile=Fnm;
- Out=Wfile;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.bin
deleted file mode 100644
index a8d4c7fc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.sci
deleted file mode 100755
index a3056f66..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpar.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.05.31
-
-function Openpar(varargin)
- global Wfile FID;
- Nargs=length(varargin);
- Tmp=varargin(1);
- Tmp1=Strop(1,Tmp);
- if Tmp1=='\' | Tmp1=='ツ・'
- Namestr=Tmp;
- N=2;
- else
- Namestr='\tmp';
- N=1;
- end
- Habastr=varargin(N);
- if Nargs>N
- Posstr='['+varargin(N+1)+']';
- else
- Posstr='[c]'
- end
- Openphr(Namestr);
- S='\begin{minipage}'+Posstr+'{'+Habastr+'}%';
- if Wfile=='default'
- mprintf('%s\n',S);
- else
- mfprintf(FID,'%s\n',S);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.bin
deleted file mode 100644
index f9d281d0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.sci
deleted file mode 100755
index 461549e9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openphr.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.05.31
-
-function Openphr(Str)
- global Wfile FID
- S='\def'+Str+'{%';
- if Wfile=='default'
- mprintf('%s\n',S);
- else
- mfprintf(FID,'%s\n',S);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.bin
deleted file mode 100644
index 877c0a04..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.sci
deleted file mode 100755
index edf043ca..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Openpicture.sci
+++ /dev/null
@@ -1,92 +0,0 @@
-//
-// 09.12.25
-// 11.05.25
-// 14.03.05 MARKLEN
-// 17.03.19 VL=[] => VL="";
-
-function Openpicture(ul)
- global Wfile FID XMIN XMAX YMIN YMAX ULEN
- global MilliIn MARKLEN MARKLENNow PenThickInit;
- Tmp=Doscaling([XMIN,YMIN]);
- Xm=Tmp(1);
- Ym=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- XM=Tmp(1);
- YM=Tmp(2);
- Dx=XM-Xm;
- Dy=YM-Ym;
- Sym='.0123456789 +-*/';
- Tmp=ascii(Sym);
- SL=Sym;
- OL='+-*/';
- if ul~=''
- ULEN=ul;
- end
- Is=1;
- VL=""; // 17.03.19
- Ucode=ascii(ULEN);
- for I=1:length(Ucode)
- C=char(Ucode(I));
- if mtlb_findstr(SL,C)~=[]
- if mtlb_findstr(OL,C)~=[]
- Str=char(Ucode(Is:(I-1)));
- VL=VL+Str+C;
- Is=I+1;
- end
- else
- Unit=char(Ucode(I:(I+1)));
- Str=char(Ucode(Is:(I-1)));
- VL=VL+Str;
- break;
- end;
- end;
- Valu=evstr(VL);
- Str=string(Valu);
- ULEN=Str+Unit;
- if Unit=='cm'
- MilliIn=1000/2.54*Valu;
- end
- if Unit=='mm'
- MilliIn=1000/2.54*Valu/10;
- end
- if Unit=='in'
- MilliIn=1000*Valu;
- end
- if Unit=='pt'
- MilliIn=1000/72.27*Valu;
- end
- if Unit=='pc'
- MilliIn=1000/6.022*Valu;
- end
- if Unit=='bp'
- MilliIn=1000/72*Valu;
- end
- if Unit=='dd'
- MilliIn=1000/1238/1157/72.27*Valu;
- end
- if Unit=='cc'
- MilliIn=1000/1238/1157/72.27*12*Valu;p
- end
- if Unit=='sp'
- MilliIn=1000/72.27/65536*Valu/10;
- end
- MARKLEN=MARKLENNow*1000/2.54/MilliIn;
- if Wfile=='default'
- mprintf('%s%s%s\n','{\unitlength=',ULEN,'%');
- mprintf('%s\n','\begin{picture}%');
- mprintf('%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',...
- '(',Dx,',',Dy,')(',Xm,',',Ym,')%');
- Str='\special{pn '+string(PenThickInit)+'}%';
- mprintf('%s\n',Str);
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s%s%s\n','{\unitlength=',ULEN,'%');
- mfprintf(FID,'%s\n','\begin{picture}%');
- mfprintf(FID,'%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',...
- '(',Dx,',',Dy,')(',Xm,',',Ym,')%'); //11.05.25
- Str='\special{pn '+string(PenThickInit)+'}%';
- mfprintf(FID,'%s\n',Str);
- mfprintf(FID,'%s\n','%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.bin
deleted file mode 100644
index eca8a277..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.sci
deleted file mode 100755
index 8889de32..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovalbox.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-function Ovalbox(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- Pos=varargin(1);
- Dr=varargin(2);
- StrV=varargin(3);
- R=0.2;
- NDflg=0;
- for I=4:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- R=Tmp;
- else
- if part(Tmp,1)=='-'
- NDflg=1;
- Tmp1=part(Tmp,2:length(Tmp));
- Cmdstr=strsubst(Tmp1,'*','G1');
- end;
- end;
- end;
- Xr=[XMIN,XMAX];
- Yr=[YMIN,YMAX];
- Uv=0.6; Uh=0.8;
- N=length(StrV);
- W=Uh; H=Uv*N;
- Setwindow([-W/2,W/2],[-H,0]);
- G1=Ovaldata([0,-H/2],W/2,H/2,R);
- Openphr('\ketpictmp');
- Beginpicture('1cm');
- if NDflg==0
- Drwline(G1);
- else
- execstr(Cmdstr);
- end;
- for I=1:N
- Letter([0,Uv/2-Uv*I],'c',Op(I,StrV))
- end;
- Endpicture(0);
- Closephr();
- Setwindow(Xr,Yr);
- Letter(Pos,Dr,'\ketpictmp');
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.bin
deleted file mode 100644
index a33c17e9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.sci
deleted file mode 100644
index 823fc8c4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ovaldata.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// e : 2015.11.15
-function Out=Ovaldata(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- if Nargs<=1
- Eps=1.0*10^(-4);
- C=[(XMIN+XMAX)/2,(YMIN+YMAX)/2];
- Dx=XMAX-C(1)-Eps;
- Dy=YMAX-C(2)-Eps;
- N=1;
- else
- C=varargin(1);
- Dx=varargin(2);
- Dy=varargin(3);
- N=4;
- end;
- Rc=0.2;
- if N<=Nargs
- Rc=varargin(N)*Rc; // 15.11.15
- end;
- Out=[];
- P=C+[Dx-Rc,Dy-Rc];
- Tmp1=Circledata(P,Rc,'R=[0,%pi/2]','N=10');
- Tmp2=Listplot(C+[Dx-Rc,Dy],C+[0,Dy]);
- Tmp3=Listplot(C+[Dx,0],C+[Dx,Dy-Rc]);
- G=Joincrvs(Tmp3,Tmp1,Tmp2);
- Tmp=Reflectdata(G,[C,C+[0,1]]);
- G=Joincrvs(G,Tmp);
- Tmp=Reflectdata(G,[C,C+[1,0]]);
- Out=Joincrvs(G,Tmp);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.bin
deleted file mode 100644
index e86a5592..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.sci
deleted file mode 100755
index 82ac7c4f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramark.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 08.06.18
-
-function P=Paramark(varargin)
- Nargs=length(varargin);
- PA=varargin(1);
- PB=varargin(2);
- PC=varargin(3);
- R=0.5;
- if Nargs>=4
- R=varargin(4)*R;
- end
- U=R*(PA-PB)/Vecnagasa(PA,PB);
- V=R*(PC-PB)/Vecnagasa(PC,PB);
- if Gaiseki(PA-PB,PC-PB)~=0
- P=Listplot([PB+U,PB+U+V,PB+V]);
- else
- P=[];
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.bin
deleted file mode 100644
index 3479482b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.sci
deleted file mode 100755
index ce7e0d76..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ParamonCurve.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.30
-
-function Out=ParamonCurve(P,N,PtL)
-// PtL=Plt;
- if N==size(PtL,1)
- Out=N;
- else
- Pa=PtL(N,:);
- Pb=PtL(N+1,:);
- V=Pb-Pa;
- W=P-Pa;
- D2=V(1)^2+V(2)^2;
- S=(V(1)*W(1)+V(2)*W(2))/D2;
- S=min(max(S,0),1);
- Out=N+S;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.bin
deleted file mode 100644
index d3aeafcc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.sci
deleted file mode 100755
index 83661787..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramoncrv.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 09.10.03
-
-function Out=Paramoncrv(varargin)
- Eps=10^(-8);
- Nargs=length(varargin);
- P=varargin(1);
- Gdata=varargin(Nargs);
- if size(P,1)>1
- Tmp=P; P=Gdata; Gdata=Tmp;
- end;
- if Nargs==2
- Tmp=Nearestpt(P,Gdata);
- Out=Mixop(2,Tmp);
- return;
- end;
- N=varargin(2);
- PtL=Gdata;
- if N==size(PtL,1)
- Out=N;
- else
- Pa=PtL(N,:);
- Pb=PtL(N+1,:);
- V=Pb-Pa;
- W=P-Pa;
- D2=norm(V)^2;
- if D2<Eps
- Out=0;
- return;
- end;
- S=Dotprod(V,W)/D2;
- S=min(max(S,0),1);
- Out=N+S;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.bin
deleted file mode 100644
index 79569617..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.sci
deleted file mode 100755
index 4e3effdc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Paramplot.sci
+++ /dev/null
@@ -1,140 +0,0 @@
-// 08.06.18 (N)
-// 08.12.18
-// 09.03.12
-// 09.12.31 (gsort)
-// 13.10.19 ( __ added to variables )
-// 14.10.24 N,D,E => N__, etc
-// 14.12.11 Assign used
-// 15.11.16 N changed to number of intervals
-// 16.12.13 in case of T1=T2
-
-function P__=Paramplot(varargin)
- Eps__=10^(-5);
- Nargs__=length(varargin);
- if type(varargin(1))==13
- Fnflg__=1;
- Fnx__=varargin(1);
- Fny__=varargin(2); Is__=3;
- if type(varargin(Is__))==13
- Fnflg__=Fnflg__+1;
- Fnargx__=varargin(Is__);
- Fnargy__=varargin(Is__+1);
- Is__=Is__+2;
- end;
- else
- Fnflg__=0;
- Fnstr__=varargin(1); Is__=2;
- end;
- Rgstr__=varargin(Is__); Is__=Is__+1;
- Range__=[0,2*%pi];
- N__=50; // Numpoints
- E__=[]; // Exclusions
- D__=%inf; // Discont
- for I__=Is__:Nargs__
- Tmp__=varargin(I__);
- K__=mtlb_findstr(Tmp__,'=');
- Tmp1__=strsplit(Tmp__,[K__-1,K__]);
- Tmp2__=ascii(Tmp1__(1,1));
- Lhs__=char(Tmp2__(1));
- Str__=Lhs__+'__='+Tmp1__(3,1);
- execstr(Str__);
- end;
- K__=mtlb_findstr(Rgstr__,'=');
- if K__~=[]
- Tmp__=strsplit(Rgstr__,[K__-1,K__]);
- Vname__=Tmp__(1,1);
- Rng__=evstr(Tmp__(3,1));
- else
- Vname__=Rgstr__;
- Rng__=[XMIN,XMAX];
- end
- T1__=Rng__(1); T2__=Rng__(2);
-// Dt__=(T2__-T1__)/(N__-1);
- Dt__=(T2__-T1__)/(N__); // 15.11.16
- if Fnflg__==0
- Str__=Assign(Fnstr__,Vname__,'t__');
- end;
- if abs(Dt__)<Eps__ then // 16.12.13
- t__=T1__;
- P__=evstr(Str__);
- return;
- end;
- P__=[];
- E__=gsort(E__);
- E__=E__(length(E__):-1:1);
- E__=[E__,%inf];
- Tmp__=gsort(E__);
- E__=Tmp__(length(Tmp__):-1:1);
- Ke__=1;
- for t__=T1__:Dt__:T2__
- Pa__=[];
- if t__-E__(Ke__)<-Eps__
- if Fnflg__==0
- Pa__=evstr(Str__);
- else
- if Fnflg__==1
- Pa__=[Fnx__(t__),Fny__(t__)];
- else
- if type(Fnargx__)==1
- Tmp1__=Fnx__(t__);
- else
- Tmp1__=Fnx__(Fnargx__,t__);
- end;
- if type(Fnargy__)==1
- Tmp2__=Fny__(t__);
- else
- Tmp2__=Fny__(Fnargy__,t__);
- end;
- Pa__=[Tmp1__,Tmp2__];
- end;
- end;
- end
- if abs(t__-E__(Ke__))<=Eps__
- if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf]
- Pa__=[%inf,%inf];
- end
- end
- if t__-E__(Ke__)>Eps__
- if Fnflg__==0
- Pa__=evstr(Str__);
- else
- if Fnflg__==1
- Pa__=[Fnx__(t__),Fny__(t__)];
- else
- if type(Fnargx__)==1
- Tmp1__=Fnx__(t__);
- else
- Tmp1__=Fnx__(Fnargx__,t__);
- end;
- if type(Fnargy__)==1
- Tmp2__=Fny__(t__);
- else
- Tmp2__=Fny__(Fnargy__,t__);
- end;
- Pa__=[Tmp1__,Tmp2__];
- end;
- end;
- Ke__=Ke__+1;
- end
- if Pa__~=[]
- if Pa__(1)==%inf
- P__=[P__; Pa__]
- elseif P__==[]
- P__=[Pa__];
- else
- Tmp__=P__(size(P__,1),:);
- if Tmp__(1)==%inf
- P__=[P__;Pa__];
- elseif norm(Tmp__-Pa__)<D__
- P__=[P__;Pa__];
- else
- P__=[P__;%inf,%inf;Pa__];
- end
- end
- end
- end;
- Tmp__=size(P__,1);
- if P__(Tmp__,1)==%inf
- P__=P__(1:Tmp__-1,:);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.bin
deleted file mode 100644
index 468a99cd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.sci
deleted file mode 100755
index 5adb4837..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Parapt.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.07.11
-// 10.01.02
-
-function Out=Parapt(P)
- global PHI THETA
- x=P(1);
- y=P(2);
- z=P(3);
- Xz=-x*sin(PHI)+y*cos(PHI);
- Yz=-x*cos(PHI)*cos(THETA)-y*sin(PHI)*cos(THETA)+z*sin(THETA);
- Out=[Xz,Yz];
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.bin
deleted file mode 100644
index a488103c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.sci
deleted file mode 100755
index 0b4844df..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-// 08.05.31
-// 09.03.06
-
-function Ans=Partcrv(A,B,PkL)
- Eps=10.0^(-3);
- if type(A)==1 & length(A)==1
- // new part from
- if A>B+Eps
- Npt=Numptcrv(PkL);
- Out1=Partcrv(A,Npt,PkL);
- Out2=Partcrv(1,B,PkL);
- Tmp=Ptstart(PkL)-Ptend(PkL);
- if norm(Tmp)<Eps
- Ans=Joincrvs(Out1,Out2);
- else
- Ans=Mix(Out1,Out2);
- end;
- return;
- end;
- // to here
- Is=ceil(A);
- Ie=floor(B);
- PL=[];
- if A<Is-Eps
- P=(Is-A)*PkL(Is-1,:)+(1-Is+A)*PkL(Is,:);
- PL=[P];
- end
- PL=[PL;PkL(Is:Ie,:)];
- if B>Ie+Eps
- P=(1-B+Ie)*PkL(Ie,:)+(B-Ie)*PkL(Ie+1,:);
- PL=[PL;P]
- end
- Ans=PL;
- return
- end;
- Tmp=Nearestpt(A,PkL);//
- Ta=Op(2,Tmp);//
- Tmp=Nearestpt(B,PkL);//
- Tb=Op(2,Tmp);//
- Ans=Partcrv(Ta,Tb,PkL);//
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.bin
deleted file mode 100644
index 5b652d87..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.sci
deleted file mode 100755
index 5b3cd178..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partcrv3.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 08.09.13
-// 09.03.06
-
-function PL=Partcrv3(T1,T2,Fk)
- Eps=10^(-4);
-// Tmp=Mixop(1,Fk);
- // new part from
- if T1>T2+Eps
- Npt=size(Fk,1);
- Out1=Partcrv3(T1,Npt,Fk);
- Out2=Partcrv3(1,T2,Fk);
- Tmp=Fk(1,:)-Fk(Npt,:);
- if norm(Tmp)<Eps
- PL=Joincrvs(Out1,Out2);
- else
- PL=Mix(Out1,Out2);
- end;
- return;
- end;
- // to here
- Is=ceil(T1);
- Ie=floor(T2);
- PL=[];
- if T1<Is-Eps
- P=(Is-T1)*Fk(Is-1,:)+(1-Is+T1)*Fk(Is,:);
- PL=[P]
- end;
- PL=[PL;Fk(Is:Ie,:)];
- if T2>Ie+Eps
- P=(1-T2+Ie)*Fk(Ie,:)+(T2-Ie)*Fk(Ie+1,:);
- PL=[PL;P]
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.bin
deleted file mode 100644
index 1678ce6b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.sci
deleted file mode 100644
index a8581b1b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partframe.sci
+++ /dev/null
@@ -1,27 +0,0 @@
-// 13.05.03
-
-function Out=Partframe(Tb,St,Ed)
- G=Dividetable(Tb);
- Gw=G(1);
- Gt=G(2);
- Gy=G(3);
- Gwt=Tb(4);
- Gwy=Tb(5);
- Gat=lstcat(list(Gwt(1)),Gt,list(Gwt(2)));
- Gay=lstcat(list(Gwy(1)),Gy,list(Gwy(2)));
- Tmp1=Ptstart(Gat(St(1)));
- Tmp2=Ptstart(Gay(St(2)));
- Ps=[Tmp1(1),Tmp2(2)];
- Tmp1=Ptstart(Gat(Ed(1)));
- Tmp2=Ptstart(Gay(Ed(2)));
- Pe=[Tmp1(1),Tmp2(2)];
- Pars=Paramoncrv(Ps,Gw);
- Pare=Paramoncrv(Pe,Gw);
- if Pars<Pare then
- Out=Partcrv(Pars,Pare,Gw);
- else
- Tmp1=Partcrv(Pars,Numptcrv(Gw),Gw);
- Tmp2=Partcrv(1,Pare,Gw);
- Out=Joincrvs(Tmp1,Tmp2);
- end
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.bin
deleted file mode 100644
index 13e1cb62..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.sci
deleted file mode 100755
index 15d74ec4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PartitionPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.13
-
-function Out=PartitionPt()
- global PARTITIONPT;
- Out=PARTITIONPT;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.bin
deleted file mode 100644
index 7e736e20..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.sci
deleted file mode 100755
index 39c23c45..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Partitionseg.sci
+++ /dev/null
@@ -1,100 +0,0 @@
-// 08.09.13
-// 08.10.17
-// 09.05.27
-// 09.12.31 (gsort)
-
-function Out=Partitionseg(varargin)
- global PARTITIONPT OTHERPARTITION;
- Nargs=length(varargin);
- Fig=varargin(1);
- GL=varargin(2); N=3;
- Eps0=10^(-5);
- Eps=0.05;
- if Nargs>2
- Eps=varargin(3);
- end;
- Eps2=0.2;
- if Nargs>3
- Eps2=varargin(4);
- end;
- if Nargs>4
- Ns=varargin(5);
- Other=Mixop(Ns,OTHERPARTITION);
- else
- Ns=1;
- Other=[];
- OTHERPARTITION=[];
- for N=1:Mixlength(GL)
- OTHERPARTITION=Mixadd(OTHERPARTITION,[]);
- end;
- end;
- Npt=size(Fig,1);
- ParL=[1,Npt,Other];
- for N=Ns:Mixlength(GL)
- G=Mixop(N,GL);
- if Fig==G
- KouL=IntersectselfPp(Fig,Eps,Eps2);
- else
- KouL=IntersectcrvsPp(Fig,G,Eps,Eps2);
- Tmp=Nearestpt(Ptstart(Fig),G);
- Tmp1=Mixop(1,Tmp);
- Tmp2=Mixop(2,Tmp);
- Tmp3=Mixop(3,Tmp);
- if Tmp3>Eps0 & Tmp3<Eps
- Tmp1=Mix(Tmp1,1,floor(Tmp2));
- KouL=Mixadd(KouL,Tmp1);
- end;
- Tmp=Nearestpt(Ptend(Fig),G);
- Tmp1=Mixop(1,Tmp);
- Tmp2=Mixop(2,Tmp);
- Tmp3=Mixop(3,Tmp);
- if Tmp3>Eps0 & Tmp3<Eps
- Tmp1=Mix(Tmp1,Numptcrv(Fig),floor(Tmp2));
- KouL=Mixadd(KouL,Tmp1);
- end;
- end;
- for I=1:Mixlength(KouL)
- Tmp=Mixop(I,KouL);
- P=Mixop(1,Tmp);
- S=Mixop(2,Tmp);
- ParL=[ParL,S];
- K=Mixop(3,Tmp);
- S=ParamonCurve(P,K,G);
- Tmp=Mixop(N,OTHERPARTITION);
- Tmp1=gsort([Tmp,S]);
- Tmp1=Tmp1(length(Tmp1):-1:1);
- Tmp2=[];
- for J=1:Mixlength(OTHERPARTITION)
- Tmp3=Mixop(J,OTHERPARTITION);
- if J~=N
- Tmp2=Mixadd(Tmp2,Tmp3);
- else
- Tmp2=Mixadd(Tmp2,Tmp1);
- end;
- end;
- OTHERPARTITION=Tmp2;
- end;
- end;
- ParL=gsort(ParL);
- ParL=ParL(length(ParL):-1:1);
- ParL(1)=1;
- Out=[ParL(1)];
- P=PointonCurve(ParL(1),Fig);
- PARTITIONPT=Mix(P);
- for I=1:length(ParL)
- Tmp=ParL(I);
- P=PointonCurve(Tmp,Fig);
- Tmp1=Out(length(Out));
- Q=PointonCurve(Tmp1,Fig);
- if norm(P-Q)>Eps
- Out=[Out,Tmp];
-// P=PointonCurve(Tmp,Fig);
- PARTITIONPT=Mixadd(PARTITIONPT,P);
- end;
- end;
- if Out(length(Out))~=Npt
- Out=[Out(1:length(Out)-1),Npt];
- end;
- if length(Out)==1 Out=[1,Npt]; end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.bin
deleted file mode 100644
index e07e8ade..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.sci
deleted file mode 100755
index eb689ffe..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Perspt.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 08.08.12
-
-function Out=Perspt(P)
- global FocusPoint EyePoint;
- Tmp=P-FocusPoint;
- X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3);
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1;
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb;
- E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb;
- Yz=E3/(E3-X3)*Y3;
- Zz=E3/(E3-X3)*Z3;
- Out=[Yz,Zz];
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.bin
deleted file mode 100644
index c7fb3404..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.sci
deleted file mode 100755
index ea2c8e28..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhFaceL.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.17
-
-function Out=PhFaceL()
- global PHCUTPOINTL PHVERTEXL PHFACEL;
- Out=PHFACEL;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.bin
deleted file mode 100644
index 162ba3f6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.sci
deleted file mode 100755
index d5333cd1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.22
-
-function Out=PhHiddenData()
- global PHHIDDENDATA;
- Out=PHHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.bin
deleted file mode 100644
index 7c4526ca..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.sci
deleted file mode 100755
index 1eae4bc9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PhVertexL.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.17
-
-function Out=PhVertexL()
- global PHCUTPOINTL PHVERTEXL PHFACEL;
- Out=PHVERTEXL;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.bin
deleted file mode 100644
index 767e453e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.sci
deleted file mode 100755
index 9c7806f5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutdata.sci
+++ /dev/null
@@ -1,173 +0,0 @@
-// 08.08.17
-// 08.09.16
-// 10.01.02
-// 13.10.21 ( __ added to varibles )
-// 14.06.09 ( debugged -- the cause unknown )
-
-function Out__=Phcutdata(VL__,FaceL__,PlaneD__)
- global PHCUTPOINTL
- Out__=[];
- EL__=[];
- Eps__=10^(-4);
- for I__=1:Mixlength(FaceL__)
- Face__=Mixop(I__,FaceL__);
- for J__=1:length(Face__)
- Nj__=J__+1;
- if J__==length(Face__)
- Nj__=1;
- end;
- N1__=Face__(J__); N2__=Face__(Nj__);
- Tmp__=[N1__,N2__];
- Flg__=0;
- for K__=1:Mixlength(EL__)
- Tmp1__=Mixop(K__,EL__);
- Tmp2__=[Tmp1__(2),Tmp1__(1)];
- if Tmp__==Tmp1__ | Tmp__==Tmp2__
- Flg__=1;
- break;
- end
- end;
- if Flg__==0
- EL__=Mixadd(EL__,Tmp__);
- end;
- end;
- end;
- Out0__=[];
- for I__=1:Mixlength(EL__)
- Tmp__=Mixop(I__,EL__);
- Tmp1__=Mixop(Tmp__(1),VL__);
- Tmp2__=Mixop(Tmp__(2),VL__);
- Out0__=Mixadd(Out0__, Spaceline([Tmp1__,Tmp2__]));
- end;
- if Mixtype(PlaneD__)~=1
- V1__=Mixop(1,PlaneD__);
- Tmp__=Mixop(2,PlaneD__);
- if length(Tmp__)>1
- d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3);
- else
- d__=Tmp__;
- end;
- elseif type(PlaneD__)==1
- V1__=PlaneD__(1:3);
- d__=PlaneD__(4);
- else
- K__=mtlb_findstr(PlaneD__,'=');
- if K__>0
- Tmp1__=part(PlaneD__,1:K__-1);
- Tmp2__=part(PlaneD__,K__+1:length(PlaneD__));
- PlaneD__=Tmp1__+'-('+Tmp2__+')';
- end;
- x=0; y=0; z=0;
- d__=-evstr(PlaneD__);
- x=1; y=0; z=0;
- Tmp1__=evstr(PlaneD__)+d__;
- x=0; y=1; z=0;
- Tmp2__=evstr(PlaneD__)+d__;
- x=0; y=0; z=1;
- Tmp3__=evstr(PlaneD__)+d__;
- V1__=[Tmp1__,Tmp2__,Tmp3__];
- end;
- if V1__==[0,0,0]
- Out__=Out0__;
- return;
- end;
- V3__=[1,0,0];
- Out1__=Rotate3data(Out0__,V1__,V3__);
-// x=poly(0,'X');
- Tmp2__=Rotate3pt([1,0,0],V3__,V1__);
- Tmp__=V1__(1)*Tmp2__(1)+V1__(2)*Tmp2__(2)+V1__(3)*Tmp2__(3);
- x0__=d__/Tmp__;
- t__=poly(0,'T');
- PtL__ =[];
- for I__=1:Mixlength(Out1__)
- Tmp__=Mixop(I__,Out1__);
- Tmp1__=Tmp__(1,:); Tmp2__=Tmp__(2,:);
- P__=Tmp1__+t__*(Tmp2__-Tmp1__);
- Tmp__=Tmp1__(1)+t__*(Tmp2__(1)-Tmp1__(1));
- if abs(coeff(Tmp__,1))<Eps__
- Tmp__=[];
- else
- Tmp1__=coeff(Tmp__,1);
- Tmp2__=x0__-coeff(Tmp__,0);
- Tmp__=[Tmp2__/Tmp1__];
- end;
- if length(Tmp__)>0
- Tmp__=Tmp__(1);
- if (Tmp__>-Eps__) & (Tmp__<1+Eps__)
- Tmp3__=horner(P__,Tmp__);
- Tmp3__=Rotate3pt(Tmp3__,V3__,V1__);
- if Tmp__<Eps__
- Tmp1__=Mixop(I__,EL__);
- Tmp1__=Tmp1__(1);
- Tmp4__=MixS([Tmp1__,Tmp1__],Tmp3__);
- else
- if Tmp__>1-Eps__ then
- Tmp1__=Mixop(I__,EL__);
- Tmp1__=Tmp1__(2);
- Tmp4__=MixS([Tmp1__,Tmp1__],Tmp3__);
- else
- Tmp4__=MixS(Mixop(I__,EL__),Tmp3__);
- end;
- end;
- Flg__=0;
- for J__=1:Mixlength(PtL__)
- Tmp__=Mixop(J__,PtL__);
- Tmp__=Mixop(2,Tmp__);
- if norm(Tmp3__-Tmp__)<Eps__ then
- Flg__=1;
- break;
- end;
- end;
- if Flg__==0
- PtL__=Mixadd(PtL__,Tmp4__);
- end;
- end;
- end;
- end;
- if Mixlength(PtL__)==0
- Out__=Out0__;
- return
- end;
- PL__=Mix(Mixop(1,PtL__));
- QL__=Mixsub(2:Mixlength(PtL__),PtL__);
- N__=Mixlength(QL__);
- for I__=2:N__+1
- Tmp1__=Mixop(Mixlength(PL__),PL__);
- Tmp1__=Mixop(1,Tmp1__);
- for J__=1:Mixlength(QL__)
- Tmp2__=Mixop(J__,QL__);
- Tmp2__=Mixop(1,Tmp2__);
- Flg__=0;
- for K__=1:Mixlength(FaceL__)
- Tmp3__=Mixop(K__,FaceL__);
- if Member(Tmp1__(1),Tmp3__) & Member(Tmp1__(2),Tmp3__) & Member(Tmp2__(1),Tmp3__) & Member(Tmp2__(2),Tmp3__)
- Flg__=1;
- break;
- end;
- end;
- if Flg__==1
- break;
- end;
- end;
- J__=min(J__, Mixlength(QL__));
- PL__=Mixadd(PL__,Mixop(J__,QL__));
- Tmp1__=Mixsub(1:J__-1,QL__);
- Tmp2__=Mixsub(J__+1:Mixlength(QL__),QL__);
- QL__=Mixjoin(Tmp1__,Tmp2__);
- if Mixlength(QL__)==0
- break;
- end;
- end;
- PHCUTPOINTL=PL__;
- Tmp__=[];
- for J__=1:Mixlength(PL__);
- Tmp1__=Mixop(J__,PL__);
- Tmp1__=Mixop(2,Tmp1__);
- Tmp__=Mixadd(Tmp__,Tmp1__);
- end;
- Tmp1__=Mixop(1,PL__);
- Tmp1__=Mixop(2,Tmp1__);
- Tmp__=Mixadd(Tmp__,Tmp1__);
- Out2__=Spaceline(Tmp__);
- Out__=Mixadd(Out0__,Out2__);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.bin
deleted file mode 100644
index 5e7c757a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.sci
deleted file mode 100755
index 879067ce..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phcutoffdata.sci
+++ /dev/null
@@ -1,184 +0,0 @@
-// 08.08.17
-// 10.08.15 near line 25 or so
-// 13.10.21 ( __ added to varibles )
-
-function Out2__=Phcutoffdata(varargin)
- global PHCUTPOINTL PHVERTEXL PHFACEL;
- Eps__=10^(-4);
- Out2__=[];
- VL__=varargin(1);
- FaceL__=varargin(2);
- PlaneD__=varargin(3);
- Sgnstr__=varargin(4);
- Fugou__=1;
- if Sgnstr__=='-' | Sgnstr__=='n' Fugou__=-1; end;
- Out0__=Phcutdata(VL__,FaceL__,PlaneD__);
- PtL__=PHCUTPOINTL;
- PHVERTEXL=VL__;
- PHFACEL=FaceL__;
- if PtL__==[]
- Out2__=Out0__;
- return;
- end;
- N1__=Mixlength(VL__);
- Face__=[];
- for I__=1:Mixlength(PtL__);
- Tmp__=Mixop(I__,PtL__);
- Tmp3__=Mixop(1,Tmp__); // 2010.08.15
- Tmp1__=Tmp3__(1); Tmp2__=Tmp3__(2); // 2010.08.15
- if Tmp1__~=Tmp2__
- VL__=Mixadd(VL__,Mixop(2,Tmp__));
- N1__=N1__+1;
- Tmp1__=N1__;
- end;
- Face__=[Face__,Tmp1__];
- PtL__(I__)=list(Mixop(1,Tmp__),Tmp1__); // 2010.08.15
-// Tmp2__=Mixsub(1:I__-1,PtL__);
-// Tmp2__=Mixadd(Tmp2__,Mix(Mixop(1,Tmp__),Tmp1__));
-// Tmp3__=Mixsub(I__+1:Mixlength(PtL__),PtL__);
-// PtL__=Mixjoin(Tmp2__,Tmp3__);
- end;
- OutfL__=MixS(Face__);
- if Mixtype(PlaneD__)~=1
- V1__=Mixop(1,PlaneD__);
- Tmp__=Mixop(2,PlaneD__);
- if length(Tmp__)>1
- d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3);
- else
- d__=Tmp__;
- end;
- elseif type(PlaneD__)==1
- V1__=PlaneD__(1:3);
- d__=PlaneD__(4);
- else
- K__=mtlb_findstr(PlaneD__,'=');
- if K__>0
- Tmp1__=part(PlaneD__,1:K__-1);
- Tmp2__=part(PlaneD__,K__+1:length(PlaneD__));
- PlaneD__=Tmp1__+'-('+Tmp2__+')';
- end;
- x=0; y=0; z=0;
- d__=-evstr(PlaneD__);
- x=1; y=0; z=0;
- Tmp1__=evstr(PlaneD__)+d__;
- x=0; y=1; z=0;
- Tmp2__=evstr(PlaneD__)+d__;
- x=0; y=0; z=1;
- Tmp3__=evstr(PlaneD__)+d__;
- V1__=[Tmp1__,Tmp2__,Tmp3__];
- end;
- for I__=1:Mixlength(FaceL__)
- Face__=Mixop(I__,FaceL__);
- TmpL__=[];
- for J__=1:length(Face__)
- N1__=Face__(J__);
- if J__==length(Face__)
- N2__=Face__(1);
- else
- N2__=Face__(J__+1);
- end;
- for K__=1:Mixlength(PtL__)
- Pd__=Mixop(K__,PtL__);
- Tmp__=Mixop(1,Pd__);
- if Tmp__(1)==Tmp__(2)
- if Tmp__(1)==N1__
- TmpL__=Mixadd(TmpL__,Mix(J__,[N1__,N2__],Mixop(2,Pd__)));
- end
- else
- if Tmp__==[N1__,N2__] | Tmp__==[N2__,N1__]
- TmpL__=Mixadd(TmpL__,Mix(J__,[N1__,N2__],Mixop(2,Pd__)));
- end;
- end;
- end;
- end;
- if Mixlength(TmpL__)<2
- Flg__=0;
- for J__=1:length(Face__)
- Tmp__=Mixop(Face__(J__),VL__);
- Tmp1__=Fugou__*(Naiseki(V1__,Tmp__)-d__);
- if Tmp1__<-Eps__
- Flg__=1;
- break;
- end;
- end;
- if Flg__==0
- OutfL__=Mixadd(OutfL__,Face__);
- end;
- continue;
- end;
- Pd__=Mixop(1,TmpL__);
- Qd__=Mixop(2,TmpL__);
- Outf1__=[Mixop(3,Pd__)];
- Nf__=Mixop(1,Pd__)+1;
- Tmp__=Mixop(2,Pd__);
- JJ__=0;
- while Tmp__~=Mixop(2,Qd__)
- JJ__=JJ__+1;
- if JJ__>20
- disp('bug');
- return;
- end;
- Tmp1__=Tmp__(2);
- if Outf1__(length(Outf1__))~=Tmp1__
- Outf1__=[Outf1__,Tmp1__];
- end;
- Tmp__=[Face__(Nf__)];
- Nf__=Nf__+1;
- if Nf__>length(Face__) Nf__=1; end;
- Tmp__=[Tmp__,Face__(Nf__)];
- end;
- Tmp1__=Mixop(3,Qd__);
- if Outf1__(length(Outf1__))~=Tmp1__
- Outf1__=[Outf1__,Tmp1__];
- end;
- Outf2__=[Mixop(3,Pd__)];
- Nf__=Mixop(1,Pd__);
- Tmp__=Mixop(2,Pd__);
- JJ__=0;
- while Tmp__~=Mixop(2,Qd__)
- JJ__=JJ__+1;
- if JJ__>20
- disp('bug');
- return;
- end;
- Tmp1__=Tmp__(1);
- if Outf2__(length(Outf2__))~=Tmp1__
- Outf2__=[Outf2__,Tmp1__]
- end;
- Tmp__=[Face__(Nf__)];
- Nf__=Nf__-1;
- if Nf__<1 Nf__=length(Face__); end;
- Tmp__=[Face__(Nf__),Tmp__];
- end;
- Tmp1__=Mixop(3,Qd__);
- if Outf2__(length(Outf2__))~=Tmp1__
- Outf2__=[Outf2__,Tmp1__]
- end;
- if length(Outf1__)<3 | length(Outf2__)<3
- Face__=Outf1__;
- if length(Outf1__)<length(Outf2__) Face__=Outf2__; end;
- Flg__=0;
- for J__=1:length(Face__)
- Tmp__=Mixop(Face__(J__),VL__);
- Tmp1__=Fugou__*(Naiseki(V1__,Tmp__)-d__);
- if Tmp1__<-Eps__
- Flg__=1;
- break;
- end;
- end;
- if Flg__==0
- OutfL__=Mixadd(OutfL__,Face__);
- end;
- else
- Tmp__=Mixop(Outf1__(2),VL__);
- Tmp1__=Outf1__;
- Tmp2__=Fugou__*(Naiseki(V1__,Tmp__)-d__);
- if Tmp2__<0 Tmp1__=Outf2__; end;
- OutfL__=Mixadd(OutfL__,Tmp1__);
- end;
- end;
- PHVERTEXL=VL__;
- PHFACEL=OutfL__;
- Out2__=Phcutdata(VL__,OutfL__,[0,0,0,0]);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.bin
deleted file mode 100644
index 2e8372d4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.sci
deleted file mode 100755
index 02fe98a5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phidegree.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.07.11
-
-function Ang=Phidegree()
- global PHI;
- Ang=PHI*180/%pi;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.bin
deleted file mode 100644
index f048d289..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.sci
deleted file mode 100755
index 835c173e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phparadata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.21
-// 09.10.27
-
-function Out=Phparadata(VL,FaceL)
- Out=Facesdata(list(VL,FaceL),'para');
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.bin
deleted file mode 100644
index fd962e37..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.sci
deleted file mode 100755
index e422b6fc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phpersdata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.21
-// 09.10.27
-
-function Out=Phpersdata(VL,FaceL)
- Out=Facesdata(list(VL,FaceL),'pers');
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.bin
deleted file mode 100644
index ab558ee1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.sci
deleted file mode 100755
index c4c79c26..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawparadata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.21
-// 09.10.27
-
-function Out=Phrawparadata(VL,FaceL)
- Out=Facesdata(list(VL,FaceL),'rawpara');
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.bin
deleted file mode 100644
index b07adddd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.sci
deleted file mode 100755
index 29870630..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phrawpersdata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.21
-// 09.10.27
-
-function Phrawpersdata(VL,FaceL)
- Out=Facesdata(list(VL,FaceL),'rawpers');
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.bin
deleted file mode 100644
index 5548e0e3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.sci
deleted file mode 100755
index 3c8018e3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsparadata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.22
-// 09.10.27
-
-function Out=Phsparadata(Fdata)
- Out=Facesdata(Fdata,'para')
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.bin
deleted file mode 100644
index b625f4d4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.sci
deleted file mode 100755
index 58ab8101..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phspersdata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.22
-// 09.10.27
-
-function Out=Phspersdata(Fdata)
- Out=Facesdata(Fdata,'pers')
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.bin
deleted file mode 100644
index 7b3c7f0f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.sci
deleted file mode 100755
index 6928d928..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawparadata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.22
-// 09.10.27
-
-function Out=Phsrawparadata(Fdata)
- Out=Facesdata(Fdata,'rawpara')
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.bin
deleted file mode 100644
index 0594752f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.sci
deleted file mode 100755
index 21677841..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Phsrawpersdata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.22
-// 09.10.27
-
-function Phsrawpersdata(Fdata)
- Out=Facesdata(Fdata,'rawpers')
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.bin
deleted file mode 100644
index 7d239bba..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.sci
deleted file mode 100755
index fc548f28..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Plotdata.sci
+++ /dev/null
@@ -1,138 +0,0 @@
-//
-// 08.06.18 (N)
-// 08.08.24
-// 08.10.05
-// 08.12.18
-// 09.03.12
-// 09.12.31 (gsort)
-// 13.10.19 (__ added to variables)
-// 14.10.24 N,D,E => N__ ,...
-// 14.12.11 Assign used, and debugged (Exfun )
-// 15.11.16 N changed to number of intervals
-// 16.12.13 in case of X1=X2
-
-function P__=Plotdata(varargin)
- global XMIN XMAX YMIN YMAX
- Eps__=10^(-5);
- Fnstr__=varargin(1); Is__=2;
- if type(Fnstr__)==13
- Fnflg__=1;
- Fnarg__=varargin(Is__);
- if type(Fnarg__)==13
- Fnflg__=Fnflg__+1;
- Is__=Is__+1;
- end;
- else
- Fnflg__=0;
- end;
- Rgstr__=varargin(Is__); Is__=Is__+1;
- K__=mtlb_findstr(Rgstr__,'=');
- if length(K__)>0
- Tmp__=strsplit(Rgstr__,[K__-1,K__]);
- Vname__=Tmp__(1,1);
- Rng__=evstr(Tmp__(3,1));
- else
- Vname__=Rgstr__;
- Rng__=[XMIN,XMAX];
- end;
- N__=50; // Numpoints
- E__=[]; // Exclusions
- Exfun__=''; // Exclusion function
- D__=%inf; // Discont
- for I__=Is__:length(varargin)
- Tmp__=varargin(I__);
- Lhs__=part(Tmp__,1);
- K__=mtlb_findstr(Tmp__,'=');
- Tmp1__=part(Tmp__,K__+1:length(Tmp__));
- if mtlb_findstr(Tmp__,Vname__)==[]
- Str__=Lhs__+'__='+Tmp1__;
- execstr(Str__);
- else
- Exfun__=Tmp1__;
- end;
- end;
- X1__=Rng__(1); X2__=Rng__(2);
-// dx__=(X2__-X1__)/(N__-1);
- dx__=(X2__-X1__)/(N__); // 15.11.16
- if Fnflg__==0
- Str__=Assign(Fnstr__,Vname__,'x__');
- end;
- if abs(dx__)<Eps__ then // 16.12.13
- x__=X1__;
- P__=[X1__,evstr(Str__)];
- return;
- end;
- Exfun__=Assign(Exfun__,Vname__,'x__');
- if length(Exfun__)>0 then // 14.12.11
- Tmp__=mtlb_findstr(Exfun__,"x__");
- if length(Tmp__)==0 then
- E__=evstr(Exfun__);
- Exfun__="";
- end
- end
- P__=[];
- E__=gsort(E__);
- E__=E__(length(E__):-1:1);
- E__=[E__,%inf];
- Tmp__=gsort(E__);
- E__=Tmp__(length(Tmp__):-1:1);
- Ke__=1;
- for x__=X1__:dx__:X2__
- if Exfun__~=''
- Tmp__=evstr(Exfun__);
- if abs(Tmp__)<Eps__
- P__=[P__;%inf,%inf];
- continue;
- end;
- end;
- Pa__=[];
- if x__-E__(Ke__)<-Eps__
- if Fnflg__==0
- Pa__=[x__,evstr(Str__)];
- else
- if Fnflg__==1
- Pa__=[x__,Fnstr__(x__)];
- else
- Pa__=[x__,Fnstr__(Fnarg__,x__)];
- end;
- end;
- end;
- if abs(x__-E__(Ke__))<=Eps__
- if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf]
- Pa__=[%inf,%inf];
- end
- end
- if x__-E__(Ke__)>Eps__
- if Fnflg__==0
- Pa__=[x__,evstr(Str__)];
- else
- if Fnflg__==1
- Pa__=[x__,Fnstr(x__)];
- else
- Pa__=[x__,Fnstr__(Fnarg__,x__)];
- end;
- end;
- Ke__=Ke__+1;
- end
- if Pa__~=[]
- if Pa__(1)==%inf
- P__=[P__;Pa__]
- elseif P__==[]
- P__=[Pa__];
- else
- Tmp__=P__(size(P__,1),:);
- if Tmp__(1)==%inf
- P__=[P__;Pa__];
- elseif norm(Tmp__-Pa__)<D__
- P__=[P__;Pa__];
- else
- P__=[P__;%inf,%inf;Pa__];
- end
- end
- end
- end;
- Tmp__=size(P__,1);
- if P__(Tmp__,1)==%inf
- P__=P__(1:Tmp__-1,:);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.bin
deleted file mode 100644
index 73d006ea..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.sci
deleted file mode 100755
index 35e2347e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointdata.sci
+++ /dev/null
@@ -1,25 +0,0 @@
-//
-// 08.05.23
-// 09.09.18
-// 13.05.03 list of points is outputted
-
-function PL=Pointdata(varargin)
- Nargs=length(varargin);
- PL=list();
- for I=1:Nargs
- DL=varargin(I);
- DL=Flattenlist(DL);
- for K=1:length(DL);
- Dt=DL(K);
- for J=1:size(Dt,1)
- Tmp=Dt(J,:);
- if Tmp(1)~=%inf then
- PL($+1)=Tmp;
- end
- end
- end;
- end;
- if length(PL)==1
- PL=PL(1);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.bin
deleted file mode 100644
index 1914f8a3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.sci
deleted file mode 100755
index fd2a35d0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PointonCurve.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.30
-
-function Out=PointonCurve(T,PtL)
- Eps=10^(-4);
- N=Trunc(T+Eps);
- S=max(T-N,0);
-// PtL=Plt;
- if N==size(PtL,1)
- Out=PtL(N,:);
- else
- Pa=PtL(N,:);;
- Pb=PtL(N+1,:);
- Out=(1-S)*Pa+S*Pb;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.bin
deleted file mode 100644
index 69dc99ce..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.sci
deleted file mode 100755
index c39cdadc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Pointoncrv.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 09.10.03
-
-function Out=Pointoncrv(varargin)
- Eps=10^(-4);
- T=varargin(1);
- Gdata=varargin(2);
- if size(T,1)>1
- Tmp=T; T=Gdata; Gdata=Tmp;
- end;
- PtL=Gdata;
- N=Trunc(T+Eps);
- S=max(T-N,0);
- if N==size(PtL,1)
- Out=PtL(N,:);
- else
- Pa=PtL(N,:);;
- Pb=PtL(N+1,:);
- Out=(1-S)*Pa+S*Pb;
- end
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.bin
deleted file mode 100644
index f85dfeb2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.sci
deleted file mode 100755
index b23dfdc8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Powersum.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 09.03.12
-
-function Out=Powersum(varargin)
- Nargs=length(varargin);
- COEFF=varargin(1);
- x=varargin(2);
- if Nargs>2
- x=x-varargin(3);
- end;
- NL=Mixop(1,COEFF);
- A=Mixop(2,COEFF);
- Upto=min(size(NL,2),size(A,2));
- NL=NL(1:Upto);
- A=A(1:Upto);
- Out=sum(A.*x^NL);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.bin
deleted file mode 100644
index 54fceb67..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.sci
deleted file mode 100755
index bc866928..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Prime.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// 09.08.23
-
-function Out=Prime(varargin)
- if length(varargin)==0
- Out=char(39);
- else
- Out=varargin(1)+char(39);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.bin
deleted file mode 100644
index 3e8d6ca7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.sci
deleted file mode 100644
index bf137751..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// s : 2014.06.22
-
-function Printobjstr(Str)
- global Wfile FID;
- if Wfile=='default' then
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.bin
deleted file mode 100644
index 22cf9f20..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.sci
deleted file mode 100755
index bbe28c12..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjCurve.sci
+++ /dev/null
@@ -1,32 +0,0 @@
-// 08.07.11
-// 08.10.07
-// 09.06.02
-// 09.08.23
-
-function AnsL=ProjCurve(Curve)
- global PHI THETA;
- Eps=10^(-6);
- AnsL=[]; // Added
- SP=sin(PHI); CP=cos(PHI);
- ST=sin(THETA); CT=cos(THETA);
- for I=1:size(Curve,1)
- P=Curve(I,:);
- x=P(1); y=P(2); z=P(3);
- if x~=%inf
- Xz=-x*SP+y*CP;
- Yz=-x*CP*CT-y*SP*CT+z*ST;
- Tmp=[Xz,Yz];
- if I==1
- AnsL=[Tmp];
- else
- Tmp1=AnsL(size(AnsL,1),:);
- if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps
- AnsL=[AnsL;Tmp];
- end;
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.bin
deleted file mode 100644
index 1a815b50..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.sci
deleted file mode 100755
index 74c552a6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ProjcoordCurve.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.07.11
-// 08.10.16
-
-function Out=ProjcoordCurve(Curve)
- global PHI THETA;
- SP=sin(PHI); CP=cos(PHI);
- ST=sin(THETA); CT=cos(THETA);
- Out=[];
- for J=1:size(Curve,1)
- P=Curve(J,:);
- x=P(1); y=P(2); z=P(3);
- Xz=-x*SP+y*CP;
- Yz=-x*CP*CT-y*SP*CT+z*ST;
- Zz=x*CP*ST+y*SP*ST+z*CT;
- Out=[Out;Xz,Yz,Zz];
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.bin
deleted file mode 100644
index c78a60ff..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.sci
deleted file mode 100755
index 82feeff2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpara.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 08.07.11
-// 08.07.15
-// 08.08.12
-// 08.10.28
-
-function CL=Projpara(varargin)
- Nargs=length(varargin);
- Flg=0;
- if Nargs==1 & Mixtype(varargin(1))==1
- Flg=1;
- end;
- CL=[];
- for N=1:Nargs
- Crv=varargin(N);
- if Mixtype(Crv)==1
- Tmp=ProjCurve(Crv);
- CL=Mixadd(CL,Tmp);
- else
- if Mixtype(Crv)==3
- ObjL=[];
- for I=1:Mixlength(Crv)
- Tmp1=Mixop(I,Crv);
- if Mixtype(Tmp1)==1
- ObjL=Mixadd(ObjL,Tmp1);
- else
- ObjL=Mixjoin(ObjL,Tmp1);
- end;
- end;
- Crv=ObjL;
- end;
- for J=1:Mixlength(Crv)
- Tmp=ProjCurve(Mixop(J,Crv));
- CL=Mixadd(CL,Tmp);
- end
- end
- end
- if Mixlength(CL)==1 & Flg==1
- CL=Mixop(1,CL);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.bin
deleted file mode 100644
index fe160426..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.sci
deleted file mode 100755
index b43451a9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Projpers.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 08.08.12
-// 08.10.28
-
-function CL=Projpers(varargin)
- Nargs=length(varargin);
- Flg=0;
- if Nargs==1 & Mixtype(varargin(1))==1
- Flg=1;
- end;
- CL=[];
- for N=1:Nargs
- Crv=varargin(N);
- if Mixtype(Crv)==1
- Tmp=CameraCurve(Crv);
- CL=Mixadd(CL,Tmp);
- else
- if Mixtype(Crv)==3
- ObjL=[];
- for I=1:Mixlength(Crv)
- Tmp1=Mixop(I,Crv);
- if Mixtype(Tmp1)==1
- ObjL=Mixadd(ObjL,Tmp1);
- else
- ObjL=Mixjoin(ObjL,Tmp1);
- end;
- end;
- Crv=ObjL;
- end;
- for J=1:Mixlength(Crv)
- Tmp=CameraCurve(Mixop(J,Crv));
- CL=Mixadd(CL,Tmp);
- end
- end
- end
- if Mixlength(CL)==1 & Flg==1
- CL=Mixop(1,CL);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.bin
deleted file mode 100644
index 6ba89403..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.sci
deleted file mode 100755
index 78776d7b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptcrv.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function P=Ptcrv(N,Fig)
- P=Fig(N,:)
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.bin
deleted file mode 100644
index 9cc74d07..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.sci
deleted file mode 100755
index d16ebf80..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptend.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function P=Ptend(Fig)
- P=Fig(size(Fig,1),:)
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.bin
deleted file mode 100644
index f195927d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.sci
deleted file mode 100755
index 98f2ca94..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PthiddenQ.sci
+++ /dev/null
@@ -1,250 +0,0 @@
-// 08.10.10
-// 08.10.12
-// 08.10.15
-// 08.10.26
-// 09.06.05
-// 09.09.10
-// 09.10.12 debug
-// 09.11.07 debugged
-// 10.02.16 Eps__
-// 13.10.22 ( __ added to variables )
-
-function Out__=PthiddenQ(PtA__,Vec__,Fd__,Uveq__,Np__,EPS__)
-// Out__=1 : hidden
-// SL__ : List of segments near PtA__+Vec__
- Eps__0=10^(-4)*(Xmax()-Xmin())/10;
- Eps__=EPS__(1)*(Xmax()-Xmin())/10; //
- Out__=0;
- Vec__1=1/norm(Vec__)*Vec__;
- PtL__=[];
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Mixop(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- FdL__=Fullformfunc(Fd__);
- Xf__=Mixop(2,FdL__);
- Yf__=Mixop(3,FdL__);
- Zf__=Mixop(4,FdL__);
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); UMax__=Urg__(2);
- Vmin__=Vrg__(1); VMax__=Vrg__(2);
- V1__='('+string(Vec__(1))+')';
- V2__='('+string(Vec__(2))+')';
- V3__='('+string(Vec__(3))+')';
- Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))';
- Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))';
- Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))';
- Urg__str=Mixop(5,FdL__);
- Vrg__str=Mixop(6,FdL__);
- if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0
- Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__;
- else
- Eq__=Xstr__;
- end;
- MS__=Mix(Eq__,Urg__str,Vrg__str,Np__);
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- SL__=[];
- for J__=1:length(Yval__)-1
- for I__=1:length(Xval__)-1
- a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__);
- a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1);
- a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1);
- a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__);
- PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__];
- VL__=[c1__,c2__,c3__,c4__,c1__];
- QL__=[];
- for K__=1:4
- P1__=PL__(K__,:); P2__=PL__(K__+1,:);
- M1__=VL__(K__); M2__=VL__(K__+1);
- if M1__>=Eps__0 & M2__>=Eps__0
- continue;
- end;
- if M1__<=-Eps__0 & M2__<=-Eps__0
- continue;
- end;
- if abs(M1__)<Eps__0
- Tmp__=P1__;
- elseif abs(M2__)<Eps__0
- continue;
- else
- Tmp__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__);
- end;
- QL__=[QL__;Tmp__];
- end;
- if size(QL__,1)==2
- Puv1__=QL__(1,:); Puv2=QL__(2,:);
- Tmp__1=Puv1__(1);
- Tmp__2=Puv1__(2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- P1__=[Xv__,Yv__,Zv__];
- Tmp__1=Puv2(1);
- Tmp__2=Puv2(2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- P2__=[Xv__,Yv__,Zv__];
- if norm(P1__-P2__)<Eps__0 // 09.11.07
- continue;
- end; //
- Tmp__1=norm(P1__-PtA__);
- Tmp__2=Naiseki(P1__-PtA__,Vec__1);
- Tmp__3=sqrt(abs(Tmp__1^2-Tmp__2^2));
- Tmp__4=norm(P2__-PtA__);
- Tmp__5=Naiseki(P2__-PtA__,Vec__1);
- Tmp__6=sqrt(abs(Tmp__4^2-Tmp__5^2));
- if Tmp__2<Tmp__5
- Tmp__=P1__; P1__=P2__; P2__=Tmp__;
- Tmp__=Tmp__2; Tmp__2=Tmp__5; Tmp__5=Tmp__;
- Tmp__=Tmp__3; Tmp__3=Tmp__6; Tmp__6=Tmp__;
- end;
- if Tmp__3<EPS__(2)*Eps__ & Tmp__6<EPS__(2)*Eps__ //
- if Tmp__2>-Eps__0
- if Tmp__5<-Eps__0
- SL__=[SL__;P1__,P2__,-1];
- else
- SL__=[SL__;P1__,P2__,1];
- end;
- end;
- end;
- V1__=Vec__1(1); V2__=Vec__1(2); V3__=Vec__1(3);
- if abs(V1__)>Eps__0
- M1__=PtA__(3)+V3__/V1__*(P1__(1)-PtA__(1))-P1__(3);
- M2__=PtA__(3)+V3__/V1__*(P2__(1)-PtA__(1))-P2__(3);
- elseif abs(V2__)>Eps__0
- M1__=PtA__(3)+V3__/V2__*(P1__(2)-PtA__(2))-P1__(3);
- M2__=PtA__(3)+V3__/V2__*(P2__(2)-PtA__(2))-P2__(3);
- else
- M1__=PtA__(2)-P1__(2);
- M2__=PtA__(2)-P2__(2);
- end;
- if M1__*M2__>=0
- if (M1__>Eps__0 & M2__>Eps__0) | (M1__<-Eps__0 & M2__<-Eps__0)
- continue;
- end;
- if abs(M1__)<=Eps__0
- Pt__=P1__; Ptuv__=Puv1__;
- else
- Pt__=P2__; Ptuv__=Puv2;
- end;
- else
- Pt__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__);
- Ptuv__=1/(M1__-M2__)*(-M2__*Puv1__+M1__*Puv2);
- end;
- if type(Uveq__)==10
- Tmp__1='('+string(Ptuv__(1))+')';
- Tmp__2='('+string(Ptuv__(2))+')';
- Tmp__=strsubst(Uveq__,Uname__,Tmp__1);
- Tmp__=strsubst(Tmp__,Vname__,Tmp__2);
- Tmp__=evstr(Tmp__);
- if Tmp__<-Eps__0
- continue;
- end;
- end;
- Tmp__1=Dotprod(Pt__-PtA__,Vec__1);
- Tmp__2=abs(Tmp__1);
- Tmp__3=Dotprod(P1__-P2__,Vec__1);
- Tmp__4=norm(P1__-P2__);
- Tmp__6=Tmp__3/Tmp__4;
- if Tmp__1>Eps__0
- if abs(Tmp__6)>0.75 // from
- PtL__=[PtL__;Pt__,P2__];
- continue;
- end; // upto
- if Tmp__2>Eps__
- Out__=1;
- return
- end;
- if Tmp__2<2*Eps__
- continue;
- end;
- end;
- end;
- end;
- end;
- if PtL__==[]
- return;
- end;
- for I__=1:size(SL__,1)
- P2__=SL__(I__,4:6);
- Flg__=0;
- for J__=1:size(SL__,1)
- P=SL__(J__,1:3);
- if norm(P-P2__)<Eps__0
- SL__(I__,7)=J__;
- Flg__=1;
- break;
- end;
- end;
- if Flg__==0 & SL__(I__,7)>0
- SL__(I__,7)=-2;
- end;
- end;
- for I__=1:size(PtL__,1)
- P__=PtL__(I__,4:6);
- Flg__=0;
- for J__=1:size(SL__,1)
- P1__=SL__(J__,1:3);
- if norm(P1__-P__)<Eps__0
- Flg__=1;
- break;
- end;
- end;
- if Flg__==0
- Pt__=PtL__(I__,1:3); // from
- Tmp__0=norm(P__-Pt__);
- Tmp__1=abs(Dotprod(P__-Pt__,Vec__1));
- Tmp__2=sqrt(abs(Tmp__0^2-Tmp__1^2));
- Tmp__3=Tmp__2*norm(Pt__-PtA__)/Tmp__0; // should to be changed 10.02.16
- if Tmp__3>Eps__/5
- Out__=1;
- return;
- else
- continue;
- end; // upto
- end;
- Nxt__=SL__(J__,7);
- while Nxt__>0
- P__=SL__(Nxt__,4:6);
- Nxt__=SL__(Nxt__,7);
- end;
- if Nxt__==-2
- Out__=1;
- return;
- else
- Out__=0;
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.bin
deleted file mode 100644
index 00ce8734..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.sci
deleted file mode 100755
index f6452897..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptne.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 10.01.13
-
-function Out=Ptne(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMAX,YMAX];
- else
- G=varargin(1);
- XM=max(G(:,1));
- YM=max(G(:,2));
- Out=[XM,YM];
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.bin
deleted file mode 100644
index d8c23898..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.sci
deleted file mode 100755
index e3cd5ebc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptnw.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 10.01.13
-
-function Out=Ptnw(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMIN,YMAX];
- else
- G=varargin(1);
- Xm=min(G(:,1));
- YM=max(G(:,2));
- Out=[Xm,YM];
- end;
- endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.bin
deleted file mode 100644
index 19bd2ccc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.sci
deleted file mode 100755
index fe5e52b9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptse.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 10.01.13
-
-function Out=Ptse(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMAX,YMIN];
- else
- G=varargin(1);
- XM=max(G(:,1));
- Ym=min(G(:,2));
- Out=[XM,Ym];
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.bin
deleted file mode 100644
index c87076aa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.sci
deleted file mode 100755
index f94437cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptstart.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function P=Ptstart(Fig)
- P=Fig(1,:)
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.bin
deleted file mode 100644
index df35b82c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.sci
deleted file mode 100755
index 5b0a3474..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ptsw.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 10.01.13
-
-function Out=Ptsw(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMIN,YMIN];
- else
- G=varargin(1);
- Xm=min(G(:,1));
- Ym=min(G(:,2));
- Out=[Xm,Ym];
- end;
-endfunction \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.bin
deleted file mode 100644
index baf3e29f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci
deleted file mode 100755
index e0020f0b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcell.sci
+++ /dev/null
@@ -1,72 +0,0 @@
-// 09.11.26
-// 09.12.06
-// 09.12.25
-// 09.12.29
-
-function Putcell(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- Str=varargin(Nargs);
- if type(Str)==1
- Str=string(Str);
- end;
- Pos=varargin(Nargs-1);
- Nrg=varargin(2);
- if type(Nrg)==10
- if Nargs==4
- Cell=Findcell(TbL,Nrg);
- else
- Mrg=varargin(3);
- Cell=Findcell(TbL,Nrg,Mrg);
- end;
- else
- Mrg=varargin(3);
- Cell=Findcell(TbL,Nrg,Mrg);
- end;
- Pt=Cell(1); Dr='c';
- Posh=part(Pos,1);
- Post=part(Pos,2:length(Pos));
- if (Posh=='r')|(Posh=='R')
- Pt=Pt+[Cell(2),0];
- if length(Post)==0
- Dr='w1';
- else
- Dr='w'+Post;
- end;
- end;
- if (Posh=='l')|(Posh=='L')
- Pt=Pt-[Cell(2),0];
- if length(Post)==0
- Dr='e1';
- else
- Dr='e'+Post;
- end;
- end;
- if (Posh=='u')|(Posh=='U')
- Pt=Pt+[0,Cell(3)];
- if length(Post)==0
- Dr='s1';
- else
- Dr='s'+Post;
- end;
- end;
- if (Posh=='d')|(Posh=='D')
- Pt=Pt-[0,Cell(3)];
- if length(Post)==0
- Dr='n1';
- else
- Dr='n'+Post;
- end;
- end;
- if (Posh=='b')|(Posh=='B')
- Pt=Pt-[0,Cell(3)];
- if length(Post)==0
- Dr='n1';
- else
- Dr='n'+Post;
- end;
- Str='$\mathstrut$'+Str;
- end;
- Letter(Pt,Dr,Str);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.bin
deleted file mode 100644
index 3a9d0634..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.sci
deleted file mode 100755
index 63bc151f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 09.11.26
-
-function Putcirmark(TbL,Nrg,Mrg,Dt)
- if type(Dt)==10
- N=1; Pos=Dt; Str='';
- else
- N=length(Dt); Pos='l'; Str='\hspace*{2mm}';
- end;
- for I=1:N
- Tmp1=Dt(I);
- Str=Str+'\cirmark';
- if I<N
- Str=Str+'\hspace{3mm}';
- end;
- end;
- Putcell(TbL,Nrg,Mrg,Pos,Str);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.bin
deleted file mode 100644
index b7994dc4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.sci
deleted file mode 100755
index 41b9a1b6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoL.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 09.12.06
-// 10.01.26
-
-function PutcoL(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- if type(TbL)~=15
- disp('Tabledata missing')
- return;
- end;
- Ag=varargin(2);
- if type(Ag)==1
- CoL=Ag;
- else
- Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ';
- Clm=[];
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp-1];
- end;
- end;
- Nrg=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg=Nrg+Tmp*26^Tmp1;
- end;
- CoL=Nrg;
- end;
- Nr=length(TbL(3))+1;
- K=1;
- Dpos=varargin(3);
- for I=4:Nargs
- if I-3>Nr
- break;
- end;
- Dt=varargin(I);
- if type(Dt)~=15
- Putcell(TbL,CoL,K,Dpos,Dt);
- K=K+1;
- else
- N=length(Dt);
- Str=Dt(N);
- Rrng=[K,K+1];
- Pos=Dpos;
- for J=1:(N-1)
- Tmp=Dt(J);
- if type(Tmp)==1
- Rrng=[K,K+Tmp];
- end;
- if type(Tmp)==10
- Pos=Tmp;
- end;
- end;
- Putcell(TbL,CoL,Rrng,Pos,Str)
- K=Rrng(2);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.bin
deleted file mode 100644
index 304768e4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.sci
deleted file mode 100755
index 0e2f9d0a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLexpr.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 10.04.01
-
-function PutcoLexpr(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- if type(TbL)~=15
- disp('Tabledata missing')
- return;
- end;
- Ag=varargin(2);
- if type(Ag)==1
- CoL=Ag;
- else
- Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ';
- Clm=[];
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp-1];
- end;
- end;
- Nrg=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg=Nrg+Tmp*26^Tmp1;
- end;
- CoL=Nrg;
- end;
- Nr=length(TbL(3))+1;
- K=1;
- Dpos=varargin(3);
- for I=4:Nargs
- if I-3>Nr
- break;
- end;
- Dt=varargin(I);
- if type(Dt)~=15
- Dt='$'+Dt+'$';
- Putcell(TbL,CoL,K,Dpos,Dt);
- K=K+1;
- else
- N=length(Dt);
- Str='$'+Dt(N)+'$';
- Rrng=[K,K+1];
- Pos=Dpos;
- for J=1:(N-1)
- Tmp=Dt(J);
- if type(Tmp)==1
- Rrng=[K,K+Tmp];
- end;
- if type(Tmp)==10
- Pos=Tmp;
- end;
- end;
- Putcell(TbL,CoL,Rrng,Pos,Str)
- K=Rrng(2);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.bin
deleted file mode 100644
index 153f9afd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci
deleted file mode 100755
index b993ffa9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/PutcoLstr.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 10.01.02 for v5
-
-function PutcoLstr(varargin)
- Tb=varargin(1);
- Nr=varargin(2);
- Pos=varargin(3);
- Str=varargin(4);
- Sep='';
- if length(varargin)>4
- Sep=varargin(5);
- end;
- if Sep==''
- for I=1:length(Str)
- Tmp=part(Str,I);
- Putcell(Tb,Nr,I,Pos,Tmp);
- end;
- else
- Ltr='';
- K=1;
- for I=1:length(Str)
- Tmp=part(Str,I);
- if Tmp==Sep
- Putcell(Tb,Nr,K,Pos,Ltr);
- K=K+1;
- Ltr='';
- else
- Ltr=Ltr+Tmp;
- end;
- end;
- if Ltr~=''
- Putcell(Tb,Nr,K,Pos,Ltr);
- end;
- end;
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.bin
deleted file mode 100644
index f48d783b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.sci
deleted file mode 100755
index 8d732a9d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putdashmark.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 09.11.26
-
-function Putdashmark(TbL,Nrg,Mrg,Dt)
- N=length(Dt);
- Str='\hspace*{2mm}';
- for I=1:N
- Tmp1=Dt(I);
- if type(Tmp1)==1
- Tmp1=string(Tmp1);
- end;
- Str=Str+'\dashmark{'+Tmp1+'}';
- if I<N
- Str=Str+'\hspace{3mm}';
- end;
- end;
- Putcell(TbL,Nrg,Mrg,'l',Str);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.bin
deleted file mode 100644
index ae7f9955..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.sci
deleted file mode 100755
index ce63e542..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrecmark.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 09.11.26
-
-function Putrecmark(TbL,Nrg,Mrg,Dt)
- if type(Dt)==10
- N=1; Pos=Dt; Str='';
- else
- N=length(Dt); Pos='l'; Str='\hspace*{2mm}';
- end;
- for I=1:N
- Str=Str+'\recmark';
- if I<N
- Str=Str+'\hspace{3mm}';
- end;
- end;
- Putcell(TbL,Nrg,Mrg,Pos,Str);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.bin
deleted file mode 100644
index 9e4117c2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci
deleted file mode 100755
index 0c2c209a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrow.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.12.06
-// 10.01.26
-
-function Putrow(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- if type(TbL)~=15
- disp('Tabledata missing')
- return;
- end;
- Row=varargin(2);
- Nr=length(TbL(2))+1;
- K=1;
- Dpos=varargin(3);
- for I=4:Nargs
- if I-3>Nr
- break;
- end;
- Dt=varargin(I);
- if type(Dt)~=15
- Putcell(TbL,K,Row,Dpos,Dt);
- K=K+1;
- else
- N=length(Dt);
- Str=Dt(N);
- Crng=[K,K+1];
- Pos=Dpos;
- for J=1:(N-1)
- Tmp=Dt(J);
- if type(Tmp)==1
- Crng=[K,K+Tmp];
- end;
- if type(Tmp)==10
- Pos=Tmp;
- end;
- end;
- Putcell(TbL,Crng,Row,Pos,Str)
- K=Crng(2);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.bin
deleted file mode 100644
index f29ca390..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.sci
deleted file mode 100755
index 0a3158cc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowexpr.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 10.04.01
-
-function Putrowexpr(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- if type(TbL)~=15
- disp('Tabledata missing')
- return;
- end;
- Row=varargin(2);
- Nr=length(TbL(2))+1;
- K=1;
- Dpos=varargin(3);
- for I=4:Nargs
- if I-3>Nr
- break;
- end;
- Dt=varargin(I);
- if type(Dt)~=15
- Dt='$'+Dt+'$';
- Putcell(TbL,K,Row,Dpos,Dt);
- K=K+1;
- else
- N=length(Dt);
- Str='$'+Dt(N)+'$';
- Crng=[K,K+1];
- Pos=Dpos;
- for J=1:(N-1)
- Tmp=Dt(J);
- if type(Tmp)==1
- Crng=[K,K+Tmp];
- end;
- if type(Tmp)==10
- Pos=Tmp;
- end;
- end;
- Putcell(TbL,Crng,Row,Pos,Str)
- K=Crng(2);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.bin
deleted file mode 100644
index 32f9675d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci
deleted file mode 100755
index d006f3ec..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putrowstr.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 10.01.02 for v5
-
-function Putrowstr(varargin)
- Tb=varargin(1);
- Nr=varargin(2);
- Pos=varargin(3);
- Str=varargin(4);
- Sep='';
- if length(varargin)>4
- Sep=varargin(5);
- end;
- if Sep==''
- for I=1:length(Str)
- Tmp=part(Str,I);
- Putcell(Tb,I,Nr,Pos,Tmp);
- end;
- else
- Ltr='';
- K=1;
- for I=1:length(Str)
- Tmp=part(Str,I);
- if Tmp==Sep
- Putcell(Tb,K,Nr,Pos,Ltr);
- K=K+1;
- Ltr='';
- else
- Ltr=Ltr+Tmp;
- end;
- end;
- if Ltr~=''
- Putcell(Tb,K,Nr,Pos,Ltr);
- end;
- end;
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.bin
deleted file mode 100644
index 30dda6f7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.sci
deleted file mode 100755
index a4f1ad89..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Puttrace.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.09.10
-
-function Puttrace(Dt);
- global TRACEDATA;
- TRACEDATA=Dt;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.bin
deleted file mode 100644
index aa4a60ac..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.sci
deleted file mode 100644
index 839452f6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ratiocmyk.sci
+++ /dev/null
@@ -1,87 +0,0 @@
-// 11.05.28
-// 15.05.03
-
-function R=Ratiocmyk(Color)
- if type(Color)==1 then
- R=Color;
- return;
- end;
- Tmp=grep(Color,',');
- if length(Tmp)>0
- R=evstr(Tmp);
- return;
- end;
- select Color
- case 'greenyellow' then R=[0.15,0,0.69,0],
- case 'yellow' then R=[0,0,1,0],
- case 'goldenrod' then R=[0,0.1,0.84,0],
- case 'dandelion' then R=[0,0.29,0.84,0],
- case 'apricot' then R=[0,0.32,0.52,0],
- case 'peach' then R=[0,0.5,0.7,0],
- case 'melon' then R=[0,0.46,0.5,0],
- case 'yelloworange' then R=[0,0.42,1,0],
- case 'orange' then R=[0,0.61,0.87,0],
- case 'burntorange' then R=[0,0.51,1,0],
- case 'bittersweet' then R=[0,0.75,1,0.24],
- case 'redorange' then R=[0,0.77,0.87,0],
- case 'mahogany' then R=[0,0.85,0.87,0.35],
- case 'maroon' then R=[0,0.87,0.68,0.32],
- case 'brickred' then R=[0,0.89,0.94,0.28],
- case 'red' then R=[0,1,1,0],
- case 'orangered' then R=[0,1,0.5,0],
- case 'rubinered' then R=[0,1,0.13,0],
- case 'wildstrawberry' then R=[0,0.96,0.39,0],
- case 'salmon' then R=[0,0.53,0.38,0],
- case 'carnationpink' then R=[0,0.63,0,0],
- case 'magenta' then R=[0,1,0,0],
- case 'violetred' then R=[0,0.81,0,0],
- case 'rhodamine' then R=[0,0.82,0,0],
- case 'mulberry' then R=[0.34,0.9,0,0.02],
- case 'redviolet' then R=[0.07,0.9,0,0.34],
- case 'fuchsia' then R=[0.47,0.91,0,0.08],
- case 'lavender' then R=[0,0.48,0,0],
- case 'thistle' then R=[0.12,0.59,0,0],
- case 'orchid' then R=[0.32,0.64,0,0],
- case 'darkorchid' then R=[0.4,0.8,0.2,0],
- case 'purple' then R=[0.45,0.86,0,0],
- case 'plum' then R=[0.5,1,0,0],
- case 'violet' then R=[0.79,0.88,0,0],
- case 'royalpurple' then R=[0.75,0.9,0,0],
- case 'blueviolet' then R=[0.86,0.91,0,0.04],
- case 'periwinkle' then R=[0.57,0.55,0,0],
- case 'cadetblue' then R=[0.62,0.57,0.23,0],
- case 'cornflowerblue' then R=[0.65,0.13,0,0],
- case 'midnightblue' then R=[0.98,0.13,0,0.43],
- case 'navyblue' then R=[0.94,0.54,0,0],
- case 'royalblue' then R=[1,0.5,0,0],
- case 'blue' then R=[1,1,0,0],
- case 'cerulean' then R=[0.94,0.11,0,0],
- case 'cyan' then R=[1,0,0,0],
- case 'processblue' then R=[0.96,0,0,0],
- case 'skyblue' then R=[0.62,0,0.12,0],
- case 'turquoise' then R=[0.85,0,0.2,0],
- case 'tealblue' then R=[0.86,0,0.34,0.02],
- case 'aquamarine' then R=[0.82,0,0.3,0],
- case 'bluegreen' then R=[0.85,0,0.33,0],
- case 'emerald' then R=[1,0,0.5,0],
- case 'junglegreen' then R=[0.99,0,0.52,0],
- case 'seagreen' then R=[0.69,0,0.5,0],
- case 'green' then R=[1,0,1,0],
- case 'forestgreen' then R=[0.91,0,0.88,0.12],
- case 'pinegreen' then R=[0.92,0,0.59,0.25],
- case 'limegreen' then R=[0.5,0,1,0],
- case 'yellowgreen' then R=[0.44,0,0.74,0],
- case 'springgreen' then R=[0.26,0,0.76,0],
- case 'olivegreen' then R=[0.64,0,0.95,0.4],
- case 'rawsienna' then R=[0,0.72,1,0.45],
- case 'sepia' then R=[0,0.83,1,0.7],
- case 'brown' then R=[0,0.81,1,0.6],
- case 'tan' then R=[0.14,0.42,0.56,0],
- case 'gray' then R=[0,0,0,0.5],
- case 'black' then R=[0,0,0,1],
- case 'white' then R=[0,0,0,0],
- else
- disp(Color+' may be user-defined');
- R=Color; // 15.05.03
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.bin
deleted file mode 100644
index 0b858b05..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.sci
deleted file mode 100644
index c1656b15..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadOutData.sci
+++ /dev/null
@@ -1,92 +0,0 @@
-// 14.10.10
-// 14.12.14 for 3d
-// 15.01.03 changed ("start","end")
-// 15.10.24 in case of list-length==1
-
-function Out=ReadOutData(varargin)
- global Fnameout
- if length(varargin)==0 then
- Fname=Rnameout;
- else
- Fname=varargin(1);
- end
- Fid=mopen(Fname,"rb");
- Gstr=[];
- Str="";
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1
- if Tmp=="" then
- break;
- end;
- C=ascii(Tmp);
- if Tmp=="/"|C==13|C==10 then// / CR,LF
- if Flg==1 then
- if part(Str,1:5)=="start" then
- Str="Tmp=[];";
- else
- if part(Str,1:3)=="end" then
- if Flg3d==0 then // 2014.12.14
- Str=Varname+"($+1)=Listplot(Tmp);";
- else
- Str=Varname+"($+1)=Spaceline(Tmp);";
- end
- else
- if part(Str,1:2)=="[[" then
- Str="Tmp=[Tmp,"+Str+"];";
- else
- Varname=Str;
- Str=Varname+"=list();"
- Flg3d=-1;
- end;
- end;
- end;
- if Flg3d==-1 then // 2014.12.14
- Tmp1=mtlb_findstr(Str,"[[");
- if length(Tmp1)>0 then
- Tmp2=mtlb_findstr(Str,"]");
- Tmp3=part(Str,Tmp1:Tmp2(1));
- Tmp4=mtlb_findstr(Tmp3,",")
- if length(Tmp4)==2 then
- Flg3d=1;
- else
- Flg3d=0;
- end
- end
- end
- Gstr=[Gstr;Str];
- Str="";
- Flg=0;
- end;
- else
- Str=Str+Tmp;
- Flg=1;
- end;
- Tmp=mgetstr(1,Fid);
- end;
- mclose(Fid);
- Out=[]; // 15.10.24 from
- Var="";
- Ctr=0;
- for J=1:size(Gstr,1)
- St=Gstr(J,1);
- Out=[Out;St];
- Tmp=strsplit(St,"=");
- Tmp1=Tmp(1,1);
- Tmp2=Tmp(2,1);
- if grep(Tmp2,"list()") then
- if Ctr==1 then
- Out=[Out;Var+"="+Var+"(1)"];
- end;
- Var=Tmp1;
- Ctr=0;
- end;
- if grep(Tmp1,"$") then
- Ctr=Ctr+1;
- end;
- end
- if Ctr==1 then
- Out=[Out;Var+"="+Var+"(1)"];
- end; // 15.10.24 upto
- Out;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.bin
deleted file mode 100644
index e078ba2f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci
deleted file mode 100644
index eaf9f6df..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ReadfromCindy.sci
+++ /dev/null
@@ -1,38 +0,0 @@
-// s:2014,09.08
-// e:2014.09.26
-// e:2014.10.07 debugged, code changed
-// e:2014.10.08 CR | LF
-
-function Out=ReadfromCindy(Fname)
- Fid=mopen(Fname,"rb");
- Gline=list();
- Gpt=list();
- Gstr=[];
- Str="";
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1
- if Tmp=="" then
- if Flg==1 then
- Gstr=[Gstr;Str];
- Str="";
- Flg=1;
- end;
- break;
- end
- C=ascii(Tmp);
- if C==13|C==10 then// CR,LF
- if Flg==1 then
- Gstr=[Gstr;Str];
- Str="";
- Flg=0;
- end;
- else
- Str=Str+Tmp;
- Flg=1;
- end;
- Tmp=mgetstr(1,Fid);
- end;
- mclose(Fid);
- Out=Gstr;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.bin
deleted file mode 100644
index 05df3aa2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.sci
deleted file mode 100755
index 7109f789..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Readtextdata.sci
+++ /dev/null
@@ -1,160 +0,0 @@
-// 08.05.22
-// 08.05.23
-// 08.05.26
-// 08.05.28
-// 10.04.25
-// 11.01.05
-// 13.10.06 format, debug
-// 14.01.20 debugged (Big data)
-
-function OutL=Readtextdata(varargin)
- OutL=[];
- Nargs=length(varargin);
- Fname=varargin(1);
- Suuji='0123456789.+-';
- Sep='';
- Hajime=[1,1];
- N=%inf;
- R=%inf;
- D=-%inf; // 11.01.04
- Fmt="%lf"; // 13.10.06
- Flg=0;
- for I=2:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- if Flg==0
- Hajime=Tmp;
- Flg=1
- else
- Owari=Tmp;
- end
- elseif mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- else
- if part(Tmp,1)=="%" // 13.10.06
- Fmt=Tmp
- else
- Sep=Tmp;
- if Tmp=='s' Sep=' '; end
- if Tmp==',' Sep=','; end
- if Tmp=='t' Sep=char(9); end
- end
- end
- end
- Owari=Hajime+[N-1,R-1];
- Fid=mopen(Fname,'rb');
- SL=[];
- S='';
- Lsp=0;
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1 // 2014.01.20
- if Tmp=='' break; end
- C=ascii(Tmp);
- if C>=32 | C==9
- if C==32
- if Flg==1
- Tmp='';
- end
- Flg=1
- else
- Flg=0;
- end
- S=S+Tmp;
- Tmp=mgetstr(1,Fid);
- else
- SL=[SL;S];
- S='';
- Flg=1;
- Tmp=mgetstr(1,Fid);
- if Lsp==0
- if C==10 // LF
- Lsp=1;
- elseif C==13
- if ascii(Tmp)==10
- Lsp=3; // CR LF
- Tmp=mgetstr(1,Fid);
- else
- Lsp=2; // CR
- end
- else
- break;
- end
- else
- if C==10 | C==13
- if Lsp==3
- Tmp=mgetstr(1,Fid);
- end
- else
- break
- end
- end
- end
- end
- mclose(Fid);
- if length(S)>0 then // 2013.10.06
- SL=[SL;S]
- end
- for I=1:size(SL,1)
- S=SL(I,1);
- if S=='' continue; end
- if mtlb_findstr(Suuji,Strop(1,S))~=[]
- break
- end
- end
- Hajime(1,1)=max(Hajime(1,1),I);
- S=SL(Hajime(1),1);
- if Sep==''
- if length(mtlb_findstr(S,char(9)))~=0
- Sep=char(9);
- elseif length(mtlb_findstr(S,','))~=0
- Sep=',';
- else
- Sep=' ';
- end
- end
- Tmp=mtlb_findstr(S,Sep);
- J=length(Tmp);
- if Tmp(J)~=length(S)
- J=J+1;
- end
- Owari(1,1)=min(size(SL,1),Owari(1));
- Owari(1,2)=min(J,Owari(2));
- S=SL(Owari(1),1);
- while S==''
- Owari(1,1)=Owari(1,1)-1;
- S=SL(Owari(1),1);
- end
- OutL=[];
- for J=Hajime(1):Owari(1)
- S=SL(J,1);
- if S==''
- Tmp=%inf*ones(1,Owari(2)-Hajime(2)+1);
- OutL=[OutL;Tmp];
- continue
- end
- Tmp=Strop(1,S);
- if mtlb_findstr(Suuji+Sep,Tmp)==[]
- continue
- end
- SpL=[0,mtlb_findstr(S,Sep),length(S)+1];
- Data=[];
- for K=Hajime(2):Owari(2)
- Tmp=Strop(SpL(K)+1:SpL(K+1)-1,S);
- Tmp1=msscanf(Tmp,Fmt); // 13.10.06
- Data=[Data,Tmp1];
- end
- OutL=[OutL;Data];
- end;
- if D~=-%inf // 11.01.04
- Data=[];
- for I=1:size(OutL,1)
- Tmp=OutL(I,:);
- if Tmp(1)<=D // 11.01.04
- Tmp=[%inf,%inf];
- end;
- Data=[Data;Tmp];
- end;
- OutL=Data;
- end; //
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.bin
deleted file mode 100644
index 2269d9ad..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.sci
deleted file mode 100755
index 837a5727..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Reflectdata.sci
+++ /dev/null
@@ -1,51 +0,0 @@
-// 08.05.25 Koshikawa
-// 08.09.20
-// 15.04.12
-
-function OutL=Reflectdata(varargin)
- Nargs=length(varargin)
- ML=varargin(1);
- ML=Flattenlist(ML);
- if Nargs==1
- PtA=[0,0];PtB=PtA;
- else
- Pts=varargin(2);
- if length(Pts)==2
- PtA=Pts; PtB=PtA;
- else
- PtA=Pts(1,1:2); PtB=Pts(1,3:4);
- end
- end
- OutL=[];
- for N=1:length(ML)
- GL=Op(N,ML);
- Out=[];
- for I=1:size(GL,1)
- Tmp=GL(I,:);
- X1=Tmp(1);
- Y1=Tmp(2);
- if Tmp==[%inf,%inf]
- X2=X1;
- Y2=Y1;
- else
- if PtA==PtB
- X2=2*PtA(1)-X1;
- Y2=2*PtA(2)-Y1;
- else
- U=PtB(1)-PtA(1);
- V=PtB(2)-PtA(2);
- A=PtA(1);
- B=PtA(2);
- X2=(U^2-V^2)/(U^2+V^2)*X1+2*U*V/(U^2+V^2)*Y1-2*V*(U*B-V*A)/(U^2+V^2);
- Y2=2*U*V/(U^2+V^2)*X1-(U^2-V^2)/(U^2+V^2)*Y1+2*U*(U*B-V*A)/(U^2+V^2);
- end
- end
- Out=[Out;X2,Y2];
- end;
- OutL=Mixadd(OutL,Out);
- end;
- if length(OutL)==1
- OutL=Op(1,OutL);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.bin
deleted file mode 100644
index 1a99c6ca..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.sci
deleted file mode 100755
index facea4d5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rmmember.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 11.01.14 New
-
-function Out=Rmmember(L,Rm)
- if type(L)==1
- Out=[];
- end;
- if type(L)==15
- Out=list();
- end;
- for J=1:length(L)
- Tmp=L(J);
- if ~Member(Tmp,Rm)
- Out($+1)=Tmp;
- end;
- end;
- if type(L)==1 & size(L,1)==1
- Out=Out';
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.bin
deleted file mode 100644
index c9391ec5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.sci
deleted file mode 100755
index 9082290d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3data.sci
+++ /dev/null
@@ -1,40 +0,0 @@
-// 08.08.15
-// 14.03.23 debugged "center"
-// 15.04.12
-
-function Out=Rotate3data(varargin)
-// Eps=10^(-4);
- Nargs=length(varargin);
- Pd3=varargin(1);
- Pd3=Flattenlist(Pd3); // 15.04.12
- W1=varargin(2);
- W2=varargin(3);
- C=[0,0,0];
- if Nargs>=4
- C=varargin(4);
- end;
-// if Mixtype(Pd3)==1 // 15.04.12 from
-// Pd3=MixS(Pd3);
-// elseif Mixtype(Pd3)==3
-// Tmp=[];
-// for I=1:Mixlength(Pd3)
-// Tmp=Mixjoin(Tmp,Mixop(I,Pd3));
-// end;
-// Pd3=Tmp;
-// end;
- Out=[];
- for I=1:length(Pd3)
- PD=Op(I,Pd3);
- Ans=[];
- for J=1:size(PD,1)
- P=PD(J,:);
- Tmp=Rotate3pt(P,W1,W2,C); // 14.03.23
- Ans=[Ans;Tmp];
- end;
- Out=Mixadd(Out,Ans);
- end;
- if length(Out)==1
- Out=Op(1,Out);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.bin
deleted file mode 100644
index 35da0ed9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.sci
deleted file mode 100755
index 910aa734..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotate3pt.sci
+++ /dev/null
@@ -1,75 +0,0 @@
-// 08.08.15
-
-function Ans=Rotate3pt(varargin)
- Eps=10^(-4);
- Nargs=length(varargin);
- P=varargin(1);
- W1=varargin(2);
- W2=varargin(3);
- C=[0,0,0];
- if Nargs>=4
- C=varargin(4);
- end;
- if type(W2)==1 & length(W2)==1
- Ct=cos(W2);
- St=sin(W2);
- V3=1/norm(W1)*W1;
- if V3(1)==0
- Tmp=[1,0,0];
- else
- Tmp=[0,1,0];
- end;
- W1=[Tmp(2)*V3(3)-Tmp(3)*V3(2),Tmp(3)*V3(1)-Tmp(1)*V3(3),Tmp(1)*V3(2)-Tmp(2)*V3(1)];
- V1=1/norm(W1)*W1;
- V2=[V3(2)*V1(3)-V3(3)*V1(2),V3(3)*V1(1)-V3(1)*V1(3),V3(1)*V1(2)-V3(2)*V1(1)];
- else
- Tmp=[W1(2)*W2(3)-W1(3)*W2(2),W1(3)*W2(1)-W1(1)*W2(3),W1(1)*W2(2)-W1(2)*W2(1)];
- if norm(Tmp)<Eps
- Ans=P;
- return;
- end;
- V1=1/norm(W1)*W1;
- Ns=V1(1)*W2(1)+V1(2)*W2(2)+V1(3)*W2(3);
- Tmp=W2-Ns*V1;
- V2=1/norm(Tmp)*Tmp;
- Tmp=[V1(2)*V2(3)-V1(3)*V2(2),V1(3)*V2(1)-V1(1)*V2(3),V1(1)*V2(2)-V1(2)*V2(1)];
- V3=1/norm(Tmp)*Tmp;
- Ct=Ns/norm(W2);
- St=sqrt(1-Ct^2);
- end;
- if norm(Tmp)<Eps
- Ans=P;
- return;
- end;
- V1x=V1(1); V1y=V1(2); V1z=V1(3);
- V2x=V2(1); V2y=V2(2); V2z=V2(3);
- V3x=V3(1); V3y=V3(2); V3z=V3(3);
- if Mixtype(P)~=1
- PtL=P;
- else
- PtL=MixS(P);
- end;
- Ans=[];
- for N=1:Mixlength(PtL)
- P=Mixop(N,PtL);
- if P(1)==%inf
- Ans=Mixadd(Ans,[%inf,%inf,%inf]);
- continue;
- end;
- x=P(1)-C(1); y=P(2)-C(2); z=P(3)-C(3);
- X=((V1x*Ct+V2x*St)*V1x+(-V1x*St+V2x*Ct)*V2x+V3x^2)*x;
- X=X+((V1x*Ct+V2x*St)*V1y+(-V1x*St+V2x*Ct)*V2y+V3x*V3y)*y;
- X=X+((V1x*Ct+V2x*St)*V1z+(-V1x*St+V2x*Ct)*V2z+V3x*V3z)*z;
- Y=((V1y*Ct+V2y*St)*V1x+(-V1y*St+V2y*Ct)*V2x+V3x*V3y)*x;
- Y=Y+((V1y*Ct+V2y*St)*V1y+(-V1y*St+V2y*Ct)*V2y+V3y^2)*y;
- Y=Y+((V1y*Ct+V2y*St)*V1z+(-V1y*St+V2y*Ct)*V2z+V3y*V3z)*z;
- Z=((V1z*Ct+V2z*St)*V1x+(-V1z*St+V2z*Ct)*V2x+V3x*V3z)*x;
- Z=Z+((V1z*Ct+V2z*St)*V1y+(-V1z*St+V2z*Ct)*V2y+V3y*V3z)*y;
- Z=Z+((V1z*Ct+V2z*St)*V1z+(-V1z*St+V2z*Ct)*V2z+V3z^2)*z;
- Ans=Mixadd(Ans,C+[X,Y,Z]);
- end;
- if Mixlength(Ans)==1
- Ans=Mixop(1,Ans);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.bin
deleted file mode 100644
index fda8e518..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.sci
deleted file mode 100755
index 845cac17..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Rotatedata.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 08.05.23 Koshikawa
-// 08.09.20
-// 15.04.12
-
-function OutL=Rotatedata(varargin)
- Nargs=length(varargin);
- ML=varargin(1);
- ML=Flattenlist(ML);
- Theta=varargin(2);
- if Nargs==2,
- Pt=[0,0]
- else
- Pt=varargin(3);
- end
- Cx=Pt(1);Cy=Pt(2);
- OutL=[];
- for N=1:length(ML)
- GL=Op(N,ML);
- Out=[];
- for I=1:size(GL,1)
- Tmp=GL(I,:);
- X1=Tmp(1);
- Y1=Tmp(2);
- if Tmp==[%inf,%inf]
- X2=X1;
- Y2=Y1;
- else
- X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
- Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
- end;
- Out=[Out;X2,Y2];
- end;
- OutL=Mixadd(OutL,Out);
- end;
- if length(OutL)==1
- OutL=Op(1,OutL);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.bin
deleted file mode 100644
index dd5656fd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci
deleted file mode 100755
index d14f3b3a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Roundstr.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 10.11.04
-
-function Out=Roundstr(X,Ni,Nf)
- Na=Ni+1+Nf;
- Fmt='%'+string(Na)+'.'+string(Nf)+'f';
- Out=sprintf(Fmt,X);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.bin
deleted file mode 100644
index 7aeb7385..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.sci
deleted file mode 100755
index 7e563f4b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 08.05.25 Koshikawa
-// 08.09.20
-// 15.04.12
-
-function OutL=Scaledata(varargin)
- Nargs=length(varargin);
- ML=varargin(1);
- ML=Flattenlist(ML);
- A=varargin(2);
- B=varargin(3);
- if Nargs==3
- Pt=[0,0];
- else
- Pt=varargin(4);
- end
- OutL=[];
- for N=1:length(ML)
- GL=Op(N,ML);
- Out=[];
- for I=1:size(GL,1)
- Tmp=GL(I,:);
- X1=Tmp(1);
- Y1=Tmp(2);
- if Tmp==[%inf,%inf]
- X2=X1;
- Y2=Y1;
- else
- X2=Pt(1)+A*(X1-Pt(1));
- Y2=Pt(2)+B*(Y1-Pt(2));
- end
- Out=[Out;X2,Y2];
- end;
- OutL=Mixadd(OutL,Out);
- end;
- if length(OutL)==1
- OutL=Op(1,OutL);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.bin
deleted file mode 100644
index 4ebf14d1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.sci
deleted file mode 100755
index e918e475..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sectionview.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 09.09.10
-// 09.10.12 remove:Uveq, add:Glist
-
-function Out=Sectionview(PtA,Vec,Fd,Glist,Np,Eps)
- Uv=1/norm(Vec)*Vec;
- Nv=[Uv(2),-Uv(1),0];
- G1=Sfcutdata(Fd,Mix(Nv,PtA),Np);
- G2=Spaceline([PtA,PtA+10*Uv]);
- Tmp=Mixjoin(G1,G2,Glist);
- Tmp1=Viewfrom(Nv,Tmp);
- Out=Tmp;
-endfunction;
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.bin
deleted file mode 100644
index 4b102f32..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.sci
deleted file mode 100755
index 2a4a3c95..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setangle.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 08.07.11
-// 08.08.12
-// 09.02.27
-
-function Setangle(varargin)
- global PHI THETA;
- Nargs=length(varargin);
- if Nargs<2
- Mixdisp(Mix('theta=',THETA*180/%pi));
- Mixdisp(Mix('phi=',PHI*180/%pi));
- return;
- else
- PHI=varargin(2)*%pi/180;
- THETA=varargin(1)*%pi/180;
- end
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.bin
deleted file mode 100644
index 7ea694d9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.sci
deleted file mode 100755
index 8f9d6053..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setarrow.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 08.05.31
-// 09.02.27
-
-function Setarrow(varargin)
- global YaSize YaAngle YaPosition YaThick YaStyle;
- Nargs=length(varargin);
- if Nargs==0
- Mixdisp(Mix('Size=',YaSize));
- Mixdisp(Mix('Angle=',YaAngle));
- Mixdisp(Mix('Position=',YaThick));
- Mixdisp(Mix('Style=',YaStyle));
- return;
- end;
- Flg=0;
- for I=1:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- Flg=Flg+1;
- if Flg==1 YaSize=Tmp; end
- if Flg==2
- if Tmp<5
- YaAngle=18*Tmp;
- else
- YaAngle=Tmp;
- end
- end
- if Flg==3 YaPosition=Tmp; end
- if Flg==4 YaThick=Tmp; end
- end
- if type(Tmp)==10
- YaStyle=Tmp
- end
- end
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.bin
deleted file mode 100644
index 55e4fb8c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.sci
deleted file mode 100755
index 5fab30e2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setax.sci
+++ /dev/null
@@ -1,102 +0,0 @@
-// 08.08.08
-// 09,02.27
-
-function Out=Setax(varargin)
- global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE;
- Nargs=length(varargin);
- if Nargs==0
- if ZIKU=='line'
- Tmp=','
- else
- Tmp='(Arrowsize='+string(ARROWSIZE)+'),'
- end;
- Str=...
- ZIKU+Tmp+...
- XNAME+','+XPOS+','+YNAME+','+...
- YPOS+','+ONAME+','+OPOS;
- Out=Str;
- disp(Str);
- return;
- end;
- ArgL=[];
- Is=1;
- Tmp=varargin(1);
- if type(Tmp)==1 & length(Tmp)==1
- Is=varargin(1);
- ArgL=[];
- for I=1:Is-1
- ArgL=[ArgL,''];
- end
- for I=2:Nargs
- ArgL=[ArgL,varargin(I)];
- end
- else
- if Nargs==1
- ArgL=[varargin(1)];
- else
- Tmp=varargin(2);
- if type(Tmp)==1 & length(Tmp)==1
- ARROWSIZE=Tmp;
- ArgL=[varargin(1)];
- for I=3:Nargs
- ArgL=[ArgL,varargin(I)];
- end;
- else
- ArgL=[];
- for I=1:Nargs
- ArgL=[ArgL,varargin(I)];
- end;
- end
- end
- end
- for I=size(ArgL,2)+1:7
- ArgL=[ArgL,''];
- end
- Zk=ArgL(1);
- if Zk~=''
- ZL=msscanf(Zk,'%c%f');
- Zk=ZL(1);
- if length(ZL)>1 // modified at 080807
- ARROWSIZE=ZL(2);
- end
- end
- Xn=ArgL(2); Xp=ArgL(3);
- Yn=ArgL(4); Yp=ArgL(5);
- Genn=ArgL(6); Genp=ArgL(7);
- if Zk~=''
- C=Zk;
- if C=='a'
- ZIKU='arrow';
- else
- ZIKU='line';
- end
- end
- if Xn~=''
- XNAME='$'+Xn+'$'
- end
- if Xp~=''
- XPOS=Xp
- end
- if Yn~=''
- YNAME='$'+Yn+'$'
- end
- if Yp~=''
- YPOS=Yp
- end
- if Genn~=''
- ONAME=Genn
- end
- if Genp~=''
- OPOS=Genp
- end
- if ZIKU=='line'
- Tmp=','
- else
- Tmp='(Arrowsize='+string(ARROWSIZE)+'),'
- end;
- Str=...
- ZIKU+Tmp+...
- XNAME+','+XPOS+','+YNAME+','+...
- YPOS+','+ONAME+','+OPOS;
- Out=Str;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.bin
deleted file mode 100644
index a6d15d9d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.sci
deleted file mode 100644
index 51b8e0c3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcolor.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 11.05.28
-// 11.08.24
-// 15.05.03
-
-function Setcolor(varargin)
- global Wfile FID;
- Nargs=length(varargin);
- Color='black';
- Kosa=1;
- Color=varargin(1);
- if length(varargin)>1
- Kosa=varargin(2);
- end;
- Iro=Ratiocmyk(Color);
- if type(Iro)==10
- Str='\color{'+Iro+"}%";
- else
- if size(Iro,2)>3
- Str='\color[cmyk]{';
- else
- Str='\color[rgb]{';
- end;
- for J=1:size(Iro,2)
- Str=Str+string(Kosa*Iro(J));
- if J<size(Iro,2)
- Str=Str+',';
- end;
- end;
- Str=Str+'}%';
- end;
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.bin
deleted file mode 100644
index e8d09380..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.sci
deleted file mode 100755
index 4b8b932b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setcounter.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 09.09.10
-
-function Setcounter(varargin)
- global GCOUNTER;
- Nargs=length(varargin);
- if Nargs==0
- N=1;
- else
- N=varargin(1);
- end;
- GCOUNTER=N;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.bin
deleted file mode 100644
index b50381fd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci
deleted file mode 100755
index ae713f4e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmark.sci
+++ /dev/null
@@ -1,43 +0,0 @@
-// 09.11.26
-// 09.12.06
-
-function Setmark();
- Xminnow=Xmin(); Xmaxnow=Xmax();
- Yminnow=Ymin(); Ymaxnow=Ymax();
- Setwindow([-1.5,1.5],[-2.3,2.3]);
- F1=Framedata();
- F2=Paramplot('[1.5*cos(t),2.3*sin(t)]','t=[0,2*%pi]','N=25');
- Texcom('\def\recmark{');
- Texcom('\begin{minipage}[c]{3mm}');
- Beginpicture('1mm');
- Shade(F1);
- Drwline(F1);
- Endpicture(0);
- Texcom('');
- Texcom('\end{minipage}');
- Texcom('}');
-
- Texcom('\def\cirmark{');
- Texcom('\begin{minipage}[c]{3mm}');
- Beginpicture('1mm');
- Shade(F2);
- Drwline(F2);
- Endpicture(0);
- Texcom('');
- Texcom('\end{minipage}');
- Texcom('}');
-
- Texcom('\def\dashmark#1{');
- Texcom('\begin{minipage}[c]{3mm}');
- Beginpicture('1mm');
- Setpen(0.5);
- Dashline(F2,0.5,0.5);
- Fontsize('ss');
- Letter([0,0],'c','#1');
- Endpicture(0);
- Texcom('');
- Texcom('\end{minipage}');
- Texcom('}');
- Setwindow([Xminnow,Xmaxnow],[Yminnow,Ymaxnow]);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.bin
deleted file mode 100644
index 1ad13b66..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.sci
deleted file mode 100755
index a17c9e95..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setmarklen.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-//
-// 09.02.27
-// 14.03.05 MARKLEN
-
-function Setmarklen(varargin)
- global MARKLEN MARKLENInit MARKLENNow;
- Nargs=length(varargin);
- if Nargs==0
- Tmp=MARKLEN/MARKLENInit;
- Tmp=round(Tmp*100)/100;
- disp(Tmp);
- return;
- end;
- Size=varargin(1);
- MARKLEN=MARKLENInit*Size;
- MARKLENNow=MARKLEN;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.bin
deleted file mode 100644
index af675f9c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.sci
deleted file mode 100644
index 2ee06cbb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjdecimals.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// s : 2014.06.22
-
-function Setobjdecimals(n)
- global OBJFMT;
- s1=string(n);
- s2=string(n+3);
- OBJFMT="%"+s2+"."+s1+"f";
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.bin
deleted file mode 100644
index 5ae9c620..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.sci
deleted file mode 100644
index 22f13c4d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setobjscale.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// s : 2014.06.22
-
-function Setobjscale(scale)
- global OBJSCALE;
- OBJSCALE=scale;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.bin
deleted file mode 100644
index 05b3c3e2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.sci
deleted file mode 100755
index 62a1f624..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setorigin.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 09.02.27
-
-function Setorigin(varargin)
- global GENTEN;
- Nargs=length(varargin);
- if Nargs==0
- disp(GENTEN);
- return;
- end;
- Pt=varargin(1);
- GENTEN=Pt;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.bin
deleted file mode 100644
index fd0d6bd7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.sci
deleted file mode 100755
index b3f0cbad..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpen.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function Setpen(Width)
- global Wfile FID PenThick PenThickInit;
- PenThick=round(PenThickInit*Width);
- Str='\linethickness{'+string(PenThick/1000)+'in}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.bin
deleted file mode 100644
index 07e56733..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.sci
deleted file mode 100755
index 455551bb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpers.sci
+++ /dev/null
@@ -1,16 +0,0 @@
-// 08.08.12
-// 08.08.15
-
-function Setpers(varargin)
- global FocusPoint EyePoint;
- Nargs=length(varargin);
- if Nargs==0
- Mixdisp(Mix('FocusPoints=',FocusPoint));
- Mixdisp(Mix('EyePoint=',EyePoint));
- return;
- else
- FocusPoint=varargin(1);
- EyePoint=varargin(2);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.bin
deleted file mode 100644
index 43792ee3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.sci
deleted file mode 100755
index a3b86b01..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setpt.sci
+++ /dev/null
@@ -1,16 +0,0 @@
-//
-// 09.02.27
-
-function Setpt(varargin)
- global TenSize TenSizeInit;
- Nargs=length(varargin);
- if Nargs==0
- Tmp=TenSize/TenSizeInit;
- Tmp=round(Tmp*100)/100;
- disp(Tmp);
- return;
- end;
- Size=varargin(1);
- TenSize=TenSizeInit*Size;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.bin
deleted file mode 100644
index 85da2aca..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.sci
deleted file mode 100755
index 1d4868c9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setscaling.sci
+++ /dev/null
@@ -1,28 +0,0 @@
-function Out=Setscaling(varargin)
- global LOGX LOGY SCALEX SCALEY;
- Nargs= length(varargin)
- if Nargs==0
- Out=[SCALEY,LOGX,LOGY];
- return;
- end;
- for I=1:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- SCALEY=Tmp;
- end;
- if type(Tmp)==10
- if Tmp=="l"
- LOGX=0;
- LOGY=1;
- elseif Tmp=="ll"
- LOGX=1
- LOGY=1
- else
- LOGX=0
- LOGY=0
- end;
- end;
- end;
- Out=[SCALEY,LOGX,LOGY];
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.bin
deleted file mode 100644
index 4e097b75..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.sci
deleted file mode 100755
index cb6c79ae..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoL.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.08.12
-// 08.09.21
-// 09.03.09
-
-function SetstereoL(R,T,P,H)
- X=R*sin(T*%pi/180)*cos(P*%pi/180);
- Y=R*sin(T*%pi/180)*sin(P*%pi/180);
- Z=R*cos(T*%pi/180);
- Eye=[X+H/2*Y/(X^2+Y^2),Y-H/2*X/(X^2+Y^2),Z];
- Setpers([0,0,0],Eye);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.bin
deleted file mode 100644
index bf25b018..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.sci
deleted file mode 100755
index ff9de892..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/SetstereoR.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// 08.08.12
-
-function SetstereoR(R,T,P,H)
- X=R*sin(T*%pi/180)*cos(P*%pi/180);
- Y=R*sin(T*%pi/180)*sin(P*%pi/180);
- Z=R*cos(T*%pi/180);
- Eye=[X-H/2*Y/(X^2+Y^2),Y+H/2*X/(X^2+Y^2),Z];
- Setpers([0,0,0],Eye);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.bin
deleted file mode 100644
index 455d977f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci
deleted file mode 100755
index 84ea4d60..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setunitlen.sci
+++ /dev/null
@@ -1,78 +0,0 @@
-// 08.12.06
-// 08.12.18
-// 09.02.20
-// 09.02.27
-// 14.03.05 MARKLEN
-// 17.03.19 VL=[] => VL="";
-
-function Out=Setunitlen(varargin)
- global FID XMIN XMAX YMIN YMAX ULEN
- global MilliIn MARKLEN MARKLENNow PenThickInit;
- if length(varargin)==0
- Out=ULEN;
- disp(ULEN);
- return;
- end;
- Ul=varargin(1);
- Dx=XMAX-XMIN;
- Dy=YMAX-YMIN;
- Sym='.0123456789 +-*/';
- Tmp=ascii(Sym);
- SL=Sym;
- OL='+-*/';
- if Ul~=''
- ULEN=Ul;
- end;
- Out=ULEN;
- Is=1;
- VL=""; // 17.03.19
- Ucode=ascii(ULEN);
- for I=1:length(Ucode)
- C=char(Ucode(I));
- if mtlb_findstr(SL,C)~=[]
- if mtlb_findstr(OL,C)
- Str=char(Ucode(Is:(I-1)));
- VL=VL+Str+C;
- Is=I+1;
- end
- else
- Unit=char(Ucode(I:(I+1)));
- Str=char(Ucode(Is:(I-1)));
- VL=VL+Str;
- break;
- end;
- end;
- Valu=evstr(VL);
- Str=string(Valu);
- ULEN=Str+Unit;
- Out=ULEN;
- if Unit=='cm'
- MilliIn=1000/2.54*Valu;
- end
- if Unit=='mm'
- MilliIn=1000/2.54*Valu/10;
- end
- if Unit=='in'
- MilliIn=1000*Valu;
- end
- if Unit=='pt'
- MilliIn=1000/72.27*Valu;
- end
- if Unit=='pc'
- MilliIn=1000/6.022*Valu;
- end
- if Unit=='bp'
- MilliIn=1000/72*Valu;
- end
- if Unit=='dd'
- MilliIn=1000/1238/1157/72.27*Valu;
- end
- if Unit=='cc'
- MilliIn=1000/1238/1157/72.27*12*Valu;p
- end
- if Unit=='sp'
- MilliIn=1000/72.27/65536*Valu/10;
- end
- MARKLEN=MARKLENNow*1000/2.54/MilliIn;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.bin
deleted file mode 100644
index a2e35ff2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.sci
deleted file mode 100755
index 92883d5a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setversion.sci
+++ /dev/null
@@ -1,182 +0,0 @@
-//
-// 08.11.12 V3.0.2b
-// 08.11.26 V3.0.2c
-// 08.12.08 V3.0.2d
-// 08.12.11 v3.0.2e
-// 08.12.17 v3.0.3a
-// 08.12.21 v3.0.3b
-// 08.12.30 v3.0.3c
-// 09.01.15 v3.0.3d
-// 09.02.20 v3.0.3e
-// 09.02.27 v3.0.4a
-// 09.02.27 v3.0.4b
-// 09.03.06 v3.0.4c
-// 09.03.09 v3.0.4d
-// 09.03.10 v3.0.4e
-// 09.03.12 v3.0.5a
-// 09.05.12 v3.0.5b
-// 09.05.18 v3.0.5c
-// 09.05.27 v3.0.6a
-// 09.06.01 v3.0.6b
-// 09.06.05 v3.0.6c
-// 09.06.13 v3.0.6d
-// 09.06.24 v3.0.6e
-// 09.08.12 v3.0.7a
-// 09.08.13 v3.0.7b
-// 09.08.23 v3.0.8a
-// 09.09.10 v3.0.9a
-// 09.09.18 v3.1.0a
-// 09.09.21 v3.1.0b
-// 09.09.25 v3.1.1a
-// 09.09.25 v3.1.1b
-// 09.10.01 v3.1.1c
-// 09.10.03 v3.1.2a
-// 09.10.04 v3.1.3a
-// 09.10.05 v3.1.3b
-// 09.10.08 v3.1.3c
-// 09.10.09 v3.1.4a
-// 09.10.11 v3.1.5a
-
-// Structure changed
-// 09.10.11 v3.2.0beta
-// 09.10.31 v3.2.0beta1031
-
-// 09.11.01 v3.2.0a
-// 09.11.04 v3.2.1a
-// 09.11.12 v3.2.1b
-// 09.11.14 v3.2.1c
-// 09.11.14 v3.2.1d
-// 09.11.21 v3.2.1e
-// 09.11.26 v3.2.2a
-// 09.12.05 v3.2.2b
-// 09.12.06 v3.2.3a
-// 09.12.17 v3.2.3b
-// 09.12.24 v3.2.3c
-// 09.12.25 v3.3.1a
-// 09.12.26 v3.3.1b
-// 09.12.28 v3.3.1c
-// 09.12.31 v3.3.1d ( for v5.2.0)
-// 10.01.01 v3.4.0alpha
-// 10.01.05 v3.4.0beta
-// 10.01.10 v3.4.1a
-// 10.01.12 v3.4.1b
-// 10.01.16 v3.4.1c
-// 10.01.21 v3.4.2a
-// 10.02.01 v3.4.2b
-// 10.02.07 v3.4.2c
-// 10.02.12 v3.4.2d
-// 10.02.14 v3.4.2e
-// 10.02.16 v3.4.3a
-// 10.02.20 v3.4.3b Windisp
-// 10.02.24 v3.4.3c Execmd
-// 10.03.07 v3.4.3d
-// 10.03.28 v3.4.4a
-// 10.03.28 v3.4.4b
-// 10.04.03 v3.4.5a
-// 10.04.10 v3.4.5b
-// 10.04.16 v3.4.6a
-// 10.04.24 v3.4.6b
-// 10.04.24 v3.4.6b1
-// 10.04.27 v3.4.7a
-// 10.05.03 v3.4.7b
-// 10.05.09 v3.4.7c Makeskeletondata, Makeskeletonpersdata
-// 10.05.12 v3.4.7d Texfor
-// 10.05.15 v3.4.8a Texctr
-// 10.08.15 v3.5.0a Phcutoffdata
-// 10.09.02 Dropnumlistcrv
-// 10.10.20 Texfor
-// 10.11.04 Hatchdata, Roundstr
-// 10.11.13 v3.5.0b Flattenlist added. Dashline, Invdashline changed
-// 10.12.02 v3.5.0c Lineplot changed
-// Makecurves debugged
-// Enclosing changed (Output )
-// 11.01.07 v3.5.1a Readtextdata is changed
-// Dividegraphiics, Splinedata are changed
-// Facesdata is debugged (HiddenL)
-// Rmmember added
-// 11.04.13 Nohiddenpers2, Htickmark, Vtickmark are debugged
-// 11.05.29 v4.0.0a ketpict2e released, too
-// Setcolor, Ratiocmyk
-// 11.11.02 v4.0.0b Joingraphics changed
-// 11.12.12 v4.0.0c Skeletonparadata... changed (for various list )
-// 11.12.18 Framedata (compliant for list )
-// 12.01.07 v4.0.1a Arrowline, Arrowhead ( kirikomi )
-// 12.04.16 v4.0.1b Arrowhead debugged
-// 12.08.26 v4.0.1c Arrowline debugged
-// 13.05.03 v4.2a Tabledata, Pointdata changed
-// Dividetable, Partframe added
-// 13.05.17 v4.2_1a Arrowhead debugged
-// Openfile, Closefile, Ketinit() changed
-// 13.08.13 v4.2_2 Cancoordpara added
-// 13.10.06 v4.2_2a Readtextdata debugged and changed (Format)
-// 13.11.02 v4.3_0 __ added to local variables
-// Openfile, Closefile changed
-// 13.11.02 v4.3_0a Closefile debugged
-// 13.11.13 v4.3_0b Arrowhead, Arrowheaddata debugged
-// 13.12.03 v4.3_1 Bowname changed, Meetpoint debugged
-// 14.01.10 v4.3_1a Readtextdata debugged (Big data)
-// 14.03.05 v4.3_1b MARKLEN separated from MEMORI
-// 14.03.23 Rotate3data debugged
-// 14.03.30 v43_1c Facesdata debugged
-// 14.06.09 v43_2a Phcutdata debugged (cause unknown )
-// 14.06.22 v5_0_1a Obj macros added
-// 14.06.28 v5_0_1b debug cuspsplit (para, pers)
-// 14.07.05 v5_0_1c debug (warning ) Makeskeletondata, Makeskeletonpersdata
-// debug Makexybdy (by Kitahara)
-// 14.07.18 v5_0_1d Objsurf, Objthicksurf changed ( input argument )
-// 14.08.26 V5_1_0a Symbdata, Symb3data, Objsymb added
-// Objcurve debugged
-// 14.09.07 v5_1_0b Objjoin added
-// 14.09,08 v5_1_1a ReadfromCindy added
-// 14.09.16 v5_1_1b WritetoCindy added
-// 14.09.26 v5_1_1c Derivative changed ( to numderivative)
-// 14.09.30 v5_1_1d Assignrep changed
-// 14.10.08 v5_1_1e ReadfromCindy debugged
-// 14.10.08 v5_1_1f ReadfromCindy supported CF|LF
-// 14.10.10 v5_1_2a ReadOutdata, WritOutData added
-// 14.10.24 v5_1_2b Derivative changed ( derivative or numderivative used a.t scilab version)
-// Plotdata,Paramplot,Circledata changed ( N,D,E,R => N__, ... )
-// 14.12.11 v5_1_3a Assign changed (replaced only variable name )
-// Plotdata changed (and debugged ), Paramplot changed
-// 12.14 WriteOutData,ReadOutData changed ( for 3d )
-// 14.12.28 v5_1_3b Assign debugged
-// 15.01.01 v5_1_4a Bezierpt,Bezier added
-// 15.01.03 v5_1_4b ReadOutData changed ("start","end")
-// 15.02.08 v5_1_5a Bezier pt changed (available for 3d)
-// 15.02.18 v5_1_5b Assign debugged
-// 15.02.19 v5_1_5c Assign again debugged
-// 15.04.10 v5_1_5d EnclosingS debugged
-// Translatedata, Rotatedata, Reflectdata, Scaledate changed (Flattenlist)
-// 15.04.18 v5_1_5e Assign debugged
-// 15.05.03 v5_1_6a Setcolor,Ratiocmyk changed ( for cmyk, rgb, mycolor )
-// 15.05.04 Definecolor added
-// 15.06.11 v5_1_6b Arrowline, Arrowhead debugged
-// 15.06.14 v5_1_6c Skeletonpara3data debugged
-// Arrowhead changed (0.2 -> 0.1 )
-// 15.10.19 v5_1_6d Skeletonpara3data debugged
-// 15.10.23 v5_1_6e ReadOutData changed ( for the lenth of PD is 1 )
-// 15.10.23 Meetwindow changed ( horner non used )
-// 15.10.24 Arrowline debugged
-// 15.10.23 v5_1_6f WriteOutData changed ( endmark //// )
-// 15.11.05 v5_1_6g WriteOutData changed
-// 15.11.16 v5_2_1 Ovaldata changed ( Rc )
-// Plotdata, Paramplot, Deqplot
-// number of points changed to number of intervals
-// 15.12.08 v5_2_2 Deqplot debugged ( option __)
-// 16.08.20 v5_2_3 Spacecurve debugged ( N )
-// 16.10.09 v5_2_3a Objcurve changed ( N of Sapcecurve)
-// 16.10.09 v5_2_3b Kyoukai changed ( Eps =>10^(-4))
-// 16.10.09 v5_2_3c Enclosing, Kyoukai changed ( to make it a closed curve))
-// 16.12.13 v5_2_3d Plotdata,Paramplot,Spacecurve changed ( for only one point)
-// 16.12.24 v5_2_3e Makeskeletondata debugged ( for nul interval)
-// 16.12.29 v5_2_3f Anglemark, MeetWindow debugged ( for nul interval)
-// 16.12.29 v5_2_3g Shade changed (for colorname or colorcode)
-// 17.03.19 v5_2_3h Openpicture,Setunitlen debugged ( for 6 )
-// 17.05.21 v5_2_3i Evlptablepara changed (division number)
-
-
-function Setversion()
- global THISVERSION;
- THISVERSION='v5_2_3i';
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.bin
deleted file mode 100644
index 0fdd661f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci
deleted file mode 100755
index fb72097b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Setwindow.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-//
-// 09.02.27
-// 10.04.25
-
-function Out=Setwindow(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- if Nargs==0
- Out=[XMIN,XMAX,YMIN,YMAX];
- disp(Out);
- return;
- end;
- if Nargs==1
- Dt=varargin(1);
- if type(Dt)==1
- Dt=list(Dt);
- end;
- Xm=%inf; XM=-%inf;
- Ym=%inf; YM=-%inf;
- for I=1:length(Dt)
- GL=Dividegraphics(Dt(I));
- for J=1:length(GL)
- G=GL(J);
- Tmp=min(G(:,1)); Xm=min(Xm,Tmp);
- Tmp=max(G(:,1)); XM=max(XM,Tmp);
- Tmp=min(G(:,2)); Ym=min(Ym,Tmp);
- Tmp=max(G(:,2)); YM=max(YM,Tmp);
- end;
- end;
- XMIN=Xm; XMAX=XM;
- YMIN=Ym; YMAX=YM;
- end;
- if Nargs==2
- RgX=varargin(1);
- RgY=varargin(2);
- XMIN=RgX(1); XMAX=RgX(2);
- YMIN=RgY(1); YMAX=RgY(2);
- end
- if Nargs==4
- XMIN=varargin(1); XMAX=varargin(2);
- YMIN=varargin(3); YMAX=varargin(4);
- end;
- Out=[XMIN,XMAX,YMIN,YMAX];
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.bin
deleted file mode 100644
index df965eb7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci
deleted file mode 100755
index 9c20a13b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sf3data.sci
+++ /dev/null
@@ -1,62 +0,0 @@
-// 08.08.16
-// 08.10.10
-// 13.10.21 ( __ added to varibles )
-
-function PL__=Sf3data(varargin)
- Nargs__=length(varargin);
- FdL__=Fullformfunc(varargin(1));
- F__=Mixop(1,FdL__);
- Xf__=Mixop(2,FdL__);
- Yf__=Mixop(3,FdL__);
- Zf__=Mixop(4,FdL__);
- Urg__=Mixop(5,FdL__);
- Vrg__=Mixop(6,FdL__);
- K__=mtlb_findstr(Urg__,'=');
- U__=part(Urg__,1:K__-1);
- Tmp__=part(Urg__,K__+1:length(Urg__));
- Tmp__=evstr(Tmp__);
- Umin__=Tmp__(1); Umax__=Tmp__(2);
- K__=mtlb_findstr(Vrg__,'=');
- V__=part(Vrg__,1:K__-1);
- Tmp__=part(Vrg__,K__+1:length(Vrg__));
- Tmp__=evstr(Tmp__);
- Vmin__=Tmp__(1); Vmax__=Tmp__(2);
- Ndu__=25 ; Ndv__=25; Np__=[50,50];
- if Nargs__>=3
- Ndu__=varargin(2);
- Ndv__=varargin(3);
- end;
- if Nargs__>=4
- Np__=varargin(4);
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Du__=(Umax__-Umin__)/Ndu__;
- Dv__=(Vmax__-Vmin__)/Ndv__;
- PL__ = [];
- for I__=0:Ndu__
- U0__ ='('+string(Umin__+I__*Du__)+')';
- Tmp__=strsubst(Xf__,U__,U0__);
- Tmp1__=strsubst(Tmp__,V__,'t');
- Tmp__=strsubst(Yf__,U__,U0__);
- Tmp2__=strsubst(Tmp__,V__,'t');
- Tmp__=strsubst(Zf__,U__,U0__);
- Tmp3__=strsubst(Tmp__,V__,'t');
- Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']';
- PD__=Spacecurve(Tmp__,'t=[Vmin__,Vmax__]','N='+string(Np__(2)));
- PL__=Mixadd(PL__,PD__);
- end;
- for J__=0:Ndv__
- V0__='('+string(Vmin__+J__*Dv__)+')';
- Tmp__=strsubst(Xf__,V__,V0__);
- Tmp1__=strsubst(Tmp__,U__,'t');
- Tmp__=strsubst(Yf__,V__,V0__);
- Tmp2__=strsubst(Tmp__,U__,'t');
- Tmp__=strsubst(Zf__,V__,V0__);
- Tmp3__=strsubst(Tmp__,U__,'t');
- Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']';
- PD__=Spacecurve(Tmp__,'t=[Umin__,Umax__]','N='+string(Np__(1)));
- PL__=Mixadd(PL__,PD__);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.bin
deleted file mode 100644
index a86220d5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci
deleted file mode 100755
index 7a759f69..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdparadata.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 08.09.13
-// 10.02.16 Eps => [Eps, Epsmag]
-
-function Out5=Sfbdparadata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=3
- Eps=varargin(3);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=4
- Eps2=varargin(4);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- IMPLICITDATA=Out3;
- Mixdisp(Mix('ImplicitData obtained ',timer()));
- Out4=Cuspsplitpara(Out3,Fd,Eps(1)); //
- CUSPDATA=Out4;
- CUSPPT=CUSPSPLITPT;
- Mixdisp(Mix('CuspData obtained ',timer()));
- Out5=Borderparadata(Out4,Fd,Np,Eps,Eps2);
- Mixdisp(Mix('BorderData obtained ',timer()));
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.bin
deleted file mode 100644
index 304be9f0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.sci
deleted file mode 100755
index 9833a7f4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdpersdata.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-
-// 08.09.21
-// 10.02.16 Eps => [Eps, Epsmag]
-// 13.11.02 bug
-
-function Out5=Sfbdpersdata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=3
- Eps=varargin(3);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=4
- Eps2=varargin(4);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- IMPLICITDATA=Out3;
- Mixdisp(Mix('ImplicitData obtained ',timer()));
- Out4=Cuspsplitpers(Out3,Fd,Eps(1)); // 13.11.02
- CUSPDATA=Out4;
- CUSPPT=CUSPSPLITPT;
- Mixdisp(Mix('CuspData obtained ',timer()));
- Out5=Borderpersdata(Out4,Fd,Np,Eps,Eps2);
- Mixdisp(Mix('BorderData obtained ',timer()));
-endfunction;
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin
deleted file mode 100644
index cb2d0f7a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci
deleted file mode 100755
index 082ccec3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawparadata.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-// 08.09.10
-// 08.09.13
-
-function Out5=Sfbdrawparadata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=0.05;
- if Nargs>=3
- Eps=varargin(3);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- BdyL=Mixop(8,FdL);
- if BdyL~=[]
- Out3=Clipindomain(Out3,BdyL)
- end;
- IMPLICITDATA=Out3;
- Out4=Cuspsplitpara(Out3,Fd,Eps);
- CUSPDATA=Out4;
- CCUSPPT=CUSPSPLITPT;
- Out5=Borderrawdata(Out4,Fd,Np,Eps);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin
deleted file mode 100644
index 5731c723..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci
deleted file mode 100755
index cde6870f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfbdrawpersdata.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// 08.09.21
-
-function Out5=Sfbdrawpersdata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=0.05;
- if Nargs>=3
- Eps=varargin(3);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- BdyL=Mixop(8,FdL);
- if BdyL~=[]
- Out3=Clipindomain(Out3,BdyL)
- end;
- IMPLICITDATA=Out3;
- Out4=Cuspsplitpers(Out3,Fd,Eps);
- CUSPDATA=Out4;
- CCUSPPT=CUSPSPLITPT;
- Out5=Borderrawdata(Out4,Fd,Np,Eps);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.bin
deleted file mode 100644
index a7dae3c3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.sci
deleted file mode 100755
index 5a15d61c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutdata.sci
+++ /dev/null
@@ -1,105 +0,0 @@
-// 08.09.09
-// 08.09.19
-// 08.09.20
-// 08.09.24
-// 08.10.09
-// 08.10.10
-// 13.10.21 ( __ added to varibles )
-
-function EkL__=Sfcutdata(varargin)
- Nargs__=length(varargin);
- Fd__=varargin(1);
- CutD__=varargin(2);
- Np__=[50,50];
- if Nargs__>=3
- Tmp__=varargin(3);
- if type(Tmp__)==1 & length(Tmp__)==1
- Np__=[Tmp__,Tmp__];
- end;
- end;
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Mixop(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- Fd__L=Fullformfunc(Fd__);
- Xf__=Mixop(2,Fd__L);
- Yf__=Mixop(3,Fd__L);
- Zf__=Mixop(4,Fd__L);
- Tmp__=Mixop(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); Umax=Urg__(2);
- Vmin__=Vrg__(1); Vmax=Vrg__(2);
- if Mixtype(CutD__)~=1
- V1__=Mixop(1,CutD__);
- Tmp__=Mixop(2,CutD__);
- if length(Tmp__)>1
- D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3);
- else
- D__=Tmp__;
- end;
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-';
- Eq__=Tmp__+string(D__);
- elseif type(CutD__)==1
- V1__=CutD__(1:3);
- D__=CutD__(4);
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+';
- Eq__=Tmp__+string(D__);
- else
- K__=mtlb_findstr(CutD__,'=');
- if K__>0
- Tmp__1=part(CutD__,1:K__-1);
- Tmp__2=part(CutD__,K__+1:length(CutD__));
- Eq__=Tmp__1+'-('+Tmp__2+')';
- else
- Eq__=CutD__;
- end;
- end;
- Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')');
- Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')');
- Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')');
- Tmp__1=Mixop(5,Fd__L);
- Tmp__2=Mixop(6,Fd__L);
- CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__);
- EkL__=[];
- for I__=1:Mixlength(CutuvL__)
- Out__1=Mixop(I__,CutuvL__);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin
deleted file mode 100644
index 07cfe7f8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci
deleted file mode 100755
index 0e4c6a5b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffparadata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.1
-// 10.02.17
-
-function Out=Sfcutoffparadata(varargin)
- Ms=list('hidden','para');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin
deleted file mode 100644
index aaf088b5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci
deleted file mode 100755
index c10cdb8d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffpersdata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.21
-// 10.02.17
-
-function Out=Sfcutoffpersdata(varargin)
- Ms=list('hidden','pers');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin
deleted file mode 100644
index b2d998a7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci
deleted file mode 100755
index 546f66d8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawparadata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.19
-// 10.02.17
-
-function Out=Sfcutoffrawparadata(varargin)
- Ms=list('raw','para');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin
deleted file mode 100644
index 8c08c1b7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci
deleted file mode 100755
index e5a387f5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfcutoffrawpersdata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.21
-// 10.02.17
-
-function Out=Sfcutoffrawpersdata(varargin)
- Ms=list('raw','pers');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.bin
deleted file mode 100644
index 45df29ba..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.sci
deleted file mode 100755
index 5aa4e5e5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfparadata.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 08.08.16
-
-function Out=Sfparadata(varargin)
- Nargs=length(varargin);
- Fd=varargin(1);
- Ndu=25 ; Ndv=25; Np=[50,50];
- if Nargs>=3
- Ndu=varargin(2);
- Ndv=varargin(3);
- end;
- if Nargs>=4
- Np=varargin(4);
- end;
- Tmp=Sf3data(Fd,Ndu,Ndv,Np);
- Out=Projpara(Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.bin
deleted file mode 100644
index 3350f9b9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.sci
deleted file mode 100755
index ecc63e41..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sfpersdata.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 08.08.15
-
-function Out=Sfpersdata(varargin)
- Nargs=length(varargin);
- Fd=varargin(1);
- Ndu=25 ; Ndv=25; Np=[50,50];
- if Nargs>=3
- Ndu=varargin(2);
- Ndv=varargin(3);
- end;
- if Nargs>=4
- Np=varargin(4);
- end;
- Tmp=Sf3data(Fd,Ndu,Ndv,Np);
- Out=Projpers(Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.bin
deleted file mode 100644
index 130e2b32..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.sci
deleted file mode 100755
index ff22a933..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Shade.sci
+++ /dev/null
@@ -1,84 +0,0 @@
-// 08.05.22
-// 09.12.25
-// 11.05.27 (for pdflatex )
-// 17.01.09 (shade, thickness )
-
-function Shade(varargin)
- global Wfile FID MilliIn;
- // 2nd arg is a color name or '[..]{ }'
- Nargs=length(varargin);
- Iroflg=0;
- if Nargs>1
- Iroflg=1;
- Iro=varargin(Nargs);
- if type(Iro)==10 then
- if length(strchr(Iro,"{"))>0
- Str="{\color"+Iro;
- else
- Str="{\color{"+Iro+"}";
- end;
- else
- if length(Iro)==4
- Str='{\color[cmyk]{';
- else
- Str='{\color[rgb]{';
- end;
- for J=1:length(Iro)
- Str=Str+string(Iro(J));
- if J<length(Iro) then
- Str=Str+',';
- end
- end
- Str=Str+'}';
- end;
- if Wfile=='default'
- mprintf('%s\n',Str+'%');
- else
- mfprintf(FID,'%s\n',Str);
- end;
- end;
- Mojisu=0; //
- Tmp=varargin(1);
- Data=Kyoukai(Tmp);
- for I=1:length(Data)
- PL=Op(I,Data);
- for J=1:size(PL,1)
- P=Doscaling(PL(J,:));
- X=sprintf('%5.5f',P(1));
- Y=sprintf('%5.5f',P(2));
- Pt='('+X+','+Y+')';
- if J==1 then
- Str='\polygon*'+Pt;
- else
- Str=Pt;
- end
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- Mojisu=0;
- end;
- end;
- end;
- if Iroflg==1
- Str='}%';
- if Mojisu>0
- Fmt='\n%s\n';
- else
- Fmt='%s\n';
- end;
- if Wfile=='default'
- mprintf(Fmt,Str);
- else
- mfprintf(FID,Fmt,Str);
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.bin
deleted file mode 100644
index 89d8b459..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.sci
deleted file mode 100755
index 4eec31cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeleton2data.sci
+++ /dev/null
@@ -1,71 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 09.06.13
-
-function Out=Skeleton2data(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- Tmp=varargin(1);
- if Mixtype(Tmp)==1
- ObjL=MixS(Tmp);
- elseif Mixtype(Tmp)==2
- ObjL=Tmp;
- else
- ObjL=[];
- for I=1:Mixlength(Tmp)
- Tmp1=Mixop(I,Tmp);
- if Mixtype(Tmp1)==1
- ObjL=Mixadd(ObjL,Tmp1);
- else
- ObjL=Mixjoin(ObjL,Tmp1);
- end;
- end;
- end;
- Tmp=varargin(2);
- if Mixtype(Tmp)==1
- PltL=MixS(Tmp);
- elseif Mixtype(Tmp)==2
- PltL=Tmp
- else
- PltL=[];
- for I=1:Mixlength(Tmp)
- Tmp1=Mixop(I,Tmp);
- if Mixtype(Tmp1)==1
- PltL=Mixadd(PltL,Tmp1);
- else
- PltL=Mixjoin(PltL,Tmp1);
- end;
- end;
- end;
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.01;
- if Nargs>3
- Eps2=varargin(4);
- end;
- Obj2L=[];
- for I=1:Mixlength(ObjL)
- Curve=Mixop(I,ObjL);
- Obj2=[];
- for J=1:size(Curve,1)
- P=Curve(J,:);
- Obj2=[Obj2;P,-1];
- end;
- Obj2L=Mixadd(Obj2L,Obj2);
- end;
- Plt2L=[]
- for I=1:Mixlength(PltL)
- Curve=Mixop(I,PltL);
- Plt2=[];
- for J=1:size(Curve,1)
- P=Curve(J,:);
- Plt2=[Plt2;P,0];
- end;
- Plt2L=Mixadd(Plt2L,Plt2);
- end;
- Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.bin
deleted file mode 100644
index 03fcdda2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.sci
deleted file mode 100755
index 5914d47a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpara3data.sci
+++ /dev/null
@@ -1,48 +0,0 @@
-// 09.09.25
-// 11.12.12
-// 15.06.14
-// 15.10.19
-
-function Out=Skeletonpara3data(varargin)
- global MilliIn;
- Eps=10^(-4); // 15.06.14
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Plt2L=list();
- for I=1:Mixlength(Plt3L)
- Plt2L($+1)=ProjcoordCurve(Plt3L(I));
- end;
- Out=list();
- for I=1:length(ObjL)
- Obj3=ObjL(I);
- Tmp=ProjcoordCurve(Obj3);
- Data=Makeskeletondata(Mix(Tmp),Plt2L,R,Eps2);
- for J=1:length(Data)
- Gd=Data(J);
- if size(Gd,1)==1 // 15.10.19
- continue;
- end;
- if norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))<Eps // 15.06.14
- continue
- end;
- PtD=[];
- for J=1:size(Gd,1)
- Tmp=Gd(J,:);
- Tmp1=Invparapt(Tmp,Obj3);
- Tmp1=Mixop(1,Tmp1);
- PtD=[PtD;Tmp1];
- end;
- Out($+1)=PtD;
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.bin
deleted file mode 100644
index 913af31d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.sci
deleted file mode 100755
index 1270f789..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonparadata.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.07.13
-// 08.08.08
-// 08.10.16
-// 11.12.12 (Flattenlist)
-
-function Out=Skeletonparadata(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Obj2L=list();
- for I=1:length(ObjL)
- Obj2L($+1)=ProjcoordCurve(ObjL(I));
- end;
- Plt2L=list();
- for I=1:length(Plt3L)
- Plt2L($+1)=ProjcoordCurve(Plt3L(I));
- end;
- Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.bin
deleted file mode 100644
index ec2a9bad..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.sci
deleted file mode 100755
index 57dde938..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpers3data.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.09.25
-// 11.12.12
-
-function Out=Skeletonpers3data(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Plt2L=[];
- for I=1:Mixlength(Plt3L)
- Tmp=CameracoordCurve(Mixop(I,Plt3L));
- Plt2L=Mixadd(Plt2L,Tmp);
- end;
- Out=list();
- for I=1:length(ObjL)
- Obj3=ObjL(I);
- Tmp=CameracoordCurve(Obj3);
- Data=Makeskeletonpersdata(Mix(Tmp),Plt2L,R,Eps2);
- for J=1:length(Data)
- Gd=Data(J);
- PtD=[];
- for J=1:size(Gd,1)
- Tmp=Gd(J,:);
- Tmp1=Invperspt(Tmp,Obj3);
- Tmp1=Mixop(1,Tmp1);
- PtD=[PtD;Tmp1];
- end;
- Out($+1)=PtD;
- end;
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.bin
deleted file mode 100644
index 7d2c1a07..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.sci
deleted file mode 100755
index c91e73cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Skeletonpersdata.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 11.12.12
-
-function Out=Skeletonpersdata(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Obj2L=list();
- for I=1:length(ObjL)
- Obj2L($+1)=CameracoordCurve(ObjL(I));
- end;
- Plt2L=list();
- for I=1:length(Plt3L)
- Plt2L($+1)=CameracoordCurve(Plt3L(I));
- end;
- Out=Makeskeletonpersdata(Obj2L,Plt2L,R,Eps2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.bin
deleted file mode 100644
index 880f8540..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.sci
deleted file mode 100755
index 077a88cb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spacecurve.sci
+++ /dev/null
@@ -1,83 +0,0 @@
-// 08.07.11
-// 09.05.27
-// 09.06.02
-// 09.12.31 (gsort)
-// 13.10.21 ( __ added to varibles )
-// 16.08.20 (N changed to devided number )
-// 16.12.13 ( in case of T1=T2)
-
-function P__=Spacecurve(varargin)
- Eps__=10^(-5);
- Nargs__=length(varargin);
- Fnstr__=varargin(1);
- Rgstr__=varargin(2);
- Range__=[0,2*%pi];
- N=50; // Numpoints
- E=[]; // Exclusions
- D=%inf; // Discont (Changed)
- for I__=3:Nargs__
- Tmp__=varargin(I__);
- K__=mtlb_findstr(Tmp__,'=');
- Tmp1__=strsplit(Tmp__,[K__-1,K__]);
- Tmp2__=ascii(Tmp1__(1,1));
- Lhs__=char(Tmp2__(1));
- Str__=Lhs__+'='+Tmp1__(3,1);
- execstr(Str__);
- end;
- K__=mtlb_findstr(Rgstr__,'=');
- if K__~=[]
- Tmp__=strsplit(Rgstr__,[K__-1,K__]);
- Vname__=Tmp__(1,1);
- Rng__=evstr(Tmp__(3,1));
- else
- Vname__=Rgstr__;
- Rng__=[XMIN,XMAX];
- end
- T1__=Rng__(1); T2__=Rng__(2);
- Dt__=(T2__-T1__)/N; // 16.08.20
- Str__=mtlb_strrep(Fnstr__,Vname__,'t__');
- if abs(Dt__)<Eps__ then // 16.12.13
- t__=T1__;
- P__=evstr(Str__);
- return;
- end;
- P__=[];
- E=gsort(E);
- E=E(length(E):-1:1);
- E=[E,%inf];
- Tmp__=gsort(E);
- E=Tmp__(length(Tmp__):-1:1);
- Ke__=1;
- for t__=T1__:Dt__:T2__
- Pa__=[];
- if t__-E(Ke__)<-Eps__
- Pa__=evstr(Str__);
- end
- if abs(t__-E(Ke__))<=Eps__
- if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf,%inf]
- Pa__=[%inf,%inf,%inf];
- end
- end
- if t__-E(Ke__)>Eps__
- Pa__=evstr(Str__);
- Ke__=Ke__+1;
- end
- if Pa__~=[]
- if Pa__(1)==%inf
- P__=[P__;Pa__]
- elseif P__==[]
- P__=[Pa__];
- else
- Tmp__=P__(size(P__,1),:);
- if Tmp__(1)==%inf
- P__=[P__;Pa__];
- elseif norm(Tmp__-Pa__)<D
- P__=[P__;Pa__];
- else
- P__=[P__;%inf,%inf,%inf;Pa__];
- end
- end
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.bin
deleted file mode 100644
index 86bddaa8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.sci
deleted file mode 100755
index 9fe33c06..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Spaceline.sci
+++ /dev/null
@@ -1,27 +0,0 @@
-// 08.07.11
-
-function Z=Spaceline(varargin)
- Z=[];
- for I=1:length(varargin)
- Data=varargin(I);
- if Mixtype(Data)==1
- for J=1:3:size(Data,2)
- Tmp=Data(J:J+2);
- Z=[Z;Tmp];
- end;
- continue;
- end;
- if Mixtype(Data)==3
- Tmp=[];
- for I=1:Mixlength(Data);
- Tmp=Mixjoin(Tmp,Mixop(I,Data));
- end;
- Data=Tmp;
- end;
- for J=1:Mixlength(Data)
- Tmp=Mixop(J,Data);
- Z=[Z;Tmp];
- end;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.bin
deleted file mode 100644
index cadb3d56..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.sci
deleted file mode 100755
index a4de85ea..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Splinedata.sci
+++ /dev/null
@@ -1,108 +0,0 @@
-// 08.05.28
-// 08.05.29
-// 09.06.13
-// 10.04.24
-// 10.04.25
-// 11.01.07 ( major changed )
-
-function OutL=Splinedata(varargin)
- global SplinePt;
- Nargs=length(varargin);
- Eps=10^(-3);
- PL=varargin(1);
- if type(PL)==10 // 100425
- Fname=PL;
- PL=Readtextdata(Fname);
- else
- if size(PL,1)==1
- PL=matrix(PL,2,length(PL)/2);
- PL=PL';
- end;
- end;
- if size(PL,2)==3
- Flg3=1;
- else
- Flg3=0;
- end;
- PLL=Dividegraphics(PL);
- N=50;
- C=[];
- for I=2:Nargs
- Tmp=varargin(I);
- if type(Tmp)~=10 continue; end
- if mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- else
- Tmp1=Strop(1,Tmp);
- if Tmp1=='C' | Tmp1=='c'
- C=1:length(PLL);
- end;
- end;
- end;
- Cflg=zeros(1,length(PLL));
- for J=1:length(C)
- K=C(J);
- Cflg(K)=1;
- end;
- if length(N)>1
- if type(Nj)==1
- Nj=N;
- else
- Nj=[];
- for J=1:length(N)
- Nj(J)=N(J);
- end;
- end;
- else
- Tmp1=[];
- for J=1:length(PLL)
- Tmp1(J)=size(PLL(J),1);
- end;
- MxP=max(Tmp1);
- Nj=[];
- for J=1:length(PLL)
- Tmp=size(PLL(J),1);
- Tmp1=round(N/MxP*(Tmp-1));
- Nj(J)=Tmp1;
- end;
- end;
- OutL=list();
- for J=1:length(PLL) //
- PL=PLL(J);
- if Cflg(J)==1
- if norm(PL(1,:)-PL(size(PL,1),:))>Eps
- PL=[PL;PL(1,:)];
- Nj(J)=round(N/MxP*size(PL,1));
- else
- PL(size(PL,1),:)=PL(1,:);
- end
- end;
- SplinePt=PL;
- Tn=1:size(PL,1);
- Xn=PL(:,1)';
- Yn=PL(:,2)';
- if Flg3==1 Zn=PL(:,3)';end;
- if Cflg(J)==0
- Dxn=splin(Tn,Xn);
- Dyn=splin(Tn,Yn);
- if Flg3==1 Dzn=splin(Tn,Zn); end;
- else
- Dxn=splin(Tn,Xn,'periodic');
- Dyn=splin(Tn,Yn,'periodic');
- if Flg3==1 Dzn=splin(Tn,Zn,'periodic'); end;
- end
- T=linspace(1,size(PL,1),Nj(J));
- X=interp(T,Tn,Xn,Dxn);
- Y=interp(T,Tn,Yn,Dyn);
- if Flg3==1 Z=interp(T,Tn,Zn,Dzn); end;
- if Flg3==1
- Out=[X',Y',Z'];
- else
- Out=[X',Y'];
- end;
- OutL($+1)=Out;
- end;
- if length(OutL)==1
- OutL=OutL(1);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.bin
deleted file mode 100644
index de695ff2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.sci
deleted file mode 100755
index 8f4da94d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Strop.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function C=Strop(Num,Str)
- N=length(Num);
- L=ascii(Str);
- C='';
- for I=1:N
- K=Num(I);
- Tmp=char(L(K));
- C=C+Tmp;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.bin
deleted file mode 100644
index 2ca7ae03..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci
deleted file mode 100755
index 785b605c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Subs.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-//
-// 08.06.04
-
-function V=Subs(SbstrL,StrF)
- Str=StrF;
- if type(StrF)==2
- Str=pol2str(StrF);
- end
- V=StrF;
- for N=1:size(SbstrL,2)
- Sbstr=SbstrL(1,N);
- I=mtlb_findstr(Sbstr,'=');
- Tmp=strsplit(Sbstr,I);
- SbA=Tmp(1);
- SbA=Op(1:length(SbA)-1,SbA);
- SbB=Tmp(2);
- V=strsubst(V,SbA,SbB);
- end
- V=evstr(V);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.bin
deleted file mode 100644
index 0e796d65..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.sci
deleted file mode 100755
index 55fdfd0f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Sumfun.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 08.05.30
-// 08.05.31
-// 08.06.03
-// 13.10.21 (__ added to variables )
-
-function PL__=Sumfun(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs__=length(varargin);
- Const__=0;
- Addstr__='A__=0';
- J__=1;
- Tmp__=varargin(1);
- if type(Tmp__)==1
- Const__=Tmp__;
- J__=J__+1;
- end
- if type(Tmp__)==10
- Tmp1__=Strop(length(Tmp__),Tmp__);
- if Tmp1__=='+'
- Addstr__='A__='+Strop(1:length(Tmp__)-1,Tmp__);
- J__=J__+1
- end
- end
- Fnstr__=varargin(J__);
- Krange__=varargin(J__+1);
- Xrange__=varargin(J__+2);
- N=50;
- for I__=J__+3:Nargs__
- Tmp__=varargin(I__);
- execstr(Tmp__);
- end
- Tmp__=mtlb_findstr(Krange__,'=');
- Kname__=Strop(1:Tmp__-1,Krange__);
- Tmp1__=Strop(Tmp__+1:length(Krange__),Krange__);
- Tmp1__='Krg__='+Tmp1__;
- execstr(Tmp1__);
- Tmp__=mtlb_findstr(Xrange__,'=');
- if Tmp__==[]
- Xname__=Xrange__;
- Xrg__=[XMIN,XMAX];
- else
- Xname__=Strop(1:Tmp__-1,Xrange__);
- Tmp1__=Strop(Tmp__+1:length(Xrange__),Xrange__);
- Tmp1__='Xrg__='+Tmp1__;
- execstr(Tmp1__);
- end
- Dx__=(Xrg__(2)-Xrg__(1))/N;
- PL__=[];
- I__=0;
- while I__<=N
- Tmp__=Xname__+'=Xrg__(1)+I__*Dx__';
- execstr(Tmp__);
- J__=Krg__(1);
- execstr(Addstr__);
- Y__=Const__+A__;
- while J__<=Krg__(length(Krg__))
- Tmp__=Kname__+'=J__';
- execstr(Tmp__);
- execstr('Y__=Y__+'+Fnstr__);
- J__=J__+1;
- end
- PL__=[PL__;Xrg__(1)+I__*Dx__,Y__];
- I__=I__+1;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.bin
deleted file mode 100644
index c5c00977..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.sci
deleted file mode 100644
index 0d649872..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symb3data.sci
+++ /dev/null
@@ -1,30 +0,0 @@
-// s : 2014.08.25
-
-function Out=Symb3data(Moji,Size,Kaiten,NV,Pos)
- if type(Moji)==10 then
- Tmp=Symbdata(Moji);
- GY1=Tmp(2)
- else
- GY1=Moji
- end
- GY1=Scaledata(GY1,Size,Size);
- GY1=Rotatedata(GY1,Kaiten*%pi/180);
- A=NV(1); B=NV(2); C=NV(3);
- if A^2+B^2==0 then
- E1=[1,0,0];
- E2=[0,1,0];
- else
- E1=[B,-A,0];
- E2=[-A*C,-B*C,A^2+B^2];
- D=det([E1;E2;NV]);
- if D<0 then
- E1=-E1
- end
- E1=E1/norm(E1);
- E2=E2/norm(E2);
- end
- deff("Out=Em(X,Y)","Out=[E1(1)*X+E2(1)*Y,E1(2)*X+E2(2)*Y,E1(3)*X+E2(3)*Y]");
- GY1=Embed(GY1,Em);
- GY1=Translate3data(GY1,Pos);
- Out=Flattenlist(GY1);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.bin
deleted file mode 100644
index 2fb81c8f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci
deleted file mode 100644
index d63a3470..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Symbdata.sci
+++ /dev/null
@@ -1,67 +0,0 @@
-// s : 2014.08.25
-// 14.09.07
-
-function Out=Symbdata(Moji)
- ML=list(); Sp=[]; CC=[];
- if Moji=="x" then
- M1=[-0.042,0.035;-0.027,0.045;-0.01,0.045;0.004,0.03;0.00,0.00;...
- -0.004,-0.03;0.01,-0.045;0.027,-0.045;0.042,-0.035];
- M2=[0.055,0.035;0.043,0.045;0.027,0.045;0.01,0.03;0.00,0.00;...
- -0.01,-0.03;-0.027,-0.045;-0.043,-0.045;-0.055,-0.035];
- ML=list(M1,M2);
- Sp=[100,100];
- CC=[0,0];
- end;
- if Moji=="y" then
- M1=[-0.06,0.06;...
- -0.045,0.080;...
- -0.03,0.080;...
- -0.022,0.065;...
- -0.032,0.035;...
- -0.035,-0.01;...
- 0.007,-0.008;...
- 0.037,0.04;...
- 0.05,0.09];
- M2=[0.05,0.09;...
- 0.037,0.04;...
- 0.025,-0.00;...
- 0.015,-0.035;...
- -0.000,-0.055;...
- -0.025,-0.062;...
- -0.05,-0.045];
- ML=list(M1,M2);
- Sp=[100,100];
- CC=[0,0];
- end
- if Moji=="z" then
- M1=[-0.035,0.035;-0.023,0.045;-0.01,0.045;...
- 0.01,0.04;0.035,0.04;0.042,0.045];
- M2=[0.042,0.045;0.00,0.00;-0.042,-0.045];
- M3=[-0.042,-0.045;-0.035,-0.04;-0.01,-0.04;...
- 0.01,-0.045;0.023,-0.045;0.035,-0.035];
- ML=list(M1,M2,M3);
- Sp=[100,0,100];
- CC=[0,0,0];
- end
- Out1=list()
- Out2=list()
- for J=1:length(ML)
- M=ML(J);
- N=Sp(J);
- for K=1:size(M,1)
- P=M(K,:)
- Out1($+1)=P
- end
- if N>0 then
- if CC(J)==0 then
- S=Splinedata(M,"N="+string(N))
- else
- S=Splinedata(M,"N="+string(N),"C")
- end
- else
- S=M
- end;
- Out2($+1)=S
- end
- Out=list(Out1,Out2)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.bin
deleted file mode 100644
index 774b416f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.sci
deleted file mode 100755
index 621f6256..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tabledata.sci
+++ /dev/null
@@ -1,130 +0,0 @@
-// 09.11.26
-// 09.12.06
-// 09.12.25
-// 10.01.12
-// 10.01.13
-// 10.03.28
-// 10.03.30
-// 13.05.03 Domain can be omitted
-
-function Out=Tabledata(varargin)
-// 2013.05.01 Domain is optional.
- Eps=0.001;
- Tmp=varargin(1); // 130502 from
- if type(Tmp)==1
- Domain=varargin(1);
- VL=varargin(2);
- HL=varargin(3);
- else
- Domain=[-1,-1];
- VL=varargin(1);
- HL=varargin(2);
- end; // 130502 upto
- Hsize=Domain(1);
- SvL=list(0);
- S=0;
- for I=1:length(VL)
- Tmp=VL(I);
- S=S+Tmp(1);
- Tmp(1)=S;
- SvL($+1)=Tmp;
- end;
- if Hsize>S
- SvL($+1)=Hsize;
- end;
- Hsize=Op(1,SvL(length(SvL)));
- Vsize=Domain(2);
- ShL=list(0);
- S=0;
- for I=1:length(HL)
- Tmp=HL(I);
- S=S+Tmp(1);
- Tmp(1)=S;
- ShL($+1)=Tmp;
- end;
- if Vsize>S
- ShL($+1)=Vsize;
- end;
- Vsize=Op(1,ShL(length(ShL)));
- Marw=0; Mare=0; Mars=0; Marn=0;
- if length(Domain)>2
- Marw=Domain(3);
- Mare=Domain(4);
- end;
- if length(Domain)>4
- Marn=Domain(5);
- Mars=Domain(6);
- end;
- Setwindow([-Marw,Hsize+Mare],[-Mars,Vsize+Marn]);
- Tmp=Framedata([Eps,Hsize-Eps],[Eps,Vsize-Eps]);
- Gdata=list(Tmp);
- Tmp=-Marw;
- Hdata=list(Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]));
- for I=1:length(SvL) // 10.03.30
- Data=SvL(I);
- X=Data(1);
- if length(Data)==1
- Y1=0;
- Y2=Vsize;
- G=Listplot([X,Y1],[X,Y2]);
- else
- G=[];
- for J=2:2:length(Data)
- Y1=Vsize-Op(1,ShL(Data(J))); // 10.03.30
- Y2=Vsize-Op(1,ShL(Data(J+1)));
- Tmp=Listplot([[X,Y1],[X,Y2]]);
- G=[G;%inf,%inf;Tmp];
- end;
- G=G(2:size(G,1),:);
- end;
- Hdata($+1)=G;
- end;
- Tmp=Hsize+Mare;
- Tmp1=Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]);
- Hdata($+1)=Tmp1;
- Tmp=Vsize+Marn;
- Vdata=list(Listplot([[-Marw,Tmp],[Hsize+Mare,Tmp]]));
- for I=1:length(ShL)
- Data=ShL(I);
- Y=Vsize-Data(1);
- if length(Data)==1
- X1=0;
- X2=Hsize;
- G=Listplot([X1,Y],[X2,Y]);
- else
- G=[];
- for J=2:2:length(Data)
- X1=Op(1,SvL(Data(J))); // 10.03.30
- X2=Op(1,SvL(Data(J+1)));
- Tmp=Listplot([X1,Y],[X2,Y]);
- G=[G;%inf,%inf;Tmp];
- end;
- G=G(2:size(G,1),:);
- end;
- Vdata($+1)=G;
- end;
- Tmp=Listplot([[-Marw,-Mars],[Hsize+Mare,-Mars]]);
- Vdata($+1)=Tmp;
- Tmp1=Mixsub(3:(length(Hdata)-2),Hdata);
- Tmp2=Mixsub(3:(length(Vdata)-2),Vdata);
- Gdata=Mixjoin(Gdata,Tmp1,Tmp2);
- Hind=2:(1+length(Tmp1));
- Vind=(2+length(Tmp1)):(1+length(Tmp1)+length(Tmp2));
- G=Gdata(1);
- P1=Ptsw(G); P2=Ptnw(G);
- Q1=Ptse(G); Q2=Ptne(G);
- Tmp1=list(Listplot([P1,P2]),Listplot([Q1,Q2]));
- P1=Ptnw(G); P2=Ptne(G);
- Q1=Ptsw(G); Q2=Ptse(G);
- Tmp2=list(Listplot([P1,P2]),Listplot([Q1,Q2]));
- Tmp3=Framedata();
- Out=list(Gdata,Hind,Vind,Tmp1,Tmp2,Tmp3);
-endfunction;
-
-function Out=Dividetable(Tb)
- G=Tb(1);
- Gw=G(1);
- Gt=Mixsub(Tb(2),G);
- Gy=Mixsub(Tb(3),G);
- Out=list(Gw,Gt,Gy)
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.bin
deleted file mode 100644
index 97832ff7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.sci
deleted file mode 100755
index 9b848315..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texcom.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-//
-// 09,12.05
-// 09.12.06
-// 09.12.07
-// 09.12.20
-
-function Texcom(Meirei)
- global Wfile FID;
- if Meirei=='\thinlines'
- Setpen(1);
- return
- end
- if Meirei=='\thicklines'
- Setpen(2);
- return
- end
- if Meirei=='\Thicklines'
- Setpen(3);
- return
- end;
-
- if Meirei=='' // 09.12.07
- Tmp=[];
- else
- Tmp=mtlb_findstr(Meirei,'newline');
- end;
- if length(Tmp)>0
- if Wfile=='default'
- mprintf('%s\n','');
- else
- mfprintf(FID,'%s\n','');
- end;
- return;
- end;
- if Wfile=='default'
- mprintf('%s%s\n',Meirei,'%');
- else
- mfprintf(FID,'%s%s\n',Meirei,'%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.bin
deleted file mode 100644
index e04419ed..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci
deleted file mode 100755
index 2a8b08ca..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-//
-// 2010.05.15
-
-function Out=Texctr(N)
- if type(N)==1
- Alpha='abcdefghijklmnopqrstuvwxyz';
- Out='ketpicctr'+part(Alpha,N);
- else
- if part(N,1)=='\'
- Out=part(N,2:length(N));
- else
- Out=N;
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.bin
deleted file mode 100644
index 30d0e388..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.sci
deleted file mode 100755
index 8ef93556..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texelse.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 10.04.16
-// 10.04.18
-
-function Texelse()
- Texcom('');
- Texcom('\else');
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.bin
deleted file mode 100644
index 89cf7657..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.sci
deleted file mode 100755
index a3139873..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texend.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-// 01.10.21
-
-function Texend()
- Closephr();
-endfunction \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.bin
deleted file mode 100644
index 72f260ac..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.sci
deleted file mode 100755
index ecb7b788..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendfor.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 10.04.16
-
-function Texendfor(I)
- global TEXFORLEVEL TEXFORLAST
- Last=TEXFORLAST(TEXFORLEVEL);
- Texcom('');
- Texcom('\ifnum'+Texthectr(I)+'<'+Last);
- Texcom('\repeat');
- Texcom('}');
- TEXFORLEVEL=TEXFORLEVEL-1;
- TEXFORLAST=Mixsub(1:(length(TEXFORLAST)-1),TEXFORLAST);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.bin
deleted file mode 100644
index bd069613..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.sci
deleted file mode 100755
index 97d32d85..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texendif.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 10.04.16
-// 10.04.18
-
-function Texendif()
- Texcom(''); //
- Texcom('\fi');
- Texcom('}');
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.bin
deleted file mode 100644
index b9861fc7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.sci
deleted file mode 100755
index 0c239842..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texfor.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 10.04.16
-// 10.05.12
-// 10.10.20 ( available for numeric )
-
-function Texfor(I,First,Last)
- global TEXFORLEVEL TEXFORLAST
- TEXFORLEVEL=TEXFORLEVEL+1;
- Texsetctr(I,'0');
- Texsetctr(I,string(First)+'-1');
- Texcom('');
- Texcom('{');
- Texcom('\loop');
- Texsetctr(I,'+1');
- TEXFORLAST($+1)=string(Last);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.bin
deleted file mode 100644
index 3d33948a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.sci
deleted file mode 100755
index f661c649..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texforinit.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 10.04.18
-
-function Texforinit()
- global TEXFORLEVEL TEXFORLAST
- TEXFORLEVEL=0;
- TEXFORLAST=list();
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.bin
deleted file mode 100644
index 6f53de74..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.sci
deleted file mode 100755
index 8cbae5dc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texif.sci
+++ /dev/null
@@ -1,19 +0,0 @@
-// 10.04.16
-// 10.04.18
-// 10.05.03
-
-function Texif(varargin)
- Condstr=varargin(1);
- Tp=0;
- if length(varargin)>1
- Tp=varargin(2);
- end;
- Texcom('');
- Texcom('{');
- if Tp==0
- Texcom('\ifnum ');
- else
- Texcom('\ifdim ');
- end;
- Texcom(Condstr+' ');
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.bin
deleted file mode 100644
index 4dea33e2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci
deleted file mode 100755
index f83cc8c8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texletter.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-// 10.01.07
-
-function Texletter(varargin)
- global Wfile FID MEMORI;
- Nargs=length(varargin);
- for I=1:3:Nargs
- P=varargin(I);
- X=P(1);
- if type(X)==1
- X=string(X);
- end;
- Y=P(2);
- if type(Y)==1
- Y=string(Y);
- end;
- Houkou=varargin(I+1);
- Mojiretu=varargin(I+2);
- Hset=Houkou;
- Vhoko='c';
- if mtlb_findstr(Hset,'n')~=[]
- Vhoko='n';
- end
- if mtlb_findstr(Hset,'s')~=[]
- Vhoko='s';
- end
- Hhoko='c';
- if mtlb_findstr(Hset,'e')~=[]
- Hhoko='e';
- end
- if mtlb_findstr(Hset,'w')~=[]
- Hhoko='w';
- end
- Hoko=Vhoko+Hhoko;
- CalcWidth(Hoko,Mojiretu);
- CalcHeight(Hoko,Mojiretu);
- Tmp='\put('+X+','+Y+'){\hspace*{\Width}';
- Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.bin
deleted file mode 100644
index a44b7156..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.sci
deleted file mode 100755
index b3b9a417..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewcmd.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 10.01.21
-
-function Texnewcmd(varargin)
- Nargs=length(varargin);
- Str=varargin(1);
- S='\newcommand{'+Str+'}';
- if Nargs>1
- Tmp=string(varargin(2));
- S=S+'['+Tmp+']';
- end;
- if Nargs>2
- Tmp=varargin(3);
- if type(Tmp)==1
- Tmp=string(Tmp);
- end;
- S=S+'['+Tmp+']';
- end;
- S=S+'{';
- Texcom(S);
-endfunction \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.bin
deleted file mode 100644
index c0acb00b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.sci
deleted file mode 100755
index 03cabf81..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texnewctr.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 10.01.21
-
-function Texnewctr(N)
- if type(N)==10
- Str='\newcounter{'+N+'}';
- Texcom(Str);
- else
- for I=N
- Str='\newcounter{'+Texctr(I)+'}';
- Texcom(Str);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.bin
deleted file mode 100644
index 507705b2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.sci
deleted file mode 100755
index b8926589..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 10.01.21
-
-function Texrenewcmd(varargin)
- Nargs=length(varargin);
- Str=varargin(1);
- S='\renewcommand{'+Str+'}';
- if Nargs>1
- Tmp=string(varargin(2));
- S=S+'['+Tmp+']';
- end;
- if Nargs>2
- Tmp=varargin(3);
- if type(Tmp)==1
- Tmp=string(Tmp);
- end;
- S=S+'['+Tmp+']';
- end;
- S=S+'{';
- Texcom(S);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.bin
deleted file mode 100644
index d9c2bcae..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.sci
deleted file mode 100755
index 166af676..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texsetctr.sci
+++ /dev/null
@@ -1,70 +0,0 @@
-// 10.01.21
-
-function Texsetctr(Nctr,Opstr)
- Ctr=Texctr(Nctr);
- Opstr=Opstr+'%';
- OperL='+-*/%';
- Oper='';
- Va='';
- Evflg=0;
- Paflg=0;
- for I=1:length(Opstr)
- Tmp=part(Opstr,I);
- if Tmp=='('
- Paflg=1;
- if length(Va)>0
- Evflg=1;
- Va=Va+Tmp;
- end;
- continue;
- end;
- if Tmp==')'
- Paflg=0;
- if Evflg>0
- Va=Va+Tmp;
- end;
- continue;
- end;
- if Paflg>0
- Va=Va+Tmp;
- continue;
- end;
- if length(mtlb_findstr(Tmp,OperL))==0
- Va=Va+Tmp;
- else
- if Evflg>0
- Tmp1=evstr(Va);
- Va='\value{'+Tmp1+'}';
- Evflg=0;
- end;
- if Oper==''
- if length(Va)>0
- Str='\setcounter{'+Ctr+'}{'+Va+'}';
- Texcom(Str);
- end;
- Oper=Tmp;
- Va='';
- elseif Oper=='+'
- Str='\addtocounter{'+Ctr+'}{'+Va+'}';
- Texcom(Str);
- Oper=Tmp;
- Va='';
- elseif Oper=='-'
- Str='\addtocounter{'+Ctr+'}{-'+Va+'}';
- Texcom(Str);
- Oper=Tmp;
- Va='';
- elseif Oper=='*'
- Str='\multiply\value{'+Ctr+'} by '+Va;
- Texcom(Str);
- Oper=Tmp;
- Va='';
- elseif Oper=='/'
- Str='\divide\value{'+Ctr+'} by '+Va;
- Texcom(Str);
- Oper=Tmp;
- Va=''
- end;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.bin
deleted file mode 100644
index 26d4e8ef..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.sci
deleted file mode 100755
index 469da91a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texthectr.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-// 2010.02.12
-
-function Out=Texthectr(N)
- Out='\the'+Texctr(N);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.bin
deleted file mode 100644
index fd208b4a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.sci
deleted file mode 100755
index 96d1c734..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvalctr.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-// 2010.02.12
-
-function Out=Texvalctr(N)
- Out='\value{'+Texctr(N)+'}';
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.bin
deleted file mode 100644
index 74890021..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.sci
deleted file mode 100755
index fc443411..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texvctr.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 10.01.21
-
-function Out=Texvctr(N)
- Out='\value{'+Texctr(N)+'}';
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.bin
deleted file mode 100644
index 67df224b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.sci
deleted file mode 100755
index c6ceff89..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Thetadegree.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.07.11
-
-function Ang=Thetadegree()
- global THETA;
- Ang=THETA*180/%pi;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.bin
deleted file mode 100644
index 3cbb70be..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.sci
deleted file mode 100755
index a7a3fc2d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/ThisVersion.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=ThisVersion()
- global THISVERSION
- Y=THISVERSION
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.bin
deleted file mode 100644
index a0704ffc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.sci
deleted file mode 100755
index 8ef53bd5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Tolist.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 10.01.02
-
-function Out=Tolist(LG)
- Out=list();
- for I=1:length(LG)
- Out($+1)=LG(I);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.bin
deleted file mode 100644
index 55b89eee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.sci
deleted file mode 100755
index 98d69544..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translate3data.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 08.08.15
-// 15.04.12
-
-function Out=Translate3data(varargin)
- Nargs=length(varargin);
- Pd3=varargin(1);
- Pd3=Flattenlist(Pd3); // 15.04.12
- Mv=varargin(2);
- if type(Mv)==1 & length(Mv)==1
- Mv=[varargin(2),varargin(3),varargin(4)];
- end;
-// if Mixtype(Pd3)==1 // 15.04.12 from
-// Pd3=MixS(Pd3);
-// elseif Mixtype(Pd3)==3
-// Tmp=[];
-// for I=1:Mixlength(Pd3)
-// Tmp=Mixjoin(Tmp,Mixop(I,Pd3));
-// end;
-// Pd3=Tmp;
-// end;
- Out=[];
- for I=1:length(Pd3)
- PD=Op(I,Pd3);
- Ans=[];
- for J=1:size(PD,1)
- P=PD(J,:);
- Tmp=P+Mv;;
- Ans=[Ans;Tmp];
- end;
- Out=Mixadd(Out,Ans);
- end;
- if length(Out)==1
- Out=Op(1,Out);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.bin
deleted file mode 100644
index 2239d9d6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.sci
deleted file mode 100755
index a2e31085..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Translatedata.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-// 08.05.25 Koshikawa
-// 08.09.20
-// 15.04.12
-
-function OutL=Translatedata(varargin)
- Nargs=length(varargin);
- ML=varargin(1);
- ML=Flattenlist(ML);
- Tmp=varargin(2);
- if type(Tmp)==1 & length(Tmp)>1
- A=Tmp(1); B=Tmp(2);
- else
- A=Tmp;
- if Nargs>=3
- B=varargin(3);
- else
- B=0;
- end;
- end;
- OutL=[];
- for N=1:length(ML)
- GL=Op(N,ML);
- Out=[];
- for I=1:size(GL,1)
- Tmp=GL(I,:);
- X1=Tmp(1);
- Y1=Tmp(2);
- if Tmp==[%inf,%inf]
- X2=X1;
- Y2=Y1;
- else
- X2=X1+A;
- Y2=Y1+B;
- end
- Out=[Out;X2,Y2];
- end;
- OutL=Mixadd(OutL,Out);
- end;
- if length(OutL)==1
- OutL=Op(1,OutL);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.bin
deleted file mode 100644
index 4d0816a4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.sci
deleted file mode 100755
index b4705593..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Trunc.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// 08.05.20
-
-function N=Trunc(X)
- if X>=0
- N=floor(X)
- else
- N=ceil(X)
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.bin
deleted file mode 100644
index c9d8edf5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.sci
deleted file mode 100755
index 74910ceb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Unscaling.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-function Out=Unscaling(G)
- global LOGX LOGY SCALEX SCALEY;
- GLg=[G(:,1)/SCALEX,G(:,2)/SCALEY];
- Out=GLg;
- if LOGX==1
- Out=[10^(GLg(:,1)),GLg(:,2)];
- end;
- if LOGY==1
- Out=[GLg(:,1),10^(GLg(:,2))];
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.bin
deleted file mode 100644
index ba124a81..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.sci
deleted file mode 100755
index 4bc7684c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function L=Vecnagasa(varargin)
- PA=varargin(1);
- if length(varargin)>1
- PB=varargin(2);
- else
- PB=zeros(1,length(PA));
- end
- Tmp=PB-PA;
- L=sqrt(Tmp*Tmp');
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.bin
deleted file mode 100644
index b524d528..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.sci
deleted file mode 100755
index 527d3834..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vecnagasa2.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function L=Vecnagasa2(varargin)
- PA=varargin(1);
- if length(varargin)>1
- PB=varargin(2);
- else
- PB=[0,0];
- end
- Tmp=PB-PA;
- L=Tmp*Tmp';
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.bin
deleted file mode 100644
index cef98adc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci
deleted file mode 100755
index 44bde517..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Viewfrom.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 08.10.26
-
-function Out=Viewfrom(varargin)
- global THETA PHI
- Nargs=length(varargin);
- Nvec=varargin(1);
- GL=varargin(2);
- Flg=1;
- if Nargs>=3
- Flg=varargin(3);
- end;
- Theta=THETA; Phi=PHI;
- Tmp=Rotate3data(GL,Nvec,[-1,0,0]);
- THETA=%pi/2; PHI=0;
- Out=Projpara(Tmp);
- if Flg==1
- Windisp(Out);
- end;
- THETA=Theta; PHI=Phi;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.bin
deleted file mode 100644
index 278e7845..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.sci
deleted file mode 100644
index de320918..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Vtickmark.sci
+++ /dev/null
@@ -1,144 +0,0 @@
-// 08.05.26 Debugged
-// 09.12.25
-// 11.04.13 debugged ( [a,b] )
-// 14.03.05 MARKLEN
-
-function Vtickmark(varargin)
- global Wfile FID MARKLEN GENTEN YMIN YMAX;
- Nargs=length(varargin);
- ArgsL=list(varargin(1:Nargs));
- if type(Op(1,ArgsL))==10
- Str=Op(1,ArgsL);
- Tmp=mtlb_findstr(Str,'m');
- if Tmp~=[]
- I=Tmp(1);
- else
- I=0;
- end
- Tmp=mtlb_findstr(Str,'n');
- if Tmp~=[]
- J=Tmp(1);
- else
- J=0;
- end
- Tmp=mtlb_findstr(Str,'r');
- if Tmp~=[]
- K=Tmp(1);
- else
- K=0;
- end;
- if K>0
- Tmp=ascii(Str);
- S=char(Tmp(K+1:length(Tmp)));
- R=msscanf(S,'%f');
- if length(R)==0
- R=1;
- end
- else
- R=1;
- K=length(Str)+1;
- end
- if J>0 then
- Tmp=ascii(Str);
- S=char(Tmp(J+1:K-1));
- if S==[]
- S='';
- end;
- Dn=msscanf(S,'%d');
- if length(Dn)==0
- Dn=1;
- end
- else
- Dn=1000;
- J=length(Str)+1;
- end
- Tmp=ascii(Str);
- S=char(Tmp(I+1:J-1));
- if S==[]
- S='';
- end
- Dm=msscanf(S,'%f');
- if length(Dm)==0
- Dm=1;
- end
- ArgsL=list();
- for I=1:floor((YMAX-GENTEN(2))/Dm)
- ArgsL($+1)=I*Dm;
- if I-floor(I/Dn)*Dn==0
- Str=string(I*Dm*R);
- K=length(Str);
- Tmp=ascii(Str);
- if char(Tmp(K))=='.'
- Str=char(Tmp(1:k-1));
- end
- ArgsL($+1)=Str;
- end
- end
- for I=-1:-1:ceil((YMIN-GENTEN(2))/Dm)
- ArgsL($+1)=I*Dm;
- if I-floor(I/Dn)*Dn==0
- Str=string(I*Dm*R);
- K=length(Str);
- Tmp=ascii(Str);
- if char(Tmp(K))=='.'
- Str=char(1:K-1);
- end
- ArgsL($+1)=Str;
- end
- end
- end
- MemoriList=list();
- Memori=list();
- for N=1:length(ArgsL)
- Dt=Op(N,ArgsL);
- if type(Dt)==1 & length(Dt)>1
- if length(Memori)>0
- MemoriList($+1)=Memori;
- end
- Memori=list(Dt(1),Dt(2));
- continue
- end
- if type(Dt)==10
- Memori($+1)=Dt;
- else
- if length(Memori)>0
- MemoriList($+1)=Memori;
- end
- Memori=list(GENTEN(1),Dt);
- end
- end
- MemoriList($+1)=Memori;
- for N=1:length(MemoriList)
- Dt=MemoriList(N);
- Ndt=length(Dt);
- X=Op(1,Dt);
- Y=Op(2,Dt);
- Tmp=Doscaling([X,Y]);
- X=Tmp(1);
- Y=Tmp(2);
- Moji=Op(Ndt,Dt);
- Tmp1=Unscaling([X+MARKLEN,Y]);
- Tmp2=Unscaling([X-MARKLEN,Y]);
- Fd=Listplot([Tmp1,Tmp2]);
- Drwline(Fd);
- if Ndt==3
- Tmp=Unscaling([X-MARKLEN,Y]);
- Expr(Tmp,'w',Moji);
- end
- if Ndt==4
- Houkou=Op(3,Dt);
- if mtlb_findstr(Houkou,'w')~=[]
- Tmp=Unscaling([X-MARKLEN,Y]);
- Expr(Tmp,Houkou,Moji);
- else
- Tmp=Unscaling([X+MARKLEN,Y]);
- Expr(Tmp,Houkou,Moji);
- end
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.bin
deleted file mode 100644
index 6b3e87e9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.sci
deleted file mode 100755
index baa03e73..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Windisp.sci
+++ /dev/null
@@ -1,110 +0,0 @@
-// 08.05.16 Point style
-// 08.05.17 MixL
-// 08.05.19 Changed
-// 08.05.21 Eps=0.1
-// 08.08.16 square
-// 09.11.04 window option
-// 09.11.07 gcf used
-// 09.12.25
-// 10.01.01
-// 10.01.09 ' '
-// 10.01.10 drw one by one
-// 10.02.08 revised for the case "a"
-// 10.02.13 square debugged
-// 10.02.21 square debugged (2)
-// 10.02.23 case of mixlength=3
-// 10.04.10 Origin bug
-// 11.05.29 Flattenlist used
-
-function Windisp(varargin)
- global XMIN XMAX YMIN YMAX GENTEN
- Nargs=length(varargin);
- Tp=varargin(Nargs);
- Ch='';
- if type(Tp)~=10
- scf();
- else
- Ch=part(Tp,1);
- Nargs=Nargs-1;
- select Ch;
- case 'N' then scf();
- case 'n' then scf();
- case 'C' then Tmp=gcf();clf('clear');
- case 'c' then Tmp=gcf();clf('clear');
- case 'A' then Tmp=gcf();
- case 'a' then Tmp=gcf();
- else
- Tmp1=part(Tp,length(Tp));
- Tmp2=part(Tp,1:length(Tp)-1);
- Tmp3=evstr(Tmp2);
- scf(Tmp3);
- if Tmp1=='C'|Tmp1=='c'
- clf('clear');
- end;
- end;
- end;
- Eps=0.1;
- Tmp=Doscaling([XMIN,YMIN]);
- Xm=Tmp(1); Ym=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- XM=Tmp(1); YM=Tmp(2);
- C=[(Xm+XM)/2,(Ym+YM)/2];
- H=max(XM-Xm,YM-Ym)/2;
- R1=C-H; R2=C+H;
- R1=Unscaling(R1);
- R2=Unscaling(R2);
- if (Ch~='A')&(Ch~='a')
- Tmp1=R1(1);
- Tmp2=R2(1);
- Tmp3=R1(2);
- Tmp4=R2(2);
- square(Tmp1,Tmp3,Tmp2,Tmp4);//
- P=Framedata([XMIN,XMAX],[YMIN,YMAX]);
- Tmp1=P(:,1)';
- Tmp2=P(:,2)';
- plot2d(Tmp1,Tmp2);
- PtO=GENTEN; // 10.04.10
- if (PtO(2)>=YMIN) & (PtO(2)<=YMAX) //
- P=Listplot([XMIN,PtO(2)],[XMAX,PtO(2)]);
- Tmp1=P(:,1)';
- Tmp2=P(:,2)';
- plot2d(Tmp1,Tmp2,style=[3]);
- end;
- if (PtO(1)>=XMIN) & (PtO(1)<=XMAX)
- P=Listplot([PtO(1),YMIN],[PtO(1),YMAX]);
- Tmp1=P(:,1)';
- Tmp2=P(:,2)';
- plot2d(Tmp1,Tmp2,style=[3]);
- end;
- end;
- for I=1:Nargs
- Tmp=varargin(I);
- Pdata=Flattenlist(Tmp); //
- for II=1:length(Pdata)
- Tmp=Op(II,Pdata);
- P=MakeCurves(Tmp,0);
- P=Unscaling(P);
- Ndm=Dataindex(P);
- for J=1:size(Ndm,1)
- Q=P(Ndm(J,1):Ndm(J,2),:)
- if size(Q,1)==1
- for K=1:2:length(Q)
- plot2d(Q(K),Q(K+1),style=[-3]);
- end
- else
- Tmp1=Q(:,1)';
- Tmp2=Q(:,2)';
- plot2d(Tmp1,Tmp2);
- end
- end
- end
-// for II=2:length(Pdata)
-// Tmp=Op(II,Pdata);
-// Windisp(Tmp,'a');
-// end;
- end
- for I=2:Nargs
- Pdata=varargin(I);
- Windisp(Pdata,'a');
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.bin
deleted file mode 100644
index 68abd1d4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.sci
deleted file mode 100755
index 24920661..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WireHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.12.11
-
-function Out=WireHiddenData()
- global HIDDENWIREDATA
- Out=HIDDENWIREDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.bin
deleted file mode 100644
index 085de36e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.sci
deleted file mode 100755
index d62acaf3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WirePt.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 08.09.15
-// 09.09.10 registered
-
-function Out=WirePt()
- global WIREPT
- Out=WIREPT;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.bin
deleted file mode 100644
index d84e23dc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.sci
deleted file mode 100755
index b46e359c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wireparadata.sci
+++ /dev/null
@@ -1,120 +0,0 @@
-// 08.09.15
-// 08.10.10
-// 08.10.11
-// 08.10.15
-// 08.10.21
-// 08.10.25
-// 09.09.10
-// 10.02.16 Eps
-// 17.05.07 Eps changed
-
-function FsL=Wireparadata(varargin)
- global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA
- timer();
- Nargs=length(varargin);
- Fbdy=Projpara(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=[0.05,1]; //
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DuL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- WIREPT=[];
- HIDDENWIREDATA=[];
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07
- FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)');//17.05.07
- FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.bin
deleted file mode 100644
index 01266c62..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.sci
deleted file mode 100755
index 11def80c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirepersdata.sci
+++ /dev/null
@@ -1,120 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 08.10.11
-// 08.10.15
-// 08.10.21
-// 08.10.25
-// 09.09.10
-// 10.02.16 Eps
-// 17.05.07 Eps changed
-
-function FsL=Wirepersdata(varargin)
- global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA
- timer();
- Nargs=length(varargin);
- Fbdy=Projpers(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=[0.05,1]; //
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DuL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- WIREPT=[];
- HIDDENWIREDATA=[];
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07
- FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)');
- FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //17.05.07
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.bin
deleted file mode 100644
index 4e6ca980..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.sci
deleted file mode 100755
index 59c5ba54..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawparadata.sci
+++ /dev/null
@@ -1,86 +0,0 @@
-// 08.09.15
-// 08.10.10
-// 08.10.21
-// 09.09.10
-
-function FsL=Wirerawparadata(varargin)
- timer();
- Nargs=length(varargin);
- Fbdy=Projpara(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=0.05;
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DuL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)');
- FkL=Cuspsplitpara(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)');
- FkL=Cuspsplitpara(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.bin
deleted file mode 100644
index 2718cfd0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.sci
deleted file mode 100755
index d168b4f7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Wirerawpersdata.sci
+++ /dev/null
@@ -1,86 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 08.10.21
-// 09.09.10
-
-function FsL=Wirerawpersdata(varargin)
- timer();
- Nargs=length(varargin);
- Fbdy=Projpers(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=0.05;
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DvL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)');
- FkL=Cuspsplitpers(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)');
- FkL=Cuspsplitpers(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.bin
deleted file mode 100644
index 3016dd47..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.sci
deleted file mode 100644
index 059ac6d5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WriteOutData.sci
+++ /dev/null
@@ -1,55 +0,0 @@
-// s:2014.10.10
-// e:2014.12.14 ( for 3d )
-// e:2015.10.29 ( endmark //// )
-
-function WriteOutData(varargin)
- global Fnameout
- Nargs=length(varargin);
- if modulo(Nargs,2)==0 then
- Fname=Fnameout;
- Nst=1;
- else
- Fname=varargin(1);
- Nst=2;
- end;
- Fid=mopen(Fname,'w');
- for N=Nst:2:Nargs
- Gname=varargin(N);
- mfprintf(Fid,'%s\n',Gname+"//");
- Gdata=varargin(N+1);
- Gdata=Flattenlist(Gdata);
- for K=1:length(Gdata)
- GL=Dividegraphics(Gdata(K));
- for J=1:length(GL)
- mfprintf(Fid,'%s\n',"start//");
- Str="";
- for I=1:Numptcrv(GL(J))
- Pt=Ptcrv(I,GL(J));
- if length(Str)>0 then
- Str=Str+","
- end;
- if length(Pt)<3 // 2014.12.14
- Str=Str+msprintf("[%5.4f,%5.4f]",Pt(1),Pt(2));
- else
- Str=Str+msprintf("[%5.4f,%5.4f,%5.4f]",Pt(1),Pt(2),Pt(3));
- end;
- if length(Str)>80 then
- mfprintf(Fid,'%s\n',"["+Str+"]//");
- Str="";
- end
- end
- if length(Str)>0 then
- mfprintf(Fid,'%s\n',"["+Str+"]//");
- end
- if N==Nargs-1 & K==length(Gdata) & J==length(GL) then // 15.10.29
-// mfprintf(Fid,'%s\n',"end////");
- mfprintf(Fid,'%s\n',"end//");
- else
- mfprintf(Fid,'%s\n',"end//");
- end;
- end
- end
- end
- mfprintf(Fid,'%s\n',"//");
- mclose(Fid);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.bin
deleted file mode 100644
index e53ba463..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.sci
deleted file mode 100644
index ae51bf8b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writeobjpoint.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// s : 2014.06.22
-
-function Out=Writeobjpoint(P)
- global OBJFMT OBJSCALE NPOINT;
- X=sprintf(OBJFMT,P(1)*OBJSCALE);
- Y=sprintf(OBJFMT,P(2)*OBJSCALE);
- Z=sprintf(OBJFMT,P(3)*OBJSCALE);
- Str="v "+X+" "+Y+" "+Z;
- Printobjstr(Str)
- NPOINT=NPOINT+1
- Out=NPOINT;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.bin
deleted file mode 100644
index c3f3d522..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.sci
deleted file mode 100755
index 51a13884..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Writetextdata.sci
+++ /dev/null
@@ -1,47 +0,0 @@
-// 2010.04.27
-
-function Writetextdata(varargin)
- Fname=varargin(1);
- Mt=varargin(2);
- D=-1;
- for I=3:length(varargin)
- Tmp=varargin(I);
- if mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- end;
- end;
- Str='';
- for J=1:size(Mt,2)
- Str=Str+'x'+string(J);
- if J<size(Mt,2)
- Str=Str+',';
- end;
- end;
- if Fname~=''
- Fid=mopen(Fname,'w');
- mfprintf(Fid,'%s\n',Str);
- else
- mprintf('%s\n',Str);
- end;
- for I=1:size(Mt,1)
- Str='';
- for J=1:size(Mt,2)
- Dt=Mt(I,J);
- if Dt==%inf
- Dt=D;
- end;
- Str=Str+string(Dt);
- if J<size(Mt,2)
- Str=Str+',';
- end;
- end;
- if Fname~=''
- mfprintf(Fid,'%s\n',Str);
- else
- mprintf('%s\n',Str);
- end;
- end;
- if Fname~=''
- mclose(Fid);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.bin
deleted file mode 100644
index 655cd4e6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.sci
deleted file mode 100644
index 60d73ef7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/WritetoCindy.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-// s:2014.09.16
-
-function WritetoCindy(varargin)
- global Fnametxt
- GnameV=list();
- for J=1:length(varargin)
- Tmp=varargin(J);
- for K=1:size(Tmp,2)
- GnameV($+1)=Tmp(1,K);
- end
- end;
- Fid=mopen(Fnametxt,'w');
- for Nv=1:length(GnameV)
- Gname=GnameV(Nv);
- Tmp=evstr(Gname);
- GL=Dividegraphics(Tmp);
- Lnst="";
- for J=1:length(GL)
- G=GL(J);
- Gn=Gname+"No"+string(J);
- mfprintf(Fid,'%s\n',Gn+"=[];//");
- for K=1:Numptcrv(G)
- Pt=Ptcrv(K,G);
- if length(Lnst)==0
- Lnst=Gn+"=concat("+Gn+",[";
- end;
- Tmp=msprintf("[%6.4f,%6.4f]",Pt(1),Pt(2));
- Lnst=Lnst+Tmp;
- if length(Lnst)>80 | K==Numptcrv(G)
- Lnst=Lnst+"]);//";
- mfprintf(Fid,'%s\n',Lnst);
- Lnst="";
- else
- Lnst=Lnst+",";
- end;
- end;
- Str="Goutdatalist=Append(Goutdatalist,"+Gn+");//";
- mfprintf(Fid,'%s\n',Str);
- end;
- end;
- mclose(Fid);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.bin
deleted file mode 100644
index ba00f67f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.sci
deleted file mode 100755
index 28ab28ce..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmax.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=Xmax()
- global XMAX
- Y=XMAX;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.bin
deleted file mode 100644
index 7e8c9e46..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.sci
deleted file mode 100755
index e18e83d7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xmin.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=Xmin()
- global XMIN
- Y=XMIN;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.bin
deleted file mode 100644
index fc0a8807..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.sci
deleted file mode 100755
index b2118c90..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzax3data.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.07.11
-
-function Out=Xyzax3data(Xrange,Yrange,Zrange)
- J=mtlb_findstr(Xrange,'=');
- Tmp=evstr(part(Xrange,J+1:length(Xrange)));
- Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0];
- J=mtlb_findstr(Yrange,'=');
- Tmp=evstr(part(Yrange,J+1:length(Yrange)));
- Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0];
- J=mtlb_findstr(Zrange,'=');
- Tmp=evstr(part(Zrange,J+1:length(Zrange)));
- Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)];
- Out=MixS(Spaceline([Px,Qx]),Spaceline([Py,Qy]),Spaceline([Pz,Qz]));
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.bin
deleted file mode 100644
index 04b8bdce..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.sci
deleted file mode 100755
index b833802d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxparaname.sci
+++ /dev/null
@@ -1,71 +0,0 @@
-// 08.07.11
-// 09.09.18
-
-function Kekka=Xyzaxparaname(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Eps=10.0^(-6);
- Dr=0.19*1000/2.54/MilliIn;
- Tmp=varargin(Nargs);
- if Nargs>1 & type(Tmp)==1
- Dr=Dr*Tmp;
- Nargs=Nargs-1;
- end;
- if type(varargin(1))==10
- Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3);
- J=mtlb_findstr(Xrange,'=');
- Xname=part(Xrange,1:J-1);
- Tmp=evstr(part(Xrange,J+1:length(Xrange)));
- Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0];
- J=mtlb_findstr(Yrange,'=');
- Yname=part(Yrange,1:J-1);
- Tmp=evstr(part(Yrange,J+1:length(Yrange)));
- Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0];
- J=mtlb_findstr(Zrange,'=');
- Zname=part(Zrange,1:J-1);
- Tmp=evstr(part(Zrange,J+1:length(Zrange)));
- Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)];
- else
- Data=varargin(1);
- Xname='x'; Yname='y'; Zname='z';
- if Nargs>1
- if varargin(2)~=''
- Xname=varargin(2);
- end;
- if varargin(3)~=''
- Yname=varargin(3);
- end;
- if varargin(4)~=''
- Zname=varargin(4);
- end;
- end;
- Tmp=Mixop(1,Data);
- Px=Tmp(1,:); Qx=Tmp(2,:);
- Tmp=Mixop(2,Data);
- Py=Tmp(1,:) ;
- Qy=Tmp(2,:);
- Tmp=Mixop(3,Data);
- Pz=Tmp(1,:);
- Qz=Tmp(2,:);
- end;
- Ph=Parapt(Px); Qh=Parapt(Qx); R=Vecnagasa(Ph,Qh);
- Kekka=[];
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Xname);
- end
- Ph=Parapt(Py); Qh=Parapt(Qy); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Yname);
- end;
- Ph=Parapt(Pz); Qh=Parapt(Qz); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Zname);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.bin
deleted file mode 100644
index 3940b5b0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.sci
deleted file mode 100755
index d9c1c7df..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Xyzaxpersname.sci
+++ /dev/null
@@ -1,72 +0,0 @@
-// 08.08.14
-// 08.08.15
-// 09.09.18
-
-function Kekka=Xyzaxpersname(varargin)
- global MilliIn;
- Eps=10.0^(-6);
- Nargs=length(varargin);
- Dr=0.19*1000/2.54/MilliIn;
- Tmp=varargin(Nargs);
- if Nargs>1 & type(Tmp)==1
- Dr=Dr*Tmp;
- Nargs=Nargs-1;
- end;
- if type(varargin(1))==10
- Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3);
- J=mtlb_findstr(Xrange,'=');
- Xname=part(Xrange,1:J-1);
- Tmp=evstr(part(Xrange,J+1:length(Xrange)));
- Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0];
- J=mtlb_findstr(Yrange,'=');
- Yname=part(Yrange,1:J-1);
- Tmp=evstr(part(Yrange,J+1:length(Yrange)));
- Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0];
- J=mtlb_findstr(Zrange,'=');
- Zname=part(Zrange,1:J-1);
- Tmp=evstr(part(Zrange,J+1:length(Zrange)));
- Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)];
- else
- Data=varargin(1);
- Xname='x'; Yname='y'; Zname='z';
- if Nargs>1
- if varargin(2)~=''
- Xname=varargin(2);
- end;
- if varargin(3)~=''
- Yname=varargin(3);
- end;
- if varargin(4)~=''
- Zname=varargin(4);
- end;
- end;
- Tmp=Mixop(1,Data);
- Px=Tmp(1,:); Qx=Tmp(2,:);
- Tmp=Mixop(2,Data);
- Py=Tmp(1,:) ;
- Qy=Tmp(2,:);
- Tmp=Mixop(3,Data);
- Pz=Tmp(1,:);
- Qz=Tmp(2,:);
- end;
- Ph=Perspt(Px); Qh=Perspt(Qx); R=Vecnagasa(Ph,Qh);
- Kekka=[];
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Xname);
- end
- Ph=Perspt(Py); Qh=Perspt(Qy); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Yname);
- end;
- Ph=Perspt(Pz); Qh=Perspt(Qz); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Zname);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.bin
deleted file mode 100644
index 93cbf4e2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.sci
deleted file mode 100755
index 0a835534..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymax.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=Ymax()
- global YMAX
- Y=YMAX;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.bin
deleted file mode 100644
index 79ab6600..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.sci
deleted file mode 100755
index 73d0d261..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Ymin.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=Ymin()
- global YMIN
- Y=YMIN;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.bin
deleted file mode 100644
index d870458d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.sci
deleted file mode 100755
index 5c237179..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zparapt.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 08.07.11
-
-function Out=Zparapt(P)
- global PHI THETA;
- x=P(1); y=P(2); z=P(3);
- Out=x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.bin
deleted file mode 100644
index 0af89330..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.sci
deleted file mode 100755
index 13601556..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Zperspt.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 08.08.12
-// 10.01.02
-
-function X3=Zperspt(P)
-
- global FocusPoint EyePoint
-
- Tmp=P-FocusPoint;
- X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3);
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1;
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- X3=X2*Cb+Z2*Sb;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/lib b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/lib
deleted file mode 100644
index 24864cee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/lib
+++ /dev/null
@@ -1,344 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>
-<scilablib name="ketpic2esciL6">
- <macro name="Addcounter" file="Addcounter.bin" md5="f7a17da511ba9fdd3cf4cdaf83f3d78c"/>
- <macro name="Anglemark" file="Anglemark.bin" md5="0e984414d47cb604faef41ae93390dcb"/>
- <macro name="Arrowdata" file="Arrowdata.bin" md5="b39db1a6340e09c9dfaa3fbb4c3777f1"/>
- <macro name="Arrowhead" file="Arrowhead.bin" md5="0b0bc5478ce8afeb47770d9add192560"/>
- <macro name="Arrowheaddata" file="Arrowheaddata.bin" md5="3c06f276e57945b3d54e11e39a9e9435"/>
- <macro name="Arrowline" file="Arrowline.bin" md5="e15854f9c5c640cee8667f6128023620"/>
- <macro name="Assign" file="Assign.bin" md5="c8d1390433c0a317d199f5491669e988"/>
- <macro name="Assignadd" file="Assignadd.bin" md5="d24d31a4cfd1dc707c51c51ff9cdf364"/>
- <macro name="Assignrep" file="Assignrep.bin" md5="e81413f3bc64c05ae0821b56fd63e5ef"/>
- <macro name="Assignset" file="Assignset.bin" md5="6a6dad9e5a35cdddb0ac069ec601c061"/>
- <macro name="Beginpicture" file="Beginpicture.bin" md5="9fd24a768a0d6548b1f458d51e1bb202"/>
- <macro name="Bezier" file="Bezier.bin" md5="f23aa1069913d825c6f8040b3de17e7d"/>
- <macro name="Bezierpt" file="Bezierpt.bin" md5="f09183e61d71f55243937a28ef90fb06"/>
- <macro name="BorderHiddenData" file="BorderHiddenData.bin" md5="67622b4dca726e7aff9b4e92d411edcd"/>
- <macro name="BorderPt" file="BorderPt.bin" md5="e482d76b67ceb360021f9cef448abc73"/>
- <macro name="Borderparadata" file="Borderparadata.bin" md5="1bf108993d36707c45e3a25770ca2869"/>
- <macro name="Borderpersdata" file="Borderpersdata.bin" md5="d46e7fdcf42a61c354a540359dcd9f5f"/>
- <macro name="Borderrawdata" file="Borderrawdata.bin" md5="0228890cf35b6929fc3bb083b1211da6"/>
- <macro name="Bowdata" file="Bowdata.bin" md5="1f5f1c65d0448af83143e14f53565393"/>
- <macro name="Bowmiddle" file="Bowmiddle.bin" md5="0a765efd6dae8c6fbd0d075ef0ff8b3c"/>
- <macro name="Bowname" file="Bowname.bin" md5="e8ab45879c83d386dcf5e086fe71e1a4"/>
- <macro name="Bownamerot" file="Bownamerot.bin" md5="ce9e45bf14fca7b62fa56b6d0b3baaef"/>
- <macro name="CalcHeight" file="CalcHeight.bin" md5="f535ff3dcd86bc6552b54894e5865673"/>
- <macro name="CalcWidth" file="CalcWidth.bin" md5="cf0f3d22a9dd2ffdb077a4be5bf1219f"/>
- <macro name="Calcfun" file="Calcfun.bin" md5="618d36dbe48f68b4a3e2664b5df8cad2"/>
- <macro name="CameraCurve" file="CameraCurve.bin" md5="b8acf2da07c09553106c10b4cc29d9e7"/>
- <macro name="CameracoordCurve" file="CameracoordCurve.bin" md5="91ad20f64500117414f16a1cce2c344f"/>
- <macro name="Cancoordpara" file="Cancoordpara.bin" md5="61afc19fb49f4b16d48a3cc54c6c6650"/>
- <macro name="Cancoordpers" file="Cancoordpers.bin" md5="3a82d9864deed9b050795decae25d8bb"/>
- <macro name="Circledata" file="Circledata.bin" md5="a5a1cf644e81417a9065d80f71b24d8d"/>
- <macro name="Clipindomain" file="Clipindomain.bin" md5="773133bed55b7003b0248ffb670e3685"/>
- <macro name="Closefile" file="Closefile.bin" md5="d29119f97c49373729d10b0cfba746e4"/>
- <macro name="Closeobj" file="Closeobj.bin" md5="18df14cfd19b6a7911f9a3748572c02c"/>
- <macro name="Closepar" file="Closepar.bin" md5="b8f58e851efa7f12560401c5b0760ecf"/>
- <macro name="Closephr" file="Closephr.bin" md5="f53a01c653931c16bd3c493950798acf"/>
- <macro name="Closepicture" file="Closepicture.bin" md5="32f401713757a349111cfaf0adcf199d"/>
- <macro name="Connectseg" file="Connectseg.bin" md5="439d9f55197c09cd7b54e98cc7151208"/>
- <macro name="Crossprod" file="Crossprod.bin" md5="536992b625b66d009e88e73a21a354d6"/>
- <macro name="Crv3onsfHiddenData" file="Crv3onsfHiddenData.bin" md5="716dedc06dea644e6aadecf58ab050f4"/>
- <macro name="Crv3onsfparadata" file="Crv3onsfparadata.bin" md5="e0d51c785077d687bfc222837fd8593b"/>
- <macro name="Crv3onsfpersdata" file="Crv3onsfpersdata.bin" md5="63bcd579f64f40cc04e50094782e09e0"/>
- <macro name="CrvonsfHiddenData" file="CrvonsfHiddenData.bin" md5="009a9889bf1f2a3a05f38918b579b7cb"/>
- <macro name="Crvonsfparadata" file="Crvonsfparadata.bin" md5="6d5468227fd75007c1dfe4572c1c189c"/>
- <macro name="Crvonsfpersdata" file="Crvonsfpersdata.bin" md5="de082902912599535a629ed08e56fb6c"/>
- <macro name="CrvsfHiddenData" file="CrvsfHiddenData.bin" md5="f8d158838c95df89a67bf8233e541a09"/>
- <macro name="Crvsfparadata" file="Crvsfparadata.bin" md5="885de6d7639a403dd01a2761e39a6ad1"/>
- <macro name="Crvsfpersdata" file="Crvsfpersdata.bin" md5="3a660a01512f537e270f611d45512032"/>
- <macro name="CuspData" file="CuspData.bin" md5="0958a008a4c59305d62522f9b80028da"/>
- <macro name="CuspPt" file="CuspPt.bin" md5="08b55dc8b3e2d0ee1fea47b71825af92"/>
- <macro name="CuspSplitPt" file="CuspSplitPt.bin" md5="0ff09f7f3d56080bbad1a1a26260f254"/>
- <macro name="Cuspsplitpara" file="Cuspsplitpara.bin" md5="e54d63f2224cff696951a50800d0c4d4"/>
- <macro name="Cuspsplitpers" file="Cuspsplitpers.bin" md5="ebf6aef58ed839a05d27771eeb0fc60c"/>
- <macro name="Cutsf2d" file="Cutsf2d.bin" md5="adc0dd43b75ee65d181c56c5eeef3b0a"/>
- <macro name="Dashline" file="Dashline.bin" md5="4d0497d9013039e15ff2b287b2c0988b"/>
- <macro name="Dataindex" file="Dataindex.bin" md5="f0b3b146c9ee16cde54ecd4937acb0b9"/>
- <macro name="Definecolor" file="Definecolor.bin" md5="337b7001704f8c604b555e35721973d6"/>
- <macro name="Deqplot" file="Deqplot.bin" md5="43a868bfe9d41dc2389116b15d18df80"/>
- <macro name="Derivative" file="Derivative.bin" md5="f0b451a2b43c69168ac088e8443f6961"/>
- <macro name="Diagcelldata" file="Diagcelldata.bin" md5="efc679b9d0239e2669c6a0929a4e242b"/>
- <macro name="Dividegraphics" file="Dividegraphics.bin" md5="b2c065a1249613d3cf7f6ba80ec816a4"/>
- <macro name="Dividetable" file="Dividetable.bin" md5="af1d4f7f854da91ce2b4cec13ff44bc5"/>
- <macro name="Doscaling" file="Doscaling.bin" md5="86184ec15f528517d5e37e8b5baa3754"/>
- <macro name="Dotfilldata" file="Dotfilldata.bin" md5="80a560945fc679f1f036778833dd59a7"/>
- <macro name="Dotprod" file="Dotprod.bin" md5="e1a7afad315e324245ec76499b5dfb6c"/>
- <macro name="Dottedline" file="Dottedline.bin" md5="6505941ec7ec4395b72df15f93621117"/>
- <macro name="Dropnumlistcrv" file="Dropnumlistcrv.bin" md5="1875178bc5c363af0d15f8276503be4a"/>
- <macro name="Droppoint" file="Droppoint.bin" md5="c25e16076a319350b8763f48476b4ec6"/>
- <macro name="Drwline" file="Drwline.bin" md5="3aedf6f6a861fa772b06071e29680824"/>
- <macro name="Drwpt" file="Drwpt.bin" md5="52f450f7724e33a424582cfe03c06877"/>
- <macro name="Drwxy" file="Drwxy.bin" md5="c17d9f6608390f019c87d6e1e181e8a3"/>
- <macro name="Embed" file="Embed.bin" md5="7cc5c0ccfeb87763b205b3fcf0dc67b4"/>
- <macro name="Enclosing" file="Enclosing.bin" md5="457c453795c3b3224be70e1721385cb1"/>
- <macro name="EnclosingS" file="EnclosingS.bin" md5="13de130f31f7932194fd173f977ff896"/>
- <macro name="Endpicture" file="Endpicture.bin" md5="9b3ce661a450d798d55889be6ffd31ac"/>
- <macro name="Evlptablepara" file="Evlptablepara.bin" md5="06e669cba02eb0218f852fdf46b1cae5"/>
- <macro name="Evlptablepers" file="Evlptablepers.bin" md5="6cc6897a677911ce2629157f932f32c5"/>
- <macro name="Execmd" file="Execmd.bin" md5="c3a30b0fae6f2a8ce6593607ed0d2ed8"/>
- <macro name="Expr" file="Expr.bin" md5="c3e260bc0fd7af5a7231431ef9033f5c"/>
- <macro name="Exprrot" file="Exprrot.bin" md5="6fc71ff18629fc512e5fed1218433619"/>
- <macro name="Faceremovaldata" file="Faceremovaldata.bin" md5="90e9f3a860839349b2486df6fff7adb4"/>
- <macro name="Facesdata" file="Facesdata.bin" md5="0c43ae73a08dcfce906c075f17eec59a"/>
- <macro name="Findcell" file="Findcell.bin" md5="9b9cc86ef6f67a8d539d30ec58ad9005"/>
- <macro name="Flattenlist" file="Flattenlist.bin" md5="d4b4a78c9e9760a4cbeda97f54592acb"/>
- <macro name="Fontsize" file="Fontsize.bin" md5="3620d8e64b61ab17778776195acec82a"/>
- <macro name="Fouriercoeff" file="Fouriercoeff.bin" md5="83dfcd5c4a1d0f7ccb711d89b0a8003c"/>
- <macro name="FouriercoeffL" file="FouriercoeffL.bin" md5="29b8c2c57c53796531cb8316630e87ee"/>
- <macro name="Fouriersum" file="Fouriersum.bin" md5="3cf167292e587148fe7d3a9d2e34eab0"/>
- <macro name="Fracform" file="Fracform.bin" md5="6dfc4e723a0a2d55ef9e2e9028e5a0b1"/>
- <macro name="Framedata" file="Framedata.bin" md5="712be5ee4fdd60fe132b951022f7f5e1"/>
- <macro name="Fullformfunc" file="Fullformfunc.bin" md5="ebc5473763f9884c091aa9863062702b"/>
- <macro name="Gaiseki" file="Gaiseki.bin" md5="36a6b9567ed081b46107ed3374562196"/>
- <macro name="Getcounter" file="Getcounter.bin" md5="45f7aec5f0936f4abe6e65296634a847"/>
- <macro name="Gettrace" file="Gettrace.bin" md5="bb84c353b0e3af593e903273160d9bd9"/>
- <macro name="Hatchdata" file="Hatchdata.bin" md5="e05c42f885a108c41a75bf1b607b509b"/>
- <macro name="Hexahedrondata" file="Hexahedrondata.bin" md5="86efcd2c370b4e76adfeea3b75639d31"/>
- <macro name="HiddenWireData" file="HiddenWireData.bin" md5="a080bcb1dcc97c1205fff04562d694fd"/>
- <macro name="Htickmark" file="Htickmark.bin" md5="bdafbfedbc2441fe5cd989910852c79e"/>
- <macro name="ImplicitData" file="ImplicitData.bin" md5="24a9ea9eb043677084250a30d6c6db00"/>
- <macro name="Implicitplot" file="Implicitplot.bin" md5="7d1075882d5446646c2304e00e70ad6d"/>
- <macro name="InWindow" file="InWindow.bin" md5="cf3f449e5189b8d40a3d3a4c219a92ea"/>
- <macro name="Initangle" file="Initangle.bin" md5="c6902d32536d434af7f28c28b45290ab"/>
- <macro name="Integrate" file="Integrate.bin" md5="6f255339baf16af41b20d9b2d86adb50"/>
- <macro name="Intersectcrvs" file="Intersectcrvs.bin" md5="68b875e1418a8a231095155ca2482cbc"/>
- <macro name="IntersectcrvsPp" file="IntersectcrvsPp.bin" md5="5c05582df9fa8f9a05fa42ef1cf799ae"/>
- <macro name="Intersectcrvsf" file="Intersectcrvsf.bin" md5="89b1b7d500237aebbd41f1094560609b"/>
- <macro name="Intersectlines" file="Intersectlines.bin" md5="5a4837581398e0f6299d83805b325fd6"/>
- <macro name="IntersectselfPp" file="IntersectselfPp.bin" md5="d10bc970ff6540655fedece748a0f1d7"/>
- <macro name="Invdashline" file="Invdashline.bin" md5="d72a1842fe88eb719dd85ce45caafc96"/>
- <macro name="Invert" file="Invert.bin" md5="7018f80081bca2cb147e81ea435ba287"/>
- <macro name="Invparapt" file="Invparapt.bin" md5="b58cfbc854e7b14d076b1f1676c3f54b"/>
- <macro name="Invperspt" file="Invperspt.bin" md5="c8500cf469fd4a4c8399e5e093f49126"/>
- <macro name="Joincrvs" file="Joincrvs.bin" md5="41981f483c2cfacab95b25356ee5a7d1"/>
- <macro name="Joingraphics" file="Joingraphics.bin" md5="e525e21001a3408e5bb3587d24ca4916"/>
- <macro name="Ketinit" file="Ketinit.bin" md5="bd9d49f1927a921db621d419da386e1d"/>
- <macro name="Kouten" file="Kouten.bin" md5="b0fbbe27e4961ef9a8d0652b1d9edfaf"/>
- <macro name="KoutenList" file="KoutenList.bin" md5="ca822b6e42d545a627a7129d02b91cb2"/>
- <macro name="Koutenseg" file="Koutenseg.bin" md5="2424557c72db63186699b8ab8fb4ef64"/>
- <macro name="Kukannozoku" file="Kukannozoku.bin" md5="40cef25e80745039eb34c5066dfe2d14"/>
- <macro name="Kukeiwake" file="Kukeiwake.bin" md5="2e42c3fdef9ac1f7aaca550ff11307c3"/>
- <macro name="Kyorihensuu" file="Kyorihensuu.bin" md5="3f313b70f962d573d0db9a548ed4ebc4"/>
- <macro name="Kyoukai" file="Kyoukai.bin" md5="630a8517e9e9ae8ecb2a5372c87193fd"/>
- <macro name="Letter" file="Letter.bin" md5="a587d241a5c2f1c69b0904632af16a26"/>
- <macro name="Letterrot" file="Letterrot.bin" md5="1ce92bf2c945ee12d0746ae7f2fe6b5d"/>
- <macro name="Lineplot" file="Lineplot.bin" md5="d2b8a90dd16c873622ffc291b7c9ed64"/>
- <macro name="Listplot" file="Listplot.bin" md5="1575fd89b2e6c3c96b90b6889006370f"/>
- <macro name="MakeBowdata" file="MakeBowdata.bin" md5="ab5ea1d8c5cc092ea13021c3fb255613"/>
- <macro name="MakeCurves" file="MakeCurves.bin" md5="a1d7968df6f80673bab58af5762640a4"/>
- <macro name="MakecutbycrvL" file="MakecutbycrvL.bin" md5="8ddeb50d60ce53392a6d6ec76fad7bee"/>
- <macro name="Makehasen" file="Makehasen.bin" md5="b6e177ea7ad735910a2c6b45dc1bb580"/>
- <macro name="Makeliststr" file="Makeliststr.bin" md5="bf4e86417206108a51e2b0210b990557"/>
- <macro name="Makesfcutoffdata" file="Makesfcutoffdata.bin" md5="7b61d0f517b18505225edbac83729b6f"/>
- <macro name="Makeshasen" file="Makeshasen.bin" md5="878e44c4780cdac427a7d55f551373a2"/>
- <macro name="Makeskeletondata" file="Makeskeletondata.bin" md5="6c918f7f13736227cc0ac351c6fd7a54"/>
- <macro name="Makeskeletonpersdata" file="Makeskeletonpersdata.bin" md5="72dd47219b4e6689c54c69eed62f06dc"/>
- <macro name="Makevaltable" file="Makevaltable.bin" md5="c279f90b73efc06d235c983bd08ce47b"/>
- <macro name="MakeveLfaceL" file="MakeveLfaceL.bin" md5="1afea9c44a3dbe277e601b02d38be3cc"/>
- <macro name="Makexybdy" file="Makexybdy.bin" md5="6eca03d530a515cdfe0b98d33fee2b67"/>
- <macro name="Mawarikomi" file="Mawarikomi.bin" md5="61b967de5ef56e29016932c9f77c561a"/>
- <macro name="MeetWindow" file="MeetWindow.bin" md5="ae7f015eebc2250c20ad876d1d3ec9e4"/>
- <macro name="Meetpoints" file="Meetpoints.bin" md5="ffeccee8bfbebd44a45abdfe91c3cca1"/>
- <macro name="Member" file="Member.bin" md5="6c29ab2fdbbc61889c95b45d820d317d"/>
- <macro name="Menkakusi" file="Menkakusi.bin" md5="53d3fee4c99b28d7aac10f8114fe2524"/>
- <macro name="Menkakusi2" file="Menkakusi2.bin" md5="eedabe7e3dd93f6af4fe225a6aa4b2ed"/>
- <macro name="Mix" file="Mix.bin" md5="f9f822bf34f04f9dc5401f492b8dc76b"/>
- <macro name="MixL" file="MixL.bin" md5="e80cd4b09be7c0a9b88cfaea7bcf802a"/>
- <macro name="MixS" file="MixS.bin" md5="d60abae70f94ff28b184306e971d1102"/>
- <macro name="Mixadd" file="Mixadd.bin" md5="51da5be70ce2e556dd75d812715faad4"/>
- <macro name="Mixdisp" file="Mixdisp.bin" md5="b2b5187462a54615cca28f272232b61f"/>
- <macro name="Mixjoin" file="Mixjoin.bin" md5="f9df8699f8cb95ca2b657403a94a9d8f"/>
- <macro name="Mixlength" file="Mixlength.bin" md5="ee9cee8e9c916ea42ed8e1e8ad70e321"/>
- <macro name="Mixmake" file="Mixmake.bin" md5="b84d74ef8def9658fa2d8f34cc8424f5"/>
- <macro name="Mixop" file="Mixop.bin" md5="8c5f9a72e8838aa4b9c9f45013000670"/>
- <macro name="Mixsub" file="Mixsub.bin" md5="f2a14687cf8a0c6daaede12d0b730dd5"/>
- <macro name="Mixtype" file="Mixtype.bin" md5="0a0931265b0666b53416685a35897f82"/>
- <macro name="Naigai" file="Naigai.bin" md5="6e97fdbd9f1feabfb09b2247518c4399"/>
- <macro name="Naiseki" file="Naiseki.bin" md5="8f33757e011f07a03a144414296c3190"/>
- <macro name="Nearestpt" file="Nearestpt.bin" md5="7b392fdb66cdafb6ccf4e3f083967ba2"/>
- <macro name="Newlength" file="Newlength.bin" md5="ea7efdb86cdb3345f0b3e43427cb2c48"/>
- <macro name="Nohiddenpara" file="Nohiddenpara.bin" md5="b46886584a10d67fbdb7816c5c739fb8"/>
- <macro name="Nohiddenpara2" file="Nohiddenpara2.bin" md5="be95c5d2791c7b05e25c1def88f2bdc6"/>
- <macro name="Nohiddenpers" file="Nohiddenpers.bin" md5="1e867c6479823f428d90911b099cdbcf"/>
- <macro name="Nohiddenpers2" file="Nohiddenpers2.bin" md5="f96bfe5e316b4b771ab3d26b27b73615"/>
- <macro name="Numptcrv" file="Numptcrv.bin" md5="5bf4461504105054dd993bff3b35f370"/>
- <macro name="Objcurve" file="Objcurve.bin" md5="3f7684be52bce1b1458d378be0849229"/>
- <macro name="Objjoin" file="Objjoin.bin" md5="74a96fb8ed5d88ff1008156f27738f5a"/>
- <macro name="Objname" file="Objname.bin" md5="74d2732da725b97cb3c0eb443a6f5ed9"/>
- <macro name="Objpolygon" file="Objpolygon.bin" md5="56d22a5ae20dcfc9a0cd4b8a440385e6"/>
- <macro name="Objpolyhedron" file="Objpolyhedron.bin" md5="ff92bd278e558ead5df19970d6d01546"/>
- <macro name="Objrecs" file="Objrecs.bin" md5="e8ca7cd5993fb7ce8e5b509dce42e46b"/>
- <macro name="Objsurf" file="Objsurf.bin" md5="f3017f49c709447a7024d16edb01580d"/>
- <macro name="Objsymb" file="Objsymb.bin" md5="ef3fbae27f502a20ff4df575638d4e52"/>
- <macro name="Objthicksurf" file="Objthicksurf.bin" md5="07f9c70cedf719587412c848812c7704"/>
- <macro name="Op" file="Op.bin" md5="cb2e0935be6b77b1c0bc4f2c7071a1cb"/>
- <macro name="Openfile" file="Openfile.bin" md5="bfccc88e9e9abcd83236dd4dd5da2cb4"/>
- <macro name="Openobj" file="Openobj.bin" md5="c60578368dceeb4ab79f74e6de774ffd"/>
- <macro name="Openpar" file="Openpar.bin" md5="39554dc8c76d98179e21e6878af691c5"/>
- <macro name="Openphr" file="Openphr.bin" md5="a086531ca6cf4e112742d5aef90943cf"/>
- <macro name="Openpicture" file="Openpicture.bin" md5="e7b76f0bb2132c86350d0f1293a31069"/>
- <macro name="Ovalbox" file="Ovalbox.bin" md5="d22bdac24b70c1d6b1625dcf3a8ce007"/>
- <macro name="Ovaldata" file="Ovaldata.bin" md5="0facfbd0760cec3d8fa762f7dea098f2"/>
- <macro name="Paramark" file="Paramark.bin" md5="644e9aa93430fd35f3639875d6759584"/>
- <macro name="ParamonCurve" file="ParamonCurve.bin" md5="910c0b77eb025faf243e2d2cb7ebd043"/>
- <macro name="Paramoncrv" file="Paramoncrv.bin" md5="48c6dc127d039740c0a11def8a18fe8a"/>
- <macro name="Paramplot" file="Paramplot.bin" md5="09b2750fc9950bbc258a881a2c12a97b"/>
- <macro name="Parapt" file="Parapt.bin" md5="e130c84b03164202cf8e25ea27558859"/>
- <macro name="Partcrv" file="Partcrv.bin" md5="819797d94d68bf7df7c29b01717525a6"/>
- <macro name="Partcrv3" file="Partcrv3.bin" md5="c87d37f9f00aff9ce05a3a3879c6ea5a"/>
- <macro name="Partframe" file="Partframe.bin" md5="8df2a78e61362e18cf3b71779ffffbd4"/>
- <macro name="PartitionPt" file="PartitionPt.bin" md5="a4afd33aca16e70df0984f7cf05371ce"/>
- <macro name="Partitionseg" file="Partitionseg.bin" md5="c0ce6ccd18ea9794f55a9e6926328ea1"/>
- <macro name="Perspt" file="Perspt.bin" md5="5415e8696ae175005b59936b2e164bac"/>
- <macro name="PhFaceL" file="PhFaceL.bin" md5="b8748ee001a1357e2820b304083ce09e"/>
- <macro name="PhHiddenData" file="PhHiddenData.bin" md5="6a0ab5d6aeb7d4c66b31ab86ac5afdae"/>
- <macro name="PhVertexL" file="PhVertexL.bin" md5="9d7e1d653e88fc9b98f783ec57ebe8ca"/>
- <macro name="Phcutdata" file="Phcutdata.bin" md5="bed83bc88efc277012bab8ba47b9d810"/>
- <macro name="Phcutoffdata" file="Phcutoffdata.bin" md5="2ca3881c7cdfe2fee62aa3e64af34157"/>
- <macro name="Phidegree" file="Phidegree.bin" md5="5d1ac461a2fee60c6c2dda978a262428"/>
- <macro name="Phparadata" file="Phparadata.bin" md5="cbc40d5c2c508a72e51adac3ffecdd4c"/>
- <macro name="Phpersdata" file="Phpersdata.bin" md5="51601f80ae1578cf4aa0d6f244ba5027"/>
- <macro name="Phrawparadata" file="Phrawparadata.bin" md5="371b244204a19e6a12e70773cb118f21"/>
- <macro name="Phrawpersdata" file="Phrawpersdata.bin" md5="f2371fdb24326f6c7a209f9b70d07ce1"/>
- <macro name="Phsparadata" file="Phsparadata.bin" md5="762751108de07b4e5a1e6264e16d487c"/>
- <macro name="Phspersdata" file="Phspersdata.bin" md5="acf5af0f78c134ae893fd057e408dd3e"/>
- <macro name="Phsrawparadata" file="Phsrawparadata.bin" md5="2aebf882e1d6cd11e44cb2815fd186fd"/>
- <macro name="Phsrawpersdata" file="Phsrawpersdata.bin" md5="b90465806262e6016d26450f6654194d"/>
- <macro name="Plotdata" file="Plotdata.bin" md5="676695f9f9b9a91cfea1ee426d7185ce"/>
- <macro name="Pointdata" file="Pointdata.bin" md5="eb131a9f0a6687722dc491cedb732ade"/>
- <macro name="PointonCurve" file="PointonCurve.bin" md5="168183930f3fce712571ad5b737f7004"/>
- <macro name="Pointoncrv" file="Pointoncrv.bin" md5="a0a2cd4d7f51bec560eb26fef054d835"/>
- <macro name="Powersum" file="Powersum.bin" md5="29a72b2125d2f95cfd9bdd742a4e106b"/>
- <macro name="Prime" file="Prime.bin" md5="35045b439a59fabbe9a4127d12706fb6"/>
- <macro name="Printobjstr" file="Printobjstr.bin" md5="2b4d610c4a39dcab5cfb5c93f7dff5ea"/>
- <macro name="ProjCurve" file="ProjCurve.bin" md5="7d548512c30e79cd098aa7b2f96a4ebf"/>
- <macro name="ProjcoordCurve" file="ProjcoordCurve.bin" md5="ddf1fa0e05421feaa482038b26925ab5"/>
- <macro name="Projpara" file="Projpara.bin" md5="98da96de9ea67f2db4111877d7ff785e"/>
- <macro name="Projpers" file="Projpers.bin" md5="7820810b8c0861b22e8dcdc23f1c0864"/>
- <macro name="Ptcrv" file="Ptcrv.bin" md5="d353fd7e1af4fac1533c7e0ddebf996e"/>
- <macro name="Ptend" file="Ptend.bin" md5="5b30f64ef0920f13b540db8eb5f93e5a"/>
- <macro name="PthiddenQ" file="PthiddenQ.bin" md5="c1e31cee1140bf7942b7e1c83514d790"/>
- <macro name="Ptne" file="Ptne.bin" md5="833e0e4b3ced75d740eaaab4c1fc88bd"/>
- <macro name="Ptnw" file="Ptnw.bin" md5="8415bd27db46c35cec56e67d2ca9734f"/>
- <macro name="Ptse" file="Ptse.bin" md5="f5180a6df918355d3a588786e7be8cf4"/>
- <macro name="Ptstart" file="Ptstart.bin" md5="f0e4baaf1f46e6b379571e9414a83812"/>
- <macro name="Ptsw" file="Ptsw.bin" md5="c30adf43aa5f3c9a0961402ab3b8ddc9"/>
- <macro name="Putcell" file="Putcell.bin" md5="da158190a8848db850d3d34a16d36dc8"/>
- <macro name="Putcirmark" file="Putcirmark.bin" md5="9f1b9f829d10c8d29f3c2ea6d316383b"/>
- <macro name="PutcoL" file="PutcoL.bin" md5="d8f49a7b534060301063804207669228"/>
- <macro name="PutcoLexpr" file="PutcoLexpr.bin" md5="d35417b4b818f80c7b96f99118795d48"/>
- <macro name="PutcoLstr" file="PutcoLstr.bin" md5="32c9d7d6751b5c85adca1c384ec98c10"/>
- <macro name="Putdashmark" file="Putdashmark.bin" md5="03b76cd3bbc9e52df76c2be30c42570b"/>
- <macro name="Putrecmark" file="Putrecmark.bin" md5="a5c20a30353d0c79c0dcea3cf39c54e3"/>
- <macro name="Putrow" file="Putrow.bin" md5="0a9adbebc80444ab1495a302265920e6"/>
- <macro name="Putrowexpr" file="Putrowexpr.bin" md5="4a32c3441cd9ad7c23656ab97e65d352"/>
- <macro name="Putrowstr" file="Putrowstr.bin" md5="92ee0311a5e4bb7995a9d44bfbc1460d"/>
- <macro name="Puttrace" file="Puttrace.bin" md5="08b64f48285a49c1cb6138fe1491c8fe"/>
- <macro name="Ratiocmyk" file="Ratiocmyk.bin" md5="54098c052d304f2b329cc4fd2bd23bc1"/>
- <macro name="ReadOutData" file="ReadOutData.bin" md5="0198ca044595d75779d267e425e5380a"/>
- <macro name="ReadfromCindy" file="ReadfromCindy.bin" md5="1fed87229911382502d7e7cfd359f4c1"/>
- <macro name="Readtextdata" file="Readtextdata.bin" md5="4acbbc591808404b6814db3175c2ffed"/>
- <macro name="Reflectdata" file="Reflectdata.bin" md5="51d5020a418590fe64cbf4883da76562"/>
- <macro name="Rmmember" file="Rmmember.bin" md5="31ade9c8802d46438ace1e53bb769b86"/>
- <macro name="Rotate3data" file="Rotate3data.bin" md5="5aaab016d1fed7a61f270e3b4ad84316"/>
- <macro name="Rotate3pt" file="Rotate3pt.bin" md5="7feea2dd66e7a02b96c384011d818a0e"/>
- <macro name="Rotatedata" file="Rotatedata.bin" md5="f7c7aa1bd5b2d2d99b66bb3bd711de19"/>
- <macro name="Roundstr" file="Roundstr.bin" md5="dd261bcd78d1110bfd9fd775efcf5a4e"/>
- <macro name="Scaledata" file="Scaledata.bin" md5="fac166fc1de490a64dd7f7a8f46164a9"/>
- <macro name="Sectionview" file="Sectionview.bin" md5="db370ec400c90c7865f7c626572e39f7"/>
- <macro name="Setangle" file="Setangle.bin" md5="57190782b3c5c0ace7f2adecb18e4aed"/>
- <macro name="Setarrow" file="Setarrow.bin" md5="e7baa60ca4f593de15c7cb8b56be800a"/>
- <macro name="Setax" file="Setax.bin" md5="ef281e109b01e3b65d1842e0d2a03873"/>
- <macro name="Setcolor" file="Setcolor.bin" md5="b0adb12d43ae4da2815331389b85f944"/>
- <macro name="Setcounter" file="Setcounter.bin" md5="e38d212ffa114288c73ccdb613c9cb9d"/>
- <macro name="Setmark" file="Setmark.bin" md5="d4cb68ac16edcd28a86ba2a0563b9597"/>
- <macro name="Setmarklen" file="Setmarklen.bin" md5="ec3870c326393f15a29d77cf476618cf"/>
- <macro name="Setobjdecimals" file="Setobjdecimals.bin" md5="823bc64fbdda67813d1e3c3bf592a0e3"/>
- <macro name="Setobjscale" file="Setobjscale.bin" md5="a2cdb49a13b0dc89328a7194f34eeeab"/>
- <macro name="Setorigin" file="Setorigin.bin" md5="fe236fa677bab1dd24e53cfc28022826"/>
- <macro name="Setpen" file="Setpen.bin" md5="9d87bbd283d225fd62422263375a94b5"/>
- <macro name="Setpers" file="Setpers.bin" md5="830fe8254a07765e703077b456353070"/>
- <macro name="Setpt" file="Setpt.bin" md5="cbfbda69ce4184fc0ad59bfbe01943a6"/>
- <macro name="Setscaling" file="Setscaling.bin" md5="263333f56ad33907534fdb460e54da9b"/>
- <macro name="SetstereoL" file="SetstereoL.bin" md5="2711aa6a1541336aec852ac1437155ac"/>
- <macro name="SetstereoR" file="SetstereoR.bin" md5="bd74d871d1bc79ed8c01a13a569eb7bb"/>
- <macro name="Setunitlen" file="Setunitlen.bin" md5="1e245724b987e84c413bf37a30bb5dd3"/>
- <macro name="Setversion" file="Setversion.bin" md5="d6dbab1ce7bb18b2c773bae647e4ac5d"/>
- <macro name="Setwindow" file="Setwindow.bin" md5="e781a89da1ce77fbc46f713553523c51"/>
- <macro name="Sf3data" file="Sf3data.bin" md5="095b6c0f2bf25f7b9ed5f5d8d3a8915d"/>
- <macro name="Sfbdparadata" file="Sfbdparadata.bin" md5="f9c0c54671a68458f4bcb1936fa402ec"/>
- <macro name="Sfbdpersdata" file="Sfbdpersdata.bin" md5="aa08f921566b64c11e888ee34429eca5"/>
- <macro name="Sfbdrawparadata" file="Sfbdrawparadata.bin" md5="fae8431fd5fe5ead8ff2f85d45e144c1"/>
- <macro name="Sfbdrawpersdata" file="Sfbdrawpersdata.bin" md5="1cafbda088573fad0d85f2bb2a165178"/>
- <macro name="Sfcutdata" file="Sfcutdata.bin" md5="4dff7dff641c5e51588e8f27c2068396"/>
- <macro name="Sfcutoffparadata" file="Sfcutoffparadata.bin" md5="d5089ce276ce8329a5e25772eda825ad"/>
- <macro name="Sfcutoffpersdata" file="Sfcutoffpersdata.bin" md5="8f232600533c8c553d279fb7999a9aef"/>
- <macro name="Sfcutoffrawparadata" file="Sfcutoffrawparadata.bin" md5="b530fdec88ecac05548dcbc183fac672"/>
- <macro name="Sfcutoffrawpersdata" file="Sfcutoffrawpersdata.bin" md5="c7dc8aec4aedc1a9e3b88a423b4e4091"/>
- <macro name="Sfparadata" file="Sfparadata.bin" md5="636205ff5e7fa28c188beb8a788ec30f"/>
- <macro name="Sfpersdata" file="Sfpersdata.bin" md5="2c198aaa68180b41eb0dd81812668a52"/>
- <macro name="Shade" file="Shade.bin" md5="db51cd9b42032b1fd9cebb3f0565d055"/>
- <macro name="Skeleton2data" file="Skeleton2data.bin" md5="046308bb7c2d18186a5db1abf5724ace"/>
- <macro name="Skeletonpara3data" file="Skeletonpara3data.bin" md5="8b00d1898174de20f097983ad72f96d9"/>
- <macro name="Skeletonparadata" file="Skeletonparadata.bin" md5="6368394d29bd3e34c9dadbc54dd49755"/>
- <macro name="Skeletonpers3data" file="Skeletonpers3data.bin" md5="62a627cd77291d934150cbe175d9ec06"/>
- <macro name="Skeletonpersdata" file="Skeletonpersdata.bin" md5="63663e9c381325970209a62a00877361"/>
- <macro name="Spacecurve" file="Spacecurve.bin" md5="e06c5eb2ae8623cee4fe135d6ed8d2a5"/>
- <macro name="Spaceline" file="Spaceline.bin" md5="bcdf09d58fde1a3071968c7600cbcadc"/>
- <macro name="Splinedata" file="Splinedata.bin" md5="c8cac41f49166b548f6bb20eb765f513"/>
- <macro name="Strop" file="Strop.bin" md5="b3e20bfeaaf10aa827ec9be26865547b"/>
- <macro name="Subs" file="Subs.bin" md5="daa0438a2d34af2d043c50b3d2a00a01"/>
- <macro name="Sumfun" file="Sumfun.bin" md5="0a785d3c30c763778e1f92d3b8fb785e"/>
- <macro name="Symb3data" file="Symb3data.bin" md5="ba72252ea118f44b847927d0de9b9892"/>
- <macro name="Symbdata" file="Symbdata.bin" md5="53c196c0ca5f9026e4cd441e0d6586ed"/>
- <macro name="Tabledata" file="Tabledata.bin" md5="b79bdcd7c171ab768e763d26d9b4f6a1"/>
- <macro name="Texcom" file="Texcom.bin" md5="dc0139e9541acb939d1c3839a0fc11f6"/>
- <macro name="Texctr" file="Texctr.bin" md5="5f23e09b23191bec07cb10b070d5c66b"/>
- <macro name="Texelse" file="Texelse.bin" md5="f8b67c8497e8dd9ac1dbcc5a90fc930c"/>
- <macro name="Texend" file="Texend.bin" md5="351105e6dd3c5c171f0944030fba69c4"/>
- <macro name="Texendfor" file="Texendfor.bin" md5="7d1005515ed98a776c7c9a00a2a970d8"/>
- <macro name="Texendif" file="Texendif.bin" md5="6323c9cf98ac4c1d6e01bef2dadc6614"/>
- <macro name="Texfor" file="Texfor.bin" md5="0ade87f95e63dadbdbfe35efbca00e86"/>
- <macro name="Texforinit" file="Texforinit.bin" md5="6e96556a978535b632dba9e33b9551b3"/>
- <macro name="Texif" file="Texif.bin" md5="db3af265fced379c5bc2a35dcd661aef"/>
- <macro name="Texletter" file="Texletter.bin" md5="7a7ebe58bae97a3a17d646d1c7a9e1da"/>
- <macro name="Texnewcmd" file="Texnewcmd.bin" md5="b4f314f440314e77d8c93385172eb5e1"/>
- <macro name="Texnewctr" file="Texnewctr.bin" md5="86756d50c10bcf8359c1a924e6e1004d"/>
- <macro name="Texrenewcmd" file="Texrenewcmd.bin" md5="90e63f10dd735a7263da2cb8661692c7"/>
- <macro name="Texsetctr" file="Texsetctr.bin" md5="8d9cd50bcb9304e25e27ac7818c9b047"/>
- <macro name="Texthectr" file="Texthectr.bin" md5="b74d5106ff432a8c84dfd3e8baf9402f"/>
- <macro name="Texvalctr" file="Texvalctr.bin" md5="6a789e4941c736527f57d75d1ba26123"/>
- <macro name="Texvctr" file="Texvctr.bin" md5="05e1f689e4002ca0b53c1b7674d814e0"/>
- <macro name="Thetadegree" file="Thetadegree.bin" md5="0ff4846aaeb83b20683ec4d4b60ed98f"/>
- <macro name="ThisVersion" file="ThisVersion.bin" md5="5d9fc94c56eb694d62a16b1f7a6a9d04"/>
- <macro name="Tolist" file="Tolist.bin" md5="65c83ab06c83674c70f46e0f402d3580"/>
- <macro name="Translate3data" file="Translate3data.bin" md5="38c5bcaf8d3659c75cd7cf335d26196b"/>
- <macro name="Translatedata" file="Translatedata.bin" md5="17b85cc7ed17d1f260cf758ead8dc0ab"/>
- <macro name="Trunc" file="Trunc.bin" md5="7a6a605bcba822854e4c917fe41db659"/>
- <macro name="Unscaling" file="Unscaling.bin" md5="08ee317471c47d086c9404e47955b17b"/>
- <macro name="Vecnagasa" file="Vecnagasa.bin" md5="aaeae5f1a186bba7b2c357a2c77ce2a1"/>
- <macro name="Vecnagasa2" file="Vecnagasa2.bin" md5="41c4c41904d6b87a9844d20fd860a6cb"/>
- <macro name="Viewfrom" file="Viewfrom.bin" md5="fe4685d5db0abf45a31b2b643b20c23f"/>
- <macro name="Vtickmark" file="Vtickmark.bin" md5="375b4bc294d26ab3b7d30f8fbd4bfad7"/>
- <macro name="Windisp" file="Windisp.bin" md5="1e48a32bf2ea244b701fb5bb63ea18f4"/>
- <macro name="WireHiddenData" file="WireHiddenData.bin" md5="7fb2be220f2c6dfefea57e5a9acf9145"/>
- <macro name="WirePt" file="WirePt.bin" md5="0936e8dd2f3ca890efaf0b274aa64d96"/>
- <macro name="Wireparadata" file="Wireparadata.bin" md5="60a5c112230c8cb7ebd803304b1b17b7"/>
- <macro name="Wirepersdata" file="Wirepersdata.bin" md5="b2696b1685c9456c6857fbdd1424256a"/>
- <macro name="Wirerawparadata" file="Wirerawparadata.bin" md5="e770b9a2bce4c8804fc62a5191be1545"/>
- <macro name="Wirerawpersdata" file="Wirerawpersdata.bin" md5="f254f9cad0b02b01e7388fbbb433bcc4"/>
- <macro name="WriteOutData" file="WriteOutData.bin" md5="55682f0605917544dd41d2c25f24786c"/>
- <macro name="Writeobjpoint" file="Writeobjpoint.bin" md5="24c598f95cc38899d5cf5d3048a9e263"/>
- <macro name="Writetextdata" file="Writetextdata.bin" md5="b1da333518052fedb658e0827833a54f"/>
- <macro name="WritetoCindy" file="WritetoCindy.bin" md5="c8a05614d69d73bd4aa3c562cf479872"/>
- <macro name="Xmax" file="Xmax.bin" md5="87038803908d553ab8de412b410887dd"/>
- <macro name="Xmin" file="Xmin.bin" md5="eae15ed2438d2805a6ad488cf22b75e8"/>
- <macro name="Xyzax3data" file="Xyzax3data.bin" md5="633e040e19b435e55bb66dbc4f231117"/>
- <macro name="Xyzaxparaname" file="Xyzaxparaname.bin" md5="8fa701d6b92b478a97ed8b4e263c9a18"/>
- <macro name="Xyzaxpersname" file="Xyzaxpersname.bin" md5="1e9573e9452267842a7907f30661e902"/>
- <macro name="Ymax" file="Ymax.bin" md5="4ab8eccdba393b4c41a45d38f97faf88"/>
- <macro name="Ymin" file="Ymin.bin" md5="5dedfdfc18e01299ea069b578be8b697"/>
- <macro name="Zparapt" file="Zparapt.bin" md5="e16dd6e761c2e8ec7eb31da49d7a3b96"/>
- <macro name="Zperspt" file="Zperspt.bin" md5="b04d5677e9ee74a1cbff3ad73c9d2a20"/>
-</scilablib>
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/names b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/names
deleted file mode 100755
index cef9f19b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/names
+++ /dev/null
@@ -1,335 +0,0 @@
-Addcounter
-Anglemark
-Arrowdata
-Arrowhead
-Arrowheaddata
-Arrowline
-Assign
-Assignadd
-Assignrep
-Assignset
-Beginpicture
-BorderHiddenData
-Borderparadata
-Borderpersdata
-BorderPt
-Borderrawdata
-Bowdata
-Bowmiddle
-Bowname
-Bownamerot
-Calcfun
-CalcHeight
-CalcWidth
-CameracoordCurve
-CameraCurve
-Cancoordpara
-Cancoordpers
-Circledata
-Clipindomain
-Closefile
-Closepar
-Closephr
-Closepicture
-Closeobj
-Connectseg
-Crossprod
-Crv3onsfHiddenData
-Crv3onsfparadata
-Crv3onsfpersdata
-CrvonsfHiddenData
-Crvonsfparadata
-Crvonsfpersdata
-CrvsfHiddenData
-Crvsfparadata
-Crvsfpersdata
-CuspData
-CuspPt
-Cuspsplitpara
-Cuspsplitpers
-CuspSplitPt
-Cutsf2d
-Dashline
-Dataindex
-Deqplot
-Derivative
-Diagcelldata
-Dividegraphics
-Dividetable
-Doscaling
-Dotfilldata
-Dotprod
-Dottedline
-Dropnumlistcrv
-Droppoint
-Drwline
-Drwpt
-Drwxy
-Embed
-Enclosing
-EnclosingS
-Endpicture
-Evlptablepara
-Evlptablepers
-Execmd
-Expr
-Exprrot
-Faceremovaldata
-Facesdata
-Findcell
-Flattenlist
-Fontsize
-Fouriercoeff
-FouriercoeffL
-Fouriersum
-Fracform
-Framedata
-Fullformfunc
-Gaiseki
-Getcounter
-Gettrace
-Hatchdata
-Hexahedrondata
-HiddenWireData
-Htickmark
-Implicitplot
-ImplicitData
-Initangle
-Integrate
-Intersectcrvs
-Intersectcrvsf
-IntersectcrvsPp
-Intersectlines
-IntersectselfPp
-Invdashline
-Invert
-Invparapt
-Invperspt
-InWindow
-Joincrvs
-Joingraphics
-Ketinit
-Kouten
-KoutenList
-Koutenseg
-Kukannozoku
-Kukeiwake
-Kyorihensuu
-Kyoukai
-Letter
-Letterrot
-Lineplot
-Listplot
-MakeBowdata
-MakecutbycrvL
-MakeCurves
-Makehasen
-Makeliststr
-Makesfcutoffdata
-Makeshasen
-Makeskeletondata
-Makeskeletonpersdata
-Makevaltable
-MakeveLfaceL
-Makexybdy
-Mawarikomi
-Meetpoints
-MeetWindow
-Member
-Menkakusi
-Menkakusi2
-Mix
-Mixadd
-Mixdisp
-Mixjoin
-MixL
-Mixlength
-Mixmake
-Mixop
-MixS
-Mixsub
-Mixtype
-Naigai
-Naiseki
-Nearestpt
-Newlength
-Nohiddenpara
-Nohiddenpara2
-Nohiddenpers
-Nohiddenpers2
-Numptcrv
-Objjoin
-Objname
-Objcurve
-Objpolyhedron
-Objpolygon
-Objrecs
-Objsurf
-Objsymb
-Objthicksurf
-Openobj
-Op
-Openfile
-Openpar
-Openphr
-Openpicture
-Ovalbox
-Ovaldata
-Paramark
-Paramoncrv
-ParamonCurve
-Paramplot
-Parapt
-Partcrv
-Partcrv3
-Partframe
-PartitionPt
-Partitionseg
-Perspt
-Phcutdata
-Phcutoffdata
-Phidegree
-PhFaceL
-PhHiddenData
-Phparadata
-Phpersdata
-Phsparadata
-Phspersdata
-Phrawparadata
-Phrawpersdata
-Phsrawparadata
-Phsrawpersdata
-PhVertexL
-Plotdata
-Pointdata
-Pointoncrv
-PointonCurve
-Powersum
-Prime
-Printobjstr
-ProjcoordCurve
-ProjCurve
-Projpara
-Projpers
-Ptcrv
-Ptend
-PthiddenQ
-Ptne
-Ptnw
-Ptse
-Ptstart
-Ptsw
-Putcell
-Putcirmark
-PutcoL
-PutcoLexpr
-PutcoLstr
-Putdashmark
-Putrecmark
-Putrow
-Putrowexpr
-Putrowstr
-Puttrace
-Ratiocmyk
-ReadfromCindy
-Readtextdata
-Reflectdata
-Rmmember
-Rotate3data
-Rotate3pt
-Rotatedata
-Roundstr
-Scaledata
-Sectionview
-Setangle
-Setarrow
-Setax
-Setcolor
-Setcounter
-Setmark
-Setmarklen
-Setobjdecimals
-Setobjscale
-Setorigin
-Setpen
-Setpers
-Setpt
-Setscaling
-SetstereoL
-SetstereoR
-Setunitlen
-Setversion
-Setwindow
-Sf3data
-Sfbdparadata
-Sfbdpersdata
-Sfbdrawparadata
-Sfbdrawpersdata
-Sfcutdata
-Sfcutoffparadata
-Sfcutoffpersdata
-Sfcutoffrawparadata
-Sfcutoffrawpersdata
-Sfparadata
-Sfpersdata
-Shade
-Skeleton2data
-Skeletonparadata
-Skeletonpara3data
-Skeletonpersdata
-Skeletonpers3data
-Spacecurve
-Spaceline
-Splinedata
-Strop
-Subs
-Sumfun
-Symbdata
-Symb3data
-Tabledata
-Texcom
-Texctr
-Texelse
-Texend
-Texendfor
-Texendif
-Texfor
-Texforinit
-Texif
-Texletter
-Texnewcmd
-Texnewctr
-Texrenewcmd
-Texsetctr
-Texthectr
-Texvalctr
-Texvctr
-Thetadegree
-ThisVersion
-Tolist
-Translate3data
-Translatedata
-Trunc
-Unscaling
-Vecnagasa
-Vecnagasa2
-Viewfrom
-Vtickmark
-Windisp
-WireHiddenData
-Wireparadata
-Wirepersdata
-WirePt
-Wirerawparadata
-Wirerawpersdata
-Writetextdata
-Writeobjpoint
-Xmax
-Xmin
-Xyzaxparaname
-Xyzaxpersname
-Xyzax3data
-Ymax
-Ymin
-Zparapt
-Zperspt
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic_ltd.Rdata b/texmf-dist/scripts/ketpic/ketlib/ketpic_ltd.Rdata
deleted file mode 100644
index 0f1f1fd8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpic_ltd.Rdata
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Addcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Addcounter.bin
deleted file mode 100644
index c1e3ef24..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Addcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Anglemark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Anglemark.bin
deleted file mode 100644
index 8b094651..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Anglemark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowdata.bin
deleted file mode 100644
index 2af2be64..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowhead.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowhead.bin
deleted file mode 100644
index f4101b32..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowhead.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowheaddata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowheaddata.bin
deleted file mode 100644
index 3640469b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowheaddata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowline.bin
deleted file mode 100644
index 0d68e6d0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Arrowline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assign.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assign.bin
deleted file mode 100644
index 3f243306..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assign.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignadd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignadd.bin
deleted file mode 100644
index 99a0cecd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignrep.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignrep.bin
deleted file mode 100644
index 47ac2ac9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignrep.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignset.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignset.bin
deleted file mode 100644
index afb1b3bc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Assignset.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Beginpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Beginpicture.bin
deleted file mode 100644
index 81625f07..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Beginpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezier.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezier.bin
deleted file mode 100644
index 1e8b41fb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezier.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezierpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezierpt.bin
deleted file mode 100644
index f146b511..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bezierpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderHiddenData.bin
deleted file mode 100644
index bb466f84..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderPt.bin
deleted file mode 100644
index 80964b1c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/BorderPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderparadata.bin
deleted file mode 100644
index 94cfb714..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderpersdata.bin
deleted file mode 100644
index bee787d9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderrawdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderrawdata.bin
deleted file mode 100644
index f53ad324..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Borderrawdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowdata.bin
deleted file mode 100644
index 05a4fb2e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowmiddle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowmiddle.bin
deleted file mode 100644
index bc02de52..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowmiddle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowname.bin
deleted file mode 100644
index 77aa840f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bowname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bownamerot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bownamerot.bin
deleted file mode 100644
index 49978903..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Bownamerot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcHeight.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcHeight.bin
deleted file mode 100644
index 5e3f28b9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcHeight.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcWidth.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcWidth.bin
deleted file mode 100644
index 426023be..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CalcWidth.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Calcfun.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Calcfun.bin
deleted file mode 100644
index 7745bccc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Calcfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameraCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameraCurve.bin
deleted file mode 100644
index d037c656..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameraCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameracoordCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameracoordCurve.bin
deleted file mode 100644
index 13e374db..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CameracoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpara.bin
deleted file mode 100644
index c16f84ba..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpers.bin
deleted file mode 100644
index 55b15ad7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cancoordpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Circledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Circledata.bin
deleted file mode 100644
index 9a27e094..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Circledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Clipindomain.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Clipindomain.bin
deleted file mode 100644
index 73ea5db3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Clipindomain.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closefile.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closefile.bin
deleted file mode 100644
index e7a00c3e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closefile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closeobj.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closeobj.bin
deleted file mode 100644
index f62af795..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closeobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepar.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepar.bin
deleted file mode 100644
index f73458f1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closephr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closephr.bin
deleted file mode 100644
index 5960bb73..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closephr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepicture.bin
deleted file mode 100644
index 1c8fd062..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Closepicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Connectseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Connectseg.bin
deleted file mode 100644
index 70566c55..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Connectseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crossprod.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crossprod.bin
deleted file mode 100644
index ade04624..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crossprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin
deleted file mode 100644
index 5c4f8404..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfparadata.bin
deleted file mode 100644
index 7d645929..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfpersdata.bin
deleted file mode 100644
index 7f994b75..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crv3onsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvonsfHiddenData.bin
deleted file mode 100644
index d92d7a5a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvonsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfparadata.bin
deleted file mode 100644
index 71b24de1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfpersdata.bin
deleted file mode 100644
index 835d570f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvonsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvsfHiddenData.bin
deleted file mode 100644
index 0ecbcb1c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CrvsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfparadata.bin
deleted file mode 100644
index dba77269..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfpersdata.bin
deleted file mode 100644
index b3a3f8e4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Crvsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspData.bin
deleted file mode 100644
index b2124b51..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspPt.bin
deleted file mode 100644
index 08f82d89..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspSplitPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspSplitPt.bin
deleted file mode 100644
index 2fbf6adb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/CuspSplitPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpara.bin
deleted file mode 100644
index b09e4aeb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpers.bin
deleted file mode 100644
index 609d057a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cuspsplitpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cutsf2d.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cutsf2d.bin
deleted file mode 100644
index e6f70b1c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Cutsf2d.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dashline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dashline.bin
deleted file mode 100644
index 8f7d28a1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dataindex.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dataindex.bin
deleted file mode 100644
index e3bd11d0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dataindex.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Definecolor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Definecolor.bin
deleted file mode 100644
index f0ff3ef8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Definecolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Deqplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Deqplot.bin
deleted file mode 100644
index a3ba57b6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Deqplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Derivative.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Derivative.bin
deleted file mode 100644
index 8ab45716..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Derivative.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Diagcelldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Diagcelldata.bin
deleted file mode 100644
index 70d3663e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Diagcelldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividegraphics.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividegraphics.bin
deleted file mode 100644
index 03498fd7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividegraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividetable.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividetable.bin
deleted file mode 100644
index abf752c8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dividetable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Doscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Doscaling.bin
deleted file mode 100644
index 1a024a4d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Doscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotfilldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotfilldata.bin
deleted file mode 100644
index 589adeaf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotfilldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotprod.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotprod.bin
deleted file mode 100644
index 7a097bea..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dotprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dottedline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dottedline.bin
deleted file mode 100644
index d3962817..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dottedline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dropnumlistcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dropnumlistcrv.bin
deleted file mode 100644
index 9ac44969..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Dropnumlistcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Droppoint.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Droppoint.bin
deleted file mode 100644
index f4bff84e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Droppoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwline.bin
deleted file mode 100644
index d4520393..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwpt.bin
deleted file mode 100644
index 05c9df9c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwxy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwxy.bin
deleted file mode 100644
index 54ce1e7c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Drwxy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Embed.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Embed.bin
deleted file mode 100644
index 5a081c10..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Embed.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Enclosing.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Enclosing.bin
deleted file mode 100644
index 17e55798..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Enclosing.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/EnclosingS.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/EnclosingS.bin
deleted file mode 100644
index 1a6860c5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/EnclosingS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Endpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Endpicture.bin
deleted file mode 100644
index 7fa6e7b9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Endpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepara.bin
deleted file mode 100644
index e4bb3e12..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepers.bin
deleted file mode 100644
index a300752a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Evlptablepers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Execmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Execmd.bin
deleted file mode 100644
index 3ed90ff9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Execmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Expr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Expr.bin
deleted file mode 100644
index 3cae8493..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Expr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Exprrot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Exprrot.bin
deleted file mode 100644
index e249a055..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Exprrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Faceremovaldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Faceremovaldata.bin
deleted file mode 100644
index f7f2e09b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Faceremovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Facesdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Facesdata.bin
deleted file mode 100644
index 003930bd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Facesdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Findcell.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Findcell.bin
deleted file mode 100644
index 1cc63d81..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Findcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Flattenlist.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Flattenlist.bin
deleted file mode 100644
index 47cd3aff..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Flattenlist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fontsize.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fontsize.bin
deleted file mode 100644
index d0ac6d1f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fontsize.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriercoeff.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriercoeff.bin
deleted file mode 100644
index 0c1ff22d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriercoeff.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/FouriercoeffL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/FouriercoeffL.bin
deleted file mode 100644
index 0ada7614..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/FouriercoeffL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriersum.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriersum.bin
deleted file mode 100644
index 80d7fa1d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fouriersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fracform.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fracform.bin
deleted file mode 100644
index f17997ae..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fracform.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Framedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Framedata.bin
deleted file mode 100644
index 4dfc5fba..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Framedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fullformfunc.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fullformfunc.bin
deleted file mode 100644
index a445388d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Fullformfunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gaiseki.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gaiseki.bin
deleted file mode 100644
index 00cefe7b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gaiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Getcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Getcounter.bin
deleted file mode 100644
index 5efa1ba3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Getcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gettrace.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gettrace.bin
deleted file mode 100644
index 31de11e2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Gettrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hatchdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hatchdata.bin
deleted file mode 100644
index 8bc86748..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hatchdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hexahedrondata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hexahedrondata.bin
deleted file mode 100644
index ebb9f45e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Hexahedrondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/HiddenWireData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/HiddenWireData.bin
deleted file mode 100644
index 0335b185..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/HiddenWireData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Htickmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Htickmark.bin
deleted file mode 100644
index 88ce57e9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Htickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ImplicitData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ImplicitData.bin
deleted file mode 100644
index f52ad0ee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ImplicitData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Implicitplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Implicitplot.bin
deleted file mode 100644
index 5662575f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Implicitplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/InWindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/InWindow.bin
deleted file mode 100644
index 38306a20..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/InWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Initangle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Initangle.bin
deleted file mode 100644
index 3c6ed6c5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Initangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Integrate.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Integrate.bin
deleted file mode 100644
index deb2de0d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Integrate.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvs.bin
deleted file mode 100644
index 3a87071b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectcrvsPp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectcrvsPp.bin
deleted file mode 100644
index de85e2a9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectcrvsPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvsf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvsf.bin
deleted file mode 100644
index 3a918b84..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectcrvsf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectlines.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectlines.bin
deleted file mode 100644
index 5b1846e7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Intersectlines.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectselfPp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectselfPp.bin
deleted file mode 100644
index 2b895f4d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/IntersectselfPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invdashline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invdashline.bin
deleted file mode 100644
index 76baa221..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invdashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invert.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invert.bin
deleted file mode 100644
index def0bb31..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invert.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invparapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invparapt.bin
deleted file mode 100644
index 07c0c078..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invperspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invperspt.bin
deleted file mode 100644
index 5dbdc7cb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Invperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joincrvs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joincrvs.bin
deleted file mode 100644
index dafe1e24..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joincrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joingraphics.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joingraphics.bin
deleted file mode 100644
index 97caac64..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Joingraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ketinit.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ketinit.bin
deleted file mode 100644
index 70e1971c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ketinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kouten.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kouten.bin
deleted file mode 100644
index 21dc66a1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kouten.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/KoutenList.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/KoutenList.bin
deleted file mode 100644
index 9ccea2a3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/KoutenList.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Koutenseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Koutenseg.bin
deleted file mode 100644
index d191d41a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Koutenseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukannozoku.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukannozoku.bin
deleted file mode 100644
index 313c934d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukannozoku.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukeiwake.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukeiwake.bin
deleted file mode 100644
index f705d5b1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kukeiwake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyorihensuu.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyorihensuu.bin
deleted file mode 100644
index 3940a613..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyorihensuu.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyoukai.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyoukai.bin
deleted file mode 100644
index c9ce9f14..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Kyoukai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letter.bin
deleted file mode 100644
index bcaebbbd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letterrot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letterrot.bin
deleted file mode 100644
index 4bc6206a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Letterrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Lineplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Lineplot.bin
deleted file mode 100644
index 51fbfbe1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Lineplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Listplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Listplot.bin
deleted file mode 100644
index 0fa577df..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Listplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeBowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeBowdata.bin
deleted file mode 100644
index fb13efa4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeBowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeCurves.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeCurves.bin
deleted file mode 100644
index 98ddd1a4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeCurves.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakecutbycrvL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakecutbycrvL.bin
deleted file mode 100644
index 6356eaed..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakecutbycrvL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makehasen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makehasen.bin
deleted file mode 100644
index 7f8de9cd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makehasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeliststr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeliststr.bin
deleted file mode 100644
index 83ba3861..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeliststr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makesfcutoffdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makesfcutoffdata.bin
deleted file mode 100644
index 92534466..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makesfcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeshasen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeshasen.bin
deleted file mode 100644
index 2d013048..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeshasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletondata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletondata.bin
deleted file mode 100644
index 0bd11580..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletonpersdata.bin
deleted file mode 100644
index 49a24e6c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makeskeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makevaltable.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makevaltable.bin
deleted file mode 100644
index 67316bd1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makevaltable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeveLfaceL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeveLfaceL.bin
deleted file mode 100644
index 1658b408..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MakeveLfaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makexybdy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makexybdy.bin
deleted file mode 100644
index 95c31670..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Makexybdy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mawarikomi.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mawarikomi.bin
deleted file mode 100644
index fcf74e3c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mawarikomi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MeetWindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MeetWindow.bin
deleted file mode 100644
index f5ced4c3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MeetWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Meetpoints.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Meetpoints.bin
deleted file mode 100644
index 6cd9f985..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Meetpoints.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Member.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Member.bin
deleted file mode 100644
index c41eb72e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Member.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi.bin
deleted file mode 100644
index ab493424..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi2.bin
deleted file mode 100644
index 659d412f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Menkakusi2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mix.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mix.bin
deleted file mode 100644
index f26a75b6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mix.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixL.bin
deleted file mode 100644
index 1a2a931f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixS.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixS.bin
deleted file mode 100644
index 92c22101..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/MixS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixadd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixadd.bin
deleted file mode 100644
index 43809cb9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixdisp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixdisp.bin
deleted file mode 100644
index 4562fd87..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixdisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixjoin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixjoin.bin
deleted file mode 100644
index 29800896..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixlength.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixlength.bin
deleted file mode 100644
index dc725565..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixmake.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixmake.bin
deleted file mode 100644
index e1ab36e0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixmake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixop.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixop.bin
deleted file mode 100644
index 74a5a6aa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixsub.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixsub.bin
deleted file mode 100644
index 332d7968..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixsub.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixtype.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixtype.bin
deleted file mode 100644
index b188ade7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Mixtype.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naigai.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naigai.bin
deleted file mode 100644
index 4c0a5b2d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naigai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naiseki.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naiseki.bin
deleted file mode 100644
index d7d9f480..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Naiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nearestpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nearestpt.bin
deleted file mode 100644
index bf51af8a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nearestpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Newlength.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Newlength.bin
deleted file mode 100644
index 80a32401..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Newlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara.bin
deleted file mode 100644
index b7f0d8cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara2.bin
deleted file mode 100644
index 7bfcf7ab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpara2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers.bin
deleted file mode 100644
index 2bdabcc4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers2.bin
deleted file mode 100644
index b692d55a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Nohiddenpers2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Numptcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Numptcrv.bin
deleted file mode 100644
index 57a2ce6f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Numptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objcurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objcurve.bin
deleted file mode 100644
index 845d40ca..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objcurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objjoin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objjoin.bin
deleted file mode 100644
index 92afe9ad..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objname.bin
deleted file mode 100644
index a14bcc2f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolygon.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolygon.bin
deleted file mode 100644
index da05430c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolygon.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolyhedron.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolyhedron.bin
deleted file mode 100644
index 18416f1c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objpolyhedron.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objrecs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objrecs.bin
deleted file mode 100644
index bef4fb7d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objrecs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsurf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsurf.bin
deleted file mode 100644
index 6bbe6d7d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsymb.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsymb.bin
deleted file mode 100644
index 8c215679..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objsymb.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objthicksurf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objthicksurf.bin
deleted file mode 100644
index e66c254e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Objthicksurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Op.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Op.bin
deleted file mode 100644
index fb3d3b45..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Op.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openfile.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openfile.bin
deleted file mode 100644
index e1625a76..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openfile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openobj.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openobj.bin
deleted file mode 100644
index 2024ea60..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpar.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpar.bin
deleted file mode 100644
index c812540a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openphr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openphr.bin
deleted file mode 100644
index 41d69ca5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openphr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpicture.bin
deleted file mode 100644
index d285a0cc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Openpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovalbox.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovalbox.bin
deleted file mode 100644
index 32bf34e8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovalbox.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovaldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovaldata.bin
deleted file mode 100644
index d28e36ee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramark.bin
deleted file mode 100644
index a7078f9c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ParamonCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ParamonCurve.bin
deleted file mode 100644
index e4c31df3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ParamonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramoncrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramoncrv.bin
deleted file mode 100644
index f532d7ee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramplot.bin
deleted file mode 100644
index ffebca84..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Paramplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Parapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Parapt.bin
deleted file mode 100644
index e7958ab9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Parapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv.bin
deleted file mode 100644
index d54eb52f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv3.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv3.bin
deleted file mode 100644
index 07321262..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partcrv3.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partframe.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partframe.bin
deleted file mode 100644
index a13d3f5f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partframe.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PartitionPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PartitionPt.bin
deleted file mode 100644
index 58cef916..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PartitionPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partitionseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partitionseg.bin
deleted file mode 100644
index 6f557a3b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Partitionseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Perspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Perspt.bin
deleted file mode 100644
index f95c613a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Perspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhFaceL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhFaceL.bin
deleted file mode 100644
index 2d1eec35..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhFaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhHiddenData.bin
deleted file mode 100644
index ac5490d9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhVertexL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhVertexL.bin
deleted file mode 100644
index 814b8791..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PhVertexL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutdata.bin
deleted file mode 100644
index d700ec69..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutoffdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutoffdata.bin
deleted file mode 100644
index ccea3366..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phidegree.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phidegree.bin
deleted file mode 100644
index c3f667e3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phidegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phparadata.bin
deleted file mode 100644
index 2e3c664b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phpersdata.bin
deleted file mode 100644
index 1a2bbf95..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawparadata.bin
deleted file mode 100644
index 903c9029..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawpersdata.bin
deleted file mode 100644
index 5e7b5ffb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsparadata.bin
deleted file mode 100644
index da8b1196..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phspersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phspersdata.bin
deleted file mode 100644
index 6ac27dcb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phspersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawparadata.bin
deleted file mode 100644
index a3da7dd1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawpersdata.bin
deleted file mode 100644
index 8843cde4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Phsrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Plotdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Plotdata.bin
deleted file mode 100644
index c0547852..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Plotdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointdata.bin
deleted file mode 100644
index 8c11c2c2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PointonCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PointonCurve.bin
deleted file mode 100644
index e6055b42..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PointonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointoncrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointoncrv.bin
deleted file mode 100644
index cf693dd1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Pointoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Powersum.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Powersum.bin
deleted file mode 100644
index 1dce322f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Powersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Prime.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Prime.bin
deleted file mode 100644
index e7094eb4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Prime.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Printobjstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Printobjstr.bin
deleted file mode 100644
index 3a62be73..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Printobjstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjCurve.bin
deleted file mode 100644
index 2ca583e9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjcoordCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjcoordCurve.bin
deleted file mode 100644
index 5de23ccd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ProjcoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpara.bin
deleted file mode 100644
index bda03ab0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpers.bin
deleted file mode 100644
index fbf6d134..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Projpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptcrv.bin
deleted file mode 100644
index 13f43f67..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptend.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptend.bin
deleted file mode 100644
index 10ac2f07..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PthiddenQ.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PthiddenQ.bin
deleted file mode 100644
index cf36ca4e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PthiddenQ.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptne.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptne.bin
deleted file mode 100644
index 4f608b89..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptne.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptnw.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptnw.bin
deleted file mode 100644
index 727cf4d5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptnw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptse.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptse.bin
deleted file mode 100644
index f09e463c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptstart.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptstart.bin
deleted file mode 100644
index c1303557..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptstart.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptsw.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptsw.bin
deleted file mode 100644
index 1003cd61..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ptsw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcell.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcell.bin
deleted file mode 100644
index be3a6f13..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcirmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcirmark.bin
deleted file mode 100644
index d154a0a0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putcirmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoL.bin
deleted file mode 100644
index 77a99874..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLexpr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLexpr.bin
deleted file mode 100644
index 01e1b69c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLstr.bin
deleted file mode 100644
index a4872a7f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/PutcoLstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putdashmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putdashmark.bin
deleted file mode 100644
index 1e679bfc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putdashmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrecmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrecmark.bin
deleted file mode 100644
index 5df6db75..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrecmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrow.bin
deleted file mode 100644
index 042a7261..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowexpr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowexpr.bin
deleted file mode 100644
index df1a3849..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowstr.bin
deleted file mode 100644
index da18fb37..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Putrowstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Puttrace.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Puttrace.bin
deleted file mode 100644
index 10769324..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Puttrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ratiocmyk.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ratiocmyk.bin
deleted file mode 100644
index 56a87566..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ratiocmyk.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadOutData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadOutData.bin
deleted file mode 100644
index 0acb33cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadfromCindy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadfromCindy.bin
deleted file mode 100644
index 8d4a1b0e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ReadfromCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Readtextdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Readtextdata.bin
deleted file mode 100644
index f51f7599..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Readtextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Reflectdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Reflectdata.bin
deleted file mode 100644
index 02bd0619..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Reflectdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rmmember.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rmmember.bin
deleted file mode 100644
index 1036fe46..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rmmember.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3data.bin
deleted file mode 100644
index 6cfc7b1c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3pt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3pt.bin
deleted file mode 100644
index 7bc8974d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotate3pt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotatedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotatedata.bin
deleted file mode 100644
index dcde7e7d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Rotatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Roundstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Roundstr.bin
deleted file mode 100644
index c9678719..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Roundstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Scaledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Scaledata.bin
deleted file mode 100644
index aca40719..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Scaledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sectionview.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sectionview.bin
deleted file mode 100644
index bfdb8495..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sectionview.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setangle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setangle.bin
deleted file mode 100644
index 997e8178..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setarrow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setarrow.bin
deleted file mode 100644
index 1d2063bf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setarrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setax.bin
deleted file mode 100644
index 46e49d69..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcolor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcolor.bin
deleted file mode 100644
index ae62bffa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcounter.bin
deleted file mode 100644
index 3a609bc9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmark.bin
deleted file mode 100644
index be2cbbb6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmarklen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmarklen.bin
deleted file mode 100644
index 79ae6660..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setmarklen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjdecimals.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjdecimals.bin
deleted file mode 100644
index 3fe068d8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjdecimals.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjscale.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjscale.bin
deleted file mode 100644
index adc5ef97..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setobjscale.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setorigin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setorigin.bin
deleted file mode 100644
index ed695e7f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setorigin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpen.bin
deleted file mode 100644
index 918c968e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpers.bin
deleted file mode 100644
index e417c91f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpt.bin
deleted file mode 100644
index f9fb21b4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setscaling.bin
deleted file mode 100644
index faf60668..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoL.bin
deleted file mode 100644
index c0d4e9e7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoR.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoR.bin
deleted file mode 100644
index 44dc173e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/SetstereoR.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setunitlen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setunitlen.bin
deleted file mode 100644
index 6ef24cf2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setunitlen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setversion.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setversion.bin
deleted file mode 100644
index 9658e1ab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setversion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setwindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setwindow.bin
deleted file mode 100644
index fc39c4e1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Setwindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sf3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sf3data.bin
deleted file mode 100644
index bed3747e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sf3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdparadata.bin
deleted file mode 100644
index bd7b7168..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdpersdata.bin
deleted file mode 100644
index 86ba2a9e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawparadata.bin
deleted file mode 100644
index c4009953..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawpersdata.bin
deleted file mode 100644
index 278af331..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfbdrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutdata.bin
deleted file mode 100644
index 5aa6fd04..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffparadata.bin
deleted file mode 100644
index b22043d8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffpersdata.bin
deleted file mode 100644
index 64f416d6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin
deleted file mode 100644
index cd356699..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin
deleted file mode 100644
index 295812ba..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfcutoffrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfparadata.bin
deleted file mode 100644
index c98b95ed..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfpersdata.bin
deleted file mode 100644
index 5a780fab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Shade.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Shade.bin
deleted file mode 100644
index 037fffea..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Shade.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeleton2data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeleton2data.bin
deleted file mode 100644
index b3d2d402..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeleton2data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpara3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpara3data.bin
deleted file mode 100644
index 5895e254..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpara3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonparadata.bin
deleted file mode 100644
index c34f7e16..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpers3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpers3data.bin
deleted file mode 100644
index 4ba4947b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpers3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpersdata.bin
deleted file mode 100644
index 9c83ea64..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Skeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spacecurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spacecurve.bin
deleted file mode 100644
index 0e8bacaf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spacecurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spaceline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spaceline.bin
deleted file mode 100644
index b097e980..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Spaceline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Splinedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Splinedata.bin
deleted file mode 100644
index 7a3c634c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Splinedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Strop.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Strop.bin
deleted file mode 100644
index ca70656e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Strop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Subs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Subs.bin
deleted file mode 100644
index 66f8e6c0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Subs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sumfun.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sumfun.bin
deleted file mode 100644
index a2bafc2c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Sumfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symb3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symb3data.bin
deleted file mode 100644
index 131297e0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symb3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symbdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symbdata.bin
deleted file mode 100644
index a1a27f00..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Symbdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tabledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tabledata.bin
deleted file mode 100644
index ab4bb5ed..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tabledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texcom.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texcom.bin
deleted file mode 100644
index 74871299..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texcom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texctr.bin
deleted file mode 100644
index e0e2dab3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texelse.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texelse.bin
deleted file mode 100644
index 4e974456..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texelse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texend.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texend.bin
deleted file mode 100644
index d22ea31d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendfor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendfor.bin
deleted file mode 100644
index 0d86b601..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendif.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendif.bin
deleted file mode 100644
index 46fd7b7e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texendif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texfor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texfor.bin
deleted file mode 100644
index f5e92c99..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texforinit.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texforinit.bin
deleted file mode 100644
index a8140128..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texforinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texif.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texif.bin
deleted file mode 100644
index be4c9157..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texletter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texletter.bin
deleted file mode 100644
index 99ef9902..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texletter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewcmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewcmd.bin
deleted file mode 100644
index 0904029d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewctr.bin
deleted file mode 100644
index 7d332cfd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texnewctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texrenewcmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texrenewcmd.bin
deleted file mode 100644
index 1abdf882..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texrenewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texsetctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texsetctr.bin
deleted file mode 100644
index ccfce689..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texsetctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texthectr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texthectr.bin
deleted file mode 100644
index f2e50561..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texthectr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvalctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvalctr.bin
deleted file mode 100644
index a224f885..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvalctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvctr.bin
deleted file mode 100644
index 2fee3584..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Texvctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Thetadegree.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Thetadegree.bin
deleted file mode 100644
index 5f360f2f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Thetadegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ThisVersion.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ThisVersion.bin
deleted file mode 100644
index 5aa530ec..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/ThisVersion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tolist.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tolist.bin
deleted file mode 100644
index 5e76126d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Tolist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translate3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translate3data.bin
deleted file mode 100644
index 3fd4aeda..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translatedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translatedata.bin
deleted file mode 100644
index 3262007d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Translatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Trunc.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Trunc.bin
deleted file mode 100644
index a05f649a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Trunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Unscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Unscaling.bin
deleted file mode 100644
index 1bd27535..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Unscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa.bin
deleted file mode 100644
index 1668581e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa2.bin
deleted file mode 100644
index 3acff07e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vecnagasa2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Viewfrom.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Viewfrom.bin
deleted file mode 100644
index 06515c27..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Viewfrom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vtickmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vtickmark.bin
deleted file mode 100644
index e0c9fdf2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Vtickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Windisp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Windisp.bin
deleted file mode 100644
index 487a5881..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Windisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WireHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WireHiddenData.bin
deleted file mode 100644
index 15d7c7ea..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WireHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WirePt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WirePt.bin
deleted file mode 100644
index 8356c7d3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WirePt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wireparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wireparadata.bin
deleted file mode 100644
index 8a956544..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wireparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirepersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirepersdata.bin
deleted file mode 100644
index 06813c26..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirepersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawparadata.bin
deleted file mode 100644
index 53ef48f2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawpersdata.bin
deleted file mode 100644
index a4463d6f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Wirerawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WriteOutData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WriteOutData.bin
deleted file mode 100644
index 35bbb30a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WriteOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writeobjpoint.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writeobjpoint.bin
deleted file mode 100644
index 1c115eb9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writeobjpoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writetextdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writetextdata.bin
deleted file mode 100644
index 90e83be0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Writetextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WritetoCindy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WritetoCindy.bin
deleted file mode 100644
index 3cc76a71..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/WritetoCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmax.bin
deleted file mode 100644
index 51ccdf48..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmin.bin
deleted file mode 100644
index bba8a4ee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xmin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzax3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzax3data.bin
deleted file mode 100644
index 3a5e517b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzax3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxparaname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxparaname.bin
deleted file mode 100644
index d89801c7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxparaname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxpersname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxpersname.bin
deleted file mode 100644
index f89ae3a7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Xyzaxpersname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymax.bin
deleted file mode 100644
index cc5aea83..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymin.bin
deleted file mode 100644
index e454fb5a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Ymin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zparapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zparapt.bin
deleted file mode 100644
index 1749fad9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zperspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zperspt.bin
deleted file mode 100644
index 8613eba7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/Zperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/names b/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/names
deleted file mode 100755
index 02079ff8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicsciL5/names
+++ /dev/null
@@ -1,341 +0,0 @@
-Addcounter
-Anglemark
-Arrowdata
-Arrowhead
-Arrowheaddata
-Arrowline
-Assign
-Assignadd
-Assignrep
-Assignset
-Beginpicture
-Bezierpt
-Bezier
-BorderHiddenData
-Borderparadata
-Borderpersdata
-BorderPt
-Borderrawdata
-Bowdata
-Bowmiddle
-Bowname
-Bownamerot
-Calcfun
-CalcHeight
-CalcWidth
-CameracoordCurve
-CameraCurve
-Cancoordpara
-Cancoordpers
-Circledata
-Clipindomain
-Closefile
-Closepar
-Closephr
-Closepicture
-Closeobj
-Connectseg
-Crossprod
-Crv3onsfHiddenData
-Crv3onsfparadata
-Crv3onsfpersdata
-CrvonsfHiddenData
-Crvonsfparadata
-Crvonsfpersdata
-CrvsfHiddenData
-Crvsfparadata
-Crvsfpersdata
-CuspData
-CuspPt
-Cuspsplitpara
-Cuspsplitpers
-CuspSplitPt
-Cutsf2d
-Dashline
-Dataindex
-Definecolor
-Deqplot
-Derivative
-Diagcelldata
-Dividegraphics
-Dividetable
-Doscaling
-Dotfilldata
-Dotprod
-Dottedline
-Dropnumlistcrv
-Droppoint
-Drwline
-Drwpt
-Drwxy
-Embed
-Enclosing
-EnclosingS
-Endpicture
-Evlptablepara
-Evlptablepers
-Execmd
-Expr
-Exprrot
-Faceremovaldata
-Facesdata
-Findcell
-Flattenlist
-Fontsize
-Fouriercoeff
-FouriercoeffL
-Fouriersum
-Fracform
-Framedata
-Fullformfunc
-Gaiseki
-Getcounter
-Gettrace
-Hatchdata
-Hexahedrondata
-HiddenWireData
-Htickmark
-Implicitplot
-ImplicitData
-Initangle
-Integrate
-Intersectcrvs
-Intersectcrvsf
-IntersectcrvsPp
-Intersectlines
-IntersectselfPp
-Invdashline
-Invert
-Invparapt
-Invperspt
-InWindow
-Joincrvs
-Joingraphics
-Ketinit
-Kouten
-KoutenList
-Koutenseg
-Kukannozoku
-Kukeiwake
-Kyorihensuu
-Kyoukai
-Letter
-Letterrot
-Lineplot
-Listplot
-MakeBowdata
-MakecutbycrvL
-MakeCurves
-Makehasen
-Makeliststr
-Makesfcutoffdata
-Makeshasen
-Makeskeletondata
-Makeskeletonpersdata
-Makevaltable
-MakeveLfaceL
-Makexybdy
-Mawarikomi
-Meetpoints
-MeetWindow
-Member
-Menkakusi
-Menkakusi2
-Mix
-Mixadd
-Mixdisp
-Mixjoin
-MixL
-Mixlength
-Mixmake
-Mixop
-MixS
-Mixsub
-Mixtype
-Naigai
-Naiseki
-Nearestpt
-Newlength
-Nohiddenpara
-Nohiddenpara2
-Nohiddenpers
-Nohiddenpers2
-Numptcrv
-Objjoin
-Objname
-Objcurve
-Objpolyhedron
-Objpolygon
-Objrecs
-Objsurf
-Objsymb
-Objthicksurf
-Openobj
-Op
-Openfile
-Openpar
-Openphr
-Openpicture
-Ovalbox
-Ovaldata
-Paramark
-Paramoncrv
-ParamonCurve
-Paramplot
-Parapt
-Partcrv
-Partcrv3
-Partframe
-PartitionPt
-Partitionseg
-Perspt
-Phcutdata
-Phcutoffdata
-Phidegree
-PhFaceL
-PhHiddenData
-Phparadata
-Phpersdata
-Phsparadata
-Phspersdata
-Phrawparadata
-Phrawpersdata
-Phsrawparadata
-Phsrawpersdata
-PhVertexL
-Plotdata
-Pointdata
-Pointoncrv
-PointonCurve
-Powersum
-Prime
-Printobjstr
-ProjcoordCurve
-ProjCurve
-Projpara
-Projpers
-Ptcrv
-Ptend
-PthiddenQ
-Ptne
-Ptnw
-Ptse
-Ptstart
-Ptsw
-Putcell
-Putcirmark
-PutcoL
-PutcoLexpr
-PutcoLstr
-Putdashmark
-Putrecmark
-Putrow
-Putrowexpr
-Putrowstr
-Puttrace
-Ratiocmyk
-ReadfromCindy
-ReadOutData
-Readtextdata
-Reflectdata
-Rmmember
-Rotate3data
-Rotate3pt
-Rotatedata
-Roundstr
-Scaledata
-Sectionview
-Setangle
-Setarrow
-Setax
-Setcolor
-Setcounter
-Setmark
-Setmarklen
-Setobjdecimals
-Setobjscale
-Setorigin
-Setpen
-Setpers
-Setpt
-Setscaling
-SetstereoL
-SetstereoR
-Setunitlen
-Setversion
-Setwindow
-Sf3data
-Sfbdparadata
-Sfbdpersdata
-Sfbdrawparadata
-Sfbdrawpersdata
-Sfcutdata
-Sfcutoffparadata
-Sfcutoffpersdata
-Sfcutoffrawparadata
-Sfcutoffrawpersdata
-Sfparadata
-Sfpersdata
-Shade
-Skeleton2data
-Skeletonparadata
-Skeletonpara3data
-Skeletonpersdata
-Skeletonpers3data
-Spacecurve
-Spaceline
-Splinedata
-Strop
-Subs
-Sumfun
-Symbdata
-Symb3data
-Tabledata
-Texcom
-Texctr
-Texelse
-Texend
-Texendfor
-Texendif
-Texfor
-Texforinit
-Texif
-Texletter
-Texnewcmd
-Texnewctr
-Texrenewcmd
-Texsetctr
-Texthectr
-Texvalctr
-Texvctr
-Thetadegree
-ThisVersion
-Tolist
-Translate3data
-Translatedata
-Trunc
-Unscaling
-Vecnagasa
-Vecnagasa2
-Viewfrom
-Vtickmark
-Windisp
-WireHiddenData
-Wireparadata
-Wirepersdata
-WirePt
-Wirerawparadata
-Wirerawpersdata
-WriteOutData
-Writetextdata
-WritetoCindy
-Writeobjpoint
-Xmax
-Xmin
-Xyzaxparaname
-Xyzaxpersname
-Xyzax3data
-Ymax
-Ymin
-Zparapt
-Zperspt
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/.Rhistory b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/.Rhistory
deleted file mode 100644
index 9a32ff18..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/.Rhistory
+++ /dev/null
@@ -1 +0,0 @@
-source("/Users/takatoosetsuo/Dropbox/sciF/ketpicscifiles/Setversion.sci")
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.bin
deleted file mode 100644
index d21df4c3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.sci
deleted file mode 100755
index c940a543..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Addcounter.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 09.09.10
-
-function Addcounter(varargin)
- global GCOUNTER;
- if Nargs==0
- N=1;
- else
- N=varargin(1);
- GCOUNTER=GCOUNTER+N;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.bin
deleted file mode 100644
index 4a709337..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.sci
deleted file mode 100755
index 6deb302c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Anglemark.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-// 08.06.05
-// 16.12.29 ( for too short segment )
-
-function Out=Anglemark(varargin)
- Nargs=length(varargin);
- Eps=10^(-3);
- PA=varargin(1); PB=varargin(2); PC=varargin(3);
- r = 0.5;
- if Nargs>=4
- r = varargin(4)*r;
- end
- Out=[]; // 16.12.29
- if r>min(norm(PA-PB),norm(PC-PB)) then
- return;
- end;
- Cir=Circledata(PB,r);
- Tmp=IntersectcrvsPp(Cir,Listplot(PA,PB));
- P1=Op(2,Op(1,Tmp));
- Tmp=IntersectcrvsPp(Cir,Listplot(PC,PB));
- P2=Op(2,Mixop(1,Tmp));
- if abs(P1-P2)<Eps
- Out=[];
- return;
- end
- if P1<P2-Eps
- Out=Partcrv(P1,P2,Cir);
- else
- Tmp=Numptcrv(Cir);
- Tmp1=Partcrv(P1,Tmp,Cir);
- Tmp2=Partcrv(1,P2,Cir);
- Out=Joincrvs(Tmp1,Tmp2);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.bin
deleted file mode 100644
index 4dcd94f2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.sci
deleted file mode 100755
index f6ac6ef2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowdata.sci
+++ /dev/null
@@ -1,58 +0,0 @@
-// 08.05.08
-
-function Out=Arrowdata(varargin)
- global YaSize YaAngle YaPosition YaThick YaStyle;
- Nargs=length(varargin);
- P=varargin(1);
- Q=varargin(2);
- R=Q;
- Futosa=YaThick;
- Ookisa=YaSize;
- Thickness=1;
- Hiraki=YaAngle;
- Yapos=YaPosition;
- Position=1;
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- if length(Tmp)>1
- R=Tmp
- else
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki;
- else
- Hiraki=Tmp;
- end
- end
- if Flg==2
- R=P+Tmp*(Q-P);
- else
- R=P+Yapos*(Q-P);
- end
- if Flg==3
- Futosa=Tmp
- end
- Flg=Flg+1;
- end
- end
- if type(Tmp)==10
- if mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- Futosa=Futosa*Thickness;
- R=P+Position*(Q-P);
- else
- Str=Tmp
- end
- end
- end
- Tmp1=Listplot([P,Q]);
- Tmp2=Arrowheaddata(R,Q-P,Ookisa,Hiraki,Futosa,Str);
- Out=Joingraphics(Tmp1,Tmp2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.bin
deleted file mode 100644
index 7c3ca7ca..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.sci
deleted file mode 100755
index 9073ca6e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowhead.sci
+++ /dev/null
@@ -1,107 +0,0 @@
-//
-// 08.06.01
-// 09.12.25
-// 12.01.07 kirikomi(Cut)
-// 12.04.16 debugged
-// 13.05.17 debugged
-// 13.11.13 debugged
-// 15.06.11 debugged
-// 15.06.14 debugged
-// 15.06.15 improved
-
-function Arrowhead(varargin)
- global Wfile FID MilliIn YaSize
- global YaAngle YaPosition YaThick YaStyle;
- Nargs=length(varargin);
- P=varargin(1);
- Houkou=varargin(2);
- Ookisa=0.2*YaSize;
- Hiraki=YaAngle;
- Futosa=0.5*YaThick;
- Cut=0;
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==10
- Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from
- if length(Equal)>0
- Tmp2=strsplit(Tmp,Equal-1);
- if Tmp2(1)=="Cut" | Tmp2(1)=="cut"
- Tmp="Cut"+Tmp2(2);
- execstr(Tmp);
- end;
- else
- Str=Tmp;
- end; // 12.01.07 upto
- end;
- if type(Tmp)==1 & length(Tmp)==1
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki
- else
- Hiraki=Tmp
- end
- end
- if Flg==2
- Futosa=Tmp
- end
- Flg=Flg+1;
- end
- end;
- Ookisa=1000/2.54/MilliIn*Ookisa;
- Theta=Hiraki*%pi/180;
- if size(Houkou,1)>1
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Tmp=Nearestpt(P,Houkou);
- A=Op(1,Tmp);
- I=floor(Op(2,Tmp));
- G=Circledata(P,Ookisa*cos(Theta),'N=10');
- Flg=0; // 13.11.13
- for J=I:-1:1
- B=Ptcrv(J,Houkou);
- Tmp=IntersectcrvsPp(Listplot([A,B]),G);
- if Mixlength(Tmp)>0
- Flg=1;
- break
- end
- A=B
- end
- if Flg==0 // 13.11.13
- disp('Arrowhead may be too large (no intersect)');
- return
- end
- Houkou=P-Op(1,Op(1,Tmp));
- Houkou=Unscaling(Houkou);
- P=Unscaling(P);
- end;
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Ev=-1/Vecnagasa(Houkou)*Houkou;
- Nv=[-Ev(2),Ev(1)];
- if mtlb_findstr(Str,'c')~=[]
- P=P-0.5*Ookisa*cos(Theta)*Ev
- end;
- if mtlb_findstr(Str,'b')~=[]
- P=P-Ookisa*cos(Theta)*Ev
- end;
- A=P+Ookisa*cos(Theta)*Ev+Ookisa*sin(Theta)*Nv;
- B=P+Ookisa*cos(Theta)*Ev-Ookisa*sin(Theta)*Nv;
- if mtlb_findstr(Str,'l')~=[]
- Tmp=Listplot([A,P,B]);
- Tmp1=Unscaling(Tmp); // 13.05.17
- Drwline(Tmp1,Futosa);
- else
- C=P+(1-Cut)*((A+B)/2-P); // 12.01.05
- Tmp=Listplot([A,P,B,C,A]); // 12.01.05
- Tmp1=Unscaling(Tmp);
- Shade(Tmp1);
- Tmp=Listplot([A,P,B,C,A,P]); // 15.6.20
- Tmp1=Unscaling(Tmp);
- Drwline(Tmp1,0.1); // 15.06.11, 15.06.14
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.bin
deleted file mode 100644
index 56e18c45..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.sci
deleted file mode 100755
index 68dfe27c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowheaddata.sci
+++ /dev/null
@@ -1,89 +0,0 @@
-// 08.05.31
-// 09.12.25
-// 13.11.13 debugged
-// 14.11.02 debugged
-
-function Out=Arrowheaddata(varargin)
- global YaSize YaAngle YaPosition YaThick YaStyle;
- Eps=10^(-3);
- Nargs=length(varargin);
- Out=[];
- P=varargin(1);
- Houkou=varargin(2);
- Ookisa=0.2*YaSize;
- Hiraki=YaAngle;
- Futosa=0;
- Thickness=1;
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==10
- if mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- Futosa=Thickness;
- else
- Str=Tmp;
- end
- end
- if type(Tmp)==1 & length(Tmp)==1
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki;
- else
- Hiraki=Tmp;
- end
- end
- Flg=Flg+1;
- end
- end
- Theta=Hiraki*%pi/180;
- if size(Houkou,1)>1
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- Tmp=Nearestpt(P,Houkou);
- A=Op(1,Tmp);
- I=floor(Op(2,Tmp));
- if I==1 // 14.11.02
- if norm(Ptend(Houkou)-Ptstart(Houkou))<Eps
- l=Numptcrv(Houkou);
- end;
- end;
- G=Circledata(P,Ookisa*cos(Theta),'N=10');
- Flg=0; // 13.11.13
- for J=I:-1:1
- B=Ptcrv(J,Houkou);
- Tmp=IntersectcrvsPp(Listplot([A,B]),G);
- if Mixlength(Tmp)>0
- Flg=1;
- break
- end
- A=B
- end
- if Flg==0 // 13.11.13
- disp('Arrowhead may be too large (no intersect)');
- return
- end
- Houkou=P-Op(1,Op(1,Tmp));
- Houkou=Unscaling(Houkou);
- P=Unscaling(P);
- end
- P=Doscaling(P);
- Houkou=Doscaling(Houkou);
- E=-1/Vecnagasa(Houkou)*Houkou;
- N=[-E(2),E(1)];
- if mtlb_findstr(Str,'c')~=[]
- P=P-0.5*Ookisa*cos(Theta)*E;
- end
- if mtlb_findstr(Str,'b')~=[]
- P=P-Ookisa*cos(Theta)*E
- end
- A=P+Ookisa*cos(Theta)*E+Ookisa*sin(Theta)*N;
- B=P+Ookisa*cos(Theta)*E-Ookisa*sin(Theta)*N;
- Out=Listplot([A,P,B]);
- Out=Unscaling(Out);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.bin
deleted file mode 100644
index 45527ddc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.sci
deleted file mode 100755
index 881662b1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Arrowline.sci
+++ /dev/null
@@ -1,57 +0,0 @@
-//
-// 12.01.07 kirikomi(Cut)
-// 12.08.26 debugged
-// 15.06.11 debugged
-// 15.10.24 debugged
-
-function Arrowline(varargin)
- global YaSize YaAngle YaPosition YaThick YaStyle Kirikomi;
- Nargs=length(varargin)
- P=varargin(1);
- Q=varargin(2);
- Futosa=YaThick;
- Ookisa=YaSize;
- Hiraki=YaAngle;
- Yapos=YaPosition;
- Cutstr="Cut=0";
- Str=YaStyle;
- Flg=0;
- for I=3:Nargs
- Tmp=varargin(I);
- if type(Tmp)==10
- Equal=mtlb_findstr(Tmp,'='); // 12.01.07 from
- if length(Equal)>0
- Tmp2=strsplit(Tmp,Equal-1);
- if (Tmp2(1)=="Cut") | (Tmp2(1)=="cut")
- Tmp="Cut"+Tmp2(2);
- Cutstr=Tmp;
- end
- else
- Str=Tmp; // 12.01.07 upto (debugged on 12.08.26)
- end;
- end;
- if (type(Tmp)==1) & (length(Tmp)==1)
- if Flg==0
- Ookisa=Ookisa*Tmp;
- end
- if Flg==1
- if Tmp<5
- Hiraki=Tmp*Hiraki;
- else
- Hiraki=Tmp;
- end
- end
- if Flg==2
- Yapos=Tmp;
- end
- if Flg==3
- Futosa=Tmp;
- end
- Flg=Flg+1;
- end
- end
- R=P+Yapos*(Q-P);
- Tmp=Q-Unscaling(0.2*Ookisa/2*(Q-P)/norm(Q-P)); // 15.10.24
- Drwline(Listplot([P,Tmp]),Futosa);
- Arrowhead(R,Q-P,Ookisa,Hiraki,Futosa,Cutstr,Str); // 12.01.07
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.bin
deleted file mode 100644
index b6f33643..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.sci
deleted file mode 100755
index 8d9201cc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assign.sci
+++ /dev/null
@@ -1,202 +0,0 @@
-// 08.09.26
-// 09.09.21
-// 09.09.26
-// 09.10.01
-// 09.10.03
-// 09.10.05
-// 09.10.08
-// 09.10.09 ( format=20)
-// 09.10.15 ( added Assign('') : reset
-// 09.10.17 ( Matrix added, ? -> number returned)
-// 09.10.21 ( list supported with Makeliststr )
-// 14.10.04 format=12
-// 14.12.11 only replaced when variable name
-// 14.12.28 debugged ( tmp2, ` )
-// 15.02.18 debugged ( for list of string )
-// 15.02.19 debugged
-// 15.04.18 debugged
-
-function Out=Assign(varargin)
- global ASSIGNLIST;
- Curfmt=format();
- format(12); // 14.10.04
- Nargs=length(varargin);
- if Nargs==0
- ASSIGNLIST=list('`',Prime());
- Out=ASSIGNLIST;
- format(Curfmt(2));
- return;
- end;
- L=list('`',char(39));
- NL=length(L);
- if modulo(Nargs,2)==0
- for I=1:Nargs
- L(I+NL)=varargin(I);
- end;
- ASSIGNLIST=L;
- Out=L;
- format(Curfmt(2));
- return;
- end;
- if Nargs==1
- Fnstr=varargin(1);
- if Fnstr==''
- L=ASSIGNLIST;
- Out=[];
- for I=1:2:length(L)
- Tmp1=L(I);
- Tmp2=L(I+1);
- if length(Tmp2)==1
- Tmp3=string(Tmp2);
- else
- Tmp3='[';
- for J=1:length(Tmp2)
- Tmp3=Tmp3+string(Tmp2(J));
- if J<length(Tmp2)
- Tmp3=Tmp3+',';
- end;
- end;
- Tmp3=Tmp3+']';
- end;
- Out=[Out,Tmp1+'='+Tmp3];
- end;
- format(Curfmt(2));
- return;
- end;
- if part(Fnstr,1)=='?'
- Tmp=strsplit(Fnstr,1);
- Fnstr=Tmp(2);
- for I=1:2:length(ASSIGNLIST)
- Tmp=ASSIGNLIST(I);
- if Tmp==Fnstr
- Out=Mixjoin(I,ASSIGNLIST(I+1));
- format(Curfmt(2));
- return;
- end;
- end;
- Out='Not found';
- format(Curfmt(2));
- return;
- end; //
- L=ASSIGNLIST;
- else
- if type(varargin(2))==1
- Fnstr=varargin(Nargs);
- for I=1:Nargs-1
- L(I)=varargin(I);
- end;
- else
- Fnstr=varargin(1);
- for I=2:Nargs
- L(I-1)=varargin(I);
- end;
- end;
- end;
- Tmp3=Fnstr; // 15.04.18
- for I=1:2:length(L)
- Vname=L(I);
- Val=L(I+1);
- if Vname=="`" // 14.12.28
- Tmp3=strsubst(Tmp3,Vname,Val);
- continue
- end;
- if type(Val)==1
- if size(Val,1)==1 & size(Val,2)>1 // 15.04.18
- for K=1:length(Val)
- Tmp=Vname+'('+string(K)+')';
- if mtlb_findstr(Tmp3,Tmp)~=[]
- if type(Val(K))==1
- Tmp1='('+string(Val(K))+')';
- else
- Tmp1=Val(K);
- end;
- Tmp3=strsubst(Tmp3,Tmp,Tmp1);
- end;
- end;
- else
- for J=1:size(Val,1)
- for K=1:size(Val,2)
- Tmp=Vname+'('+string(J)+','+string(K)+')';
- if mtlb_findstr(Tmp3,Tmp)~=[]
- if type(Val(J,K))==1
- Tmp1='('+string(Val(J,K))+')';
- else
- Tmp1=Val(J,K);
- end;
- Tmp3=strsubst(Tmp3,Tmp,Tmp1);
- end;
- end;
- end;
- end;
- if length(Val)==1
- Rep=string(Val);
- else
- Rep='[';
- for J=1:size(Val,1)
- for K=1:size(Val,2)
- Rep=Rep+string(Val(J,K));
- if K<size(Val,2)
- Rep=Rep+',';
- end;
- end;
- if J<size(Val,1)
- Rep=Rep+';';
- else
- Rep=Rep+']';
- end;
- end;
- end;
- Tmp1='('+Rep+')';
- end;
- if type(Val)==10
- Tmp1=Val;
- end;
- if type(Val)==15
- Tmp1=Makeliststr(Val);
- end;
- Notvar=[48:57,65:90,97:122];
- for K=1:size(Tmp3,2)
- Tmp2=Tmp3(K);
- if length(Tmp2)>0 then
- Flist=mtlb_findstr(Tmp2,Vname);
- else
- Flist=[];
- end
- if length(Flist)==0 then
- Tmp3(K)=Tmp2; // 15.04.18
- continue
- end
- Str=part(Tmp2,1:(Flist(1)-1));
- for I=1:length(Flist)
- Flg=0;
- J=Flist(I);
- if J>1 then
- Tmp=ascii(part(Tmp2,J-1));
- if Member(Tmp,Notvar) then
- Flg=1;
- end;
- end
- if J+length(Vname)-1<length(Tmp2) then // 15.04.18
- Tmp=ascii(part(Tmp2,J+length(Vname))); // 15.04.18
- if Member(Tmp,Notvar) then
- Flg=1;
- end;
- end;
- if Flg==0 then
- Str=Str+Tmp1;
- else
- Str=Str+Vname;
- end;
- if I<length(Flist) then
- Tmp=Flist(I+1)-1;
- else
- Tmp=length(Tmp2);
- end;
- Str=Str+part(Tmp2,(J+length(Vname)):Tmp);
- Tmp3(K)=Str; // 15.04.18
- end;
- end;
- end;
- Out=Tmp3; // 15.02.18 upto
- format(Curfmt(2));
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.bin
deleted file mode 100644
index 8c80117b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.sci
deleted file mode 100755
index d8883e6c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignadd.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 09.10.03
-
-function Out=Assignadd(varargin)
- global ASSIGNLIST;
- Nargs=length(varargin);
- L=ASSIGNLIST;
- Is=length(L);
- for I=1:Nargs
- L(I+Is)=varargin(I);
- end;
- ASSIGNLIST=L;
- Out=L;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.bin
deleted file mode 100644
index 4ee61642..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.sci
deleted file mode 100755
index 0a362b01..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignrep.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 09.10.17
-// 09.12.05
-// 09.12.29
-// 14.09.30 addition supported
-
-function Assignrep(varargin)
- global ASSIGNLIST;
- Nargs=length(varargin);
- for I=1:2:Nargs
- Vname=varargin(I);
- Val=varargin(I+1);
- Tmp=Assign('?'+Vname);
- if Tmp=='Not found'
- Tmp=length(ASSIGNLIST);
- ASSIGNLIST(Tmp+1)=Vname;
- ASSIGNLIST(Tmp+2)=Val;
- else
- I=Tmp(1);
- ASSIGNLIST(I+1)=Val;
- end;
- end
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.bin
deleted file mode 100644
index eb9e3072..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.sci
deleted file mode 100755
index bb77c105..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Assignset.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.10.21
-
-function Assignset(varargin)
- I=1:length(varargin);
- Tmp=Assign(varargin(I));;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.bin
deleted file mode 100644
index 2f570d6e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.sci
deleted file mode 100755
index f93e3200..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Beginpicture.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 08.05.22
-
-function Beginpicture(ul)
- Openpicture(ul)
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.bin
deleted file mode 100644
index bcf1d42b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.sci
deleted file mode 100644
index 7d1993eb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezier.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 15.01.01
-
-function Out=Bezier(varargin)
- Nargs=length(varargin);
- Ptlist=varargin(1);
- Ctrlist=varargin(2);
- Num=10;
- for J=3:Nargs
- Tmp=varargin(J);
- K=mtlb_findstr(Tmp,'=');
- Tmp1=strsplit(Tmp,[K-1,K]);
- Tmp2=ascii(Tmp1(1,1));
- Lhs=char(Tmp2(1));
- if Lhs=="N" then
- Num=evstr(Tmp1(3,1));
- end;
- end;
- if length(Num)==1
- Num=Num*ones(1:length(Ctrlist))
- end;
- Out=[];
- for ii=1:length(Ctrlist)
- Tmp1=[Ptlist(ii),Ptlist(ii+1)];
- Tmp2=Ctrlist(ii);
- if ii==1 then
- St=0
- else
- St=1
- end;
- for J=St:Num(ii)
- Tmp=Bezierpt(J/Num(ii),Tmp1,Tmp2);
- Out=[Out;Tmp];
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.bin
deleted file mode 100644
index 51ad025e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.sci
deleted file mode 100644
index ac639249..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bezierpt.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 15.01.01
-// 15.02.08 for 3d
-
-function Out=Bezierpt(t,Ptlist,Ctrlist)
- if length(Ptlist)==6 then // 3d 15.02.08
- P0=Ptlist(1:3);
- P3=Ptlist(4:6);
- P1=Ctrlist(1:3);
- if length(Ctrlist)==3 then
- P2=P3;
- flg3=0;
- else
- P2=Ctrlist(4:6);
- flg3=1;
- end;
- else
- P0=Ptlist(1:2);
- P3=Ptlist(3:4);
- P1=Ctrlist(1:2);
- if length(Ctrlist)==2 then
- P2=P3;
- flg3=0;
- else
- P2=Ctrlist(3:4);
- flg3=1;
- end;
- end;
- 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 then
- Out=P7;
- else
- Out=P9;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.bin
deleted file mode 100644
index e238cbcb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.sci
deleted file mode 100755
index dac12561..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.13
-
-function Out=BorderHiddenData()
- global BORDERHIDDENDATA
- Out=BORDERHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.bin
deleted file mode 100644
index 40553cd7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.sci
deleted file mode 100755
index 12947bcd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/BorderPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.13
-
-function Out=BorderPt()
- global BORDERPT
- Out=BORDERPT
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.bin
deleted file mode 100644
index d5c08e6d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.sci
deleted file mode 100755
index 2e944821..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderparadata.sci
+++ /dev/null
@@ -1,121 +0,0 @@
-// 08.09.13
-// 08.09.16
-// 08.10.10
-// 08.10.11
-// 08.10.15
-// 08.10.28
-// 09.03.09
-// 09.05.27
-// 09.06.03
-// 10.02.16 Eps=> [Eps, Epsmg]
-// 13.10.21 ( __ added to varibles )
-
-function FsL__=Borderparadata(varargin)
- global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA
- global PARTITIONPT
- Nargs__=length(varargin);
- FkL__=varargin(1);
- Fd__=varargin(2); N__=3;
- FdL__=Fullformfunc(Fd__);
- Fxy__=Mixop(1,FdL__);
- Tmp__1=Mixop(2,FdL__);
- Tmp__2=Mixop(3,FdL__);
- Tmp__3=Mixop(4,FdL__);
- Xyzstr__=[Tmp__1,Tmp__2,Tmp__3];
- DrwS__=Mixop(7,FdL__);
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Np__=[50,50];
- if Nargs__>=3
- Np__=varargin(3); N__=4;
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Eps__=[0.05,1]; //
- if Nargs__>=N__ Eps__=varargin(N__); end;
- Eps__2=0.2;
- if Nargs__>=N__+1 Eps__2=varargin(N__+1); end;
- Umin__=Urg__(1); Umax__=Urg__(2);
- Vmin__=Vrg__(1); Vmax__=Vrg__(2);
- EkL__=[];
- Tmp__=mtlb_findstr(DrwS__,'e');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'n');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'w');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'s');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- if Mixlength(EkL__)>0
- FkL__=Mixjoin(FkL__,EkL__);
- end;
- Fall__=Projpara(FkL__);
- if Mixtype(Fall__)==1
- Fall__=Mix(Fall__)
- end;
- Fbdxy__=Makexybdy(Fd__,Np__);
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- BORDERPT=[];
- Tmp__=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixadd(Tmp__,[]);
- end;
- OTHERPARTITION=Tmp__;
- FsL__=[];
- BORDERHIDDENDATA=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixop(I__,FkL__);
- Tmp__=Projpara(Tmp__);
- Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__); //
- if Mixlength(PARTITIONPT)>2
- Tmp__=Mixlength(PARTITIONPT)-1;
- Tmp__1=Mixsub(2:Tmp__,PARTITIONPT);
- BORDERPT=Mixjoin(BORDERPT,Tmp__1);
- end;
- Tmp__1=Mixop(I__,FkL__);
- Tmp__=Nohiddenpara2(Par__,Tmp__1,Fd__,1,Np__,Eps__);
- if Mixlength(HIDDENDATA)>0
- BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA);
- end;
- if Mixlength(Tmp__)>0
- FsL__=Mixjoin(FsL__,Tmp__);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.bin
deleted file mode 100644
index 162c473d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.sci
deleted file mode 100755
index f86ddfa0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderpersdata.sci
+++ /dev/null
@@ -1,120 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 08.10.11
-// 08.10.28
-// 09.03.09
-// 09.05.27
-// 09.06.03
-// 10.02.16 Eps__
-// 13.11.01 ( __ added to varibles )
-
-function FsL__=Borderpersdata(varargin)
- global BORDERPT OTHERPARTITION HIDDENDATA BORDERHIDDENDATA
- global PARTITIONPT
- Nargs__=length(varargin);
- FkL__=varargin(1);
- Fd__=varargin(2); N=3;
- FdL__=Fullformfunc(Fd__);
- Fxy__=Mixop(1,FdL__);
- Tmp__1=Mixop(2,FdL__);
- Tmp__2=Mixop(3,FdL__);
- Tmp__3=Mixop(4,FdL__);
- Xyzstr__=[Tmp__1,Tmp__2,Tmp__3];
- DrwS__=Mixop(7,FdL__);
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Np__=[50,50];
- if Nargs__>=3
- Np__=varargin(3); N=4;
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Eps__=0.05;
- Eps__=[0.05,1]; //
- if Nargs__>=N Eps__=varargin(N); end;
- Eps__2=0.2;
- if Nargs__>=N+1 Eps__2=varargin(N+1); end;
- Umin__=Urg__(1); Umax__=Urg__(2);
- Vmin__=Vrg__(1); Vmax__=Vrg__(2);
- EkL__=[];
- Tmp__=mtlb_findstr(DrwS__,'e');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umax__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'n');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmax__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'w');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Uname__,'('+string(Umin__)+')');
- Tmp__2=Mixop(6,FdL__);
- Tmp__3='N='+string(Np__(2));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- Tmp__=mtlb_findstr(DrwS__,'s');
- if length(Tmp__)~=0
- Tmp__1=strsubst(Xyzstr__,Vname__,'('+string(Vmin__)+')');
- Tmp__2=Mixop(5,FdL__);
- Tmp__3='N='+string(Np__(1));
- Tmp__=Spacecurve(Tmp__1,Tmp__2,Tmp__3);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
- if Mixlength(EkL__)>0
- FkL__=Mixjoin(FkL__,EkL__);
- end;
- Fall__=Projpers(FkL__);
- if Mixtype(Fall__)==1
- Fall__=Mix(Fall__);
- end;
- Fbdxy__=Makexybdy(Fd__,Np__);
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- BORDERPT=[];
- Tmp__=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixadd(Tmp__,[]);
- end;
- OTHERPARTITION=Tmp__;
- FsL__=[];
- BORDERHIDDENDATA=[];
- for I__=1:Mixlength(Fall__)
- Tmp__=Mixop(I__,FkL__);
- Tmp__=Projpers(Tmp__);
- Par__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__);
- if Mixlength(PARTITIONPT)>2
- Tmp__=Mixlength(PARTITIONPT)-1;
- Tmp__1=Mixsub(2:Tmp__,PARTITIONPT);
- BORDERPT=Mixjoin(BORDERPT,Tmp__1);
- end;
- Tmp__1=Mixop(I__,FkL__);
- Tmp__=Nohiddenpers2(Par__,Tmp__1,Fd__,1,Np__,Eps__);
- if Mixlength(HIDDENDATA)>0
- BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA);
- end;
- if Mixlength(Tmp__)>0
- FsL__=Mixjoin(FsL__,Tmp__);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.bin
deleted file mode 100644
index 41515f60..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.sci
deleted file mode 100755
index 657efc23..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Borderrawdata.sci
+++ /dev/null
@@ -1,64 +0,0 @@
-// 08.09.10
-
-function FkL=Borderrawdata(varargin)
- Nall=length(varargin);
- FkL=varargin(1);
- FdL=Fullformfunc(varargin(2));
- Tmp1=Mixop(2,FdL);
- Tmp2=Mixop(3,FdL);
- Tmp3=Mixop(4,FdL);
- Xyzstr=[Tmp1,Tmp2,Tmp3];
- DrwS=Mixop(7,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- Np=[50,50];
- if Nall>=3
- Np=varargin(3);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Um=Urg(1); UM=Urg(2);
- Vm=Vrg(1); VM=Vrg(2);
- EkL=[];
- Tmp=mtlb_findstr(DrwS,'e');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Uname,'('+string(UM)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'n');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Vname,'('+string(VM)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'w');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Uname,'('+string(Um)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'s');
- if length(Tmp)~=0
- Tmp1=strsubst(Xyzstr,Vname,'('+string(Vm)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Spacecurve(Tmp1,Tmp2,Tmp3);
- EkL=Mixadd(EkL,Tmp);
- end;
- FkL=Mixjoin(FkL,EkL);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.bin
deleted file mode 100644
index 00fea499..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.sci
deleted file mode 100755
index 48154cf1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowdata.sci
+++ /dev/null
@@ -1,45 +0,0 @@
-//
-// 08.05.22
-// 08.08.24
-
-function Pd=Bowdata(varargin)
- global BOWMIDDLE BOWSTART BOWEND
- Nargs=length(varargin);
- PA=varargin(1);
- PB=varargin(2);
- Cut=0;
- D=1/2*Vecnagasa(PB-PA);
- if Nargs>=3
- H=varargin(3)*D*0.2;
- else
- H=D*0.2;
- end
- H=min(H,D);
- if Nargs>=4
- Cut=varargin(4);
- end
- Ydata=MakeBowdata(PA,PB,H);
- C=Mixop(1,Ydata);
- r=Mixop(2,Ydata);
- R1=Mixop(3,Ydata);
- R2=Mixop(4,Ydata);
- Rng='R=['+string(R1)+','+string(R2)+']';
- Theta=(R1+R2)*0.5;
- BOWMIDDLE=MixS([C(1)+r*cos(Theta),C(2)+r*sin(Theta)],Theta);
- M=Mixop(1,BOWMIDDLE);
- ThetaM=Mixop(2,BOWMIDDLE);
- BOWSTART=PA;
- BOWEND=PB;
- if Cut==0
- Pd=Circledata(C,r,Rng);
- else
- Alpha=R1; Beta=ThetaM-Cut/(2*r);
- Rng='R=['+string(Alpha)+','+string(Beta)+']';
- Pd=Circledata(C,r,Rng);
- Alpha=ThetaM+Cut/(2*r); Beta=R2;
- Rng='R=['+string(Alpha)+','+string(Beta)+']';
- Tmp=Circledata(C,r,Rng);
- Pd=[Pd;%inf,%inf;Tmp];
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.bin
deleted file mode 100644
index fe5aa36a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.sci
deleted file mode 100755
index 5157c111..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowmiddle.sci
+++ /dev/null
@@ -1,53 +0,0 @@
-//
-// 08.05.22
-// 08.05.31
-// 09.08.12
-
-function M=Bowmiddle(varargin)
- global BOWMIDDLE;
- Nargs=length(varargin);
- if Nargs==0
- M=BOWMIDDLE;
- return;
- end;
- if Nargs==1
- Bdata=varargin(1);
- A=Bdata(1,:);
- Dind=Dataindex(Bdata);
- Dc=size(Dind,1);
- Tmp=Dind(Dc,2);
- B=Bdata(Tmp,:);
- if Dc==1
- Tmp1=round(Tmp/2);
- else
- Tmp1=Dind(1,2);
- end;
- D=Bdata(Tmp1,:);
- B=B-A;
- D=D-A;
- Tmp1=B(1)*D(2)-D(1)*B(2);
- Tmp2=((B(1)^2+B(2)^2)*D(2)-B(2)*(D(1)^2+D(2)^2))/2;
- Tmp3=-((B(1)^2+B(2)^2)*D(1)-B(1)*(D(1)^2+D(2)^2))/2;
- C=[Tmp2,Tmp3]/Tmp1+A;
- R=norm(C-A);
- B=B+A;
- V=(A+B)/2-C;
- V=V/norm(V);
- M=C+R*V;
- else
- A=varargin(1); B=varargin(2);
- D=1/2*Vecnagasa(B-A);
- H=0.2*D;
- if length(varargin)>=3
- Tmp=varargin(3);
- H=Tmp*D*0.2;
- end
- H=min(H,D);
- Ydata=MakeBowdata(A,B,H);
- C=Op(1,Ydata);
- R=Op(2,Ydata);
- T=(Op(3,Ydata)+Op(4,Ydata))/2;
- P=C+R*[cos(T),sin(T)];
- M=MixS(P,T);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.bin
deleted file mode 100644
index 320dc759..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.sci
deleted file mode 100755
index f57c4961..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bowname.sci
+++ /dev/null
@@ -1,40 +0,0 @@
-//
-// 08.08.24
-// 09.08.12
-// 09.08.13
-// 13.11.30 Directon supported
-
-function Bowname(varargin)
- global BOWMIDDLE;
- Nargs=length(varargin);
- Siki=varargin(Nargs);
- Nargs=Nargs-1; // 13.11.30
- Dr="c";
- if Nargs>=1 then
- Tmp=varargin(Nargs);
- if type(Tmp)==10
- Dr=Tmp;
- Nargs=Nargs-1;
- end
- end
- if Nargs==0 // 13.11.30
- P=Mixop(1,BOWMIDDLE);
- elseif Nargs==1 // 13.11.30
- Bdata=varargin(1);
- P=Bowmiddle(Bdata);
- else
- A=varargin(1); B=varargin(2);
- D=1/2*Vecnagasa(B-A);
- Tmp=varargin(3);
- if type(Tmp)==10
- H=D*0.2;
- else
- H=Tmp*D*0.2;
- end;
- H=min(H,D);
- Ydata=MakeBowdata(A,B,H);
- Tmp=Bowmiddle(Ydata);
- P=Mixop(1,Tmp);
- end
- Expr(P,Dr,Siki); //13.11.30
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.bin
deleted file mode 100644
index e4dd5aa2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.sci
deleted file mode 100755
index 8d1edf78..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Bownamerot.sci
+++ /dev/null
@@ -1,77 +0,0 @@
-// 08.05.31
-// 08.08.24
-// 09.08.12
-// 09.08.13
-// 13.12.15 tiny move supported
-// A,B type no longer supported
-
-function Bownamerot(varargin)
- global Wfile FID BOWMIDDLE BOWSTART BOWEND;
- Nargs=length(varargin);
- Eps=10^(-6);
- Flg=1;
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & length(Tmp)==1 & Tmp<0
- Flg=Tmp;
- Nargs=Nargs-1;
- end;
- Siki=varargin(Nargs);
- Nargs=Nargs-1;
- Dr="c";
- if Nargs>=1 then
- Tmp=varargin(Nargs);
- if type(Tmp)==10
- Dr=Tmp;
- Nargs=Nargs-1;
- end
- end
- if Nargs==0
- P=Mixop(1,BOWMIDDLE);
- A=BOWSTART;
- B=BOWEND;
- else
- Bdata=varargin(1);
- P=Bowmiddle(Bdata);
- A=Bdata(1,:);
- B=Bdata(size(Bdata,1),:);
- Tm=0; Tv=0;
- if Nargs>1 then // 13.12.15
- Tm=varargin(2);
- if Nargs>2 then
- Tv=varargin(3);
- end
- end
- end;
-// elseif Nargs==1
-// Bdata=varargin(1);
-// P=Bowmiddle(Bdata);
-// A=Bdata(1,:);
-// B=Bdata(size(Bdata,1),:);
-// else
-// A=varargin(1); B=varargin(2);
-// D=1/2*Vecnagasa(B-A);
-// Tmp=varargin(3);
-// if type(Tmp)==10
-// H=0.2*D; Siki=Tmp;
-// else
-// H=Tmp*D*0.2; Siki=varargin(4);
-// end
-// H=min(H,D);
-// Ydata=MakeBowdata(A,B,H);
-// C=Op(1,Ydata);
-// R=Op(2,Ydata);
-// T=(Op(3,Ydata)+Op(4,Ydata))/2;
-// P=C+R*[cos(T),sin(T)];
-// end;
- if A(1)>B(1)+Eps
- Tmp=A;
- A=B;
- B=Tmp;
- end;
- if Flg>0
- Tmp=B-A;
- else
- Tmp=A-B;
- end;
- Exprrot(P,Tmp,Tm,Tv,Siki);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.bin
deleted file mode 100644
index 69e9a115..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.sci
deleted file mode 100755
index aa1216dd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcHeight.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-function CalcHeight(Hoko,Moji)
- global Wfile FID;
- D=0;
- Tmp=ascii(Hoko);
- H=char(Tmp(1));
- Str=['\settoheight{\Height}{'+Moji+'}'];
- Str=[Str,'\settodepth{\Depth}{'+Moji+'}'];
- if H=='n'
- Str=[Str,'\setlength{\Height}{\Depth}'];
- end
- if H=='s'
- Str=[Str,'\setlength{\Height}{-\Height}'];
- end
- if H=='c'
- Str=[Str,'\setlength{\Height}{-0.5\Height}'];
- Str=[Str,'\setlength{\Depth}{0.5\Depth}'];
- Str=[Str,'\addtolength{\Height}{\Depth}'];
- end
- if Wfile=='default'
- for I=1:size(Str,2)
- mprintf('%s',Str(I));
- end
- mprintf('%s\n','%');
- else
- for I=1:size(Str,2)
- mfprintf(FID,'%s',Str(I));
- end
- mfprintf(FID,'%s\n','%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.bin
deleted file mode 100644
index dea083ce..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.sci
deleted file mode 100755
index 111e9b3b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CalcWidth.sci
+++ /dev/null
@@ -1,26 +0,0 @@
-function CalcWidth(Hoko,Moji)
- global Wfile FID
- D=0;
- Tmp=ascii(Hoko);
- H=char(Tmp(2));
- if H=='e'
- D=0;
- end
- if H=='w'
- D=-1.0;
- end
- if H=='c'
- D=-0.5;
- end
- Str1='\settowidth{\Width}{'+Moji+'}';
- Tmp=string(D);
- Str2='\setlength{\Width}{'+Tmp+'\Width}';
- if Wfile=='default'
- mprintf('%s',Str1);
- mprintf('%s%s\n',Str2,'%');
- else
- mfprintf(FID,'%s',Str1);
- mfprintf(FID,'%s%s\n',Str2,'%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.bin
deleted file mode 100644
index 90ba14bb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.sci
deleted file mode 100755
index 30c646a6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Calcfun.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// 08.05.30
-
-function PL=Calcfun(Siki,Namae,Atai)
- execstr(Namae+'=Atai');
- Tmp='XY='+Siki;
- execstr(Tmp);
- PL=[Atai(:,1),XY(:,2)];
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.bin
deleted file mode 100644
index a0f9bec1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.sci
deleted file mode 100755
index fcc7687c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameraCurve.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-// 08.08.12
-// 08.10.07
-// 09.06.02
-
-function AnsL=CameraCurve(Curve)
- Eps=10^(-6);
- for I=1:size(Curve,1)
- P=Curve(I,:);
- x=P(1); y=P(2); z=P(3);
- if x~=%inf
- Tmp=Perspt(P);
- if I==1
- AnsL=[Tmp];
- else
- Tmp1=AnsL(size(AnsL,1),:);
- if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps
- AnsL=[AnsL;Tmp];
- end;
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.bin
deleted file mode 100644
index 1504ef28..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.sci
deleted file mode 100755
index 310ac166..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CameracoordCurve.sci
+++ /dev/null
@@ -1,28 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 09.09.25
-
-function Out=CameracoordCurve(Curve)
- global FocusPoint EyePoint;
- Out=[]; // 09.09.25
- for J=1:size(Curve,1)
- P=Curve(J,:);
- Tmp=P-FocusPoint;
- X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3);
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1;
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb;
- E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb;
- Xz=X3;
- Yz=E3/(E3-X3)*Y3;
- Zz=E3/(E3-X3)*Z3;
- Out=[Out;Yz,Zz,Xz];
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.bin
deleted file mode 100644
index 09869b72..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.sci
deleted file mode 100644
index 1574d812..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpara.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-// 13.08.13
-
-function Out=Cancoordpara(P)
- global PHI THETA;
- Xz=P(1); Yz=P(2); Zz=P(3);
- X=-Xz*sin(PHI)-Yz*cos(PHI)*cos(THETA)+Zz*cos(PHI)*sin(THETA);
- Y=Xz*cos(PHI)-Yz*sin(PHI)*cos(THETA)+Zz*sin(PHI)*sin(THETA);
- Z=Yz*sin(THETA)+Zz*cos(THETA);
- Out=[X,Y,Z];
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.bin
deleted file mode 100644
index 9b976e9a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.sci
deleted file mode 100755
index b63aba5c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cancoordpers.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 08.08.12
-
-function Out=Cancoordpers(P)
- global EyePoint FocusPoint;
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb;
- Xz=P(3); Yz=P(1); Zz=P(2);
- X3=Xz; Y3=Yz*(E3-Xz)/E3; Z3=Zz*(E3-Xz)/E3;
- X2=X3*Cb-Sb*Z3; Y2=Y3; Z2=Cb*Z3+Sb*X3;
- X1=X2*Ca-Sa*Y2; Y1=Ca*Y2+Sa*X2; Z1=Z2;
- X=X1+FocusPoint(1);
- Y=Y1+FocusPoint(2);
- Z=Z1+FocusPoint(3);
- Out=[X,Y,Z];
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.bin
deleted file mode 100644
index 479debe4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.sci
deleted file mode 100755
index 2148c061..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Circledata.sci
+++ /dev/null
@@ -1,32 +0,0 @@
-// s:2008,05.12
-// e:2014.09.08 [A,B] supported
-// e:2014.10.24 N,R => N__, ...
-
-function P=Circledata(varargin)
- Nargs=length(varargin);
- C=varargin(1);
- if length(C)==4 then
- ra=norm(C(1:2)-C(3:4));
- C=C(1:2);
- Nop=2;
- else
- ra=varargin(2);
- Nop=3;
- end;
- R__=[0,2*%pi];
- N__=50; // Numpoints
- for I=Nop:Nargs
- Tmp=varargin(I);
- K=mtlb_findstr(Tmp,'=');
- Tmp1=strsplit(Tmp,[K-1,K]);
- Tmp2=ascii(Tmp1(1,1));
- Lhs=char(Tmp2(1));
- Str=Lhs+'__='+Tmp1(3,1);
- execstr(Str);
- end;
- Dt=(R__(2)-R__(1))/N__;
- T=R__(1):Dt:R__(2);
- X=C(1)+ra*cos(T);
- Y=C(2)+ra*sin(T);
- P=[X',Y'];
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.bin
deleted file mode 100644
index 7a4e7e0e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.sci
deleted file mode 100755
index bf9572c5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Clipindomain.sci
+++ /dev/null
@@ -1,58 +0,0 @@
-// 08.09.10
-// 08.09.16
-// 09.12.31 (gsort)
-
-function OutL=Clipindomain(ObjL,FigL)
- EEps=10^(-4);
- Eps=0.01;
- Eps2=0.2;
- Bdy=Kyoukai(FigL);
- if Mixlength(Bdy)>=2
- Fbdy=Joincrvs(FigL)
- else
- Fbdy=Mixop(1,FigL);
- end;
- if Mixtype(ObjL)==1
- ObjL=Mix(ObjL)
- end;
- if Mixtype(FigL)==1
- FigL=Mix(FigL)
- end;
- OutL=[];
- for Nobj=1:Mixlength(ObjL);
- Obj=Mixop(Nobj,ObjL);
- ParL=[1,Numptcrv(Obj)];
- Tmp=IntersectcrvsPp(Obj,Fbdy,Eps,Eps2);
- for J=1:Mixlength(Tmp)
- Tmp1=Mixop(J,Tmp);
- ParL=[ParL,Mixop(2,Tmp1)];
- end;
- ParL=gsort(ParL);
- ParL=ParL(length(ParL):-1:1);
- Tmp=[1];
- for I=1:length(ParL)
- Tmp1=Tmp(length(Tmp));
- Tmp2=ParL(I);
- if Tmp2-Tmp1>EEps
- Tmp=[Tmp,Tmp2];
- end;
- end;
- ParL=Tmp;
- Tmp1=ParL(length(ParL));
- Tmp2=Numptcrv(Obj);
- if abs(Tmp1-Tmp2)<Eps
- ParL=[ParL(1:length(ParL)-1),Tmp2];
- end;
- Fig=[];
- for N=1:length(ParL)-1
- Tmp=(ParL(N)+ParL(N+1))*0.5;
- Tmp=PointonCurve(Tmp,Obj);
- Tmp=Naigai(Tmp,Bdy);
- Tmp1=modulo(sum(Tmp),2);
- if Tmp1==0 continue; end;
- Fig=Mixadd(Fig,Partcrv(ParL(N),ParL(N+1),Obj));
- end;
- OutL=Mixjoin(OutL,Fig);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.bin
deleted file mode 100644
index ee0c01eb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.sci
deleted file mode 100755
index f2928103..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closefile.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-//
-// 13.05.19 openfile error tackled
-// 13.11.01 Endpicture joined optionally
-// 13.11.05 debugged
-
-function Closefile(varargin)
- global Wfile FID;
- if length(varargin)>=1 then
- Pa=varargin(1);
- if type(Pa)==10 then
- if Pa=="1" then // 2013.11.05
- Endpicture(1)
- end;
- if Pa=="0" then
- Endpicture(0)
- end //
- end
- end
- if Wfile~='default' then
- mclose(FID);
- FID=[]; // 2013.05.19
- end
- Wfile='default';
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.bin
deleted file mode 100644
index 459ad839..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.sci
deleted file mode 100644
index da7c3850..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closeobj.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// s : 2014.06.22
-
-function Closeobj()
- global Wfile FID;
- if Wfile~='default' then
- mclose(FID);
- FID=[];
- end;
- Wfile='default';
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.bin
deleted file mode 100644
index 2f0714fe..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.sci
deleted file mode 100755
index 64b93e1a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepar.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.31
-
-function Closepar()
- global Wfile FID
- S='\end{minipage}'
- if Wfile=='default'
- mprintf('%s\n','%');
- mprintf('%s',S);
- else
- mfprintf(FID,'%s\n','%');
- mfprintf(FID,'%s',S);
- end
- Closephr();
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.bin
deleted file mode 100644
index 6a9af1b5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.sci
deleted file mode 100755
index 39b363f6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closephr.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 08.05.31
-
-function Closephr()
- global Wfile FID;
- if Wfile=='default'
- mprintf('%s\n','%');
- mprintf('%s\n','}%');
- else
- mfprintf(FID,'%s\n','%');
- mfprintf(FID,'%s\n','}%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.bin
deleted file mode 100644
index 45c1666b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.sci
deleted file mode 100755
index a3f345cb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Closepicture.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-//
-// 08.12.17
-// 09.02.20
-// 10.04.12
-
-function Closepicture(varargin)
- global Wfile FID MEMORI MEMORINow ULEN MilliIn;
- Nargs=length(varargin);
- if Nargs==0
- Drwxy();
- elseif varargin(1)==1
- Drwxy();
- end
- if Wfile=='default'
- mprintf('%s','\end{picture}}%');
- else
- mfprintf(FID,'%s','\end{picture}}%');
- end
-// MEMORI=MEMORINow*1000/2.54/MilliIn;
- Setunitlen('1cm');
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.bin
deleted file mode 100644
index 2ae19755..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.sci
deleted file mode 100755
index 2abe8c90..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Connectseg.sci
+++ /dev/null
@@ -1,76 +0,0 @@
-// 08.09.09
-// 08.09.10
-// 08.09.24
-
-function PlotL=Connectseg(varargin)
- Nargs=length(varargin);
- Pdata=varargin(1);
- Eps=10^(-5);
- if Nargs>=2
- Eps=varargin(2)
- end;
- if Mixtype(Pdata)~=1
- Tmp=Mixop(1,Pdata);
- Tmp=size(Tmp,2);
- Sep=%inf*ones(1,Tmp);
- Tmp=[];
- for I=1:Mixlength(Pdata)
- Tmp1=Mixop(I,Pdata);
- Tmp=[Tmp;Sep;Tmp1];
- end;
- Pdata=Tmp(2:size(Tmp,1),:);
- end;
- Din=Dataindex(Pdata);
- PlotL=[];
- Qd=Pdata(Din(1,1):Din(1,2),:);
- Din=Din(2:size(Din,1),:);
- N=size(Din,1);
- while N>0
- Ah=Qd(1,:);Ao=Qd(size(Qd,1),:);
- Flg=0;
- for J=1:N
- St=Din(J,1);
- En=Din(J,2);
- P=Pdata(St,:);
- Q=Pdata(En,:);
- if norm(P-Ao)<Eps
- Tmp=Pdata(St+1:En,:);
- Qd=[Qd;Tmp];
- Din=[Din(1:J-1,:);Din(J+1:N,:)];
- Flg=1;
- break;
- end;
- if norm(Q-Ao)<Eps
- Tmp=Pdata(En-1:-1:St,:);
- Qd=[Qd;Tmp];
- Din=[Din(1:J-1,:);Din(J+1:N,:)];
- Flg=1;
- break;
- end;
- if norm(P-Ah)<Eps
- Tmp=Pdata(En:-1:St+1,:);
- Qd=[Tmp;Qd];
- Din=[Din(1:J-1,:);Din(J+1:N,:)];
- Flg=1;
- break;
- end;
- if norm(Q-Ah)<Eps
- Tmp=Pdata(St:En-1,:);
- Qd=[Tmp;Qd];
- Din=[Din(1:J-1,:);Din(J+1:N,:)];
- Flg=1;
- break;
- end;
- end;
- if Flg==0
- PlotL=Mixadd(PlotL,Qd);
- Qd=Pdata(Din(1,1):Din(1,2),:);
- Din=Din(2:N,:);
- end;
- N=size(Din,1);
- end;
- if size(Qd,1)>0
- PlotL=Mixadd(PlotL,Qd);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.bin
deleted file mode 100644
index ebbf0250..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.sci
deleted file mode 100755
index ab4d55b5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crossprod.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 09.10.0
-
-function Out=Crossprod(a,b)
- 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];
- else
- Out=a(1)*b(2)-a(2)*b(1);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin
deleted file mode 100644
index 945f328f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci
deleted file mode 100755
index 07c17303..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.19
-
-function Out=Crv3onsfHiddenData()
- global CRV3ONSFHIDDENDATA
- Out=CRV3ONSFHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.bin
deleted file mode 100644
index edfc2433..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.sci
deleted file mode 100755
index ba168b71..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfparadata.sci
+++ /dev/null
@@ -1,49 +0,0 @@
-// 08.09.16
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-
-function Out=Crv3onsfparadata(varargin)
- global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA
- Nargs=length(varargin);
- Fk=varargin(1);
- Fbdy=Projpara(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Fbdxy=Makexybdy(Fd,Np);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Fxy=='p'
- Out=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- else
- Tmp=Mix(Fxy,Fbdxy,Xname,Yname);
- Out=Nohiddenpara(Par,Fk,Tmp);
- end;
- CRV3ONSFHIDDENDATA=HIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin
deleted file mode 100644
index fcf19f53..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci
deleted file mode 100755
index 5fc40737..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crv3onsfpersdata.sci
+++ /dev/null
@@ -1,50 +0,0 @@
-// 08.09.21
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-
-function Out=Crv3onsfpersdata(varargin)
- global PARTITIONPT HIDDENDATA CRV3ONSFHIDDENDATA
- Nargs=length(varargin);
- Fk=varargin(1);
- Fbdy=Projpers(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Fbdxy=Makexybdy(Fd,Np);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Fxy=='p'
- Out=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- else
- Tmp=Mix(Fxy,Fbdxy,Xname,Yname);
- Out=Nohiddenpers(Par,Fk,Tmp);
- end;
-
- CRV3ONSFHIDDENDATA=HIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin
deleted file mode 100644
index 6c2acae3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci
deleted file mode 100755
index 9d97b3ce..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvonsfHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.19
-
-function Out=CrvonsfHiddenData()
- global CRVONSFHIDDENDATA
- Out=CRVONSFHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.bin
deleted file mode 100644
index 5a5c9703..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.sci
deleted file mode 100755
index a530284b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfparadata.sci
+++ /dev/null
@@ -1,90 +0,0 @@
-// 08.09.16
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-// 13.10.22 ( __ added to varibles )
-
-function OutL__=Crvonsfparadata(varargin)
- global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA
- Nargs__=length(varargin);
- Eps__0=10^(-4);
- Figuv__=varargin(1);
- Fbdy__=Projpara(varargin(2));
- Fd__=varargin(3); N__=4;
- Fd__L=Fullformfunc(Fd__);
- Fxy__=Mixop(1,Fd__L);
- Xf__=Mixop(2,Fd__L);
- Yf__=Mixop(3,Fd__L);
- Zf__=Mixop(4,Fd__L);
- Np__=[50,50];
- if Nargs__>=N__
- Np__=varargin(N__); N__=N__+1;
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Eps__=[0.05,1]; //
- if Nargs__>=N__
- Eps__=varargin(N__);
- end;
- if length(Eps__)==1
- Eps__=[Eps__,1];
- end;
- Eps__2=0.2;
- if Nargs__>=N__+1
- Eps__2=varargin(N__+1);
- end;
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Fbdxy__=Makexybdy(Fd__,Np__);
- Fbdy__uv=Mixop(8,Fd__L);
- if Fbdy__uv==[]
- Fbdy__uv=Mix(Framedata(Urg__,Vrg__));
- end;
- FigL__=Clipindomain(Figuv__,Fbdy__uv);
- CRVONSFHIDDENDATA=[];
- OutL__=[];
- for N__=1:Mixlength(FigL__)
- PtL__=Mixop(N__,FigL__);
- Tmp__=[];
- for I__=1:size(PtL__,1)
- P__=PtL__(I__,:);
- Tmp__1=strsubst(Xf__,Uname__,'('+string(P__(1))+')');
- Tmp__1=strsubst(Tmp__1,Vname__,'('+string(P__(2))+')');
- Tmp__1=evstr(Tmp__1);
- Tmp__2=strsubst(Yf__,Uname__,'('+string(P__(1))+')');
- Tmp__2=strsubst(Tmp__2,Vname__,'('+string(P__(2))+')');
- Tmp__2=evstr(Tmp__2);
- Tmp__3=strsubst(Zf__,Uname__,'('+string(P__(1))+')');
- Tmp__3=strsubst(Tmp__3,Vname__,'('+string(P__(2))+')');
- Tmp__3=evstr(Tmp__3);
- Tmp__=[Tmp__,[Tmp__1,Tmp__2,Tmp__3]];
- end;
- Fk__=Spaceline(Tmp__);
- Par__=Partitionseg(Projpara(Fk__),Fbdy__,Eps__(1),Eps__2); //
- if Fxy__=='p'
- Tmp__=Nohiddenpara2(Par__,Fk__,Fd__,1,Np__,Eps__);
- else
- Tmp__1=Mix(Fxy__,Fbdxy__,Xname__,Yname__);
- Tmp__=Nohiddenpara(Par__,Fk__,Tmp__1);
- end;
- if Tmp__~=[]
- OutL__=Mixjoin(OutL__,Tmp__);
- end;
- if HIDDENDATA~=[]
- CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.bin
deleted file mode 100644
index 29f41d3c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.sci
deleted file mode 100755
index f3bdf700..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvonsfpersdata.sci
+++ /dev/null
@@ -1,86 +0,0 @@
-// 08.09.21
-// 08.10.11
-// 08.10.15
-// 10.02.16 Eps
-
-function OutL=Crvonsfpersdata(varargin)
- global PARTITIONPT HIDDENDATA CRVONSFHIDDENDATA
- Nargs=length(varargin);
- Eps0=10^(-4);
- Figuv=varargin(1);
- Fbdy=Projpers(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Xf=Mixop(2,FdL);
- Yf=Mixop(3,FdL);
- Zf=Mixop(4,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1
- Eps=[Eps,1];
- end;
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- Fbdxy=Makexybdy(Fd,Np);
- Fbdyuv=Mixop(8,FdL);
- if Fbdyuv==[]
- Fbdyuv=Mix(Framedata(Urg,Vrg));
- end;
- FigL=Clipindomain(Figuv,Fbdyuv);
- CRVONSFHIDDENDATA=[];
- OutL=[];
- for N=1:Mixlength(FigL)
- PtL=Mixop(N,FigL);
- Tmp=[];
- for I=1:size(PtL,1)
- P=PtL(I,:);
- Tmp1=strsubst(Xf,Uname,'('+string(P(1))+')');
- Tmp1=strsubst(Tmp1,Vname,'('+string(P(2))+')');
- Tmp1=evstr(Tmp1);
- Tmp2=strsubst(Yf,Uname,'('+string(P(1))+')');
- Tmp2=strsubst(Tmp2,Vname,'('+string(P(2))+')');
- Tmp2=evstr(Tmp2);
- Tmp3=strsubst(Zf,Uname,'('+string(P(1))+')');
- Tmp3=strsubst(Tmp3,Vname,'('+string(P(2))+')');
- Tmp3=evstr(Tmp3);
- Tmp=[Tmp,[Tmp1,Tmp2,Tmp3]];
- end;
- Fk=Spaceline(Tmp);
- Par=Partitionseg(Projpers(Fk),Fbdy,Eps(1),Eps2); //
- if Fxy=='p'
- Tmp=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- else
- Tmp1=Mix(Fxy,Fbdxy,Xname,Yname);
- Tmp=Nohiddenpers(Par,Fk,Tmp1);
- end;
- OutL=Mixjoin(OutL,Tmp);
- CRVONSFHIDDENDATA=Mixjoin(CRVONSFHIDDENDATA,HIDDENDATA);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.bin
deleted file mode 100644
index c0c9a068..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.sci
deleted file mode 100755
index 0081b20c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CrvsfHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.10.24
-
-function Out=CrvsfHiddenData()
- global CRVSFHIDDENDATA
- Out=CRVSFHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.bin
deleted file mode 100644
index c4172a33..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.sci
deleted file mode 100755
index a87506d2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfparadata.sci
+++ /dev/null
@@ -1,81 +0,0 @@
-// 08.10.24
-// 08.10.25
-// 08.10.26
-// 08.10.27
-// 09.06.02
-// 09.12.31 (gsort)
-// 10.02.16
-
-function Out=Crvsfparadata(varargin)
- global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA
- Nargs=length(varargin);
- Sepflg=0;
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & Tmp<=0
- Sepflg=1;
- Nargs=Nargs-1;
- end;
- Fk=varargin(1);
- if Mixtype(Fk)==1
- FkL=Mix(Fk);
- else
- FkL=Fk;
- end;
- Fbdy=Projpara(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Out=[];
- CRVSFHIDDENDATA=[];
- for Nn=1:Mixlength(FkL)
- Fk=Mixop(Nn,FkL);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Sepflg==0
- for I=1:Numptcrv(Fk)-1
- Pa=Ptcrv(I,Fk);
- Pb=Ptcrv(I+1,Fk);
- PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); //
- for J=1:Mixlength(PtL)
- Tmp=Mixop(J,PtL);
- Tmp=Parapt(Tmp);
- Tmp1=ParamonCurve(Tmp,I,Projpara(Fk));
- Tmp2=min(abs(Par-Tmp1));
- if Tmp2*norm(Parapt(Pb-Pa))>Eps (1) //
- Par=[Par,Tmp1];
- end;
- end;
- Par=gsort(Par);
- Par=Par(length(Par):-1:1);
- end;
- end;
- Tmp1=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- Out=Mixjoin(Out,Tmp1);
- CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.bin
deleted file mode 100644
index 8efb0eb2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.sci
deleted file mode 100755
index 7e24efcb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Crvsfpersdata.sci
+++ /dev/null
@@ -1,80 +0,0 @@
-// 08.10.24
-// 08.10.25
-// 08.10.26
-// 08.10.27
-// 09.06.02
-// 09.12.31 (gsort)
-
-function Out=Crvsfpersdata(varargin)
- global PARTITIONPT HIDDENDATA CRVSFHIDDENDATA
- Nargs=length(varargin);
- Sepflg=0;
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & Tmp<=0
- Sepflg=1;
- Nargs=Nargs-1;
- end;
- Fk=varargin(1);
- if Mixtype(Fk)==1
- FkL=Mix(Fk);
- else
- FkL=Fk;
- end;
- Fbdy=Projpers(varargin(2));
- Fd=varargin(3); N=4;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N); N=N+1;
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N
- Eps=varargin(N);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=N+1
- Eps2=varargin(N+1);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Out=[];
- CRVSFHIDDENDATA=[];
- for Nn=1:Mixlength(FkL)
- Fk=Mixop(Nn,FkL);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Sepflg==0
- for I=1:Numptcrv(Fk)-1
- Pa=Ptcrv(I,Fk);
- Pb=Ptcrv(I+1,Fk);
- PtL=Meetpoints(Pa,Pb,Fd,1,Np,Eps(1)); //
- for J=1:Mixlength(PtL)
- Tmp=Mixop(J,PtL);
- Tmp=Perspt(Tmp);
- Tmp1=ParamonCurve(Tmp,I,Projpers(Fk));
- Tmp2=min(abs(Par-Tmp1));
- if Tmp2*norm(Perspt(Pb-Pa))>Eps(1) //
- Par=[Par,Tmp1];
- end;
- end;
- Par=gsort(Par);
- Par=Par(length(Par):-1:1);
- end;
- end;
- Tmp1=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- Out=Mixjoin(Out,Tmp1);
- CRVSFHIDDENDATA=Mixjoin(CRVSFHIDDENDATA,HIDDENDATA);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.bin
deleted file mode 100644
index 98b1a53c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.sci
deleted file mode 100755
index 8c2b6eee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.10
-
-function Out=CuspData()
- global CUSPDATA
- Out=CUSPDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.bin
deleted file mode 100644
index 8d097887..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.sci
deleted file mode 100755
index 33f1d807..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.10
-
-function Out=CuspPt()
- global CUSPPT
- Out=CUSPPT;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.bin
deleted file mode 100644
index a3855489..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.sci
deleted file mode 100755
index 07cbb09b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/CuspSplitPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.10
-
-function PL=CuspSplitPt()
- global CUSPSPLITPT
- PL=CUSPSPLITPT;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.bin
deleted file mode 100644
index ae85baa1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.sci
deleted file mode 100755
index 0ea935b6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpara.sci
+++ /dev/null
@@ -1,179 +0,0 @@
-// 08.09.10
-// 08.09.13
-// 08.09.15
-// 08.10.10
-// 10.02.16 Eps
-// 13.10.21 ( __ added to varibles )
-// 14.06.28 debug in the case of no cusp
-
-function OutkL__=Cuspsplitpara(varargin);
- global CUSPSPLITPT;
- Nargs__=length(varargin);
- Gdxy__=varargin(1);
- if Mixtype(Gdxy__)==1
- Gdxy__=Mix(Gdxy__);
- end;
- Fd__=varargin(2);
- FdL__=Fullformfunc(Fd__);
- Eps0__=10^(-5);
- Eps__=0.05;
- if Nargs__>2 Eps__=varargin(3); end;
- if length(Eps__)>1 //
- Eps__=Eps__(1);
- end; //
- Fxy__=Mixop(1,FdL__); N__=2;
- Tmp1__=Mixop(2,FdL__);
- Tmp2__=Mixop(3,FdL__);
- Tmp3__=Mixop(4,FdL__);
- Xyzstr__=[Tmp1__,Tmp2__,Tmp3__];
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- CUSPSPLITPT=[];
- OutkL__=[];
- for Ng__=1:Mixlength(Gdxy__)
- PtxyL__=Mixop(Ng__,Gdxy__);
- PtkL__=[];
- PthL__=[];
- for I__=1:size(PtxyL__,1)
- Tmp__=PtxyL__(I__,:);
- Tmp1__=Uname__+'='+string(Tmp__(1));
- execstr(Tmp1__);
- Tmp1__=Vname__+'='+string(Tmp__(2))
- execstr(Tmp1__);
- Tmp2__=evstr(Xyzstr__);
- Tmp3__=Parapt(Tmp2__);
- if I__==1
- PtkL__=[Tmp2__];
- PthL__=[Tmp3__];
- else
- Tmp4__=PthL__(size(PthL__,1),:);
- if norm(Tmp3__-Tmp4__)>Eps0__
- PtkL__=[PtkL__;Tmp2__];
- PthL__=[PthL__;Tmp3__]
- end;
- end;
- end;
- if size(PthL__,1)==0 then // from 20140628
- OutkL__=[];
- return;
- end; // upto 20140628
- Ps__=PthL__(1,:); Pe__=PthL__(size(PthL__,1),:);
- Cflg__=0;
- if norm(Ps__-Pe__)<Eps__ Cflg__=1; end;
- CuspL__=[];
- Cva__=cos(10*%pi/180);
- for I__=1:size(PthL__,1)-1
- if size(PthL__,1)==2 break; end;
- Tmp__=PthL__(I__,:);
- if I__==1
- if Cflg__==0 continue; end;
- Tmp1__=PthL__(size(PthL__,1)-1,:);
- else
- Tmp1__=PthL__(I__-1,:);
- end;
- Tmp2__=PthL__(I__+1,:);
- V1__=Tmp__-Tmp1__;
- V2__=Tmp2__-Tmp__;
- Tmp3__=V1__(1)*V2__(1)+V1__(2)*V2__(2);
- Tmp3__=Tmp3__/(norm(V1__)*norm(V2__));
- Cuspflg__=0;
- if Tmp3__<Cva__
- P__=PthL__(I__,:);
- Kaku__=acos(Tmp3__)*180/%pi;
- if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0
- Kaku__=-Kaku__
- end;
- Cuspflg__=0;
- for J__=I__+1:size(PthL__,1)-1
- if abs(Kaku__)>90
- Cuspflg__=1;
- break
- end;
- Q__=PthL__(J__,:);
- if norm(P__-Q__)>Eps__
- break
- end;
- V1__=Q__-PthL__(J__-1,:);
- V2__=PthL__(J__+1,:)-Q__;
- Tmp3__=V1__(1)*V2__(1)+V1__(2)*V2__(2);
- Tmp3__=Tmp3__/(norm(V1__)*norm(V2__));
- Tmp__=acos(Tmp3__)*180/%pi;
- if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0
- Tmp__=-Tmp__
- end;
- Kaku__=Kaku__+Tmp__
- end;
- if Cuspflg__==1
- Tmp__=Trunc((I__+J__)*0.5);
- I__=J__;
- if length(CuspL__)==0
- CuspL__=[Tmp__]
- else
- CuspL__=[CuspL__,Tmp__];
- end;
- end;
- end;
- end;
- if Cflg__==0
- CuspL__=[1,CuspL__,size(PthL__,1)];
- elseif length(CuspL__)==0
- CuspL__=[1,size(PthL__,1)];
- elseif CuspL__(1)==1
- CuspL__=[CuspL__,size(PthL__,1)];
- else
- Tmp__=CuspL__(1);
- Tmp1__=size(PthL__,1);
- PthL__=[PthL__(Tmp__:Tmp1__,:);PthL__(2:Tmp__,:)];
- PtkL__=[PtkL__(Tmp__:Tmp1__,:);PtkL__(2:Tmp__,:)];
- CuspL__=CuspL__-Tmp__+1;
- CuspL__=[CuspL__,size(PthL__,1)];
- end;
- if length(CuspL__)==2
- //Outh=[plot(PthL__)];
- Tmp4__=PthL__(size(PthL__,1),:);
- if size(PtkL__,1)>=2
- CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp4__);
- OutkL__=Mixadd(OutkL__,PtkL__);
- end;
- continue
- end;
- //Outh=[];
- Outk__=[];
- Is__=1;
- for I__=1:length(CuspL__)-1
- Tmp1__=CuspL__(Is__); Tmp2__=CuspL__(I__+1);
- Tmp3__=PthL__(Tmp1__,:); Tmp4__=PthL__(Tmp2__,:);
- if norm(Tmp3__-Tmp4__)>Eps__
- //Tmph__=[op(Tmp1__..Tmp2__,PthL__)];
- Tmpk__=PtkL__(Tmp1__:Tmp2__,:);
- //Outh=[op(Outh),plot(Tmph__)];
- Outk__=Mixadd(Outk__,Tmpk__);
- CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp4__);
- Is__=I__+1;
- end;
- end;
- OutkL__=Mixjoin(OutkL__,Outk__);
- end;
- Tmp1__=Dropnumlistcrv(Projpara(OutkL__),Eps__*0.5);
- Tmp__=[];
- for I__=1:Mixlength(OutkL__)
- Tmp2__=Mixop(I__,OutkL__);
- Tmp3__=Mixop(I__,Tmp1__);
- Tmp4__=[];
- for J__=1:length(Tmp3__)
- Tmp5__=Tmp2__(Tmp3__(J__),:);
- Tmp4__=[Tmp4__;Tmp5__];
- end;
- if Tmp4__~=[]
- Tmp__=Mixadd(Tmp__,Tmp4__);
- end;
- end;
- OutkL__=Tmp__;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.bin
deleted file mode 100644
index 4f20be30..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.sci
deleted file mode 100755
index a8221f5b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cuspsplitpers.sci
+++ /dev/null
@@ -1,176 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 10.02.16 Eps__
-// 13.11.01 ( __ added to varibles )
-// 14.06.28 debug in the case of no cusp
-
-function OutkL__=Cuspsplitpers(varargin);
- global CUSPSPLITPT;
- Nargs__=length(varargin);
- Gdxy__=varargin(1);
- if Mixtype(Gdxy__)==1
- Gdxy__=Mix(Gdxy__);
- end;
- Fd__=varargin(2);
- FdL__=Fullformfunc(Fd__);
- Eps__0=10^(-5);
- Eps__=0.05;
- if Nargs__>2 Eps__=varargin(3); end;
- if length(Eps__)>1 //
- Eps__=Eps__(1);
- end; //
- Fxy__=Mixop(1,FdL__); N=2;
- Tmp__1=Mixop(2,FdL__);
- Tmp__2=Mixop(3,FdL__);
- Tmp__3=Mixop(4,FdL__);
- Xyzstr__=[Tmp__1,Tmp__2,Tmp__3];
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- CUSPSPLITPT=[];
- OutkL__=[];
- for Ng__=1:Mixlength(Gdxy__)
- PtxyL__=Mixop(Ng__,Gdxy__);
- PtkL__=[];
- PthL__=[];
- for I__=1:size(PtxyL__,1)
- Tmp__=PtxyL__(I__,:);
- Tmp__1=Uname__+'='+string(Tmp__(1));
- execstr(Tmp__1);
- Tmp__1=Vname__+'='+string(Tmp__(2))
- execstr(Tmp__1);
- Tmp__2=evstr(Xyzstr__);
- Tmp__3=Perspt(Tmp__2);
- if I__==1
- PtkL__=[Tmp__2];
- PthL__=[Tmp__3];
- else
- Tmp__4=PthL__(size(PthL__,1),:);
- if norm(Tmp__3-Tmp__4)>Eps__0
- PtkL__=[PtkL__;Tmp__2];
- PthL__=[PthL__;Tmp__3]
- end;
- end;
- end;
- if size(PthL__,1)==0 then // from 20140628
- OutkL__=[];
- return;
- end; // upto 20140628
- Ps__=PthL__(1,:); Pe=PthL__(size(PthL__,1),:);
- Cflg__=0;
- if norm(Ps__-Pe)<Eps__ Cflg__=1; end;
- CuspL__=[];
- Cva__=cos(10*%pi/180);
- for I__=1:size(PthL__,1)-1
- if size(PthL__,1)==2 break; end;
- Tmp__=PthL__(I__,:);
- if I__==1
- if Cflg__==0 continue; end;
- Tmp__1=PthL__(size(PthL__,1)-1,:);
- else
- Tmp__1=PthL__(I__-1,:);
- end;
- Tmp__2=PthL__(I__+1,:);
- V1__=Tmp__-Tmp__1;
- V2__=Tmp__2-Tmp__;
- Tmp__3=V1__(1)*V2__(1)+V1__(2)*V2__(2);
- Tmp__3=Tmp__3/(norm(V1__)*norm(V2__));
- Cuspflg__=0;
- if Tmp__3<Cva__
- P__=PthL__(I__,:);
- Kaku__=acos(Tmp__3)*180/%pi;
- if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0
- Kaku__=-Kaku__
- end;
- Cuspflg__=0;
- for J__=I__+1:size(PthL__,1)-1
- if abs(Kaku__)>90
- Cuspflg__=1;
- break
- end;
- Q__=PthL__(J__,:);
- if norm(P__-Q__)>Eps__
- break
- end;
- V1__=Q__-PthL__(J__-1,:);
- V2__=PthL__(J__+1,:)-Q__;
- Tmp__3=V1__(1)*V2__(1)+V1__(2)*V2__(2);
- Tmp__3=Tmp__3/(norm(V1__)*norm(V2__));
- Tmp__=acos(Tmp__3)*180/%pi;
- if V1__(1)*V2__(2)-V1__(2)*V2__(1)<0
- Tmp__=-Tmp__
- end;
- Kaku__=Kaku__+Tmp__
- end;
- if Cuspflg__==1
- Tmp__=Trunc((I__+J__)*0.5);
- I__=J__;
- if length(CuspL__)==0
- CuspL__=[Tmp__]
- else
- CuspL__=[CuspL__,Tmp__];
- end;
- end;
- end;
- end;
- if Cflg__==0
- CuspL__=[1,CuspL__,size(PthL__,1)];
- elseif length(CuspL__)==0
- CuspL__=[1,size(PthL__,1)];
- elseif CuspL__(1)==1
- CuspL__=[CuspL__,size(PthL__,1)];
- else
- Tmp__=CuspL__(1);
- Tmp__1=size(PthL__,1);
- PthL__=[PthL__(Tmp__:Tmp__1,:);PthL__(2:Tmp__,:)];
- PtkL__=[PtkL__(Tmp__:Tmp__1,:);PtkL__(2:Tmp__,:)];
- CuspL__=CuspL__-Tmp__+1;
- CuspL__=[CuspL__,size(PthL__,1)];
- end;
- if length(CuspL__)==2
- //Outh__=[plot(PthL__)];
- Tmp__4=PthL__(size(PthL__,1),:);
- if size(PtkL__,1)>=2
- CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp__4);
- OutkL__=Mixadd(OutkL__,PtkL__);
- end;
- continue
- end;
- //Outh__=[];
- Outk__=[];
- Is__=1;
- for I__=1:length(CuspL__)-1
- Tmp__1=CuspL__(Is__); Tmp__2=CuspL__(I__+1);
- Tmp__3=PthL__(Tmp__1,:); Tmp__4=PthL__(Tmp__2,:);
- if norm(Tmp__3-Tmp__4)>Eps__
- //Tmp__h=[op(Tmp__1..Tmp__2,PthL__)];
- Tmp__k=PtkL__(Tmp__1:Tmp__2,:);
- //Outh__=[op(Outh__),plot(Tmp__h)];
- Outk__=Mixadd(Outk__,Tmp__k);
- CUSPSPLITPT=Mixadd(CUSPSPLITPT,Tmp__4);
- Is__=I__+1;
- end;
- end;
- OutkL__=Mixjoin(OutkL__,Outk__);
- end;
- Tmp__1=Dropnumlistcrv(Projpers(OutkL__),Eps__*0.5);
- Tmp__=[];
- for I__=1:Mixlength(OutkL__)
- Tmp__2=Mixop(I__,OutkL__);
- Tmp__3=Mixop(I__,Tmp__1);
- Tmp__4=[];
- for J__=1:length(Tmp__3)
- Tmp__5=Tmp__2(Tmp__3(J__),:);
- Tmp__4=[Tmp__4;Tmp__5];
- end;
- if Tmp__4~=[]
- Tmp__=Mixadd(Tmp__,Tmp__4);
- end;
- end;
- OutkL__=Tmp__;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.bin
deleted file mode 100644
index 48b89428..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.sci
deleted file mode 100755
index fa26b319..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Cutsf2d.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.10.15
-
-function Out=Cutsf2d(Nvec,GL,Flg)
- global THETA PHI
- Theta=THETA; Phi=PHI;
- Tmp=Rotate3data(GL,Nvec,[-1,0,0]);
- THETA=%pi/2; PHI=0;
- Out=Projpara(Tmp);
- if Flg==1
- Windisp(Out);
- end;
- THETA=Theta; PHI=Phi;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.bin
deleted file mode 100644
index b20f8311..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.sci
deleted file mode 100644
index 1df8e5e3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dashline.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// 08.05.21
-// 08.07.14
-// 10.01.02 bin remade
-// 10.11.13 Flattenlist used
-
-function Dashline(varargin)
- global MilliIn
- Nargs=length(varargin);
- Nall=Nargs; Sen=1 ; Gap=1;
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1 & Tmp>0
- Tmp1=varargin(Nall-1);
- if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0
- Sen=Tmp1; Gap=Tmp;
- Nall=Nall-2;
- else
- Sen=Tmp; Gap=Sen;
- Nall=Nall-1;
- end
- end
- Sen=1000/2.54/MilliIn*Sen;
- Gap=1000/2.54/MilliIn*Gap;
- for N=1:Nall
- Tmp=varargin(N);
- Fdata=Flattenlist(Tmp);
- for I=1:length(Fdata);
- Figdata=Fdata(I);
- Makehasen(Figdata,Sen,Gap,0);
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.bin
deleted file mode 100644
index fc463260..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.sci
deleted file mode 100755
index 82e9ac48..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dataindex.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-//
-// 08.05.31
-
-function Ndm=Dataindex(P)
- // %inf;%inf -> end
- Ndm=[];
- if P==[] return; end
- N1=1;
- Flg=0;
- for J=1:size(P,1)
- if P(J,1)==%inf
- Ndm=[Ndm;N1,J-1];
- N1=J+1;
- if P(N1,1)==%inf
- Flg=1;
- break;
- end
- end
- end
- if Flg==0
- Ndm=[Ndm;N1,size(P,1)];
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.bin
deleted file mode 100644
index 5069d551..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.sci
deleted file mode 100644
index b06ac44b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Definecolor.sci
+++ /dev/null
@@ -1,23 +0,0 @@
-// 15.05.04
-
-function Definecolor(Name,Data)
- Tmp1=size(Data,2);
- if Tmp1<3 | Tmp1>4
- disp("Size of data should be 3 or 4.");
- return;
- end;
- if Tmp1==4
- Tp="cmyk"
- else
- Tp="rgb"
- end;
- Tmp="";
- for J=1:Tmp1
- Tmp=Tmp+string(Data(J));
- if J<Tmp1
- Tmp=Tmp+",";
- end;
- end
- Tmp="\definecolor{"+Name+"}{"+Tp+"}{"+Tmp+"}";
- Texcom(Tmp);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.bin
deleted file mode 100644
index 1935267f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.sci
deleted file mode 100755
index 43d8ea6e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Deqplot.sci
+++ /dev/null
@@ -1,195 +0,0 @@
-
-// 08.09.22
-// 09.03.10
-// 09.10.09 ( ` and order )
-// 09.10.09b ( system )
-// 09.11.12 ( debug for x<0 )
-// 13.10.19 ( __ added to variables )
-// 15.11.16 N changed to number of intervals
-// 15.12.08 bug of optiion ( __ ) fixed
-
-function P__=Deqplot(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs__=length(varargin);
- Eps__=10^(-5);
- Fnstr__=varargin(1);
- Fnstr__=strsubst(Fnstr__,Prime(),'`');
- K__=mtlb_findstr(Fnstr__,'=');
- Str__=part(Fnstr__,1:(K__-1));
- Fnstr__=part(Fnstr__,(K__+1):length(Fnstr__));
- JL__=mtlb_findstr(Str__,'`');
- Yname__=part(Str__,1:(JL__(1)-1));
- Yname__=strsubst(Yname__,',',';');
- Tmp__=mtlb_findstr(Yname__,';');
- if length(Tmp__)>0
- Dim__=length(Tmp__)+1;
- Order__=1;
- Fnstr__=strsubst(Fnstr__,',',';');
- else
- Dim__=1;
- Order__=length(JL__);
- end;
- Rgstr__=varargin(2);
- K__=mtlb_findstr(Rgstr__,'=');
- if K__~=[]
- Xname__=part(Rgstr__,1:K__-1);
- Rng__=evstr(part(Rgstr__,K__+1:length(Rgstr__)));
- else
- Xname__=Rgstr__;
- Rng__=[XMIN,XMAX];
- end;
- X0__=varargin(3);
- Y0__=varargin(4);
- if size(Y0__,2)>1
- Y0__=Y0__';
- end;
- N__=50;
- if Nargs__>=5
- Tmp__=varargin(5);
- Tmp__=strsubst(Tmp__,"=","__="); // 15.12.08
- Tmp__=strsubst(Tmp__,"____","__");
- execstr(Tmp__);
- end;
- X1__=Rng__(1); X2__=Rng__(2);
- dX__=(X2__-X1__)/(N__-1);
- dX__=(X2__-X1__)/(N__); // 15.11.16
- if Dim__>1
- Tmp__=mtlb_findstr(Yname__,'[');
- Data__=part(Yname__,Tmp__+1:length(Yname__));
- Tmp__=mtlb_findstr(Data__,']');
- Data__=part(Data__,1:Tmp__-1);
- Data__=';'+Data__+';';
- NL__=mtlb_findstr(Data__,';');
- NameL__=list();
- for I__=1:length(NL__)-1
- Tmp__=part(Data__,NL__(I__)+1:NL__(I__+1)-1);
- NameL__(I__)=Tmp__;
- end;
- Fnrep__=Fnstr__;
- for I__=1:length(NameL__)
- Tmp__=NameL__(I__);
- Fnrep__=strsubst(Fnrep__,Tmp__,'Pt('+string(I__)+')');
- end;
- Tmp1__='Outf=Dfp__('+Xname__+',Pt)';
- Tmp2__='Outf='+Fnrep__;
- deff(Tmp1__,Tmp2__);
- Y0p__=Y0__;
- Tmp1__='Outf=Dfn__('+Xname__+',Pt)';
- Tmp2__='Outf=-('+Fnrep__+')';
- deff(Tmp1__,Tmp2__);
- Y0n__=Y0__;
- else
- YL__=mtlb_findstr(Fnstr__,Yname__);
- Fnrep__=part(Fnstr__,1:YL__(1)-1);
- for I__=1:length(YL__)
- Py__=YL__(I__);
- J__=1;
- K__=Py__+1;
- while part(Fnstr__,K__:K__)=='`'
- J__=J__+1; K__=K__+1;
- end;
- Fnrep__=Fnrep__+Yname__+'('+string(J__)+')';
- if I__==length(YL__)
- Fnrep__=Fnrep__+part(Fnstr__,K__:length(Fnstr__));
- else
- J__=YL__(I__+1)-1;
- if J__>=K__
- Fnrep__=Fnrep__+part(Fnstr__,K__:J__);
- end;
- end;
- end;
- Eqvec__='[';
- for I__=1:Order__-1
- Eqvec__=Eqvec__+Yname__+'('+string(I__+1)+');';
- end;
- Eqvec__=Eqvec__+Fnrep__+']';
- Tmp1__='Outf=Dfp__('+Xname__+','+Yname__+')';
- Tmp2__='Outf='+Eqvec__;
- deff(Tmp1__,Tmp2__);
- Y0p__=Y0__;
- YL__=mtlb_findstr(Fnstr__,Yname__);
- Fnrep__=part(Fnstr__,1:YL__(1)-1);
- for I__=1:length(YL__)
- Py__=YL__(I__);
- J__=1;
- K__=Py__+1;
- while part(Fnstr__,K__:K__)=='`'
- J__=J__+1; K__=K__+1;
- end;
- if modulo(J__,2)==1
- Fnrep__=Fnrep__+Yname__+'('+string(J__)+')';
- else
- Fnrep__=Fnrep__+'(-'+Yname__+'('+string(J__)+'))';
- end;
- if I__==length(YL__)
- Fnrep__=Fnrep__+part(Fnstr__,K__:length(Fnstr__));
- else
- J__=YL__(I__+1)-1;
- if J__>=K__
- Fnrep__=Fnrep__+part(Fnstr__,K__:J__);
- end;
- end;
- end;
- if modulo(Order__,2)==1
- Fnrep__='-('+Fnrep__+')';
- end;
- Fnrep__=strsubst(Fnrep__,Xname__,'(-'+Xname__+')'); // 09.11.12
- Eqvec__='[';
- for I__=1:Order__-1
- Eqvec__=Eqvec__+Yname__+'('+string(I__+1)+');';
- end;
- Eqvec__=Eqvec__+Fnrep__+']';
- Tmp1__='Outf=Dfn__('+Xname__+','+Yname__+')';
- Tmp2__='Outf='+Eqvec__;
- deff(Tmp1__,Tmp2__);
- Y0n__=[];
- for I__=1:size(Y0__,1)
- Y0n__=[Y0n__;(-1)^(I__-1)*Y0__(I__)];
- end;
- end;
- if X0__<=X1__
- X__=X1__:dX__:X2__;
- Y__=ode(Y0p__,X0__,X__,Dfp__);
- M__=min(size(X__,2),size(Y__,2));
- if Dim__>1
- PL__=Y__';
- P__=PL__(1:M__,:);
- else
- P__=[X__(:,1:M__);Y__(1,1:M__)]';
- end;
- return;
- end;
- if X2__<=X0__
- X__=(-X2__):dX__:(-X1__);
- Y__=ode(Y0n__,-X0__,X__,Dfn__);
- X__=-X__;
- M__=min(size(X__,2),size(Y__,2));
- if Dim__>1
- PL__=Y__';
- P__=PL__(1:M__,:);
- else
- P__=[X__(:,1:M__);Y__(1,1:M__)]';
- end;
- return;
- end;
- XP__=X0__:dX__:X2__;
- YP__=ode(Y0p__,X0__,XP__,Dfp__);
- M__=min(size(XP__,2),size(YP__,2));
- XP__=XP__(:,1:M__);
- YP__=YP__(:,1:M__);
- XN__=(-X0__)+dX__:dX__:(-X1__);
- YN__=ode(Y0n__,-X0__,XN__,Dfn__);
- M__=min(size(XN__,2),size(YN__,2));
- XN__=XN__(:,1:M__);
- YN__=YN__(:,1:M__);
- XN__=-XN__;
- XN__=XN__(length(XN__):-1:1);
- YN__=YN__(:,size(YN__,2):-1:1);
- if Dim__>1
- P__=[YN__';YP__']
- else
- X__=[XN__,XP__];
- Y__=[YN__(1,:),YP__(1,:)];
- P__=[X__;Y__]';
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.bin
deleted file mode 100644
index b4f3edb7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.sci
deleted file mode 100755
index cbffc3d7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Derivative.sci
+++ /dev/null
@@ -1,64 +0,0 @@
-// 09.10.04
-// 09.10.05
-// 09.10.06
-// 14.10.24 numderivative used after 5.5
-
-function Out=Derivative(varargin)
- Nargs=length(varargin);
- Out=[];
- Fs=varargin(1);
- Vv=varargin(2);
- Np=3;
- if type(Vv)==10
- Prstr=strsubst(Vv,'[','(');
- Prstr=strsubst(Prstr,']',')');
- Tmp=part(Prstr,1);
- if Tmp~='('
- Prstr='('+Prstr+')';
- end;
- deff('Out=Tmpfun'+Prstr,'Out='+Fs);
- Fs='Tmpfun'+Prstr;
- Vv=varargin(Np);
- Np=Np+1;
- end;
- Nd=[];
- if Np<=Nargs
- Nd=varargin(Np);
- end;
- Js=mtlb_findstr(Fs,'(');
- JL=mtlb_findstr(Fs,',');
- Je=mtlb_findstr(Fs,')');
- Sep=[Js(1),JL,Je];
- Fse=Fs;
- for I=1:length(Vv)
- J1=Sep(I)+1;
- J2=Sep(I+1)-1;
- Tmp1=part(Fs,J1:J2);
- Tmp2='X_'+string(I);
- Fse=strsubst(Fse,Tmp1,Tmp2);
- end;
- function Ans=Tmpf(W)
- X1=W(1);
- if length(W)>1
- X2=W(2);
- else;
- X2=%inf;
- end;
- if length(W)>2
- X3=W(3);
- else
- X3=%inf;
- end;
- Tmp=Assign(Fse,'X_1',X1,'X_2',X2,'X_3',X3);
- Ans=evstr(Tmp)';
- endfunction;
- Tmp1=getversion("scilab");
- if Tmp1(1)*10+Tmp1(2)>=55 then
- Out=numderivative(Tmpf,Vv')';
- else
- Out=derivative(Tmpf,Vv')';
- end
- if Nd~=[]
- Out=Out(Nd,:)
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.bin
deleted file mode 100644
index 8854f5a7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci
deleted file mode 100644
index b6a53b62..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Diagcelldata.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 10.03.28
-
-function Out=Diagcelldata(Tb,Nc,Nr)
- Tmp=Findcell(Tb,Nc,Nr);
- C=Tmp(1);
- Dx=Tmp(2);
- Dy=Tmp(3);
- Pne=C+[Dx,Dy];
- Pnw=C+[-Dx,Dy];
- Psw=C+[-Dx,-Dy];
- Pse=C+[Dx,-Dy];
- Tmp1=Listplot(Pnw,Pse);
- Tmp2=Listplot(Pne,Psw);
- Out=list(Tmp1,Tmp2);
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.bin
deleted file mode 100644
index 91415a88..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.sci
deleted file mode 100755
index be16b473..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividegraphics.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 08.05.31
-// 10.01.01
-// 11.01.07
-
-function OutL=Dividegraphics(Pd)
- if length(Pd)==0
- OutL=Pd;
- return;
- end;
- DtL=Flattenlist(Pd);
- OutL=list();
- for J=1:length(DtL)
- Dt= DtL(J);
- Ndm=Dataindex(Dt);
- for I=1:size(Ndm,1)
- Fd=Dt(Ndm(I,1):Ndm(I,2),:);
- OutL($+1)=Fd;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.bin
deleted file mode 100644
index 7b1b6ff3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.sci
deleted file mode 100644
index 36531da2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dividetable.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// 13.05.03
-
-function Out=Dividetable(Tb)
- G=Tb(1);
- Gw=G(1);
- Gt=Mixsub(Tb(2),G);
- Gy=Mixsub(Tb(3),G);
- Out=list(Gw,Gt,Gy)
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.bin
deleted file mode 100644
index c7f08dda..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.sci
deleted file mode 100755
index 5054faf2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Doscaling.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 09.12.25
-
-function Out=Doscaling(G)
- global LOGX LOGY SCALEX SCALEY;
- GLg=G;
- if LOGX==1
- GLg=[log10(G(:,1)),GLg(:,2)];
- end;
- if LOGY==1
- GLg=[GLg(:,1),log10(G(:,2))];
- end;
- Out=[SCALEX*GLg(:,1),SCALEY*GLg(:,2)];
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.bin
deleted file mode 100644
index 489764ae..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.sci
deleted file mode 100755
index fc2847c7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotfilldata.sci
+++ /dev/null
@@ -1,186 +0,0 @@
-// 08.05.31
-// 10.01.01
-// 10.03.07 (Kosa )
-
-function ShaL=Dotfilldata(varargin)
- global XMIN XMAX YMIN YMAX MilliIn;
- Nargs=length(varargin);
- ShaL=[];
- Eps=0.01;
- Kakudo=45;
- Kosa=0.5;
- Tmp=Doscaling([XMIN,YMIN]);
- Xmn=Tmp(1); Ymn=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- Xmx=Tmp(1); Ymx=Tmp(2);
- for N=Nargs:-1:1
- Tmp=varargin(N);
- if Mixtype(Tmp)~=1
- break
- end
- end
- if N<Nargs
- Kosa=varargin(N+1);
- end
-// Kosa=min(Kosa,1); // 100307
- Tmp=1/(2*Kosa);
- Kankaku=Tmp*0.100*1000/2.54/MilliIn;
- NaitenL=varargin(1);
- if Mixtype(NaitenL)==1
- NaitenL=list(NaitenL);
- end
- Ns=2;
- StartP=Op(1,NaitenL);
- if type(StartP)==10
- StartP=[(XMIN+XMAX)/2,(YMIN+YMAX)/2];
- else
- StartP=Doscaling(StartP);
- end;
- Tmp=varargin(2);
- if Mixtype(Tmp)==1
- StartP=Doscaling(Tmp);
- Ns=3;
- end
- Tmp=[];
- for I=Ns:N
- Tmp=Mixjoin(Tmp,list(varargin(I)));
- end
- Bdy=Kyoukai(Tmp);
- Bdys=list();
- for I=1:length(Bdy)
- Tmp1=Bdy(I);
- Tmp2=Doscaling(Tmp1);
- Bdys=Mixjoin(Bdys,list(Tmp2))
- end;
- Bdy=Bdys;
- PtnL=[];
- for I=1:length(NaitenL)
- Tmp=Op(I,NaitenL);
- if type(Tmp)==1
- Tmp1=Naigai(Tmp,Bdy)
- PtnL=Mixjoin(PtnL,list(Tmp1));
- else
- if type(Tmp)~=10
- disp('Type Error');
- return;
- end
- Ptn=[];
- for J=1:length(Tmp)
- if Op(J,Tmp)=='i'
- Ptn=[Ptn,1];
- else
- Ptn=[Ptn,0];
- end
- end
- PtnL=Mixjoin(PtnL,list(Ptn));
- end
- end
- Call=length(Bdy);
- Ptn=zeros(1,Call);
- if Member(Ptn,PtnL)
- Wn=Doscaling(Framedata());
- Bdy=Mixjoin(Bdy,list(Wn));
- Tmp=[];
- for I=1:Mixlength(PtnL)
- Tmp1=[Op(I,PtnL),1];
- Tmp=Mixjoin(Tmp,list(Tmp1));
- end
- PtnL=Tmp;
- end
- V=[cos(Kakudo*%pi/180),sin(Kakudo*%pi/180)];
- Vm=[-sin(Kakudo*%pi/180),cos(Kakudo*%pi/180)];
- Tmp=Op(1,NaitenL);
- if type(Tmp)==1 & size(Tmp,2)>1
- Delta=Tmp-StartP;
- K=Trunc(Dotprod(Delta,Vm)/Kankaku);
- PA=StartP+K*Kankaku*Vm;
- P=PA;
- Sha=Makeshasen(PtnL,P,V,Bdy);
- Sha=Dividegraphics(Sha);
- I=1;
- while length(Sha)~=0
- for J=1:length(Sha)
- Tmp=Op(J,Sha);
- Q=Tmp(1,:);
- R=Tmp(2,:);
- Tmp=Dotprod(Q-P,V)/Kankaku;
- K1=ceil(Tmp);
- if abs(K1-Tmp)<Eps K1=K1+1; end
- Tmp=Dotprod(R-P,V)/Kankaku;
- K2=floor(Tmp);
- if abs(Tmp-K2)<Eps K2=K2-1; end
- for K=K1:K2
- Tmp1=Pointdata(P+K*Kankaku*V)
- ShaL=Mixjoin(ShaL,list(Tmp1));
- end
- end
- P=PA+I*Kankaku*Vm;
- Sha=Makeshasen(PtnL,P,V,Bdy);
- Sha=Dividegraphics(Sha);
- I=I+1;
- end
- P=PA-Kankaku*Vm;
- Sha=Makeshasen(PtnL,P,V,Bdy);
- I=2;
- while length(Sha)~=0
- for J=1:length(Sha)
- Tmp=Op(J,Sha);
- Q=Tmp(1,:);
- R=Tmp(2,:);
- Tmp=Dotprod(Q-P,V)/Kankaku;
- K1=ceil(Tmp);
- if abs(K1-Tmp)<Eps K1=K1+1; end
- Tmp=Dotprod(R-P,V)/Kankaku;
- K2=floor(Tmp);
- if abs(Tmp-K2)<Eps K2=K2-1; end
- for K=K1:K2
- Tmp1=Pointdata(P+K*Kankaku*V)
- ShaL=Mixjoin(ShaL,list(Tmp1));
- end
- end
- P=PA-I*Kankaku*Vm;
- Sha=Makeshasen(PtnL,P,V,Bdy);
- I=I+1;
- end
- else
- Delta=[Xmn,Ymn]-StartP;
- K1=Trunc(Dotprod(Delta,Vm)/Kankaku);
- Delta=[Xmx,Ymn]-StartP;
- K2=Trunc(Dotprod(Delta,Vm)/Kankaku);
- Delta=[Xmx,Ymx]-StartP;
- K3=Trunc(Dotprod(Delta,Vm)/Kankaku);
- Delta=[Xmn,Ymx]-StartP;
- K4=Trunc(Dotprod(Delta,Vm)/Kankaku);
- IM=max(K1,K2,K3,K4);
- Im=min(K1,K2,K3,K4);
- for I=Im:IM
- P=StartP+I*Kankaku*Vm;
- Sha=Makeshasen(PtnL,P,V,Bdy);
- Sha=Dividegraphics(Sha);
- if length(Sha)>0
- for J=1:length(Sha)
- Tmp=Op(J,Sha);
- Q=Tmp(1,:);
- R=Tmp(2,:);
- Tmp=Dotprod(Q-P,V)/Kankaku;
- K1=ceil(Tmp);
- if abs(K1-Tmp)<Eps K1=K1+1; end
- Tmp=Dotprod(R-P,V)/Kankaku;
- K2=floor(Tmp);
- if abs(Tmp-K2)<Eps K2=K2-1; end
- for K=K1:K2
- Tmp1=Pointdata(P+K*Kankaku*V)
- ShaL=Mixjoin(ShaL,list(Tmp1));
- end
- end
- end
- end
- end
- ShaLs=list();
- for I=1:length(ShaL)
- Tmp=ShaL(I);
- Tmp1=Unscaling(Tmp);
- ShaLs=Mixjoin(ShaLs,Tmp1);
- end;
- ShaL=ShaLs
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.bin
deleted file mode 100644
index fe44d95c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.sci
deleted file mode 100755
index dc35fde5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dotprod.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 09.10.03
-
-function Out=Dotprod(a,b)
- Out=a*b';
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.bin
deleted file mode 100644
index a678c346..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.sci
deleted file mode 100755
index 7e4ea8a1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedline.sci
+++ /dev/null
@@ -1,133 +0,0 @@
-// 08.05.21
-// 08.11.26
-// 09.12.24 (Revised)
-// 09.12.29
-// 10.01.02
-
-function Dottedline(varargin)
- global Wfile FID MilliIn PenThick PenThickInit
- Nall=length(varargin);
- Nagasa=0.1;
- Ookisa=PenThick;
- I=Nall;
- Tmp=varargin(I);
- while type(Tmp)==1 & length(Tmp)==1
- I=I-1;
- Tmp=varargin(I);
- end
- if I==Nall-1
- Nagasa=Nagasa*varargin(Nall);
- Nall=Nall-1;
- end
- if I==Nall-2
- Nagasa=Nagasa*varargin(Nall-1);
- Ookisa=round(Ookisa*varargin(Nall));
- Nall=Nall-2;
- end
- Nagasa=1000/2.54/MilliIn*Nagasa;
- for N=1:Nall
- Tmp=varargin(N);
- Pdata=Flattenlist(Tmp); //
- for II=1:Mixlength(Pdata)
- Clist=MakeCurves(Op(II,Pdata));
- DinM=Dataindex(Clist);
- for n=1:size(DinM,1)
- Tmp=DinM(n,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Len=0;
- Lenlist=[0];
- for I=2:size(Data,1)
- Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:));
- Lenlist=[Lenlist,Len];
- end
- Lenall=Lenlist(length(Lenlist));
- if Lenall==0
- continue
- end
- Naga=Nagasa;
- Nten=round(Lenall/Naga)+1;
- if Nten>1
- Seg=Lenall/(Nten-1);
- else
- Seg=Lenall;
- end
- Eps=10^(-6)*Seg;
- PPd=[];
- Hajime=1;
- for I=0:Nten-1
- Len=Seg*I;
- if I>0
- J=Hajime;
- while Len>=Lenlist(J)+Eps
- J=J+1;
- end
- Hajime=J-1;
- end
- T=(Len-Lenlist(Hajime))...
- /(Lenlist(Hajime+1)-Lenlist(Hajime));
- P=Data(Hajime,:)+T*(Data(Hajime+1,:)...
- -Data(Hajime,:));
- PPd=[PPd;P];
- if I==Nten-1
- if norm(P-Data(1,:))<Eps
- continue
- end
- end
- end
- Str='\special{pn '+string(Ookisa)+'}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
- for I=1:size(PPd,1)
- P=PPd(I,:);
- if size(PPd,1)==1
- V=[1,0];
- elseif I==1
- Tmp=PPd(I+1,:)-P;
- V=1/norm(Tmp)*Tmp;
- elseif I==size(PPd,1)
- Tmp= P-PPd(I-1,:);
- V=1/norm(Tmp)*Tmp;
- else
- Tmp1=PPd(I+1,:)-P;
- Tmp2=P-PPd(I-1,:);
- Tmp3=1/norm(Tmp1)*Tmp1+1/norm(Tmp2)*Tmp2;
- V=1/norm(Tmp3)*Tmp3;
- end;
- Tmp=round(MilliIn*P(1)-1/2*Ookisa*V(1));
- X=string(Tmp);
- Tmp=-round(MilliIn*P(2)-1/2*Ookisa*V(2));
- Y=string(Tmp);
- Str='\special{pa '+X+' '+Y+'}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Tmp=round(MilliIn*P(1)+1/2*Ookisa*V(1));
- X=string(Tmp);
- Tmp=-round(MilliIn*P(2)+1/2*Ookisa*V(2));
- Y=string(Tmp);
- Str='\special{pa '+X+' '+Y+'}';
- if Wfile=='default'
- mprintf('%s',Str);
- mprintf('%s','\special{fp}');
- if modulo(I,2)==0
- mprintf('%s\n','%');
- end;
- else
- mfprintf(FID,'%s',Str);
- mfprintf(FID,'%s','\special{fp}');
- if modulo(I,2)==0
- mfprintf(FID,'%s\n','%');
- end;
- end
- end
- end
- end;
- end;
- Tmp=PenThick/PenThickInit;
- Setpen(Tmp);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.bin
deleted file mode 100644
index 5871fcc7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.sci
deleted file mode 100755
index c4d9b86a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dottedlineold.sci
+++ /dev/null
@@ -1,115 +0,0 @@
-// 08.05.21
-// 08.11.26
-
-function Dottedline(varargin)
- global Wfile FID MilliIn;
- Nall=length(varargin);
- Nagasa=0.1;
- Ookisa=0.02*0.5;
- I=Nall;
- Tmp=varargin(I);
- while type(Tmp)==1 & length(Tmp)==1
- I=I-1;
- Tmp=varargin(I);
- end
- if I==Nall-1
- Nagasa=Nagasa*varargin(Nall);
- Nall=Nall-1;
- end
- if I==Nall-2
- Nagasa=Nagasa*varargin(Nall-1);
- Ookisa=Ookisa*varargin(Nall);
- Nall=Nall-2;
- end
- Nagasa=1000/2.54/MilliIn*Nagasa;
- Ookisa=1000/2.54/MilliIn*Ookisa;
- CL=[];
- Nk=4;
- Tmp=Framedata([0,0],Ookisa/2);
- CL=Tmp;
- for N=1:Nall
- Pdata=varargin(N);
- if Mixtype(Pdata)==1
- Pdata=MixS(Pdata);
- end
- for II=1:Mixlength(Pdata)
- Clist=MakeCurves(Op(II,Pdata));
- DinM=Dataindex(Clist);
- for n=1:size(DinM,1)
- Tmp=DinM(n,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Len=0;
- Lenlist=[0];
- for I=2:size(Data,1)
- Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:));
- Lenlist=[Lenlist,Len];
- end
- Lenall=Lenlist(length(Lenlist));
- if Lenall==0
- continue
- end
- Naga=Nagasa;
- Nten=round(Lenall/Naga)+1;
- if Nten>1
- Seg=Lenall/(Nten-1);
- else
- Seg=Lenall;
- end
- Eps=10^(-6)*Seg;
- Hajime=1;
- for I=0:Nten-1
- Len=Seg*I;
- if I>0
- J=Hajime;
- while Len>=Lenlist(J)+Eps
- J=J+1;
- end
- Hajime=J-1;
- end
- T=(Len-Lenlist(Hajime))...
- /(Lenlist(Hajime+1)-Lenlist(Hajime));
- P=Data(Hajime,:)+T*(Data(Hajime+1,:)...
- -Data(Hajime,:));
- if I==Nten-1
- if Vecnagasa(P-Data(1,:))<Eps
- continue
- end
- end
- PL=[];
- for J=1:size(CL,1)
- PL=[PL;P+CL(J,:)];
- end
- Mojisu=0;
- for J=1:size(PL,1)
- Q=PL(J,:);
- X=round(MilliIn*Q(1));
- X=string(X);
- Y=-round(MilliIn*Q(2));
- Y=string(Y);
- Str='\special{pa '+X+" "+Y+'}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end
- Mojisu=0;
- end
- end
- Str='\special{sh 1}'+'\special{fp}%'
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
- end
- end
- end
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.bin
deleted file mode 100644
index 9777c32b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.sci
deleted file mode 100755
index 3a06be00..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Dropnumlistcrv.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 08.09.10
-// 08.09.15
-// 08.10.10
-// 10.09.03
-
-function OutL=Dropnumlistcrv(QdL,Eps)
- Eps0=10^(-6); //
- if Mixtype(QdL)==1
- PdL=list(QdL);
- else
- PdL=QdL;
- end;
- OutL=[];
- for I=1:Mixlength(PdL)
- Pd=Op(I,PdL);
- PtL=[1];
- P=Pd(1,:);
- for K=2:size(Pd,1)-1 //
- if norm(P-Pd(K,:))>Eps
- PtL=[PtL,K];
- P=Pd(K,:);
- end;
- end;
- // PtL=[PtL,size(Pd,1)];
- K=size(Pd,1) //
- if norm(P-Pd(K,:))>Eps0 //
- PtL=[PtL,K]; //
- end; //
- if length(PtL)==1
- PtL=[];
- end;
- OutL=Mixadd(OutL,PtL);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.bin
deleted file mode 100644
index cf57e835..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.sci
deleted file mode 100755
index 84fd6daa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Droppoint.sci
+++ /dev/null
@@ -1,28 +0,0 @@
-// 08.10.07
-// 08.10.27
-// 09.06.02
-
-function AnsL=Droppoint(varargin)
- Nargs=length(varargin);
- Curve=varargin(1);
- Eps=0.02;
- if Nargs>=2
- Eps=varargin(2);
- end;
- AnsL=[%inf,%inf];
- for I=1:size(Curve,1)
- P=Curve(I,:);
- if P(1)~=%inf
- Tmp=AnsL(size(AnsL,1),:);
- if norm(P-Tmp)>Eps
- AnsL=[AnsL;P];
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
- AnsL=AnsL(2:size(AnsL,1),:);
- Tmp=Ptend(Curve);
- AnsL=[AnsL(1:size(AnsL,1)-1,:);Tmp];
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.bin
deleted file mode 100644
index 071b7070..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.sci
deleted file mode 100755
index 2ec407ec..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwline.sci
+++ /dev/null
@@ -1,71 +0,0 @@
-// 08.05.21
-
-function Drwline(varargin)
- global Wfile FID MilliIn PenThick PenThickInit;
- Nall=length(varargin);
- Thick=0;
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1
- Thick=round(varargin(Nall)*PenThickInit);
- Str='\special{pn '+string(Thick)+'}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
- Nall=Nall-1;
- end
- for N=1:Nall
- Tmp=varargin(N);
- Pdata=Flattenlist(Tmp);
- for II=1:length(Pdata)
- Clist=MakeCurves(Op(II,Pdata));
- DinM=Dataindex(Clist);
- for n=1:size(DinM,1)
- Tmp=DinM(n,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Mojisu=0;
- for I=1:size(Data,1)
- Tmp=Data(I,:);
- X=round(MilliIn*Tmp(1));
- X=string(X);
- Y=-round(MilliIn*Tmp(2));
- Y=string(Y);
- Str='\special{pa '+X+" "+Y+'}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%c\n','%');
- else
- mfprintf(FID,'%c\n','%');
- end
- Mojisu=0;
- end
- end
- if Mojisu~=0
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end;
- if Wfile=='default'
- mprintf('%s\n','\special{fp}%');
- else
- mfprintf(FID,'%s\n','\special{fp}%');
- end
- end
- end
- end;
- Str='%';
- if Thick>0
- Tmp=PenThick/PenThickInit; // modified
- Setpen(Tmp);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.bin
deleted file mode 100644
index 198c0c88..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.sci
deleted file mode 100755
index 5cb45c6f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwpt.sci
+++ /dev/null
@@ -1,75 +0,0 @@
-//
-// 08.05.31
-// 09.12.25
-// 10.01.01
-
-function Drwpt(varargin)
- global Wfile FID TenSize TenSizeInit MilliIn;
- Nargs=length(varargin);
- if TenSize>TenSizeInit
- N=round(6*sqrt(TenSize/TenSizeInit));
- else
- N=4
- end
- Tmp=varargin(Nargs);
- if type(Tmp)==1
- if length(Tmp)>1
- Kosa=1; All=Nargs;
- else
- Kosa=Tmp; All=Nargs-1;
- end;
- elseif type(Tmp)==15
- Kosa=1; All=Nargs;
- end;
- CL=[];
- for J=0:N
- Tmp=TenSize*0.5*1000/2.54/MilliIn;
- Tmp=Tmp*[cos(%pi/4+J*2*%pi/N),sin(%pi/4+J*2*%pi/N)];
- CL=[CL;Tmp];
- end
- for II=1:All
- Tmp=varargin(II);
- MS=Flattenlist(Tmp); // 11.05.29
- for I=1:length(MS);
- P=Op(I,MS);
- if InWindow(P)~='i'
- continue
- end
- P=Doscaling(P);
- PL=[];
- for J=0:N
- PL=[PL;P+CL(J+1,:)];
- end;
- Mojisu=0;
- for J=1:size(PL,1)
- Q=PL(J,:);
- X=string(round(MilliIn*Q(1)));
- Y=string(-round(MilliIn*Q(2)));
- Str='\special{pa '+X+' '+Y+'}'
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- Mojisu=0;
- end
- end;
- Str1='\special{sh '+string(Kosa)+'}';
- Str2='\special{fp}%';
- if Wfile=='default'
- mprintf('%s',Str1);
- mprintf('%s\n',Str2);
- else
- mfprintf(FID,'%s',Str1);
- mfprintf(FID,'%s\n',Str2);
- end
- end
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.bin
deleted file mode 100644
index 42407401..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.sci
deleted file mode 100755
index b091754f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Drwxy.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-function Drwxy(varargin)
- global XMIN XMAX YMIN YMAX GENTEN ARROWSIZE
- global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ULEN;
- Nargs=length(varargin)
- Tmp=mtlb_findstr(ZIKU,'arrow');
- if Tmp~=[]
- Arrowline([XMIN,GENTEN(2)],[XMAX,GENTEN(2)],ARROWSIZE);
- Arrowline([GENTEN(1),YMIN],[GENTEN(1),YMAX],ARROWSIZE);
- else
- Drwline(Listplot([XMIN,GENTEN(2)],[XMAX,GENTEN(2)]));
- Drwline(Listplot([GENTEN(1),YMIN],[GENTEN(1),YMAX]));
- end;
- Letter([XMAX,GENTEN(2)],XPOS,XNAME);
- Letter([GENTEN(1),YMAX],YPOS,YNAME);
- Letter(GENTEN,OPOS,ONAME);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.bin
deleted file mode 100644
index dd1bf063..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.sci
deleted file mode 100755
index 9b67e366..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Embed.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.09.25
-// 09.11.21
-// 09.11.26
-
-function Out=Embed(varargin)
- Nargs=length(varargin);
- Pd3=varargin(1);
- if Mixtype(Pd3)==1
- Pd3=list(Pd3);
- elseif Mixtype(Pd3)==3
- Tmp=list();
- for I=1:length(Pd3)
- Tmp=Mixjoin(Tmp,Pd3(I));
- end;
- Pd3=Tmp;
- end;
- Tmpf=varargin(2);
- if type(Tmpf)==10
- Tmp=varargin(3);
- Tmp1=strsubst(Tmp,'[','(');
- Vstr=strsubst(Tmp1,']',')');
- deff('Z=Tmpfn'+Vstr,'Z='+Tmpf);
- else
- Tmpfn=Tmpf;
- end;
- Out=list();
- for I=1:length(Pd3)
- PD=Pd3(I);
- Ans=[];
- for J=1:size(PD,1)
- P=PD(J,:);
- Tmp=Tmpfn(P(1),P(2));
- Ans=[Ans;Tmp];
- end;
- Out($+1)=Ans;
- end;
- if length(Out)==1
- Out=Out(1);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.bin
deleted file mode 100644
index d9d9c1bf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.sci
deleted file mode 100755
index bfc191b9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Enclosing.sci
+++ /dev/null
@@ -1,23 +0,0 @@
-// 08.05.31
-// 10.12.04
-// 16.12.05 to make it a closed curve
-
-function AnsL=Enclosing(varargin)
- global MilliIn;
- Eps=10^(-7); // 12.05
- Nargs=length(varargin);
- P=varargin(1);
- if Mixtype(P)==2
- Tmp=Op(1,P);
- if type(Tmp)~=1 | length(Tmp)~=1
- AnsL=EnclosingS(P,varargin(2:Nargs));
- AnsL=Joincrvs(AnsL) // 10.12.04
- end
- end;
- Tmp1=Op(1,AnsL);
- Tmp2=Op(size(AnsL,1),AnsL);
- if norm(Tmp2-Tmp1)>Eps then // 12.05
- AnsL=[AnsL;Tmp1];
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.bin
deleted file mode 100644
index 6e120c8d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.sci
deleted file mode 100755
index cded7ef2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/EnclosingS.sci
+++ /dev/null
@@ -1,126 +0,0 @@
-// 08.05.31
-// 08.11.12
-// 09.10.12
-// 09.10.14
-// 15.04.10
-
-function AnsL=EnclosingS(varargin)
- global MilliIn;
- Nargs=length(varargin);
- AnsL=[];
- PdataL=varargin(1);
- Nall=length(PdataL);
- Eps=10^(-3);
- EEps=0.1;
- S=[];
- Flg=0;
- for I=2:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1
- S=Tmp;
- end
- if type(Tmp)==1 & length(Tmp)==1
- if Flg==0
- Eps=Tmp;
- Flg=Flg+1
- else
- EEps=Tmp
- end
- end
- end
- F=Op(1,PdataL); G=Op(Nall,PdataL);
- KL=IntersectcrvsPp(F,G);
- if length(KL)==1
- Tmp=Op(1,KL);
- P=Op(1,Tmp);
- T1=Op(2,Tmp);
- end
- if length(KL)==0
- if Numptcrv(F)>Numptcrv(G)
- Tmp=Nearestpt(F,G);
- P=Op(1,Tmp);
- T1=Op(2,Tmp);
- else
- Tmp=Nearestpt(G,F);
- P=Op(3,Tmp);
- T1=Op(4,Tmp);
- end
- end
- if length(KL)>1 // 15.04.10
- if S==[]
- disp('No Start Point');
- return
- end;
- Tmp=Op(1,KL);
- P=Op(1,Tmp);
- T1=Op(2,Tmp);
- Tmp=norm(P-S);
- for I=2:length(KL)
- Tmp1=Op(1,Op(I,KL));
- Tmp2=norm(Tmp1-S);
- if Tmp2<Tmp
- P=Tmp1;
- T1=Op(2,Op(I,KL));
- Tmp=Tmp2;
- end
- end
- end
- S=P;
- AnsL=[];
- for N=1:Nall
- F=Op(N,PdataL);
- if N>1 P=Q;end
- if N==Nall
- Q=S;
- else
- Flg=0;
- G=Op(N+1,PdataL);
- KL=IntersectcrvsPp(G,F);
- if length(KL)==1
- Tmp=Op(1,KL);
- Q=Op(1,Tmp);
- T3=Op(2,Tmp);
- Flg=10;
- end
- if length(KL)==0 Flg=1; end
- if length(KL)>=2 // Maple bug?
- Tmp1=Op(1,Op(1,KL));
- Tmp2=Op(1,Op(2,KL));
- Tmp=norm(Tmp1-Tmp2);
- if Tmp<Eps*10 Flg=1; end
- end
- if Flg==1
- if Numptcrv(F)>Numptcrv(G)
- Tmp=Nearestpt(F,G);
- Q=Op(1,Tmp);
- T3=Op(4,Tmp);
- Flg=10;
- else
- Tmp=Nearestpt(G,F);
- Q=Op(3,Tmp);
- T3=Op(2,Tmp);
- Flg=10;
- end
- end
- if Flg<10
- T2=%inf;
- for I=1:length(KL)
- Dt=Op(I,KL);
- Tmp1=Op(1,Dt);
- Tmp=Op(3,Dt);
- Tmp2=Paramoncrv(Tmp1,Tmp,F);
- Tmp3=Op(2,Dt);
- if (Tmp2>T1+Eps) & (Tmp2<T2+Eps)
- Q=Tmp1;
- T2=Tmp2;
- T3=Tmp3;
- end
- end
- end
- end
- Tmp=Partcrv(P,Q,F);
- T1=T3;
- AnsL=Mixadd(AnsL,Tmp);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.bin
deleted file mode 100644
index 36e0755f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.sci
deleted file mode 100755
index ff4a3c43..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Endpicture.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-// 08.05.22
-
-function Endpicture(varargin)
- if length(varargin)==0
- Flg=1
- else
- Flg=varargin(1);
- end
- Closepicture(Flg)
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.bin
deleted file mode 100644
index 027661d5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.sci
deleted file mode 100755
index b9c86eef..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepara.sci
+++ /dev/null
@@ -1,79 +0,0 @@
-// 08.09.10
-// 13.10.21 ( __ added to varibles )
-// 17.05.21 Mdv, Ndv changed to division number
-
-function [Zval__,Xval__,Yval__]=Evlptablepara(MS__)
- Nargs__=Mixlength(MS__);
- Eps__=10^(-3);
- Tmp__=Mixop(1,MS__);
- FdL__=Fullformfunc(Tmp__);
- Mdv=50;
- Ndv__=50;
- if Nargs__>=2
- Tmp__=Mixop(2,MS__);
- if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end;
- if length(Tmp__)>1
- Mdv__=Tmp__(1,1);
- Ndv__=Tmp__(1,2);
- else
- Mdv__=Tmp__
- if Nargs__==2
- Ndv__=Mdv__
- else
- Tmp1__=Mixop(3,MS__);
- if type(Tmp1__)==1 & length(Tmp1__)==1
- Ndv__=Tmp1__;
- else
- Ndv__=Mdv__;
- end
- end
- end
- end;
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urange__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- U1__=Urange__(1); U2__=Urange__(2);
- V1__=Vrange__(1); V2__=Vrange__(2);
- Du__=(U2__-U1__)/(Mdv__); //17.05.21
- Dv__=(V2__-V1__)/(Ndv__); //17.05.21
- Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)];
- I__=1;
- Zval__=[];
- for v__=V1__:Dv__:V2__
- v1__=v__-Eps__/2; v2__=v__+Eps__/2;
- ZuL__=[];
- for u__=U1__:Du__:U2__;
- u1__=u__-Eps__/2; u2__=u__+Eps__/2;
- Tmpv__=strsubst(Xyzstr__,Vname__,'v__');
- Tmp__=strsubst(Tmpv__,Uname__,'u1__');
- P1__=evstr(Tmp__);
- Tmp__=strsubst(Tmpv__,Uname__,'u2__');
- P2__=evstr(Tmp__);
- Tmp1__=Parapt(P1__);
- Tmp2__=Parapt(P2__);
- Dxu__=(Tmp2__(1)-Tmp1__(1))/Eps__;
- Dyu__=(Tmp2__(2)-Tmp1__(2))/Eps__;
- u1__=u__-Eps__/2; u2__=u__+Eps__/2;
- Tmpu__=strsubst(Xyzstr__,Uname__,'u__');
- Tmp__=strsubst(Tmpu__,Vname__,'v1__');
- P1__=evstr(Tmp__);
- Tmp__=strsubst(Tmpu__,Vname__,'v2__');
- P2__=evstr(Tmp__);
- Tmp1__=Parapt(P1__);
- Tmp2__=Parapt(P2__);
- Dxv__=(Tmp2__(1)-Tmp1__(1))/Eps__;
- Dyv__=(Tmp2__(2)-Tmp1__(2))/Eps__;
- Tmp__=Dxu__*Dyv__-Dxv__*Dyu__;
- ZuL__=[ZuL__,Tmp__];
- end;
- Zval__=[Zval__;ZuL__];
- end;
- Yval__=V1__:Dv__:V2__;
- Xval__=U1__:Du__:U2__;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.bin
deleted file mode 100644
index d5745d92..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.sci
deleted file mode 100755
index 15ddd0a8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Evlptablepers.sci
+++ /dev/null
@@ -1,77 +0,0 @@
-// 08.09.21
-// 13.11.01 ( __ added to varibles )
-
-function [Zval__,Xval__,Yval__]=Evlptablepers(MS__)
- Nargs__=Mixlength(MS__);
- Eps__=10^(-3);
- Tmp__=Mixop(1,MS__);
- FdL__=Fullformfunc(Tmp__);
- Mdv__=50;
- Ndv__=50;
- if Nargs__>=2
- Tmp__=Mixop(2,MS__);
- if Mixtype(Tmp__)~=1 Tmp__=Mixop(1,Tmp__); end;
- if length(Tmp__)>1
- Mdv__=Tmp__(1,1);
- Ndv__=Tmp__(1,2);
- else
- Mdv__=Tmp__
- if Nargs__==2
- Ndv__=Mdv__
- else
- Tmp__1=Mixop(3,MS__);
- if type(Tmp__1)==1 & length(Tmp__1)==1
- Ndv__=Tmp__1;
- else
- Ndv__=Mdv__;
- end
- end
- end
- end;
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urange__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrange__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- U1__=Urange__(1); U2__=Urange__(2);
- V1__=Vrange__(1); V2__=Vrange__(2);
- Du__=(U2__-U1__)/(Mdv__-1);
- Dv__=(V2__-V1__)/(Ndv__-1);
- Xyzstr__=[Mixop(2,FdL__),Mixop(3,FdL__),Mixop(4,FdL__)];
- I__=1;
- Zval__=[];
- for v__=V1__:Dv__:V2__
- v__1=v__-Eps__/2; v__2=v__+Eps__/2;
- ZuL__=[];
- for u__=U1__:Du__:U2__;
- u__1=u__-Eps__/2; u__2=u__+Eps__/2;
- Tmp__v=strsubst(Xyzstr__,Vname__,'v__');
- Tmp__=strsubst(Tmp__v,Uname__,'u__1');
- P1__=evstr(Tmp__);
- Tmp__=strsubst(Tmp__v,Uname__,'u__2');
- P2__=evstr(Tmp__);
- Tmp__1=Perspt(P1__);
- Tmp__2=Perspt(P2__);
- Dxu__=(Tmp__2(1)-Tmp__1(1))/Eps__;
- Dyu__=(Tmp__2(2)-Tmp__1(2))/Eps__;
- u__1=u__-Eps__/2; u__2=u__+Eps__/2;
- Tmp__u=strsubst(Xyzstr__,Uname__,'u__');
- Tmp__=strsubst(Tmp__u,Vname__,'v__1');
- P1__=evstr(Tmp__);
- Tmp__=strsubst(Tmp__u,Vname__,'v__2');
- P2__=evstr(Tmp__);
- Tmp__1=Perspt(P1__);
- Tmp__2=Perspt(P2__);
- Dxv__=(Tmp__2(1)-Tmp__1(1))/Eps__;
- Dyv__=(Tmp__2(2)-Tmp__1(2))/Eps__;
- Tmp__=Dxu__*Dyv__-Dxv__*Dyu__;
- ZuL__=[ZuL__,Tmp__];
- end;
- Zval__=[Zval__;ZuL__];
- end;
- Yval__=V1__:Dv__:V2__;
- Xval__=U1__:Du__:U2__;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.bin
deleted file mode 100644
index a18f4f27..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.sci
deleted file mode 100644
index 2a4d1491..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Execmd.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 10.01.16
-// 10.02.24
-
-function Execmd(StrL)
- for I=1:length(StrL)
- execstr(Op(I,StrL))
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.bin
deleted file mode 100644
index b714247e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.sci
deleted file mode 100755
index 5b9df24b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Expr.sci
+++ /dev/null
@@ -1,100 +0,0 @@
-//
-// 09.12.25
-
-function Expr(varargin)
- global Wfile FID MEMORI;
- Nargs=length(varargin);
- for I=1:3:Nargs
- Tmp=varargin(I);
- P=Doscaling(Tmp);
- X=P(1);
- Y=P(2);
- Houkou=varargin(I+1);
- Mojiretu='$'+varargin(I+2)+'$';
- Hset=Houkou;
- Vhoko='c';
- if mtlb_findstr(Hset,'n')~=[]
- Vhoko='n'; Y=Y+MEMORI;
- end
- if mtlb_findstr(Hset,'s')~=[]
- Vhoko='s'; Y=Y-MEMORI;
- end
- Hhoko='c';
- if mtlb_findstr(Hset,'e')~=[]
- Hhoko='e'; X=X+MEMORI;
- end
- if mtlb_findstr(Hset,'w')~=[]
- Hhoko='w'; X=X-MEMORI;
- end
- Hoko=Vhoko+Hhoko;
- Suu='+-.0123456789';
- SuuL=Suu;
- Hcode=ascii(Houkou);
- J=1; Dstr='';
- while J<=length(Houkou)
- Tmp=char(Hcode(J));
- if mtlb_findstr(SuuL,Tmp)~=[]
- if Dstr==''
- Hk=char(Hcode(J-1));
- end
- Dstr=Dstr+Tmp;
- else
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- Dstr='';
- end
- end
- J=J+1;
- end
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- end
- CalcWidth(Hoko,Mojiretu);
- CalcHeight(Hoko,Mojiretu);
- Tmp='){\hspace*{\Width}';
- Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}';
- if Wfile=='default'
- mprintf('%s','\put(');
- mprintf('%6.4f%s%6.4f',X,',',Y);
- mprintf('%s%s\n',Str,'%');
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s','\put(');
- mfprintf(FID,'%6.4f%s%6.4f',X,',',Y);
- mfprintf(FID,'%s%s\n',Str,'%');
- mfprintf(FID,'%s\n','%');
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.bin
deleted file mode 100644
index ea7beb15..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.sci
deleted file mode 100755
index d51dfa91..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Exprrot.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 08.05.31
-// 08.08.24
-// 09.12.25
-
-function Exprrot(varargin)
- global MEMORI;
- P=varargin(1);
- V=varargin(2); N=3;
- P=Doscaling(P);
- V=Doscaling(V);
- Tmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1
- Tmov=Tmp; N=N+1;
- end
- Nmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1 then
- Nmov=Tmp; N=N+1;
- end
- Mojiretu='$'+varargin(N)+'$';
- Tv=1/norm(V)*V;
- Nv=[-Tv(2),Tv(1)];
- P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv;
- Tmp=acos(V(1)/norm(V));
- Theta=round(Tmp*180/%pi);
- if V(2)>=0
- Units='';
- else
- Units='units=-360,';
- end
- Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta);
- Tmp=Tmp+'}{'+Mojiretu+'}';
- Letter(P,"c",Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.bin
deleted file mode 100644
index 9c11aaad..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.sci
deleted file mode 100755
index ae0bea54..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata.sci
+++ /dev/null
@@ -1,78 +0,0 @@
-// 09.10.29
-// 10.02.07 debugged
-
-function NohiddenL=Faceremovaldata(FL,CLadd,PT)
- global PHHIDDENDATA VELNO VELHI;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CLadd)//
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- VELNO=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- Ntmp=length(VELNO); //
- VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); //
- end;
- end;
- VELHI=list();
- Out=MakeveLfaceL(FL);
- FaceL=Out(2);
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi2(Face,Nf,Ptype);
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- for I=1:length(VELHI)
- Edge=Op(1,VELHI(I));
- if norm(Edge(1)-Edge(2))>Eps
- HiddenL($+1)=Spaceline(Edge);
- end;
- end;
- PHHIDDENDATA=HiddenL;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.bin
deleted file mode 100644
index d32b2b3d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.sci
deleted file mode 100755
index 7dc8bef1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Faceremovaldata0.sci
+++ /dev/null
@@ -1,81 +0,0 @@
-// NEW
-// Faceremovaldata
-// 09.10.24
-// 09.10.26
-// 09.10.27
-
-function NohiddenL=Faceremovaldata(FL,CLadd,PT)
- global PHHIDDENDATA VELNO VELHI;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CL)
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- VELNO=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- VELNO($+1)=list(Edge,0);
- end;
- end;
- VELHI=list();
- Out=MakeveLfaceL(FL);
- FaceL=Out(2);
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi(Face,Nf,Ptype);
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- for I=1:length(VELHI)
- Edge=Op(1,VELHI(I));
- if norm(Edge(1)-Edge(2))>Eps
- HiddenL($+1)=Spaceline(Edge);
- end;
- end;
- PHHIDDENDATA=HiddenL;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.bin
deleted file mode 100644
index 10b573ba..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.sci
deleted file mode 100755
index 0ed2f249..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata.sci
+++ /dev/null
@@ -1,154 +0,0 @@
-/////////
-// 09.10.29
-// 11.01.13 (HiddenL) remodified 110122
-// 13.03.30 (HiddenL) debugged 140330
-
-function NohiddenL=Facesdata(varargin)
- global PHHIDDENDATA VELNO VELHI;
- Nargs=length(varargin);
- FL=varargin(1);
- PT=varargin($);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if Nargs==2
- CLadd=list();
- else
- CLadd=varargin(2);
- end;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CL)
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- Out=MakeveLfaceL(FL);
- VELNO=Out(1);
- VELHI=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- Ntmp=length(VELNO); //
- VELNO(Ntmp+1)=list(Edge,0,Ntmp+1); //
- end;
- end;
- FaceL=Out(2);
- if mtlb_findstr(PT,'raw')==[]
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi2(Face,Nf,Ptype);
- end;
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- EdgeL=list(); // from 13.03.30
- for K=1:length(VELHI)
- Edge=Op(1,VELHI(K));
- P=Edge(1); Q=Edge(2);
- if norm(P-Q)>Eps then
- EdgeL($+1)=Edge;
- end
- end
- for K=1:length(EdgeL)
- Edge=EdgeL(K); //
- P=Edge(1); Q=Edge(2);
- Cflg=0;
- for J=K+1:length(EdgeL)
- Ej=EdgeL(J); //
- Pj=Ej(1); Qj=Ej(2);
- if norm(Crossprod(Q-P,Qj-Pj))>Eps then
- continue
- end
- if norm(Q-Pj)<Eps then
- EdgeL(J)=list(P,Qj);
- Cflg=1;
- break;
- end
- if norm(P-Qj)<Eps then
- EdgeL(J)=list(Q,Pj)
- Cflg=1;
- break;
- end;
- end
- if Cflg==0 then
- HiddenL($+1)=Spaceline(Edge);
- end;
- end; // upto 14.03.30
-
-// L=1:length(VELHI); // from 11.01.13
-// while length(L)>0
-// Lr=[];
-// Edge=Op(1,VELHI(L(1))); //
-// P=Edge(1);
-// Q=Edge(2);
-//
-// disp([293,P,Q])
-//
-// if norm(P-Q)>Eps
-// for J=2:length(L)
-// Rflg=0;
-// Ej=Op(1,VELHI(L(J))); //
-// Pj=Ej(1);
-// Qj=Ej(2);
-// if norm(Crossprod(Q-P,Qj-Pj))>Eps
-// Lr=[Lr,J];
-// continue;
-// end;
-// if norm(Q-Pj)<Eps
-// Edge(2)=Qj;
-// Rflg=1;
-// elseif norm(P-Qj)<Eps
-// Edge(1)=Pj;
-// Rflg=1;
-// end;
-// if Rflg==0
-// Lr=[Lr,J];
-// end;
-// end;
-// else
-// Lr=L(2:length(L));
-// end;
-// L=Lr; // upto 11.01.13
-// HiddenL($+1)=Spaceline(Edge);
-// end;
- PHHIDDENDATA=HiddenL;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.bin
deleted file mode 100644
index 8af8ea49..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.sci
deleted file mode 100755
index c300cf6e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.sci
+++ /dev/null
@@ -1,88 +0,0 @@
-// 09.10.27
-
-function NohiddenL=Facesdata(varargin)
- global PHHIDDENDATA VELNO VELHI;
- Nargs=length(varargin);
- FL=varargin(1);
- PT=varargin($);
- if mtlb_findstr(PT,'para')~=[]
- Ptype=1; //para
- else
- Ptype=-1; //pers
- end;
- if Nargs==2
- CLadd=list();
- else
- CLadd=varargin(2);
- end;
- NohiddenL=list();
- HiddenL=list();
- Eps=10^(-4);
- if length(CLadd)>0
- if type(CLadd)==1
- C=list();
- if size(CLadd,1)>1
- for I=1:size(CLadd,1)
- C($+1)=CLadd(I,:);
- end;
- else
- for I=1:3:size(CLadd,2)
- C($+1)=CLadd(1,I:I+2);
- end;
- end;
- CrvL=list(C);
- elseif type(CLadd(1))==1
- CrvL=list();
- for J=1:length(CL)
- Ctmp=CLadd(J);
- C=list();
- if size(Ctmp,1)>1
- for I=1:size(Ctmp,1)
- C($+1)=Ctmp(I,:);
- end;
- else
- for I=1:3:size(Ctmp,2)
- C($+1)=Ctmp(1,I:I+2);
- end;
- end;
- CrvL($+1)=C;
- end;
- else
- CrvL=CLadd;
- end;
- else
- CrvL=list();
- end;
- Out=MakeveLfaceL(FL);
- VELNO=Out(1);
- VELHI=list();
- for I=1:length(CrvL)
- Tmp=CrvL(I);
- for J=1:length(Tmp)-1
- Edge=list(Tmp(J),Tmp(J+1));
- VELNO($+1)=list(Edge,0);
- end;
- end;
- FaceL=Out(2);
- if mtlb_findstr(PT,'raw')==[]
- for Nf=1:length(FaceL)
- Face=FaceL(Nf);
- Menkakusi(Face,Nf,Ptype);
- end;
- end;
- for I=1:length(VELNO)
- Edge=Op(1,VELNO(I));
- if norm(Edge(1)-Edge(2))>Eps
- NohiddenL($+1)=Spaceline(Edge);
- end;
- end;
- for I=1:length(VELHI)
- Edge=Op(1,VELHI(I));
- if norm(Edge(1)-Edge(2))>Eps
- HiddenL($+1)=Spaceline(Edge);
- end;
- end;
- PHHIDDENDATA=HiddenL;
-endfunction
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.bin
deleted file mode 100644
index 513db3d6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.sci
deleted file mode 100755
index 062fcc5c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Findcell.sci
+++ /dev/null
@@ -1,127 +0,0 @@
-// 09.11.26
-// 09.12.06
-// 09.12.14
-// 10.01.12
-// 10.01.13
-// 10.01.14
-
-function Out=Findcell(varargin)//TbL,Nrg,Mrg
- Nargs=length(varargin);
- TbL=varargin(1);
- Ag=varargin(2);
- Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ';
- if type(Ag)==10
- Clm=[];
- Rstr='';
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp-1];
- else
- Rstr=Rstr+C;
- end;
- end;
- Nrg=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg=Nrg+Tmp*26^Tmp1;
- end;
- Mrg=eval(Rstr);
- if Nargs>=3
- Ag=varargin(3);
- Clm=[];
- Rstr='';
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp];
- else
- Rstr=Rstr+C;
- end;
- end;
- Nrg2=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg2=Nrg2+Tmp*26^Tmp1;
- end;
- Nrg=[Nrg,Nrg2];
- Mrg=[Mrg,eval(Rstr)];
- end;
- else
- Nrg=varargin(2);
- Mrg=varargin(3);
- end;
- if length(Mrg)==1
- m1=Mrg; m2=m1+1;
- else
- m1=Mrg(1); m2=Mrg(2);
- end;
- if length(Nrg)==1
- n1=Nrg; n2=n1+1;
- else
- n1=Nrg(1); n2=Nrg(2);
- end;
- n1=n1+1; n2=n2+1;
- m1=m1+1; m2=m2+1;
- Hind=TbL(2);
- Vind=TbL(3);
- HL=Mixsub(TbL(2),TbL(1));
- Tmp1=Op(1,TbL(4));
- Tmp2=Op(2,TbL(4));
- HL=Mixjoin(list(Tmp1),HL,list(Tmp2));
- VL=Mixsub(TbL(3),TbL(1));
- Tmp1=Op(1,TbL(5));
- Tmp2=Op(2,TbL(5));
- VL=Mixjoin(list(Tmp1),VL,list(Tmp2));
- Tmp=TbL(6);
- Tmp1=Listplot([Ptsw(Tmp),Ptnw(Tmp)]);
- Tmp2=Listplot([Ptse(Tmp),Ptne(Tmp)]);
- HL=Mixjoin(list(Tmp1),HL,list(Tmp2));
- Tmp1=Listplot([Ptnw(Tmp),Ptne(Tmp)]);
- Tmp2=Listplot([Ptsw(Tmp),Ptse(Tmp)]);
- VL=Mixjoin(list(Tmp1),VL,list(Tmp2));
- Tmp=HL(n1);
- if type(Tmp)==1
- H1=Tmp(1,1);
- else
- Tmp1=Tmp(1);
- H1=Tmp1(1,1);
- end;
- Tmp=HL(n2);
- if type(Tmp)==1
- H2=Tmp(1,1);
- else
- Tmp1=Tmp(1);
- H2=Tmp1(1,1);
- end;
- Tmp=VL(m1);
- if type(Tmp)==1
- V1=Tmp(1,2);
- else
- Tmp1=Tmp(1);
- V1=Tmp1(1,2);
- end;
- Tmp=VL(m2);
- if type(Tmp)==1
- V2=Tmp(1,2);
- else
- Tmp1=Tmp(1);
- V2=Tmp1(1,2);
- end;
- Pt=[(H1+H2)/2,(V1+V2)/2];
- High=(V1-V2)/2;
- Wide=(H2-H1)/2;
- Out=list(Pt,Wide,High);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.bin
deleted file mode 100644
index 54c4fa4b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.sci
deleted file mode 100644
index 903679ab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Flattenlist.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 10.11.13
-
-function Out=Flattenlist(varargin)
- Out=list();
- for N=1:length(varargin)
- D=varargin(N);
- if type(D)~=15
- Out($+1)=D;
- else
- for I=1:length(D)
- Ds=D(I);
- Tmp=Flattenlist(Ds);
- Out=lstcat(Out,Tmp);
- end;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.bin
deleted file mode 100644
index e1a1d3b6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.sci
deleted file mode 100755
index 218b599f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fontsize.sci
+++ /dev/null
@@ -1,54 +0,0 @@
-function Fontsize(Ookisa)
- global Wfile FID;
- Str='%';
- Ucode=ascii(Ookisa);
- S=char(Ucode(1));
- if S=='n'
- Str='\normalsize%';
- end
- if S=='s'
- if length(Ucode)==1
- Tmp='';
- else
- Tmp=char(Ucode(2));
- end
- if Tmp=='s'
- Str='\scriptsize%';
- else
- Str='\small%';
- end
- end
- if S=='f'
- Str='\footnotesize%';
- end
- if S=='t'
- Str='\tiny%';
- end
- if S=='l'
- Str='\large%';
- end
- if S=='L'
- if length(Ucode)==1
- Tmp='a';
- else
- Tmp=char(Ucode(2));
- end
- if Tmp=='a'
- Str='\Large%';
- else
- Str='\LARGE%';
- end
- end
- if S=='h'
- Str='\huge%';
- end
- if S=='H'
- Str='\Huge%';
- end
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.bin
deleted file mode 100644
index de2203fe..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.sci
deleted file mode 100755
index af259244..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriercoeff.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 09.03.13
-
-function Out=Fouriercoeff(Fn,T,Ch,K)
- Eps=10^(-5);
- L=T/2;
- Tmp1='Out=FUNC(x)';
- if Ch=='c'
- Tmp2='Out=Fn(10*L*x)*cos('+string(K)+'*%pi*x*10)';
- else
- Tmp2='Out=Fn(10*L*x)*sin('+string(K)+'*%pi*x*10)';
- end;
- deff(Tmp1,Tmp2);
- Out=10*intg(-0.1,0.1,FUNC);
- if K==0
- Out=Out/2;
- end;
- if abs(Out)<Eps
- Out=0;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.bin
deleted file mode 100644
index cc5d39c4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.sci
deleted file mode 100755
index 2d0d840b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/FouriercoeffL.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 09.03.12
-
-function Out=FouriercoeffL(Fn,T,Upto)
- Out=Mix(Fouriercoeff(Fn,T,'c',0));
- CL=[];
- for K=1:Upto
- Tmp=Fouriercoeff(Fn,T,'c',K);
- CL=[CL,Tmp];
- end;
- Out=Mixadd(Out,CL);
- CL=[];
- for K=1:Upto
- Tmp=Fouriercoeff(Fn,T,'s',K);
- CL=[CL,Tmp];
- end;
- Out=Mixadd(Out,CL);
- Out=Mixadd(Out,T);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.bin
deleted file mode 100644
index 91dee3ce..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.sci
deleted file mode 100755
index 6182f4a7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fouriersum.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 09.03.12
-
-function Out=Fouriersum(COEFF,x)
- C=Mixop(1,COEFF);
- A=Mixop(2,COEFF);
- B=Mixop(3,COEFF);
- T=Mixop(4,COEFF);
- Upto=size(A,2);
- L=T/2;
- K=1:Upto;
- Tmp1=sum(A(K).*cos(K*%pi*x/L));
- Tmp2=sum(B(K).*sin(K*%pi*x/L));
- Out=C+Tmp1+Tmp2;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.bin
deleted file mode 100644
index 4cc02afc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.sci
deleted file mode 100755
index 437ff122..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fracform.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 09.08.23
-
-function Out=Fracform(X)
- [N,D]=rat(X);
- Out=[];
- for I=1:size(X,1)
- for J=1:size(X,2)
- Tmp1=N(I,J);
- Tmp2=D(I,J);
- if Tmp2==1
- Out(I,J)=string(Tmp1);
- else
- Out(I,J)=string(Tmp1)+'/'+string(Tmp2);
- end;
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.bin
deleted file mode 100644
index 828acf25..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.sci
deleted file mode 100755
index 071f7381..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Framedata.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 2011.12.18 ( available for list )
-
-function P=Framedata(varargin)
- global XMIN XMAX YMIN YMAX
- VaL=Flattenlist(varargin);
- N=length(VaL);
- if N<=1
- H=1.0*10^(-4);
- PA=[XMIN+H,YMIN+H];
- PB=[XMAX-H,YMIN+H];
- PC=[XMAX-H,YMAX-H];
- PD=[XMIN+H,YMAX-H];
- else
- Tmp=VaL(N);
- if type(Tmp)==1 & length(Tmp)==1
- Dy=Tmp;
- Dx=Dy;
- Tmp=VaL(N-1);
- if type(Tmp)==1 & length(Tmp)==1
- Dx=Tmp;
- end;
- Tmp=VaL(1);
- X=Tmp(1); Y=Tmp(2);
- X1=X-Dx; X2=X+Dx;
- Y1=Y-Dy; Y2=Y+Dy;
- else
- Tmp=VaL(1);
- X1=Tmp(1); X2=Tmp(2);
- Tmp=VaL(2);
- Y1=Tmp(1); Y2=Tmp(2);
- end;
- PA=[X1,Y1]; PB=[X2,Y1];
- PC=[X2,Y2]; PD=[X1,Y2];
- end;
- P=Listplot(PA,PB,PC,PD,PA)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.bin
deleted file mode 100644
index 5e765044..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.sci
deleted file mode 100755
index 97ddae5b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Fullformfunc.sci
+++ /dev/null
@@ -1,79 +0,0 @@
-// 08.08.16
-// 08.09.16
-// 09.11.14
-// 10.08.19
-// 13.10.22 ( __ added to varibles )
-
-function Out__=Fullformfunc(FdL__)
- Out__=MixS(Mixop(1,FdL__));
- N__=Mixlength(FdL__);
- for Jrg__=1:N__
- Tmp__=Mixop(Jrg__,FdL__);
- if part(Tmp__,length(Tmp__))==']'
- break
- end;
- end;
- Urg__=Mixop(Jrg__,FdL__);
- K__=mtlb_findstr(Urg__,'=');
- Uname__=stripblanks(part(Urg__,1:K__-1));
- Tmp__=part(Urg__,K__+1:length(Urg__)); // 2013.10.22
- Tmp1__=evstr(Tmp__);
- Urg__=Uname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]";
- Vrg__=Mixop(Jrg__+1,FdL__);
- K__=mtlb_findstr(Vrg__,'=');
- Vname__=stripblanks(part(Vrg__,1:K__-1));
- Tmp__=part(Vrg__,K__+1:length(Vrg__));
- Tmp1__=evstr(Tmp__);
- Vrg__=Vname__+"=["+string(Tmp1__(1))+","+string(Tmp1__(2))+"]"; //
- if Jrg__==2
- Tmp__=Mixop(1,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Zf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=MixS(Uname__,Vname__,Zf__,Urg__,Vrg__);
- Out__=Mixjoin(Out__,Tmp__);
- elseif Jrg__==4
- Tmp__=Mixop(1,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Zf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=Mixop(2,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=stripblanks(part(Tmp__,1:K__-1));
- Xf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=Mixop(3,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=stripblanks(part(Tmp__,1:K__-1));
- Yf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=strsubst(Zf__,Xname__,'('+Xf__+')');
- Zf__=strsubst(Tmp__,Yname__,'('+Yf__+')');
- Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__);
- Out__=Mixjoin(Out__,Tmp__);
- else
- Tmp__=Mixop(2,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Xf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=Mixop(3,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Yf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=Mixop(4,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Zf__=part(Tmp__,K__+1:length(Tmp__));
- Tmp__=MixS(Xf__,Yf__,Zf__,Urg__,Vrg__);
- Out__=Mixjoin(Out__,Tmp__);
- end;
- DrwS__='enws';
- BdyL__=[];
- for I__=Jrg__+2:Mixlength(FdL__)
- Tmp__=Mixop(I__,FdL__);
- if type(Tmp__)==10
- if length(Tmp__)==0 //
- Tmp__=' ';
- end;
- DrwS__=Tmp__;
- end;
- if type(Tmp__)==1 & size(Tmp__,2)>1
- BdyL__=Tmp__;
- end;
- end;
- Tmp__=MixS(DrwS__,BdyL__);
- Out__=Mixjoin(Out__,Tmp__);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.bin
deleted file mode 100644
index ba4a0779..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.sci
deleted file mode 100755
index 3d17995e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gaiseki.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function G=Gaiseki(a,b)
- if length(a)==3
- Tmp=[a(2)*b(3)-a(3)*b(2),...
- a(3)*b(1)-a(1)*b(3),...
- a(1)*b(2)-a(2)*b(1)];
- else
- Tmp=a(1)*b(2)-a(2)*b(1);
- end;
- G=Tmp;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.bin
deleted file mode 100644
index a66e7b20..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.sci
deleted file mode 100755
index ca4e0d2a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Getcounter.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.09.10
-
-function Out=Getcounter()
- global GCOUNTER;
- Out=GCOUNTER;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.bin
deleted file mode 100644
index d0751e37..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.sci
deleted file mode 100755
index 5395d885..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Gettrace.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.09.10
-
-function Out=Gettrace();
- global TRACEDATA;
- Out=TRACEDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.bin
deleted file mode 100644
index 4e13bb0c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.sci
deleted file mode 100755
index 236287ef..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hatchdata.sci
+++ /dev/null
@@ -1,141 +0,0 @@
-// 08.05.21
-// 09.10.05
-// 09.12.25
-// 10.01.20
-// 10.02.01
-// 10.11.04 ( debugged 83 )
-
-function ShaLs=Hatchdata(varargin)
- global XMIN XMAX YMIN YMAX MilliIn;
- ShaL=[];
- Nargs=length(varargin);
- Kakudo=45;
- Kankaku=0.125*1000/2.54/MilliIn;
- Tmp=Doscaling([XMIN,YMIN]);
- Xmn=Tmp(1); Ymn=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- Xmx=Tmp(1); Ymx=Tmp(2);
- for N=Nargs:-1:1
- Tmp=varargin(N);
- if Mixtype(Tmp)~=1
- break
- end
- end
- if N<Nargs
- Kakudo=varargin(N+1);
- if N==Nargs-2
- Kankaku=0.125*varargin(Nargs);
- end
- end
- NaitenL=varargin(1);
- if Mixtype(NaitenL)==1
- NaitenL=list(NaitenL);
- end
- Ns=2;
- StartP=Op(1,NaitenL);
- if type(StartP)==10
- StartP=[(Xmn+Xmx)/2,(Ymn+Ymx)/2];
- end
- if Mixtype(varargin(2))==1
- StartP=varargin(2);
- StartP=Doscaling(StartP);
- Ns=3;
- end
- Tmp=list();
- for I=Ns:N
- Tmp1=list(varargin(I));
- Tmp=Mixjoin(Tmp,Tmp1);
- end
- Bdy=Kyoukai(Tmp);
- Bdys=list();
- for I=1:length(Bdy)
- Tmp1=Bdy(I);
- Tmp2=Doscaling(Tmp1);
- Bdys=Mixjoin(Bdys,list(Tmp2));
- end;
- Bdy=Bdys;
- PtnL=list();
- for I=1:length(NaitenL)
- Tmp=Op(I,NaitenL);
- if type(Tmp)==1
- Tmp1=Naigai(Tmp,Bdy);
- PtnL=Mixjoin(PtnL,list(Tmp1));
- else
- if type(Tmp)~=10
- disp('Type Error');
- return
- end
- Ptn=[];
- for J=1:length(Tmp)
- if Op(J,Tmp)=='i'
- Ptn=[Ptn,1];
- else
- Ptn=[Ptn,0];
- end
- end
- PtnL=Mixjoin(PtnL,list(Ptn));
- end
- end
- Call=length(Bdy);
- Ptn=zeros(1,Call);
- if Member(Ptn,PtnL)
- Wn=Doscaling(Framedata());
- Bdy=Mixjoin(Bdy,list(Wn));
- Tmp=list();
- for I=1:length(PtnL)
- Tmp1=[Op(I,PtnL),1];
- Tmp=Mixjoin(Tmp,Tmp1); // 10.11.04
- end
- PtnL=Tmp;
- end
- V=[cos(Kakudo*%pi/180),sin(Kakudo*%pi/180)];
- Vm=[-sin(Kakudo*%pi/180),cos(Kakudo*%pi/180)];
- Tmp=Op(1,NaitenL);
- if type(Tmp)==1 & size(Tmp,2)==2
- Tmp=Doscaling(Tmp);
- Delta=Tmp-StartP;
- K=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
- PA=StartP+K*Kankaku*Vm;
- Sha=Makeshasen(PtnL,PA,V,Bdy);
- I=1;
- while length(Sha)~=0
- for J=1:length(Sha)
- ShaL=Mixadd(ShaL,Sha(J));
- end;
- Sha=Makeshasen(PtnL,PA+I*Kankaku*Vm,V,Bdy);
- I=I+1;
- end
- Sha=Makeshasen(PtnL,PA-Kankaku*Vm,V,Bdy);
- I=2;
- while length(Sha)~=0
- for J=1:length(Sha)
- ShaL=Mixjoin(ShaL,list(Sha(J)));
- end;
- Sha=Makeshasen(PtnL,PA-I*Kankaku*Vm,V,Bdy);
- I=I+1;
- end
- else
- Delta=[Xmn,Ymn]-StartP;
- K1=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
- Delta=[Xmx,Ymn]-StartP;
- K2=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
- Delta=[Xmx,Ymx]-StartP;
- K3=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
- Delta=[Xmn,Ymx]-StartP;
- K4=Trunc((Delta(1)*Vm(1)+Delta(2)*Vm(2))/Kankaku);
- IM=max(K1,K2,K3,K4);
- Im=min(K1,K2,K3,K4);
- for I=Im:IM
- Sha=Makeshasen(PtnL,StartP+I*Kankaku*Vm,V,Bdy);
- for J=1:length(Sha)
- ShaL=Mixjoin(ShaL,list(Sha(J)));
- end
- end
- end
- ShaLs=list();
- for I=1:length(ShaL)
- Tmp=ShaL(I);
- Tmp1=Unscaling(Tmp);
- ShaLs=Mixjoin(ShaLs,list(Tmp1));
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.bin
deleted file mode 100644
index b7f91dc9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.sci
deleted file mode 100644
index 7bc05ed9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Hexahedrondata.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// s : 2014.06.22
-
-function Out=Hexahedrondata(A,V1,V2,V3)
- Tmp=det([V1;V2;V3]);
- if Tmp<0 then
- Tmp1=V1;
- V1=V2;
- V2=Tmp1
- end
- B=A+V1; C=A+V1+V2; D=A+V2;
- E=A+V3; F=B+V3; G=C+V3; H=D+V3;
- VL=list(A,B,C,D,E,F,G,H);
- FL=list([1,4,3,2],[5,6,7,8],[1,2,6,5],[2,3,7,6],[3,4,8,7],[1,5,8,4]);
- Out=list(VL,FL)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.bin
deleted file mode 100644
index d4296e92..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.sci
deleted file mode 100755
index 2ead122d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/HiddenWireData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.15
-
-function Out=HiddenWireData()
- global HIDDENWIREDATA
- Out=HIDDENWIREDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.bin
deleted file mode 100644
index 65df35b0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.sci
deleted file mode 100644
index ab8a54b6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Htickmark.sci
+++ /dev/null
@@ -1,144 +0,0 @@
-// 08.05.17 Debugged
-// 09.12.25
-// 11.04.13 debugged ( [a,b] )
-// 14.03.05 MARKLEN
-
-function Htickmark(varargin)
- global Wfile FID MARKLEN GENTEN XMIN XMAX;
- Nargs=length(varargin);
- ArgsL=list(varargin(1:Nargs));
- if type(Op(1,ArgsL))==10
- Str=Op(1,ArgsL);
- Tmp=mtlb_findstr(Str,'m');
- if Tmp~=[]
- I=Tmp(1);
- else
- I=0;
- end
- Tmp=mtlb_findstr(Str,'n');
- if Tmp~=[]
- J=Tmp(1);
- else
- J=0;
- end
- Tmp=mtlb_findstr(Str,'r');
- if Tmp~=[]
- K=Tmp(1);
- else
- K=0;
- end;
- if K>0
- Tmp=ascii(Str);
- S=char(Tmp(K+1:length(Tmp)));
- R=msscanf(S,'%f');
- if length(R)==0
- R=1;
- end
- else
- R=1;
- K=length(Str)+1;
- end
- if J>0 then
- Tmp=ascii(Str);
- S=char(Tmp(J+1:K-1));
- if S==[]
- S='';
- end;
- Dn=msscanf(S,'%d');
- if length(Dn)==0
- Dn=1;
- end
- else
- Dn=1000;
- J=length(Str)+1;
- end
- Tmp=ascii(Str);
- S=char(Tmp(I+1:J-1));
- if S==[]
- S='';
- end
- Dm=msscanf(S,'%f');
- if length(Dm)==0
- Dm=1;
- end
- ArgsL=list();
- for I=1:floor((XMAX-GENTEN(1))/Dm)
- ArgsL($+1)=I*Dm;
- if I-floor(I/Dn)*Dn==0
- Str=string(I*Dm*R);
- K=length(Str);
- Tmp=ascii(Str);
- if char(Tmp(K))=='.'
- Str=char(Tmp(1:k-1));
- end
- ArgsL($+1)=Str;
- end
- end
- for I=-1:-1:ceil((XMIN-GENTEN(1))/Dm)
- ArgsL($+1)=I*Dm;
- if I-floor(I/Dn)*Dn==0
- Str=string(I*Dm*R);
- K=length(Str);
- Tmp=ascii(Str);
- if char(Tmp(K))=='.'
- Str=char(1:K-1);
- end
- ArgsL($+1)=Str;
- end
- end
- end
- MemoriList=list();
- Memori=list();
- for N=1:length(ArgsL)
- Dt=ArgsL(N);
- if type(Dt)==1 & length(Dt)>1
- if length(Memori)>0
- MemoriList($+1)=Memori;
- end
- Memori=list(Dt(1),Dt(2));
- continue
- end
- if type(Dt)==10
- Memori($+1)=Dt;
- else
- if length(Memori)>0
- MemoriList($+1)=Memori;
- end
- Memori=list(Dt,GENTEN(2));
- end
- end
- MemoriList($+1)=Memori;
- for N=1:length(MemoriList)
- Dt=MemoriList(N);
- Ndt=length(Dt);
- X=Op(1,Dt);
- Y=Op(2,Dt);
- Tmp=Doscaling([X,Y]);
- X=Tmp(1);
- Y=Tmp(2);
- Moji=Op(Ndt,Dt);
- Tmp1=Unscaling([X,Y+MARKLEN]);
- Tmp2=Unscaling([X,Y-MARKLEN]);
- Fd=Listplot([Tmp1,Tmp2]);
- Drwline(Fd);
- if Ndt==3
- Tmp=Unscaling([X,Y-MARKLEN]);
- Expr(Tmp,'s',Moji);
- end
- if Ndt==4
- Houkou=Op(3,Dt);
- if mtlb_findstr(Houkou,'s')~=[]
- Tmp=Unscaling([X,Y-MARKLEN]);
- Expr(Tmp,Houkou,Moji);
- else
- Tmp=Unscaling([X,Y+MARKLEN]);
- Expr(Tmp,Houkou,Moji);
- end
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.bin
deleted file mode 100644
index 39861c63..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.sci
deleted file mode 100755
index ae02fee1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ImplicitData.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// 08.09.10
-// 08.09.16
-// 08.10.10 (Name)
-
-function Out=ImplicitData()
- global IMPLICITDATA
- Out=IMPLICITDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.bin
deleted file mode 100644
index 875a82b3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.sci
deleted file mode 100755
index b0715484..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Implicitplot.sci
+++ /dev/null
@@ -1,61 +0,0 @@
-// 08.09.09
-// 08.09.20
-// 13.10.19 ( __ added to variables )
-
-function Out__=Implicitplot(varargin)
- Eps__=10^(-4);
- Nargs__=length(varargin);
- Fstr__=varargin(1);
- if Mixtype(Fstr__)~=1
- MS__=Fstr__;
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- elseif type(Fstr__)==10
- MS__=[];
- for I__=1:Nargs__
- MS__=Mixadd(MS__,varargin(I__));
- end;
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- else
- Zval__=varargin(1);
- Xval__=varargin(2);
- Yval__=varargin(3);
- end;
- Out__=[];
- for J__=1:length(Yval__)-1
- for I__=1:length(Xval__)-1
- a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__);
- a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1);
- a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1);
- a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__);
- PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__];
- VL__=[c1__,c2__,c3__,c4__,c1__];
- QL__=[];
- for K__=1:4
- if abs(VL__(K__))<=Eps__
- QL__=[QL__;PL__(K__,:)];
- elseif VL__(K__)>Eps__
- if VL__(K__+1)<-Eps__
- Tmp__=1/(VL__(K__)-VL__(K__+1))*(-VL__(K__+1)*PL__(K__,:)...
- + VL__(K__)*PL__(K__+1,:));
- QL__=[QL__;Tmp__];
- end
- else
- if VL__(K__+1)>Eps__
- Tmp__=1/(-VL__(K__)+VL__(K__+1))*(VL__(K__+1)*PL__(K__,:)...
- - VL__(K__)*PL__(K__+1,:));
- QL__=[QL__;Tmp__];
- end;
- end;
- end;
- if size(QL__,1)==2
- Out__=[Out__;%inf,%inf;QL__(1,:);QL__(2,:)];
- end;
- end;
- end;
- Out__=Out__(2:size(Out__,1),:);
- if size(Out__,1)>0
- Out__=Connectseg(Out__);
- else
- Out__=[];
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.bin
deleted file mode 100644
index 37882bfa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.sci
deleted file mode 100755
index 9dacd30c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/InWindow.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function Rx=InWindow(PA)
- global XMIN XMAX YMIN YMAX
- Eps=10.0^(-6);
- X=PA(1); Y=PA(2);
- if X>XMIN-Eps & X<XMAX+Eps & Y>YMIN-Eps & Y<YMAX+Eps
- Rx='i'
- else
- Rx='o'
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.bin
deleted file mode 100644
index 80050aeb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.sci
deleted file mode 100755
index d5e09ff4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Initangle.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 08.07.11
-
-function Initangle()
- global PHI THETA;
- PHI=30*%pi/180;
- THETA=60*%pi/180;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.bin
deleted file mode 100644
index cca9ea76..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.sci
deleted file mode 100755
index abd3377f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Integrate.sci
+++ /dev/null
@@ -1,25 +0,0 @@
-// 09.10.09
-// 09.10.21 Es, Er
-
-function Out=Integrate(varargin);
- Nargs=length(varargin);
- Fs=varargin(1);
- Vs=varargin(2);
- Itv=varargin(3);
- Es=1d-10;
- if Nargs>3
- Es=varargin(4);
- end;
- Er=1d-8;
- if Nargs>4
- Er=varargin(5);
- end;
- Out=0;
- Na=1;
- while Na<length(Itv)
- A=Itv(Na); B=Itv(Na+1);
- Out=Out+integrate(Fs,Vs,A,B,Es,Er);
- Na=Na+1;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.bin
deleted file mode 100644
index 9c865940..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.sci
deleted file mode 100755
index 59b4fdcc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvs.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 08.05.18 Koshikawa
-// 08.05.19 Changed
-// 08.06.03
-// 09.11.12
-// 09.11.14 debug
-
-function PL=Intersectcrvs(varargin)
- Nargs=length(varargin);
- Eps=10^(-4);
- Tmp=varargin(Nargs);
- if type(Tmp)==1 & length(Tmp)==1
- Eps=Tmp;
- end
- G1=varargin(1);
- if Mixtype(G1)==1
- G1=list(G1);
- end;
- G2=varargin(2);
- if Mixtype(G2)==1
- G2=list(G2); //
- end;
- PL=list();
- for N=1:length(G1)
- for M=1:length(G2)
- KL=IntersectcrvsPp(G1(N),G2(M),Eps);
- for I=1:length(KL)
- Tmp=KL(I);;
- P=Tmp(1);
- PL($+1)=P;
- end;
- end;
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.bin
deleted file mode 100644
index 806ccfa3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.sci
deleted file mode 100755
index a1218d06..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectcrvsPp.sci
+++ /dev/null
@@ -1,101 +0,0 @@
-// 08.05.18 Koshikawa
-// 08.05.19 Changed
-// 08.00.04
-// 09.11.07 for the same curve
-
-function KL=IntersectcrvsPp(varargin) // Modified
- Nargs=length(varargin);
- G1=varargin(1); G2=varargin(2);
- Eps=10.0^(-4);
- if Nargs>2
- Eps=varargin(3)
- end
- SqEps=10.0^(-10);
- Eps2=0.1;
- if Nargs>3
- Eps2=varargin(4)
- end
- Data1=G1;
- Data2=G2;
- if size(Data1,1)==size(Data2,1)
- Tmp1=Data2(size(Data2,1):-1:1,:); // 09.11.07
- Eps0=10^(-6);
- Tmp2=norm(Data1-Data2);
- Tmp3=norm(Data1-Tmp1);
- if Tmp2<Eps0|Tmp3<Eps0
- KL=list();
- return;
- end; //
- end;
- KL1=[];
- KL2=[];
- for I=1:size(Data1,1)-1
- A=Data1(I,:);
- B=Data1(I+1,:);
- for J=1:size(Data2,1)-1
- P=Data2(J,:); Q=Data2(J+1,:);
- Tmp=Koutenseg(A,B,P,Q,Eps,Eps2);
- if Tmp~=[%inf,-%inf]
- if Op(3,Tmp)==0
- Tmp1=MixS(Op(1,Tmp),Op(2,Tmp),I,J);
- KL1=Mixadd(KL1,Tmp1);
- else
- Tmp2=MixS(Op(1,Tmp),Op(2,Tmp),I,J);
- KL2=Mixadd(KL2,Tmp2);
- end
- end
- end
- end
- KL=[];
- if Mixlength(KL1)>0
- Tmp=Op(1,KL1);
- P=Op(1,Tmp);
- T=Op(2,Tmp);
- I=Op(3,Tmp);
- J=Op(4,Tmp);
- Tmp=MixS(P,I+T,J);
- KL=MixL(Tmp);
- end
- for N=2:Mixlength(KL1)
- Tmp=Op(N,KL1);
- P=Op(1,Tmp);
- Flg=0;
- for K=1:Mixlength(KL)
- Tmp=Op(K,KL);
- if Vecnagasa2(P-Op(1,Tmp))<SqEps
- Flg=1;
- break
- end
- end
- if Flg==0
- Tmp=Op(N,KL1);
- T=Op(2,Tmp);
- I=Op(3,Tmp);
- J=Op(4,Tmp);
- Tmp=MixS(P,I+T,J);
- KL=Mixadd(KL,Tmp);
- end
- end
- for N=1:Mixlength(KL2)
- Tmp=Op(N,KL2);
- P=Op(1,Tmp);
- Flg=0;
- for K=1:Mixlength(KL)
- Tmp=Op(K,KL);
- if Vecnagasa2(P-Op(1,Tmp))<SqEps
- Flg=1;
- break
- end
- end
- if Flg==0
- Tmp=Op(N,KL2);
- T=Op(2,Tmp);
- T=min(max(T,0),1);
- I=Op(3,Tmp);
- J=Op(4,Tmp);
- Tmp=MixS(P,I+T,J);
- KL=Mixadd(KL,Tmp);
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.bin
deleted file mode 100644
index fd6bbac1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.sci
deleted file mode 100755
index 2a2e5b6c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectcrvsf.sci
+++ /dev/null
@@ -1,47 +0,0 @@
-// 08.10.26
-// 10.02.16
-
-function Out=Intersectcrvsf(varargin)
- Nargs=length(varargin);
- Eps0=10^(-4);
- Crv=varargin(1);
- Fd=varargin(2);
- N=3;Uveq=1;
- if Nargs>=3
- Tmp=varargin(3);
- if type(Tmp)==10
- Uveq=Tmp;
- N=4;
- end;
- end;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Out=[];
- for I=1:Numptcrv(Crv)-1
- PtA=Ptcrv(I,Crv);
- PtB=Ptcrv(I+1,Crv);
- if norm(PtB-PtA)<Eps0
- continue;
- end;
- PL=Meetpoints(PtA,PtB,Fd,Uveq,Np,Eps(1));
- for J=1:Mixlength(PL)
- Pt=Mixop(J,PL);
- Tmp=norm(Pt-PtA)/norm(PtB-PtA);
- Tmp=min(max(Tmp,0),1);
- Out=Mixadd(Out,[Pt,I+Tmp]);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.bin
deleted file mode 100644
index 12e2536d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.sci
deleted file mode 100755
index ed92a5aa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Intersectlines.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 09.10.11
-// 09.10.12
-
-function Out=Intersectlines(L1,L2)
- Eps0=10^(-6);
- P=Ptstart(L1);
- a1=P(1); a2=P(2);
- V=Ptend(L1)-P;
- b1=V(1); b2=V(2);
- P=Ptstart(L2);
- c1=P(1); c2=P(2);
- V=Ptend(L2)-P;
- d1=V(1); d2=V(2);
- Den=b1*d2-d1*b2;
- if abs(Den)<Eps0
- Out=[];
- return;
- end;
- x=-(d1*b2*a1-c1*b1*d2-d1*a2*b1+d1*b1*c2)/Den;
- y=-(-a2*b1*d2+b2*a1*d2-b2*c1*d2+c2*d1*b2)/Den;
- Out=[x,y];
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.bin
deleted file mode 100644
index 12429fff..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.sci
deleted file mode 100755
index 4b246e95..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/IntersectselfPp.sci
+++ /dev/null
@@ -1,95 +0,0 @@
-// 09.05.27
-// 09.06.03
-// 09.06.05
-
-function KL=IntersectselfPp(varargin)
- Nargs=length(varargin);
- G1=varargin(1);
- Eps=10.0^(-4);
- if Nargs>1
- Eps=varargin(2)
- end
- Eps0=10.0^(-5);
- Eps2=0.01;
-// if Nargs>2
-// Eps2=varargin(3)
-// end;
- Data1=G1;
- KL1=[];
- KL2=[];
- for I=1:size(Data1,1)-2
- A=Data1(I,:);
- B=Data1(I+1,:);
- Is=I+2;
- Tmp=Data1(Is,:);
- while norm(Tmp-B)<Eps & Is<size(Data1,1);
- Is=Is+1;
- Tmp=Data1(Is,:);
- end;
- for J=Is:size(Data1,1)-1
- P=Data1(J,:); Q=Data1(J+1,:);
- Tmp=Koutenseg(A,B,P,Q,Eps,Eps2);
- if Tmp~=[%inf,-%inf]
- if Op(3,Tmp)==0
- Tmp1=MixS(Op(1,Tmp),Op(2,Tmp),I,J);
- KL1=Mixadd(KL1,Tmp1);
- else
- Tmp2=MixS(Op(1,Tmp),Op(2,Tmp),I,J);
- KL2=Mixadd(KL2,Tmp2);
- end
- end
- end
- end
- KL=[];
- if Mixlength(KL1)>0
- Tmp=Op(1,KL1);
- P=Op(1,Tmp);
- T=Op(2,Tmp);
- I=Op(3,Tmp);
- J=Op(4,Tmp);
- S=ParamonCurve(P,J,Data1);
- Tmp=MixS(P,I+T,J);
- Tmp2=MixS(P,S,I);
- KL=MixL(Tmp);
- KL=Mixadd(KL,Tmp2);
- end;
- for N=2:Mixlength(KL1)
- Tmp=Op(N,KL1);
- P=Op(1,Tmp);
- T=Op(2,Tmp);
- I=Op(3,Tmp);
- J=Op(4,Tmp);
- S=ParamonCurve(P,J,Data1);
- Tmp=MixS(P,I+T,J);
- Tmp1=MixS(P,S,I);
- KL=Mixadd(KL,Tmp);
- KL=Mixadd(KL,Tmp1);
- end
- for N=1:Mixlength(KL2)
- Tmp=Op(N,KL2);
- P=Op(1,Tmp);
- T=Op(2,Tmp);
- T=min(max(T,0),1);
- I=Op(3,Tmp);
- J=Op(4,Tmp);
- S=ParamonCurve(P,J,Data1);
- Flg=0;
- for K=1:Mixlength(KL)
- Tmp=Op(K,KL);
- if norm(P-Op(1,Tmp))<Eps
- Tmp1=Op(2,Tmp);
- if abs(I+T-Tmp1)<Eps
- Flg=1;
- break;
- end;
- end;
- end;
- if Flg==0
- Tmp=MixS(P,I+T,J);
- Tmp1=MixS(P,S,I);
- KL=Mixadd(KL,Tmp);
- KL=Mixadd(KL,Tmp1);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.bin
deleted file mode 100644
index a247d3a0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.sci
deleted file mode 100644
index bf6f976f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invdashline.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 10.11.13 ( Flattenlist used
-// 13.10.19 debugged
-
-function Invdashline(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Nall=Nargs; Sen=1 ; Gap=1;
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1 & Tmp>0 // 2013.10.19
- Tmp1=varargin(Nall-1);
- if type(Tmp1)==1 & length(Tmp1)==1 & Tmp1>0 // 2013.10.19
- Sen=Tmp1; Gap=Tmp;
- Nall=Nall-2;
- else
- Sen=Tmp; Gap=Sen;
- Nall=Nall-1;
- end
- end
- Sen=1000/2.54/MilliIn*Sen;
- Gap=1000/2.54/MilliIn*Gap;
- for N=1:Nall
- Tmp=varargin(N);
- Fdata=Flattenlist(Tmp);
- for I=1:length(Fdata);
- Figdata=Fdata(I);
- Makehasen(Figdata,Sen,Gap,1);
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.bin
deleted file mode 100644
index ab928c50..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.sci
deleted file mode 100755
index 9f9f9d95..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invert.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 08.05.31
-
-function OutL=Invert(Pd)
- OutL=Pd(size(Pd,1):-1:1,:);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.bin
deleted file mode 100644
index b5f41832..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.sci
deleted file mode 100755
index 4d7863b1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invparapt.sci
+++ /dev/null
@@ -1,50 +0,0 @@
-// 08.07.11
-// 08.08.17
-// 09.10.31
-// 09.11.12
-
-function Out=Invparapt(varargin)
- Eps=10^(-4);
- Fk=varargin($);
- NFk=Numptcrv(Fk)
- Tmp=varargin(1);
- if type(Tmp)==1 & size(Tmp)==1
- Ph=Tmp;
- Fh=varargin(2);
- else
- Fh=Projpara(Fk);
- if NFk>2
- Tmp1=Nearestpt(Tmp,Fh);
- Ph=Tmp1(2);
- else
- Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh);
- V1=Tmp-Ah; V2=Bh-Ah;
- Tmp1=Crossprod(V1,V2);
- if abs(Tmp1)>Eps
- disp('Not on the line');
- Out=[];
- return;
- else
- Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12
- end;
- end;
- end;
- if NFk>2
- N=Trunc(Ph);
- S0=Ph-N;
- if Ph>Numptcrv(Fh)-Eps
- Out=list(Ptend(Fk),Numptcrv(Fh));
- return;
- end;
- else
- N=1;
- S0=Ph-1; // 09.11.12
- end;
- Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk);
- Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh);
- Ph=(1-S0)*Ah+S0*Bh;
- T2=S0;
- Pk=(1-T2)*Ak+T2*Bk;
- Out=list(Pk,N+T2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.bin
deleted file mode 100644
index 10fe9aa7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.sci
deleted file mode 100755
index c2c35355..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Invperspt.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 08.08.12
-// 09.10.31
-// 09.11.12
-
-function Out=Invperspt(varargin)
- global FocusPoint EyePoint;
- Eps=10^(-4);
- Fk=varargin($);
- NFk=Numptcrv(Fk)
- Tmp=varargin(1);
- if type(Tmp)==1 & length(Tmp)==1
- Ph=varargin(1);
- Fh=varargin(2);
- else
- Fh=Projpers(Fk);
- if NFk>2
- Tmp1=Nearestpt(Tmp,Fh);
- Ph=Tmp1(2);
- else
- Ah=Ptcrv(1,Fh); Bh=Ptcrv(2,Fh);
- V1=Tmp-Ah; V2=Bh-Ah;
- Tmp1=Crossprod(V1,V2);
- if abs(Tmp1)>Eps
- disp('Not on the line');
- Out=[];
- return;
- else
- Ph=Dotprod(V1,V2)/norm(V2)^2+1; // 09.11.12
- end;
- end;
- end;
- if NFk>2
- N=Trunc(Ph);
- S0=Ph-N;
- if Ph>Numptcrv(Fh)-Eps
- Out=list(Ptend(Fk),Numptcrv(Fh));
- return;
- end;
- else
- N=1;
- S0=Ph-1; // 09.11.12
- end;
- Ak=Ptcrv(N,Fk); Bk=Ptcrv(N+1,Fk);
- Ah=Ptcrv(N,Fh); Bh=Ptcrv(N+1,Fh);
- Ph=(1-S0)*Ah+S0*Bh;
- Phc=Cancoordpers([Ph,0]);
- Ahc=Cancoordpers([Ah,0]);
- Bhc=Cancoordpers([Bh,0]);
- Vp=Phc-EyePoint;
- Va=Ak-EyePoint;
- AB=Bk-Ak;
- Cp=Crossprod(Vp,AB);
- Nmr=Crossprod(Va,Vp);
- Mx=max(abs(Cp));
- if abs(Cp(1))==Mx
- T2=Nmr(1)/Cp(1);
- elseif abs(Cp(2))==Mx
- T2=Nmr(2)/Cp(2);
- else
- T2=Nmr(3)/Cp(3);
- end;
- Pk=(1-T2)*Ak+T2*Bk;
- Out=list(Pk,N+T2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.bin
deleted file mode 100644
index 13bbbe42..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.sci
deleted file mode 100755
index 04aaf4eb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joincrvs.sci
+++ /dev/null
@@ -1,51 +0,0 @@
-// 08.05.31
-// 08.08.22
-// 08.09.14
-// 08.09.20
-// 08.10.27
-// 11.06.25
-
-function PtL=Joincrvs(varargin)
- Nall=length(varargin);
- Eps=10^(-4);
- Tmp=varargin(Nall);
- if type(Tmp)==1 & length(Tmp)==1
- Eps=Tmp;
- Nall=Nall-1;
- end;
- QdL=list();
- for I=1:Nall
- QdL($+1)=varargin(I); // 11.06.25
- end;
- QdL=Flattenlist(QdL); // 11.06.25
- if length(QdL)==0
- PtL=[];
- return;
- end;
- PtL=[Mixop(1,QdL)];
- for I=2:Mixlength(QdL)
- Qd=QdL(I);
- if Numptcrv(Qd)<=1 // 11.06.25
- continue;
- end;
- P=Ptend(PtL)
- S=Ptstart(PtL);
- Q=Ptstart(Qd);
- R=Ptend(Qd);
- MN=min(norm(P-Q),norm(P-R),norm(S-Q),norm(S-R));
- if MN==norm(P-R)
- Qd=Invert(Qd);
- elseif MN==norm(S-Q)
- PtL=Invert(PtL);
- elseif MN==norm(S-R);
- PtL=Invert(PtL);
- Qd=Invert(Qd);
- end;
- if MN>Eps
- PtL=[PtL;Qd];
- else
- PtL=[PtL;Qd(2:size(Qd,1),:)];
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.bin
deleted file mode 100644
index 5baec784..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.sci
deleted file mode 100755
index 78cd46e5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Joingraphics.sci
+++ /dev/null
@@ -1,26 +0,0 @@
-// 11.11.02 (for list structure)
-
-function P=Joingraphics(varargin)
- Ls=Flattenlist(varargin);
- N=length(Ls);
- Tp=Ls(N);
- Listflg=0;
- if type(Tp)==10
- Tmp=part(Tp,1);
- if Tmp=="L"|Tmp=="l"
- Listflg=1
- end;
- N=N-1;
- Ls=Mixsub(1:N,Ls);
- end;
- if Listflg==1
- P=Ls
- else
- P=[];
- for I=1:N
- Tmp=Ls(I);
- P=[P;%inf,%inf;Tmp];
- end;
- P=P(2:size(P,1),:)
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.bin
deleted file mode 100644
index 5d029c80..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.sci
deleted file mode 100755
index bbe02e62..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ketinit.sci
+++ /dev/null
@@ -1,57 +0,0 @@
-// 08.07.08 PHI,THETA,FocusPoint,EyePoint;
-// 08.08.08
-// 08.08.31
-// 08.09.18
-// 09.10.09 ASSIGNLIST
-// 09.12.25 SCALING
-// 10.04.16 TEXFOR
-// 13.05.19 funcprot(0)
-// 13.03.05 MARKLEN instead of MEMORI
-
-function Ketinit()
- global THISVERSION
- global TenSize TenSizeInit Wfile XMIN XMAX YMIN YMAX
- global XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE
- global ULEN MilliIn PenThick PenThickInit ZIKU
- global MEMORI MEMORIInit MEMORINow GENTEN
- global MARKLEN MARKLENInit MARKLENNow
- global YaSize YaAngle YaPosition YaThick YaStyle
- global PHI THETA FocusPoint EyePoint ASSIGNLIST
- global SCALEX SCALEY LOGX LOGY TEXFORLEVEL TEXFORLAST
- funcprot(0); // 2013.05.19
- Setversion();
- XMIN=-5 ;XMAX=5;
- YMIN=-5 ; YMAX=5;
- ZIKU='line'; ARROWSIZE=1;
- XNAME='$x$' ; XPOS='e';
- YNAME='$y$' ; YPOS='n';
- ONAME='O' ; OPOS='sw';
- ULEN='1cm';
- MilliIn=1/2.54*1000;
- PenThick=round(MilliIn*0.02);
- PenThickInit=PenThick;
- TenSizeInit=0.02;
- TenSize=TenSizeInit;
- Wfile='default';
- MEMORI=0.05;
- MEMORIInit=MEMORI;
- MEMORINow=MEMORI;
- MARKLEN=0.05;
- MARKLENInit=MARKLEN;
- MARKLENNow=MARKLEN;
- GENTEN=[0,0];
- YaSize=1; YaAngle=18; YaPosition=1;
- YaThick=1; YaStyle='tf';
- PHI=30*%pi/180;
- THETA=60*%pi/180;
- FocusPoint=[0,0,0];
- EyePoint=[5,5,5];
- ASSIGNLIST=list('`',char(39));
- SCALEX=1;
- SCALEY=1;
- LOGX=0;
- LOGY=0;
- TEXFORLEVEL=0;
- TEXFORLAST=list();
- endfunction;
- \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.bin
deleted file mode 100644
index 2f1c2398..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.sci
deleted file mode 100755
index c12b721e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kouten.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// 08.05.18
-// 08.05.19
-// 09.06.01 (same as 05.19)
-
-function Out=Kouten(PA,V,P,Q);
- Eps=10.0^(-6);
- A1=PA(1); A2=PA(2);
- V1=V(1); V2=V(2);
- P1=P(1); P2=P(2);
- U1=Q(1)-P1; U2=Q(2)-P2;
- Tmp=norm(P-Q)*norm(V);
- if Tmp==0
- Out=[%inf,-%inf];
- return
- end
- D=U1*V2-U2*V1;
- if abs(D)/Tmp<Eps
- Out=[%inf,-%inf];
- return
- end
- S=((-A2+P2)*V1+(A1-P1)*V2)/D;
- if S>1+Eps | S<-Eps
- Out=[%inf,-%inf];
- return
- end
- T=((-A2+P2)*U1+(A1-P1)*U2)/D;
- Tmp=PA+T*V;
- Out=MixS(T,Tmp,sign(D));
-endfunction
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.bin
deleted file mode 100644
index ffe8ecfe..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.sci
deleted file mode 100755
index 82cf1e2c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/KoutenList.sci
+++ /dev/null
@@ -1,51 +0,0 @@
-// 08.05.18
-// 08.05.20
-// 08.06.02
-
-function TenL=KoutenList(PA,V,Bdy)
- Eps=10.0^(-6);
- TenL=[];
- for N=1:Mixlength(Bdy)
- KL=Op(N,Bdy);
- for K=1:size(KL,1)-1
- P=KL(K,:); Q=KL(K+1,:);
- if P~='/' & Q~='/'
- Tmp=Kouten(PA,V,P,Q);
- if Tmp~=[%inf,-%inf]
- Ten=Mixadd(Tmp,N);
- Flg=0;
- NN=Mixlength(TenL);
- I=1;
- while Flg==0 & I<=NN
- Tmp=Op(I,TenL);
- if Op(1,Ten)<Op(1,Tmp)-Eps
- Tmp=Mixsub(1:I-1,TenL);
- Tmp1=Mixadd(Tmp,Ten);
- Tmp2=Mixsub(I:Mixlength(TenL),TenL);
- TenL=Mixjoin(Tmp1,Tmp2);
- Flg=1;
- elseif Op(1,Ten)<Op(1,Tmp)+Eps
- if Op(4,Ten)~=Op(4,Tmp)
- Tmp=Mixsub(1:I-1,TenL);
- Tmp1=Mixadd(Tmp,Ten);
- Tmp2=Mixsub(I:Mixlength(TenL),TenL);
- TenL=Mixjoin(Tmp1,Tmp2);
- Flg=1;
- elseif Op(3,Ten)~=Op(3,Tmp)
- Tmp1=Mixsub(1:I-1,TenL);
- Tmp2=Mixsub(I+1:Mixlength(TenL),TenL);
- TenL=Mixjoin(Tmp1,Tmp2);
- end
- Flg=1;
- end
- I=I+1;
- end
- if Flg==0
- TenL=Mixadd(TenL,Ten);
- end
- end
- end
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.bin
deleted file mode 100644
index f7e0a110..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.sci
deleted file mode 100755
index 371807fa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Koutenseg.sci
+++ /dev/null
@@ -1,105 +0,0 @@
-//
-// 08.05.19
-// 09.12.05
-
-function Out=Koutenseg(varargin)
- //pointdata on AB at which AB intersects CD
- Nargs=length(varargin);
- Eps0=10^(-4);
- A=varargin(1); V=varargin(2)-A;
- Sv2=V(1)^2+V(2)^2;
- if Sv2<10^(-6)
- Out=[%inf,-%inf];
- return
- end
- P=varargin(3)-A; Q=varargin(4)-A;
- Eps=10.0^(-3);
- if Nargs>=5
- Eps=varargin(5);
- end
- Eps2=0.2;
- if Nargs>=6
- Eps2=varargin(6);
- end
- Eps=min(Eps2,Eps/sqrt(Sv2));
- P1=(P(1)*V(1)+P(2)*V(2))/Sv2;
- P2=(-P(1)*V(2)+P(2)*V(1))/Sv2;
- Q1=(Q(1)*V(1)+Q(2)*V(2))/Sv2;
- Q2=(-Q(1)*V(2)+Q(2)*V(1))/Sv2;
- m1=-Eps; M1=1+Eps;
- m2=-Eps; M2=Eps;
- if (max(P1,Q1)<m1) | (min(P1,Q1)>M1)
- Out=[%inf,-%inf];
- return
- end
- if (max(P2,Q2)<m2) | (min(P2,Q2)>M2)
- Out=[%inf,-%inf];
- return
- end
- if P2*Q2<0
- T=P1-(Q1-P1)/(Q2-P2)*P2;
- if (T>m1) & (T<M1)
- if (T>-Eps0) & (T<1+Eps0)
- Tmp1=A+T*V;
- Tmp2=min(max(T,0),1);
- Out=MixS(Tmp1,Tmp2,0);
- else
- Tmp1=A+T*V;
- Tmp2=min(max(T,0),1);
- Out=MixS(Tmp1,Tmp2,1);
- end
- return
- end
- if P1<m1 | P1>M1 | P2<m2 | P2>M2
- if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2
- Out=[%inf,-%inf];
- return
- end
- T=min(max(Q1,0),1);
- Tmp=A+T*V;
- Out=MixS(Tmp,T,1);
- return
- end
- T=min(max(P1,0),1);
- Tmp=A+T*V;
- Out=MixS(Tmp,T,1);
- return
- end
- if P1 > -Eps0 & P1 < 1 + Eps0 & P2 > -Eps0 & P2 < Eps0
- T= P1;
- Tmp=A+T*V;
- Out= MixS(Tmp, T, 0);
- return
- end
- if Q1 > -Eps0 & Q1 < 1 + Eps0 & Q2 > -Eps0 & Q2 < Eps0
- T= Q1;
- Tmp=A+T*V;
- Out=MixS(Tmp,T,0);
- return
- end
- if P1<m1 | P1>M1 | P2<m2 | P2>M2
- if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2
- Out=[%inf,-%inf];
- return
- end
- T=min(max(Q1,0),1);
- Tmp=A+T*V;
- Out=MixS(Tmp,T,1);
- return
- end
- if Q1<m1 | Q1>M1 | Q2<m2 | Q2>M2
- T=min(max(P1,0),1);
- Tmp=A+T*V;
- Out=MixS(Tmp,T,1);
- return
- end
- if abs(P2)<abs(Q2)
- T=min(max(P1,0),1);
- else
- T=min(max(Q1,0),1);
- end
- Tmp=A+T*V;
- Out=MixS(Tmp,T,1);
-endfunction
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.bin
deleted file mode 100644
index 70d72423..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.sci
deleted file mode 100755
index 0e38dae7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukannozoku.sci
+++ /dev/null
@@ -1,45 +0,0 @@
-// 08.07.13
-// 08.10.16
-
-function Res=Kukannozoku(Jokyo,KukanL)
- Eps=10^(-6);
- N=size(KukanL,1);
- T1=Jokyo(1); T2=Jokyo(2);
- Tmp=KukanL(1,:);
- T1=max(T1,Tmp(1));
- Tmp=KukanL(N,:);
- T2=min(T2,Tmp(2));
- Res=[];
- Flg=0;
- for I=1:N
- Ku=KukanL(I,:);
- if Flg==0
- if Ku(2)<T1
- Res=[Res;Ku];
- else
- Flg=1;
- if Ku(1)<T1-Eps
- Tmp=[Ku(1),T1];
- Res=[Res;Tmp];
- end;
- if Ku(2)>T2+Eps
- Tmp=[T2,Ku(2)];
- Res=[Res;Tmp];
- end;
- end;
- elseif Flg==1
- if Ku(2)<T2
- continue;
- else
- Flg=2;
- if Ku(1)<T2-Eps
- Ku=[T2,Ku(2)];
- end;
- Res=[Res;Ku];
- end;
- else
- Res=[Res;Ku];
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.bin
deleted file mode 100644
index 0d78251c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.sci
deleted file mode 100755
index 4e38175f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kukeiwake.sci
+++ /dev/null
@@ -1,62 +0,0 @@
-// 08.05.30
-
-function Out=Kukeiwake(PL)
- global XMIN XMAX YMIN YMAX;
- Eps=10.0^(-6);
- NW=[XMIN,YMAX]; SW=[XMIN,YMIN];
- SE=[XMAX,YMIN]; NE=[XMAX,YMAX];
- Sikaku=[NW;SW;SE;NE;NW];
- Kt=IntersectcrvsPp(PL,Sikaku);
- if Mixlength(Kt)~=2
- disp('not two points')
- return
- end
- Tmp=Op(1,Kt);
- Pt1=Op(1,Tmp);
- N1=Trunc(Op(2,Tmp));
- M1=Op(3,Tmp);
- Tmp=Op(2,Kt);
- Pt2=Op(1,Tmp);
- N2=Trunc(Op(2,Tmp));
- M2=Op(3,Tmp);
- T1=ParamonCurve(Pt1,M1,Sikaku);
- T2=ParamonCurve(Pt2,M2,Sikaku);
- QL=[];
- if Vecnagasa(Pt1,PL(N1+1,:))>Eps
- QL=[Pt1];
- end
- QL=[QL;PL(N1+1:N2,:)];
- if Vecnagasa(Pt2,PL(N2,:))>Eps
- QL=[QL;Pt2];
- end
- HidariL=QL;
- Ms=M2+1; Me=M1;
- if T1<T2+Eps Me=M1+4; end
- for M=Ms:Me
- Tmp=HidariL(size(HidariL,1),:);
- P=Sikaku(modulo(M-1,4)+1,:);
- if Vecnagasa(Tmp,P)>Eps
- HidariL=[HidariL;P];
- end
- end
- Tmp=HidariL(size(HidariL,1),:);
- if Vecnagasa(Tmp,Pt1)>Eps
- HidariL=[HidariL;Pt1];
- end
- MigiL=QL;
- Ms=M2; Me=M1+1;
- if T1>T2-Eps Me=Me-4; end;
- for M=Ms:-1:Me
- Tmp=MigiL(size(MigiL,1),:);
- P=Sikaku(modulo(M-1,4)+1,:);
- if Vecnagasa(Tmp,P)>Eps
- MigiL=[MigiL;P]
- end
- end
- Tmp=MigiL(size(MigiL,1),:);
- if Vecnagasa(Tmp,Pt1)>Eps
- MigiL=[MigiL;Pt1];
- end
- Out=MixS(HidariL,MigiL);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.bin
deleted file mode 100644
index fdf86c27..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.sci
deleted file mode 100755
index a07a89d1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyorihensuu.sci
+++ /dev/null
@@ -1,30 +0,0 @@
-function Kyorihensuu(varargin)
- if length(varargin)==0
- FL='default';
- else
- FL=varargin(1);
- if FL==''
- FL='tmp.tex'
- end
- end
- StrM=[...
- '\newlength{\Width}%',...
- '\newlength{\Height}%',...
- '\newlength{\Depth}%'...
- ];
- if FL~='default'
- Fid=mopen(FL,'w');
- mprintf('%s\n\n','Writing to '+FL);
- end;
- for I=1:size(StrM,2)
- Str=StrM(I);
- mprintf('%s\n',Str);
- if FL~='default'
- mfprintf(Fid,'%s\n',Str);
- end
- end
- if FL~='default'
- mclose(Fid)
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.bin
deleted file mode 100644
index fcb5da5c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.sci
deleted file mode 100755
index 4090c2da..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Kyoukai.sci
+++ /dev/null
@@ -1,144 +0,0 @@
-// 08.05.18
-// 08.05.19
-// 08.05.20
-// 08.05.30
-// 08.09.19
-// 08.10.26
-// 09.01.15 "e"
-// 09.05.18
-// 09.12.05
-// 16.11.03 Eps=10^(-5)
-// 16.12.05 Eps=10^(-7)
-
-function PLall=Kyoukai(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- Eps0=10^(-7);
- DataL=[];
- for I=1:Nargs
- Tmp=varargin(I);
- if Mixtype(Tmp)==1
- Tmp1=MixS(Tmp);
- DataL=Mixadd(DataL,Tmp1);
- end
- if Mixtype(Tmp)==2
- DataL=Mixadd(DataL,Tmp);
- end
- if Mixtype(Tmp)==3
- DataL=Mixjoin(DataL,Tmp);
- end
- end;
- Eps=10.0^(-4);
- PLall=[];
- Sflg=0;
- N=Mixlength(DataL);
- for I=1:N
- Data=Op(I,DataL);
- Tmp=Op(Mixlength(Data),Data);
- if type(Tmp)==1 & size(Tmp,1)==1 & size(Tmp,2)>1
- Rg=Tmp ; Nd=Mixlength(Data)-1;
- elseif type(Tmp)==10
- Rg=Tmp ; Nd=Mixlength(Data)-1;
- else
- Rg='c' ; Nd=Mixlength(Data);
- end;
- for J=1:Nd
- Tmp=Op(J,Data);
- if type(Tmp)==10
- Rg=Tmp;
- continue
- end
- Points=Tmp;
- P1=Ptstart(Points);
- P2=Ptend(Points);
- if J==1
- PL=Points;
- Pfirst=P1;
- Plast=P2;
- if Nd>=2
- Tmp=Op(2,Data);
- P=Ptstart(Tmp);
- Q=Ptend(Tmp);
- if norm(P2-P)>Eps & norm(P2-Q)>Eps
- Tmp=size(PL,1);
- PL=PL(Tmp:-1:1,:);
- Pfirst=Ptstart(PL);
- Plast=Ptend(PL);
- end;
- end
- else
- if norm(P1-Plast)<Eps
- Stp=1; Ks=2; Ke=size(Points,1);
- elseif norm(P2-Plast)<Eps
- Stp=-1; Ks=size(Points,1)-1; Ke=1;
- else
- PL=[PL;%inf,%inf;Points];
- Sflg=1;
- Pfirst=P1;
- Plast=P2;
- Stp=1; Ks=size(Points,1)-1; Ke=1;
- end
- for K=Ks:Stp:Ke
- PL=[PL;Points(K,:)];
- end
- Plast=Points(Ke,:);
- end
- end
- if norm(Pfirst-Plast)>Eps
- Np=size(PL,1);
- if Rg=='c'
- PL=[PL;Pfirst];
- elseif Rg=='s'
- Tmp=[PL(1:Np,2);YMIN];
- Y=min(Tmp)-1;
- P=[Plast(1),Y]; Q=[Pfirst(1),Y];
- PL=[PL;P;Q;Pfirst];
- elseif Rg=='n'
- Tmp=[PL(1:Np,2);YMAX];
- Y=max(Tmp)+1;
- P=[Plast(1),Y]; Q=[Pfirst(1),Y];
- PL=[PL;P;Q;Pfirst];
- elseif Rg=='w'
- Tmp=[PL(1:Np,1);XMIN];
- X=min(Tmp)-1;
- P=[X,Plast(2)]; Q=[X,Pfirst(2)];
- PL=[PL;P;Q;Pfirst];
- elseif Rg=='e'
- Tmp=[PL(1:Np,1);XMAX];
- X=max(Tmp)+1;
- P=[X,Plast(2)]; Q=[X,Pfirst(2)];
- PL=[PL;P;Q;Pfirst];
- elseif type(Rg)==1 & size(Rg,1)==1 & size(Rg,2)>1
- Tmp=Kukeiwake(PL); //Modified from here
- Tmp1=Op(1,Tmp);
- Tmp2=Naigai(Rg,Mix(Tmp1));
- if Tmp2==[1]
- PL=Op(1,Tmp);
- else
- PL=Op(2,Tmp); // to here
- end
- end
- end
- Tmp=[Ptstart(PL)];
- for J=2:size(PL,1)
- P=PL(J,:);
- Q=Tmp(size(Tmp,1),:);
- if norm(P-Q)>Eps then
- Tmp=[Tmp;P];
- end
- end
- PL=Tmp;
- PLall=Mixadd(PLall,PL);
- end
- if Mixlength(PLall)==1 & Sflg==0
- Tmp=Op(1,PLall);
-// Tmp=Op(1,Tmp);
- if norm(Ptstart(Tmp)-Ptend(Tmp))>Eps0
- Tmp=[Tmp;Ptstart(Tmp)];
- PLall=MixS(Tmp);
- end
- end;
-endfunction;
-
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.bin
deleted file mode 100644
index 7949b7bf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.sci
deleted file mode 100755
index 7a7a4b78..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letter.sci
+++ /dev/null
@@ -1,100 +0,0 @@
-//
-// 09.12.25
-
-function Letter(varargin)
- global Wfile FID MEMORI;
- Nargs=length(varargin);
- for I=1:3:Nargs
- Tmp=varargin(I);
- P=Doscaling(Tmp);
- X=P(1);
- Y=P(2);
- Houkou=varargin(I+1);
- Mojiretu=varargin(I+2);
- Hset=Houkou;
- Vhoko='c';
- if mtlb_findstr(Hset,'n')~=[]
- Vhoko='n'; Y=Y+MEMORI;
- end
- if mtlb_findstr(Hset,'s')~=[]
- Vhoko='s'; Y=Y-MEMORI;
- end
- Hhoko='c';
- if mtlb_findstr(Hset,'e')~=[]
- Hhoko='e'; X=X+MEMORI;
- end
- if mtlb_findstr(Hset,'w')~=[]
- Hhoko='w'; X=X-MEMORI;
- end
- Hoko=Vhoko+Hhoko;
- Suu='+-.0123456789';
- SuuL=Suu;
- Hcode=ascii(Houkou);
- J=1; Dstr='';
- while J<=length(Houkou)
- Tmp=char(Hcode(J));
- if mtlb_findstr(SuuL,Tmp)~=[]
- if Dstr==''
- Hk=char(Hcode(J-1));
- end
- Dstr=Dstr+Tmp;
- else
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- Dstr='';
- end
- end
- J=J+1;
- end
- if Dstr~=''
- Nmbr=msscanf(Dstr,'%f');
- D=Nmbr*MEMORI;
- if Hk=='n'
- Y=Y+D;
- end
- if Hk=='s'
- Y=Y-D;
- end
- if Hk=='e'
- X=X+D;
- end
- if Hk=='w'
- X=X-D;
- end
- end
- CalcWidth(Hoko,Mojiretu);
- CalcHeight(Hoko,Mojiretu);
- Tmp='){\hspace*{\Width}';
- Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}';
- if Wfile=='default'
- mprintf('%s','\put(');
- mprintf('%6.4f%s%6.4f',X,',',Y);
- mprintf('%s%s\n',Str,'%');
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s','\put(');
- mfprintf(FID,'%6.4f%s%6.4f',X,',',Y);
- mfprintf(FID,'%s%s\n',Str,'%');
- mfprintf(FID,'%s\n','%');
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.bin
deleted file mode 100644
index dc1116b4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.sci
deleted file mode 100755
index f99917cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Letterrot.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 08.05.31
-// 08.08.24
-// 09.12.25
-
-function Letterrot(varargin)
- global MEMORI;
- P=varargin(1);
- V=varargin(2); N=3;
- P=Doscaling(P);
- V=Doscaling(V);
- Tmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1
- Tmov=Tmp; N=N+1;
- end
- Nmov=0;
- Tmp=varargin(N);
- if type(Tmp)==1 then
- Nmov=Tmp; N=N+1;
- end
- Mojiretu=varargin(N);
- Tv=1/Vecnagasa(V)*V;
- Nv=[-Tv(2),Tv(1)];
- P=P+MEMORI*Tmov*Tv+MEMORI*Nmov*Nv;
- Tmp=acos(V(1)/Vecnagasa(V));
- Theta=round(Tmp*180/%pi);
- if V(2)>=0
- Units='';
- else
- Units='units=-360,';
- end
- Tmp='\rotatebox['+Units+'origin=c]{'+string(Theta);
- Tmp=Tmp+'}{'+Mojiretu+'}';
- Letter(P,"c",Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.bin
deleted file mode 100644
index b8e9311a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.sci
deleted file mode 100755
index bc44c2e9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Lineplot.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-// 09.10.09
-// 09.10.12
-// 09.11.01
-// 09.11.12
-// 09.12.06
-// 10.12.04
-
-function Out=Lineplot(varargin)
- Nargs=length(varargin);
- A=varargin(1);
- if type(A)==1 // 09.11.12 from
- Tmp=length(A);
- if Tmp>3
- B=A(Tmp/2+1:Tmp);
- A=A(1:Tmp/2);
- Is=2;
- else
- B=varargin(2);
- Is=3;
- end;
- else
- B=A(2);
- A=A(1);
- Is=2;
- end; // upto
- Mag=100; Semi='';
- for I=Is:Nargs
- Tmp=varargin(I);
- select type(Tmp)
- case 1
- Mag=Tmp;
- case 10
- Semi=Tmp;
- end;
- end;
- V= Mag/norm(B-A)*(B-A) // 10.12.04 from here
- if Semi==""
- Out=Listplot(A-V,A+V)
- elseif Semi=="+"
- Out=Listplot(A,A+V)
- else
- Out=Listplot(A-V,A)
- end // 10.12.04 to here
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.bin
deleted file mode 100644
index 5f1081ec..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.sci
deleted file mode 100755
index 0bc9f736..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Listplot.sci
+++ /dev/null
@@ -1,24 +0,0 @@
-//
-// 08.07.13
-// 09.06.13
-
-function Z=Listplot(varargin)
- Z=[];
- for I=1:length(varargin)
- Data=varargin(I);
- if Mixtype(Data)==1
- if size(Data,1)==1
- Tmp=matrix(Data,2,size(Data,2)/2);
- Z=[Z;Tmp'];
- else
- Z=[Z;Data];
- end;
- else
- for J=1:Mixlength(Data)
- Tmp=Mixop(J,Data);
- Z=[Z;Tmp];
- end
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.bin
deleted file mode 100644
index e44f369d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.sci
deleted file mode 100755
index 27e70d48..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeBowdata.sci
+++ /dev/null
@@ -1,49 +0,0 @@
-//
-// 08.08.24
-// 10.01.02
-
-function Out=MakeBowdata(PA,PB,H)
- global BOWSTART BOWEND
- BOWSTART=PA;
- BOWEND=PB;
- Eps=10^(-5);
- D=1/2*Vecnagasa(PB-PA);
- R=(H^2+D^2)/(2*H);
- A1=PA(1); A2=PA(2);
- B1=PB(1); B2=PB(2);
- if abs(A2-B2)>Eps
- x=poly(0,'X');
- y=-(A1-B1)*x/(A2-B2)+(1/2)*(A1^2+A2^2-B1^2-B2^2)/(A2-B2);
- Eq1=(A1-x)^2+(A2-y)^2-R^2;
- Tmp=coeff(Eq1);
- C0=Tmp(1); C1=Tmp(2); C2=Tmp(3);
- Det=sqrt(C1^2-4*C0*C2);
- Ansx1=(-C1+Det)/(2*C2);
- Ansx2=(-C1-Det)/(2*C2);
- Tmp=horner(y,Ansx1);
- PC=[Ansx1,Tmp];
- Tmp=horner(y,Ansx2);
- PC2=[Ansx2,Tmp];
- else
- Tmp=0.5*(PA+PB);
- PC=Tmp+[0,R-H];
- PC2=Tmp-[0,R-H];
- end;
- VA=PA-PC;
- VB=PB-PC;
- if VA(1)*VB(2)-VA(2)*VB(1)<0
- PC=PC2;
- end
- AngA=acos((PA(1)-PC(1))/R);
- if PA(2)-PC(2)<0
- AngA=-AngA;
- end
- AngB=acos((PB(1)-PC(1))/R);
- if PB(2)-PC(2)<0
- AngB=-AngB;
- end
- if AngA>AngB
- AngB=AngB+2*%pi;
- end
- Out=Mixmake(PC,R,AngA,AngB);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.bin
deleted file mode 100644
index f1333732..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci
deleted file mode 100755
index f3bbd3ec..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeCurves.sci
+++ /dev/null
@@ -1,62 +0,0 @@
-//
-// 09.12.25
-// 10.01.01
-// 10.12.02 ( debugged for norm()==0 )
-
-function Outdata=MakeCurves(varargin)
- Figdata=varargin(1);
- Ptout=1;
- if length(varargin)>=2
- Ptout=varargin(2);
- end
- Eps=10.0^(-6);
- IndM=Dataindex(Figdata);
- Atos=[];
- for Nd=1:size(IndM,1)
- Tmp=IndM(Nd,:);
- Motos=Figdata(Tmp(1):Tmp(2),:);
- All=size(Motos,1);
- if size(Motos,1)==1
- if InWindow(Motos)=='o'
- continue;
- end;
- if Ptout==1
- Drwpt(Motos(1,:));
- else
- Atos=[Atos;%inf,%inf;Doscaling(Motos)];
- end
- continue
- end
- Crv=[];
- for I=2:All
- P=Motos(I-1,:);
- Q=Motos(I,:);
- Snbn=MeetWindow(P,Q);
- if Snbn==[]
- if Crv~=[]
- Atos=[Atos;%inf,%inf;Doscaling(Crv)];
- Crv=[];
- end
- else
- if norm(Snbn(1,:)-Snbn(2,:))<Eps // 10.12.02
- continue;
- end;
- if Crv==[]
- Crv=Snbn
- else
- Tmp=Crv(size(Crv,1),:);
- if norm(Tmp-Snbn(1,:))<Eps
- Crv=[Crv;Snbn(2,:)];
- else
- Atos=[Atos;%inf,%inf;Doscaling(Crv)];
- Crv=Snbn;
- end
- end
- end
- end
- if size(Crv,1)>=2
- Atos=[Atos;%inf,%inf;Doscaling(Crv)];
- end
- end
- Outdata=Atos(2:size(Atos,1),:);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.bin
deleted file mode 100644
index 1c1d8d80..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.sci
deleted file mode 100755
index 81b0492f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakecutbycrvL.sci
+++ /dev/null
@@ -1,45 +0,0 @@
-// 08.09.19
-// 08.10.15
-// 08.12.21
-
-function AnsL=MakecutbycrvL(Out1,CutuvL,Uveqstr,Uname,Vname,Eps)
- if CutuvL==[]
- if Mixtype(Out1)==1
- AnsL=Mix(Out1);
- else
- AnsL=Out1;
- end;
- return;
- end;
- AnsL=[];
- ParL=Partitionseg(Out1,CutuvL,Eps);
- Flg=0;
- for J=1:length(ParL)-1
- Tmp=(ParL(J)+ParL(J+1))*0.5;
- Tmp=PointonCurve(Tmp,Out1);
- Tmp1='('+string(Tmp(1))+')';
- Tmp2='('+string(Tmp(2))+')';
- Tmp=strsubst(Uveqstr,Uname,Tmp1);
- Tmp=strsubst(Tmp,Vname,Tmp2);
- Tmp=evstr(Tmp);
- if Tmp>0
- if Flg==0
- P1=ParL(J);
- end;
- Flg=1
- else
- if Flg==1
- P2=ParL(J);
- Tmp=Partcrv(P1,P2,Out1);
- AnsL=Mixadd(AnsL,Tmp);
- end;
- Flg=0
- end;
- end;
- if Flg==1
- P2=ParL(length(ParL));
- Tmp=Partcrv(P1,P2,Out1);
- AnsL=Mixadd(AnsL,Tmp);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.bin
deleted file mode 100644
index eb542783..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.sci
deleted file mode 100755
index 9cf82362..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makehasen.sci
+++ /dev/null
@@ -1,119 +0,0 @@
-function Makehasen(Figdata,Sen,Gap,Ptn)
- global Wfile FID;
- Eps=10.0^(-6);
- Clist=MakeCurves(Figdata);
- DinM=Dataindex(Clist);
- for N=1:size(DinM,1)
- Tmp=DinM(N,:);
- Data=Clist(Tmp(1):Tmp(2),:);
- Dtall=size(Data,1);
- Len=0;
- Lenlist=[0];
- for I=2:Dtall
- Len=Len+Vecnagasa(Data(I,:)-Data(I-1,:));
- Lenlist=[Lenlist,Len];
- end
- Lenall=Lenlist(Dtall);
- if Lenall==0
- continue
- end
- Kari=(Sen+Gap)*0.1;
- Naga=Sen*0.1;
- Tobi=Gap*0.1;
- if Vecnagasa(Data(1,:)-Data(Dtall,:))<Eps
- Nsen=max(ceil(Lenall/Kari),3);
- SegUnit=Lenall/Nsen;
- Naga=SegUnit*Sen/(Sen+Gap);
- Tobi=SegUnit*Gap/(Sen+Gap);
- SegList=[0:SegUnit:(Nsen-1)*SegUnit];
- else
- if Ptn==0
- Nsen=max(ceil((Lenall+Tobi)/Kari),3);
- SegUnit=Lenall*(Sen+Gap)/(Nsen*Sen+(Nsen-1)*Gap);
- Naga=SegUnit*Sen/(Sen+Gap);
- Tobi=SegUnit*Gap/(Sen+Gap);
- SegList=[0:SegUnit:(Nsen-1)*SegUnit];
- else
- Nsen=max(ceil((Lenall+Naga)/Kari),3);
- SegUnit=Lenall*(Sen+Gap)/((Nsen-1)*Sen+Nsen*Gap);
- Naga=SegUnit*Sen/(Sen+Gap);
- Tobi=SegUnit*Gap/(Sen+Gap);
- SegList=[Tobi:SegUnit:Tobi+(Nsen-2)*SegUnit];
- end
- end
- Hajime=1; Owari=1;
- Mojisu=0;
- for I=1:length(SegList)
- Len=SegList(I);
- J=Owari;
- while Len>=Lenlist(J)-Eps
- if J==Dtall
- break
- end
- J=J+1;
- end
- Hajime=J-1;
- J=Hajime;
- while Len+Naga>Lenlist(J)-Eps
- if J==Dtall
- break
- end
- J=J+1
- end
- Owari=J-1;
- T=(Len-Lenlist(Hajime))...
- /(Lenlist(Hajime+1)-Lenlist(Hajime));
- P=Data(Hajime,:)+T*(Data(Hajime+1,:)-Data(Hajime,:));
- X=string(round(MilliIn*P(1)));
- Y=string(-round(MilliIn*P(2)));
- Str='\special{pa '+X+' '+Y+'}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end;
- Mojisu=Mojisu+length(Str);
- for J=Hajime+1:Owari
- P=Data(J,:);
- X=string(round(MilliIn*P(1)));
- Y=string(-round(MilliIn*P(2)));
- Str='\special{pa '+X+' '+Y+'}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end;
- Mojisu=Mojisu+length(Str);
- end
- T=(Len+Naga-Lenlist(Owari))...
- /(Lenlist(Owari+1)-Lenlist(Owari));
- P=Data(Owari,:)+T*(Data(Owari+1,:)-Data(Owari,:));
- X=string(round(MilliIn*P(1)));
- Y=string(-round(MilliIn*P(2)));
- Str1='\special{pa '+X+' '+Y+'}';
- Str2='\special{fp}';
- if Wfile=='default'
- mprintf('%s',Str1);
- mprintf('%s',Str2);
- else
- mfprintf(FID,'%s',Str1);
- mfprintf(FID,'%s',Str2);
- end;
- Mojisu=Mojisu+length(Str1)+length(Str2);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end;
- Mojisu=0;
- end
- end
- end
- if Wfile=='default'
- mprintf('%s\n%s\n','%','%');
- else
- mfprintf(FID,'%s\n%s\n','%','%');
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.bin
deleted file mode 100644
index ec29163f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.sci
deleted file mode 100755
index e9915e1b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeliststr.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.10.21
-
-function Out=Makeliststr(L)
- Out='list(';
- for I=1:length(L)
- Dt=L(I);
- if type(Dt)==1
- if length(Dt)==1
- Dts=string(Dt);
- else
- Dts='[';
- for J=1:size(Dt,1)
- for K=1:size(Dt,2)
- Dts=Dts+string(Dt(J,K));
- if K<size(Dt,2)
- Dts=Dts+',';
- end;
- end;
- if J<size(Dt,1)
- Dts=Dts+';';
- else
- Dts=Dts+']';
- end;
- end;
- end;
- end;
- if type(Dt)==10
- Dts=Prime()+Dt+Prime();
- end;
- if type(Dt)==15
- Dts=Makeliststr(Dt);
- end;
- Out=Out+Dts;
- if I<length(L)
- Out=Out+',';
- else
- Out=Out+')';
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.bin
deleted file mode 100644
index a5b313ff..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.sci
deleted file mode 100755
index e24525e1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makesfcutoffdata.sci
+++ /dev/null
@@ -1,345 +0,0 @@
-// 08.09.19
-// 08.09.24
-// 08.10.09
-// 08.10.10
-// 08.10.15
-// 08.12.06
-// 08.12.21
-// 08.12.31
-// 10.02.16 Eps__ ( And Mislength, Mixop replaced )
-// 13.10.21 ( __ added to varibles )
-
-function FsL__=Makesfcutoffdata(MS__)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT
- global BORDERPT OTHERPARTITION PARTITIONPT
- global HIDDENDATA BORDERHIDDENDATA;
- timer();
- Nargs__=length(MS__);
- HT__=Op(1,MS__);
- PT__=Op(2,MS__);
- Fd__=Op(3,MS__);
- CutD__=Op(4,MS__);
- Np__=[50,50];
- Eps__=[0.05,1]; //
- Eps__2=0.2;
- Sgnstr__='+';
- K__=0;
- for I__=5:Nargs__
- Tmp__=Op(I__,MS__);
- if type(Tmp__)==10
- Sgnstr__=Tmp__;
- end;
- if type(Tmp__)==1 // from
- K__=K__+1;
- if K__==1
- Np__=Tmp__;
- if length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- if K__==2
- Eps__=Tmp__;
- if length(Eps__)==1
- Eps__=[Eps__,1];
- end;
- end;
- if K__==3
- Eps__2=Tmp__;
- end;
- end; // upto
- end;
- Tmp__=Op(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Op(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Op(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Op(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- Fd__L=Fullformfunc(Fd__);
- Fxy__=Op(1,Fd__L);
- Xf__=Op(2,Fd__L);
- Yf__=Op(3,Fd__L);
- Zf__=Op(4,Fd__L);
- DrwS__=Op(7,Fd__L);
- Tmp__=Op(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Op(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); Umax__=Urg__(2);
- Vmin__=Vrg__(1); Vmax__=Vrg__(2);
- Fugou__=1;
- if Sgnstr__=='-' | Sgnstr__=='n'
- Fugou__=-1;
- end;
- if Mixtype(CutD__)~=1
- V1__=Op(1,CutD__);
- Tmp__=Op(2,CutD__);
- if length(Tmp__)>1
- D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3);
- else
- D__=Tmp__;
- end;
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-';
- Eq__=Tmp__+string(D__);
- elseif type(CutD__)==1
- V1__=CutD__(1:3);
- D__=CutD__(4);
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+';
- Eq__=Tmp__+string(D__);
- else
- K__=mtlb_findstr(CutD__,'=');
- if K__>0
- Tmp__1=part(CutD__,1:K__-1);
- Tmp__2=part(CutD__,K__+1:length(CutD__));
- Eq__=Tmp__1+'-('+Tmp__2+')';
- else
- Eq__=CutD__;
- end;
- end;
- Eq__='('+string(Fugou__)+')*('+Eq__+')';
- Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')');
- Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')');
- Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')');
- Tmp__1=Op(5,Fd__L);
- Tmp__2=Op(6,Fd__L);
- CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__);
- EkL__=[];
- for I__=1:length(CutuvL__)
- Out__1=Op(I__,CutuvL__);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixjoin(EkL__,list(Tmp__));
- end;
- Tmp__=mtlb_findstr(DrwS__,'e');
- if length(Tmp__)~=0
- Tmp__=Paramplot('[Umax__,T]','T=[Vmin__,Vmax__]','N='+string(Np__(2)));
- Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1));
- for I__=1:length(Tmp__L)
- Out__1=Op(I__,Tmp__L);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixjoin(EkL__,list(Tmp__));
- end
- end;
- Tmp__=mtlb_findstr(DrwS__,'n');
- if length(Tmp__)~=0
- Tmp__=Paramplot('[T,Vmax__]','T=[Umin__,Umax__]','N='+string(Np__(1)));
- Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1));
- for I__=1:length(Tmp__L)
- Out__1=Op(I__,Tmp__L);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixjoin(EkL__,list(Tmp__));
- end
- end;
- Tmp__=mtlb_findstr(DrwS__,'w');
- if length(Tmp__)~=0
- Tmp__=Paramplot('[Umin__,T]','T=[Vmin__,Vmax__]','N='+string(Np__(2)));
- Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1));
- for I__=1:length(Tmp__L)
- Out__1=Op(I__,Tmp__L);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixjoin(EkL__,list(Tmp__));
- end
- end;
- Tmp__=mtlb_findstr(DrwS__,'s');
- if length(Tmp__)~=0
- Tmp__=Paramplot('[T,Vmin__]','T=[Umin__,Umax__]','N='+string(Np__(1)));
- Tmp__L=MakecutbycrvL(Tmp__,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1));
- for I__=1:length(Tmp__L)
- Out__1=Op(I__,Tmp__L);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixjoin(EkL__,list(Tmp__));
- end
- end;
- Fbdxy__=[];
- for I__=1:length(EkL__)
- Out__1=Op(I__,EkL__);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__=Out__1(J__,1:2);
- Out__2=[Out__2,Tmp__];
- end;
- Tmp__=Listplot(Out__2);
- Fbdxy__=Mixjoin(Fbdxy__,list(Tmp__));
- end;
- if PT__=='pers'
- [Zval__,Xval__,Yval__]=Evlptablepers(Mix(Fd__,Np__));
- end;
- if PT__=='para'
- [Zval__,Xval__,Yval__]=Evlptablepara(Mix(Fd__,Np__));
- end;
- Mixdisp(Mix('Ridge Equation obtained ',timer()));
- Out__2=Implicitplot(Zval__,Xval__,Yval__);
- IMPLICITDATA=Out__2;
- Tmp__L=[];
- for I__=1:length(Out__2)
- Tmp__1=Op(I__,Out__2);
- Tmp__=MakecutbycrvL(Tmp__1,CutuvL__,Uveq__,Uname__,Vname__,Eps__(1));
- for J__=1:length(Tmp__)
- Tmp__L=Mixjoin(Tmp__L,Op(J__,Tmp__));
- end;
- end;
- Out__3=Tmp__L;
- IMPLICITDATA=Out__3;
- Mixdisp(Mix('ImplicitData obtained ',timer()));
- if PT__=='pers'
- Out__4=Cuspsplitpers(Out__3,Fd__,Eps__(1));
- end;
- if PT__=='para'
- Out__4=Cuspsplitpara(Out__3,Fd__,Eps__(1));
- end;
- CUSPDATA=Out__4;
- CUSPT=CUSPSPLITPT;
- Mixdisp(Mix('CuspData obtained ',timer()));
- FkL__=Mixjoin(EkL__,Out__4);
- if PT__=='pers'
- Fall__=Projpers(FkL__);
- end;
- if PT__=='para'
- Fall__=Projpara(FkL__);
- end;
- if HT__=='raw'
- Mixdisp(Mix('BorderData obtained ',timer()));
- FsL__=FkL__;
- return;
- end;
- BORDERPT=[];
- Tmp__=[];
- for I__=1:length(Fall__)
- Tmp__=Mixjoin(Tmp__,list([]));
- end;
- OTHERPARTITION=Tmp__;
- FsL__=[];
- BORDERHIDDENDATA=[];
- for I__=1:length(Fall__)
- if PT__=='pers'
- Tmp__=Projpers(Op(I__,FkL__));
- end;
- if PT__=='para'
- Tmp__=Projpara(Op(I__,FkL__));
- end;
- ParL__=Partitionseg(Tmp__,Fall__,Eps__(1),Eps__2,I__);
- if length(PARTITIONPT)>2
- Tmp__=length(PARTITIONPT)-1;
- Tmp__1=BORDERPT;
- for J__=2:Tmp__
- Tmp__2=Op(J__,PARTITIONPT);
- Tmp__1=Mixjoin(Tmp__1,list(Tmp__2));
- end;
- BORDERPT=Tmp__1;
- end;
- if PT__=='pers'
- if Fxy__=='p'
- Tmp__1=Op(I__,FkL__);
- Tmp__=Nohiddenpers2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__);
- else
- Tmp__1=Op(I__,FkL__);
- Tmp__=Nohiddenpers2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__);
-// Tmp__2=Mix(Fxy__,Fbdxy__,Xname__,Yname__);
-// Tmp__=Nohiddenpers(ParL__,Tmp__1,Tmp__2);
- end;
- else
- if Fxy__=='p'
- Tmp__1=Op(I__,FkL__);
- Tmp__=Nohiddenpara2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__);
- else
- Tmp__1=Op(I__,FkL__);
- Tmp__=Nohiddenpara2(ParL__,Tmp__1,Fd__,Uveq__,Np__,Eps__);
-// Tmp__2=Mix(Fxy__,Fbdxy__,Xname__,Yname__);
-// Tmp__=Nohiddenpara(ParL__,Tmp__1,Tmp__2);
- end;
- end;
- BORDERHIDDENDATA=Mixjoin(BORDERHIDDENDATA,HIDDENDATA);
- FsL__=Mixjoin(FsL__,Tmp__);
- end;
- Mixdisp(Mix('BorderData obtained ',timer()));
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.bin
deleted file mode 100644
index 04b49b15..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.sci
deleted file mode 100755
index 443751be..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeshasen.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 08.05.20
-// 09.10.05
-// 10.01.20
-// 10.02.01
-
-function Out=Makeshasen(PtnL,PA,V,Bdy)
- Eps=10.0^(-6);
- TenL=KoutenList(PA,V,Bdy);
- Nten=length(TenL);
- Call=length(Bdy);
- Ptn=zeros(1,Call);
- Out=list();
- GL=[]
- Te=-10.0^6;
- for I=1:Nten-1
- TenP=Op(I,TenL); TenQ=Op(I+1,TenL);
- Ts=Op(1,TenP);
- P=Op(2,TenP); Q=Op(2,TenQ);
- NC=Op(4,TenP);
- Tmp=modulo(Ptn(NC)+1,2);
- Ptn(1,NC)=Tmp;
- if Op(1,TenQ)-Ts>Eps
- if Member(Ptn,PtnL)
- if abs(Te-Ts)>Eps
- if GL~=[]
- J=length(Out);
- Out(J+1)=GL;
- end;
- Tmp=Listplot(P,Q);
- GL=Tmp;
- else
- GL=[GL;Q];
- end
- Te=Op(1,TenQ);
- end
- end
- end
- if size(GL,1)>0
- Out=Mixjoin(Out,list(GL))
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.bin
deleted file mode 100644
index ae09526a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.sci
deleted file mode 100755
index 99ad5910..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletondata.sci
+++ /dev/null
@@ -1,171 +0,0 @@
-// 08.07.13
-// 08.10.16
-// 09.03.05
-// 09.05.12
-// 10.05.09
-// 14.07.05
-// 16.12.24 ( when kukanL=[] )
-
-function Allres=Makeskeletondata(Obj2L,Plt2L,R0,Eps2)
- Eps=10.0^(-3);
- Dmat=[];
- Dind=[];
- for I=1:Mixlength(Plt2L)
- Dt=Mixop(I,Plt2L);
- N1=size(Dmat,1)+1;
- Dmat=[Dmat;Dt];
- N2=size(Dmat,1);
- Dind=[Dind;N1,N2];
- end;
- Nind=size(Dind,1);
- Allres=[];
- for Nobj=1:Mixlength(Obj2L)
- Plt2=Mixop(Nobj,Obj2L);
- PhL=Plt2(:,1:2);
- ClipL=[];
- for Ns=1:size(PhL,1)-1
- P1=PhL(Ns:Ns+1,:);
- for I=1:size(Dind,1)
- Tmp=Dmat(Dind(I,1):Dind(I,2),:);
- P2=Tmp(:,1:2);
- KC=IntersectcrvsPp(P1,P2,Eps);
- if Mixlength(KC)>0
- for J=1:Mixlength(KC)
- P=Mixop(1,Mixop(J,KC));
- Tmp=Mixop(2,Mixop(J,KC));
- if Tmp<1+Eps & Ns==1 // 2010.05.09
- continue;
- end;
- if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1
- continue;
- end; //
- N1=Ns;
- N2=Mixop(3,Mixop(J,KC));
- Pa=Plt2(N1,1:2);
- Za=Plt2(N1,3);
- Pb=Plt2(N1+1,1:2);
- Zb=Plt2(N1+1,3);
- if norm(Pa-Pb)<Eps // added from here
- continue;
- end; // upto here
- T1=norm(Pa-P)/norm(Pa-Pb);
- Z1=(1-T1)*Za+T1*Zb;
- Tmp=Dmat(Dind(I,1):Dind(I,2),:);
- Pa=Tmp(N2,1:2);
- Za=Tmp(N2,3);
- Pb=Tmp(N2+1,1:2);
- Zb=Tmp(N2+1,3);
- if norm(Pa-Pb)<Eps // added from here
- continue;
- end; // upto here
- T2=norm(Pa-P)/norm(Pa-Pb);
- Z2=(1-T2)*Za+T2*Zb;
- if Z1<Z2-Eps2
- if ClipL==[] // corrected from here
- Tmp=1;
- else
- Tmp1=ClipL(:,1)-P(1);
- Tmp2=ClipL(:,2)-P(2);
- Tmp3=Tmp1.^2+Tmp2.^2; // 20140705
- Tmp=min(Tmp3);
- end; // upto here
- if Tmp>Eps^2
- Tmp1=P1(2,:)-P1(1,:);
- Tmp2=Pb-Pa;
- Tmp3=Naiseki(Tmp1,Tmp2);
- Tmp3=Tmp3/norm(Tmp1)/norm(Tmp2);
- Tmp=1-0.5*Tmp3^2;
- ClipL=[ClipL;P,N1,T1,R0/Tmp];
- end;
- end;
- end;
- end;
- end;
- end;
- Te=size(Plt2,1);
- KukanL=[1.0,Te];
- P1=PhL;
- if size(ClipL,1)>0
- for I=1:size(ClipL,1)
- P=ClipL(I,1:2);
- NN=ClipL(I,3);
- T=NN+ClipL(I,4);
- R=ClipL(I,5);
- Flg=0;
- for J=NN:-1:1
- Q=PointonCurve(J,P1);
- if norm(P-Q)<R
- continue;
- end
- Flg=1;
- break;
- end;
- if Flg==0
- T1=1;
- else
- T1=J; T2=T;
- H=T2-T1;
- for N=1:10
- H=H*0.5;
- Q=PointonCurve(T1+H,P1);
- if norm(P-Q)<R
- T2=T2-H;
- else
- T1=T1+H;
- end;
- end;
- end;
- Ku=[T1];
- Flg=0;
- for J=NN+1:Te
- Q=PointonCurve(J,P1);
- if norm(P-Q)<R
- continue;
- end;
- Flg=1;
- break;
- end;
- if Flg==0
- T2=Te;
- else
- T1=T; T2=J;
- H=T2-T1;
- for N=1:10
- H=H*0.5;
- Q=PointonCurve(T1+H,P1);
- if norm(P-Q)<R
- T1=T1+H;
- else
- T2=T2-H;
- end;
- end;
- end;
- Ku=[Ku,T2];
- if size(KukanL,2)==0 then
- break;
- end;
- KukanL=Kukannozoku(Ku,KukanL);
- end;
- end;
- Res=[];
- for I=1:size(KukanL,1)
- T1=KukanL(I,1); N1=Trunc(T1);
- T2=KukanL(I,2); N2=Trunc(T2);
- PtL=[];
- if T1-N1<1-Eps
- Tmp=PointonCurve(T1,P1);
- PtL=MixS(Tmp);
- end;
- for J=N1+1:N2
- Tmp=PointonCurve(J,P1);
- PtL=Mixadd(PtL,Tmp);
- end;
- if T2-N2>Eps
- Tmp=PointonCurve(T2,P1);
- PtL=Mixadd(PtL,Tmp);
- end;
- Res=Mixadd(Res,Listplot(PtL));
- end;
- Allres=Mixjoin(Allres,Res);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin
deleted file mode 100644
index 76247746..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci
deleted file mode 100755
index 4838d658..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makeskeletonpersdata.sci
+++ /dev/null
@@ -1,188 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 09.05.12
-// 09.09.25
-// 10.05.09
-// 10.08.17
-// 14.07.05
-
-function Allres=Makeskeletonpersdata(Obj2L,Plt2L,R0,Eps2)
- Eps=10.0^(-3);
- Dmat=[];
- Dind=[];
- for I=1:Mixlength(Plt2L)
- Dt=Mixop(I,Plt2L);
- N1=size(Dmat,1)+1;
- Dmat=[Dmat;Dt];
- N2=size(Dmat,1);
- Dind=[Dind;N1,N2];
- end;
- Nind=size(Dind,1);
- Allres=[];
- for Nobj=1:Mixlength(Obj2L)
- Plt2=Mixop(Nobj,Obj2L);
- PhL=Plt2(:,1:2);
- ClipL=[];
- for Ns=1:size(PhL,1)-1
- P1=PhL(Ns:Ns+1,:);
- for I=1:size(Dind,1)
- Tmp=Dmat(Dind(I,1):Dind(I,2),:);
- P2=Tmp(:,1:2);
- KC=IntersectcrvsPp(P1,P2,Eps);
- if Mixlength(KC)>0
- for J=1:Mixlength(KC)
- P=Mixop(1,Mixop(J,KC));
- Tmp=Mixop(2,Mixop(J,KC));
- if Tmp<1+Eps & Ns==1 // 2010.05.09
- continue;
- end;
- if Tmp>Numptcrv(P1)-Eps & Ns==size(PhL,1)-1
- continue;
- end; //
- N1=Ns;
- N2=Mixop(3,Mixop(J,KC));
- Pa=Plt2(N1,1:2);
- Za=Plt2(N1,3);
- Pb=Plt2(N1+1,1:2);
- Zb=Plt2(N1+1,3);
- if norm(Pa-Pb)<Eps // added from here
- continue;
- end; // upto here
- T1=norm(Pa-P)/norm(Pa-Pb);
- Pka=Cancoordpers([Pa(1),Pa(2),Za]);
- Pkb=Cancoordpers([Pb(1),Pb(2),Zb]);
- if T1>1-Eps
- Pk=Pkb;
- else
- Tmp1=Listplot([Pa,Pb]);
- Tmp2=Spaceline([Pka,Pkb]);
- Tmp=Invperspt(1+T1,Tmp1,Tmp2);
- Pk=Mixop(1,Tmp);
- end;
- Z1=Zperspt(Pk);
- Tmp=Dmat(Dind(I,1):Dind(I,2),:);
- Pa=Tmp(N2,1:2);
- Za=Tmp(N2,3);
- Pb=Tmp(N2+1,1:2);
- Zb=Tmp(N2+1,3);
- if norm(Pa-Pb)<Eps // added from here
- continue;
- end; // upto here
- T2=norm(Pa-P)/norm(Pa-Pb);
- Pka=Cancoordpers([Pa(1),Pa(2),Za]);
- Pkb=Cancoordpers([Pb(1),Pb(2),Zb]);
- if T2>1-Eps
- Pk=Pkb;
- else
- Tmp1=Listplot([Pa,Pb]);
- Tmp2=Spaceline([Pka,Pkb]);
- Tmp=Invperspt(1+T2,Tmp1,Tmp2);
- Pk=Mixop(1,Tmp);
- end
- Z2=Zperspt(Pk);
- if Z1<Z2-Eps2
- if ClipL==[] // corrected from here
- Tmp=1;
- else
- Tmp1=ClipL(:,1)-P(1);
- Tmp2=ClipL(:,2)-P(2);
- Tmp3=Tmp1.^2+Tmp2.^2; // 20140705
- Tmp=min(Tmp3);
- end; // upto here
- if Tmp>Eps^2
- Tmp1=P1(2,:)-P1(1,:);
- Tmp2=Pb-Pa;
- Tmp3=Naiseki(Tmp1,Tmp2);
- Tmp3=Tmp3/norm(Tmp1)/norm(Tmp2);
- Tmp=1-0.5*Tmp3^2;
- ClipL=[ClipL;P,N1,T1,R0/Tmp];
- end;
- end;
- end;
- end;
- end;
- end;
- Te=size(Plt2,1);
- KukanL=[1.0,Te];
- P1=PhL;
- if size(ClipL,1)>0
- for I=1:size(ClipL,1)
- P=ClipL(I,1:2);
- NN=ClipL(I,3);
- T=NN+ClipL(I,4);
- R= ClipL(I,5); // 10.08.17
- Flg=0;
- for J=NN:-1:1
- Q=PointonCurve(J,P1);
- if norm(P-Q)<R
- continue;
- end
- Flg=1;
- break;
- end;
- if Flg==0
- T1=1;
- else
- T1=J; T2=T;
- H=T2-T1;
- for N=1:10
- H=H*0.5;
- Q=PointonCurve(T1+H,P1);
- if norm(P-Q)<R
- T2=T2-H;
- else
- T1=T1+H;
- end;
- end;
- end;
- Ku=[T1];
- Flg=0;
- for J=NN+1:Te
- Q=PointonCurve(J,P1);
- if norm(P-Q)<R
- continue;
- end;
- Flg=1;
- break;
- end;
- if Flg==0
- T2=Te;
- else
- T1=T; T2=J;
- H=T2-T1;
- for N=1:10
- H=H*0.5;
- Q=PointonCurve(T1+H,P1);
- if norm(P-Q)<R
- T1=T1+H;
- else
- T2=T2-H;
- end;
- end;
- end;
- Ku=[Ku,T2];
- KukanL=Kukannozoku(Ku,KukanL);
- end;
- end;
- Res=[];
- for I=1:size(KukanL,1)
- T1=KukanL(I,1); N1=Trunc(T1);
- T2=KukanL(I,2); N2=Trunc(T2);
- PtL=[];
- if T1-N1<1-Eps
- Tmp=PointonCurve(T1,P1);
- PtL=MixS(Tmp);
- end;
- for J=N1+1:N2
- Tmp=PointonCurve(J,P1);
- PtL=Mixadd(PtL,Tmp);
- end;
- if T2-N2>Eps
- Tmp=PointonCurve(T2,P1);
- PtL=Mixadd(PtL,Tmp);
- end;
- Res=Mixadd(Res,Listplot(PtL));
- end;
- Allres=Mixjoin(Allres,Res);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.bin
deleted file mode 100644
index e8a0ce7a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.sci
deleted file mode 100755
index dc917f30..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makevaltable.sci
+++ /dev/null
@@ -1,79 +0,0 @@
-// 08.09.09
-// 08.10.08
-// 08.12.06
-// 08.12.30
-// 09.06.03
-// 13.10.19 ( __ added to variables )
-
-function [Zval__,Xval__,Yval__]=Makevaltable(MS__)
- Eps__=10^(-6);
- Nargs__=Mixlength(MS__);
- Fstr__=Mixop(1,MS__);
- Tmp__=Mixop(2,MS__);
- Tmp1__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,Tmp1__-1);
- Xrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__)));
- Tmp__=Mixop(3,MS__);
- Tmp1__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,Tmp1__-1);
- Yrange__=evstr(part(Tmp__,Tmp1__+1:length(Tmp__)));
- Tmp__=strsubst(Fstr__,Xname__,'x');
- Fstr__=strsubst(Tmp__,Yname__,'y');
- Tmp__=mtlb_findstr(Fstr__,Xname__);
- if length(Tmp__)==0
- Fstr__=Fstr__+'+0*x';
- end;
- Mdv__=50;
- Ndv__=50;
- if Nargs__>=4
- Tmp__=Mixop(4,MS__);
- if length(Tmp__)>1
- Mdv__=Tmp__(1,1);
- Ndv__=Tmp__(1,2);
- else
- Mdv__=Tmp__
- if Nargs__==4
- Ndv__=Mdv__
- else
- Tmp1__=Mixop(5,MS__);
- if type(Tmp1__)==1 & length(Tmp1__)==1
- Ndv__=Tmp1__;
- else
- Ndv__=Mdv__;
- end
- end
- end
- end
- X1__=Xrange__(1); X2__=Xrange__(2);
- Y1__=Yrange__(1); Y2__=Yrange__(2);
- Dx__=(X2__-X1__)/(Mdv__-1);
- Dy__=(Y2__-Y1__)/(Ndv__-1);
- Xval__=[];
- Tmp__=X1__;
- while Tmp__<X2__+Eps__
- Xval__=[Xval__,Tmp__];
- Tmp__=Tmp__+Dx__;
- end;
- Yval__=[];
- Tmp__=Y1__;
- while Tmp__<Y2__+Eps__
- Yval__=[Yval__,Tmp__];
- Tmp__=Tmp__+Dy__;
- end;
- I__=1;
-// x=Xval;
-// for y=Yval
-// Tmp=evstr(Fstr);
-// Zval(I,:)=Tmp;
-// I=I+1;
-// end;
- for y=Yval__
- J__=1;
- for x=Xval__
- Zval__(I__,J__)=evstr(Fstr__);
- J__=J__+1;
- end;
- I__=I__+1;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.bin
deleted file mode 100644
index 36526d8e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.sci
deleted file mode 100755
index a16a5a4d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MakeveLfaceL.sci
+++ /dev/null
@@ -1,68 +0,0 @@
-// 08.08.22
-// 09.10.25
-// 09.10.26
-// 09.10.27
-// 09.10.29
-
-function Out=MakeveLfaceL(VfL)
- // Out format
- // VeL Edge, Face num(as numlist), VeL num
- // FL Face (Vertexs)
- Eps=10^(-4);
- Tmp=VfL($);
- Tmp1=Tmp(1);
- if type(Tmp1)==1
- FvL=list(VfL);
- else
- FvL=VfL;
- end;
- EL=list(); FL=list();
- for Nn=1:length(FvL)
- Tmp=FvL(Nn);
- VL=Tmp(1);
- if length(VL)>0
- FnL=Tmp(2);
- FaceL=list();
- for I=1:length(FnL)
- Tmp1=FnL(I);
- PtL=list();
- for J=1:length(Tmp1)
- Tmp2=Tmp1(J);
- PtL(J)=VL(Tmp2);
- end;
- FaceL(I)=PtL;
- end;
- else
- FaceL=list(Tmp(2));
- end;
- for I=1:length(FaceL)
- Face=FaceL(I);
- Face($+1)=Face(1);
- FL($+1)=Face;
- for J=1:length(Face)-1
- Edge=list(Face(J),Face(J+1));
- Flg=0;
- for K=1:length(EL)
- Tmp=EL(K);
- Tmp1=Tmp(1);
- Tmp2=norm(Edge(1)-Tmp1(1))+norm(Edge(2)-Tmp1(2));
- Tmp3=norm(Edge(1)-Tmp1(2))+norm(Edge(2)-Tmp1(1));
- if Tmp2<Eps | Tmp3<Eps
- Tmp=EL(K);
- Tmp1=Tmp(1);
- Tmp2=[Tmp(2),length(FL)];
- EL(K)=list(Tmp1,Tmp2,K);
- Flg=1;
- break;
- end;
- end;
- if Flg==0
- Ntmp=length(EL);
- EL(Ntmp+1)=list(Edge,[length(FL)],Ntmp+1);
- end;
- end;
- end;
- end;
- Out=list(EL,FL);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.bin
deleted file mode 100644
index e1c2db72..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.sci
deleted file mode 100644
index fb8aa27b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Makexybdy.sci
+++ /dev/null
@@ -1,111 +0,0 @@
-// 08.09.13
-// 08.09.16
-// 08.10.11
-// 08.10.27
-// 14.07.07 debug ( Kitahara )
-
-function EhL=Makexybdy(Fd,Np)
- Eps0=10^(-4);
- FdL=Fullformfunc(Fd);
- Tmp1=Mixop(2,FdL);
- Tmp2=Mixop(3,FdL);
- Xystr=[Tmp1,Tmp2];
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- DrwS=Mixop(7,FdL);
- Cflg=0;
- EhL=[];
- Tmp=mtlb_findstr(DrwS,'e');
- if length(Tmp)~=0
- Tmp1=strsubst(Xystr,Uname,'('+string(Umax)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Paramplot(Tmp1,Tmp2,Tmp3);
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- EhL=Mixadd(EhL,Tmp);
- end;
- Tmp=mtlb_findstr(DrwS,'n');
- if length(Tmp)~=0
- Tmp1=strsubst(Xystr,Vname,'('+string(Vmax)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Paramplot(Tmp1,Tmp2,Tmp3);
- if Cflg~=0 // 140707 Kitahara
- Tmp1=Mixop(Mixlength(EhL),EhL);
- Tmp=Joincrvs(Tmp1,Tmp);
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL);
- EhL=Mixadd(Tmp1,Tmp);
- else
- Cflg=0;
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- EhL=Mixadd(EhL,Tmp);
- end;
- end;
- Tmp=mtlb_findstr(DrwS,'w');
- if length(Tmp)~=0
- Tmp1=strsubst(Xystr,Uname,'('+string(Umin)+')');
- Tmp2=Mixop(6,FdL);
- Tmp3='N='+string(Np(2));
- Tmp=Paramplot(Tmp1,Tmp2,Tmp3);
- if Cflg~=0 //if Cflg==0
- Tmp1=Mixop(Mixlength(EhL),EhL);
- Tmp=Joincrvs(Tmp1,Tmp);
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL);
- EhL=Mixadd(Tmp1,Tmp);
- else
- Cflg=0;
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- EhL=Mixadd(EhL,Tmp);
- end;
- end;
- Tmp=mtlb_findstr(DrwS,'s');
- if length(Tmp)~=0
- Tmp1=strsubst(Xystr,Vname,'('+string(Vmin)+')');
- Tmp2=Mixop(5,FdL);
- Tmp3='N='+string(Np(1));
- Tmp=Paramplot(Tmp1,Tmp2,Tmp3);
- if Cflg~=0 //if Cflg==0
- Tmp1=Mixop(Mixlength(EhL),EhL);
- Tmp=Joincrvs(Tmp1,Tmp);
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- Tmp1=Mixsub(1:Mixlength(EhL)-1,EhL);
- EhL=Mixadd(Tmp1,Tmp);
- else
- Cflg=0;
- if norm(Ptstart(Tmp)-Ptend(Tmp))<Eps0
- Cflg=1;
- Tmp(size(Tmp,1),:)=Tmp(1,:);
- end;
- EhL=Mixadd(EhL,Tmp);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.bin
deleted file mode 100644
index 8f3c4b69..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.sci
deleted file mode 100755
index 11b02c63..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mawarikomi.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-function Mawarikomi(varargin)
- FL='default';
- haba='10cm';
- Nargs=length(varargin);
- if Nargs>0
- haba=varargin(1);
- if Nargs>=2
- FL=varargin(2);
- if FL==''
- FL='tmp.tex'
- end
- end
- end
- StrM=[
- '\begin{mawarikomi}%',...
- '%<1>[5](0,0)%',...
- '{'+haba+'}{%',...
- '',...
- '}',...
- '',...
- '',...
- '\end{mawarikomi}'...
- ];
- if FL~='default'
- Fid=mopen(FL,'w');
- mprintf('%s\n\n','Writing to '+FL);
- end;
- for I=1:size(StrM,2)
- Str=StrM(I);
- mprintf('%s\n',Str);
- if FL~='default'
- mfprintf(Fid,'%s\n',Str);
- end
- end
- if FL~='default'
- mclose(Fid);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.bin
deleted file mode 100644
index 1bc9eef3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.sci
deleted file mode 100755
index 65f543ea..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MeetWindow.sci
+++ /dev/null
@@ -1,91 +0,0 @@
-//
-// 08.05.30 debugged
-// 08.08.14 (horner)
-// 09.12.31 (gsort)
-// 15.10.23 ( horner not used )
-// 16.12.29 (msprintf("%3.10f",..) used )
-
-function R=MeetWindow(PA,PB)
- global XMIN XMAX YMIN YMAX
- if InWindow(PA)=='i' & InWindow(PB)=='i'
- R=[PA;PB];
- return
- end;
- Eps=10.0^(-6);
- t=poly(0,'T');
- PT="(1-(t))*PA+(t)*PB";
- Txm=-1; TxM=-1; Tym=-1; TyM=-1;
- if PA(1)~=PB(1)
- Txm=(XMIN-PA(1))/(PB(1)-PA(1));
- TxM=(XMAX-PA(1))/(PB(1)-PA(1));
- end
- if PA(2)~=PB(2)
- Tym=(YMIN-PA(2))/(PB(2)-PA(2));
- TyM=(YMAX-PA(2))/(PB(2)-PA(2));
- end;
-// Tmp=horner(PT(2),Txm);
- Tmp1=strsubst(PT,"t",msprintf("%3.10f",Txm));
- Tmp1=evstr(Tmp1)
- Tmp=Tmp1(2);
- if Tmp<YMIN-Eps | Tmp>YMAX+Eps
- Txm=-1;
- end
-// Tmp=horner(PT(2),TxM);
- Tmp1=strsubst(PT,"t",msprintf("%3.10f",TxM));
- Tmp1=evstr(Tmp1)
- Tmp=Tmp1(2);
- if Tmp<YMIN-Eps | Tmp>YMAX+Eps
- TxM=-1
- end
-// Tmp=horner(PT(1),Tym);
- Tmp1=strsubst(PT,"t",msprintf("%3.10f",Tym));
- Tmp1=evstr(Tmp1)
- Tmp=Tmp1(1);
- if Tmp<XMIN-Eps | Tmp>XMAX+Eps
- Tym=-1
- end
-// Tmp=horner(PT(1),TyM);
- Tmp1=strsubst(PT,"t",msprintf("%3.10f",TyM));
- Tmp1=evstr(Tmp1)
- Tmp=Tmp1(1);
- if Tmp<XMIN-Eps | Tmp>XMAX+Eps
- TyM=-1
- end
- Tmp=gsort([Txm,TxM,Tym,TyM]);
- Tans=Tmp(length(Tmp):-1:1);
- Tmp=[];
- for I=1:length(Tans)
- Tmp1=Tans(I);
- if Tmp1>-Eps & Tmp1<1+Eps
- if length(Tmp)==0
- Tmp=[Tmp1];
- elseif abs(Tmp(length(Tmp))-Tmp1)>Eps
- Tmp=[Tmp,Tmp1]
- end
- end
- end
- Tans=Tmp;
- if length(Tans)==0
- R=[];
- return;
- end
- if length(Tans)==1
-// Ten1=horner(PT,Tans(1));
- Tmp1=strsubst(PT,"t",string(Tans(1)));
- Ten1=evstr(Tmp1)
- if InWindow(PA)=='i'
- R=[PA;Ten1];
- return;
- else
- R=[Ten1;PB];
- return
- end
- end
-// Ten1=horner(PT,Tans(1));
- Tmp1=strsubst(PT,"t",string(Tans(1)));
- Ten1=evstr(Tmp1)
-// Ten2=horner(PT,Tans(2));
- Tmp1=strsubst(PT,"t",string(Tans(2)));
- Ten2=evstr(Tmp1)
- R=[Ten1;Ten2];
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.bin
deleted file mode 100644
index 0392c6b0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.sci
deleted file mode 100755
index 65ba1166..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Meetpoints.sci
+++ /dev/null
@@ -1,169 +0,0 @@
-// 08.10.24
-// 08.10.25
-// 08.10.26
-// 09.12.31 (gsort)
-// 13.10.22 ( __ added to varibles )
-// 13.12.02 debugged
-
-function PtL__=Meetpoints(PtA__,PtB__,Fd__,Uveq__,Np__,Eps__)
- Eps__0=10^(-4);
- Vec__=PtB__-PtA__;
- Out__=[];
- PtL__=[];
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Mixop(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- Fd__L=Fullformfunc(Fd__);
- Xf__=Mixop(2,Fd__L);
- Yf__=Mixop(3,Fd__L);
- Zf__=Mixop(4,Fd__L);
- Tmp__=Mixop(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); UMax__=Urg__(2);
- Vmin__=Vrg__(1); VMax__=Vrg__(2);
- V1__='('+string(Vec__(1))+')';
- V2__='('+string(Vec__(2))+')';
- V3__='('+string(Vec__(3))+')';
- Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))';
- Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))';
- Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))';
- Urg__str=Mixop(5,Fd__L);
- Vrg__str=Mixop(6,Fd__L);
- if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0
- Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__;
- else
- Eq__=Xstr__;
- end;
- MS__=Mix(Eq__,Urg__str,Vrg__str,Np__);
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- for J=1:length(Yval__)-1
- for I=1:length(Xval__)-1
- a1__=Xval__(I);b1__=Yval__(J);c1__=Zval__(J,I);
- a2__=Xval__(I+1);b2__=Yval__(J);c2__=Zval__(J,I+1);
- a3__=Xval__(I+1);b3__=Yval__(J+1);c3__=Zval__(J+1,I+1);
- a4__=Xval__(I);b4__=Yval__(J+1);c4__=Zval__(J+1,I);
- PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__];
- VL__=[c1__,c2__,c3__,c4__,c1__];
- QL__=[];
- for K__=1:4
- P1__=PL__(K__,:); P2__=PL__(K__+1,:);
- M1__=VL__(K__); M2__=VL__(K__+1);
- if M1__>=Eps__0 & M2__>=Eps__0
- continue;
- end;
- if M1__<=-Eps__0 & M2__<=-Eps__0
- continue;
- end;
- if abs(M1__)<Eps__0
- Tmp__=P1__;
- elseif abs(M2__)<Eps__0
- continue;
- else
- Tmp__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__);
- end;
- QL__=[QL__;Tmp__];
- end;
- if size(QL__,1)==2
- Puv__1=QL__(1,:); Puv__2=QL__(2,:);
- Tmp__1=Puv__1(1);
- Tmp__2=Puv__1(2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__); // 13.12.02
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- P1__=[Xv__,Yv__,Zv__];
- Tmp__1=Puv__2(1);
- Tmp__2=Puv__2(2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- P2__=[Xv__,Yv__,Zv__];
- V1__=Vec__(1); V2__=Vec__(2); V3__=Vec__(3);
- if abs(V1__)>Eps__0
- M1__=PtA__(3)+V3__/V1__*(P1__(1)-PtA__(1))-P1__(3);
- M2__=PtA__(3)+V3__/V1__*(P2__(1)-PtA__(1))-P2__(3);
- elseif abs(V2__)>Eps__0
- M1__=PtA__(3)+V3__/V2__*(P1__(2)-PtA__(2))-P1__(3);
- M2__=PtA__(3)+V3__/V2__*(P2__(2)-PtA__(2))-P2__(3);
- else
- M1__=PtA__(2)-P1__(2);
- M2__=PtA__(2)-P2__(2);
- end;
- if M1__*M2__>=0
- if (M1__>Eps__0 & M2__>Eps__0) | (M1__<-Eps__0 & M2__<-Eps__0)
- continue;
- end;
- if abs(M1__)<=Eps__0
- Pt__=P1__; Ptuv__=Puv__1;
- else
- Pt__=P2__; Ptuv__=Puv__2;
- end;
- else
- Pt__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__);
- Ptuv__=1/(M1__-M2__)*(-M2__*Puv__1+M1__*Puv__2);
- end;
- if type(Uveq__)==10
- Tmp__1='('+string(Ptuv__(1))+')';
- Tmp__2='('+string(Ptuv__(2))+')';
- Tmp__=strsubst(Uveq__,Uname__,Tmp__1);
- Tmp__=strsubst(Tmp__,Vname__,Tmp__2);
- Tmp__=evstr(Tmp__);
- if Tmp__<-Eps__0
- continue;
- end;
- end;
- Tmp__1=Naiseki(Pt__-PtA__,Vec__);
- Tmp__1=Tmp__1/norm(Vec__)^2;
- if Tmp__1>-Eps__0 & Tmp__1<1+Eps__0
- Out__=[Out__,Tmp__1];
- end;
- end;
- end;
- end;
- if length(Out__)>0
- Out__=gsort(Out__);
- Out__=Out__(length(Out__):-1:1);
- Tmp__=[Out__(1)];
- for I__=2:length(Out__)
- Tmp__1=(Out__(I__)-Tmp__(length(Tmp__)))*Vec__;
- Tmp__1=norm(Tmp__1);
- if Tmp__1>Eps__
- Tmp__=[Tmp__,Out__(I__)];
- end;
- end;
- Out__=Tmp__;
- for I__=1:length(Out__)
- Tmp__=PtA__+Out__(I__)*Vec__;
- PtL__=Mixadd(PtL__,Tmp__);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.bin
deleted file mode 100644
index 61d508ef..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.sci
deleted file mode 100755
index 79826f90..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Member.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 08.05.18
-
-// Structure changed
-// 09.10.11
-
-function TF=Member(A,L)
- if Mixtype(L)>1
- N=Mixlength(L);
- else
- N=length(L);
- end
- for I=1:N
- Tmp=Op(I,L);
- if A==Tmp
- TF=%t
- return
- end
- end
- TF=%f
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.bin
deleted file mode 100644
index 2bc985c7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.sci
deleted file mode 100755
index de8d4b0d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi.sci
+++ /dev/null
@@ -1,206 +0,0 @@
-// 08.08.21
-// 09.10.24
-// 09.10.26
-
-function Menkakusi(Face,Nf,Ptype)
- global THETA PHI EyePoint FocusPoint VELNO VELHI;
- Eps0=10^(-6);
- Eps=10^(-4);
- Tmp1=Face(1)-Face(2);
- Tmp2=Face(3)-Face(2);
- if norm(Tmp1)<Eps | norm(Tmp2)<Eps
- return;
- end;
- Vec=1/norm(Tmp1)/norm(Tmp2)*Crossprod(Tmp1,Tmp2);
- if norm(Vec)<Eps
- return;
- end;
- if Ptype==-1
- W=EyePoint;
- Tmp=Dotprod(Vec,W-Face(1));
- else
- W=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
- W=100*W;
- Tmp=Dotprod(Vec,W-Face(1));
- end;
- if abs(Tmp)<Eps
- return;
- end;
- if Tmp<-Eps
- Vec=-Vec;
- end;
- if Ptype==-1
- G1=Projpers(Spaceline(Face));
- else
- G1=Projpara(Spaceline(Face))
- end;
- VL=list();
- for I=1:Numptcrv(G1)
- VL(I)=Ptcrv(I,G1);
- end;
- Out1L=list();
- Out2L=VELHI;
- for N=1:length(VELNO)
- Tmp=VELNO(N);
- Edge=Tmp(1);
- Ne=Tmp(2);
- Nenm=Tmp(3);
- if Member(Nf,Ne)
- Out1L($+1)=list(Edge,Ne,Nenm);
- continue;
- end;
- if Ptype==-1
- P=Perspt(Edge(1));
- Q=Perspt(Edge(2));
- else
- P=Parapt(Edge(1));
- Q=Parapt(Edge(2));
- end;
- if norm(P-Q)<Eps
- continue;
- end;
- Tmp=Kyoukai(Mix(G1));
- Tmp1=Naigai(P,Tmp);
- Ng1=Tmp1(1);
- Tmp1=Naigai(Q,Tmp);
- Ng2=Tmp1(1);
- KL=IntersectcrvsPp(Listplot([P,Q]),G1);
- if Mixlength(KL)==0
- if Ng1==0
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Tmp1=(Edge(1)+Edge(2))*0.5-Face(1);
- Tmp=Dotprod(Tmp1,Vec)/norm(Tmp1);
- if Tmp>-Eps
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Out2L($+1)=list(Edge,Ne,Nenm);
- end;
- end;
- continue;
- end;
- Flg=0;
- for I=1:Mixlength(VL)-1
- Tmp=VL(I+1)-VL(I);
- if norm(Tmp)<Eps continue; end;
- Tmp1=Crossprod(Tmp,Q-P)/norm(Tmp)/norm(Q-P);
- if abs(Tmp1)<Eps
- Flg=1;
- break;
- end;
- end;
- if Flg==1
- Tmp=Mixop(I,VL)-P;
- if norm(Tmp)<Eps
- Tmp1=0;
- else
- Tmp1=Crossprod(Tmp,Q-P)/norm(Tmp)/norm(Q-P);
- end;
- if abs(Tmp1)<Eps then
- Out1L($+1)=list(Edge,Ne,Nenm);
- continue;
- end;
- end;
- if Mixlength(KL)==1
- Tmp=KL(1);
- Tmp=Tmp(2)-1;
- if Tmp<Eps
- if Ng2==0
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Tmp1=Edge(2)-Face(1);
- Tmp1=Dotprod(Tmp1,Vec);
- if Tmp1>-Eps
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Out2L($+1)=list(Edge,Ne,Nenm);
- end;
- end;
- continue;
- end;
- if Tmp>1-Eps
- if Ng1==0
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Tmp1=Edge(1)-Face(1);
- Tmp1=Dotprod(Tmp1,Vec);
- if Tmp1>-Eps
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Out2L($+1)=list(Edge,Ne,Nenm);
- end;
- end;
- continue;
- end;
- if Ng1==0 & Ng2==0
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Tmp1=KL(1);
- Tmp1=Tmp1(1);
- if Ptype==-1
- Tmp=Invperspt(Tmp1,Spaceline(Edge));
- else
- Tmp=Invparapt(Tmp1,Spaceline(Edge))
- end;
- Ak=Tmp(1);
- if Ng1==1
- Tmp1=Edge(1)-Face(1);
- Tmp1=Dotprod(Tmp1,Vec);
- if Tmp1>-Eps
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Tmp2=list(Ak,Edge(2));
- Out1L($+1)=list(Tmp2,Ne,Nenm);
- Tmp2=list(Edge(1),Ak);
- Out2L($+1)=list(Tmp2,Ne,Nenm);
- end;
- end;
- if Ng2==1
- Tmp1=Edge(2)-Face(1);
- Tmp1=Dotprod(Tmp1,Vec);
- if Tmp1>-Eps
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Tmp2=list(Edge(1),Ak);
- Out1L($+1)=list(Tmp2,Ne,Nenm);
- Tmp2=list(Ak,Edge(2));
- Out2L($+1)=list(Tmp2,Ne,Nenm);
- end;
- end;
- end;
- end;
- if Mixlength(KL)==2
- Tmp1=KL(1);
- Tmp1=Tmp1(2);
- Tmp2=KL(2);
- Tmp2=Tmp2(2);
- if Tmp1>Tmp2
- KL=list(KL(2),KL(1));
- end;
- Tmp=Spaceline(Edge);
- Tmp1=KL(1);
- Tmp1=Tmp1(1);
- Tmp2=KL(2);
- Tmp2=Tmp2(1);
- if Ptype==-1
- Ak=Mixop(1,Invperspt(Tmp1,Tmp));
- Bk=Mixop(1,Invperspt(Tmp2,Tmp))
- else
- Ak=Mixop(1,Invparapt(Tmp1,Tmp));
- Bk=Mixop(1,Invparapt(Tmp2,Tmp))
- end;
- Tmp1=(Ak+Bk)*0.5-Face(1);
- Tmp=Dotprod(Tmp1,Vec);
- if Tmp>-Eps
- Out1L($+1)=list(Edge,Ne,Nenm);
- else
- Out1L($+1)=list(list(Edge(1),Ak),Ne,Nenm);
- Out1L($+1)=list(list(Bk,Edge(2)),Ne,Nenm);
- Out2L($+1)=list(list(Ak,Bk),Ne,Nenm);
- end;
- end;
- end;
- VELNO=Out1L;
- VELHI=Out2L;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.bin
deleted file mode 100644
index bcb9509f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.sci
deleted file mode 100755
index 43eab74b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Menkakusi2.sci
+++ /dev/null
@@ -1,186 +0,0 @@
-// 09.10.29
-// 09.11.15
-// 10.08.17 debug (line 66)
-
-function Menkakusi2(Face,Nf,Ptype)
- global THETA PHI EyePoint FocusPoint VELNO VELHI;
- Eps0=10^(-6);
- Eps=10^(-4);
- Tmp1=Face(1)-Face(2);
- Tmp2=Face(3)-Face(2);
- if norm(Tmp1)<Eps | norm(Tmp2)<Eps
- return;
- end;
- Vec=1/norm(Tmp1)/norm(Tmp2)*Crossprod(Tmp1,Tmp2);
- if norm(Vec)<Eps
- return;
- end;
- if Ptype==-1
- W=EyePoint;
- Tmp=Dotprod(Vec,W-Face(1));
- else
- W=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
- W=100*W;
- Tmp=Dotprod(Vec,W-Face(1));
- end;
- if abs(Tmp)<Eps
- return;
- end;
- if Tmp<-Eps
- Vec=-Vec;
- end;
- if Ptype==-1
- G1=Projpers(Spaceline(Face));
- else
- G1=Projpara(Spaceline(Face))
- end;
- VL=list();
- for I=1:Numptcrv(G1)
- VL(I)=Ptcrv(I,G1);
- end;
- Out1L=list();
- Out2L=VELHI;
- for N=1:length(VELNO)
- Out1=list();
- Out2=list();
- Tmp=VELNO(N);
- Edge=Tmp(1);
- Ne=Tmp(2);
- NNe=Tmp(3);
- if Member(Nf,Ne)
- Out1L($+1)=list(Edge,Ne,NNe);
- continue;
- end;
- if Ptype==-1
- PtA=Perspt(Edge(1));
- PtB=Perspt(Edge(2));
- else
- PtA=Parapt(Edge(1));
- PtB=Parapt(Edge(2));
- end;
- if norm(PtA-PtB)<Eps continue; end;
- Bdy=list(G1);
- V=PtB-PtA;
- TenL=KoutenList(PtA,V,Bdy);
- Nten=length(TenL);
- if Nten==0 // 10.08.17
- Out1L($+1)=list(Edge,Ne,NNe);
- continue;
- end;
- Te=0;
- Pe3=Edge(1);
- if Ptype==-1
- Tmp1=Perspt(Pe3);
- Tmp=Invperspt(Tmp1,Spaceline(Face));
- else
- Tmp1=Parapt(Pe3);
- Tmp=Invparapt(Tmp1,Spaceline(Face));
- end;
- Qe3=Tmp(1);
- Flg=0;
- for I=1:Nten
- TenP=TenL(I);
- Ts=TenP(1);
- P=TenP(2);
- if Ts<-Eps
- continue;
- end;
- Eline=Spaceline(Edge);
- if Ptype==-1
- Tmp=Invperspt(P,Eline);
- Tmp1=Invperspt(P,Spaceline(Face));
- else
- Tmp=Invparapt(P,Eline)
- Tmp1=Invparapt(P,Spaceline(Face));
- end;
- P3=Tmp(1); Q3=Tmp1(1);
- if Ts>1-Eps // P3, Q3 are necessary
- Flg=I;
- break;
- end;
- if abs(Te-Ts)>Eps0 //
- if modulo(I,2)==1
- Out1($+1)=list(Pe3,P3);
- else
- if Qe3==[]
- Tmp=Op(2,TenL(I-1));
- if Ptype==-1
- Tmp1=Invperspt(Tmp,Spaceline(Face));
- else
- Tmp1=Invparapt(Tmp,Spaceline(Face));
- end;
- Qe3=Tmp1(1);
- end;
- PM=0.5*(Pe3+P3); QM=0.5*(Qe3+Q3);
- if Ptype==-1
- Z1=Zperspt(PM); Z2=Zperspt(QM);
- else
- Z1=Zparapt(PM); Z2=Zparapt(QM);
- end;
- if Z1>Z2
- Out1($+1)=list(Pe3,P3);
- else
- Out2($+1)=list(Pe3,P3);
- end;
- end;
- end;
- Te=Ts; Pe3=P3; Qe3=Q3;
- end;
- if Flg==0
- if norm(Pe3-Edge(2))>Eps0
- Out1($+1)=list(Pe3,Edge(2));
- end;
- else
- if modulo(Flg,2)==1
- Out1($+1)=list(Pe3,Edge(2));
- else
- PM=0.5*(Pe3+P3); QM=0.5*(Qe3+Q3);
- if Ptype==-1
- Z1=Zperspt(PM); Z2=Zperspt(QM);
- else
- Z1=Zparapt(PM); Z2=Zparapt(QM);
- end;
- if Z1>Z2
- Out1($+1)=list(Pe3,Edge(2));
- else
- Out2($+1)=list(Pe3,Edge(2));
- end;
- end;
- end;
- for I=1:length(Out1)
- Tmp=Out1(I);
- if I==1
- SeL=Tmp;
- else
- if norm(SeL(2)-Tmp(1))<Eps0
- SeL(2)=Tmp(2);
- else
- Out1L($+1)=list(SeL,Ne,NNe);
- SeL=Tmp;
- end;
- end;
- end;
- if length(Out1)>0
- Out1L($+1)=list(SeL,Ne,NNe);
- end;
- for I=1:length(Out2)
- Tmp=Out2(I);
- if I==1
- SeL=Tmp;
- else
- if norm(SeL(2)-Tmp(1))<Eps0
- SeL(2)=Tmp(2);
- else
- Out2L($+1)=list(SeL,Ne,NNe);
- SeL=Tmp;
- end;
- end;
- end;
- if length(Out2)>0
- Out2L($+1)=list(SeL,Ne,NNe);
- end;
- end;
- VELNO=Out1L;
- VELHI=Out2L;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.bin
deleted file mode 100644
index 5b35bcb9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.sci
deleted file mode 100755
index 4f06c437..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mix.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.20
-// 08.08.08
-
-// Structure changed
-// 09.10.11
-
-function M=Mix(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Da=varargin(I);
- M(I)=Da;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.bin
deleted file mode 100644
index 92d14b2c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.sci
deleted file mode 100755
index daf5a2d9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixL.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-
-function M=MixL(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Da=varargin(I);
- M(I)=Da;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.bin
deleted file mode 100644
index 5a0d9b25..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.sci
deleted file mode 100755
index 623af493..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/MixS.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.19
-
-//Structure Changed
-
-// 09.10.11
-
-function M=MixS(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Da=varargin(I);
- M(I)=Da;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.bin
deleted file mode 100644
index cb5b4953..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.sci
deleted file mode 100755
index 8d45fea1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixadd.sci
+++ /dev/null
@@ -1,23 +0,0 @@
-// 05.14 Data Structure
-// 05.16 List of MixList
-// 05.19 use:MixS, MixL, Mixtype
-// 08.08.17
-
-// Structure changed
-// 09.10.11
-
-function M=Mixadd(varargin)
- Nargs=length(varargin);
- M=list();
- Tmp=varargin(1);
- if length(Tmp)==0
- M(1)=varargin(2);
- else
- M=Tmp;
- M($+1)=varargin(2);
- end;
- for I=3:Nargs
- M($+1)=varargin(I);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.bin
deleted file mode 100644
index c15a987e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.sci
deleted file mode 100755
index 2fed1197..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixdisp.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-// 10.01.02
-
-function Mixdisp(L)
- if Mixtype(L)==1
- disp(L)
- return;
- end;
- Str=Makeliststr(L);
- disp(Str)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.bin
deleted file mode 100644
index 3666302f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.sci
deleted file mode 100755
index d6e49c14..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixjoin.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.05.18
-// 08.05.19 Changed
-// 08.08.15
-
-// Structure changed
-// 09.10.11
-
-function M=Mixjoin(varargin)
- Nargs=length(varargin);
- M=list();
- for I=1:Nargs
- Tmp=varargin(I);
- if length(Tmp)==0
- continue;
- end;
- if Mixtype(Tmp)==1
- Tmp=list(Tmp);
- end;
- if length(M)==0
- M=Tmp;
- else
- M=lstcat(M,Tmp);
- end;
- end;
- if length(M)==0
- M=[];
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.bin
deleted file mode 100644
index d9515fd8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.sci
deleted file mode 100755
index 6fd31749..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixlength.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.14 Data Structure
-// 08.05.23 Debugged
-
-// Structure changed
-// 09.10.11
-
-function Out=Mixlength(PL)
- if PL==[]
- Out=0;
- return
- end
- if Mixtype(PL)==1
- Out=size(PL,1);
- else
- Out=length(PL);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.bin
deleted file mode 100644
index b85a4f1a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.sci
deleted file mode 100755
index 7f05a2ab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixmake.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-
-function PL=Mixmake(varargin)
- PL=list();
- for I=1:length(varargin)
- Tmp=varargin(I);
- PL=Mixadd(PL,Tmp);
- end
-endfunction
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.bin
deleted file mode 100644
index f5ff95b4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.sci
deleted file mode 100755
index 10c846dc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixop.sci
+++ /dev/null
@@ -1,22 +0,0 @@
-// 08.05.14 Data Structure
-// 08.04.15 List ex N=1:3
-// 08.05.16 List of MixL
-// 08.05.18 Debugged
-// 08.05.19 Changed
-// 08.08.17
-
-// Structure changed
-// 09.10.11
-
-function D=Mixop(N,PL)
- D=[];
- if Mixtype(PL)==1
- D=PL;
- return;
- end;
- if type(N)~=1 | length(N)>1 | N>Mixlength(PL)
- return
- end;
- D=PL(N);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.bin
deleted file mode 100644
index 116f9ae6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.sci
deleted file mode 100755
index e3e281f3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixsub.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.19
-// 08.05.20 debugged
-// 08.06.02
-
-// Structure changed
-// 09.10.11
-
-function M=Mixsub(Rg,PL)
- M=list();
- N=Mixlength(PL);
- for I=Rg
- if I>N
- return;
- end;
- M($+1)=PL(I);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.bin
deleted file mode 100644
index bd65bd09..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.sci
deleted file mode 100755
index b336c763..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Mixtype.sci
+++ /dev/null
@@ -1,19 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-
-function T=Mixtype(D)
- if type(D)~=15
- T=1;
- return;
- end;
- for I=1:length(D)
- if type(D(I))==15
- T=3;
- return;
- end;
- end;
- T=2;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.bin
deleted file mode 100644
index 23f75fa2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.sci
deleted file mode 100755
index 8a4f0557..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naigai.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.18
-// 08.05.20
-
-function Ptn=Naigai(A,Bdy)
- V=[1,1];
- Call=Mixlength(Bdy);
- KL=KoutenList(A,V,Bdy);
- Ptn=zeros(1,Call);
- for K=1:Mixlength(KL)
- Ten=Op(K,KL);
- T=Op(1,Ten); NC=Op(4,Ten);
- if T<0
- Tmp=modulo(Ptn(NC)+1,2);
- Ptn(1,NC)=Tmp;
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.bin
deleted file mode 100644
index cc184ed1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.sci
deleted file mode 100755
index 193ad384..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Naiseki.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function N=Naiseki(a,b)
- N=a*b';
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.bin
deleted file mode 100644
index 70999c76..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.sci
deleted file mode 100755
index a404370a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nearestpt.sci
+++ /dev/null
@@ -1,53 +0,0 @@
-// 08.05.31
-// 08.06.03
-// 08.10.07
-
-function Ans=Nearestpt(varargin)
- Nargs=length(varargin);
- PL1=varargin(1);
- if size(PL1,1)==1
- Flg=0;
- else
- Flg=1
- end
- Eps=10.0^(-6);
-// Fig=varargin(2);
- PL=varargin(2);
- Ans=MixS(PL1(1,:),1,PL(1,:),1,norm(PL1(1,:)-PL(1,:)));
- for N=1:size(PL1,1)
- PA=PL1(N,:);
- Pm=PL(1,:);
- Im=1;
- Sm=norm(Pm-PA);
- for I=1:size(PL,1)-1
- A1=PL(I,1); A2=PL(I,2);
- B1=PL(I+1,1); B2=PL(I+1,2);
- V1=B1-A1; V2=B2-A2;
- X1=PA(1); X2=PA(2);
- Tmp=V2^2+V1^2;
- if abs(Tmp)<Eps
- continue;
- end;
- T=(-A2*V2-V1*A1+V1*X1+X2*V2)/Tmp;
- if T<-Eps
- P=[A1,A2];
- elseif T>1+Eps
- P=[B1,B2];
- else
- P=[A1+T*V1,A2+T*V2];
- end
- S=norm(P-PA);
- if S<Sm-Eps
- Tmp=ParamonCurve(P,I,PL);
- Pm=P; Im=Tmp; Sm=S;
- end
- end
- if Sm<Op(5,Ans)
- Ans=MixS(PA,N,Pm,Im,Sm);
- end
- end
- if Flg==0
- Ans=Mixsub(3:5,Ans);
- end
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.bin
deleted file mode 100644
index b3417b7a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.sci
deleted file mode 100755
index 9e0227e8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Newlength.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-function Newlength(varargin)
- if length(varargin)==0
- Kyorihensuu();
- else
- FL=varargin(1);
- Kyorihensuu(FL);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.bin
deleted file mode 100644
index a7c43a91..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.sci
deleted file mode 100755
index 3826b281..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara.sci
+++ /dev/null
@@ -1,254 +0,0 @@
-// 08.09.13
-// 09.12.31 (gsort)
-
-function FigkL=Nohiddenpara(varargin)
- global HIDDENDATA THETA PHI;
- Eps=0.001;
- PaL=varargin(1);
- Fk=varargin(2);
- FuncdL=varargin(3);
- Tmp=Mixop(1,FuncdL);
- Fxy=Mixop(1,Tmp);
- K=mtlb_findstr(Fxy,'=');
- Fxy=part(Fxy,K+1:length(Fxy));
- Fbdxy=Mixop(2,FuncdL);
- Tmp=Mixop(3,FuncdL);
- Xname=Mixop(1,Tmp);
- Tmp=Mixop(4,FuncdL);
- Yname=Mixop(1,Tmp);
- FigkL=[];
- if Fbdxy==[]
- return;
- end;
- Bdy=Kyoukai(Fbdxy);
- Ptn=0;
- Fh=Projpara(Fk);
- SeL=[];
- for N=1:length(PaL)-1
- S=(PaL(N)+PaL(N+1))/2;
- P=PointonCurve(S,Fh);
- Tmp=Invparapt(S,Fh,Fk)
- Pk=Mixop(1,Tmp);
- Qk=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
- Flg=zeros(1,Mixlength(Fbdxy));
- for I=1:1000
- Tmp=Pk+I*10*Qk;
- Tmp1=Naigai(Tmp(1:2),Bdy);
- if Tmp1==Flg
- Flg=1;
- Qk=Tmp;
- break;
- end;
- end;
- if Flg~=1
- disp('Bad EyePoint');
- return;
- end;
- T=poly(0,'t');
- P0=(1-T)*Pk+T*Qk;
- X0str='('+pol2str(P0(1))+')';
- Y0str='('+pol2str(P0(2))+')';
- Z0str='('+pol2str(P0(3))+')';
- Tmp=strsubst(Fxy,Xname,X0str);
- Tmp=strsubst(Tmp,Yname,Y0str);
- Efn=Z0str+'-('+Tmp+')';
- t=0;
- Tmp=evstr(Efn);
- Eps=max(Eps,abs(Tmp));
- Tmp1=evstr([X0str,Y0str]);
- t=1;
- Tmp2=evstr([X0str,Y0str]);
- Seg=Listplot([Tmp1,Tmp2]);
- Tmp=[];
- for I=1:Mixlength(Fbdxy)
- Tmp2=Mixop(I,Fbdxy);
- Tmp1=IntersectcrvsPp(Seg,Tmp2,Eps);
- if Mixlength(Tmp1)>0
- Tmp2=[];
- for J=1:Mixlength(Tmp1)
- Tmp3=Mixop(J,Tmp1);
- Tmp3=Mixop(2,Tmp3)-1;
- Tmp2=[Tmp2,Tmp3];
- end;
- Tmp=[Tmp,Tmp2];
- else
- Tmp2=Mixop(I,Fbdxy);
- Tmp1=Nearestpt(Tmp2,Seg);
- Tmp3=Mixop(5,Tmp1);
- if Tmp3<Eps
- Tmp4=Mixop(4,Tmp1);
- Tmp=[Tmp,Tmp4-1];
- end;
- end;
- end;
- if length(Tmp)==0
- SeL=[SeL,N];
- continue;
- end;
- Tmp=gsort(Tmp);
- Tmp=Tmp(length(Tmp):-1:1);
- ParamL=[0];
- for I=1:length(Tmp)
- Tmp1=Tmp(I);
- Tmp2=ParamL(length(ParamL));
- if Tmp1-Tmp2>Eps
- ParamL=[ParamL,Tmp1];
- end;
- end;
- Nhdflg=0;
- for M=1:length(ParamL)-1
- TL=[ParamL(M),ParamL(M+1)];
- t=TL(1);
- Tmp1=evstr([X0str,Y0str]);
- t=TL(2);
- Tmp2=evstr([X0str,Y0str]);
- Tmp=Naigai(0.5*(Tmp1+Tmp2),Bdy);
- Tmp=modulo(sum(Tmp),2);
- if Tmp==Ptn continue; end;
- Ik=max(ceil(log((TL(2)-TL(1))/Eps)/log(2)),6);
- t=TL(1);
- Tmp1=evstr(Efn);
- t=TL(2);
- Tmp2=evstr(Efn);
- if abs(Tmp1)<=Eps
- if M>1
- Nhdflg=-10;
- break;
- end;
- end;
- if abs(Tmp2)<=Eps
- Nhdflg=-10;
- break;
- end;
- if Tmp2>Eps
- if Tmp1<-Eps
- Nhdflg=-10;
- break;
- end;
- for I=1:Ik
- AddL=[];
- VL=[];
- for J=1:length(TL)-1
- Tmp=(TL(J)+TL(J+1))*0.5;
- AddL=[AddL,Tmp];
- t=Tmp;
- Tmp1=evstr(Efn);
- VL=[VL,Tmp1];
- end;
- Tmp1=min(VL);
- if Tmp1<=-Eps*2
- Nhdflg=-10;
- break;
- end;
- TL=gsort([TL,AddL]);
- end;
- if Nhdflg~=0 break; end;
- else
- if Tmp1<-Eps
- Nhdflg=-10;
- break;
- end;
- for I=1:Ik
- AddL=[];
- VL=[];
- for J=1:length(TL)-1
- Tmp=(TL(J)+TL(J+1))*0.5;
- AddL=[AddL,Tmp];
- t=Tmp;
- Tmp1=evstr(Efn);
- VL=[VL,Tmp1];
- end;
- Tmp1=max(VL);
- if Tmp1>Eps*2
- Nhdflg=-10;
- break;
- end;
- TL=gsort([TL,AddL]);
- end;
- if Nhdflg~=0 break; end;
- end;
- end;
- if Nhdflg==0
- SeL=[SeL,N];
- end;
- end;
- FigL=[];
- FigkL=[];
- for I=1:length(SeL)
- Tmp1=PointonCurve(PaL(SeL(I)),Fh);
- Tmp2=PointonCurve(PaL(SeL(I)+1),Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh));
- Tmp3=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- Tmp4=Partcrv3(TP,TQ,Fk)
- FigkL=Mixadd(FigkL,Tmp4);
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps
- FigL=Mixadd(FigL,Partcrv(P,Q,Fh));
- Tmp3=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk));
- else
- FigL=Mixadd(FigL,Fh);
- FigkL=Mixadd(FigkL,Fk);
- end;
- end;
- Tmp=[];
- for I=1:length(PaL)-1
- if ~Member(I,SeL)
- Tmp=[Tmp,I];
- end;
- end;
- SeL=Tmp;
- HIDDENDATA=[];
- for I=1:length(SeL)
- Tmp=PaL(SeL(I));
- Tmp1=PointonCurve(Tmp,Fh);
- Tmp=PaL(SeL(I)+1);
- Tmp2=PointonCurve(Tmp,Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- Tmp=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps
- Tmp=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- else
- HIDDENDATA=Mixadd(HIDDENDATA,Fk);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.bin
deleted file mode 100644
index 4bb581d7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.sci
deleted file mode 100755
index 996559db..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpara2.sci
+++ /dev/null
@@ -1,131 +0,0 @@
-// 08.10.10
-// 08.10.15
-// 09.06.24
-// 10.02.16 Eps
-
-function FigkL=Nohiddenpara2(PaL,Fk,Fd,Uveq,Np,Eps)
- global HIDDENDATA THETA PHI TMP;
- Eps0=10^(-5);
- Fh=Projpara(Fk);
- P1=Ptstart(Fh);
- P2=Ptend(Fh);
- Csp=CuspPt();
- Cspflg=1;
- for I=1:Mixlength(Csp)
- Tmp=Mixop(I,Csp);
- if norm(Tmp-P1)<Eps0
- select Cspflg,
- case 1 then Cspflg=2,
- case 3 then Cspflg=6;
- end;
- continue;
- end;
- if norm(Tmp-P2)<Eps0
- select Cspflg,
- case 1 then Cspflg=3,
- case 2 then Cspflg=6;
- end;
- continue;
- end;
- end;
- SeL=[];
- for N=1:length(PaL)-1
- S=(PaL(N)+PaL(N+1))/2;
- Tmp=Invparapt(S,Fh,Fk);
- PtA=Mixop(1,Tmp);
- PtAp=Parapt(PtA);
- Vec=[sin(THETA)*cos(PHI),sin(THETA)*sin(PHI),cos(THETA)];
- Epstmp=Eps;
- if N==1 & modulo(Cspflg,2)==0
- Tmp=min(Eps(1)*norm(PtAp-Ptstart(Fh)),Eps(1)); //
- Epstmp=[Tmp,Eps(2)]; //
- end;
- if N==length(PaL)-1 & modulo(Cspflg,3)==0
- Tmp=min(Eps(1)*norm(PtAp-Ptend(Fh)),Eps(1)); //
- Epstmp=[Tmp,Eps(2)]; //
- end;
- Flg=PthiddenQ(PtA,Vec,Fd,Uveq,Np,Epstmp);
- if Flg==0
- SeL=[SeL,N];
- end;
- end;
- FigL=[];
- FigkL=[];
- for I=1:length(SeL)
- Tmp1=PointonCurve(PaL(SeL(I)),Fh);
- Tmp2=PointonCurve(PaL(SeL(I)+1),Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh));
- Tmp3=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- Tmp4=Partcrv3(TP,TQ,Fk)
- FigkL=Mixadd(FigkL,Tmp4);
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps(1) //
- FigL=Mixadd(FigL,Partcrv(P,Q,Fh));
- Tmp3=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk));
- else
- FigL=Mixadd(FigL,Fh);
- FigkL=Mixadd(FigkL,Fk);
- end;
- end;
- Tmp=[];
- for I=1:length(PaL)-1
- if ~Member(I,SeL)
- Tmp=[Tmp,I];
- end;
- end;
- SeL=Tmp;
- HIDDENDATA=[];
- for I=1:length(SeL)
- Tmp=PaL(SeL(I));
- Tmp1=PointonCurve(Tmp,Fh);
- Tmp=PaL(SeL(I)+1);
- Tmp2=PointonCurve(Tmp,Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- Tmp=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps(1) //
- Tmp=Invparapt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invparapt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- else
- HIDDENDATA=Mixadd(HIDDENDATA,Fk);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.bin
deleted file mode 100644
index 47aea6f6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.sci
deleted file mode 100755
index 140516b1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers.sci
+++ /dev/null
@@ -1,253 +0,0 @@
-// 08.09.21
-// 09.12.31 (gsort)
-
-function FigkL=Nohiddenpers(varargin)
- global EyePoint FocusPoint HIDDENDATA;
- Eps=0.001;
- PaL=varargin(1);
- Fk=varargin(2);
- FuncdL=varargin(3);
- Tmp=Mixop(1,FuncdL);
- Fxy=Mixop(1,Tmp);
- K=mtlb_findstr(Fxy,'=');
- Fxy=part(Fxy,K+1:length(Fxy));
- Fbdxy=Mixop(2,FuncdL);
- Tmp=Mixop(3,FuncdL);
- Xname=Mixop(1,Tmp);
- Tmp=Mixop(4,FuncdL);
- Yname=Mixop(1,Tmp);
- FigkL=[];
- if Fbdxy==[]
- return;
- end;
- Bdy=Kyoukai(Fbdxy);
- Ptn=0;
- Fh=Projpers(Fk);
- SeL=[];
- for N=1:length(PaL)-1
- S=(PaL(N)+PaL(N+1))/2;
- P=PointonCurve(S,Fh);
- Tmp=Invperspt(S,Fh,Fk)
- Pk=Mixop(1,Tmp);
- Flg=zeros(1,Mixlength(Fbdxy));
- for I=1:1000
- Tmp=Pk+I*(EyePoint-Pk);
- Tmp1=Naigai(Tmp(1:2),Bdy);
- if Tmp1==Flg
- Flg=1;
- Qk=Tmp;
- break;
- end;
- end;
- if Flg~=1
- disp('Bad EyePoint');
- return;
- end;
- T=poly(0,'t');
- P0=(1-T)*Pk+T*Qk;
- X0str='('+pol2str(P0(1))+')';
- Y0str='('+pol2str(P0(2))+')';
- Z0str='('+pol2str(P0(3))+')';
- Tmp=strsubst(Fxy,Xname,X0str);
- Tmp=strsubst(Tmp,Yname,Y0str);
- Efn=Z0str+'-('+Tmp+')';
- t=0;
- Tmp=evstr(Efn);
- Eps=max(Eps,abs(Tmp));
- Tmp1=evstr([X0str,Y0str]);
- t=1;
- Tmp2=evstr([X0str,Y0str]);
- Seg=Listplot([Tmp1,Tmp2]);
- Tmp=[];
- for I=1:Mixlength(Fbdxy)
- Tmp2=Mixop(I,Fbdxy);
- Tmp1=IntersectcrvsPp(Seg,Tmp2,Eps);
- if Mixlength(Tmp1)>0
- Tmp2=[];
- for J=1:Mixlength(Tmp1)
- Tmp3=Mixop(J,Tmp1);
- Tmp3=Mixop(2,Tmp3)-1;
- Tmp2=[Tmp2,Tmp3];
- end;
- Tmp=[Tmp,Tmp2];
- else
- Tmp2=Mixop(I,Fbdxy);
- Tmp1=Nearestpt(Tmp2,Seg);
- Tmp3=Mixop(5,Tmp1);
- if Tmp3<Eps
- Tmp4=Mixop(4,Tmp1);
- Tmp=[Tmp,Tmp4-1];
- end;
- end;
- end;
- if length(Tmp)==0
- SeL=[SeL,N];
- continue;
- end;
- Tmp=gsort(Tmp);
- Tmp=Tmp(length(Tmp):-1:1);
- ParamL=[0];
- for I=1:length(Tmp)
- Tmp1=Tmp(I);
- Tmp2=ParamL(length(ParamL));
- if Tmp1-Tmp2>Eps
- ParamL=[ParamL,Tmp1];
- end;
- end;
- Nhdflg=0;
- for M=1:length(ParamL)-1
- TL=[ParamL(M),ParamL(M+1)];
- t=TL(1);
- Tmp1=evstr([X0str,Y0str]);
- t=TL(2);
- Tmp2=evstr([X0str,Y0str]);
- Tmp=Naigai(0.5*(Tmp1+Tmp2),Bdy);
- Tmp=modulo(sum(Tmp),2);
- if Tmp==Ptn continue; end;
- Ik=max(ceil(log((TL(2)-TL(1))/Eps)/log(2)),6);
- t=TL(1);
- Tmp1=evstr(Efn);
- t=TL(2);
- Tmp2=evstr(Efn);
- if abs(Tmp1)<=Eps
- if M>1
- Nhdflg=-10;
- break;
- end;
- end;
- if abs(Tmp2)<=Eps
- Nhdflg=-10;
- break;
- end;
- if Tmp2>Eps
- if Tmp1<-Eps
- Nhdflg=-10;
- break;
- end;
- for I=1:Ik
- AddL=[];
- VL=[];
- for J=1:length(TL)-1
- Tmp=(TL(J)+TL(J+1))*0.5;
- AddL=[AddL,Tmp];
- t=Tmp;
- Tmp1=evstr(Efn);
- VL=[VL,Tmp1];
- end;
- Tmp1=min(VL);
- if Tmp1<=-Eps*2
- Nhdflg=-10;
- break;
- end;
- TL=gsort([TL,AddL]);
- end;
- if Nhdflg~=0 break; end;
- else
- if Tmp1<-Eps
- Nhdflg=-10;
- break;
- end;
- for I=1:Ik
- AddL=[];
- VL=[];
- for J=1:length(TL)-1
- Tmp=(TL(J)+TL(J+1))*0.5;
- AddL=[AddL,Tmp];
- t=Tmp;
- Tmp1=evstr(Efn);
- VL=[VL,Tmp1];
- end;
- Tmp1=max(VL);
- if Tmp1>Eps*2
- Nhdflg=-10;
- break;
- end;
- TL=gsort([TL,AddL]);
- end;
- if Nhdflg~=0 break; end;
- end;
- end;
- if Nhdflg==0
- SeL=[SeL,N];
- end;
- end;
- FigL=[];
- FigkL=[];
- for I=1:length(SeL)
- Tmp1=PointonCurve(PaL(SeL(I)),Fh);
- Tmp2=PointonCurve(PaL(SeL(I)+1),Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh));
- Tmp3=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- Tmp4=Partcrv3(TP,TQ,Fk)
- FigkL=Mixadd(FigkL,Tmp4);
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps
- FigL=Mixadd(FigL,Partcrv(P,Q,Fh));
- Tmp3=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk));
- else
- FigL=Mixadd(FigL,Fh);
- FigkL=Mixadd(FigkL,Fk);
- end;
- end;
- Tmp=[];
- for I=1:length(PaL)-1
- if ~Member(I,SeL)
- Tmp=[Tmp,I];
- end;
- end;
- SeL=Tmp;
- HIDDENDATA=[];
- for I=1:length(SeL)
- Tmp=PaL(SeL(I));
- Tmp1=PointonCurve(Tmp,Fh);
- Tmp=PaL(SeL(I)+1);
- Tmp2=PointonCurve(Tmp,Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- Tmp=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps
- Tmp=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- else
- HIDDENDATA=Mixadd(HIDDENDATA,Fk);
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.bin
deleted file mode 100644
index 65217043..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.sci
deleted file mode 100644
index d49bce91..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Nohiddenpers2.sci
+++ /dev/null
@@ -1,134 +0,0 @@
-// 08.10.11
-// 08.10.12
-// 08.10.15
-// 09.06.24
-// 10.02.16 Eps
-// 11.04.12 Eps0 (bug)
-// 13.11.02 bug
-
-function FigkL=Nohiddenpers2(PaL,Fk,Fd,Uveq,Np,Eps)
- global EyePoint FocusPoint HIDDENDATA;
- Eps0=10^(-5); // 11.04.12
- Fh=Projpers(Fk);
- P1=Ptstart(Fh);
- P2=Ptend(Fh);
- Csp=CuspPt();
- Cspflg=1;
- for I=1:Mixlength(Csp)
- Tmp=Mixop(I,Csp);
- if norm(Tmp-P1)<Eps0
- select Cspflg,
- case 1 then Cspflg=2,
- case 3 then Cspflg=6;
- end;
- continue;
- end;
- if norm(Tmp-P2)<Eps0
- select Cspflg,
- case 1 then Cspflg=3,
- case 2 then Cspflg=6;
- end;
- continue;
- end;
- end;
- SeL=[];
- for N=1:length(PaL)-1
- S=(PaL(N)+PaL(N+1))/2;
- Tmp=Invperspt(S,Fh,Fk)
- PtA=Mixop(1,Tmp);
- PtAp=Perspt(PtA);
-// Vec=EyePoint-FocusPoint;
- Vec=EyePoint-PtA; // 2013.11.02
- Epstmp=Eps; // 2011.04.12
- if N==1 & modulo(Cspflg,2)==0
- Tmp=min(Eps(1)*norm(PtAp-Ptstart(Fh)),Eps(1)); //
- Epstmp=[Tmp,Eps(2)]; //
- end;
- if N==length(PaL)-1 & modulo(Cspflg,3)==0
- Tmp=min(Eps(1)*norm(PtAp-Ptend(Fh)),Eps(1)); //
- Epstmp=[Tmp,Eps(2)]; //
- end;
- Flg=PthiddenQ(PtA,Vec,Fd,Uveq,Np,Epstmp);
- if Flg==0
- SeL=[SeL,N];
- end;
- end;
- FigL=[];
- FigkL=[];
- for I=1:length(SeL)
- Tmp1=PointonCurve(PaL(SeL(I)),Fh);
- Tmp2=PointonCurve(PaL(SeL(I)+1),Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- FigL=Mixadd(FigL,Partcrv(SP,SQ,Fh));
- Tmp3=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- Tmp4=Partcrv3(TP,TQ,Fk)
- FigkL=Mixadd(FigkL,Tmp4);
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps(1) //
- FigL=Mixadd(FigL,Partcrv(P,Q,Fh));
- Tmp3=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp3);
- Tmp3=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp3);
- FigkL=Mixadd(FigkL,Partcrv3(TP,TQ,Fk));
- else
- FigL=Mixadd(FigL,Fh);
- FigkL=Mixadd(FigkL,Fk);
- end;
- end;
- Tmp=[];
- for I=1:length(PaL)-1
- if ~Member(I,SeL)
- Tmp=[Tmp,I];
- end;
- end;
- SeL=Tmp;
- HIDDENDATA=[];
- for I=1:length(SeL)
- Tmp=PaL(SeL(I));
- Tmp1=PointonCurve(Tmp,Fh);
- Tmp=PaL(SeL(I)+1);
- Tmp2=PointonCurve(Tmp,Fh);
- if I==1
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- if Member(SeL(I)-1,SeL)
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- else
- Tmp=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- P=Tmp1; SP=PaL(SeL(I));
- Q=Tmp2; SQ=PaL(SeL(I)+1);
- end;
- end;
- end;
- if length(SeL)>0
- if norm(P-Q)>Eps(1) //
- Tmp=Invperspt(SP,Fh,Fk);
- TP=Mixop(2,Tmp);
- Tmp=Invperspt(SQ,Fh,Fk);
- TQ=Mixop(2,Tmp);
- HIDDENDATA=Mixadd(HIDDENDATA,Partcrv3(TP,TQ,Fk));
- else
- HIDDENDATA=Mixadd(HIDDENDATA,Fk);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.bin
deleted file mode 100644
index 6093f704..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.sci
deleted file mode 100755
index dad4f4ef..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Numptcrv.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function N=Numptcrv(Fig)
- N=size(Fig,1)
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.bin
deleted file mode 100644
index 1720cf7c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.sci
deleted file mode 100644
index 20a86640..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objcurve.sci
+++ /dev/null
@@ -1,115 +0,0 @@
-// s : 2014.06.22
-// 2014.08.26 debugged 1,-1 => "+","-"
-// 2014.09.07 Objjoin added
-// 2016.10.09 Np in Spacecurve changed
-
-function Out=Objcurve(varargin)
- global OBJFIGNO OBJJOIN
- Eps=10^(-6);
- Args=varargin;
- Nargs=length(Args)
- Tmp=Args(1);
- PtL=Flattenlist(Tmp);
- PL=list();
- for J=1:length(PtL)
- Tmp=PtL(J);
- for K=1:size(Tmp,1)
- PL=lstcat(PL,list(Tmp(K,:)))
- end;
- end;
- Closed=norm(PL(length(PL))-PL(1))<Eps
- Pstr="xy";
- Tmp=Args(Nargs)
- if type(Tmp)==10 then
- Pstr=Tmp;
- Nargs=Nargs-1
- end;
- Sz=0.1;
- Np=4;
- if Nargs>=2 then
- Sz=Args(2)
- end;
- if Nargs>=3 then
- Np=Args(3)
- end;
- Assign("Sz",Sz)
- if Pstr=="xy" then
- Vz=[0,0,1];
- Fs=Assign("[Sz*cos(t),Sz*sin(t),0]")
- end;
- if Pstr=="yz" then
- Vz=[1,0,0];
- Fs=Assign("[0,Sz*cos(t),Sz*sin(t)]")
- end;
- if Pstr=="zx" then
- Vz=[0,1,0];
- Fs=Assign("[Sz*sin(t),0,Sz*cos(t)]")
- end;
- Gc0=Spacecurve(Fs,"t=[0,2*%pi]","N="+string(Np));//16.10.09
- P=PL(1); Q=PL(2); R=PL(length(PL)-1);
- PQ1=Q-P;
- if ~Closed then
- PQ2=PQ1
- else
- PQ2=P-R
- end;
- Vp=PQ1/norm(PQ1)+PQ2/norm(PQ2);
- Vp1=Vp/norm(Vp);
- Theta=acos(min(Dotprod(Vz,Vp1),1));
- Vj=Crossprod(Vz,Vp1);
- if norm(Vj)<Eps then
- Vj=Vz
- end;
- Gc1=Rotate3data(Gc0,Vj,Theta);
- CL=list(Translate3data(Gc1,P));
- for J=2:(length(PL)-1)
- P=PL(J); Q=PL(J+1);
- PQ2=Q-P;
- if norm(PQ2)<Eps then
- continue
- end;
- Vp=PQ1/norm(PQ1)+PQ2/norm(PQ2);
- Vp2=Vp/norm(Vp);
- Theta=acos(min(Dotprod(Vp1,Vp2),1));
- Vj=Crossprod(Vp1,Vp2);
- if norm(Vj)<Eps then
- Vj=Vp1
- end;
- Gc2=Rotate3data(Gc1,Vj,Theta);
- CL=lstcat(CL,list(Translate3data(Gc2,P)));
- PQ1=PQ2;
- Vp1=Vp2;
- Gc1=Gc2;
- end;
- if ~Closed then
- Vp2=(Q-P)/norm(Q-P);
- Theta=acos(min(Dotprod(Vp1,Vp2),1));
- Vj=Crossprod(Vp1,Vp2);
- if norm(Vj)<Eps then
- Vj=Vp1
- end;
- Gc3=Rotate3data(Gc1,Vj,Theta);
- CL=lstcat(CL,list(Translate3data(Gc3,Q)))
- end;
- Objname(); // from 140907
- Join=Objjoin();
- Objjoin(1); // upto
- GL1=CL(1);
- for J=2:length(CL)
- GL2=CL(J);
- Dt=Objrecs(GL1,GL2,"-");
- GL1=Dt(2);
- if J==2 then
- GL0=Dt(1)
- end;
- end;
- if ~Closed then
- Objpolygon(CL(1),"-");
- N=length(CL);
- Objpolygon(CL(N),"+")
- else
- Objrecs(GL1,GL0,"-")
- end;
- Out=CL
- OBJJOIN=Join; // 140907
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.bin
deleted file mode 100644
index 1691debf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.sci
deleted file mode 100644
index e8a80ff3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objjoin.sci
+++ /dev/null
@@ -1,9 +0,0 @@
-// s: 2014.09.07
-
-function Out=Objjoin(varargin)
- global OBJJOIN
- if length(varargin)>0
- OBJJOIN=abs(sign(varargin(1)))
- end;
- Out=OBJJOIN
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.bin
deleted file mode 100644
index c6d194f0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.sci
deleted file mode 100644
index 6c523fc2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objname.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-// s: 2014.09.07
-
-function Objname()
- global OBJFIGNO OBJJOIN
- if OBJJOIN==0 then
- OBJFIGNO=OBJFIGNO+1;
- Gname="ketfig"+string(OBJFIGNO);
- Printobjstr("# "+Gname);
- Printobjstr("g "+Gname);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.bin
deleted file mode 100644
index d9a85501..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.sci
deleted file mode 100644
index ba5b346a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolygon.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// s : 2014.06.22
-// 14.09.07 Objjoin added
-
-function Out=Objpolygon(varargin)
- global OBJFIGNO OBJJOIN
- Eps=10^(-6);
- Args=varargin;
- Nargs=length(Args);
- Tmp=Args(1);
- PtL=Flattenlist(Tmp);
- PL=list();
- for J=1:length(PtL)
- Tmp=PtL(J);
- for K=1:size(Tmp,1)
- PL=lstcat(PL,list(Tmp(K,:)))
- end;
- end;
- Sel=Args(Nargs); Nargs=Nargs-1;
- Objname(); // 140907
- for J=1:length(PL)
- P=PL(J);
- if (length(P)<4) | (P(4)==0) then
- Np=Writeobjpoint(P);
- PL(J)=[P(1:3),Np]
- end;
- end;
- if Nargs==1 then
- Tmp=PL(1);
- Cen=Tmp(1:3);
- Nc=Tmp(4)
- else
- Tmp=Args(2);
- if length(Tmp)==1 then
- Tmp1=PL(Tmp);
- Cen=Tmp1(1:3);
- Nc=Tmp(4)
- else
- Cen=Tmp;
- Nc=Writeobjpoint(Cen)
- end;
- end;
- for J=1:length(PL)
- if J<length(PL) then
- Je=J+1
- else
- Je=1
- end;
- Pt1=Cen;
- PLj=PL(J); PLje=PL(Je);
- Pt2=PLj(1:3); Pt3=PLje(1:3);
- if norm(Crossprod(Pt2-Pt1,Pt3-Pt1))<Eps then
- continue
- end;
- P1=sprintf("%1d",Nc);
- P2=sprintf("%1d",PLj(4))
- P3=sprintf("%1d",PLje(4))
- if Sel=="+" then // 6.22
- Str="f "+P1+" "+P2+" "+P3+" "
- else
- Str="f "+P1+" "+P3+" "+P2+" "
- end;
- Printobjstr(Str)
- end;
- Out=PL
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.bin
deleted file mode 100644
index fed77a7d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.sci
deleted file mode 100644
index c33e23a8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objpolyhedron.sci
+++ /dev/null
@@ -1,25 +0,0 @@
-// s : 2014.06.22
-// 14.09.07 Objjoin added
-
-function Out=Objpolyhedron(Vertex,Face)
- global NPOINT OBJFIGNO;
- OBJFIGNO=OBJFIGNO+1;
- Ninit=NPOINT;
- Objname(); // 140907
- for N=1:length(Vertex)
- P=Vertex(N);
- Np=Writeobjpoint(P);
- Vertex(N)=[P(1:3),Np]
- end;
- for N=1:length(Face)
- F=Face(N)+Ninit;
- Face(N)=F;
- Str="f"
- for J=1:length(F)
- P=sprintf("%1d",F(J));
- Str=Str+" "+P
- end;
- Printobjstr(Str)
- end;
- Out=list(Vertex,Face)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.bin
deleted file mode 100644
index 2a419206..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.sci
deleted file mode 100644
index d8775fb3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objrecs.sci
+++ /dev/null
@@ -1,87 +0,0 @@
-// s : 2014.06.22
-// 2014.09.07 Objjoin added
-
-function Out=Objrecs(varargin)
- global OBJFIGNO OBJJOIN
- Eps=10^(-6);
- Args=varargin;
- Nargs=length(Args);
- Tmp=Args(1);
- PtL=Flattenlist(Tmp);
- PL1=list();
- for J=1:length(PtL)
- Tmp=PtL(J);
- for K=1:size(Tmp,1)
- PL1=lstcat(PL1,list(Tmp(K,:)))
- end;
- end;
- Sel=Args(Nargs); Nargs=Nargs-1;
- Objname(); // // 140907
- for J=1:length(PL1)
- P=PL1(J)
- if (length(P)<4) | (P(4)==0) then
- Np=Writeobjpoint(P);
- PL1(J)=[P(1:3),Np];
- end;
- end;
- Tmp=Args(2);
- if (type(Tmp)==1) & (size(Tmp,1)==1) then
- Drv=Tmp;
- Len=norm(Drv);
- PL2=list();
- for J=1:length(PL1)
- Tmp=PL1(J);
- P=Tmp(1:3)+Drv;
- Np=Writeobjpoint(P);
- PL2=lstcat(PL2,list([P(1:3),Np]));
- if J<length(PL1) then
- Vec=PL1(J+1)-PL1(J);
- if norm(Vec)>Eps then
- Tmp1=Crossprod(Drv,Vec);
- Tmp2=Crossprod(Tmp1,Vec);
- Tmp3=Dotprod(Tmp2,Drv);
- if Tmp3<-Eps then
- Tmp2=-Tmp2
- end;
- Drv=Len/norm(Tmp2)*Tmp2
- end
- end
- end
- else
- PtL=Flattenlist(Tmp);
- PL2=list();
- for J=1:length(PtL)
- Tmp=PtL(J);
- for K=1:size(Tmp,1)
- PL2=lstcat(PL2,list(Tmp(K,:)))
- end;
- end;
- for J=1:length(PL2)
- P=PL2(J);
- if (length(P)<4) | (P(4)==0) then
- Np=Writeobjpoint(P);
- PL2(J)=[P(1:3),Np]
- end;
- end;
- end;
- Printobjstr("vt 0 0");
- Printobjstr("vt 1 0");
- Printobjstr("vt 1 1");
- Printobjstr("vt 0 1");
- for J=2:length(PL1)
- P1=sprintf("%1d",Op(4,PL1(J-1)));
- P2=sprintf("%1d",Op(4,PL2(J-1)));
- P3=sprintf("%1d",Op(4,PL2(J)));
- P4=sprintf("%1d",Op(4,PL1(J)));
- N1=""; N2=""; N3=""; N4="";
- if Sel=="+" then // 6.22
- Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" ";
- Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4;
- else
- Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" ";
- Str=Str+P3+"/3/"+N3+" "+P2+"/2/"+N2;
- end;
- Printobjstr(Str)
- end;
- Out=list(PL1,PL2)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.bin
deleted file mode 100644
index 99ec2207..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.sci
deleted file mode 100644
index 15543b8a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsurf.sci
+++ /dev/null
@@ -1,114 +0,0 @@
-// s : 2014.06.22
-// e : 2014.07.18
-// Objsurf, Objthicksurf : Range argments changed
-// 2014.09.07 Objjoin added
-
-function Out=Objsurf(varargin)
- global OBJFIGNO OBJJOIN
- Args=varargin;
- Nargs=length(Args);
- Sel=Args(Nargs); Nargs=Nargs-1;
- Rf=Args(1);
- N=2;
- Mg=0; Ng=0;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- U=Args(N);
- Mg=length(U)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- else
- Ag=Args(N); Bg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- end;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- V=Args(N);
- Ng=length(V)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- else
- Cg=Args(N); Dg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- end;
- if Mg==0 then
- Mg=Args(N);
- N=N+1;
- U=[];
- for J=1:(Mg+1)
- U=[U,Ag+(J-1)/Mg*(Bg-Ag)];
- end;
- end;
- if Ng==0 then
- Ng=Args(N);
- V=[];
- for K=1:(Ng+1)
- V=[V,Cg+(K-1)/Ng*(Dg-Cg)];
- end;
- end;
- Objname(); // // 140907
- PL=list();
- for J=1:(Mg+1)
- for K=1:(Ng+1)
- P=Rf(U(J),V(K));
- Np=Writeobjpoint(P)
- PL=lstcat(PL,list([P,Np]));
- end;
- end;
- Idx=1:(Ng+1):(Ng+1)*Mg+1;
- Pus=Mixsub(Idx,PL);
- Idx=(Ng+1):(Ng+1):(Ng+1)*(Mg+1);
- Pue=Mixsub(Idx,PL);
- Idx=1:1:Ng+1;
- Pvs=Mixsub(Idx,PL);
- Idx=(Ng+1)*Mg+1:1:(Ng+1)*(Mg+1);
- Pve=Mixsub(Idx,PL);
- Printobjstr("vt 0 0");
- Printobjstr("vt 1 0");
- Printobjstr("vt 1 1");
- Printobjstr("vt 0 1");
- for J=1:Mg
- for K=1:Ng
- P1=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K)))
- P2=sprintf("%1d",Op(4,PL((Ng+1)*J+K)))
- P3=sprintf("%1d",Op(4,PL((Ng+1)*J+K+1)))
- P4=sprintf("%1d",Op(4,PL((Ng+1)*(J-1)+K+1)))
- N1=""; N2=""; N3=""; N4="";
- if Sel=="+" then // 6.22
- Str="f "+P1+"/1/"+N1+" "+P2+"/2/"+N2+" ";
- Str=Str+P3+"/3/"+N3+" "+P4+"/4/"+N4;
- else
- Str="f "+P1+"/1/"+N1+" "+P4+"/4/"+N4+" ";
- Str=Str+P3+"/3/"+N3+" "+P2+"/2/",N2;
- end;
- Printobjstr(Str)
- end;
- end;
- Out=list(U,V,Pus,Pue,Pvs,Pve)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.bin
deleted file mode 100644
index 09306fec..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.sci
deleted file mode 100644
index 808924a4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objsymb.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// s : 2014.08.25
-
-function Objsymb(Symb,Thick,Face,Dir)
- for J=1:length(Symb)
- Objcurve(Symb(J),Thick,Face,Dir);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.bin
deleted file mode 100644
index b73e2b6a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.sci
deleted file mode 100644
index 42fde6a5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Objthicksurf.sci
+++ /dev/null
@@ -1,123 +0,0 @@
-// s : 2014.06.22
-// e : 2014.07.18
-// Objsurf, Objthicksurf : Range argments changed
-// 14.09.07 Objjoin added
-
-function Out=Objthicksurf(varargin)
- global OBJJOIN
- Args=varargin;
- Nargs=length(Args)
- Sel=Args(Nargs); Nargs=Nargs-1;
- Selsurf=part(Sel,1); // from 6.22
- Selside=["0","0","0","0"]; // wesn
- Tmp=mtlb_findstr(Sel,"w");
- if length(Tmp)>0 then
- Selside(1)=part(Sel,Tmp+1)
- end;
- Tmp=mtlb_findstr(Sel,"e");
- if length(Tmp)>0 then
- Selside(2)=part(Sel,Tmp+1)
- end;
- Tmp=mtlb_findstr(Sel,"s");
- if length(Tmp)>0 then
- Selside(3)=part(Sel,Tmp+1)
- end;
- Tmp=mtlb_findstr(Sel,"n");
- if length(Tmp)>0 then
- Selside(4)=part(Sel,Tmp+1)
- end;
- Nfth=Args(Nargs-2);
- Thick1=Args(Nargs-1);
- Thick2=Args(Nargs);
- Nargs=Nargs-3; // upto 6.22
- Rfth=Args(1); // 6.22
- N=2;
- Mg=0; Ng=0;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- U=Args(N);
- Mg=length(U)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- else
- Ag=Args(N); Bg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Ag=Intab(1); Bg=Intab(2);
- N=N+1;
- end;
- if type(Args(N))==1 then
- if length(Args(N))>2 then
- V=Args(N);
- Ng=length(V)-1;
- N=N+1;
- elseif length(Args(N))==2 then
- Intab=Args(N);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- else
- Cg=Args(N); Dg=Args(N+1);
- N=N+2;
- end;
- else // when type(Args(N))==10
- Tmp0=Args(N);
- Tmp=mtlb_findstr("=",Tmp0);
- if length(Tmp)>0 then
- Tmp0=part(Tmp0,(Tmp+1):length(Tmp0));
- end;
- Intab=evstr(Tmp0);
- Cg=Intab(1); Dg=Intab(2);
- N=N+1;
- end;
- if Mg==0 then
- Mg=Args(N);
- N=N+1;
- U=[];
- for J=1:(Mg+1)
- U=[U,Ag+(J-1)/Mg*(Bg-Ag)];
- end;
- end;
- if Ng==0 then
- Ng=Args(N);
- V=[];
- for K=1:(Ng+1)
- V=[V,Cg+(K-1)/Ng*(Dg-Cg)];
- end;
- end;
- Objname(); // 140907 from
- Join=OBJJOIN;
- OBJJOIN=1; // upto
- deff("Out=F1(u,v)","Out=Rfth(u,v)+Thick1*Nfth(u,v)");
- deff("Out=F2(u,v)","Out=Rfth(u,v)+Thick2*Nfth(u,v)");
- Dt1=Objsurf(F1,U,V,Selsurf);
- if Selsurf=="+" then Tmp="-"; else Tmp="+"; end;
- Dt2=Objsurf(F2,U,V,Tmp);
- Out=list(Dt1,Dt2); //from 06.22
- if Selside(1)~="0" then
- Dt=Objrecs(Dt1(3),Dt2(3),Selside(1));
- Out=lstcat(Out,list(Dt));
- end
- if Selside(2)~="0" then
- Dt=Objrecs(Dt1(4),Dt2(4),Selside(2));
- Out=lstcat(Out,list(Dt));
- end
- if Selside(3)~="0" then
- Dt=Objrecs(Dt1(5),Dt2(5),Selside(3));
- Out=lstcat(Out,list(Dt));
- end
- if Selside(4)~="0" then
- Dt=Objrecs(Dt1(6),Dt2(6),Selside(4));
- Out=lstcat(Out,list(Dt));
- end; // upto 6.22
- OBJJOIN=Join // 140907
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.bin
deleted file mode 100644
index fde60066..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.sci
deleted file mode 100755
index 519bc9da..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Op.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 08.05.19
-
-// Structure changed
-// 09.10.11
-// 10.01.10 available for plotdata
-// 10.01.12 available for Dataindexed
-// 10.01.16
-
-function C=Op(N,Data)
- C=[];
- if Mixtype(Data)>1
- C=Mixop(N,Data);
- return;
- end;
- if type(Data)==10
- if size(Data,2)==1
- C=part(Data,N:N);
- else
- C=Data(N)
- end;
- return;
- end;
- if type(Data)==1
- if size(Data,1)==1
- C=Data(N);
- else
- Din=Dataindex(Data);
- if size(Din,1)==1
- C=Data(N,:);
- else
- C=Data(Din(N,1):Din(N,2),:);
- end;
- end;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.bin
deleted file mode 100644
index aaf01a9b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.sci
deleted file mode 100755
index 4007e1b3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openfile.sci
+++ /dev/null
@@ -1,106 +0,0 @@
-
-//
-// 10.01.10 filename written
-// 13.05.20 openfile error tackled
-// creator and date recorded
-// 13.11.01 Beginpicture joined optionally
-
-function Openfile(varargin)
- global Wfile FID;
-
- function Out=Datecount(F)
- Tmp1=fileinfo(F);
- Tmp=getdate(Tmp1(7));
- Year=Tmp(1);
- Sec=((Tmp(4)-1)*24+Tmp(7))*3600+Tmp(8)*60+Tmp(9);
- Out=[Year,Sec];
- endfunction
-
- function Out=Datestr(F)
- if F~="" then
- Tmp1=fileinfo(F);
- Tmp=getdate(Tmp1(7));
- else
- Tmp=getdate();
- end;
- Year=Tmp(1);
- Month=Tmp(2);
- Day=Tmp(6);
- Hour=Tmp(7);
- Min=Tmp(8);
- D=string(Year)+"-"+string(Month)+"-"+string(Day);
- T=string(Hour)+":"+string(Min);
- Out=D+" "+T;
- endfunction
-
- File=varargin(1);
- Bflg=0;
- Creator='';
- Cflg=0;
- Nargs=length(varargin);
- for N=2:Nargs
- Tmp=varargin(N);
- K=mtlb_findstr(Tmp,"=");
- if length(K)>0 then
- Creator=part(Tmp,(K+1):length(Tmp));
- Cflg=1;
- else
- Bflg=1;
- Unitstr=Tmp
- end
- end;
- Recentf='';
- Tmp1=dir("*.sce");
- Files=Tmp1(2);
- if size(Files,1)>0 then
- Recentf=Files(1,:);
- Dt=Datecount(Recentf);
- for J=2:size(Files,1)
- F=Files(J,:);
- D=Datecount(F);
- if D(1)~=Dt(1) then
- if D(1)>Dt(1) then
- Recentf=F;
- Dt=D;
- end
- continue
- end
- if D(2)>Dt(2) then
- Recentf=F;
- Dt=D;
- end
- end;
- end;
- StrW="%%% "+File+" "+Datestr("")
- StrC="%%% "+Creator;
- if Cflg==0 then
- if Recentf~="" then
- StrC=StrC+Recentf+" "+Datestr(Recentf);
- end
- end
- if File =='' then
- Wfile='default';
- else
-// errcatch(4,"continue"); // 2017.02.18 from
-// Tmp=FID;
-// if iserror(4) then
-// FID=[];
-// errclear(4);
-// end;
-// if FID~=[] then
-// mclose(FID);
-// FID=[];
-// end
-// errcatch(4,"kill"); // 2017.02.18 upto
- FID=mopen(File,'w');
- Wfile=File;
- end
- if Wfile=='default'
- mprintf('%s\n%s\n',StrW,StrC);
- else
- mfprintf(FID,'%s\n%s\n',StrW,StrC);
- end
- if Bflg==1 then
- Beginpicture(Unitstr)
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.bin
deleted file mode 100644
index 0562b2b2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.sci
deleted file mode 100644
index e902ce5d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openobj.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-// s : 2014.06.22
-// e : 14.09.07
-
-function Out=Openobj(Fnm)
- global OBJFMT NPOINT NNORM OBJSCALE OBJFIGNO Wfile FID OBJJOIN
- OBJFMT= "%7.4f";
- NPOINT= 0;
- NNORM=0;
- OBJSCALE=1;
- OBJFIGNO=0;
- OBJJOIN=0; // 140906
- if Fnm =='' then
- Wfile='default';
- else
-// errcatch(4,"continue"); //17.02.18from
-// Tmp=FID;
-// if iserror(4) then
-// FID=[];
-// errclear(4);
-// end;
-// if FID~=[] then
-// mclose(FID);
-// FID=[];
-// end
-// errcatch(4,"kill"); //17.02.18upto
- if length(mtlb_findstr(Fnm,".obj"))==0
- Fnm=Fnm+".obj";
- end;
- FID=mopen(Fnm,'w');
- Wfile=Fnm;
- Out=Wfile;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.bin
deleted file mode 100644
index 4fad25f8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.sci
deleted file mode 100755
index a3056f66..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpar.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.05.31
-
-function Openpar(varargin)
- global Wfile FID;
- Nargs=length(varargin);
- Tmp=varargin(1);
- Tmp1=Strop(1,Tmp);
- if Tmp1=='\' | Tmp1=='ツ・'
- Namestr=Tmp;
- N=2;
- else
- Namestr='\tmp';
- N=1;
- end
- Habastr=varargin(N);
- if Nargs>N
- Posstr='['+varargin(N+1)+']';
- else
- Posstr='[c]'
- end
- Openphr(Namestr);
- S='\begin{minipage}'+Posstr+'{'+Habastr+'}%';
- if Wfile=='default'
- mprintf('%s\n',S);
- else
- mfprintf(FID,'%s\n',S);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.bin
deleted file mode 100644
index 3324d29e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.sci
deleted file mode 100755
index 461549e9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.05.31
-
-function Openphr(Str)
- global Wfile FID
- S='\def'+Str+'{%';
- if Wfile=='default'
- mprintf('%s\n',S);
- else
- mfprintf(FID,'%s\n',S);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.bin
deleted file mode 100644
index 6f58ed83..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.sci
deleted file mode 100755
index edf043ca..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openpicture.sci
+++ /dev/null
@@ -1,92 +0,0 @@
-//
-// 09.12.25
-// 11.05.25
-// 14.03.05 MARKLEN
-// 17.03.19 VL=[] => VL="";
-
-function Openpicture(ul)
- global Wfile FID XMIN XMAX YMIN YMAX ULEN
- global MilliIn MARKLEN MARKLENNow PenThickInit;
- Tmp=Doscaling([XMIN,YMIN]);
- Xm=Tmp(1);
- Ym=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- XM=Tmp(1);
- YM=Tmp(2);
- Dx=XM-Xm;
- Dy=YM-Ym;
- Sym='.0123456789 +-*/';
- Tmp=ascii(Sym);
- SL=Sym;
- OL='+-*/';
- if ul~=''
- ULEN=ul;
- end
- Is=1;
- VL=""; // 17.03.19
- Ucode=ascii(ULEN);
- for I=1:length(Ucode)
- C=char(Ucode(I));
- if mtlb_findstr(SL,C)~=[]
- if mtlb_findstr(OL,C)~=[]
- Str=char(Ucode(Is:(I-1)));
- VL=VL+Str+C;
- Is=I+1;
- end
- else
- Unit=char(Ucode(I:(I+1)));
- Str=char(Ucode(Is:(I-1)));
- VL=VL+Str;
- break;
- end;
- end;
- Valu=evstr(VL);
- Str=string(Valu);
- ULEN=Str+Unit;
- if Unit=='cm'
- MilliIn=1000/2.54*Valu;
- end
- if Unit=='mm'
- MilliIn=1000/2.54*Valu/10;
- end
- if Unit=='in'
- MilliIn=1000*Valu;
- end
- if Unit=='pt'
- MilliIn=1000/72.27*Valu;
- end
- if Unit=='pc'
- MilliIn=1000/6.022*Valu;
- end
- if Unit=='bp'
- MilliIn=1000/72*Valu;
- end
- if Unit=='dd'
- MilliIn=1000/1238/1157/72.27*Valu;
- end
- if Unit=='cc'
- MilliIn=1000/1238/1157/72.27*12*Valu;p
- end
- if Unit=='sp'
- MilliIn=1000/72.27/65536*Valu/10;
- end
- MARKLEN=MARKLENNow*1000/2.54/MilliIn;
- if Wfile=='default'
- mprintf('%s%s%s\n','{\unitlength=',ULEN,'%');
- mprintf('%s\n','\begin{picture}%');
- mprintf('%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',...
- '(',Dx,',',Dy,')(',Xm,',',Ym,')%');
- Str='\special{pn '+string(PenThickInit)+'}%';
- mprintf('%s\n',Str);
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s%s%s\n','{\unitlength=',ULEN,'%');
- mfprintf(FID,'%s\n','\begin{picture}%');
- mfprintf(FID,'%c%10.5f%c%10.5f%2s%10.5f%c%10.5f%2s\n',...
- '(',Dx,',',Dy,')(',Xm,',',Ym,')%'); //11.05.25
- Str='\special{pn '+string(PenThickInit)+'}%';
- mfprintf(FID,'%s\n',Str);
- mfprintf(FID,'%s\n','%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.bin
deleted file mode 100644
index 75982c37..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.sci
deleted file mode 100644
index 8889de32..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovalbox.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-function Ovalbox(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- Pos=varargin(1);
- Dr=varargin(2);
- StrV=varargin(3);
- R=0.2;
- NDflg=0;
- for I=4:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- R=Tmp;
- else
- if part(Tmp,1)=='-'
- NDflg=1;
- Tmp1=part(Tmp,2:length(Tmp));
- Cmdstr=strsubst(Tmp1,'*','G1');
- end;
- end;
- end;
- Xr=[XMIN,XMAX];
- Yr=[YMIN,YMAX];
- Uv=0.6; Uh=0.8;
- N=length(StrV);
- W=Uh; H=Uv*N;
- Setwindow([-W/2,W/2],[-H,0]);
- G1=Ovaldata([0,-H/2],W/2,H/2,R);
- Openphr('\ketpictmp');
- Beginpicture('1cm');
- if NDflg==0
- Drwline(G1);
- else
- execstr(Cmdstr);
- end;
- for I=1:N
- Letter([0,Uv/2-Uv*I],'c',Op(I,StrV))
- end;
- Endpicture(0);
- Closephr();
- Setwindow(Xr,Yr);
- Letter(Pos,Dr,'\ketpictmp');
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.bin
deleted file mode 100644
index c39ee4b6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.sci
deleted file mode 100644
index 823fc8c4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ovaldata.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// e : 2015.11.15
-function Out=Ovaldata(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- if Nargs<=1
- Eps=1.0*10^(-4);
- C=[(XMIN+XMAX)/2,(YMIN+YMAX)/2];
- Dx=XMAX-C(1)-Eps;
- Dy=YMAX-C(2)-Eps;
- N=1;
- else
- C=varargin(1);
- Dx=varargin(2);
- Dy=varargin(3);
- N=4;
- end;
- Rc=0.2;
- if N<=Nargs
- Rc=varargin(N)*Rc; // 15.11.15
- end;
- Out=[];
- P=C+[Dx-Rc,Dy-Rc];
- Tmp1=Circledata(P,Rc,'R=[0,%pi/2]','N=10');
- Tmp2=Listplot(C+[Dx-Rc,Dy],C+[0,Dy]);
- Tmp3=Listplot(C+[Dx,0],C+[Dx,Dy-Rc]);
- G=Joincrvs(Tmp3,Tmp1,Tmp2);
- Tmp=Reflectdata(G,[C,C+[0,1]]);
- G=Joincrvs(G,Tmp);
- Tmp=Reflectdata(G,[C,C+[1,0]]);
- Out=Joincrvs(G,Tmp);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.bin
deleted file mode 100644
index 9695687c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.sci
deleted file mode 100755
index 82ac7c4f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramark.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 08.06.18
-
-function P=Paramark(varargin)
- Nargs=length(varargin);
- PA=varargin(1);
- PB=varargin(2);
- PC=varargin(3);
- R=0.5;
- if Nargs>=4
- R=varargin(4)*R;
- end
- U=R*(PA-PB)/Vecnagasa(PA,PB);
- V=R*(PC-PB)/Vecnagasa(PC,PB);
- if Gaiseki(PA-PB,PC-PB)~=0
- P=Listplot([PB+U,PB+U+V,PB+V]);
- else
- P=[];
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.bin
deleted file mode 100644
index 323d0fcd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.sci
deleted file mode 100755
index ce7e0d76..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ParamonCurve.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.05.30
-
-function Out=ParamonCurve(P,N,PtL)
-// PtL=Plt;
- if N==size(PtL,1)
- Out=N;
- else
- Pa=PtL(N,:);
- Pb=PtL(N+1,:);
- V=Pb-Pa;
- W=P-Pa;
- D2=V(1)^2+V(2)^2;
- S=(V(1)*W(1)+V(2)*W(2))/D2;
- S=min(max(S,0),1);
- Out=N+S;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.bin
deleted file mode 100644
index 14f251f7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.sci
deleted file mode 100755
index 83661787..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramoncrv.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 09.10.03
-
-function Out=Paramoncrv(varargin)
- Eps=10^(-8);
- Nargs=length(varargin);
- P=varargin(1);
- Gdata=varargin(Nargs);
- if size(P,1)>1
- Tmp=P; P=Gdata; Gdata=Tmp;
- end;
- if Nargs==2
- Tmp=Nearestpt(P,Gdata);
- Out=Mixop(2,Tmp);
- return;
- end;
- N=varargin(2);
- PtL=Gdata;
- if N==size(PtL,1)
- Out=N;
- else
- Pa=PtL(N,:);
- Pb=PtL(N+1,:);
- V=Pb-Pa;
- W=P-Pa;
- D2=norm(V)^2;
- if D2<Eps
- Out=0;
- return;
- end;
- S=Dotprod(V,W)/D2;
- S=min(max(S,0),1);
- Out=N+S;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.bin
deleted file mode 100644
index fc163602..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.sci
deleted file mode 100755
index 4e3effdc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Paramplot.sci
+++ /dev/null
@@ -1,140 +0,0 @@
-// 08.06.18 (N)
-// 08.12.18
-// 09.03.12
-// 09.12.31 (gsort)
-// 13.10.19 ( __ added to variables )
-// 14.10.24 N,D,E => N__, etc
-// 14.12.11 Assign used
-// 15.11.16 N changed to number of intervals
-// 16.12.13 in case of T1=T2
-
-function P__=Paramplot(varargin)
- Eps__=10^(-5);
- Nargs__=length(varargin);
- if type(varargin(1))==13
- Fnflg__=1;
- Fnx__=varargin(1);
- Fny__=varargin(2); Is__=3;
- if type(varargin(Is__))==13
- Fnflg__=Fnflg__+1;
- Fnargx__=varargin(Is__);
- Fnargy__=varargin(Is__+1);
- Is__=Is__+2;
- end;
- else
- Fnflg__=0;
- Fnstr__=varargin(1); Is__=2;
- end;
- Rgstr__=varargin(Is__); Is__=Is__+1;
- Range__=[0,2*%pi];
- N__=50; // Numpoints
- E__=[]; // Exclusions
- D__=%inf; // Discont
- for I__=Is__:Nargs__
- Tmp__=varargin(I__);
- K__=mtlb_findstr(Tmp__,'=');
- Tmp1__=strsplit(Tmp__,[K__-1,K__]);
- Tmp2__=ascii(Tmp1__(1,1));
- Lhs__=char(Tmp2__(1));
- Str__=Lhs__+'__='+Tmp1__(3,1);
- execstr(Str__);
- end;
- K__=mtlb_findstr(Rgstr__,'=');
- if K__~=[]
- Tmp__=strsplit(Rgstr__,[K__-1,K__]);
- Vname__=Tmp__(1,1);
- Rng__=evstr(Tmp__(3,1));
- else
- Vname__=Rgstr__;
- Rng__=[XMIN,XMAX];
- end
- T1__=Rng__(1); T2__=Rng__(2);
-// Dt__=(T2__-T1__)/(N__-1);
- Dt__=(T2__-T1__)/(N__); // 15.11.16
- if Fnflg__==0
- Str__=Assign(Fnstr__,Vname__,'t__');
- end;
- if abs(Dt__)<Eps__ then // 16.12.13
- t__=T1__;
- P__=evstr(Str__);
- return;
- end;
- P__=[];
- E__=gsort(E__);
- E__=E__(length(E__):-1:1);
- E__=[E__,%inf];
- Tmp__=gsort(E__);
- E__=Tmp__(length(Tmp__):-1:1);
- Ke__=1;
- for t__=T1__:Dt__:T2__
- Pa__=[];
- if t__-E__(Ke__)<-Eps__
- if Fnflg__==0
- Pa__=evstr(Str__);
- else
- if Fnflg__==1
- Pa__=[Fnx__(t__),Fny__(t__)];
- else
- if type(Fnargx__)==1
- Tmp1__=Fnx__(t__);
- else
- Tmp1__=Fnx__(Fnargx__,t__);
- end;
- if type(Fnargy__)==1
- Tmp2__=Fny__(t__);
- else
- Tmp2__=Fny__(Fnargy__,t__);
- end;
- Pa__=[Tmp1__,Tmp2__];
- end;
- end;
- end
- if abs(t__-E__(Ke__))<=Eps__
- if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf]
- Pa__=[%inf,%inf];
- end
- end
- if t__-E__(Ke__)>Eps__
- if Fnflg__==0
- Pa__=evstr(Str__);
- else
- if Fnflg__==1
- Pa__=[Fnx__(t__),Fny__(t__)];
- else
- if type(Fnargx__)==1
- Tmp1__=Fnx__(t__);
- else
- Tmp1__=Fnx__(Fnargx__,t__);
- end;
- if type(Fnargy__)==1
- Tmp2__=Fny__(t__);
- else
- Tmp2__=Fny__(Fnargy__,t__);
- end;
- Pa__=[Tmp1__,Tmp2__];
- end;
- end;
- Ke__=Ke__+1;
- end
- if Pa__~=[]
- if Pa__(1)==%inf
- P__=[P__; Pa__]
- elseif P__==[]
- P__=[Pa__];
- else
- Tmp__=P__(size(P__,1),:);
- if Tmp__(1)==%inf
- P__=[P__;Pa__];
- elseif norm(Tmp__-Pa__)<D__
- P__=[P__;Pa__];
- else
- P__=[P__;%inf,%inf;Pa__];
- end
- end
- end
- end;
- Tmp__=size(P__,1);
- if P__(Tmp__,1)==%inf
- P__=P__(1:Tmp__-1,:);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.bin
deleted file mode 100644
index 092914d8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.sci
deleted file mode 100755
index 5adb4837..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Parapt.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.07.11
-// 10.01.02
-
-function Out=Parapt(P)
- global PHI THETA
- x=P(1);
- y=P(2);
- z=P(3);
- Xz=-x*sin(PHI)+y*cos(PHI);
- Yz=-x*cos(PHI)*cos(THETA)-y*sin(PHI)*cos(THETA)+z*sin(THETA);
- Out=[Xz,Yz];
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.bin
deleted file mode 100644
index 73386a71..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.sci
deleted file mode 100755
index 0b4844df..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-// 08.05.31
-// 09.03.06
-
-function Ans=Partcrv(A,B,PkL)
- Eps=10.0^(-3);
- if type(A)==1 & length(A)==1
- // new part from
- if A>B+Eps
- Npt=Numptcrv(PkL);
- Out1=Partcrv(A,Npt,PkL);
- Out2=Partcrv(1,B,PkL);
- Tmp=Ptstart(PkL)-Ptend(PkL);
- if norm(Tmp)<Eps
- Ans=Joincrvs(Out1,Out2);
- else
- Ans=Mix(Out1,Out2);
- end;
- return;
- end;
- // to here
- Is=ceil(A);
- Ie=floor(B);
- PL=[];
- if A<Is-Eps
- P=(Is-A)*PkL(Is-1,:)+(1-Is+A)*PkL(Is,:);
- PL=[P];
- end
- PL=[PL;PkL(Is:Ie,:)];
- if B>Ie+Eps
- P=(1-B+Ie)*PkL(Ie,:)+(B-Ie)*PkL(Ie+1,:);
- PL=[PL;P]
- end
- Ans=PL;
- return
- end;
- Tmp=Nearestpt(A,PkL);//
- Ta=Op(2,Tmp);//
- Tmp=Nearestpt(B,PkL);//
- Tb=Op(2,Tmp);//
- Ans=Partcrv(Ta,Tb,PkL);//
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.bin
deleted file mode 100644
index 5d9d9e2f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.sci
deleted file mode 100755
index 5b3cd178..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partcrv3.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 08.09.13
-// 09.03.06
-
-function PL=Partcrv3(T1,T2,Fk)
- Eps=10^(-4);
-// Tmp=Mixop(1,Fk);
- // new part from
- if T1>T2+Eps
- Npt=size(Fk,1);
- Out1=Partcrv3(T1,Npt,Fk);
- Out2=Partcrv3(1,T2,Fk);
- Tmp=Fk(1,:)-Fk(Npt,:);
- if norm(Tmp)<Eps
- PL=Joincrvs(Out1,Out2);
- else
- PL=Mix(Out1,Out2);
- end;
- return;
- end;
- // to here
- Is=ceil(T1);
- Ie=floor(T2);
- PL=[];
- if T1<Is-Eps
- P=(Is-T1)*Fk(Is-1,:)+(1-Is+T1)*Fk(Is,:);
- PL=[P]
- end;
- PL=[PL;Fk(Is:Ie,:)];
- if T2>Ie+Eps
- P=(1-T2+Ie)*Fk(Ie,:)+(T2-Ie)*Fk(Ie+1,:);
- PL=[PL;P]
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.bin
deleted file mode 100644
index bf10f26e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.sci
deleted file mode 100644
index a8581b1b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partframe.sci
+++ /dev/null
@@ -1,27 +0,0 @@
-// 13.05.03
-
-function Out=Partframe(Tb,St,Ed)
- G=Dividetable(Tb);
- Gw=G(1);
- Gt=G(2);
- Gy=G(3);
- Gwt=Tb(4);
- Gwy=Tb(5);
- Gat=lstcat(list(Gwt(1)),Gt,list(Gwt(2)));
- Gay=lstcat(list(Gwy(1)),Gy,list(Gwy(2)));
- Tmp1=Ptstart(Gat(St(1)));
- Tmp2=Ptstart(Gay(St(2)));
- Ps=[Tmp1(1),Tmp2(2)];
- Tmp1=Ptstart(Gat(Ed(1)));
- Tmp2=Ptstart(Gay(Ed(2)));
- Pe=[Tmp1(1),Tmp2(2)];
- Pars=Paramoncrv(Ps,Gw);
- Pare=Paramoncrv(Pe,Gw);
- if Pars<Pare then
- Out=Partcrv(Pars,Pare,Gw);
- else
- Tmp1=Partcrv(Pars,Numptcrv(Gw),Gw);
- Tmp2=Partcrv(1,Pare,Gw);
- Out=Joincrvs(Tmp1,Tmp2);
- end
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.bin
deleted file mode 100644
index badede95..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.sci
deleted file mode 100755
index 15d74ec4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PartitionPt.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.09.13
-
-function Out=PartitionPt()
- global PARTITIONPT;
- Out=PARTITIONPT;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.bin
deleted file mode 100644
index b732c600..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.sci
deleted file mode 100755
index 39c23c45..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Partitionseg.sci
+++ /dev/null
@@ -1,100 +0,0 @@
-// 08.09.13
-// 08.10.17
-// 09.05.27
-// 09.12.31 (gsort)
-
-function Out=Partitionseg(varargin)
- global PARTITIONPT OTHERPARTITION;
- Nargs=length(varargin);
- Fig=varargin(1);
- GL=varargin(2); N=3;
- Eps0=10^(-5);
- Eps=0.05;
- if Nargs>2
- Eps=varargin(3);
- end;
- Eps2=0.2;
- if Nargs>3
- Eps2=varargin(4);
- end;
- if Nargs>4
- Ns=varargin(5);
- Other=Mixop(Ns,OTHERPARTITION);
- else
- Ns=1;
- Other=[];
- OTHERPARTITION=[];
- for N=1:Mixlength(GL)
- OTHERPARTITION=Mixadd(OTHERPARTITION,[]);
- end;
- end;
- Npt=size(Fig,1);
- ParL=[1,Npt,Other];
- for N=Ns:Mixlength(GL)
- G=Mixop(N,GL);
- if Fig==G
- KouL=IntersectselfPp(Fig,Eps,Eps2);
- else
- KouL=IntersectcrvsPp(Fig,G,Eps,Eps2);
- Tmp=Nearestpt(Ptstart(Fig),G);
- Tmp1=Mixop(1,Tmp);
- Tmp2=Mixop(2,Tmp);
- Tmp3=Mixop(3,Tmp);
- if Tmp3>Eps0 & Tmp3<Eps
- Tmp1=Mix(Tmp1,1,floor(Tmp2));
- KouL=Mixadd(KouL,Tmp1);
- end;
- Tmp=Nearestpt(Ptend(Fig),G);
- Tmp1=Mixop(1,Tmp);
- Tmp2=Mixop(2,Tmp);
- Tmp3=Mixop(3,Tmp);
- if Tmp3>Eps0 & Tmp3<Eps
- Tmp1=Mix(Tmp1,Numptcrv(Fig),floor(Tmp2));
- KouL=Mixadd(KouL,Tmp1);
- end;
- end;
- for I=1:Mixlength(KouL)
- Tmp=Mixop(I,KouL);
- P=Mixop(1,Tmp);
- S=Mixop(2,Tmp);
- ParL=[ParL,S];
- K=Mixop(3,Tmp);
- S=ParamonCurve(P,K,G);
- Tmp=Mixop(N,OTHERPARTITION);
- Tmp1=gsort([Tmp,S]);
- Tmp1=Tmp1(length(Tmp1):-1:1);
- Tmp2=[];
- for J=1:Mixlength(OTHERPARTITION)
- Tmp3=Mixop(J,OTHERPARTITION);
- if J~=N
- Tmp2=Mixadd(Tmp2,Tmp3);
- else
- Tmp2=Mixadd(Tmp2,Tmp1);
- end;
- end;
- OTHERPARTITION=Tmp2;
- end;
- end;
- ParL=gsort(ParL);
- ParL=ParL(length(ParL):-1:1);
- ParL(1)=1;
- Out=[ParL(1)];
- P=PointonCurve(ParL(1),Fig);
- PARTITIONPT=Mix(P);
- for I=1:length(ParL)
- Tmp=ParL(I);
- P=PointonCurve(Tmp,Fig);
- Tmp1=Out(length(Out));
- Q=PointonCurve(Tmp1,Fig);
- if norm(P-Q)>Eps
- Out=[Out,Tmp];
-// P=PointonCurve(Tmp,Fig);
- PARTITIONPT=Mixadd(PARTITIONPT,P);
- end;
- end;
- if Out(length(Out))~=Npt
- Out=[Out(1:length(Out)-1),Npt];
- end;
- if length(Out)==1 Out=[1,Npt]; end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.bin
deleted file mode 100644
index e48ca436..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.sci
deleted file mode 100755
index eb689ffe..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Perspt.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 08.08.12
-
-function Out=Perspt(P)
- global FocusPoint EyePoint;
- Tmp=P-FocusPoint;
- X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3);
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1;
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- X3=X2*Cb+Z2*Sb; Y3=Y2; Z3=-X2*Sb+Z2*Cb;
- E3=E2*Cb+G2*Sb; F3=F2; G3=-E2*Sb+G2*Cb;
- Yz=E3/(E3-X3)*Y3;
- Zz=E3/(E3-X3)*Z3;
- Out=[Yz,Zz];
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.bin
deleted file mode 100644
index 6c1648ab..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.sci
deleted file mode 100755
index ea2c8e28..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhFaceL.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.17
-
-function Out=PhFaceL()
- global PHCUTPOINTL PHVERTEXL PHFACEL;
- Out=PHFACEL;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.bin
deleted file mode 100644
index a76d1351..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.sci
deleted file mode 100755
index d5333cd1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.22
-
-function Out=PhHiddenData()
- global PHHIDDENDATA;
- Out=PHHIDDENDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.bin
deleted file mode 100644
index 6f261d0b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.sci
deleted file mode 100755
index 1eae4bc9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PhVertexL.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.17
-
-function Out=PhVertexL()
- global PHCUTPOINTL PHVERTEXL PHFACEL;
- Out=PHVERTEXL;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.bin
deleted file mode 100644
index c447109d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.sci
deleted file mode 100755
index 9c7806f5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutdata.sci
+++ /dev/null
@@ -1,173 +0,0 @@
-// 08.08.17
-// 08.09.16
-// 10.01.02
-// 13.10.21 ( __ added to varibles )
-// 14.06.09 ( debugged -- the cause unknown )
-
-function Out__=Phcutdata(VL__,FaceL__,PlaneD__)
- global PHCUTPOINTL
- Out__=[];
- EL__=[];
- Eps__=10^(-4);
- for I__=1:Mixlength(FaceL__)
- Face__=Mixop(I__,FaceL__);
- for J__=1:length(Face__)
- Nj__=J__+1;
- if J__==length(Face__)
- Nj__=1;
- end;
- N1__=Face__(J__); N2__=Face__(Nj__);
- Tmp__=[N1__,N2__];
- Flg__=0;
- for K__=1:Mixlength(EL__)
- Tmp1__=Mixop(K__,EL__);
- Tmp2__=[Tmp1__(2),Tmp1__(1)];
- if Tmp__==Tmp1__ | Tmp__==Tmp2__
- Flg__=1;
- break;
- end
- end;
- if Flg__==0
- EL__=Mixadd(EL__,Tmp__);
- end;
- end;
- end;
- Out0__=[];
- for I__=1:Mixlength(EL__)
- Tmp__=Mixop(I__,EL__);
- Tmp1__=Mixop(Tmp__(1),VL__);
- Tmp2__=Mixop(Tmp__(2),VL__);
- Out0__=Mixadd(Out0__, Spaceline([Tmp1__,Tmp2__]));
- end;
- if Mixtype(PlaneD__)~=1
- V1__=Mixop(1,PlaneD__);
- Tmp__=Mixop(2,PlaneD__);
- if length(Tmp__)>1
- d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3);
- else
- d__=Tmp__;
- end;
- elseif type(PlaneD__)==1
- V1__=PlaneD__(1:3);
- d__=PlaneD__(4);
- else
- K__=mtlb_findstr(PlaneD__,'=');
- if K__>0
- Tmp1__=part(PlaneD__,1:K__-1);
- Tmp2__=part(PlaneD__,K__+1:length(PlaneD__));
- PlaneD__=Tmp1__+'-('+Tmp2__+')';
- end;
- x=0; y=0; z=0;
- d__=-evstr(PlaneD__);
- x=1; y=0; z=0;
- Tmp1__=evstr(PlaneD__)+d__;
- x=0; y=1; z=0;
- Tmp2__=evstr(PlaneD__)+d__;
- x=0; y=0; z=1;
- Tmp3__=evstr(PlaneD__)+d__;
- V1__=[Tmp1__,Tmp2__,Tmp3__];
- end;
- if V1__==[0,0,0]
- Out__=Out0__;
- return;
- end;
- V3__=[1,0,0];
- Out1__=Rotate3data(Out0__,V1__,V3__);
-// x=poly(0,'X');
- Tmp2__=Rotate3pt([1,0,0],V3__,V1__);
- Tmp__=V1__(1)*Tmp2__(1)+V1__(2)*Tmp2__(2)+V1__(3)*Tmp2__(3);
- x0__=d__/Tmp__;
- t__=poly(0,'T');
- PtL__ =[];
- for I__=1:Mixlength(Out1__)
- Tmp__=Mixop(I__,Out1__);
- Tmp1__=Tmp__(1,:); Tmp2__=Tmp__(2,:);
- P__=Tmp1__+t__*(Tmp2__-Tmp1__);
- Tmp__=Tmp1__(1)+t__*(Tmp2__(1)-Tmp1__(1));
- if abs(coeff(Tmp__,1))<Eps__
- Tmp__=[];
- else
- Tmp1__=coeff(Tmp__,1);
- Tmp2__=x0__-coeff(Tmp__,0);
- Tmp__=[Tmp2__/Tmp1__];
- end;
- if length(Tmp__)>0
- Tmp__=Tmp__(1);
- if (Tmp__>-Eps__) & (Tmp__<1+Eps__)
- Tmp3__=horner(P__,Tmp__);
- Tmp3__=Rotate3pt(Tmp3__,V3__,V1__);
- if Tmp__<Eps__
- Tmp1__=Mixop(I__,EL__);
- Tmp1__=Tmp1__(1);
- Tmp4__=MixS([Tmp1__,Tmp1__],Tmp3__);
- else
- if Tmp__>1-Eps__ then
- Tmp1__=Mixop(I__,EL__);
- Tmp1__=Tmp1__(2);
- Tmp4__=MixS([Tmp1__,Tmp1__],Tmp3__);
- else
- Tmp4__=MixS(Mixop(I__,EL__),Tmp3__);
- end;
- end;
- Flg__=0;
- for J__=1:Mixlength(PtL__)
- Tmp__=Mixop(J__,PtL__);
- Tmp__=Mixop(2,Tmp__);
- if norm(Tmp3__-Tmp__)<Eps__ then
- Flg__=1;
- break;
- end;
- end;
- if Flg__==0
- PtL__=Mixadd(PtL__,Tmp4__);
- end;
- end;
- end;
- end;
- if Mixlength(PtL__)==0
- Out__=Out0__;
- return
- end;
- PL__=Mix(Mixop(1,PtL__));
- QL__=Mixsub(2:Mixlength(PtL__),PtL__);
- N__=Mixlength(QL__);
- for I__=2:N__+1
- Tmp1__=Mixop(Mixlength(PL__),PL__);
- Tmp1__=Mixop(1,Tmp1__);
- for J__=1:Mixlength(QL__)
- Tmp2__=Mixop(J__,QL__);
- Tmp2__=Mixop(1,Tmp2__);
- Flg__=0;
- for K__=1:Mixlength(FaceL__)
- Tmp3__=Mixop(K__,FaceL__);
- if Member(Tmp1__(1),Tmp3__) & Member(Tmp1__(2),Tmp3__) & Member(Tmp2__(1),Tmp3__) & Member(Tmp2__(2),Tmp3__)
- Flg__=1;
- break;
- end;
- end;
- if Flg__==1
- break;
- end;
- end;
- J__=min(J__, Mixlength(QL__));
- PL__=Mixadd(PL__,Mixop(J__,QL__));
- Tmp1__=Mixsub(1:J__-1,QL__);
- Tmp2__=Mixsub(J__+1:Mixlength(QL__),QL__);
- QL__=Mixjoin(Tmp1__,Tmp2__);
- if Mixlength(QL__)==0
- break;
- end;
- end;
- PHCUTPOINTL=PL__;
- Tmp__=[];
- for J__=1:Mixlength(PL__);
- Tmp1__=Mixop(J__,PL__);
- Tmp1__=Mixop(2,Tmp1__);
- Tmp__=Mixadd(Tmp__,Tmp1__);
- end;
- Tmp1__=Mixop(1,PL__);
- Tmp1__=Mixop(2,Tmp1__);
- Tmp__=Mixadd(Tmp__,Tmp1__);
- Out2__=Spaceline(Tmp__);
- Out__=Mixadd(Out0__,Out2__);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.bin
deleted file mode 100644
index 9e24e48d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.sci
deleted file mode 100755
index 879067ce..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phcutoffdata.sci
+++ /dev/null
@@ -1,184 +0,0 @@
-// 08.08.17
-// 10.08.15 near line 25 or so
-// 13.10.21 ( __ added to varibles )
-
-function Out2__=Phcutoffdata(varargin)
- global PHCUTPOINTL PHVERTEXL PHFACEL;
- Eps__=10^(-4);
- Out2__=[];
- VL__=varargin(1);
- FaceL__=varargin(2);
- PlaneD__=varargin(3);
- Sgnstr__=varargin(4);
- Fugou__=1;
- if Sgnstr__=='-' | Sgnstr__=='n' Fugou__=-1; end;
- Out0__=Phcutdata(VL__,FaceL__,PlaneD__);
- PtL__=PHCUTPOINTL;
- PHVERTEXL=VL__;
- PHFACEL=FaceL__;
- if PtL__==[]
- Out2__=Out0__;
- return;
- end;
- N1__=Mixlength(VL__);
- Face__=[];
- for I__=1:Mixlength(PtL__);
- Tmp__=Mixop(I__,PtL__);
- Tmp3__=Mixop(1,Tmp__); // 2010.08.15
- Tmp1__=Tmp3__(1); Tmp2__=Tmp3__(2); // 2010.08.15
- if Tmp1__~=Tmp2__
- VL__=Mixadd(VL__,Mixop(2,Tmp__));
- N1__=N1__+1;
- Tmp1__=N1__;
- end;
- Face__=[Face__,Tmp1__];
- PtL__(I__)=list(Mixop(1,Tmp__),Tmp1__); // 2010.08.15
-// Tmp2__=Mixsub(1:I__-1,PtL__);
-// Tmp2__=Mixadd(Tmp2__,Mix(Mixop(1,Tmp__),Tmp1__));
-// Tmp3__=Mixsub(I__+1:Mixlength(PtL__),PtL__);
-// PtL__=Mixjoin(Tmp2__,Tmp3__);
- end;
- OutfL__=MixS(Face__);
- if Mixtype(PlaneD__)~=1
- V1__=Mixop(1,PlaneD__);
- Tmp__=Mixop(2,PlaneD__);
- if length(Tmp__)>1
- d__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3);
- else
- d__=Tmp__;
- end;
- elseif type(PlaneD__)==1
- V1__=PlaneD__(1:3);
- d__=PlaneD__(4);
- else
- K__=mtlb_findstr(PlaneD__,'=');
- if K__>0
- Tmp1__=part(PlaneD__,1:K__-1);
- Tmp2__=part(PlaneD__,K__+1:length(PlaneD__));
- PlaneD__=Tmp1__+'-('+Tmp2__+')';
- end;
- x=0; y=0; z=0;
- d__=-evstr(PlaneD__);
- x=1; y=0; z=0;
- Tmp1__=evstr(PlaneD__)+d__;
- x=0; y=1; z=0;
- Tmp2__=evstr(PlaneD__)+d__;
- x=0; y=0; z=1;
- Tmp3__=evstr(PlaneD__)+d__;
- V1__=[Tmp1__,Tmp2__,Tmp3__];
- end;
- for I__=1:Mixlength(FaceL__)
- Face__=Mixop(I__,FaceL__);
- TmpL__=[];
- for J__=1:length(Face__)
- N1__=Face__(J__);
- if J__==length(Face__)
- N2__=Face__(1);
- else
- N2__=Face__(J__+1);
- end;
- for K__=1:Mixlength(PtL__)
- Pd__=Mixop(K__,PtL__);
- Tmp__=Mixop(1,Pd__);
- if Tmp__(1)==Tmp__(2)
- if Tmp__(1)==N1__
- TmpL__=Mixadd(TmpL__,Mix(J__,[N1__,N2__],Mixop(2,Pd__)));
- end
- else
- if Tmp__==[N1__,N2__] | Tmp__==[N2__,N1__]
- TmpL__=Mixadd(TmpL__,Mix(J__,[N1__,N2__],Mixop(2,Pd__)));
- end;
- end;
- end;
- end;
- if Mixlength(TmpL__)<2
- Flg__=0;
- for J__=1:length(Face__)
- Tmp__=Mixop(Face__(J__),VL__);
- Tmp1__=Fugou__*(Naiseki(V1__,Tmp__)-d__);
- if Tmp1__<-Eps__
- Flg__=1;
- break;
- end;
- end;
- if Flg__==0
- OutfL__=Mixadd(OutfL__,Face__);
- end;
- continue;
- end;
- Pd__=Mixop(1,TmpL__);
- Qd__=Mixop(2,TmpL__);
- Outf1__=[Mixop(3,Pd__)];
- Nf__=Mixop(1,Pd__)+1;
- Tmp__=Mixop(2,Pd__);
- JJ__=0;
- while Tmp__~=Mixop(2,Qd__)
- JJ__=JJ__+1;
- if JJ__>20
- disp('bug');
- return;
- end;
- Tmp1__=Tmp__(2);
- if Outf1__(length(Outf1__))~=Tmp1__
- Outf1__=[Outf1__,Tmp1__];
- end;
- Tmp__=[Face__(Nf__)];
- Nf__=Nf__+1;
- if Nf__>length(Face__) Nf__=1; end;
- Tmp__=[Tmp__,Face__(Nf__)];
- end;
- Tmp1__=Mixop(3,Qd__);
- if Outf1__(length(Outf1__))~=Tmp1__
- Outf1__=[Outf1__,Tmp1__];
- end;
- Outf2__=[Mixop(3,Pd__)];
- Nf__=Mixop(1,Pd__);
- Tmp__=Mixop(2,Pd__);
- JJ__=0;
- while Tmp__~=Mixop(2,Qd__)
- JJ__=JJ__+1;
- if JJ__>20
- disp('bug');
- return;
- end;
- Tmp1__=Tmp__(1);
- if Outf2__(length(Outf2__))~=Tmp1__
- Outf2__=[Outf2__,Tmp1__]
- end;
- Tmp__=[Face__(Nf__)];
- Nf__=Nf__-1;
- if Nf__<1 Nf__=length(Face__); end;
- Tmp__=[Face__(Nf__),Tmp__];
- end;
- Tmp1__=Mixop(3,Qd__);
- if Outf2__(length(Outf2__))~=Tmp1__
- Outf2__=[Outf2__,Tmp1__]
- end;
- if length(Outf1__)<3 | length(Outf2__)<3
- Face__=Outf1__;
- if length(Outf1__)<length(Outf2__) Face__=Outf2__; end;
- Flg__=0;
- for J__=1:length(Face__)
- Tmp__=Mixop(Face__(J__),VL__);
- Tmp1__=Fugou__*(Naiseki(V1__,Tmp__)-d__);
- if Tmp1__<-Eps__
- Flg__=1;
- break;
- end;
- end;
- if Flg__==0
- OutfL__=Mixadd(OutfL__,Face__);
- end;
- else
- Tmp__=Mixop(Outf1__(2),VL__);
- Tmp1__=Outf1__;
- Tmp2__=Fugou__*(Naiseki(V1__,Tmp__)-d__);
- if Tmp2__<0 Tmp1__=Outf2__; end;
- OutfL__=Mixadd(OutfL__,Tmp1__);
- end;
- end;
- PHVERTEXL=VL__;
- PHFACEL=OutfL__;
- Out2__=Phcutdata(VL__,OutfL__,[0,0,0,0]);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.bin
deleted file mode 100644
index 4105b83f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.sci
deleted file mode 100755
index 02fe98a5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phidegree.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.07.11
-
-function Ang=Phidegree()
- global PHI;
- Ang=PHI*180/%pi;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.bin
deleted file mode 100644
index 8e0c2f4b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.sci
deleted file mode 100755
index 835c173e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phparadata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.21
-// 09.10.27
-
-function Out=Phparadata(VL,FaceL)
- Out=Facesdata(list(VL,FaceL),'para');
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.bin
deleted file mode 100644
index bd4d18f5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.sci
deleted file mode 100755
index e422b6fc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phpersdata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.21
-// 09.10.27
-
-function Out=Phpersdata(VL,FaceL)
- Out=Facesdata(list(VL,FaceL),'pers');
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.bin
deleted file mode 100644
index 83ccabf1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.sci
deleted file mode 100755
index c4c79c26..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawparadata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.21
-// 09.10.27
-
-function Out=Phrawparadata(VL,FaceL)
- Out=Facesdata(list(VL,FaceL),'rawpara');
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.bin
deleted file mode 100644
index c2072a26..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.sci
deleted file mode 100755
index 29870630..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phrawpersdata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.21
-// 09.10.27
-
-function Phrawpersdata(VL,FaceL)
- Out=Facesdata(list(VL,FaceL),'rawpers');
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.bin
deleted file mode 100644
index 4a5a308d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.sci
deleted file mode 100755
index 3c8018e3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsparadata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.22
-// 09.10.27
-
-function Out=Phsparadata(Fdata)
- Out=Facesdata(Fdata,'para')
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.bin
deleted file mode 100644
index 9d90d190..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.sci
deleted file mode 100755
index 58ab8101..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phspersdata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.22
-// 09.10.27
-
-function Out=Phspersdata(Fdata)
- Out=Facesdata(Fdata,'pers')
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.bin
deleted file mode 100644
index ef215643..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.sci
deleted file mode 100755
index 6928d928..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawparadata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.22
-// 09.10.27
-
-function Out=Phsrawparadata(Fdata)
- Out=Facesdata(Fdata,'rawpara')
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.bin
deleted file mode 100644
index b571d4dd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.sci
deleted file mode 100755
index 21677841..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Phsrawpersdata.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.08.22
-// 09.10.27
-
-function Phsrawpersdata(Fdata)
- Out=Facesdata(Fdata,'rawpers')
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.bin
deleted file mode 100644
index fb253985..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.sci
deleted file mode 100755
index fc548f28..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Plotdata.sci
+++ /dev/null
@@ -1,138 +0,0 @@
-//
-// 08.06.18 (N)
-// 08.08.24
-// 08.10.05
-// 08.12.18
-// 09.03.12
-// 09.12.31 (gsort)
-// 13.10.19 (__ added to variables)
-// 14.10.24 N,D,E => N__ ,...
-// 14.12.11 Assign used, and debugged (Exfun )
-// 15.11.16 N changed to number of intervals
-// 16.12.13 in case of X1=X2
-
-function P__=Plotdata(varargin)
- global XMIN XMAX YMIN YMAX
- Eps__=10^(-5);
- Fnstr__=varargin(1); Is__=2;
- if type(Fnstr__)==13
- Fnflg__=1;
- Fnarg__=varargin(Is__);
- if type(Fnarg__)==13
- Fnflg__=Fnflg__+1;
- Is__=Is__+1;
- end;
- else
- Fnflg__=0;
- end;
- Rgstr__=varargin(Is__); Is__=Is__+1;
- K__=mtlb_findstr(Rgstr__,'=');
- if length(K__)>0
- Tmp__=strsplit(Rgstr__,[K__-1,K__]);
- Vname__=Tmp__(1,1);
- Rng__=evstr(Tmp__(3,1));
- else
- Vname__=Rgstr__;
- Rng__=[XMIN,XMAX];
- end;
- N__=50; // Numpoints
- E__=[]; // Exclusions
- Exfun__=''; // Exclusion function
- D__=%inf; // Discont
- for I__=Is__:length(varargin)
- Tmp__=varargin(I__);
- Lhs__=part(Tmp__,1);
- K__=mtlb_findstr(Tmp__,'=');
- Tmp1__=part(Tmp__,K__+1:length(Tmp__));
- if mtlb_findstr(Tmp__,Vname__)==[]
- Str__=Lhs__+'__='+Tmp1__;
- execstr(Str__);
- else
- Exfun__=Tmp1__;
- end;
- end;
- X1__=Rng__(1); X2__=Rng__(2);
-// dx__=(X2__-X1__)/(N__-1);
- dx__=(X2__-X1__)/(N__); // 15.11.16
- if Fnflg__==0
- Str__=Assign(Fnstr__,Vname__,'x__');
- end;
- if abs(dx__)<Eps__ then // 16.12.13
- x__=X1__;
- P__=[X1__,evstr(Str__)];
- return;
- end;
- Exfun__=Assign(Exfun__,Vname__,'x__');
- if length(Exfun__)>0 then // 14.12.11
- Tmp__=mtlb_findstr(Exfun__,"x__");
- if length(Tmp__)==0 then
- E__=evstr(Exfun__);
- Exfun__="";
- end
- end
- P__=[];
- E__=gsort(E__);
- E__=E__(length(E__):-1:1);
- E__=[E__,%inf];
- Tmp__=gsort(E__);
- E__=Tmp__(length(Tmp__):-1:1);
- Ke__=1;
- for x__=X1__:dx__:X2__
- if Exfun__~=''
- Tmp__=evstr(Exfun__);
- if abs(Tmp__)<Eps__
- P__=[P__;%inf,%inf];
- continue;
- end;
- end;
- Pa__=[];
- if x__-E__(Ke__)<-Eps__
- if Fnflg__==0
- Pa__=[x__,evstr(Str__)];
- else
- if Fnflg__==1
- Pa__=[x__,Fnstr__(x__)];
- else
- Pa__=[x__,Fnstr__(Fnarg__,x__)];
- end;
- end;
- end;
- if abs(x__-E__(Ke__))<=Eps__
- if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf]
- Pa__=[%inf,%inf];
- end
- end
- if x__-E__(Ke__)>Eps__
- if Fnflg__==0
- Pa__=[x__,evstr(Str__)];
- else
- if Fnflg__==1
- Pa__=[x__,Fnstr(x__)];
- else
- Pa__=[x__,Fnstr__(Fnarg__,x__)];
- end;
- end;
- Ke__=Ke__+1;
- end
- if Pa__~=[]
- if Pa__(1)==%inf
- P__=[P__;Pa__]
- elseif P__==[]
- P__=[Pa__];
- else
- Tmp__=P__(size(P__,1),:);
- if Tmp__(1)==%inf
- P__=[P__;Pa__];
- elseif norm(Tmp__-Pa__)<D__
- P__=[P__;Pa__];
- else
- P__=[P__;%inf,%inf;Pa__];
- end
- end
- end
- end;
- Tmp__=size(P__,1);
- if P__(Tmp__,1)==%inf
- P__=P__(1:Tmp__-1,:);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.bin
deleted file mode 100644
index 1a7c1121..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.sci
deleted file mode 100755
index 35e2347e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointdata.sci
+++ /dev/null
@@ -1,25 +0,0 @@
-//
-// 08.05.23
-// 09.09.18
-// 13.05.03 list of points is outputted
-
-function PL=Pointdata(varargin)
- Nargs=length(varargin);
- PL=list();
- for I=1:Nargs
- DL=varargin(I);
- DL=Flattenlist(DL);
- for K=1:length(DL);
- Dt=DL(K);
- for J=1:size(Dt,1)
- Tmp=Dt(J,:);
- if Tmp(1)~=%inf then
- PL($+1)=Tmp;
- end
- end
- end;
- end;
- if length(PL)==1
- PL=PL(1);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.bin
deleted file mode 100644
index 181d1354..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.sci
deleted file mode 100755
index fd2a35d0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PointonCurve.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 08.05.30
-
-function Out=PointonCurve(T,PtL)
- Eps=10^(-4);
- N=Trunc(T+Eps);
- S=max(T-N,0);
-// PtL=Plt;
- if N==size(PtL,1)
- Out=PtL(N,:);
- else
- Pa=PtL(N,:);;
- Pb=PtL(N+1,:);
- Out=(1-S)*Pa+S*Pb;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.bin
deleted file mode 100644
index 16b3b587..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.sci
deleted file mode 100755
index c39cdadc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Pointoncrv.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 09.10.03
-
-function Out=Pointoncrv(varargin)
- Eps=10^(-4);
- T=varargin(1);
- Gdata=varargin(2);
- if size(T,1)>1
- Tmp=T; T=Gdata; Gdata=Tmp;
- end;
- PtL=Gdata;
- N=Trunc(T+Eps);
- S=max(T-N,0);
- if N==size(PtL,1)
- Out=PtL(N,:);
- else
- Pa=PtL(N,:);;
- Pb=PtL(N+1,:);
- Out=(1-S)*Pa+S*Pb;
- end
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.bin
deleted file mode 100644
index 337e76a9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.sci
deleted file mode 100755
index b23dfdc8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Powersum.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 09.03.12
-
-function Out=Powersum(varargin)
- Nargs=length(varargin);
- COEFF=varargin(1);
- x=varargin(2);
- if Nargs>2
- x=x-varargin(3);
- end;
- NL=Mixop(1,COEFF);
- A=Mixop(2,COEFF);
- Upto=min(size(NL,2),size(A,2));
- NL=NL(1:Upto);
- A=A(1:Upto);
- Out=sum(A.*x^NL);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.bin
deleted file mode 100644
index 8a75cbf0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.sci
deleted file mode 100755
index bc866928..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Prime.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// 09.08.23
-
-function Out=Prime(varargin)
- if length(varargin)==0
- Out=char(39);
- else
- Out=varargin(1)+char(39);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.bin
deleted file mode 100644
index a4c6dba6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.sci
deleted file mode 100644
index bf137751..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Printobjstr.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// s : 2014.06.22
-
-function Printobjstr(Str)
- global Wfile FID;
- if Wfile=='default' then
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.bin
deleted file mode 100644
index 5adfea2f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.sci
deleted file mode 100755
index bbe28c12..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjCurve.sci
+++ /dev/null
@@ -1,32 +0,0 @@
-// 08.07.11
-// 08.10.07
-// 09.06.02
-// 09.08.23
-
-function AnsL=ProjCurve(Curve)
- global PHI THETA;
- Eps=10^(-6);
- AnsL=[]; // Added
- SP=sin(PHI); CP=cos(PHI);
- ST=sin(THETA); CT=cos(THETA);
- for I=1:size(Curve,1)
- P=Curve(I,:);
- x=P(1); y=P(2); z=P(3);
- if x~=%inf
- Xz=-x*SP+y*CP;
- Yz=-x*CP*CT-y*SP*CT+z*ST;
- Tmp=[Xz,Yz];
- if I==1
- AnsL=[Tmp];
- else
- Tmp1=AnsL(size(AnsL,1),:);
- if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps
- AnsL=[AnsL;Tmp];
- end;
- end;
- else
- AnsL=[AnsL;%inf,%inf];
- end;
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.bin
deleted file mode 100644
index 8b17d615..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.sci
deleted file mode 100755
index 74c552a6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ProjcoordCurve.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 08.07.11
-// 08.10.16
-
-function Out=ProjcoordCurve(Curve)
- global PHI THETA;
- SP=sin(PHI); CP=cos(PHI);
- ST=sin(THETA); CT=cos(THETA);
- Out=[];
- for J=1:size(Curve,1)
- P=Curve(J,:);
- x=P(1); y=P(2); z=P(3);
- Xz=-x*SP+y*CP;
- Yz=-x*CP*CT-y*SP*CT+z*ST;
- Zz=x*CP*ST+y*SP*ST+z*CT;
- Out=[Out;Xz,Yz,Zz];
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.bin
deleted file mode 100644
index 0ce6a992..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.sci
deleted file mode 100755
index 82feeff2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpara.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 08.07.11
-// 08.07.15
-// 08.08.12
-// 08.10.28
-
-function CL=Projpara(varargin)
- Nargs=length(varargin);
- Flg=0;
- if Nargs==1 & Mixtype(varargin(1))==1
- Flg=1;
- end;
- CL=[];
- for N=1:Nargs
- Crv=varargin(N);
- if Mixtype(Crv)==1
- Tmp=ProjCurve(Crv);
- CL=Mixadd(CL,Tmp);
- else
- if Mixtype(Crv)==3
- ObjL=[];
- for I=1:Mixlength(Crv)
- Tmp1=Mixop(I,Crv);
- if Mixtype(Tmp1)==1
- ObjL=Mixadd(ObjL,Tmp1);
- else
- ObjL=Mixjoin(ObjL,Tmp1);
- end;
- end;
- Crv=ObjL;
- end;
- for J=1:Mixlength(Crv)
- Tmp=ProjCurve(Mixop(J,Crv));
- CL=Mixadd(CL,Tmp);
- end
- end
- end
- if Mixlength(CL)==1 & Flg==1
- CL=Mixop(1,CL);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.bin
deleted file mode 100644
index 7594630e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.sci
deleted file mode 100755
index b43451a9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Projpers.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 08.08.12
-// 08.10.28
-
-function CL=Projpers(varargin)
- Nargs=length(varargin);
- Flg=0;
- if Nargs==1 & Mixtype(varargin(1))==1
- Flg=1;
- end;
- CL=[];
- for N=1:Nargs
- Crv=varargin(N);
- if Mixtype(Crv)==1
- Tmp=CameraCurve(Crv);
- CL=Mixadd(CL,Tmp);
- else
- if Mixtype(Crv)==3
- ObjL=[];
- for I=1:Mixlength(Crv)
- Tmp1=Mixop(I,Crv);
- if Mixtype(Tmp1)==1
- ObjL=Mixadd(ObjL,Tmp1);
- else
- ObjL=Mixjoin(ObjL,Tmp1);
- end;
- end;
- Crv=ObjL;
- end;
- for J=1:Mixlength(Crv)
- Tmp=CameraCurve(Mixop(J,Crv));
- CL=Mixadd(CL,Tmp);
- end
- end
- end
- if Mixlength(CL)==1 & Flg==1
- CL=Mixop(1,CL);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.bin
deleted file mode 100644
index b042e991..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.sci
deleted file mode 100755
index 78776d7b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptcrv.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function P=Ptcrv(N,Fig)
- P=Fig(N,:)
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.bin
deleted file mode 100644
index 51257705..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.sci
deleted file mode 100755
index d16ebf80..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptend.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function P=Ptend(Fig)
- P=Fig(size(Fig,1),:)
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.bin
deleted file mode 100644
index b86773c2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.sci
deleted file mode 100755
index 98f2ca94..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PthiddenQ.sci
+++ /dev/null
@@ -1,250 +0,0 @@
-// 08.10.10
-// 08.10.12
-// 08.10.15
-// 08.10.26
-// 09.06.05
-// 09.09.10
-// 09.10.12 debug
-// 09.11.07 debugged
-// 10.02.16 Eps__
-// 13.10.22 ( __ added to variables )
-
-function Out__=PthiddenQ(PtA__,Vec__,Fd__,Uveq__,Np__,EPS__)
-// Out__=1 : hidden
-// SL__ : List of segments near PtA__+Vec__
- Eps__0=10^(-4)*(Xmax()-Xmin())/10;
- Eps__=EPS__(1)*(Xmax()-Xmin())/10; //
- Out__=0;
- Vec__1=1/norm(Vec__)*Vec__;
- PtL__=[];
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Mixop(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- FdL__=Fullformfunc(Fd__);
- Xf__=Mixop(2,FdL__);
- Yf__=Mixop(3,FdL__);
- Zf__=Mixop(4,FdL__);
- Tmp__=Mixop(5,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,FdL__);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); UMax__=Urg__(2);
- Vmin__=Vrg__(1); VMax__=Vrg__(2);
- V1__='('+string(Vec__(1))+')';
- V2__='('+string(Vec__(2))+')';
- V3__='('+string(Vec__(3))+')';
- Xstr__='(('+Xf__+')-('+string(PtA__(1))+'))';
- Ystr__='(('+Yf__+')-('+string(PtA__(2))+'))';
- Zstr__='(('+Zf__+')-('+string(PtA__(3))+'))';
- Urg__str=Mixop(5,FdL__);
- Vrg__str=Mixop(6,FdL__);
- if abs(Vec__(2))>Eps__0 | abs(Vec__(1))>Eps__0
- Eq__=V2__+'*'+Xstr__+'-'+V1__+'*'+Ystr__;
- else
- Eq__=Xstr__;
- end;
- MS__=Mix(Eq__,Urg__str,Vrg__str,Np__);
- [Zval__,Xval__,Yval__]=Makevaltable(MS__);
- SL__=[];
- for J__=1:length(Yval__)-1
- for I__=1:length(Xval__)-1
- a1__=Xval__(I__);b1__=Yval__(J__);c1__=Zval__(J__,I__);
- a2__=Xval__(I__+1);b2__=Yval__(J__);c2__=Zval__(J__,I__+1);
- a3__=Xval__(I__+1);b3__=Yval__(J__+1);c3__=Zval__(J__+1,I__+1);
- a4__=Xval__(I__);b4__=Yval__(J__+1);c4__=Zval__(J__+1,I__);
- PL__=[a1__,b1__;a2__,b2__;a3__,b3__;a4__,b4__;a1__,b1__];
- VL__=[c1__,c2__,c3__,c4__,c1__];
- QL__=[];
- for K__=1:4
- P1__=PL__(K__,:); P2__=PL__(K__+1,:);
- M1__=VL__(K__); M2__=VL__(K__+1);
- if M1__>=Eps__0 & M2__>=Eps__0
- continue;
- end;
- if M1__<=-Eps__0 & M2__<=-Eps__0
- continue;
- end;
- if abs(M1__)<Eps__0
- Tmp__=P1__;
- elseif abs(M2__)<Eps__0
- continue;
- else
- Tmp__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__);
- end;
- QL__=[QL__;Tmp__];
- end;
- if size(QL__,1)==2
- Puv1__=QL__(1,:); Puv2=QL__(2,:);
- Tmp__1=Puv1__(1);
- Tmp__2=Puv1__(2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- P1__=[Xv__,Yv__,Zv__];
- Tmp__1=Puv2(1);
- Tmp__2=Puv2(2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- P2__=[Xv__,Yv__,Zv__];
- if norm(P1__-P2__)<Eps__0 // 09.11.07
- continue;
- end; //
- Tmp__1=norm(P1__-PtA__);
- Tmp__2=Naiseki(P1__-PtA__,Vec__1);
- Tmp__3=sqrt(abs(Tmp__1^2-Tmp__2^2));
- Tmp__4=norm(P2__-PtA__);
- Tmp__5=Naiseki(P2__-PtA__,Vec__1);
- Tmp__6=sqrt(abs(Tmp__4^2-Tmp__5^2));
- if Tmp__2<Tmp__5
- Tmp__=P1__; P1__=P2__; P2__=Tmp__;
- Tmp__=Tmp__2; Tmp__2=Tmp__5; Tmp__5=Tmp__;
- Tmp__=Tmp__3; Tmp__3=Tmp__6; Tmp__6=Tmp__;
- end;
- if Tmp__3<EPS__(2)*Eps__ & Tmp__6<EPS__(2)*Eps__ //
- if Tmp__2>-Eps__0
- if Tmp__5<-Eps__0
- SL__=[SL__;P1__,P2__,-1];
- else
- SL__=[SL__;P1__,P2__,1];
- end;
- end;
- end;
- V1__=Vec__1(1); V2__=Vec__1(2); V3__=Vec__1(3);
- if abs(V1__)>Eps__0
- M1__=PtA__(3)+V3__/V1__*(P1__(1)-PtA__(1))-P1__(3);
- M2__=PtA__(3)+V3__/V1__*(P2__(1)-PtA__(1))-P2__(3);
- elseif abs(V2__)>Eps__0
- M1__=PtA__(3)+V3__/V2__*(P1__(2)-PtA__(2))-P1__(3);
- M2__=PtA__(3)+V3__/V2__*(P2__(2)-PtA__(2))-P2__(3);
- else
- M1__=PtA__(2)-P1__(2);
- M2__=PtA__(2)-P2__(2);
- end;
- if M1__*M2__>=0
- if (M1__>Eps__0 & M2__>Eps__0) | (M1__<-Eps__0 & M2__<-Eps__0)
- continue;
- end;
- if abs(M1__)<=Eps__0
- Pt__=P1__; Ptuv__=Puv1__;
- else
- Pt__=P2__; Ptuv__=Puv2;
- end;
- else
- Pt__=1/(M1__-M2__)*(-M2__*P1__+M1__*P2__);
- Ptuv__=1/(M1__-M2__)*(-M2__*Puv1__+M1__*Puv2);
- end;
- if type(Uveq__)==10
- Tmp__1='('+string(Ptuv__(1))+')';
- Tmp__2='('+string(Ptuv__(2))+')';
- Tmp__=strsubst(Uveq__,Uname__,Tmp__1);
- Tmp__=strsubst(Tmp__,Vname__,Tmp__2);
- Tmp__=evstr(Tmp__);
- if Tmp__<-Eps__0
- continue;
- end;
- end;
- Tmp__1=Dotprod(Pt__-PtA__,Vec__1);
- Tmp__2=abs(Tmp__1);
- Tmp__3=Dotprod(P1__-P2__,Vec__1);
- Tmp__4=norm(P1__-P2__);
- Tmp__6=Tmp__3/Tmp__4;
- if Tmp__1>Eps__0
- if abs(Tmp__6)>0.75 // from
- PtL__=[PtL__;Pt__,P2__];
- continue;
- end; // upto
- if Tmp__2>Eps__
- Out__=1;
- return
- end;
- if Tmp__2<2*Eps__
- continue;
- end;
- end;
- end;
- end;
- end;
- if PtL__==[]
- return;
- end;
- for I__=1:size(SL__,1)
- P2__=SL__(I__,4:6);
- Flg__=0;
- for J__=1:size(SL__,1)
- P=SL__(J__,1:3);
- if norm(P-P2__)<Eps__0
- SL__(I__,7)=J__;
- Flg__=1;
- break;
- end;
- end;
- if Flg__==0 & SL__(I__,7)>0
- SL__(I__,7)=-2;
- end;
- end;
- for I__=1:size(PtL__,1)
- P__=PtL__(I__,4:6);
- Flg__=0;
- for J__=1:size(SL__,1)
- P1__=SL__(J__,1:3);
- if norm(P1__-P__)<Eps__0
- Flg__=1;
- break;
- end;
- end;
- if Flg__==0
- Pt__=PtL__(I__,1:3); // from
- Tmp__0=norm(P__-Pt__);
- Tmp__1=abs(Dotprod(P__-Pt__,Vec__1));
- Tmp__2=sqrt(abs(Tmp__0^2-Tmp__1^2));
- Tmp__3=Tmp__2*norm(Pt__-PtA__)/Tmp__0; // should to be changed 10.02.16
- if Tmp__3>Eps__/5
- Out__=1;
- return;
- else
- continue;
- end; // upto
- end;
- Nxt__=SL__(J__,7);
- while Nxt__>0
- P__=SL__(Nxt__,4:6);
- Nxt__=SL__(Nxt__,7);
- end;
- if Nxt__==-2
- Out__=1;
- return;
- else
- Out__=0;
- end;
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.bin
deleted file mode 100644
index 97796c60..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.sci
deleted file mode 100755
index f6452897..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptne.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 10.01.13
-
-function Out=Ptne(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMAX,YMAX];
- else
- G=varargin(1);
- XM=max(G(:,1));
- YM=max(G(:,2));
- Out=[XM,YM];
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.bin
deleted file mode 100644
index 1d290957..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.sci
deleted file mode 100755
index e3cd5ebc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptnw.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 10.01.13
-
-function Out=Ptnw(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMIN,YMAX];
- else
- G=varargin(1);
- Xm=min(G(:,1));
- YM=max(G(:,2));
- Out=[Xm,YM];
- end;
- endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.bin
deleted file mode 100644
index 09489c68..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.sci
deleted file mode 100755
index fe5e52b9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptse.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 10.01.13
-
-function Out=Ptse(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMAX,YMIN];
- else
- G=varargin(1);
- XM=max(G(:,1));
- Ym=min(G(:,2));
- Out=[XM,Ym];
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.bin
deleted file mode 100644
index c662aeb8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.sci
deleted file mode 100755
index f94437cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptstart.sci
+++ /dev/null
@@ -1,4 +0,0 @@
-function P=Ptstart(Fig)
- P=Fig(1,:)
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.bin
deleted file mode 100644
index 3cd0fa20..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.sci
deleted file mode 100755
index 5b0a3474..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ptsw.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 10.01.13
-
-function Out=Ptsw(varargin)
- global XMIN XMAX YMIN YMAX
- if length(varargin)==0
- Out=[XMIN,YMIN];
- else
- G=varargin(1);
- Xm=min(G(:,1));
- Ym=min(G(:,2));
- Out=[Xm,Ym];
- end;
-endfunction \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.bin
deleted file mode 100644
index d31053f9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.sci
deleted file mode 100755
index e0020f0b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcell.sci
+++ /dev/null
@@ -1,72 +0,0 @@
-// 09.11.26
-// 09.12.06
-// 09.12.25
-// 09.12.29
-
-function Putcell(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- Str=varargin(Nargs);
- if type(Str)==1
- Str=string(Str);
- end;
- Pos=varargin(Nargs-1);
- Nrg=varargin(2);
- if type(Nrg)==10
- if Nargs==4
- Cell=Findcell(TbL,Nrg);
- else
- Mrg=varargin(3);
- Cell=Findcell(TbL,Nrg,Mrg);
- end;
- else
- Mrg=varargin(3);
- Cell=Findcell(TbL,Nrg,Mrg);
- end;
- Pt=Cell(1); Dr='c';
- Posh=part(Pos,1);
- Post=part(Pos,2:length(Pos));
- if (Posh=='r')|(Posh=='R')
- Pt=Pt+[Cell(2),0];
- if length(Post)==0
- Dr='w1';
- else
- Dr='w'+Post;
- end;
- end;
- if (Posh=='l')|(Posh=='L')
- Pt=Pt-[Cell(2),0];
- if length(Post)==0
- Dr='e1';
- else
- Dr='e'+Post;
- end;
- end;
- if (Posh=='u')|(Posh=='U')
- Pt=Pt+[0,Cell(3)];
- if length(Post)==0
- Dr='s1';
- else
- Dr='s'+Post;
- end;
- end;
- if (Posh=='d')|(Posh=='D')
- Pt=Pt-[0,Cell(3)];
- if length(Post)==0
- Dr='n1';
- else
- Dr='n'+Post;
- end;
- end;
- if (Posh=='b')|(Posh=='B')
- Pt=Pt-[0,Cell(3)];
- if length(Post)==0
- Dr='n1';
- else
- Dr='n'+Post;
- end;
- Str='$\mathstrut$'+Str;
- end;
- Letter(Pt,Dr,Str);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.bin
deleted file mode 100644
index f834f86d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.sci
deleted file mode 100755
index 63bc151f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putcirmark.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 09.11.26
-
-function Putcirmark(TbL,Nrg,Mrg,Dt)
- if type(Dt)==10
- N=1; Pos=Dt; Str='';
- else
- N=length(Dt); Pos='l'; Str='\hspace*{2mm}';
- end;
- for I=1:N
- Tmp1=Dt(I);
- Str=Str+'\cirmark';
- if I<N
- Str=Str+'\hspace{3mm}';
- end;
- end;
- Putcell(TbL,Nrg,Mrg,Pos,Str);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.bin
deleted file mode 100644
index 1b37ca31..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.sci
deleted file mode 100755
index 41b9a1b6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoL.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 09.12.06
-// 10.01.26
-
-function PutcoL(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- if type(TbL)~=15
- disp('Tabledata missing')
- return;
- end;
- Ag=varargin(2);
- if type(Ag)==1
- CoL=Ag;
- else
- Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ';
- Clm=[];
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp-1];
- end;
- end;
- Nrg=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg=Nrg+Tmp*26^Tmp1;
- end;
- CoL=Nrg;
- end;
- Nr=length(TbL(3))+1;
- K=1;
- Dpos=varargin(3);
- for I=4:Nargs
- if I-3>Nr
- break;
- end;
- Dt=varargin(I);
- if type(Dt)~=15
- Putcell(TbL,CoL,K,Dpos,Dt);
- K=K+1;
- else
- N=length(Dt);
- Str=Dt(N);
- Rrng=[K,K+1];
- Pos=Dpos;
- for J=1:(N-1)
- Tmp=Dt(J);
- if type(Tmp)==1
- Rrng=[K,K+Tmp];
- end;
- if type(Tmp)==10
- Pos=Tmp;
- end;
- end;
- Putcell(TbL,CoL,Rrng,Pos,Str)
- K=Rrng(2);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.bin
deleted file mode 100644
index 7a5123d8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.sci
deleted file mode 100644
index 0e2f9d0a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLexpr.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 10.04.01
-
-function PutcoLexpr(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- if type(TbL)~=15
- disp('Tabledata missing')
- return;
- end;
- Ag=varargin(2);
- if type(Ag)==1
- CoL=Ag;
- else
- Alpha='-ABCDEFGHIJKLMNOPQRSTUVWXYZ';
- Clm=[];
- for I=1:length(Ag)
- C=part(Ag,I:I);
- Tmp=ascii(C);
- if Tmp>=96
- C=char(Tmp-32);
- end;
- Tmp=mtlb_findstr(C,Alpha)
- if length(Tmp)>0
- Clm=[Clm,Tmp-1];
- end;
- end;
- Nrg=0;
- for I=length(Clm):-1:1
- Tmp=Clm(I);
- Tmp1=length(Clm)-I;
- Nrg=Nrg+Tmp*26^Tmp1;
- end;
- CoL=Nrg;
- end;
- Nr=length(TbL(3))+1;
- K=1;
- Dpos=varargin(3);
- for I=4:Nargs
- if I-3>Nr
- break;
- end;
- Dt=varargin(I);
- if type(Dt)~=15
- Dt='$'+Dt+'$';
- Putcell(TbL,CoL,K,Dpos,Dt);
- K=K+1;
- else
- N=length(Dt);
- Str='$'+Dt(N)+'$';
- Rrng=[K,K+1];
- Pos=Dpos;
- for J=1:(N-1)
- Tmp=Dt(J);
- if type(Tmp)==1
- Rrng=[K,K+Tmp];
- end;
- if type(Tmp)==10
- Pos=Tmp;
- end;
- end;
- Putcell(TbL,CoL,Rrng,Pos,Str)
- K=Rrng(2);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.bin
deleted file mode 100644
index c4cecfc7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.sci
deleted file mode 100755
index b993ffa9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/PutcoLstr.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 10.01.02 for v5
-
-function PutcoLstr(varargin)
- Tb=varargin(1);
- Nr=varargin(2);
- Pos=varargin(3);
- Str=varargin(4);
- Sep='';
- if length(varargin)>4
- Sep=varargin(5);
- end;
- if Sep==''
- for I=1:length(Str)
- Tmp=part(Str,I);
- Putcell(Tb,Nr,I,Pos,Tmp);
- end;
- else
- Ltr='';
- K=1;
- for I=1:length(Str)
- Tmp=part(Str,I);
- if Tmp==Sep
- Putcell(Tb,Nr,K,Pos,Ltr);
- K=K+1;
- Ltr='';
- else
- Ltr=Ltr+Tmp;
- end;
- end;
- if Ltr~=''
- Putcell(Tb,Nr,K,Pos,Ltr);
- end;
- end;
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.bin
deleted file mode 100644
index 5fc7bc24..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.sci
deleted file mode 100755
index 8d732a9d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putdashmark.sci
+++ /dev/null
@@ -1,18 +0,0 @@
-// 09.11.26
-
-function Putdashmark(TbL,Nrg,Mrg,Dt)
- N=length(Dt);
- Str='\hspace*{2mm}';
- for I=1:N
- Tmp1=Dt(I);
- if type(Tmp1)==1
- Tmp1=string(Tmp1);
- end;
- Str=Str+'\dashmark{'+Tmp1+'}';
- if I<N
- Str=Str+'\hspace{3mm}';
- end;
- end;
- Putcell(TbL,Nrg,Mrg,'l',Str);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.bin
deleted file mode 100644
index 1910dfd9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.sci
deleted file mode 100755
index ce63e542..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrecmark.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 09.11.26
-
-function Putrecmark(TbL,Nrg,Mrg,Dt)
- if type(Dt)==10
- N=1; Pos=Dt; Str='';
- else
- N=length(Dt); Pos='l'; Str='\hspace*{2mm}';
- end;
- for I=1:N
- Str=Str+'\recmark';
- if I<N
- Str=Str+'\hspace{3mm}';
- end;
- end;
- Putcell(TbL,Nrg,Mrg,Pos,Str);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.bin
deleted file mode 100644
index 9085bc24..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.sci
deleted file mode 100755
index 0c2c209a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrow.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.12.06
-// 10.01.26
-
-function Putrow(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- if type(TbL)~=15
- disp('Tabledata missing')
- return;
- end;
- Row=varargin(2);
- Nr=length(TbL(2))+1;
- K=1;
- Dpos=varargin(3);
- for I=4:Nargs
- if I-3>Nr
- break;
- end;
- Dt=varargin(I);
- if type(Dt)~=15
- Putcell(TbL,K,Row,Dpos,Dt);
- K=K+1;
- else
- N=length(Dt);
- Str=Dt(N);
- Crng=[K,K+1];
- Pos=Dpos;
- for J=1:(N-1)
- Tmp=Dt(J);
- if type(Tmp)==1
- Crng=[K,K+Tmp];
- end;
- if type(Tmp)==10
- Pos=Tmp;
- end;
- end;
- Putcell(TbL,Crng,Row,Pos,Str)
- K=Crng(2);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.bin
deleted file mode 100644
index 83b428d4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.sci
deleted file mode 100644
index 0a3158cc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowexpr.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 10.04.01
-
-function Putrowexpr(varargin)
- Nargs=length(varargin);
- TbL=varargin(1);
- if type(TbL)~=15
- disp('Tabledata missing')
- return;
- end;
- Row=varargin(2);
- Nr=length(TbL(2))+1;
- K=1;
- Dpos=varargin(3);
- for I=4:Nargs
- if I-3>Nr
- break;
- end;
- Dt=varargin(I);
- if type(Dt)~=15
- Dt='$'+Dt+'$';
- Putcell(TbL,K,Row,Dpos,Dt);
- K=K+1;
- else
- N=length(Dt);
- Str='$'+Dt(N)+'$';
- Crng=[K,K+1];
- Pos=Dpos;
- for J=1:(N-1)
- Tmp=Dt(J);
- if type(Tmp)==1
- Crng=[K,K+Tmp];
- end;
- if type(Tmp)==10
- Pos=Tmp;
- end;
- end;
- Putcell(TbL,Crng,Row,Pos,Str)
- K=Crng(2);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.bin
deleted file mode 100644
index 02bd62fd..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.sci
deleted file mode 100755
index d006f3ec..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Putrowstr.sci
+++ /dev/null
@@ -1,34 +0,0 @@
-// 10.01.02 for v5
-
-function Putrowstr(varargin)
- Tb=varargin(1);
- Nr=varargin(2);
- Pos=varargin(3);
- Str=varargin(4);
- Sep='';
- if length(varargin)>4
- Sep=varargin(5);
- end;
- if Sep==''
- for I=1:length(Str)
- Tmp=part(Str,I);
- Putcell(Tb,I,Nr,Pos,Tmp);
- end;
- else
- Ltr='';
- K=1;
- for I=1:length(Str)
- Tmp=part(Str,I);
- if Tmp==Sep
- Putcell(Tb,K,Nr,Pos,Ltr);
- K=K+1;
- Ltr='';
- else
- Ltr=Ltr+Tmp;
- end;
- end;
- if Ltr~=''
- Putcell(Tb,K,Nr,Pos,Ltr);
- end;
- end;
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.bin
deleted file mode 100644
index cfb497e7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.sci
deleted file mode 100755
index a4f1ad89..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Puttrace.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 09.09.10
-
-function Puttrace(Dt);
- global TRACEDATA;
- TRACEDATA=Dt;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.bin
deleted file mode 100644
index 116083a4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.sci
deleted file mode 100644
index 839452f6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ratiocmyk.sci
+++ /dev/null
@@ -1,87 +0,0 @@
-// 11.05.28
-// 15.05.03
-
-function R=Ratiocmyk(Color)
- if type(Color)==1 then
- R=Color;
- return;
- end;
- Tmp=grep(Color,',');
- if length(Tmp)>0
- R=evstr(Tmp);
- return;
- end;
- select Color
- case 'greenyellow' then R=[0.15,0,0.69,0],
- case 'yellow' then R=[0,0,1,0],
- case 'goldenrod' then R=[0,0.1,0.84,0],
- case 'dandelion' then R=[0,0.29,0.84,0],
- case 'apricot' then R=[0,0.32,0.52,0],
- case 'peach' then R=[0,0.5,0.7,0],
- case 'melon' then R=[0,0.46,0.5,0],
- case 'yelloworange' then R=[0,0.42,1,0],
- case 'orange' then R=[0,0.61,0.87,0],
- case 'burntorange' then R=[0,0.51,1,0],
- case 'bittersweet' then R=[0,0.75,1,0.24],
- case 'redorange' then R=[0,0.77,0.87,0],
- case 'mahogany' then R=[0,0.85,0.87,0.35],
- case 'maroon' then R=[0,0.87,0.68,0.32],
- case 'brickred' then R=[0,0.89,0.94,0.28],
- case 'red' then R=[0,1,1,0],
- case 'orangered' then R=[0,1,0.5,0],
- case 'rubinered' then R=[0,1,0.13,0],
- case 'wildstrawberry' then R=[0,0.96,0.39,0],
- case 'salmon' then R=[0,0.53,0.38,0],
- case 'carnationpink' then R=[0,0.63,0,0],
- case 'magenta' then R=[0,1,0,0],
- case 'violetred' then R=[0,0.81,0,0],
- case 'rhodamine' then R=[0,0.82,0,0],
- case 'mulberry' then R=[0.34,0.9,0,0.02],
- case 'redviolet' then R=[0.07,0.9,0,0.34],
- case 'fuchsia' then R=[0.47,0.91,0,0.08],
- case 'lavender' then R=[0,0.48,0,0],
- case 'thistle' then R=[0.12,0.59,0,0],
- case 'orchid' then R=[0.32,0.64,0,0],
- case 'darkorchid' then R=[0.4,0.8,0.2,0],
- case 'purple' then R=[0.45,0.86,0,0],
- case 'plum' then R=[0.5,1,0,0],
- case 'violet' then R=[0.79,0.88,0,0],
- case 'royalpurple' then R=[0.75,0.9,0,0],
- case 'blueviolet' then R=[0.86,0.91,0,0.04],
- case 'periwinkle' then R=[0.57,0.55,0,0],
- case 'cadetblue' then R=[0.62,0.57,0.23,0],
- case 'cornflowerblue' then R=[0.65,0.13,0,0],
- case 'midnightblue' then R=[0.98,0.13,0,0.43],
- case 'navyblue' then R=[0.94,0.54,0,0],
- case 'royalblue' then R=[1,0.5,0,0],
- case 'blue' then R=[1,1,0,0],
- case 'cerulean' then R=[0.94,0.11,0,0],
- case 'cyan' then R=[1,0,0,0],
- case 'processblue' then R=[0.96,0,0,0],
- case 'skyblue' then R=[0.62,0,0.12,0],
- case 'turquoise' then R=[0.85,0,0.2,0],
- case 'tealblue' then R=[0.86,0,0.34,0.02],
- case 'aquamarine' then R=[0.82,0,0.3,0],
- case 'bluegreen' then R=[0.85,0,0.33,0],
- case 'emerald' then R=[1,0,0.5,0],
- case 'junglegreen' then R=[0.99,0,0.52,0],
- case 'seagreen' then R=[0.69,0,0.5,0],
- case 'green' then R=[1,0,1,0],
- case 'forestgreen' then R=[0.91,0,0.88,0.12],
- case 'pinegreen' then R=[0.92,0,0.59,0.25],
- case 'limegreen' then R=[0.5,0,1,0],
- case 'yellowgreen' then R=[0.44,0,0.74,0],
- case 'springgreen' then R=[0.26,0,0.76,0],
- case 'olivegreen' then R=[0.64,0,0.95,0.4],
- case 'rawsienna' then R=[0,0.72,1,0.45],
- case 'sepia' then R=[0,0.83,1,0.7],
- case 'brown' then R=[0,0.81,1,0.6],
- case 'tan' then R=[0.14,0.42,0.56,0],
- case 'gray' then R=[0,0,0,0.5],
- case 'black' then R=[0,0,0,1],
- case 'white' then R=[0,0,0,0],
- else
- disp(Color+' may be user-defined');
- R=Color; // 15.05.03
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.bin
deleted file mode 100644
index 22d88c39..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.sci
deleted file mode 100644
index c1656b15..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadOutData.sci
+++ /dev/null
@@ -1,92 +0,0 @@
-// 14.10.10
-// 14.12.14 for 3d
-// 15.01.03 changed ("start","end")
-// 15.10.24 in case of list-length==1
-
-function Out=ReadOutData(varargin)
- global Fnameout
- if length(varargin)==0 then
- Fname=Rnameout;
- else
- Fname=varargin(1);
- end
- Fid=mopen(Fname,"rb");
- Gstr=[];
- Str="";
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1
- if Tmp=="" then
- break;
- end;
- C=ascii(Tmp);
- if Tmp=="/"|C==13|C==10 then// / CR,LF
- if Flg==1 then
- if part(Str,1:5)=="start" then
- Str="Tmp=[];";
- else
- if part(Str,1:3)=="end" then
- if Flg3d==0 then // 2014.12.14
- Str=Varname+"($+1)=Listplot(Tmp);";
- else
- Str=Varname+"($+1)=Spaceline(Tmp);";
- end
- else
- if part(Str,1:2)=="[[" then
- Str="Tmp=[Tmp,"+Str+"];";
- else
- Varname=Str;
- Str=Varname+"=list();"
- Flg3d=-1;
- end;
- end;
- end;
- if Flg3d==-1 then // 2014.12.14
- Tmp1=mtlb_findstr(Str,"[[");
- if length(Tmp1)>0 then
- Tmp2=mtlb_findstr(Str,"]");
- Tmp3=part(Str,Tmp1:Tmp2(1));
- Tmp4=mtlb_findstr(Tmp3,",")
- if length(Tmp4)==2 then
- Flg3d=1;
- else
- Flg3d=0;
- end
- end
- end
- Gstr=[Gstr;Str];
- Str="";
- Flg=0;
- end;
- else
- Str=Str+Tmp;
- Flg=1;
- end;
- Tmp=mgetstr(1,Fid);
- end;
- mclose(Fid);
- Out=[]; // 15.10.24 from
- Var="";
- Ctr=0;
- for J=1:size(Gstr,1)
- St=Gstr(J,1);
- Out=[Out;St];
- Tmp=strsplit(St,"=");
- Tmp1=Tmp(1,1);
- Tmp2=Tmp(2,1);
- if grep(Tmp2,"list()") then
- if Ctr==1 then
- Out=[Out;Var+"="+Var+"(1)"];
- end;
- Var=Tmp1;
- Ctr=0;
- end;
- if grep(Tmp1,"$") then
- Ctr=Ctr+1;
- end;
- end
- if Ctr==1 then
- Out=[Out;Var+"="+Var+"(1)"];
- end; // 15.10.24 upto
- Out;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.bin
deleted file mode 100644
index 9f2e42ee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.sci
deleted file mode 100644
index eaf9f6df..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ReadfromCindy.sci
+++ /dev/null
@@ -1,38 +0,0 @@
-// s:2014,09.08
-// e:2014.09.26
-// e:2014.10.07 debugged, code changed
-// e:2014.10.08 CR | LF
-
-function Out=ReadfromCindy(Fname)
- Fid=mopen(Fname,"rb");
- Gline=list();
- Gpt=list();
- Gstr=[];
- Str="";
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1
- if Tmp=="" then
- if Flg==1 then
- Gstr=[Gstr;Str];
- Str="";
- Flg=1;
- end;
- break;
- end
- C=ascii(Tmp);
- if C==13|C==10 then// CR,LF
- if Flg==1 then
- Gstr=[Gstr;Str];
- Str="";
- Flg=0;
- end;
- else
- Str=Str+Tmp;
- Flg=1;
- end;
- Tmp=mgetstr(1,Fid);
- end;
- mclose(Fid);
- Out=Gstr;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.bin
deleted file mode 100644
index 4a58106b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.sci
deleted file mode 100755
index 7109f789..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Readtextdata.sci
+++ /dev/null
@@ -1,160 +0,0 @@
-// 08.05.22
-// 08.05.23
-// 08.05.26
-// 08.05.28
-// 10.04.25
-// 11.01.05
-// 13.10.06 format, debug
-// 14.01.20 debugged (Big data)
-
-function OutL=Readtextdata(varargin)
- OutL=[];
- Nargs=length(varargin);
- Fname=varargin(1);
- Suuji='0123456789.+-';
- Sep='';
- Hajime=[1,1];
- N=%inf;
- R=%inf;
- D=-%inf; // 11.01.04
- Fmt="%lf"; // 13.10.06
- Flg=0;
- for I=2:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- if Flg==0
- Hajime=Tmp;
- Flg=1
- else
- Owari=Tmp;
- end
- elseif mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- else
- if part(Tmp,1)=="%" // 13.10.06
- Fmt=Tmp
- else
- Sep=Tmp;
- if Tmp=='s' Sep=' '; end
- if Tmp==',' Sep=','; end
- if Tmp=='t' Sep=char(9); end
- end
- end
- end
- Owari=Hajime+[N-1,R-1];
- Fid=mopen(Fname,'rb');
- SL=[];
- S='';
- Lsp=0;
- Flg=1;
- Tmp=mgetstr(1,Fid);
- while 1==1 // 2014.01.20
- if Tmp=='' break; end
- C=ascii(Tmp);
- if C>=32 | C==9
- if C==32
- if Flg==1
- Tmp='';
- end
- Flg=1
- else
- Flg=0;
- end
- S=S+Tmp;
- Tmp=mgetstr(1,Fid);
- else
- SL=[SL;S];
- S='';
- Flg=1;
- Tmp=mgetstr(1,Fid);
- if Lsp==0
- if C==10 // LF
- Lsp=1;
- elseif C==13
- if ascii(Tmp)==10
- Lsp=3; // CR LF
- Tmp=mgetstr(1,Fid);
- else
- Lsp=2; // CR
- end
- else
- break;
- end
- else
- if C==10 | C==13
- if Lsp==3
- Tmp=mgetstr(1,Fid);
- end
- else
- break
- end
- end
- end
- end
- mclose(Fid);
- if length(S)>0 then // 2013.10.06
- SL=[SL;S]
- end
- for I=1:size(SL,1)
- S=SL(I,1);
- if S=='' continue; end
- if mtlb_findstr(Suuji,Strop(1,S))~=[]
- break
- end
- end
- Hajime(1,1)=max(Hajime(1,1),I);
- S=SL(Hajime(1),1);
- if Sep==''
- if length(mtlb_findstr(S,char(9)))~=0
- Sep=char(9);
- elseif length(mtlb_findstr(S,','))~=0
- Sep=',';
- else
- Sep=' ';
- end
- end
- Tmp=mtlb_findstr(S,Sep);
- J=length(Tmp);
- if Tmp(J)~=length(S)
- J=J+1;
- end
- Owari(1,1)=min(size(SL,1),Owari(1));
- Owari(1,2)=min(J,Owari(2));
- S=SL(Owari(1),1);
- while S==''
- Owari(1,1)=Owari(1,1)-1;
- S=SL(Owari(1),1);
- end
- OutL=[];
- for J=Hajime(1):Owari(1)
- S=SL(J,1);
- if S==''
- Tmp=%inf*ones(1,Owari(2)-Hajime(2)+1);
- OutL=[OutL;Tmp];
- continue
- end
- Tmp=Strop(1,S);
- if mtlb_findstr(Suuji+Sep,Tmp)==[]
- continue
- end
- SpL=[0,mtlb_findstr(S,Sep),length(S)+1];
- Data=[];
- for K=Hajime(2):Owari(2)
- Tmp=Strop(SpL(K)+1:SpL(K+1)-1,S);
- Tmp1=msscanf(Tmp,Fmt); // 13.10.06
- Data=[Data,Tmp1];
- end
- OutL=[OutL;Data];
- end;
- if D~=-%inf // 11.01.04
- Data=[];
- for I=1:size(OutL,1)
- Tmp=OutL(I,:);
- if Tmp(1)<=D // 11.01.04
- Tmp=[%inf,%inf];
- end;
- Data=[Data;Tmp];
- end;
- OutL=Data;
- end; //
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.bin
deleted file mode 100644
index d9cd1315..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.sci
deleted file mode 100755
index 837a5727..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Reflectdata.sci
+++ /dev/null
@@ -1,51 +0,0 @@
-// 08.05.25 Koshikawa
-// 08.09.20
-// 15.04.12
-
-function OutL=Reflectdata(varargin)
- Nargs=length(varargin)
- ML=varargin(1);
- ML=Flattenlist(ML);
- if Nargs==1
- PtA=[0,0];PtB=PtA;
- else
- Pts=varargin(2);
- if length(Pts)==2
- PtA=Pts; PtB=PtA;
- else
- PtA=Pts(1,1:2); PtB=Pts(1,3:4);
- end
- end
- OutL=[];
- for N=1:length(ML)
- GL=Op(N,ML);
- Out=[];
- for I=1:size(GL,1)
- Tmp=GL(I,:);
- X1=Tmp(1);
- Y1=Tmp(2);
- if Tmp==[%inf,%inf]
- X2=X1;
- Y2=Y1;
- else
- if PtA==PtB
- X2=2*PtA(1)-X1;
- Y2=2*PtA(2)-Y1;
- else
- U=PtB(1)-PtA(1);
- V=PtB(2)-PtA(2);
- A=PtA(1);
- B=PtA(2);
- X2=(U^2-V^2)/(U^2+V^2)*X1+2*U*V/(U^2+V^2)*Y1-2*V*(U*B-V*A)/(U^2+V^2);
- Y2=2*U*V/(U^2+V^2)*X1-(U^2-V^2)/(U^2+V^2)*Y1+2*U*(U*B-V*A)/(U^2+V^2);
- end
- end
- Out=[Out;X2,Y2];
- end;
- OutL=Mixadd(OutL,Out);
- end;
- if length(OutL)==1
- OutL=Op(1,OutL);
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.bin
deleted file mode 100644
index 66f6a956..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.sci
deleted file mode 100644
index facea4d5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rmmember.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 11.01.14 New
-
-function Out=Rmmember(L,Rm)
- if type(L)==1
- Out=[];
- end;
- if type(L)==15
- Out=list();
- end;
- for J=1:length(L)
- Tmp=L(J);
- if ~Member(Tmp,Rm)
- Out($+1)=Tmp;
- end;
- end;
- if type(L)==1 & size(L,1)==1
- Out=Out';
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.bin
deleted file mode 100644
index e8683dd9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.sci
deleted file mode 100755
index 9082290d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3data.sci
+++ /dev/null
@@ -1,40 +0,0 @@
-// 08.08.15
-// 14.03.23 debugged "center"
-// 15.04.12
-
-function Out=Rotate3data(varargin)
-// Eps=10^(-4);
- Nargs=length(varargin);
- Pd3=varargin(1);
- Pd3=Flattenlist(Pd3); // 15.04.12
- W1=varargin(2);
- W2=varargin(3);
- C=[0,0,0];
- if Nargs>=4
- C=varargin(4);
- end;
-// if Mixtype(Pd3)==1 // 15.04.12 from
-// Pd3=MixS(Pd3);
-// elseif Mixtype(Pd3)==3
-// Tmp=[];
-// for I=1:Mixlength(Pd3)
-// Tmp=Mixjoin(Tmp,Mixop(I,Pd3));
-// end;
-// Pd3=Tmp;
-// end;
- Out=[];
- for I=1:length(Pd3)
- PD=Op(I,Pd3);
- Ans=[];
- for J=1:size(PD,1)
- P=PD(J,:);
- Tmp=Rotate3pt(P,W1,W2,C); // 14.03.23
- Ans=[Ans;Tmp];
- end;
- Out=Mixadd(Out,Ans);
- end;
- if length(Out)==1
- Out=Op(1,Out);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.bin
deleted file mode 100644
index bc806d95..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.sci
deleted file mode 100755
index 910aa734..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotate3pt.sci
+++ /dev/null
@@ -1,75 +0,0 @@
-// 08.08.15
-
-function Ans=Rotate3pt(varargin)
- Eps=10^(-4);
- Nargs=length(varargin);
- P=varargin(1);
- W1=varargin(2);
- W2=varargin(3);
- C=[0,0,0];
- if Nargs>=4
- C=varargin(4);
- end;
- if type(W2)==1 & length(W2)==1
- Ct=cos(W2);
- St=sin(W2);
- V3=1/norm(W1)*W1;
- if V3(1)==0
- Tmp=[1,0,0];
- else
- Tmp=[0,1,0];
- end;
- W1=[Tmp(2)*V3(3)-Tmp(3)*V3(2),Tmp(3)*V3(1)-Tmp(1)*V3(3),Tmp(1)*V3(2)-Tmp(2)*V3(1)];
- V1=1/norm(W1)*W1;
- V2=[V3(2)*V1(3)-V3(3)*V1(2),V3(3)*V1(1)-V3(1)*V1(3),V3(1)*V1(2)-V3(2)*V1(1)];
- else
- Tmp=[W1(2)*W2(3)-W1(3)*W2(2),W1(3)*W2(1)-W1(1)*W2(3),W1(1)*W2(2)-W1(2)*W2(1)];
- if norm(Tmp)<Eps
- Ans=P;
- return;
- end;
- V1=1/norm(W1)*W1;
- Ns=V1(1)*W2(1)+V1(2)*W2(2)+V1(3)*W2(3);
- Tmp=W2-Ns*V1;
- V2=1/norm(Tmp)*Tmp;
- Tmp=[V1(2)*V2(3)-V1(3)*V2(2),V1(3)*V2(1)-V1(1)*V2(3),V1(1)*V2(2)-V1(2)*V2(1)];
- V3=1/norm(Tmp)*Tmp;
- Ct=Ns/norm(W2);
- St=sqrt(1-Ct^2);
- end;
- if norm(Tmp)<Eps
- Ans=P;
- return;
- end;
- V1x=V1(1); V1y=V1(2); V1z=V1(3);
- V2x=V2(1); V2y=V2(2); V2z=V2(3);
- V3x=V3(1); V3y=V3(2); V3z=V3(3);
- if Mixtype(P)~=1
- PtL=P;
- else
- PtL=MixS(P);
- end;
- Ans=[];
- for N=1:Mixlength(PtL)
- P=Mixop(N,PtL);
- if P(1)==%inf
- Ans=Mixadd(Ans,[%inf,%inf,%inf]);
- continue;
- end;
- x=P(1)-C(1); y=P(2)-C(2); z=P(3)-C(3);
- X=((V1x*Ct+V2x*St)*V1x+(-V1x*St+V2x*Ct)*V2x+V3x^2)*x;
- X=X+((V1x*Ct+V2x*St)*V1y+(-V1x*St+V2x*Ct)*V2y+V3x*V3y)*y;
- X=X+((V1x*Ct+V2x*St)*V1z+(-V1x*St+V2x*Ct)*V2z+V3x*V3z)*z;
- Y=((V1y*Ct+V2y*St)*V1x+(-V1y*St+V2y*Ct)*V2x+V3x*V3y)*x;
- Y=Y+((V1y*Ct+V2y*St)*V1y+(-V1y*St+V2y*Ct)*V2y+V3y^2)*y;
- Y=Y+((V1y*Ct+V2y*St)*V1z+(-V1y*St+V2y*Ct)*V2z+V3y*V3z)*z;
- Z=((V1z*Ct+V2z*St)*V1x+(-V1z*St+V2z*Ct)*V2x+V3x*V3z)*x;
- Z=Z+((V1z*Ct+V2z*St)*V1y+(-V1z*St+V2z*Ct)*V2y+V3y*V3z)*y;
- Z=Z+((V1z*Ct+V2z*St)*V1z+(-V1z*St+V2z*Ct)*V2z+V3z^2)*z;
- Ans=Mixadd(Ans,C+[X,Y,Z]);
- end;
- if Mixlength(Ans)==1
- Ans=Mixop(1,Ans);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.bin
deleted file mode 100644
index fc876c55..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.sci
deleted file mode 100755
index 845cac17..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Rotatedata.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 08.05.23 Koshikawa
-// 08.09.20
-// 15.04.12
-
-function OutL=Rotatedata(varargin)
- Nargs=length(varargin);
- ML=varargin(1);
- ML=Flattenlist(ML);
- Theta=varargin(2);
- if Nargs==2,
- Pt=[0,0]
- else
- Pt=varargin(3);
- end
- Cx=Pt(1);Cy=Pt(2);
- OutL=[];
- for N=1:length(ML)
- GL=Op(N,ML);
- Out=[];
- for I=1:size(GL,1)
- Tmp=GL(I,:);
- X1=Tmp(1);
- Y1=Tmp(2);
- if Tmp==[%inf,%inf]
- X2=X1;
- Y2=Y1;
- else
- X2=Cx+(X1-Cx)*cos(Theta)-(Y1-Cy)*sin(Theta);
- Y2=Cy+(X1-Cx)*sin(Theta)+(Y1-Cy)*cos(Theta);
- end;
- Out=[Out;X2,Y2];
- end;
- OutL=Mixadd(OutL,Out);
- end;
- if length(OutL)==1
- OutL=Op(1,OutL);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.bin
deleted file mode 100644
index f55e05bc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.sci
deleted file mode 100644
index d14f3b3a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Roundstr.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 10.11.04
-
-function Out=Roundstr(X,Ni,Nf)
- Na=Ni+1+Nf;
- Fmt='%'+string(Na)+'.'+string(Nf)+'f';
- Out=sprintf(Fmt,X);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.bin
deleted file mode 100644
index 025c430a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.sci
deleted file mode 100755
index 7e563f4b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Scaledata.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 08.05.25 Koshikawa
-// 08.09.20
-// 15.04.12
-
-function OutL=Scaledata(varargin)
- Nargs=length(varargin);
- ML=varargin(1);
- ML=Flattenlist(ML);
- A=varargin(2);
- B=varargin(3);
- if Nargs==3
- Pt=[0,0];
- else
- Pt=varargin(4);
- end
- OutL=[];
- for N=1:length(ML)
- GL=Op(N,ML);
- Out=[];
- for I=1:size(GL,1)
- Tmp=GL(I,:);
- X1=Tmp(1);
- Y1=Tmp(2);
- if Tmp==[%inf,%inf]
- X2=X1;
- Y2=Y1;
- else
- X2=Pt(1)+A*(X1-Pt(1));
- Y2=Pt(2)+B*(Y1-Pt(2));
- end
- Out=[Out;X2,Y2];
- end;
- OutL=Mixadd(OutL,Out);
- end;
- if length(OutL)==1
- OutL=Op(1,OutL);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.bin
deleted file mode 100644
index 60750005..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.sci
deleted file mode 100755
index e918e475..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sectionview.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 09.09.10
-// 09.10.12 remove:Uveq, add:Glist
-
-function Out=Sectionview(PtA,Vec,Fd,Glist,Np,Eps)
- Uv=1/norm(Vec)*Vec;
- Nv=[Uv(2),-Uv(1),0];
- G1=Sfcutdata(Fd,Mix(Nv,PtA),Np);
- G2=Spaceline([PtA,PtA+10*Uv]);
- Tmp=Mixjoin(G1,G2,Glist);
- Tmp1=Viewfrom(Nv,Tmp);
- Out=Tmp;
-endfunction;
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.bin
deleted file mode 100644
index e70977ce..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.sci
deleted file mode 100755
index 2a4a3c95..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setangle.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 08.07.11
-// 08.08.12
-// 09.02.27
-
-function Setangle(varargin)
- global PHI THETA;
- Nargs=length(varargin);
- if Nargs<2
- Mixdisp(Mix('theta=',THETA*180/%pi));
- Mixdisp(Mix('phi=',PHI*180/%pi));
- return;
- else
- PHI=varargin(2)*%pi/180;
- THETA=varargin(1)*%pi/180;
- end
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.bin
deleted file mode 100644
index 63725d0f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.sci
deleted file mode 100755
index 8f9d6053..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setarrow.sci
+++ /dev/null
@@ -1,35 +0,0 @@
-// 08.05.31
-// 09.02.27
-
-function Setarrow(varargin)
- global YaSize YaAngle YaPosition YaThick YaStyle;
- Nargs=length(varargin);
- if Nargs==0
- Mixdisp(Mix('Size=',YaSize));
- Mixdisp(Mix('Angle=',YaAngle));
- Mixdisp(Mix('Position=',YaThick));
- Mixdisp(Mix('Style=',YaStyle));
- return;
- end;
- Flg=0;
- for I=1:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- Flg=Flg+1;
- if Flg==1 YaSize=Tmp; end
- if Flg==2
- if Tmp<5
- YaAngle=18*Tmp;
- else
- YaAngle=Tmp;
- end
- end
- if Flg==3 YaPosition=Tmp; end
- if Flg==4 YaThick=Tmp; end
- end
- if type(Tmp)==10
- YaStyle=Tmp
- end
- end
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.bin
deleted file mode 100644
index 6a258c98..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.sci
deleted file mode 100755
index 5fab30e2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setax.sci
+++ /dev/null
@@ -1,102 +0,0 @@
-// 08.08.08
-// 09,02.27
-
-function Out=Setax(varargin)
- global ZIKU XNAME XPOS YNAME YPOS ONAME OPOS ARROWSIZE;
- Nargs=length(varargin);
- if Nargs==0
- if ZIKU=='line'
- Tmp=','
- else
- Tmp='(Arrowsize='+string(ARROWSIZE)+'),'
- end;
- Str=...
- ZIKU+Tmp+...
- XNAME+','+XPOS+','+YNAME+','+...
- YPOS+','+ONAME+','+OPOS;
- Out=Str;
- disp(Str);
- return;
- end;
- ArgL=[];
- Is=1;
- Tmp=varargin(1);
- if type(Tmp)==1 & length(Tmp)==1
- Is=varargin(1);
- ArgL=[];
- for I=1:Is-1
- ArgL=[ArgL,''];
- end
- for I=2:Nargs
- ArgL=[ArgL,varargin(I)];
- end
- else
- if Nargs==1
- ArgL=[varargin(1)];
- else
- Tmp=varargin(2);
- if type(Tmp)==1 & length(Tmp)==1
- ARROWSIZE=Tmp;
- ArgL=[varargin(1)];
- for I=3:Nargs
- ArgL=[ArgL,varargin(I)];
- end;
- else
- ArgL=[];
- for I=1:Nargs
- ArgL=[ArgL,varargin(I)];
- end;
- end
- end
- end
- for I=size(ArgL,2)+1:7
- ArgL=[ArgL,''];
- end
- Zk=ArgL(1);
- if Zk~=''
- ZL=msscanf(Zk,'%c%f');
- Zk=ZL(1);
- if length(ZL)>1 // modified at 080807
- ARROWSIZE=ZL(2);
- end
- end
- Xn=ArgL(2); Xp=ArgL(3);
- Yn=ArgL(4); Yp=ArgL(5);
- Genn=ArgL(6); Genp=ArgL(7);
- if Zk~=''
- C=Zk;
- if C=='a'
- ZIKU='arrow';
- else
- ZIKU='line';
- end
- end
- if Xn~=''
- XNAME='$'+Xn+'$'
- end
- if Xp~=''
- XPOS=Xp
- end
- if Yn~=''
- YNAME='$'+Yn+'$'
- end
- if Yp~=''
- YPOS=Yp
- end
- if Genn~=''
- ONAME=Genn
- end
- if Genp~=''
- OPOS=Genp
- end
- if ZIKU=='line'
- Tmp=','
- else
- Tmp='(Arrowsize='+string(ARROWSIZE)+'),'
- end;
- Str=...
- ZIKU+Tmp+...
- XNAME+','+XPOS+','+YNAME+','+...
- YPOS+','+ONAME+','+OPOS;
- Out=Str;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.bin
deleted file mode 100644
index cb6ec45d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.sci
deleted file mode 100644
index 51b8e0c3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcolor.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 11.05.28
-// 11.08.24
-// 15.05.03
-
-function Setcolor(varargin)
- global Wfile FID;
- Nargs=length(varargin);
- Color='black';
- Kosa=1;
- Color=varargin(1);
- if length(varargin)>1
- Kosa=varargin(2);
- end;
- Iro=Ratiocmyk(Color);
- if type(Iro)==10
- Str='\color{'+Iro+"}%";
- else
- if size(Iro,2)>3
- Str='\color[cmyk]{';
- else
- Str='\color[rgb]{';
- end;
- for J=1:size(Iro,2)
- Str=Str+string(Kosa*Iro(J));
- if J<size(Iro,2)
- Str=Str+',';
- end;
- end;
- Str=Str+'}%';
- end;
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.bin
deleted file mode 100644
index 7bcd0094..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.sci
deleted file mode 100755
index 4b8b932b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setcounter.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 09.09.10
-
-function Setcounter(varargin)
- global GCOUNTER;
- Nargs=length(varargin);
- if Nargs==0
- N=1;
- else
- N=varargin(1);
- end;
- GCOUNTER=N;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.bin
deleted file mode 100644
index b8a538c3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.sci
deleted file mode 100755
index ae713f4e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmark.sci
+++ /dev/null
@@ -1,43 +0,0 @@
-// 09.11.26
-// 09.12.06
-
-function Setmark();
- Xminnow=Xmin(); Xmaxnow=Xmax();
- Yminnow=Ymin(); Ymaxnow=Ymax();
- Setwindow([-1.5,1.5],[-2.3,2.3]);
- F1=Framedata();
- F2=Paramplot('[1.5*cos(t),2.3*sin(t)]','t=[0,2*%pi]','N=25');
- Texcom('\def\recmark{');
- Texcom('\begin{minipage}[c]{3mm}');
- Beginpicture('1mm');
- Shade(F1);
- Drwline(F1);
- Endpicture(0);
- Texcom('');
- Texcom('\end{minipage}');
- Texcom('}');
-
- Texcom('\def\cirmark{');
- Texcom('\begin{minipage}[c]{3mm}');
- Beginpicture('1mm');
- Shade(F2);
- Drwline(F2);
- Endpicture(0);
- Texcom('');
- Texcom('\end{minipage}');
- Texcom('}');
-
- Texcom('\def\dashmark#1{');
- Texcom('\begin{minipage}[c]{3mm}');
- Beginpicture('1mm');
- Setpen(0.5);
- Dashline(F2,0.5,0.5);
- Fontsize('ss');
- Letter([0,0],'c','#1');
- Endpicture(0);
- Texcom('');
- Texcom('\end{minipage}');
- Texcom('}');
- Setwindow([Xminnow,Xmaxnow],[Yminnow,Ymaxnow]);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.bin
deleted file mode 100644
index 6822b346..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.sci
deleted file mode 100755
index a17c9e95..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setmarklen.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-//
-// 09.02.27
-// 14.03.05 MARKLEN
-
-function Setmarklen(varargin)
- global MARKLEN MARKLENInit MARKLENNow;
- Nargs=length(varargin);
- if Nargs==0
- Tmp=MARKLEN/MARKLENInit;
- Tmp=round(Tmp*100)/100;
- disp(Tmp);
- return;
- end;
- Size=varargin(1);
- MARKLEN=MARKLENInit*Size;
- MARKLENNow=MARKLEN;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.bin
deleted file mode 100644
index a8591c05..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.sci
deleted file mode 100644
index 2ee06cbb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjdecimals.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// s : 2014.06.22
-
-function Setobjdecimals(n)
- global OBJFMT;
- s1=string(n);
- s2=string(n+3);
- OBJFMT="%"+s2+"."+s1+"f";
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.bin
deleted file mode 100644
index 71df5ec2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.sci
deleted file mode 100644
index 22f13c4d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setobjscale.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// s : 2014.06.22
-
-function Setobjscale(scale)
- global OBJSCALE;
- OBJSCALE=scale;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.bin
deleted file mode 100644
index 91bbc8da..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.sci
deleted file mode 100755
index 62a1f624..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setorigin.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-//
-// 09.02.27
-
-function Setorigin(varargin)
- global GENTEN;
- Nargs=length(varargin);
- if Nargs==0
- disp(GENTEN);
- return;
- end;
- Pt=varargin(1);
- GENTEN=Pt;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.bin
deleted file mode 100644
index d5934c6e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.sci
deleted file mode 100755
index 500ef7f9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpen.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function Setpen(Width)
- global Wfile FID PenThick PenThickInit;
- PenThick=round(PenThickInit*Width);
- Str='\special{pn '+string(PenThick)+'}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.bin
deleted file mode 100644
index c628c2f0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.sci
deleted file mode 100755
index 455551bb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpers.sci
+++ /dev/null
@@ -1,16 +0,0 @@
-// 08.08.12
-// 08.08.15
-
-function Setpers(varargin)
- global FocusPoint EyePoint;
- Nargs=length(varargin);
- if Nargs==0
- Mixdisp(Mix('FocusPoints=',FocusPoint));
- Mixdisp(Mix('EyePoint=',EyePoint));
- return;
- else
- FocusPoint=varargin(1);
- EyePoint=varargin(2);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.bin
deleted file mode 100644
index b36a2407..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.sci
deleted file mode 100755
index a3b86b01..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setpt.sci
+++ /dev/null
@@ -1,16 +0,0 @@
-//
-// 09.02.27
-
-function Setpt(varargin)
- global TenSize TenSizeInit;
- Nargs=length(varargin);
- if Nargs==0
- Tmp=TenSize/TenSizeInit;
- Tmp=round(Tmp*100)/100;
- disp(Tmp);
- return;
- end;
- Size=varargin(1);
- TenSize=TenSizeInit*Size;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.bin
deleted file mode 100644
index d3561ee9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.sci
deleted file mode 100755
index 1d4868c9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setscaling.sci
+++ /dev/null
@@ -1,28 +0,0 @@
-function Out=Setscaling(varargin)
- global LOGX LOGY SCALEX SCALEY;
- Nargs= length(varargin)
- if Nargs==0
- Out=[SCALEY,LOGX,LOGY];
- return;
- end;
- for I=1:Nargs
- Tmp=varargin(I);
- if type(Tmp)==1
- SCALEY=Tmp;
- end;
- if type(Tmp)==10
- if Tmp=="l"
- LOGX=0;
- LOGY=1;
- elseif Tmp=="ll"
- LOGX=1
- LOGY=1
- else
- LOGX=0
- LOGY=0
- end;
- end;
- end;
- Out=[SCALEY,LOGX,LOGY];
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.bin
deleted file mode 100644
index cba724b8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.sci
deleted file mode 100755
index cb6c79ae..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoL.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.08.12
-// 08.09.21
-// 09.03.09
-
-function SetstereoL(R,T,P,H)
- X=R*sin(T*%pi/180)*cos(P*%pi/180);
- Y=R*sin(T*%pi/180)*sin(P*%pi/180);
- Z=R*cos(T*%pi/180);
- Eye=[X+H/2*Y/(X^2+Y^2),Y-H/2*X/(X^2+Y^2),Z];
- Setpers([0,0,0],Eye);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.bin
deleted file mode 100644
index 7f82c6ee..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.sci
deleted file mode 100755
index ff9de892..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/SetstereoR.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// 08.08.12
-
-function SetstereoR(R,T,P,H)
- X=R*sin(T*%pi/180)*cos(P*%pi/180);
- Y=R*sin(T*%pi/180)*sin(P*%pi/180);
- Z=R*cos(T*%pi/180);
- Eye=[X-H/2*Y/(X^2+Y^2),Y+H/2*X/(X^2+Y^2),Z];
- Setpers([0,0,0],Eye);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.bin
deleted file mode 100644
index 23ded039..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.sci
deleted file mode 100755
index 84ea4d60..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setunitlen.sci
+++ /dev/null
@@ -1,78 +0,0 @@
-// 08.12.06
-// 08.12.18
-// 09.02.20
-// 09.02.27
-// 14.03.05 MARKLEN
-// 17.03.19 VL=[] => VL="";
-
-function Out=Setunitlen(varargin)
- global FID XMIN XMAX YMIN YMAX ULEN
- global MilliIn MARKLEN MARKLENNow PenThickInit;
- if length(varargin)==0
- Out=ULEN;
- disp(ULEN);
- return;
- end;
- Ul=varargin(1);
- Dx=XMAX-XMIN;
- Dy=YMAX-YMIN;
- Sym='.0123456789 +-*/';
- Tmp=ascii(Sym);
- SL=Sym;
- OL='+-*/';
- if Ul~=''
- ULEN=Ul;
- end;
- Out=ULEN;
- Is=1;
- VL=""; // 17.03.19
- Ucode=ascii(ULEN);
- for I=1:length(Ucode)
- C=char(Ucode(I));
- if mtlb_findstr(SL,C)~=[]
- if mtlb_findstr(OL,C)
- Str=char(Ucode(Is:(I-1)));
- VL=VL+Str+C;
- Is=I+1;
- end
- else
- Unit=char(Ucode(I:(I+1)));
- Str=char(Ucode(Is:(I-1)));
- VL=VL+Str;
- break;
- end;
- end;
- Valu=evstr(VL);
- Str=string(Valu);
- ULEN=Str+Unit;
- Out=ULEN;
- if Unit=='cm'
- MilliIn=1000/2.54*Valu;
- end
- if Unit=='mm'
- MilliIn=1000/2.54*Valu/10;
- end
- if Unit=='in'
- MilliIn=1000*Valu;
- end
- if Unit=='pt'
- MilliIn=1000/72.27*Valu;
- end
- if Unit=='pc'
- MilliIn=1000/6.022*Valu;
- end
- if Unit=='bp'
- MilliIn=1000/72*Valu;
- end
- if Unit=='dd'
- MilliIn=1000/1238/1157/72.27*Valu;
- end
- if Unit=='cc'
- MilliIn=1000/1238/1157/72.27*12*Valu;p
- end
- if Unit=='sp'
- MilliIn=1000/72.27/65536*Valu/10;
- end
- MARKLEN=MARKLENNow*1000/2.54/MilliIn;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.bin
deleted file mode 100644
index 992a793c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.sci
deleted file mode 100755
index 92883d5a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setversion.sci
+++ /dev/null
@@ -1,182 +0,0 @@
-//
-// 08.11.12 V3.0.2b
-// 08.11.26 V3.0.2c
-// 08.12.08 V3.0.2d
-// 08.12.11 v3.0.2e
-// 08.12.17 v3.0.3a
-// 08.12.21 v3.0.3b
-// 08.12.30 v3.0.3c
-// 09.01.15 v3.0.3d
-// 09.02.20 v3.0.3e
-// 09.02.27 v3.0.4a
-// 09.02.27 v3.0.4b
-// 09.03.06 v3.0.4c
-// 09.03.09 v3.0.4d
-// 09.03.10 v3.0.4e
-// 09.03.12 v3.0.5a
-// 09.05.12 v3.0.5b
-// 09.05.18 v3.0.5c
-// 09.05.27 v3.0.6a
-// 09.06.01 v3.0.6b
-// 09.06.05 v3.0.6c
-// 09.06.13 v3.0.6d
-// 09.06.24 v3.0.6e
-// 09.08.12 v3.0.7a
-// 09.08.13 v3.0.7b
-// 09.08.23 v3.0.8a
-// 09.09.10 v3.0.9a
-// 09.09.18 v3.1.0a
-// 09.09.21 v3.1.0b
-// 09.09.25 v3.1.1a
-// 09.09.25 v3.1.1b
-// 09.10.01 v3.1.1c
-// 09.10.03 v3.1.2a
-// 09.10.04 v3.1.3a
-// 09.10.05 v3.1.3b
-// 09.10.08 v3.1.3c
-// 09.10.09 v3.1.4a
-// 09.10.11 v3.1.5a
-
-// Structure changed
-// 09.10.11 v3.2.0beta
-// 09.10.31 v3.2.0beta1031
-
-// 09.11.01 v3.2.0a
-// 09.11.04 v3.2.1a
-// 09.11.12 v3.2.1b
-// 09.11.14 v3.2.1c
-// 09.11.14 v3.2.1d
-// 09.11.21 v3.2.1e
-// 09.11.26 v3.2.2a
-// 09.12.05 v3.2.2b
-// 09.12.06 v3.2.3a
-// 09.12.17 v3.2.3b
-// 09.12.24 v3.2.3c
-// 09.12.25 v3.3.1a
-// 09.12.26 v3.3.1b
-// 09.12.28 v3.3.1c
-// 09.12.31 v3.3.1d ( for v5.2.0)
-// 10.01.01 v3.4.0alpha
-// 10.01.05 v3.4.0beta
-// 10.01.10 v3.4.1a
-// 10.01.12 v3.4.1b
-// 10.01.16 v3.4.1c
-// 10.01.21 v3.4.2a
-// 10.02.01 v3.4.2b
-// 10.02.07 v3.4.2c
-// 10.02.12 v3.4.2d
-// 10.02.14 v3.4.2e
-// 10.02.16 v3.4.3a
-// 10.02.20 v3.4.3b Windisp
-// 10.02.24 v3.4.3c Execmd
-// 10.03.07 v3.4.3d
-// 10.03.28 v3.4.4a
-// 10.03.28 v3.4.4b
-// 10.04.03 v3.4.5a
-// 10.04.10 v3.4.5b
-// 10.04.16 v3.4.6a
-// 10.04.24 v3.4.6b
-// 10.04.24 v3.4.6b1
-// 10.04.27 v3.4.7a
-// 10.05.03 v3.4.7b
-// 10.05.09 v3.4.7c Makeskeletondata, Makeskeletonpersdata
-// 10.05.12 v3.4.7d Texfor
-// 10.05.15 v3.4.8a Texctr
-// 10.08.15 v3.5.0a Phcutoffdata
-// 10.09.02 Dropnumlistcrv
-// 10.10.20 Texfor
-// 10.11.04 Hatchdata, Roundstr
-// 10.11.13 v3.5.0b Flattenlist added. Dashline, Invdashline changed
-// 10.12.02 v3.5.0c Lineplot changed
-// Makecurves debugged
-// Enclosing changed (Output )
-// 11.01.07 v3.5.1a Readtextdata is changed
-// Dividegraphiics, Splinedata are changed
-// Facesdata is debugged (HiddenL)
-// Rmmember added
-// 11.04.13 Nohiddenpers2, Htickmark, Vtickmark are debugged
-// 11.05.29 v4.0.0a ketpict2e released, too
-// Setcolor, Ratiocmyk
-// 11.11.02 v4.0.0b Joingraphics changed
-// 11.12.12 v4.0.0c Skeletonparadata... changed (for various list )
-// 11.12.18 Framedata (compliant for list )
-// 12.01.07 v4.0.1a Arrowline, Arrowhead ( kirikomi )
-// 12.04.16 v4.0.1b Arrowhead debugged
-// 12.08.26 v4.0.1c Arrowline debugged
-// 13.05.03 v4.2a Tabledata, Pointdata changed
-// Dividetable, Partframe added
-// 13.05.17 v4.2_1a Arrowhead debugged
-// Openfile, Closefile, Ketinit() changed
-// 13.08.13 v4.2_2 Cancoordpara added
-// 13.10.06 v4.2_2a Readtextdata debugged and changed (Format)
-// 13.11.02 v4.3_0 __ added to local variables
-// Openfile, Closefile changed
-// 13.11.02 v4.3_0a Closefile debugged
-// 13.11.13 v4.3_0b Arrowhead, Arrowheaddata debugged
-// 13.12.03 v4.3_1 Bowname changed, Meetpoint debugged
-// 14.01.10 v4.3_1a Readtextdata debugged (Big data)
-// 14.03.05 v4.3_1b MARKLEN separated from MEMORI
-// 14.03.23 Rotate3data debugged
-// 14.03.30 v43_1c Facesdata debugged
-// 14.06.09 v43_2a Phcutdata debugged (cause unknown )
-// 14.06.22 v5_0_1a Obj macros added
-// 14.06.28 v5_0_1b debug cuspsplit (para, pers)
-// 14.07.05 v5_0_1c debug (warning ) Makeskeletondata, Makeskeletonpersdata
-// debug Makexybdy (by Kitahara)
-// 14.07.18 v5_0_1d Objsurf, Objthicksurf changed ( input argument )
-// 14.08.26 V5_1_0a Symbdata, Symb3data, Objsymb added
-// Objcurve debugged
-// 14.09.07 v5_1_0b Objjoin added
-// 14.09,08 v5_1_1a ReadfromCindy added
-// 14.09.16 v5_1_1b WritetoCindy added
-// 14.09.26 v5_1_1c Derivative changed ( to numderivative)
-// 14.09.30 v5_1_1d Assignrep changed
-// 14.10.08 v5_1_1e ReadfromCindy debugged
-// 14.10.08 v5_1_1f ReadfromCindy supported CF|LF
-// 14.10.10 v5_1_2a ReadOutdata, WritOutData added
-// 14.10.24 v5_1_2b Derivative changed ( derivative or numderivative used a.t scilab version)
-// Plotdata,Paramplot,Circledata changed ( N,D,E,R => N__, ... )
-// 14.12.11 v5_1_3a Assign changed (replaced only variable name )
-// Plotdata changed (and debugged ), Paramplot changed
-// 12.14 WriteOutData,ReadOutData changed ( for 3d )
-// 14.12.28 v5_1_3b Assign debugged
-// 15.01.01 v5_1_4a Bezierpt,Bezier added
-// 15.01.03 v5_1_4b ReadOutData changed ("start","end")
-// 15.02.08 v5_1_5a Bezier pt changed (available for 3d)
-// 15.02.18 v5_1_5b Assign debugged
-// 15.02.19 v5_1_5c Assign again debugged
-// 15.04.10 v5_1_5d EnclosingS debugged
-// Translatedata, Rotatedata, Reflectdata, Scaledate changed (Flattenlist)
-// 15.04.18 v5_1_5e Assign debugged
-// 15.05.03 v5_1_6a Setcolor,Ratiocmyk changed ( for cmyk, rgb, mycolor )
-// 15.05.04 Definecolor added
-// 15.06.11 v5_1_6b Arrowline, Arrowhead debugged
-// 15.06.14 v5_1_6c Skeletonpara3data debugged
-// Arrowhead changed (0.2 -> 0.1 )
-// 15.10.19 v5_1_6d Skeletonpara3data debugged
-// 15.10.23 v5_1_6e ReadOutData changed ( for the lenth of PD is 1 )
-// 15.10.23 Meetwindow changed ( horner non used )
-// 15.10.24 Arrowline debugged
-// 15.10.23 v5_1_6f WriteOutData changed ( endmark //// )
-// 15.11.05 v5_1_6g WriteOutData changed
-// 15.11.16 v5_2_1 Ovaldata changed ( Rc )
-// Plotdata, Paramplot, Deqplot
-// number of points changed to number of intervals
-// 15.12.08 v5_2_2 Deqplot debugged ( option __)
-// 16.08.20 v5_2_3 Spacecurve debugged ( N )
-// 16.10.09 v5_2_3a Objcurve changed ( N of Sapcecurve)
-// 16.10.09 v5_2_3b Kyoukai changed ( Eps =>10^(-4))
-// 16.10.09 v5_2_3c Enclosing, Kyoukai changed ( to make it a closed curve))
-// 16.12.13 v5_2_3d Plotdata,Paramplot,Spacecurve changed ( for only one point)
-// 16.12.24 v5_2_3e Makeskeletondata debugged ( for nul interval)
-// 16.12.29 v5_2_3f Anglemark, MeetWindow debugged ( for nul interval)
-// 16.12.29 v5_2_3g Shade changed (for colorname or colorcode)
-// 17.03.19 v5_2_3h Openpicture,Setunitlen debugged ( for 6 )
-// 17.05.21 v5_2_3i Evlptablepara changed (division number)
-
-
-function Setversion()
- global THISVERSION;
- THISVERSION='v5_2_3i';
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.bin
deleted file mode 100644
index 5ab2b0d2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.sci
deleted file mode 100755
index fb72097b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Setwindow.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-//
-// 09.02.27
-// 10.04.25
-
-function Out=Setwindow(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs=length(varargin);
- if Nargs==0
- Out=[XMIN,XMAX,YMIN,YMAX];
- disp(Out);
- return;
- end;
- if Nargs==1
- Dt=varargin(1);
- if type(Dt)==1
- Dt=list(Dt);
- end;
- Xm=%inf; XM=-%inf;
- Ym=%inf; YM=-%inf;
- for I=1:length(Dt)
- GL=Dividegraphics(Dt(I));
- for J=1:length(GL)
- G=GL(J);
- Tmp=min(G(:,1)); Xm=min(Xm,Tmp);
- Tmp=max(G(:,1)); XM=max(XM,Tmp);
- Tmp=min(G(:,2)); Ym=min(Ym,Tmp);
- Tmp=max(G(:,2)); YM=max(YM,Tmp);
- end;
- end;
- XMIN=Xm; XMAX=XM;
- YMIN=Ym; YMAX=YM;
- end;
- if Nargs==2
- RgX=varargin(1);
- RgY=varargin(2);
- XMIN=RgX(1); XMAX=RgX(2);
- YMIN=RgY(1); YMAX=RgY(2);
- end
- if Nargs==4
- XMIN=varargin(1); XMAX=varargin(2);
- YMIN=varargin(3); YMAX=varargin(4);
- end;
- Out=[XMIN,XMAX,YMIN,YMAX];
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.bin
deleted file mode 100644
index 623920c5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.sci
deleted file mode 100755
index 9c20a13b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sf3data.sci
+++ /dev/null
@@ -1,62 +0,0 @@
-// 08.08.16
-// 08.10.10
-// 13.10.21 ( __ added to varibles )
-
-function PL__=Sf3data(varargin)
- Nargs__=length(varargin);
- FdL__=Fullformfunc(varargin(1));
- F__=Mixop(1,FdL__);
- Xf__=Mixop(2,FdL__);
- Yf__=Mixop(3,FdL__);
- Zf__=Mixop(4,FdL__);
- Urg__=Mixop(5,FdL__);
- Vrg__=Mixop(6,FdL__);
- K__=mtlb_findstr(Urg__,'=');
- U__=part(Urg__,1:K__-1);
- Tmp__=part(Urg__,K__+1:length(Urg__));
- Tmp__=evstr(Tmp__);
- Umin__=Tmp__(1); Umax__=Tmp__(2);
- K__=mtlb_findstr(Vrg__,'=');
- V__=part(Vrg__,1:K__-1);
- Tmp__=part(Vrg__,K__+1:length(Vrg__));
- Tmp__=evstr(Tmp__);
- Vmin__=Tmp__(1); Vmax__=Tmp__(2);
- Ndu__=25 ; Ndv__=25; Np__=[50,50];
- if Nargs__>=3
- Ndu__=varargin(2);
- Ndv__=varargin(3);
- end;
- if Nargs__>=4
- Np__=varargin(4);
- if type(Np__)==1 & length(Np__)==1
- Np__=[Np__,Np__];
- end;
- end;
- Du__=(Umax__-Umin__)/Ndu__;
- Dv__=(Vmax__-Vmin__)/Ndv__;
- PL__ = [];
- for I__=0:Ndu__
- U0__ ='('+string(Umin__+I__*Du__)+')';
- Tmp__=strsubst(Xf__,U__,U0__);
- Tmp1__=strsubst(Tmp__,V__,'t');
- Tmp__=strsubst(Yf__,U__,U0__);
- Tmp2__=strsubst(Tmp__,V__,'t');
- Tmp__=strsubst(Zf__,U__,U0__);
- Tmp3__=strsubst(Tmp__,V__,'t');
- Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']';
- PD__=Spacecurve(Tmp__,'t=[Vmin__,Vmax__]','N='+string(Np__(2)));
- PL__=Mixadd(PL__,PD__);
- end;
- for J__=0:Ndv__
- V0__='('+string(Vmin__+J__*Dv__)+')';
- Tmp__=strsubst(Xf__,V__,V0__);
- Tmp1__=strsubst(Tmp__,U__,'t');
- Tmp__=strsubst(Yf__,V__,V0__);
- Tmp2__=strsubst(Tmp__,U__,'t');
- Tmp__=strsubst(Zf__,V__,V0__);
- Tmp3__=strsubst(Tmp__,U__,'t');
- Tmp__='['+Tmp1__+','+Tmp2__+','+Tmp3__+']';
- PD__=Spacecurve(Tmp__,'t=[Umin__,Umax__]','N='+string(Np__(1)));
- PL__=Mixadd(PL__,PD__);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.bin
deleted file mode 100644
index 183f7fda..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.sci
deleted file mode 100755
index 7a759f69..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdparadata.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 08.09.13
-// 10.02.16 Eps => [Eps, Epsmag]
-
-function Out5=Sfbdparadata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=3
- Eps=varargin(3);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=4
- Eps2=varargin(4);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- IMPLICITDATA=Out3;
- Mixdisp(Mix('ImplicitData obtained ',timer()));
- Out4=Cuspsplitpara(Out3,Fd,Eps(1)); //
- CUSPDATA=Out4;
- CUSPPT=CUSPSPLITPT;
- Mixdisp(Mix('CuspData obtained ',timer()));
- Out5=Borderparadata(Out4,Fd,Np,Eps,Eps2);
- Mixdisp(Mix('BorderData obtained ',timer()));
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.bin
deleted file mode 100644
index 5f77179e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.sci
deleted file mode 100755
index 9833a7f4..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdpersdata.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-
-// 08.09.21
-// 10.02.16 Eps => [Eps, Epsmag]
-// 13.11.02 bug
-
-function Out5=Sfbdpersdata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=[0.05,1]; //
- if Nargs>=3
- Eps=varargin(3);
- end;
- if length(Eps)==1 //
- Eps=[Eps,1]; //
- end; //
- Eps2=0.2;
- if Nargs>=4
- Eps2=varargin(4);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- IMPLICITDATA=Out3;
- Mixdisp(Mix('ImplicitData obtained ',timer()));
- Out4=Cuspsplitpers(Out3,Fd,Eps(1)); // 13.11.02
- CUSPDATA=Out4;
- CUSPPT=CUSPSPLITPT;
- Mixdisp(Mix('CuspData obtained ',timer()));
- Out5=Borderpersdata(Out4,Fd,Np,Eps,Eps2);
- Mixdisp(Mix('BorderData obtained ',timer()));
-endfunction;
-
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.bin
deleted file mode 100644
index 66da5cea..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.sci
deleted file mode 100755
index 082ccec3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawparadata.sci
+++ /dev/null
@@ -1,33 +0,0 @@
-// 08.09.10
-// 08.09.13
-
-function Out5=Sfbdrawparadata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=0.05;
- if Nargs>=3
- Eps=varargin(3);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepara(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- BdyL=Mixop(8,FdL);
- if BdyL~=[]
- Out3=Clipindomain(Out3,BdyL)
- end;
- IMPLICITDATA=Out3;
- Out4=Cuspsplitpara(Out3,Fd,Eps);
- CUSPDATA=Out4;
- CCUSPPT=CUSPSPLITPT;
- Out5=Borderrawdata(Out4,Fd,Np,Eps);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin
deleted file mode 100644
index cd42fdf6..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci
deleted file mode 100755
index cde6870f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfbdrawpersdata.sci
+++ /dev/null
@@ -1,31 +0,0 @@
-// 08.09.21
-
-function Out5=Sfbdrawpersdata(varargin)
- global IMPLICITDATA CUSPDATA CUSPPT CUSPSPLITPT;
- Nargs=length(varargin);
- Fd=varargin(1);
- FdL=Fullformfunc(Fd);
- Np=[50,50];
- if Nargs>=2
- Np=varargin(2);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end;
- Eps=0.05;
- if Nargs>=3
- Eps=varargin(3);
- end;
- Ts=timer();
- [Zval,Xval,Yval]=Evlptablepers(Mix(Fd,Np));
- Out3=Implicitplot(Zval,Xval,Yval);
- BdyL=Mixop(8,FdL);
- if BdyL~=[]
- Out3=Clipindomain(Out3,BdyL)
- end;
- IMPLICITDATA=Out3;
- Out4=Cuspsplitpers(Out3,Fd,Eps);
- CUSPDATA=Out4;
- CCUSPPT=CUSPSPLITPT;
- Out5=Borderrawdata(Out4,Fd,Np,Eps);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.bin
deleted file mode 100644
index c7f1f6f1..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.sci
deleted file mode 100755
index 5a15d61c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutdata.sci
+++ /dev/null
@@ -1,105 +0,0 @@
-// 08.09.09
-// 08.09.19
-// 08.09.20
-// 08.09.24
-// 08.10.09
-// 08.10.10
-// 13.10.21 ( __ added to varibles )
-
-function EkL__=Sfcutdata(varargin)
- Nargs__=length(varargin);
- Fd__=varargin(1);
- CutD__=varargin(2);
- Np__=[50,50];
- if Nargs__>=3
- Tmp__=varargin(3);
- if type(Tmp__)==1 & length(Tmp__)==1
- Np__=[Tmp__,Tmp__];
- end;
- end;
- Tmp__=Mixop(2,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Xname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(3,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Yname__=part(Tmp__,1:K__-1);
- Tmp__=Mixop(1,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- if K__~=[]
- Zname__=part(Tmp__,1:K__-1);
- else
- Tmp__=Mixop(4,Fd__);
- K__=mtlb_findstr(Tmp__,'=');
- Zname__=part(Tmp__,1:K__-1);
- end;
- Fd__L=Fullformfunc(Fd__);
- Xf__=Mixop(2,Fd__L);
- Yf__=Mixop(3,Fd__L);
- Zf__=Mixop(4,Fd__L);
- Tmp__=Mixop(5,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Uname__=part(Tmp__,1:K__-1);
- Urg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Tmp__=Mixop(6,Fd__L);
- K__=mtlb_findstr(Tmp__,'=');
- Vname__=part(Tmp__,1:K__-1);
- Vrg__=evstr(part(Tmp__,K__+1:length(Tmp__)));
- Umin__=Urg__(1); Umax=Urg__(2);
- Vmin__=Vrg__(1); Vmax=Vrg__(2);
- if Mixtype(CutD__)~=1
- V1__=Mixop(1,CutD__);
- Tmp__=Mixop(2,CutD__);
- if length(Tmp__)>1
- D__=V1__(1)*Tmp__(1)+V1__(2)*Tmp__(2)+V1__(3)*Tmp__(3);
- else
- D__=Tmp__;
- end;
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'-';
- Eq__=Tmp__+string(D__);
- elseif type(CutD__)==1
- V1__=CutD__(1:3);
- D__=CutD__(4);
- Tmp__=string(V1__(1))+'*'+Xname__+'+';
- Tmp__=Tmp__+string(V1__(2))+'*'+Yname__+'+';
- Tmp__=Tmp__+string(V1__(3))+'*'+Zname__+'+';
- Eq__=Tmp__+string(D__);
- else
- K__=mtlb_findstr(CutD__,'=');
- if K__>0
- Tmp__1=part(CutD__,1:K__-1);
- Tmp__2=part(CutD__,K__+1:length(CutD__));
- Eq__=Tmp__1+'-('+Tmp__2+')';
- else
- Eq__=CutD__;
- end;
- end;
- Tmp__=strsubst(Eq__,Xname__,'('+Xf__+')');
- Tmp__=strsubst(Tmp__,Yname__,'('+Yf__+')');
- Uveq__=strsubst(Tmp__,Zname__,'('+Zf__+')');
- Tmp__1=Mixop(5,Fd__L);
- Tmp__2=Mixop(6,Fd__L);
- CutuvL__=Implicitplot(Uveq__,Tmp__1,Tmp__2,Np__);
- EkL__=[];
- for I__=1:Mixlength(CutuvL__)
- Out__1=Mixop(I__,CutuvL__);
- Out__2=[];
- for J__=1:size(Out__1,1)
- Tmp__1=Out__1(J__,1);
- Tmp__2=Out__1(J__,2);
- Tmp__=strsubst(Xf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Xv__=evstr(Tmp__);
- Tmp__=strsubst(Yf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Yv__=evstr(Tmp__);
- Tmp__=strsubst(Zf__,Uname__,'('+string(Tmp__1)+')');
- Tmp__=strsubst(Tmp__,Vname__,'('+string(Tmp__2)+')');
- Zv__=evstr(Tmp__);
- Out__2=[Out__2,[Xv__,Yv__,Zv__]];
- end;
- Tmp__=Spaceline(Out__2);
- EkL__=Mixadd(EkL__,Tmp__);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.bin
deleted file mode 100644
index b6341637..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.sci
deleted file mode 100755
index 0e4c6a5b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffparadata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.1
-// 10.02.17
-
-function Out=Sfcutoffparadata(varargin)
- Ms=list('hidden','para');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin
deleted file mode 100644
index 636f24b3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci
deleted file mode 100755
index c10cdb8d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffpersdata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.21
-// 10.02.17
-
-function Out=Sfcutoffpersdata(varargin)
- Ms=list('hidden','pers');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin
deleted file mode 100644
index 2b4fd676..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci
deleted file mode 100755
index 546f66d8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawparadata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.19
-// 10.02.17
-
-function Out=Sfcutoffrawparadata(varargin)
- Ms=list('raw','para');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin
deleted file mode 100644
index 08ac4249..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci
deleted file mode 100755
index e5a387f5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfcutoffrawpersdata.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 08.09.21
-// 10.02.17
-
-function Out=Sfcutoffrawpersdata(varargin)
- Ms=list('raw','pers');
- for I=1:length(varargin)
- Tmp=varargin(I);
- Ms=Mixjoin(Ms,list(Tmp));
- end;
- Out=Makesfcutoffdata(Ms);
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.bin
deleted file mode 100644
index f1b9d960..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.sci
deleted file mode 100755
index 5aa4e5e5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfparadata.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 08.08.16
-
-function Out=Sfparadata(varargin)
- Nargs=length(varargin);
- Fd=varargin(1);
- Ndu=25 ; Ndv=25; Np=[50,50];
- if Nargs>=3
- Ndu=varargin(2);
- Ndv=varargin(3);
- end;
- if Nargs>=4
- Np=varargin(4);
- end;
- Tmp=Sf3data(Fd,Ndu,Ndv,Np);
- Out=Projpara(Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.bin
deleted file mode 100644
index bea54bf3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.sci
deleted file mode 100755
index ecc63e41..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sfpersdata.sci
+++ /dev/null
@@ -1,17 +0,0 @@
-// 08.08.15
-
-function Out=Sfpersdata(varargin)
- Nargs=length(varargin);
- Fd=varargin(1);
- Ndu=25 ; Ndv=25; Np=[50,50];
- if Nargs>=3
- Ndu=varargin(2);
- Ndv=varargin(3);
- end;
- if Nargs>=4
- Np=varargin(4);
- end;
- Tmp=Sf3data(Fd,Ndu,Ndv,Np);
- Out=Projpers(Tmp);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.bin
deleted file mode 100644
index 48ba5b55..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.sci
deleted file mode 100755
index ec4fa716..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Shade.sci
+++ /dev/null
@@ -1,93 +0,0 @@
-//
-// 08.05.22
-// 09.12.25
-// 17.01.09 (available colorname or colorcode as 2nd arg)
-
-function Shade(varargin)
- global Wfile FID MilliIn;
- Nargs=length(varargin);
- Iroflg=0;
- Kosa=1;
- if Nargs>1
- Iro=varargin(Nargs);
- if type(Iro)==10
- Iroflg=1;
- if length(strchr(Iro,"{"))>0
- Str="{\color"+Iro;
- else
- Str="{\color{"+Iro+"}";
- end;
- else
- if length(Iro)==1
- Kosa=Iro;
- else
- Iroflg=1;
- if length(Iro)==4
- Str='{\color[cmyk]{';
- else
- if length(Iro)==3
- Str='{\color[rgb]{';
- end;
- end;
- for J=1:length(Iro)
- Str=Str+string(Iro(J));
- if J<length(Iro)
- Str=Str+',';
- end
- end
- Str=Str+'}';
- end;
- end;
- if Iroflg==1
- if Wfile=='default'
- mprintf('%s\n',Str+'%');
- else
- mfprintf(FID,'%s\n',Str+'%');
- end;
- end;
- end;
- Tmp=varargin(1);
- Data=Kyoukai(Tmp);
- for I=1:length(Data)
- PL=Op(I,Data);
- Mojisu=0;
- for J=1:size(PL,1)
- P=Doscaling(PL(J,:));
- X=string(round(MilliIn*P(1)));
- Y=string(-round(MilliIn*P(2)));
- Str='\special{pa '+X+' '+Y+'}';
- if Wfile=='default'
- mprintf('%s',Str);
- else
- mfprintf(FID,'%s',Str);
- end
- Mojisu=Mojisu+length(Str);
- if Mojisu>80
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- Mojisu=0;
- end
- end
- Str1='\special{sh '+string(Kosa)+'}';
- Str2='\special{ip}%';
- if Wfile=='default'
- mprintf('%s',Str1);
- mprintf('%s\n',Str2);
- else
- mfprintf(FID,'%s',Str1);
- mfprintf(FID,'%s\n',Str2);
- end
- end
- if Iroflg==1
- Str='}%';
- Fmt='%s\n';
- if Wfile=='default'
- mprintf(Fmt,Str);
- else
- mfprintf(FID,Fmt,Str);
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.bin
deleted file mode 100644
index e93fdf6e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.sci
deleted file mode 100755
index 4eec31cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeleton2data.sci
+++ /dev/null
@@ -1,71 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 09.06.13
-
-function Out=Skeleton2data(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- Tmp=varargin(1);
- if Mixtype(Tmp)==1
- ObjL=MixS(Tmp);
- elseif Mixtype(Tmp)==2
- ObjL=Tmp;
- else
- ObjL=[];
- for I=1:Mixlength(Tmp)
- Tmp1=Mixop(I,Tmp);
- if Mixtype(Tmp1)==1
- ObjL=Mixadd(ObjL,Tmp1);
- else
- ObjL=Mixjoin(ObjL,Tmp1);
- end;
- end;
- end;
- Tmp=varargin(2);
- if Mixtype(Tmp)==1
- PltL=MixS(Tmp);
- elseif Mixtype(Tmp)==2
- PltL=Tmp
- else
- PltL=[];
- for I=1:Mixlength(Tmp)
- Tmp1=Mixop(I,Tmp);
- if Mixtype(Tmp1)==1
- PltL=Mixadd(PltL,Tmp1);
- else
- PltL=Mixjoin(PltL,Tmp1);
- end;
- end;
- end;
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.01;
- if Nargs>3
- Eps2=varargin(4);
- end;
- Obj2L=[];
- for I=1:Mixlength(ObjL)
- Curve=Mixop(I,ObjL);
- Obj2=[];
- for J=1:size(Curve,1)
- P=Curve(J,:);
- Obj2=[Obj2;P,-1];
- end;
- Obj2L=Mixadd(Obj2L,Obj2);
- end;
- Plt2L=[]
- for I=1:Mixlength(PltL)
- Curve=Mixop(I,PltL);
- Plt2=[];
- for J=1:size(Curve,1)
- P=Curve(J,:);
- Plt2=[Plt2;P,0];
- end;
- Plt2L=Mixadd(Plt2L,Plt2);
- end;
- Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.bin
deleted file mode 100644
index 1d3bd14f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.sci
deleted file mode 100755
index 5914d47a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpara3data.sci
+++ /dev/null
@@ -1,48 +0,0 @@
-// 09.09.25
-// 11.12.12
-// 15.06.14
-// 15.10.19
-
-function Out=Skeletonpara3data(varargin)
- global MilliIn;
- Eps=10^(-4); // 15.06.14
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Plt2L=list();
- for I=1:Mixlength(Plt3L)
- Plt2L($+1)=ProjcoordCurve(Plt3L(I));
- end;
- Out=list();
- for I=1:length(ObjL)
- Obj3=ObjL(I);
- Tmp=ProjcoordCurve(Obj3);
- Data=Makeskeletondata(Mix(Tmp),Plt2L,R,Eps2);
- for J=1:length(Data)
- Gd=Data(J);
- if size(Gd,1)==1 // 15.10.19
- continue;
- end;
- if norm(Ptcrv(1,Gd)-Ptcrv(2,Gd))<Eps // 15.06.14
- continue
- end;
- PtD=[];
- for J=1:size(Gd,1)
- Tmp=Gd(J,:);
- Tmp1=Invparapt(Tmp,Obj3);
- Tmp1=Mixop(1,Tmp1);
- PtD=[PtD;Tmp1];
- end;
- Out($+1)=PtD;
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.bin
deleted file mode 100644
index f0879401..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.sci
deleted file mode 100755
index 1270f789..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonparadata.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.07.13
-// 08.08.08
-// 08.10.16
-// 11.12.12 (Flattenlist)
-
-function Out=Skeletonparadata(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Obj2L=list();
- for I=1:length(ObjL)
- Obj2L($+1)=ProjcoordCurve(ObjL(I));
- end;
- Plt2L=list();
- for I=1:length(Plt3L)
- Plt2L($+1)=ProjcoordCurve(Plt3L(I));
- end;
- Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.bin
deleted file mode 100644
index d382a6b0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.sci
deleted file mode 100755
index 57dde938..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpers3data.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 09.09.25
-// 11.12.12
-
-function Out=Skeletonpers3data(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Plt2L=[];
- for I=1:Mixlength(Plt3L)
- Tmp=CameracoordCurve(Mixop(I,Plt3L));
- Plt2L=Mixadd(Plt2L,Tmp);
- end;
- Out=list();
- for I=1:length(ObjL)
- Obj3=ObjL(I);
- Tmp=CameracoordCurve(Obj3);
- Data=Makeskeletonpersdata(Mix(Tmp),Plt2L,R,Eps2);
- for J=1:length(Data)
- Gd=Data(J);
- PtD=[];
- for J=1:size(Gd,1)
- Tmp=Gd(J,:);
- Tmp1=Invperspt(Tmp,Obj3);
- Tmp1=Mixop(1,Tmp1);
- PtD=[PtD;Tmp1];
- end;
- Out($+1)=PtD;
- end;
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.bin
deleted file mode 100644
index 03417429..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.sci
deleted file mode 100755
index c91e73cf..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Skeletonpersdata.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.08.14
-// 08.10.16
-// 11.12.12
-
-function Out=Skeletonpersdata(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Obj2L=list();
- for I=1:length(ObjL)
- Obj2L($+1)=CameracoordCurve(ObjL(I));
- end;
- Plt2L=list();
- for I=1:length(Plt3L)
- Plt2L($+1)=CameracoordCurve(Plt3L(I));
- end;
- Out=Makeskeletonpersdata(Obj2L,Plt2L,R,Eps2);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.bin
deleted file mode 100644
index bacaa702..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.sci
deleted file mode 100755
index 077a88cb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spacecurve.sci
+++ /dev/null
@@ -1,83 +0,0 @@
-// 08.07.11
-// 09.05.27
-// 09.06.02
-// 09.12.31 (gsort)
-// 13.10.21 ( __ added to varibles )
-// 16.08.20 (N changed to devided number )
-// 16.12.13 ( in case of T1=T2)
-
-function P__=Spacecurve(varargin)
- Eps__=10^(-5);
- Nargs__=length(varargin);
- Fnstr__=varargin(1);
- Rgstr__=varargin(2);
- Range__=[0,2*%pi];
- N=50; // Numpoints
- E=[]; // Exclusions
- D=%inf; // Discont (Changed)
- for I__=3:Nargs__
- Tmp__=varargin(I__);
- K__=mtlb_findstr(Tmp__,'=');
- Tmp1__=strsplit(Tmp__,[K__-1,K__]);
- Tmp2__=ascii(Tmp1__(1,1));
- Lhs__=char(Tmp2__(1));
- Str__=Lhs__+'='+Tmp1__(3,1);
- execstr(Str__);
- end;
- K__=mtlb_findstr(Rgstr__,'=');
- if K__~=[]
- Tmp__=strsplit(Rgstr__,[K__-1,K__]);
- Vname__=Tmp__(1,1);
- Rng__=evstr(Tmp__(3,1));
- else
- Vname__=Rgstr__;
- Rng__=[XMIN,XMAX];
- end
- T1__=Rng__(1); T2__=Rng__(2);
- Dt__=(T2__-T1__)/N; // 16.08.20
- Str__=mtlb_strrep(Fnstr__,Vname__,'t__');
- if abs(Dt__)<Eps__ then // 16.12.13
- t__=T1__;
- P__=evstr(Str__);
- return;
- end;
- P__=[];
- E=gsort(E);
- E=E(length(E):-1:1);
- E=[E,%inf];
- Tmp__=gsort(E);
- E=Tmp__(length(Tmp__):-1:1);
- Ke__=1;
- for t__=T1__:Dt__:T2__
- Pa__=[];
- if t__-E(Ke__)<-Eps__
- Pa__=evstr(Str__);
- end
- if abs(t__-E(Ke__))<=Eps__
- if P__~=[] & P__(size(P__,1),:)~=[%inf,%inf,%inf]
- Pa__=[%inf,%inf,%inf];
- end
- end
- if t__-E(Ke__)>Eps__
- Pa__=evstr(Str__);
- Ke__=Ke__+1;
- end
- if Pa__~=[]
- if Pa__(1)==%inf
- P__=[P__;Pa__]
- elseif P__==[]
- P__=[Pa__];
- else
- Tmp__=P__(size(P__,1),:);
- if Tmp__(1)==%inf
- P__=[P__;Pa__];
- elseif norm(Tmp__-Pa__)<D
- P__=[P__;Pa__];
- else
- P__=[P__;%inf,%inf,%inf;Pa__];
- end
- end
- end
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.bin
deleted file mode 100644
index b5252573..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.sci
deleted file mode 100755
index 9fe33c06..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Spaceline.sci
+++ /dev/null
@@ -1,27 +0,0 @@
-// 08.07.11
-
-function Z=Spaceline(varargin)
- Z=[];
- for I=1:length(varargin)
- Data=varargin(I);
- if Mixtype(Data)==1
- for J=1:3:size(Data,2)
- Tmp=Data(J:J+2);
- Z=[Z;Tmp];
- end;
- continue;
- end;
- if Mixtype(Data)==3
- Tmp=[];
- for I=1:Mixlength(Data);
- Tmp=Mixjoin(Tmp,Mixop(I,Data));
- end;
- Data=Tmp;
- end;
- for J=1:Mixlength(Data)
- Tmp=Mixop(J,Data);
- Z=[Z;Tmp];
- end;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.bin
deleted file mode 100644
index c9477a3a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.sci
deleted file mode 100755
index a4de85ea..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Splinedata.sci
+++ /dev/null
@@ -1,108 +0,0 @@
-// 08.05.28
-// 08.05.29
-// 09.06.13
-// 10.04.24
-// 10.04.25
-// 11.01.07 ( major changed )
-
-function OutL=Splinedata(varargin)
- global SplinePt;
- Nargs=length(varargin);
- Eps=10^(-3);
- PL=varargin(1);
- if type(PL)==10 // 100425
- Fname=PL;
- PL=Readtextdata(Fname);
- else
- if size(PL,1)==1
- PL=matrix(PL,2,length(PL)/2);
- PL=PL';
- end;
- end;
- if size(PL,2)==3
- Flg3=1;
- else
- Flg3=0;
- end;
- PLL=Dividegraphics(PL);
- N=50;
- C=[];
- for I=2:Nargs
- Tmp=varargin(I);
- if type(Tmp)~=10 continue; end
- if mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- else
- Tmp1=Strop(1,Tmp);
- if Tmp1=='C' | Tmp1=='c'
- C=1:length(PLL);
- end;
- end;
- end;
- Cflg=zeros(1,length(PLL));
- for J=1:length(C)
- K=C(J);
- Cflg(K)=1;
- end;
- if length(N)>1
- if type(Nj)==1
- Nj=N;
- else
- Nj=[];
- for J=1:length(N)
- Nj(J)=N(J);
- end;
- end;
- else
- Tmp1=[];
- for J=1:length(PLL)
- Tmp1(J)=size(PLL(J),1);
- end;
- MxP=max(Tmp1);
- Nj=[];
- for J=1:length(PLL)
- Tmp=size(PLL(J),1);
- Tmp1=round(N/MxP*(Tmp-1));
- Nj(J)=Tmp1;
- end;
- end;
- OutL=list();
- for J=1:length(PLL) //
- PL=PLL(J);
- if Cflg(J)==1
- if norm(PL(1,:)-PL(size(PL,1),:))>Eps
- PL=[PL;PL(1,:)];
- Nj(J)=round(N/MxP*size(PL,1));
- else
- PL(size(PL,1),:)=PL(1,:);
- end
- end;
- SplinePt=PL;
- Tn=1:size(PL,1);
- Xn=PL(:,1)';
- Yn=PL(:,2)';
- if Flg3==1 Zn=PL(:,3)';end;
- if Cflg(J)==0
- Dxn=splin(Tn,Xn);
- Dyn=splin(Tn,Yn);
- if Flg3==1 Dzn=splin(Tn,Zn); end;
- else
- Dxn=splin(Tn,Xn,'periodic');
- Dyn=splin(Tn,Yn,'periodic');
- if Flg3==1 Dzn=splin(Tn,Zn,'periodic'); end;
- end
- T=linspace(1,size(PL,1),Nj(J));
- X=interp(T,Tn,Xn,Dxn);
- Y=interp(T,Tn,Yn,Dyn);
- if Flg3==1 Z=interp(T,Tn,Zn,Dzn); end;
- if Flg3==1
- Out=[X',Y',Z'];
- else
- Out=[X',Y'];
- end;
- OutL($+1)=Out;
- end;
- if length(OutL)==1
- OutL=OutL(1);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.bin
deleted file mode 100644
index e8876298..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.sci
deleted file mode 100755
index 8f4da94d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Strop.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function C=Strop(Num,Str)
- N=length(Num);
- L=ascii(Str);
- C='';
- for I=1:N
- K=Num(I);
- Tmp=char(L(K));
- C=C+Tmp;
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.bin
deleted file mode 100644
index 5f1b02bc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.sci
deleted file mode 100755
index 785b605c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Subs.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-//
-// 08.06.04
-
-function V=Subs(SbstrL,StrF)
- Str=StrF;
- if type(StrF)==2
- Str=pol2str(StrF);
- end
- V=StrF;
- for N=1:size(SbstrL,2)
- Sbstr=SbstrL(1,N);
- I=mtlb_findstr(Sbstr,'=');
- Tmp=strsplit(Sbstr,I);
- SbA=Tmp(1);
- SbA=Op(1:length(SbA)-1,SbA);
- SbB=Tmp(2);
- V=strsubst(V,SbA,SbB);
- end
- V=evstr(V);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.bin
deleted file mode 100644
index cd35f9cc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.sci
deleted file mode 100755
index 55fdfd0f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Sumfun.sci
+++ /dev/null
@@ -1,65 +0,0 @@
-// 08.05.30
-// 08.05.31
-// 08.06.03
-// 13.10.21 (__ added to variables )
-
-function PL__=Sumfun(varargin)
- global XMIN XMAX YMIN YMAX
- Nargs__=length(varargin);
- Const__=0;
- Addstr__='A__=0';
- J__=1;
- Tmp__=varargin(1);
- if type(Tmp__)==1
- Const__=Tmp__;
- J__=J__+1;
- end
- if type(Tmp__)==10
- Tmp1__=Strop(length(Tmp__),Tmp__);
- if Tmp1__=='+'
- Addstr__='A__='+Strop(1:length(Tmp__)-1,Tmp__);
- J__=J__+1
- end
- end
- Fnstr__=varargin(J__);
- Krange__=varargin(J__+1);
- Xrange__=varargin(J__+2);
- N=50;
- for I__=J__+3:Nargs__
- Tmp__=varargin(I__);
- execstr(Tmp__);
- end
- Tmp__=mtlb_findstr(Krange__,'=');
- Kname__=Strop(1:Tmp__-1,Krange__);
- Tmp1__=Strop(Tmp__+1:length(Krange__),Krange__);
- Tmp1__='Krg__='+Tmp1__;
- execstr(Tmp1__);
- Tmp__=mtlb_findstr(Xrange__,'=');
- if Tmp__==[]
- Xname__=Xrange__;
- Xrg__=[XMIN,XMAX];
- else
- Xname__=Strop(1:Tmp__-1,Xrange__);
- Tmp1__=Strop(Tmp__+1:length(Xrange__),Xrange__);
- Tmp1__='Xrg__='+Tmp1__;
- execstr(Tmp1__);
- end
- Dx__=(Xrg__(2)-Xrg__(1))/N;
- PL__=[];
- I__=0;
- while I__<=N
- Tmp__=Xname__+'=Xrg__(1)+I__*Dx__';
- execstr(Tmp__);
- J__=Krg__(1);
- execstr(Addstr__);
- Y__=Const__+A__;
- while J__<=Krg__(length(Krg__))
- Tmp__=Kname__+'=J__';
- execstr(Tmp__);
- execstr('Y__=Y__+'+Fnstr__);
- J__=J__+1;
- end
- PL__=[PL__;Xrg__(1)+I__*Dx__,Y__];
- I__=I__+1;
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.bin
deleted file mode 100644
index 7abbf37d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci
deleted file mode 100644
index 0d649872..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symb3data.sci
+++ /dev/null
@@ -1,30 +0,0 @@
-// s : 2014.08.25
-
-function Out=Symb3data(Moji,Size,Kaiten,NV,Pos)
- if type(Moji)==10 then
- Tmp=Symbdata(Moji);
- GY1=Tmp(2)
- else
- GY1=Moji
- end
- GY1=Scaledata(GY1,Size,Size);
- GY1=Rotatedata(GY1,Kaiten*%pi/180);
- A=NV(1); B=NV(2); C=NV(3);
- if A^2+B^2==0 then
- E1=[1,0,0];
- E2=[0,1,0];
- else
- E1=[B,-A,0];
- E2=[-A*C,-B*C,A^2+B^2];
- D=det([E1;E2;NV]);
- if D<0 then
- E1=-E1
- end
- E1=E1/norm(E1);
- E2=E2/norm(E2);
- end
- deff("Out=Em(X,Y)","Out=[E1(1)*X+E2(1)*Y,E1(2)*X+E2(2)*Y,E1(3)*X+E2(3)*Y]");
- GY1=Embed(GY1,Em);
- GY1=Translate3data(GY1,Pos);
- Out=Flattenlist(GY1);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.bin
deleted file mode 100644
index ebda20ac..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.sci
deleted file mode 100644
index d63a3470..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Symbdata.sci
+++ /dev/null
@@ -1,67 +0,0 @@
-// s : 2014.08.25
-// 14.09.07
-
-function Out=Symbdata(Moji)
- ML=list(); Sp=[]; CC=[];
- if Moji=="x" then
- M1=[-0.042,0.035;-0.027,0.045;-0.01,0.045;0.004,0.03;0.00,0.00;...
- -0.004,-0.03;0.01,-0.045;0.027,-0.045;0.042,-0.035];
- M2=[0.055,0.035;0.043,0.045;0.027,0.045;0.01,0.03;0.00,0.00;...
- -0.01,-0.03;-0.027,-0.045;-0.043,-0.045;-0.055,-0.035];
- ML=list(M1,M2);
- Sp=[100,100];
- CC=[0,0];
- end;
- if Moji=="y" then
- M1=[-0.06,0.06;...
- -0.045,0.080;...
- -0.03,0.080;...
- -0.022,0.065;...
- -0.032,0.035;...
- -0.035,-0.01;...
- 0.007,-0.008;...
- 0.037,0.04;...
- 0.05,0.09];
- M2=[0.05,0.09;...
- 0.037,0.04;...
- 0.025,-0.00;...
- 0.015,-0.035;...
- -0.000,-0.055;...
- -0.025,-0.062;...
- -0.05,-0.045];
- ML=list(M1,M2);
- Sp=[100,100];
- CC=[0,0];
- end
- if Moji=="z" then
- M1=[-0.035,0.035;-0.023,0.045;-0.01,0.045;...
- 0.01,0.04;0.035,0.04;0.042,0.045];
- M2=[0.042,0.045;0.00,0.00;-0.042,-0.045];
- M3=[-0.042,-0.045;-0.035,-0.04;-0.01,-0.04;...
- 0.01,-0.045;0.023,-0.045;0.035,-0.035];
- ML=list(M1,M2,M3);
- Sp=[100,0,100];
- CC=[0,0,0];
- end
- Out1=list()
- Out2=list()
- for J=1:length(ML)
- M=ML(J);
- N=Sp(J);
- for K=1:size(M,1)
- P=M(K,:)
- Out1($+1)=P
- end
- if N>0 then
- if CC(J)==0 then
- S=Splinedata(M,"N="+string(N))
- else
- S=Splinedata(M,"N="+string(N),"C")
- end
- else
- S=M
- end;
- Out2($+1)=S
- end
- Out=list(Out1,Out2)
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.bin
deleted file mode 100644
index 57730f7f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.sci
deleted file mode 100755
index 621f6256..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tabledata.sci
+++ /dev/null
@@ -1,130 +0,0 @@
-// 09.11.26
-// 09.12.06
-// 09.12.25
-// 10.01.12
-// 10.01.13
-// 10.03.28
-// 10.03.30
-// 13.05.03 Domain can be omitted
-
-function Out=Tabledata(varargin)
-// 2013.05.01 Domain is optional.
- Eps=0.001;
- Tmp=varargin(1); // 130502 from
- if type(Tmp)==1
- Domain=varargin(1);
- VL=varargin(2);
- HL=varargin(3);
- else
- Domain=[-1,-1];
- VL=varargin(1);
- HL=varargin(2);
- end; // 130502 upto
- Hsize=Domain(1);
- SvL=list(0);
- S=0;
- for I=1:length(VL)
- Tmp=VL(I);
- S=S+Tmp(1);
- Tmp(1)=S;
- SvL($+1)=Tmp;
- end;
- if Hsize>S
- SvL($+1)=Hsize;
- end;
- Hsize=Op(1,SvL(length(SvL)));
- Vsize=Domain(2);
- ShL=list(0);
- S=0;
- for I=1:length(HL)
- Tmp=HL(I);
- S=S+Tmp(1);
- Tmp(1)=S;
- ShL($+1)=Tmp;
- end;
- if Vsize>S
- ShL($+1)=Vsize;
- end;
- Vsize=Op(1,ShL(length(ShL)));
- Marw=0; Mare=0; Mars=0; Marn=0;
- if length(Domain)>2
- Marw=Domain(3);
- Mare=Domain(4);
- end;
- if length(Domain)>4
- Marn=Domain(5);
- Mars=Domain(6);
- end;
- Setwindow([-Marw,Hsize+Mare],[-Mars,Vsize+Marn]);
- Tmp=Framedata([Eps,Hsize-Eps],[Eps,Vsize-Eps]);
- Gdata=list(Tmp);
- Tmp=-Marw;
- Hdata=list(Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]));
- for I=1:length(SvL) // 10.03.30
- Data=SvL(I);
- X=Data(1);
- if length(Data)==1
- Y1=0;
- Y2=Vsize;
- G=Listplot([X,Y1],[X,Y2]);
- else
- G=[];
- for J=2:2:length(Data)
- Y1=Vsize-Op(1,ShL(Data(J))); // 10.03.30
- Y2=Vsize-Op(1,ShL(Data(J+1)));
- Tmp=Listplot([[X,Y1],[X,Y2]]);
- G=[G;%inf,%inf;Tmp];
- end;
- G=G(2:size(G,1),:);
- end;
- Hdata($+1)=G;
- end;
- Tmp=Hsize+Mare;
- Tmp1=Listplot([[Tmp,-Mars],[Tmp,Vsize+Marn]]);
- Hdata($+1)=Tmp1;
- Tmp=Vsize+Marn;
- Vdata=list(Listplot([[-Marw,Tmp],[Hsize+Mare,Tmp]]));
- for I=1:length(ShL)
- Data=ShL(I);
- Y=Vsize-Data(1);
- if length(Data)==1
- X1=0;
- X2=Hsize;
- G=Listplot([X1,Y],[X2,Y]);
- else
- G=[];
- for J=2:2:length(Data)
- X1=Op(1,SvL(Data(J))); // 10.03.30
- X2=Op(1,SvL(Data(J+1)));
- Tmp=Listplot([X1,Y],[X2,Y]);
- G=[G;%inf,%inf;Tmp];
- end;
- G=G(2:size(G,1),:);
- end;
- Vdata($+1)=G;
- end;
- Tmp=Listplot([[-Marw,-Mars],[Hsize+Mare,-Mars]]);
- Vdata($+1)=Tmp;
- Tmp1=Mixsub(3:(length(Hdata)-2),Hdata);
- Tmp2=Mixsub(3:(length(Vdata)-2),Vdata);
- Gdata=Mixjoin(Gdata,Tmp1,Tmp2);
- Hind=2:(1+length(Tmp1));
- Vind=(2+length(Tmp1)):(1+length(Tmp1)+length(Tmp2));
- G=Gdata(1);
- P1=Ptsw(G); P2=Ptnw(G);
- Q1=Ptse(G); Q2=Ptne(G);
- Tmp1=list(Listplot([P1,P2]),Listplot([Q1,Q2]));
- P1=Ptnw(G); P2=Ptne(G);
- Q1=Ptsw(G); Q2=Ptse(G);
- Tmp2=list(Listplot([P1,P2]),Listplot([Q1,Q2]));
- Tmp3=Framedata();
- Out=list(Gdata,Hind,Vind,Tmp1,Tmp2,Tmp3);
-endfunction;
-
-function Out=Dividetable(Tb)
- G=Tb(1);
- Gw=G(1);
- Gt=Mixsub(Tb(2),G);
- Gy=Mixsub(Tb(3),G);
- Out=list(Gw,Gt,Gy)
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.bin
deleted file mode 100644
index c702d4e8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci
deleted file mode 100755
index 9b848315..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texcom.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-//
-// 09,12.05
-// 09.12.06
-// 09.12.07
-// 09.12.20
-
-function Texcom(Meirei)
- global Wfile FID;
- if Meirei=='\thinlines'
- Setpen(1);
- return
- end
- if Meirei=='\thicklines'
- Setpen(2);
- return
- end
- if Meirei=='\Thicklines'
- Setpen(3);
- return
- end;
-
- if Meirei=='' // 09.12.07
- Tmp=[];
- else
- Tmp=mtlb_findstr(Meirei,'newline');
- end;
- if length(Tmp)>0
- if Wfile=='default'
- mprintf('%s\n','');
- else
- mfprintf(FID,'%s\n','');
- end;
- return;
- end;
- if Wfile=='default'
- mprintf('%s%s\n',Meirei,'%');
- else
- mfprintf(FID,'%s%s\n',Meirei,'%');
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.bin
deleted file mode 100644
index 3f2db49a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.sci
deleted file mode 100644
index 2a8b08ca..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texctr.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-//
-// 2010.05.15
-
-function Out=Texctr(N)
- if type(N)==1
- Alpha='abcdefghijklmnopqrstuvwxyz';
- Out='ketpicctr'+part(Alpha,N);
- else
- if part(N,1)=='\'
- Out=part(N,2:length(N));
- else
- Out=N;
- end;
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.bin
deleted file mode 100644
index 4bd0517d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.sci
deleted file mode 100644
index 8ef93556..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texelse.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 10.04.16
-// 10.04.18
-
-function Texelse()
- Texcom('');
- Texcom('\else');
-endfunction; \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.bin
deleted file mode 100644
index 322cde18..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.sci
deleted file mode 100644
index a3139873..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texend.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-// 01.10.21
-
-function Texend()
- Closephr();
-endfunction \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.bin
deleted file mode 100644
index ea787159..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.sci
deleted file mode 100644
index ecb7b788..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendfor.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// 10.04.16
-
-function Texendfor(I)
- global TEXFORLEVEL TEXFORLAST
- Last=TEXFORLAST(TEXFORLEVEL);
- Texcom('');
- Texcom('\ifnum'+Texthectr(I)+'<'+Last);
- Texcom('\repeat');
- Texcom('}');
- TEXFORLEVEL=TEXFORLEVEL-1;
- TEXFORLAST=Mixsub(1:(length(TEXFORLAST)-1),TEXFORLAST);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.bin
deleted file mode 100644
index 43440fc9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.sci
deleted file mode 100644
index 97d32d85..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texendif.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 10.04.16
-// 10.04.18
-
-function Texendif()
- Texcom(''); //
- Texcom('\fi');
- Texcom('}');
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.bin
deleted file mode 100644
index 69956280..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.sci
deleted file mode 100644
index 0c239842..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texfor.sci
+++ /dev/null
@@ -1,15 +0,0 @@
-// 10.04.16
-// 10.05.12
-// 10.10.20 ( available for numeric )
-
-function Texfor(I,First,Last)
- global TEXFORLEVEL TEXFORLAST
- TEXFORLEVEL=TEXFORLEVEL+1;
- Texsetctr(I,'0');
- Texsetctr(I,string(First)+'-1');
- Texcom('');
- Texcom('{');
- Texcom('\loop');
- Texsetctr(I,'+1');
- TEXFORLAST($+1)=string(Last);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.bin
deleted file mode 100644
index 66fe8e3c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.sci
deleted file mode 100644
index f661c649..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texforinit.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 10.04.18
-
-function Texforinit()
- global TEXFORLEVEL TEXFORLAST
- TEXFORLEVEL=0;
- TEXFORLAST=list();
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.bin
deleted file mode 100644
index 52222c34..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.sci
deleted file mode 100644
index 8cbae5dc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.sci
+++ /dev/null
@@ -1,19 +0,0 @@
-// 10.04.16
-// 10.04.18
-// 10.05.03
-
-function Texif(varargin)
- Condstr=varargin(1);
- Tp=0;
- if length(varargin)>1
- Tp=varargin(2);
- end;
- Texcom('');
- Texcom('{');
- if Tp==0
- Texcom('\ifnum ');
- else
- Texcom('\ifdim ');
- end;
- Texcom(Condstr+' ');
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.bin
deleted file mode 100644
index d95b41da..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.sci
deleted file mode 100755
index f83cc8c8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texletter.sci
+++ /dev/null
@@ -1,44 +0,0 @@
-// 10.01.07
-
-function Texletter(varargin)
- global Wfile FID MEMORI;
- Nargs=length(varargin);
- for I=1:3:Nargs
- P=varargin(I);
- X=P(1);
- if type(X)==1
- X=string(X);
- end;
- Y=P(2);
- if type(Y)==1
- Y=string(Y);
- end;
- Houkou=varargin(I+1);
- Mojiretu=varargin(I+2);
- Hset=Houkou;
- Vhoko='c';
- if mtlb_findstr(Hset,'n')~=[]
- Vhoko='n';
- end
- if mtlb_findstr(Hset,'s')~=[]
- Vhoko='s';
- end
- Hhoko='c';
- if mtlb_findstr(Hset,'e')~=[]
- Hhoko='e';
- end
- if mtlb_findstr(Hset,'w')~=[]
- Hhoko='w';
- end
- Hoko=Vhoko+Hhoko;
- CalcWidth(Hoko,Mojiretu);
- CalcHeight(Hoko,Mojiretu);
- Tmp='\put('+X+','+Y+'){\hspace*{\Width}';
- Str=Tmp+'\raisebox{\Height}{'+Mojiretu+'}}%';
- if Wfile=='default'
- mprintf('%s\n',Str);
- else
- mfprintf(FID,'%s\n',Str);
- end
- end
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.bin
deleted file mode 100644
index eec32b1e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.sci
deleted file mode 100644
index b3b9a417..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewcmd.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 10.01.21
-
-function Texnewcmd(varargin)
- Nargs=length(varargin);
- Str=varargin(1);
- S='\newcommand{'+Str+'}';
- if Nargs>1
- Tmp=string(varargin(2));
- S=S+'['+Tmp+']';
- end;
- if Nargs>2
- Tmp=varargin(3);
- if type(Tmp)==1
- Tmp=string(Tmp);
- end;
- S=S+'['+Tmp+']';
- end;
- S=S+'{';
- Texcom(S);
-endfunction \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.bin
deleted file mode 100644
index c724a1fa..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.sci
deleted file mode 100644
index 03cabf81..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texnewctr.sci
+++ /dev/null
@@ -1,13 +0,0 @@
-// 10.01.21
-
-function Texnewctr(N)
- if type(N)==10
- Str='\newcounter{'+N+'}';
- Texcom(Str);
- else
- for I=N
- Str='\newcounter{'+Texctr(I)+'}';
- Texcom(Str);
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.bin
deleted file mode 100644
index a19894a9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.sci
deleted file mode 100644
index b8926589..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texrenewcmd.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 10.01.21
-
-function Texrenewcmd(varargin)
- Nargs=length(varargin);
- Str=varargin(1);
- S='\renewcommand{'+Str+'}';
- if Nargs>1
- Tmp=string(varargin(2));
- S=S+'['+Tmp+']';
- end;
- if Nargs>2
- Tmp=varargin(3);
- if type(Tmp)==1
- Tmp=string(Tmp);
- end;
- S=S+'['+Tmp+']';
- end;
- S=S+'{';
- Texcom(S);
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.bin
deleted file mode 100644
index 6b59198a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.sci
deleted file mode 100644
index 166af676..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texsetctr.sci
+++ /dev/null
@@ -1,70 +0,0 @@
-// 10.01.21
-
-function Texsetctr(Nctr,Opstr)
- Ctr=Texctr(Nctr);
- Opstr=Opstr+'%';
- OperL='+-*/%';
- Oper='';
- Va='';
- Evflg=0;
- Paflg=0;
- for I=1:length(Opstr)
- Tmp=part(Opstr,I);
- if Tmp=='('
- Paflg=1;
- if length(Va)>0
- Evflg=1;
- Va=Va+Tmp;
- end;
- continue;
- end;
- if Tmp==')'
- Paflg=0;
- if Evflg>0
- Va=Va+Tmp;
- end;
- continue;
- end;
- if Paflg>0
- Va=Va+Tmp;
- continue;
- end;
- if length(mtlb_findstr(Tmp,OperL))==0
- Va=Va+Tmp;
- else
- if Evflg>0
- Tmp1=evstr(Va);
- Va='\value{'+Tmp1+'}';
- Evflg=0;
- end;
- if Oper==''
- if length(Va)>0
- Str='\setcounter{'+Ctr+'}{'+Va+'}';
- Texcom(Str);
- end;
- Oper=Tmp;
- Va='';
- elseif Oper=='+'
- Str='\addtocounter{'+Ctr+'}{'+Va+'}';
- Texcom(Str);
- Oper=Tmp;
- Va='';
- elseif Oper=='-'
- Str='\addtocounter{'+Ctr+'}{-'+Va+'}';
- Texcom(Str);
- Oper=Tmp;
- Va='';
- elseif Oper=='*'
- Str='\multiply\value{'+Ctr+'} by '+Va;
- Texcom(Str);
- Oper=Tmp;
- Va='';
- elseif Oper=='/'
- Str='\divide\value{'+Ctr+'} by '+Va;
- Texcom(Str);
- Oper=Tmp;
- Va=''
- end;
- end;
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.bin
deleted file mode 100644
index 7a1b6b04..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.sci
deleted file mode 100644
index 469da91a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texthectr.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-// 2010.02.12
-
-function Out=Texthectr(N)
- Out='\the'+Texctr(N);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.bin
deleted file mode 100644
index 71c3785e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.sci
deleted file mode 100644
index 96d1c734..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvalctr.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-// 2010.02.12
-
-function Out=Texvalctr(N)
- Out='\value{'+Texctr(N)+'}';
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.bin
deleted file mode 100644
index 0da12c0f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.sci
deleted file mode 100644
index fc443411..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texvctr.sci
+++ /dev/null
@@ -1,6 +0,0 @@
-// 10.01.21
-
-function Out=Texvctr(N)
- Out='\value{'+Texctr(N)+'}';
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.bin
deleted file mode 100644
index 8f036e77..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.sci
deleted file mode 100755
index c6ceff89..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Thetadegree.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.07.11
-
-function Ang=Thetadegree()
- global THETA;
- Ang=THETA*180/%pi;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.bin
deleted file mode 100644
index 43d2d234..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.sci
deleted file mode 100755
index a7a3fc2d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/ThisVersion.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=ThisVersion()
- global THISVERSION
- Y=THISVERSION
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.bin
deleted file mode 100644
index 5e7b9411..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.sci
deleted file mode 100755
index 8ef53bd5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Tolist.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 10.01.02
-
-function Out=Tolist(LG)
- Out=list();
- for I=1:length(LG)
- Out($+1)=LG(I);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.bin
deleted file mode 100644
index 43315b47..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.sci
deleted file mode 100755
index 98d69544..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translate3data.sci
+++ /dev/null
@@ -1,36 +0,0 @@
-// 08.08.15
-// 15.04.12
-
-function Out=Translate3data(varargin)
- Nargs=length(varargin);
- Pd3=varargin(1);
- Pd3=Flattenlist(Pd3); // 15.04.12
- Mv=varargin(2);
- if type(Mv)==1 & length(Mv)==1
- Mv=[varargin(2),varargin(3),varargin(4)];
- end;
-// if Mixtype(Pd3)==1 // 15.04.12 from
-// Pd3=MixS(Pd3);
-// elseif Mixtype(Pd3)==3
-// Tmp=[];
-// for I=1:Mixlength(Pd3)
-// Tmp=Mixjoin(Tmp,Mixop(I,Pd3));
-// end;
-// Pd3=Tmp;
-// end;
- Out=[];
- for I=1:length(Pd3)
- PD=Op(I,Pd3);
- Ans=[];
- for J=1:size(PD,1)
- P=PD(J,:);
- Tmp=P+Mv;;
- Ans=[Ans;Tmp];
- end;
- Out=Mixadd(Out,Ans);
- end;
- if length(Out)==1
- Out=Op(1,Out);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.bin
deleted file mode 100644
index 9b27594a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.sci
deleted file mode 100755
index a2e31085..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Translatedata.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-// 08.05.25 Koshikawa
-// 08.09.20
-// 15.04.12
-
-function OutL=Translatedata(varargin)
- Nargs=length(varargin);
- ML=varargin(1);
- ML=Flattenlist(ML);
- Tmp=varargin(2);
- if type(Tmp)==1 & length(Tmp)>1
- A=Tmp(1); B=Tmp(2);
- else
- A=Tmp;
- if Nargs>=3
- B=varargin(3);
- else
- B=0;
- end;
- end;
- OutL=[];
- for N=1:length(ML)
- GL=Op(N,ML);
- Out=[];
- for I=1:size(GL,1)
- Tmp=GL(I,:);
- X1=Tmp(1);
- Y1=Tmp(2);
- if Tmp==[%inf,%inf]
- X2=X1;
- Y2=Y1;
- else
- X2=X1+A;
- Y2=Y1+B;
- end
- Out=[Out;X2,Y2];
- end;
- OutL=Mixadd(OutL,Out);
- end;
- if length(OutL)==1
- OutL=Op(1,OutL);
- end;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.bin
deleted file mode 100644
index 838fdc91..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.sci
deleted file mode 100755
index b4705593..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Trunc.sci
+++ /dev/null
@@ -1,10 +0,0 @@
-// 08.05.20
-
-function N=Trunc(X)
- if X>=0
- N=floor(X)
- else
- N=ceil(X)
- end
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.bin
deleted file mode 100644
index 60e56331..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.sci
deleted file mode 100755
index 74910ceb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Unscaling.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-function Out=Unscaling(G)
- global LOGX LOGY SCALEX SCALEY;
- GLg=[G(:,1)/SCALEX,G(:,2)/SCALEY];
- Out=GLg;
- if LOGX==1
- Out=[10^(GLg(:,1)),GLg(:,2)];
- end;
- if LOGY==1
- Out=[GLg(:,1),10^(GLg(:,2))];
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.bin
deleted file mode 100644
index b6a902cc..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.sci
deleted file mode 100755
index 4bc7684c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function L=Vecnagasa(varargin)
- PA=varargin(1);
- if length(varargin)>1
- PB=varargin(2);
- else
- PB=zeros(1,length(PA));
- end
- Tmp=PB-PA;
- L=sqrt(Tmp*Tmp');
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.bin
deleted file mode 100644
index 3118062d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.sci
deleted file mode 100755
index 527d3834..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vecnagasa2.sci
+++ /dev/null
@@ -1,11 +0,0 @@
-function L=Vecnagasa2(varargin)
- PA=varargin(1);
- if length(varargin)>1
- PB=varargin(2);
- else
- PB=[0,0];
- end
- Tmp=PB-PA;
- L=Tmp*Tmp';
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.bin
deleted file mode 100644
index 1692f2d7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.sci
deleted file mode 100755
index 44bde517..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Viewfrom.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 08.10.26
-
-function Out=Viewfrom(varargin)
- global THETA PHI
- Nargs=length(varargin);
- Nvec=varargin(1);
- GL=varargin(2);
- Flg=1;
- if Nargs>=3
- Flg=varargin(3);
- end;
- Theta=THETA; Phi=PHI;
- Tmp=Rotate3data(GL,Nvec,[-1,0,0]);
- THETA=%pi/2; PHI=0;
- Out=Projpara(Tmp);
- if Flg==1
- Windisp(Out);
- end;
- THETA=Theta; PHI=Phi;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.bin
deleted file mode 100644
index 8410cc5f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.sci
deleted file mode 100644
index de320918..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Vtickmark.sci
+++ /dev/null
@@ -1,144 +0,0 @@
-// 08.05.26 Debugged
-// 09.12.25
-// 11.04.13 debugged ( [a,b] )
-// 14.03.05 MARKLEN
-
-function Vtickmark(varargin)
- global Wfile FID MARKLEN GENTEN YMIN YMAX;
- Nargs=length(varargin);
- ArgsL=list(varargin(1:Nargs));
- if type(Op(1,ArgsL))==10
- Str=Op(1,ArgsL);
- Tmp=mtlb_findstr(Str,'m');
- if Tmp~=[]
- I=Tmp(1);
- else
- I=0;
- end
- Tmp=mtlb_findstr(Str,'n');
- if Tmp~=[]
- J=Tmp(1);
- else
- J=0;
- end
- Tmp=mtlb_findstr(Str,'r');
- if Tmp~=[]
- K=Tmp(1);
- else
- K=0;
- end;
- if K>0
- Tmp=ascii(Str);
- S=char(Tmp(K+1:length(Tmp)));
- R=msscanf(S,'%f');
- if length(R)==0
- R=1;
- end
- else
- R=1;
- K=length(Str)+1;
- end
- if J>0 then
- Tmp=ascii(Str);
- S=char(Tmp(J+1:K-1));
- if S==[]
- S='';
- end;
- Dn=msscanf(S,'%d');
- if length(Dn)==0
- Dn=1;
- end
- else
- Dn=1000;
- J=length(Str)+1;
- end
- Tmp=ascii(Str);
- S=char(Tmp(I+1:J-1));
- if S==[]
- S='';
- end
- Dm=msscanf(S,'%f');
- if length(Dm)==0
- Dm=1;
- end
- ArgsL=list();
- for I=1:floor((YMAX-GENTEN(2))/Dm)
- ArgsL($+1)=I*Dm;
- if I-floor(I/Dn)*Dn==0
- Str=string(I*Dm*R);
- K=length(Str);
- Tmp=ascii(Str);
- if char(Tmp(K))=='.'
- Str=char(Tmp(1:k-1));
- end
- ArgsL($+1)=Str;
- end
- end
- for I=-1:-1:ceil((YMIN-GENTEN(2))/Dm)
- ArgsL($+1)=I*Dm;
- if I-floor(I/Dn)*Dn==0
- Str=string(I*Dm*R);
- K=length(Str);
- Tmp=ascii(Str);
- if char(Tmp(K))=='.'
- Str=char(1:K-1);
- end
- ArgsL($+1)=Str;
- end
- end
- end
- MemoriList=list();
- Memori=list();
- for N=1:length(ArgsL)
- Dt=Op(N,ArgsL);
- if type(Dt)==1 & length(Dt)>1
- if length(Memori)>0
- MemoriList($+1)=Memori;
- end
- Memori=list(Dt(1),Dt(2));
- continue
- end
- if type(Dt)==10
- Memori($+1)=Dt;
- else
- if length(Memori)>0
- MemoriList($+1)=Memori;
- end
- Memori=list(GENTEN(1),Dt);
- end
- end
- MemoriList($+1)=Memori;
- for N=1:length(MemoriList)
- Dt=MemoriList(N);
- Ndt=length(Dt);
- X=Op(1,Dt);
- Y=Op(2,Dt);
- Tmp=Doscaling([X,Y]);
- X=Tmp(1);
- Y=Tmp(2);
- Moji=Op(Ndt,Dt);
- Tmp1=Unscaling([X+MARKLEN,Y]);
- Tmp2=Unscaling([X-MARKLEN,Y]);
- Fd=Listplot([Tmp1,Tmp2]);
- Drwline(Fd);
- if Ndt==3
- Tmp=Unscaling([X-MARKLEN,Y]);
- Expr(Tmp,'w',Moji);
- end
- if Ndt==4
- Houkou=Op(3,Dt);
- if mtlb_findstr(Houkou,'w')~=[]
- Tmp=Unscaling([X-MARKLEN,Y]);
- Expr(Tmp,Houkou,Moji);
- else
- Tmp=Unscaling([X+MARKLEN,Y]);
- Expr(Tmp,Houkou,Moji);
- end
- end
- if Wfile=='default'
- mprintf('%s\n','%');
- else
- mfprintf(FID,'%s\n','%');
- end
- end
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.bin
deleted file mode 100644
index cfd85f0b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.sci
deleted file mode 100755
index baa03e73..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Windisp.sci
+++ /dev/null
@@ -1,110 +0,0 @@
-// 08.05.16 Point style
-// 08.05.17 MixL
-// 08.05.19 Changed
-// 08.05.21 Eps=0.1
-// 08.08.16 square
-// 09.11.04 window option
-// 09.11.07 gcf used
-// 09.12.25
-// 10.01.01
-// 10.01.09 ' '
-// 10.01.10 drw one by one
-// 10.02.08 revised for the case "a"
-// 10.02.13 square debugged
-// 10.02.21 square debugged (2)
-// 10.02.23 case of mixlength=3
-// 10.04.10 Origin bug
-// 11.05.29 Flattenlist used
-
-function Windisp(varargin)
- global XMIN XMAX YMIN YMAX GENTEN
- Nargs=length(varargin);
- Tp=varargin(Nargs);
- Ch='';
- if type(Tp)~=10
- scf();
- else
- Ch=part(Tp,1);
- Nargs=Nargs-1;
- select Ch;
- case 'N' then scf();
- case 'n' then scf();
- case 'C' then Tmp=gcf();clf('clear');
- case 'c' then Tmp=gcf();clf('clear');
- case 'A' then Tmp=gcf();
- case 'a' then Tmp=gcf();
- else
- Tmp1=part(Tp,length(Tp));
- Tmp2=part(Tp,1:length(Tp)-1);
- Tmp3=evstr(Tmp2);
- scf(Tmp3);
- if Tmp1=='C'|Tmp1=='c'
- clf('clear');
- end;
- end;
- end;
- Eps=0.1;
- Tmp=Doscaling([XMIN,YMIN]);
- Xm=Tmp(1); Ym=Tmp(2);
- Tmp=Doscaling([XMAX,YMAX]);
- XM=Tmp(1); YM=Tmp(2);
- C=[(Xm+XM)/2,(Ym+YM)/2];
- H=max(XM-Xm,YM-Ym)/2;
- R1=C-H; R2=C+H;
- R1=Unscaling(R1);
- R2=Unscaling(R2);
- if (Ch~='A')&(Ch~='a')
- Tmp1=R1(1);
- Tmp2=R2(1);
- Tmp3=R1(2);
- Tmp4=R2(2);
- square(Tmp1,Tmp3,Tmp2,Tmp4);//
- P=Framedata([XMIN,XMAX],[YMIN,YMAX]);
- Tmp1=P(:,1)';
- Tmp2=P(:,2)';
- plot2d(Tmp1,Tmp2);
- PtO=GENTEN; // 10.04.10
- if (PtO(2)>=YMIN) & (PtO(2)<=YMAX) //
- P=Listplot([XMIN,PtO(2)],[XMAX,PtO(2)]);
- Tmp1=P(:,1)';
- Tmp2=P(:,2)';
- plot2d(Tmp1,Tmp2,style=[3]);
- end;
- if (PtO(1)>=XMIN) & (PtO(1)<=XMAX)
- P=Listplot([PtO(1),YMIN],[PtO(1),YMAX]);
- Tmp1=P(:,1)';
- Tmp2=P(:,2)';
- plot2d(Tmp1,Tmp2,style=[3]);
- end;
- end;
- for I=1:Nargs
- Tmp=varargin(I);
- Pdata=Flattenlist(Tmp); //
- for II=1:length(Pdata)
- Tmp=Op(II,Pdata);
- P=MakeCurves(Tmp,0);
- P=Unscaling(P);
- Ndm=Dataindex(P);
- for J=1:size(Ndm,1)
- Q=P(Ndm(J,1):Ndm(J,2),:)
- if size(Q,1)==1
- for K=1:2:length(Q)
- plot2d(Q(K),Q(K+1),style=[-3]);
- end
- else
- Tmp1=Q(:,1)';
- Tmp2=Q(:,2)';
- plot2d(Tmp1,Tmp2);
- end
- end
- end
-// for II=2:length(Pdata)
-// Tmp=Op(II,Pdata);
-// Windisp(Tmp,'a');
-// end;
- end
- for I=2:Nargs
- Pdata=varargin(I);
- Windisp(Pdata,'a');
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.bin
deleted file mode 100644
index 329b7bae..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.sci
deleted file mode 100755
index 24920661..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WireHiddenData.sci
+++ /dev/null
@@ -1,7 +0,0 @@
-// 08.12.11
-
-function Out=WireHiddenData()
- global HIDDENWIREDATA
- Out=HIDDENWIREDATA;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.bin
deleted file mode 100644
index cd12acae..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.sci
deleted file mode 100755
index d62acaf3..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WirePt.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 08.09.15
-// 09.09.10 registered
-
-function Out=WirePt()
- global WIREPT
- Out=WIREPT;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.bin
deleted file mode 100644
index 74ac71e0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.sci
deleted file mode 100755
index b46e359c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wireparadata.sci
+++ /dev/null
@@ -1,120 +0,0 @@
-// 08.09.15
-// 08.10.10
-// 08.10.11
-// 08.10.15
-// 08.10.21
-// 08.10.25
-// 09.09.10
-// 10.02.16 Eps
-// 17.05.07 Eps changed
-
-function FsL=Wireparadata(varargin)
- global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA
- timer();
- Nargs=length(varargin);
- Fbdy=Projpara(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=[0.05,1]; //
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DuL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- WIREPT=[];
- HIDDENWIREDATA=[];
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07
- FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)');//17.05.07
- FkL=Cuspsplitpara(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpara(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpara2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.bin
deleted file mode 100644
index 7ac1f185..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.sci
deleted file mode 100755
index 11def80c..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirepersdata.sci
+++ /dev/null
@@ -1,120 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 08.10.11
-// 08.10.15
-// 08.10.21
-// 08.10.25
-// 09.09.10
-// 10.02.16 Eps
-// 17.05.07 Eps changed
-
-function FsL=Wirepersdata(varargin)
- global WIREPT PARTITIONPT HIDDENDATA HIDDENWIREDATA
- timer();
- Nargs=length(varargin);
- Fbdy=Projpers(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=[0.05,1]; //
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Tmp=Mixop(2,Fd);
- K=mtlb_findstr(Tmp,'=');
- Xname=part(Tmp,1:K-1);
- Tmp=Mixop(3,Fd);
- K=mtlb_findstr(Tmp,'=');
- Yname=part(Tmp,1:K-1);
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DuL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- WIREPT=[];
- HIDDENWIREDATA=[];
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(2)');//17.05.07
- FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(1)');
- FkL=Cuspsplitpers(Tmp,Fd,Eps(1)); //
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- Tmp=Projpers(Fk);
- Par=Partitionseg(Tmp,Fbdy,Eps(1),Eps2); //17.05.07
- if Mixlength(PARTITIONPT)>2
- for K=2:Mixlength(PARTITIONPT)
- Tmp1=Mixop(K,PARTITIONPT);
- WIREPT=Mixadd(WIREPT,Tmp1);
- end;
- end;
- Fs=Nohiddenpers2(Par,Fk,Fd,1,Np,Eps);
- HIDDENWIREDATA=Mixjoin(HIDDENWIREDATA,HIDDENDATA);
- FsL=Mixjoin(FsL,Fs);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.bin
deleted file mode 100644
index 646215a8..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.sci
deleted file mode 100755
index 59c5ba54..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawparadata.sci
+++ /dev/null
@@ -1,86 +0,0 @@
-// 08.09.15
-// 08.10.10
-// 08.10.21
-// 09.09.10
-
-function FsL=Wirerawparadata(varargin)
- timer();
- Nargs=length(varargin);
- Fbdy=Projpara(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=0.05;
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DuL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)');
- FkL=Cuspsplitpara(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)');
- FkL=Cuspsplitpara(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.bin
deleted file mode 100644
index 28eecf7a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.sci
deleted file mode 100755
index d168b4f7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Wirerawpersdata.sci
+++ /dev/null
@@ -1,86 +0,0 @@
-// 08.09.21
-// 08.10.10
-// 08.10.21
-// 09.09.10
-
-function FsL=Wirerawpersdata(varargin)
- timer();
- Nargs=length(varargin);
- Fbdy=Projpers(varargin(1));
- Fd=varargin(2); N=3;
- FdL=Fullformfunc(Fd);
- Fxy=Mixop(1,FdL);
- Tmp=Mixop(5,FdL);
- K=mtlb_findstr(Tmp,'=');
- Uname=part(Tmp,1:K-1);
- Urg=evstr(part(Tmp,K+1:length(Tmp)));
- Tmp=Mixop(6,FdL);
- K=mtlb_findstr(Tmp,'=');
- Vname=part(Tmp,1:K-1);
- Vrg=evstr(part(Tmp,K+1:length(Tmp)));
- DuL=varargin(N);
- DvL=varargin(N+1);
- N=N+2;
- Np=[50,50];
- if Nargs>=N
- Np=varargin(N);
- if type(Np)==1 & length(Np)==1
- Np=[Np,Np];
- end;
- end
- Eps=0.05;
- if Nargs>=N+1
- Eps=varargin(N+1);
- end;
- Eps2=0.2;
- if Nargs>=N+2
- Eps2=varargin(N+2);
- end;
- Umin=Urg(1); Umax=Urg(2);
- Vmin=Vrg(1); Vmax=Vrg(2);
- if type(DuL)==10
- DuL=evstr(DuL);
- elseif length(DvL)==1
- Tmp=(Umax-Umin)/(DuL+1);
- Tmp1=Umin+Tmp;
- Tmp2=Umin+DuL*Tmp
- DuL=[Tmp1:Tmp:Tmp2];
- end;
- if type(DvL)==10
- DvL=evstr(DvL);
- elseif length(DvL)==1
- Tmp=(Vmax-Vmin)/(DvL+1);
- Tmp1=Vmin+Tmp;
- Tmp2=Vmin+DvL*Tmp
- DvL=[Tmp1:Tmp:Tmp2];
- end;
- Fbdxy=Makexybdy(Fd,Np);
- FsL=[];
- for I=1:length(DuL)
- U=DuL(I);
- Tmp=Paramplot('[U,V]','V=[Vmin,Vmax]','N=Np(1)');
- FkL=Cuspsplitpers(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Nx=Mixlength(FsL);
- if Nx>0
- Mixdisp(Mix(Uname,'-data=',1,':',Nx,' Time=',timer()));
- end;
- for I=1:length(DvL)
- V=DvL(I);
- Tmp=Paramplot('[U,V]','U=[Umin,Umax]','N=Np(2)');
- FkL=Cuspsplitpers(Tmp,Fd,Eps);
- for J=1:Mixlength(FkL)
- Fk=Mixop(J,FkL);
- FsL=Mixadd(FsL,Fk);
- end;
- end;
- Ny=Mixlength(FsL)-Nx;
- if Ny>0
- Mixdisp(Mix(Vname,'-data=',Nx+1,':',Nx+Ny,' Time=',timer()));
- end;
-endfunction;
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.bin
deleted file mode 100644
index baa9001a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.sci
deleted file mode 100644
index 059ac6d5..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WriteOutData.sci
+++ /dev/null
@@ -1,55 +0,0 @@
-// s:2014.10.10
-// e:2014.12.14 ( for 3d )
-// e:2015.10.29 ( endmark //// )
-
-function WriteOutData(varargin)
- global Fnameout
- Nargs=length(varargin);
- if modulo(Nargs,2)==0 then
- Fname=Fnameout;
- Nst=1;
- else
- Fname=varargin(1);
- Nst=2;
- end;
- Fid=mopen(Fname,'w');
- for N=Nst:2:Nargs
- Gname=varargin(N);
- mfprintf(Fid,'%s\n',Gname+"//");
- Gdata=varargin(N+1);
- Gdata=Flattenlist(Gdata);
- for K=1:length(Gdata)
- GL=Dividegraphics(Gdata(K));
- for J=1:length(GL)
- mfprintf(Fid,'%s\n',"start//");
- Str="";
- for I=1:Numptcrv(GL(J))
- Pt=Ptcrv(I,GL(J));
- if length(Str)>0 then
- Str=Str+","
- end;
- if length(Pt)<3 // 2014.12.14
- Str=Str+msprintf("[%5.4f,%5.4f]",Pt(1),Pt(2));
- else
- Str=Str+msprintf("[%5.4f,%5.4f,%5.4f]",Pt(1),Pt(2),Pt(3));
- end;
- if length(Str)>80 then
- mfprintf(Fid,'%s\n',"["+Str+"]//");
- Str="";
- end
- end
- if length(Str)>0 then
- mfprintf(Fid,'%s\n',"["+Str+"]//");
- end
- if N==Nargs-1 & K==length(Gdata) & J==length(GL) then // 15.10.29
-// mfprintf(Fid,'%s\n',"end////");
- mfprintf(Fid,'%s\n',"end//");
- else
- mfprintf(Fid,'%s\n',"end//");
- end;
- end
- end
- end
- mfprintf(Fid,'%s\n',"//");
- mclose(Fid);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.bin
deleted file mode 100644
index 734a3c14..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.sci
deleted file mode 100644
index ae51bf8b..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writeobjpoint.sci
+++ /dev/null
@@ -1,12 +0,0 @@
-// s : 2014.06.22
-
-function Out=Writeobjpoint(P)
- global OBJFMT OBJSCALE NPOINT;
- X=sprintf(OBJFMT,P(1)*OBJSCALE);
- Y=sprintf(OBJFMT,P(2)*OBJSCALE);
- Z=sprintf(OBJFMT,P(3)*OBJSCALE);
- Str="v "+X+" "+Y+" "+Z;
- Printobjstr(Str)
- NPOINT=NPOINT+1
- Out=NPOINT;
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.bin
deleted file mode 100644
index 5e4a47e2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.sci
deleted file mode 100644
index 51a13884..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Writetextdata.sci
+++ /dev/null
@@ -1,47 +0,0 @@
-// 2010.04.27
-
-function Writetextdata(varargin)
- Fname=varargin(1);
- Mt=varargin(2);
- D=-1;
- for I=3:length(varargin)
- Tmp=varargin(I);
- if mtlb_findstr(Tmp,'=')~=[]
- execstr(Tmp);
- end;
- end;
- Str='';
- for J=1:size(Mt,2)
- Str=Str+'x'+string(J);
- if J<size(Mt,2)
- Str=Str+',';
- end;
- end;
- if Fname~=''
- Fid=mopen(Fname,'w');
- mfprintf(Fid,'%s\n',Str);
- else
- mprintf('%s\n',Str);
- end;
- for I=1:size(Mt,1)
- Str='';
- for J=1:size(Mt,2)
- Dt=Mt(I,J);
- if Dt==%inf
- Dt=D;
- end;
- Str=Str+string(Dt);
- if J<size(Mt,2)
- Str=Str+',';
- end;
- end;
- if Fname~=''
- mfprintf(Fid,'%s\n',Str);
- else
- mprintf('%s\n',Str);
- end;
- end;
- if Fname~=''
- mclose(Fid);
- end;
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.bin
deleted file mode 100644
index 4b55a62a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.sci
deleted file mode 100644
index 60d73ef7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/WritetoCindy.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-// s:2014.09.16
-
-function WritetoCindy(varargin)
- global Fnametxt
- GnameV=list();
- for J=1:length(varargin)
- Tmp=varargin(J);
- for K=1:size(Tmp,2)
- GnameV($+1)=Tmp(1,K);
- end
- end;
- Fid=mopen(Fnametxt,'w');
- for Nv=1:length(GnameV)
- Gname=GnameV(Nv);
- Tmp=evstr(Gname);
- GL=Dividegraphics(Tmp);
- Lnst="";
- for J=1:length(GL)
- G=GL(J);
- Gn=Gname+"No"+string(J);
- mfprintf(Fid,'%s\n',Gn+"=[];//");
- for K=1:Numptcrv(G)
- Pt=Ptcrv(K,G);
- if length(Lnst)==0
- Lnst=Gn+"=concat("+Gn+",[";
- end;
- Tmp=msprintf("[%6.4f,%6.4f]",Pt(1),Pt(2));
- Lnst=Lnst+Tmp;
- if length(Lnst)>80 | K==Numptcrv(G)
- Lnst=Lnst+"]);//";
- mfprintf(Fid,'%s\n',Lnst);
- Lnst="";
- else
- Lnst=Lnst+",";
- end;
- end;
- Str="Goutdatalist=Append(Goutdatalist,"+Gn+");//";
- mfprintf(Fid,'%s\n',Str);
- end;
- end;
- mclose(Fid);
-endfunction;
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.bin
deleted file mode 100644
index 42261931..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.sci
deleted file mode 100755
index 28ab28ce..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmax.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=Xmax()
- global XMAX
- Y=XMAX;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.bin
deleted file mode 100644
index aff6ce0e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.sci
deleted file mode 100755
index e18e83d7..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xmin.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=Xmin()
- global XMIN
- Y=XMIN;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.bin
deleted file mode 100644
index c10e835a..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.sci
deleted file mode 100755
index b2118c90..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzax3data.sci
+++ /dev/null
@@ -1,14 +0,0 @@
-// 08.07.11
-
-function Out=Xyzax3data(Xrange,Yrange,Zrange)
- J=mtlb_findstr(Xrange,'=');
- Tmp=evstr(part(Xrange,J+1:length(Xrange)));
- Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0];
- J=mtlb_findstr(Yrange,'=');
- Tmp=evstr(part(Yrange,J+1:length(Yrange)));
- Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0];
- J=mtlb_findstr(Zrange,'=');
- Tmp=evstr(part(Zrange,J+1:length(Zrange)));
- Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)];
- Out=MixS(Spaceline([Px,Qx]),Spaceline([Py,Qy]),Spaceline([Pz,Qz]));
-endfunction
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.bin
deleted file mode 100644
index 58069271..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.sci
deleted file mode 100755
index b833802d..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxparaname.sci
+++ /dev/null
@@ -1,71 +0,0 @@
-// 08.07.11
-// 09.09.18
-
-function Kekka=Xyzaxparaname(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Eps=10.0^(-6);
- Dr=0.19*1000/2.54/MilliIn;
- Tmp=varargin(Nargs);
- if Nargs>1 & type(Tmp)==1
- Dr=Dr*Tmp;
- Nargs=Nargs-1;
- end;
- if type(varargin(1))==10
- Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3);
- J=mtlb_findstr(Xrange,'=');
- Xname=part(Xrange,1:J-1);
- Tmp=evstr(part(Xrange,J+1:length(Xrange)));
- Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0];
- J=mtlb_findstr(Yrange,'=');
- Yname=part(Yrange,1:J-1);
- Tmp=evstr(part(Yrange,J+1:length(Yrange)));
- Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0];
- J=mtlb_findstr(Zrange,'=');
- Zname=part(Zrange,1:J-1);
- Tmp=evstr(part(Zrange,J+1:length(Zrange)));
- Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)];
- else
- Data=varargin(1);
- Xname='x'; Yname='y'; Zname='z';
- if Nargs>1
- if varargin(2)~=''
- Xname=varargin(2);
- end;
- if varargin(3)~=''
- Yname=varargin(3);
- end;
- if varargin(4)~=''
- Zname=varargin(4);
- end;
- end;
- Tmp=Mixop(1,Data);
- Px=Tmp(1,:); Qx=Tmp(2,:);
- Tmp=Mixop(2,Data);
- Py=Tmp(1,:) ;
- Qy=Tmp(2,:);
- Tmp=Mixop(3,Data);
- Pz=Tmp(1,:);
- Qz=Tmp(2,:);
- end;
- Ph=Parapt(Px); Qh=Parapt(Qx); R=Vecnagasa(Ph,Qh);
- Kekka=[];
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Xname);
- end
- Ph=Parapt(Py); Qh=Parapt(Qy); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Yname);
- end;
- Ph=Parapt(Pz); Qh=Parapt(Qz); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Zname);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.bin
deleted file mode 100644
index 9bafd8a9..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.sci
deleted file mode 100755
index d9c1c7df..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Xyzaxpersname.sci
+++ /dev/null
@@ -1,72 +0,0 @@
-// 08.08.14
-// 08.08.15
-// 09.09.18
-
-function Kekka=Xyzaxpersname(varargin)
- global MilliIn;
- Eps=10.0^(-6);
- Nargs=length(varargin);
- Dr=0.19*1000/2.54/MilliIn;
- Tmp=varargin(Nargs);
- if Nargs>1 & type(Tmp)==1
- Dr=Dr*Tmp;
- Nargs=Nargs-1;
- end;
- if type(varargin(1))==10
- Xrange=varargin(1); Yrange=varargin(2); Zrange=varargin(3);
- J=mtlb_findstr(Xrange,'=');
- Xname=part(Xrange,1:J-1);
- Tmp=evstr(part(Xrange,J+1:length(Xrange)));
- Px=[Tmp(1),0,0]; Qx=[Tmp(2),0,0];
- J=mtlb_findstr(Yrange,'=');
- Yname=part(Yrange,1:J-1);
- Tmp=evstr(part(Yrange,J+1:length(Yrange)));
- Py=[0,Tmp(1),0]; Qy=[0,Tmp(2),0];
- J=mtlb_findstr(Zrange,'=');
- Zname=part(Zrange,1:J-1);
- Tmp=evstr(part(Zrange,J+1:length(Zrange)));
- Pz=[0,0,Tmp(1)]; Qz=[0,0,Tmp(2)];
- else
- Data=varargin(1);
- Xname='x'; Yname='y'; Zname='z';
- if Nargs>1
- if varargin(2)~=''
- Xname=varargin(2);
- end;
- if varargin(3)~=''
- Yname=varargin(3);
- end;
- if varargin(4)~=''
- Zname=varargin(4);
- end;
- end;
- Tmp=Mixop(1,Data);
- Px=Tmp(1,:); Qx=Tmp(2,:);
- Tmp=Mixop(2,Data);
- Py=Tmp(1,:) ;
- Qy=Tmp(2,:);
- Tmp=Mixop(3,Data);
- Pz=Tmp(1,:);
- Qz=Tmp(2,:);
- end;
- Ph=Perspt(Px); Qh=Perspt(Qx); R=Vecnagasa(Ph,Qh);
- Kekka=[];
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Xname);
- end
- Ph=Perspt(Py); Qh=Perspt(Qy); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Yname);
- end;
- Ph=Perspt(Pz); Qh=Perspt(Qz); R=Vecnagasa(Ph,Qh);
- if R>Eps
- Ch=Qh+Dr/R*(Qh-Ph);
- Kekka=Mixadd(Kekka,Pointdata(Ch));
- Expr(Ch,'c',Zname);
- end;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.bin
deleted file mode 100644
index dd606856..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.sci
deleted file mode 100755
index 0a835534..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymax.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=Ymax()
- global YMAX
- Y=YMAX;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.bin
deleted file mode 100644
index e990681f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.sci
deleted file mode 100755
index 73d0d261..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Ymin.sci
+++ /dev/null
@@ -1,5 +0,0 @@
-function Y=Ymin()
- global YMIN
- Y=YMIN;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.bin
deleted file mode 100644
index acd2edd0..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.sci
deleted file mode 100755
index 5c237179..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zparapt.sci
+++ /dev/null
@@ -1,8 +0,0 @@
-// 08.07.11
-
-function Out=Zparapt(P)
- global PHI THETA;
- x=P(1); y=P(2); z=P(3);
- Out=x*cos(PHI)*sin(THETA)+y*sin(PHI)*sin(THETA)+z*cos(THETA);
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.bin b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.bin
deleted file mode 100644
index 76e4408e..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.bin
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.sci
deleted file mode 100755
index 13601556..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Zperspt.sci
+++ /dev/null
@@ -1,20 +0,0 @@
-// 08.08.12
-// 10.01.02
-
-function X3=Zperspt(P)
-
- global FocusPoint EyePoint
-
- Tmp=P-FocusPoint;
- X1=Tmp(1); Y1=Tmp(2); Z1=Tmp(3);
- Tmp=EyePoint-FocusPoint;
- E1=Tmp(1); F1=Tmp(2); G1=Tmp(3);
- Ca=E1/sqrt(E1^2+F1^2);
- Sa=F1/sqrt(E1^2+F1^2);
- X2=X1*Ca+Y1*Sa; Y2=-X1*Sa+Y1*Ca; Z2=Z1;
- E2=E1*Ca+F1*Sa; F2=-E1*Sa+F1*Ca; G2=G1;
- Cb=E2/sqrt(E2^2+G2^2);
- Sb=G2/sqrt(E2^2+G2^2);
- X3=X2*Cb+Z2*Sb;
-endfunction
-
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/lib b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/lib
deleted file mode 100644
index 3083cb73..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/lib
+++ /dev/null
@@ -1,344 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>
-<scilablib name="ketpicsciL6">
- <macro name="Addcounter" file="Addcounter.bin" md5="f7a17da511ba9fdd3cf4cdaf83f3d78c"/>
- <macro name="Anglemark" file="Anglemark.bin" md5="0e984414d47cb604faef41ae93390dcb"/>
- <macro name="Arrowdata" file="Arrowdata.bin" md5="b39db1a6340e09c9dfaa3fbb4c3777f1"/>
- <macro name="Arrowhead" file="Arrowhead.bin" md5="0b0bc5478ce8afeb47770d9add192560"/>
- <macro name="Arrowheaddata" file="Arrowheaddata.bin" md5="3c06f276e57945b3d54e11e39a9e9435"/>
- <macro name="Arrowline" file="Arrowline.bin" md5="e15854f9c5c640cee8667f6128023620"/>
- <macro name="Assign" file="Assign.bin" md5="c8d1390433c0a317d199f5491669e988"/>
- <macro name="Assignadd" file="Assignadd.bin" md5="d24d31a4cfd1dc707c51c51ff9cdf364"/>
- <macro name="Assignrep" file="Assignrep.bin" md5="e81413f3bc64c05ae0821b56fd63e5ef"/>
- <macro name="Assignset" file="Assignset.bin" md5="6a6dad9e5a35cdddb0ac069ec601c061"/>
- <macro name="Beginpicture" file="Beginpicture.bin" md5="9fd24a768a0d6548b1f458d51e1bb202"/>
- <macro name="Bezier" file="Bezier.bin" md5="f23aa1069913d825c6f8040b3de17e7d"/>
- <macro name="Bezierpt" file="Bezierpt.bin" md5="f09183e61d71f55243937a28ef90fb06"/>
- <macro name="BorderHiddenData" file="BorderHiddenData.bin" md5="67622b4dca726e7aff9b4e92d411edcd"/>
- <macro name="BorderPt" file="BorderPt.bin" md5="e482d76b67ceb360021f9cef448abc73"/>
- <macro name="Borderparadata" file="Borderparadata.bin" md5="1bf108993d36707c45e3a25770ca2869"/>
- <macro name="Borderpersdata" file="Borderpersdata.bin" md5="d46e7fdcf42a61c354a540359dcd9f5f"/>
- <macro name="Borderrawdata" file="Borderrawdata.bin" md5="0228890cf35b6929fc3bb083b1211da6"/>
- <macro name="Bowdata" file="Bowdata.bin" md5="1f5f1c65d0448af83143e14f53565393"/>
- <macro name="Bowmiddle" file="Bowmiddle.bin" md5="0a765efd6dae8c6fbd0d075ef0ff8b3c"/>
- <macro name="Bowname" file="Bowname.bin" md5="e8ab45879c83d386dcf5e086fe71e1a4"/>
- <macro name="Bownamerot" file="Bownamerot.bin" md5="ce9e45bf14fca7b62fa56b6d0b3baaef"/>
- <macro name="CalcHeight" file="CalcHeight.bin" md5="f535ff3dcd86bc6552b54894e5865673"/>
- <macro name="CalcWidth" file="CalcWidth.bin" md5="cf0f3d22a9dd2ffdb077a4be5bf1219f"/>
- <macro name="Calcfun" file="Calcfun.bin" md5="618d36dbe48f68b4a3e2664b5df8cad2"/>
- <macro name="CameraCurve" file="CameraCurve.bin" md5="b8acf2da07c09553106c10b4cc29d9e7"/>
- <macro name="CameracoordCurve" file="CameracoordCurve.bin" md5="91ad20f64500117414f16a1cce2c344f"/>
- <macro name="Cancoordpara" file="Cancoordpara.bin" md5="61afc19fb49f4b16d48a3cc54c6c6650"/>
- <macro name="Cancoordpers" file="Cancoordpers.bin" md5="3a82d9864deed9b050795decae25d8bb"/>
- <macro name="Circledata" file="Circledata.bin" md5="a5a1cf644e81417a9065d80f71b24d8d"/>
- <macro name="Clipindomain" file="Clipindomain.bin" md5="773133bed55b7003b0248ffb670e3685"/>
- <macro name="Closefile" file="Closefile.bin" md5="d29119f97c49373729d10b0cfba746e4"/>
- <macro name="Closeobj" file="Closeobj.bin" md5="18df14cfd19b6a7911f9a3748572c02c"/>
- <macro name="Closepar" file="Closepar.bin" md5="b8f58e851efa7f12560401c5b0760ecf"/>
- <macro name="Closephr" file="Closephr.bin" md5="f53a01c653931c16bd3c493950798acf"/>
- <macro name="Closepicture" file="Closepicture.bin" md5="32f401713757a349111cfaf0adcf199d"/>
- <macro name="Connectseg" file="Connectseg.bin" md5="439d9f55197c09cd7b54e98cc7151208"/>
- <macro name="Crossprod" file="Crossprod.bin" md5="536992b625b66d009e88e73a21a354d6"/>
- <macro name="Crv3onsfHiddenData" file="Crv3onsfHiddenData.bin" md5="716dedc06dea644e6aadecf58ab050f4"/>
- <macro name="Crv3onsfparadata" file="Crv3onsfparadata.bin" md5="e0d51c785077d687bfc222837fd8593b"/>
- <macro name="Crv3onsfpersdata" file="Crv3onsfpersdata.bin" md5="63bcd579f64f40cc04e50094782e09e0"/>
- <macro name="CrvonsfHiddenData" file="CrvonsfHiddenData.bin" md5="009a9889bf1f2a3a05f38918b579b7cb"/>
- <macro name="Crvonsfparadata" file="Crvonsfparadata.bin" md5="6d5468227fd75007c1dfe4572c1c189c"/>
- <macro name="Crvonsfpersdata" file="Crvonsfpersdata.bin" md5="de082902912599535a629ed08e56fb6c"/>
- <macro name="CrvsfHiddenData" file="CrvsfHiddenData.bin" md5="f8d158838c95df89a67bf8233e541a09"/>
- <macro name="Crvsfparadata" file="Crvsfparadata.bin" md5="885de6d7639a403dd01a2761e39a6ad1"/>
- <macro name="Crvsfpersdata" file="Crvsfpersdata.bin" md5="3a660a01512f537e270f611d45512032"/>
- <macro name="CuspData" file="CuspData.bin" md5="0958a008a4c59305d62522f9b80028da"/>
- <macro name="CuspPt" file="CuspPt.bin" md5="08b55dc8b3e2d0ee1fea47b71825af92"/>
- <macro name="CuspSplitPt" file="CuspSplitPt.bin" md5="0ff09f7f3d56080bbad1a1a26260f254"/>
- <macro name="Cuspsplitpara" file="Cuspsplitpara.bin" md5="e54d63f2224cff696951a50800d0c4d4"/>
- <macro name="Cuspsplitpers" file="Cuspsplitpers.bin" md5="ebf6aef58ed839a05d27771eeb0fc60c"/>
- <macro name="Cutsf2d" file="Cutsf2d.bin" md5="adc0dd43b75ee65d181c56c5eeef3b0a"/>
- <macro name="Dashline" file="Dashline.bin" md5="4d0497d9013039e15ff2b287b2c0988b"/>
- <macro name="Dataindex" file="Dataindex.bin" md5="f0b3b146c9ee16cde54ecd4937acb0b9"/>
- <macro name="Definecolor" file="Definecolor.bin" md5="337b7001704f8c604b555e35721973d6"/>
- <macro name="Deqplot" file="Deqplot.bin" md5="43a868bfe9d41dc2389116b15d18df80"/>
- <macro name="Derivative" file="Derivative.bin" md5="f0b451a2b43c69168ac088e8443f6961"/>
- <macro name="Diagcelldata" file="Diagcelldata.bin" md5="efc679b9d0239e2669c6a0929a4e242b"/>
- <macro name="Dividegraphics" file="Dividegraphics.bin" md5="b2c065a1249613d3cf7f6ba80ec816a4"/>
- <macro name="Dividetable" file="Dividetable.bin" md5="af1d4f7f854da91ce2b4cec13ff44bc5"/>
- <macro name="Doscaling" file="Doscaling.bin" md5="86184ec15f528517d5e37e8b5baa3754"/>
- <macro name="Dotfilldata" file="Dotfilldata.bin" md5="80a560945fc679f1f036778833dd59a7"/>
- <macro name="Dotprod" file="Dotprod.bin" md5="e1a7afad315e324245ec76499b5dfb6c"/>
- <macro name="Dottedline" file="Dottedline.bin" md5="fc23c9d6f73b41f120a39590dd4eeeb0"/>
- <macro name="Dropnumlistcrv" file="Dropnumlistcrv.bin" md5="1875178bc5c363af0d15f8276503be4a"/>
- <macro name="Droppoint" file="Droppoint.bin" md5="c25e16076a319350b8763f48476b4ec6"/>
- <macro name="Drwline" file="Drwline.bin" md5="8b3116566aee206aa64fe0f162963ae3"/>
- <macro name="Drwpt" file="Drwpt.bin" md5="2da954a103d3d925b661e23b34c3e2f4"/>
- <macro name="Drwxy" file="Drwxy.bin" md5="c17d9f6608390f019c87d6e1e181e8a3"/>
- <macro name="Embed" file="Embed.bin" md5="7cc5c0ccfeb87763b205b3fcf0dc67b4"/>
- <macro name="Enclosing" file="Enclosing.bin" md5="457c453795c3b3224be70e1721385cb1"/>
- <macro name="EnclosingS" file="EnclosingS.bin" md5="13de130f31f7932194fd173f977ff896"/>
- <macro name="Endpicture" file="Endpicture.bin" md5="9b3ce661a450d798d55889be6ffd31ac"/>
- <macro name="Evlptablepara" file="Evlptablepara.bin" md5="06e669cba02eb0218f852fdf46b1cae5"/>
- <macro name="Evlptablepers" file="Evlptablepers.bin" md5="6cc6897a677911ce2629157f932f32c5"/>
- <macro name="Execmd" file="Execmd.bin" md5="c3a30b0fae6f2a8ce6593607ed0d2ed8"/>
- <macro name="Expr" file="Expr.bin" md5="c3e260bc0fd7af5a7231431ef9033f5c"/>
- <macro name="Exprrot" file="Exprrot.bin" md5="6fc71ff18629fc512e5fed1218433619"/>
- <macro name="Faceremovaldata" file="Faceremovaldata.bin" md5="90e9f3a860839349b2486df6fff7adb4"/>
- <macro name="Facesdata" file="Facesdata.bin" md5="0c43ae73a08dcfce906c075f17eec59a"/>
- <macro name="Findcell" file="Findcell.bin" md5="9b9cc86ef6f67a8d539d30ec58ad9005"/>
- <macro name="Flattenlist" file="Flattenlist.bin" md5="d4b4a78c9e9760a4cbeda97f54592acb"/>
- <macro name="Fontsize" file="Fontsize.bin" md5="3620d8e64b61ab17778776195acec82a"/>
- <macro name="Fouriercoeff" file="Fouriercoeff.bin" md5="83dfcd5c4a1d0f7ccb711d89b0a8003c"/>
- <macro name="FouriercoeffL" file="FouriercoeffL.bin" md5="29b8c2c57c53796531cb8316630e87ee"/>
- <macro name="Fouriersum" file="Fouriersum.bin" md5="3cf167292e587148fe7d3a9d2e34eab0"/>
- <macro name="Fracform" file="Fracform.bin" md5="6dfc4e723a0a2d55ef9e2e9028e5a0b1"/>
- <macro name="Framedata" file="Framedata.bin" md5="712be5ee4fdd60fe132b951022f7f5e1"/>
- <macro name="Fullformfunc" file="Fullformfunc.bin" md5="ebc5473763f9884c091aa9863062702b"/>
- <macro name="Gaiseki" file="Gaiseki.bin" md5="36a6b9567ed081b46107ed3374562196"/>
- <macro name="Getcounter" file="Getcounter.bin" md5="45f7aec5f0936f4abe6e65296634a847"/>
- <macro name="Gettrace" file="Gettrace.bin" md5="bb84c353b0e3af593e903273160d9bd9"/>
- <macro name="Hatchdata" file="Hatchdata.bin" md5="e05c42f885a108c41a75bf1b607b509b"/>
- <macro name="Hexahedrondata" file="Hexahedrondata.bin" md5="86efcd2c370b4e76adfeea3b75639d31"/>
- <macro name="HiddenWireData" file="HiddenWireData.bin" md5="a080bcb1dcc97c1205fff04562d694fd"/>
- <macro name="Htickmark" file="Htickmark.bin" md5="bdafbfedbc2441fe5cd989910852c79e"/>
- <macro name="ImplicitData" file="ImplicitData.bin" md5="24a9ea9eb043677084250a30d6c6db00"/>
- <macro name="Implicitplot" file="Implicitplot.bin" md5="7d1075882d5446646c2304e00e70ad6d"/>
- <macro name="InWindow" file="InWindow.bin" md5="cf3f449e5189b8d40a3d3a4c219a92ea"/>
- <macro name="Initangle" file="Initangle.bin" md5="c6902d32536d434af7f28c28b45290ab"/>
- <macro name="Integrate" file="Integrate.bin" md5="6f255339baf16af41b20d9b2d86adb50"/>
- <macro name="Intersectcrvs" file="Intersectcrvs.bin" md5="68b875e1418a8a231095155ca2482cbc"/>
- <macro name="IntersectcrvsPp" file="IntersectcrvsPp.bin" md5="5c05582df9fa8f9a05fa42ef1cf799ae"/>
- <macro name="Intersectcrvsf" file="Intersectcrvsf.bin" md5="89b1b7d500237aebbd41f1094560609b"/>
- <macro name="Intersectlines" file="Intersectlines.bin" md5="5a4837581398e0f6299d83805b325fd6"/>
- <macro name="IntersectselfPp" file="IntersectselfPp.bin" md5="d10bc970ff6540655fedece748a0f1d7"/>
- <macro name="Invdashline" file="Invdashline.bin" md5="d72a1842fe88eb719dd85ce45caafc96"/>
- <macro name="Invert" file="Invert.bin" md5="7018f80081bca2cb147e81ea435ba287"/>
- <macro name="Invparapt" file="Invparapt.bin" md5="b58cfbc854e7b14d076b1f1676c3f54b"/>
- <macro name="Invperspt" file="Invperspt.bin" md5="c8500cf469fd4a4c8399e5e093f49126"/>
- <macro name="Joincrvs" file="Joincrvs.bin" md5="41981f483c2cfacab95b25356ee5a7d1"/>
- <macro name="Joingraphics" file="Joingraphics.bin" md5="e525e21001a3408e5bb3587d24ca4916"/>
- <macro name="Ketinit" file="Ketinit.bin" md5="bd9d49f1927a921db621d419da386e1d"/>
- <macro name="Kouten" file="Kouten.bin" md5="b0fbbe27e4961ef9a8d0652b1d9edfaf"/>
- <macro name="KoutenList" file="KoutenList.bin" md5="ca822b6e42d545a627a7129d02b91cb2"/>
- <macro name="Koutenseg" file="Koutenseg.bin" md5="2424557c72db63186699b8ab8fb4ef64"/>
- <macro name="Kukannozoku" file="Kukannozoku.bin" md5="40cef25e80745039eb34c5066dfe2d14"/>
- <macro name="Kukeiwake" file="Kukeiwake.bin" md5="2e42c3fdef9ac1f7aaca550ff11307c3"/>
- <macro name="Kyorihensuu" file="Kyorihensuu.bin" md5="3f313b70f962d573d0db9a548ed4ebc4"/>
- <macro name="Kyoukai" file="Kyoukai.bin" md5="630a8517e9e9ae8ecb2a5372c87193fd"/>
- <macro name="Letter" file="Letter.bin" md5="a587d241a5c2f1c69b0904632af16a26"/>
- <macro name="Letterrot" file="Letterrot.bin" md5="1ce92bf2c945ee12d0746ae7f2fe6b5d"/>
- <macro name="Lineplot" file="Lineplot.bin" md5="d2b8a90dd16c873622ffc291b7c9ed64"/>
- <macro name="Listplot" file="Listplot.bin" md5="1575fd89b2e6c3c96b90b6889006370f"/>
- <macro name="MakeBowdata" file="MakeBowdata.bin" md5="ab5ea1d8c5cc092ea13021c3fb255613"/>
- <macro name="MakeCurves" file="MakeCurves.bin" md5="a1d7968df6f80673bab58af5762640a4"/>
- <macro name="MakecutbycrvL" file="MakecutbycrvL.bin" md5="8ddeb50d60ce53392a6d6ec76fad7bee"/>
- <macro name="Makehasen" file="Makehasen.bin" md5="198b502dc227e2fb5fb9d945fa3b6a27"/>
- <macro name="Makeliststr" file="Makeliststr.bin" md5="bf4e86417206108a51e2b0210b990557"/>
- <macro name="Makesfcutoffdata" file="Makesfcutoffdata.bin" md5="7b61d0f517b18505225edbac83729b6f"/>
- <macro name="Makeshasen" file="Makeshasen.bin" md5="878e44c4780cdac427a7d55f551373a2"/>
- <macro name="Makeskeletondata" file="Makeskeletondata.bin" md5="6c918f7f13736227cc0ac351c6fd7a54"/>
- <macro name="Makeskeletonpersdata" file="Makeskeletonpersdata.bin" md5="72dd47219b4e6689c54c69eed62f06dc"/>
- <macro name="Makevaltable" file="Makevaltable.bin" md5="c279f90b73efc06d235c983bd08ce47b"/>
- <macro name="MakeveLfaceL" file="MakeveLfaceL.bin" md5="1afea9c44a3dbe277e601b02d38be3cc"/>
- <macro name="Makexybdy" file="Makexybdy.bin" md5="6eca03d530a515cdfe0b98d33fee2b67"/>
- <macro name="Mawarikomi" file="Mawarikomi.bin" md5="61b967de5ef56e29016932c9f77c561a"/>
- <macro name="MeetWindow" file="MeetWindow.bin" md5="ae7f015eebc2250c20ad876d1d3ec9e4"/>
- <macro name="Meetpoints" file="Meetpoints.bin" md5="ffeccee8bfbebd44a45abdfe91c3cca1"/>
- <macro name="Member" file="Member.bin" md5="6c29ab2fdbbc61889c95b45d820d317d"/>
- <macro name="Menkakusi" file="Menkakusi.bin" md5="53d3fee4c99b28d7aac10f8114fe2524"/>
- <macro name="Menkakusi2" file="Menkakusi2.bin" md5="eedabe7e3dd93f6af4fe225a6aa4b2ed"/>
- <macro name="Mix" file="Mix.bin" md5="f9f822bf34f04f9dc5401f492b8dc76b"/>
- <macro name="MixL" file="MixL.bin" md5="e80cd4b09be7c0a9b88cfaea7bcf802a"/>
- <macro name="MixS" file="MixS.bin" md5="d60abae70f94ff28b184306e971d1102"/>
- <macro name="Mixadd" file="Mixadd.bin" md5="51da5be70ce2e556dd75d812715faad4"/>
- <macro name="Mixdisp" file="Mixdisp.bin" md5="b2b5187462a54615cca28f272232b61f"/>
- <macro name="Mixjoin" file="Mixjoin.bin" md5="f9df8699f8cb95ca2b657403a94a9d8f"/>
- <macro name="Mixlength" file="Mixlength.bin" md5="ee9cee8e9c916ea42ed8e1e8ad70e321"/>
- <macro name="Mixmake" file="Mixmake.bin" md5="b84d74ef8def9658fa2d8f34cc8424f5"/>
- <macro name="Mixop" file="Mixop.bin" md5="8c5f9a72e8838aa4b9c9f45013000670"/>
- <macro name="Mixsub" file="Mixsub.bin" md5="f2a14687cf8a0c6daaede12d0b730dd5"/>
- <macro name="Mixtype" file="Mixtype.bin" md5="0a0931265b0666b53416685a35897f82"/>
- <macro name="Naigai" file="Naigai.bin" md5="6e97fdbd9f1feabfb09b2247518c4399"/>
- <macro name="Naiseki" file="Naiseki.bin" md5="8f33757e011f07a03a144414296c3190"/>
- <macro name="Nearestpt" file="Nearestpt.bin" md5="7b392fdb66cdafb6ccf4e3f083967ba2"/>
- <macro name="Newlength" file="Newlength.bin" md5="ea7efdb86cdb3345f0b3e43427cb2c48"/>
- <macro name="Nohiddenpara" file="Nohiddenpara.bin" md5="b46886584a10d67fbdb7816c5c739fb8"/>
- <macro name="Nohiddenpara2" file="Nohiddenpara2.bin" md5="be95c5d2791c7b05e25c1def88f2bdc6"/>
- <macro name="Nohiddenpers" file="Nohiddenpers.bin" md5="1e867c6479823f428d90911b099cdbcf"/>
- <macro name="Nohiddenpers2" file="Nohiddenpers2.bin" md5="f96bfe5e316b4b771ab3d26b27b73615"/>
- <macro name="Numptcrv" file="Numptcrv.bin" md5="5bf4461504105054dd993bff3b35f370"/>
- <macro name="Objcurve" file="Objcurve.bin" md5="3f7684be52bce1b1458d378be0849229"/>
- <macro name="Objjoin" file="Objjoin.bin" md5="74a96fb8ed5d88ff1008156f27738f5a"/>
- <macro name="Objname" file="Objname.bin" md5="74d2732da725b97cb3c0eb443a6f5ed9"/>
- <macro name="Objpolygon" file="Objpolygon.bin" md5="56d22a5ae20dcfc9a0cd4b8a440385e6"/>
- <macro name="Objpolyhedron" file="Objpolyhedron.bin" md5="ff92bd278e558ead5df19970d6d01546"/>
- <macro name="Objrecs" file="Objrecs.bin" md5="e8ca7cd5993fb7ce8e5b509dce42e46b"/>
- <macro name="Objsurf" file="Objsurf.bin" md5="f3017f49c709447a7024d16edb01580d"/>
- <macro name="Objsymb" file="Objsymb.bin" md5="ef3fbae27f502a20ff4df575638d4e52"/>
- <macro name="Objthicksurf" file="Objthicksurf.bin" md5="07f9c70cedf719587412c848812c7704"/>
- <macro name="Op" file="Op.bin" md5="cb2e0935be6b77b1c0bc4f2c7071a1cb"/>
- <macro name="Openfile" file="Openfile.bin" md5="bfccc88e9e9abcd83236dd4dd5da2cb4"/>
- <macro name="Openobj" file="Openobj.bin" md5="c60578368dceeb4ab79f74e6de774ffd"/>
- <macro name="Openpar" file="Openpar.bin" md5="39554dc8c76d98179e21e6878af691c5"/>
- <macro name="Openphr" file="Openphr.bin" md5="a086531ca6cf4e112742d5aef90943cf"/>
- <macro name="Openpicture" file="Openpicture.bin" md5="e7b76f0bb2132c86350d0f1293a31069"/>
- <macro name="Ovalbox" file="Ovalbox.bin" md5="d22bdac24b70c1d6b1625dcf3a8ce007"/>
- <macro name="Ovaldata" file="Ovaldata.bin" md5="0facfbd0760cec3d8fa762f7dea098f2"/>
- <macro name="Paramark" file="Paramark.bin" md5="644e9aa93430fd35f3639875d6759584"/>
- <macro name="ParamonCurve" file="ParamonCurve.bin" md5="910c0b77eb025faf243e2d2cb7ebd043"/>
- <macro name="Paramoncrv" file="Paramoncrv.bin" md5="48c6dc127d039740c0a11def8a18fe8a"/>
- <macro name="Paramplot" file="Paramplot.bin" md5="09b2750fc9950bbc258a881a2c12a97b"/>
- <macro name="Parapt" file="Parapt.bin" md5="e130c84b03164202cf8e25ea27558859"/>
- <macro name="Partcrv" file="Partcrv.bin" md5="819797d94d68bf7df7c29b01717525a6"/>
- <macro name="Partcrv3" file="Partcrv3.bin" md5="c87d37f9f00aff9ce05a3a3879c6ea5a"/>
- <macro name="Partframe" file="Partframe.bin" md5="8df2a78e61362e18cf3b71779ffffbd4"/>
- <macro name="PartitionPt" file="PartitionPt.bin" md5="a4afd33aca16e70df0984f7cf05371ce"/>
- <macro name="Partitionseg" file="Partitionseg.bin" md5="c0ce6ccd18ea9794f55a9e6926328ea1"/>
- <macro name="Perspt" file="Perspt.bin" md5="5415e8696ae175005b59936b2e164bac"/>
- <macro name="PhFaceL" file="PhFaceL.bin" md5="b8748ee001a1357e2820b304083ce09e"/>
- <macro name="PhHiddenData" file="PhHiddenData.bin" md5="6a0ab5d6aeb7d4c66b31ab86ac5afdae"/>
- <macro name="PhVertexL" file="PhVertexL.bin" md5="9d7e1d653e88fc9b98f783ec57ebe8ca"/>
- <macro name="Phcutdata" file="Phcutdata.bin" md5="bed83bc88efc277012bab8ba47b9d810"/>
- <macro name="Phcutoffdata" file="Phcutoffdata.bin" md5="2ca3881c7cdfe2fee62aa3e64af34157"/>
- <macro name="Phidegree" file="Phidegree.bin" md5="5d1ac461a2fee60c6c2dda978a262428"/>
- <macro name="Phparadata" file="Phparadata.bin" md5="cbc40d5c2c508a72e51adac3ffecdd4c"/>
- <macro name="Phpersdata" file="Phpersdata.bin" md5="51601f80ae1578cf4aa0d6f244ba5027"/>
- <macro name="Phrawparadata" file="Phrawparadata.bin" md5="371b244204a19e6a12e70773cb118f21"/>
- <macro name="Phrawpersdata" file="Phrawpersdata.bin" md5="f2371fdb24326f6c7a209f9b70d07ce1"/>
- <macro name="Phsparadata" file="Phsparadata.bin" md5="762751108de07b4e5a1e6264e16d487c"/>
- <macro name="Phspersdata" file="Phspersdata.bin" md5="acf5af0f78c134ae893fd057e408dd3e"/>
- <macro name="Phsrawparadata" file="Phsrawparadata.bin" md5="2aebf882e1d6cd11e44cb2815fd186fd"/>
- <macro name="Phsrawpersdata" file="Phsrawpersdata.bin" md5="b90465806262e6016d26450f6654194d"/>
- <macro name="Plotdata" file="Plotdata.bin" md5="676695f9f9b9a91cfea1ee426d7185ce"/>
- <macro name="Pointdata" file="Pointdata.bin" md5="eb131a9f0a6687722dc491cedb732ade"/>
- <macro name="PointonCurve" file="PointonCurve.bin" md5="168183930f3fce712571ad5b737f7004"/>
- <macro name="Pointoncrv" file="Pointoncrv.bin" md5="a0a2cd4d7f51bec560eb26fef054d835"/>
- <macro name="Powersum" file="Powersum.bin" md5="29a72b2125d2f95cfd9bdd742a4e106b"/>
- <macro name="Prime" file="Prime.bin" md5="35045b439a59fabbe9a4127d12706fb6"/>
- <macro name="Printobjstr" file="Printobjstr.bin" md5="2b4d610c4a39dcab5cfb5c93f7dff5ea"/>
- <macro name="ProjCurve" file="ProjCurve.bin" md5="7d548512c30e79cd098aa7b2f96a4ebf"/>
- <macro name="ProjcoordCurve" file="ProjcoordCurve.bin" md5="ddf1fa0e05421feaa482038b26925ab5"/>
- <macro name="Projpara" file="Projpara.bin" md5="98da96de9ea67f2db4111877d7ff785e"/>
- <macro name="Projpers" file="Projpers.bin" md5="7820810b8c0861b22e8dcdc23f1c0864"/>
- <macro name="Ptcrv" file="Ptcrv.bin" md5="d353fd7e1af4fac1533c7e0ddebf996e"/>
- <macro name="Ptend" file="Ptend.bin" md5="5b30f64ef0920f13b540db8eb5f93e5a"/>
- <macro name="PthiddenQ" file="PthiddenQ.bin" md5="c1e31cee1140bf7942b7e1c83514d790"/>
- <macro name="Ptne" file="Ptne.bin" md5="833e0e4b3ced75d740eaaab4c1fc88bd"/>
- <macro name="Ptnw" file="Ptnw.bin" md5="8415bd27db46c35cec56e67d2ca9734f"/>
- <macro name="Ptse" file="Ptse.bin" md5="f5180a6df918355d3a588786e7be8cf4"/>
- <macro name="Ptstart" file="Ptstart.bin" md5="f0e4baaf1f46e6b379571e9414a83812"/>
- <macro name="Ptsw" file="Ptsw.bin" md5="c30adf43aa5f3c9a0961402ab3b8ddc9"/>
- <macro name="Putcell" file="Putcell.bin" md5="da158190a8848db850d3d34a16d36dc8"/>
- <macro name="Putcirmark" file="Putcirmark.bin" md5="9f1b9f829d10c8d29f3c2ea6d316383b"/>
- <macro name="PutcoL" file="PutcoL.bin" md5="d8f49a7b534060301063804207669228"/>
- <macro name="PutcoLexpr" file="PutcoLexpr.bin" md5="d35417b4b818f80c7b96f99118795d48"/>
- <macro name="PutcoLstr" file="PutcoLstr.bin" md5="32c9d7d6751b5c85adca1c384ec98c10"/>
- <macro name="Putdashmark" file="Putdashmark.bin" md5="03b76cd3bbc9e52df76c2be30c42570b"/>
- <macro name="Putrecmark" file="Putrecmark.bin" md5="a5c20a30353d0c79c0dcea3cf39c54e3"/>
- <macro name="Putrow" file="Putrow.bin" md5="0a9adbebc80444ab1495a302265920e6"/>
- <macro name="Putrowexpr" file="Putrowexpr.bin" md5="4a32c3441cd9ad7c23656ab97e65d352"/>
- <macro name="Putrowstr" file="Putrowstr.bin" md5="92ee0311a5e4bb7995a9d44bfbc1460d"/>
- <macro name="Puttrace" file="Puttrace.bin" md5="08b64f48285a49c1cb6138fe1491c8fe"/>
- <macro name="Ratiocmyk" file="Ratiocmyk.bin" md5="54098c052d304f2b329cc4fd2bd23bc1"/>
- <macro name="ReadOutData" file="ReadOutData.bin" md5="0198ca044595d75779d267e425e5380a"/>
- <macro name="ReadfromCindy" file="ReadfromCindy.bin" md5="1fed87229911382502d7e7cfd359f4c1"/>
- <macro name="Readtextdata" file="Readtextdata.bin" md5="4acbbc591808404b6814db3175c2ffed"/>
- <macro name="Reflectdata" file="Reflectdata.bin" md5="51d5020a418590fe64cbf4883da76562"/>
- <macro name="Rmmember" file="Rmmember.bin" md5="31ade9c8802d46438ace1e53bb769b86"/>
- <macro name="Rotate3data" file="Rotate3data.bin" md5="5aaab016d1fed7a61f270e3b4ad84316"/>
- <macro name="Rotate3pt" file="Rotate3pt.bin" md5="7feea2dd66e7a02b96c384011d818a0e"/>
- <macro name="Rotatedata" file="Rotatedata.bin" md5="f7c7aa1bd5b2d2d99b66bb3bd711de19"/>
- <macro name="Roundstr" file="Roundstr.bin" md5="dd261bcd78d1110bfd9fd775efcf5a4e"/>
- <macro name="Scaledata" file="Scaledata.bin" md5="fac166fc1de490a64dd7f7a8f46164a9"/>
- <macro name="Sectionview" file="Sectionview.bin" md5="db370ec400c90c7865f7c626572e39f7"/>
- <macro name="Setangle" file="Setangle.bin" md5="57190782b3c5c0ace7f2adecb18e4aed"/>
- <macro name="Setarrow" file="Setarrow.bin" md5="e7baa60ca4f593de15c7cb8b56be800a"/>
- <macro name="Setax" file="Setax.bin" md5="ef281e109b01e3b65d1842e0d2a03873"/>
- <macro name="Setcolor" file="Setcolor.bin" md5="b0adb12d43ae4da2815331389b85f944"/>
- <macro name="Setcounter" file="Setcounter.bin" md5="e38d212ffa114288c73ccdb613c9cb9d"/>
- <macro name="Setmark" file="Setmark.bin" md5="d4cb68ac16edcd28a86ba2a0563b9597"/>
- <macro name="Setmarklen" file="Setmarklen.bin" md5="ec3870c326393f15a29d77cf476618cf"/>
- <macro name="Setobjdecimals" file="Setobjdecimals.bin" md5="823bc64fbdda67813d1e3c3bf592a0e3"/>
- <macro name="Setobjscale" file="Setobjscale.bin" md5="a2cdb49a13b0dc89328a7194f34eeeab"/>
- <macro name="Setorigin" file="Setorigin.bin" md5="fe236fa677bab1dd24e53cfc28022826"/>
- <macro name="Setpen" file="Setpen.bin" md5="31370146f7f7aac59de13ffbc2c0172d"/>
- <macro name="Setpers" file="Setpers.bin" md5="830fe8254a07765e703077b456353070"/>
- <macro name="Setpt" file="Setpt.bin" md5="cbfbda69ce4184fc0ad59bfbe01943a6"/>
- <macro name="Setscaling" file="Setscaling.bin" md5="263333f56ad33907534fdb460e54da9b"/>
- <macro name="SetstereoL" file="SetstereoL.bin" md5="2711aa6a1541336aec852ac1437155ac"/>
- <macro name="SetstereoR" file="SetstereoR.bin" md5="bd74d871d1bc79ed8c01a13a569eb7bb"/>
- <macro name="Setunitlen" file="Setunitlen.bin" md5="1e245724b987e84c413bf37a30bb5dd3"/>
- <macro name="Setversion" file="Setversion.bin" md5="d6dbab1ce7bb18b2c773bae647e4ac5d"/>
- <macro name="Setwindow" file="Setwindow.bin" md5="e781a89da1ce77fbc46f713553523c51"/>
- <macro name="Sf3data" file="Sf3data.bin" md5="095b6c0f2bf25f7b9ed5f5d8d3a8915d"/>
- <macro name="Sfbdparadata" file="Sfbdparadata.bin" md5="f9c0c54671a68458f4bcb1936fa402ec"/>
- <macro name="Sfbdpersdata" file="Sfbdpersdata.bin" md5="aa08f921566b64c11e888ee34429eca5"/>
- <macro name="Sfbdrawparadata" file="Sfbdrawparadata.bin" md5="fae8431fd5fe5ead8ff2f85d45e144c1"/>
- <macro name="Sfbdrawpersdata" file="Sfbdrawpersdata.bin" md5="1cafbda088573fad0d85f2bb2a165178"/>
- <macro name="Sfcutdata" file="Sfcutdata.bin" md5="4dff7dff641c5e51588e8f27c2068396"/>
- <macro name="Sfcutoffparadata" file="Sfcutoffparadata.bin" md5="d5089ce276ce8329a5e25772eda825ad"/>
- <macro name="Sfcutoffpersdata" file="Sfcutoffpersdata.bin" md5="8f232600533c8c553d279fb7999a9aef"/>
- <macro name="Sfcutoffrawparadata" file="Sfcutoffrawparadata.bin" md5="b530fdec88ecac05548dcbc183fac672"/>
- <macro name="Sfcutoffrawpersdata" file="Sfcutoffrawpersdata.bin" md5="c7dc8aec4aedc1a9e3b88a423b4e4091"/>
- <macro name="Sfparadata" file="Sfparadata.bin" md5="636205ff5e7fa28c188beb8a788ec30f"/>
- <macro name="Sfpersdata" file="Sfpersdata.bin" md5="2c198aaa68180b41eb0dd81812668a52"/>
- <macro name="Shade" file="Shade.bin" md5="09675938f324e2c22fe2b6e5dd0db554"/>
- <macro name="Skeleton2data" file="Skeleton2data.bin" md5="046308bb7c2d18186a5db1abf5724ace"/>
- <macro name="Skeletonpara3data" file="Skeletonpara3data.bin" md5="8b00d1898174de20f097983ad72f96d9"/>
- <macro name="Skeletonparadata" file="Skeletonparadata.bin" md5="6368394d29bd3e34c9dadbc54dd49755"/>
- <macro name="Skeletonpers3data" file="Skeletonpers3data.bin" md5="62a627cd77291d934150cbe175d9ec06"/>
- <macro name="Skeletonpersdata" file="Skeletonpersdata.bin" md5="63663e9c381325970209a62a00877361"/>
- <macro name="Spacecurve" file="Spacecurve.bin" md5="e06c5eb2ae8623cee4fe135d6ed8d2a5"/>
- <macro name="Spaceline" file="Spaceline.bin" md5="bcdf09d58fde1a3071968c7600cbcadc"/>
- <macro name="Splinedata" file="Splinedata.bin" md5="c8cac41f49166b548f6bb20eb765f513"/>
- <macro name="Strop" file="Strop.bin" md5="b3e20bfeaaf10aa827ec9be26865547b"/>
- <macro name="Subs" file="Subs.bin" md5="daa0438a2d34af2d043c50b3d2a00a01"/>
- <macro name="Sumfun" file="Sumfun.bin" md5="0a785d3c30c763778e1f92d3b8fb785e"/>
- <macro name="Symb3data" file="Symb3data.bin" md5="ba72252ea118f44b847927d0de9b9892"/>
- <macro name="Symbdata" file="Symbdata.bin" md5="53c196c0ca5f9026e4cd441e0d6586ed"/>
- <macro name="Tabledata" file="Tabledata.bin" md5="b79bdcd7c171ab768e763d26d9b4f6a1"/>
- <macro name="Texcom" file="Texcom.bin" md5="dc0139e9541acb939d1c3839a0fc11f6"/>
- <macro name="Texctr" file="Texctr.bin" md5="5f23e09b23191bec07cb10b070d5c66b"/>
- <macro name="Texelse" file="Texelse.bin" md5="f8b67c8497e8dd9ac1dbcc5a90fc930c"/>
- <macro name="Texend" file="Texend.bin" md5="351105e6dd3c5c171f0944030fba69c4"/>
- <macro name="Texendfor" file="Texendfor.bin" md5="7d1005515ed98a776c7c9a00a2a970d8"/>
- <macro name="Texendif" file="Texendif.bin" md5="6323c9cf98ac4c1d6e01bef2dadc6614"/>
- <macro name="Texfor" file="Texfor.bin" md5="0ade87f95e63dadbdbfe35efbca00e86"/>
- <macro name="Texforinit" file="Texforinit.bin" md5="6e96556a978535b632dba9e33b9551b3"/>
- <macro name="Texif" file="Texif.bin" md5="db3af265fced379c5bc2a35dcd661aef"/>
- <macro name="Texletter" file="Texletter.bin" md5="7a7ebe58bae97a3a17d646d1c7a9e1da"/>
- <macro name="Texnewcmd" file="Texnewcmd.bin" md5="b4f314f440314e77d8c93385172eb5e1"/>
- <macro name="Texnewctr" file="Texnewctr.bin" md5="86756d50c10bcf8359c1a924e6e1004d"/>
- <macro name="Texrenewcmd" file="Texrenewcmd.bin" md5="90e63f10dd735a7263da2cb8661692c7"/>
- <macro name="Texsetctr" file="Texsetctr.bin" md5="8d9cd50bcb9304e25e27ac7818c9b047"/>
- <macro name="Texthectr" file="Texthectr.bin" md5="b74d5106ff432a8c84dfd3e8baf9402f"/>
- <macro name="Texvalctr" file="Texvalctr.bin" md5="6a789e4941c736527f57d75d1ba26123"/>
- <macro name="Texvctr" file="Texvctr.bin" md5="05e1f689e4002ca0b53c1b7674d814e0"/>
- <macro name="Thetadegree" file="Thetadegree.bin" md5="0ff4846aaeb83b20683ec4d4b60ed98f"/>
- <macro name="ThisVersion" file="ThisVersion.bin" md5="5d9fc94c56eb694d62a16b1f7a6a9d04"/>
- <macro name="Tolist" file="Tolist.bin" md5="65c83ab06c83674c70f46e0f402d3580"/>
- <macro name="Translate3data" file="Translate3data.bin" md5="38c5bcaf8d3659c75cd7cf335d26196b"/>
- <macro name="Translatedata" file="Translatedata.bin" md5="17b85cc7ed17d1f260cf758ead8dc0ab"/>
- <macro name="Trunc" file="Trunc.bin" md5="7a6a605bcba822854e4c917fe41db659"/>
- <macro name="Unscaling" file="Unscaling.bin" md5="08ee317471c47d086c9404e47955b17b"/>
- <macro name="Vecnagasa" file="Vecnagasa.bin" md5="aaeae5f1a186bba7b2c357a2c77ce2a1"/>
- <macro name="Vecnagasa2" file="Vecnagasa2.bin" md5="41c4c41904d6b87a9844d20fd860a6cb"/>
- <macro name="Viewfrom" file="Viewfrom.bin" md5="fe4685d5db0abf45a31b2b643b20c23f"/>
- <macro name="Vtickmark" file="Vtickmark.bin" md5="375b4bc294d26ab3b7d30f8fbd4bfad7"/>
- <macro name="Windisp" file="Windisp.bin" md5="1e48a32bf2ea244b701fb5bb63ea18f4"/>
- <macro name="WireHiddenData" file="WireHiddenData.bin" md5="7fb2be220f2c6dfefea57e5a9acf9145"/>
- <macro name="WirePt" file="WirePt.bin" md5="0936e8dd2f3ca890efaf0b274aa64d96"/>
- <macro name="Wireparadata" file="Wireparadata.bin" md5="60a5c112230c8cb7ebd803304b1b17b7"/>
- <macro name="Wirepersdata" file="Wirepersdata.bin" md5="b2696b1685c9456c6857fbdd1424256a"/>
- <macro name="Wirerawparadata" file="Wirerawparadata.bin" md5="e770b9a2bce4c8804fc62a5191be1545"/>
- <macro name="Wirerawpersdata" file="Wirerawpersdata.bin" md5="f254f9cad0b02b01e7388fbbb433bcc4"/>
- <macro name="WriteOutData" file="WriteOutData.bin" md5="55682f0605917544dd41d2c25f24786c"/>
- <macro name="Writeobjpoint" file="Writeobjpoint.bin" md5="24c598f95cc38899d5cf5d3048a9e263"/>
- <macro name="Writetextdata" file="Writetextdata.bin" md5="b1da333518052fedb658e0827833a54f"/>
- <macro name="WritetoCindy" file="WritetoCindy.bin" md5="c8a05614d69d73bd4aa3c562cf479872"/>
- <macro name="Xmax" file="Xmax.bin" md5="87038803908d553ab8de412b410887dd"/>
- <macro name="Xmin" file="Xmin.bin" md5="eae15ed2438d2805a6ad488cf22b75e8"/>
- <macro name="Xyzax3data" file="Xyzax3data.bin" md5="633e040e19b435e55bb66dbc4f231117"/>
- <macro name="Xyzaxparaname" file="Xyzaxparaname.bin" md5="8fa701d6b92b478a97ed8b4e263c9a18"/>
- <macro name="Xyzaxpersname" file="Xyzaxpersname.bin" md5="1e9573e9452267842a7907f30661e902"/>
- <macro name="Ymax" file="Ymax.bin" md5="4ab8eccdba393b4c41a45d38f97faf88"/>
- <macro name="Ymin" file="Ymin.bin" md5="5dedfdfc18e01299ea069b578be8b697"/>
- <macro name="Zparapt" file="Zparapt.bin" md5="e16dd6e761c2e8ec7eb31da49d7a3b96"/>
- <macro name="Zperspt" file="Zperspt.bin" md5="b04d5677e9ee74a1cbff3ad73c9d2a20"/>
-</scilablib>
diff --git a/texmf-dist/scripts/ketpic/ketlib/maximaL/fourier_sec.max b/texmf-dist/scripts/ketpic/ketlib/maximaL/fourier_sec.max
deleted file mode 100644
index c70f7f46..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/maximaL/fourier_sec.max
+++ /dev/null
@@ -1,260 +0,0 @@
-/*
-Package fourier_sec, to study piecewise defined functions
-(sectionally defined, hence the name).
-
-Author: Jose A. Vallejo
- Faculty of Sciences
- Universidad Autonoma de San Luis Potosi (Mexico)
- http://galia.fc.uaslp.mx/~jvallejo
-
-It is assumed that the functions are defined using the format
- if ... then ... else ...
-as, for example,
-(%i1) absolute(x):=if (x<=0) then -x elseif (x>0) then x$
-(it will not work with 'abs').
-It provides three functions:
-1. 'paritycheck', to check if a given piecewise defined
- function is even or odd (or none). For instance,
- (%i2) paritycheck(absolute(x),x);
- (%o2) 0
- A '0' means 'even', '1' is 'odd', and '-1' is 'none'
-2. 'fourier_sec_coeff', to compute the Fourier sine and cosine
- coefficients. The function must have compact support.For
- instance, for the unit step we have:
- (%i3) h(x):=if (-%pi<=x and x<0) then 0 elseif (0<=x and x<=%pi) then 1$
- (%i4) fourier_sec_coeff(h(x),x);
- (%o4) [1/2,0,-((-1)^n-1)/(%pi*n)]
-3. 'fourier_sec_series', to compute the Fourier series, truncated
- or not. The series for the unit step to the 10th order:
- (%i5) fourier_sec_series(h(x),x,10);
- (%o5) (2*sin(9*x))/(9*%pi)+(2*sin(7*x))/(7*%pi)+(2*sin(5*x))/(5*%pi)+(2*sin(3*x))/(3*%pi)+(2*sin(x))/%pi+1/2
- and the whole Fourier series
- (%i6) fourier_sec_series(h(x),x,inf);
- (%o6) (sum(((1/n-(-1)^n/n)*sin(n*x))/%pi,n,1,inf))+1/2
-*/
-
-
-load(fourie)$
-
-load(simplify_sum)$
-
-paritycheck(funvar,x):=block([subintervals,subvalues,tmp1,tmp2,token1,token0,tmp3,
- subvalues_list,subintervals_list,icentral:0,middle,minusmiddle,token2,
- side_subintervals_list,L,side_subvalues_list,
- zero_subintervals,tmp4,tmp5,non_zero_side_subvalues_list,
- non_zero_side_subintervals_list,LL,token3,expr1,expr2],
- local(M,N,P,Q,count1,count2,count3,count4),
- subintervals:makelist(part(funvar,i),i,makelist(2*k-1,k,1,(length(funvar)-2)/2)),
- subvalues:makelist(part(funvar,i),i,makelist(2*k,k,1,(length(funvar)-2)/2)),
- for j:1 thru length(subintervals) do (if operatorp(subintervals[j],["<",">","<=",">="]) then tmp1[j]:1 else tmp1[j]:0),
- tmp1:makelist(tmp1[j],j,1,length(subintervals)),
- tmp2:sublist_indices(tmp1,lambda([x],x=1)),
-
- /* if length(tmp2)=0 all the subintervals in the domain of funvar are bounded! */
-
- if is(equal(length(tmp2),0)) then
- (
- subvalues_list:copylist(subvalues),
- tmp3:copylist(subintervals),
- for j:1 thru length(tmp3) do
- (
- M[j]:makelist(part(tmp3[j],k),k,1,length(tmp3[j])),
- for m:1 thru 2 do N[j,m]:makelist(part(M[j],m,n),n,1,length(M[j])),
- P[j]:append(N[j,1],N[j,2]),Q[j]:sort(delete(x,P[j]),"<")
- ),
- subintervals_list:makelist(Q[j],j,1,length(tmp3)),
- for i:1 thru length(subintervals_list) do (if is(lmin(subintervals_list[i])*lmax(subintervals_list[i])<0) then icentral:i),
- if is(icentral>0) then middle:subvalues_list[icentral],
- if is(icentral>0) then
- (if evenfunp(middle,x) then token2:0 elseif oddfunp(middle,x) then token2:1 else return(-1))
- else
-
- /* now we analyze what happens if icentral=0, so there are only side intervals */
-
- (
- /* as before, there must be an even number of symmetric intervals, otherwise -1 */
- side_subintervals_list:copylist(subintervals_list),
- if not(evenp(length(side_subintervals_list))) then return(-1),
- L:length(side_subintervals_list)/2,
- for k:1 thru L do count1[k]:charfun(is(equal(side_subintervals_list[k],reverse(map("-",side_subintervals_list[2*L+1-k]))))),
- if sum(count1[j],j,1,L)#L then return(-1),
- side_subvalues_list:copylist(subvalues_list),
- for k:1 thru L do count2[k]:charfun(is(equalp(side_subvalues_list[k],ratsubst(-x,x,side_subvalues_list[2*L+1-k])))),
- if is(equal(sum(count2[j],j,1,L),L)) then token3:0,
- for k:1 thru L do count3[k]:charfun(is(equalp(side_subvalues_list[k],-ratsubst(-x,x,side_subvalues_list[2*L+1-k])))),
- if is(equal(sum(count3[j],j,1,L),L)) then token3:1,
- if is(not(equalp(token3,0)) and not(equalp(token3,1))) then return(-1) ,
- return(token3)
- ),
-
- /* and what happens if icentral#0 */
-
- side_subintervals_list:delete(subintervals_list[icentral],subintervals_list),
- if is(equal(length(side_subintervals_list),0)) then (if is(equal(token1,token2)) then return(token1*token2) else return(-1)),
- if not(evenp(length(side_subintervals_list))) then return(-1),
- L:length(side_subintervals_list)/2,
- for k:1 thru L do count1[k]:charfun(is(equal(side_subintervals_list[k],reverse(map("-",side_subintervals_list[2*L+1-k]))))),
- if sum(count1[j],j,1,L)#L then return(-1),
- side_subvalues_list:delete(subvalues_list[icentral],subvalues_list),
-
- /* remove those subintervals in which funvar vanishes */
-
- zero_subintervals:sublist_indices(side_subvalues_list,lambda([x],x=0)),
- tmp4:copylist(side_subintervals_list),
- for j:1 thru length(zero_subintervals) do
- (tmp4:delete(side_subintervals_list[zero_subintervals[j]],tmp4)),
- non_zero_side_subintervals_list:tmp4,
- tmp5:copylist(side_subvalues_list),
- for j:1 thru length(zero_subintervals) do
- (tmp5:delete(side_subvalues_list[zero_subintervals[j]],tmp5)),
- non_zero_side_subvalues_list:tmp5,
-
- /* if length(non_zero_side_subintervals_list)=0 then we are done just with token2 */
-
- if is(equal(length(non_zero_side_subintervals_list),0)) then return(token2),
-
- /* otherwise, we must also take into account token3 */
- LL:length(non_zero_side_subintervals_list)/2,
- for k:1 thru LL do count2[k]:charfun(is(equalp(non_zero_side_subvalues_list[k],ratsubst(-x,x,non_zero_side_subvalues_list[2*LL+1-k])))),
- if is(equal(sum(count2[j],j,1,LL),LL)) then token3:0,
- for k:1 thru LL do count3[k]:charfun(is(equalp(non_zero_side_subvalues_list[k],-ratsubst(-x,x,non_zero_side_subvalues_list[2*LL+1-k])))),
- if is(equal(sum(count3[j],j,1,LL),LL)) then token3:1,
- if is(not(equal(token3,0) or equal(token3,1))) then return(-1) elseif
- is(token2#token3) then return(-1)
- elseif is(equal(token2,0)) then return(0)
- elseif is(equal(token2,1)) then return(1)
-
- ),
-
- /* we continue here with unbounded intervals */
-
- expr1:subvalues[tmp2[1]],
- expr2:ratsubst(-x,x,subvalues[tmp2[2]]),
- if is(equalp(expr1,expr2)) then token1:0
- elseif is(equalp(expr1,-expr2)) then token1:1
- else return(-1),
-
- /* the problem when defining token1 is that if the asymptotic value is 0, then it is always token1:0 */
- /* although the function could be odd. To cope with this, we define token0 below */
-
- tmp3:makelist(subintervals[i],i,sublist_indices(tmp1,lambda([x],x=0))),
- if is(equal(length(tmp3),0)) then return(token1),
- subvalues_list:makelist(subvalues[i],i,sublist_indices(tmp1,lambda([x],x=0))),
- token0:if member(0,makelist(subvalues[i],i,tmp2)) then 0 else 7,
- for j:1 thru length(tmp3) do
- (
- M[j]:makelist(part(tmp3[j],k),k,1,length(tmp3[j])),
- for m:1 thru 2 do N[j,m]:makelist(part(M[j],m,n),n,1,length(M[j])),
- P[j]:append(N[j,1],N[j,2]),Q[j]:sort(delete(x,P[j]),"<")
- ),
- subintervals_list:makelist(Q[j],j,1,length(tmp3)),
- for i:1 thru length(subintervals_list) do (if is(lmin(subintervals_list[i])*lmax(subintervals_list[i])<0) then icentral:i),
- if is(icentral>0) then middle:subvalues_list[icentral],
- if is(icentral>0) then
- (if evenfunp(middle,x) then token2:0 elseif oddfunp(middle,x) then token2:1 else return(-1))
- else
-
- /* now we analyze what happens if icentral=0, so there are only non-bounded intervals and side intervals */
-
- (
- /* as before, there must be an even number of symmetric intervals, otherwise -1 */
- side_subintervals_list:copylist(subintervals_list),
- if not(evenp(length(side_subintervals_list))) then return(-1),
- L:length(side_subintervals_list)/2,
- for k:1 thru L do count1[k]:charfun(is(equal(side_subintervals_list[k],reverse(map("-",side_subintervals_list[2*L+1-k]))))),
- if sum(count1[j],j,1,L)#L then return(-1),
- side_subvalues_list:copylist(subvalues_list),
- for k:1 thru L do count2[k]:charfun(is(equalp(side_subvalues_list[k],ratsubst(-x,x,side_subvalues_list[2*L+1-k])))),
- if is(equal(sum(count2[j],j,1,L),L)) then token3:0,
- for k:1 thru L do count3[k]:charfun(is(equalp(side_subvalues_list[k],-ratsubst(-x,x,side_subvalues_list[2*L+1-k])))),
- if is(equal(sum(count3[j],j,1,L),L)) then token3:1,
- if is(not(equal(token3,0)) and not(equal(token3,1))) then return(-1) elseif
- is(not(equal(token1,token3)) and not(equal(token0,0))) then return(-1)
- elseif is( equal(token0,0) and equal(token3,0)) then return(0)
- elseif is( equal(token0,0) and equal(token3,1)) then return(1)
- elseif is(not(equal(token0,0)) and equal(token1,token3)) then return(token3)
- elseif is(not(equal(token0,0)) and not(equal(token1,token3))) then return(-1)
- ),
-
- /* and what happens if icentral#0 */
-
- side_subintervals_list:delete(subintervals_list[icentral],subintervals_list),
- if is(equal(length(side_subintervals_list),0)) then (if is(equal(token1,token2)) then return(token1*token2) else return(-1)),
- if not(evenp(length(side_subintervals_list))) then return(-1),
- L:length(side_subintervals_list)/2,
- for k:1 thru L do count1[k]:charfun(is(equal(side_subintervals_list[k],reverse(map("-",side_subintervals_list[2*L+1-k]))))),
- if sum(count1[j],j,1,L)#L then return(-1),
- side_subvalues_list:delete(subvalues_list[icentral],subvalues_list),
-
- /* remove those subintervals in which funvar vanishes */
-
- zero_subintervals:sublist_indices(side_subvalues_list,lambda([x],x=0)),
- tmp4:copylist(side_subintervals_list),
- for j:1 thru length(zero_subintervals) do
- (tmp4:delete(side_subintervals_list[zero_subintervals[j]],tmp4)),
- non_zero_side_subintervals_list:tmp4,
- tmp5:copylist(side_subvalues_list),
- for j:1 thru length(zero_subintervals) do
- (tmp5:delete(side_subvalues_list[zero_subintervals[j]],tmp5)),
- non_zero_side_subvalues_list:tmp5,
-
- /* if length(non_zero_side_subintervals_list)=0 then we are done just with token1 and token2 */
-
- if is(equal(length(non_zero_side_subintervals_list),0)) then (if is(equal(token1,token2)) then return(token1*token2) else return(-1)),
-
- /* otherwise, we must also take into account token3 */
- LL:length(non_zero_side_subintervals_list)/2,
- for k:1 thru LL do count2[k]:charfun(is(equalp(non_zero_side_subvalues_list[k],ratsubst(-x,x,non_zero_side_subvalues_list[2*LL+1-k])))),
- if is(equal(sum(count2[j],j,1,LL),LL)) then token3:0,
- for k:1 thru LL do count3[k]:charfun(is(equalp(non_zero_side_subvalues_list[k],-ratsubst(-x,x,non_zero_side_subvalues_list[2*LL+1-k])))),
- if is(equal(sum(count3[j],j,1,LL),LL)) then token3:1,
- if is(not(equal(token0,0)) and is(not(equal(token1,token2)) or not(equal(token1,token3)) or not(equal(token2,token3))) ) then return(-1)
- elseif is(not(equal(token0,0)) and is(equal(token1,0)) ) then return(0)
- elseif is(not(equal(token0,0)) and is(equal(token1,1)) ) then return(1)
- elseif is( equal(token0,0) and equal(token3,0) and equal(token2,0)) then return(0)
- elseif is( equal(token0,0) and equal(token3,1) and equal(token2,1)) then return(1)
- else return(-1)
-
-)$
-
-fourier_sec_coeff(fuvar,x):=
-block([pp,LL,lm,a0,coeff],
- local(a,b,n,MM,NN,PP,QQ),
- declare(n,integer),
- pp:((length(fuvar)/2)-1),
- LL:makelist(part(fuvar,i),i,makelist(2*s-1,s,1,pp)),
- for j:1 thru length(LL) step 1 do
- (
- MM[j]:makelist(part(LL[j],r),r,1,length(LL[j])),
- for r:1 thru 2 do NN(j,r):=makelist(part(MM[j],r,k),k,1,length(MM[j])),
- PP[j]:append(NN(j,1),NN(j,2)),QQ[j]:delete(x,PP[j])
- ),
- for i:1 thru pp step 1 do partsums[i]:sort(QQ[i],"<"),
- for i:1 thru pp step 1 do partfunc[i]:part(fuvar,2*i),
- lm:lmax(unique(flatten(makelist(QQ[q],q,1,length(LL))))),
- a0:(1/(2*lm))*sum(integrate(partfunc[i],x,partsums[i][1],partsums[i][2]),i,1,pp),
- if is(equal(paritycheck(fuvar,x),1)) then a(n):=0 else a(n):=(1/lm)*sum(adefint(partfunc[i]*cos(%pi*n*x/lm),x,partsums[i][1],partsums[i][2]),i,1,pp),
- if is(equal(paritycheck(fuvar,x),0)) then b(n):=0 else b(n):=(1/lm)*sum(adefint(partfunc[i]*sin(%pi*n*x/lm),x,partsums[i][1],partsums[i][2]),i,1,pp),
- coeff:[a0,simplify_sum(a(n)),simplify_sum(b(n))],
- factor(ratsimp(coeff))
-)$
-
-fourier_sec_series(fuvar,x,u):=
-block([pp,LL,lm,a0,coeff],
- local(a,b,n,MM,NN,PP,QQ),
- declare(n,integer),
- pp:((length(fuvar)/2)-1),
- LL:makelist(part(fuvar,i),i,makelist(2*s-1,s,1,pp)),
- for j:1 thru length(LL) step 1 do
- (
- MM[j]:makelist(part(LL[j],r),r,1,length(LL[j])),
- for r:1 thru 2 do NN(j,r):=makelist(part(MM[j],r,k),k,1,length(MM[j])),
- PP[j]:append(NN(j,1),NN(j,2)),QQ[j]:delete(x,PP[j])
- ),
- for i:1 thru pp step 1 do partsums[i]:sort(QQ[i],"<"),
- for i:1 thru pp step 1 do partfunc[i]:part(fuvar,2*i),
- lm:lmax(unique(flatten(makelist(QQ[q],q,1,length(LL))))),
- a0:(1/(2*lm))*sum(integrate(partfunc[i],x,partsums[i][1],partsums[i][2]),i,1,pp),
- if is(equal(paritycheck(fuvar,x),1)) then a(n):=0 else a(n):=(1/lm)*sum(adefint(partfunc[i]*cos(%pi*n*x/lm),x,partsums[i][1],partsums[i][2]),i,1,pp),
- if is(equal(paritycheck(fuvar,x),0)) then b(n):=0 else b(n):=(1/lm)*sum(adefint(partfunc[i]*sin(%pi*n*x/lm),x,partsums[i][1],partsums[i][2]),i,1,pp),
- a0+intosum(sum(a(n)*cos(%pi*n*x/lm),n,1,u))+intosum(sum(b(n)*sin(%pi*n*x/lm),n,1,u)))$ \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/maximaL/matoperation.max b/texmf-dist/scripts/ketpic/ketlib/maximaL/matoperation.max
deleted file mode 100644
index 512a9ffb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/maximaL/matoperation.max
+++ /dev/null
@@ -1,47 +0,0 @@
-/* Maxima tips http://www.cymric.jp/maxima/tips.html */
-
-rowmult(X, n, c) := block([M],
- M:matrix(),
- for i:1 thru length(X) do
- if i=n then M:addrow(M, c*row(X, i))
- else M:addrow(M, row(X, i)),
- M
-);
-rowadd(X, n, m, c) := block([M],
- M:matrix(),
- for i:1 thru length(X) do
- if i=n then M:addrow(M, c * row(X, m) + row(X, i))
- else M:addrow(M, row(X, i)),
- M
-);
-rowch(X, m, n) := block([M],
- M:matrix(),
- for i:1 thru length(X) do
- if i=m then M:addrow(M, row(X, n))
- else if i=n then M:addrow(M, row(X, m))
- else M:addrow(M, row(X, i)),
- M
-);
-
-colmult(X, n, c) := block([M],
- M:matrix(),
- for i:1 thru length(transpose(X)) do
- if i=n then M:addcol(M, c*col(X, i))
- else M:addcol(M, col(X, i)),
- M
-);
-coladd(X, n, m, c) := block([M],
- M:matrix(),
- for i:1 thru length(transpose(X)) do
- if i=n then M:addcol(M, c * col(X, m) + col(X, i))
- else M:addcol(M, col(X, i)),
- M
-);
-colch(X, m, n) := block([M],
- M:matrix(),
- for i:1 thru length(transpose(X)) do
- if i=m then M:addcol(M, col(X, n))
- else if i=n then M:addcol(M, col(X, m))
- else M:addcol(M, col(X, i)),
- M
-);
diff --git a/texmf-dist/scripts/ketpic/ketlib/maximaL/poincare.mac b/texmf-dist/scripts/ketpic/ketlib/maximaL/poincare.mac
deleted file mode 100644
index aefab3a2..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/maximaL/poincare.mac
+++ /dev/null
@@ -1,71 +0,0 @@
-/* Poincare.mac is a set of routines for the computation
-of Poincare surfaces of sections of Hamiltonian systems */
-
-/* Author: Jose A Vallejo
-Universidad Autonoma de San Luis Potosi (Mexico)
-josanv@gmail.com */
-
-/* To avoid messages when loading draw, execute
-with_stdout("/dev/null",load(draw))$ (in Linux)
-with_stdout("NUL",load(draw))$ (in Windows) */
-
-/* Poincare.mac requires a compiled version of
-rkfun.lisp, a LISP implementation of the RK4
-algorithm due to Richard Fateman. The original
-code can be downloaded from
-https://people.eecs.berkeley.edu/~fateman/lisp/rkfun.lisp */
-
-/*load("rkfun.fasl");*/
-/*load("rkfun.lisp");*/
-
-
-hameqs(H,name):=block(
-[vv,t,tvv,n,Q,P,eqq,eqp,eqs],
-vv:args(lhs(apply(fundef,[H]))),
-tvv:cons(t,vv),
-n:length(vv)/2,
-Q:makelist(vv[2*j-1],j,1,n),
-P:makelist(vv[2*k],k,1,n),
-eqq:makelist(float(diff(apply(H,vv),P[j])),j,1,n),
-eqp:makelist(float(-diff(apply(H,vv),Q[j])),j,1,n),
-eqs:join(eqq,eqp),
-for j:1 thru 2*n do define(funmake(concat(name,j),tvv),block([],mode_identity(float,vv),eqs[j])),
-apply(compile,makelist(concat(name,j),j,1,2*n)),
-[makelist(apply(concat(name,j),tvv),j,1,2*n),vv,makelist(concat(name,j),j,1,2*n)]
-)$
-
-lextract(ll,n):=block([l,a,b],
-l:length(ll),
-a:rest(ll,n),
-b:rest(ll,n-l-1),
-append(b,a)
-)$
-
-poincare3d(H,name,inicond,timestep,coord):=block(
-[heq,vars,tvars,hfuns,c,sol],
-heq:hameqs(H,name),
-vars:heq[2],
-tvars:cons(t,vars),
-hfuns:heq[3],
-c:first(sublist_indices(vars,lambda([x],x=coord))),
-sol:rkfun(hfuns,tvars,float(inicond),timestep),
-map(lambda([x],lextract(x,c)),map(lambda([x],rest(x)),sol))
-)$
-
-poincare2d(H,name,inicond,timestep,scene):=block(
-[heq,vars,tvars,hfuns,solu,c,soluc,sola,solb,subind,sol,e,f],
-heq:hameqs(H,name),
-vars:heq[2],
-tvars:cons(t,vars),
-hfuns:heq[3],
-solu:rkfun(hfuns,tvars,float(inicond),timestep),
-c:first(sublist_indices(vars,lambda([x],x=first(scene)))),
-soluc:map(lambda([x],x[c+1]),solu),
-sola:rest(soluc,-1)-second(scene),
-solb:rest(soluc)-second(scene),
-subind:sublist_indices(sola*solb,lambda([x],is(x < 0))),
-sol:makelist(solu[k],k,subind),
-e:first(sublist_indices(vars,lambda([x],x=third(scene))))+1,
-f:first(sublist_indices(vars,lambda([x],x=fourth(scene))))+1,
-makelist([j[e],j[f]],j,sol)
-)$ \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/maximaL/rkfun.lisp b/texmf-dist/scripts/ketpic/ketlib/maximaL/rkfun.lisp
deleted file mode 100644
index 70aafc7f..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/maximaL/rkfun.lisp
+++ /dev/null
@@ -1,99 +0,0 @@
-;; variation on runge-kutta (rk) routine in complex_dynamics.lisp by villate@fe.up.pt
-;; this one with changed by fateman@berkeley.edu
-
-#| rkfun may be much faster than rk because it calls compiled programs.
- rkfun (this file) should also be compiled to speed it up.
- how to use:
-
-
- first, read and understand the documentation for rk().
- next, define the ODE right hand sides as functions as shown below
-
-fun1(y,x,x0):= x0$
-fun2(y,x,x0):= block([], mode_declare([y, x0,x],float),(1-x^2)*x0-x);
-compile(fun1)$
-compile(fun2)$
-showtime:all$
-
-last(rkfun([fun1,fun2],[x,xdot],[0.0,0.6],[t,0,50,0.01]));
-
-/* which is, in one test, 18 times faster than */
-
-last(rk([xdot,(1-x^2)*xdot -x],[x,xdot],[0.0,0.6],[t,0,50,0.01]));
-
-|#
-
-(defun $rkfun (funs vars initial domain ;; taken from complex_dynamics.lisp
- &aux d u funlist k1 k2 k3 k4 r1 r2 r3 traj r
- (it (mapcar #'coerce-float (cddr domain))))
- (unless ($listp funs) (setq funs `((mlist) ,funs)))
- (unless ($listp initial) (setq initial `((mlist) ,initial)))
- (unless ($listp vars) (setq vars `((mlist) ,vars)))
- (dolist (var (cdr vars))
- (unless (symbolp var)
- (merror (intl:gettext "rk: variable name expected; found: ~M") var)))
- (unless (symbolp (cadr domain))
- (merror (intl:gettext "rk: variable name expected; found: ~M")
- (cadr domain)))
- (setq vars (append '((mlist)) (list (cadr domain)) (cdr vars)))
- (setq r (append `(,(car it)) (mapcar #'coerce-float (cdr initial))))
- (setq funlist (cdr funs))
-
- (setq d (/ (- (cadr it) (car it)) (caddr it)))
- (setq traj (list (cons '(mlist) r)))
- (do ((m 1 (1+ m))) ((> m d))
- (progn ;;; was ignore-errors
- (setq k1 (mapcar #'(lambda (x) (apply x r)) funlist))
- (setq r1 (map 'list #'+ (cdr r) (mapcar #'(lambda (x) (* 0.5d0 (caddr it) x)) k1)))
- (push (+ (car r) (/ (caddr it) 2)) r1)
- (setq k2 (mapcar #'(lambda (x) (apply x r1)) funlist))
- (setq r2 (map 'list #'+ (cdr r) (mapcar #'(lambda (x) (* 0.5d0(caddr it) x)) k2)))
- (push (+ (car r) (/ (caddr it) 2)) r2)
- (setq k3 (mapcar #'(lambda (x) (apply x r2)) funlist))
- (setq r3 (map 'list #'+ (cdr r) (mapcar #'(lambda (x) (* (caddr it) x)) k3)))
- (push (+ (car r) (caddr it)) r3)
- (setq k4 (mapcar #'(lambda (x) (apply x r3)) funlist))
- (setq u (map 'list #'+
- (mapcar #'(lambda (x) (* #.(/ 1.0 6.0d0) x)) k1)
- (mapcar #'(lambda (x) (* #.(/ 1.0 3.0d0) x)) k2)
- (mapcar #'(lambda (x) (* #.(/ 1.0 3.0d0) x)) k3)
- (mapcar #'(lambda (x) (* #.(/ 1.0 6.0d0) x)) k4)))
- (setq r
- (append
- `(,(+ (car it) (* m (caddr it))))
- (map 'list #'+ (cdr r) (mapcar #'(lambda (x) (* (caddr it) x)) u))))
- (push (cons '(mlist) r) traj)))
- (when (< (car r) (cadr it))
- (let ((s (- (cadr it) (car r))) )
- (declare(double-float s)(special s)(optimize (speed 3)(safety 0)))
- (progn ;; was ignore-errors
- (setq k1 (mapcar #'(lambda (x) (mapply x r nil)) funlist))
- (setq r1 (map 'list #'+ (cdr r) (mapcar #'(lambda (x)
- (declare(double-float x))
- (* s 0.5d0 x)) k1)))
- (push (+ (car r) (* 0.5d0 s)) r1)
- (setq k2 (mapcar #'(lambda (x) (mapply x r1 nil)) funlist))
- (setq r2 (map 'list #'+ (cdr r) (mapcar #'(lambda (x)(declare(double-float x))
- (* s 0.5d0 x)) k2)))
- (push (+ (car r) (* 0.5d0 s)) r2)
- (setq k3 (mapcar #'(lambda (x) (mapply x r2 nil)) funlist))
- (setq r3 (map 'list #'+ (cdr r) (mapcar #'(lambda (x)(declare(double-float x))
- (* s x)) k3)))
- (push (+ (car r) s) r3)
- (setq k4 (mapcar #'(lambda (x) (mapply x r3 nil)) funlist))
- (setq u (map 'list #'+
- (mapcar #'(lambda (x)(declare(double-float x))
- (* #.(/ 1.0d0 6.0d0) x)) k1)
- (mapcar #'(lambda (x)(declare(double-float x))
- (* #.(/ 1.0d0 3.0d0) x)) k2)
- (mapcar #'(lambda (x) (declare(double-float x))
- (* #.(/ 1.0d0 3.0d0) x)) k3)
- (mapcar #'(lambda (x)(declare(double-float x))
- (* #.(/ 1.0d0 6.0d0) x)) k4)))
- (setq r
- (append
- `(,(cadr it))
- (map 'list #'+ (cdr r) (mapcar #'(lambda (x)(declare(double-float x))
- (* s x)) u))))
- (push (cons '(mlist) r) traj))))
- (cons '(mlist) (nreverse traj))) \ No newline at end of file
diff --git a/texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.pdf b/texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.pdf
deleted file mode 100644
index d3d06401..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.pdf
+++ /dev/null
Binary files differ
diff --git a/texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.rr b/texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.rr
deleted file mode 100644
index badddccb..00000000
--- a/texmf-dist/scripts/ketpic/ketlib/oshima/os_muldif.rr
+++ /dev/null
@@ -1,18855 +0,0 @@
-/* The latest version will be at ftp://akagi.ms.u-tokyo.ac.jp/pub/math/muldif
- scp os_muldif.[dp]* ${USER}@lemon.math.kobe-u.ac.jp:/home/web/OpenXM/Current/doc/other-docs
-*/
-#define USEMODULE 1
-/* #undef USEMODULE */
-
-/* os_muldif.rr (Library for Risa/Asir)
- * Toshio Oshima (Nov. 2007 - June 2017)
- *
- * For polynomials and differential operators with coefficients
- * in rational funtions (See os_muldif.pdf)
- *
- * "Tab = 4 column" is best
- */
-
-ord([zz,dz,dy,dx])$
-
-#ifdef USEMODULE
-module os_md;
-static Muldif.rr$
-static TeXEq$
-static TeXLim$
-static DIROUT$
-static DIROUTD$
-static DVIOUTL$
-static DVIOUTA$
-static DVIOUTB$
-static DVIOUTH$
-static DVIOUTF$
-static LCOPT$
-static COLOPT$
-static LPOPT$
-static LFOPT$
-static ErMsg$
-static FLIST$
-static IsYes$
-static XYPrec$
-static XYcm$
-static TikZ$
-static XYLim$
-static Canvas$
-static ID_PLOT$
-static Rand$
-static LQS$
-localf spType2$
-localf erno$
-localf chkfun$
-localf makev$
-localf shortv$
-localf makenewv$
-localf vweyl$
-localf mycat$
-localf mycat0$
-localf fcat$
-localf findin$
-localf countin$
-localf mycoef$
-localf mydiff$
-localf myediff$
-localf m2l$
-localf m2ll$
-localf mydeg$
-localf pfctr$
-localf mymindeg$
-localf m1div$
-localf mulsubst$
-localf cmpsimple$
-localf simplify$
-localf monotos$
-localf minustos$
-localf monototex$
-localf vnext$
-localf ldict$
-localf ndict$
-localf nextsub$
-localf nextpart$
-localf transpart$
-localf trpos$
-localf sprod$
-localf sinv$
-localf slen$
-localf sord$
-localf vprod$
-localf dvangle$
-localf dvprod$
-localf dnorm$
-localf mulseries$
-localf pluspower$
-localf vtozv$
-localf dupmat$
-localf matrtop$
-localf mytrace$
-localf mydet$
-localf mperm$
-localf mtranspose$
-localf mtoupper$
-localf mydet2$
-localf myrank$
-localf meigen$
-localf transm$
-localf vgen$
-localf mmc$
-localf lpgcd$
-localf mdivisor$
-localf mdsimplify$
-localf m2mc$
-localf easierpol$
-localf paracmpl$
-localf mykernel$
-localf myimage$
-localf mymod$
-localf mmod$
-localf ladd$
-localf lchange$
-localf llsize$
-localf llbase$
-localf lsort$
-localf lmax$
-localf lmin$
-localf lgcd$
-localf llcm$
-localf ldev$
-localf lsol$
-localf lnsol$
-localf l2p$
-localf m2v$
-localf lv2m$
-localf m2lv$
-localf s2m$
-localf c2m$
-localf m2diag$
-localf myinv$
-localf madjust$
-localf mpower$
-localf mrot$
-localf texlen$
-localf isdif$
-localf fctrtos$
-localf texlim$
-localf fmult$
-localf radd$
-localf getel$
-localf ptol$
-localf rmul$
-localf mtransbys$
-localf drawopt$
-localf execdraw$
-localf execproc$
-localf myswap$
-localf mysubst$
-localf evals$
-localf myval$
-localf myeval$
-localf mydeval$
-localf myfeval$
-localf myf2eval$
-localf myf3eval$
-localf myfdeval$
-localf myf2deval$
-localf myf3deval$
-localf myexp$
-localf mycos$
-localf mysin$
-localf mytan$
-localf myarg$
-localf myasin$
-localf myacos$
-localf myatan$
-localf mylog$
-localf mypow$
-localf scale$
-localf arg$
-localf sqrt$
-localf gamma$
-localf lngamma$
-localf digamma$
-localf dilog$
-localf zeta$
-localf eta$
-localf jell$
-localf frac$
-localf erfc$
-localf fouriers$
-localf todf$
-localf f2df$
-localf df2big$
-localf compdf$
-localf fzero$
-localf fmmx$
-localf flim$
-localf fcont$
-localf fresidue$
-localf mmulbys$
-localf appldo$
-localf appledo$
-localf muldo$
-localf jacobian$
-localf hessian$
-localf wronskian$
-localf adj$
-localf laplace1$
-localf laplace$
-localf mce$
-localf mc$
-localf rede$
-localf ad$
-localf add$
-localf vadd$
-localf addl$
-localf cotr$
-localf rcotr$
-localf muledo$
-localf mulpdo$
-localf transpdosub$
-localf transpdo$
-localf translpdo$
-localf rpdiv$
-localf mygcd$
-localf mylcm$
-localf sftpexp$
-localf applpdo$
-localf tranlpdo$
-localf divdo$
-localf qdo$
-localf sqrtdo$
-localf ghg$
-localf ev4s$
-localf b2e$
-localf sftpow$
-localf sftpowext$
-localf polinsft$
-localf pol2sft$
-localf polroots$
-localf fctri$
-localf binom$
-localf expower$
-localf seriesHG$
-localf seriesMc$
-localf seriesTaylor$
-localf evalred$
-localf toeul$
-localf fromeul$
-localf sftexp$
-localf fractrans$
-localf soldif$
-localf chkexp$
-localf sqrtrat$
-localf getroot$
-localf expat$
-localf polbyroot$
-localf polbyvalue$
-localf pcoef$
-localf prehombf$
-localf prehombfold$
-localf sub3e$
-localf fuchs3e$
-localf okubo3e$
-localf eosub$
-localf even4e$
-localf odd5e$
-localf extra6e$
-localf rigid211$
-localf solpokuboe$
-localf stoe$
-localf dform$
-localf polinvsym$
-localf polinsym$
-localf tohomog$
-localf substblock$
-localf okuboetos$
-localf heun$
-localf fspt$
-localf abs$
-localf calc$
-localf isint$
-localf israt$
-localf iscrat$
-localf isalpha$
-localf isnum$
-localf isalphanum$
-localf isdecimal$
-localf isvar$
-localf isyes$
-localf isall$
-localf iscoef$
-localf iscombox$
-localf sproot$
-localf spgen$
-localf chkspt$
-localf cterm$
-localf terms$
-localf polcut$
-localf redgrs$
-localf cutgrs$
-localf mcgrs$
-localf mc2grs$
-localf mcmgrs$
-localf anal2sp$
-localf delopt$
-localf str_char$
-localf str_pair$
-localf str_cut$
-localf str_str$
-localf str_subst$
-localf str_times$
-localf str_tb$
-localf strip$
-localf i2hex$
-localf sjis2jis$
-localf jis2sjis$
-localf s2os$
-localf l2os$
-localf r2os$
-localf s2euc$
-localf s2sjis$
-localf r2ma$
-localf evalma$
-localf ssubgrs$
-localf verb_tex_form$
-localf tex_cuteq$
-localf my_tex_form$
-localf texket$
-localf smallmattex$
-localf divmattex$
-localf dviout0$
-localf myhelp$
-localf isMs$
-localf showbyshell$
-localf readcsv$
-localf tocsv$
-localf getbyshell$
-localf show$
-localf dviout$
-localf rtotex$
-localf mtotex$
-localf ltotex$
-localf texbegin$
-localf texcr$
-localf texsp$
-localf getbygrs$
-localf mcop$
-localf shiftop$
-localf conf1sp$
-localf pgen$
-localf diagm$
-localf mgen$
-localf madj$
-localf newbmat$
-localf unim$
-localf pfrac$
-localf cfrac$
-localf cfrac2n$
-localf sqrt2rat$
-localf s2sp$
-localf sp2grs$
-localf fimag$
-localf trig2exp$
-localf intpoly$
-localf integrate$
-localf simplog$
-localf fshorter$
-localf isshortneg$
-localf intrat$
-localf powsum$
-localf bernoulli$
-localf lft01$
-localf linfrac01$
-localf nthmodp$
-localf issquaremodp$
-localf rootmodp$
-localf rabin$
-localf primroot$
-localf varargs$
-localf ptype$
-localf pfargs$
-localf average$
-localf sint$
-localf frac2n$
-localf xyproc$
-localf xypos$
-localf xyput$
-localf xybox$
-localf xyline$
-localf xylines$
-localf xycirc$
-localf xybezier$
-localf lbezier$
-localf draw_bezier$
-localf tobezier$
-localf velbezier$
-localf ptbezier$
-localf cutf$
-localf fsum$
-localf fint$
-localf periodicf$
-localf cmpf$
-localf areabezier$
-localf saveproc$
-localf xygraph$
-localf xy2graph$
-localf xyarrow$
-localf xyarrows$
-localf xyang$
-localf xyoval$
-localf ptcommon$
-localf ptcopy$
-localf ptaffine$
-localf ptlattice$
-localf ptpolygon$
-localf ptwindow$
-localf ptbbox$
-localf lninbox$
-localf ptcombezier$
-localf ptcombz$
-localf lchange$
-localf init$
-localf powprimroot$
-localf distpoint$
-localf ntable$
-localf keyin$
-localf mqsub$
-localf msort$
-#else
-extern Muldif.rr$
-extern TeXEq$
-extern TeXLim$
-extern DIROUT$
-extern DIROUTD$
-extern DVIOUTL$
-extern DVIOUTA$
-extern DVIOUTB$
-extern DVIOUTH$
-extern DVIOUTF$
-static LCOPT$
-static COLOPT$
-static LPOPT$
-static LFOPT$
-extern TikZ$
-extern ErMsg$
-extern FLIST$
-extern IsYes$
-extern XYPrec$
-extern XYcm$
-extern TikZ$
-extern XYLim$
-extern Canvas$
-extern ID_PLOT$
-extern Rand$
-extern LQS$
-#endif
-static S_Fc,S_Dc,S_Ic,S_Ec,S_EC,S_Lc$
-static S_FDot$
-extern AMSTeX$
-Muldif.rr="00170612"$
-AMSTeX=1$
-TeXEq=5$
-TeXLim=80$
-TikZ=0$
-XYcm=0$
-XYPrec=3$
-XYLim=4$
-Rand=0$
-DIROUT="%HOME%\\tex"$
-DVIOUTL="%ASIRROOT%\\bin\\risatex0.bat"$
-DVIOUTA="%ASIRROOT%\\bin\\risatex.bat"$
-DVIOUTB="%ASIRROOT%\\bin\\risatex1%TikZ%.bat"$
-DVIOUTH="start dviout -2 -hyper=0x90 \"%ASIRROOT%\\help\\os_muldif.dvi\" #%LABEL%"$
-DVIOUTF=0$
-LCOPT=["red","green","blue","yellow","cyan","magenta","black","white","gray"]$
-COLOPT=[0xff,0xff00,0xff0000,0xffff,0xffff00,0xff00ff,0,0xffffff,0xc0c0c0]$
-LPOPT=["above","below","left","right"]$
-LFOPT=["very thin","thin","dotted","dashed"]$
-Canvas=[400,400]$
-LQS=[[1,0]]$
-
-ErMsg = newvect(3,[
- "irregal argument", /* 0 */
- "too big size", /* 1 */
- "irregal option" /* 2 */
-])$
-FLIST=0$
-IsYes=[]$
-ID_PLOT=-1$
-
-def erno(N)
-{
- /* extern ErMsg; */
- print(ErMsg[N]);
-}
-
-def chkfun(Fu, Fi)
-{
- /* extern FLIST; */
- /* extern Muldif.rr; */
-
- if(type(Fu) <= 1){
- if(Fu==1)
- mycat(["Loaded os_muldif Ver.", Muldif.rr, "(Toshio Oshima)"]);
- else
- mycat(["Risa/Asir Ver.", version()]);
- return 1;
- }
- if(type(FLIST) < 4)
- FLIST = flist();
- if(type(Fu) == 4){
- for(; Fu != [] ;Fu = cdr(Fu))
- if(chkfun(car(Fu),Fi) == 0) return 0;
- return 1;
- }
- if(findin(Fu, FLIST) >= 0)
- return 1;
- FLIST = flist();
- if(findin(Fu, FLIST) >= 0)
- return 1;
- if(type(Fi)==7){
- mycat0(["load(\"", Fi,"\") -> try again!\n"],1);
- load(Fi);
- }
- return 0;
-/*
- if(type(Fi) == 7)
- Fi = [Fi];
- for( ; Fi != []; Fi = cdr(Fi))
- load(car(Fi));
- FLIST = flist();
- return (findin(Fu,FLIST)>=0)?1:0;
-*/
-}
-
-def makev(L)
-{
- S = "";
- Num=getopt(num);
- while(length(L) > 0){
- VL = car(L); L = cdr(L);
- if(type(VL) == 7)
- S = S+VL;
- else if(type(VL) == 2 || VL < 10)
- S = S+rtostr(VL);
- else if(VL<46 && Num!=1)
- S = S+asciitostr([VL+87]);
- else
- S = S+rtostr(VL);
- }
- return strtov(S);
-}
-
-def makenewv(L)
-{
- if((V=getopt(var))<2) V="z_";
- else if(isvar(V)) V=rtostr(V);
- if(type(N=getopt(num))!=1) N=0;
- Var=vars(L);
- for(Va=Var;Va!=[];Va=cdr(Va))
- if(vtype(car(Va))==2) Var=append(vars(args(car(Va))),Var);
- for(XX=[],I=J=0;;I++){
- X=strtov(V+rtostr(I));
- if(findin(X,Var)<0){
- XX=cons(X,XX);
- if(++J>N) return X;
- else if(J==N) return reverse(XX);
- }
- }
-}
-
-def shortv(P,L)
-{
- V=vars(P);
- if(type(T=getopt(top))==2) T=strtoascii(rtostr(T))[0]-87;
- else T=10;
- for(;L!=[];L=cdr(L)){
- for(J=0;J<36;J++){
- if(findin(X=makev([car(L),J]|num=1),V)>=0){
- while(findin(Y=makev([T]),V)>=0) T++;
- if(T>35) return P;
- P=subst(P,X,Y);
- T++;
- }else if(J>0) break;
- }
- }
- return P;
-}
-
-def vweyl(L)
-{
- if(type(L) == 4){
- if(length(L) == 2)
- return L;
- else
- return [L[0],makev(["d",L[0]])];
- }
- /* else if(type(L)<2) return L; */
- return [L,makev(["d", L])];
-}
-
-def mycat(L)
-{
- if(type(L) != 4){
- print(L);
- return;
- }
- Opt = getopt(delim);
- Del = (type(Opt) >= 0)?Opt:" ";
- Opt = getopt(cr);
- CR = (type(Opt) >= 0)?0:1;
- while(L != []){
- if(Do==1)
- print(Del,0);
- print(car(L),0);
- L=cdr(L);
- Do = 1;
- }
- if(CR) print("");
-}
-
-def fcat(S,X)
-{
- if(type(S)!=7){
- T="fcat";
- if(S>=2&&S<=9) T+=rtostr(S);
- T=DIROUTD+T+".txt";
- if(S==-1) return T;
- if(S!=0&&access(T)) remove_file(T);
- S=T;
- }
- output(S);
- print(X);
- output();
- if(getopt(exe)==1) shell("\""+S+"\"");
-}
-
-def mycat0(L,T)
-{
- Opt = getopt(delim);
- Del = (type(Opt) >= 0)?Opt:"";
- while(L != []){
- if(Do==1)
- print(Del,0);
- print(car(L),0);
- L=cdr(L);
- Do = 1;
- }
- if(T) print("");
-}
-
-def findin(M,L)
-{
- if(type(L)==4){
- for(I = 0; L != []; L = cdr(L), I++)
- if(car(L) == M) return I;
- }else if(type(L)==5){
- K=length(L);
- for(I = 0; I < K; I++)
- if(L[I] == M) return I;
- }else return -2;
- return -1;
-}
-
-def countin(S,M,L)
-{
- Step=getopt(step);
- if(type(Step)==1){
- N=(Step>0)?Step:-Step;
- if(type(L)==5) L=vtol(L);
- L=qsort(L);
- while(car(L)<S&&L!=[]) L=cdr(L);
- S+=M;
- for(R=[],C=I=0;L!=[];){
- if(car(L)<S||(Step>0&&car(L)==S)){
- C++;
- L=cdr(L);
- }else{
- R=cons(C,R);C=0;S+=M;
- if(N>1&&++I>=N) break;
- }
- }
- if(C>0) R=cons(C,R);
- if(N>1&&(N-=length(R))>0) while(N-->0) R=cons(0,R);
- return reverse(R);
- }
- if(type(L)==4){
- for(N=0; L!=[]; L=cdr(L))
- if(car(L)>=S && car(L)<=M) N++;
- }else if(type(L)==5){
- K=length(L);
- for(I = 0; I < K; I++)
- if(L[I]>=S && L[I]<=M) N++;
- }else return -2;
- return N;
-}
-
-def mycoef(P,N,X)
-{
- if(type(P)<3 && type(N)<3)
- return coef(P,N,X);
- if(type(P) >= 4)
-#ifdef USEMODULE
- return map(os_md.mycoef,P,N,X);
-#else
- return map(mycoef,P,N,X);
-#endif
- if(type(N)==4){
- for(;N!=[];N=cdr(N),X=cdr(X))
- P=mycoef(P,car(N),car(X));
- return P;
- }
- if(deg(dn(P), X) > 0){
- P = red(P);
- if(deg(dn(P), X) > 0)
- return 0;
- }
- return red(coef(nm(P),N,X)/dn(P));
-}
-
-def mydiff(P,X)
-{
- if(X == 0)
- return 0;
- if(type(P)<3 && type(X)<3)
- return diff(P,X);
- if(type(P) >= 4)
-#ifdef USEMODULE
- return map(os_md.mydiff,P,X);
-#else
- return map(mydiff,P,X);
-#endif
- if(type(X)==4){
- for(;X!=[];X=cdr(X)) P=mydiff(P,car(X));
- return P;
- }
- if(deg(dn(P),X) == 0)
- return red(diff(nm(P),X)/dn(P));
- return red(diff(P,X));
-}
-
-def myediff(P,X)
-{
- if(X == 0)
- return 0;
- if(type(P) < 3)
- return ediff(P,X);
- if(type(P) >= 4)
-#ifdef USEMODULE
- return map(os_md.myediff,P,X);
-#else
- return map(myediff,P,X);
-#endif
- if(deg(dn(P),X) == 0)
- return red(ediff(nm(P),X)/dn(P));
- return red(X*diff(P,X));
-}
-
-def m2l(M)
-{
- if(type(M) < 4)
- return [M];
- if(type(M) == 4){
- if(type(car(M))==4 && getopt(flat)==1){
- for(MM = []; M!=[]; M=cdr(M))
- MM = append(MM,car(M));
- return MM;
- }
- return M;
- }
- if(type(M) == 5)
- return vtol(M);
- S = size(M);
- for(MM = [], I = S[0]-1; I >= 0; I--)
- MM = append(vtol(M[I]), MM);
- return MM;
-}
-
-def mydeg(P,X)
-{
- if(type(P) < 3)
- return deg(P,X);
- II = -1;
- Opt = getopt(opt);
- if(type(P) >= 4){
- S=(type(P) == 6)?size(P)[0]:0;
- P = m2l(P);
- for(I = 0, Deg = -3; P != []; P = cdr(P), I++){
- if( (DT = mydeg(car(P),X)) == -2)
- return -2;
- if(DT > Deg){
- Deg = DT;
- II = I;
- }
- }
- return (Opt==1)?([Deg,(S==0)?II:[idiv(II,S),irem(II,S)]]):Deg;
- }
- P = red(P);
- if(deg(dn(P),X) == 0)
- return deg(nm(P),X);
- return -2;
-}
-
-def pfctr(P,X)
-{
- P=red(P);
- if((T=ptype(P,X))>3) return [];
- if(T==3){
- G=pfctr(dn(P),X);
- F=pfctr(nm(P),X);
- R=[[car(F)[0]/car(G)[0],1]];
- for(F=cdr(F);F!=[];F=cdr(F)) R=cons(car(F),R);
- for(G=cdr(G);G!=[];G=cdr(G)) R=cons([car(G)[0],-car(G)[1]],R);
- return reverse(R);
- }
- F=fctr(nm(P));
- for(R=[],C=1/dn(P);F!=[];F=cdr(F))
- if(mydeg(car(F)[0],X)>0) R=cons(car(F),R);
- else C*=car(F)[0]^car(F)[1];
- return cons([C,1],reverse(R));
-}
-
-def mymindeg(P,X)
-{
- if(type(P) < 3)
- return mindeg(P,X);
- II = -1;T=60;
- Opt = getopt(opt);
- if(type(P) >= 4){
- S=(type(P) == 6)?size(P)[0]:0;
- P = m2l(P);
- for(I = 0, Deg = -3; P != []; P = cdr(P), I++){
- if(car(P) == 0)
- continue;
- if( (DT = mydeg(car(P),X)) == -2)
- return -2;
- if(DT < Deg || Deg == -3){
- if(DT==0){
- if(type(car(P))>=T) continue;
- T=type(car(P));
- }
- Deg = DT;
- II = I;
- }
- }
- return (Opt==1)?([Deg,(S==0)?II:[idiv(II,S),irem(II,S)]]):Deg;
- }
- P = red(P);
- if(deg(dn(P),X) == 0)
- return mindeg(nm(P),X);
- return -2;
-}
-
-def m1div(M,N,L)
-{
- L = (type(L) <= 3)?[0,L]:vweyl[L];
- DX = L[1]; X = L[0];
- if(mydeg(N,DX) != 0)
- return 0;
- DD = mydeg(M,DX);
- MM = M;
- while( (Deg=mydeg(MM,DX)) > 0){
- MC = mycoef(MM,Deg,DX)*DX^(Deg-1);
- MS = radd(MC, MS);
- MM = radd(MM, muldo(MC,radd(-DX,N),L));
- }
- return [MM, MS];
-}
-
-
-def mulsubst(F,L)
-{
- N = length(L);
- if(N == 0)
- return F;
- if(type(L[0])!=4) L=[L];
- if(getopt(inv)==1){
- for(R=[];L!=[];L=cdr(L)) R=cons([car(L)[1],car(L)[0]],R);
- L=reverse(R);
- }
- if(length(L)==1) return mysubst(F,L);
- L1 = newvect(N);
- for(J = 0; J < N ; J++)
- L1[J] = uc();
- L2 = newvect(N);
- for(J = 0; J < N; J++){
- S = L[J][1];
- for(I = 0; I < N; I++)
- S = mysubst(S,[L[I][0],L1[I]]);
- L2[J] = S;
- }
- for(J = 0; J < N; J++)
- F = mysubst(F, [L[J][0],L2[J]]);
- for(J = 0; J < N; J++)
- F = mysubst(F, [L1[J],L[J][0]]);
- return F;
-}
-
-def cmpsimple(P,Q)
-{
- T = getopt(comp);
- if(P == Q)
- return 0;
- D = 0;
- if(type(T) < 0)
- T = 7;
- if(iand(T,1))
- D = length(vars(P)) - length(vars(Q));
- if(!D && iand(T,2))
- D = nmono(P) - nmono(Q);
- if(!D && iand(T,4))
- D = str_len(rtostr(P)) - str_len(rtostr(Q));
- if(!D){
- if(P > Q) D++;
- else D--;
- }
- return D;
-}
-
-def simplify(P,L,T)
-{
- if(type(P) > 3)
-#ifdef USEMODULE
- return map(os_md.simplify,P,L,T);
-#else
- return map(simplify,P,L,T);
-#endif
- if(type(L[0]) == 4){
- if(length(L[0]) > 1)
-#if USEMODULE
- return fmult(os_md.simplify,P,L,[T]);
-#else
- return fmult(simplify,P,L,[T]);
-#endif
- L = L[0];
- }
- if(type(Var=getopt(var)) == 4 && Var!=[]){
- if(type(P) == 3)
- return simplify(nm(P),P,L,T|var=Var)/simplify(dn(P),P,L,T|var=Var);
- V = car(Var);
- if((I = mydeg(P,V)) > 0){
- Var = cdr(Var);
- for(Q=0; I>=0 ; I--)
- Q += simplify(mycoef(P,I,V), L, T|var=Var)*V^I;
- return Q;
- }
- }
- if(length(L) == 1){
- L = car(L);
- for(V = vars(L); V != []; V = cdr(V)){
- VT = car(V);
- if(deg(L,VT) != 1) continue;
- P = simplify(P, [VT, -red(coef(L,0,VT)/coef(L,1,VT))], T);
- }
- return P;
- }
- Q = mysubst(P,[L[0],L[1]]);
- return (cmpsimple(P,Q|comp=T) <= 0)?P:Q;
-}
-
-def monotos(P)
-{
- if(nmono(P) <= 1)
- return rtostr(P);
- return "("+rtostr(P)+")";
-}
-
-
-def monototex(P)
-{
- Q=my_tex_form(P);
- if(nmono(P)<2 && (getopt(minus)!=1 || str_str(Q,"-"|top=0,end=0)<0))
- return Q;
- return "("+Q+")";
-}
-
-def minustos(S)
-{
- if(str_str(S,"-"|top=0,end=0)<0) return S;
- return "("+S+")";
-}
-
-def vnext(V)
-{
- S = length(V);
- for(I = S-1; I > 0; I--){
- if(V[I-1] < V[I]){
- V0 = V[I-1];
- for(J = I+1; J < S; J++)
- if(V0 >= V[J]) break;
- V[I-1] = V[--J];
- V[J] = V0;
- for(J = S-1; I < J; I++, J--){
- V0 = V[I];
- V[I] = V[J];
- V[J] = V0;
- }
- return 1;
- }
- }
- return 0;
-}
-
-def ldict(N, M)
-{
- Opt = getopt(opt);
- R = S = [];
- for(I = 2; N > 0; I++){
- R = cons(irem(N,I), R);
- N = idiv(N,I);
- }
- L = LL = length(R);
- T=newvect(LL+1);
- while(L-- > 0){
- V = car(R); R = cdr(R);
- for(I = J = 0; J <= V ; I++){
- if(T[I] == 0)
- J++;
- }
- T[I-1] = 1;
- S = cons(LL-I+1, S);
- }
- for(I = 0; I <= LL; I++){
- if(T[I] == 0){
- S = cons(LL-I, S);
- break;
- }
- }
- if(M == 0)
- return S;
- if(M <= LL){
- print("too small size");
- return 0;
- }
- T = [];
- for(I = --M; I > LL; I--)
- T = cons(I,T);
- S = append(S,T);
- if(Opt == 2 || Opt == 3)
- S = reverse(S);
- if(Opt != 1 && Opt != 3)
- return S;
- for(T = []; S != []; S = cdr(S))
- T = cons(M-car(S),T);
- return T;
-}
-
-def ndict(L)
-{
- Opt = getopt(opt);
- R = [];
- if(Opt != 1 && Opt != 2)
- L = reverse(L);
- T = (Opt == 1 || Opt == 3)?1:0;
- for( ; L != []; L = cdr(L)){
- for(I = 0, V = car(L), LT = cdr(L); LT != []; LT = cdr(LT))
- if(T == 0){
- if(V < car(LT)) I++;
- }else if (V > car(LT)) I++;
- R = cons(I, R);
- }
- R = reverse(R);
- for(V = 0, I = length(R); I > 0; R = cdr(R), I--)
- V = V*I + car(R);
- return V;
-}
-
-def nextsub(L,N)
-{
- if(type(L) == 1){
- for(LL = [], I = L-1; I >= 0; I--)
- LL = cons(I,LL);
- return LL;
- }
- M = length(L = ltov(L));
- K = N-M;
- for(I = M-1; I >= 0; I--)
- if(L[I] < I+K) break;
- if(I < 0)
- return 0;
- for(J = L[I]+1; I < M; I++, J++)
- L[I] = J;
- return vtol(L);
-}
-
-def nextpart(L)
-{
- if(car(L) <= 1)
- return 0;
- for(I = 0, L = reverse(L); car(L) == 1; L=cdr(L))
- I++;
- I += (K = car(L));
- R = irem(I,--K);
- R = (R==0)?[]:[R];
- for(J = idiv(I,K); J > 0; J--)
- R = cons(K,R);
- L = cdr(L);
- while(L!=[]){
- R = cons(car(L), R);
- L = cdr(L);
- }
- return R;
-}
-
-def transpart(L)
-{
- L = reverse(L);
- for(I=1, R=[]; L!= []; I++){
- R = cons(length(L), R);
- while(L != [] && car(L) <= I)
- L = cdr(L);
- }
- return reverse(R);
-}
-
-def trpos(A,B,N)
-{
- S = newvect(N);
- for(I = 0; I < N; I++)
- S[I]=(I==A)?B:((I==B)?A:I);
- return S;
-}
-
-def sprod(S,T)
-{
- L = length(S);
- V = newvect(L);
- while(--L >= 0)
- V[L] = S[T[L]];
- return V;
-}
-
-def sinv(S)
-{
- L = length(S);
- V = newvect(L);
- while(--L >= 0)
- V[S[L]] = L;
- return V;
-}
-
-def slen(S)
-{
- L = length(S);
- for(V = 0, J = 2; J < L; i++){
- for(I = 0; I < J; I++)
- if(S[I] > S[J]) V++;
- }
- return V;
-}
-
-def sord(W,V)
-{
- L = length(W);
- W0 = nevect(L);
- V0 = newvect(L);
- for(I = F = C = 0; I < L; I++){
- C = 0;
- if( (W1 = W[I]) > (V1 = V[I]) ){
- if(F < 0) C = 1;
- else if(F==0) F = 1;
- }else if(W1 < V1){
- if(F > 0) C = 1;
- else if(F==0) F = -1;
- }
- for(J = I;--J >= 0 && W0[J] > W1; ) W0[J+1] = W0[J];
- W0[J+1] = W1;
- for(J = I;--J >= 0 && V0[J] > V1; ) V0[J+1] = V0[J];
- V0[J+1] = V1;
- if(C){
- for(J = I; J >= 0; J--){
- if((W1=W0[J]) == (V1=V0[J])) continue;
- if(W1 > V1){
- if(F < 0) return 2;
- }
- else if(F > 0) return 2;
- }
- }
- }
- return F;
-}
-
-def vprod(V1,V2)
-{
- for(R = 0, I = length(V1)-1; I >= 0; I--)
- R = radd(R, rmul(V1[I], V2[I]));
- return R;
-}
-
-def dnorm(V)
-{
- if(type(V)<2) return dabs(V);
- R=0;
- if(type(V)!=4)
- for (I = length(V)-1; I >= 0; I--) R+= V[I]^2;
- else{
- if(type(V[0])>3){
- V=ltov(V[0])-ltov(V[1]);
- return dnorm(V);
- }
- for(;V!=[]; V=cdr(V)) R+=car(V)^2;
- }
- return dsqrt(R);
-}
-
-def dvprod(V1,V2)
-{
- if(type(V1)<2) return V1*V2;
- R=0;
- if(type(V1)!=4)
- for(I = length(V1)-1; I >= 0; I--)
- R += V1[I]*V2[I];
- else{
- for(; V1!=[]; V1=cdr(V1),V2=cdr(V2))
- R+=car(V1)*car(V2);
- }
- return R;
-}
-
-def dvangle(V1,V2)
-{
- if(V2==0 && type(V1)==4 && length(V1)==3 &&
- (type(V1[0])==4 || type(V1[0])==5 || type(V1[1])==4 || type(V1[1])==5 ||
- type(V1[2])==4 || type(V1[2])==5) ){
- if(V1[0]==0 || V1[1]==0 || V1[2]==0) return 1;
- PV2=V1[1];
- if(type(PV2)==4){
- PV2=ltov(PV2);
- return dvangle(PV2-ltov(V1[0]),ltov(V1[2])-PV2);
- }else
- return dvangle(PV2-V1[0],V1[2]-PV2);
- }
- if((L1=dnorm(V1))==0 || (L2=dnorm(V2))==0) return 1;
- return dvprod(V1,V2)/(L1*L2);
-}
-
-def mulseries(V1,V2)
-{
- L = length(V1);
- if(size(V2) < L)
- L = size(V2);
- VV = newvect(L);
- for(J = 0; J < L; J++){
- for(K = R = 0; K <= J; K++)
- R = radd(R,rmul(V1[K],V2[J-K]));
- VV[J] = R;
- }
- return VV;
-}
-
-def scale(L)
-{
- T=0;LS=1;
- if(type(L)!=4){
- if(L==2){
- L=[[[1,2,1/20],[2,5,1/10],[5,10,1/5], [10,20,1/2],[20,50,1],[50,100,2]],
- [[1,2,1/10],[2,5,1/2], [10,20,1],[20,50,5]],
- [[1,2,1/2],[2,10,1], [10,20,5],[20,100,10]]];
- LS=2;
- }else if(L==3){
- L=[[[1,2,1/20],[2,5,1/10],[5,10,1/5], [10,20,1/2],[20,50,1],[50,100,2],
- [100,200,5],[200,500,10],[500,1000,20]],
- [[1,2,1/10],[2,5,1/2], [10,20,1],[20,50,5], [100,200,10],[200,500,50]],
- [[1,2,1/2],[2,10,1], [10,20,5],[20,100,10], [100,200,50],[200,1000,100]]];
- LS=3;
- }else{
- L=[[[1,2,1/50],[5,10,1/2],[5,10,1/10]],[[1,5,1/10],[5,10,1/2]],
- [[1,5,1/2],[5,10,1]]];
- }
- }else if(type(L[0])!=4){
- L=[L];
- if(length(L)!=3||L[0]+L[2]>L[1]) T=L;
- }
- if(T==0){
- if(type(L[0][0])!=4) L=[L];
- for(R=[];L!=[];L=cdr(L)){
- for(RR=[],LT=car(L);LT!=[];LT=cdr(LT))
- for(I=car(LT)[0];I<=car(LT)[1];I+=car(LT)[2]) RR=cons(I,RR);
- RR=lsort(RR,[],1);
- R=cons(RR,R);
- }
- R=reverse(R);
- for(T=[];R!=[];R=cdr(R)){
- if(length(R)>1) T=cons(lsort(R[0],R[1],"setminus"),T);
- else T=cons(R[0],T);
- }
- }
- V0=dlog(10);
- S0=S1=1;D0=D1=0;
- SC=getopt(scale);
- if(type(SC)==4){
- S0=SC[0];S1=SC[1];
- }else if(type(S)==1){
- S0=S;S1=0;
- }else return T;
- if(type(D=getopt(shift))==4){
- D0=D[0];D1=D[1];
- }
- if(type(F=getopt(f))>1) F=f2df(F);
- else F=0;
- for(M=[],I=length(T);T!=[];T=cdr(T),I--){
- for(S=car(T);S!=[];S=cdr(S)){
- V=((!F)?dlog(car(S))/dlog(10)/LS:myfdeval(F,car(S)))*S0;
- if(S1!=0){
- M=cons([V+D0,D1],M);
- M=cons([V+D0,I*((length(SC)>2)?SC[I]:S1)+D1],M);
- M=cons(0,M);
- }else M=cons(V+D0,M);
- }
- }
- if(S1!=0) M=cdr(M);
- M=reverse(M);
- if(getopt(TeX)==1){
- if(type(U=getopt(line))==4)
- M=cons([U[0]+D0,D1],cons([U[1]+D0,D1],cons(0,M)));
- S=xylines(M);
- if(type(Mes=getopt(mes))==4){
- S3=car(Mes);
- V=car(scale(cdr(Mes)));
- if(!F) Mes=scale(cdr(Mes)|scale=[S0/LS,0],shift=[D0,D1]);
- else Mes=scale(cdr(Mes)|f=F,scale=[S0,0],shift=[D0,D1]);
- for(M=Mes;M!=[];M=cdr(M),V=cdr(V))
- S+=xyput([car(M),S3,deval(car(V))]);
- }
- return S;
- }
- return M;
-}
-
-def pluspower(P,V,N,M)
-{
- RR = 1;
- for(K = R = 1; K < M-1; I++){
- R = R*(N-K+1)*P/K;
- RR = radd(RR,R);
- }
- VV = newvect(M);
- for(K = 0; K < M-1; K++)
- VV[K] = red(mycoef(RR,K,V));
-}
-
-def vtozv(V)
-{
- if(type(V)<4) V=newvect(1,[V]);
- S = length(V);
- VV = newvect(S);
- Lcm = 1;
- for(K = 0; K < S; K++){
- VV[K] = red(V[K]);
- Lcm = lcm(Lcm,dn(VV[K]));
- C = ptozp(nm(VV[K])|factor=0);
- if(K == 0){
- Dn = dn(C[1]);
- Nm = nm(C[1]);
- PNm = nm(C[0]);
- }else{
- Dn = ilcm(Dn,dn(C[1]));
- Nm = igcd(Nm,nm(C[1]));
- PNm = gcd(PNm,nm(C[0]));
- }
- }
- if(!(M=Nm*PNm)) return [VV,0];
- Mul = (Lcm*Dn)/M;
- for(K = 0; K < S; K++)
- VV[K] = rmul(VV[K],Mul);
- return [VV,Mul];
-}
-
-def dupmat(M)
-{
- if(type(M) == 6){
- Size = size(M);
- MM = newmat(Size[0],Size[1]);
- for(I = 0; I < Size[0]; I++){
- for(J = 0; J < Size[1]; J++)
- MM[I][J] = M[I][J];
- }
- return MM;
- }
- if(type(M) == 5)
- return ltov(vtol(M));
- return M;
-}
-
-def matrtop(M)
-{
- S = size(M);
- MM = dupmat(M);
- Lcm = newvect(S[0]);
- for(J = 0; J < S[0]; J++){
- U = vtozv(M[J]);
- for(K = -1, I = 0; I < S[1]; I++)
- MM[J][I] = U[0][I];
- Lcm[J] = U[1];
- }
- return [MM,Lcm];
-}
-
-def mytrace(M)
-{
- S=size(M);
- if(S[0]!=S[1]) return 0;
- for(I=V=0; I<S[0]; I++){
- V+=M[I][I];
- }
- return V;
-}
-
-def mydet(M)
-{
- MM = matrtop(M);
- if(type(MM[0]) == 6){
- S = size(M);
- for(Dn = 1, I = 0; I < S[0]; I++)
- Dn *= MM[1][I];
- return (!Dn)?0:red(det(MM[0])/Dn);
- }
-}
-
-def mperm(M,P,Q)
-{
- if(type(M) == 6){
- S = size(M);
- if(type(P) <= 1)
- P=(P==1)?Q:trpos(0,0,S[0]);
- if(type(P) > 3 && type(P[0]) >= 4)
- P = trpos(P[0][0],P[0][1],S[0]);
- else if(type(P) == 4){
- if(length(P)==2 && type(P[1])==4){
- P0=P[0];P1=car(P[1]);P=newvect(P1);
- for(I=0;I<P1;I++) P[I]=P0+I;
- }else P = ltov(P);
- }
- if(type(Q) <= 1)
- Q=(Q==1)?P:trpos(0,0,S[1]);
- if(type(Q) > 3 && type(Q[0]) >= 4)
- Q = trpos(Q[0][0],Q[0][1],S[1]);
- if(type(Q) == 4){
- if(length(Q)==2 && type(Q[1])==4){
- P0=Q[0];P1=car(Q[1]);Q=newvect(P1);
- for(I=0;I<P1;I++) Q[I]=P0+I;
- }else Q = ltov(Q);
- }
- MM = newmat(S0=length(P),S1=length(Q));
- for(I = 0; I < S0; I++){
- MMI = MM[I]; MPI = M[P[I]];
- for(J = 0; J < S1; J++)
- MMI[J] = MPI[Q[J]];
- }
- return MM;
- }
- if((type(M) == 5 || type(M) == 4) && type(P) >= 4){
- if(length(P) == 1 && type(car(P)) == 4)
- P = trpos(car(P)[0],car(P)[1],length(M));
- MM = newvect(S = length(P));
- for(I = 0; I < S; I++)
- MM[I] = M[P[I]];
- if(type(M) == 4)
- MM = vtol(MM);
- return MM;
- }
- return M;
-}
-
-def mtranspose(M)
-{
- if(type(M)==4){
- MV=ltov(M);
- II=length(MV);
- for(I=L=0; I<II; I++){
- if(type(MV[I])!=4) return M;
- MV[I]=ltov(MV[I]);
- }
- for(R=[],J=0; ;J++){
- for(T=[],I=F=0; I<II; I++){
- if(length(MV[I])>J){
- F=1;
- T=cons(MV[I][J],T);
- }
- }
- if(F==0) return reverse(R);
- if(F==1) R=cons(reverse(T),R);
- }
- }
- if(type(M) != 6)
- return M;
- S = size(M);
- MM = newmat(S[1],S[0]);
- for(I = 0; I < S[0]; I++){
- for(J = 0; J < S[1]; J++)
- MM[J][I] = M[I][J];
- }
- return MM;
-}
-
-def mtoupper(MM, F)
-{
- TeXs=["\\ -=\\ ","\\ +=\\ "];
- Lins=[" -= line"," += line"];
- Assume=["If","Assume"];
- if(type(St = getopt(step))!=1) St=0;
- Opt = getopt(opt);
- if(type(Opt)!=1) Opt=0;
- TeX=getopt(dviout);
- if(type(Tab=getopt(tab))!=1 && Tab!=0) Tab=2;
- Line="\\text{line}";
- if(type(TeX)!=1 || !St) TeX=0;
- Size = size(MM);
- if(F==-1){
- M = newmat(Size[0], Size[1]+1);
- for(I = 0; I < Size[0]; I++){
- for(J = 0; J < Size[1]; J++)
- M[I][J] = MM[I][J];
- M[I][Size[1]] = zz^I;
- }
- Size = size(M);
- F = 1;
- }else if(F<0){
- F=Size[0];
- M = newbmat(1,2,[[MM,mgen(F,0,[1],0)]]);
- Size=[Size[0],F+Size[1]];
- }else
- M = dupmat(MM);
- if(St){
- if(TeX) Lout=[[dupmat(M)]];
- else mycat0([M,"\n\n"],0);
- }
- Top="";
- if(Opt>3){
- for(I=Opt; I>4; I--)
- Top+=(TeX)?"\\ ":" ";
- }
- PC=IF=1;
- for(K = JJ = 0; K < Size[1] - F; K++){
- for(J = JJ; J < Size[0]; J++){
- if(M[J][K] != 0){ /* search simpler element */
- if(Opt>2 && (Mul=M[J][K])!=1){
- for(FF=0,JT=J; JT<Size[0]; JT++){
- if((Val=M[JT][K])==1){ /* 1 */
- Mul=1;J=JT; break;
- }
- if(Val==0 || type(Val)>type(Mul)) continue;
- if(type(Val)<type(Mul) || (Val==-1 && Mul!=-1)){
- Mul=Val; J=JT; /* smaller type */
- }
- else if(Opt>3){
- if(isint(Val)==1){ /* integer elememt */
- if(isint(Mul)!=1){
- Mul=Val; J=JT; /* integer */
- }
- if(FF<3||(FF==3&&Val>0)){
- for(JK=K+1;;){
- if(JK>=Size[1]-F){
- J=JT;
- FF=((Mul=Val)>0)?4:3;
- break; /* divisible int => 4: pos_int 3: neg_int */
- }
- if(isint(M[JT][JK++]/Val)!=1) break;
- }
- }
- }else if(!FF){
- for(JK=K+1; JK<Size[1]-F; JK++){
- if(isint(M[JT][JK]/Val)!=1) break;
- J=JT; FF=1; /* divisible => 1: non integer */
- }
- }
- }
- }
- if(FF==0 && Opt>3 && Mul!=1 && Mul!=-1){ /* FF > 0 => divisible */
- for(FF=0,J0=J; J0<Size[0]-1 && FF!=9; J0++){
- VV0=M[J0][K];
- if(VV0==0 || isint(VV0)==0) continue;
- for(J1=J0+1;J1<Size[0] && FF!=9; J1++){
- VV1=M[J1][K];
- if(VV1==0 || isint(VV1)==0) continue;
- for(C=FT=0,V0=VV0,V1=VV1; C<2 && FF!=10; C++,V1=V0,V0=VV1){
- for(CC=0,RC=ceil(V0/V1);CC<2;CC++,RC--){
- if((CD=V0-RC*V1)==0 && (RC==1 || RC==-1)){
- FT=1; FF=10; /* 10: vanish by +- */
- }else if(CD==1){
- FV=(vars(M[J0])==[]&&vars(M[J1])==[])?1:0;
- if((RC==1 || RC==-1) && FF<8+FV){
- FT=1; FF=8+FV; /* 8/9: 1 by +- */
- }else if(FF<6+VF){
- FT=1; FF=6+FV; /* 6/7: 1 by times */
- }
- }else if(CD==-1){
- FV=(vars(M[J0])==[]&&vars(M[J1])==[])?1:0;
- if((RC==1 || RC==-1) && FF<4+FV){
- FT=1; FF=4+FV; /* 4/5: 1 by +- */
- }else if(FF<2+VF){
- FT=1; FF=2+FV; /* 2/3: 1 by times */
- }
- }
- if(FT==1){
- FT=0; KRC=RC;
- if(C==0){
- KJ0=J0; KJ1=J1;
- }else{
- KJ0=J1; KJ1=J0;
- }
- }
- }
- }
- }
- }
- if(FF>0){
- for(I=K;I<Size[1];I++)
- M[KJ0][I]=radd(M[KJ0][I],rmul(M[KJ1][I],-KRC));
- if(KRC<0){
- KRC=-KRC;Sgn=1;
- }else
- Sgn=0;
- if(St){
- if(TeX){
- if(KRC==1)
- Lout=cons([Top+"\\xrightarrow{", Line,KJ0+1,TeXs[Sgn],
- Line,KJ1+1,"}",dupmat(M)],Lout);
- else
- Lout=cons([Top+"\\xrightarrow{", Line,KJ0+1,TeXs[Sgn],
- Line,KJ1+1,"\\times\\left(",KRC,"\\right)}",
- dupmat(M)],Lout);
-
- }else{
- if(KRC==1)
- mycat([Top+"line",KJ0+1,Lins[Sgn],KJ1+1,"\n",M,"\n"]); else
- mycat([Top+"line",KJ0+1,Lins[Sgn],KJ1+1," * (",KRC,")\n",M,"\n"]);
- }
- }
- Mul=M[KJ0][K]; J=KJ0;
- if(FF==10){
- J--; continue;
- }
- }
- }
- }
- /* a parameter Var */
- Var=0;
- if(St && Opt>4 && length(Var=vars(nm(M[J][K])))==1){
- J0=J;Jv=mydeg(nm(M[J0][K]),car(Var));
- for(I=JJ;I<Size[0]; I++){
- if((MIK=M[I][K])==0) continue;
- if((T=vars(MIK=nm(MIK)))==[]){ /* 1/poly */
- J=I;Var=[]; break;
- }
- if(length(T)>1) continue;
- if(mydeg(MIK,T[0])<Jv){
- J0=I;Jv=mydeg(MIK);Var=T; /* search minimal degree */
- }
- }
- if(length(Var)==1){
- Var=car(Var);
- Q=nm(M[J0][K]);
- for(I=JJ; I<Size[0]; I++){
- if(I==J0 || mydeg(nm(M[I][K]),Var)<0) continue;
- T=rpdiv(nm(M[I][K]),Q,Var);
- if(T[0]!=0 && (vars(T)==[] || vars(T)==[Var])) break; /* dec. deg */
- }
- }
- }
- if(type(Var)==2){ /* 1 variable */
- if(I==Size[0]){
- for(QF=0,Q0=1,QR=getroot(Q,Var|mult=1);QR!=[];QR=cdr(QR)){
- if(deg(T=QR[0][1],Var)>0){
- QF=1;Q0*=T; continue;
- }
- if(subst(PC,Var,T)==0) continue;
- Q0*=(Var-(T=QR[0][1]));
- if(type(T)<2){
- M0=subst(M,Var,T);
- if(TeX){
- Lout=cons(["\\hspace{",Tab*(St-3)-1,"mm}\\text{If }",
- Var,"=",T,","] ,Lout);
- Lout=append(mtoupper(M0,F|step=St+1,opt=Opt,dviout=-2,tab=Tab),Lout);
- }else{
- mycat([str_times(" ",St-1)+"If",Var,"=",T,","]);
- mtoupper(M0,F|step=St+1,opt=Opt);
- }
- }
- }
- if(Q0!=1){
- if(TeX)
- Lout=cons(["\\hspace{",Tab*(St-3)-1,"mm}\\text{"+Assume[QF]+" }",
- Q0/=fctr(Q0)[0][0],"\\ne0,"],Lout);
- else
- mycat([str_times(" ",St-1)+Assume[QF],Q0,"!=0,"]);
- PC*=Q0;
- }
- IF=0;St++;
- }else{
- KRC=-red((T[2]*dn(M[J0][K]))/(T[1]*dn(M[I][K])));
- for(II=K;II<Size[1];II++)
- M[I][II]=radd(M[I][II],rmul(M[J0][II],KRC));
- if(TeX)
- Lout=cons([Top+"\\xrightarrow{", Line,I+1,"\\ +=\\ ",Line,
- J0+1,"\\times\\left(",KRC,"\\right)}",dupmat(M)],Lout);
- else
- mycat([Top+"line",I+1,"+=",Line,J0+1," * (",KRC,")\n",M,"\n"]);
- J=JJ-1;
- continue;
- }
- }
- if(J != JJ){
- for(I = K; I < Size[1]; I++){
- Temp = M[JJ][I];
- M[JJ][I] = M[J][I];
- M[J][I] = (Opt>=2)?Temp:-Temp;
- }
- if(St){
- if(TeX)
- Lout=cons([Top+"\\xrightarrow{",Line,JJ+1,"\\ \\leftrightarrow\\ ",
- Line,J+1,"}",dupmat(M)],Lout);
- else
- mycat0([Top+"line",JJ+1," <-> line",J+1,"\n",M,"\n\n"],0);
- }
- }
- /* Assume PC != 0 */
- if(Opt>1){
- Mul = M[JJ][K];
- if(Opt > 5 && St && IF && (Var=vars(MIK=nm(Mul)))!=[]){
- TF=fctr(MIK);
- for(FF=0,Q0=1,TP=cdr(TF);TP!=[];TP=cdr(TP)){
- if(type(dn(red(PC/(TP0=car(car(TP))))))<2) continue; /* divisible */
- Q0*=TP0;
- for(Var=vars(TP0);Var!=[];Var=cdr(Var)){
- if(mydeg(TP0,X=car(Var))==1 && type(dn(red(PC/mycoef(TP0,1,X))))<2){
- /* TP0=A*X+B with non-vanishing A */
- T=red(-mycoef(TP0,0,X)/mycoef(TP0,1,X));
- M0=mysubst(M,[X,T]);
- if(TeX){
- Lout=cons(["\\hspace{",Tab*(St-3)-1,"mm}\\text{If }",
- X,"=",T,","] ,Lout);
- Lout=append(mtoupper(M0,F|step=St+1,opt=Opt,dviout=-2,tab=Tab),
- Lout);
- }else{
- mycat([str_times(" ",St-1)+"If",X,"=",T,","]);
- mtoupper(M0,F|step=St+1,opt=Opt);
- }
- break;
- }
- }
- if(Var==[] && Opt>6){
- for(Var=vars(TP0);Var!=[];Var=cdr(Var)){
- if(mydeg(TP0,X=car(Var))==1){
- /* TP0=A*X+B, A is a poly of X0 with rational funct */
- T=nm(mycoef(TP0,1,X));
- for(Var0=vars(T);Var0!=[]; Var0=cdr(Var0)){
- X0=car(Var0);
- if(type(dn(red(PC/type(mycoef(T,mydeg(T,X0),X0)))))>1) continue;
- TR=getroot(T,X0|mult=1);
- if(findin(X0,vars(TR))<0) break;
- }
- if(Var0==[]) continue;
- for(;TR!=[0];TR=cdr(TR)){
- if(TR==[]){
- TR=[0,0];
- T0=-mycoef(TP0,0,X)/mycoef(TP0,1,X);
- X0=X;
- }else T0=car(TR)[1];
- M0=mysubst(M,[X0,T0]);
- if(TeX){
- Lout=cons(["\\hspace{",Tab*(St-3)-1,"mm}\\text{If }",
- X0,"=",T0,","] ,Lout);
- Lout=append(mtoupper(M0,F|step=St+1,opt=Opt,dviout=-2,tab=Tab),
- Lout);
- }else{
- mycat([str_times(" ",St-1)+"If",X0,"=",T0,","]);
- mtoupper(M0,F|step=St+1,opt=Opt);
- }
- }
-
- }
- break;
- }
- }
- if(Var==[]){
- FF=1;
- }
- }
- if(Q0!=1){
- if(FF) FF=1;
- if(TeX) Lout=cons(["\\hspace{",Tab*(St-3)-1,"mm}\\text{"+Assume[FF]+" }",Q0/=fctr(Q0)[0][0],"\\ne0,"],
- Lout);
- else mycat([str_times(" ",St-1)+Assume[FF],Q0,"!=0,"]);
- PC*=Q0;St++;
- }
- }
- IF=M[JJ][K]=1;
- if(Mul!=1){
- for(L=K+1; L<Size[1]; L++)
- M[JJ][L]=red(M[JJ][L]/Mul);
- if(St){
- if(TeX)
- Lout=cons([Top+"\\xrightarrow{",Line,JJ+1,
- "\\ \\times=\\ \\left(",red(1/Mul),"\\right)}",
- dupmat(M)],Lout);
- else
- mycat0([Top+"line",JJ+1, " *= (",red(1/Mul), ")\n",M,"\n\n"],0);
- }
- }
-
- }
- for(J = (Opt>0)?0:(JJ+1); J < Size[0]; J++){
- if(J == JJ)
- continue;
- Mul = -M[J][K];
- if(Mul!=0){
- if(Opt!=2) Mul=rmul(Mul,1/M[JJ][K]);
- for(I = K+1; I < Size[1]; I++)
- M[J][I] = radd(M[J][I],rmul(M[JJ][I],Mul));
- M[J][K] = 0;
- if(St){
- if(Mul<0){
- Mul=-Mul;Sgn=0;
- }else Sgn=1;
- if(TeX){
- if(Mul==1)
- Lout=cons([Top+"\\xrightarrow{", Line,J+1,TeXs[Sgn],Line,JJ+1,
- "}",dupmat(M)],Lout);
- else Lout=cons([Top+"\\xrightarrow{", Line,J+1,TeXs[Sgn],Line,JJ+1,
- "\\times\\left(",Mul,"\\right)}",dupmat(M)],Lout);
- }else{
- if(Mul==1)
- mycat0([Top+"line",J+1, Lins[Sgn],JJ+1,"\n",M,"\n\n"],0);
- else
- mycat0([Top+"line",J+1, Lins[Sgn],JJ+1," * (",Mul,")\n",M,"\n\n"],0);
- }
- }
- }
- }
- JJ++;
- }
- }
- }
- if(TeX){
- if(TeX==-2) return Lout;
- Lout=reverse(Lout);
- Br="\\allowdisplaybreaks";
- Cr="\\\\\n &";
- if(getopt(pages)==1) Cr=Br+Cr;
- if(type(S=getopt(cr))==7) Cr=S;
- if(type(Lim=getopt(lim))==1){
- if(Lim>0){
- if(Lim<30) Lim=TeXLim;
- Lim*=2;
- }
- }else Lim=0;
- Out = ltotex(Lout|opt=["cr","spts0"],str=1,cr=Cr,lim=Lim);
- if(TeX<0) return Out;
- dviout(Out|eq=(str_str(Cr,Br)>=0)?6:5,keep=(TeX==1)?0:1);
- }
- return M;
-}
-
-def mydet2(M)
-{
- S = size(M);
- Det = 1;
- MM = mtoupper(M,0);
- for(I = 0; I < S[0]; I++)
- Det = rmul(Det,MM[I][I]);
- return Det;
-}
-
-def myrank(MM)
-{
- S = size(MM);
- M = dupmat(MM);
- M = mtoupper(M,0);
- C = 0;
- for(I = K = 0; I < S[0]; I++){
- for(J = K; J < S[1]; J++){
- if(M[I][J] != 0){
- C++; K++;
- break;
- }
- }
- }
- return C;
-}
-
-def meigen(M)
-{
- F = getopt(mult);
- if(type(M)==4 || type(M)==5){
- II=length(M);
- for(R=[],I=II-1; I>=0; I--){
- if(F==1)
- R=cons(meigen(M[I]|mult=1),R);
- else
- R=cons(meigen(M[I]),R);
- }
- return R;
- }
- S = size(M)[0];
- P = mydet2(mgen(S,0,[zz],0)-M);
- return (F==1)?getroot(P,zz|mult=1):getroot(P,zz);
-}
-
-def transm(M)
-{
- if(type(M)!=6) M=s2m(M);
- if(type(M)!=6){
- errno(0);
- return 0;
- }
- L=[M];TeX="";
- Line=["\\text{line}","\\text{col}"];
- if((DVI=getopt(dviout)) !=1) DVI=0;
- else dviout(M);
- for(;;){
- print(L0=dupmat(car(L)));
- Sz=size(L0);
- S=keyin("? ");
- N=0;
- if(str_len(S)<=1){
- if(S=="q") return L;
- if(S=="t"){
- N=mtranspose(L0);
- TeX=["\\text{transpose}"];
- }
- else if(S=="f"){
- if(length(L)>1){
- if(LF!=0) TeX="";
- L=cdr(L);LF=L0;
- if(DVI){
- dviout0(-1);
- dviout(" ");
- }
- }
- }else if(S=="g"){
- if(LF!=0) N=LF;
- }else if(S=="0"){
- N=M;L=[];TeX=[];
- }else if(S=="a"||S=="A"){
- if(DVI&&S=="A") mtoupper(L0,0|step=1,opt=10,dviout=1);
- else mtoupper(L0,0|step=1,opt=10);
- }else{
- mycat0([
- "2,5 : line2 <-> line5",
- "2,5,-2 ; line2 += (-2)*line5",
- "2,2,-2 : line2 *= -2",
- "2,5,0 : line2 += (?)*line5 for reduction",
- "r,2,5 : raw2 <-> raw5 (r,2,5,-2 etc.)",
- "s,x,2 : subst(*,x,2)",
- "t : transpose",
- "0 : first matrix",
- "f : previous matrix",
- "g : next matrix (only after f)",
- "A : auto (a : without TeX)",
- "q : quit"
- ],1|delim="\n");
- }
- }else{
- FR=0;
- S=evals(S|del=",");
- if(S[0]==r){
- FR=1; S=cdr(S);
- }
- if((LL=length(S))>=2){
- S0=S[0]-1;S1=S[1]-1;
- if(S[0]==s){
- if(length(S)==3) N=subst(L0,S[1],S[2]);
- if(DVI) TeX=[S[1],"\\mapsto",S[2]];
- }else if(FR==0){
- if(S0<0 || S0>=Sz[0] || S1<0 || S1>=Sz[0]) continue;
- if(LL==2){
- N=rowx(L0,S0,S1);
- if(DVI) TeX=[Line[0],S[0],"\\ \\leftrightarrow\\ ",Line[0],S[1]];
- }else{
- S2=S[2];
- if(S0==S1){
- N=rowm(L0,S0,S2);
- if(DVI) TeX=[Line[0],S[0],"\\ \\times=\\ ",S2];
- }else{
- if(S2==0){
- for(J=0;J<Sz[1] && L0[S1][J]==0;J++);
- if(J<Sz[1]) S2=-L0[S0][J]/L0[S1][J];
- }
- if(S2!=0){
- N=rowa(L0,S0,S1,S2);
- if(DVI) TeX=[Line[0],S[0],"\\ +=\\ ",Line[0],
- S[1],"\\ \\times\\ (",S2,")"];
- }
- }
- }
- }else{
- if(S0<0 || S0>=Sz[1] || S1<0 && S1>=Sz[1]) continue;
- if(LL==2){
- N=colx(L0,S0,S1);
- if(DVI) TeX=[Line[1],S[0],"\\ \\leftrightarrow\\ ",Line[1],S[1]];
- }else{
- S2=S[2];
- if(S0==S1){
- N=colm(L0,S0,S2);
- if(DVI) TeX=[Line[1],S[0],"\\ \\times=\\ ",S[2]];
- }else{
- if(S2!=0){
- for(J=0; I1<Sz[0] && L0[I1][J]==0; J++);
- if(J<Sz[0]) S2=-L0[J][S0]/L0[J][S1];
- }if(S2!=0){
- N=cola(L0,S0,S1,S2);
- if(DVI) TeX=[Line[1],S[0],"\\ +=\\ ",Line[1],
- S[1],"\\ \\times\\ (",S2,")"];
- }
- }
- }
- }
- }
- }
- if(N!=0){
- LF=0;L=cons(N,L);
- if(DVI) dviout("\\xrightarrow{"+ltotex(TeX|opt="spts0",str=1)+"}"+mtotex(N)|eq=8);
- }
- }
-}
-
-def vgen(V,W,S)
-{
- IM=length(V);
- I=(getopt(opt)==0)?IM:0;
- for(SS=0; I<IM && (SS==0 || V[I]<=W[I]); I++)
- SS += W[I];
- if(I<IM){
- W[I]++;
- SS--;
- }else
- SS=S;
- for(J=0;J<I;J++){
- W[J] = (SS<=V[J])?SS:V[J];
- SS -= W[J];
- }
- if(SS>0)
- return -1;
- return(I==IM)?0:I;
-}
-
-def mmc(M,X)
-{
- Mt=getopt(mult);
- if(type(M)==7) M=os_md.s2sp(M);
- if(type(M)!=4||type(M[0])!=6) return 0;
- if(type(M[0])!=6){ /* spectre type -> GRS */
- G=s2sp(M|std=1);
- L=length(G);
- for(V=[],I=L-2;I>=0;I--) V=cons(makev([I+10]),V);
- V=cons(makev([L+9]),V);
- G=sp2grs(G,V,[1,length(G[0]),-1]|mat=1);
- if(getopt(short)!=0){
- V=append(cdr(V),[V[0]]);
- G=shortv(G,V);
- }
- R=chkspt(G|mat=1);
- if(Mt!=1) Mt=0;
- if(R[2]!=2 || R[3]!=0 || !(R=getbygrs(G,1|mat=1))) return 0;
- MZ=newmat(1,1);
- SS=length(G);
- if(Mt==1) SS=SS*(SS-1)/2;
- for(M=[],I=0;I<SS;I++) M=cons(MZ,M);
- for(RR=R; RR!=[]; RR=cdr(RR)){
- RT=car(RR)[0];
- if(type(RT)==4){
- if(RT[0]!=0) M=mmc(M,[RT[0]]|simplify=Simp);
- M=mmc(M,[cdr(RT)]);
- }
- }
-/* for(R=cdr(R);R!=[];R=cdr(R)) M=mmc(M,[car(R)[0]]|mult=Mt); */
- }
- if(X==0) return M;
- L=length(M);
- if((L>=6 && Mt!=0)||(L==3&&Mt==1)){
- for(SS=2,I=3; I<L; I+=(++SS));
- if(I!=L) return -1;
- Mt=1;
- }else{
- SS=L;Mt=0;
- }
- if(length(X)==SS+1){
- if(car(X)!=0&&(M=mmc(M,[car(X)]|mult=Mt))==0) return M;
- return mmc(M,cdr(X)|mult=Mt);
- }
- for(I=X;I!=[];I=cdr(I)) if(I[0]!=0) break;
- if(I==[]) return M;
- Simp=getopt(simplify);
- if(Simp!=0 && type(Simp)!=1) Simp=2;
- N=newvect(L);
- for(I=0;I<L;I++) N[I]=dupmat(M[I]);
- S=size(N[0])[0];
- if(type(X)==4&&length(X)>SS){ /* addition */
- for(I=0;I<SS;I++,X=cdr(X)) if(X[I] != 0) N[I] = radd(N[I],car(X));
- }
- if(length(X)!=1) return 0;
- X=X[0];
- MZ = newmat(S,S);
- MM = newvect(L);
- for(M1=J=0; J<SS; J++){
- for(R=[],I=SS-1; I>=0; I--){
- if(I==J){
- for(RR=[],K=SS-1; K>=0; K--)
- RR=cons((K==I)?N[K]+diagm(S,[X]):N[K],RR);
- R=cons(RR,R);
- }else R=cons([MZ],R);
- }
- MM[J]=newbmat(SS,SS,R);
- if(J==0) M1=MM[0];
- else M1=radd(M1,MM[J]);
- }
- /* middle convolution */
- for(P=0,Q=1;J<L;J++){ /* A_{P,Q} */
- for(R=[],I=SS-1; I>=0; I--){
- for(RR=[],K=SS-1;K>=0;K--){
- MT=MZ;
- if(I==K){
- MT=N[J];
- if(I==P) MT-=N[Q];
- else if(I==Q) MT-=N[P];
- }else if(I==P && K==Q) MT=N[Q];
- else if(I==Q && K==P) MT=N[P];
- RR=cons(MT,RR);
- }
- R=cons(RR,R);
- }
- MM[J]=newbmat(SS,SS,R);
- if(++Q==SS){
- P++;Q=P+1;
- }
- }
- for(R=[],I=SS-1; I>=0; I--){
- for(RR=[N[I]],J=0; J<I; J++) RR=cons(MZ,RR);
- R=cons(RR,R);
- }
- M0 = newbmat(SS,SS,R);
- KE = append(mykernel(M0|opt=1),mykernel(M1|opt=1));
- if(length(KE) == 0) return MM;
- KK = mtoupper(lv2m(KE),0);
- for(I=0;I<L;I++) MM[I] = mmod(MM[I],KK);
- if(Simp!=0) MM = mdsimplify(MM|type=Simp);
- return MM;
-}
-
-def lpgcd(L)
-{
- for(F=[]; L!=[]; L=cdr(L)){
- if((P=car(L))==0) continue;
- if(F==[]){
- F=fctr(P);
- S=length(F);
- S--;
- V=newvect(S);
- M=newvect(S);
- for(I=0; I<S; I++){
- M[I] = F[I+1][1];
- V[I] = F[I+1][0];
- }
- N=nm(ptozp(P|factor=1)[1]);
- continue;
- }
- N=igcd(ptozp(P|factor=1)[1],N);
- for(I=0; I<S; I++){
- for(Q=P,CT=0; CT<M[I]; CT++)
- if((Q=tdiv(Q,V[I])) == 0) break;
- if(CT<M[I]) M[I]=CT;
- }
- }
- if(F==[]) return 0;
- for(Q=N,I=0;I<S; I++){
- while(M[I]>0){
- Q *= V[I];
- M[I]--;
- }
- }
- return Q;
-}
-
-def mdivisor(M,X)
-{
- S=size(M=dupmat(M));
- XX=(type(X)==4||X==0)?X:[0,X];
- S0=S[0]; S1=S[1];
- if((Tr=getopt(trans))==1||Tr==2){
- Tr0=1;
- GR=mgen(S0,0,1,0); GC=mgen(S1,0,1,0);
- }else Tr=Tr0=0;
- /* 0,a,b : (a,b)->(1,1)
- 1 : (1,1) invertible
- 2,i,M : line 0,i by M
- 3,j,M : col 0,j by M
- 4,j : col 1 += col j
- 5,j,T : line j by T
- 6,j,T : col 1 += col j by T (non-com)
- 7,j : line 2<->j (non-com)
- */
- if(type(V=getopt(dviout))==1){
- if(type(XX)==4 && type(XX[0])>1) Var=[XX[1],"\\partial"];
- else Var=0;
- Tr=(abs(V)==3)?0:1;
- MM=dupmat(M);
- II=((S[0]>S[1])?S[1]:S[0])+1;
- if(abs(V)>1){
- Is1=Js1=S[0]+S[1];
- Is=Js=[0,[Is1]];
- }else{
- Is=[0,[Is1=S[0]]];Js=[0,[Js1=S[1]]];
- }
- VV=V;
- V=newvect(II);
- for(I=0;I<II;I++) V[I]=[];
- N=newbmat(2,2,[[M,mgen(S[0],0,[1],0)],[mgen(S[1],0,[1],0)]]);
- mdivisor(M,X|step=1,dviout=V);
- L=S[0]+S[1];
- if(Tr){
- NN=mperm(N,Is1,Js1);
- for(K=S[0];K<Is1;K++){
- for(L=S[1];L<Js1;L++)
- NN[K][L]=" ";
- }
- Out=[[mperm(NN,Is,Js)]];
- }
- for(I=1;I<II;I++){
- I0=I-1;
- if(V[I]==[]) continue;
- for(T=reverse(V[I]);T!=[];T=cdr(T)){
- St=[];
- C=car(R=car(T));
- if(C==0){
- N=mperm(N,(R[1]==0)?0:[[R[1]+I0,I0]],(R[2]==0)?0:[[R[2]+I0,I0]]);
-
- if(Tr){
- if(R[2]!=0) St=append(["C",I,"\\leftrightarrow C",R[2]+I],St);
- if(R[1]!=0){
- if(R[2]!=0) St=cons(",\\ ",St);
- St=append(["L",I,"\\leftrightarrow L",R[1]+I],St);
- }
- Out=cons(St,Out);
- }
- }else if(C==1){
- P=1/N[I0][I0];N[I0][I0]=1;
- if(P!=1){
- for(J=I;J<L;J++)
- N[I0][J]=muldo(P,N[I0][J],XX);
-
- if(Tr){
- St=append(["L",I,"\\leftarrow(",P,")","\\times L",I],St);
- Out=cons(St,Out);
- NN=mperm(N,Is1,Js1);
- for(K=S[0];K<Is1;K++){
- for(L=S[1];L<Js1;L++)
- NN[K][L]=" ";
- }
- Out=cons(["\\to",mperm(NN,Is,Js)],Out);
- }
- }
- for(F=0,J=I;J<S[0];J++){
- if((P=N[J][I0])==0) continue;
- F++;
- N[J][I0]=0;
- for(K=I;K<L;K++)
- N[J][K]=red(N[J][K]-muldo(P,N[I0][K],XX));
-
- }
- if(F){
- if(Tr){
- Out=cons(["Li\\ -\\!=\\ \\circ\\times L",I,"\\quad(i>",I,")"],Out);
- NN=mperm(N,Is1,Js1);
- for(K=S[0];K<Is1;K++){
- for(L=S[1];L<Js1;L++)
- NN[K][L]=" ";
- }
- Out=cons(["\\to",mperm(NN,Is,Js)],Out);
- }
- }
- for(F=0,J=I;J<S[1];J++){
- if((P=N[I0][J])==0) continue;
- F++;
- N[I0][J]=0;
- for(K=I;K<L;K++)
- N[K][J]=red(N[K][J]-muldo(N[K][I0],P,XX));
- }
- if(F&&Tr) Out=cons(["Cj\\ -\\!=\\ C",I,"\\times\\circ\\quad(j>",I,")"],Out);
- else continue;
- }else if(C==2){
- C=mat(N[I0],N[R[1]+I0]);C=muldo(R[2],C,XX);
- for(J=0;J<L;J++){
- N[I0][J]=C[0][J];N[R[1]+I0][J]=C[1][J];
- }
- if(Tr) Out=cons([dupmat(R[2]),"\\begin{pmatrix}L",I,"\\\\L",R[1]+I,
- "\\end{pmatrix}"],Out);
- }else if(C==3){
- C=newmat(L,2);
- for(J=0;J<L;J++){
- C[J][0]=N[J][I0];C[J][1]=N[J][R[1]+I0];
- }
- C=muldo(C,R[2],XX);
- for(J=0;J<L;J++){
- N[J][I0]=C[J][0];N[J][R[1]+I0]=C[J][1];
- }
- if(Tr) Out=cons(["\\begin{pmatrix}C",I,"&C",R[1]+I,"\\end{pmatrix}",
- dupmat(R[2])],Out);
- }else if(C==4){
- for(J=0;J<L;J++)
- N[J][I0]=red(N[J][I0]+N[J][R[1]+I0]);
- if(Tr) Out=cons(["C",I,"\\ +\\!=\\ C",R[1]+I],Out);
- }else if(C==5){
- for(J=0;J<L;J++)
- N[I0+R[1]][J]=red(R[2]*N[I0+R[1]][J]);
- if(Tr) Out=cons(["L",I+R[1],"\\leftarrow(", R[2],")\\times L",I+R[1]],
- Out);
- }else if(C==6){
- for(J=0;J<L;J++)
- N[J][I0]=N[J][I0]+muldo(N[J][I0+R[1]],R[2],XX);
- if(Tr) Out=cons(["C",I,"\\ +\\!=\\ C",I+R[1],"\\times(", R[2],")"],
- Out);
- }else if(C==7){
- mycat(["line",I+1,"\\leftrightarrow",R[1]+I]);
- for(J=0;J<L;J++){
- C=N[I][J];N[I][J]=N[R[1]+I0][J];N[R[1]+I0][J]=C;
- }
- if(Tr) Out=cons(["L",I+1,"\\leftrightarrow L",R[1]+I],Out);
- }
- if(Tr){
- NN=mperm(N,Is,Js);
- for(K=S[0];K<Is1;K++){
- for(L=S[1];L<Js1;L++)
- NN[K][L]=" ";
- }
- Out=cons(["\\to",NN],Out);
- }
- }
- }
- if(!Tr){
- NN=mperm(N,Is,Js);
- Out=[];
- }
- if(S[0]+S[1]==Is1){
- N1=mperm(NN,[0,[S[0]]],[S[1],[S[0]]]);
- N2=mperm(NN,[S[0],[S[1]]],[0,[S[1]]]);
- N3=mperm(NN,[0,[S[0]]],[0,[S[1]]]);
- R1=mdivisor(N1,X|trans=1)[1];
- R2=mdivisor(N2,X|trans=1)[1];
- if(Tr){
- Out=cons(["\\text{As a result,}"],Out);
- Out=cons([N3,"=",N1,MM,N2],Out);
- if(S[0]==S[1] && N3==mgen(S[0],0,1,0)){
- Out=cons(["=",muldo(N2,N1,XX),MM,"."],Out);
- }else{
- Out=cons([N1,"^{-1}=",R1,","],Out);
- Out=cons([N2,"^{-1}=",R2,"."],Out);
- }
- }else{
- Out=cons([N3,"=P",MM,"Q,"],Out);
- Out=cons(["P=",N1,"=",R1,"^{-1},"],Out);
- Out=cons(["Q=",N2,"=",R2,"^{-1}."],Out);
- }
- }
- Out = ltotex(reverse(Out)|opt=["cr","spts0"],str=1,cr=15,var=Var);
- if(S[0]+S[1]==Is1)
- Out=str_subst(Out,"\\texttt{ }","");
- if(VV>0){
- dviout(Out|eq=6);
- return NN;
- }
- return Out;
- }else if(type(V)!=5) V=0;
-
- if(type(St=getopt(step))!=1) St=0;
- for(FF=": start";;){
- if(St && V==0){
- if(Tr){
- mycat0([St,FF,"\n"],0);
- mycat([GR,"\n"]);mycat([M,"\n"]);mycat([GC,"\n"]);
- }
- else mycat0([St,FF,"\n",M,"\n"],0);
- }
- if(X==0||X==[0,0]){ /* search minimal non-zero element */
- for(K=F=I=0; I<S0; I++){
- for(J=0; J<S1; J++){
- if((P=abs(M[I][J]))!=0 && (K>P || K==0)){
- K=P; R=[I,J];
- }
- }
- }
- R=cons(K-1,[R]);
- }
- else R=mymindeg(M,XX[1]|opt=1);
- if(R[0]<0){ /*zero matrix */
- if(Tr) return [[],mgen(S0,0,1,0),mgen(S1,0,1,0)];
- return [];
- }
- R0=R[1][0];R1=R[1][1];
- if(R0!=0){
- M=rowx(M,0,R0);
- if(Tr) GR=rowx(GR,0,R0);
- }
- if(R1!=0){
- M=colx(M,0,R1);
- if(Tr) GC=colx(GC,0,R1);
- }
- if(St>0 && (R0!=0 || R1!=0))
- if(type(V)==5) V[St]=cons([0,R0,R1],V[St]);
- else if(Tr){
- mycat0([St,": (",R0+1,",",R1+1,") -> (1,1)\n"],0);
- mycat([GR,"\n"]);mycat([M,"\n"]);mycat([GC,"\n"]);
- }else mycat0([St,": (",R0+1,",",R1+1,") -> (1,1)\n",M,"\n"],0);
- if(R[0]==0){ /* (1,1) : invertible */
- if(type(V)==5) V[St]=cons([1],V[St]);
- P=M[0][0]; M[0][0]=1;
- for(J=0;J<S1;J++){ /* (1,1) -> 1 */
- if(J>0) M[0][J]= red(M[0][J]/P);
- if(Tr) GR[0][J]=red(GR[0][J]/P);
- }
- if(S0>1 && S1>1) N=newmat(S0-1,S1-1);
- else N=0;
- for(I=1;I<S0;I++){
- P=M[I][0]; M[I][0]=0;
- for(J=1;J<S1;J++)
- N[I-1][J-1]=M[I][J]=red(M[I][J] - muldo(P,M[0][J],XX));
- if(Tr){
- for(J=0;J<S0;J++)
- GR[I][J] = red(GR[I][J] -muldo(P,GR[0][J],XX));
- }
- }
- if(Tr){
- for(J=1;J<S1; J++){
- for(I=0;I<S1;I++) GC[I][J]=red(GC[I][J]-muldo(GC[I][0],M[0][J],XX));
- M[0][J]=0;
- }
- }
- if(St>0 && V==0){
- if(Tr){
- mycat0([St,": unit\n"],0);
- mycat([GR,"\n"]);mycat([M,"\n"]);mycat([GC,"\n"]);
- }
- else mycat0([St,": unit\n",M,"\n"],0);
- }
- if(N==0){
- if(!Tr) return [1];
- if(Tr==2){
- GR0=mdivisor(GR,X|trans=1)[1];
- GC0=mdivisor(GC,X|trans=1)[1];
- return [[1],GR,GC,GR0,GC0];
- }
- return [[1],GR,GC];
- }
- R=mdivisor(N,XX|dviout=V,trans=Tr0,step=(St>0)?St+1:St);
- if(!Tr) return cons(1,R);
- GR=muldo(newbmat(2,2,[[1],[0,R[1]]]),GR,XX);
- GC=muldo(GC,newbmat(2,2,[[1],[0,R[2]]]),XX);
- if(S0==S1 && countin(1,1,R[0])==S0-1){
- GR=muldo(GC,GR,XX); GC=mgen(S0,0,1,0);
- }
- if(Tr==2){
- GR0=mdivisor(GR,X|trans=1)[1];
- GC0=mdivisor(GC,X|trans=1)[1];
- return [cons(1,R[0]),GR,GC,GR0,GC0];
- }
- return [cons(1,R[0]),GR,GC];
- }
- for(I=1;I<S0;I++){
- if(M[I][0]!=0){
-/* Error! when mygcd(A,B,0) with A<=0 or B<=0 */
- R=mygcd(M[I][0],M[0][0],XX); /* R[0]=R[1]*M[I][0]+R[2]*M[0][0] */
- M[0][0]=R[0]; M[I][0]=0; /* 0=R[3]*M[I][0]+R[4]*M[0][0] */
- for(J=1;J<S1;J++){
- T=red(muldo(R[1],M[I][J],XX)+muldo(R[2],M[0][J],XX));
- M[I][J]=red(muldo(R[3],M[I][J],XX)+muldo(R[4],M[0][J],XX));
- M[0][J]=T;
- }
- if(Tr){
- for(J=0;J<S0;J++){
- T=red(muldo(R[1],GR[I][J],XX)+muldo(R[2],GR[0][J],XX));
- GR[I][J]=red(muldo(R[3],GR[I][J],XX)+muldo(R[4],GR[0][J],XX));
- GR[0][J]=T;
- }
- }
- if(St && V==0){
- mycat([" [",R[2],R[1],"]*"]);
- mycat([" [",R[4],R[3],"]"]);
- }
- if(type(V)==5) V[St]=cons([2,I,mat([R[2],R[1]],[R[4],R[3]])],V[St]);
- FF=": line 1 & "+rtostr(I+1); I=S0;
- }
- }
- if(I>S0) continue;
- for(J=1;J<S1;J++){
- if(M[0][J]!=0){
- R=mygcd(M[0][J],M[0][0],XX|rev=1); /* R[0]=M[0][J]*R[1]+M[0][0]*R[2] */
- M[0][0]=R[0]; M[0][J]=0; /* 0=M[0][J]*R[3]+M[0][0]*R[4] */
- for(I=1;I<S0;I++){
- T=red(muldo(M[I][J],R[1],XX)+muldo(M[I][0],R[2],XX));
- M[I][J]=red(muldo(M[I][J],R[3],XX)+muldo(M[I][0],R[4],XX));
- M[I][0]=T;
- }
- if(Tr){
- for(I=0;I<S1;I++){
- T=red(muldo(GC[I][J],R[1],XX)+muldo(GC[I][0],R[2],XX));
- GC[I][J]=red(muldo(GC[I][J],R[3],XX)+muldo(GC[I][0],R[4],XX));
- GC[I][0]=T;
- }
- }
- if(type(V)==5) V[St]=cons([3,J,mat([R[2],R[4]],[R[1],R[3]])],V[St]);
- FF=": column 1 & "+rtostr(J+1);J=S1;
- if(St && V==0){
- mycat([" *[",R[2],R[4],"]"]);
- mycat([" [",R[1],R[3],"]"]);
- }
- }
- }
- if(J>S1) continue;
- if(S0==1 || S1==1){
- P=M[0][0];
- if(X==0){
- if(P<0){
- P=-P;
- if(Tr) for(J=0;J<S0;J++) GR[0][J]=-GR[0][J];
- if(type(V)==5) V[St]=cons([5,0,-1],V[St]);
- }
- }else{
- P=nm(P);
- if((R=fctr(P)[0][0])!=1){
- P/=R;
- if(Tr) for(J=0;J<S0;J++) GR[0][J]/=R;
- if(type(V)==5) V[St]=cons([5,0,1/R],V[St]);
- }
- }
- if(!Tr) return [P];
- if(Tr==2){
- GR0=mdivisor(GR,X|trans=1)[1];
- GC0=mdivisor(GC,X|trans=1)[1];
- return [[P],GR,GC,GR0,GC0];
- }
- return [[P],GR,GC];
- }
- if(XX==0 || (type(XX)==4 && XX[0]==0)){ /* commutative case */
- P=M[0][0];
- for(I=1; I<S0; I++){
- for(J=1; J<S1; J++)
- if(divdo(M[I][J],P,XX)[1]!=0) break;
- if(J<S1){
- if(type(V)==5) V[St]=cons([4,J],V[St]);
- FF=": column 1 += col"+rtostr(J+1);
- for(I=1;I<S0;I++) M[I][0]=M[I][J];
- if(Tr) for(I=0;I<S1;I++) GC[I][0]=red(GC[I][0]+GC[I][J]);
- break;
- }
- }
- if(J<S1) continue;
- N=newmat(S0-1,S1-1);
- for(I=1;I<S0;I++)
- for(J=1;J<S1;J++) N[I-1][J-1]=red(M[I][J]/P);
- if(X==0){
- if(P<0) P=-P;
- if(Tr) for(J=0;J<S0;J++) GR[0][J]=-GR[0][J];
- }else{
- P=M[0][0];
- P=nm(P);
- P/=fctr(P)[0][0];
- if(Tr) for(J=0;J<S0;J++) GR[0][J]/=fctr(P)[0][0];
- }
- R=mdivisor(N,XX|dviout=V,trans=Tr0,step=(St>0)?St+1:St);
- RT=(Tr)?R[0]:R;
- for(RR=[],L=reverse(RT);L!=[];L=cdr(L))
- RR=cons(red(P*car(L)),RR);
- RR=cons(P,RR);
- if(!Tr) return RR;
- GR=muldo(newbmat(2,2,[[1],[0,R[1]]]),GR,XX);
- GC=muldo(GC,newbmat(2,2,[[1],[0,R[2]]]),XX);
- if(S0==S1 && countin(1,1,RR)==S0){
- GR=muldo(GC,GR,XX); GC=mgen(S0,0,1,0);
- }
- if(Tr==2){
- GR0=mdivisor(GR,X|trans=1)[1];
- GC0=mdivisor(GC,X|trans=1)[1];
- return [RR,GR,GC,GR0,GC0];
- }
- return [RR,GR,GC];
- } /* End of commutative case */
- for(I=1; I<S0; I++){
- for(J=1; J<S1; J++){
- if(M[I][J] != 0){
- for(T=1;I<S0;T*=XX[0]){
- R=divdo(muldo(M[I][J],T,XX),M[0][0],XX);
- if(R[1]!=0){
- if(type(V)==5) V[St]=cons([6,J,T],V[St]);
- FF=": column 1 += col"+rtostr((J+1)*T);
- if(I>1){
- M=rowx(M,1,I);
- if(Tr) GR=rowx(GR,1,I);
- if(type(V)==5) V[St]=cons([7,I],V[St]);
- FF+=", line 2<->"+rtostr(I+1);
- }
- for(I=1;I<S0;I++) M[I][0]=muldo(M[I][J],T,XX);
- if(Tr)
- for(I=1;I<S1;I++) GC[I][0]=red(GC[I][0]+muldo(GC[I][J],T,XX));
- I=S0+1; J=S1;
- break;
- }
- }
- }
- }
- if(I>S0) break;
- }
- if(I==S0) return []; /* zero matrix : never happen */
- }
-}
-
-def mdsimplify(L)
-{
- T=getopt(type);
- SS=0;
- if(type(L)==6){
- L=[L]; SS=1;
- }
- if(type(L)==5){
- SS=2;
- L = vtol(L);
- }
- M=car(L);
- S=size(M)[0];
-#if 0
- MN=newmat(S,S);
- MD=newmat(S,S);
- for(I=0;I<S;I++){
- for(J=0;J<S;J++){
- TN=0;TD=1;
- for(PL=L;PL!=[];PL=cdr(PL)){
- TM=red(car(PL)[I][J]);
- TN=lgcd([TN,nm(TM)]|pol=1);
- TD=llcm([TD,dn(TM)]|pol=1);
- }
- MN[I][J]=TM;
- MD[I][J]=TN;
- }
- }
- for(I=0;I<S;I++){
- for(J=0;J<S;J++){
- if(I==J||type(TD[I][J])<2||type(TN[J][I])<2) continue;
- for(FC=cdr(fctr(TD[I][J]));FC!=[];){
- TFC=car(FC);
- if(type(red(TN[J][I]/TFC[0]))>2) continue;
- }
- }
- }
-#endif
- DD=newvect(S);
- for(I=0; I<S; I++){
- LN=RN=[];
- LD=RD=1;
- for(LL=L; LL!=[]; LL=cdr(LL)){
- M = car(LL);
- for(J=0; J<S; J++){
- if(J==I) continue;
- if((MM=M[I][J]) != 0){
- LN = cons(nm(MM),LN);
- if(type(MM)==3 && tdiv(LD,P=dn(MM))==0)
- LD=tdiv(LD*P,gcd(LD,P));
- }
- if((MM=M[J][I]) != 0){
- RN = cons(nm(MM),RN);
- if(type(MM)==3 && tdiv(RD,P=dn(MM))==0)
- RD=tdiv(RD*P,gcd(RD,P));
- }
- }
- }
- if(T==1 || T==3) LQ=RD;
- else{
- P=lpgcd(LN);
- LQ=gcd(P,RD);
- if(P!=0) LQ *= nm(fctr(P)[0][0]);
- }
- if(T==1 || T==2) RQ=LD;
- else{
- P=lpgcd(RN);
- RQ=gcd(P,LD);
- if(P!=0) RQ *= nm(fctr(P)[0][0]);
- }
- if((P=gcdz(LQ,RQ))!=1){
- LQ = red(LQ/P); RQ=red(RQ/P);
- }
- DD[I]=red(LQ/RQ);
- if(LQ!=1 || RQ!=1){
- for(LA=[],LL=L; LL!=[]; LL=cdr(LL)){
- M = car(LL);
- for(J=0; J<S; J++){
- if(I!=J){
- if(LQ!=1){
- M[I][J] = red(M[I][J]/LQ);
- M[J][I] = red(M[J][I]*LQ);
- }
- if(RQ!=1){
- M[J][I] = red(M[J][I]/RQ);
- M[I][J] = red(M[I][J]*RQ);
- }
- }
- }
- }
- }
- }
- if(SS==2) L=ltov(L);
- if(SS==1) L=L[0];
- if(getopt(show)==1) L=[L,DD];
- return L;
-}
-
-def m2mc(M,X)
-{
- if(type(M)<2){
- mycat([
-"m2mc(m,t) or m2mc(m,[t,s])\t Calculation of Pfaff system of two variables\n",
-" m : list of 5 residue mat. or GRS/spc for rigid 4 singular points\n",
-" t : [a0,ay,a1,c], swap, GRS, GRSC, sp, irreducible, pair, pairs, Pfaff, All\n",
-" s : TeX, dviout, GRSC\n",
-" option : swap, small, simplify, operator, int\n",
-" Ex: m2mc(\"21,21,21,21\",\"All\")\n"
-]);
- return 0;
- }
- if(type(M)==7) M=s2sp(M);
- if(type(X)==7) X=[X];
- Simp=getopt(simplify);
- if(Simp!=0 && type(Simp)!=1) Simp=2;
- Small=(getopt(small)==1)?1:0;
- if(type(M[0])==4){
- if(type(M[0][0])==1){ /* spectral type */
- XX=getopt(dep);
- if(type(XX)!=4 || type(XX[0])>1) XX=[1,length(M[0])];
- M=sp2grs(M,[d,a,b,c],[XX[0],XX[1],-2]|mat=1);
- if(XX[0]>1 && XX[1]<2) XX=[XX[0],2];
- if(getopt(int)!=0){
- T=M[XX[0]-1][XX[1]-1][1];
- for(V=vars(T);V!=[];V=cdr(V)){
- F=coef(T,1,car(V));
- if(type(F)==1 && dn(F)>1)
- M = subst(M,car(V),dn(F)*car(V));
- }
- }
- V=vars(M);
- if(findin(d1,V)>=0 && findin(d2,V)<0 && findin(d3,V)<0)
- M=subst(M,d1,d);
- }
- RC=chkspt(M|mat=1);
- if(RC[2] != 2 || RC[3] != 0){ /* rigidity idx and Fuchs cond */
- erno(0);return 0;
- }
- R=getbygrs(M,1|mat=1);
- if(getopt(anal)==1) return R; /* called by mc2grs() */
- Z=newmat(1,1,[[0]]);
- N=[Z,Z,Z,Z,Z];
- for(RR=R; RR!=[]; RR=cdr(RR)){
- RT=car(RR)[0];
- if(type(RT)==4){
- if(RT[0]!=0) N=m2mc(N,RT[0]|simplify=Simp);
- N=m2mc(N,[RT[1],RT[2],RT[3]]|simplify=Simp);
- }
- }
- if(type(X)==4 && type(X[0])==7)
- return m2mc(N,X|keep=Keep,small=Small);
- return N;
- }
- if(type(X)==4 && type(X[0])==7){
- Keep=(getopt(keep)==1)?1:0;
- if(X[0]=="All"){
- dviout("Riemann scheme"|keep=1);
- m2mc(M,[(findin("GRSC",X)>=0)?"GRSC":"GRS","dviout"]|keep=1);
- dviout("Spectral types : "|keep=1);
- m2mc(M,["sp","dviout"]|keep=1);
- dviout("\\\\\nBy the decompositions"|keep=1);
- R=m2mc(M,["pairs","dviout"]|keep=1);
- for(R0=R1=[],I=1; R!=[]; I++, R=cdr(R)){
- for(S=0,RR=car(R)[1][0];RR!=[]; RR=cdr(RR)) S+=RR[0];
- if(S==0) R0=cons(I,R0);
- else if(S<0) R1=cons(I,R1);
- }
- S="irreducibility\\ $"+((length(R0)==0)?"\\Leftrightarrow":"\\Leftarrow")
- +"\\ \\emptyset=\\mathbb Z\\cap$";
- dviout(S|keep=1);
- m2mc(M,["irreducible","dviout"]|keep=1);
- if(R0!=[])
- dviout(ltotex(reverse(R0))|eq=0,keep=1,
- title="The following conditions may not be necessary for the irreducibility.");
- if(R1!=[])
- dviout(ltotex(reverse(R1))|eq=0,keep=1,title="The following conditions can be omitted.");
- if(getopt(operator)!=0){
- dviout("The equation in a Pfaff form is"|keep=1);
- m2mc(M,["Pfaff","dviout"]|keep=Keep,small=Small);
- }
- else if(Keep!=1) dviout(" ");
- return M;
- }
- Show=0;
- if(length(X)>1){
- if(X[1]=="dviout") Show=2;
- if(X[1]=="TeX") Show=1;
- }
- if(X[0]=="GRS"||X[0]=="GRSC"||X[0]=="sp"){
- Y=radd(-M[0],-M[1]-M[2]);
- if(X[0]!="GRSC"){
- L=meigen([M[0],M[1],M[2],M[3],M[4],Y,radd(-M[1],-M[3]-M[4]),radd(Y,-M[3]-M[4])]|mult=1);
- if(X[0]=="sp"){
- L=chkspt(L|opt="sp");
- V=[L[1],L[0],L[2],L[5]]; W=[L[1],L[3],L[4],L[6]];
- if(Show==2) dviout(s2sp(V)+" : "+s2sp(W)|keep=Keep);
- return [V,W];
- }
- S="x=0&x=y&x=1&y=0&y=1&x=\\infty&y=\\infty&x=y=\\infty\\\\\n";
- }else{
- L=meigen([M[0],M[1],M[2],M[3],M[4],Y,radd(-M[1],-M[3]-M[4]),radd(Y,-M[3]-M[4]),
- radd(M[0],M[1]+M[3]),radd(M[1],M[2]+M[4])]|mult=1);
- S="x=0&x=y&x=1&y=0&y=1&x=\\infty&y=\\infty&x=y=\\infty&x=y=0&x=y=1\\\\\n";
- }
- T=ltotex(L|opt="GRS",pre=S,small=Small);
- if(Show==2) dviout(T|eq=0,keep=Keep);
- if(Show==1) L=T;
- return L;
- }
- if(X[0]=="Pfaff"){
- S=ltotex(M|opt=["Pfaff",u,x,x-y,x-1,y,y-1],small=Small);
- if(Show==2) dviout(S|eq=0,keep=Keep);
- return S;
- }
- if(X[0]=="irreducible"){
- L=meigen([M[0],M[1],M[2],radd(-M[0],-M[1]-M[2])]|mult=1);
- S=getbygrs(L,10|mat=1);
- if(Show==2) dviout(ltotex(S)|eq=0,keep=Keep);
- return S;
- }
- if(X[0]=="pairs"||X[0]=="pair"){
- L=meigen([M[0],M[1],M[2],radd(-M[0],-M[1]-M[2])]|mult=1);
- S=chkspt(L|opt=0);
- V=(Show==2)?1:0;
- S=sproot(L,X[0]|dviout=V,keep=Keep);
- return S;
- }
- if(X[0]=="swap"){
- Swap=getopt(swap);
- if(type(Swap)<1 || Swap==1)
- return newvect(5,[M[3],M[1],M[4],M[0],M[2]]);
- if(Swap==2)
- return newvect(5,[radd(M[0],M[1]+M[3]),M[4],M[2],radd(-M[1],-M[3]-M[4]),M[1]]);
- if(type(Swap)==4 && length(Swap)==3){
- MX=radd(-M[0],-M[1]-M[2]); MY=radd(-M[3],-M[1]-M[4]);
- if(Swap[0]==1){
- MX0=M[2];MY0=M[4];
- }
- else if(Swap[0]==2){
- MX0=MX;MY0=MY;
- }else{
- MX0=M[0];MY0=M[3];
- }
- if(Swap[1]==1){
- MX1=M[2];MY1=M[4];
- }
- else if(Swap[1]==2){
- MX1=MX;MY1=MY;
- }else{
- MX1=M[0];MY1=M[3];
- }
- return newvect(5,MX0,M[1],MX1,MY0,MY1);
- }
- }
- return 0;
- }
- if(getopt(swap)==1)
- return m2mc(m2mc(m2mc(M,"swap"),X),"swap");
- N=newvect(5);
- for(I=0;I<5;I++)
- N[I]=M[I];
- S=size(N[0])[0];
- if(type(X)==4){
- for(I=0;I<3;I++){
- if(X[I] != 0)
- N[I] = radd(N[I],X[I]);
- }
- if(length(X)==3) return N;
- X=X[3];
- }
- MZ = newmat(S,S);
- ME = mgen(S,0,[X],0);
- MM = newvect(5);
- MM[0] = newbmat(3,3, [[N[0]+ME,N[1],N[2]], [MZ], [MZ]]);
- MM[1] = newbmat(3,3, [[MZ], [N[0],N[1]+ME,N[2]], [MZ]]);
- MM[2] = newbmat(3,3, [[MZ], [MZ], [N[0],N[1],N[2]+ME]]);
- MM[3] = newbmat(3,3, [[N[3]+N[1],-N[1]], [-N[0],radd(N[0],N[3])], [MZ,MZ,N[3]]]);
- MM[4] = newbmat(3,3, [[N[4]], [MZ,N[4]+N[2],-N[2]], [MZ,-N[1],radd(N[4],N[1])]]);
- M0 = newbmat(3,3, [[N[0]], [MZ,N[1]], [MZ,MZ,N[2]]]);
- M1 = radd(MM[0],MM[1]+MM[2]);
- KE = append(mykernel(M0|opt=1),mykernel(M1|opt=1));
- if(length(KE) == 0) return MM;
- KK = mtoupper(lv2m(KE),0);
- for(I=0;I<5;I++)
- MM[I] = mmod(MM[I],KK);
- if(Simp!=0) MM = mdsimplify(MM|type=Simp);
- return MM;
-}
-
-def easierpol(P,X)
-{
- if(type(X) == 4){
- for( Y = [] ; X != []; X = cdr(X) )
- Y = cons([0,car(X)], Y);
- }else
- Y = [0,X];
- return rede(P,Y);
-}
-
-def l2p(L,V)
-{
- if(type(L)==4){
- for(S=I=0;L!=[];L=cdr(L),I++)
- S+=car(L)*V^I;
- return S;
- }else if(type(L)==5){
- for(S=0,I=size(L)-1;I>=0;I--)
- S+=L[I]*V^I;
- return S;
- }else{
- if(type(D=getopt(size))==1) D--;
- else D=mydeg(L,V);
- for(S=[];D>=0;D--)
- S=cons(mycoef(L,D,V),S);
- return S;
- }
-}
-
-def paracmpl(L,V)
-{
- if(type(L)==4) L=ltov(L);
- S=length(L);
- Lim=getopt(lim);Low=getopt(low);
- if((F=type(L[0]))>3){
- SV=length(L[0]);
- V0=makenewv(L);
- for(LL=[];S>0;S--)
- LL=cons(l2p(L[S-1],V0),LL);
- G=paracmpl(LL,V|option_list=getopt());
- H=(Lim==1)?G:G[0];
- for(HH=[];H!=[];H=cdr(H)){
- HT=l2p(car(H),V0|size=SV);
- if(F==5) HT=ltov(HT);
- HH=cons(HT,HH);
- }
- H=reverse(HH);
- return (Lim==1)?H:[H,G[1]];
- }
- H=newvect(S);D=newvect(S);
- for(Dn=1,I=0;I<S;I++){
- P=dn(L[I]=red(L[I]));
- Dn=red(Dn*P/gcd(Dn,P));
- }
- if(Dn!=1){
- for(I=0;I<S;I++) L[I]=red(Dn*L[I]);
- }
- G=diagm(S,[1]);
- if(type(V)<4) V=[V];
- VV=lsort(vars(L),V,1);
- V=car(V);
- for(I=0;I<S;I++){
- P=L[I];
- for(J=0,C=P;J<I;J++){
- if(D[J]!=[]){
- C=mycoef(C,DT,VV);
- P-=C*H[J];
- G=cola(G,I,J,-C);
- }
- }
- if(P==0){
- D[I]=[];continue;
- }
- P0=nm(red(P));
- K=mymindeg(P0,V);
- C=mycoef(P0,K,V);
- if(K>0){
- P=red(P/V^K);
- G=colm(G,I,1/V^K);
- }
- for(DT=[],VT=VV;VT!=[];VT=cdr(VT)){
- K=(Low==1)?mymindeg(C,car(VT)):mydeg(C,car(VT));
- C=mycoef(C,K,car(VT));
- DT=cons(K,DT);
- }
- D[I]=DT=reverse(DT);
- for(C=P,VT=VV;VT!=[];VT=cdr(VT),DT=cdr(DT))
- C=mycoef(C,car(DT),car(VT));
- H[I]=P=red(P/C);
- G=colm(G,I,1/C);
- }
- if(Dn!=1){
- for(I=0;I<S;I++){
- TH=red(H[I]/Dn);
- F=fctr(dn(TH));F=cdr(F);
- if(Lim!=1||subst(Dn,V,0)==0){
- for(;F!=[];F=cdr(F)){
- if(lsort(vars(car(F)[0]),VV,2)==[]){
- C=car(F)[0]^car(F)[1];
- TH=red(TH*C);
- G=colm(G,I,C);
- }
- }
- }
- H[I]=TH;
- }
- }
- H=vtol(H);
- if(Lim==1){
- H=subst(H,V,0);
- return map(red,H);
- }
- return [H,map(red,G)];
-}
-
-def mykernel(M)
-{
- if(getopt(opt) == 1)
- M = mtranspose(M);
- S = size(M);
- R = [];
- MM = mtoupper(M,-1);
- for(I = S[0]-1; I >= 0; I--){
- for(J = S[1]-1; J >= 0; J--){
- if(MM[I][J] != 0)
- return R;
- }
- P = easierpol(MM[I][S[1]],zz);
- RR = newvect(S[0]);
- for(J = 0; J < S[0]; J++)
- RR[J] = mycoef(P,J,zz);
- R = cons(RR,R);
- }
- return R;
-}
-
-def myimage(M)
-{
- if(getopt(opt) == 1)
- M = mtranspose(M);
- S = size(M);
- V = [];
- M0 = newvect(S[1]);
- M = mtoupper(M,0|opt=1);
- for(I = S[0]-1; I >= 0; I--)
- if(M0 != M[I])
- V = cons(vtozv(M[I])[0], V);
- return V;
-}
-
-def mymod(V,L)
-{
- Opt = getopt(opt);
- S = length(V);
- VP = newvect(S);
- if(type(L)==6)
- L=m2lv(L);
- CT = length(L);
- for(LT = L; LT != []; LT = cdr(LT)){
- for(VT = car(LT), I = 0; I < S; I++)
- if(VT[I] != 0) break;
- if(I >= S){
- CT--;
- continue;
- }
- VP[I] = 1;
- MI = -red(V[I]/VT[I]);
- if(MI != 0)
- V = radd(V,rmul(MI,VT));
- }
- if(Opt==1){
- for(I = 0; I < S; I++)
- if(V[I] != 0)
- return 1;
- return 0;
- }
- if(Opt==2){
- W=newvect(S-CT);
- for(CC = I = 0; I < S; I++){
- if(VP[I]==0) W[CC++] =V[I];
- }
- return W;
- }
- return V;
-}
-
-def mmod(M,L)
-{
- S=size(M)[1];
- MM=mtranspose(M);
- VP = newvect(S);
- if(type(L)==6)
- L=m2lv(L);
- for(CT = 0, LT = L; LT != []; LT = cdr(LT)){
- for(VT = car(LT), I = 0; I < S; I++){
- if(VT[I] != 0){
- VP[I] = 1;
- break;
- }
- }
- }
- if(getopt(opt)==1)
- NE=1;
- for(D=I=0; I<S; I++){
- if(NE != 1 && VP[I] == 1) continue;
- T = mymod(MM[I],L|opt=2);
- if(D==0){
- K=length(T);
- MN=newmat((NE==1)?S:K,K);
- }
- for(J=0;J<K;J++)
- MN[J][D]=T[J];
- D++;
- }
- return MN;
-}
-
-def llsize(V)
-{
- for(I=J=0;V!=[];V=cdr(V),I++)
- if(length(car(V))>J) J=length(car(V));
- return [I,J];
-}
-
-def llbase(VV,L)
-{
- S = length(VV);
- V = dupmat(VV);
- if(type(V) == 4)
- V = ltov(V);
- T = length(L);
- for(I = 0; I < S; I++)
- V[I] = nm(red(V[I]));
- LV = 0;
- for(J = 0; J < T; J++){
- X = var(L[J]); N = deg(L[J],X);
- for(I = LV; I < S; I++){
- if((C2=coef(V[I],N,X)) != 0){
- if(I > LV){
- Temp = V[I];
- V[I] = V[LV];
- V[LV] = Temp;
- }
- for(I = 0; I < S; I++){
- if(I == LV || (C1 = coef(V[I],N,X)) == 0)
- continue;
- Gcd = gcd(C1,C2);
- V[I] = V[I]*tdiv(C2,Gcd)-V[LV]*tdiv(C1,Gcd);
- }
- LV++;
- }
- }
- }
- return V;
-}
-
-def lsort(L1,L2,T)
-{
- C1=getopt(c1);C2=getopt(c2);
- if(type(T)==4){
- K=T;
- if(length(T)>0){
- T=K[0];
- K=cdr(K);
- }else T=0;
- }else K=0;
- if(type(TT=T)==7)
- T = findin(T,["cup","setminus","cap","reduce","sum","subst"]);
- if(type(L2)==7&&T<0)
- T=findin(TT,["put","get","sub"]);
- if(K){ /* [[..],..] */
- if(K!=[]) KN=K[0];
- if(L2==[]||L2=="sort"){ /* sort or deduce duplication */
- if((T!=0&&T!=3)||length(K)!=1) return L1;
- if(KN<0){
- KN=-KN-1;
- F=-1;
- }else F=1;
- L1=msort(L1,[F,0,KN]);
- if(T==3){
- R=[car(L1)];L1=cdr(L1);
- for(;L1!=[];L1=cdr(L1)){
- if(car(L1)[KN]!=car(R)[KN]) R=cons(car(L1),R);
- }
- L1=reverse(R);
- }
- return L1;
- }else if((L2==0||L2=="col")&&type(C1)==4){
- if(T==0||T==1){ /* extract or delete columns */
- for(R=[];L1!=[];L1=cdr(L1)){
- if(T==1&&C1==[0]){ /* delete top column */
- R=cons(cdr(car(L1)),R);
- continue;
- }
- LT=car(L1);RT=[];
- if(T==0){
- for(CT=C1;CT!=[];CT=cdr(CT)) RT=cons(LT[car(CT)],RT);
- }else{
- for(I=0;LT!=[];I++,LT=cdr(LT))
- if(findin(I,C1)<0) RT=cons(car(LT),RT);
- RT=reverse(RT);
- }
- R=cons(RT,R);
- }
- return reverse(R);
- }
- }else if(type(L2)==1||type(L2)==7){
- if(L2==1||L2=="num"){
- if(T==4) T=3;
- I=(length(K)<2)?(-1):K[1];
- if(T==0||T==1||T==2||T==3){
- S=F=CT=0;R=[];
- if(K==[] || type((S=K[0]))==1 || S==0){
- if(T==0||T==1||T==2){
- for(J;L1!=[];L1=cdr(L1),J++){
- if(T==0) R=cons(cons(J+S,car(L1)),R);
- else if(T==1){
- for( ;C1!=[]; C1=cdr(C1))
- R=cons(L1[car(C1)],R);
- }else{
- if(findin(J,C1)<0) R=cons(car(L1),R);
- }
- }
- return reverse(R);
- }else if(T==3) return length(L1);
- }else{
- if(type(S)==2&&vtype(S)>2) F=1;
- else if(type(S)==4) F=2;
- else if(S=="+") F=3;
- else return L1;
- }
- for(R=[];L1!=[];L1=cdr(L1)){
- L1T=car(L1);
- if(F==1) V=call(S,(I<0)?L1T:L1T[I]);
- else if(F==2) V=calc((I<0)?L1T:L1T[I],S);
- else if(F==3){
- for(C=C1,V=0;C!=[];C=cdr(C))
- if(type(X=L1T[car(C)])==1) V+=X;
- }
- if(T==0) R=cons(cons(V,L1T),R);
- else if(T==1){
- if(V) R=cons(L1T,R);
- }else if(T==2){
- if(!V) R=cons(L1T,R);
- }else if(T==3){
- if(F==3) CT+=V;
- else if(V) CT++;
- }
- }
- return (T==3)?CT:reverse(R);
- }else if(TT=="col"){
- J=(length(K)>0)?car(K):0;
- I=length(car(L1))+J;
- for(V=[];I>J;)
- V=cons(--I,V);
- return cons(V,L1);
- }
- }else if(L2=="transpose") return mtranspose(L1);
- else if(L2=="subst"||L2=="adjust"){
- Null=(!K)?"":car(K);
- if(L2=="adjust") C1=[];
- R=lv2m(L1|null="");
- for(;C1!=[];C1=cdr(C1)) R[car(C1)[0]][car(C1)[1]]=car(C1)[2];
- return m2ll(R);
- }
- return L1;
- }else{ /* [[..],..], [[..],..] */
- if(type(L2[0])<4){
- for(R=[];L2!=[];L2=cdr(L2)) R=cons([car(L2)],R);
- L2=reverse(R);
- }
- if(TT=="sum") T=3;
- if(TT=="over") T=4;
- if(findin(T,[0,1,2,3,4,5])<0) return L1;
- if(T==4||T==5){
- if(type(C1)<2) C1=[C1];
- if(type(C2)<2) C2=[C2];
- }
- if(type(car(L2))!=4){
- for(R=[];L2!=[];L2=cdr(L2)) R=cons([car(L2)],R);
- R=reverse(R);
- if(length(K)==1) K=[K[0],0];
- C2=0;
- }
- L1=lsort(L1,"num",["put",0]); /* insert number */
- K0=(length(K)>0)?K[0]+1:1;
- K1=(length(K)>1)?K1=K[1]:0;
- L1=lsort(L1,"sort",[0,K0]);
- if(T<4&&type(C2)==4&&length(L2[0])>1){
- L2=lsort(L2,"col",["put"]|c1=cons(K1,C2)); /* add key and extract columns */
- C2=0;K1=0;
- }
- L2=lsort(L2,"sort",[0,K1]);
- for(R0=[],S=S1=length(L1[0]);S>0;S--) R0=cons("",R0);
- for(R1=[],S=length(L2[0]);S>0;S--) R1=cons("",R1);
- if(!K1&&T!=3) R1=cdr(R1);
- for(R=[];L1!=[];L1=cdr(L1)){
- while(L2!=[]&&car(L1)[K0]>car(L2)[K1]){
- if(T==3) R=cons(append(R0,car(L2)),R);
- L2=cdr(L2);
- }
- if(L2==[]||car(L1)[K0]<car(L2)[K1]){
- if(T!=2) R=cons((T==1||T>3||R1==[])?car(L1):append(car(L1),R1),R);
- }else if(T==0||T==2||T==3){
- if(R0==[]) R=append(car(L1),R);
- else R=cons(append(car(L1),(!K1&&T!=3)?cdr(car(L2)):car(L2)),R);
- L2=cdr(L2);
- }else if(T==4||T==5){
- V1=ltov(car(L1));V2=ltov(car(L2));
- for(D1=C1,D2=C2;D1!=[];D1=cdr(D1),D2=cdr(D2))
- if((I=V2[car(D2)])!=""||T==4) V1[car(D1)+1]=I;
- R=cons(vtol(V1),R);
- }
- }
- if(T==3){
- while(L2!=[]){
- R=cons(append(R0,car(L2)),R);
- L2=cdr(L2);
- }
- }
- R=lsort(R,"sort",["put",0]); /* original order */
- D=(((T==0||T==2)&&!K1)||T==3)?[0]:[0,S1+K1];
- R=lsort(R,0,[1]|c1=D); /* delete */
- if(type(C1)!=4||T==1||T==4||T==5) return R;
- C=[];S0=size(L1[0]);
- for(;C1!=[];C1=cdr(C1)) C=cons(car(C1),C);
- for(I=0;I<S0-S1;I++) C=cons(I+S1,C);
- C=reverse(C);
- return lsort(R,"col",[1]|c1=C);
- }
- }
- if(L2 == []){ /* [...] */
- if(T==8||TT=="count") return [length(L1),length(lsort(L1,[],1))];
- if(T==7||TT=="cut"){
- K=length(L1);
- if(C1<0) C1=K+C1;
- for(R=[],I=0;I<C1&&L1!=[];I++,L1=cdr(L1))
- R=cons(car(L1),R);
- for(S=[];L1!=[];L1=cdr(L1))
- S=cons(car(L1),S);
- return [reverse(R),reverse(S)];
- }
- if(T==2) return L2;
- if(T==3) return [L1,L2];
- L1 = ltov(L1); qsort(L1);
- if(T != 1)
- return vtol(L1);
- L3 = [];
- for(I = length(L1)-1; I >= 0; I--){
- if(I > 0 && L1[I] == L1[I-1])
- continue;
- L3 = cons(L1[I], L3);
- }
- return L3;
- }
- if(T==8||TT=="count"){
- K=length(lsort(L1,L2,3)[0]);
- R=[length(L2),length(L1)];
- L1 = lsort(L1,[],1);
- L2 = lsort(L2,[],1);
- R=append([length(L2),length(L1)],R);
- R=cons(length(lsort(L1,L2,2)),R);
- return reverse(cons(K,R));
- }
- if((T==9||TT=="cons")&&type(car(L1))==4){
- if(type(L2)!=4) L2=[L2];
- for(R=[];L1!=[];L1=cdr(L1)){
- R=cons(cons(car(L2),car(L1)),R);
- if(length(L2)>1) L2=cdr(L2);
- }
- return reverse(R);
- }
- if(T==10||TT=="cmp"){
- if(length(L1)!=length(L2)){
- mycat("Different length!");
- return 1;
- }
- R=[];
- if(type(car(L1))==4){
- for(U=[],I=0;L1!=[];I++,L1=cdr(L1),L2=cdr(L2)){
- if(length(S=car(L1))!=length(T=car(L2))){
- mycat(["Different size : line ",I]);
- return 0;
- }
- for(J=0;S!=[];S=cdr(S),T=cdr(T),J++)
- if(car(S)!=car(T)) U=cons([[I,J],car(S),car(T)],U);
- }
- if(U!=[]) R=cons(reverse(U),R);
- }else{
- for(I=0;L1!=[];L1=cdr(L1),L2=cdr(L2),I++)
- if(car(L1)!=car(L2)) R=cons([I,car(L1),car(L2)],R);
- }
- return reverse(R);
- }
- if(T==11||TT=="append"){
- if(type(car(L1))!=4) return append(L1,L2);
- for(R=[];L1!=[];L1=cdr(L1),L2=cdr(L2))
- R=cons(append(car(L1),car(L2)),R);
- return reverse(R);
- }
- if(T == 1 || T == 2){
- L1 = lsort(L1,[],1);
- L2 = lsort(L2,[],1);
- L3 = [];
- if(T == 1){
- while(L1 != []){
- if(L2 == [] || car(L1) < car(L2)){
- L3 = cons(car(L1), L3);
- L1 = cdr(L1);
- continue;
- }
- if(car(L1) > car(L2)){
- L2 = cdr(L2);
- continue;
- }
- L1 = cdr(L1); L2 = cdr(L2);
- }
- return reverse(L3);
- }
- if(T==2){
- while(L1 != [] && L2 != []){
- if(car(L1) != car(L2)){
- if(car(L1) <= car(L2))
- L1 = cdr(L1);
- else L2 = cdr(L2);
- continue;
- }
- while(car(L1) == car(L2))
- L1 = cdr(L1);
- L3 = cons(car(L2), L3);
- }
- return reverse(L3);
- }
- }
- if(T==3){
- L1 = qsort(L1); L2 = qsort(L2);
- L3 = L4 = [];
- while(L1 != [] && L2 != []){
- if(car(L1) == car(L2)){
- L1 = cdr(L1); L2 = cdr(L2);
- }else if(car(L1) < car(L2)){
- L3 = cons(car(L1),L3);
- L1 = cdr(L1);
- }else{
- L4 = cons(car(L2), L4);
- L2 = cdr(L2);
- }
- }
- L4 = append(reverse(L4),L2);
- L3 = append(reverse(L3),L1);
- return [L3,L4];
- }
- L1 = append(L1,L2);
- return lsort(L1,[],1);
-}
-
-def mqsub(X,Y)
-{
- for(L=LQS;L!=[];L=cdr(L)){
- F=(T=car(L))[0];M=(T=cdr(T))[0];
- X0=X;Y0=Y;
- for(T=cdr(T);T!=[];T=cdr(T)){
- X0=X0[car(T)];Y0=Y0[car(T)];
- }
- if(type(M)==1){
- if(M==3){
- X0=type(X0);Y0=type(Y0);
- }else if(M==4&&type(X0)<2&&type(Y0)<2){
- X0=abs(X0);Y0=abs(Y0);
- }else if(M==5){
- X0=str_len(rtostr(X0));Y0=str_len(rtostr(Y0));
- }else if(type(X0)==type(Y0)&&type(X0)>3&&type(X0)<7){
- if(M==1){
- X0=length(X0);Y0=length(Y0);
- }else if(M==2){
- LX=length(X0);LY=length(Y0);
- L0=(LX<LY)?LX:LY;
- for(I=0;;I++){
- if(I==L0){
- X0=LX;Y0=LY;break;
- }
- if(X0[I]==Y0[I]) continue;
- X0=X0[I];Y0=Y0[I];break;
- }
- }
- }
- }else if(type(M)==2){
- X0=(*M)(X0,Y0);Y0=0;
- }else if(type(M)==4&&length(M)==1){
- X0=(*car(M))(X0);Y0=(*car(M))(Y0);
- }
- if(X0==Y0) continue;
- return (X0<Y0)?-F:F;
- }
- return 0;
-}
-
-def msort(L,S)
-{
- if(type(S)!=4) return qsort(L);
- if(type(S[0])!=4) S=[S];
- LQS=S;
- return qsort(L,os_md.mqsub);
-}
-
-def lmax(L)
-{
- if(type(L)==4){
- V=car(L);
- while((L=cdr(L))!=[])
- if(V < car(L)) V=car(L);
- return V;
- }else if(type(L)==5||type(L)==6)
- return lmax(m2l(L));
- return [];
-}
-
-def lmin(L)
-{
- if(type(L)==4){
- V=car(L);
- while((L=cdr(L))!=[])
- if(V > car(L)) V=car(L);
- return V;
- }else if(type(L)==5||type(L)==6)
- return lmin(m2l(L));
- return [];
-}
-
-def lgcd(L)
-{
- if(type(L)==4){
- F=getopt(poly);
- V=car(L);
- while((L=cdr(L))!=[]&&V!=1){
- if(V!=0)
- V=(F==1)?gcd(V,car(L)):igcd(V,car(L));
- }
- return V;
- }else if(type(L)==5||type(L)==6)
- return lgcd(m2l(L)|option_list=getopt());
- return [];
-}
-
-def llcm(L)
-{
- if(type(L)==4){
- F=getopt(poly);
- V=car(L);
- while((L=cdr(L))!=[]){
- if(V!=0){
- if((V0=car(L))!=0)
- V=(F==1)?red(V*V0/gcd(V,V0)):ilcm(V,V0);
- }
- else V=car(L);
- }
- if(F!=1&&V<0) V=-V;
- return V;
- }
- else if(type(L)==5||type(L)==6)
- return llcm(m2l(L)|option_list=getopt());
- return [];
-}
-
-def ldev(L,S)
-{
- M=abs(lmax(L));N=abs(lmin(L));
- if(M<N) M=N;
- for(C=0,LT=L;;C++){
- LT=ladd(LT,S,1);
- MT=abs(lmax(LT));NT=abs(lmin(LT));
- if(MT<NT) MT=NT;
- if(MT>=M) break;
- M=MT;
- }
- if(!C){
- for(C=0,LT=L;;C--){
- LT=ladd(LT,S,-1);
- MT=abs(lmax(LT));NT=abs(lmin(LT));
- if(MT<NT) MT=NT;
- if(MT>=M) break;
- M=MT;
- }
- }
- return [C,ladd(L,S,C)];
-}
-
-def lchange(L,P,V)
-{
- if(getopt(flat)==1&&type(P)==4){
- for(L=ltov(L);P!=[];P=cdr(P),V=cdr(V))
- L[car(P)]=car(V);
- return vtol(L);
- }
- if(type(P)==4){
- IP=car(P); P=cdr(P);
- }else{
- IP=P; P=[];
- }
- for(I=0, LL=[], LT=L; LT!=[]; I++,LT=cdr(LT)){
- if(I==IP){
- LL=cons((P==[])?V:lchange(car(LT),P,V),LL);
- }else
- LL=cons(car(LT),LL);
- }
- return reverse(LL);
-}
-
-def lsol(VV,L)
-{
- if(type(VV)<4 && type(L)==2)
- return red(L-VV/mycoef(VV,1,L));
- S = length(VV);
- T = length(L);
- V = llbase(VV,L);
- for(J = K = 0; J < T; J++){
- X = var(L[J]); N = deg(L[J],X);
- for(I = K; I < S; I++){
- if((C=mycoef(V[I], N, X)) != 0){
- V[I] = [L[J],red(X^N-V[I]/C)];
- K++;
- break;
- }
- }
- }
- return V;
-}
-
-def lnsol(VV,L)
-{
- LL=lsort(vars(VV),L,1);
- VV=ptol(VV,LL|opt=0);
- return lsol(VV,L);
-}
-
-
-def ladd(X,Y,M)
-{
- if(type(X)==4) X=ltov(X);
- if(type(Y)==4) Y=ltov(Y);
- return vtol(X+M*Y);
-}
-
-def mrot(X)
-{
- if(getopt(deg)==1) X=@pi*X/180;
- X=deval(X);
- return mat([dcos(X),dsin(X)],[-dsin(X),dcos(X)]);
-}
-
-def m2v(M)
-{
- S = size(M);
- V = newvect(S[0]*S[1]);
- for(I = C = 0; I < S[0]; I++){
- MI = M[I];
- for(J = 0; J < S[1]; J++)
- V[C++] = MI[J];
- }
- return V;
-}
-
-def lv2m(L)
-{
- if(type(L)==5) L=vtol(L);
- II=length(L);
- for(J=1,T=L; T!=[]; T=cdr(T))
- if(length(car(T))>JJ) JJ=length(car(T));
- M = newmat(II,JJ);
- N = getopt(null);
- if(type(N)<0) N=0;
- for(I=0; I<II; I++){
- V=car(L); L=cdr(L);
- for(J=length(V);--J>=0;)
- M[I][J] = V[J];
- if(N!=0){
- for(J=length(V); J<JJ; J++)
- M[I][J]=N;
- }
- }
- return M;
-}
-
-def m2lv(M)
-{
- I=size(M)[0];
- for(N=[],I=size(M)[0];I-->0;)
- N=cons(M[I],N);
- return N;
-}
-
-def s2m(S)
-{
- if(type(S)==6) return S;
- if(type(S)==7){
- if(str_chr(S,0,"[")!=0) S=s2sp(S);
- else if(str_chr(S,0,",")>=0) return eval_str(S);
- else{
- for(L=LL=[],I=0; ; ){
- II=str_chr(S,I+2,"]");
- if(II<0) return 0;
- J=str_chr(S,I+2," ");
- while(str_chr(S,J+1," ")==J+1) J++;
- if(J>II-2 || J<0) J=II;
- V=eval_str(sub_str(S,I+1,J-1));
- L=cons(V,L);
- I=J;
- if(J==II){
- LL=cons(ltov(reverse(L)),LL);
- L=[];
- if((I=str_chr(S,II+1,"["))<0)
- return lv2m(reverse(LL));
- }
- }
- }
- }
- if(type(S)==5) S=vtol(S);
- if(type(S[0])==5) return lv2m(S);
- I=length(S);
- for(J=1,T=S; T!=[]; T=cdr(T))
- if(length(car(T))>J) J=length(car(T));
- return newmat(I,J,S);
-}
-
-def c2m(L,V)
-{
- if(type(Pow=getopt(pow))!=1){
- if(isvar(V)==1){
- for(Pow=0,LT=L;LT!=[];LT=cdr(LT)){
- if(mydeg(car(LT),V)>JJ) Pow=mydeg(car(LT),V);
- }
- JJ=Pow+1;
- }else{
- Pow=-1;
- JJ=length(V);
- }
- }else JJ=Pow+1;
- M=newmat(length(L),JJ);
- for(I=0;L!=[];L=cdr(L),I++){
- for(J=0;J<JJ;J++){
- LT=car(L);
- M[I][J]=(Pow>=0)?mycoef(LT,J,V):mycoef(LT,1,V[J]);
- }
- }
- return M;
-}
-
-#if 0
-def m2diag(M,N)
-{
- S = size(M);
- MM = mtoupper(M,N);
- for(I = S[0]-1; I >= 0; I--){
- for(J = 0; I < S[1]-N; I++){
- if(MM[I][J] != 0){
- P = MM[I][J];
- for(K = 0; K < I; K++){
- Q = -rmul(MM[K][J],1/P);
- MM[K][J] = 0;
- if(Q != 0){
- for(L = J+1; L < S[1]; L++){
- if(MM[I][L] != 0)
- MM[K][L] = radd(MM[K][L], rmul(MM[I][L],Q));
- }
- }
- }
- }
- }
- }
- return MM;
-}
-#endif
-
-def myinv(M)
-{
- S = size(M);
- if((T=S[0]) != S[1])
- return 0;
- MM = mtoupper(M,-T|opt=2);
- if(MM[T-1][T-1] != 1) return 0;
- return mperm(MM,0,[T,[T]]);
-}
-
-def madj(G,M)
-{
- H=myinv(G);
- if(type(M)==6)
- return rmul(rmul(G,M),H);
- if(type(M)==4||type(M)==5){
- L=length(M);
- N=newvect(L);
- for(I=0;I<L;I++){
- N[I]=rmul(rmul(G,M[I]),H);
- }
- if(type(N)==4) N=vtol(N);
- return N;
- }
- return -1;
-}
-
-def mpower(M,N)
-{
- if(type(M)<=3) return (red(M))^N;
- S = size(M);
- if(S[0] != S[1])
- return 0;
- if(N == 0) return mgen(S[0],0,[1],0);
- if(N < 0)
- return(mpower(myinv(M), -N));
- R = dupmat(M);
- V=1;
- for(V=1;;){
- if(iand(N,1)){
- V=map(red,R*V);
- N--;
- }
- if((N/=2)==0) break;
- R=map(red,R*R);
- }
- return V;
-}
-
-def texlen(S)
-{
- if(type(S)!=7) return 0;
- LF=I=J=0;
- LM=str_len(S);
- while((I=str_str(S,"\\frac{"|top=J))>=0){
- if(I>J) LF+=texlen(str_cut(S,J,I-1));
- I+=6;
- for(F=L=0,J=I;F<2 && J<LM-1;F++){
- for(C=1;C>0 && J<LM;){
- if((K0=str_char(S,J,"}"))<0) K0=LM;
- if((K1=str_char(S,J,"{"))<0) K1=LM;
- if(K0<0 && K1<0){
- J = str_len(S)-1;
- break;
- }
- if(K0<K1){
- J=K0+1; C--;
- }else{
- J=K1+1; C++;
- }
- }
- T=str_cut(S,I,J-1);
- if(F==0){
- I=J=K1+1;C=1;
- }else J=K0+1;
- if(type(T)==7 && (LL=texlen(T))>L) L=LL;
- }
- LF+=L;
- }
- if(J>0) S=str_cut(S,J,str_len(S)-1);
- if(S==0) return LF;
- S=ltov(strtoascii(S));
- L=LL=length(S);
- for(I=F=0; I<L; I++){
- if(S[I]==92) F=1;
- else if(F==1){
- if((S[I]>96 && S[I]<123)||(S[I]>64 && S[I]<91)) LL--;
- else F=0;
- }
- if(S[I]<=32||S[I]==123||S[I]==125||S[I]==94||S[I]==38) LL--; /* {}^& */
- else if(S[I]==95){
- LL--;
- if(I+2<L && S[I+2]==94) LL--; /* x_2^3 */
- else if(I+6<L && S[I+1]==123 && S[I+4]==125){ /* x_{11}^2 */
- if(S[I+5]==94 || (S[I+5]==125 && S[I+6]==94)) LL-- ; /* x_{11}}^2 */
- }
- }
- }
- return LL+LF;
-}
-
-def isdif(P)
-{
- if(type(P)<1 || type(P)>3) return 0;
- for(Var=[],R=vars(P);R!=[];R=cdr(R)){
- V0=rtostr(car(R));
- if(V0>"d" && V0<"e"){
- V=sub_str(V0,1,str_len(V0)-1);
- if(V>="a" && V<"{") Var=cons([strtov(V),strtov(V0)],Var);
- }
- }
- if(Var==[]) return 0;
- for(V=Var; V!=[]; V=cdr(V))
- if(ptype(P,car(V)[1])==3) return 0;
- return Var;
-}
-
-def texsp(P)
-{
- Q=strtoascii(P);
- if((J=str_char(Q,0,92))<0 || (C=Q[L=str_len(P)-1])==32||C==41||C==125)
- return P;
- for(;;){
- if((I=str_char(Q,J+1,92))<0) break;
- J=I;
- };
- for(I=J+1;I<L&&isalpha(Q[I]);I++);
- return(I==L)?P+" ":P;
-}
-
-def fctrtos(P)
-{
- /* extern TeXLim; */
-
- if(!chkfun("write_to_tb", "names.rr"))
- return 0;
-
- TeX = getopt(TeX);
- if(TeX != 1 && TeX != 2 && TeX != 3)
- TeX = 0;
- if((Dvi=getopt(dviout)==1) && TeX<2) TeX=3;
- if(TeX>0){
- Lim=getopt(lim);
- if(Lim!=0 && TeX>1 && (type(Lim)!=1||Lim<30)) Lim=TeXLim;
- else if(type(Lim)!=1) Lim=0;
- CR=(TeX==2)?"\\\\\n":"\\\\\n&";
- if(TeX==1 || Lim==0) CR="";
- else if((Pages=getopt(pages))==1) CR="\\allowdisplaybreaks"+CR;
- if(!chkfun("print_tex_form", "names.rr"))
- return 0;
- Small=getopt(small);
- }
- Dif=getopt(dif);
- Var=getopt(var);
- if(Lim>0 && type(Var)<2 && TeX!=1) Var=[strtov("0"),""];
- Dif=0;
- if(Var=="dif"){
- Dif=DV=1;
- }else if (Var=="dif0") Dif=1;
- else if(Var=="dif1") Dif=2;
- else if(Var=="dif2") Dif=3;
- if(Dif>0){
- for(Var=[],R=vars(P);R!=[];R=cdr(R)){
- V=rtostr(car(R));
- if(V>"d" && V<"e"){
- V=sub_str(V,1,str_len(V)-1);
- if(V>="a" && V<"{"){
- if(TeX>0){
- V=my_tex_form(strtov(V));
- if(Dif>=1){
- if(Dif==1){
- if(str_len(V)==1) V="\\partial_"+V;
- else V="\\partial_{"+V+"}";
- }
- Var=cons([car(R),V],Var);
- }
- else Var=cons([car(R)],Var);
- }else Var=cons([car(R)],Var);
- }
- }
- }
- if(TeX>0){
- if(length(Var)==1){
- if(DV==1 && str_len(Var[0][1])==10) Var=[[Var[0][0],"\\partial"]];
- }else if(DV==1){
- for(V=Var;V!=[];V=cdr(V)){
- VV=rtostr(car(V)[0]);
- if(VV<"dx0" || VV>= "dx:" || str_len(VV)>4) break;
- }
- if(V==[]){
- for(VT=[],V=Var;V!=[];V=cdr(V)){
- VV=str_cut(rtostr(car(V)[0]),2,3);
- if(str_len(VV)==1) VT=cons([car(V)[0],"\\partial_"+VV],VT);
- else VT=cons([car(V)[0],"\\partial_{"+VV+"}"],VT);
- }
- Var=reverse(VT);
- }
- }else
- if(Dif==2 && length(Var)>1) Dif=3;
- }
- if(Dif>0) Dif--;
- }
- if(type(Var)>1 && Var!=[]){ /* as a polynomial of Var */
- Add=getopt(add);
- if(type(Add)>0){
- if(type(Add)!=7){
- Add=my_tex_form(Add);
- if(str_char(Add,0,"-")>=0 || str_char(Add,0,"+")>=0) Add="("+Add+")";
- }
- if(str_char(Add,0,"(")!=0) Add = " "+Add;
- }else Add=0;
- if(type(Var)!=4) Var=[Var];
- if(length(Var)==2 && type(Var[1]) == 7)
- Var = [Var];
- for(VV=VD=[]; Var!=[];Var=cdr(Var)){
- VT=(type(car(Var))==4)?car(Var):[car(Var)];
- VT0=var(car(VT));
- VV=cons(VT0,VV);
- if(length(VT)==1){
- VD=cons((TeX>=1)?my_tex_form(VT0):rtostr(VT0),VD);
- }else VD=cons(VT[1],VD);
- }
- VV=reverse(VV);VD=reverse(VD);
- Rev=(getopt(rev)==1)?1:0;
- Dic=(getopt(dic)==1)?1:0;
- TT=terms(P,VV|rev=Rev,dic=Dic);
- if(TeX==0){
- Pre="("; Post=")";
- }else{
- Pre="{"; Post="}";
- }
- Out = string_to_tb("");
- for(L=C=0,Tm=TT;Tm!=[];C++,Tm=cdr(Tm)){
- for(I=0,PC=P,T=cdr(car(Tm)),PW="";T!=[];T=cdr(T),I++){
- PC=mycoef(PC,D=car(T),VV[I]);
- if(PC==0) continue;
- PT="";
- if(D!=0 && VD[I]!=""){
- if(TeX==0 && PW!="") PW+="*";
- if(D>1){
- if(D>9) PT="^"+Pre+rtostr(D)+Post;
- else PT="^"+rtostr(D);
- }
- if(Dif>0) PW+=(Dif==1)?"d":"\\partial ";
- PW+=VD[I]+PT;
- }
- }
- D=car(Tm)[0];
- if(Dif>0 && D>0){
- Op=(Dif==1)?"\\frac{d":"\\frac{\\partial";
- if(D>1) Op+="^"+((D>9)?(Pre+rtostr(D)+Post):rtostr(D));
- PW=Op+Add+"}{"+PW+"}";
- }else if(Add!=0) PW=PW+Add;
- if(TeX>=1){
- if(type(PC)==1 && ntype(PC)==0 && PC<0)
- OC="-"+my_tex_form(-PC);
- else OC=fctrtos(PC|TeX=1,br=1);
- }else OC=fctrtos(PC|br=1);
- if(PW!=""){
- if(OC == "1") OC = "";
- else if(OC == "-1") OC = "-";
- }
- if(TeX==0 && D!=0 && OC!="" && OC!="-") PW= "*"+PW;
- if((TOC=type(OC)) == 4){ /* rational coef. */
- if(Lim>0 && (texlen(OC[0])>Lim || texlen(OC[0])>Lim)){
- OC = (Small==1)?"("+OC[0]+")/("+OC[1]+")"
- :"\\Bigl("+OC[0]+"\\Bigr)\\Bigm/\\Bigl("+OC[1]+"\\Bigr)";
- TOC = 7;
- }else{
- if(str_char(OC[0],0,"-")==0){
- OC = fctrtos(-PC|TeX=1,br=1);
- OC = "-\\frac{"+OC[0]+"}{"+OC[1]+"}";
- }
- else
- OC = "\\frac{"+OC[0]+"}{"+OC[1]+"}";
- }
- }
- if(Lim>0){
- LL=texlen(OC)+texlen(PW);
- if(LL+L>=Lim){
- if(L>0) str_tb(CR,Out);
- if(LL>Lim){
- if(TOC==7) OC=texlim(OC,Lim|cut=CR);
- PW+=CR; L=0;
- }else L=LL;
- }else L+=LL;
- }else if(length(Tm)!=1) PW += CR; /* not final term */
- if(TeX) OC=texsp(OC);
- if(str_chr(OC,0,"-") == 0 || C==0) str_tb([OC,PW], Out);
- else{
- str_tb(["+",OC,PW],Out);
- if(LL<=Lim) L++;
- }
- }
- S=str_tb(0,Out);
- if(S=="") S="0";
- }else{ /* Var is not specified */
- if((TP=type(P)) == 3){ /* rational function */
- P = red(P); Nm=nm(P); Dn=dn(P);
- Q=dn(ptozp(Nm|factor=1)[1]);
- if(Q>1){
- Nm*=Q;Dn*=Q;
- }
- if(TeX>0){
- return (TeX==2)?
- "\\frac\{"+fctrtos(Nm|TeX=1)+"\}\{"+fctrtos(Dn|TeX=1)+"\}"
- :[fctrtos(Nm|TeX=1),fctrtos(Dn|TeX=1)];
- }
- else{
- S=fctrtos(Nm);
- if(nmono(Nm)>1) S="("+S+")";
- return S+"/("+fctrtos(Dn)+")";
- }
- }
- if(imag(P)==0) P = fctr(P); /* usual polynomial */
- else P=[[P,1]];
- S = str_tb(0,0);
- for(J = N = 0; J < length(P); J++){
- if(type(P[J][0]) <= 1){
- if(P[J][0] == -1){
- write_to_tb("-",S);
- if(length(P) == 1)
- str_tb("1", S);
- }else if(P[J][0] != 1){
- str_tb((TeX>=1)?my_tex_form(P[J][0]):rtostr(P[J][0]), S);
- N++;
- }else if(length(P) == 1)
- str_tb("1", S);
- else if(getopt(br)!=1 && length(P) == 2 && P[1][1] == 1){
- str_tb((TeX>=1)?my_tex_form(P[1][0]):rtostr(P[1][0]), S);
- J++;
- }
- continue;
- }
- if(N > 0 && TeX != 1 && TeX != 2 && TeX != 3)
- write_to_tb("*", S);
- SS=(TeX>=1)?my_tex_form(P[J][0]):rtostr(P[J][0]);
- N++;
- if(P[J][1] != 1){ /* (log(x))^2 */
- if(nmono(P[J][0])>1||
- (!isvar(P[J][0])||vtype(P[J][0]))&&str_len(SS)>1) SS="("+SS+")";
- write_to_tb(SS,S);
- str_tb(["^", (TeX>1)?rtotex(P[J][1]):monotos(P[J][1])],S);
- }else{
- if(nmono(P[J][0])>1) SS="("+SS+")";
- write_to_tb(SS,S);
- }
- }
- S = str_tb(0,S);
- if((Lim>0 || TP!=2) && CR!="") S=texlim(S,Lim|cut=CR);
- }
- if(TeX>0){
- if(Small==1) S=str_subst(S,"\\frac{","\\tfrac{");
- if(Dvi==1){
- dviout(strip(S,"(",")")|eq=(Pages==1)?6:0); S=1;
- }
- }
- return S;
-}
-
-def strip(S,S0,S1)
-{
- SS=strtoascii(S);
- if(length(SS)>1){
- if(SS[0]==40&&SS[length(SS)-1]==41&&str_pair(SS,1,S0,S1)==length(SS)-1)
- S=str_cut(SS,1,length(SS)-2);
- }
- return S;
-}
-
-def texlim(S,Lim)
-{
- /* extern TeXLim; */
- if(S==1 && Lim>10){
- TeXLim=Lim;
- mycat(["Set TeXLim =",Lim]);
- return 1;
- }
- if(type(Out=getopt(cut))!=7) Out="\\\\\n&";
- if(type(Del=getopt(del))!=7) Del=Out;
- if(Lim<30) Lim=TeXLim;
- S=ltov(strtoascii(S));
- for(L=[0],I=F=0;F==0; ){
- II=str_str(S,Del|top=I)+2;
- if(II<2){
- F++;II=/* str_len(S) */ length(S)-1;
- }
- for(J=JJ=I+1;;JJ=K+1){
- K=str_char(S,JJ,43); /* + */
- if((K1=str_char(S,JJ,45))>2 && K1<K){ /* - */
- if(S[K1-1]!=123 && S[K1-1]!=40) K=K1; /* {, ( */
- }
- if((K1=str_char(S,JJ,40))>0 && K1-JJ>6 && K1<K && S[K1-1]!=43 && S[K1-1]!=45){ /* ( */
- T=str_char(S,K1-6,"\\"); /* \Big*(, \big*( */
- if((T==K1-6 || T==K1-5)
- && (str_str(S,"big"|top=T+1,end=T+1)>0 || str_str(S,"Big"|top=T+1,end=T+1)>0))
- K=T;
- else if(K1>0 && K1<K) K=K1;
- }
- if(K<0 || K>II) break;
- if(K-J>Lim && texlen(str_cut(S,J,K-1))>=Lim){
- J=K+1; L=cons(JJ-1,L); SL=0;
- }
- }
- I=II;
- }
- SS=str_tb(0,0);
- L=cons(length(S),L);
- L=reverse(L);
- for(I=0; L!=[]; I=J,L=cdr(L)){
- str_tb((I==0)?"":Out,SS);
- J=car(L);
- str_tb(str_cut(S,I,J-1),SS);
- }
- return str_tb(0,SS);
-}
-
-def fmult(FN,M,L,N)
-{
- Opt=getopt();
- for(I = 0; I < length(M); I++)
- M = call(FN, cons(M,cons(L[I],N))|option_list=Opt);
- return M;
-}
-
-def radd(P,Q)
-{
- if(type(P) <= 3 || type(Q) <= 3){
- if(type(P) >= 5)
- return radd(Q,P);
- if(type(Q) >= 5){
- R = dupmat(Q);
- if(P == 0)
- return R;
- if(type(Q) == 6){
- S = size(Q);
- if(S[0] != S[1])
- return 0;
- for(I = 0; I < S[0]; I++)
- R[I][I] = radd(R[I][I], P);
- }else{
- for(I = length(R)-1; I >= 0; I--)
- R[I] = radd(R[I],P);
- }
- return R;
- }
- /* P=red(P);Q=red(Q); */
- if((P1=dn(P)) == (Q1=dn(Q))){
- if(P1==1) return P+Q;
- return red((nm(P)+nm(Q))/P1);
- }
- R=gcd(P1,Q1);S=tdiv(P1,R);
- return red((nm(P)*tdiv(Q1,R)+nm(Q)*S)/(S*Q1));
- }
- if(type(P) == 5){
- S = length(P);
- R = newvect(S);
- for(I = 0; I < S; I++)
- R[I] = radd(P[I],Q[I]);
- return R;
- }
- if(type(P) == 6){
- S = size(P);
- R = newmat(S[0],S[1]);
- for(I = 0; I < S[0]; I++){
- for(J = 0; J < S[1]; J++)
- R[I][J] = radd(P[I][J],Q[I][J]);
- }
- return R;
- }
- erno(0);
-}
-
-def getel(M,I)
-{
- if(type(M) >= 4 && type(M) <= 6 && type(I) <= 1)
- return M[I];
- if(type(M) == 6 && type(I) == 5)
- return M[I][J];
- return M;
-}
-
-def ptol(P,X)
-{
- F=(getopt(opt)==0)?0:1;
- if(type(P) <= 3)
- P = [P];
- if(type(X) == 4){
- for( ; X != []; X = cdr(X))
- P=ptol(P,car(X)|opt=F);
- return P;
- }
- P = reverse(P);
- for(R=[]; P != []; P = cdr(P)){
- Q = car(P);
- for(I = mydeg(Q,X); I >= 0; I--){
- S=mycoef(Q,I,X);
- if(F==1 || S!=0) R = cons(S,R);
- }
- }
- return R;
-}
-
-def rmul(P,Q)
-{
- if(type(P) <= 3 && type(Q) <= 3){
- P=red(P);Q=red(Q);
- P1=dn(P);P2=nm(P);Q1=dn(Q);Q2=nm(Q);
- if(P1==1 && Q1==1)
- return P*Q;
- if((R=gcd(P1,Q2)) != 1){
- P1=tdiv(P1,R);Q2=tdiv(Q2,R);
- }
- if((R=gcd(Q1,P2)) != 1){
- Q1=tdiv(Q1,R);P2=tdiv(P2,R);
- }
- return P2*Q2/(P1*Q1);
- }
-#ifdef USEMODULE
- return mmulbys(os_md.rmul,P,Q,[]);
-#else
- return mmulbys(rmul,P,Q,[]);
-#endif
-}
-
-def mtransbys(FN,F,LL)
-{
- Opt=getopt();
- if(type(F) == 4){
- F = ltov(F);
- S = length(F);
- R = newvect(S);
- for(I = 0; I < S; I++)
- R[I] = mtransbys(FN,F[I],LL|option_list=Opt);
- return vtol(R);
- }
- if(type(F) == 5){
- S = length(F);
- R = newvect(S);
- for(I = 0; I < S; I++)
- R[I] = mtransbys(FN,F[I],LL|option_list=Opt);
- return R;
- }
- if(type(F) == 6){
- S = size(F);
- R = newmat(S[0],S[1]);
- for(I = 0; I < S[0]; I++){
- for(J = 0; J < S[1]; J++)
- R[I][J] = mtransbys(FN,F[I][J],LL|option_list=Opt);
- }
- return R;
- }
- if(type(F) == 7) return F;
- return call(FN, cons(F,LL)|option_list=Opt);
-}
-
-def drawopt(S,T)
-{
- if(type(S)!=7) return -1;
- if(T==0||T==1){
- for(I=0,R=LCOPT;I<7;I++,R=cdr(R))
- if(str_str(S,car(R))>=0) return(T==0)?COLOPT[I]:car(R);
- return -1;
- }
- if(T==2){
- V0=V1=0;
- for(I=0,R=LPOPT;R!=[];I++,R=cdr(R)){
- if(str_str(S,car(R))>=0){
- if(I==0) V1++;
- else if(I==1) V1--;
- else if(I==2) V0--;
- else V0++;
- }
- }
- if(V0==0&&V1==0) return -1;
- return [V0,V1];
- }
- if(T==3){
- V=0;
- for(I=1,R=LFOPT;R!=[];R=cdr(R),I*=2){
- if(str_str(S,car(R))>=0) V+=I;
- }
- return (V==0)?-1:V;
- }
- return -1;
-}
-
-def execdraw(L,P)
-{
- if((Proc=getopt(proc))!=1) Proc=0;
- if(type(P)<2) P=[P];
- if(L!=[]&&type(L[0])!=4) L=[L];
- /* special command */
- if(P[0]<0){
- if(length(P)==1&&(P[0]==-1||P[0]==-2||P[0]==-3)){ /* Bounding Box */
- W=WS=N=LS=0;
- for(LL=L;LL!=[];LL=cdr(LL)){
- T=car(LL);
- if(P[0]!=-3 && T[0]==0){
- if(length(T)>3) S=" by "+rtostr(T[3])+" cm";
- else S="";
- if(P[0]==-1){
- mycat(["Windows : ",T[1][0],"< x <",T[1][1],", ",
- T[2][0],"< y <",T[2][1],S]);
- if(length(T)>4 && type(T[4])==4) mycat(["ext :",T[4]]);
- if(length(T)>5) mycat(["shift :",T[5]]);
- }
- return cdr(T);
- }
- if(type(T[0])==1){
- if(T[0]==1){
- for(TT=cdr(cdr(T));TT!=[];TT=cdr(TT)){
- D=car(TT);
- if(type(D[0][0])==4){
- for(DT=D;DT!=[];DT=cdr(DT)){
- if(N++==0) W=ptbbox(car(DT));
- else W=ptbbox(car(DT)|box=W);
- }
- }else{
- if(N++==0) W=ptbbox(D);
- else W=ptbbox(D|box=W);
- }
- }
- }else if(T[0]==2){
- V=T[2];
- if(type(V[0])>1||type(V[1])>1) continue; /* not supported */
- if((Sc=delopt(T[1],"scale"|inv=1))!=[]){
- Sc=car(Sc)[1];
- if(type(Sc)==1) V=[Sc*V[0],Sc*V[1]];
- else V=[Sc[0]*V[0],Sc[1]*V[1]];
- }
- if(LS==0) WS=ptbbox([V]);
- else WS=ptbbox([V]|box=WS);
- if(length(T)>4) S=T[4];
- else if(type(S=T[3])==4){
- S=S[0];
- if(type(S)==4) S=S[length(S)-1];
- S=rtostr(S);
- }
- if(str_len(S)>LS) LS=str_len(S);
- }else if(T[0]==3||T[0]==4){
- if(N++==0) W=ptbbox(cdr(cdr(T)));
- else W=ptbbox(cdr(cdr(T))|box=W);
- }
- }
- }
- if(W!=0&&WS!=0) W=ptbbox([W,WS]|box=1);
- return (P[0]==-3)?[W,LS,WS]:W;
- }else if(length(P)>1&&P[0]==-1){ /* set Bounding Box */
- P=cons(0,cdr(P));
- Ex=Sft=[0,0];
- if(type(X=getopt(ext))==4) Ex=X;
- if(type(X=getopt(shift))==4) Sft=X;
- if(Ex!=Sft||Ex!=[0,0]){
- if(Sft==[0,0]) Sft=[Ex];
- else Sft=[Ex,Sft];
- if(length(P)==3) Sft=cons(1,Sft);
- if(length(P)==3||length(P)==4) P=append(P,Sft);
- }
- return cons(P,delopt(L,0));
- }
- if(P[0]==-4){
- for(N=0,LT=L;LT!=[];LT=cdr(LT)){ /* count coord. */
- T=car(LT);
- if(T[0]==1){
- for(T=cdr(cdr(T));T!=[];T=cdr(T)){
- if(type((S=car(T))[0][0])==4) N+=length(S);
- else for(;S!=[];S=cdr(S)) if(type(car(S))==4) N++;
- }
- }else if(T[0]==2) N++;
- else if(T[0]==3||T[0]==4) N+=2;
- }
- return N;
- }
- if(P[0]==-5){ /* functions */
- for(N=0,R=[],LT=L;LT!=[];LT=cdr(LT)){
- T=car(LT);
- if(T[0]==0) N=ior(N,1);
- else if(type(T[0])==1){
- if(T[0]>0) N=ior(N,2^T[0]);
- }
- else if(Type(T[0])==2){
- if(findin(T[0],R)<0) R=cons(T[0],R);
- }
- }
- for(I=5;I>=0;I--) if(iand(N,2^I)) R=cons(I,R);
- return R;
- }
- return 0;
- }
-
- if(length(P)>1){
- if(type(P[1])==6||(type(P[1])<2&&P[1]>0)) M=P[1];
- else if(type(P[1])==4&&length(P[1])==2) M=diagm(2,P[1]);
- }
- if(length(P)>2&&type(P[2])==4){
- Org=[["shift",P[2]]];
- if(M==0) M=1;
- }else Org=[];
- if(P[0]==0||(type(P[0])==4&&P[0][0]==0)){ /* Risa/Asir */
- PP=car(P);PPP=0;
- if(type(PP)!=4) PP=[PP];
- if(length(PP)<3){
- if(length(PP)==1 || type(PP[1])==4){
- if(ID_PLOT<0) ID_PLOT=ox_launch_nox(0,"ox_plot");
- Id=ID_PLOT;
- if(length(PP)==1&&type(Canvas)==4&&length(Canvas)==2)
- PP=cons(PP[0],[Canvas]);
- if(length(PP)>1){
- PPP=PP[1][0];
- PPQ=(length(PP[1])==2)?PP[1][1]:PPP;
- open_canvas(Id,[PPP,PPQ]);
- }else open_canvas(Id);
- Ind=ox_pop_cmo(Id);
- }else{
- Ind=PP[1];
- if(getopt(cl)==1) clear_canvas(Id,Ind);
- }
- }else{
- Id=PP[1];Ind=PP[2];
- if(length(PP)>3 && type(PP[3])==1) PPP=PP[3];
- if(length(PP)>4 && type(PP[4])==1) PPQ=PP[4];
- if(getopt(cl)==1) clear_canvas(Id,Ind);
- }
- if(L==[]) return (PPP>0)? [0,Id,Ind,PPP,PPQ]:[0,Id,Ind];
- Ex0=Ex0;Sft=[0,0];
- if(length(P)>1&&P[1]==0&&length(P)<4){
- R=execdraw(L,-3);
- Ex0=Ex1=Ex2=10;
- if((U=R[1])>0){ /* string */
- if(U>20) U=16; /* adj 16,8,2,7,15 */
- if(R[0][0][0]>R[2][0][0]-(R[0][0][1]-R[0][0][0])/256) Ex0+=8*U; /* adj 256 */
- else Ex0+=2*U;
- if(R[0][0][1]<R[2][0][1]+(R[0][0][1]-R[0][0][0])/256) Ex1+=7*U;
- else Ex1+=2*U;
- if(R[0][1][1]<R[2][1][1]+(R[0][1][1]-R[0][1][0])/256) Ex2+=15;
- }
- R=[R[0][0],R[0][1],0,[Ex0,Ex1],[0,-Ex2]];
- if(length(P)>2 && P[2]==1)
- mycat0(["Box:",[R[0],R[1]], ", ext=",R[3],", shift=",R[4]],1);
- }else R=execdraw((length(P)>3)?P[3]:L,-2); /* Windows */
- XW=R[0];YW=R[1];
- if(length(R)>3){
- if(R[3]!=0 && R[3]!=[0,0]) Ex=R[3];
- if(length(R)>4) Sft=R[4];
- }
- if(type(X=getopt(ext))==4)
- Ex=(Ex0)?[X[0]+Ex[0],X[1]+Ex[1]]:X;
- if(type(M)<2){
- if(length(P)>1&&type(P[1])==1) M=P[1];
- else if((length(P)==1||P[1]==0||P[1]==1)&& PPP>0) M=PPP;
- if(M<2) M=400;
- if(Ex!=0 && type(Ex)==4){
- M-=Ex[0]+Ex[1];
- }
- M=(M/(XW[1]-XW[0]))*diagm(2,[1,-1]);
- }
- if(type(X=getopt(shift))==4) Sft=(Ex0)?[Sft[0]+X[0],Sft[1]+X[1]]:X;
- if(type(Sft)==4) Sft=[Sft[0],-Sft[1]];
- if(Ex!=0) Sft=[Sft[0]+Ex[0],Sft[1]];
- Org=[["shift",ptaffine(M,[-XW[0],-YW[1]]|shift=Sft)]];
- for(CT=0;CT<2;CT++){
- for(LT=L;LT!=[];LT=cdr(LT)){
- T=car(LT);
- if(!CT && T[0]!=2) continue;
- if(CT && T[0]==2) continue;
- if(T[0]==1){
- for(TT=cdr(cdr(T));TT!=[];TT=cdr(TT)){
- D=car(TT);
- if(type(D[0][0])==4){
- for(DT=D;DT!=[];DT=cdr(DT)){
- V=car(DT);
- if(M) V=ptaffine(M,V|option_list=Org);
- draw_bezier(Id,Ind,V|option_list=T[1]);
- }
- }else{
- if(M) D=ptaffine(M,D|option_list=Org);
- draw_bezier(Id,Ind,D|option_list=T[1]);
- }
- }
- }else if(T[0]==2){ /* put */
- if(length(T)<4) continue;
- V=T[2];
- if(type(VLB)==4&&V[0]=="_") V=VLB;
- else if(type(V[0])>1||type(V[1])>1) continue; /* not supported */
- if(length(T)>3&&type(T[3])==4&&length(T[3])>1&&T[3][1]==1) VLB=V;
- F++;MM=M;
- if((Sc=delopt(T[1],"scale"|inv=1))!=[]){
- if(!MM) MM=1;
- Sc=car(Sc)[1];
- if(type(Sc)==1) MM=MM*Sc;
- else if(type(Sc)==6) MM=MM*diagm(2,Sc);
- }
- if(MM) V=ptaffine(MM,V|option_list=Org);
- if(type(S=S0=T[3])==4) S=S0[0];
- if(length(T)>4) S=T[4]; /* subst. string */
- if(type(S0)==4&&type(S0[0])==4){
- if((Col=drawopt(S0[0][0],0))<0) Col=0; /* attrib. */
- if(type(S)!=7) S=rtostr(S0[0][1]);
- S=str_subst(S,[["$\\bullet$","*"],["$\\times$","x"],["$",""]],0);
- if(type(Pos=drawopt(S0[0][0],2))==4)
- V=[V[0]+4*str_len(S)*Pos[0],V[1]-10*Pos[1]]; /* adjustable */
- }else S=str_subst(rtostr(S),[["$\\bullet$","*"],["$\\times$","x"],["$",""]],0);
- V=[V[0]-str_len(S)*4,V[1]-8]; /* adjustable */
- draw_string(Id,Ind,V,S,Col);
- }else if(T[0]==3){ /* arrow */
- F++;
- T1=T[2];T2=T[3];
- if(M){
- T1=ptaffine(M,T1|option_list=Org);
- T2=ptaffine(M,T2|option_list=Org);
- }
- draw_bezier(Id,Ind,[T1,T2]|option_list=T[1]);
- }else if(T[0]==4){ /* line */
- F++;
- T1=T[2];T2=T[3];
- if(M){
- T1=ptaffine(M,T1|option_list=Org);
- T2=ptaffine(M,T2|option_list=Org);
- }
- V=delopt(T1=T[1],"opt"|inv=1);
- if(V!=[]&&str_str(V[1],".")>=0)
- T1=cons(["opt",cons("dotted,",V[1])],delopt(T1,"opt"));
- draw_bezier(Id,Ind,[T1,T2]|option_list=T1);
- }else if(T[0]==5){ /* TeX */
- mycat(rtostr(T[2]));
- if(F){
- S=str_tb(0,Out);
- Out=str_tb(0,0);
- F=0;
- if(S!=""){
- if(P[0]==2) dviout(xyproc(S)|keep=1);
- else LOut=cons(xyproc(S),LOut);
- }
- if(P[0]==2) dviout(T[2]|option_list=T[1]);
- else{
- LOut=cons(T[2],Out);
- }
- }
- }else if(Proc==1&&type(T[0])==2){
- if(length(T)<3) call(T[0],T[1]);
- else call(T[0],T[1]|option_list=T[2]);
- }
- }
- }
- S=(PPP>0)? [0,Id,Ind,PPP,PPQ]:[0,Id,Ind];
- if(Ex==0&&Sft!=[0,0]) Ex=[0,0];
- return (Ex!=0&&length(P)>2&&P[2]==-1)?
- [S,0,0,[0,R[0],R[1],0,Ex,[Sft[0]-Ex[0],-Sft[1]]]]:S;
- }
- if(P[0]==1||P[0]==2){ /* TeX */
- Out=str_tb(0,0);LOut=[];F=0;
- if(getopt(cl)==1) dviout0(0);
- for(;L!=[];L=cdr(L)){
- T=car(L);Opt=T[1];
- if(type(T[0])>=2) continue;
- if(T[0]==0){
- XW=T[1];YW=T[2];
- if(length(P)>1&&type(P[1])==1&&P[1]<0)
- M=-P[1]/(XW[0]-XW[1]);
- }else if(T[0]==1){
- F++;
- for(TT=cdr(cdr(T));TT!=[];TT=cdr(TT)){
- D=car(TT);
- if(type(D[0][0])==4){
- for(DT=D;DT!=[];DT=cdr(DT)){
- V=car(DT);
- if(M) V=ptaffine(M,V|option_list=Org);
- str_tb(xybezier(V|option_list=Opt),Out);
- }
- }else{
- if(M) D=ptaffine(M,D|option_list=Org);
- str_tb(xybezier(D|option_list=Opt),Out);
- }
- }
- }else if(T[0]==2){
- F++;V=T[2];
- Opt=delopt(Opt,"scale"|inv=1);
- MM=M;
- if(Opt!=[]){
- Opt=car(Opt)[1];
- if(type(Opt)==1) Opt=[Opt,Opt];
- if(Opt!=[1,1]){
- if(!MM) MM=1;
- MM=MM*diagm(2,[Opt[0],Opt[1]]);
- }
- }
- if(MM) V=ptaffine(MM,V|option_list=Org);
- if(length(T)>3) V=append(V,T[3]);
- str_tb(xyput(V),Out);
- }else if(T[0]==3){
- F++;
- T1=T[2];T2=T[3];
- if(M){
- T1=ptaffine(M,T1|option_list=Org);
- T2=ptaffine(M,T2|option_list=Org);
- }
- str_tb(xyarrow(T1,T2|option_list=Opt),Out);
- }else if(T[0]==4){
- F++;
- T1=T[2];T2=T[3];
- if(M){
- T1=ptaffine(M,T1|option_list=Org);
- T2=ptaffine(M,T2|option_list=Org);
- }
- str_tb(xyline(T1,T2|option_list=Opt),Out);
- }else if(T[0]==5){
- if(F){
- S=str_tb(0,Out);
- Out=str_tb(0,0);
- F=0;
- if(S!=""){
- if(P[0]==2) dviout(xyproc(S)|keep=1);
- else LOut=cons(xyproc(S),LOut);
- }
- if(P[0]==2) dviout(T[2]|option_list=T[1]);
- else LOut=cons(T[2],Out);
- }
- }else if(T[0]==-2)
- str_tb(["%",T[1],"\n"],Out);
- else if(Proc==1&&type(T[0])==2){
- if(length(T)<3) call(T[0],T[1]);
- else call(T[0],T[1]|option_list=T[2]);
- }
- }
- S=str_tb(0,Out);
- if(P[0]==1){
- if(F) LOut=cons(xyproc(S),LOut);
- Out=str_tb(0,0);
- for(L=reverse(LOut);L!=[];L=cdr(L))
- str_tb(car(L),Out);
- return str_tb(0,Out);
- }
- if(F) dviout(xyproc(S));
- else dviout(" ");
- }
-}
-
-def execproc(L)
-{
- if(type(N=getopt(var))!=1&&N!=0) N=2;
- for(R=[];L!=[];L=cdr(L)){
- P=car(L);
- if(type(P[0])==2&&vtype(P[0])==3){
- if((VS=vars(cdr(P)))!=[]){
- for(I=0;I<N;I++){
- V=makev(["v",I+1]);
- if(findin(V,VS)>=0) P=mysubst(P,[V,R[I]]);
- }
- }
- if(length(P)<3) R=cons(call(P[0],P[1]),R);
- else R=cons(call(P[0],P[1]|option_list=P[2]),R);
- }
- }
- return (getopt(all)==1)?R:car(R);
-}
-
-def myswap(P,L)
-{
- X=makenewv(P);
- for(L=reverse(L);length(L)>1;L=cdr(L))
- P=subst(P,L[0],X,L[1],L[0],X,L[1]);
- return P;
-}
-
-def mysubst(P,L)
-{
- if(P==0) return 0;
- Inv=getopt(inv);
- if(type(L[0]) == 4){
- while((L0 = car(L))!=[]){
- P = mysubst(P,(Inv==1)?[L0[1],L0[0]]:L0);
- L = cdr(L);
- }
- return P;
- }
- if(Inv==1) L=[L[1],L[0]];
- if(type(P) > 3){
- if(type(P)==7) return P;
- if(type(P)>7)
- return subst(P,L[0],L[1]);
-#ifdef USEMODULE
- return mtransbys(os_md.mysubst,P,[L]);
-#else
- return mtransbys(mysubst,P,[L]);
-#endif
- }
- P = red(P);
- if(type(P) == 3){
- A=mysubst(nm(P),L);B=mysubst(dn(P),L);
- return red(nm(A)/nm(B))*red(dn(B)/dn(A));
- }
- L1=(type(L[1])==3)?red(L[1]):L[1];X=L[0];
- if(ptype(L1,X)==3){
- LN=nm(L1);LD=dn(L1);
- Deg=mydeg(P,X);
- if(Deg <= 0) return P;
- V = newvect(Deg+1);
- for(V[I=Deg]=1;I >= 1;I--)
- V[I-1]=V[I]*LD;
- for(R = 0, I = Deg; I >= 0; I--)
- R = R*LN + mycoef(P,I,X)*V[I];
- return red(R/V[0]);
- }
- return subst(P,X,L1);
-}
-
-def mmulbys(FN,P,F,L)
-{
- Opt=getopt();
- if(type(F) <= 3){
- if(type(P) <= 3)
- return call(FN, cons(P,cons(F,L))|option_list=Opt);
- if(type(P) == 5){
- S = length(P);
- R = newvect(S);
- for(I = 0; I < S; I++)
- R[I] = call(FN, cons(P[I],cons(F,L))|option_list=Opt);
- return R;
- }else if(type(P) == 6){
- S = size(P);
- R = newmat(S[0],S[1]);
- for(I = 0; I < S[0]; I++){
- for(J = 0; J < S[1]; J++)
- R[I][J] = call(FN, cons(P[I][J],cons(F,L))|option_list=Opt);
- }
- return R;
- }
- }
- if(type(F) == 5){
- S = length(F);
- if(type(P) <= 3){
- R = newvect(S);
- for(I = 0; I < S; I++)
- R[I] = call(FN, cons(P,cons(F[I],L))|option_list=Opt);
- return R;
- }
- if(type(P) == 5){
- for(J=R=0; J<S; J++)
- R = radd(R, call(FN, cons(P[J],cons(F[J],L)))|option_list=Opt);
- return R;
- }
- T = size(P);
- R = newvect(T[0]);
- for(I = 0; I < T[0]; I++){
- for(J = 0; J < S; J++)
- R[I] = radd(R[I], call(FN, cons(P[I][J],cons(F[J],L))|option_list=Opt));
- }
- return R;
- }
- if(type(F) == 6){
- S = size(F);
- if(type(P) <= 3){
- R = newmat(S[0],S[1]);
- for(I = 0; I < S[0]; I++){
- for(J = 0; J < S[1]; J++)
- R[I][J] = call(FN, cons(P,cons(F[I][J],L))|option_list=Opt);
- }
- return R;
- }
- if(type(P) == 5){
- R = newvect(S[1]);
- for(J = 0; J < S[1]; J++){
- for(K = U = 0; K < S[0]; K++)
- U = radd(U, call(FN, cons(P[K],cons(F[K][J],L))|option_list=Opt));
- R[J] = U;
- }
- return R;
- }
- T = size(P);
- R = newmat(T[0],S[1]);
- for(I = 0; I < T[0]; I++){
- for(J = 0; J < S[1]; J++){
- for(K = U = 0; K < S[0]; K++)
- U = radd(U, call(FN, cons(P[I][K],cons(F[K][J],L)|option_list=Opt)));
- R[I][J] = U;
- }
- }
- return R;
- }
- erno(0);
- return 0;
-}
-
-def appldo(P,F,L)
-{
- if(type(F) <= 3){
- if(type(L) == 4 && type(L[0]) == 4)
- return applpdo(P,F,L);
- L = vweyl(L);
- X = L[0]; DX = L[1];
- J = mydeg(P,DX);
- for(I = R = 0; I <= J; I++){
- if(I > 0)
- F = mydiff(F,X);
- R = radd(R,mycoef(P,I,DX)*F);
- }
- return R;
- }
-#ifdef USEMODULE
- return mmulbys(os_md.appldo,P,F,[L]);
-#else
- return mmulbys(appldo,P,F,[L]);
-#endif
-}
-
-def appledo(P,F,L)
-{
- if(type(F) <= 3){
- L = vweyl(L);
- X = L[0]; DX = L[1];
- J = mydeg(P,DX);
- for(I = R = 0; I <= J; I++){
- if(I > 0)
- F = myediff(F,X);
- R = radd(R,mycoef(P,I,DX)*F);
- }
- return R;
- }
-#ifdef USEMODULE
- mmulbys(os_md.appledo,P,F,[L]);
-#else
- mmulbys(appledo,P,F,[L]);
-#endif
-}
-
-def muldo(P,Q,L)
-{
- if(type(Lim=getopt(lim))!=1) Lim=100;
- if(type(Q) <= 3){
- if(type(L) == 4 && type(L[0]) == 4)
- return mulpdo(P,Q,L|lim=Lim); /* several variables */
- R = rmul(P,Q);
- L = vweyl(L);
- X = L[0]; DX = L[1];
- if(X != 0){
- for(I = F = 1; ; I++){
- P = mydiff(P,DX);
- if(I>Lim){
- mycat(["Over", Lim,"derivations!"]);
- break;
- }
- if(P == 0)
- break;
- Q = mydiff(Q,X);
- if(Q == 0)
- break;
- F *= I;
- R = radd(R,P*Q/F);
- }
- }
- return R;
- }
-#ifdef USEMODULE
- return mmulbys(os_md.muldo,P,Q,[L]);
-#else
- return mmulbys(muldo,P,Q,[L]);
-#endif
-}
-
-def jacobian(F,X)
-{
- F=ltov(F);X=ltov(X);
- N=length(F);
- M=newmat(N,N);
- for(I=0;I<N;I++)
- for(J=0;J<N;J++) M[I][J]=red(diff(F[I],X[J]));
- if(getopt(mat)==1) return M;
- return mydet(M);
-}
-
-def hessian(F,X)
-{
- X=ltov(X);
- N=length(X);
- M=newmat(N,N);
- for(I=0;I<N;I++){
- G=red(diff(F,X[I]));
- for(J=0;J<N;J++) M[I][J]=red(diff(G,X[J]));
- }
- if(getopt(mat)==1) return M;
- return mydet(M);
-}
-
-def wronskian(F,X)
-{
- N=length(F);
- M=newmat(N,N);
- for(I=0;F!=[];F=cdr(F),I++){
- M[I][0]=car(F);
- for(J=1;J<N;J++) M[I][J]=red(diff(M[I][J-1],X));
- }
- if(getopt(mat)==1) return M;
- return mydet(M);
-}
-
-def adj(P,L)
-{
- if(type(P) == 4)
-#ifdef USEMODULE
- return map(os_md.adj,mtranspose(P),L);
-#else
- return map(adj,mtranspose(P),L);
-#endif
- if(type(L) == 4 && type(L[0]) == 4)
-#ifdef USEMODULE
- return fmult(os_md.adj,P,L,[]);
-#else
- return fmult(adj,P,L,[]);
-#endif
- L = vweyl(L);
- X = L[0]; DX = L[1];
- P = R = subst(P, DX, -DX);
- for(I = 1; (R = mydiff(mydiff(R, X), DX)/I) != 0 && I < 100; I++)
- P = radd(P,R);
- return P;
-}
-
-def laplace1(P,L)
-{
- if(type(L) == 4 && type(L[0]) == 4)
-#ifdef USEMODULE
- return fmult(os_md.laplace,P,L,[]);
-#else
- return fmult(laplace,P,L,[]);
-#endif
- L = vweyl(L);
- X = L[0]; DX = L[1];
- P = adj(P, L);
- return subst(P,X,o_1,DX,X,o_1,DX);
-}
-
-def laplace(P,L)
-{
- if(type(L) == 4 && type(L[0]) == 4)
-#ifdef USEMODULE
- return fmult(os_md.laplace1,P,L,[]);
-#else
- return fmult(laplace1,P,L,[]);
-#endif
- L = vweyl(L);
- X = L[0]; DX = L[1];
- P = adj(P, L);
- return subst(P,X,o_1,DX,-X,o_1,-DX);
-}
-
-def mce(P,L,V,R)
-{
- L = vweyl(L);
- X = L[0]; DX = L[1];
- P = sftexp(laplace1(P,L),L,V,R);
- return laplace(P,L);
-}
-
-def mc(P,L,R)
-{
- return mce(P,L,0,R);
-}
-
-def rede(P,L)
-{
- Q = ltov(fctr(nm(red(P))));
- P = 1;
- if(type(L) < 4)
- L = [L];
- if(type(L[0]) < 4)
- L = [L];
- for( ; L != []; L = cdr(L)){
- DX = vweyl(car(L))[1];
- for(I = 1; I < length(Q); I++){
- if(mydeg(Q[I][0],DX) > 0){
- P *= (Q[I][0])^(Q[I][1]);
- Q[I]=[1,0];
- }
- }
- }
- return P;
-}
-
-def ad(P,L,R)
-{
- L = vweyl(L);
- DX = L[1];
- K = mydeg(P,DX);
- S = mycoef(P,0,DX);
- Q = 1;
- for(I=1; I <= K;I++){
- Q = muldo(Q,DX-R,L);
- S = radd(S,mycoef(P,I,DX)*Q);
- }
- return S;
-}
-
-def add(P,L,R)
-{
- return rede(ad(P,L,R),L);
-}
-
-
-def vadd(P,L,R)
-{
- L = vweyl(L);
- if(type(R) != 4)
- return 0;
- N = length(R);
- DN = 1; Ad = PW = 0;
- for( ; R != []; R = cdr(R), PW++){
- DN *= (T=1-car(R)[0]*L[0]);
- Ad = Ad*T-car(R)[1]*x^PW;
- }
- Ad /= DN;
- return add(P,L,Ad);
-}
-
-def addl(P,L,R)
-{
- return laplace1(add(laplace(P,L),L,R),L);
-}
-
-def cotr(P,L,R)
-{
- L = vweyl(L);
- X = L[0]; DX = L[1];
- T = 1/mydiff(P,DX);
- K = mydeg(P,DX);
- S = mysubst(mycoef(P,0,DX), [X, R]);
- Q = 1;
- for(I = 1; I <= K; I++){
- Q = muldo(Q, K*DX, L);
- S = radd(S,mysubst(mycoef(P,I,DX), [X, R])*Q);
- }
-}
-
-def rcotr(P,L,R)
-{
- return rede(cotr(P,L,R), L);
-}
-
-def muledo(P,Q,L)
-{
- if(type(Q)>3)
-#ifdef USEMODULE
- return mmulbys(os_md.muledo,P,Q,[L]);
-#else
- return mmulbys(muledo,P,Q,[L]);
-#endif
- R = P*Q;
- L = vweyl(L);
- X = L[0]; DX = L[1];
- for(I = F = 1; I < 100; I++){
- P = mydiff(P,DX);
- if(P == 0)
- break;
- Q = myediff(Q,X);
- if(Q == 0)
- break;
- F = rmul(F,I);
- R = radd(R,P*Q/F);
- }
- return R;
-}
-
-
-#if 1
-def mulpdo(P,Q,L)
-{
- if(type(Q)>3)
-#ifdef USEMODULE
- return mmulbys(os_md.mulpdo,P,Q,[L]);
-#else
- return mmulbys(mulpdo,P,Q,[L]);
-#endif
- if(type(Lim=getopt(lim))!=1) Lim=100;
- M = vweyl(car(L)); X= M[0]; DX = M[1];
- L = cdr(L);
- R = 0;
- for(I = 0; Q != 0 && I <= Lim; I++){
- if(I>Lim){
- mycat(["Over", Lim,"derivations!"]);
- break;
- }
- if(I > 0)
- P /= I;
- if(length(L)==0)
- R = radd(R,P*Q);
- else
- R = radd(R,mulpdo(P,Q,L));
- if(X==0) break;
- P = mydiff(P,DX);
- if(P == 0)
- break;
- Q = mydiff(Q,X);
- }
- if(I>Lim) mycat(["Over", Lim,"derivations!"]);
- return R;
-}
-
-#else
-def mulpdo(P,Q,L);
-{
- if(type(Q)>3)
-#ifdef USEMODULE
- return mmulbys(os_md.mulpdo,P,Q,[L]);
-#else
- return mmulbys(mulpdo,P,Q,[L]);
-#endif
- if(type(Lim=getopt(lim))!=1) Lim=100;
- N = length(L);
- VO = newvect(2*N);
- VN = newvect(2*N);
- for(I = J = 0; I < N; J += 2, I++){
- M = vweyl(L[I]);
- P = subst(P, VO[J]=M[0], VN[J]=strtov("o_"+rtostr(V[J])),
- VO[J+1]=M[1], VN[J+1] = strtov("o_"+rtostr(V[J+1])));
- }
- for(PQ = P*Q, I = 0; I < 2*N; I += 2){
- for(R = PQ, J = 1; J < Lim; J++){
- R = mydiff(R, VN[I+1])/J;
- if(R == 0)
- break;
- R = mydiff(R, VO[I]);
- if(R == 0)
- break;
- PQ = radd(PQ,R);
- }
- if(I==Lim) mycat(["Over", Lim,"derivations!"]);
- PQ = red(subst(PQ,VN[I],VO[I],VN[I+1],VO[I+1]));
- }
-}
-#endif
-
-def transpdosub(P,LL,K)
-{
- Len = length(K)-1;
- if(Len < 0 || P == 0)
- return P;
- KK=K[Len];
- if(type(KK)==4){
- KK0=KK[0]; KK1=KK[1];
- }else{
- L = vweyl(LL[Len]);
- KK0=L[1]; KK1=K[Len];
- }
- Deg = mydeg(P,KK0);
- K1 = reverse(cdr(reverse(K)));
- R = transpdosub(mycoef(P,0,KK0),LL,K1);
- for(I = M = 1; I <= Deg ; I++){
- M = mulpdo(M,KK1,LL);
- S = mycoef(P,I,KK0);
- if(Len > 0)
- S = transpdosub(S,LL,K1);
- R = radd(R,mulpdo(S,M,LL));
- }
- return R;
-}
-
-def transpdo(P,LL,K)
-{
- if(type(K[0]) < 4)
- K = [K];
- Len = length(K)-1;
- K1=K2=[];
- if(type(LL)!=4) LL=[LL];
- if(type(LL[0])!=4) LL=[LL];
- if(getopt(ex)==1){
- for(LT=LL, KT=K; KT!=[]; LT=cdr(LT), KT=cdr(KT)){
- L = vweyl(LL[J]);
- K1=cons([L[0],car(KT)[0]],K1);
- K2=cons([L[1],car(KT)[1]],K2);
- }
- K2=append(K1,K2);
- }else{
- for(J = length(K)-1; J >= 0; J--){
- L = vweyl(LL[J]);
- if(L[0] != K[J][0])
- K1 = cons([L[0],K[J][0]],K1);
- K2 = cons(K[J][1],K2);
- }
- P = mulsubst(P, K1);
- }
- return transpdosub(P,LL,K2);
-}
-
-def translpdo(P,LL,M)
-{
- S=length(LL);
- L0=newvect(S);L1=newvect(S);
- K=newvect(S);
- for(J=0;J<S;J++){
- L = vweyl(LL[J]);
- L0[J]=L[0];
- L1[J]=L[1];
- }
- K=rmul(M,L0);
- for(T=[],J=0;J<S;J++)
- T=cons([L0[J],K[J]],T);
- P=mulsubst(P,T);
- K=rmul(myinv(M),L1);
- for(T=[],J=0;J<S;J++)
- T=cons([L1[J],K[J]],T);
- return mulsubst(P,T);
-}
-
-/*
- return [R, M, S] : R = M*P - S*Q
- deg(R,X) < deg(Q,X)
-*/
-def rpdiv(P,Q,X)
-{
- if(P == 0)
- return [0,1,0];
- DQ = mydeg(Q,X);
- CO = mycoef(Q,DQ,X);
- S = 0;
- while((DP = mydeg(P,X)) >= DQ){
- R = mycoef(P,DP,X)/CO;
- S = radd(S,R*X^(DP-DQ));
- P = radd(P, -R*Q*X^(DP-DQ));
- }
- Lcm = lcm(dn(S),dn(P));
- Gcd = gcd(nm(S),nm(P));
- return [red(P*Lcm/Gcd), red(Lcm/Gcd),red(S*Lcm/Gcd)];
-}
-
-def texbegin(T,S)
-{
- if(type(Opt=getopt(opt))==7) Opt="["+Opt+"]\n";
- else Opt="\n";
- return "\\begin{"+T+"}"+Opt+S+"%\n\\end{"+T+"}\n";
-}
-
-def mygcd(P,Q,L)
-{
- if((Dvi=getopt(dviout))==3 || Dvi==-3){ /* dviout=3 */
- if((Rev=getopt(rev))!=1) Rev=0;
- R=mygcd(P,Q,L|rev=Rev);
- if(type(L)<2) Var=0;
- else if(type(L)==2){
- Val=L;L=[0,L];
- }else if(type(L)==4){
- L=vweyl(L);
- Var=[[L[1],"\\partial"]];
- }
- S=mat([P],[Q]);T=mat([R[0]],[0]);
- M=mat([R[1],R[2]],[R[3],R[4]]);
- if(type(Val)==4)
- N=mdivisor(M,L|trans=1)[1];
- else N=myinv(M);
- Tb=str_tb(mtotex(S|var=Var),0);
- str_tb("&="+mtotex(N|var=Var)+mtotex(T|var=Var)+",\\\\\n",Tb);
- str_tb(mtotex(T|var=Var),Tb);
- str_tb("&="+mtotex(M|var=Var)+mtotex(S|var=Var)+".",Tb);
- Out=str_tb(0,Tb);
- if(Dvi<0) return Out;
- dviout(Out|eq="align*");
- return 1;
- }
- if((type(Dvi)==1||Dvi==0) && getopt(rev)!=1) V=[[P,Q]];
- else V=0;
- if(L==0){ /* integer case */
- if(type(P) > 1 || type(Q) > 1 || Q==0 /* P <= 0 || Q <= 0 */
- || dn(P) > 1 || dn(Q) > 1)
- return 0;
- CPP = CQQ = 1; CQP = CPQ = 0;
- P1 = P; Q1 = Q;
- /* P1 = CPP*P + CPQ*Q
- Q1 = CQP*P + CQQ*Q */
- while(Q1 != 0){
- Div1 = idiv(P1,Q1); Div2 = irem(P1,Q1);
- if(type(V)==4) V=cons([Div1,Div2],V);
- P1 = Q1 ; Q1 = Div2;
- TP = CQP; TQ = CQQ;
- CQP = CPP-Div1*CQP;
- CQQ = CPQ-Div1*CQQ;
- CPP = TP; CPQ = TQ;
- }
- if(V!=0){
- V=reverse(V);
- if((DVI=abs(Dvi))==0) return V;
- PT=P;QT=Q;
- if(DVI==1 || DVI==2){
- Tb=str_tb(0,0);
- for(C=0,V=cdr(V);V!=[];V=cdr(V)){
- T=car(V);
- if(C++) str_tb(texcr(11),Tb);
- if(DVI==1){
- Qs=rtostr(QT);
- if(QT<0) Qs="("+Qs+")";
- if(T[1]>0) Qs=Qs+"+";
- if(T[1]!=0) Qs=Qs+rtostr(T[1]);
- str_tb(rtostr(PT)+"&="
- +rtostr(T[0])+"\\times"+Qs,Tb);
- }else{
- N=mat([T[0],1],[1,0]);
- if(C==1){
- str_tb(S0=mtotex(mat([PT],[QT])),Tb);
- M=N;
- }
- str_tb("&=",Tb);
- if(C>1) str_tb(mtotex(M),Tb);
- str_tb(mtotex(N),Tb);
- str_tb(S=mtotex(mat([QT],[T[1]])),Tb);
- if(C>1){
- str_tb("=",Tb);
- str_tb(mtotex(M=M*N),Tb);
- str_tb(S,Tb);
- }
- }
- PT=QT;QT=T[1];
- }
- if(DVI==2){
- str_tb(texcr(43)+S+"&=",Tb);
- str_tb(mtotex(myinv(M)),Tb);
- str_tb(S0,Tb);
- }
- Out=str_tb(0,Tb);
- if(Dvi>0){
- dviout(Out|eq="align*");
- return 1;
- }
- return Out;
- }
- }
- if(P1<0) return [-P1,-CPP,-CPQ,CQP,CQQ];
- return [P1, CPP, CPQ, CQP, CQQ];
- }
- if(type(L) == 2) /* polynomical case */
- L = [0,L];
- if(getopt(rev)==1 && L[0]!=0){
- R=mygcd(adj(P,L),adj(Q,L),L);
- return [adj(R[0],L),adj(R[1],L),adj(R[2],L),adj(R[3],L),adj(R[4],L)];
- }
- if(type(P) == 3)
- P = red(P);
- if(type(Q) == 3)
- Q = red(Q);
- CP=newvect(2,[1/dn(P),0]); CQ=newvect(2,[0,1/dn(Q)]);
- P=PT=nm(P); Q =QT=nm(Q);
- L = vweyl(L);
- while(Q != 0){
- R = divdo(P,Q,L);
- if(type(V)==4) V=cons(R,V);
-/* R[1] = R[2]*P - R[0]*Q
- = R[2]*(CP[0]*P0+CP[1]*Q0) - R[0]*(CQ[0]*P0+CQ[1]*Q0) */
-/*
- P(n) |0 1 | P(n-1)
- = | |
- R[1] |R[2] -R[0]| P(n)
- P(n+1) = R[1], P(n) = P, P(n-1) = Q
-*/
- P = Q;
- Q = R[1];
- {
- CT = dupmat(CQ);
- CQ = [R[2]*CP[0]-muldo(R[0],CQ[0],L),
- R[2]*CP[1]-muldo(R[0],CQ[1],L)];
- CP = CT;
- }
- }
- if(V!=0){
- V=reverse(V);
- if((DVI=abs(Dvi))==0) return V;
- if(type(L[0])<1) Var=L[1];
- else Var=[L[1],"\\partial"];
- if(DVI==1 || DVI==2){
- Tb=str_tb(0,0);
- PT=car(V)[0];QT=car(V)[1];
- for(C=0,V=cdr(V);V!=[];V=cdr(V)){
- T=car(V);
- if(C++) str_tb(texcr(11),Tb);
- if(DVI==1){
- if(T[2]!=1){
- str_tb(monototex(T[2]),Tb);
- str_tb("(",Tb);
- str_tb(fctrtos(PT|var=Var,TeX=2),Tb);
- str_tb(")&=",Tb);
- }else{
- str_tb(fctrtos(PT|var=Var,TeX=2),Tb);
- str_tb("&=",Tb);
- }
- str_tb("(",Tb);
- str_tb(fctrtos(T[0]|var=Var,TeX=2),Tb);
- str_tb(")(",Tb);
- str_tb(fctrtos(QT|var=Var,TeX=2),Tb);
- if(T[1]!=0){
- str_tb(")+(",Tb);
- str_tb(fctrtos(T[1]|var=Var,TeX=2),Tb);
- }
- str_tb(")",Tb);
- }else{
- N=mat([red(T[0]/T[2]),1],[1,0]);
- if(C==1){
- str_tb(S0=mtotex(mat([PT],[QT])|var=Var),Tb);
- M=N;
- }
- str_tb("&=",Tb);
- if(C>1) str_tb(mtotex(M),Tb);
- str_tb(mtotex(N|var=Var),Tb);
- str_tb(S=mtotex(mat([QT],[T[1]])|var=Var),Tb);
- if(C>1){
- str_tb("=",Tb);
- str_tb(mtotex(M=muldo(M,N,L)|var=Var),Tb);
- str_tb(S,Tb);
- }
- }
- PT=QT;QT=T[1];
- }
- if(DVI==2){
- FT=fctr(PT);
- for(R=1;FT!=[];FT=cdr(FT)){
- if(mydeg(car(FT)[0],L[1])<1)
- for(J=car(FT)[1];J>0;J--) R*=car(FT)[0];
- }
- if(R!=1){
- str_tb(texcr(79),Tb);
- M=muldo(M,mat([R,0],[0,1]),L);
- str_tb(mtotex(M|var=Var),Tb);
- str_tb(S=mtotex(mat([PT/R],[QT])|var=Var),Tb);
- }
- str_tb(texcr(43)+S+"&=",Tb);
- if(type(Var)==4){
- N=mdivisor(M,L|trans=1);
- N=N[1];
- }else
- N=myinv(M);
- str_tb(mtotex(N|var=Var),Tb);
- str_tb(S0,Tb);
- }
- Out=str_tb(0,Tb);
- if(Dvi>0){
- dviout(Out|eq="align*");
- return 1;
- }
- return Out;
- }
- }
- Q = rede(P,L);
- R = red(P/Q);
- return [Q,red(CP[0]/R),red(CP[1]/R),red(CQ[0]/R),red(CQ[1]/R)];
-}
-
-def mylcm(P,Q,L)
-{
- Rev=(getopt(rev)==1)?1:0;
- if(Rev==1){
- P=adj(P); Q=adj(Q);
- }
- R = mygcd(P,Q,L);
- S=(type(L)<=2)?R[3]*P:muldo(R[3],P,L);
- S = nm(S);
- if(type(S) <= 1 && type(L) <= 1){
- if(S<0) S = -S;
- return S;
- }
- if(type(L) == 2)
- return easierpol(S,L);
- S=rede(easierpol(S,L[1]),L);
- return (Rev==1)?adj(S):S;
-}
-
-def sftpexp(P,LL,F,Q)
-{
- if(type(LL[0]) < 4)
- LL = [LL];
- for(L0=L1=[],LT=LL;LT!=[];LT=cdr(LT)){
- W=vweyl(car(LT));
- L0=cons(W,L0);
- D=mydiff(F,W[0]);
- if(D!=0) L1=cons(W[1]+Q*D/F,L1);
- else L1=cons(W[1],L1);
- }
- return rede(transpdosub(P,L0,L1),L0);
-}
-
-def applpdo(P,F,LL)
-{
- if(type(F)>3)
-#ifdef USEMODULE
- return mmulbys(os_md.applpdo,P,F,[LL]);
-#else
- return mmulbys(applpdo,P,F,[LL]);
-#endif
- L = vweyl(LL[0]);
- LL = cdr(LL);
- Deg = deg(P,L[1]);
- S = F;
- for(I = R = 0; I <= Deg ; I++){
- if(I > 0)
- S = mydiff(S,L[0]);
- if(LL == [])
- R = radd(R,mycoef(P,I,L[1])*S);
- else
- R = radd(R,applpdo(mycoef(P,I,L[1]), S, LL));
- }
- return R;
-}
-
-def tranlpdo(P,L,M)
-{
- N = length(L);
- R = size(M);
- if(R[0] != N || R[1] != N){
- print("Strange size");
- return;
- }
- InvM = M;
- if(InvM[1] == 0){
- print("Not invertible");
- return;
- }
- XL = newvector(N);
- DL = newvector(N);
- for(I = 0; I < 0; I++){
- R = vweyl(L[I]);
- XL[I] = R[0];
- DL[I] = R[1];
- }
- for(I = 0; I < N; I++){
- for(J = XX = D0 = 0; J < N; J++){
- XX = radd(XX,M[I][J]*XL[J]);
- DD = radd(DD, red(InvM[0][I][J]/InvM[1])*DL[J]);
- P = mysubst(P,[[XL[I],XX],[DL[I],DD]]);
- }
- }
- return P;
-}
-
-def divdo(P,Q,L)
-{
- if(L==0){
- R=P-idiv(P,Q)*Q;
- if(R<0){
- if(Q>0) R+=Q;
- else R-=Q;
- }
- return [(P-R)/Q,R,1];
- }
- L = vweyl(L);
- if(getopt(rev)==1){
- R=divdo(adj(P,L),adj(Q,L),L);
- return [adj(R[0],L),adj(R[1],L),R[2]];
- }
- X = L[0]; DX = L[1];
- S = 0;
- M = 1;
- I = mydeg(Q,DX);
- CQ = mycoef(Q,I,DX);
- while((J=mydeg(P,DX)) >= I){
- C = mycoef(P,J,DX);
- SR = red(C/CQ);
- if(dn(SR) != 1){
- M *= dn(SR);
- P *= dn(SR);
- S *= dn(SR);
- SR = nm(SR);
- }
- P -= muldo(SR*(DX)^(J-I),Q,L);
- S += SR*(DX)^(J-I);
- }
- return [S,P,M];
-}
-
-def qdo(P,Q,L)
-{
- L = vweyl(L); DX = L[1]; OD = deg(P,DX);
- V = newvect(OD+1);
- for(I = 0; I <= OD; I++){
- if(I)
- Q = muldo(DX,Q,L);
- S = divdo(Q,P,L);
- V[I] = S[1]*DX-S[2]*zz^I;
- }
- for(K = [], I = OD; I >= 0; I--)
- K = cons(DX^(I+1), K);
- R = lsol(V,K);
- S = length(R);
- for(I = P1 = 0; I < S; I++){
- if(type(R[I]) < 4 && mydeg(R[I],DX) == 0 && R[I] != 0
- && (mydeg(R[I],zz) <= mydeg(P,DX)))
- P1 = R[I];
- else if(type(R[I]) == 4 && R[I][0] == DX)
- P2 = R[I][1];
- }
- T=fctr(P1);
- for(I=0, S=length(T), P1=1; I<S; I++){
- if(mydeg(T[I][0],zz) > 0)
- P1 *= T[I][0]^(T[I][1]);
- }
- return subst([P1,P2],zz,DX);
-}
-
-def sqrtdo(P,L)
-{
- L = vweyl(L);
- P = toeul(P,L,0);
- V = -1;
- for(R = 0, Ord = mydeg(P,L[1]); Ord >= 0; Ord--){
- Q = coef(P,Ord,L[1]);
- M = mydeg(Q,L[0]);
- N = mymindeg(Q,L[0]);
- if(V < 0)
- V = M+N;
- else if(V != M+N){
- print("Cannot be transformed!");
- return;
- }
- Q = tohomog(red(Q/L[0]^N), [L[0]], z_z);
- if(irem(Ord,2))
- B = x-z_z;
- else
- B = x+z_z;
- Q = substblock(Q,x,B,z_zz);
- if(mydeg(Q,x) > 0){
- print("Cannot be transformed!");
- return;
- }
- R += mysubst(Q,[z_zz,x])*L[1]^Ord;
- }
- return fromeul(R,L,0);
-}
-
-def ghg(A,B)
-{
- R = dx;
- while(length(B)>0){
- R = muldo(x*dx+car(B),R,[x,dx]);
- B = cdr(B);
- }
- T = 1;
- while(length(A)>0){
- T = muldo(x*dx+car(A),T,[x,dx]);
- A = cdr(A);
- }
- return R-T;
-}
-
-def ev4s(A,B,C,S,T)
-{
- R4 = x^2*(x-1)^2;
- R3 = x*(x-1)*((2*A-2*B-8)*x-2*A+5);
- R2 = (-3/2*(A^2+B^2)+3*A*B+9*A-9*B-29/2+1/4*(S^2+T^2))*x^2
- +(5*A^2/2-13*A-3*A*B+B^2/2+7*B-C^2+C+35/2 - 1/4*(S^2+T^2))*x
- - (2*A+2*C-5)*(2*A-2*C-3)/4;
- R1 = 1/4*(A-B-2)*(2*A^2-4*A*B-8*A+2*B^2+8*B+10-S^2-T^2)*x
- +15/4+3*B^2/4-C^2/2+11*A^2/4 - 11*A/2+3*B+B*C-7*A*B/2+C/2-A*B^2/2
-#if 1
- + A^2*B
-#endif
- - B*C^2 - A^3/2+(2*A-3)*(S^2+T^2)/8;
-/* OK? for the above term added */
- R0 = -(A-B-1-S)*(A-B-1+S)*(A-B-1-T)*(A-B-1+T)/16;
- return (R4*dx^4-R3*dx^3-R2*dx^2-R1*dx-R0);
-}
-
-def b2e(A,B,C,S,T)
-{
- R4 = x^2*(x-1)^2;
- R3 = x*(x-1)*(2*x-1)*(2*c-5);
- R2 = (-6*C^2+24*C-25+1/2*S^2+1/2*T^2)*x^2
- +(6*C^2-24*C+25-1/2*S^2-1/2*T^2-A^2+B^2+A-B)*x
- +A^2-C^2-A+4*C-15/4;
- R1 = (2*C-3)*(2*C^2-6*C+5-1/2*S^2-1/2*T^2)*x
- +(2*C-3)*(-C^2+3*C+1/2*A^2-1/2*B^2+1/2*B-1/2*A-5/2+1/4*S^2+1/4*T^2);
- R0 = -(2-2*C+S+T)*(2-2*C-S-T)*(2-2*C+S-T)*(2-2*C-S+T)/16;
- return (R4*dx^4-R3*dx^3-R2*dx^2-R1*dx-R0);
-}
-
-
-/*
- T^m = T(T-1)....(T-m+1)
- f(t) -> g(t)
-
- f(t) = a_mt^m + ... + a_1t+a_0
- g(x*dx) = a_m*x^m*dx^m + ... + a_1*x*dx+a_0
-
- ret: x(x-1)...(x-i+1)
- */
-def sftpow(X,I)
-{
- R = 1;
- for(J=0;J<I;J++)
- R *= X-J;
- return(R);
-}
-
-/*
- ret: x(x+K)(x+2*k)...(x+(i-1)*k)
-*/
-def sftpowext(X,I,K)
-{
- R = 1;
- for(J=0;J<I;J++)
- R *= X+K*J;
- return(R);
-}
-
-def polinsft(F,A)
-{
- R = 0;
- while(F != 0){
- D = mydeg(F,A);
- C = mycoef(F,D,A);
- R += C*A^D;
- F -= C*sftpow(A,D);
- }
- return R;
-}
-
-def pol2sft(F,A)
-{
- S=getopt(sft);
- if(type(S)<0 || type(S)>2) S=1;
- R = 0;
- for(I = mydeg(F,A); I >= 0; I--)
- R = R*(A-I*S) + mycoef(F,I,A);
- return R;
-}
-
-def binom(P,N)
-{
- if(type(N)!=1 || N<0) return 1;
- for(S=1;N>0;N--,P-=1) S*=P/N;
- return red(S);
-}
-
-def expower(P,R,N)
-{
- if(type(N)!=1 || N<0) return 0;
- for(S=S0=K=1;K<=N;K++,R-=1){
- S0*=P*R/K;S+=S0;
- }
- return red(S);
-}
-
-def seriesHG(A,B,X,N)
-{
- if(type(N)!=1 || N<0) return 0;
- if(type(X)<4){
- for(K=0,S=S0=1;K<N;K++){
- for(T=A; T!=[]; T=cdr(T)) S0*=car(T)+K;
- for(T=B; T!=[]; T=cdr(T)) S0/=car(T)+K;
- S0=red(S0*X/(K+1));
- DN=dn(S0);
- S=red((red(S*DN)+nm(S0))/DN);
- }
- return S;
- }
- S=0;
- for(K=0;K<=N;K++){
- for(I=0;I<=N-K;I++){
- C=1/sftpowext(1,I,1)/sftpowext(1,J,1);
- for(T=A[0];T!=[];T=cdr(T)) C*=sftpowext(car(T),I+K,1);
- for(T=A[1];T!=[];T=cdr(T)) C*=sftpowext(car(T),I,1);
- for(T=A[2];T!=[];T=cdr(T)) C*=sftpowext(car(T),K,1);
- for(T=B[0];T!=[];T=cdr(T)) C/=sftpowext(car(T),I+K,1);
- for(T=B[1];T!=[];T=cdr(T)) C/=sftpowext(car(T),I,1);
- for(T=B[2];T!=[];T=cdr(T)) C/=sftpowext(car(T),K,1);
- S+=red(C*X[0]^I*X[1]^K);
- }
- }
- return S;
-}
-
-def evalred(F)
-{
- Opt=getopt(opt);
- if(type(Opt)!=4){
- Opt=[];
- }else if(length(Opt)==2 && type(Opt[0])!=4) Opt=[Opt];
- for(;;){
- G=mysubst(F,[[tan(0),0],[asin(0),0],[atan(0),0],[sinh(0),0],[tanh(0),0],
- [log(1),0],[cosh(0),1],[exp(0),1]]);
- for(Rep=Opt; Rep!=[]; Rep=cdr(Rep))
- G=subst(G,car(Rep)[0],car(Rep)[1]);
- Var=vars(G);
- for(V=Var; V!=[]; V=cdr(V)){
- if(!(VV=args(CV=car(V)))) continue;
- if((functor(CV)==sin||functor(CV)==cos)){
- P=2*red(VV[0]/@pi);
- if(functor(CV)==sin) P=1-P;
- if(isint(P)){
- if(iand(P,1)) G=subst(G,CV,0);
- else if(!iand(P,3)) G=subst(G,CV,1);
- else G=subst(G,CV,-1);
- continue;
- }
- if(isint(P*=3/2)){
- if(iand(P,3)==1) G=subst(G,CV,1/2);
- else G=subst(G,CV,-1/2);
- }
- }
- for(;VV!=[];VV=cdr(VV))
- if(car(VV)!=(TV=evalred(car(VV)))) G=subst(G,car(VV),TV);
- if(functor(CV)!=pow || (args(CV)[0])!=1) continue;
- G=subst(G,CV,1);
- }
- if(G==F) return F;
- F=G;
- }
-}
-
-def seriesMc(F,N,V)
-{
- if(type(V)<4) V=[V];
- V=reverse(V);
- L=length(V);
- if(type(Opt=getopt(evalopt))!=4) Opt=[];
- P=newvect(L);
- G=newvect(L+1);
- G[0]=F;
- for(I=0;I<L;I++)
- G[I+1]=eval(evalred(subst(G[I],V[I],0)|opt=Opt));
- R=G[L];
- for(;;){
- for(M=0,I=0;I<L;I++){
- M+=P[I];
- if(M==N) break;
- }
- if(M<N){
- P[L-1]++;
- G[L-1]=mydiff(G[L-1],V[L-1]);
- G[L]=eval(evalred(mysubst(G[L-1],[V[L-1],0])|opt=Opt));
- }else{
- if(I--==0) break;
- P[I]++;
- G[I]=mydiff(G[I],V[I]);
- while(I++<L){
- G[I]=eval(evalred(mysubst(G[I-1],[V[I-1],0])|opt=Opt));
- if(I<L) P[I]=0;
- }
- }
- K=1;
- for(I=0;I<L;I++) K*=V[I]^P[I]/fac(P[I]);
- R+=G[L]*K;
- }
- return R;
-}
-
-def seriesTaylor(F,N,V)
-{
- G=F;
- if(isvar(V)) V=[V];
- if(length(V)==2 && type(car(V))!=4 && !isvar(V[1])) V=[V];
- for(V0=V1=[];V!=[];V=cdr(V)){
- if(type(T=car(V))!=4) T=[T];
- V0=cons(X=car(T),V0);
- if(length(T)==1 || T[1]==0){
- V1=cons(X,V1);continue;
- }
- S=my_tex_form(-T[1]);
- if(str_char(S,0,"-")!=0) S="+"+S;
- S="("+my_tex_form(X)+S+")";
- V1=cons([X,S],V1);
- F=red(subst(F,T[0],T[0]+T[1]));
- }
- V0=reverse(V0);V1=reverse(V1);
- F=seriesMc(F,N,V0|option_list=getopt());
- if(getopt(frac)==0) F=frac2n(F);
- T=getopt(dviout);
- if(type(T)!=1) T=0;
- F=fctrtos(F|var=V1,rev=1,TeX=(T==0||T==2)?2:3);
- if(getopt(small)==1) F=str_subst(F,"\\frac{","\\tfrac{");
- if(T<0 || T==1) F="\\begin{align}\\begin{split}\n"+
- my_tex_form(G)+"&="+F+"+\\cdots\n\\end{split}\\end{align}\n";
- if(T==1) dviout(F);
- else if(T==1) dviout(F|eq=4);
- return F;
-}
-
-def toeul(F,L,V)
-{
- L = vweyl(L);
- X = L[0]; DX = L[1];
- I = mydeg(F,DX);
- if(V == "infty"){
- for(II=I; II>=0; II--){
- J = mydeg(P=mycoef(F,I,DX),X);
- if(II==I) S=II-J;
- else if(P!=0 && II-J>S) S=II-J;
- }
- F *= X^S;
- R = 0;
- for( ; I >= 0; I--)
- R += red((mysubst(mycoef(F,I,DX),[X,1/X])*(x*DX)^I));
- return(subst(pol2sft(R,DX),DX,-DX));
- }
- F = subst(F,X,X+V);
- for(II=I; II>=0; II--){
- J = mymindeg(P=mycoef(F,II,DX),X);
- if(II==I) S=II-J;
- else if(P!=0 && II-J>S) S=II-J;
- }
- F *= X^S;
- R = 0;
- for( ; I >= 0; I--)
- R += (red(mycoef(F,I,DX)/X^I))*DX^I;
- return pol2sft(R,DX);
-}
-
-/*
-def topoldif(P,F,L)
-{
- L = vweyl(L);
- P = nm(red(P));
- while(deg(P,L[1]) > 0){
- R = coef(P,0,L[0]);
- Q = red((P-R)/(F*L[0]);
- P = nm(Q)*zz+F*R*dn(Q);
- }
-}
-*/
-
-def fromeul(P,L,V)
-{
- if(P == 0)
- return 0;
- L = vweyl(L);
- X = L[0]; DX = L[1];
- I = mydeg(P,DX);
- if(V == "infty"){
- P = subst(P,DX,-DX);
- J = mydeg(P,X);
- P = red(mysubst(P,[X,1/X])*X^J);
- }
- R = mycoef(P,0,DX);
- S = 1;
- for(S = J = 1; J <= I; J++){
- S = DX*(S*X + mydiff(S,DX));
- R += mycoef(P,J,DX)*S;
- }
- while(mycoef(R,0,X) == 0)
- R = tdiv(R,X);
- if(V != "infty" && V != 0)
- R = mysubst(R,[X,X-V]);
- return R;
-}
-
-def sftexp(P,L,V,N)
-{
- L = vweyl(L); DX = L[1];
- P = mysubst(toeul(P,L,V),[DX,DX+N]);
- return fromeul(P,L,V);
-}
-
-
-def fractrans(P,L,N0,N1,N2)
-{
- L = vweyl(L);
- if(N2 != "infty"){
- if(N0 == "infty")
- N0 = 0;
- else
- N0 = red(1/(N0-N2));
- if(N1 == "infty")
- N1 = 0;
- else
- N1 = red(1/(N1-N2));
- P = mysubst(P,[L[0],L[0]+N2]);
- P = fromeul(toeul(P,L,"infty"),L,0);
- }
- if(N0 != 0){
- P = mysubst(P,[L[0],L[0]+N0]);
- N1 -= N0;
- }
- if(N1 != 1)
- P = mysubst(P,[[L[0],L[0]/N1],[L[1],L[1]*N1]]);
- return P;
-}
-
-def soldif(P,L,V,Q,N)
-{
- L = vweyl(L); X = L[0]; DX = L[1];
- P = mysubst(toeul(P,L,V),[DX,DX+Q]);
- DEG = mydeg(P,X);
- P0 = newvect(DEG+1);
- for(I = 0; I <= DEG; I++)
- P0[I] = coef(P,I,X);
- if(P0[0] == 0)
- return 0;
- if(subst(P0[0],DX,0) != 0){
- mycat([Q,"is not the exponent at", V])$
- return 0;
- }
- R = newvect(N+1);
- R[0] = 1;
- for(I = 1; I <= N; I++){
- for(S = 0, K = 1; K <= DEG && K <= I; K++)
- S += mysubst(P0[K],[DX,I-K])*R[I-K];
- S = red(S);
- M = mysubst(P0[0],[DX,I]);
- if(M != 0){
- R[I] = -red(S/M);
- if(R1 != 0){
- for(S = 0, K = 1; K <= DEG && K <= I; K++)
- S += mysubst(P0[K],[DX,I-K])*R1[I-K] +
- mysubst(P1[K],[DX,I-K])*R[I-K];
- R1[I] = -red(S/M);
- }
- }else{
- if(S == 0){
- if(R1 != 0){
- for(S = 0, K = 1; K <= DEG && K <= I; K++)
- S += mysubst(P0[K],[DX,I-K])*R1[I-K] +
- mysubst(P1[K],[DX,I-K])*R[I-K];
- }
- if(S == 0)
- continue;
- }
- R1 = newvect(N+1);
- for(K = 0; K < I; K++){
- R1[K] = R[K];
- R[K] = 0;
- }
- R1[I] = 0;
- P1 = newvect(DEG);
- for(K = 0; K <= DEG; K++)
- P1[K] = mydiff(P0[K], DX);
- M = mysubst(P1[0],[DX,I]);
- if(M == 0){
- cat(["multiple log at ", I])$
- return 0;
- }
- R[I] = -red(S/M);
- }
- }
- if(R1 != 0)
- return [R1, R];
- else
- return R;
-}
-
-def chkexp(P,L,V,Q,N)
-{
- L = vweyl(L); X = L[0]; DX = L[1];
- P = mysubst(toeul(P,L,V),[DX,DX+Q]);
- P = fromeul(P,L,0);
- D = mydeg(P,DX);
- Z = mindeg(mycoef(P,D,DX), X) - (D-N);
- R = [];
- for(I = 0; I < Z; I++){
- S = mycoef(P,I,X);
- if(S != 0){
- for(J = mydeg(S,DX); J >= 0; J--){
- T = mycoef(S,J,DX);
- if(T != 0)
- R = cons(T,R);
- }
- }
- }
- return R;
-}
-
-
-def sqrtrat(P)
-{
- if(P==0) return 0;
- if(type(P)==3||type(P)==2){
- P=red(P);
- if(imag(dn(P))!=0||imag(nm(P))!=0){
- if(imag(dn(P))==0&&real(P)!=0){
- F=red(imag(P)/real(P));
- if(F==3^(1/2)||F==-3^(1/2)){
- if(eval(real(P))<0)
- return -real(P)+imag(P)*@i;
- else{
- if(eval(imag(P))>0) return imag(P)+real(P)*@i;
- else return -imag(P)-real(P)*@i;
- }
- }
- }
- return [];
- }
- F=fctr(dn(P));
- R=sqrtrat(car(F)[0]);
- for(F=cdr(F);F!=[];F=cdr(F)){
- if(!iand(car(F)[1],1)) R*=car(F)[0]^(car(F)[1]/2);
- else return [];
- }
- F=fctr(nm(P));
- R=sqrtrat(car(F)[0])/R;
- for(F=cdr(F);F!=[];F=cdr(F)){
- if(!iand(car(F)[1],1)) R*=car(F)[0]^(car(F)[1]/2);
- else return [];
- }
- return R;
- }
- if(ntype(P)==4){
- P0=real(P);P1=imag(P)/2;
- X=makenewv(P);
- for(R=fctr(X^4-P0*X^2-P1^2);R!=[];R=cdr(R)){
- RT=car(R)[0];
- if(deg(RT,X)==1){
- X=-mycoef(RT,0,X)/mycoef(RT,1,X);
- return X+P1/X*@i;
- }
- if(deg(RT,X)==2){
- if((D=mycoef(RT,1,X)^2-4*mycoef(RT,2,X)*mycoef(RT,0,X))<0) continue;
- X=(-mycoef(RT,1,X)+sqrtrat(D))/(2*mycoef(RT,2,X));
- return X+P1*sqrt2rat(1/X)*@i;
- }
- }
- D=P0^2+4*P1^2;
- if(P1>0) return ((sqrtrat(D)+P0)/2)^(1/2)+((sqrtrat(D)-P0)/2)^(1/2)*@i;
- return ((sqrtrat(D)+P0)/2)^(1/2)-((sqrtrat(D)-P0)/2)^(1/2)*@i;
- }else if(ntype(P)!=0) return [];
- if(P==1) return P;
- Dn=dn(P);Nm=nm(P);C=R=1;
- N=pari(factor,Dn);
- if(N){
- for(II=car(size(N))-1;II>=0;II--){
- if(iand(K=N[II][1],1)){
- R*=N[II][0];
- K++;
- }
- C/=N[II][0]^(K/2);
- }
- }
- N=pari(factor,Nm);
- if(N){
- for(II=car(size(N))-1;II>=0;II--){
- if(N[II][0]==-1){
- C*=@i;
- continue;
- }
- K=N[II][1];
- if(iand(K,1)){
- R*=N[II][0];
- K--;
- }
- if(K!=0) C*=N[II][0]^(K/2);
- }
- }
- if(R!=1) C*=R^(1/2);
- return C;
-}
-
-def fctri(F)
-{
- R=(iscoef(F,os_md.israt))?fctr(F):[[1,1],[F,1]];
- if(!iscoef(F,os_md.iscrat)||chkfun("af_noalg",0)==0) return R;
- X=makenewv(vars(F));
- for(S=[];R!=[];R=cdr(R)){
- if(length(Var=vars(R0=car(R)[0])) == 1 && (D=mydeg(R0,Var=car(Var))) > 0){
- if(imag(T=mycoef(R0,D,Var))!=0) R0/=T;
- T=af_noalg(real(R0)+imag(R0)*X,[[X,X^2+1]]);
- if(length(T)>1||T[0][1]>1){
- T=subst(T,X,@i);
- for(; T!=[];T=cdr(T)){
- if(vars(T[0])!=[])
- S=cons([car(T)[0],car(T)[1]*car(R)[1]],S);
- }
- continue;
- }
- }
- S=cons(R[0],S);
- }
- return reverse(S);
-}
-
-def getroot(F,X)
-{
- S=[];
- if(type(Cpx=getopt(cpx))!=1) Cpx=0;
- M=getopt(mult);
- if(type(F) == 3)
- F = nm(red(F));
- for(R=fctri(F); length(R)>0; R = cdr(R)){
- T=car(R);
- P=car(T);
- I=car(cdr(T));
- if(mydeg(P,X)>0){
- if(mydeg(P,X)==1){
- C = mycoef(P,1,X);
- P = X - red(P/C);
- }else if(mydeg(P,X)==2 && Cpx>0){
- C2=mycoef(P,2,X);C1=mycoef(P,1,X);C0=mycoef(P,0,X);
- C=sqrt2rat(C1^2-4*C0*C2);
- C0=[];
- if(type(C)==0&&ntype(C)==0&&pari(issquare,-C)) C0=sqrt(C);
- else if(Cpx>1) C0=sqrtrat(C);
- if(C0==[]&&Cpx>2) C0=C^(1/2);
- if(C0!=[]){
- if(M==1)
- S=cons([I,sqrt2rat((-C1+C0)/(2*C2))],S);
- else{
- for(II=I; II>0; II--)
- S=cons(sqrt2rat((-C1+C0)/(2*C2)),S);
- }
- P=sqrt2rat((-C1-C0)/(2*C2));
- }
- }else if(mydeg(P,X)==3 && Cpx>1){
- Omg=(-1+3^(1/2)*@i)/2;
- PP=P/mycoef(P,3,X);
- C2=mycoef(PP,2,X)/3;
- PP=subst(PP,X,X-C2);
- if((C1=mycoef(PP,1,X))==0){
- C0=mycoef(PP,0,X);
- if(real(C0)==0||imag(C0)==0){
- if(real(C0)==0){
- PP=getroot(X^3+imag(C0),X);
- if(length(PP)==3){
- for(;PP!=[];PP=cdr(PP)){
- if(imag(PP[0])==0){
- C0=PP[0]*@i;
- break;
- }
- }
- if(PP==[]) C0=0;
- }
- }else{
- if(C0>0) C0=C0^(1/3);
- else C0=-(-C0)^(1/3);
- }
- if(C0!=0){
- if(M==1){
- S=cons([I,C0-C2],S);
- S=cons([I,C0*Omg-C2],S);
- S=cons([I,C0*(-1-Omg)-C2],S);
- }else{
- for(II=I; II>0; II--){
- S=cons(C0-C2,S);
- S=cons(C0*Omg-C2,S);
- S=cons(C0*(-1-Omg)-C2,S);
- }
- }
- continue;
- }
- }
- }
- if(Cpx>2){
- Q=X^2+(mycoef(PP,1,X)/3)*X+mycoef(PP,0,X)^3;
- SQ=getroot(Q,X|cpx=2);
- SQ=SQ[0]^(1/3);SQ2=mycoef(PP,0,X)/SQ;
- if(M==1){
- S=cons([I,SQ+SQ2-C2],S);
- S=cons([I,SQ*Omg+SQ2*(-1-Omg)-C2],S);
- S=cons([I,SQ*(-1-Omg)+SQ2*Omg-C2],S);
- }else{
- for(II=I; II>0; II--){
- S=cons(SQ+SQ2-C2,S);
- S=cons(SQ*Omg+SQ2*(-1-Omg)-C2,S);
- S=cons(SQ*(-1-Omg)+SQ2*Omg-C2,S);
- }
- }
- continue;
- }
- }else if(mydeg(P,X)==4 && Cpx>0){
- C2=mycoef(P,3,X)/(4*mycoef(P,4,X));
- PP=subst(P,X,X-C2);
- if(mycoef(PP,1,X)==0){
- PP=mycoef(PP,4,X)*X^2+mycoef(PP,2,X)*X+(SQ2=mycoef(PP,0,X));
- SQ=getroot(PP,X|cpx=2);
- if(length(SQ)==2){
- if((C0=sqrtrat(SQ[0]))==[]){
- if(mycoef(PP,1,X)==0){
- if(SQ2<0) C0=(-SQ2)^(1/4);
- else C0=SQ2^(1/4)*(1+@i)/2;
- }
- else if(Cpx>2) C0=SQ[0]^(1/2);
- else C0=0;
- }
- if((C1=sqrtrat(SQ[1]))==[]){
- if(mycoef(PP,1,X)==0) C1=-C0;
- else C1=SQ[1]^(1/2);
- }
- if(C0!=0){
- if(M==1)
- S=append([[I,C0-C2],[I,-C0-C2],[I,C1-C2],[I,-C1-C2]],S);
- else{
- for(II=I; II>0; II--)
- S=append([C0-C2,-C0-C2,C1-C2,-C1-C2],S);
- }
- continue;
- }
- }
- }else{
- PP/=mycoef(PP,4,X);
- CC=mycoef(PP,2,X);C1=mycoef(PP,1,X);C0=mycoef(PP,0,X);
- SQ=getroot(X*(CC+X)^2-4*C0*X-C1^2,X|cpx=Cpx);
- if(length(SQ)>1){
- SQ=sqrt2rat(SQ[0]);
- SQ2=getroot(X^2-SQ,X|cpx=Cpx);
- if(length(SQ2)>1){
- C1=SQ2[0]*X-C1/SQ2[0]/2;
- C0=getroot(X^2+CC/2+SQ/2+C1,X|cpx=Cpx);
- C1=getroot(X^2+CC/2+SQ/2-C1,X|cpx=Cpx);
- if(length(C0)>1&&length(C1)>1){
- C0=[sqrt2rat(C0[0]-C2),sqrt2rat(C0[1]-C2),
- sqrt2rat(C1[0]-C2),sqrt2rat(C1[1]-C2)];
- if(M==1) for(II=0;II<4;II++) S=cons([I,C0[II]],S);
- else for(II=I; II>0; II--) S=append(C0,S);
- continue;
- }
- }
- }
- }
- }
- if(M==1)
- S=cons([I,P],S);
- else for( ; I>0; I--) S=cons(P,S);
- }
- }
- S=qsort(S);
- if(M==1) S=reverse(S);
- return S;
-}
-
-def expat(F,L,V)
-{
- L = vweyl(L);
- if(V == "?"){
- Ans = [];
-
- F = nm(red(F));
- S = fromeul(toeul(F,L,"infty"),L,0);
- S = mycoef(S,mydeg(S,L[1]),L[1]);
- if(mydeg(S,L[0]) > 0)
- Ans = cons(["infty", expat(F,L,"infty")],Ans);
-
- S = mycoef(F,mydeg(F,L[1]), L[1]);
- R = getroot(S,L[0]);
- for(I = 0; I < length(R); I++){
- if(I > 0 && R[I-1] == R[I])
- continue;
- if(mydeg(R[I], L[0]) <= 0)
- Ans = cons([R[I], expat(F,L,R[I])], Ans);
- else
- Ans = cons([R[I]], Ans);
- }
- return Ans;
- }
- return getroot(subst(toeul(F,L,V),L[0],0),L[1]);
-}
-
-def polbyroot(P,X)
-{
- R = 1;
- while(length(P)){
- R *= X-car(P);
- if(type(R)>2) R = red(R);
- P = cdr(P);
- }
- return R;
-}
-
-def polbyvalue(P,X)
-{
- R = 1; S = 0;
- while(length(P)){
- T = car(P);
- V0 = T[1] - mysubst(S,[X,T[0]]);
- if(V0 != 0){
- if(type(R) > 2) R = red(R);
- V1 = mysubst(R,[X,T[0]]);
- if(V1 == 0){
- erno(0);
- return 0;
- }
- S += (V0/V1)*R;
- if(type(S) > 2) S = red(S);
- }
- R *= X - T[0];
- P = cdr(P);
- }
- return S;
-}
-
-
-def pcoef(P,L,Q)
-{
- if(L==0)
- return 1;
- Coef=TP=0;
- if(type(Q)>=4){
- TP=1;
- V=Q[0];
- if(type(V)==4)
- V=ltov(V);
- else V=dupmat(V);
- N=length(V);
- if(type(Q[1])==5) MR=dupmat(Q[1]);
- else{
- MR=newvect(N);
- for(K=Q[1], I=0; I< N; I++){
- MR[I] = car(K);
- K = cdr(K);
- }
- }
- }else{
- V=ltov(vars(P));
- N=length(V);
- MR=newvect(N);
- for(I=0;I<N;I++){
- MR[I]=mydeg(Q,V[I]);
- Q=mycoef(Q,MR[I],V[I]);
- }
- if(type(Q)>1) return 0;
- }
- if(L==1){
- for(I=0;I<N;I++)
- P=mycoef(P,MR[I],V[I]);
- return P;
- }
- for(I=1;I<N;I++){ /* sorted by required degrees */
- for(K1=MR[I],K2=V[I],J=I-1; J>=0 && MR[J]<K1; J--);
- for(II=I-1;II>J;II--){
- MR[II+1]=MR[II];V[II+1]=V[II];
- }
- MR[II+1]=K1;V[II+1]=K2;
- }
- for(NN=N; N>0 && MR[N-1]==0; N--);
- Mon=[];Coe=[];Q=P;
- while(Q!=0){
- M=newvect(N);
- for(R=Q,F=I=0,MT=1;I<NN;I++){
- K=mydeg(R,V[I]);
- R=mycoef(R,K,V[I]);
- if(I<N) M[I]=K;
- if(K>0) MT*=V[I]^K;
- if(K>MR[I]) F=1;
- }
- Q -= R*MT;
- if(F==0){
- Mon=cons(M,Mon);
- Coe=cons(R,Coe);
- }
- }
- Mon=ltov(reverse(Mon));
- Coe=ltov(reverse(Coe));
- Len=length(Mon);
- S=newvect(Len);
- for(JL=0; JL<Len;JL++){
- if(L*Mon[JL][0]<MR[0]) break;
- }
- S[0]=L;
-
- K0=Mon[0][0];
- K=L*K0-MR[0];
- for(I=II=0;II<Len && K>=0;II++){
- if((K1=K0-Mon[0][II])>0){
- while(K>K1 && S[I]>0){
- S[I]--;S[II]++;
- K-=K1;
- I=II;
- K0=Mon[0][II];
- }
- }else break;
- }
-
- I=0;
- while(1){
- for(T=T0=J=JP=0; J<Len; J++){
- if(S[J]!=0){
- if(T0==0 && J>=JL) return Coef;
- JP=J;T0=1;
- T+=S[J]*Mon[J][I];
- }
- }
- if(T==MR[I]){
- if(++I<N) continue;
- for(TT=1,J=1; J<=L; J++) /* find a solution */
- TT*=J;
- for(J=0;J<Len;J++){
- if(S[J]!=0){
- TT*=Coe[J]^S[J];
- for(II=S[J]; II>1; II--)
- TT/=II;
- }
- }
- Coef+=TT;
- if(TP==1 && type(Coef)==3) Coef=red(Coef);
- if(JP<Len-2 && S[JP]>1){
- S[JP]-=2;S[JP+1]++;S[JP+2]++;
- }else{
- for(JT=JP-1;JT>=0&&S[JT]==0;JT--);
- if(JT<0) break;
- if(JT==JP-1){
- S[JT]--;
- if(JP<Len-1)
- S[JP+1]++;
- else
- S[JP]++;
- }else{
- S[JT]--;
- S[JT+1]+=S[JP]+1;
- S[JP]=0;
- }
- }
- I=0;
- continue;
- }
- if(JP<Len-1){
- for(JP1=JP+1;JP1<Len-1;JP1++){
- if(Mon[JP1][I]!=Mon[JP][I]) break;
- }
-
- if(I>0 && Mon[JP1][0] < Mon[JP][0]){
- S[JP]--;S[Len-1]++;JP=JP-1;
- }else{
-
- S[JP]--;
- if(JP1<Len){
- S[JP1]++;
- }else{
- S[JP1-1]++;
- }
- }
- }
- if(JP==Len-1){
- for(JT=JP-1;JT>=0 && S[JT]==0;JT--);
- if(JT<0) break;
- S[JT]--;
- if(JT==JP-1){
- S[JP]++;
- }else{
- S[JT+1]+=S[JP]+1;
- S[JP]=0;
- }
- }
- I=0;
- }
- return Coef;
-}
-
-def prehombf(P,Q)
-{
- if((Mem=getopt(mem))!=1 && Mem!=-1)
- return prehombfold(P,Q);
- if(Q==0) Q=P;
- V=ltov(vars(P));
- N=length(V);
- for(I=1;I<N;I++){ /* sorted by required degrees */
- for(K=mydeg(P,V[I]),K1=V[I],J=I-1; J>=0 && mydeg(P,V[J])<K; J--);
- for(II=I-1;II>J;II--) V[II+1]=V[II];
- V[II+1]=K1;
- }
- S=newvect(N);T=newvect(N);U=newvect(N);
- for(R=P,M=1,Deg=I=0;I<N;I++){ /* extreme vector */
- Deg+=(S[I]=mydeg(R,V[I]));
- R=mycoef(R,S[I],V[I]);
- }
- DR=[[-1,0]];
- if((R1=N/Deg)!=1){
- DR=cons([-R1,0],DR);
- Sft=1;
- }else Sft=0;
- if(Deg%2==0) Sg=1;
- else Sg=-1;
- for(I=0,R=R2=1,QQ=Q; 2*I+Sft < Deg; I++){
- if(Mem==-1){
- print(I+1,0);print("/",0);print(idiv(Deg-Sft+1,2),0);print(" ",2);
- }
- Coef=0;
- Q=QQ;
- while(Q!=0){
- for(R=Q,J=0,RR=1;J<N;J++){
- T[J]=mydeg(R,V[J]);
- R=mycoef(R,T[J],V[J]);
- if(T[J]>0) RR*=V[J]^T[J];
- }
- Q-=R*RR;
- for(J=0,CC=R;J<N;J++){
- U[J]=I*S[J]+T[J];
- for(II=0; II<T[J]; II++)
- CC*=(U[J]-II);
- }
- CC*=pcoef(P,I+1,[V,U]);
- if(Mem==-1) print("*",2);
- Coef+=CC;
- }
- DR=cons([I,Coef],DR);
- DR=cons([-R1-1-I,Sg*Coef],DR);
- if(Mem==-1) print("");
- }
- P = polbyvalue(DR,s);
- return fctr(P);
-}
-
-def prehombfold(P,Q)
-{
- V = vars(P);
- if(Q==0) Q=P;
- for(Deg=0, R=P, V1=V, DD=[]; V1!=[]; V1=cdr(V1)){
- VT = car(V1);
- D = mydeg(R,VT);
- R = mycoef(R,D,VT);
- Deg += D;
- X = makev(["d",VT]);
- Q = subst(Q,VT,X);
- DD=cons([VT,X],DD);
- }
- DR=[[-1,0]];
- NV=length(V);
- if((R1=NV/Deg)!=1){
- DR=cons([-R1,0],DR);
- Sft=1;
- }else
- Sft=0;
- if(Deg%2==0)
- Sg=1;
- else Sg=-1;
- for(I = 0, R=R2=1; 2*I+Sft < Deg; I++){
- R = R2;
- R2 = R*P;
- S = appldo(Q,R2,DD);
- QQ = sdiv(S,R);
- DR=cons([I,QQ],DR);
- DR=cons([-R1-1-I,Sg*QQ],DR);
- }
- P = polbyvalue(DR,s);
- return fctr(P);
-}
-
-def sub3e(P0,P1,P2,N0,N1,N)
-{
- R = x^N0*(x-1)^N1*dx^N;
- for(V = I = 1, J = 1; I <= N; I++){
- S = 0;
- M = N-I;
- if(I <= N0){
- T = mycoef(P0,N0-I,x);
- S += T;
- R += T*x^(N0-I)*(x-1)^N1*dx^M;
- K1 = N0-I+1;
- }else
- K1 = 0;
- if(I <= N1){
- T = mycoef(P1,N1-I,x);
- S += T;
- R += T*x^N0*(x-1)^(N1-I)*dx^M;
- K2 = N0-1;
- }else
- K2 = N-I;
- for(K = K1; K <= K2; K++){
- if(K == K2){
- R += (mycoef(P2,N-I,x)-S)*x^K*(x-1)^(M-K)*dx^M;
- continue;
- }
- R += strtov("r"+rtostr(V))*x^K*(x-1)^(M-K)*dx^M;
- S += strtov("r"+rtostr(V++));
- }
- }
- if(V > 1)
- mycat([V-1, "accessory parameters: r1,r2,..."]);
- return R;
-}
-
-def fuchs3e(P,Q,R)
-{
- return getbygrs([R,P,Q],3);
-}
-
-def okubo3e(P,Q,R)
-{
- if(getopt(opt)==1){
- N=length(R);
- M1=N-length(P);M2=N-length(Q);
- V=(M1-1)*(M2-1);
- if(V>0) mycat([V, "accessory parameters"]);
- return getbygrs([R,cons([M1,0],P),cons([M2,0],Q)],3);
- }
- S = 0;
- V = -1;
- L = newvect(3,[[],[],[]]);
- N = newvect(3,[0,0,0]);
- if(type(R) < 4){
- I = -1;
- V = 3;
- }else{
- I = 2;
- V = -1;
- }
- for( ; I >= 0; I--){
- if(I == 2)
- U = R;
- else if(I == 1)
- U = Q;
- else
- U = P;
- for( ; length(U); U = cdr(U)){
- T = car(U);
- if( T == "?"){
- if(V < 0)
- V = I;
- else
- return 0;
- }else{
- if(I == 2)
- L[I] = cons(-T, L[I]);
- else
- L[I] = cons(T, L[I]);
- S += T;
- }
- N[I]++;
- }
- }
- if(V == 3){
- N[2] = N[0] + N[1];
- P2 = x^N;
- for(I = 1; I <= N; I++)
- P2 += makev([R,I])*x^(N-I);
- }else{
- if(N[0]+N[1] != N[2]){
- print("Number of exponents are wrong",0);
- return -1;
- }
- S -= N[0]*N[1];
- if(V < 0){
- if(S != 0){
- mycat(["Viorate Fuchs relation ->",S]);
- return -2;
- }
- }else{
- if(V != 2)
- S = -S;
- L[V] = cons(S, L[V]);
- }
- P2 = polinsft(polbyroot(L[2],x),x);
- }
- P0 = polinsft(mysubst(polbyroot(L[0],x),[x,x+N[1]]),x);
- P1 = polinsft(mysubst(polbyroot(L[1],x),[x,x+N[0]]),x);
- return sub3e(P0,P1,P2,N[0],N[1],N[2]);
-}
-
-/* N = 2*M (N-M = M) or 2*M+1 (N-M = M+1)
- 0 : 0 1 ..... M-1 B B+1 ... B+N-M-2 A
- 1 : C C+1 ... C+M-1 0 1 .... N-M-2 N-M-1
- */
-def eosub(A,B,C,N)
-{
- M = N%2;
- P = [];
- Q = [];
- P = cons(A,P);
- for(I = 0; I < N-M-1; I++)
- P = cons(B+I,P);
- for(I = 0; I < M; I++)
- Q = cons(C+I,Q);
- P = okubo3e(P,Q,s);
-
- C = newvect(2);
- L = newvect(2);
- C[1] = chkexp(P,[x,dx],0,b,N-M-1);
- C[0] = chkexp(P,[x,dx],1,c,M);
- for(LL = K = 0; K < 2; K++){
- L[K] = length(C[K]);
- C[K] = ltov(C[K]);
- if(L[K] > LL)
- LL = L[K];
- }
- JJ = 0;
-
- for(I = 1; Do; I++){
- Do = 0;
- S = makev(["r",I]);
- for(J = JJ; J < LL; J++){
- JJ = LL;
- for(K = 0; K < 2; K++){
- if(J >= L[K] || C[K][J] == 0)
- continue;
- if(J < JJ)
- JJ = J;
- if(Do == 1){
- CC = C[K];
- CC[J] = mysubst(CC[J], [S, Var]);
- continue;
- }
- if(mydeg(C[K][J]) >= 1){
- if(mydeg(C[K][J]) > 1){
- print("Internal error");
- return;
- }
- Var = getroot(C[K][J],S);
- Var = Var[0];
- CC = C[K];
- CC[J] = 0;
- P = mysubst(P, [S, Var]);
- Do = 1;
- J = JJ - 1;
- K++;
- }
- }
- }
- }
- if(JJ != L){
- print("Internal error (non Rigid)");
- return;
- }
- return P;
-}
-
-def even4e(X,Y){
- if(length(X) != 4 || length(Y) != 2){
- print("Usage: even4e([a,b,c,d],[e,f])");
- print("0: 0 1 e f");
- print("1; 0 1 * *+1");
- print("infty: a b c d");
- return;
- }
- S = -3;
- for(I = 0; I < 4; I++){
- S += X[I];
- if(I < 2)
- S += Y[I];
- }
- S = -S/2;
- P = okubo3e(Y,[S,"?"],X);
- T = chkexp(P,x,1,S,2);
- T = getroot(T[0],r1);
- return mysubst(P,[r1,T[0]]);
-}
-
-def odd5e(X,Y)
-{
- if(length(X) != 5 || length(Y) != 2){
- print("Usage: spec6e([a,b,c,d,e],[f,g])");
- print("0: 0 1 f g g+1");
- print("1: 0 1 2 * *+1");
- print("infty: a b c d e");
- return;
- }
- S = -4;
- for(I = 0; I < 5; I++){
- S += X[I];
- if(I < 2)
- S += Y[I];
- }
- S = -(S + Y[1])/2;
- P = okubo3e([Y[0],Y[1],Y[1]+1],[S,"?"],X);
- T = chkexp(P,x,1,S,2);
- T = getroot(T[0],r1);
- P = mysubst(P,[r1,T[0]]);
- T = chkexp(P,x,0,Y[1],2);
- T = getroot(T[0],r2);
- return mysubst(P,[r2,T[0]]);
-}
-
-def extra6e(X,Y)
-{
- if(length(X) != 6 || length(Y) != 2){
- print("Usage: extra6e([a,b,c,d,e,f],[g,h])");
- print("0: 0 1 g g+1 h h+1");
- print("1: 0 1 2 3 * *+1");
- print("infty: a b c d e f");
- return;
- }
- S = -5;
- for(I = 0; I < 6; I++){
- S += X[I];
- if(I < 2)
- S += 2*Y[I];
- }
- S = -S/2;
- P = okubo3e([Y[0],Y[0]+1,Y[1],Y[1]+1],[S,"?"],X);
- T = chkexp(P,x,1,S,2);
- T = getroot(T[0],r1);
- P = mysubst(P,[r1,T[0]]);
- T = chkexp(P,x,0,Y[0],2);
- T = getroot(T[0],r3);
- P = mysubst(P,[r3,T[0]]);
- T = chkexp(P,x,0,Y[1],2);
- T = getroot(T[0],r2);
- return mysubst(P,[r2,T[0]]);
-}
-
-def rigid211(X,Y,Z)
-{
- if(length(X) != 2 || length(Y) != 2 || length(Z) != 2){
- print("Usage: rigid211([a,b],[c,d],[e,f])");
- print("0: 0 1 a b");
- print("1: 0 1 c d");
- print("infty: e e+1 f *");
- return;
- }
- P = okubo3e(X,Y,[Z[0],Z[0]+1,Z[1],"?"]);
- T = chkexp(P,x,"infty",Z[0],2);
- T = getroot(T[0],r1);
- return mysubst(P,[r1,T[0]]);
-}
-
-def solpokuboe(P,L,N)
-{
- if(type(N) > 1 || ntype(N) != 0 || dn(N) != 1){
- mycat(["Irrigal argument :", N]);
- return 0;
- }
- L = vweyl(L);
- DD=N+1;
- for(U = S = L[0]^N; U != 0; ){
- D = mydeg(U,L[0]);
- if(D>=DD){
- mycat(["Internal Error",D,DD]);
- return -1;
- }
- DD=D;
- UU = L[0]^D;
- R = appldo(P,UU,L);
- if(mydeg(R,L[0]) > D){
- printf("Bad operator\n");
- return 0;
- }
- CC = mycoef(R,D,L[0]);
- if(D == N){
- P -= (E = CC);
- U = R-E*U;
- continue;
- }
- if(CC == 0){
- printf("No polynomial\n");
- return 0;
- }
- CC= mycoef(U,D,L[0])/CC;
- S = red(S - UU*CC);
- U = red(U - R*CC);
- }
- return [nm(S),E];
-}
-
-def stoe(M,L,N)
-{
- L = vweyl(L);
- Size = size(M);
- S = Size[0];
- NN = 0;
- if(type(N) == 4){
- NN=N[0]; N=N[1];
- }else if(N < 0){
- NN=-N; N=0;
- }
- if(S != Size[1] || N >= S || NN >= S)
- return;
- D = newmat(S+1,S+1);
- MN = dupmat(M);
- MD = newmat(S,S);
- DD = D[0];
- DD[N] = 1; DD[S] = 1;
- for(Lcm = I = 1; ; ){
- DD = D[I];
- MM = MN[N];
- for(J = 0; J < S; J++){
- DD[J] = MM[J];
- Lcm = lcm(dn(DD[J]),Lcm);
- }
- DD[S] = L[1]^I;
- for(J = 0; J <= S; J++)
- DD[J] = red(DD[J]*Lcm);
- if(I++ >= S)
- break;
- if(I==S && NN>0){
- DD = D[I];
- DD[0]=-z_zz; DD[NN]=1;
- break;
- }
- Mm = dupmat(MN*M);
- for(J = 0; J < S; J++){
- for(K = 0; K < S; K++)
- MN[J][K] = red(diff(MN[J][K],L[0])+Mm[J][K]);
- }
- }
-#if 0
- P = fctr(mydet2(D));
-#else
- P = fctr(det(D));
-#endif
- for(I = R = 1; I < length(P); I++){
- if(mydeg(P[I][0],L[1]) > 0)
- R *= P[I][0]^P[I][1];
- }
- if(NN > 0)
- R = -red(coef(R,0,z_zz)/coef(R,1,z_zz));
- return R;
-}
-
-def dform(L,X)
-{
- if(type(X)==2) X=[X];
- if(type(L[0])!=4) L=[L];
- if(type(X)==4) X=ltov(X);
- M=length(X);
- if(length(car(L))==2){
- R=newvect(M);
- for(LL=L; LL!=[]; LL=cdr(LL)){
- for(I=0; I<M; I++){
- RT=rmul(car(LL)[0],mydiff(car(LL)[1],X[I]));
- R[I] = (R[I]==0)?RT:radd(R[I],RT);
- }
- }
- Dif=getopt(dif);
- for(RR=[], I=M-1; I>=0; I--){
- if(Dif==1) RR=cons([1,R[I],X[I]],RR);
- else RR=cons([R[I],X[I]],RR);
- }
- if(Dif==1) RR=dform(RR,X);
- return RR;
- }else if(length(car(L))!=3) return L;
- N=M*(M-1)/2;
- R=newvect(N);
- S=newvect(N);
- for(LL=L; LL!=[]; LL=cdr(LL)){
- for(I=K=0; I<M; I++){
- for(J=I+1; J<M; J++, K++){
- if(LL==L) S[K]=[X[I],X[J]];
- LT=car(LL);
- R1=mydiff(LT[2],X[J]);
- R2=mydiff(-LT[2],X[I]);
- if(R2==0){
- if(R1==0) continue;
- R1=rmul(mydiff(LT[1],X[I]),R1);
- }else if(R1==0){
- R1=rmul(mydiff(LT[1],X[J]),R2);
- }else
- R1=rmul(mydiff(LT[1],X[I]),R1)+rmul(mydiff(LT[1],X[J]),R2);
- R1=rmul(LT[0],R1);
- R[K] = (R[K]==0)?R1:radd(R[K],R1);
- }
- }
- }
- for(RR=[],I=N-1; I>=0; I--)
- RR=cons([R[I],S[I][0],S[I][1]],RR);
- return RR;
-}
-
-def polinvsym(P,Q,Sym)
-{
- N = length(Q);
- T = polbyroot(Q,zz);
- for(I = 1; I <= N; I++){
- P = mysubst(P,[makev([Sym,I]), (-1)^I*coef(T,N-I,zz)]);
- }
- return P;
-}
-
-def polinsym(P,Q,Sym)
-{
- if(type(P) == 3){
- P = red(P);
- if(type(P) == 3){
- D = polinsym(dn(P),Q,Sym);
- if(D == 0)
- return 0;
- return polinsym(nm(P),Q,Sym)/D;
- }
- }
- N = length(Q);
- V = newvect(N+1);
- S = newvect(N+1);
- E = newvect(N+1);
- E0 = newvect(N+1);
- T = polbyroot(Q,zzz);
- for(J = 1; J <= N; J++){
- K = coef(T,N-J,zzz);
- if(J % 2)
- K = -K;
- S[J] = K;
- V[J] = makev([Sym,J]);
- }
- K = deg(P,Q[0]);
- for(J = 0; J <= N; J++)
- E0[J] = K+1;
- E[0] = K+1;
- while(deg(P,Q[0]) > 0){
- for(P0 = P, J = 1; J <= N; J++){
- E[J] = deg(P0,Q[J-1]);
- P0 = coef(P0,E[J],Q[J-1]);
- }
- /* P0*Q[0]^E[1]*Q[1]^E[2]*... E[1] >= E[2} >= ... */
- for(J = 1; J <= N; J++){
- if(E[J] < E0[J])
- break;
- if(E[J-1] < E[J])
- J = N;
- }
- if(J > N){
- print("Not symmetric");
- return 0;
- }
- for(J = 1; J <= N; J++)
- E0[J] = E[J];
- for(J = N; J > 1; J--){
- if(E[J] != 0)
- for(K = 1; K < J; K++)
- E[K] -= E[J];
- }
- for(R0 = P0, K = 1; K <= N; K++){
- if(E[K] > 0)
- P0 *= S[K]^E[K];
- R0 *= V[K]^E[K];
- }
- P += R0 - P0;
- }
- return P;
-}
-
-def tohomog(P,L,V)
-{
- while(length(L)>0){
- P = mysubst(P,[car(L),car(L)/V]);
- L = cdr(L);
- }
- P = red(P);
- N = mindeg(dn(P),V);
- if(N > 0)
- P = red(P*V^N);
- N = mindeg(dn(P),V);
- if(N > 0)
- P = red(P/(V^N));
- return P;
-}
-
-def substblock(P,X,Q,Y)
-{
- P = red(P);
- if(deg(dn(P),X) > 0)
- return substblock(nm(P),X,Q,Y)/substblock(dn(P),X,Q,Y);
- N = mydeg(Q,X);
- if(N < 1)
- return P;
- R = mycoef(Q,N,X);
- while(M = mydeg(P,X), M >= N)
- P = red(P - mycoef(P,M,X)*(Q-Y)*X^(M-N)/R);
- return P;
-}
-
-def okuboetos(P,L)
-{
- L = vweyl(L); X = L[0]; DX = L[1];
- N = mydeg(P,DX);
- C = mycoef(P,N,DX);
- K = mydeg(C,X);
- if(K > N){
- print("Irregular singularity at infinity")$
- return 0;
- }
- if(N > K)
- P *= x^(N-K);
-
- L = getroot(mycoef(P,N,DX),x);
- L = ltov(reverse(L));
- if(length(L) != N || N == 0){
- print("Cannot get exponents")$
- return 0;
- }
- if( type(LL = getopt(diag)) == 4 ){
- LL = ltov(LL);
- if(length(LL) != N){
- mycat(["Length of the option should be", N]);
- return 0;
- }
- Tmp = newvect(N);
- for(I = N-1; I >= 0; I--){
- for(LLT = LL[I], J = N-1; J >=0 ; J--){
- if(LLT == L[J] && Tmp[J] == 0){
- Tmp[J] = 1;
- break;
- }
- }
- if(J < 0){
- print("option is wrong");
- return 0;
- }
- }
- L = LL;
- }
- P /= mycoef(C,N,X);
- A = newmat(N,N);
- AT = newmat(N+1,N+1);
- Phi= newvect(N+1);
- Phi[0] = 1;
- for(J = 0; J < N; J++)
- Phi[J+1] = Phi[J]*(X-L[J]);
- for(ATT = AT[N], J = 0; J < N; J++)
- ATT[J] = mycoef(P,J,DX);
-
- for(K = 1; K <= N; K++){
- for(J = N; J >= K; J--){
- Aj = A[J-1];
- SIG = AT[J][J-K];
- for(I = 0; I <= K-2; I++)
- SIG += Aj[J-I-1]*AT[J-I-1][J-K];
- if(K == 1)
- DAT = mydiff(Phi[J-1],X);
- else
- DAT = mydiff(AT[J-1][J-K],X);
- Aj[J-K] = -SIG+(X-L[J-1])*DAT;
- Aj[J-K] /= Phi[J-K];
- Aj[J-K] = mysubst(Aj[J-K],[X,L[J-1]]);
- if(J < K+1) continue;
- ATj = AT[J-1];
- ATj[J-K-1] = SIG+Aj[J-K]*Phi[J-K];
- ATj[J-K-1] /= (X - L[J-1]);
- ATj[J-K-1] = red(ATj[J-K-1]-DAT);
- }
- }
-
- ATT = newmat(N,N);
- for(J = 0; J < N; J++){
- for(K = 0; K < N; K++){
- ATj = ATT[J];
- ATj[K] = AT[J][K];
- }
- ATj[J] = Phi[J];
- if(J < N-1){
- ATj = A[J];
- ATj[J+1] = 1;
- }
- }
- return [L,A,ATT];
-}
-
-def heun(X,P,R)
-{
- if(type(X) != 4 || length(X) != 5){
- print("Usage: huen([a,b,c,d,e],p,r)");
- print("0: 0 c");
- print("1: 0 d");
- print("p: 0 e");
- print("infty: a b");
- print("Fuchs relation: a+b+1 = c+d+e");
- return;
- }
- S = 1;
- V = -1;
- X = ltov(X);
- for(I = 0; I < 5; I++){
- if(X[I] == "?"){
- if(V >= 0)
- return;
- V = I;
- }else if(I < 2){
- S += X[I];
- }else
- S -= X[I];
- }
- if(V >= 0){
- if(V < 2)
- X[V] = -S;
- else
- X[V] = S;
- }else if(S != 0){
- mycat(["Fuch relation:", S,"should be zero!"]);
- return;
- }
- return
- x*(x-1)*(x-P)*dx^2
- + (X[2]*(x-1)*(x-P)+X[3]*x*(x-P)+X[4]*x*(x-1))*dx
- + X[0]*X[1]*(x-R);
-}
-
-def fspt(M,T)
-{
- if(type(M)==7) M=s2sp(M);
- if(T == 3) /* 3: cut 0 */
- return cutgrs(M);
- if(T == 4 || T== 5){ /* 4: short 5: long */
- for(MN = [] ; M != []; M = cdr(M)){
- MT = car(M);
- for(MNT = []; MT != []; MT = cdr(MT)){
- if(type(car(MT)) <= 3){
- if(T == 4) MNT = cons(car(MT),MNT);
- else MNT = cons([1,car(MT)],MNT);
- }else{
- if(T == 5 || car(MT)[0] > 1) MNT = cons(car(MT),MNT);
- else if(car(MT)[0] == 1) MNT = cons(car(MT)[1],MNT);
- }
- }
- MN = cons(reverse(MNT), MN);
- }
- return reverse(MN);
- }
- if(type(M[0][0]) == 4){
- for(MN = [] ; M != []; M = cdr(M)){
- MT = car(M);
- for(MNT = []; MT != []; MT = cdr(MT))
- MNT = cons(car(MT)[0], MNT);
- MN = cons(reverse(MNT), MN);
- }
- return fspt(reverse(MN),T);
- }
- if(T == 0) /* 0: sp */
- return M;
- for(MN = [] ; M != []; M = cdr(M)){
- MT = qsort(ltov(car(M)));
- L = length(MT);
- for(MNT = [], I = 0; I < L; I++)
- MNT = cons(MT[I], MNT);
- MN = cons(MNT, MN);
- }
- MN = reverse(MN);
- if(T==6) return MN; /* 7: sort */
- L = length(MN);
- for(M = MN; M != []; M = cdr(M)){
- for(I = 0, MT = car(M); MT != []; MT = cdr(MT))
- I += car(MT);
- if(OD == 0)
- OD = I;
- else if(OD != I || OD == 0)
- return 0;
- }
- ALL = [MN];
- RD=[];
- while(OD > 0){
- for(S = 0, MT = MN; MT != []; MT = cdr(MT))
- S += car(MT)[0];
- S -= (L-2)*OD;
- if(S <= 0){
- if(T==7) return [ALL[0],ALL[length(ALL)-1],RD];
- return (T==1)?MN:ALL;
- }
- RD=cons([S,0,0],RD);
- for(NP=0, M = [], MT = MN; MT != []; NP++, MT = cdr(MT)){
- MTT = car(MT);
- I = MTT[0] - S;
- if(I < 0){
- if(I+OD!=0) return 0;
- if(T==7) return [ALL[0],ALL[length(ALL)-1],cdr(RD)];
- return (T==1)?MN:ALL;
- }
- MTT = cdr(MTT);
- NC=1; DO=0;
- for(MNT = []; MTT != []; MTT = cdr(MTT)){
- if(MTT[0] > I){
- if(DO==0) RD=cons([MTT[0]-I,NP,NC++],RD);
- MNT = cons(MTT[0], MNT);
- }
- else if(MTT[0] <= I && I != 0){
- DO=1;
- MNT = cons(I, MNT);
- I = 0;
- if(MTT[0] > 0)
- MNT = cons(MTT[0], MNT);
- }
- }
- if(I > 0)
- MNT = cons(I,MNT);
- M = cons(reverse(MNT), M);
- }
- MN = reverse(M);
- ALL = cons(MN,ALL);
- OD -= S;
- }
-}
-
-def abs(X)
-{
- if(vars(X)!=[]) return todf(os_md.abs,[X]);
- if(type(X)==4){
- P=X[1];X=X[0];
- }else P=0;
- if(type(X)==1){
- if((T=ntype(X))<2 || T==3){
- if(X<0) X=-X;
- }else if(T==4) X=P?pari(abs,X,P):pari(abs,X);
- }
- return X;
-}
-
-def calc(X,L)
-{
- if(type(X)<4||type(X)==7){
- if(type(L)==4||type(L)==7){
- V=L[1];
- if(type(X)!=7){
- if((L0=L[0])=="+") X+=V;
- else if(L0=="-") X-=V;
- else if(L0=="*") X*=V;
- else if(L0=="/") X/=V;
- else if(L0=="^") X^=V;
- }
- if((L0=L[0])==">") X=(X>V);
- else if(L0=="<") X=(X<V);
- else if(L0=="=") X=(X==V);
- else if(L0==">=") X=(X>=V);
- else if(L0=="<=") X=(X<=V);
- else if(L0=="!=") X=(X!=V);
- }else if(type(L)==7&&type(X)<4){
- if(L=="neg") X=-X;
- else if(L=="abs") X=abs(X);
- else if(L=="neg") X=-X;
- else if(L=="sqr") X*=X;
- else if(L=="inv") X=1/X;
- else if(L=="sgn"){
- if(X>0)X=1;
- else if(X<0) X=-1;
- }
- }
- }
- return X;
-}
-
-def isint(X)
-{
- if(X==0||(type(X)==1 && ntype(X)==0 && dn(X)==1)) return 1;
- return 0;
-}
-
-def israt(X)
-{
- if(X==0||(type(X)==1 && ntype(X)==0)) return 1;
- return 0;
-}
-
-def iscrat(X)
-{
- if(X==0 || (type(X)==1 && israt(real(X)) && israt(imag(X)))) return 1;
- return 0;
-}
-
-def isalpha(X)
-{
- return ((X>64&&X<91)||(X>96&&X<123))?1:0;
-}
-
-def isnum(X)
-{
- return (X>47&&X<58)?1:0;
-}
-
-def isalphanum(X)
-{
- return (isalpha(X)||isnum(X))?1:0;
-}
-
-def isdecimal(X)
-{
- if(type(X)!=7) return 0;
- F=S=0;
- L=strtoascii(X);
- while(L!=[]&&car(L)==32) L=cdr(L);
- if(L!=[]&&car(L)==45) L=cdr(L); /* - */
- while(L!=[]&&isnum(car(L))){
- F=1; L=cdr(L);
- }
- while(L!=[]&&car(L)<33){
- S=1;L=cdr(L);
- }
- if(L==[]) return F;
- else if(S||car(L)!=46) return 0; /* . */
- L=cdr(L);F=0;
- while(L!=[]&&isnum(car(L))){
- F=1; L=cdr(L);
- }
- while(L!=[]&&car(L)<33) L=cdr(L);
- return (L==[])?F:0;
-}
-
-def isvar(X)
-{
- return ([X]==vars(X)&&vtype(X)<3)?1:0;
-}
-
-def isyes(F)
-{
- if((CC=getopt(set))==1){
- IsYes=(type(F[0])==4)?F:[F];
- return 1;
- }else if(CC==0) return(IsYes);
- if(type(CC)!=7)
- CC=IsYes;
- for(;CC!=[]; CC=cdr(CC)){
- C=car(CC);
- V=call(C[0],cons(F,C[1]));
- if(type(C[2])!=4){
- if(V!=C[2]) break;
- }else{
- if(C[2][0]!="" && V<C[2][0]) break;
- if(C[2][1]!="" && V>C[2][1]) break;
- }
- }
- return (CC==[])?1:0;
-}
-
-def isall(FN,M)
-{
- if(type(M)<4 || type(M)>6) return ((*FN)(M)==0)?0:1;
- if(type(M)==4){
- for(;M!=[];M=cdr(M))
- if((*FN)(car(M))==0) return 0;
- }else if(type(M)==5){
- K=length(M);
- for(I=0;I<K;I++)
- if((*FN)(M[I])==0) return 0;
- }else if(type(M)==6){
- K=size(M)[0];
- for(I=0;I<K;I++)
- if (isall(FN,M[I])==0) return 0;
- }
- return 1;
-}
-
-def sproot(MP,T)
-{
- if((I=str_chr(T,0,","))>0){
- if(type(MP)==7) M=s2sp(MP);
- else M=chkspt(MP|opt=0);
- if(I==length(M[0])){
- N=s2sp(T);S=SM=SN=K=0;
- for(MM=M,NN=N;MM!=[];MM=cdr(MM),NN=cdr(NN),K++){
- for(MT=car(MM),NT=car(NN);MT!=[];MT=cdr(MT),NT=cdr(NT)){
- S+=car(MT)*car(NT);
- if(K==0){
- SM+=car(MT);SN+=car(NT);
- }
- }
- }
- return S-(length(M)-2)*SM*SN;
- }
- }
- MM=chkspt(MP|opt=7);
- if(T=="base") return MM;
- Keep=(getopt(keep)==1)?1:0;
- Null=getopt(null);
- Only=getopt(only);
- if(type(Only)!=1) Only=7;
- M0=MM[0];
- M1=MM[1];
- M=MM[2];
- if(T=="length") return length(M);
- if(T=="height"){
- for(J=2,S=M1[0][0],M2=M1; M2!=[]; M2=cdr(M2)){
- for(MT=cdr(car(M2)); MT!=[]; J++, MT=cdr(MT)){
- S+= J*car(MT);
- }
- J=1;
- }
- return S;
- }
- for(OD=0, MT=M1[0]; MT!=[]; MT=cdr(MT)) OD+=car(MT);
- if(T=="type"){
- R=newvect(OD+1);
- for(MT=M; MT!=[]; MT=cdr(MT)) R[MT[0][0]]++;
- for(RR=[],I=OD; I>0; I--)
- if(R[I]>0) RR=cons([R[I],I],RR);
- return RR;
- }
- if(T=="part"||T=="pair"||T=="pairs"){
- NP=length(M1);
- LM=newvect(NP);
- R=newvect(length(M));
- for(K=0; K<NP; K++) LM[K]=length(M1[K]);
- for(I=0,TM=M; TM!=[]; I++, TM=cdr(TM)){
- V=newvect(NP);
- for(K=0; K<NP; K++) V[K]=newvect(LM[K]);
- TP=car(TM);
- if(TP[2]==0){
- for(K=0;K<NP;K++) V[K][0]=1;
- for(J=0; J<I; J++){
- VJ=R[J][1];
- for(S=K=0;K<NP;K++) S+=VJ[K][0];
- for(OD=0,K=0;K<LM[0];K++) OD+=VJ[0][K];
- S-=(NP-2)*OD;
- for(K=0;K<NP;K++) VJ[K][0]-=S;
- }
- }else{
- K=TP[1]; P=TP[2];
- V[K][P-1]=-1; V[K][P]=1;
- for(J=0; J<I; J++){
- VJ=R[J][1];
- S=VJ[K][P]; VJ[K][P]=VJ[K][P-1]; VJ[K][P-1]=S;
- }
- }
- R[I]=[TP[0],V];
- }
- if(T=="pair"||T=="pairs"){
- MV=ltov(M1);
- for(K=0; K<NP; K++) MV[K] = ltov(MV[K]);
- for(RR=UU=SS=[],I=0; I<length(M); I++){
- V=newvect(NP); W=newvect(NP); U=newvect(NP);
- for(K=0; K<NP; K++){
- U[K]=newvect(LM[K]); V[K]=newvect(LM[K]); W[K]=newvect(LM[K]);
- }
- S=R[I][0];
- for(K=0; K<NP; K++){
- for(Q=J=0; J<LM[K]; J++){
- V[K][J] = S*(U[K][J] = R[I][1][K][J]);
- Q+=(W[K][J] = MV[K][J] - V[K][J]);
- }
- }
- if(Q>0 && iand(Only,1)==0) continue;
- if(Q==0 && iand(Only,2)==0) continue;
- if(Q<0 && iand(Only,4)==0) continue;
- for(K=0; K<NP; K++){
- V[K] = vtol(V[K]); W[K] = vtol(W[K]); U[K]=vtol(U[K]);
- }
- V=vtol(V); W=vtol(W);U=vtol(U);
- if(Q<0) S=-S;
- RR = cons([V,W], RR); UU = cons(U,UU); SS=cons(S,SS);
- }
- RR = reverse(RR); UU=reverse(UU); SS=reverse(SS);
- if(getopt(dviout)==1 && (Null!=1 || RR!=[])){
- Out=string_to_tb("\\begin{align}\\begin{split}"+s2sp(M1)+"&=");
- for(I=0,R=RR, U=UU; R!=[]; I++, R=cdr(R), U=cdr(U)){
- if(I>0) str_tb("\\\\\n &=",Out);
- if(T=="pairs"){
- if((S=SS[I])<0) S=-S;
- if(S>1) str_tb([my_tex_form(S),"("],Out);
- str_tb(s2sp(car(U)),Out);
- if(S>1) str_tb(")",Out);
- str_tb(" \\oplus ",Out);
- if(SS[I]<0){
-#ifdef USEMODULE
- str_tb(["-(",s2sp(mtransbys(os_md.abs,car(R)[1],[])),")"],Out);
-#else
- str_tb(["-(",s2sp(mtransbys(abs,car(R)[1],[])),")"],Out);
-#endif
- }else
- str_tb(s2sp(car(R)[1]),Out);
- }else
- str_tb([s2sp(car(R)[0])," \\oplus ",s2sp(car(R)[1])],Out);
- }
- str_tb("\n\\end{split}\\end{align}",Out);
- dviout(str_tb(0,Out)|keep=Keep);
- }
- return RR;
- }
- for(I=0; I<length(M); I++){
- for(K=0; K<NP; K++) R[I][1][K] = vtol(R[I][1][K]);
- R[I] = [R[I][0],vtol(R[I][1])];
- }
- R = vtol(R);
- return [M0,M1,R];
- }
-}
-
-def spgen(MO)
-{
- Eq=(getopt(eq)==1)?1:0;
- Sp=getopt(sp);
- if(type(Sp)==7) Sp=s2sp(Sp);
- St=getopt(str);
- LP=getopt(pt);
- F=getopt(std);
- if(F!=1&&F!=-1) F=0;
- if(type(LP)==4){
- L0=LP[0]; L1=LP[1];
- }else{
- L0=0; L1=MO+1;
- }
- if(MO<=0){
- MO=-MO;
- if(iand(MO,1)==1) return [];
- if(MO>1){
- if(isMs()==0) return [];
- Cmd="okubo "+rtostr(-MO);
- MO/=2;
- if(L1>0) Cmd=Cmd+"+"+rtostr(L0)+"-"+rtostr(L1);
- else L1=MO+4;
- Cmd=Cmd+" B";
- Id=getbyshell(Cmd);
- if(Id<0) return [];
- B=[];
- while((S=get_line(Id)) !=0){
- P0=str_chr(S,1,":")+1;
- if(P0>1){
- P1=str_chr(S,P,"\n");
- if(P1<0) P1=str_len(S);
- B=cons(sub_str(S,P0,P1-1),B);
- }
- }
- close_file(Id);
- }else{
- MO/=2;
- if(L1<=1) L1=MO+4;
-BB=[
-["11,11,11,11","111,111,111","1^4,1^4,22","1^6,222,33"],
-["11,11,11,11,11","1^4,1^4,211","211,22,22,22","1^6,2211,33",
-"2211,222,222","22211,2^4,44","2^511,444,66","1^4,22,22,31",
-"2^5,3331,55","1^5,1^5,32","1^8,332,44","111,111,21,21","1^5,221,221"],
-["11,11,11,11,11,11","1^4,1^4,1^4","1^4,22,22,22","111,111,111,21",
-"1^6,21^4,33","21^4,222,222","221^4,2^4,44","2^41^4,444,66",
-"1^5,1^5,311","1^8,3311,44","1^6,222,321","321,33,33,33",
-"3321,333,333","33321,3^4,66","3^721,666,99","2^5,3322,55",
-"1^6,1^6,42","222,33,33,42","1^a,442,55","1^6,33,33,51",
-"222,222,33,51","1^9,333,54","2^7,554,77","1^5,2111,221",
-"2^41,333,441","1^7,2221,43","211,211,22,22","2211,2211,222",
-"22211,22211,44","1^4,211,22,31","2^411,3331,55","1^4,1^4,31,31",
-"22,22,22,31,31","1^7,331,331","2221,2221,331","111,21,21,21,21"],
-["11,11,11,11,11,11,11","111,111,111,111","1^6,1^6,33",
-"1^6,222,222","222,33,33,33","1^5,1^5,221",
-"1^4,211,22,22","1^4,1^4,22,31","22,22,22,22,31",
-"111,111,21,21,21","21^6,2^4,44","2221^6,444,66",
-"1^6,222,3111","3111,33,33,33","33111,333,333",
-"333111,3^4,66","3^5111,666,99","2^5,33211,55",
-"1^8,3221,44","3222,333,333","33222,3^4,66",
-"3^4222,666,99","1^6,1^6,411","222,33,33,411",
-"1^a,4411,55","2^4,2^4,431","431,44,44,44",
-"2^6,4431,66","4431,444,444","44431,4^4,88",
-"4^531,888,cc","1^a,433,55","1^7,1^7,52",
-"1^c,552,66","3^4,444,552","1^8,2^4,53",
-"1^8,44,44,71","3^5,555,771","21^4,2211,222",
-"221^4,22211,44","2221^4,3331,55","1^6,2211,321",
-"2^411,3322,55","1^7,322,331","2211,33,33,42",
-"3^42,4442,77","2211,222,33,51","3^51,5551,88",
-"2^611,554,77","2221,2221,322","2^41,2^41,54",
-"1^5,2111,2111","222111,333,441","1^7,22111,43",
-"1^5,1^5,41,41","1^9,441,441","22111,2221,331",
-"1^5,221,32,41","221,221,221,41","211,211,211,22",
-"2211,2211,2211","1^4,211,211,31","211,22,22,31,31",
-"1^4,22,31,31,31","1^5,32,32,32","221,221,32,32","21,21,21,21,21,21"],
-["11,11,11,11,11,11,11,11","1^4,1^4,22,22","1^8,2^4,44",
-"1^6,2211,222","2211,33,33,33","111,111,111,21,21",
-"1^5,1^5,2111","1^4,211,211,22","1^4,1^4,211,31",
-"211,22,22,22,31","1^4,22,22,31,31","111,21,21,21,21,21",
-"221^8,444,66","2^5,331^4,55","1^8,32111,44",
-"32211,333,333","332211,3^4,66","3^42211,666,99",
-"2^5,32221,55","1^7,1^7,511","1^c,5511,66",
-"3^4,444,5511","541,55,55,55","5541,555,555",
-"55541,5^4,aa","5^541,aaa,ff","1^8,1^8,62",
-"1^a1^4,662,77","1^a,55,55,91","2^71,555,87",
-"21^6,22211,44","221^6,3331,55","1^6,2211,3111",
-"2^411,33211,55","1^7,3211,331","2211,33,33,411",
-"3^42,44411,77","22211,2^4,431","2^511,4431,66",
-"1^8,332,431","3^42,4433,77","1^8,22211,53",
-"2221,2221,3211","221^5,333,441","1^7,21^5,43",
-"1^b,443,65","21^5,2221,331","2^51,3332,65",
-"21^4,21^4,222","221^4,221^4,44","1^6,21^4,321",
-"2221^4,3322,55","21^4,33,33,42","21^4,222,33,51",
-"2^51^4,554,77","2^4,3311,3311","3^411,4442,77",
-"321,321,33,33","3321,3321,333","33321,33321,66",
-"222,321,33,42","1^6,321,33,51","222,222,321,51",
-"1^9,3321,54","1^7,322,322","3^422,5551,88",
-"1^6,33,42,42","1^6,222,42,51","33,33,33,42,51",
-"1^6,1^6,51,51","222,33,33,51,51","1^b,551,551",
-"1^5,221,311,41","2^41,3321,441","22111,2221,322",
-"2^51,443,551","222111,2^41,54","21^4,2211,2211",
-"1^5,311,32,32","3331,3331,442","2211,2211,33,51",
-"221,221,311,32","22111,22111,331","1^5,2111,32,41",
-"2111,221,221,41","2111,221,32,32","211,211,211,211",
-"211,211,22,31,31","1^4,211,31,31,31","22,22,31,31,31,31"],
-["11,11,11,11,11,11,11,11,11","1^5,1^5,1^5","2^5,2^5,55",
-"111,111,111,111,21","2^41,333,333","1^4,1^4,211,22",
-"211,22,22,22,22","1^8,22211,44","1^4,1^4,1^4,31",
-"1^4,22,22,22,31","1^7,1^7,43","1^7,2221,331",
-"2221,2221,2221","1^6,21^4,222","21^4,33,33,33",
-"1^6,1^6,321","222,321,33,33","1^6,33,33,42",
-"222,222,33,42","1^6,222,33,51","222,222,222,51",
-"33,33,33,33,51","1^6,2211,2211","111,111,21,21,21,21",
-"1^5,1^5,32,41","1^5,221,221,41","1^5,221,32,32",
-"221,221,221,32","1^4,211,211,211","211,211,22,22,31",
-"1^4,211,22,31,31","1^4,1^4,31,31,31","22,22,22,31,31,31",
-"21,21,21,21,21,21,21","21^a,444,66","1^8,31^5,44",
-"321^4,333,333","3321^4,3^4,66","3^421^4,666,99",
-"2^5,322111,55","32^41,3^4,66","3332^41,666,99",
-"1^8,1^8,611","2^4,44,44,611","1^d,6611,77",
-"4^5,66611,aa","2^6,444,651","3^4,3^4,651",
-"651,66,66,66","3^6,6651,99","6651,666,666",
-"66651,6^4,cc","6^551,ccc,ii","2^8,655,88",
-"1^9,1^9,72","1^g,772,88","1^c,444,75",
-"2^6,3^4,75","1^c,66,66,b1","3^4,444,66,b1",
-"3^7,777,ba","1^7,2221,4111","2^41,333,4311",
-"1^9,2^41,63","21^8,3331,55","2^411,331^4,55",
-"1^7,31^4,331","2^411,32221,55","22211,2^4,422",
-"2^511,4422,66","1^8,332,422","2^5,3331,541",
-"22211,44,44,62","2^411,2^5,64","2^711,664,88",
-"1^a,3331,64","2221,2221,31^4","21^7,333,441",
-"333,333,441,81","2^6111,555,87","21^6,221^4,44",
-"221^6,3322,55","2^41^6,554,77","1^6,21^4,3111",
-"3111,321,33,33","33111,3321,333","333111,33321,66",
-"222,3111,33,42","1^6,3111,33,51","222,222,3111,51",
-"1^9,33111,54","2221^4,33211,55","1^7,3211,322",
-"3^4211,5551,88","2^4,3221,3311","333221,4442,77",
-"3222,3321,333","33222,33321,66","1^9,3222,54",
-"21^4,33,33,411","3^411,44411,77","222,321,33,411",
-"1^6,33,411,42","1^6,222,411,51","33,33,33,411,51",
-"221^4,2^4,431","2^41^4,4431,66","1^8,3311,431",
-"3^411,4433,77","33321,444,552","1^8,221^4,53",
-"3311,44,44,53","4^42,5553,99","2^4,3311,44,71",
-"3^421,555,771","4^52,7771,bb","3^611,776,aa",
-"2^41,33111,441","22111,2221,3211","2^41,3222,441",
-"2^61,4441,76","3331,3331,4411","22211,22211,431",
-"3331,3331,433","3^41,3^41,76","1^7,1^7,61,61",
-"1^d,661,661","21^5,2221,322","221^5,2^41,54",
-"2^51,33311,65","21^5,22111,331","3^41,4441,661",
-"1^7,331,43,61","2221,2221,43,61","2221,331,331,61",
-"21^4,21^4,2211","21^4,2211,33,51","22211,3311,3311",
-"1^5,311,311,32","2211,321,33,42","2211,222,321,51",
-"3322,3331,442","2211,222,42,42","2^411,442,442",
-"1^6,2211,42,51","2211,33,33,51,51","221,221,311,311",
-"1^5,2111,311,41","222111,3321,441","22111,22111,322",
-"222111,222111,54","2111,221,311,32","2111,2111,221,41",
-"1^5,221,41,41,41","2221,43,43,43","1^5,32,32,41,41",
-"331,331,43,43","221,221,32,41,41","221,32,32,32,41",
-"211,211,211,31,31","211,22,31,31,31,31","1^4,31,31,31,31,31"]];
- B=BB[MO];
- }
- if(St!=1){
- for(R=[]; B!=[]; B=cdr(B)){
- RT=F?s2sp(car(B)|std=F):s2sp(car(B));
- if(length(RT)<L0 || length(RT)>L1) continue;
- R=cons(RT,R);
- }
- return reverse(R);
- }else{
- if(L0<=3 && L1>=MO+4) return B;
- for(R=[]; B!=[]; B=cdr(B)){
- RT=s2sp(T=car(B));
- if(length(RT)<L0 || length(RT)>L1) continue;
- if(F) T=s2sp(s2sp(T|std=K));
- R=cons(T,R);
- }
- return reverse(R);
- }
- }
- MP=(L1<MO+1)?L1:MO+1;
- LL=newvect(MO+1);
- R=newvect(MP+2);
- R0=newvect(MP+2);
- for(I=1; I<=MO; I++) LL[I]=[];
- if(type(Sp)==4){
- if(getopt(basic)==1) Sp=chkspt(Sp[6]);
- R=chkspt(Sp);
- if(R[1]>MO) return 0;
- LL[R[1]]=R;
- K=R[1];
- }
- if(K==1||type(Sp)!=4){
- LL[1]=[[[1]]];
- for(I=2; I<=MO && I<MP;I++){
- for(T=[], J=0; J<I+1; J++)
- T=cons([I-1,1],T);
- LL[I]=cons(T,LL[I]);
- }
- K=2;
- }
- for(OD=K; OD<MO; OD++){
- for(LT=LL[OD]; LT!=[]; LT=cdr(LT)){
- for(II=0,L=car(LT); L!=[]; II++, L=cdr(L)){
- R0[II]=R[II]=car(L);
- }
- for(; ;){
- for(S=-2*OD, I=0; I<II; I++){
- S += OD;
- if(R[I]!=[]) S-=car(R[I]);
- }
- --I;
- for(;S+OD<=MO && I<=MP;S+=OD,I++){
- if(S<=0) continue;
- for(J=0;J<=I;J++){
- if(J>=II){
- if(S<OD) break;
- }else
- if(S+((R[J]==[])?0:car(R[J]))<car(R0[J])) break;
- }
- if(--J>=I){
- V=newvect(I);
- RRR=[];
- for(;J>=0;J--){
- if(J>=II) RR=[OD,S];
- else{
- K=length(R[J]);
- RR=[S+((K==0)?0:car(R[J]))];
- K=length(R0[J])-K;
- for(RT=R0[J]; RT!=[]; K--,RT=cdr(RT)){
- if(K!=0) RR=cons(car(RT),RR);
- }
- }
- RRR=cons(reverse(RR),RRR);
- }
- RRR=qsort(reverse(RRR));
- if(findin(RRR,LL[S+OD])<0)
- LL[S+OD]=cons(RRR,LL[S+OD]);
- }
- }
- for(K=0; K<II; K++){
- if(R[K]!=[]){
- S=car(R[K]);
- while((R[K]=cdr(R[K]))!=[] && car(R[K])==S);
- break;
- }else R[K]=R0[K];
- }
- if(K>=II) break;
- }
- }
- }
- if(L0>0 || L1<MO+1 || St==1 || F){
- for(J=1; J<=MO; J++){
- for(RT=[],R=LL[J];R!=[];R=cdr(R)){
- L=length(T=car(R));
- if(L<L0 || L>L1) continue;
- if(F) T=s2sp(T|std=F);
- RT=cons((St==1)?s2sp(T):T,RT);
- }
- LL[J] = reverse(RT);
- }
- }
- if(Eq==1) return LL[MO];
- return LL;
-}
-
-def spType2(L)
-{
- C=0;R=[];
- for(LT=L;LT!=[];LT=cdr(LT)){
- D=-1;LP=car(LT);
- for(LPT=LP;LPT!=[];LPT=cdr(LPT)){
- if(D==-1) D=car(LPT);
- else D=igcd(D,car(LPT));
- if(D==1){
- C++;break;
- }
- }
- if(C==2) return 0;
- R=cons(D,R);
- }
- if(C==0) return L;
- if(C==1){
- for(K=length(R)-1;R[K]!=1;K--);
- D=-1;
- for(I=length(R)-1;I>=0;I--){
- if(I==K) continue;
- if(D==-1) D=R[I];
- else D=igcd(D,R[I]);
- if(D==1) return 0;
- }
- }
- return L;
-}
-
-
-/* ret [#points, order, idx, Fuchs, reduction order, reduction exponents, fund] */
-def chkspt(M)
-{
- Opt= getopt(opt);
- Mat= getopt(mat);
- if(type(M)==7) M=s2sp(M);
- if(type(Opt) >= 0){
- if(type(Opt) == 7)
- Opt = findin(Opt, ["sp","basic","construct","strip","short","long","sort","root"]);
- if(Opt < 0){
- erno(2);
- return 0;
- }
- return fspt(M,Opt);
- }
- MR = fspt(M,1);
- P = length(M);
- OD = -1;
- XM = newvect(P);
- Fu = 0;
- for( I = SM = SSM = 0; I < P; I++ ){
- LJ = length(M[I]);
- JM = JMV = 0;
- for(J = SM = 0; J < LJ; J++){
- MV = M[I][J];
- if(type(MV) == 4){
- Fu += MV[0]*MV[1];
- MV = MV[0];
- }
- if(MV > JMV){
- JM = J; JMV = MV;
- }
- SM += MV;
- SSM += MV^2;
- }
- if(OD < 0)
- OD = SM;
- else if(OD != SM){
- print("irregal partitions");
- return 0;
- }
- XM[I] = JM;
- }
- SSM -= (P-2)*OD^2;
- for(I = SM = JM = 0; I < P; I++){
- MV = M[I][XM[I]];
- if(type(MV) == 4){
- MV = MV[0]; JM = 1;
- }
- if(I == 0)
- SMM = MV;
- else if(SMM > MV)
- SMM = MV;
- SM += MV;
- }
- SM -= (P-2)*OD;
- if(SM > SMM && SM != 2*OD){
- print("not realizable");
- return -1;
- }
- if(JM==1 && Mat!=1)
- Fu -= OD - SSM/2;
- return [P, OD, SSM, Fu, SM, XM, MR];
-}
-
-def cterm(P)
-{
- V = getopt(var);
- if(type(V) != 4)
- V=vars(P);
- for(; V !=[]; V = cdr(V))
- P = mycoef(P,0,car(V));
- return P;
-}
-
-def terms(P,L)
-{
- Lv=getopt(level);
- if(type(Lv)!=1) Lv=0;
- V=car(L);L=cdr(L);
- for(R=[],D=mydeg(P,V);D>=0; D--){
- if((Q=mycoef(P,D,V))==0) continue;
- if(L!=[]){
- R0=terms(Q,L|level=Lv+1);
- for(;R0!=[];R0=cdr(R0)) R=cons(cons(D,car(R0)),R);
- }else R=cons([D],R);
- }
- if(Lv>0) return R;
- R=qsort(R);
- Rev = getopt(rev); Dic=getopt(dic);
- if(Dic==1 && Rev==1) R=reverse(R);
- for(R0=[];R!=[];R=cdr(R)){
- for(RT=car(R),S=0;RT!=[];RT=cdr(RT)) S+=car(RT);
- R0=cons(cons(S,car(R)),R0);
- }
- if(Dic==1) return R0;
- if(Rev==1){
- for(R=[];R0!=[];R0=cdr(R0)){
- T=car(R0);
- R=cons(cons(-car(T),cdr(T)),R);
- }
- R0=R;
- }
- R0=qsort(R0);
- if(Rev==1){
- for(R=[];R0!=[];R0=cdr(R0)){
- T=car(R0);
- R=cons(cons(-car(T),cdr(T)),R);
- }
- R0=R;
- }
- return (Rev==1)?R0:reverse(R0);
-}
-
-def polcut(P,N,L)
-{
- if(type(L)==2) L=[L];
- M=getopt(top);
- if(type(M)!=1) M=0;
- T=terms(P,L);
- for(S=0;T!=[];T=cdr(T)){
- LT=car(T);
- if(LT[0]<M || LT[0]>N) continue;
- for(PW=1,LT=cdr(LT),V=L,Q=P;LT!=[];LT=cdr(LT),V=cdr(V)){
- Q=mycoef(Q,car(LT),car(V));PW*=car(V)^car(LT);
- }
- S+=Q*PW;
- }
- return S;
-}
-
-def redgrs(M)
-{
- Mat = getopt(mat);
- if(Mat!=1) Mat=0;
- R = chkspt(M|mat=Mat);
- if(type(R) < 4)
- return -1;
- if(R[4] <= 0)
- return 1-R[4];
- if(R[4] == 2*R[1])
- return 0;
- V = newvect(R[0]);
- Type = type(M[0][0]);
- if(Type > 3){
- Mu = Mat-1;
- for(I = 0; I < R[0]; I++)
- Mu += M[I][R[5][I]][1];
- }
- for(I = 0; I < R[0]; I++){
- IR = R[5][I]; L = []; MI = M[I]; MIE=MI[IR];
- for(J = length(MI)-1; J >= 0; J--){
- if(Type <= 3){
- VM = MI[J];
- if(J == IR){
- VM -= R[4];
- if(VM < 0) return -1;
- }
- L = cons(VM, L);
- }else{
- VM = MI[J][0];
- if(J == IR){
- VM -= R[4];
- if(VM < 0)
- return -1;
- if(I == 0)
- EV = 1-Mat-Mu;
- else
- EV = 0;
- }else{
- if(I == 0)
- EV = MI[J][1] - M[0][R[5][0]][1] + 1-Mat; /* + MX - Mu; */
- else
- EV = MI[J][1] - MIE[1] + Mu;
- }
- L = cons([VM,EV], L);
-/*
- if(R[2] >= 2){ */ /* digid */
-/* P = dx^(R[1]);
- } */
- }
- }
- V[I] = L;
- }
- return [R[5], vtol(V)];
-}
-
-def cutgrs(A)
-{
- for(AL=[] ; A!=[]; A=cdr(A)){ /* AT: level 2 */
- for(ALT=[], AT=car(A); AT!=[]; AT=cdr(AT)){
- M = (type(car(AT)) < 4)?car(AT):car(AT)[0];
- if(M > 0)
- ALT = cons(car(AT), ALT); /* ALT: level 2 */
- }
- AL = cons(reverse(ALT), AL); /* AL: level 3 */
- }
- return reverse(AL);
-}
-
-def mcgrs(G, R)
-{
- NP = length(G);
- Mat = (getopt(mat)==1)?0:1;
- for(R = reverse(R) ; R != []; R = cdr(R)){
- GN = [];
- L = length(G)-1;
- RT = car(R);
- if(type(RT) == 4){
- RT = reverse(RT); S = 0;
- for(G = reverse(G); G != []; G = cdr(G), L--){
- AD = car(RT); RT = cdr(RT);
- if(L > 0)
- S += AD;
- else
- AD = -S;
- for(GTN = [], GT = reverse(car(G)); GT != []; GT = cdr(GT))
- GTN = cons([car(GT)[0],car(GT)[1]+AD], GTN);
- GN = cons(GTN, GN);
- }
- G = GN;
- continue;
- }
- VP = newvect(L+1); GV = ltov(G);
- for(I = S = OD = 0; I <= L; I++){
- RTT = (I==0)?(Mat-RT):0;
- VP[I] = -1;
- for(J = M = 0, GT = GV[I]; GT != []; GT = cdr(GT), J++){
- if(I == 0)
- OD += car(GT)[0];
- if(car(GT)[1] == RTT && car(GT)[0] > M){
- S += car(GT)[0]-M;
- VP[I] = J;
- }
- }
- S -= (L-1)*OD;
- for(GN = [] ; L >= 0; L--){
- GT = GV[L];
- RTT = (L==0)?(-RT):RT;
- FTN = (VP[L] >= 0 || S == 0)?[]:[-S,(L==0)?(Mat-RT):0];
- for(J = 0; GT != []; GT = cdr(GT), J++){
- if(J != VP[L]){
- GTN = cons([car(GT)[0],car(GT)[1]+RTT], GTN);
- continue;
- }
- K = car(GT)[0] - S;
- if(K < 0){
- print("Not realizable");
- return;
- }
- GTN = cons([K,(L==0)?(Mat-RT):0], GTN);
- }
- GN = cons(reverse(GTN), GN);
- }
- }
- G = cutgrs(GN);
- }
- return G;
-}
-
-/*
- F=0 : unify
- F=["add",S] :
- F=["sub",S] :
- F=["+",A,B] :
- F=["*",A,B] :
- F=["mul",K];
- F=["get",F,V] :
- F=["put",F,V] :
- F=["get1",F,V] :
- F=["put1",F,V] :
- F=["put1"] :
- F=["val",F];
- F=["swap"];
- */
-def anal2sp(R,F)
-{
- if(type(F)==4&&type(F[0])==4){ /* multiple commands */
- for(;F!=[];F=cdr(F)) R=anal2sp(R,car(F));
- return R;
- }
- if(type(F)==7) F=[F];
- if(F==0){ /* unify */
- R=ltov(R);
- L=length(R);
- for(J=1;J<L;J++){
- for(I=0;I<J;I++){
- if(cdr(R[I])==cdr(R[J])){
- R[I]=cons(R[I][0]+R[J][0],cdr(R[I]));
- R[J]=cons(0,cdr(R[J]));
- break;
- }
- }
- }
- for(G=[],I=L-1;I>=0;I--)
- if(R[I][0]!=0) G=cons(R[I],G);
- if(length(G[0])==2){ /* sort by multiplicity */
- R=ltov(G);
- L=length(R);
- for(I=1;I<L;I++){
- for(J=I;J>0;J--){
- if(R[J-1][0]>R[J][0]) break;
- if(R[J-1][0]==R[J][0]){
- S1=rtostr(R[J-1][1]);S2=rtostr(R[J][1]);
- if((K=str_len(S1)-str_len(S2))<0) break;
- if(!K&&S1<S2) break;
- }
- S=R[J-1];R[J-1]=R[J];R[J]=S;
- }
- }
- G=vtol(R);
- }
- return G;
- }
- if(F[0]=="add") return append(R,F[1]);
- R=reverse(R);
- if(F[0]=="sub"){
- for(S=F[1];S!=[];S=cdr(S))
- R=cons(cons(-car(S)[0],cdr(car(S))),R);
- return reverse(R);
- }
- if(F[0]=="swap"){
- for(G=[];R!=[];R=cdr(R))
- G=cons([car(R)[0],car(R)[2],car(R)[1]],G);
- return G;
- }
- if(F[0]=="+"){
- for(G=[];R!=[];R=cdr(R))
- G=cons([car(R)[0],car(R)[1]+F[1],car(R)[2]+F[2]],G);
- return G;
- }
- if(F[0]=="*"){
- for(G=[];R!=[];R=cdr(R))
- G=cons([car(R)[0],car(R)[1]*F[1]+car(R)[2]*F[2]],G);
- return G;
- }
- if(F[0]=="mult"){
- K=F[1];
- for(G=[];R!=[];R=cdr(R)) G=cons(cons(K*car(R)[0],cdr(car(R))),G);
- return G;
- }
- if(F[0]=="get"){
- for(G=[];R!=[];R=cdr(R))
- if(car(R)[F[1]]==F[2]) G=cons(car(R),G);
- return G;
- }
- if(F[0]=="put"){
- if(F[1]==1){
- for(G=[];R!=[];R=cdr(R)) G=cons([car(R)[0],F[2],car(R)[2]],G);
- }else{
- for(G=[];R!=[];R=cdr(R)) G=cons([car(R)[0],car(R)[1],F[2]],G);
- }
- return G;
- }
- if(F[0]=="get1"){
- if(length(F)==2){
- for(G=[];R!=[];R=cdr(R)) G=cons([R[0][0],car(R)[F[1]]],G);
- return G;
- }
- for(G=[];R!=[];R=cdr(R))
- if(car(R)[F[1]]==F[2]) G=cons([R[0][0],car(R)[3-F[1]]],G);
- return G;
- }
- if(F[0]=="put1"){
- if(length(F)==1)
- for(G=[];R!=[];R=cdr(R)) G=cons([car(R)[0],car(R)[1],car(R)[1]],G);
- else if(F[1]==1)
- for(G=[];R!=[];R=cdr(R)) G=cons([car(R)[0],F[2],car(R)[1]],G);
- else{
- for(G=[];R!=[];R=cdr(R)) G=cons([car(R)[0],car(R)[1],F[2]],G);
- }
- return G;
- }
- if(F[0]=="val"){
- V=(length(F)==1)?1:F[1];
- for(I=J=0;R!=[];R=cdr(R)){
- I+=car(R)[0];
- J+=car(R)[0]*car(R)[V];
- }
- return [I,J];
- }
- return 0;
-}
-
-/*
- G=0 get trivial common spct
- G="..,..," spectre type of 4 singular points
- P=["get"] all spct
- P=["get",L]
- L=n for variable x_n
- L=[m,n] for residue [m,n]
- L=[[m,n],[m',n']] for common spct
- P=["get0",[m,n],[m',n']] for the sum of residues
- P=["swap",[m,n]] for symmetry
- P=["perm",[...]] for symmetry
- P=["deg"]
- P=["homog"]
- P=["sort"]
- P=[[[m,n],c],...] for addition
- P=[c] or [[c],...] for middle convolution wrt 0
- P=[m,c] or [[m,c],...] for general middle convolution
- P=[[a,b,c]] for special additions
- P=[[d,a,b,c]] for middle convotution and additions
- P=["multi",...] multiple commands
- P=0,1,3 : return sim. spectre of 4 singular points
-*/
-def mc2grs(G,P)
-{
- if(G==0){
- G=[];
- for(I=4;I>=0;I--){
- V=lsort([0,1,2,3,4],[I],1);
- for(J=1;J<4;J++){
- for(T=[],K=3;K>0;K--)
- if(K!=J) T=cons(V[K],T);
- G=cons([[[V[0],V[J]],T],[1,0,0]],G);
- }
- }
- G=mc2grs(G,"sort");
- }else if(type(G)==7||(type(G)==4&&length(G)==4)){
- if(type(G)==7) G=s2sp(G);
- F=(getopt(top)==0)?1:0;
- K=[];
- if(type(P)==1&&iand(P,1)&&type(G[0][0])<4){
- G=s2sp(G|std=1);
- if(F) G=[G[1],G[2],G[3],G[0]];
- G=sp2grs(G,[d,c,b,a],[1,length(G[0]),-1]|mat=1);
- G=reverse(G);
- if(iand(P,3)==3){
- V=vars(G);
- for(H=L=[a,b,c,d];H!=[];H=cdr(H))
- if(findin(car(H),V)>=0) G=subst(G,car(H),makev([car(H),1]));
- G=shortv(G,[a,b,c,d]);
- V=vars(G);
- for(H=G[3];H!=[];H=cdr(H)){
- T=car(H)[1];
- if(type(T)>1&&!isvar(T)){
- K=[car(H)[0],T];
- break;
- }
- }
- }
- F=1;
- }
- if(F) G=[G[3],G[0],G[1],G[2]];
- S=cons(["anal",1],getopt());
- if(!(R=m2mc(G,0|option_list=S))) return R;
- for(G=0,R=cdr(R);R!=[];R=cdr(R)){
- TR=car(R)[0];
- if(TR[0]) G=mc2grs(G,[[TR[0]]]);
- G=mc2grs(G,[cdr(TR)]);
- }
- if(type(P)==1&&K!=[]){
- for(T=10;T<36;T++){
- if(findin(X=makev([T]),V)>=0) continue;
- F=K[0]*(X-K[1]);
- return [F,simplify(G,[F],4)];
- }
- }
- }
- if(type(P)<2) return G;
- F=0;
- if(type(P)==7||(type(P)==4&&type(P[0])<4)) P=[P];
- if((Dvi=getopt(dviout))!=1&&Dvi!=2&&Dvi!=-1) Dvi=0;
- Keep=(Dvi==2)?1:0;
- if(type(P)==4&&type(F=car(P))==7){
- if(F=="mult"){
- for(P=cdr(P);P!=[];P=cdr(P)) G=mc2grs(G,car(P)|option_list=getopt());
- return G;
- }
- if(F=="show"){
- for(R=str_tb(0,0);G!=[];){
- L=car(G);
- I=L[0][0];J=L[0][1];
- str_tb("[A_{"+rtostr(I[0])+rtostr(I[1])+"}:A_{"+rtostr(J[0])+rtostr(J[1])
- +"}]&=\\left\\{",R);
- for(L=cdr(L);;){
- S=car(L);
- str_tb("["+my_tex_form(S[1])+":"+my_tex_form(S[2])+"]",R);
- if(S[0]!=1) str_tb("_{"+rtostr(S[0])+"}",R);
- if((L=cdr(L))==[]) break;
- str_tb(",\\,",R);
- }
- str_tb("\\right\\}",R);
- if((G=cdr(G))==[]) break;
- str_tb(",\\\\\n",R);
- }
- R=texbegin("align*",str_tb(0,R));
- if(Dvi!=-1) dviout(R|keep=Keep);
- return R;
- }
- if(F=="show0"){
- for(S="",L=[];G!=[];G=cdr(G)){
- for(TL=[],TG=cdr(car(G));TG!=[];TG=cdr(TG)) TL=cons(car(TG)[0],TL);
- TL=msort(TL,[-1,0]);
- if(Dvi){
- if(S!="") S=S+",";
- for(I=J=0,T=append(TL,[[0]]);T!=[];T=cdr(T)){
- if(car(T)==I) J++;
- else{
- if(I>0&&J>0){
- if(I>9) S=S+"("+rtostr(I)+")";
- else S=S+rtostr(I);
- if(J>1){
- if(J>9) S=S+"^{"+rtostr(J)+"}";
- else S=S+"^"+rtostr(J);
- }
- }
- I=car(T);J=1;
- }
- }
- }
- L=cons(TL,L);
- }
- if(Dvi){
- if(Dvi!=-1) dviout(S|eq=0);
- return S;
- }
- return reverse(L);
- }
- if(F=="sort"){
- G=ltov(G);L=length(G);
- for(I=0;I<L;I++){
- S=G[I][0];
- if(S[0][0]>S[0][1]) S=[[S[0][1],S[0][0]],S[1]];
- if(S[1][0]>S[1][1]) S=[S[0],[S[1][1],S[1][0]]];
- if(S[0]>S[1]){
- F=0;S=[S[1],S[0]];
- }
- if(S!=G[I][0]){
- if(F==0) G[I]=cons(S,anal2sp(cdr(G[I]),"swap"));
- else G[I]=cons(S,cdr(G[I]));
- }
- for(J=I;J>0;J--){
- if(G[J-1][0]<G[J][0]) break;
- S=G[J-1];G[J-1]=G[J];G[J]=S;
- }
- }
- return vtol(G);
- }
- if(F=="get"||F=="get0"){
- if(Dvi!=0) F="get";
- if(length(P)==1||type(P[1])<2){
- L=[];
- if(length(P)==1){
- for(I=3;I>=0;I--){
- for(J=4;J>I;J--) L=cons(mc2grs(G,[F,[I,J]]),L);
- }
- }else{
- for(I=P[1],J=4;J>=0;J--){
- if(I==J) continue;
- L=cons(mc2grs(G,[F,(I<J)?[I,J]:[J,I]]),L);
- }
- }
- if(Dvi){
- if(length(L)==10){
- R=ltov(L);
- if(R[6][0]==[1,4]){
- S=R[6];R[6]=R[7];R[7]=S;
- L=vtol(R);
- }
- }
- for(R=S=[],L=reverse(L);L!=[];L=cdr(L)){
- T=car(L);
- R=cons(cdr(T),R);
- if(S==[]) S="A_{"+rtostr(T[0][0])+rtostr(T[0][1])+"}\\\\\n";
- else S="A_{"+rtostr(T[0][0])+rtostr(T[0][1])+"}&"+S;
- }
- L=ltotex(R|opt="GRS",pre=S);
- if(Dvi>0) dviout(L|eq=0,keep=Keep);
- }
- return L; /* get all spct */
- }
- if(type(T=P[1])==4){
- if(F=="get0"&&length(P)==3&&type(I=P[1])==4&&type(J=P[2])==4){
- if(I[0]>I[1]) I=[I[1],I[0]];
- if(J[0]>J[1]) J=[J[1],J[0]];
- if(I[0]>I[0]){S=I;I=J;J=S;};
- K=lsort(I,J,0);
- if(length(K)==4){
- S=sp2grs(G,["get0",[I,J]]);
- return anal2sp(S,[["*",1,1],0]);
- }
- I=lsort(K,lsort(I,J,2),1);
- S=lsort([0,1,2,3,4],K,1);
- D=sp2grs(G,"deg");
- if(findin(4,S)<0) D=-D;
- J=sp2grs(G,["get0",[I,S]]);
- if(I[0]>S[0]) J=sp2grs(J,"swap");
- return anal2sp(J,[["+",0,D],["*",-1,1]]);
- }
- if(type(car(T))==4){
- if(T[0][0]>T[0][1]) T=[[T[0][1],T[0][0]],T[1]];
- if(T[1][0]>T[1][1]) T=[T[0],[T[1][1],T[1][0]]];
- if(T[0][0]>T[1][0]) T=[T[1],T[0]];
- for(PG=G;PG!=[];PG=cdr(PG))
- if(car(PG)[0]==T) return (F=="get")?car(PG):cdr(car(PG));
- return []; /* get common spct */
- }
- if(T[0]>T[1]) T=[T[1],T[0]];
- for(FT=0,PG=G;PG!=[];PG=cdr(PG)){
- if(car(PG)[0][0]==T){
- FT=1;break;
- }
- if(car(PG)[0][1]==T){
- FT=2;break;
- }
- }
- if(!FT) return [];
- L=anal2sp(cdr(car(PG)),[["get1",FT],0]);
- return (F=="get")?cons(T,L):L;
- }
- }
- if(F=="deg"){
- for(S=I=0;I<3;I++){
- for(J=I+1;J<4;J++){
- L=mc2grs(G,["get0",[I,J]]);
- L=anal2sp(L,"val");
- S+=L[1];
- }
- }
- return S/L[0];
- }
- if(F=="spct"){
- G=mc2grs(G,"get");
- M=newmat(5,5);
- for(;G!=[];G=cdr(G)){
- GT=car(G);I=GT[0][0];J=GT[0][1];
- for(S=0,L=[],GT=cdr(GT);GT!=[];GT=cdr(GT)){
- L=cons(car(GT)[0],L);
- }
- L=reverse(qsort(L));
- M[I][J]=M[J][I]=L;
- }
- for(D=0,GT=M[0][1];GT!=[];GT=cdr(GT)) D+=car(GT);
- for(I=0;I<5;I++){
- S=-2*D^2;
- for(J=0;J<5;J++){
- if(I==J) continue;
- for(L=M[I][J];L!=[];L=cdr(L)) S+=car(L)^2;
- }
- M[I][I]=S;
- }
- if(Dvi){
- S=[];
- for(I=4;I>=0;I--){
- L=[M[I][I]];
- for(J=4;J>=0;J--){
- if(I==J) L=cons("",L);
- else L=cons(s2sp([M[I][J]]),L);
- }
- S=cons(L,S);
- }
- S=cons([x0,x1,x2,x3,x4,"idx"],S);
- M=ltotex(S|opt="tab",hline=[0,1,z],vline=[0,1,z-1,z],left=["","$x_0$","$x_1$","$x_2$","$x_3$","$x_4$"]);
- if(Dvi>0) dviout(M|keep=Keep);
- }
- return M;
- }
- if(F=="swap"||F=="perm"){
- if(F=="perm") TR=P[1];
- else{
- TR=newvect(5,[0,1,2,3,4]);
- K=P[1][0];L=P[1][1];
- TR[K]=L;TR[L]=K;
- if(TR[4]!=4) G=mc2grs(G,"deg");
- }
- V=newvect(2);
- for(L=[],T=G;T!=[];T=cdr(T)){
- TP=car(T)[0];
- for(TQ=[],I=1;I>=0;I--){
- V=[TR[TP[I][0]],TR[TP[I][1]]];
- if(V[0]>V[1]) V=[V[1],V[0]];
- TQ=cons(V,TQ);
- }
- if(TQ[0][0]<TQ[1][0]){
- L=cons(cons(TQ,cdr(car(T))),L);
- continue;
- }
- TQ=[[TQ[1],TQ[0]]];
- for(TP=cdr(car(T));TP!=[];TP=cdr(TP))
- TQ=cons([car(TP)[0],car(TP)[2],car(TP)[1]],TQ);
- L=cons(reverse(TQ),L);
- }
- return mc2grs(L,"sort");
- }
- if(F=="homog"){
- V=mc2grs(G,"deg");
- return mc2grs(G,[[[2,3],-V]]);
- }else if(F=="deg"){
- R=mc2grs(G,4);
- for(V=0;R!=[];R++){
- for(TR=cdr(R);TR!=[];TR=cdr(TR))
- V+=car(TR)[0]*car(TR)[1];
- }
- return -V;
- }
- }
- if(type(F)!=4) return 0;
- if(type(P[0])!=4) P=[P];
- for(;P!=[];P=cdr(P)){
- if(type((S=P[0])[0])==4){ /* addition */
- T=P[0][0];
- if(T[0]>T[1]) T=[T[1],T[0]];
- T1=[T[0],4];T2=[T[1],4];
- for(L=[],PG=reverse(G);PG!=[];PG=cdr(PG)){
- R=car(PG);R0=R[0];F=0;K=P[0][1];
- if(R0[0]==T) F=1;
- else if(R0[1]==T) F=2;
- else if(getopt(unique)!=1){
- K=-K;
- if(R0[0]==T1||R0[0]==T2) F=1;
- else if(R0[1]==T1||R0[1]==T2) F=2;
- }
- if(F==0) L=cons(R,L);
- else{
- R1=anal2sp(cdr(R),(F==1)?["+",K,0]:["+",0,K]);
- L=cons(cons(R0,R1),L);
- }
- }
- G=L;
- }else if(type(S[0])<4){
- if(length(S)==1){ /* mc wrt0 4:cases */
- U=mc2grs(G,"deg");
- C=P[0][0];
- L=[];
- /* [[0,1],[2,3]] : [K=[0,k],J=[i,j]], S=[k,4] : 3 cases */
- for(K=1;K<4;K++){
- J=lsort([1,2,3],[K],1);
- K4=[K,4];K0=[0,K];
- G0=mc2grs(G,["get0",[K0,J]]);
- LT=anal2sp(G0,["+",C,0]);
- G0=mc2grs(G,["get0",J]);
- L0=anal2sp(G0,["put1",1,0]);
- LT=anal2sp(LT,["add",L0]);
- G0=mc2grs(G,["get0",K4]);
- L0=anal2sp(G0,[["put1",1,0],["+",0,U]]);
- LT=anal2sp(LT,["add",L0]);
- G0=mc2grs(G,["get0",[[0,J[0]],K4]]);
- L0=anal2sp(G0,[["get",1,0],["+",0,U]]);
- LT=anal2sp(LT,["sub",L0]);
- G0=mc2grs(G,["get0",[[0,J[1]],K4]]);
- L0=anal2sp(G0,[["get",1,0],["+",0,U]]);
- LT=anal2sp(LT,["sub",L0]);
- G0=mc2grs(G,["get0",[K0,J]]);
- L0=anal2sp(G0,[["get",1,0],["+",C,0]]);
- LT=anal2sp(LT,["sub",L0]);
- G0=mc2grs(G,["get0",[[0,4],J]]);
- L0=anal2sp(G0,[["+",-C,0],["get",1,0]]);
- LT=anal2sp(LT,[["sub",L0],0]);
- L=cons(cons([K0,J],LT),L);
- }
- /* [[0,1],[2,4]] : [K,I]=[[0,k],[i,4]] S=[j,k] : 6 cases */
- for(K=1;K<4;K++){
- for(I=1;I<4;I++){
- if(I==K) continue;
- for(J=1;J<4;J++) if(J!=I&&J!=K) break;
- I4=[I,4];S=(J<K)?[J,K]:[K,J];K0=[0,K];
- G0=cdr(mc2grs(G,["get",[K0,I4]]));
- LT=anal2sp(G0,["+",C,0]);
- G0=cdr(mc2grs(G,["get",I4]));
- L0=anal2sp(G0,["put1",1,0]);
- LT=anal2sp(LT,["add",L0]);
- G0=cdr(mc2grs(G,["get",S]));
- L0=anal2sp(G0,[["put1",1,0],["+",0,-C-U]]);
- LT=anal2sp(LT,["add",L0]);
-
- G0=cdr(mc2grs(G,["get",[[0,I],S]]));
- L0=anal2sp(G0,[["get",1,0],["+",0,-C-U]]);
- LT=anal2sp(LT,["sub",L0]);
- G0=cdr(mc2grs(G,["get",[[0,J],I4]]));
- L0=anal2sp(G0,["get",1,0]);
- LT=anal2sp(LT,["sub",L0]);
- G0=cdr(mc2grs(G,["get",[K0,I4]]));
- L0=anal2sp(G0,[["get",1,0],["+",C,0]]);
- LT=anal2sp(LT,["sub",L0]);
- G0=cdr(mc2grs(G,["get",[[0,4],S]]));
- L0=anal2sp(G0,[["get",1,C],["+",-C,-C-U]]);
- LT=anal2sp(LT,[["sub",L0],0]);
- L=cons(cons([K0,I4],LT),L);
- }
- }
- /* [[0,4],[2,3]] : [[0,4],J]=[[0,4],[i,j]] 3 cases */
- for(K=3;K>0;K--){
- J=lsort([1,2,3],[K],1);
- G0=mc2grs(G,["get0",[[0,4],J]]);
- LT=anal2sp(G0,["+",-C,0]);
- G0=mc2grs(G,["get0",J]);
- L0=anal2sp(G0,["put1",1,-C]);
- LT=anal2sp(LT,["add",L0]);
- G0=mc2grs(G,["get0",[K,4]]);
- L0=anal2sp(G0,[["put1",1,-C],["+",0,U]]);
- LT=anal2sp(LT,["add",L0]);
-
- G0=mc2grs(G,["get0",[[0,J[0]],[K,4]]]);
- L0=anal2sp(G0,[["get",1,0],["+",-C,U]]);
- LT=anal2sp(LT,["sub",L0]);
- G0=mc2grs(G,["get0",[[0,J[1]],[K,4]]]);
- L0=anal2sp(G0,[["get",1,0],["+",-C,U]]);
- LT=anal2sp(LT,["sub",L0]);
- G0=mc2grs(G,["get0",[[0,K],J]]);
- L0=anal2sp(G0,[["get",1,0],["+",-C,0]]);
- LT=anal2sp(LT,["sub",L0]);
- G0=mc2grs(G,["get0",[[0,4],J]]);
- L0=anal2sp(G0,[["get",1,C],["put",1,0]]);
- LT=anal2sp(LT,[["sub",L0],0]);
- L=cons(cons([[0,4],J],LT),L);
- }
- /* [[1,2],[3,4]] : [J,K]=[[i,j],[k,4]] 3 cases */
- for(K=3;K>0;K--){
- J=lsort([1,2,3],[K],1);
- if(K>1)
- LT=mc2grs(G,["get0",[J,[K,4]]]);
- else{
- LT=mc2grs(G,["get0",[[K,4],J]]);
- LT=anal2sp(LT,"swap");
- }
- G0=mc2grs(G,["get0",J]);
- L0=anal2sp(G0,[["put1"],["+",0,-C-U]]);
- LT=anal2sp(LT,["add",L0]);
- G0=mc2grs(G,["get0",[K,4]]);
- L0=anal2sp(G0,[["put1"],["+",U,0]]);
- LT=anal2sp(LT,["add",L0]);
-
- G0=mc2grs(G,["get0",[[0,J[0]],[K,4]]]);
- L0=anal2sp(G0,[["get1",1,0],["put1"],["+",U,0]]);
- LT=anal2sp(LT,["sub",L0]);
- G0=mc2grs(G,["get0",[[0,J[1]],[K,4]]]);
- L0=anal2sp(G0,[["get1",1,0],["put1"],["+",U,0]]);
- LT=anal2sp(LT,["sub",L0]);
- G0=mc2grs(G,["get0",[[0,K],J]]);
- L0=anal2sp(G0,[["get1",1,0],["put1"],["+",0,-C-U]]);
- LT=anal2sp(LT,["sub",L0]);
- G0=mc2grs(G,["get0",[[0,4],J]]);
- L0=anal2sp(G0,[["get1",1,C],["put1"],["+",0,-C-U]]);
- LT=anal2sp(LT,[["sub",L0],0]);
- if(K==1){
- LT=anal2sp(LT,"swap");
- L=cons(cons([[K,4],J],LT),L);
- }else L=cons(cons([J,[K,4]],LT),L);
- }
- G=L;
- }else if(length(S)==2){ /* general mc */
- if(S[1]!=0){
- I=S[0];
- if(I!=0) G=mc2grs(G,["swap",[0,I]]);
- G=mc2grs(G,[S[1]]);
- if(I!=0) G=mc2grs(G,["swap",[0,I]]);
- }
- }else if(length(S)==3||length(S)==4){ /* addition */
- for(I=1;I<4;I++,S=cdr(S))
- if(S[0]) G=mc2grs(G,[[[0,I],S[0]]]);
- if(length(S)==1 && S[0]) /* mc */
- G=mc2grs(G,[S[0]]);
- }
- }
- }
- return mc2grs(G,"sort");
-}
-
-def mcmgrs(G,P)
-{
- if(type(G)<2){
- if(G>1){
- N=G+2;G=[];
- for(I=1;I<=N;I++){
- for(J=1;J<N;J++){
- if(I==J) continue;
- for(K=J+1;K<=N;K++){
- if(I==K) continue;
- G=cons([[[0,I],[J,K]],[1,0,0]],G);
- }
- }
- }
- for(I=1;I<=N;I++){
- for(J=1;J<I;J++) G=cons([[[0,I],[0,J,I]],[1,0,0]],G);
- for(J=I+1;J<=N;J++) G=cons([[[0,I],[0,I,J]],[1,0,0]],G);
- }
- return reverse(G);
- }
- return 0;
- }
- if(type(G)==7) G=os_md.s2sp(G);
- if(type(G)!=4||type(G[0])!=4) return 0;
- if(type(G[0][0])!=4){ /* spectre type -> GRS */
- G=s2sp(G|std=1);
- L=length(G);
- for(V=[],I=L-2;I>=0;I--) V=cons(makev([I+10]),V);
- V=cons(makev([L+9]),V);
- G=sp2grs(G,V,[1,length(G[0]),-1]|mat=1);
- if(getopt(short)!=0){
- V=append(cdr(V),[V[0]]);
- G=shortv(G,V);
- }
- R=chkspt(G|mat=1);
- if(R[2] != 2 || R[3] != 0 || !(R=getbygrs(G,1|mat=1))) return 0;
- if(getopt(anal)==1) return R; /* called by mcmgrs() */
- if(!(G=mcmgrs(L-2,0))) return 0;
- for(R=cdr(R);R!=[];R=cdr(R)){
- TR=car(R)[0];
- if(TR[0]) G=mcmgrs(G,[[TR[0]]]);
- G=mcmgrs(G,[cdr(TR)]);
- }
- }
- L=length(G);
- for(N=4;N<25;N++){
- K=N^2*(N-1)/2;
- if(K>L) return 0;
- if(K==L) break;
- }
- if(type(P)<2) return G;
- F=0;
- if(type(P)==7||(type(P)==4&&type(P[0])<4)) P=[P];
- if((Dvi=getopt(dviout))!=1&&Dvi!=2&&Dvi!=-1) Dvi=0;
- Keep=(Dvi==2)?1:0;
- if(type(P)==4 && type(F=car(P))==7){
- if(F=="mult"){
- for(P=cdr(P);P!=[];P=cdr(P)) G=os_md.mc2grs(G,car(P)|option_list=getopt());
- return G;
- }
- if(F=="get"||F=="get0"){
- if(Dvi!=0) F="get";
- if(length(P)==2){
- if(type(P[1])==4){
- if(type(P[1][1])==4){ /* [[,],[,]] */
- for(PG=reverse(G);PG!=[];PG=cdr(PG)){
- TP=car(PG);
- if(TP[0]==P[1]) return (F=="get")?TP:cdr(TP);
- }
- return [];
- }
- if(P[1][0]==0){
- if(length(P[1])==2){ /* [0,] */
- for(J=1;J<=N;J++) if(J!=P[1][1]) break;
- for(K=J+1;K<=N;K++) if(K!=P[1][1]) break;
- L=mcmgrs(G,["get0",[P[1],[J,K]]]);
- L=anal2sp(L,["get1",1]);
- }else{ /* [0,*,*] */
- L=mcmgrs(G,["get0",[[P[1][0],P[1][1]],P[1]]]);
- L=anal2sp(L,["get1",2]);
- }
- }else{ /* [,] */
- for(J=1;J<=N;J++) if(J!=P[1][0]&&J!=P[1][1]) break;
- L=mcmgrs(G,["get0",[[0,J],P[1]]]);
- L=anal2sp(L,["get1",2]);
- }
- L=anal2sp(L,0);
- if(F=="get") L=cons(P[1],L);
- return L;
- }else{ /* I */
- for(L=[],I=P[1],J=0;J<=N;J++){
- if(I==J) continue;
- II=(I<J)?[I,J]:[J,I];
- L=cons(mcmgrs(G,[F,II]),L);
- }
- }
- }else{
- for(L=[],I=0;I<N;I++){
- for(J=I+1;J<=N;J++) L=cons(mcmgrs(G,[F,[I,J]]),L);
- }
- }
- if(Dvi){
- for(R=S=[];L!=[];L=cdr(L)){
- T=car(L);
- R=cons(cdr(T),R);
- if(S==[]) S="A_{"+rtostr(T[0][0])+rtostr(T[0][1])+"}\\\\\n";
- else S="A_{"+rtostr(T[0][0])+rtostr(T[0][1])+"}&"+S;
- }
- L=ltotex(R|opt="GRS",pre=S);
- if(type(V=getopt(div))!=4) V=[];
- if(V==[]&&(K=length(R))>10)
- for(I=9;I<K;I+=9) V=cons(I,V);
- V=reverse(V);
- if(V!=[]) L=divmattex(L,V);
- if(Dvi>0){
- if(V!=[]) dviout(L|keep=Keep);
- else dviout(L|eq=0,keep=Keep);
- }
- }else L=reverse(L);
- return L;
- }
- if(F=="show"){
- for(R=str_tb(0,0);G!=[];){
- L=car(G);
- I=L[0][0];J=L[0][1];
- str_tb("[A_{"+rtostr(I[0])+rtostr(I[1])+"}:A_{"+rtostr(J[0])+rtostr(J[1]),R);
- if(length(J)==3) str_tb(rtostr(J[2]),R);
- str_tb("}]&=\\left\\{",R);
- for(L=cdr(L);;){
- S=car(L);
- str_tb("["+my_tex_form(S[1])+":"+my_tex_form(S[2])+"]",R);
- if(S[0]!=1) str_tb("_{"+rtostr(S[0])+"}",R);
- if((L=cdr(L))==[]) break;
- str_tb(",\\,",R);
- }
- str_tb("\\right\\}",R);
- if((G=cdr(G))==[]) break;
- str_tb(texcr(43),R);
- }
- R=texbegin("align*",str_tb(0,R));
- if(Dvi!=-1) dviout(R|keep=Keep);
- return R;
- }
- if(F=="show0"){
- for(C=N*(N-1)*(N-2)/2,S="",L=[];G!=[];G=cdr(G)){
- for(TL=[],TG=cdr(car(G));TG!=[];TG=cdr(TG)) TL=cons(car(TG)[0],TL);
- TL=msort(TL,[-1,0]);
- if(Dvi){
- if(S!=""){
- if(--C==0) S=S+";";
- else S=S+",";
- }
- for(I=J=0,T=append(TL,[[0]]);T!=[];T=cdr(T)){
- if(car(T)==I) J++;
- else{
- if(I>0&&J>0){
- if(I>9) S=S+"("+rtostr(I)+")";
- else S=S+rtostr(I);
- if(J>1){
- if(J>9) S=S+"^{"+rtostr(J)+"}";
- else S=S+"^"+rtostr(J);
- }
- }
- I=car(T);J=1;
- }
- }
- }
- L=cons(TL,L);
- }
- if(Dvi){
- if(Dvi!=-1) dviout(S|eq=0);
- return S;
- }
- return reverse(L);
- }
- if(F=="spct"){
- G=mcmgrs(G,"get");
- M=newmat(N+1,N+1);
- for(;G!=[];G=cdr(G)){
- GT=car(G);I=GT[0][0];J=GT[0][1];
- for(S=0,L=[],GT=cdr(GT);GT!=[];GT=cdr(GT)){
- L=cons(car(GT)[0],L);
- }
- L=reverse(qsort(L));
- M[I][J]=M[J][I]=L;
- }
- for(D=0,GT=M[0][1];GT!=[];GT=cdr(GT)) D+=car(GT);
- for(I=0;I<=N;I++){
- S=-(N-2)*D^2;
- for(J=0;J<=N;J++){
- if(I==J) continue;
- for(L=M[I][J];L!=[];L=cdr(L)) S+=car(L)^2;
- }
- M[I][I]=S;
- }
- if(Dvi){
- S=[];
- for(LS=[],I=N;I>=0;I--){
- L=[M[I][I]];
- for(J=N;J>=0;J--){
- if(I==J) L=cons("",L);
- else L=cons(s2sp([M[I][J]]),L);
- }
- S=cons(L,S);
- LS=cons("$x_"+rtostr(I)+"$",LS);
- }
- S=cons(append(LS,["idx"]),S);
- M=ltotex(S|opt="tab",hline=[0,1,z],vline=[0,1,z-1,z],left=cons("",LS));
- if(Dvi>0) dviout(M|keep=Keep);
- }
- return M;
- }
- if(F=="deg"){
- for(S=I=0;I<N-1;I++){
- for(J=I+1;J<N;J++){
- L=mcmgrs(G,["get0",[I,J]]);
- L=anal2sp(L,"val");
- S+=L[1];
- }
- }
- return S/L[0];
- }
- }
- L=[];
- if(type(F)!=4) return 0;
- if(type(P[0])!=4||length(P[0])==2) P=[P];
- for(;P!=[];P=cdr(P)){
- if(type(T=(S=car(P))[0])==4){ /* addition */
- if((K=P[0][1])!=0){
- if(T[0]>T[1]) T=[T[1],T[0]];
- T1=[T[0],N];T2=[T[1],N];
- T01=cons(0,T1);T02=cons(0,T2);
- for(PG=G;PG!=[];PG=cdr(PG)){
- R=car(PG);R0=R[0];K1=K2=0;
- TP=R0[0];
- if(TP==T) K1=K;
- else if(TP==T1||TP==T2) K1=-K;
- if(length(TP=R0[1])==2){
- if(TP==T) K2=K;
- else if(TP==T1||TP==T2) K2=-K;
- }else{
- S=0;
- if(findin(T[0],TP)>=0) S++;
- if(findin(T[1],TP)>=0) S++;
- if(S>0&&TP[2]==N) K2=-K;
- else if(S==2) K2=K;
- }
- R1=anal2sp(cdr(R),["+",K1,K2]);
- L=cons(cons(R0,R1),L);
- }
- G=reverse(L);
- }
- }else if(length(S)==1){ /* middle convolution */
- C=S[0];L=[];
- for(I=1;I<=N;I++){
- for(J=1;J<=N;J++){
- if(I==J) continue;
- for(K=J+1;K<=N;K++){ /* [[0,I],[J,K]] */
- if(I==K)continue;
- T=[[0,I],JK=[J,K]];
- if(I==N){
- LT=mcmgrs(G,["get0",T]);
- G0=mcmgrs(G,["get0",JK]);
- L0=anal2sp(G0,[["put1",1,0],["mult",N-3]]);
- G0=mcmgrs(G,["get0",[0,J,K]]);
- LT=anal2sp(LT,["add",L0]);
- L0=anal2sp(G0,["put1",1,0]);
- LT=anal2sp(LT,["add",L0]);
- for(V=1;V<=N;V++){
- if(V==I){
- G0=mcmgrs(G,["get0",T]);
- L0=anal2sp(G0,["get",1,C]);
- }else if(V==J||V==K){
- G0=mcmgrs(G,["get0",[[0,V],[0,J,K]]]);
- L0=anal2sp(G0,["get",1,0]);
- }else{
- G0=mcmgrs(G,["get0",[[0,V],JK]]);
- L0=anal2sp(G0,["get",1,0]);
- }
- LT=anal2sp(LT,["sub",L0]);
- }
- LT=anal2sp(LT,["+",-C,0]);
- }else if(K==N){
- LT=mcmgrs(G,["get0",T]);
- LT=anal2sp(LT,["+",C,0]);
- G0=mcmgrs(G,["get0",JK]);
- L0=anal2sp(G0,[["put1",1,0],["mult",N-3]]);
- LT=anal2sp(LT,["add",L0]);
- G0=mcmgrs(G,["get0",[0,J,K]]);
- L0=anal2sp(G0,[["put1",1,0],["+",0,-C]]);
- LT=anal2sp(LT,["add",L0]);
- for(V=1;V<=N;V++){
- if(V==I){
- G0=mcmgrs(G,["get0",T]);
- L0=anal2sp(G0,[["get",1,0],["+",C,0]]);
- }else if(V==J){
- G0=mcmgrs(G,["get0",[[0,V],[0,J,K]]]);
- L0=anal2sp(G0,[["get",1,0],["+",0,-C]]);
- }else if(V==N){
- G0=mcmgrs(G,["get0",[[0,V],[0,J,K]]]);
- L0=anal2sp(G0,[["get",1,C],["+",-C,-C]]);
- }else{
- G0=mcmgrs(G,["get0",[[0,V],JK]]);
- L0=anal2sp(G0,["get",1,0]);
- }
- LT=anal2sp(LT,["sub",L0]);
- }
- }else{
- G0=mcmgrs(G,["get0",T]);
- LT=anal2sp(G0,["+",C,0]);
- G0=mcmgrs(G,["get0",JK]);
- L0=anal2sp(G0,[["put1",1,0],["mult",N-3]]);
- LT=anal2sp(LT,["add",L0]);
- G0=mcmgrs(G,["get0",[0,J,K]]);
- L0=anal2sp(G0,["put1",1,0]);
- LT=anal2sp(LT,["add",L0]);
- for(V=1;V<=N;V++){
- if(V==I){
- G0=mcmgrs(G,["get0",T]);
- L0=anal2sp(G0,[["get",1,0],["+",C,0]]);
- }else if(V==J||V==K){
- G0=mcmgrs(G,["get0",[[0,V],[0,J,K]]]);
- L0=anal2sp(G0,["get",1,0]);
- }else if(V==N){
- G0=mcmgrs(G,["get0",[[0,V],JK]]);
- L0=anal2sp(G0,[["get",1,C],["+",-C,0]]);
- }else{
- G0=mcmgrs(G,["get0",[[0,V],JK]]);
- L0=anal2sp(G0,["get",1,0]);
- }
- LT=anal2sp(LT,["sub",L0]);
- }
- }
- LT=anal2sp(LT,0);
- L=cons(cons(T,LT),L);
- }
- T=[[0,I],(I<J)?[0,I,J]:[0,J,I]]; /* [0,I], [0,I,J] */
- JK=(I<J)?[I,J]:[J,I];
- if(I==N){
- G0=mcmgrs(G,["get0",T]);
- LT=anal2sp(G0,["+",-C,0]);
- G0=mcmgrs(G,["get0",JK]);
- L0=anal2sp(G0,[["put1",1,-C],["mult",N-3]]);
- LT=anal2sp(LT,["add",L0]);
- G0=mcmgrs(G,["get0",T[1]]);
- L0=anal2sp(G0,["put1",1,-C]);
- LT=anal2sp(LT,["add",L0]);
- for(V=1;V<=N;V++){
- if(V==J){
- G0=mcmgrs(G,["get0",T]);
- L0=anal2sp(G0,[["get",1,0],["+",-C,0]]);
- }else if(V==N){
- G0=mcmgrs(G,["get0",[[0,V],T[1]]]);
- L0=anal2sp(G0,[["get",1,C],["+",-C,0]]);
- }else{
- G0=mcmgrs(G,["get0",[[0,V],JK]]);
- L0=anal2sp(G0,[["get",1,0],["+",-C,0]]);
- }
- LT=anal2sp(LT,["sub",L0]);
- }
- LT=anal2sp(LT,["+",0,C]);
- }else if(J==N){
- G0=mcmgrs(G,["get0",T]);
- LT=anal2sp(G0,["+",C,0]);
- G0=mcmgrs(G,["get0",T[0]]);
- L0=anal2sp(G0,[["put1",1,0],["mult",N-3]]);
- LT=anal2sp(LT,["add",L0]);
- G0=mcmgrs(G,["get0",T[1]]);
- L0=anal2sp(G0,["put1",1,0]);
- LT=anal2sp(LT,["add",L0]);
- for(V=1;V<=N;V++){
- if(V==I){
- G0=mcmgrs(G,["get0",T]);
- L0=anal2sp(G0,[["get",1,0],["+",C,0]]);
- }else if(V==N){
- G0=mcmgrs(G,["get0",[[0,V],T[1]]]);
- L0=anal2sp(G0,[["get",1,C],["+",-C,0]]);
- }else{
- G0=mcmgrs(G,["get0",[[0,V],JK]]);
- L0=anal2sp(G0,["get",1,0]);
- }
- LT=anal2sp(LT,["sub",L0]);
- }
- LT=anal2sp(LT,["+",0,-C]);
- }else{
- G0=mcmgrs(G,["get0",T]);
- LT=anal2sp(G0,["+",C,C]);
- G0=mcmgrs(G,["get0",JK]);
- L0=anal2sp(G0,[["put1",1,0],["mult",N-3]]);
- LT=anal2sp(LT,["add",L0]);
- G0=mcmgrs(G,["get0",T[1]]);
- L0=anal2sp(G0,[["put1",1,0],["+",0,C]]);
- LT=anal2sp(LT,["add",L0]);
- for(V=1;V<=N;V++){
- if(V==I){
- G0=mcmgrs(G,["get0",T]);
- L0=anal2sp(G0,[["get",1,0],["+",C,C]]);
- }else if(V==J){
- G0=mcmgrs(G,["get0",[[0,V],T[1]]]);
- L0=anal2sp(G0,[["get",1,0],["+",0,C]]);
- }else if(V==N){
- G0=mcmgrs(G,["get0",[[0,V],JK]]); L0=anal2sp(G0,[["get",1,C],["+",-C,0]]);
- }else{
- G0=mcmgrs(G,["get0",[[0,V],JK]]);
- L0=anal2sp(G0,["get",1,0]);
- }
- LT=anal2sp(LT,["sub",L0]);
- }
- }
- LT=anal2sp(LT,0);
- L=cons(cons(T,LT),L);
- }
- }
- for(G0=G=[];L!=[];L=cdr(L)){
- if(length(car(L)[0][1])==2) G0=cons(car(L),G0);
- else G=cons(car(L),G);
- }
- G=append(G0,G);
- }else{
- if(length(S)==N-1||length(S)==N){ /* [a_1,...,a_{N-1},c] */
- for(I=1;I<N;S=cdr(S),I++) G=mcmgrs(G,[[0,I],car(S)]);
- if(length(S)==1) G=mcmgrs(G,[S[0]]);
- }else return 0;
- }
- }
- return G;
-}
-
-
-def delopt(L,S)
-{
- if((Inv=getopt(inv))!=1) Inv=0;
- for(R=[];L!=[];L=cdr(L)){
- if(type(car(L))!=4) F=0;
- else if(type(S)==4) F=(findin(car(L)[0],S)<0)?0:1;
- else F=(car(L)[0]==S)?1:0;
- if(F==Inv) R=cons(car(L),R);
- }
- return reverse(R);
-}
-
-def str_char(S,N,L)
-{
- if(type(S)==7){
- if(type(L)==1) L=asciitostr([L]);
- return str_chr(S,N,L);
- }
- if(type(L)==7) L=strtoascii(L)[0];
- if(type(S)==4){
- M=N;
- while(M-->0) S=cdr(S);
- M=findin(L,S);
- return (M>=0)?findin(L,S)+N:-1;
- }else if(type(S)==5){
- K=length(S);
- for(I=N;I<K;I++)
- if(S[I]==L) return I;
- }
- return -1;
-}
-
-def str_pair(S,N,I,J)
-{
- if(type(I)==7) I=(II=strtoascii(I))[0];
- if(type(J)==7) J=(JJ=strtoascii(J))[0];
- if(type(S)==7) S=strtoascii(S);
- if(getopt(inv)==1){
- if(II!=0){
- I=asciitostr(reverse(II));
- IL=length(II);
- }else IL=1;
- if(JJ!=0) J=asciitostr(reverse(JJ));
- R=str_pair(reverse(S),length(S)-N-1,J,I);
- if(R>=0) R=length(S)-IL-R;
- return R;
- }
- if((SJIS=getopt(sjis))!=1) SJIS=0;
- if((II!=0&&length(II)>1)||(JJ!=0&&length(JJ)>1)){
- for(;;){
- MJ=str_str(S,N|top=JJ,sjis=SJIS);
- if(MJ>=0){
- MI=str_str(S,II|top=N,sjis=SJIS);
- if(MI<0 || MI>MJ){
- if(C==0) return MJ;
- C--; N=MJ+length(II);
- }else if(MI>=0){
- C++; N=MI+length(JJ);
- }
- }
- return -1;
- }
- }
- if(type(S)==4){
- M=N;
- while(M-->0) S=cdr(S);
- while(S!=[]){
- if(car(S)==I) C++;
- else if(car(S)==J){
- if(C==0) return N;
- C--;
- }
- S=cdr(S);N++;
- }
- }else if(type(S)==5){
- K=length(S);
- for(T=N;T<K && C>=0;T++){
- if(S[T]==I) C++;
- else if(S[T]==J){
- if(C==0) return T;
- C--;
- }
- }
- }
- return -1;
-}
-
-
-def str_cut(S,I,J)
-{
- if(type(S)==7) return sub_str(S,I,J);
- if((JJ=length(S))<=J) J=JJ-1;
- if(type(S)==5){
- for(L=[],K=J; K>=I; K--) L=cons(S[K],L);
- }else if(type(S)==4){
- J-=I;
- while(I-->0) S=cdr(S);
- for(L=[];J-->=0;S=cdr(S)) L=cons(car(S),L);
- L=reverse(L);
- }
- return asciitostr(L);
-}
-
-def str_str(S,T)
-{
- if(S==0) return -1;
- if(type(S) == 7)
- S = strtoascii(S);
- if(type(J=getopt(top))!=1 || J<0) J=0;
- LS=length(S);
- if(LS-J<1) return -1;
- if(type(S)==4){
- LS-=(J0=J);
- for( ; J>0 && S!=[]; S=cdr(S),J--);
- }
- if(type(JJ=getopt(end))!=1 && JJ!=0) JJ=LS;
- else JJ-=J0;
- if((SJIS=getopt(sjis))!=1) SJIS=0;
- if(JJ-J<0) return -1;
- /* search from J-th to JJ-th */
- if(type(T)==1) T=[T];
- else if(type(T)==7) T = strtoascii(T);
- else if(type(T)==4 && type(T[0])>3){
- for(K=(KF=-1)-J0; T!=[]; F++,T=cdr(T)){
- JK=str_str(S,car(T)|top=J,end=JJ,sjis=SJIS);
- if(JK>=0){
- JJ=(K=JK)-1; KF=F;
- if(J>JJ) break;
- }
- }
- return [KF,J0+K];
- }
- if(type(T)==4) T=ltov(T);
- LT = length(T);
- if(LT>0){
- LE = LS-LT;
- LP = T[0];
- if(JJ==0 ||(type(JJ)==1 && JJ<LE)) LE=JJ;
- if(type(S)==5){
- for(; J <= LE; J++){
- if(S[J] != LP){
- if(SJIS && (V=S[J])>128){
- if(V<160 || (V>223 && V<240)) J++;
- }
- continue;
- }
- for(I = 1; I < LT && S[I+J] == T[I]; I++);
- if(I >= LT) return J;
- }
- }else if(type(S)==4){
- for(; J<=LE; S=cdr(S),J++){
- if(car(S) != LP){
- if(SJIS && (V=S[J])>128){
- if(V<160 || (V>223 && V<240)) J++;
- }
- continue;
- }
- for(ST=cdr(S), I = 1; I < LT && car(ST) == T[I]; I++, ST=cdr(ST));
- if(I >= LT) return J0+J;
- }
- }
- }
- return -1;
-}
-
-def str_times(S,N)
-{
- if(!isint(N)) return "";
- if(type(S)==7){
- for(Tb=str_tb(0,0);N-->0;)
- str_tb(S,Tb);
- return str_tb(0,Tb);
- }
- if(type(S)==4){
- for(LT=[],I=0;I<N;I++){
- if(type(car(S))==7){
- LT=cons(car(S),LT);
- S=cdr(S);
- if(S==[]) S=[[""]];
- }else if(type(car(S))==4){
- ST=car(S);
- for(J=0;I<N;I++){
- if(J==length(ST)) J=0;
- LT=cons(ST[J++],LT);
- }
- }
- }
- return reverse(LT);
- }
- return S;
-}
-
-def ssubgrs(M,L)
-{
- if(type(L)==7) L=s2sp(L);
- for(S=0, L=L, M=M; L!=[]; L=cdr(L), M=cdr(M)){
- for(LT=car(L), MT=car(M); LT!=[]; LT=cdr(LT), MT=cdr(MT)){
- S += car(LT)*car(MT)[1];
- }
- }
- return S;
-}
-
-def s2os(S)
-{
- return str_subst(S,[["\\","\\\\"],["\"","\\\""]],0);
-}
-
-def l2os(S)
-{
- if(type(S)==6)
- S=m2ll(S);
- else if(type(S)==5)
- S=vtol(S);
- else if(type(S)==7) return "\""+s2os(S)+"\"";
- else if(type(S)<4) return rtostr(S);
- if(type(S)==4){
- for(F=0,Tb=str_tb("[",0);S!=[];S=cdr(S)){
- if(F++) str_tb(", ",Tb);
- str_tb(l2os(car(S)),Tb);
- }
- str_tb("]",Tb);
- return str_tb(0,Tb);
- }
- return 0;
-}
-
-def r2os(S)
-{
- if(type(S)==6){
- for(T="",S=m2ll(S);S!=[];S=cdr(S)){
- if(T!="") T=T+","+r2os(car(S));
- else T=r2os(car(S));
- }
- return "mat("+T+")\n";
- }else if(type(S)==5){
- for(T="",S=v2l(S);S!=[];S=cdr(S)){
- if(T!="") T=T+","+r2os(car(S));
- else T=r2os(car(S));
- }
- return "vect("+T+")\n";
- }else if(type(S)<4) return rtostr(S);
- else if(type(S)==4){
- for(T="";S!=[];S=cdr(S)){
- if(T!="") T=T+","+r2os(car(S));
- else T=r2os(car(S));
- }
- return "["+T+"]";
- }else if(type(S)==7) return "\""+s2os(S)+"\"";
- return "";
-}
-
-def s2euc(S)
-{
- for(R=[],CR=0,L=strtoascii(S);L!=[];L=cdr(L)){
- if((C=car(L)) == 0x1b && length(L)>1) {
- if((C=car(L=cdr(L)))==0x24 && length(L)>1){ /* $ */
- if((C = car(L=cdr(L))) == 0x40 || C == 0x42) { /* @, B */
- Mode = 1;
- } else return 0;
- }else if(C == 0x28 && length(L)>1) { /* ( */
- if((C = car(L=cdr(L)))== 0x42 || C == 0x4a) { /* B, J */
- Mode = 0;
- }else if(C == 0x49) { /* I */
- Mode = 2;
- }else{
- R=cons(0x1b,R);R=cons(0x28,R);R=cons(C,R);
- }
- }else if (C == 0x26 && length(L)>1 && car(cdr(L))==0x1b) { /* & ESC */
- L=cdr(L);
- }else{
- R=cons(0x1b,R);R=cons(C,R);
- }
- }else if(C == 0x0e) {
- Mode = 2;
- }else if(C == 0x0f) {
- Mode = 0;
- }else if(Mode == 1 && C>0x20 && C<0x7f && length(L)>1) { /* JIS KANJI */
- D=car(L=cdr(L));
- if(D>0x20 && D<0x7f) {
- R=cons(ior(C,0x80),R);R=cons(ior(D,0x80),R);
- } else return 0;
- }else if(Mode == 2 && C > 0x1f && C < 0x60) { /* JIS KANA */
- R=cons(0x8e,R); R=cons(ior(C,0x80),R);
- }else if(((C>0x80 && C<0xa0) || (C>0xdf && C<0xf0)) && length(L)>1) { /* ShiftJIS */
- D=car(L=cdr(L));
- if(D>0x3f && D<0xfd && D!=0x7f) {
- T=sjis2jis([C,D]);
- R=cons(ior(T[0],0x80),R); R=cons(ior(T[1],0x80),R);
- }else return 0;
- }else if(C>0x9f && C<0xe0) { /* HanKana */
- R=cons(0x8e,R); R=cons(C,R);
- }else if(C == 0x0a){
- CR++;
- }else if(C == 0x0d){
- R=cons(0x0d,R);
- CR=0;
- }else{
- while(CR-->0) R=cons(0x0d,R);
- R=cons(C,R);
- }
- }
- while(CR-->0) R=cons(0x0d,R);
- return asciitostr(reverse(R));
-}
-
-def s2sjis(S)
-{
- for(R=[],CR=0,L=strtoascii(S);L!=[];L=cdr(L)){
- if((C=car(L)) == 0x1b && length(L)>1) {
- if((C=car(L=cdr(L)))==0x24 && length(L)>1){ /* $ */
- if((C = car(L=cdr(L))) == 0x40 || C == 0x42) { /* @, B */
- Mode = 1;
- } else return 0;
- }else if(C == 0x28 && length(L)>1) { /* ( */
- if((C = car(L=cdr(L)))== 0x42 || C == 0x4a) { /* B, J */
- Mode = 0;
- }else if(C == 0x49) { /* I */
- Mode = 2;
- }else{
- R=cons(0x1b,R);R=cons(0x28,R);R=cons(C,R);
- }
- }else if (C == 0x26 && length(L)>1 && car(cdr(L))==0x1b) { /* & ESC */
- L=cdr(L);
- }else{
- R=cons(0x1b,R);R=cons(C,R);
- }
- }else if(C == 0x0e) {
- Mode = 2;
- }else if(C == 0x0f) {
- Mode = 0;
- }else if(Mode == 1 && C>0x20 && C<0x7f && length(L)>1) { /* JIS KANJI */
- D=car(L=cdr(L));
- if(D>0x20 && D<0x7f) {
- T=jis2sjis([C,D]);
- R=cons(T[0],R);R=cons(T[1],R);
- } else return 0;
- }else if(Mode == 2 && C > 0x1f && C < 0x60) { /* JIS KANA */
- R=cons(ior(C,0x80),R);
- }else if(C>0xa0 && C<0xff && length(L)>1) { /* EUC */
- D=car(L=cdr(L));
- if(D>0xa0 && D<0xff) {
- T=jis2sjis([iand(C,0x7f),iand(D,0x7f)]);
- R=cons(T[0],R);R=cons(T[1],R);
- }else return 0;
- }else if(C == 0x0a){
- CR++;
- }else if(C == 0x0d){
- R=cons(0x0a,R);R=cons(0x0d,R);
- CR=0;
- }else{
- while(CR-->0){
- R=cons(0x0a,R);R=cons(0x0d,R);
- }
- R=cons(C,R);
- }
- }
- while(CR-->0){
- R=cons(0x0a,R);R=cons(0x0d,R);
- }
- return asciitostr(reverse(R));
-}
-
-def r2ma(S)
-{
- return evalma(S|inv=1);
-}
-
-def evalma(S)
-{
- L0=["\n","\d","{","}","[","]","Log","Exp","Sinh","Cosh","Tanh","Sin","Cos","Tan",
- "ArcSin","ArcCos","ArcTan"];
- L1=["", "" ,"[","]","(",")","log","exp","sinh","cosh","tanh","sin","cos","tan",
- "asin", "acos", "atan"];
- if(getopt(inv)==1){
- if(type(S)==6) S=m2ll(S);
- else if(type(S)==5) S=vtol(S);
- if(type(S)==4){
- for(L=[];S!=[];S=cdr(S)){
- if(type(car(S))==6) L=cons(m2ll(car(S)),L);
- else if(type(car(S))==5) L=cons(vtol(car(S)),L);
- else L=cons(car(S),L);
- }
- S=reverse(L);
- }else return 0;
- return str_subst(rtostr(S),cdr(cdr(L1)),cdr(cdr(L0)));
- }
- if(S==0){
- print("Mathematica text (terminated by ;) ?");
- purge_stdin();
- Tb=str_tb(0,0);
- for(;;){
- S=get_line();
- str_tb(S,Tb);
- if(str_char(S,0,";")>=0) break;
- }
- S=str_tb(0,Tb);
- }
-/*
- while((P=str_chr(S,0,";"))>=0){
- V0=evalma(str_cut(S,0,P+1));
- S=str_cut(S,P+1,length(S));
- }
- if((P=str_char(S,0,"="))>=0){
- X=strtoascii(str_cut(S,0,P));
- L=length(X);
- for(P0=P1=-1,I=0;I<L;I++){
- if(L(I)<=32) continue;
- if(isalphanum(L[I])){
- if(P0<0){
- if(isnum(L[I])) break;
- P0=I;
- }
- else if(P1!=I+1) break;
- P1=I;
- }
- }
- if(I==L && P0>=0){
- for(I==P0;I-->0;) X=cdr(X);
- if((X0=car(X))>96) X0-=32;
- Y=[X0];X=cdr(X);
- for(I=P1-P0;I-->0;X=cdr(X))
- Y=cons(car(X),Y);
- Y=cons(61,Y);
- Var=asciitostr(reverse(Y));
- S=str_cut(S,P,length(S));
- }
- }
-*/
- S=eval_str(str_subst(S,L0,L1));
- if(type(S)==4){
- for(L=-1,T=S;T!=[];T=cdr(T)){
- if(type(T0=car(T))>4) break;
- if(type(T0)<4){
- if(L>=0) break;
- L=-2;continue;
- }
- if(L<-2) break;
- if(L==-1) L=length(T0);
- else if(L!=length(T0)) break;
- }
- if(T==[]){
- if(L>0) S=s2m(S);
- else S=ltov(S);
- }
- }
-/*
- if(S==0 && V0!=0) return V0;
- if(type(Var)==7){
- T=rtostr(S);
- if(type(S)==7) T="\""+T+"\"";
- S=eval_str(Var+T);
- mycat(["Define",Var]);
- }
-*/
- return S;
-}
-
-def i2hex(N)
-{
- Opt=getopt();
- if(type(N)==4 && isint(car(N))){
-#ifdef USEMODULE
- L=mtransbys(os_md.i2hex,N,[]|option_list=Opt);
-#else
- L=mtransbys(i2hex,N,[]|option_list=Opt);
-#endif
- return rtostr(L);
- }
- if(!isint(N) || N<0) return 0;
- if(!N) L=[];
- else{
- Cap=(getopt(cap)==1)?32:0;
- for(L=[];N!=0;N=ishift(N,4)){
- J=iand(N,15);
- L=cons(((J>9)?(87-Cap):48)+J,L);
- }
- }
- if(!isint(Min=getopt(min))) Min=2;
- for(Min-=length(L);Min-->0;)
- L=cons(48,L);
- if(getopt(num)==1){
- L=cons(120,L);L=cons(48,L);
- }
- return asciitostr(L);
-}
-
-def sjis2jis(L)
-{
- L1=L[1];
- if((L0=L[0])<=0x9f){
- if(L1<0x9f) L0=L0*2-0xe1;
- else L0=(L0*2)-0xe0;
- }else{
- if(L1<0x9f) L0=L0*2-0x161;
- else L0=L0*2-0x160;
- }
- if(L1<0x7f) return [L0,L1-0x1f];
- else if(L1<0x9f) return [L0,L1-0x20];
- return [L0,L1-0x7e];
-}
-
-def jis2sjis(L)
-{
- L1=L[1];
- if(iand(L0=L[0],1)){
- if(L1<0x60) L=[L1+0x1f];
- else L=[L1+0x20];
- }else L=[L1+0x7e];
- if(L0<0x5f) return cons(ishift(L0+0xe1,1),L);
- return cons(ishift(L0+0x161,1),L);
-}
-
-def verb_tex_form(P)
-{
- L = reverse(strtoascii(rtostr(P)));
- for(SS = []; L != []; L = cdr(L)){
- Ch = car(L); /* ^~\{} */
- if(Ch == 92 || Ch == 94 || Ch == 123 || Ch == 125 || Ch == 126){
- SS = append([92,Ch,123,125],SS); /* \Ch{} */
- if(Ch != 94 && Ch != 126) /* \char` */
- SS = append([92,99,104,97,114,96],SS);
- continue;
- }
- SS = cons(Ch, SS);
- if((Ch >= 35 && Ch <= 38) || Ch == 95) /* #$%&_ */
- SS = cons(92, SS); /* \Ch */
- }
- return asciitostr(SS);
-}
-
-def tex_cuteq(S,P)
-{
- if(P==0) return 0;
- if(S[P]==125){ /* } */
- if((Q=str_pair(S,P-1,"{","}"|inv=1))<0) return -1;
- if(Q<2||S[Q-1]!=95) return Q;
- return tex_cuteq(S,Q-2);
- }
- if(!isalphanum(S[Q=P--])) return -1;
- while(P>0&&isalphanum(S[P])) P--;
- if(S[P]==92){ /* \ */
- if(P==0) return P;
- else P--;
- }
- if(S[P]!=95||P==0) return Q; /* _ */
- return tex_cuteq(S,P-1);
-}
-
-
-def texket(S)
-{
- if(!isint(F=getopt(all))) F=0;
- if(type(S)==7){
- L=str_len(S);
- SS=strtoascii(S);
- }else{
- L=length(S);
- SS=S;
- }
- for(T="",I=I0=0;I<L-1;){
- J=str_char(SS,I,"(");
- if(J<0) break;
- if(J<L-1 && J>4 && str_str(SS,"\\left"|top=J-5,end=J-1)>=0){
- I=J+1;continue;
- }
- if((K=str_pair(SS,J+1,"(",")"))>=0){
- KK=str_char(SS,J+2,"(");
- if(KK>K||KK<0){
- if(F!=1){
- if(!F){
- for(N=J+1;N<K;N++) /* + - _ { } */
- if(!isalphanum(P=SS[N])&&findin(P,[32,43,45,95,123,125])<0) break;
- }else N=K;
- if(N==K){
- I=K+1;continue;
- }
- }
- T=T+str_cut(SS,I0,J-1)+"\\left"+str_cut(SS,J,K-1)+"\\right)";
- I0=I=K+1;
- }else{
- T=T+str_cut(SS,I0,J-1)+"\\left("+texket(str_cut(SS,J+1,K-1)|all=F) +"\\right)";
- I0=I=K+1;
- }
- }else break;
- }
- return T+str_cut(SS,I0,L);
-}
-
-
-def my_tex_form(S)
-{
- if(getopt(skip) != 1){
- if(type(S)==1 && S<0) return "-"+print_tex_form(-S);
- if(type(S)==6) return mtotex(S);
- S = print_tex_form(S);
- for(F=Top=0;(L=str_str(S,"\\verb`"|top=Top))>=0;Top=LV+1){
- F++;
- if(Top==0) Tb = string_to_tb("");
- LV = str_chr(S, L+6, "`");
- if(LV<0) LV=str_len(S);
- str_tb([my_tex_form(sub_str(S, Top, L-1)|skip=1), "\\texttt{"], Tb);
- str_tb([verb_tex_form(sub_str(S,L+6, LV-1)),"}"], Tb);
- Top=LV+1;
- }
- if(F>0){
- str_tb(my_tex_form(sub_str(S, Top,str_len(S)-1)|skip=1), Tb);
- return tb_to_string(Tb);
- }
- }
- if(S==0) return "";
- S = ltov(strtoascii(S));
- L = length(S)-1;
- while(L >= 1 && S[L] == 10)
- L--;
- if((Fr=getopt(frac))!=0 && Fr!=1) Fr=2;
- for(I = L+1, T = K = 0, SS = []; --I >= 0; ){
- if(S[I] == 32 && I!=L){
- if(I==L) continue;
- if(findin(S[I+1], [32,40,41,43,45,123,125]) >= 0 /* " ()+-{}" */
- || (S[I+1] >= 49 && S[I+1] <= 57)) /* 1 - 9 */
- if(I == 0 || S[I-1] >= 32) continue;
- }
- if(Fr && S[I]>=48 && S[I]<=57){ /* 2/3 -> \tfrac{2}{3} */
- for(K=0,II=I; II>=0; II--){
- if(S[II]>=48 && S[II]<=57) continue;
- if(S[II]==47){ /* / */
- if(K>0) break;
- K=II;
- }else break;
- }
- if(K>II+1){
- SS=cons(125,SS);
- for(J=I; J>K; J--) SS=cons(S[J],SS);
- if(AMSTeX){
- SS=cons(123,SS);SS=cons(125,SS);
- }else{
- for(J=[114,101,118,111,92];J!=[];J=cdr(J)) /* \over */
- SS=cons(car(J),SS);
- }
- for(J=K-1;J>II;J--) SS=cons(S[J],SS);
- SS=cons(123,SS);
- if(AMSTeX){
- J=(Fr==2)?[99,97,114,102,116,92]:[99,97,114,102,92];
- for(;J!=[];J=cdr(J)) /* \tfrac */
- SS=cons(car(J),SS);
- }
- I=II+1;
- }else{
- for(;I>II;I--) SS = cons(S[I], SS);
- I++;
- }
- continue;
- }
- SS = cons(S[I], SS);
- }
- SS=str_subst(SS,"\\\\\n\\end{pmatrix}","\n\\end{pmatrix}"|raw=1);
- Subst=getopt(subst);
- Sub0=["{asin}","{acos}","{atan}"];
- Sub1=["\\arcsin ","\\arccos","\\arctan "];
- if(type(Subst) == 4){
- Sub0=append(Sub0,Subst[0]);Sub1=append(Sub1,Subst[1]);
- }
- SS = str_subst(SS,Sub0,Sub1|raw=1);
- S = ltov(SS);
- L = length(S);
- SS = [];
- while(--L >= 0){
- if(S[I=L] == 125){
- while(--I >= 0 && S[I] == 125);
- J = 2*I - L;
- if(J >= 0 && S[I] != 123){
- for(K = J; K < I && S[K] == 123; K++);
- if(K == I){
- if(J-- <= 0 || S[J] < 65 || S[J] > 122 || (S[J] > 90 && S[J] < 97)){
- SS = cons(S[I],SS);
- L = J+1;
- continue;
- }
- }
- }
- }
- SS = cons(S[L],SS);
- }
- RT=getopt(root);
- for(Top=0;;Top++){ /* ((x+1))^{y} , 1/y=2,3,...,9 */
-#if 1
- P=str_str(SS,["))^","^{\\tfrac{1}"]|top=Top);
- if(P[0]<0) break;
- Sq=0;
- if(P[0]==0){
- P=P[1];
- if((Q=str_pair(SS,P,"(",")"|inv=1))<0||SS[Q+1]!=40) continue;
- if((RT==2||(RT!=0 && P-Q<33)) && str_str(SS,"{\\tfrac{1}"|top=P+3,end=P+3)==P+3
- && SS[P+14]==125){
- if((Sq=SS[P+13]-48)<2||Sq>9) Sq=0;
- }
- F=2;
- }else{
- P=P[1];
- if(SS[P+12]!=125||(Sq=(SS[P+11]-48))<2||Sq>9) break;
- if(SS[P-1]==125){
- if((Q=str_pair(SS,P-2,"{","}"|inv=1))<0) break;
- if(Q>1&&SS[Q-1]==95){
- if((Q=tex_cuteq(SS,Q-2))<0) break;
- F=0;
- }else F=1;
- }else{
- if(!isalphanum(SS[Q=P-1]) || (Q=tex_cuteq(SS,Q))<0) break;
- F=0;
- }
- if(RT!=2&&P-Q>32) break;
- }
-#else
- if((P=str_str(SS,"))^"|top=Top))<0 || (Q=str_pair(SS,P,"(",")"|inv=1))<0) break;
- else F=2;
- Sq=0;
- if((RT==2||(RT!=0 && P-Q<33)) && str_str(SS,"{\\tfrac{1}"|top=P+3,end=P+3)==P+3
- && SS[P+14]==125){
- if((Sq=SS[P+13]-48)<2||Sq>9) Sq=0;
- }
-#endif
- for(I=0,S=[];SS!=[];SS=cdr(SS),I++){
- if(I==Q){
- if(Sq){
- S=append([116,114,113,115,92],S);
- if(Sq>2) S=append([93,Sq+48,91],S);
- S=cons(123,S);
- if(F==2) SS=cdr(SS);
- else if(F==0) S=cons(car(SS),S);
- }else if(F==2&&P-Q==3){ /* (2)^x -> 2^x*/
- SS=cdr(SS);SS=cdr(SS);
- S=cons(123,S);S=cons(car(SS),S);S=cons(125,S);
- SS=cdr(SS);SS=cdr(SS);
- I+=3;
- }
- continue;
- }else if(I==P){
- if(Sq){
- if(F>0) S=cdr(S);
- S=cons(125,S);
- if(F==2) SS=cdr(SS);
- for(J=0;J<12;J++) SS=cdr(SS);
- }
- continue;
- }
- S=cons(car(SS),S);
- }
- SS=reverse(S);
- Top=P;
- }
- S=asciitostr(SS);
- if((K=getopt(ket))==1) S=texket(S);
- else if(K==2) S=texket(S|all=1);
- return S;
-}
-
-def smallmattex(S)
-{
- return str_subst(S,[["\\begin{pmatrix}","\\left(\\begin{smallmatrix}"],
- ["\\end{pmatrix}","\\end{smallmatrix}\\right)"],
- ["\\begin{Bmatrix}","\\left\\{\\begin{smallmatrix}"],
- ["\\end{Bmatrix}","\\end{smallmatrix}\\right\\}"],
- ["\\begin{bmatrix}","\\left[{\\begin{smallmatrix}"],
- ["\\end{bmatrix}","\\end{smallmatrix}\\right]"],
- ["\\begin{vmatrix}","\\left|\\begin{smallmatrix}"],
- ["\\end{vmatrix}","\\end{smallmatrix}\\right|"],
- ["\\begin{Vmatrix}","\\left\\|\\begin{smallmatrix}"],
- ["\\end{Vmatrix}","\\end{smallmatrix}\\right\\|"],
- ["\\begin{matrix}","\\begin{smallmatrix}"],
- ["\\end{matrix}","\\end{smallmatrix}"]],0);
-}
-
-
-def divmattex(S,T)
-{
- TF=["matrix","pmatrix","Bmatrix","bmatrix","vmatrix","Vmatrix"];
- TG=[0,"(","\\{","[","|","\\|"];
- TH=[0,")","\\}","]","|","\\|"];
- if(type(S)!=7) S=mtotex(S);
- S=strtoascii(S0=S);
- if((P0=str_str(S,"\\begin{"))<0 || (P1=str_str(S,"}"|top=P0+7))<0)
- return S0;
- F=str_cut(S,P0+7,P1-1);
- if((K=findin(F,TF))<0) return S0;
- Q=str_str(S,"\\end{"+F+"}");
- if(Q<0) return S0;
- for(J=P1+1;S[J]<33;J++);
- for(L0=L=[],I=J;J<Q;J++){
- if(S[J]==38){ /* & */
- if(I>=J) L0=cons(0,L0);
- else L0=cons(str_cut(S,I,J-1),L0);
- I=J+1;
- }
- if(S[J]==92&&S[J+1]==92){ /* \\ */
- if(I>=J) L0=cons(0,L0);
- else L0=cons(str_cut(S,I,J-1),L0);
- L=cons(reverse(L0),L);
- L0=[];
- J++;
- for(I=J+1;S[I]<33;I++);
- }
- }
- J--;
- if(S[J]<33) J--;
- if(I<=J) L0=cons(str_cut(S,I,J),L0);
- if(length(L0)>0) L=cons(reverse(L0),L);
- L=lv2m(reverse(L)); /* get matrix */
- if(T==0) return L;
- Size=size(L);S0=Size[0];
- if(type(T[0])!=4){
- S1=Size[1];
- T=append(T,[S1]);
- for(TT=[],I=0;T!=[];T=cdr(T)){
- J=car(T);
- if(J>S1) J=S1;
- for(T0=[];J>I;J--) T0=cons(J-1,T0);
- if(T0!=[]) TT=cons(T0,TT);
- I=car(T);
- }
- T=reverse(TT);
- }
- SS=length(T);
- St=str_tb(0,0);
- if(SS==1) St=str_tb("\\begin{"+F+"}\n",St);
- else{
- if(K>0) St=str_tb("&\\left"+TG[K],St);
- St=str_tb("\\begin{matrix}\n",St);
- }
- for(;T!=[];T=cdr(T)){
- for(I=0;I<S0;I++){
- for(J=0,TT=car(T);TT!=[];TT=cdr(TT),J++){
- if(J>0) St=str_tb("&",St);
- if(L[I][car(TT)]!=0) St=str_tb(L[I][car(TT)],St);
- }
- if(I<S0-1) St=str_tb("\\\\",St);
- St=str_tb("\n",St);
- }
- if(length(T)>1)
- St=str_tb("\\end{matrix}\\right.\\\\\n&\\quad\\left.\\begin{matrix}\n",St);
- else{
- if(SS==1) St=str_tb("\\end{"+F+"}\n",St);
- else St=str_tb("\\end{matrix}\\right"+TH[K]+"\n",St);
- }
- }
- S=str_tb(0,St);
- if(SS==1) return S;
- return texbegin("align*",S);
-}
-
-def str_subst(S, L0, L1)
-{
- if(type(S) == 7)
- S = strtoascii(S);
- if(type(S) == 4)
- S = ltov(S);
- SE = length(S);
- if(L1 == 0){
- for(L1 = L = [], L0 = reverse(L0); L0 != []; L0 = cdr(L0)){
- L = cons(car(L0)[0], L);
- L1 = cons(car(L0)[1], L1);
- }
- L0 = L;
- }
- if(type(L0)==7) L0 = [strtoascii(L0)];
- else{
- for(LT = []; L0 != []; L0 = cdr(L0))
- LT = cons(strtoascii(car(L0)), LT);
- L0 = ltov(LT);
- }
- E0 = length(L0);
- if(type(L1)==7) L1 = [strtoascii(L1)];
- else{
- for(LT = []; L1 != []; L1 = cdr(L1))
- LT = cons(strtoascii(car(L1)), LT);
- L1 = ltov(LT);
- }
- if(getopt(inv)==1){
- L2=L0;L0=L1;L0=L2;
- }
- if((SJIS=getopt(sjis))!=1) SJIS=0;
- for(J = JJ = 0, ST = []; J < SE; J++){
- SP = S[J];
- for(I = E0-1; I >= 0; I--){
- if(SP != L0[I][0] || J + (K = length(L0[I])) > SE)
- continue;
- while(--K >= 1)
- if(L0[I][K] != S[J+K]) break;
- if(K > 0) continue;
- for(KE = length(L1[I]), K = 0 ;K < KE; K++)
- ST = cons(L1[I][K],ST);
- J += length(L0[I])-1;
- break;
- }
- if(I < 0){
- ST = cons(S[J],ST);
- if(SJIS && (V=S[J])>128){
- if(V<160 || (V>223 && V<240)) ST = cons(S[J++],ST);
- }
- }
- }
- if(getopt(raw)==1) return reverse(ST);
- return asciitostr(reverse(ST));
-}
-
-def dviout0(L)
-{
- Cmd=["TikZ","TeXLim","TeXEq","DVIOUT","XYPrec","XYcm","XYLim","Canvas"];
- if(type(Opt=getopt(opt))==7){
- if((F=findin(Opt,Cmd)) < 0) return -1;
- if(L==-1){
- if(F<=3){
- if(F==0) V=TikZ;
- else if(F==1) V=TeXLim;
- else if(F==2) V=TeXEq;
- else V=iand(DVIOUTF,1);
- }else{
- if(F==4) V=XYPrec;
- else if(F==5) V=XYcm;
- else if(F==6) V=XYLim;
- else V=Canvas;
- }
- return V;
- }
- if(F==0) TikZ=L;
- else if(F==2) TeXEq=L;
- else if(F==3){
- if(iand(DVIOUTF,1)==L)
- mycat0(["DVIOUTA=\"", DVIOUTA,"\""],1);
- else dviout0(4);
- return 1;
- }else if(F==7&&type(L)==4)
- Canvas=L;
- else if(L>0){
- if(F==1) TeXLim=L;
- else if(F==4) XYPrec=L;
- else if(F==5) XYcm=L;
- else if(F==6) XYLim=L;
- }
- mycat0([Cmd[F],"=",L],1);
- return 1;
- }
- if(type(L) == 4){
- for( ; L != []; L = cdr(L)) dviout0(car(L));
- return 1;
- }
- if(type(L) == 7){
- if(L=="") dviout(" \n"|keep=1);
- else if(L=="cls") dviout0(0);
- else if(L=="show") dviout(" ");
- else if(L=="?") dviout0(3);
- else dviout("\\"+L+"\n"|keep=1);
- return 1;
- }
- if(L == 0)
- dviout(" "|keep=1,clear=1);
- else if(L == 1)
- dviout(" ");
- else if(L == 2)
- dviout(" "|clear=1);
- else if(L>10)
- dviout("\\setcounter{MaxMatrixCols}{"+rtostr(L)+"}%"|keep=1);
- else if(L < 0)
- dviout(" "|delete=-L,keep=1);
- else if(L == 3){
- mycat0(["DIROUT =\"", DIROUT,"\""],1);
- mycat0(["DVIOUTH=\"", DVIOUTH,"\""],1);
- mycat0(["DVIOUTA=\"", DVIOUTA,"\""],1);
- mycat0(["DVIOUTB=\"", DVIOUTB,"\""],1);
- mycat0(["DVIOUTL=\"", DVIOUTL,"\""],1);
- mycat(["Canvas =", Canvas]);
- mycat(["TeXLim =", TeXLim]);
- mycat(["TeXEq =", TeXEq]);
- mycat(["AMSTeX =", AMSTeX]);
- mycat(["TikZ =", TikZ]);
- mycat(["XYPrec =", XYPrec]);
- mycat(["XYcm =", XYcm]);
- mycat(["XYLim =", XYLim]);
- }else if(L==4){
- Tmp=DVIOUTA; DVIOUTA=DVIOUTB; DVIOUTB=Tmp;
- mycat0(["DVIOUTA=\"", DVIOUTA,"\""],1);
- DVIOUTF++;
- }else if(L==5){
- if(!iand(DVIOUTF,1)) dviout0(4);
- }else if(L==6){
- TikZ=1;mycat("TikZ=1");
- }else if(L==7){
- TikZ=0;mycat("TikZ=0");
- }
- return 1;
-}
-
-def myhelp(T)
-{
- /* extern DVIOUT; */
- /* extern HDVI; */
- /* extern DVIOUTH; */
-
- if(type(T)==2){
- if(T==getbygrs){
- getbygrs(0,0);
- return 0;
- }
- else if(T==m2mc){
- m2mc(0,0);
- return 0;
- }
- else if(T==mgen){
- mgen(0,0,0,0);
- return 0;
- }
- else T=rtostr(T);
- }
- if(type(T)==4 && typeT[0]==7){
- if(length(T)==2 && type(T[1])==1){
- DVIOUTH="start "+T[0]+" -"+rtostr(T[1])+"-hyper:0x90 \"%ASIRROOT%\\help\\os_muldif.dvi\" #r:%LABEL%";
- }else if(str_len(T[0])>2) DVIOUTH=T[0];
- mycat(["DVIOUTH="+DVIOUTH,"\nmyhelp(fn) is set!"]);
- return 0;
- }
- if(T==0){
- mycat([
- "myhelp(t) : show help\n",
-#ifdef USEMODULE
- " t : -1 (dvi), 1 (pdf) or os_md.getbygrs, os_md.m2mc, os_md.mgen\n",
-#else
- " t : -1 (dvi), 1 (pdf) or getbygrs, m2mc, mgen\n",
-#endif
- " \"fn\" : Help of the function fn\n",
- " [path,n] : path of dviout, n = # dviout\n",
- " [DVIOUTH] : Way to jump to the help of a function\n",
- " default: start dviout -2 \"%ASIRTOOT%\\help\\os_muldif.dvi\" #r:%LABEL%"
- ]);
- return 0;
- }
- if(type(T)==7){
- if(str_str(T,"os_md.")==0) T=str_cut(T,6,str_len(T)-1);
- Dr=str_subst(DVIOUTH,["%ASIRROOT%","%LABEL%"],[get_rootdir(),"r:"+str_subst(T,"_","")]);
- shell(Dr);
- return 0;
- }
- Dr=get_rootdir();
- if(T==-1) Dr+="\\help\\os_muldif.dvi";
- else Dr+="\\help\\os_muldif.pdf";
- if(!isMs()) Dr=str_subst(Dr,"\\","/");
- shell(Dr);
- return 0;
-}
-
-def isMs()
-{
- if(type(Tmp=getenv("TEMP"))!=7) {
- if (type(Tmp=getenv("TMP")) != 7) Tmp=getenv("HOME");
- }
- if(type(Tmp)==7 && str_chr(Tmp,0,"\\")==2) return 1;
- else return 0;
-}
-
-def tocsv(L)
-{
- if(type(L)==6) L=m2ll(L);
- else if(type(L)==5) L=vtol(L);
- Null=getopt(null);
- Tb=str_tb(0,0);
- for(LL=L; LL!=[]; LL=cdr(LL)){
- LT=car(LL);
- if(type(LT)==5) LT=vtol(LT);
- if(type(LT)<4) LT=[LT];
- for(N=0; LT!=[]; LT=cdr(LT),N++){
- if(N) str_tb(", ",Tb);
- if((T=car(LT))==Null) continue;
- if(type(T)==7){
- K=str_len(T);
- T=str_subst(T,["\""],["\"\""]);
- if(str_len(T)>K||str_char(T,0,",")>=0) T="\""+T+"\"";
- str_tb(T,Tb);
- }else str_tb(rtostr(T),Tb);
- }
- str_tb("\n",Tb);
- }
- S=str_tb(0,Tb);
- if(type(EXE=getopt(exe))!=1&&EXE!=0&&type(EXE)!=7) return S;
- if(type(F)!=7){
- F="risaout";
- if(EXE>=2&&EXE<=9) F+=rtostr(EXE);
- F=DIROUTD+F+".csv";
- }else F=S;
- if(EXE!=0 && access(F)) remove_file(F);
- fcat(F,S|exe=1);
- return 1;
-}
-
-def readcsv(F)
-{
- if((ID=open_file(F))<0) return -1;
- SJIS=isMs();
- L=[];
- if(type(V=getopt(eval))!=4){
- if(V=="all") V=1;
- else if(type(V)==1) V=[V];
- else V=[];
- }
- Eq=getopt(eq);
- Sp=getopt(sp);
- if(type(T=getopt(col))!=1) T=0;
- Null=getopt(null);
- if(type(Null)<0) Null=(Eq==1)?0:"";
- while((S=get_line(ID))!=0){
- S=strtoascii(S);
- N=length(S);
- for(I=J=F=0,LL=LT=[];I<N;I++){
- C=S[I];
- if(F==0){
- if(C<=32) continue;
- if(C==34){F=2;continue;}
- F=1;
- }
- if(F==2 && C==34){
- if(I<N-1&& S[I+1]==34){
- LT=cons(34,LT);I++;continue;
- }
- F=-2;
- }
- if(F==1){
- if((C==44&&Sp!=1)||(C<=32&&Sp==1)) F=-1;
- else if(C<32 && C!=9) continue;
- }
- if(SJIS && I<N-1 && ((C>128 && C<160)||(C>223 && C<240))){
- LT=cons(C,LT);LT=cons(S[++I],LT);continue;
- }
- if(F>0){
- LT=cons(C,LT);continue;
- }
- LS=asciitostr(reverse(LT));
- if(V==1||findin(++J,V)>=0){
- if(Eq==1) LS=(LS=="")?Null:eval_str(LS);
- else LS=(isdecimal(LS))?eval_str(LS):((LS=="")?Null:LS);
- }
- if(!T || T==J) LL=cons(LS,LL);
- if(F==-2) while(++I<N && Sp!=1 && S[I]!=44);
- F=0;LT=[];
- }
- if(I<=N && (Sp!=1 || length(LT)>0)){ /* lastline */
- LS=asciitostr(reverse(LT));
- if(V==1||findin(++J,V)>=0){
- if(Eq==1) LS=(LS=="")?Null:eval_str(LS);
- else LS=(isdecimal(LS))?eval_str(LS):((LS=="")?Null:LS);
- }
- if(!T || T==J) LL=cons(LS,LL);
- }
- L=cons(reverse(LL),L);
- }
- close_file(ID);
- if(T) L=m2l(L|flat=1);
- L=reverse(L);
- return L;
-}
-
-def showbyshell(S)
-{
- Id = getbyshell(S);
- if(Id<0) return Id;
- while((S=get_line(Id))!=0) print(S,2);
- return close_file(Id);
-}
-
-
-def getbyshell(S)
-{
- /* extern DIROUT; */
-
- Home=getenv("HOME");
- if(type(Home)!=7) Home="";
- if(type(Tmp=getenv("TEMP"))!=7 && type(Tmp=getenv("TMP")) != 7)
- Tmp=str_subst(DIROUT,["%HOME%","%ASIRROOT%"],[Home,get_rootdir()]);
- Sep=isMs()?"\\":"/";
- F=Tmp+Sep+"muldif.tmp";
- if(type(S)<=1 && S>=0) close_file(S);
- remove_file(F);
- if(type(S)<=1) return -1;
- shell(S+" > \""+F+"\"");
- return open_file(F);
-}
-
-def show(P)
-{
- T=type(P);
- S=P;
- Var=getopt(opt);
- if(Var=="verb"){
- dviout("{\\tt"+verb_tex_form(T)+"}\n\n");
- return;
- }
- if(type(Var)<0) Var=getopt(var);
- if(T==6){
- if((Sp=getopt(sp))==1 || Sp==2)
- S=mtotex(P|lim=1,small=2,sp=Sp,null=1,mat="B");
- else if(type(Var)==4 || type(Var)==7)
- S=mtotex(P|lim=1,small=2,var=Var);
- else
- S=mtotex(P|lim=1,small=2);
- Size=size(P);
- Size=(Size[0]>Size[1])?Size[0]:Size[1];
- if(Size>10) dviout0(Size);
- }else if(T<=3){
- X=0;
- if(Var=="pfrac") X=var(P);
- else X=getopt(pfrac);
- if(isvar(X)){
- pfrac(P,X|dviout=1);
- return;
- }
- Opt=cons(["dviout",1],getopt());
- if(type(Var)==2||type(Var)==4||type(Var)==7) fctrtos(P|option_list=Opt);
- else{
- if(isdif(P)!=0) Opt=cons(["var","dif"],Opt);
- else Opt=cons(["br",1],Opt);
- fctrtos(P|option_list=Opt);
- }
- return;
- }else if(T==4){
- if(type(Var)==4 || type(Var)==7){
- S=ltotex(P|option_list=getopt());
- if(Var=="text"){
- dviout(S);
- return;
- }
- }else{
- for(F=0,L=P;L!=[] && F!=-1;L=cdr(L)){
- LL=car(L);
- if(type(LL)==4){
- if(F==0){
- T=type(LL[0]);
- if(T==4) F=2; /* [[[? */
- else if(T==1 || T==0) F=1; /* [[num,.. */
- }
- if(F==1){
- if(length(LL)!=2 || !isint(LL[0]) || LL[0]<0 || type(LL[1])>3)
- F=-1; /* [[num,rat],[num,rat],...] */
- }else if(F==2){
- for(LLT=LL; LLT!=[] && F!=-1; LLT=cdr(LLT)){
- LLL=car(LLT); /* [[[num,rat],[num,rat],...],[[..],..]],....] */
- if(length(LLL)!=2 || !isint(LLL[0]) || LLL[0]<0 || type(LLL[1])>3)
- F=-1;
- }
- }
- }else if((F==0 || F==7) && type(LL)==7){
- F=7;
- }else F=-1;
- }
- if(F==1) S=ltotex(P|opt="spt");
- else if(F==2){
- M=mtranspose(lv2m(S));
- show(M|sp=1); /* GRS */
- return;
- }else if(F==7) S=ltotex(P|opt="spts");
- else{
- for(F=0,L=P;L!=[] && F!=-1;L=cdr(L)){
- LL=car(L);
- if(type(LL)!=4){
- F=-1; break;
- }
- for(LLT=LL; LLT!=[] && F!=-1; LLT=cdr(LLT)){
- T=type(LLL=car(LLT));
- if(T<7 && T!=4) F0++;
- else if(T==7){
- if(str_char(LLL,0,"\\")<0) F1++;
- else F2++;
- }else F=-1;
- }
- }
- }
- if(F==0 && F0>0 && (F1+F2)>0){ /* list of list of eq and str */
- if(F2>0) S=ltotex(P|opt=["cr","spts0"],str=1);
- else S=ltotex(P|opt=["cr","spts"]);
- }else{
- for(S="[";;){
- S+=my_tex_form(car(P));
- if((P=cdr(P))==[]){
- S+="]";break;
- }
- S+=",";
- }
- }
- }
- }else if(T==7){
- if(Var=="raw" ||
- (Var !="eq" && str_chr(P,0,"\\")<0 && str_char(P,0,"^")<0 && str_char(P,0,"_")<0
- && str_char(P,0,"&")<0)){
- dviout(P+"\n\n");
- return;
- }
- }
- dviout(S|eq=5);
-}
-
-
-/* options : eq = 1 - 8, clear=1, keep=1, delete=1, title=s,
- fctr=1, begin=s */
-def dviout(L)
-{
- /* extern AMSTeX, TeXEq, DIROUT, DVIOUTA, DVIOUTB, DVIOUTL; */
-
- MyEq = [
- ["\\[\n ","\\]"],
- ["\\begin{align}\n","\\end{align}"],
- ["\\begin{gather}\n ","\\end{gather}"],
- ["\\begin{multline}\n ","\\\\[-15pt]\\end{multline}"],
- ["\\begin{align}\\begin{split}\n &","\\end{split}\\end{align}"],
- ["\\begin{align*}\n &","\\end{align*}"],
- ["\\begin{gather*}\n ","\\end{gather*}"],
- ["\\begin{equation}\n ","\\end{equation}"]
- ];
- if(!chkfun("print_tex_form", "names.rr"))
- return 0;
- Home=getenv("HOME");
- if(type(Home)!=7) Home="";
- Dir=str_subst(DIROUT,["%HOME%","%ASIRROOT%","\\"],[Home,get_rootdir(),"/"]);
- Dirout=Dir+(AMSTeX?"/out.tex":"/out0.tex");
- Risaout=(AMSTeX)?"risaout":"risaout0";
- Dirisa=Dir+"/"+Risaout+".tex";
- Viewer="dviout";
- SV=["c:/w32tex/dviout","c:/dviout"];
- Risatex=str_subst(AMSTeX?DVIOUTA:DVIOUTL,
- ["%HOME%","%ASIRROOT%","%TikZ%"],[Home,get_rootdir(),rtostr(TikZ)]);
- if(isMs() && !access(Risatex)){
- for(TV=SV; TV!=[]; TV=cdr(TV)){
- VV=car(TV)+"/dviout.exe";
- if(access(VV)){
- Viewer=str_subst(VV,"/","\\");
- break;
- }
- }
- output(Risatex);
- print("cd \""+str_subst(Dir,"/","\\")+"\"");
- print("latex -src=cr,display,hbox,math,par "+Risaout);
- print("start "+Viewer+" -1 \""+Dr+"\\tex\\"+Risaout+"\" 1000");
- output();
- }
- if(access(Dirisa) == 0){
- D0="\""+(isMs()?str_subst(Dir,"/","\\")+"\"":Dir);
- shell("mkdir "+D0);
- output(Dirisa);
- if(AMSTeX){
- print("\\documentclass[a4paper]{amsart}");
- print("\\usepackage{amsmath,amssymb,amsfonts}");
- }else
- print("\\documentclass[a4paper]{article}");
- print("\\pagestyle{empty}\n\\begin{document}\n\\thispagestyle{empty}");
- print(AMSTeX?"\\input{out}\n\\end{document}":"\\input{out0}\n\\end{document}");
- output();
- }
- if((K = getopt(delete)) >= 1){ /* delete */
- LC = 0;
- if(type(K) == 1 && K > 10) K = 10;
- if(type(K) == 4){
- K = qsort(K);
- LC = 1; /* specific lines */
- }
- Done = 1;
- Id = open_file(Dirout);
- if(Id >= 0){
- Buf = Buf0 = Buf1 = Key = "";
- PE = 0;
- if(type(K) == 1)
- BufE = newvect(K--);
- Dout = Dirout+"0";
- remove_file(Dout);
- output(Dout);
- while((S = get_line(Id)) != 0){
- if(LC){
- while(K != [] && car(K) < LC)
- K = cdr(K);
- if(K == [] || car(K) > LC)
- output(S);
- }
- if(Key == ""){
- if((P0 = str_str(S,"\\begin{")) == 0){
- Key = sub_str(S,7,str_str(S,"}")-1);
- if(findin(Key,["align", "gather","multline", "equation","align*"]) < 0)
- Key = "";
- else{
- Key = "\\end{"+Key+"}";
- if(!LC){
- if(Buf != ""){
- if(PE < K)
- BufE[PE++] = Buf1+Buf;
- else{
- if(K > 0){
- print(BufE[0]);
- for(I = 1; I < K; I++)
- BufE[I-1]=BufE[I];
- BufE[K-1] = Buf1+Buf;
- }else
- print(Buf1+Buf);
- Done = 0;
- }
- Buf1 = Buf0;
- Buf = Buf0 ="";
- }
- }
- }
- }
- if(Key == "" && !LC) Buf0 += S;
- }
- if(Key != ""){
- if(!LC) Buf += S;
- if(str_str(S,Key) >= 0){
- Key = "";
- if(LC) LC++;
- }
- }
- }
- output();
- close_file(Id);
- }
- if(Done==0){
- Id = open_file(Dout);
- if(Id >= 0){
- remove_file(Dirout);
- output(Dirout);
- while((S = get_line(Id)) != 0)
- print(S,0);
- output();
- close_file(Id);
- }
- remove_file(Dout);
- }else L=" ";
- }
- if(getopt(clear) == 1 || Done == 1){ /* clear */
- remove_file(Dirout);
- if(L == "" || L == " "){
- output(Dirout);
- print("\\centerline{Risa/Asir}");
- output();
- }
- }
- if(L != " "){
- Eq=1;
- Eqo = getopt(eq);
- Fc = getopt(fctr);
- if(Fc == 1 && (type(L) == 2 || type(L) == 3)){
- L = fctrtos(L|TeX=1);
- if(type(L) == 4)
- L = "\\fact{"+L[0]+"}{"+L[1]+"}";
- if(type(Eqo) != 0 && type(Eqo) !=7){
- Eqo=0;
- }
- }
- if(type(L) != 4 || getopt(mult) != 1)
- L = [L];
- if(type(Eqo)!=7 && (Eqo<1 || Eqo>8))
- Eqo = (AMSTeX==1)?TeXEq:1;
- Title = getopt(title);
- if(type(Title) == 7){
- output(Dirout);
- print(Title);
- output();
- }
- Sb = getopt(subst);
- for( ; L != []; L = cdr(L)){
- Eq = 1;
- if(type(LT=car(L)) != 7 && type(LT) != 21)
- LT = my_tex_form(LT);
- else if(type(getopt(eq)) < 0)
- Eq = 0;
- if(type(Sb) == 4)
- LT = str_subst(LT,Sb[0],Sb[1]);
- output(Dirout);
- if(Eq == 1){
- if(type(Eqo)==7)
- print(texbegin(Eqo,LT));
- else if(Eqo >= 1 && Eqo <= 8){
- mycat0([MyEq[Eqo-1][0],LT,"%"],1);
- print(MyEq[Eqo-1][1]);
- }else print(LT);
- }else print(LT);
- output();
- }
- }
- if(str_char(Risatex,0," ")>=0 && str_char(DVIOUTA,0," ")<0 && str_char(DVIOUTB,0," ")<0
- && str_char(DVIOUTL,0," ")<0)
- Risatex="\""+Risatex+"\"";
- if(getopt(keep) != 1) shell(Risatex);
- return 1;
-}
-
-def rtotex(P)
-{
- S = my_tex_form(P);
- return (str_len(S) == 1)?S:"{"+S+"}";
-}
-
-def mtotex(M)
-{
- /* extern TexLim; */
-
- MB=mat(["(",")","p"],["\\{","\\}","B"],["[","]","b"],["|","|","v"],
- ["\\|","\\|","V"], [".",".",""]);
- if(type(MT=getopt(mat))==7){
- MT=findin(MT,["p","B","b","v","V",""]);
- if(MT<0) MT=0;
- }
- else MT=0;
- MT=MB[MT];
- if((F=getopt(small))!=1 && F!=2) F=0;
- Lim=getopt(lim);
- if(type(Lim)==1){
- if(Lim<30 && Lim!=0) Lim = TexLim;
- }else Lim=0;
- FL=getopt(len);
- Rw=getopt(raw);
- Sp=getopt(sp);
- Idx=getopt(idx);
- if(type(Idx)==4) Idx=ltov(Idx);
- if(type(Idx)==6 && length(Idx)==0) Idx=-1;
- Var=getopt(var);
- if(Lim>0) FL=1;
- Null=getopt(null);
- if(Null!=1 && Null!=2) Null=0;
- if(type(M)==5) M=lv2m([V]);
- else if(type(M)!=6) return monototex(M);
- S=size(M);
- if(FL==1){
- L=newmat(S[0],S[1]); LL=newvect(S[1]);
- }
- SS=newmat(S[0],S[1]);
- for(I=0; I<S[0]; I++){
- for(J=0; J<S[1]; J++){
- if(type(P=M[I][J])<=3){
- if(P!=0 || Null == 0 || (Null==2 && I==J)){
- SS[I][J]=(type(Var)>1)?fctrtos(P|TeX=2,lim=0,var=Var):fctrtos(P|TeX=2,lim=0);
- if(type(P)==1 && str_str(SS[I][J],"\\frac{-"|end=0)==0)
- SS[I][J]="-\\frac{"+str_cut(SS[I][J],7,100000);
- }
- }else if(type(P)==6){
- ST= mtotex(P|small=1,len=1);
- SS[I][J]=ST[0];
- L[I][J]=ST[1];
- }else if(type(P)==7){
- if(Rw==1) SS[I][J]=P;
- else SS[I][J]="\\text{"+P+"\}";
- }else if(type(P)==4 && length(P)==2 && P[0]>0 && (Sp==1 || Sp==2)){
- if(P[0]==1){
- SS[I][J]=fctrtos(P[1]|TeX=2,lim=0);
- }else{
- ST=my_tex_form(P[0]);
- if(Sp==2) ST="("+ST+")";
- SS[I][J]="["+fctrtos(P[1]|TeX=2,lim=0)+"]_";
- if(str_len(ST)<2) SS[I][J]+=ST;
- else SS[I][J]+="{"+ST+"}";
- }
- }else
- SS[I][J]=my_tex_form(P);
- if(FL==1) L[I][J]=texlen(SS[I][J]);
- }
- }
- if(Lim>0 || FL==1){
- for(LLL=J=0; J<S[1];J++){
- for(I=K=0; I<S[0];I++){
- if(K<L[I][J]) K=L[I][J];
- }
- LLL+=(LL[J]=K);
- }
- }
- if(Lim>0){
- if(F==2 && LLL>Lim-2*S[1]-2) F=1;
- if(F==1)
- Lim=idiv(Lim*6,5);
- if(LLL<=Lim-(2-F)*S[I]-2) Lim=0;
- }
- Mat=(F==1)?"smallmatrix}":"matrix}";
- if(F==1) Out=str_tb("\\left"+MT[0]+"\\begin{",0);
- else Out=str_tb((Lim==0)?"\\begin{"+MT[2]:"\\left"+MT[0]+"\\begin{",0);
- Out = str_tb(Mat,Out);
- for(I=II=LT=0; II<=S[0]; II++){
- if(Lim==0) II=S[0];
- if(II<S[0]){
- K=LL[II]+(2-F);
- if(I==II){
- LT+=K;
- continue;
- }
- if(LT+K<Lim-2) continue;
- LT=K;
- }
- for(I0=I; I<II; I++){
- if(I==I0){
- str_tb((I==0)?
- "\n ":
- "\\right.\\\\\n \\allowdisplaybreaks\\\\\n &\\ \\left.\\begin{"+Mat+"\n ", Out);
- if(Idx==1||Idx==0||type(Idx)==5){
- for(J=I; J<II; J++){
- if(type(Idx)!=4)
- str_tb("("+rtostr(J+Idx)+")",Out);
- else{
- JJ=length(Idx)-1;
- if(J<JJ) JJ=J;
- str_tb(my_tex_form(Idx[JJ]),Out);
- }
- if(J<II) str_tb(" & ",Out);
- }
- str_tb("\\\\\n ",Out);
- }
- }
- else str_tb("\\\\\n ",Out);
- for(J=0; J<S[1]; J++){
- if(J!=0) str_tb(" & ",Out);
- if(type(SS[I][J])==7) str_tb(SS[I][J],Out);
- }
- }
- Out=str_tb("\n\\end{", Out);
- if(II==S[0]) Out=str_tb((Lim==0&&F!=1)?MT[2]+Mat:Mat+"\\right"+MT[1],Out);
- else Out=str_tb(Mat+"\\right.",Out);
- }
- SS = str_tb(0,Out);
- if(FL!=1) return SS;
- if(F==1) LLL=idiv((LLL+S[1])*5+13,6);
- else LLL+=2*(1+S[1]);
- return [SS,LLL];
-}
-
-def sint(N,P)
-{
- if( type(N)==1 || N==0 ) {
- NT=ntype(N);
- if((type(Opt=getopt(str))==1 || Opt==0) && Opt>=0 && P>=0){
- if(Opt==2 || Opt==4 || Opt==0){
- if(N==0) return (Opt>0)?"0":0;
- Pw=0;
- if(NT==4){
- NN=abs(real(N));N1=abs(imag(N));
- if(NN<N1) NN=N1;
- }else NN=abs(N);
- while(NN<1 && NN>-1){
- Pw--;
- N*=10;NN*=10;
- }
- while(N>=10 || N<=-10){
- Pw++;
- N/=10;NN/=10;
- }
- if(Opt==0) return sint(N*10^Pw,P-Pw-1);
- S=(getopt(sqrt)==1)?sint(N,P|str=(Opt==4)?3:1,sqrt=1):sint(N,P|str=(Opt==4)?3:1);
- if(Pw==0) return S;
- if(NT==4)
- S="("+S+")";
- if(Pw==1){
- if(Opt==2)
- return S+"*10";
- else
- return S+"\\times10";
- }
- if(Opt==2)
- return S+"*10^("+rtostr(Pw)+")";
- else
- return S+"\\times10^{"+rtostr(Pw)+"}";
- }
- if(NT==4){
- NN=real(N);
- if(NN!=0){
- S=sint(NN,P|str=1);
- if(imag(N)>0) S=S+"+";
- }
- else S="";
- S=S+sint(imag(N),P|str=1)+((Opt==3)?((getopt(sqrt)==1)?"\\sqrt{-1}":"i"):"@i");
- return S;
- }
- if(N<0){
- N=-N;
- Neg="-";
- }else Neg="";
- N=rint(N*10^P)/10^P;
- NN=floor(N);
- NV=(N-NN+1)*10^P;
- NS=rtostr(NN);
- if(P<=0) return Neg+NS;
- if(NN==0 && getopt(zero)==0) NS="";
- return Neg+NS+"."+str_cut(rtostr(NV),1,P);
- }
- if(NT==4)
- return sint(real(N),P)+sint(imag(N),P)*@i;
- X = rint( N*10^P );
- return deval(X/10^P);
- }
- if( (type(N)==2) || (type(N)==3) ){
- NN = eval(N);
- if( type(NN)==1 )
- return sint(NN,P|option_list=getopt());
- else return N;
- }
- if( type(N)>3 && type(N) < 7)
-#ifdef USEMODULE
- return mtransbys(os_md.sint,N,[P]|option_list=getopt());
-#else
- return mtransbys(sint,N,[P]|option_list=getopt()));
-#endif
- return N;
-}
-
-def frac2n(N)
-{
- if((T=type(N))<0) return N;
- E=(getopt(big)==1)?eval(@e):0.1;
- if(T==1){
- if(ntype(N)==0) return (E*N)/E;
- else if(ntype(N)!=4) return N;
- else return (E*(1+@i)*N)/(E*(1+@i));
- }
- if(T==3||T==2){
- N=red(N);
- Nm=nm(N);Var=vars(Nm);V=car(Var);K=length(Var);
- for(S=0,I=mydeg(Nm,V);I>=0;I--) S+=frac2n(mycoef(Nm,I,V))*V^I;
- return S/dn(N);
- }
- if(T<4) return (E*N)/E;
-#ifdef USEMODULE
- return mtransbys(os_md.frac2n,N,[]|option_list=getopt());
-#else
- return mtransbys(frac2n,N,[]|option_list=getopt());
-#endif
-}
-
-def xyproc(F)
-{
- if(type(Opt=getopt(opt))!=7) Opt="";
- if(type(Env=getopt(env))!=7)
- Env=(!TikZ)?"xy":"tikzpicture";
- if(F==1)
- return(Opt=="")?"\\begin{"+Env+"}\n":"\\begin{"+Env+"}["+Opt+"]\n";
- if(F==0) return "\\end{"+Env+"}\n";
- if(type(F)==7){
- F=xyproc(1|opt=Opt,env=Env)+F+xyproc(0|env=Env);
- if(getopt(dviout)==1) dviout(F);
- else return F;
- }
-}
-
-def xypos(P)
-{
- if(type(P[0])==7){
- if(P[0]=="") S="";
- else S=(!TikZ)?"\""+P[0]+"\"":"("+P[0]+")";
- }
- else{
- if(TikZ==0 && XYcm==1){
- X=sint(P[0]*10,XYPrec); Y=sint(P[1]*10,XYPrec);
- }else{
- X=sint(P[0],XYPrec); Y=sint(P[1],XYPrec);
- }
- S="("+rtostr(X)+","+rtostr(Y)+")";
- }
- if(!TikZ){
- if(length(P)>2 && (PP=P[2])!=""){
- S=S+" *";
- if(type(PP)==4 && length(PP)==2 && type(PP[0])==7){
- S=S+PP[0];
- PP=PP[1];
- }
- if(type(PP)==7){
- L=str_len(PP);
- if(str_chr(PP,0,"$")==0 && str_chr(PP,L-1,"$")==L-1){
- PP=str_cut(PP,1,L-2);
- }else S+="\\txt";
- }
- else PP=my_tex_form(PP);
- S=S+"{"+PP+"}";
- }
- if(length(P)>3){
- if(type(P[3])==7 && P[3]!="") S=S+"=\""+P[3]+"\"";
- if(length(P)>4 && type(P[4])==7) S=S+P[4];
- }
- }else{
- T="";
- if(length(P)>2 && (PP=P[2])!=""){
- F=1;
- if(type(PP)==4){
- if(length(PP)==2 && type(PP[0])==7){
- T="["+PP[0]+"]";
- PP=PP[1];
- }
- }
- if(type(PP)!=7) PP="$"+my_tex_form(PP)+"$";
- S=S+"{"+PP+"}";
- }else F=0;
- if(length(P)>3){
- if(type(P[3])==7 && P[3]!="") T=T+"("+P[3]+")";
- else if(P[3]==1) T=T+"(_)";
- if(length(P)>4 && type(P[4])==7) S=S+P[4];
- }
- if(length(P)>2){
- if(F) S="node"+T+" at"+S;
- else S="coordinate"+T+" at"+S;
- }
- }
- return S;
-}
-
-def xyput(P)
-{
- if((type(Sc=getopt(scale))==1 && Sc!=1) || type(Sc)==4){
- if(type(Sc)==1) Sc=[Sc,Sc];
- Sx=Sc[0];Sy=Sc[1];
- if(length(P)>2)
- P1=cons(Sy*P[1],cdr(cdr(P)));
- else P1=[Sy*P[1]];
- P=cons((type(P[0])==7)?P[0]:(Sx*P[0]),P1);
- }
- if(!TikZ) return "{"+xypos(P)+"};\n";
- return "\\"+xypos(P)+";\n";
-}
-
-def xyline(P,Q)
-{
- if(!TikZ) return "{"+xypos(P)+" \\ar@{-} "+xypos(Q)+"};\n";
- if(type(T=getopt(opt))!=7) T="";
- else T="["+T+"]";
- if(length(P)<3 && length(Q)<3)
- return "\\draw"+T+xypos(P)+"--"+xypos(Q)+";\n";
- if(length(P)==2) P=[P[0],P[1],"","_0"];
- else if(length(P)==3 || (length(P)==4 && P[3]==""))
- P=[P[0],P[1],P[2],"_0"];
- else if(length(P)>4 && P[3]=="")
- P=[P[0],P[1],P[2],"_0",P[4]];
- if(length(Q)==2) Q=[Q[0],Q[1],"","_1"];
- else if(length(Q)==3 || (length(Q)==4 && Q[3]==""))
- Q=[Q[0],Q[1],Q[2],"_1"];
- else if(length(Q)>4 && Q[3]=="")
- Q=[Q[0],Q[1],Q[2],"_1",Q[4]];
- return "\\draw "+T+xypos(P)+" "+xypos(Q)+"("+P[3]+")--("+Q[3]+");\n";
-}
-
-def xylines(P)
-{
-/* mycat([P,getopt()]); */
- Lf=getopt(curve);
- if(type(Lf)!=1) Lf=0;
- SS=getopt(opt);
- SF=(SS==0)?1:0;
- if((Proc=getopt(proc))==1||Proc==2||Proc==3){
- OL=cons(["opt",0],delopt(getopt(),["opt","proc"]));
- R=xylines(P|option_list=OL);
- OP=(type(SS)<0)?[]:((type(SS)==4)?[["opt",SS[0]],["cmd",SS[1]]]:[["opt",SS]]);
- return [1,OP,R];
- }
- if(type(SS)!=7 && type(SS)!=4){
- if(Lf==0 && !TikZ) SS="@{-}";
- else SS="";
- }
- if(type(Sc=getopt(scale))==1 || type(Sc)==4){
- if(type(Sc)==1) Sc=[Sc,Sc];
- Sx=Sc[0];Sy=Sc[1];
- if(Sx!=1 || Sy!=1){
- for(PP=[], P0=P; P0!=[]; P0=cdr(P0)){
- PT=car(P0);
- if((type(PT)!=4 && type(PT)!=5) || (type(PT[0])!=1 && PT[0]!=0))
- PP=cons(PT,PP);
- else{
- if(length(PT)>2 && type(PT)==4)
- P1=cons(Sy*PT[1],cdr(cdr(PT)));
- else P1=[Sy*PT[1]];
- PP=cons(cons(Sx*PT[0],P1),PP);
- }
- }
- P=reverse(PP);
- }
- }
- if(type(Cl=CL0=getopt(close))!=1) Cl=0;
- if((Vb=getopt(verb))!=1&&type(Vb)!=4) Vb=0;
- if(type(Lf)!=1 || Lf==0){ /* lines */
- if(TikZ||SF){
- for(L=[],F=0,PT=P;PT!=[];PT=cdr(PT)){
- if(type(car(PT))<4){
- L=cons(car(PT),L);
- F=0;
- }else{
- if(F++>1) L=cons(1,L);
- L=cons(car(PT),L);
- }
- }
- if(Cl==1){
- L=cons(1,L);L=cons(-1,L);
- }
- if(L) L=reverse(L);
- if(SF) return L;
- if(type(SS)!=4) S=xybezier(L|opt=SS);
- else S=xybezier(L|opt=SS[0],cmd=SS[1]);
-
- }else{
- Out = str_tb(0,0);
- for(PT=P; PT!=[]; ){
- PS1=car(PT);
- PT=cdr(PT);
- if(PT==[]){
- if(Cl==1) PS2=car(P);
- else PS2=0;
- }else PS2=car(PT);
- str_tb(xyarrow(PS1,PS2|opt=SS),Out);
- }
- S=str_tb(0,Out);
- }
- }else if(Lf==2){ /* B-spline */
- if(SF) return P;
- if(!TikZ){
- Out = str_tb("{\\curve{",0);
- for(PT=P;PT!=[];PT=cdr(PT)){
- if(car(PT)==0){
- str_tb("}};\n{\\curve{",Out);
- continue;
- }
- if(PT!=P) str_tb("&",Out);
- str_tb(xypos([car(PT)[0],car(PT)[1]]),Out);
- }
- str_tb("}};\n",Out);
- S=str_tb(0,Out);
- }else Out=str_tb(xybezier(P|opt=SS),0);
- for(I=0;I<2;I++){
- Q=car(P);
- if(length(Q)>2)
- str_tb(xyput(Q),Out);
- P=reverse(P);
- }
- S=str_tb(0,Out);
- }else{ /* extended Bezier */
- RTo=getopt(ratio);
- if(type(Acc=getopt(Acc))!=1) Acc=0;
- if(type(RTo)!=1 || RTo>1.5 || RTo<0.001) RTo=0;
- if(Cl==1){
- PR=reverse(P);
- PT=car(PR);
- PR=cons(P[0],PR);
- PR=cons(P[1],PR);
- P=cons(PT,reverse(PR));
- }else if(Cl==-1) Cl=1;
- for(L=P2=P3=0,PT=P;;){
- P1=P2;P2=P3;P3=P4;
- P4=(PT==[])?0:car(PT);
- if(PT==[] && (Cl==1 || P3==0)) break;
- PT=cdr(PT);
- if(P3==0) str_tb("%\n", Out);
- if(P2==0 || P3==0 || (Cl==1 && P1==0)) continue;
- if(L!=0){
- if(car(L)==P2)
- L=cons(1,L);
- else{
- L=cons(0,L); L=cons(P2,L);
- }
- }else L=[P2];
- X=P3[0]-P2[0];Y=P3[1]-P2[1];
- DL1=DL2=0;DL=Acc?sqrt(X^2+Y^2):dsqrt(X^2+Y^2);
- if(P4!=0){
- XD1=P4[0]-P2[0];YD1=P4[1]-P2[1];DL1=Acc?sqrt(XD1^2+YD1^2):dsqrt(XD1^2+YD1^2);
- }
- if(P1!=0){
- XD2=P3[0]-P1[0];YD2=P3[1]-P1[1];DL2=Acc?sqrt(XD2^2+YD2^2):dsqrt(XD2^2+YD2^2);
- }
- if(RTo!=0)
- R=RTo;
- else if(DL1>0 && DL2>0){
- Cos=(XD1*XD2+YD1*YD2)/(DL1*DL2);
- RT=4/(3*(Acc?sqrt((1+Cos)/2):dsqrt((1+Cos)/2))+3);
- R=DL*RT/(DL1+DL2);
- }else if(DL1!=0)
- R=DL/(2*DL1);
- else if(DL2!=0)
- R=DL/(2*DL2);
- if(DL2!=0) L=cons([P2[0]+R*XD2,P2[1]+R*YD2],L);
- if(DL1!=0) L=cons([P3[0]-R*XD1,P3[1]-R*YD1],L);
- L=cons([P3[0],P3[1]],L);
- }
- if(CL0==1) L=cons(-1,cdr(L));
- if(L!=0) L=reverse(L);
- if(SF) return L;
- if(type(SS)==4)
- S=xybezier(L|opt=SS[0],cmd=SS[1],verb=Vb);
- else
- S=xybezier(L|opt=SS,verb=Vb);
- }
- if(getopt(dviout)!=1) return S;
- xyproc(S|dviout=1);
-}
-
-def saveproc(S,Out)
-{
- if(type(Out)==4){
- Out=cons(S,Out);
- return Out;
- }else{
- str_tb(S,Out);
- return Out;
- }
-}
-
-def xy2graph(F0,N,Lx,Ly,Lz,A,B)
-{
- /* (x,y,z) -> ( -x sin A + y cos A, z cos B - x cos A sin B - y sin A sin B) */
- if((Proc=getopt(proc))==1||Proc==2){
- OPT0=[["proc",3]];
- }else{
- Proc=0;OPT0=[];
- }
- if(type(DV=getopt(dviout))==4){
- S=["ext","shift","cl","dviout"];
- OL=delopt(getopt(),S);
- OL=cons(["proc",1],OL);
- R=xy2graph(F0,N,Lx,Ly,Lz,A,B|option_list=OL);
- OL=delopt(getopt(),S|inv=1);
- return execdraw(R,DV|optilon_list=OL);
- }
- if(N==0 || N>100 || N<-100) N=-16;
- if(N<0){
- N=-N;N1=-1;N2=NN+1;
- }else{
- N1=0;N2=NN=N;
- }
-
- Ratio=Ratio2=1;
- if(type(Sc=Sc0=getopt(scale))!=1 && type(Sc)!=4) Sc=1;
- if(type(Sc)==4){
- Ratio=Sc[1]/Sc[0];
- if(length(Sc)>2) Ratio2=Sc[2]/Sc[0];
- Sc=Sc[0];
- }
- if(type(Vw=getopt(view))!=1) Vw=0;
- if(type(Raw=getopt(raw))!=1) Raw=0;
- if(type(M1=getopt(dev))==1) M2=M1;
- else if(type(M1)==4){
- M2=M1[1];M1=M1[0];
- }else M1=0;
- if(type(M3=getopt(acc))!=1 || (M3<0.5 && M3>100)) M3=1;
- if(M1<=0) M1=16;
- if(M2<=0) M2=16;
- OL=[["para",1],["scale",Sc]];
- if(Raw==1) OL=cons(["raw",1],OL);
- if(type(Prec=getopt(prec))>=0) OL=cons(["prec",Prec],OL);
- L=newvect(4,[[Lx[1],Ly[0]],[Lx[1],Ly[1]],[Lx[0],Ly[1]],[Lx[0],Ly[0]]]);
- Lx=[deval(Lx[0]),deval(Lx[1])];
- Ly=[deval(Ly[0]),deval(Ly[1])];
- Lz=[deval(Lz[0]),deval(Lz[1])];
- A=(A0=A)%360;
- F00=F0;
- if(type(F0)<4){
- FC=f2df(F0);
- if(findin(z,Vars=vars(FC))>=0 && findin(x,Vars)<0 && findin(y,Vars)<0)
- F0=[w,[z,0,x+y*@i],[w,os_md.abs,FC]];
- }
- if(type(Org=getopt(org))==4){ /* shift origin */
- Lx=[Lx[0]-Org[0],Lx[1]-Org[0]];
- Ly=[Ly[0]-Org[1],Ly[1]-Org[1]];
- Lz=[Lz[0]-Org[2],Lz[1]-Org[2]];
- F0=mysubst(F0,[[x,x+Org[0]],[y,y+Org[1]]]);
- if(type(F0)==4){
- F0=cons(F0[0]-Org[2],cdr(F0));
- }
- else F0-=Org[2];
- }else Org=[0,0,0];
- Cpx=getopt(cpx);
- if(type(Cpx)<0){
- if(str_str(rtostr(F0),"@i")>=0) Cpx=1;
- else Cpx=0;
- }
- if(A<0) A+=360;
- if(A<90){
- Sh=1;F1=F0;Cx=x-Org[0];Cy=y-Org[1];
- }else if(A<180){ /* x -> y, y -> -x */
- Sh=2;A-=90; F1=mulsubst(F0,[[x,-y],[y,x]]);
- LL=Ly;Ly=[-Lx[1],-Lx[0]];Lx=LL;Cx=y-Org[1];Cy=-x+Org[0];
- }else if(A<270){
- Sh=3;A-=180; F1=subst(F0,[[x,-x],[y,-y]]);
- Lx=[-Lx[1],-Lx[0]];Ly=[-Ly[1],-Ly[0]];Cx=-x+Org[0];Cy=-y+Org[1];
- }else{
- Sh=4;A-=270;F1=mulsubst(F0,[[x,y],[y,-x]]);
- LL=Lx;Lx=[-Ly[1],-Ly[0]];Ly=LL;Cx=-y+Org[1];Cy=x-Org[0];
- }
- A=@pi*A/180; B=@pi*B/180;
- if(A==0) A=@pi/3;
- if(B==0) B=@pi/12;
- NN=N*M2;
- Ac=dcos(deval(A)); As=dsin(deval(A));
- if(Ac<=0.087 || As<=0.087){
- mycat(["Unsuitable angle",A0,"(6-th argument)!"]);
- return -1;
- }
- Bc=Ratio*dcos(deval(B)); Bs=dsin(deval(B));
- if(Bc<0){
- mycat("Unsuitable angle (7-th argument)!");
- return -1;
- }
- /*
- z = f(x,y) => X=-As*x+Ac*y, Y= Bc*f(x,y)-Bsc*x-Bss*y
- Out X-coord is in [X0,X1], dvided by Dev segments
- J-th segment of Y-coord : ZF[J]==1 => [Z0[0],Z1[J]]
- */
- Bsc=Bs*Ac;Bss=Bs*As;
- if(Ratio2!=1){
- if(Sh%2==1){
- Ac*=Ratio2;Bss*=Ratio2;
- }else{
- As*=Ratio2;Bsc*=Ratio2;
- }
- }
- CX=-As*Cx+Ac*Cy;CY=Bc*(z-Org[2])-Bsc*Cx-Bss*Cy;
- if(type(Dvi=getopt(dviout))!=1 && getopt(trans)==1) return [CX*Sc,CY*Sc];
- if(type(N1=getopt(inf))==1){
- if(Proc) Dvi=N1;
- else if(Dvi<=0) Dvi=-N1;
- }
- X0=-As*Lx[1]+Ac*Ly[0];X1=-As*Lx[0]+Ac*Ly[1];
- F1=mysubst(F1,[@pi,deval(@pi)]);
- Tf=type(F1=f2df(F1|opt=0));
- if(Tf!=4) F=Bc*F1-Bsc*x-Bss*y;
- else F=append([Bc*F1[0]-Bsc*x-Bss*y],cdr(F1));
- Dx=(Lx[1]-Lx[0])/NN; Dy=(Ly[1]-Ly[0])/NN;
- if(type(Err=getopt(err))==1)
- F=mysubst(F,[[x,x+Err*Dx/1011.23],[y,y+Err*Dy/1101.34]]);
- Out=(Proc)?[]:str_tb(0,0);
- Dev=N*M1;
- XD=(X1-X0)/Dev;
- OLV=newvect(2,[OL,OL]);
- if(type(Ura=getopt(opt))==4 || type(Ura)==7){
- if(type(Ura)==7) Ura=[Ura,Ura];
- else{
- OLV[0]=cons(["opt",Ura[0]],OL);
- OLV[1]=cons(["opt",Ura[1]],OL);
- }
- }
- for(KC=0; KC<=1; KC++){ /* draw curves */
- Z0=newvect(Dev+1); Z1=newvect(Dev+1); ZF=newvect(Dev+1);
- for(I=0; I<=NN; I++){
- FV=I%M2;
- if(KC==0){
- X=x; Y=Ly[1]-I*Dy; LX=Lx; DD=Dx; G=mysubst(F,[y,Y]);
- if(!FV){
- if(!Proc) str_tb(["%y=",rtostr(Y),"\n"],Out);
- else Out=cons([-2,"y="+rtostr(Y)],Out);
- }
- }else{
- X=Lx[1]-I*Dx; Y=x; LX=Ly; DD=Dy; G=mysubst(F,[[x,X],[y,Y]]);
- if(!FV){
- if(!Proc) str_tb(["%x=",rtostr(X),"\n"],Out);
- else Out=cons([-2,"x="+rtostr(X)],Out);
- }
- }
- XX=-As*X+Ac*Y; A1=coef(XX,1,x); A0=coef(XX,0,x); /* XX = A1*x + A0, x = (XX-A0)/A1 */
- if(!FV && Vw==1){
- if(Proc) Out=cons(xygraph([XX,G],N,LX,[X0,X1],Lz|scale=Sc,para=1,proc=3),Out);
- else str_tb(xygraph([XX,G],N,LX,[X0,X1],Lz|scale=Sc,para=1),Out);
- continue;
- }
- V=VT=LX[1];
- J0=(subst(XX,x,LX[0])-X0)/XD; J1=(subst(XX,x,LX[1])-X0)/XD;
- if(J0<J1){
- J0=ceil(J0); J1=floor(J1); JD=1; /* fixed x: y: dec => (x,z):(dec,inc) */
- }else{
- J0=floor(J0); J1=ceil(J1); JD=-1; /* fixed y: x: dec => (x,z):(inc,inc) */
- }
- for(FF=1,J=J1;;J-=JD){
- V1=VT;
- VT=(X0+J*XD-A0)/A1;GG=mysubst(G,[x,VT]);
- if(Cpx>=1) VV=myeval(GG);
- else VV=(Tf==4)? mydeval(GG):deval(GG); /* J -> V */
- if(ZF[J]==0 || VV<=Z0[J] || VV>=Z1[J]){ /* visible */
- if(FF==0){
- V0=(VT+V1)/2;
- if(!FV && Vw==-1 && Raw!=1){ /* draw doted line */
- K=ceil(M3*(V-V0)/(M2*DD));
- if(N1<0) K=-K;
- OPT=append(OPT0,[["opt",(TikZ)?"dotted":"~*=<3pt>{.}"],["scale",Sc],["para",1]]);
- Out=saveproc(xygraph([XX,G],K,[V0,V],[X0-1,X1+1],Lz|
- option_list=OPT),Out);
- }
- V=V0;
- }
- if(ZF[J]==0){
- ZF[J]=1; Z0[J]=Z1[J]=VV;
- }else if(VV<=Z0[J]) Z0[J]=VV;
- else Z1[J]=VV;
-
- if(VV>=Z1[J]) FF=1;
- else if(VV<=Z0[J]) FF=-1;
- }else{
- if(FF!=0){
- V0=(VT+V1)/2;
- K=ceil(M3*(V-V0)/(M2*DD));
- if(N1<0) K=-K;
- if(!FV){
- OPT=append(OPT0,OLV[(1-FF)/2]);
- Out=saveproc(xygraph([XX,G],K,[V0,V],[X0-1,X1+1],Lz|option_list=OPT),Out);
- }
- V=V0;
- }
- FF=0;
- }
- if(J==J0) break;
- }
- if(FV) continue;
- V0=LX[0];K=ceil(M3*(V-V0)/(M2*DD));
- if(N1<0) K=-K;
- if(FF!=0){
- if(Raw!=1){
- OPT=append(OPT0,OLV[(1-FF)/2]);
- Out=saveproc(xygraph([XX,G],K,[V0,V],[X0-1,X1+1],Lz|option_list=OPT),Out);
- }else if(Vw==-1 && Raw!=1){
- OPT=append(OPT0,[["opt",(TikZ)?"dotted":"~*=<3pt>{.}"]]);
- Out=saveproc(xygraph([XX,G],K,[V0,V],[X0-1,X1+1],Lz|option_list=OPT),Out);
- }
- }
- }
- }
- OptSc=(Sc==1)?[]:[["scale",Sc]];
- if(type(LZ=getopt(ax))==4){ /* draw box */
- FC=0;
- if(length(LZ)==3) FC=LZ[2];
- P0=newvect(2,[-As*Lx[1]+Ac*Ly[1],Bc*(LZ[0]-Org[0])-Bsc*Lx[1]-Bss*Ly[1]]);
- Vx=newvect(2,[As*(Lx[1]-Lx[0]),Bsc*(Lx[1]-Lx[0])]);
- Vy=newvect(2,[Ac*(Ly[0]-Ly[1]),Bss*(Ly[1]-Ly[0])]);
- Vz=newvect(2,[0,Bc*(LZ[1]-LZ[0])]);
- OL=OL0=append(OPT0,OL);
- if(TikZ && type(Ura)==4 && length(Ura)>2) OL0=cons(["opt",Ura[2]],OL);
- LL=[[P0+Vz,P0+Vx+Vz],[P0,P0+Vx]];
- if(Bs>0){
- LL=cons([P0+Vy+Vz,Pz=P0+Vx+Vy+Vz],LL);
- LL=cons([P0+Vx+Vz,Pz],LL);
- PP=Pz-Vz;
- }
- else{
- LL=cons([P0+Vy,Pz=P0+Vx+Vy+Vz],LL);
- LL=cons([P0+Vx,Pz],LL);
- PP=Pz+Vz;
- }
- J=ceil((PP[0]-X0)/XD+0.5);
- LL=append([[P0+Vy,P0+Vy+Vz],[P0+Vy,P0+Vy+Vz],[P0+Vx,P0+Vx+Vz],[P0,P0+Vz],
- [P0+Vz,P0+Vy+Vz],[P0,P0+Vy]],LL);
- for(LL=reverse(LL);LL!=[];LL=cdr(LL)) Out=saveproc(xylines(car(LL)|option_list=OL0),Out);
- if(Dev>4) Dev2=ceil(Dev/2);
- if(FC<0 && Raw!=1){
- if(TikZ){
- if(type(Ura)==4 && length(Ura)>2)
- OL1=cons(["opt",Ura[2]+",dotted"],OL);
- else OL1=cons(["opt","dotted"],OL);
- }else OL1=cons(["opt","@{.}"],OL);
- if(FC==-8) FC=0;
- }
- for(I=0;I<3;I++){ /* box with hidden part */
- if(I==1) Pz=PP-Vx;
- else if(I==2) Pz=PP-Vy;
- LP=Pz-PP;
- for(FV=-1,K=0;K<=Dev2; K++){
- PPx=PP[0]+(K/Dev2)*LP[0]; PPy=PP[1]+(K/Dev2)*LP[1];
- J=ceil((PPx-X0)/XD);
- if(K!=Dev2 && (J<0||J>Dev)) continue;
- if(K!=Dev2 && (ZF[J]==0 || PPy<Z0[J] || PPy>Z1[J])){ /* visible */
- if(FV!=1){
- FV=1;
- PPP=[PPx,PPy];
- }
- }else{
- if(FV!=0){
- if(FV==1) Out=saveproc(xylines([PPP,[PPx,PPy]]|option_list=OL1),Out);
- FV=0;
- }
- }
- }
- }
- if(FC!=0 && Raw!=1){ /* show coordinate*/
- if(iand(FC,4)){
- Sub=1;
- if(TikZ){
- S0="\\scriptsize";S1="";
- }else{
- S0="{}_{"; S1="}";
- }
- }else Sub=0;
- if(iand(FC,2))
- LLL=[[1,0,P0+Vx,(TikZ)?"right":"+!L"],[3,0,P0+Vy,(TikZ)?"left":"+!R"]];
- else LL=[];
- if(Bs>0){
- LLL=cons([0,0,P0,(TikZ)?"below":"+!U"],LLL);
- LLL=cons([2,1,P0+Vx+Vy+Vz,(TikZ)?"above":"+!D"],LLL);
- }else{
- LLL=cons([2,0,P0+Vx+Vy,(TikZ)?"below":"+!U"],LLL);
- LLL=cons([0,1,P0+Vz,(TikZ)?"above":"+!D"],LLL);
- }
- for(TLL=LLL;TLL!=[];TLL=cdr(TLL)){
- TL=car(TLL);LL=L[(Sh+TL[0])%4];
- if(Cpx==0 || Cpx==3){
- S=ltotex([LL[0],LL[1],LZ[TL[1]]]|opt="coord");
- SS="("+rtostr(LL[0]) +","+rtostr(LL[1])+","+rtostr(LZ[TL[1]])+")";
- }else{
- S=ltotex([LL[0]+LL[1]*@i,LZ[TL[1]]]|opt="coord",cpx=Cpx);
- SS="("+rtostr(LL[0])+"+"+rtostr(LL[1])+"i,"+ rtostr(LZ[TL[1]])+")";
- }
- if(TikZ) S="$"+S+"$";
- if(Sub) S=S0+S+S1;
- if(!TikZ) S="$"+S+"$";
- if(Proc) Out=cons([2,OptSc,[TL[2][0],TL[2][1]],[[TL[3],S]],SS],Out);
- else str_tb(xyput([TL[2][0],TL[2][1],[TL[3],S]]|option_list=OptSc),Out);
- }
- }
- }
- if(type(Pt=getopt(pt))==4){ /* option pt=[] */
- if(type(Pt[0])<4) Pt=[[Pt]];
- if(length(Pt)>1&&type(Pt[1])!=4) Pt=[Pt];
- for(PT=Pt;PT!=[];PT=cdr(PT)){
- PP=car(PT);
- if(type(PP)==4 && length(PP)==3 && type(PP[0])<2 && type(PP[2])<2) PP=[PP];
- P=car(PP);
- if(type(P)==7) Q=[P,0];
- else if(P==1) Q=["_",0];
- else Q=mysubst([CX,CY],[[x,deval(P[0])],[y,deval(P[1])],[z,deval(P[2])]]);
- if(length(PP)>1 && type(PP[1])==4 && length(PP[1])==3){ /* draw line */
- PP=cdr(PP);P=car(PP);
- if(type(P)==7) Q1=P;
- else if(P==1) Q="_";
- else Q1=mysubst([CX,CY],[[x,deval(P[0])],[y,deval(P[1])],[z,deval(P[2])]]);
- if(length(PP)<2 || PP[1]==0 || iand(PP[1],1)) OL2="";
- else OL2=(TikZ)?"dotted":"@{.}";
- if(length(PP)>2 && type(PP[2])==7){
- if(OL2=="") OL2=PP[2];
- else{
- if(TikZ) OL2=OL2+",";
- OL2=OL2+PP[2];
- }
- }
- OL1=OL;
- if(OL2!="") OL1=cons(["opt",OL2],OL1);
- if(length(PP)<2 || PP[1]>=0)
- Out=saveproc(xylines([Q,Q1]|option_list=OL1),Out);
- else{
- LP0=Q1[0]-Q[0];LP1=Q1[1]-Q[1];
- for(FV=-1,K=0;K<=Dev2; K++){
- PPx=Q[0]+(K/Dev2)*LP0; PPy=Q[1]+(K/Dev2)*LP1;
- J=ceil((PPx-X0)/XD);
- if(K!=Dev2 && (J<0 || J>Dev || ZF[J]==0 || PPy<Z0[J] || PPy>Z1[J])){
- /* visible */
- if(FV!=1){
- FV=1;
- PPP=[PPx,PPy];
- }
- }else{
- if(FV!=0){
- if(FV==1) Out=saveproc(xylines([PPP,[PPx,PPy]]|option_list=OL1),Out);
- FV=0;
- }
- }
- }
- }
- continue;
- }
- if(length(PP)==1) S="$\\bullet$";
- else if(type(PP[1])==7) S=PP[1];
- else if(type(PP[1])==4){
- if(length(PP[1])>1 && type(PP[1][1])!=7)
- S=cons(car(PP),cons("$\\bullet$",cdr(cdr(PP))));
- else S=PP[1];
- }else S="$\\bullet$";
- if(length(PP)<=2){
- if(Proc) Out=cons([2,OptSc,[Q[0],Q[1]],[S]],Out);
- else str_tb(xyput([Q[0],Q[1],S]|option_list=OptSc),Out);
- }else if(!TikZ){
- if(Proc) Out=cons([2,OptSc,[Q[0],Q[1]],[S,"",PP[2]]],Out);
- else str_tb(xyput([Q[0],Q[1],S,"",PP[2]]|option_list=OptSc),Out);
- }else{
- if(Proc) Out=cons([2,OptSc,[Q[0],Q[1]],cons(S,cdr(cdr(PP)))],Out);
- else str_tb(xyput(append([Q[0],Q[1],S],cdr(cdr(PP)))|option_list=OptSc),Out);
- }
- }
- }
- if(Proc){
- S=reverse(Out);
- if(Proc==1||Proc==3){
- for(W=[],I=0;I<2;I++) for(J=0;J<2;J++) for(K=0;K<2;K++)
- W=cons(mysubst([CX*Sc,CY*Sc],[[x,Lx[I]],[y,Ly[J]],[z,Lz[K]]]),W);
- W=ptbbox(W);
- S=cons([0,W[0],W[1],(TikZ)?1:1/10],S);
- }
- }else S=str_tb(0,Out);
- if(type(Dvi)!=1||(Proc&&abs(Dvi)<2)) return S;
- Lout=[];
- if(abs(Dvi)>=2){
- /* show title */
- L0=[];
- Title=getopt(title);
- if(type(Title)!=7)
- Title=(type(F00)==4)?("\\texttt{"+verb_tex_form(F00)+"}"):my_tex_form(F00);
- if(type(Title)==7){
- T=my_tex_form(L[3][0])+"\\le x\\le "+my_tex_form(L[1][0])+",\\,"+
- my_tex_form(L[3][1])+"\\le y\\le "+my_tex_form(L[1][1])+")";
- if(Proc){
- if(Cpx>=1) L0=[[5,[["eq",1]],"|"+Title+"|\\quad(z=x+yi,\\ "+T]];
- else L0=[[5,[["eq",1]],"z="+Title+"\\ \\ ("+T]];
- }else{
- if(Cpx>=1) dviout("|"+Title+"|\\quad(z=x+yi,\\ "+T|eq=1,keep=1);
- else dviout("z="+Title+"\\ \\ ("+T|eq=1,keep=1);
- }
- }
- A=rint(deval(180*A/@pi))+90*(Sh-1);
- if(A>=180) A-=180;
- B=rint(deval(180*B/@pi));
- if(abs(Dvi)>=3){
- T="\\text{angle } ("+my_tex_form(A)+"^\\circ,"+my_tex_form(B)+"^\\circ)";
- if(Ratio!=1 || Ratio2!=1) T=T+"\\quad\\text{ratio }1:"
- +my_tex_form(sint(Ratio2,2))+":"+my_tex_form(sint(Ratio,2));
- if(Proc) L0=cons([5,[["eq",1]],T],L0);
- else dviout(T|eq=1,keep=1);
- }
- SS="% range "+rtostr([L[3][0],L[1][0]])+"x"+rtostr([L[3][1],L[1][1]])+
- " angle ("+ rtostr(A) +","+ rtostr(B)+") dev=";
- if(M1==M2) SS=SS+rtostr(M1);
- else SS=SS+rtostr([M1,M2]);
- if(M3!=1) SS=SS+" acc="+rtostr(M3);
- if(type(Sc0)>=0) SS=SS+" scale="+rtostr(Sc0);
- if(Proc){
- S=cons([5,[],SS],S);
- for(;L0!=[];L0=cdr(L0)) S=cons(car(L0),S);
- return S;
- }
- if(Dvi>0){
- dviout(SS|keep=1);
- dviout(xyproc(S)|eq=8);
- }else Lout=[SS,S];
- }else{
- if(Dvi>0) dviout(xyproc(S));
- else Lout=[S];
- }
- if(getopt(trans)==1) return cons([CX*Sc,CY*Sc],Lout);
- if(Dvi<0) return Lout;
-}
-
-def fouriers(A,B,X)
-{
- if(A!=[]&&type(car(A))>1){
- for(C=[],I=A[1];I>=0;I--) C=cons(myfeval(car(A),I),C);
- A=C;
- }
- if(B!=[]&&type(car(B))>1){
- for(C=[],I=B[1];I>0;I--) C=cons(myfeval(car(B),I),C);
- B=C;
- }
- R=0;
- if(getopt(cpx)==1){
- if(type(X=eval(X))>1) return todf([os_md.fouriers,[["cpx",1]]],[[A],[B],[X]]);
- V=dexp(@i*X);
- for(C=A,P=1,I=0;C!=[];C=cdr(C),I++){
- R+=car(C)*P;
- P*=V;
- }
- V=dexp(-@i*X);
- for(C=B,P=1,I=0;C!=[];C=cdr(C),I++){
- P*=V;
- R+=car(C)*P;
- }
- return R;
- }
- if(type(X=eval(X))>1) return todf(os_md.fouriers,[[A],[B],[X]]);
- for(C=A,I=0;C!=[];C=cdr(C),I++)
- R+=car(C)*mycos(I*X);
- for(C=B,I=1;C!=[];C=cdr(C),I++)
- R+=car(C)*mysin(I*X);
- return R;
-}
-
-
-def myexp(Z)
-{
- if(type(Z=eval(Z))>1) return todf(os_md.myexp,[Z]);
- if((Im=imag(Z))==0) return dexp(Z);
- return dexp(real(Z))*(dcos(Im)+@i*dsin(Im));
-}
-
-def mycos(Z)
-{
- if(type(Z=eval(Z))>1) return todf(os_md.mycos,[Z]);
- if((Im=imag(Z))==0) return dcos(Z);
- V=myexp(Z*@i);
- return (V+1/V)/2;
-}
-
-def mysin(Z)
-{
- if(type(Z=eval(Z))>1) return todf(os_md.mysin,[Z]);
- if((Im=imag(Z))==0) return dsin(Z);
- V=myexp(Z*@i);
- return (1/V-V)*@i/2;
-}
-
-def mytan(Z)
-{
- if(type(Z=eval(Z))>1) return todf(os_md.mytan,[Z]);
- if((Im=imag(Z))==0) return dtan(Z);
- V=myexp(2*Z*@i);
- return @i*(1-V)/(1+V);
-}
-
-def mylog(Z)
-{
- if(type(Z=eval(Z))>1) return todf(os_md.mylog,[Z]);
- if((Im=imag(Z))==0) return dlog(Z);
- return dlog(dabs(Z))+@i*myarg(Z);
-}
-
-def mypow(Z,R)
-{
- if(type(Z=eval(Z))>1||type(R=eval(R))>1) return todf(os_md.mypow,[Z,R]);
- if(Z==0) return 0;
- if(isint(2*R)){
- if(R==0) return 1;
- if(isint(R)) return Z^R;
- V=dsqrt(Z);
- if(R==1/2) return V;
- return Z^(R-1/2)*V;
- }
- return myexp(R*mylog(Z));
-}
-
-def myarg(Z)
-{
- if(type(Z=map(eval,Z))==4){
- if(length(Z)!=2) return todf(os_md.myarg,[Z]);
- Re=Z[0];Im=Z[1];
- }else if(type(Z)>1){
- return todf(os_md.myarg,[Z]);
- }else {
- Im=imag(Z);Re=real(Z);
- }
- if(Re==0) return (Im<0)?-deval(@pi)/2:deval(@pi)/2;
- V=datan(Im/Re);
- if(Re>0) return V;
- return (V>0)?(V-deval(@pi)):(V+deval(@pi));
-}
-
-def myatan(Z)
-{
- if(type(Z=eval(Z))>1) return todf(os_md.myatan,[Z]);
- if((Im=imag(Z))==0) return datan(Z);
- mylog((1-Z*@i)/(1+Z*@i))*@i/2;
-}
-
-def myasin(Z)
-{
- if(type(Z=eval(Z))>1) return todf(os_md.myasin,[Z]);
- return deval(@pi/2)-myacos(Z);
-}
-
-def frac(X)
-{
- if(type(X=eval(X))>1) return todf(os_md.frac,[X]);
- return (ntype(X)==3)? pari(frac,X):(X-floor(X));
-}
-
-def myacos(Z)
-{
- if(type(Z=eval(Z))>1) return todf(os_md.myacos,[Z]);
- if(imag(Z)==0 && Z<=1 && Z>=-1) return dacos(Z);
- return mylog(Z-dsqrt(Z^2-1))*@i;
-}
-
-def arg(Z)
-{
- if(vars(Z=map(eval,Z))!=[]) return todf(os_md.arg,[Z]);
- return (type(Z)==4)?pari(arg,Z[0],Z[1]):arg(sqrt,Z);
-}
-
-def sqrt(Z){
- if(vars(Z=map(eval,Z))!=[]) return todf(os_md.sqrt,[Z]);
- R=(type(Z)==4)?Z[1]:Z;
- if(ntype(R)==0){
- if(R==0) return 0;
- if(R>0){
- if(pari(issquare,R)) return pari(isqrt,nm(R))/pari(isqrt,dn(R));
- }else{
- R=-R;
- if(pari(issquare,R)) return pari(isqrt,nm(R))/pari(isqrt,dn(R))*@i;
- }
- }
- return (type(Z)==4)?pari(sqrt,Z[0],Z[1]):pari(sqrt,Z);
-}
-
-def gamma(Z)
-{
- if(vars(Z=map(eval,Z))!=[]) return todf(os_md.gamma,[Z]);
- return (type(Z)==4)?pari(gamma,Z[0],Z[1]):pari(gamma,Z);
-}
-
-def lngamma(Z)
-{
- if(vars(Z=map(eval,Z))!=[]) return todf(os_md.lngamma,[Z]);
- return (type(Z)==4)?pari(lngamma,Z[0],Z[1]):pari(lngamma,Z);
-}
-
-def digamma(Z)
-{
- if(vars(Z=map(eval,Z))!=[]) return todf(os_md.digamma,[Z]);
- return (type(Z)==4)?pari(digamma,Z[0],Z[1]):pari(digamma,Z);
-}
-
-def dilog(Z)
-{
- if(vars(Z=map(eval,Z))!=[]) return todf(os_md.dilog,[Z]);
- return (type(Z)==4)?pari(dilog,Z[0],Z[1]):pari(dilog,Z);
-}
-
-def erfc(Z)
-{
- if(vars(Z=map(eval,Z))!=[]) return todf(os_md.erfc,[Z]);
- return (type(Z)==4)?pari(erfc,Z[0],Z[1]):pari(erfc,Z);
-}
-
-def zeta(Z)
-{
- if(vars(Z=map(eval,Z))!=[]) return todf(os_md.zeta,[Z]);
- return (type(Z)==4)?pari(zeta,Z[0],Z[1]):pari(zeta,Z);
-}
-
-def eta(Z)
-{
- if(vars(Z=map(eval,Z))!=[]) return todf(os_md.eta,[Z]);
- return (type(Z)==4)?pari(eta,Z[0],Z[1]):pari(eta,Z);
-}
-
-def jell(Z)
-{
- if(vars(Z=map(eval,V))>1) return todf(os_md.jell,[Z]);
- return (type(Z)==4)?pari(jell,Z[0],Z[1]):jell(jell,Z);
-}
-
-def evals(F)
-{
- if(type(F)==7){
- if(type(Del=getopt(del))!= 7) return eval_str(F);
- S=strtoascii(Del);K=length(S);
- if(K==0) return [eval_str(F)];
- Raw=getopt(raw);
- F=strtoascii(F);L=[];T1=0;
- do{
- T2=str_str(F,S|top=T1);
- if(T2<0) T2=10000;
- FT=str_cut(F,T1,T2-1);
- L=cons((Raw==1)?FT:evals(FT),L);
- T1=T2+K;
- }while(T2!=10000);
- return reverse(L);
- }
- if(type(F)==4){
- if(type(S=car(F))==7){
- S+="(";
- for(I=0,FT=cdr(F); FT!=[]; I++,FT=cdr(FT)){
- if(type(ST=car(FT))!=7) ST=rtostr(ST);
- if(I>0) S=S+","+ST;
- else S=S+ST;
- }
- S=S+")";
- return eval_str(S);
- }else return call(S,cdr(F));
- }
- return F;
-}
-
-def myval(F)
-{
- if(type(F)!=4){
- F=f2df(sqrt2rat(F));
- if(type(F)!=4) return F;
- };
- if(length(F)==1) V=car(F);
- else for(V=car(F),F=cdr(F); F!=[];){
- FT=car(F);
- if(type(G=FT[1])==2){
- if(length(FT)>2){
- FT2=myval(FT[2]);
- if(length(FT)>3) FT3=myval(FT[3]);
- };
- X=red(FT2/@pi);Vi=-red(FT2*@i/@pi);W=red(FT2/@e);
- if(G==os_md.mypow && FT3==1/2){
- G=os_md.sqrt;
- FT=[FT[0],G,FT[2]];
- }
- if((T=findin(G,
- [sin,os_md.mysin,cos,os_md.mycos,tan,os_md.mytan]))>=0
- &&(isint(6*X)||isint(4*X))){
- if(T==2||T==3){
- T=0;X=1/2-X;
- }
- X=X-floor(X/2)*2;
- if(T==0||T==1){
- if(X>1){
- S=-1;X-=1;
- }else S=1;
- if(X>1/2) X=1-X;
- if(X==0) R=0;
- else if(X==1/6) R=1/2;
- else if(X==1/4) R=2^(1/2)/2;
- else if(X==1/3) R=3^(1/2)/2;
- else R=1;
- R*=S;
- }else{
- if(X>1) X-=1;
- if(X>1/2){
- S=-1;V=1-X;
- }else S=1;
- if(X==0) R=0;
- else if(X==1/6) R=3^(1/2)/3;
- else if(X==1/4) R=1;
- else if(X==1/3) R=3^(1/2);
- else R=2^512;
- R*=S;
- }
- }else if((G==exp||G==os_md.myexp)&&(isint(FT2)||isint(6*Vi)||isint(4*Vi))){
- if(isint(FT2)) R=@e^FT2;
- else R=myval([z+w*@i,[z,cos,Vi*@pi],[w,sin,Vi*@pi]]);
- }else if((G==pow||G==os_md.mypow) && (isint(FT3)||FT2==1||FT2==0)){
- if(FT2==0) R=0;
- else if(FT2==1) R=1;
- else R=FT2^FT3;
- }else if(G==os_md.abs&&ntype(P=eval(FT2))<4){
- R=FT2;
- if(P<0) R=-R;
- }else if((G==os_md.sqrt||G==dsqrt)&&type(FT2)<2&&ntype(FT2)==0)
- R=sqrtrat(FT2);
- else if((G==os_md.mylog||G==dlog)&&(FT2==@e||FT2==1))
- R=(FT2==1)?0:1;
- else if(length(FT)==3) R=eval((*G)(myeval(FT2)));
-#ifdef USEMODULE
- else R=call(G,map(os_md.myeval,cdr(cdr(FT))));
-#else
- else R=call(G,map(myeval,cdr(cdr(FT))));
-#endif
- }
- else if(G==0) R=FT[2];
-#ifdef USEMODULE
- else R=eval(call(G[0],map(os_md.myeval,cdr(cdr(FT)))|option_list=G[1]));
-#else
- else R=eval(call(G[0],map(myeval,cdr(cdr(FT)))|option_list=G[1]));
-#endif
- V=mysubst(V,[FT[0],R]);
- F=mysubst(cdr(F),[FT[0],R]);
- }
- if(type(V)<4 && !iscoef(V,os_md.iscrat)) V=eval(V);
-#if 0
- return (type(V)<4)?myeval(V):mtransbys(os_md.myeval,V,[]);
-#else
- return V;
-#endif
-}
-
-/* -1:空 0:整数 1:有理数 2:Gauss整数 3:Gauss有理数 4:それ以外の複素数 */
-/* def vntype(F)
-{
- if((T=type(F))<2){
- if(T<0) return -1;
- if((Tn=ntype(F))==0){
- return (isint(F))?0:1;
- }
- if(Tn==4){
- if(ntype(real(F))==0&&ntype(real(F))==0)
- return (isint(F)&&isint(F))?2:3;
- return 4;
- }
- }
- if(T==2){
- V=vars(F);
- if((VV=lsort(V,[@e,@pi],1))==[]){
- FT=mycoef(
- }else{
- if(length(VV)==1){
- }else
- }
- }else if(T==3){
-
- }
-}
-*/
-
-
-def myeval(F)
-{
- if(type(F)!=4) V=F;
- else if(length(F)==1) V=car(F);
- else for(V=car(F),F=cdr(F); F!=[];){
- FT=car(F);
- if(type(G=FT[1])==2){
- if(length(FT)==3) R=(*G)(myeval(FT[2]));
-#ifdef USEMODULE
- else R=call(G,map(os_md.myeval,cdr(cdr(FT))));
-#else
- else R=call(G,map(myeval,cdr(cdr(FT))));
-#endif
- }
- else if(G==0) R=myeval(FT[2]);
-#ifdef USEMODULE
- else R=call(G[0],map(os_md.myeval,cdr(cdr(FT)))|option_list=G[1]);
-#else
- else R=call(G[0],map(myeval,cdr(cdr(FT)))|option_list=G[1]);
-#endif
- V=mysubst(V,[FT[0],R]);
- F=mysubst(cdr(F),[FT[0],R]);
- }
- return (type(V)<4)?eval(V):mtransbys(eval,V,[]);
-}
-
-def mydeval(F)
-{
- if(type(F)!=4) V=F;
- else if(length(F)==1) V=car(F);
- else for(V=car(F),F=cdr(F); F!=[]; ){
- FT=car(F);
- if(type(G=FT[1])==2){
- if(length(FT)==3) R=(*G)(myeval(FT[2]));
-#ifdef USEMODULE
- else R=call(G,map(os_md.mydeval,cdr(cdr(FT))));
-#else
- else R=call(G,map(mydeval,cdr(cdr(FT))));
-#endif
- }
- else if(G==0) R=mydeval(FT[2]);
-#ifdef USEMODULE
- else R=call(G[0],map(os_md.mydeval,cdr(cdr(FT)))|option_list=G[1]);
-#else
- else R=call(G[0],map(mydeval,cdr(cdr(FT)))|option_list=G[1]);
-#endif
- V=mysubst(V,[FT[0],R]);
- F=mysubst(cdr(F),[FT[0],R]);
- }
- return (type(V)<4)?deval(V):mtransbys(deval,V,[]);
-}
-
-def myfeval(F,X)
-{
- if(type(X)==4){
- if(isvar(X[0])&&length(X)==2)
- return mydeval(mysubst(F,[X[0],X[1]]));
- if(type(X[0])==4&&isvar(X[0][0])&&length(X[0])==2){
- for(Y=X;Y!=[];Y=cdr(Y))
- F=mysubst(F,[car(Y)[0],car(Y)[1]]);
- return myeval(F);
- }
- }
- return myeval(mysubst(F,[x,X]));
-}
-
-def myf2eval(F,X,Y)
-{
- return myeval(mysubst(F,[[x,X],[y,Y]]));
-}
-
-def myf3eval(F,X,Y,Z)
-{
- return myeval(mysubst(F,[[x,X],[y,Y],[z,Z]]));
-}
-
-def myfdeval(F,X)
-{
- if(type(X)==4){
- if(isvar(X[0])&&length(X)==2)
- return mydeval(mysubst(F,[X[0],X[1]]));
- if(type(X[0])==4&&isvar(X[0][0])&&length(X[0])==2){
- for(Y=X;Y!=[];Y=cdr(Y))
- F=mysubst(F,[car(Y)[0],car(Y)[1]]);
- return mydeval(F);
- }
- }
- return mydeval(mysubst(F,[x,X]));
-}
-
-def myf2deval(F,X,Y)
-{
- return mydeval(mysubst(F,[[x,X],[y,Y]]));
-}
-
-def myf3deval(F,X,Y,Z)
-{
- return mydeval(mysubst(F,[[x,X],[y,Y],[z,Z]]));
-}
-
-def df2big(F)
-{
- AG=[[os_md.mysin,sin],[os_md.mycos,cos],[os_md.mytan,tan],[os_md.myasin,asin],
- [os_md.acos,acos],[os_md,atan,atan],[os_md.myexp,exp],[os_md.mylog,log],[os_md.mypow,pow]];
- if(getopt(inv)!=1) return mysubst(F,AG);
- else return mysubst(F,AG|inv=1);
-
-}
-
-def f2df(F)
-{
- if(type(Opt=getopt(opt))!=1) Opt=0;
- if(iand(Opt,1)){
- if(Opt>0) F=map(eval,F);
- else F=map(deval,F);
- }
- Cpx=getopt(cpx);
- if(type(F)==4 && iand(Opt,2)==0) return F;
- K=getopt(level);
- if(type(K)!=1) K=0;
- AG=[sin,cos,tan,asin,acos,atan,exp,sinh,cosh,tanh,log,pow];
- AGd=[os_md.mysin,os_md.mycos,os_md.mytan,os_md.myasin,os_md.myacos,
- os_md.myatan,os_md.myexp,os_md.myexp,os_md.myexp,os_md.myexp,
- os_md.mylog,os_md.sqrt,os_md.myexp];
- for(R=[],I=0,Arg=vars(F);Arg!=[];Arg=cdr(Arg)){
- Fn=functor(car(Arg));
- if(vtype(Fn)!=3) continue;
- V=args(car(Arg));
- for(PAG=AG,PAGd=AGd;PAG!=[];PAG=cdr(PAG),PAGd=cdr(PAGd)){
- if(Fn==car(PAG)){
- if(K==0) L="z__";
- else L="z"+rtostr(K)+"__";
- if(I==0) VC=makev([L]);
- else VC=makev([L,I]);
- I++;
- VC0=VC;
- if(Fn==sinh || Fn==cosh || Fn==tanh){
- VC=makev([L,I++]);
- if(Fn==sinh)
- R=cons([VC0,0,(VC^2-1)/(2*VC)],R);
- else if(Fn==cosh)
- R=cons([VC0,0,(VC^2+1)/(2*VC)],R);
- else
- R=cons([VC0,0,(VC^2-1)/(VC^2+1)],R);
- }
- if(Fn==pow && (V[1]!=1/2||Cpx==1)){
-#if 0
- R0=f2df(V[1]*((type(V[0])==1)?dlog(V[0]):log(V[0]))|level=K+1);
- PAGd=cdr(PAGd);
-#else
- R=cons([VC,os_md.mypow,V[0],V[1]],R);
- F=mysubst(F,[car(Arg),VC0]);
- Arg=cons(0,vars(F));
- break;
-#endif
- }else R0=f2df(V[0]|level=K+1);
- R=cons([VC,car(PAGd),R0],R);
- F=mysubst(F,[car(Arg),VC0]);
- Arg=cons(0,vars(F));
- break;
- }
- }
- }
- if(R==[]) return F;
- if(Cpx==1){
- for(PAG=P,PAGd=AGd;PAG!=[];PAG=cdr(PAG),PAGd=cdr(PAGd))
- R=mysubst(R,[car(PADd),car(PAG)]);
- }
- return cons(F,reverse(R));
-}
-
-def todf(F,V)
-{
- if(type(V)!=4) V=[V];
- for(R=[];V!=[];V=cdr(V)){
- R=cons(f2df(car(V)),R);
- }
- V=reverse(R);
- Z=makenewv([F,V]);
- return [Z,cons(Z,cons(F,V))];
-}
-
-def compdf(F,V,G)
-{
- FL=["abs","floor","rint","zeta","gamma","arg","real","imag","conj"];
- FS=[os_md.abs,floor,rint,os_md.zeta,os_md.gamma,os_md.myarg,real,imag,conj];
- if(type(V)==4){
- for(;V!=[];V=cdr(V),G=cdr(G)) F=compdf(F,car(V),car(G));
- return F;
- }
- if(type(F)==7){
- if(str_str(F,"|")==0){
- F="abs("+str_cut(F,1,str_len(F)-2)+")";
- }else if(str_str(F,"[")==0){
- F="floor("+str_cut(F,1,str_len(F)-2)+")";
- }
- I=str_str(F,"(");
- Var=x;
- if(I>0){
- J=str_pair(F,I+1,"(",")");
- if(J<0) return 0;
- Var=eval_str(str_cut(F,I+1,J-1));
- Var=f2df(Var);
- F0=str_cut(F,0,I-1);
- }
- if((I=findin(F0,FL))<0&&(I=findin(F,FL))<0) F=f2df(eval_str(F));
- else F=[z__,[z__,FS[I],Var]];
- }
- if(type(F)!=4) F=f2df(F);
- if(type(G)!=4) G=f2df(G);
- VF=vars(F);VG=vars(G);
- for(E=I=0;I<30;I++){
- for(J=0;J<30;J++){
- X=makev(["z__",I,J]);
- if(findin(X,VF)<0 && findin(X,VG)<0){
- E=1;break;
- }
- }
- if(E) break;
- }
- if(!E) return 0;
- if(V==G) return F; /* subst(F(V),V,G) */
- if(type(G)<4) return mysubst(F,[V,G]);
- if(type(F)<4) F=[F]; /* return compdf([X,[X,0,F]],V,G); */
- F=mysubst(F,[V,X]);
- if(isvar(G[0])){
- G=mysubst(G,[G[0],X]);
- if(length(G)==2&&type(G[1])==4&&G[1][0]==X) G=G[1];
- G=cons(G,cdr(F));
- }
- else G=cons([X,0,G],cdr(F));
- return cons(car(F),G);
-}
-
-def fzero(F,LX)
-{
- if(length(LX)==3){
- V=LX[0];LX=cdr(LX);
- }else V=x;
- LX1=eval(LX[0]);LX2=eval(LX[1]);
- if(getopt(zero)==1){
- if(getopt(cont)==1) CT=1;
- else CT=0;
- if(getopt(trans)!=1 && type(F)<4) F=f2df(F);
- F=mysubst(F,[[@pi,deval(@pi)],[@e,deval(@e)]]);
- if(type(Dev=getopt(dev))!=1 || Dev<2) Dev=16;
- V1=myeval(mysubst(F,[V,X1=LX1]));
- V2=myeval(mysubst(F,[V,X2=LX2]));
- if(V1>0){
- V0=V1;V1=V2;V2=V0;
- X0=X1;X1=X2;X2=X0;
- }
- if(V1<0 && V2>0){
- D=(V2-V1)*1024;
- for(I=0; I<Dev; I++){
-/* mycat([D,X1,V1,X2,V2]) ; */
- if(iand(I,1)) X0=(X1+X2)/2;
- else X0=(V2*X1-V1*X2)/(V2-V1);
- V0=myeval(mysubst(F,[V,X0]));
- if(V0==0||V0==V1||V0==V2) return [X0,V0];
- if(V0<0){
- if(!CT && V0+D<0) return [];
- V1=V0;X1=X0;
- }else{
- if(!CT && V0>D) return [];
- V2=V0;X2=X0;
- }
- }
- X0=(V2*X1-V1*X2)/(V2-V1);
- return [X0,myeval(mysubst(F,[V,X0]))];
- }
- if(V0==0) return [X0,V0];
- if(V1==0) return [X1,V1];
- return [];
- }
- if(type(F)<4) F=f2df(F);
- F=mysubst(F,[[@pi,deval(@pi)],[@e,deval(@e)]]);
- L=[];
- if(type(F)<4){
- if(type(F)==3) F=nm(red(F));
- if((Deg=deg(F,V))<=2){
- if(Deg==2){
- D=(C1=coef(F,1,V))^2-4*(C2=coef(F,2,V))*coef(F,0,V);
- if(D>=0){
- R=dsqrt(D);
- if((S=(-C1+R)/(2*C2))>=LX1&&S<=LX2) L=[[S,mysubst(F,[V,S])]];
- if(D!=0 && (S=(-C1-R)/(2*C2))>=LX1&&S<=LX2) L=cons([S,mysubst(F,[V,S])],L);
- }
- L=qsort(L);
- }else if(Deg==1&&(S=-coef(F,0,V)/coef(F,1,V))>=LX1&&S<=LX2)
- L=[[S,mysubst(F,[V,S])]];
- return L;
- }
- for(L=[];S!=[];S=cdr(S))
- if(car(S)>=LX1&&car(S)<=LX2) L=cons([car(S),mysubst(F,[V,car(S)])],L);
- return qsort(L);
- }
- if(type(Div=getopt(mesh))!=1 || Div<=0)
- Div = 2^(10);
- W=(LX2-LX1)/Div;
- for(I=V2=0;I<=Div;I++){
- X1=X2;X2=LX1+I*W;V1=V2;
- if((V2=myeval(mysubst(F,[V,X2])))==0)
- L=cons([X2,V2],L);
- if(V1*V2<0){
- L0=fzero(F,[V,X1,X2]|zero=1,trans=1);
- if(L0!=[]) L=cons(L0,L);
- }
- }
- return reverse(L);
-}
-
-def fmmx(F,LX)
-{
- if(length(LX)==3){
- V=LX[0];LX=cdr(LX);
- }else V=x;
- LX1=eval(LX[0]);LX2=eval(LX[1]);
- FT=F;
- if(getopt(trans)!=1 && type(F)<4) FT=f2df(FT);
- FT=mysubst(FT,[[@pi,eval(@pi)],[@e,eval(@e)]]);
- if(type(G=getopt(dif))>=1){
- if(G==1) G=os_md.mydiff(F,V);
- L=fzero(G,[V,LX1,LX2]|option_list=getopt());
- R=[[LX1,myeval(mysubst(FT,[V,LX1]))]];
- for(I=0;L!=[];L=cdr(L),I++){
- X=car(L)[0];
- if(X==LX1) continue;
- R=cons([X,myeval(mysubst(FT,[V,X]))],R);
- }
- if(X!=LX2) R=cons([LX2,myeval(mysubst(FT,[V,LX2]))],R);
- if(getopt(mmx)!=1) return reverse(R);
- for(Mi=Ma=car(R);R!=[];R=cdr(R)){
- if(car(R)[1]>Ma[1]) Ma=car(R);
- else if(car(R)[1]<Mi[1]) Mi=car(R);
- }
- return [Mi,Ma];
- }
- if(type(Div=getopt(mesh))!=1 || Div<=0)
- Div = 2^(10);
- if(type(Dev=getopt(dev))!=1 || Dev<2) Dev=16;
- W=(LX2-LX1)/Div;
- for(I=V2=V3=0;I<=Div;I++){
- X1=X2;X2=X3;X3=LX1+I*W;V1=V2;V2=V3;
- V3=myeval(mysubst(FT,[V,X3]));
- if(I==0) L=[[X3,V3]];
- if(I<2) continue;
- if((V1-V2)*(V2-V3)<0){
- X02=X2;V02=V2;X03=X3;V03=V3;
- for(J=0; J<Dev && X1!=X3; J++){
- X12=(X1+X2)/2;V12=myeval(mysubst(FT,[V,X12]));
- if((V1-V12)*(V12-V2)<=0){
- X3=X2;V3=V2;X2=X12;V2=V12;continue;
- }
- X23=(X2+X3)/2;V23=myeval(mysubst(FT,[V,X23]));
- if((V12-V2)*(V2-V23)<=0){
- X1=X12;V1=V12;X3=X23;V3=V23;continue;
- }
- if((V2-V23)*(V23-V3)<=0){
- X1=X2;V1=V2;X2=X23;V2=V23;continue;
- }
- }
- L=cons([X2,V2],L);
- X2=X02;V2=V02;X3=X03;V3=V03;
- }
- }
- L=cons([LX2,myeval(mysubst(FT,[V,LX2]))],L);
- if(getopt(mmx)!=1) return L;
- for(Mi=Ma=car(L);L!=[];L=cdr(L)){
- if(car(L)[1]>Ma[1]) Ma=car(L);
- else if(car(L)[1]<Mi[1]) Mi=car(L);
- }
- return [Mi,Ma];
-}
-
-def flim(F,L)
-{
- FD=f2df(F);
- Lim0=4;Lim=12;FS=1;
- if(type(Pc=getopt(prec))==1){
- if((Pc>1&&Pc<31)||Pc>-5) Lim+=Pc;
- }
- if(type(Pc=getopt(init))==1 && Pc>0) FS*=Pc;
- if(type(L)==7) L=[L];
- else if(type(L)<2){
- K=flim(F,["+",L]|option_list=getopt());
- if(K=="") return K;
- K1=flim(F,["-",L]|option_list=getopt());
- if(K1=="") return K1;
- if(type(K)==7||type(K1)==7){
- if(K!=K1) return "";
- return K;
- }
- if(abs(K)<10^(-5)){
- if(abs(K1)<10^(-5)) return (K1+K)/2;
- else return "";
- }
- if(abs((K1-K)/K)<10^(-4)) return (K1+K)/2;
- return "";
- }
- if(type(L)!=4||type(L[0])!=7) return "";
- if(L[0]=="-"||L[0]=="-infty"){
- FS=-FS;
- }else if(L[0]!="+"&&L[0]!="infty") return "";
- FI=(length(L)==1)?1:0;
- for(Inf=0,I=Lim0;I<Lim;I++){
- D1=FS*8^I;D2=8*D1;
- if(FI==0){
- D1=1/D1;D2=1/D2;
- }
- if(D1>D2){
- D=D1;D1=D2;D1=D;
- X1=D1;X2=D2;
- }
- if(FI==0){
- D1+=L[1];D2+=L[1];
- }
- K=fmmx(FD,[D1,D2]|mmx=1,mesh=16,dev=4);
- if(I>Lim0){
- if(DF<K[1][1]-K[0][1]&&DF>10^(-8)&&DF<10^7){
- if(I>Lim0+1){
- if(Inf==0) return "";
- }else Inf=1;
- }else if(Inf==1) return "";
- }
- DF=K[1][1]-K[0][1];
- }
- if(Inf==1){
- if(K[0][1]>10^8) return "+";
- else if(K[1][1]<-10^8) return "-";
- return "";
- }
- V=(myfeval(FD,D1)+1.0)-1.0;
- if(V!=0 && abs(V)<10^(-9)) return 0;
- return V;
-}
-
-def fcont(F,LX)
-{
- if(length(LX)==3){
- V=LX[0];LX=cdr(LX);
- }else V=x;
- LX1=eval(LX[0]);LX2=eval(LX[1]);
- if(getopt(trans)!=1 && type(F)<4) FT=f2df(F);
- if(type(Div=getopt(mesh))!=1 || Div<=0)
- Div = 2^(10);
- if(type(Dev=getopt(dev))!=1 || Dev<2) Dev=16;
- W=(LX2-LX1)/Div;
- if((Df=getopt(dif))!=1){
- Df=0;
- }else{
- if(Dev==16) Dev=6;
- WD=W/2^(Dev+1);
- }
- F=FT;
- C=2;
- for(I=V2=V3=0;I<=Div;I++){
- X1=X2;X2=X3;X3=LX1+I*W;V1=V2;V2=V3;
- V3=myeval(mysubst(F,[V,X3]));
- if(Df){
- if(I==Div) break;
- V3=(myeval(mysubst(F,[V,X3+WD]))-V3)/WD;
- }
- if(I==0) L=[[X3,V3]];
- if(I<2) continue;
- if(C*dabs(2*V2-V1-V3) > dabs(V1-V3)){
- X01=X1;V01=V1;X02=X2;V02=V2;X03=X3;V03=V3;
- for(J=0; X01!=X03; J++){
- if(dabs(V01-V02)>dabs(V02-V03)){
- X03=X02;V03=V02;
- }else{
- X01=X02;V01=V02;
- }
- if(J==Dev) break;
- X02=(X01+X02)/2;
- V02=myeval(mysubst(F,[V,X02]));
- if(Df) V02=(myeval(mysubst(F,[V,WD]))-V02)/WD;
- if(C*dabs(2*V02-V01-V03) < dabs(V01-V03)) break;
- }
- if(J==Dev||X01==X03) L=cons([X01,X03,V03-V01],L);
- }
- }
- return reverse(L);
-}
-
-def xygraph(F,N,LT,LX,LY)
-{
- if((Proc=getopt(proc))!=1&&Proc!=2&&Proc!=3) Proc=0;
- if(type(DV=getopt(dviout))==4){
- OL=delopt(getopt(),["dviout","shift","ext","cl"]);
- OL=cons(["proc",1],OL);
- R=xygraph(F,N,LT,LX,LY|option_list=OL);
- OL=delopt(getopt(),["shift","ext","cl"]|inv=1);
- return execdraw(R,DV|optilon_list=OL);
- }
- if(N==0) N=32;
- if(N<0){
- N=-N;
- N1=-1; N2=N+1;
- }else{
- N1=0; N2=N;
- }
- if(length(LT)==3 && isvar(LT[0])==1){
- TT=LT[0]; LT=cdr(LT);
- F=mysubst(F,[TT,x]);
- }
- if(LX==0) LX=LT;
- if((Acc=getopt(Acc))!=1) Acc=0;
- if(Acc){
- LX=[eval(LX[0]),eval(LX[1])];
- LY=[eval(LY[0]),eval(LY[1])];
- LT=[eval(LT[0]),eval(LT[1])];
- }else{
- LX=[deval(LX[0]),deval(LX[1])];
- LY=[deval(LY[0]),deval(LY[1])];
- LT=[deval(LT[0]),deval(LT[1])];
- }
- TD=(LT[1]-LT[0])/N;
- if(type(Mul=getopt(scale))!=1){
- if(type(Mul)==4){
- MulX=Mul[0]; MulY=Mul[1];
- }else MulX=MulY=1;
- }else MulX=MulY=Mul;
- if(type(Org=getopt(org))==4){
- Orgx=Org[0];Orgy=Org[1];
- }else Orgx=Orgy=0;
- if(type(F)!=4 || (getopt(para)!=1 && length(F)>1 && type(F[0])<4 && type(F[1])==4)) {
- if(getopt(rev)!=1){
- F1=x; /* LX[0]+(LX[1]-LX[0])*(x-LT[0])/(TD*N); */
- F2=F;
- }else{
- F1=F;
- F2=x; /* LY[0]+(LY[1]-LY[0])*(x-LT[0])/(TD*N); */
- }
- }else{
- F1=F[0]; F2=F[1];
- }
- if(F1==0 || F2==0) LT=[];
- if(length(LT)==2){
- if(Acc){
- for(LTT=[],I=N2;I>=N1;I--)
- LTT=cons(eval(LT[0]+I*(LT[1]-LT[0])/N),LTT);
- }else{
- for(LTT=[],I=N2;I>=N1;I--)
- LTT=cons(deval(LT[0]+I*(LT[1]-LT[0])/N),LTT);
- }
- LT=LTT;
- }
- Cpx=getopt(cpx);
- if(Cpx!=1 && (str_str(rtostr(F1),"@i")>=0 || str_str(rtostr(F2),"@i")>=0))
- Cpx=1;
- if(type(Cpx)<0) Cpx=0;
- if(!Acc){
- if(type(F1)<4) F1=f2df(F1);
- if(type(F2)<4) F2=f2df(F2);
- }
- if(type(Err=getopt(err))==1){
- F1=mysubst(F1,[x,x+Err*TD/1001.23]);
- F2=mysubst(F2,[x,x+Err*TD/1001.23]);
- }
- if(type(F1)==4 || type(F2)==4){
- Dn=1;
- }else Dn=dn(F1)*dn(F2);
- for(V=[],PT=LT;PT!=[]; PT=cdr(PT)){
- T=car(PT);
- if(myfeval(Dn,T)==0){
- V=cons(0,V); continue;
- }
- if(Cpx>0||Acc){
- X=myfeval(F1,T);Y=myfeval(F2,T);
- }else{
- X=myfdeval(F1,T);Y=myfdeval(F2,T);
- }
- if((N1==0||(PT!=LT&&length(PT)!=1)) && (X<LX[0]||X>LX[1]||Y<LY[0]||Y>LY[1]))
- V=cons(0,V);
- else
- V=cons([MulX*(X-Orgx),MulY*(Y-Orgy)],V);
- }
- V=reverse(V);
- Gap0=Gap=Arg=0;
- if(type(Prec=getopt(prec))<0)
- Level=0;
- else if(Prec==0) Level=4;
- else if(type(Prec)==1){
- Level=Prec;
- if(Level<0){
- Level=-Level;
- Gap0=1;
- }
- }else if(type(Prec)==4){
- Level=Prec[0];
- if(length(Prec)>1) Arg=Prec[1];
- if(length(Prec)>2) Gap0=Prec[2];
- }
- if(Level>0){
- if(Level>16) Level=16;
- if(Arg<=0) Arg=30;
- else if(Arg>120) Arg=120;
- Arg=Acc?eval(@pi*Arg/180):deval(@pi*Arg/180);
- SL=dcos(Arg);
- }
- if(Gap0>0){
- if(Gap0<2) Gap0=16;
- else if(Gap0>512) Gap0=512;
- Gap=((MulX*(LX[1]-LX[0]))^2+(MulY*(LY[1]-LY[0]))^2)/(Gap0^2);
- }
- for(I=0;I<Level;I++){
- for(F=K=G=0,NV=NLT=[],PLT=LT,PV=V;PLT!=[];K++,PLT=cdr(PLT),PV=cdr(PV)){
- TG=0;D0=D1;CLT0=CLT;CV0=CV;CV=car(PV);CLT=car(PLT);
- if(length(PV)>1){
- if((CV1=car(cdr(PV)))!=0 && CV!=0)
- D1=[CV[0]-CV1[0],CV[1]-CV1[1]];
- else D1=0;
- }else K=-1; /* ? */
- if(K>0 &&(((D1==0||D0==0)&&(CV0!=0||CV!=0||CV1!=0)) || dvangle(D0,D1)<SL ||
- (Gap>0 && type(D0)==4 && (TG=(D0[0]^2+D0[1]^2-Gap)>0)))){
- G++;T1=(CLT0+CLT)/2;
- if(F==0 && (CV0!=0 || CV!=0)){
- if(myfdeval(Dn,T1)==0){
- NV=cons(0,NV); NLT=cons(T1,NLT);
- }
- if(Cpx>0||Acc){
- X=myfeval(F1,T1);Y=myfeval(F2,T1);
- }else{
- X=myfdeval(F1,T1);Y=myfdeval(F2,T1);
- }
- if(K==1 && N1<0){
- NV=[];NLT=[];
- }
- if((K>1||N1==0)&&(X<LX[0]||X>LX[1]||Y<LY[0]||Y>LY[1])){
- NV=cons(0,NV);NLT=cons(T1,NLT);F=0;
- }else{
- NV=cons([MulX*(X-Orgx),MulY*(Y-Orgy)],NV);NLT=cons(T1,NLT);
- }
- }
- NV=cons(CV,NV);NLT=cons(CLT,NLT);
- if(!TG&&(CV0!=0||CV1!=0)){
- T2=(car(cdr(PLT))+CLT)/2;
- if(myfdeval(Dn,T2)==0){
- NV=cons(0,NV); NLT=cons(CLT,NLT);
- }
- if(Cpx>0||Acc){
- X=myfeval(F1,T2);Y=myfeval(F2,T2);
- }else{
- X=myfdeval(F1,T2);Y=myfdeval(F2,T2);
- }
- if((N1==0||length(PV)!=2)&&(X<LX[0]||X>LX[1]||Y<LY[0]||Y>LY[1])){
- NV=cons(0,NV);NLT=cons(T1,NLT);
- }else{
- NV=cons([MulX*(X-Orgx),MulY*(Y-Orgy)],NV);NLT=cons(T2,NLT);
- }
- }
- if(length(PV)==2 && N1==-1) break;
- F=1;
- }else{
- F=0;NV=cons(CV,NV);NLT=cons(CLT,NLT);
- }
- }
- V=reverse(NV);LT=reverse(NLT);
- if(G==0) break;
- }
- if(Gap>0){
- for(NV=[],PV=V;PV!=[];PV=cdr(PV)){
- NV=cons(P0=car(PV),NV);
- if(length(PV)>1 && P0!=0 && PV[1]!=0
- && (P0[0]-PV[1][0])^2+(P0[1]-PV[1][1])^2>Gap) NV=cons(0,NV);
- }
- V=reverse(NV);
- }
- if(getopt(raw)==1) return V;
- OL=[["curve",1]];OLP=[];
- if(type(C=getopt(ratio))==1){
- OL=cons(["ratio",C],OL);OLP=cons(["ratio",C],OLP);
- }
- if(Acc==1) OL=cons(["Acc",1],OL);
- if(N1<0) OL=cons(["close",-1],OL);
- if(type(Opt=getopt(opt))!=7 && type(Opt)!=4){
- if(Opt==0) return xylines(V|option_list=cons(["opt",0],OL));
- }
- OL=cons(["opt",(Proc)?0:Opt],OL);
- if(type(Opt)>=0) OLP=cons(["opt",Opt],OLP);
- if(type(Vb=getopt(verb))==1||type(Vb)==4){
- OL=cons(["verb",Vb],OL);OLP=cons(["verb",Vb],OL);
- }
- if(Proc){
- S=(Proc==1)?
- [[0,[MulX*(LX[0]-Orgx),MulX*(LX[1]-Orgx)],[MulY*(LY[0]-Orgy),MulY*(LY[1]-Orgy)],
- (TikZ)?1:1/10]]:[];
- S=cons([1,OLP,xylines(V|option_list=OL)],S);
- if(Proc==3) return car(S);
- }else S=xylines(V|option_list=OL);
- if(type(Pt=getopt(pt))==4){
- if(type(Pt[0])!=4) Pt=[Pt];
- if(length(Pt)>1 && type(Pt[1])!=4) Pt=[Pt];
- for(PT=Pt;PT!=[];PT=cdr(PT)){
- PP=car(PT);
- if(type(PP[0])!=4) PP=[PP];
- P=car(PP);PP=cdr(PP);
- Qx=MulX*(P[0]-Orgx);Qy=MulY*(P[1]-Orgy);
- if(length(PP)>0 && type(PP[0])==4){ /* draw line */
- P=car(PP);
- Q1x=MulX*(P[0]-Orgx);Q1y=MulY*(P[1]-Orgy);
- if(length(PP)<1 || car(PP)==0 || iand(car(PP),1))
- OL=["opt",(TikZ)?"-":"@{-}"];
- else OL=["opt",(TikZ)?".":"@{.}"];
- if(Proc) S=cons([1,OL,[[Qx,Qy],[Q1x,Q1y]]],S);
- else S=S+xylines([[Qx,Qy],[Q1x,Q1y]]|optilon_list=OL);
- continue;
- }
- if(length(PP)==0 || type(car(PP))!=7) SS="$\\bullet$";
- else SS=car(PP);
- if(length(PP)<=1){
- if(Proc) S=cons([2,[],[Qx,Qy],[SS]],S);
- else S=S+xyput([Qx,Qy,SS]);
- }else{
- if(Proc) S=cons([2,[],[Qx,Qy],[[SS],"",PP[1]]],S);
- S=S+xyput([Qx,Qy,SS,"",PP[1]]);
- }
- }
- }
- if(type(Ax=getopt(ax))==4){ /* draw axis */
- Adx0=Ady0=0; Adx1=Ady1=0.1;
- if(!TikZ){
- if(!XYcm) Adx1=Ady1=1;
- LOp="@{-}"; LxOp="+!U"; LyOp="+!R";
- }else{
- LOp="-"; LxOp="below"; LyOp="left";
- }
- LOp0=LOp1=LOp;
- LxOO=(Ax[1]==LY[0])?LxOp:(TikZ)?"below left":"+!UR";
- if(type(AxOp=getopt(axopt))>0){
- if(type(AxOp)==1){
- if(AxOp>0) Adx1=Ady1=AxOp;
- else if(AxOp<0){
- Adx1=Ady1=0; Adx0=Ady0=AxOp;
- }
- }else if(type(AxOp)==4){
- if(type(T=car(AxOp))==4 && length(AxOp)>1){
- if(type(T)==7){
- LxOp=T; LyOp=AxOp[1];
- }else if(type(T)==4){
- Ay0=T[0]; Ay1=T[1]; Ax0=AxOp[1][0]; Ax1=AxOp[1][1];
- if(length(T)>2) LxOp=T[2];
- if(length(AxOp[1])>2) LyOp=AxOp[1][2];
- }
- }
- if(length(AxOp)>2 && type(AxOp[2])==7) LxOO=AxOp[2];
- if(length(AxOp)>3 && type(AxOp[3])==7) LOp0=AxOp[3];
- if(length(AxOp)>4 && type(AxOp[4])==7) LOp1=AxOp[4];
- }
- if(type(AxOp)==7) LOp0=AxOp;
- }
- if(Ax[0]>=LX[0] && Ax[0]<=LX[1]){ /* draw marks on x-axis */
- if(Proc) S=cons([3,(type(LOp0)>=0)?[["opt",LOp0]]:[],
- [MulX*(Ax[0]-Orgx),MulY*(LY[0]-Orgy)],[MulX*(Ax[0]-Orgx),MulY*(LY[1]-Orgy)]],S);
- else S=S+xyarrow([MulX*(Ax[0]-Orgx),MulY*(LY[0]-Orgy)],
- [MulX*(Ax[0]-Orgx),MulY*(LY[1]-Orgy)]|opt=LOp0);
- if(length(Ax)>2){
- D=Ax[2];
- if(type(D)==1 && D>0){
- I0=ceil((LX[0]-Ax[0])/D); I1=floor((LX[1]-Ax[0])/D);
- for(DD=[],I=I0; I<=I1; I++){
- if(length(Ax)<5) DD=cons(I*D,DD);
- else if(Ax[4]==0) DD=cons([I*D,I*D+Ax[0]],DD);
- else if(Ax[4]==1) DD=cons([I*D,I*D],DD);
- else if(Ax[4]==2) DD=cons([I*D,I],DD);
- }
- D=DD;
- }
- if(type(D)==4){
- for(;D!=[]; D=cdr(D)){
- T=car(D);
- if(type(T)==4) T=car(T);
- X=MulX*(T+Ax[0]-Orgx); Y=MulY*(Ax[1]-Orgy);
- if(T!=0){
- if(Proc) S=cons([3,(type(LOp1)>=0)?[["opt",LOp1]]:[],[X,Y+Ady0],[X,Y+Ady1]],S);
- else S=S+xyarrow([X,Y+Ady0],[X,Y+Ady1]|opt=LOp1);
- }
- if(type(car(D))==4){
- Arg=[(T==0)?LxOO:LxOp,D[0][1]];
- if(Proc) S=cons([2,[],[X,Y+Ady0],[Arg]],S);
- else S=S+xyput([X,Y+Ady0,Arg]);
- }
- }
- }
- }
- }
- if(Ax[1]>=LY[0] && Ax[1]<=LY[1]){ /* draw marks on y-axis */
- if(Proc) S=cons([3,[["opt",LOp0]],
- [MulX*(LX[0]-Orgx),MulY*(Ax[1]-Orgy)],
- [MulX*(LX[1]-Orgx),MulY*(Ax[1]-Orgy)]],S);
- else S=S+xyarrow([MulX*(LX[0]-Orgx),MulY*(Ax[1]-Orgy)],
- [MulX*(LX[1]-Orgx),MulY*(Ax[1]-Orgy)]|opt=LOp0);
- if(length(Ax)>3){
- D=Ax[3];
- if(type(D)==1 && D>0){
- I0=ceil((LY[0]-Ax[1])/D); I1=floor((LY[1]-Ax[0])/D);
- for(DD=[],I=I0; I<=I1; I++){
- if(length(Ax)<5) DD=cons(I*D,DD);
- else if(I!=0){
- if(Ax[4]==0) DD=cons([I*D,I*D+Ax[1]],DD);
- if(Ax[4]==1) DD=cons([I*D,I*D],DD);
- if(Ax[4]==2) DD=cons([I*D,I],DD);
- }
- }
- D=DD;
- }
- if(type(D)==4){
- for(;type(D)==4&&D!=[]; D=cdr(D)){
- T=car(D);
- if(type(T)==4) T=car(T);
- X=MulX*(Ax[0]-Orgx); Y=MulY*(T+Ax[1]-Orgy);
- if(T!=0){
- if(Proc) S=cons([3,(type(LOp0)>=0)?[["opt",LOp1]]:[],
- [X+Adx0,Y],[X+Adx1,Y]],S);
- else S=S+xyarrow([X+Adx0,Y],[X+Adx1,Y]|opt=LOp1);
- }
- if(type(car(D))==4){
- if(Proc) S=cons([2,[],[X,Y+Ady0],[[LyOp,D[0][1]]]],S);
- else S=S+xyput([X,Y+Ady0,[LyOp,D[0][1]]]);
- }
- }
- }
- }
- }
- }
- if(Proc) return reverse(S);
- if(getopt(dviout)!=1) return S;
- xyproc(S|dviout=1);
-}
-
-def xyarrow(P,Q)
-{
- Cmd = ["fill","filldaw","shade","shadedraw","clip ","pattern","path ","node","coordinate"];
- if(type(P)<4) return "%\n";
- SS=getopt(opt);
- if(!TikZ){
- if(type(Q)<4) return "";
- S="{"+xypos(P)+" \\ar";
- if(type(SS)==7) S=S+SS;
- return S+" "+xypos(Q)+"};\n";
- }
- if(type(SS)==4 && length(SS)>1){
- if(length(SS)>2) SU=SS[2];
- ST=SS[1];
- SS=SS[0];
- }
- if(type(SS)!=7) SS="->";
- if(type(ST)!=7) ST=" -- ";
- if(type(SU)!=7) SU="";
- if(type(S=getopt(cmd))==7) S="\\"+S;
- else S="\\draw";
- if(type(Q)!=4){
- if(Q>0 && Q<=length(Cmd)) S="\\"+Cmd[Q-1]+"";
- if(SS!="-") S=S+"["+SS+"]";
- if(SU!="") SU="["+SU+"]";
- return S+xypos(P)+ST+SU+";\n";
- }
- if(SS!="-"&&SS!="") S=S+"["+SS+"]";
- if(length(P)<3 && length(Q)<3)
- return S+xypos(P)+ST+xypos(Q)+SU+";\n";
- if(length(P)==2) P=[P[0],P[1],"","_0"];
- else if(length(P)==3 || (length(P)==4 && P[3]==""))
- P=[P[0],P[1],P[2],"_0"];
- else if(P[3]=="")
- P=[P[0],P[1],P[2],"_0",P[4]];
- if(length(Q)==2) Q=[Q[0],Q[1],"","_1"];
- else if(length(Q)==3 || (length(Q)==4 && Q[3]==""))
- Q=[Q[0],Q[1],Q[2],"_1"];
- else if(Q[3]=="")
- Q=[Q[0],Q[1],Q[2],"_1",Q[4]];
- return S+xypos(P)+" "+xypos(Q)+"("+P[3]+")"+ST+"("+Q[3]+")"+SU+";\n";
-}
-
-def xyarrows(P,Q,R)
-{
- PQ=newvect(4);
- PQ[0]=(type(P[0])!=4)?f2df(P[0]):P[0];
- PQ[1]=(type(P[1])!=4)?f2df(P[1]):P[1];
- PQ[2]=(type(Q[0])!=4)?f2df(Q[0]):Q[0];
- PQ[3]=(type(Q[1])!=4)?f2df(Q[1]):Q[1];
- if(type(R[0])!=4) R=[R];
- TR=R[0];NX=TR[2];X=X0=TR[0];DX=(TR[1]-TR[0])/NX;
- if(length(R)==2){
- TR=R[1];NY=TR[2];Y=TR[0];DY=(TR[1]-TR[0])/NY;
- }else{
- NY=1;Y=DY=0;
- }
- if(type(L=getopt(abs))!=1) L=0;
- if(type(Sc=getopt(scale))!=1) Sc=0;
- OL=[];
- if(type(Opt=getopt(opt))==7) OL=cons(["opt",Opt],OL);
- Tb=str_tb(0,0);
- for(J=0;J<NY;Y+=DY,J++){
- for(I=0,X=X0;I<NX;I++,X+=DX){
- PX=myf2eval(PQ[0],X,Y);PY=myf2eval(PQ[1],X,Y);
- VX=myf2eval(PQ[2],X,Y);VY=myf2eval(PQ[3],X,Y);
- if(L>0){
- C=dnorm([VX,VY]);
- if(C!=0){
- VX*=L/C;VY*=L/C;
- }
- }
- if(Sc){
- VX*=Sc;VY*=Sc;
- }
- if(VX||VY) str_tb(xyarrow([PX,PY],[PX+VX,PY+VY]|optilon_list=OL),Tb);
- }
- }
- return str_tb(0,Tb);
-}
-
-def polroots(L,V)
-{
- INIT=1;
- if(type(CF=getopt(comp))!=1) CF=0;
- OL=getopt();
- if(CF>32){
- CF-=64;
- INIT=0;
- }else OL=cons(["comp",CF+64],delopt(OL,"comp"));
- if(type(V)==4&&length(V)==1){
- L=L[0];V=V[0];
- }
- Lim=Lim2=[];
- if(type(L)<4){
- if(type(Lim=getopt(lim))==4){
- if(type(Lim[0])!=4){
- if(!isvar(Lim[0])) Lim=cons(V,[Lim]);
- Lim=[Lim];
- }
- if(!isvar(Lim[0][0])) Lim=[cons(V,Lim)];
- Lim=delopt(Lim,V|inv=1);
- if(Lim!=[]){
- Lim=Lim[0];
- if(length(Lim)==3) Lim2=Lim[2];
- Lim=Lim[1];
- }
- }else{
- Lim=Lim2=[];
- }
- if((CF==-2||CF==-1||CF==2)&&iscoef(L,os_md.israt)){ /* Rat+Comp, Rat+Real or Rat */
- S=(CF==-1)?getroot(L,V|cpx=1):getroot(L,V);
- for(RR=[],F=x;S!=[];S=cdr(S)){
- if(findin(V,vars(C=car(S)))<0){ /* Rational solution */
- if(type(C)<2){
- if(Lim!=[]&&(real(C)<Lim[0]||real(C)>Lim[1])) continue;
- if(Lim2!=[]&&(imag(C)<Lim2[0]||imag(C)>Lim2[1])) continue;
- }
- if(F!=C) RR=cons(F=C,RR);
- }else if(CF<0){ /* Irrational solution */
- if((R=pari(roots,mysubst(C,[V,x])))!=0){
- for(R=vtol(R);R!=[];R=cdr(R))
- if((C=car(R))!=F && ntype(C)<CF+6){
- if(Lim!=[]&&(real(C)<Lim[0]||real(C)>Lim[1])) continue;
- if(Lim2!=[]&&(imag(C)<Lim2[0]||imag(C)>Lim2[1])) continue;
- RR=cons(F=C,RR);
- }
- }
- }
- }
- return qsort(RR);
- }
- R=pari(roots,subst(L,V,x));
- if(R==0){
- R=[0];
- if(CF==1){
- for(R=[0],I=mydeg(L,V);I>1; I--)
- R=cons(0,R);
- }
- return R;
- }
- if(CF==1){ /* Complex */
- if(Lim==[]&&Lim2==[]) return vtol(R);
- for(L=[],I=length(R)-1;I>=0;I--){
- C=R[I];
- if(Lim!=[]&&(real(C)<Lim[0]||real(C)>Lim[1])) continue;
- if(Lim2!=[]&&(imag(C)<Lim2[0]||imag(C)>Lim2[1])) continue;
- L=cons(C,L);
- }
- return L;
- }
- for(L=[],F=x,I=length(R)-1;I>=0;I--){ /* Real */
- if(ntype(R[I])<4 && F!=R[I]){
- if(Lim!=[] && (R[I]<Lim[0]||R[I]>Lim[1])) continue;
- L=cons(F=R[I],L);
- }
- }
- return qsort(L);
- }
- if(SS==0&&INIT==1){
- SS=polroots(L,V|option_list=OL);
- if(SS!=0) return SS;
- for(C=0;SS==0&&C<4;C++){
- I=(C==0)?1:(iand(random(),0xff)-0x80);
- for(LL=[],K=length(L)-1;K>=0;K--){
- for(Q=0,J=length(L)-1;J>=0;J--)
- Q+=L[J]*(I+K)^J;
- LL=cons(Q,LL);
- }
- SS=polroots(LL,V|option_list=OL);
- if(SS!=0) return SS;
- }
- return SS;
- }
- C=2^(-32);
- if(type(getopt(err))==1) C=err;
- if((N=length(V))!=length(L)) return [];
- if(N==1) return polroots(L[0],V[0]|option_list=OL);
- for(L1=[],I=1;I<N;I++){
- Res=res(V[0],L[I-1],L[I]);
- if(type(Res)<2) return Res;
- L1=cons(res(V[0],L[I-1],L[I]),L1);
- }
- R=polroots(L1,V1=cdr(V)|option_list=OL);
- if(type(R)<2) return R;
- for(SS=[];R!=[];R=cdr(R)){
- RS=(N==2)?[car(R)]:car(R);
- for(I=0,L0=L[0];I<N-1;I++) L0=mysubst(L0,[V1[I],RS[I]]);
- if(L0==0) return 0;
- S0=polroots(L0,V[0]|option_list=OL);
- if(type(S0)<2) return S0;
- for(S=S0;S!=[];S=cdr(S)){
- S0=cons(car(S),RS);
- for(LT=cdr(L);LT!=[];LT=cdr(LT)){
- for(I=0,TV=car(LT);I<N;I++) TV=mysubst(TV,[V[I],S0[I]]);
- if(abs(TV)>C) break;
- }
- if(LT==[]) SS=cons(S0,SS);
- }
- }
- return reverse(SS);
-}
-
-def ptcommon(X,Y)
-{
- if(length(X)!=2 || length(Y)!=2) return 0;
- if(type(X[1])==4){ /* X is a line */
- if((In=getopt(in))==-1||In==-2||In==-3){
- X0=(X[0][0]+X[1][0])/2;X1=(X[0][1]+X[1][1])/2;
- X=[[X0,X1],[X0+X[1][1]-X[0][1],X1-X[1][0]+X[0][0]]];
- if(In==-1&&type(Y[1])==4) return ptcommon(Y,X|in=-2);
- /* for the second line */
- if(In==-3) In=1;
- else In=0;
- }else if(In==2||In==3){
- X=(X[1][0]-X[0][0])+(X[1][1]-X[0][1])*@i;
- if(X==0) return 0;
- Y=(Y[1][0]-Y[0][0])+(Y[1][1]-Y[0][1])*@i;
- X=myarg(Y/X);
- return (In==2)?X:(X*180/deval(@pi));
- }else if(In!=1) In=0;
- if(type(Y[0])<=3){
- if(In==1){
- return [(Y[1]*X[0][0]+Y[0]*X[1][0])/(Y[0]+Y[1]),
- (Y[1]*X[0][1]+Y[0]*X[1][1])/(Y[0]+Y[1])];
- }
- XX=X[1][0]-X[0][0];YY=X[1][1]-X[0][1];
- Arg=(length(Y)<2)?0:Y[1];
- Arg=deval(Arg);
- if(Arg!=0){
- S=dcos(Arg)*XX-dsin(Arg)*YY;
- YY=dsin(Arg)*XX+dcos(Arg)*YY;
- XX=S;
- }
- S=dnorm([XX,YY]);
- if(S!=0){
- XX*=Y[0]/S;YY*=Y[0]/S;
- }
- return [X[1][0]+XX,X[1][1]+YY];
- }
- S=[X[0][0]+(X[1][0]-X[0][0])*x_,X[0][1]+(X[1][1]-X[0][1])*x_];
- if(type(Y[1])==4){ /* Y is a line */
- T=[Y[0][0]+(Y[1][0]-Y[0][0])*y_-S[0],
- Y[0][1]+(Y[1][1]-Y[0][1])*y_-S[1]];
- R=lsol(T,[x_,y_]);
- if(type(R[0])==4&&type(R[1])==4&&R[0][0]==x_&&R[1][0]==y_){
- if(!In || (R[0][1]>=0&&R[0][1]<=1&&R[1][1]>=0&&R[1][1]<=1) )
- return subst(S,x_,R[0][1],y_,R[1][1]);
- }
- if((type(R[0])>0&&type(R[0])<4)||(type(R[1])>0&&type(R[1])<4)) return 0;
- if(!In) return 1;
- I=(X[0][0]==X[1][0]&&Y[0][0]==Y[1][0]&&X[0][0]==Y[0][0])?1:0;
- if(X[0][I]<=X[1][I]){
- X0=X[0][I];X1=X[1][I];
- }else{
- X1=X[0][I];X0=X[1][I];
- }
- return ((Y[0][I]<X0 && Y[1][I]<X0)||(Y[0][I]>X1&&Y[1][I]>X1))?0:1;
- }else if(Y[1]==0){ /* orth */
- T=[Y[0][0]+(X[1][1]-X[0][1])*y_-S[0],
- Y[0][1]-(X[1][0]-X[0][0])*y_-S[1]];
- R=lsol(T,[x_,y_]);
- if(type(R[0])==4&&type(R[1])==4&&R[0][0]==x_&&R[1][0]==y_){
- if(!In||(R[0][1]>=0&&R[0][1]<=1))
- return subst(S,x_,R[0][1],y_,R[1][1]);
- }
- return (X[0]==X[1])?0:1;
- }else if(type(Y[1])==1 && Y[1]>0){ /* circle */
- T=(S[0]-Y[0][0])^2+(S[1]-Y[0][1])^2-Y[1]^2;
- D=mycoef(T,1,x_)^2-4*mycoef(T,0,x_)*mycoef(T,2,x_);
- if(D==0){
- V=mycoef(T,1,x_)/(2*mycoef(T,2,x_));
- if(!in||(V>=0&&V<=1)) return [subst(S,x_,V)];
- }
- else if((type(D)==1&&D>0)){
- D=dsqrt(D);
- V=-(mycoef(T,1,x_)+D)/(2*mycoef(T,2,x_));
- if(!In||(V>=0&&V<=1)) L=[subst(S,x_,V)];
- else L=[];
- V=(D-mycoef(T,1,x_))/(2*mycoef(T,2,x_));
- if(!In||(V>=0&&V<=1)) L=cons(subst(S,x_,V),L);
- if(length(L)>0) return L;
- }
- }
- return 0;
- }
- if(type(Y[1])==4 || X[1]==0) return ptcommon(Y,X);
- /* X is a circle */
- if(Y[1]==0){ /* tangent line */
- if(Y[0][0]==X[0][0]+X[1] || Y[0][0]==X[0][0]-X[1]) L=[[Y[0][0],X[0][1]]];
- else L=[];
- P=(Y[0][0]+x_-X[0][0])^2+(Y[0][1]+x_*y_-X[0][1])^2-X[1]^2;
- Q=mycoef(P,1,x_)^2-4*mycoef(P,2,x_)*mycoef(P,0,x_);
- for(R=polroots(Q,y_);R!=[];R=cdr(R)){
- X0=-subst(mycoef(P,1,x_)/(2*mycoef(P,2,x_)),y_,car(R));
- L=cons([Y[0][0]+X0,Y[0][1]+car(R)*X0],L);
- }
- }else{ /* Y is a circle */
- P=(x_-X[0][0])^2+(y_-X[0][1])^2-X[1]^2;
- Q=(x_-Y[0][0])^2+(y_-Y[0][1])^2-Y[1]^2;
- V=(X[0][0]!=Y[0][0])?[x_,y_]:[y_,x_];
- R=subst(P,V[0],T=lsol(P-Q,V[0]));
- if(type(T[0])<4) return (T[0]==0)?1:0;
- S=polroots(R,V[1]);
- for(L=[];S!=[];S=cdr(S)){
- R=subst(T,V[1],car(S));
- if(V[0]==x_) L=cons([R,car(S)],L);
- else L=cons([S,R],L);
- }
- }
- if(length(L)!=0) return L;
- return 0;
-}
-
-def tobezier(L)
-{
- if((Div=getopt(div))==1||Div==2){
- if(length(L)!=4) return [tobezier(L|inv=[0,1/2]),tobezier(L|inv=[1/2,1])];
- if(type(L)==4) L=ltov(L);
- if(type(L[0])==4)
- L=[ltov(L[0]),ltov(L[1]),ltov(L[2]),ltov(L[3])];
- S=[(L[0]+3*L[1]+3*L[2]+L[3])/8];
- T=[L[3]];
- S=cons((L[0]+2*L[1]+L[2])/4,S);
- T=cons((L[2]+L[3])/2,T);
- S=cons((L[0]+L[1])/2,S);
- T=cons((L[1]+2*L[2]+L[3])/4,T);
- S=cons(L[0],S);
- T=cons((L[0]+3*L[1]+3*L[2]+L[3])/8,T);
- return [S,T];
- }
- if(Div>2&&Div<257){
- L=tobezier(L);
- for(R=[],I=Div-1;I>=0;I--)
- R=cons(tobezier(L|inv=[I/Div,(I+1)/Div]),R);
- return R;
- }
- if((V=getopt(inv))==1 || type(V)>3){
- if(type(L[0])>3 && type(V)>3) L=tobezier(L);
- if(type(V)>3 && length(V)>2) V2=V[2];
- if(type(V2)!=2) V2=t;
- if(type(V)>3) L=subst(L,V2,(V[1]-V[0])*V2+V[0]);
- N=mydeg(L,V2);
- for(R=[],I=0;I<=N;I++){
- RT=mycoef(L,I,V2);
- R=cons(RT/binom(N,I),R);
- L-=RT*V2^I*(1-V2)^(N-I);
- }
- return reverse(R);
- };
- N=length(L)-1;
- V=newvect(2);
- for(I=0;I<=N;I++,L=cdr(L)){
- if(type(X=car(L))==4) X=ltov(X);
- V+=X*binom(N,I)*t^I*(1-t)^(N-I);
- }
- return V;
-}
-
-def cutf(F,X,VV)
-{
- if(type(car(V=VV))==2){
- Y=[car(V),X];
- V=cdr(V);
- }else Y=X;
- if(type(X)>1){
- Y=(type(Y)==4)?Y[0]:x;
- V1=makenewv(F);
- if(X==Y||Y==x){
- V2=makenewv([F,V1]);
- F=mysubst(F,[Y,V2]);
- V=cons(V2,V);
- }
- return [V1,[V1,os_md.cutf,[F],X,[V]]];
- }
- if(car(V)!=[] && X<car(V)[0]) return myfeval(car(V)[1],Y);
- for(V=cdr(V); ;V=R){
- if((R=cdr(V))==[]){
- if(car(V)!=[] && car(V)[0]<X) return myfeval(car(V)[1],Y);
- return myfeval(F,Y);
- }
- if(X>car(V)[0]) continue;
- if(X==car(V)[0]) return car(V)[1];
- return myfeval(F,Y);
- }
-}
-
-def fsum(F,L)
-{
- if(getopt(df)==1){
- F=f2df(F);
- }else Sub=getopt(subst);
- if(type(L[0])==2){
- X=L[0];
- L=cdr(L);
- }else X=0;
- V=(length(L)>2)?L[2]:1;
- for(R=0,I=L[0];;I+=V){
- if(V==0||(I-L[1])*V>0) return R;
- R+=(Sub==1)?subst(F,X?X:x,I):os_md.myfeval(F,X?[X,I]:I);
- }
-}
-
-def periodicf(F,L,X)
-{
- if(type(L)==4) L=[eval(L[0]),eval(L[1])];
- else L=eval(L);
- if(isvar(X)){
- Y=makenewv([X,V]);
- Z=makenewv([X,Y,V]);
- return [Z,[Z,os_md.periodicf,[mysubst(F,[x,Y])],(type(L)==4)?[L]:L,[[Y,X]]]];
- }
- if(type(X)==4){
- V=X[0];
- X=X[1];
- }else V=x;
- if(type(F)==5){
- X=eval(X);
- return myfeval(F[floor(X/L)%length(F)],[V,X-floor(X/L)*L]);
- }
- if(type(L)==4){
- X-=floor((X-L[0])/(L[1]-L[0]))*(L[1]-L[0]);
- return myfeval(F,[V,X]);
- }
-}
-
-def cmpf(X)
-{
- if(type(X)>3){
- if(type(L)==7) return [S_Fc,Dx,S_Ic,S_Ec,S_EC,S_Lc];
- S_Lc=0;
- if(type(S_Fc=X[0])!=4) S_Fc=f2df(S_Fc);
- S_Ic=X[1];
- if(length(S_Ic)>2){
- S_Fc=mysubst(S_Fc,[S_Ic[0],x]);
- S_Ic=cdr(S_Ic);
- }
- S_Dc=(type(S_Ic[0])==7)?1:0;
- if(type(S_Ic[1])==7) S_Dc=ior(S_Dc,2);
- if(type(S_Ec=getopt(exp))!=1) S_Ec=0;
- if(S_Ec<=0){
- S_EC=-S_Ec;
- if(S_EC==0) S_EC=1;
- if(S_Dc==3) S_EC*=2;
- else S_EC/=4;
- if(type(F=X[0])==3&&vars(F)==[x]&&(D=deg(nm(F),x))==deg(dn(F),x)-2){
- S_Lc=S_EC*coef(nm(F),D,x)/coef(dn(F),D+2,x);
- }
- }else{
- S_EC=S_Ec;
- if(S_Dc==3) S_EC*=12;
- else S_EC/=6;
- }
- if(type(S_Fc)==3) S_Fc=red(S_Fc);
- S_EC=1/S_EC;
- return [z_,[z_,os_md.cmpf,x]];
- }
- if(X<=0 && iand(S_Dc,1)) return S_Lc;
- if(X>=1 && iand(S_Dc,2)) return S_Lc;
- if(S_Dc==3){
- if(S_Ec>0){
- Y0=dexp(1/X)*S_EC;
- Y1=dexp(1/(1-X))*S_EC;
- return myfeval(S_Fc,Y1-Y0)*(Y0/X^2+Y1/(1-X)^2);
- }
- return myfeval(S_Fc,S_EC/(1-X)-S_EC/X)*(S_EC/(1-X)^2+S_EC/X^2);
- }
- if(S_Dc==1){
- if(S_Ec>0){
- Y=dexp(1-1/X);
- R=myfeval(S_Fc,S_EC*(Y-1)+I[1])*Y;
- }
- else R=myfeval(S_Fc,I[1]+(1-1/X)*S_EC);
- return R*S_EC/X^2;
- }
- if(S_Dc==2){
- if(S_Ec>0){
- Y=dexp(X/(1-X));
- R=myfeval(S_Fc,S_EC*(Y-1)+S_Ic[0])*Y;
- }else R=myfeval(S_Fc,S_EC*X/(1-X)+S_Ic[0]);
- return R*S_EC/(1-X)^2;
- }
- X=S_Ic[0]+(S_Ic[1]-S_Ic[0])*X;
- return myfeval(S_Fc,X)/(S_Ic[1]-Ic[0]);
-}
-
-def fresidue(P,Q)
-{
- if(iscoef(Q,os_md.israt)) S=fctr(Q);
- else S=[[Q,1]];
- for(R=[];S!=[];S=cdr(S)){
- T=car(S);
- if((D=mydeg(T[0],z))==0) continue;
- L=[];
- if(iscoef(T[0],os_md.iscrat)) L=getroot(T[0],z|cpx=2);
- if(findin(z,vars(L))>=0) L=[];
- if(L==[]) L=polroots(T[0],z|comp=-1);
- for(;L!=[];L=cdr(L)){
- QQ=Q;
- for(I=T[1]; I>1;I--) QQ=mydiff(QQ,z);
- for(U=0,W=I=T[1];I>0;I--,W++){
- QQ=diff(QQ,z);
- U+=subst(QQ,z,L[0])*(z-L[0])^(W-T[1])/fac(W);
- }
- UD=mydiff(U,z);
- for(I=T[1],K=1,PP=P; I>1;I--,K++)
- PP=diff(PP,z)*U-K*PP*UD;
- QQ=subst(PP,z,L[0])/subst(U,z,L[0])^K;
-/* if(D==2) QQ=sqrt2rat(QQ); */
- R=cons([L[0],sqrt2rat(QQ)],R);
- }
- }
- if(type(L=getopt(cond))==4){
- for(S=[];R!=[];R=cdr(R)){
- Z=car(R);
- for(LL=L;LL!=[];LL=cdr(LL)){
- X=real(car(Z));Y=imag(car(Z));
- if(myf3eval(car(LL),X,Y,car(Z))<=0) break;
- }
- if(LL==[]) S=cons(Z,S);
- }
- R=reverse(S);
- }
- if((Sum=getopt(sum))==1||Sum==2){
- for(S=0;R!=[];R=cdr(R)) S+=car(R)[1];
- if(Sum==2) S*=2*@pi*@i;
- return sqrt2rat(S);
- }
- return R;
-}
-
-def fint(F,D,V)
-{
- if(((L=length(V))==2 || (L==3&&isvar(V[0])<3))
- && (type(V[L-1])==7||(type(V[L-1])<3&&type(eval(V[L-1]))<2)))
- /* real integral */
- return areabezier([F,D,V]|option_list=getopt());
- /* complex integral */
- if(L>1&&type(V[1])==4&&type(V[1][1])<4){
- if(type(V[0])==4&&type(V[0][0])<2){
- for(R=[],VT=car(V),VV=cdr(V);VV!=[];VV=cdr(VV),VT=VU){
- if((VU=car(VV))==-1) VU=car(V);
- R=cons([ptcommon([VT,VU],[t,1-t]|in=1),[0,1]],R);
- }
- V=reverse(R);
- }
- else if(L==2) V=[V];
- }
- Opt=cons(["cpx",1],getopt());
- for(R=0;V!=[];V=cdr(V)){
- VT=car(V);
- X=car(VT)[0];XD=red(diff(X,t));
- Y=car(VT)[1];YD=red(diff(Y,t));
- F=mysubst(F,[[x,X],[y,Y],[z,X+@i*Y]]);
- if(type(F)==4)
- FF=cons(F[0]*(XD+@i*YD),cdr(F));
- else FF=red(F*(XD+@i*YD));
- R+=areabezier([FF,D,cons(t,VT[1])]|option_list=Opt);
- }
- return R;
-}
-
-def areabezier(V)
-{
- if(getopt(cpx)==1){
- Opt=delopt(getopt(),"cpx");
- F=V[0];
- if(!isvar(Var=V[2][0])) Var=x;
- if(type(F)==3 && vars(F)==[Var] && imag(dn(F))!=0){
- F=(nm(F)*conj(dn(F)))/(dn(F)*conj(dn(F)));
- V0=red(real(nm(F))/dn(F));
- R=areabezier([V0,V[1],V[2]]|option_list=Opt);
- V0=red(imag(nm(F))/dn(F));
- return R+@i*areabezier([V0,V[1],V[2]]|option_list=Opt);
- }
- if(getopt(Acc)!=1) F=f2df(F);
- V0=compdf([o,[o,real,o_]],o_,F);
- R=areabezier([V0,V[1],V[2]]|option_list=Opt);
- V0=compdf([o,[o,imag,o_]],o_,F);
- return R+@i*areabezier([V0,V[1],V[2]]|option_list=Opt);
- }
- if(type(V[0])!=4 || vars(V[0][0])!=0){
- Mx=[-2.0^(512),2.0^(512)];
- I=length(V[2]);
- if(type(V[2][I-1])==7||type(V[2][I-2])==7){ /* infinite interval */
- if(type(Ec=getopt(exp))==1) R=cmpf([V[0],V[2]]|exp=Ec);
- else R=cmpf([V[0],V[2]]);
- V=[R,V[1],[0,1]];
- }
- if(type((Int=getopt(int)))==1 && type(V[0])<4 && (V1=V[1])>=0){
- if(Int==2&&iand(V1,1)) V1++;
- if(!V1) V1=32;
- Opt=cons(["raw",1],getopt());
- W=xygraph(V[0],V[1],V[2],Mx,Mx|option_list=Opt);
- SS=W[0][1];
- for(S0=S1=0,I=0,L=W;L!=[] && I<=V1;I++, L=cdr(L)){
- if(iand(I,1)) S1+=car(L)[1];
- else S0+=car(L)[1];
- if (I==V1) SS+=car(L)[1];
- }
- VV=deval(V[2][1]-V[2][0]);
- if(Int==2)
- return (2*S0+4*S1-SS)*VV/(3*V1);
- else
- return (2*S0+2*S1-SS)*VV/(2*V1);
- }
- Opt=cons(["opt",0],getopt());
- V=xygraph(V[0],V[1],V[2],Mx,Mx|option_list=Opt);
- }
- if(type(V[0][0])!=4) V=os_md.lbezier(V);
- for(S=0; V!=[]; V=cdr(V)){
- B=tobezier(car(V));
- P=intpoly(B[1]*diff(B[0],t),t);
- S+=mysubst(P,[t,1]);
- }
- return S;
-}
-
-def velbezier(V,L)
-{
- if(L==0) L=[t,0,1];
- else L=[(length(L)==3)?L[2]:t,L[0],L[1]];
- for(R=[],II=length(V)-1;II>=0;II--){
- S=fmmx(diff(V[II],L[0]|dif=1),L|dif=1);
- for(U=0;S!=[];S=cdr(S)) if((T=abs(car(S)[1]))>U) U=T;
- R=cons(U,R);
- }
- return R;
-}
-
-def ptbezier(V,L)
-{
- if(type(V[0])==4&&type(V[0][0])!=4) V=lbezier(V);
- K=length(V);
- if(type(L)<2){
- if(L<0) return K;
- if(L>=K-1) L=[K-1,1];
- else{
- L0=floor(L);
- if(L0>=K-1) L0=K-1;
- L=[L0,L-L0];
- }
- }
- if(L[0]>=0) B=V[L[0]];
- else B=V[K+L[0]];
- B=tobezier(B);
- BB=[diff(B[0],t),diff(B[1],t)];
- return [subst(B,t,L[1]),subst(BB,t,L[1])];
-}
-
-def ptcombezier(P,Q,T)
-{
- if(type(T)<2){
- if(T<2) T=20; /* default */
- return ptcombezier(P,Q,[0,0,1,T]);
- }
- V=T[2]/2;;
- PB=tobezier(P|div=1);
- PP=[ptbbox(PB[0]),ptbbox(PB[1])];
- QB=tobezier(Q|div=1);
- QQ=[ptbbox(QB[0]),ptbbox(QB[1])];
- for(L=[],I=0;I<2;I++){
- for(J=0;J<2;J++){
- if(!iscombox(PP[I],QQ[J])) continue;
- if(T[3]<=1) return
- [[T[0]+(I+0.5)*V,T[1]+(J+0.5)*V,
- [(PP[I][0][0]+PP[I][0][1])/2,(PP[I][1][0]+PP[I][1][1])/2]]];
- else{
-#if 0
- U=PB[I][0];V=PB[I][length(PB[I])-1];
- if(abs(A=(U[0]-V[0]))>abs(B=(U[1]-V[I])))
- M=mat([1,0],[-B/A,1]);
- else if(U!=V)
- M=mat([1,-A/B],[0,1]);
- else continue;
- if(!iscombox(ptbox(ptaffine(M,PB[I])),ptbox(ptaffine(M,QB[J])))) continue;
-#endif
-
- LN=ptcombezier(PB[I],QB[J],[T[0]+I*V,T[1]+J*V,V,T[3]-1]);
-#if 0
- L=append(LN,L);
-#else
- if(LN!=[]){
- if(L==[]) L=LN;
- else for(VV=3*V/2^T[3];LN!=[];LN=cdr(LN)){
- for(LT=L;LT!=[];LT=cdr(LT)){
- if(abs(car(LN)[0]-car(LT)[0])<VV&&abs(car(LN)[1]-car(LT)[1])<VV) break;
- }
- }
- }
- if(length(L)>32){ /* Too many points */
- I=J=2;
- }
-#endif
- }
- }
- }
- return L;
-}
-
-
-def ptcombz(P,Q,T)
-{
- if(P==Q) Q=0;
- if(type(P[0][0])!=4) P=P0=lbezier(P);
- if(Q==0){
- Q=P;F=1;
- }
- else if(type(Q[0][0])!=4) Q=lbezier(Q);
- for(R=[],I=0,Q0=Q;P!=[];P=cdr(P),I++){
- for(J=0,Q=Q0;Q!=[];Q=cdr(Q),J++){
- if(F==1&&I<J+2) break;
- if((RT=ptcombezier(car(P),car(Q),T))!=[]){
- RT=cons([I,J],RT);
- R=cons(RT,R);
- }
- }
- }
- if((Red=getopt(red))==1||Red==2){
- if(type(M=getopt(prec))!=1) M=12;
- for(F=0,T=P0;T!=[];T=cdr(T)){
- for(S=car(T);S!=[];S=cdr(S)){
- if(type(ST=car(S))==4 && type(ST[0])<2){
- if(F++==0){
- X0=X1=ST[0];Y0=Y1=ST[1];
- }else{
- if(ST[0]<X0) X0=ST[0];
- if(ST[0]>X1) X1=ST[0];
- if(ST[1]<Y0) Y0=ST[1];
- if(ST[1]>Y1) Y1=ST[1];
- }
- }
- }
- }
- V0=(X1-X0)/2^M;V1=(Y1-Y2)/2^M;
- for(RR=[],RT=R;RT!=[];RT=cdr(RT))
- for(S=cdr(car(RT));S!=[];S=cdr(S)) RR=cons(car(S)[2],RR);
- RR=ltov(RR);L=length(RR);
- for(I=0;I<L;I++)
- for(K=1,J=I+1;K!=0&&J<L;J++)
- if(abs(RR[I][0]-RR[J][0])<V0 && abs(RR[I][1]-RR[J][1])<V1) RR[I]=K=0;
- R0=[];
- I=L-1;
- if(Red==2){
- for(;I>=0;I--) if(RR[I]!=0) R0=cons(RR[I],R0);
- }else{
- for(RT=R;RT!=[];RT=cdr(RT)){
- R00=[car(RT)[0]];
- for(S=cdr(car(RT));S!=[];S=cdr(S),I--)
- if(RR[L-I-1]!=0) R00=cons(car(S),R00);
- if(length(R00)>1) R0=cons(reverse(R00),R0);
- }
- }
- return R0;
- }
- return reverse(R);
-}
-
-def draw_bezier(ID,IDX,B)
-{
- if(getopt(init)==1){
- S_FDot=0;
- return;
- }
- if(type(Col=getopt(col))!=1&&Col!=0) Col=0;
- Dot=0;
- if(type(Opt=getopt(opt))==7){
- if(!Col){
- Col=drawopt(Opt,0);
- if(Col==-1) Col=0;
- }
- T=drawopt(Opt,3);
- if(iand(T,2)){
- M=iand(T,1)?1/8:1/4;
- for(C=Col,Col=I=0;I<20;I+=8)
- Col+=ishift(0xff-(floor((0xff-iand(0xff,ishift(C,I)))*M)),-I);
- }
- if(iand(T,4)) Dot=2; /* 2 or 3 or 4 or 6 */
- else if(iand(T,8)) Dot=4;
- }
- if(type(B)==4 && (type(B[0])==4||type(B[0])==5) && type(B[0][0])<2) B=lbezier(B);
- else if(type(B)==5) B=[vtol(B)];
- for(;B!=[];B=cdr(B)){
- if(vars(F=car(B))==[]){
-#if 1
- if(length(F)<3&&!Dot){ /* line or point */
- if(length(F)>0){
- G=[rint(F[0][0]),rint(F[0][1])];
- if(length(F)==1) draw_obj(ID,IDX,G,Col);
- else{
- G=[G[0],G[1],rint(F[1][0]),rint(F[1][1])];
- draw_obj(ID,IDX,G,Col);
- }
- }
- continue;
- }
-#endif
- if(length(F)<2) continue;
- F=tobezier(F);
- }
- N=velbezier(F,0);
- N=(N[0]>N[1])?N[0]:N[1];
- if(!N) N=1;
- for(I=0;I<=N;I++,S_FDot++){
- if(Dot!=iand(S_FDot,Dot)) continue;
- G=subst(F,t,I/N);
- G=[rint(G[0]),rint(G[1])];
- if(G!=G0){
- draw_obj(ID,IDX,G,Col);
- G0=G;
- }
- }
- }
- if(S_FDot-->=2^32) S_FDot=0;
- return 0;
-}
-
-def lbezier(L)
-{
- if((In=getopt(inv))==1||In==2||In==3){
- for(F=0,R=[];L!=[];L=cdr(L)){
- LT=car(L);
- if(F==car(LT)) R=cons(1,R);
- else{
- if(R!=[]&&F!=0) R=cons(0,R);
- R=cons(G=car(LT),R);
- if(In==3) In==2;
- }
- for(LT=cdr(LT);LT!=[];LT=cdr(LT))
- R=cons(car(LT),R);
- if((F=car(R))==G&&In==1){
- R=cons(-1,cdr(R));
- F=0;
- }
- }
- if(In==3 && car(R)==G) R=cons(-1,cdr(R));
- return reverse(R);
- }
- for(F=0,RT=R=[];L!=[];L=cdr(L)){
- if(type(T=car(L))==4||type(T)==5){
- if(F==0){
- FT=T;F=1;
- }
- RT=cons(T,RT);
- }else if(T==0){
- if(RT==[]) R=cons(reverse(RT),R);
- RT=[];F=0;
- }else if(T==1){
- if(RT!=[]){
- R=cons(reverse(RT),R);
- RT=[car(RT)];
- }else{
- RT=[];F=0;
- }
- }else if(T==-1){
- RT=cons(FT,RT);
- R=cons(reverse(RT),R);
- RT=[];F=0;
- }
- }
- if(RT!=[]) R=cons(reverse(RT),R);
- return reverse(R);
-}
-
-
-def xybezier(L)
-{
- if(L==0 || (LS=length(L))==0) return "";
- Out=str_tb(0,0);
- if(type(VF=getopt(verb))==4){
- if(type(car(VF))>3){
- VFS=VF;VF=1;
- }else{
- VFS=cdr(VF);VF=car(VF);
- }
- }else VFS=["$\\bullet$","$\\times$"];
- if(VF!=1 && VF!=2) VF=0;
- if(!TikZ){
- if(VF) Ob=str_tb(0,0);
- T="\n**\\crv{";
- if(type(Opt=getopt(opt))==7 && Opt!="") T=T+Opt;
- L00=Q=L[I0=0];S=S1="";
- for(F=0,I=1;I<=LS;I++){
- P=Q;Q=(I==LS)?0:L[I];
- if(type(Q)==4){
- if(F==0){
- S1="";L0=P;F=1;
- continue;
- }else if(F==1)
- F=2;
- else if(F==2){
- S1=S1+"&";
- }
- S1=S1+xypos(P);
- if(VF&&length(VFS)>1) str_tb(xyput([P[0],P[1],VFS[1]]),Ob);
- }else{
- if(Q==0){
- if(F>0){
- str_tb("{"+xypos(L0)+";"+xypos(P)+T+S1+"}};\n",Out);
- if(VF){
- str_tb(xyput([L[0][0],L[0][1],VFS[0]]),Ob);
- if(VF==1) str_tb(xyput([P[0],P[1],VFS[0]]),Ob);
- }
- F=0;
- }
- }else if(Q==1){
- str_tb("{"+xypos(L0)+";"+xypos(P)+T+S1+"}};\n",Out);
- if(VF){
- str_tb(xyput([L[0][0],L[0][1],VFS[0]]),Ob);
- if(VF==1) str_tb(xyput([P[0],P[1],VFS[0]]),Ob);
- }
- F=1;
- }else if(Q==-1){
- if(F==2)
- S1=S1+"&";
- str_tb("{"+xypos(L0)+";"+xypos(L00)+T+S1+xypos(P)+"}};\n",Out);
- if(VF) str_tb(xyput([L[0][0],L[0][1],VFS[0]]),Ob);
- F=0;
- }
- if(F==1){
- if(I<LS-1 && type(L[I+1])<2){
- if(L[I+1]==-1){
- str_tb("{"+xypos(P)+";"+xypos(L00)+T+"}};\n",Out);
- }
- if(VF) str_tb(xyput([P[0][0],P[0][1],VFS[0]]),Ob);
- F=0;
- }
- }
- while(++I<LS && type(L[I])<2);
- if(I>=LS) break;
- if(F==1){
- Q=P;I--;F=0;
- }else L00=Q=L[I];
- }
- }
- }else{
- if(type(T=getopt(cmd))==7){
- if(T!="") T="\\"+T;
- }else T="\\draw";
- if((Rel=getopt(relative))==1) VF=0;
- if(VF) Ob=str_tb(0,0);
- if(type(Opt=getopt(opt))==7 && Opt!="") T=T+"["+Opt+"]";
- Out=str_tb(T,0);
- Q=L[0];
- for(F=M=0,I=1;I<=LS;I++){
- P=Q; Q=(I==LS)?0:L[I];
- if(++M>XYLim){
- str_tb("\n",Out);M=1;
- }
- if(type(Q)==4 || type(Q)==5 || type(Q)==7){
- if(F==0){
- str_tb(" ",Out);
- F=1;
- }else if(F==1){
- str_tb(" .. controls ",Out);
- F=2;
- }else if(F==2){
- str_tb(" and ",Out);
- F=2;
- }
- PP=xypos(P);
- if(Rel==1 && F==2) PP="+"+PP;
- str_tb(PP,Out);
- if(VF&&((F<2)||length(VFS)>1))
- str_tb(xyput([P[0],P[1],(F<2)?VFS[0]:VFS[1]]),Ob);
- }else{
-/* if(I<LS-1) VF=0; */
- if(Q==0||Q==1){
- PP=xypos(P);
- if(Rel==1) PP="+"+PP;
- str_tb(((F==0)?" ":((F==1)?" -- ":" .. "))+PP,Out);
- if(VF) str_tb(xyput([P[0],P[1],VFS[0]]),Ob);
- F=Q;
- }else if(Q==-1){
- PP=xypos(P);
- if(Rel==1) PP="+"+PP;
- if(F==1)
- str_tb("..controls "+PP+" .. cycle",Out);
- else if(F==2)
- str_tb(" and "+PP+" .. cycle",Out);
- if(VF&&length(VFS)>1) str_tb(xyput([P[0],P[1],VFS[1]]),Ob);
- F=0;
- }
- if(F==1){
- if(I<LS-1){
- if(L[I+1]==-1){
- str_tb(" -- cycle",Out);
- I=I+1;
- F=0;
- }
- else if(type(L[I+1])<2) F=0;
- }
- }
- while(++I<LS && type(L[I])<2);
- if(I>=LS) break;
- Q=L[I];
- }
- }
- str_tb(";\n",Out);
- }
- if(VF) str_tb(str_tb(0,Ob),Out);
- return str_tb(0,Out);
-}
-
-def xybox(L)
-{
- K=length(L);
- P=L[0];Q=L[1];
- if(K==2)
- LL=[ P, [P[0],Q[1]], Q, [Q[0],P[1]] ];
- else{
- R=L[2];
- LL=[ P, R, Q, [P[0]+Q[0]-R[0],P[1]+Q[1]-R[1]] ];
- }
- Opt=getopt();
- SS=getopt(opt);
- FL=getopt(color);
- if(TikZ&&type(SS)<1&&K==2){
- if(type(FL)==4){
- F=FL[0];
- if(length(FL)>1) CMD=FL[1];
- }else if(type(FL)==7) F=FL;
- else F="";
- F=cons(F,["rectangle"]);
- if(CMD) return xyarrow(P,Q|opt=F,cmd=CMD);
- else return xyarrow(P,Q|opt=F);
- }
- if(type(SS)!=7&&!TikZ) Opt=cons(["opt","@{-}"],Opt);
- Opt=cons(["close",1],Opt);
- return xylines(LL|option_list=Opt);
-}
-
-def xyang(S,P,Q,R)
-{
- Opt=getopt();
- if(type(Prec=getopt(prec))!=1) Prec=0;
- if(type(Q)>2){
- if(R==1||R==-1){ /* 直角 */
- P1=ptcommon([Q,P],[-S,0]);
- S*=R;
- P2=ptcommon([P,P1],[S,@pi/2]);
- P3=ptcommon([P1,P2],[S,@pi/2]);
- return xylines([P1,P2,P3]|option_list=Opt);
- }else if((AR=abs(R))==0||AR==2||AR==3||AR==4){ /* 矢印 */
- Ang=myarg([Q[0]-P[0],Q[1]-P[1]]);
- if(R<0) Ang+=3.14159;
- ANG=[0.7854,0.5236,1.0472];
- X=(AR==0)?1.5708:ANG[AR-2];
- U=[P[0]+S*dcos(Ang+X),P[1]+S*dsin(Ang+X)];
- V=[P[0]+S*dcos(Ang-X),P[1]+S*dsin(Ang-X)]; /* 矢先 */
- V=(X==0)?[U,V]:[U,P,V];
- if(getopt(ar)==1) V=append([Q,P,0],V); /* 心棒 */
- return xylines(V|option_list=Opt);
- }else if(AR>4&&AR<9){
- Ang=myarg([Q[0]-P[0],Q[1]-P[1]]);
- ANG=[0.7854,0.5236,0.3927,0.2618];
- X=ANG[AR-5];
- U=[P[0]+S*dcos(Ang+X),P[1]+S*dsin(Ang+X)];
- V=[P[0]+S*dcos(Ang-X),P[1]+S*dsin(Ang-X)];
- W=ptcommon([P,U],[P,Q]|in=-2);
- W1=[(U[0]+P[0]+W[0])/3,(U[1]+P[1]+W[1])/3];
- W2=[(V[0]+P[0]+W[0])/3,(V[1]+P[1]+W[1])/3];
- L=[U,W1,P,1,W2,V];
- if(getopt(ar)==1) L=append([Q,P,0],L);
- if(type(Sc=getopt(scale))>0){
- if(type(Sc)==1) Sc=[Sc,Sc];
- L=ptaffine(diagm(2,Sc),L);
- }
- Opt=getopt(opt);
- if(type(Opt)>0) OL=[["opt",Opt]];
- else OL=[];
- if(getopt(proc)==1) return append([2,OL],L);
- S=xybezier(L|optilon_list=OL);
- if(getopt(dviout)!=1) return S;
- dviout(S);
- return 1;
- }
- }
- if(type(Q)<3){
- X=deval(Q); Y=deval(R);
- }else{
- X=myarg([Q[0]-P[0],Q[1]-P[1]]);
- Y=myarg([R[0]-P[0],R[1]-P[1]]);
- }
- if(Prec>2) N=8;
- else if(Prec==2) N=6;
- else if(Prec==1) N=4;
- else N=3;
- U=deval(@pi)*2/N;
- if(X==Y||Y-X>6.28318){
- for(L=[],I=N-1;I>=0;I--) L=cons([P[0]+S*dcos(I*U),P[1]+S*dsin(I*U)],L);
- return xylines(L|option_list=append([["curve",1],["close",1]],Opt));
- }
- for(M=1;(Y-X)/M>U;M++);
- for(L=[],I=M+1;I>-2;I--){
- Ang=X+(Y-X)*I/M;
- L=cons([P[0]+S*dcos(Ang),P[1]+S*dsin(Ang)],L);
- }
- if(getopt(ar)!=1) return xylines(L|option_list=append([["curve",1],["close",-1]],Opt));
- OL=delopt(Opt,["dviout","opt","proc"]);
- S=xylines(L|option_list=append([["curve",1],["close",-1],["opt",0]],OL));
- T=xylines([P,L[1]]|option_list=cons(["opt",0],OL));
- S=ptaffine("close",[S,T]); /* connect curves */
- if(getopt(opt)==0) return S;
- OL=(type(SS=getopt(opt))>1)?[["opt",SS]]:[];
- if(type(T=getopt(proc))==1 && T>=1 && T<=3) return [1,OL,S];
- if(OL==[]) S=xybezier(S);
- else S=(type(SS)==7)? xybezier(S|opt=SS):xybezier(S|opt=SS[0],cmd=SS[1]);
- if(getopt(dviout)==1) return xyproc(S|dviout=1);
- return S;
-}
-
-def xyoval(P,L,R)
-{
- if(type(Arg=getopt(arg))!=4 && type(Arg=getopt(deg))==4){
- if(length(Arg)>2)
- Arg=[@pi*Arg[0]/180,@pi*Arg[1]/180,@pi*Arg[2]/180];
- else
- Arg=[@pi*Arg[0]/180,@pi*Arg[1]/180];
- }
- if(type(Arg)==4){
- Arg0=deval(Arg[0]); Arg1=deval(Arg[1]);
- if(length(Arg)>2) Arg2=deval(Arg[2]);
- if(Arg1<Arg0 || Arg0<-7) return 0;
- }
- if(type(Prec=getopt(prec))!=0) Prec=0;
- if((Ar=getopt(ar))!=1) Ar=0;
- L=xyang(L,[0,0],Arg0,Arg1|prec=Prec,opt=0,ar=Ar);
- Sc=getopt(scale);
- if(type(Sc=getopt(scale))<1) Sc=[1,1];
- else if(type(Sc)==1) Sc=[Sc,Sc];
- M=mat([1,0],[0,R]);
- L=ptaffine(M,L|shift=P);
- M=mat([Sc[0],0],[0,Sc[1]]);
- L=ptaffine(M,L|arg=Arg2);
- if((Opt=getopt(opt))==0) return L;
- Opt=(type(Opt)>1)? [["opt2",Opt]]:[];
- if(getopt(proc)==1) return [1,Opt,L];
- S=xybezier(L|option_list=getopt());
- if(getopt(dviout)==1){
- xyproc(S|dviout=1);
- return 1;
- }
- return S;
-}
-
-def xycirc(P,R)
-{
- ST=getopt(opt);
- if(type(ST)<0) ST="";
- if(type(Arg=getopt(arg))!=4 && type(Arg=getopt(deg))==4){
- Arg=[@pi*Arg[0]/180,@pi*Arg[1]/180];
- }
-/* Is it OK?
- if(TikZ==0 && XYcm==1){
- R*=10; P=[P[0]*10,P[1]*10];
- }
-*/
- if(type(Arg)==4){
- Arg0=deval(Arg[0]); Arg1=deval(Arg[1]);
- if(Arg1<=Arg0 || Arg0<-7 || Arg1-Arg0>7) return 0;
- if(type(ST)==7)
- S=xygraph([R*cos(x)+P[0],R*sin(x)+P[1]],-4,[Arg0,Arg1],[P[0]-R-1,P[0]+R+1],
- [P[1]-R-1,P[1]+R+1]|opt=ST);
- else
- S=xygraph([R*cos(x)+P[0],R*sin(x)+P[1]],-4,[Arg0,Arg1],[P[0]-R-1,P[0]+R+1],
- [P[1]-R-1,P[1]+R+1]);
- if(getopt(close)==1){
- S=S+xyline([0,0],
- [deval(subst(R*cos(x)+P[0],x,Arg0)),deval(subst(R*sin(x)+P[0],x,Arg0))]);
- S=S+xyline([0,0],
- [deval(subst(R*cos(x)+P[0],x,Arg1)),deval(subst(R*sin(x)+P[0],x,Arg1))]);
- }
- return S;
- }
- if(TikZ){
- SP="";
- if(length(P)>2) SP=P[2];
- if(type(SP)!=7) SP="$"+my_tex_form(SP)+"$";
- if(R==0){
- if(ST!="") ST=ST+",";
- return "\\node ["+ST+"circle,draw]"+xypos([P[0],P[1]])+ "{"+SP+"};\n";
- }
- if(type(R)!=7) R=rtostr(deval(R));
- if(ST!="") ST="["+ST+"]";
- S="\\draw "+ST+xypos([P[0],P[1]])+" circle [radius="+R+"]";
- if(SP!="") S=S+" node at"+xypos([P[0],P[1]])+" {"+SP+"}";
- return S+";\n";
- }
- S="{"+xypos([P[0],P[1]]);
- if(length(P)>2){
- SP=P[2];
- if(type(P)!=7) SP=my_tex_form(SP);
- S=S+" *+{"+SP+"}";
- }
- S =S+" *\\cir";
- if(R!=0){
- R=deval(R);
- S=S+"<"+rtostr(R)+((XYcm)?"cm>":"mm>");
- }
- S = S+"{";
- if(type(ST)==7) S=S+ST;
- return S+"}};\n";
-}
-
-def ptaffine(M,L)
-{
- if(type(L)!=4&&type(L)!=5){
- erno(0);return L;
- }
- if(type(M)==7){ /* connect lists */
- if(M=="reverse"){
- for(LO=LR=[],F=0,LT=L; LT!=[]; LT=cdr(LT)){
- if(type(P=car(LT))==4 || type(P)==7){
- LR=cons(P,LR);
- continue;
- }else{
- if(P==-1){
- LL=reverse(LR);
- LO=append(reverse(cons(-1,cdr(LL))),LO);
- LO=cons(car(LL),LO);
- LR=[];
- }else if(P==1){
- LR=cons(car(LR),cons(1,cdr(LR)));
- }else if(P==0 || length(LT)==1){
- if(LO!=[] && car(LO)!=0 && (type(car(LO))==4 || car(LO)==1))
- LO=cons(0,LO);
- LO=append(LR,LO);
- if(length(LT)>1&&length(LO)>0&&car(LO)!=0) LO=cons(0,LO);
- LR=[];
- }
- }
- }
- return append(LR,LO);
- }
- if(type(L[0][0])!=4) L=[L];
- LO=[];
- if(M=="connect" || M=="close" || M=="loop"){
- Top=car(car(L));
- for(K=1,LL=L; LL!=[]; LL=cdr(LL)){
- for(F=0,LT=car(LL); LT!=[]; LT=cdr(LT),F++){
- if((LTT=car(LT))==0) LTT=1;
- if(F==0 && LO!=[]){
- LO0=car(LO);
- if(car(LO)!=1&&length(LO)>1) LO=cons(1,LO);
- if(LTT==LO0) continue;
- else LO=cons(1,cons(LTT, LO));
- }else LO=cons(LTT, LO);
- }
- }
- if(M!="connect"){
- if(Top==car(LO) || car(LO)==1 || M=="loop")
- LO=cons(-1,cdr(LO));
- else
- LO=cons(-1,cons(1,LO));
- }
- return reverse(LO);
- }
- if(M=="union"){
- for(LL=reverse(L); LL!=[]; LL=cdr(LL)){
- if(LO!=[]) LO=cons(0,LO);
- LO=append(car(LL),LO);
- }
- L=LO;
- }
- return L;
- }
- if(type(Arg=getopt(deg))==1)
- Arg=@pi*Arg/180;
- else Arg=getopt(arg);
- if(type(Arg)==2) Arg=deval(Arg);
- if(type(Arg)==1)
- M=M*mat([dcos(Arg),-dsin(Arg)],[dsin(Arg),dcos(Arg)]);
- if(type(Sft=getopt(org))==4){
- Sft=ltov(Sft);
- Sft-=M*Sft;
- }else Sft=ltov([0,0]);
- if(type(V=getopt(shift))==4)
- Sft+=ltov(V);
- if(getopt(proc)==1){
- if(Sft!=0&&ltov(Sft)!=[0,0]) Sft=[["shift",vtol(Sft)]];
- else Sft=[];
- for(LO=[],LT=L;LT!=[];LT=cdr(LT)){
- if(type(car(T=car(LT)))<2){
- if((P=car(T))==0){ /* exedraw 0 */
- V=[[T[1][0],T[2][0]],[T[1][0],T[2][1]],[T[1][1],T[2][0]],[T[1][1],T[2][1]]];
- V=ptbbox(ptaffine(M,V|option_list=Sft));
- L1=cdr(cdr(cdr(T)));
- LO=cons(append([0,V[0],V[1]],L1),LO);
- continue;
- }else if(P==1){ /* exedraw 1 */
- L1=[];
- for(TT=cdr(cdr(T));TT!=[];TT=cdr(TT)){
- D=car(TT);
- if(type(D[0][0])==4){
- for(L2=[],DT=D;DT!=[];DT=cdr(DT))
- L2=cons(ptaffine(M,car(DT)|option_list=Sft),L2);
- L1=cons(reverse(L2),L1);
- }else L1=cons(ptaffine(M,D|option_list=Sft),L1);
- }
- LO=cons(append([1,T[1]],reverse(L1)),LO);
- continue;
- }else if(P>=2 && P<=5){
- L1=ptaffine(M,cdr(cdr(T))|optilon_list=Sft);
- LO=cons(append([P,T[1]],L1),LO);
- continue;
- }
- }
- LO=cons(T,LO);
- }
- return reverse(LO);
- }
- F=0;
- if(type(L)==4){
- for(LT=L; LT!=[]; LT=cdr(LT)){
- if((T=type(car(LT)))==4||T==5){
- F=1; break;
- }
- }
- }
- if(F==0) return (Sft==0)?ptaffine(M,[L])[0]:ptaffine(M,[L]|shift=vtol(Sft))[0];
- for(LO=[],LT=L; LT!=[]; LT=cdr(LT)){
- if(((T=type(P=car(LT)))!=4 && T!=5)||type(P[0])>3) LO=cons(P,LO);
- else{
- if(T==4) P=ltov(P);
- V=M*P;
- if(Sft!=0) V+=Sft;
- if(T==4) V=vtol(V);
- LO=cons(V,LO);
- }
- }
- return reverse(LO);
-}
-
-def ptlattice(M,N,X,Y)
-{
- if(type(S=getopt(scale))!=1) S=1;
- if(type(Cond=getopt(cond))!=4) Cond=[];
- Line=getopt(line);
- if(Line==1 || Line==2) F=newmat(M,N);
- else Line=0;
- if(type(Org=getopt(org))==4) Org=ltov(Org);
- else Org=newvect(length(X));
- X=ltov(X); Y=ltov(Y);
- for(L=[],I=M-1;I>=0;I--){
- for(P0=P1=0,J=N-1;J>=0;J--){
- P=Org+I*X+J*Y;
- for(C=Cond; C!=[]; C=cdr(C))
- if(subst(car(C),x,P[0],y,P[1])<0) break;
- if(C!=[]) continue;
- if(Line) F[I][J]=1;
- else L=cons(vtol(S*P),L);
- }
- }
- if(Line==0) return L;
- for(I=M-1;I>=0;I--){
- for(T0=0,T1=J=N-1;J>=0;J--){
- if((K=F[I][J])!=0){
- if(T0==0) T0=J;
- else T1=J;
- }
- if(K==0 || T1==0){
- if(T1<T0){
- L=cons(vtol(S*(Org+I*X+T0*Y)), L);
- L=cons(vtol(S*(Org+I*X+T1*Y)), L);
- L=cons(0,L);
- }
- T0=0; T1=N-1;
- }
- }
- }
- for(J=N-1;J>=0;J--){
- for(T0=0,T1=I=M-1;I>=0;I--){
- if((K=F[I][J])!=0){
- if(T0==0) T0=I;
- else T1=I;
- }
- if(K==0 || T1==0){
- if(T1<T0){
- L=cons(vtol(S*(Org+T0*X+J*Y)), L);
- L=cons(vtol(S*(Org+T1*X+J*Y)), L);
- L=cons(0,L);
- }
- T0=0; T1=M-1;
- }
- }
- }
- return cdr(L);
-}
-
-def ptpolygon(N,R)
-{
- if(type(S=getopt(scale))!=1) S=1;
- if(type(Org=getopt(org))!=4) Org=[0,0];
- Pi=deval(@pi);
- if(type(Arg=getopt(deg))==1)
- Arg=Pi*Arg/180;
- else Arg=getopt(arg);
- if(type(Arg)==2) Arg=deval(Arg);
- if(type(Arg)!=1) Arg=0;
- Arg -= Pi*(1/2+1/N);
- D=Pi*2/N;
- for(L=[],I=N-1; I>=0; I--)
- L=cons([S*(Org[0]+R*dcos(Arg+I*D)),S*(Org[1]+R*dsin(Arg+I*D))],L);
- return L;
-}
-
-def ptwindow(L,X,Y)
-{
- if(type(S=getopt(scale))==1){
- X=[S*X[0],S*X[1]]; Y=[S*Y[0],S*Y[1]];
- }
- for(R=[],LT=L;LT!=[];LT=cdr(LT)){
- P=car(LT);
- if(P[0]<X[0] || P[0]>X[1] || P[1]<Y[0] || P[1]>Y[1])
- R=cons(0,R);
- else R=cons(P,R);
- }
- return reverse(R);
-}
-
-def lninbox(L,W)
-{
- if(L[0]==L[1]) return 0;
- R=newvect(2);C=newvect(2);
- for(J=0;J<2;J++){
- C[J]=L[1][J]-L[0][J];
- if(C[J]!=0){
- R[J]=[(W[J][0]-L[0][J])/C[J],(W[J][1]-L[0][J])/C[J]];
- if(R[J][0]>R[J][1]) R[J]=[R[J][1],R[J][0]];
- }
- }
- if(R[0]==0) R[0]=R[1];
- if(R[1]==0) R[1]=R[0];
- S0=(R[0][0]<R[1][0])?R[1][0]:R[0][0];
- S1=(R[0][1]<R[1][1])?R[0][1]:R[1][1];
- if(getopt(in)==1){
- if(S0<0) S0=0;
- if(S1>1) S1=1;
- }
- if(S0>S1) return 0;
- return [[L[0][0]+C[0]*S0,L[0][1]+C[1]*S0],[L[0][0]+C[0]*S1,L[0][1]+C[1]*S1]];
-}
-
-def ptbbox(L)
-{
- J=length(L[0]);
- if((Box=getopt(box))==1){
- for(R=[],I=0;I<J;I++){
- P=car(LT=L)[I][0];Q=car(LT)[I][1];
- for(;LT!=[];LT=cdr(LT)){
- if((type(T=car(LT))==4 || type(T)==5) && length(T)==J){
- if(T[I][0]<P) P=T[I][0];
- if(T[I][1]>Q) Q=T[I][1];
- }
- }
- R=cons([P,Q],R);
- }
- }else if(type(Box)==4) return ptbbox([ptbbox(L),Box]|box=1);
- else{
- for(R=[],I=0;I<J;I++){
- P=Q=car(LT=L)[I];LT=cdr(LT);
- for(;LT!=[];LT=cdr(LT)){
- if((type(T=car(LT))==4||type(T)==5) && type(T[0])<2 && length(T)==J){
- if((V=T[I])<P) P=V;
- else if(V>Q) Q=V;
- }
- }
- R=cons([P,Q],R);
- }
- }
- return reverse(R);
-}
-
-def iscombox(S,T)
-{
- for(;S!=[];S=cdr(S),T=cdr(T))
- if(car(S)[0]>car(T)[1] || car(S)[1]<car(T)[0]) return 0;
- return 1;
-}
-
-def ptcopy(L,V)
-{
- if(type(V[0])!=4) V=[V];
- for(F=0,LL=[]; V!=[]; V=cdr(V)){
- if(F) LL=append(LL,[0]);
- F++;
- LL=append(LL,ptaffine(1,L|shift=car(V)));
- }
-}
-
-def average(L)
-{
- L=os_md.m2l(L|flat=1);
- M0=M1=car(L);
- for(I=SS=0, LT=L; LT!=[]; LT=cdr(LT), I++){
- S+=(V=car(LT));
- SS+=V^2;
- if(V<M0) M0=V;
- else if(V>M1) M1=V;
- }
- SS=dsqrt(SS/I-S^2/I^2);
- S=[deval(S/I),SS,I,M0,M1];
- if(isint(N=getopt(sint))) S=sint(S,N);
- return S;
-}
-
-def m2ll(M)
-{
- for(R=[],I=size(M)[0]-1; I>=0; I--)
- R=cons(vtol(M[I]),R);
- return R;
-}
-
-def madjust(M,W)
-{
- if(type(Null=getopt(null))<0) Null=0;
- if(type(M)==4 && type(M[0])==4){
- M=lv2m(M|null=Null);
- return m2ll(madjust(M,W|null=Null));
- }
- S=size(M);
- if(W<0){
- W=-W;
- T0=ceil(S[0]/W);
- T1=S[1]*W;
- N=newmat(T0,T1);
- for(I=0; I<T0; I++){
- for(K=0; K<W; K++){
- II=K*T0+I;
- for(J=0; J<S[1]; J++)
- N[I][S[1]*K+J]=(II<S[0])?M[II][J]:Null;
- }
- }
- }else{
- T1=W;
- T0=S[0]*(D=ceil(S[1]/T1));
- N=newmat(T0,T1);
- for(K=0; K<D; K++){
- for(J=0; J<W;J++){
- JJ=W*K+J;
- for(I=0; I<S[0]; I++)
- N[S[0]*K+I][J]=(JJ<S[1])?M[I][JJ]:Null;
- }
- }
- }
- return N;
-}
-
-def texcr(N)
-{
- if(!isint(N) || N<0 || N>127) return N;
- S=(iand(N,8))? "\\allowdisplaybreaks":"";
- if(iand(N,2)) S=S+"\\\\";
- if(iand(N,16)) S=S+"\\pause";
- if(iand(N,1)) S=S+"\n";
- if(iand(N,4)) S=S+"& ";
- else if(!iand(N,1)) S=S+" ";
- if(iand(N,64)) S=S+"=";
- if(iand(N,32)) S=","+S;
- return S;
-}
-
-def ltotex(L)
-{
- /* extern TeXLim; */
-
- if(type(L)==5)
- L = vtol(L);
- if(type(L) != 4)
- return my_tex_form(L);
- Opt=getopt(opt);
- Pre=getopt(pre);
- if(type(Var=getopt(var))<1) Var=0;
- Cr2="\n";
- if(type(Cr=getopt(cr))==4){
- Cr2=Cr[1];Cr=Cr[0];
- }
- if(isint(Cr)) Cr=texcr(Cr);
- if(type(Cr)!=7) Cr="\\\\\n & "; /* Cr=7 */
- if(type(Opt)==7) Opt=[Opt];
- if(type(Opt)!=4)
- Op = -1;
- else{
- Op=findin(Opt[0],["spt","GRS","Pfaff","Fuchs","vect","cr","text","spts","spts0",
- "dform","tab", "graph","coord"]);
- Opt=cdr(Opt);
- }
- if(Op==0){ /* spt */
- Out = str_tb("\\left\\{\n ",0);
- for(CC=0; L!=[]; L=cdr(L), CC++){
- if(CC>0) str_tb(",\\, ",Out);
- TP=car(L);
- if(Op!=0)
- str_tb(my_tex_form(TP),Out);
- else if(TP[0]==1)
- str_tb(my_tex_form(TP[1]),Out);
- else
- str_tb(["[", my_tex_form(TP[1]), "]_", rtotex(TP[0])],Out);
- }
- str_tb("%\n\\right\\}\n",Out);
- }else if(Op==1){ /* GRS */
- Out = string_to_tb("\\begin{Bmatrix}\n");
- if(type(Pre)==7) str_tb(Pre,Out);
- MC=length(M=ltov(L));
- for(ML=0, I=length(M); --I>=0; ){
- if(length(M[I]) > ML) ML=length(M[I]);
- }
- for(I=0; I<ML; I++){
- for(CC=J=0; J<MC; J++, CC++){
- if(length(M[J]) <= I){
- if(CC > 0) str_tb(" & ",Out);
- }else if(M[J][I][0] <= 1){
- if(M[J][I][0] == 0) str_tb(" & ",Out);
- else
- str_tb([(!CC)?" ":" & ", my_tex_form(M[J][I][1])], Out);
- }else
- str_tb([((!CC)?" [":" & ["), my_tex_form(M[J][I][1]), "]_",
- rtotex(M[J][I][0])], Out);
- }
- str_tb((I<ML-1)?"\\\\\n":"\n", Out);
- }
- str_tb("\\end{Bmatrix}",Out);
- }else if(Op==2){ /* Pfaff */
- V=monototex(Opt[0]);
- Out = string_to_tb("d"+V+"= \\Biggl(");
- Opt=cdr(Opt);
- II=length(Opt);
- for(I=0; I<II; I++){
- str_tb([(I>0)?" + ":" ",mtotex(L[I]),"\\frac{d",monototex(Opt[I]),"}{",
- my_tex_form(Opt[I]),(I==II-1)?"}\n":"}\n\\\\&\n"],Out);
- }
- str_tb(["\\Biggr)",V,"\n"],Out);
- }else if(Op==3){ /* Fuchs */
- Out = string_to_tb("\\frac{d");
- V=my_tex_form(Opt[0]);
- str_tb([V,"}{d",my_tex_form(Opt[1]),"}="] ,Out);
- Opt=cdr(Opt); Opt=cdr(Opt);
- II=length(Opt);
- for(I=0; I<II; I++){
- str_tb([(I>0)?" +":"\\Biggl(", " \\frac{",
- my_tex_form(L[I]),"}{", my_tex_form(Opt[I]),"}\n"],Out);
- }
- str_tb(["\\Biggr)",V,"\n"],Out);
- }else if(Op==4){ /* vect */
- Out=str_tb(mtotex(matc(L)|lim=0,var=Var),0);
- }else if(Op==5 || Op==6){ /* cr or text */
- Out = str_tb(0,0);
- if(type(Lim=getopt(lim))!=1) Lim=0;
- else if(Lim<30&&Lim>0) Lim=TeXLim;
- Str=getopt(str);
- if(length(Opt)==1 && (car(Opt)=="spts" || car(Opt)=="spts0") && type(Str)!=1)
- Str=2;
- for(K=I=0; L!=[]; I++, L=cdr(L)){
- LT=car(L);
- if((!Lim||Op==6)&&I>0) str_tb((Op==5)?Cr:"\n",Out);
- if(Op==6){
- if(type(LT)==7){
- str_tb([LT," "],Out);
- I=-1;
- continue;
- }
- str_tb("$",Out);
- }
- KK=0;
- if(Str>0 && type(LT)==4 && Opt!=[])
- S=ltotex(LT|opt=car(Opt),lim=0,str=Str,cr=Cr2,var=Var);
- else if(type(LT)==6){
- if(Lim>0){
- S=mtotex(LT|var=Var,lim=0,len=1);
- KK=S[1];
- S=S[0];
- }else S=mtotex(LT|var=Var,lim=0);
- }else if(type(LT)==3 || type(LT)==2)
- S=fctrtos(LT|TeX=2,lim=0,var=Var);
- else S=my_tex_form(LT);
- if(Op!=6&&I>0&&Lim){
- if(Lim<0){
- if(I%(-Lim)==0)
- str_tb((Op==5)?Cr:"\n",Out);
- }else if((K+=(KK=(KK)?KK:texlen(S)))>Lim){
- str_tb((Op==5)?Cr:"\n",Out);
- K=KK;
- }
- }
- str_tb(S,Out);
- if(Op==6) str_tb("$",Out);
- }
- }else if(Op==7||Op==8){ /* spts, spts0 */
- if(type(Lim=getopt(lim))!=1 || (Lim<30 && Lim!=0))
- Lim=TeXLim;
- Str=getopt(str);
- Out = str_tb(0,0);
- for(K=0; L!=[]; L=cdr(L)){
- LT=car(L);
- KK=0;
- if(type(LT)==7 && Str==1) S=LT;
- else if(type(LT)==3 || type(LT)==2)
- S=fctrtos(LT|TeX=2,lim=0,var=Var);
- else if(type(LT)==6){
- if(Lim){
- S=mtotex(LT|var=Var,lim=0,len=1);
- KK=S[1];
- S=S[0];
- }else S=mtotex(LT|var=Var,lim=0);
- }else
- S=my_tex_form(LT);
- if(Lim!=0){
- if(!KK) KK=texlen(S);
- if(K>0 && K+KK>Lim){
- str_tb(Cr,Out);
- K=0;
- }
- }
- if(K>0){
- str_tb((Op==7)?"\\ ":" ",Out);
- if(type(LT)>3 && type(LT)<7) str_tb("%\n",Out);
- }
- str_tb(S,Out);
- K+=KK;
- if(OP==7) K++;
- }
- }else if(Op==9){ /* dform */
- Out=str_tb(0,0);
- for(I=0;L!=[];L=cdr(L),I++){
- for(J=0,LT=car(L); LT!=[]; LT=cdr(LT),J++){
- if(J==0){
- if((V=car(LT))==0) continue;
- if(I>0){
- if(type(V)==1){
- if(V<0){
- str_tb("-",Out);
- V=-V;
- }
- else str_tb("+",Out);
- if(V==1 && length(LT)>1) continue;
- str_tb(monototex(V),Out);
- continue;
- }
- else str_tb("+",Out);
- }
- }else if(J>0) str_tb((J>1)?"\\wedge d":"\\,d",Out);
- V=monototex(car(LT));
- if(V<"-" || V>=".") str_tb(V,Out);
- else str_tb(["(",V,")"],Out);
- }
- }
- }else if(Op==10 && type(L)==4 && type(car(L))==4){ /* tab */
- if(type(Null=getopt(null))<0) Null="";
- if(getopt(vert)==1){
- M=lv2m(L|null=Null);
- L=m2ll(mtranspose(M));
- }
- if(type(W=getopt(width))==1)
- L=madjust(L,W|null=Null);
- LV=ltov(L);
- S=length(LV);
-#if 1
- if(type(T=getopt(left))==4){
- T=str_times(T,S);
- for(L=[],I=0;I<S;I++){
- L=cons(cons(car(T),LV[I]),L);
- T=cdr(T);
- }
- LV=reverse(L);
- }
- if(type(T=getopt(right))==4){
- T=str_times(T,S);
- for(L=[],I=0;I<S;I++){
- L=cons(append(LV[I],[car(T)]),L);
- T=cdr(T);
- }
- LV=reverse(L);
- }
- for(I=CS=0; I<S; I++)
- if(length(LV[I])>CS) CS=length(LV[I]);
- if(type(T=getopt(top))==4){
- LV=cons(str_times(T,CS),vtol(LV));
- S++;
- }
- if(type(T=getopt(last))==4){
- LV=append(vtol(LV),[str_times(T,CS)]);
- S++;
- }
-#else
- for(I=CS=0; I<S; I++)
- if(length(LV[I])>CS) CS=length(LV[I]);
-#endif
- if(type(Title=getopt(title))!=7) Title="";
- if(type(Vline=getopt(vline))!=4) Vline=[0,CS];
- else Vline=subst(Vline,z,CS);
- for(VV=[],VT=Vline;VT!=[];VT=cdr(VT)){
- if(type(T=car(VT))==4 && T[1]>0){
- for(I=T[0];I<=CS;I+=T[1]) VV=cons(I,VV);
- }else VV=cons(T,VV);
- }
- Vline=qsort(VV);
- Out=str_tb("\\begin{tabular}{",0);
- if(type(Al=getopt(align))==7 && str_len(Al)>1){
- str_tb(Al,Out);
- }else{
- if(type(Al)!=7 || str_len(Al)<1) Al="r";
- for(I=0;I<=CS;I++){
- if(I!=0) str_tb(Al,Out);
- while(Vline!=[] && car(Vline)==I){
- str_tb("|",Out);
- Vline=cdr(Vline);
- }
- }
- }
- str_tb("}",Out);
- if(Title!="")
- str_tb("\n\\multicolumn{"+rtostr(CS)+"}{c}{"+Title+"}\\\\",Out);
- if(type(Hline=getopt(hline))!=4) Hline=[0,S];
- else Hline=subst(Hline,z,S);
- for(VV=[],VT=Hline;VT!=[];VT=cdr(VT)){
- if(type(T=car(VT))==4 && T[1]>0){
- for(I=T[0];I<=S;I+=T[1]) VV=cons(I,VV);
- }else VV=cons(T,VV);
- }
- Hline=qsort(VV);
- while(Hline!=[] && car(Hline)==0){
- str_tb(" \\hline\n",Out);
- Hline=cdr(Hline);
- }
-/*
- if(type(getopt(left))==4) CS++;
- if(type(getopt(right))==4) CS++;
- if(type(T=getopt(top))==4){
- LV=cons(str_times(T,CS),vtol(LV));
- S++;
- }
- if(type(T=getopt(last))==4){
- LV=append(vtol(LV),[str_times(T,CS)]);
- S++;
- }
- if(type(T=getopt(left))==4){
- T=str_times(T,S);
- for(L=[],I=0;I<S;I++){
- L=cons(cons(car(T),LV[I]),L);
- T=cdr(T);
- }
- LV=reverse(L);
- }
- if(type(T=getopt(right))==4){
- T=str_times(T,S);
- for(L=[],I=0;I<S;I++){
- L=cons(append(LV[I],[car(T)]),L);
- T=cdr(T);
- }
- LV=reverse(L);
- }
-*/
- for(I=0; I<S; I++){
- for(C=0,LT=LV[I];C<CS; C++){
- if(LT!=[]){
- P=car(LT);
- if(type(P)!=7) P="$"+my_tex_form(P)+"$";
- if(P!="") str_tb(P,Out);
- LT=cdr(LT);
- }
- if(C<CS-1) str_tb("& ",Out);
- }
- str_tb("\\\\",Out);
- while(Hline!=[] && car(Hline)==I+1){
- str_tb(" \\hline",Out);
- Hline=cdr(Hline);
- }
- str_tb("\n",Out);
- }
- str_tb("\\end{tabular}\n",Out);
- }else if(Op==11){ /* graph */
- if(type(Strip=getopt(strip))!=1) Strip=0;
- if(type(MX=getopt(max))!=1) MX=0;
- if(type(ML=getopt(mult))!=1) ML=0;
- if((REL=getopt(relative))!=1) REL=0;
- CL=getopt(color);
- OL=delopt(getopt(),["color","strip","mult"]);
- if(ML==1&&type(CL)==4){
- LL=L[1];L=L[0];K=length(L);S=T="";
- if(!MX){
- MX=vector(length(L[0]));
- for(LT=L;LT!=[];LT=cdr(LT)){
- for(I=0,LTT=car(LT);LTT!=[];I++,LTT=cdr(LTT)){
- if(REL==1) MX[I]+=car(LTT);
- else if(MX[I]<car(LTT)) MX[I]=car(LTT);
- }
- }
- MX=lmax(MX);
- OL=cons(["max",MX],OL);
- }
- if(REL==1) MX=newvect(length(L[0]));
- for(I=0;I<K;I++){
- for(R=[],J=length(L[I]);--J>=0;){
- if(REL==1){
- R=cons([MX[J],V=MX[J]+L[I][J]],R);
- MX[J]=V;
- }else R=cons([(!I)?0:L[I-1][J],L[I][J]],R);
- }
- OP=cons(["color",CL[I]],OL);
- S+=ltotex([R,LL]|option_list=cons(["value",0],cons(["strip",(!I)?1:2],OP)));
- T+=ltotex([R,LL]|option_list=cons(["strip",3],OP));
- }
- return(!Strip)?xyproc(S+T):(S+T);
- }else if(!TikZ) CL=0;
- if(type(Line=getopt(line))!=1){
- if(type(Line)==4){
- if(type(Line[0])==1 && (type(Line[1])==7 || type(Line[1])==1)){
- Opt=Line[1]; Line=Line[0];
- }else if(ML==1){
- OL=delopt(OL,"line");
- LL=L[1];L=L[0];K=length(L);S="";
- if(!MX){
- MX=newvect(length(L[0]));
- for(LT=L;LT!=[];LT=cdr(LT)){
- for(I=0,LTT=car(LT);LTT!=[];I++,LTT=cdr(LTT)){
- if(REL==1) MX[I]+=car(LTT);
- else if(MX[I]<car(LTT)) MX[I]=car(LTT);
- }
- }
- MX=lmax(MX);
- OL=cons(["max",MX],OL);
- }
- for(I=0;I<K;I++)
- S+=ltotex([L[I],LL]|option_list
- =cons(["line",Line[I]],cons(["strip",(!I)?1:2],OL)));
- return(!Strip)?xyproc(S):S;
- }
- }else Line=0;
- }else Opt="@{-}";
- Width=8; Hight=3; WRet=1/2; HMerg=(getopt(horiz)==1)?0.3:0.2;
- if(!TikZ){
- Width*=10; Hight*=10; HMerg*=10;
- }
- VMerg=HMerg;
- if(type(Shift=getopt(shift))!=1)
- Shift=0;
- if(type(V=getopt(size))==4){
- Width=V[0];Hight=V[1];
- if(length(V)>2) WRet=V[2];
- if(length(V)>3) VMerg=VMerg=V[3];
- if(length(V)>4) HMerg=V[4];
- }
- Val=getopt(value);
- if(!isint(Val)) Val=-1;
- if(type(Line=getopt(line))!=1){
- if(type(Line)==4 && type(Line[0])==1 && (type(Line[1])==7 || type(Line[1])==1)){
- Opt=Line[1]; Line=Line[0];
- }else Line=0;
- }else Opt="@{-}";
- if(type(car(L))==4){
- LL=L[1]; L=L[0];
- }else LL=[];
- if(Line==-1){
- for(Sum=0, LT=L; LT!=[]; LT=cdr(LT)){
- if((S=car(LT))<=0) return 0;
- Sum+=S;
- }
- for(R=[],LT=L;LT!=[];LT=cdr(LT)) R=cons(car(LT)/Sum,R);
- R=reverse(R);
- Opt0=Opt*2/3;
- Out=str_tb((Strip>0)?0:xyproc(1),0);
- if(type(CL)!=4) str_tb(xylines(ptpolygon(6,Opt)|close=1,curve=1),Out);
- for(S=0,RT=R,LT=LL;RT!=[];RT=cdr(RT)){
- SS=S+RT[0];
- if(type(CL)==4){
- str_tb(xyang(Opt,[0,0],(0.25-SS)*6.2832,(0.25-S)*6.2832|ar=1,opt=car(CL)),Out);
- if(length(CL)>0) CL=cdr(CL);
- }else str_tb(xyline([0,0],[Opt*dsin(S*6.2832),Opt*dcos(S*6.2832)]),Out);
- T=(S+SS)/2;
- S=SS;
- if(LT!=[]){
- str_tb(xyput([Opt0*dsin(T*6.2832),Opt0*dcos(T*6.2832),car(LT)]),Out);
- LT=cdr(LT);
- }
- }
- if(!Strip) str_tb(xyproc(0),Out);
- return str_tb(0,Out);
- }
- if(MX==0){
- for(MX=0,LT=L; LT!=[]; LT=cdr(LT))
- if(car(LT)>MX) MX=car(LT);
- }
- MX-=Shift;
- S=length(L);
- WStep=Width/S;
- WWStep=WStep*WRet;
- HStep=(Hight<0)?-Hight:Hight/MX;
- if(LL!=[]&&length(LL)==S-1) WS2=WStep/2;
- else WS2=0;
- Out=str_tb((Strip>0)?0:xyproc(1),0);
- Hori=getopt(horiz);
- if(Strip<2){
- if(Hori==1) str_tb(xyline([0,0],[0,Width-WStep+WWStep]),Out);
- else str_tb(xyline([0,0],[Width-WStep+WWStep,0]),Out);
- }
- for(I=0,LT=L;LT!=[]; LT=cdr(LT),I++){
- XP=WStep*I; XPM=XP+WWStep/2;
- if(type(LTT=car(LT))==4){
- YP0=(car(LTT)-Shift)*HStep;YP=(LTT[1]-Shift)*HStep;
- VL=LTT[1];
- if(REL) VL-=LTT[0];
- }else{
- YP0=0;YP=(LTT-Shift)*HStep;VL=LTT;
- }
- if(Hori==1){
- if(Line!=0){
- if(I>0)
- str_tb(xyarrow([XPM,YP],[XPM-WStep,YPP]|opt=Opt),Out);
- if(Val!=0)
- str_tb(xyput([YP+HMerg, XPM,car(LT)]),Out);
- if(Line==2)
- str_tb(xyput([YP,XPM,"$\\bullet$"]),Out);
- YPP=YP;
- }else if(YP!=0 || Val==1){
- if(Strip!=3){
- if(CL) str_tb(xybox([[YP,XP+WWStep], [YP0,XP]]|color=CL),Out);
- else str_tb(xybox([[YP,XP+WWStep],[YP0,XP]]),Out);
- }
- if(Val!=0) str_tb(xyput([(YP<0||REL==1)?(YP-HMerg):(YP+HMerg),XPM,VL]),Out);
- }
- if(LL!=[]&&I<length(LL)&&Strip<2) str_tb(xyput([-VMerg,XPM+WS2,LL[I]]),Out);
- }else{
- if(Line!=0){
- if(I>0)
- str_tb(xyarrow([XPM-WStep,YPP],[XPM,YP]|opt=Opt),Out);
- if(Val!=0)
- str_tb(xyput([XPM,YP+HMerg,car(LT)]),Out);
- if(Line==2)
- str_tb(xyput([XPM,YP,"$\\bullet$"]),Out);
- YPP=YP;
- }else if(YP!=0 || Val==1){
- if(Strip!=3){
- if(CL) str_tb(xybox([[XP,YP0],[XP+WWStep,YP]]|color=CL),Out);
- else str_tb(xybox([[XP,YP0],[XP+WWStep,YP]]),Out);
- }
- if(Val!=0) str_tb(xyput([XPM,(YP<0||REL==1)?(YP-HMerg):(YP+HMerg),VL]),Out);
- }
- if(LL!=[]&&I<length(LL)&&Strip<2) str_tb(xyput([XPM+WS2,-VMerg,LL[I]]),Out);
- }
- }
- if(!Strip)str_tb(xyproc(0),Out);
- }else if(Op==12){ /* coord */
- Out=str_tb("(",0);
- for(LT=L;;){
- X=car(LT);
- if(type(X)>3 || imag(X)==0) str_tb(my_tex_form(X),Out);
- else{
- XR=real(X);XI=imag(X);
- S=monototex(imag(X));
- if(S=="1") S="";
- else if(S=="- 1") S="-";
- if(getopt(cpx)==2) S=S+"\\sqrt{-1}";
- else S=S+"i";
- if(XR!=0){
- if(str_char(S,0,"-")==0) S=monototex(XR)+S;
- else S=monototex(XR)+"+"+S;
- }
- str_tb(S,Out);
- }
- if((LT=cdr(LT))==[]) break;
- else str_tb(",",Out);
- }
- str_tb(")",Out);
- }
- else return my_tex_form(L);
- S = str_tb(0,Out);
- return (getopt(small)==1)?smallmattex(S):S;
-}
-
-
-def str_tb(L,TB)
-{
- if(type(TB) == 0) TB = "";
- if(L == 0)
- return (type(TB) == 7)?string_to_tb(TB):tb_to_string(TB);
- if(type(L) == 7)
- L = [L];
- else if(type(L) != 4){
- erno(0);
- return 0;
- }
- if(type(TB) <= 7)
- TB = string_to_tb((type(TB)==7)?TB:"");
- for(; L != []; L = cdr(L))
- write_to_tb(car(L), TB);
- return TB;
-}
-
-/*
-def redgrs(M,T)
-{
- L = [zzz];
- for(I=S=0,Eq=[],MT=M; MT!=[]; I++, MT=cdr(MT)){
- for(J=LS=0, N=car(MT); N!=[]; N=cdr(N)){
- X = makev([z,I,z,J]);
- L=cons(X,L);
- LS += X;
- S += car(N)[1]*X;
- }
- Eq = cons(LS-zzz,Eq);
- }
- Eq = cons(S-T,Eq);
- Sol= lnsol(Eq,L);
- for(LS=[],S=Sol; S!=[]; S=cdr(S)){
- T=car(S);
- if(type(S)!=4) return 0;
- LS=cons(car(S)[0],LS);
- }
-}
-*/
-
-/* T=0 : all reduction
- =1 : construction procedure
- =2 : connection coefficient
- =3 : operator
- =4 : series expansion
- =5 : expression by TeX
- =6 : Fuchs relation
- =7 : All
- =8 : basic
- =9 : ""
- =10: irreducible
- =11: recurrence */
-def getbygrs(M, TT)
-{
- /* extern TeXEq; */
-
- if(type(M)==7) M=s2sp(M);
- if(type(M) != 4 || TT =="help"){
- mycat(
-["getbygrs(m,t) or getbygrs(m,[t,s_1,s_2,...]|perm=?,var=?,pt=?,mat=?)\n",
-" m: generalized Riemann scheme or spectral type\n",
-" t: reduction, construct, connection, series, operator, TeX, Fuchs, irreducible, basic, recurrence,\n",
-" All\n",
-" s: TeX dviout simplify short general operator irreducible top0 x1 x2 sft\n",
-"Ex: getbygrs(\"111,21,111\", [\"All\",\"dviout\",\"operator\",\"top0\"])\n"]);
- return 0;
- }
- if(type(TT) == 4){
- T = TT[0];
- T1 = cdr(TT);
- }else{
- T = TT;
- T1 = [];
- }
- if(type(T) == 7)
- T = findin(T,["reduction","construct","connection", "operator", "series",
- "TeX", "Fuchs", "All", "basic", "", "irreducible", "recurrence"]);
- TeX = findin("TeX", T1);
- Simp = findin("simplify", T1);
- Short = findin("short", T1);
- Dviout= findin("dviout", T1);
- General=findin("general", T1);
- Op =findin("operator", T1);
- Irr =findin("irreducible", T1);
- Top0 =findin("top0",T1);
- X1 =findin("x1",T1);
- X2 =findin("x2",T1);
- Sft =findin("sft",T1);
- Title = getopt(title);
- Mat = getopt(mat);
- if(Mat!=1 || T<0 ||(T!=0&&T!=1&&T!=5&&T!=6&&T!=8&&T!=10&&T!=9)) Mat = 0;
- if(findin("keep",T1) >= 0)
- Keep = Dviout = 1;
- else Keep = 0;
- if(Dviout >= 0 || T == 5) TeX = 1;
- for(J = 0, MM = M; J == 0 && MM != []; MM = cdr(MM)){
- for(MI = car(MM); MI != []; MI = cdr(MI)){
- if(type(car(MI)) != 1 || car(MI) <= 0){
- J = 1; break;
- }
- }
- }
-
- /* spectral type -> GRS */
- if(J == 0){
- for(R = [], S = J = 0, MM = M; MM != []; MM = cdr(MM), J++){
- MT = qsort(car(MM));
- R = cons(reverse(MT), R);
- if(J == 1){
- S = length(MT)-1;
- if(MT[S] > MT[0]) S = 0;
- }
- }
- M = reverse(R);
- R = getopt(var);
- if(type(R)<1){
- for(R = [], I = J-1; I >= 0; I--)
- R = cons(asciitostr([97+I]), R);
- }
- Sft=(Sft>=0)?1:0;
- if(General < 0)
- Sft=-Sft-1;
- M = sp2grs(M,R,Sft|mat=Mat);
- }
- for(M0=[],MM=M;MM!=[];MM=cdr(MM)){ /* change "?" -> z_z */
- for(M1=[],Mm=car(MM);Mm!=[];Mm=cdr(Mm)){
- Mt=car(Mm);
- if(type(Mt)==4 && Mt[1]=="?"){
- M1=cons([Mt[0],z_z],M1);
- continue;
- }else if(type(Mt)==7 && Mt=="?"){
- M1=cons(z_z,M1);
- continue;
- }
- M1=cons(Mt,M1);
- }
- M0=cons(reverse(M1),M0);
- }
- M = fspt(reverse(M0),5); /* short -> long */
- if(findin(z_z,vars(M))>=0)
- M=subst(M,z_z,lsol(chkspt(M|mat=Mat)[3],z_z)); /* Fuchs relation */
- NP = length(M);
- Perm = getopt(perm);
- if(type(Perm) == 4)
- M = mperm(M,Perm,0);
- if(T == 9){ /* "" */
- if(Short >= 0)
- M = chkspt(M|opt=4,mat=Mat);
- return M;
- }
- R = [0,M];
- ALL = [R];
-
- while(type(R = redgrs(R[1]|mat=Mat)) == 4)
- ALL = cons(R, ALL);
- if(R < 0)
- return 0;
-
- /* TeX */
- if(TeX >= 0 && !chkfun("print_tex_form", "names.rr"))
- return 0;
- if(Dviout >= 0 && type(Title) == 7)
- dviout(Title|keep=1);
- if(T == 7 && Dviout >= 0){
- S=["keep","simplify"];
- if(Top0 >= 0)
- S = cons("top0",S);
- getbygrs(M,cons(5,S)|title="\\noindent Riemann Scheme",mat=Mat);
- Same = 0;
- if(R > 0){
- MM = getbygrs(M,8|mat=Mat); /* basic GRS */
- MS = chkspt(MM|opt=0,mat=Mat); /* spectral type */
- if(M != MM)
- getbygrs(MM,cons(5,S)|title="Basic Riemann Scheme",mat=Mat);
- else{
- dviout("This is a basic Riemann Scheme.\n\n\\noindent"|keep=1);
- Same = 1;
- }
- dviout(MS|keep=1);
- }
- if(chkspt(ALL[0][1]|mat=Mat)[3] != 0)
- getbygrs(M,cons(6,S)|title="Fuchs condition",mat=Mat);
- if(Same == 0){
- M1 = M[1];
- if(M1[length(M1)-1][0]==1 && Mat!=1){
- M1=M[2];
- if(M1[length(M1)-1][0] == 1){
- getbygrs(M,cons(2,S)|title="Connection formula");
- if(M1[length(M[0][0])-1][0] == 1 && R==0)
- getbygrs(M,cons(11,S)|title="Recurrence relation shifting the last exponents at $\\infty$, 0, 1");
- }
- getbygrs(M,cons(1,S)|title="Integral representation");
- getbygrs(M,cons(4,S)|title="Series expansion");
- }
- if(Irr < 0){
- TI="Irreduciblity $\\Leftrightarrow$ any value of the following linear forms $\\notin\\mathbb Z$";
- if(R > 0)
- TI += " + fundamental irreducibility";
- getbygrs(M,cons(10,S)|title=TI,mat=Mat);
- dviout("which coorespond to the decompositions"|keep=1);
- sproot(chkspt(M|opt=0),"pairs"|dviout=1,keep=1);
- }
- }
- if(Op >= 0 && Mat!=1) getbygrs(M,cons(3,S)|title="Operator");
- dviout(" ");
- return 1;
- }
- if(T == 0 && TeX >= 0){
- T = 1; TeX = 16;
- }
-/* Fuchs */
- Fuc = chkspt(ALL[0][1]|Mat=mat)[3];
- if(Fuc == 0) Simp = -1;
- if(type(Fuc) == 1){
- print("Violate Fuchs condition");
- return 0;
- }
- if(T == 6){
- if(Dviout >= 0) dviout(Fuc|eq=0,keep=Keep);
- return (TeX >= 0)?my_tex_form(Fuc):Fuc;
- }
- Fuc = [Fuc];
-/* Generelized Riemann scheme */
- if(T == 5){
- M = ltov(M);
- for(ML=0, I=0; I<NP; I++){
- L = length(M[I]);
- if(L > ML) ML = L;
- }
- Out = string_to_tb("P\\begin{Bmatrix}\nx=");
- if(Top0 < 0)
- write_to_tb("\\infty & ",Out);
- Pt = getopt(pt);
- if(type(Pt) == 4){
- for(J = 3; J < NP; J++){
- str_tb(["& ",rtotex(car(Pt))],Out);
- Pt = cdr(Pt);
- }
- }
- else if(X2>=0)
- str_tb("0 & x_2",Out);
- else
- str_tb((X1>=0)?"x_1 & x_2":"0 & 1",Out);
- for(J = 3; J < NP; J++)
- str_tb(["& x_",rtotex(J)],Out);
- if(Top0 >= 0)
- write_to_tb("& \\infty",Out);
- write_to_tb("\\\\\n",Out);
- for(I = 0; I < ML; I++){
- for(CC = 0, J = (Top0 >= 0)?1:0; ; J++, CC++){
- if(J == NP){
- if(Top0 < 0) break;
- J = 0;
- }
- if(length(M[J]) <= I){
- if(CC > 0) write_to_tb(" & ",Out);
- }else if(M[J][I][0] <= 1){
- if(M[J][I][0] == 0) str_tb(" & ",Out);
- else
- str_tb([(!CC)?" ":" & ", my_tex_form(M[J][I][1])], Out);
- }else{
- str_tb([((!CC)?"[":" & ["), my_tex_form(M[J][I][1]),
- (Mat==1)?"]_{":"]_{("],Out);
- str_tb([my_tex_form(M[J][I][0]),(Mat==1)?"}":")}"],Out);
- }
- if(Top0 >= 0 && J == 0)
- break;
- }
- if(I == 0)
- str_tb("&\\!\\!;x",Out);
- str_tb("\\\\\n",Out);
- }
- str_tb("\\end{Bmatrix}",Out);
- Out = str_tb(0,Out);
- if(Dviout >= 0)
- dviout(Out|eq=0,keep=Keep);
- return Out;
- }
-
-/* Reduction */
- if(T == 0){
- if(Simp >= 0)
- ALL = simplify(ALL,Fuc,4);
- return reverse(ALL);
- }
- LA = length(ALL) - 1;
- NP = length(ALL[0][1]);
-
-/* irreducible */
- if(T == 10){
- for(IR=[], I = 0; I < LA; I++){
- AI = ALL[I]; AIT = AI[1];
- K = AI[0][0];
- P = -AIT[0][K][1];
- P -= cterm(P);
- IR = cons(P, IR);
- for(J = 0; J < NP; J++){
- K = AI[0][J];
- for(L = length(AIT[J]) - 1; L >= 0 ; L--){
- if(L == K || AIT[J][L][0] <= AIT[J][K][0])
- continue;
- P = AIT[J][L][1] - AIT[J][K][1];
- Q = cterm(P);
- if(dn(Q)==1)
- P -= Q;
- IR = cons(P,IR);
- }
- }
- }
- P=Fuc[0];
- Q=cterm(P);
- if(type(Q)==1 && dn(Q)==1){
- for(F=0,V=vars(P);V!=[];V=cdr(V)){
- R=mycoef(P,1,car(V));
- if(type(R)!=1 || Q%R!=0){
- F=1; break;
- }
- }
- if(F==0){
- P-=Q;
- Simp=0;
- }
- }
- if(Simp >= 0){
- IR=simplify(IR,[P],4);
- for(R=[]; IR!=[]; IR=cdr(IR)){
- P=car(IR);
- Q=cterm(P);
- if(dn(Q)==1) P-=Q;
- R=cons(P,R);
- }
- IR=R;
- }
- for(R=[]; IR!=[]; IR=cdr(IR)){
- P=car(IR);
- if(str_len(rtostr(P)) > str_len(rtostr(-P)))
- P = -P;
- R = cons(P,R);
- }
- R = ltov(R);
-#ifdef USEMODULE
- R = qsort(R,os_md.cmpsimple);
-#else
- R = qsort(R,cmpsimple);
-#endif
- R = vtol(R);
- if(TeX >= 0){
- Out = string_to_tb("");
- for(I=L=K=0; R!=[]; R=cdr(R),I++){
- K1 = K;
- RS = my_tex_form(car(R));
- K = nmono(car(R));
- L += K;
- if(I){
- if(K1 == K && L < 30)
- str_tb("\\quad ",Out);
- else{
- L = K;
- str_tb((TeXEq==5)?["\\\\%\n &"]:["\\\\%\n "],Out);
- }
- }
- str_tb(RS,Out);
- }
- R = Out;
- if(Dviout>=0){
- dviout(R|eq=0,keep=Keep);
- return 1;
- }
- }
- return R;
- }
-
- AL = []; SS = 0;
- for(I = 0; I <= LA; I++){
- AI = ALL[I]; AIT = AI[1]; /* AIT: GRS */
- if(I > 0){
- for(S = J = 0; J < NP; J++){
- GE = AIT[J][AI0[J]][1];
- S += GE;
- if(J == 0)
- SS = [];
- else
- SS = cons(GE,SS);
- }
- SS = cons(1-Mat-S, reverse(SS));
- }
- AI0 = AI[0];
- AL = cons([SS, cutgrs(AIT)], AL);
- }
- AL = reverse(AL);
- AD = newvect(NP);
- ALT = AL[0][1];
- for(J = 1; J < NP; J++){
- /* AD[J] = ALT[J][0][1]; [J][?][1] <- [J][?][0]: max */
- for(MMX=0, K = KM = length(ALT[J])-1; K >= 0; K--){
- if(MMX <= ALT[J][K][0]){
- if(J == 1 && MMX == ALT[J][K][0])
- continue;
- KM = K;
- MMX = ALT[J][K][0];
- }
- }
- AD[J] = ALT[J][KM][1];
- }
- AL = cdr(AL);
- AL = cons([vtol(AD), ALT], AL);
- AL = cons([0, mcgrs(ALT, [vtol(-AD)]|mat=Mat)], AL);
- if(Simp >= 0 && T != 3)
- AL = simplify(AL,Fuc,4);
-/* Basic */
- if(T == 8){
- ALT = AL[0][1];
- if(TeX >= 0){
- if(Dviout >= 0){
- return getbygrs(ALT,["TeX","dviout","keep"]);
- }
- return getbygrs(ALT,"TeX");
- }
- if(Short >= 0)
- ALT = chkspt(ALT|opt=4);
- return ALT;
- }
-
-/* Construct */
- if(T == 1){
- if(TeX >= 0){
- L = length(AL);
- I = Done = 0; Out0=Out1=""; NM = DN = [];
- if(TeX != 16){
- AL11=AL[L-1][1][1];
- AT = AL11[length(AL11)-1];
- if(type(AT) == 4){
- PW = (AT[0] > 1)?"":AT[1];
- }else PW = AT;
- }
- Out = string_to_tb("");
- while(--L >= 0){
- if(TeX == 16){
- if(Done)
- write_to_tb(":\\ ", Out);
- write_to_tb(getbygrs(AL[L][1],(Top0>=0)?["TeX", "top0"]:"TeX"|mat=Mat), Out);
- Done = 1;
- if(L != 0) write_to_tb((TeXEq==5)?
- "\\\\%\n&\\leftarrow ":"\\\\%\n\\leftarrow ", Out);
- }
- ALT = AL[L][0];
- if(TeX != 16){
- V1 = (I==0)?"x":V2;
- V2 = /* (I==0 && L<=2)?"s": */
- "s_"+rtotex(I);
- }else V1=V2="x";
- JJ = (type(ALT) == 4)?length(ALT):0;
- if(I > 0 && L > 0)
- write_to_tb("\n ", Out);
- for(Outt = "", J = 1; J < JJ; J++){
- if(ALT[J] == 0) continue;
- if(J == 1) Outt += V1;
- else if(J == 2) Outt += "(1-"+V1+")";
- else Outt += "(x_"+rtotex(J)+"-"+V1+")";
- Outt += "^"+ rtotex(ALT[J]);
- }
- if(TeX != 16) write_to_tb(Outt, Out);
- else if(Outt != "")
- str_tb(["\\mathrm{Ad}\\Bigl(",Outt,"\\Bigr)"], Out);
- if(JJ == 0){
- if(I != 0)
- Out1 = "ds_"+rtotex(I-1)+Out1;
- continue;
- }
- if(ALT[0] == 0) continue;
- Out0 += "\\int_p^{"+V1+"}";
- if(TeX == 16)
- str_tb(["mc_",rtotex(ALT[0])], Out);
- else{
- str_tb(["(",V1,"-",V2,")^",rtotex(-1+ALT[0])], Out);
- AL11=AL[L-1][1][1];
- AT = AL11[length(AL11)-1];
- if(type(AT) == 4) AT = AT[1];
- DN = cons(ALT[0]+AT+1,DN);
- NM = cons(AT+1,cons(ALT[0],NM));
- }
- if(L != 2) Out1 += "d"+V2;
- I++;
- }
- if(R){
- if(I == 0) Ov = "x";
- else Ov = "s_"+rtotex(I-1);
- Out1 = "u_B("+Ov+")"+Out1;
- }
- if(TeX != 16){
- Out0 = string_to_tb(Out0);
- str_tb([Out, Out1], Out0);
- Out = Out0;
- NM = simplify(NM, Fuc, 4);
- DN = simplify(DN, Fuc, 4);
- DNT = lsort(NM,DN,"reduce");
- NMT = DNT[0]; DNT = DNT[1];
- if(NMT != [] && PW != ""){
- write_to_tb((TeXEq==5)?"\\\\\n &\\sim\\frac{\n"
- :"\\\\\n \\sim\\frac{\n", Out);
- for(PT = NMT; PT != []; PT = cdr(PT))
- str_tb([" \\Gamma(",my_tex_form(car(PT)), ")\n"], Out);
- write_to_tb(" }{\n", Out);
- for(PT = DNT; PT != []; PT = cdr(PT))
- write_to_tb(" \\Gamma("+my_tex_form(car(PT))+")\n", Out);
- write_to_tb(" }", Out);
- if(R > 0) write_to_tb("C_0", Out);
- write_to_tb("x^"+rtotex(PW) +"\\ \\ (p=0,\\ x\\to0)", Out);
- }
- }else
- Out = str_tb(0, Out);
- if(Dviout >= 0){
- dviout(Out|eq=0,keep=Keep);
- return 1;
- }
- return O;
- }
- if(Short >= 0){
- for(ALL = [] ; AL != []; AL = cdr(AL)){
- AT = car(AL);
- ALL = cons([AT[0], chkspt(AT[1]|opt=4)], ALL);
- }
- AL = reverse(ALL);
- }
- return AL; /* AL[0][1] : reduced GRS, R==0 -> rigid */
- }
-
- if(T == 2 || T == 4 || T == 11){
- for(I = (T==2)?2:1; I >= (T==11)?0:1; I--){
- ALT = M[I];
- if(ALT[length(ALT)-1][0] != 1){
- mycat(["multiplicity for",I,":",ALT[length(ALT)-1][1],
- "should be 1"]);
- return;
- }
- }
- }
- LA++;
- NM = DN = [];
-
-/* Three term relation */
- if(T == 11){
- if(R > 0){
- print("This is not rigid\n");
- return 0;
- }
- for(I = 0; I <= LA; I++){
- if(I > 0){
- AI = AL[I][0]; /* operation */
- if(AI[0] != 0){
- DN = cons(simplify(AI1+1,Fuc,4),DN);
- NM = cons(simplify(AI1+AI[0]+1,Fuc,4),NM);
- }
- }
- ALT = AL[I][1][1]; AI1 = ALT[length(ALT)-1][1];
- }
- DNT = lsort(NM,DN,"reduce");
- if(TeX < 0) return DNT;
- NMT = DNT[0]; DNT = DNT[1];
- Out = str_tb("u_{0,0,0}-u_{+1,0,-1}=\\frac{","");
- for(PT = NMT; PT != []; PT = cdr(PT))
- str_tb(["(",my_tex_form(car(PT)),")"], Out);
- str_tb(["}\n{"],Out);
- for(PT = DNT; PT != []; PT = cdr(PT))
- str_tb(["(",my_tex_form(car(PT)),")"], Out);
- write_to_tb("}u_{0,+1,-1}",Out);
- if(Dviout >= 0){
- dviout(Out|eq=0,keep=Keep);
- return 1;
- }
- return Out;
- }
-
- AD=newvect(NP);
- for(I = 0; I <= LA; I++){
- if(I > 0){
- AI = AL[I][0]; /* operation */
- if(T == 2 && AI[0] != 0){
- DN = cons(simplify(-AI2,Fuc,4), cons(simplify(AI1+1,Fuc,4),DN));
- NM = cons(simplify(-AI2-AI[0],Fuc,4), cons(simplify(AI1+AI[0]+1,Fuc,4),
- NM));
- }
- for(J = 1; J < NP; J++)
- AD[J] += simplify(AI[J],Fuc,4);
- }
- if(T == 2){
- ALT = AL[I][1][1]; AI1 = ALT[length(ALT)-1][1];
- ALT = AL[I][1][2]; AI2 = ALT[length(ALT)-1][1];
- if(I == 0){
- C3 = AI1; C4 = AI2;
- }
- }
- }
-
-/* Connection */
- if(T == 2){
- DNT = lsort(NM,DN,"reduce");
- NMT = DNT[0]; DNT = DNT[1];
- if(TeX < 0) return [NMT,DNT,AD];
- C0 = M[1][length(M[1])-1][1];
- C1 = M[2][length(M[2])-1][1];
- M = AL[0][1];
- C3 = M[1][length(M[1])-1][1];
- C4 = M[2][length(M[2])-1][1];
- Out = str_tb(["c(0\\!:\\!", my_tex_form(C0),
- " \\rightsquigarrow 1\\!:\\!", my_tex_form(C1),")"], "");
- if(R > 0 && AMSTeX == 1 && (TeXEq == 4 || TeXEq == 5)){
- write_to_tb("\\\\\n", Out);
- if(TeXEq == 5) write_to_tb(" &", Out);
- }
- write_to_tb("=\\frac{\n",Out);
- for(PT = NMT; PT != []; PT = cdr(PT))
- write_to_tb(" \\Gamma("+my_tex_form(car(PT))+")\n", Out);
- write_to_tb(" }{\n",Out);
- for(PT = DNT; PT != []; PT = cdr(PT))
- write_to_tb(" \\Gamma("+my_tex_form(car(PT))+")\n",Out);
- write_to_tb(" }", Out);
- for(J = 3; J < length(AD); J++){
- if(AD[J] == 0) continue;
- str_tb(["\n (1-x_", rtotex(J), "^{-1})^", rtotex(AD[J])], Out);
- }
- if(R != 0)
- str_tb(["\n c_B(0\\!:\\!", my_tex_form(C3),
- " \\rightsquigarrow 1\\!:\\!", my_tex_form(C4), ")"], Out);
- Out = tb_to_string(Out);
- if(Dviout >= 0){
- dviout(Out|eq=0,keep=Keep);
- return 1;
- }
- return Out;
- }
-
-/* Series */
- if(T == 4){
- AL11 = AL[0][1][1];
- V = AL11[length(AL11)-1][1];
- S00 = -V; S01 = (R==0)?[]:[[0,0]];
- S1 = S2 = [];
- for(Ix = 1, ALL = cdr(AL); ALL != []; ){
- ALT = ALL[0][0];
- if(ALT[0] != 0){ /* mc */
- for(Sum = [], ST = S01; ST != []; ST = cdr(ST))
- Sum = cons(car(ST)[0], Sum);
- S1 = cons(cons(S00+1,Sum), S1);
- S2 = cons(cons(S00+1+ALT[0],Sum),S2);
- S00 += ALT[0];
- }
- ALL = cdr(ALL);
- for(I = 1; I < length(ALT); I++){ /* addition */
- if(I == 1){
- S00 += ALT[1];
- if(ALL == [])
- S00 = [S00];
- }else{
- if(ALT[I] == 0)
- continue;
- if(ALL != []){
- S1 = cons([-ALT[I],Ix],S1);
- S2 = cons([1,Ix],S2);
- S01= cons([Ix,I],S01);
- Ix++;
- }else
- S00 = cons([ALT[I],I],S00);
- }
- }
- }
- S00 = reverse(S00);
- S01 = qsort(S01); S1 = qsort(S1); S2 = qsort(S2);
- if(Simp >= 0){
- S00 = simplify(S00,Fuc,4);
- S01 = simplify(S01,Fuc,4);
- S1 = simplify(S1,Fuc,4);
- S2 = simplify(S2,Fuc,4);
- SS = lsort(S1,S2,"reduce");
- S1 = SS[0]; S2 = SS[1];
- }
-
- if(TeX >= 0){
- /* Top linear power */
- TOP = Ps = Sm = "";
- for(TOP = Ps = Sm = "", ST = cdr(S00); ST != []; ST = cdr(ST)){
- SP = car(ST);
- if(SP[0] != 0){
- if(SP[1] == 2)
- TOP += "(1-x)^"+rtotex(SP[0]);
- else
- TOP += "(1-x/x_"+rtotex(SP[1])+")^"+rtotex(SP[0]);
- }
- }
- /* Top power */
- PW = my_tex_form(car(S00));
- if(PW == "0")
- PW = "";
- NP = length(AL[0][1]);
- PWS = newvect(NP);
- for(I = 0; I < NP; I++)
- PWS[I] = "";
- for(S = S01, I = 0; S != []; S = cdr(S), I++){
- SI = rtotex(car(S)[0]);
- if(I > 0) Sm += ",\\ ";
- Sm += "n_"+SI+"\\ge0";
- if(PW != "")
- PW += "+";
- PW += "n_"+SI;
- if(car(S)[1] > 2)
- PWS[car(S)[1]] += "-n_"+rtotex(car(S)[0]);
- else if(car(S)[1] == 0)
- Ps = "C_{n_0}"+Ps;
- }
- for(I = 3; I < NP; I++){
- if(PWS[I] != "")
- Ps += "x_"+rtotex(I)+"^{"+PWS[I]+"}";
- }
- Out = str_tb([TOP, Ps, "x^{", PW, "}"], "");
- /* Gamma factor */
- for(I = 0, SS = S1; I <= 1; I++, SS = S2){
- PW = string_to_tb("");
- for(PW1=""; SS != [] ; SS = cdr(SS)){
- for(J = 0, SST = car(SS); SST != []; SST = cdr(SST), J++){
- if(J == 0){
- JJ = (car(SST) == 1)?((length(SST)==2)?(-1):0):1;
- if(JJ > 0)
- str_tb(["(", my_tex_form(car(SST)), ")_{"], PW);
- else if(JJ == 0)
- PW1 = "(";
- }else{
- if(JJ > 0){
- if(J > 1) write_to_tb("+", PW);
- str_tb(["n_", rtotex(car(SST))], PW);
- }else{
- if(J > 1) PW1 += "+";
- PW1 += "n_"+rtotex(car(SST));
- }
- }
- }
- if(JJ > 0) write_to_tb("}", PW);
- else PW1 += (JJ == 0)?")!":"!";
- }
- if(I == 0)
- Out0 = "\\frac";
- Out0 += "{"+tb_to_string(PW)+PW1+"}";
- PW = string_to_tb(""); PW1 = "";
- }
- if(Out0 == "\\frac{}{}")
- Out0 = "";
- Out = "\\sum_{"+Sm+"}"+Out0 + Top + tb_to_string(Out);
- if(length(S01) == 1){
- Out = str_subst(Out, "{n_"+SI+"}", "n");
- Out = str_subst(Out, "n_"+SI, "n");
- }
- if(Dviout >= 0)
- dviout(Out|eq=0,keep=Keep);
- return Out;
- }
- return [cons(S00, S01), S1, S2];
- }
-
-/* Operator */
- if(T==3){
- Fuc0 = car(Fuc);
- if(Fuc0 != 0){ /* Kill Fuchs relation */
- for(V = vars(Fuc0); V != []; V = cdr(V)){
- VT = car(V);
- if(deg(Fuc0,VT) == 1){
- AL = mysubst(AL, [VT, -red(coef(Fuc0,0,VT)/coef(Fuc0,1,VT))]);
- break;
- }
- }
- if(V == []){
- print("Fuchs condition has no variable with degree 1");
- return 0;
- }
- }
- L = newvect(NP);
- Pt = getopt(pt);
- for(I = NP-1; I >= 1; I--){
- if(type(Pt) == 4)
- L[I] = Pt[I-1];
- else if(I >= 3 || X1 >= 0 || (X2 >= 0 && I >= 2))
- L[I] = makev(["x_", I]);
- else L[I] = I-1;
- }
- if(R){ /* non-rigid basic */
- MM = AL[0][1]; /* Riemann scheme */
- for(OD = 0, MT = car(MM); MT != []; MT = cdr(MT))
- OD += car(MT)[0];
- for(V = DN = [], M = MM; M != []; M = cdr(M)){
- MT = car(M); /* exponents */
- for(K = KM = 0, NT = []; ; K++){
- for(J = 0, P = 1, MTT = MT; MTT != []; MTT = cdr(MTT)){
- if(J == 0 && car(MTT)[1] == 0)
- KM = car(MTT)[0];
- for(KK = car(MTT)[0] - K -1; KK >= 0; KK--)
- P *= (dx-car(MTT)[1]-KK);
- }
- if(P == 1) break;
- NT = cons(P,NT);
- }
- V = cons(reverse(NT), V);
- DN = cons(KM, DN);
- }
- V = ltov(reverse(V)); /* conditions for GRS */
- DN = ltov(reverse(DN)); /* dims of local hol. sol. */
- for(J = OD; J >= 0; J--){
- for(I = Q = 1; I < NP; I++){
- if(J > DN[I])
- Q *= (x-L[I])^(J-DN[I]);
- }
- K = mydeg(Q,x);
- if(J == OD){
- P = Q*dx^J;
- DM = K;
- }else{
- for(I = DM-OD+J-K; I >= 0; I--){
- X = makev(["r",J,"_",I]);
- P += Q*x^I*X*dx^J;
- }
- }
- }
- for(R = [], I = 0; I < NP; I++){
- Q = toeul(P, [x,dx], (I==0)?"infty":L[I]); /* Euler at I-th pt */
- for(VT = V[I], J=0; VT != [] ; VT = cdr(VT), J++){
- if(car(VT) != 0)
- R = cons(rpdiv(coef(Q,J,x), car(VT), dx)[0], R); /* equations */
- }
- }
- for(RR = RRR = [], I = OD-1; I>=0; I--){
- RR = [];
- for(RT = R; RT != [] ; RT = cdr(RT)){
- if( (VT = mycoef(car(RT), I, dx)) != 0)
- RR = cons(VT, RR); /* real linear eqs */
- }
- J = mydeg(mycoef(P,I,dx),x);
- for(S = 0, VVV = []; J >= 0; J--){
- X = makev(["r",I,"_",J]);
- VVV = cons(X, VVV); /* unknowns */
- }
- RR = lsol(RR,VVV);
- LN = length(RR);
- for(K=0; K<LN; K++){
- RRT = RR[K];
- if(type(RRT) != 4) continue;
- R = mysubst(R,RRT);
- P = mysubst(P,RRT);
- }
- }
- }else /* Rigid case */
- P = dx^(AL[0][1][0][0][0]);
- /* additions and middle convolutions */
- for(ALT = AL; ALT != []; ALT = cdr(ALT)){
- AI = car(ALT)[0];
- if(type(AI) != 4) continue;
- V = ltov(AI);
- if(V[0] != 0) P = mc(P,x,V[0]);
- for(I = 1; I < NP; I++){
- if(V[I] != 0)
- P = sftexp(P,x,L[I],-V[I]);
- }
- }
- P = (Simp>=0)? simplify(P,Fuc,4|var=[dx]):simplify(P,Fuc,4);
- if(TeX >= 0){
- Val = 1;
- if(mydeg(P,dx) > 2 && AMSTeX == 1 && TeXEq > 3)
- Val = (TeXEq==5)?3:2;
- Out = fctrtos(P|var=[dx,"\\partial"],TeX=Val);
- if(Dviout < 0) return Out;
- dviout(Out|eq=0,keep=Keep);
- return 1;
- }
- return P;
- }
- return 0;
-}
-
-def mcop(P,M,S)
-{
- for(V=[],ST=S;ST!=[];ST=cdr(ST))
- if(isvar(VT=car(ST))) V=cons(vweyl(VT),V);
- V=reverse(V);
- N=length(V);
- for(MT=M;MT!=[];MT=cdr(MT)){
- T=car(MT);
- if(T[0]!=0)
- P=mc(P,V[0],T[0]);
- for(TT=cdr(T),ST=cdr(S);ST!=[];TT=cdr(TT),ST=cdr(ST))
- if(car(TT)!=0) P=sftpexp(P,V,S[0]-ST[0],-car(TT));
- }
- return P;
-}
-
-/* option: zero, all, raw */
-def shiftop(M,S)
-{
- if(type(M)==7) M=s2sp(M);
- if(type(S)==7) S=s2sp(S);
- Zero=getopt(zero);
- NP=length(M);
- for(V=L=[],I=NP-1; I>=0; I--){
- V=cons(strtov(asciitostr([97+I])),V);
- if(I>2) L=cons(makev(["y_", I-1]),L);
- else L=cons(I-1,L);
- }
- if(type(M[0][0])==4){
- F=1;RS=M;SS=S;
- R=chkspt(M);
- if(R[2]!=2 || R[3]!=0){
- mycat("GRS is not valid!");return 0;
- }
- for(; S!=[]; S=cdr(S)){
- if(nmono(S[0][0])!=1) break;
- if(isint(S[0][1]-S[0][0])==0) break;
- }
- if(S!=[]){
- mycat("Error in shift!"); return 0;
- }
- }else{
- F=0;
- RS=sp2grs(M,V,[1,length(M[0]),1]);
- for(SS=S0=[],I=0; I<NP; I++){
- for(J=F=0; J<length(M[I]); J++){
- if(I==0 && J==length(M[0])-1) break;
- if((U=S[I][J])!=0){
- if(isint(U)!=1){
- mycat("Error in shift!"); return 0;
- }
- VT=RS[I][J][1];
- SS=cons([VT,VT+U],SS);
- }else if(I>0 && Zero==1 && F==0){
- RS=mysubst(RS,[RS[I][J][1],0]);
- F=J+1;
- }
- }
- if((F>0 && J==2) || (I==0 && J==1)){
- J=(I==0)?0:2-F; VT=RS[I][J][1];
- S0=cons([VT,strtov(asciitostr([strtoascii(rtostr(VT))[0]]))],S0);
- }
- }
- }
- RS1=mysubst(RS,SS);
- if(F==1){
- R=chkspt(RS1);
- if(R[2]!=2 || R[3]!=0){
- mycat("Error in shift!");
- return 0;
- }
- }
- R=getbygrs(RS,1); R1=getbygrs(RS1,1);
- RT=R[0][1][0];
- if(length(RT)!=1 || RT[0][0]!=1){
- mycat("Not rigid!");
- return 0;
- }
- P=dx;Q=Q1=1;
- for(RT = R, RT1=R1; RT != []; RT = cdr(RT), RT1=cdr(RT1)){
- V=car(RT)[0]; V1=car(RT1)[0];
- if(type(V) != 4) continue;
-
- if(V[0] != 0){
- P = mc(P,x,V[0]); /* middle convolution */
- QT = mc(Q,x,V[0]);
- }else QT=Q;
- D0=mydeg(Q,dx);D0T=mydeg(QT,dx);
- C0=red(mycoef(Q,D0,dx)/mycoef(QT,D0T,dx));
- if(C0!=1) QT=red(C0*QT);
-
- if(V1[0] != 0) Q1T = mc(Q1,x,V1[0]);
- else Q1T=Q1;
- D1=mydeg(Q1,dx);D1T=mydeg(Q1T,dx);
- C1=red(mycoef(Q1,D1,dx)/mycoef(Q1T,D1T,dx));
- if(C1!=1) Q1T=red(C1*Q1T);
- DD=(V[0]-V1[0])+(D0-D0T)-(D1-D1T);
- if(DD>0){
- QT=muldo(dx^DD,QT,[x,dx]);
- D0T+=DD;
- }else if(DD<0){
- Q1T=muldo(dx^(-DD),Q1T,[x,dx]);
- D1T-=DD;
- }
- C=mylcm(dn(QT),dn(Q1T),x);
- if(C!=1){
- QT=red(C*QT); Q1T=red(C*Q1T);
- }
- Q=QT;Q1=Q1T;
- for(I = 1; I < NP; I++){
- if(V[I]!=0){
- P = sftexp(P,x,L[I],-V[I]); /* addition u -> (x-L[I])^V[I]u */
- QT = sftexp(QT,x,L[I],-V[I]);
- }
- if(V1[I]!=0)
- Q1T = sftexp(Q1T,x,L[I],-V1[I]);
- }
- C=red(mycoef(QT,D0T,dx)*mycoef(Q1,D1T,dx)/(mycoef(Q,D0T,dx)*mycoef(Q1T,D1T,dx)));
- Q=red(dn(C)*QT);Q1=red(nm(C)*Q1T);
- for(I = 1; I < NP; I++){
- if((J=V[I]-V1[I])!=0){
- if(J>0) Q1*=(x-L[I])^J;
- else Q*=(x-L[I])^(-J);
- }
- while((QT=tdiv(Q,x-L[I]))!=0){
- if((Q1T=tdiv(Q1,x-L[I]))!=0){
- Q=QT;Q1=Q1T;
- }else break;
- }
- }
- }
- P1=mysubst(P,SS);
- if(type(S0)==4 && S0!=[]){
- P=mysubst(P,S0); Q=mysubst(Q,S0);
- P1=mysubst(P1,S0); Q1=mysubst(Q1,S0);
- RS=mysubst(RS,S0); RS1=mysubst(RS1,S0);
- }
- R=mygcd(Q1,P1,[x,dx]);
- if(findin(dx,vars(R[0]))>=0){
- mycat("Some error!");
- return 0;
- }
- Q=muldo(R[1]/R[0],Q,[x,dx]);
- R=divdo(Q,P,[x,dx]);
- Q=red(R[1]/R[2]);
- R=fctr(nm(Q));
- QQ=Q/R[0][0];
- R1=fctr(dn(QQ));
- for(RR=cdr(R1); RR!=[]; RR=cdr(RR)){
- VT=vars(car(RR)[0]);
- if(findin(x,VT)<0 && findin(dx,VT)<0){
- for(I=car(RR)[1];I>0;I--) QQ=red(QQ*car(RR)[0]);
- }
- }
- Raw=getopt(raw);
- Dviout=getopt(dviout);
- if(Dviout==1) Raw=4;
- if(Raw!=1){
- for(RR=cdr(R); RR!=[]; RR=cdr(RR)){
- VT=vars(car(RR)[0]);
- if(findin(x,VT)<0 && findin(dx,VT)<0){
- for(I=car(RR)[1];I>0;I--) QQ=red(QQ/car(RR)[0]);
- }
- }
- }
- if(Raw==2||Raw==3||Raw==4){
- R=mygcd(QQ,P,[x,dx]); /* R[0]=R[1]*QQ + R[2]*P */
- Q1=red(R[0]/R[2]);
- for(Q=1,RR=cdr(fctr(nm(Q1))); RR!=[]; RR=cdr(RR)){
- VT=vars(car(RR)[0]);
- if(findin(x,VT)<0){
- for(I=car(RR)[1];I>0;I--) Q*=car(RR)[0];
- }
- }
- if(Raw==3) QQ=[QQ,Q];
- else if(Raw==4) /* Q=Q*R[1]/R[0]*QQ+Q/R[0]*P */
- QQ=[QQ,Q,red(R[1]*Q/R[0])];
- else QQ=Q;
- }
- F=getopt(all);
- if(Dviout==1){
- Pre = " x=\\infty & 0 & 1";
- for(I=3; I<NP; I++) Pre = Pre+"& "+rtostr(L[I]);
- Pre = Pre+"\\\\\n";
- PW=str_tb(ltotex(RS|opt="GRS",pre=Pre),0);
- str_tb(
-"=\\{u\\mid Pu=0\\}\\\\\n&\\underset{Q_2}{\\overset{Q_1}{\\rightleftarrows}}\n",PW);
- str_tb([ltotex(RS1|opt="GRS",pre=Pre),"\\\\\n"],PW);
- R=fctrtos(QQ[0]|TeX=3,var=[dx,"\\partial"]);
- if(type(R)==4) R="\\frac1{"+R[1]+"}"+R[0];
- str_tb(["Q_1&=",R,"\\\\\n"],PW);
- R=fctrtos(QQ[2]|TeX=3,var=[dx,"\\partial"]);
- if(type(R)==4) R="\\frac1{"+R[1]+"}"+R[0];
- str_tb(["Q_2&=",R,"\\\\\n"],PW);
- str_tb(["Q_2Q_1&\\equiv ",fctrtos(QQ[1]|TeX=3),"\\mod W(x)P"],PW);
- if(F==1)
- str_tb(["\\\\\nP&=",fctrtos(P|TeX=3,var=[dx,"\\partial"])],PW);
- dviout(str_tb(0,PW)|eq=0,title="Shift Operator");
- }
- if(F==1) return [QQ,P,RS,P1,RS1];
- else if(F==0) return QQ;
- return [QQ,P,RS];
-}
-
-def conf1sp(M)
-{
- if(type(M)==7) M=s2sp(M);
- L0 = length(M);
- L1 = length(M[L0-1]);
- X2 = getopt(x2);
- Conf= getopt(conf);
- if(Conf != 0)
- Conf = -1;
- if((X2==1 || X2==-1) && Conf != 0){
- X1 = 0;
- X = x_1;
- }else{
- X1 = 1;
- X = x_2;
- }
- G = sp2grs(M,a,[L0,L1]);
- for(I = 0; I < L0-1; I++){
- V = makev([a,I-Conf,0]);
- G = subst(G,V,0);
- }
- L2 = length(M[1]);
- for(I=J=S0=S1=0; I < L2; I++){
- S1 += G[1][I][0];
- while(S0 < S1){
- S0 += G[0][J][0];
- if((V=G[0][J][1]) != 0)
- G = mysubst(G,[V,V-G[1][I][1]]);
- J++;
- }
- if(S0 > S1){
- print("Error in data!");
- return 0;
- }
- }
- if(Conf==0){
- for(L=[], I=L0-2; I>=0; I--)
- L=cons(I,L);
- L=cons(L0-1,L);
- P = getbygrs(G,["operator","x2"]|perm=L);
- }else if(X1)
- P = getbygrs(mperm(G,[[1,2]],[]), ["operator","x2"]);
- else
- P = getbygrs(G,["operator","x1"]);
- if(Conf==0)
- P=nm(mysubst(P,[X,c]));
- else{
- P = nm(mysubst(P,[X,1/c]));
- if(X2==-1){
- for(I=2; I<L0; I++){
- V=makev(["x_",I]); VC=makev([c,I]);
- P = nm(mysubst(P,[V,1/VC]));
- }
- }
- }
- for(I = 1; I < L2; I++){
- X = G[1][I][1];
- P = nm(mysubst(P,[X,X/c]));
- }
- VS = vars(P);
- while(VS!=[]){
- V = car(VS);
- if(str_chr(rtostr(V),0,"r")==0){
- CV = mycoef(P,1,V);
- D = mymindeg(CV,c);
- if(D > 0) P = mysubst(P,[V,V/c^D]);
- CV = mycoef(P,1,V);
- DD = mydeg(CV,dx);
- CVV = mycoef(CV,DD,dx);
- CD1 = mydeg(CVV,x);
- CD = (X==x1)?0:CD1;
- while(CD>=0 && CD<=CD1){
- CC = mycoef(CVV,CD,x);
- if(type(CC)==1){
- VT = mycoef(mycoef(mycoef(P,DD,dx),CD,x),0,V)/CC;
- if(VT != 0) P = mysubst(P,[V,V-VT]);
- break;
- }
- if(X==x1) CD++;
- else CD--;
- }
- while(subst(P,c,0,V,0) == 0)
- P = red(mysubst(P,[V,c*V])/c);
- }
- VS =cdr(VS);
- }
- return P;
-}
-
-def pgen(L,VV)
-{
- if(type(L[0])<4) L=[L];
- if(type(L)==4) L=ltov(L);
- K=length(L);
- V=newvect(K);
- if(type(Sum=getopt(sum))!=1) Sum=0;
- if((Num=getopt(num))!=1) Num=0;
- if((Sep=getopt(sep))!=1) Sep=0;
- if(type(Shift=getopt(shift))!=1) Shift=0;
- for(;;){
- for(PP=1,R=[],II=K-1; II>=0; II--){
- R=cons(V[II]+Shift,R);
- if(II>0 && Sep==1) R=cons("_",R);
- PP*=L[II][0]^V[II];
- }
- P+=makev(cons(VV,R)|num=Num)*PP;
- for(I=0;I<K;){
- if(++V[I]<=L[I][1]){
- if(Sum>0){
- for(S=II=0;II<K;) S+=V[II++];
- if(S>Sum){
- V[I++]=0;
- continue;
- }
- }
- }else{
- V[I++]=0;
- continue;
- }
- break;
- }
- if(I>=K) return P;
- }
-}
-
-def diagm(M,A)
-{
- return mgen(M,0,A,1);
-}
-
-def mgen(M,N,A,S)
-{
- if(M==0 && N==0){
- mycat([
-"mgen(m,n,a,s|sep=1) : generate a matrix of size m x n\n",
-" n : a number or \"diagonal\", \"highdiag\", \"lowdiag\",\"skew\",\"symmetric\",\"perm\" = 0,-1,-2,..\n",
-" a : a symbol or list (ex. a, [a], [a,b,c], [1,2,3])\n",
-" s : 0 or 1 (shift of suffix)\n"
- ]);
- return 0;
- }
- if(type(N)==7) N=-findin(N,["diag","highdiag","lowdiag","skew","symmetric","perm"]);
- Sep=(getopt(sep)==1)?1:0;
- if(S < 0 || S > 2)
- S = 0;
- if(M+S > 30 || N+S > 30){
- erno(1);
- return;
- }
- if(N==-5){
- NM=newmat(M,M);
- for(I=0;I<M;I++,A=cdr(A)) NM[I][car(A)-S]=1;
- return NM;
- }
- if(type(A) == 4)
- L = length(A)-1;
- else
- L = -1;
- if(N <= 0 && N >= -2){
- MM = newmat(M,M);
- J = K = 0;
- if(N == -1){
- K = 1; M--;
- }else if(N == -2){
- J = 1; M--;
- }
- for(I = 0; I < M; I++){
- if(L >= 0)
- MM[I+J][I+K] = A[(I > L)?L:I];
- else if(type(A)==7 || isvar(A))
- MM[I+J][I+K] = makev([A,S+I]|sep=Sep);
- else
- MM[I+J][I+K] = A;
- }
- return MM;
- }
- K = N;
- if(K < 0) N = M;
- MM = newmat(M,N);
- for(I = 0; I < M; I++){
- if(L >= 0)
- AA = rtostr(A[(I > L)?L:I]);
- else
- AA = rtostr(A)+rtostr(I+S);
- if(AA>="0" && AA<=":"){
- erno(0); return;
- }
- for(J = 0; J < N; J++){
- if(K < 0){
- if(I > J) continue;
- if(K == -3 && I == J) continue;
- }
- MM[I][J] = makev([AA,J+S]|sep=Sep);
- }
- }
- if(K < 0){
- for(I = 0; I < M; I++){
- for(J = 0; J < I; J++)
- MM[I][J] = (K == -4)?MM[J][I]:-MM[J][I];
- }
- }
- return MM;
-}
-
-def newbmat(M,N,R)
-{
- S = newvect(M);
- T = newvect(N);
- IM = length(R);
- for(I = 0; I < IM; I++){
- RI = R[I];
- JM = length(RI);
- for(J = 0; J < JM; J++){
- RIJ = RI[J];
- if(type(RIJ) == 6){
- S[I] = size(RIJ)[0];
- T[J] = size(RIJ)[1];
- }
- }
- }
- for(I = K = 0; I < M; I++){
- if(S[I] == 0)
- S[I] = 1;
- K += S[I];
- }
- for(J = L = 0; J < N; J++){
- if(T[J] == 0)
- T[J] = 1;
- L += T[J];
- }
- M = newmat(K,L);
- if(type(Null=getopt(null))>0){
- for(I=0;I<K;I++){
- for(J=0;J<L;J++) M[I][J]=Null;
- }
- }
- for(I0 = II = 0; II < IM; I0 += S[II++]){
- RI = R[II];
- JM = length(RI);
- for(J0 = JJ = 0; JJ < JM; J0 += T[JJ++]){
- if((RIJ = RI[JJ]) == 0)
- continue;
- Type = type(RIJ);
- for(I = 0; I < S[II]; I++){
- for(J = 0; J < T[JJ]; J++){
- if(Type == 6)
- M[I0+I][J0+J] = RIJ[I][J];
- else if(Type == 4 || Type == 5)
- M[I0+I][J0+J] = (I>0)?RIJ[I]:RIJ[J];
- else
- M[I0+I][J0+J] = RIJ;
- }
- }
- }
- }
- return M;
-}
-
-def unim(S)
-{
- if(!Rand++) random(currenttime());
- if(!isint(Wt=getopt(wt))||Wt<0||Wt>10) Wt=2;
- if(!isint(Xa=getopt(abs)) || Xa<1)
- Xa=9;
- if((Xaa=Xa)>10) Xaa=10;
- if(Xaa%2) Xaa++;
- Xh=Xaa/2;
- if(type(S0=SS=S)==4){
- Int=(getopt(int)==1)?1:0;
- U=[1,1,1,1,1,1,1,1,1,1,1,1,2,2,3,4];
- M=newmat(S[0],S[1]);
- SS=cdr(S);SS=cdr(SS);
- if(Rk=length(SS)) L=SS;
- else{
- L=[0];
- I=(S[0]>S[1])?S[1]:S[0];
- if(I<=2) return 0;
- if(!isint(Rk=getopt(rank))||Rk<1||Rk>S[0]||Rk>S[1])
- Rk=random()%(I-1)+2;
- for(I=1;I<Rk;){
- P=random()%(S[1]+Wt)-Wt;
- if(P<=0) P=1;
- if(findin(P,L)!=0){
- L=cons(P,L);
- I++;
- }
- }
- }
- L=ltov(qsort(L));
- M[0][L[0]]=1;
- for(I=1;I<Rk;I++){
- P=Int?1:U[random()%length(U)];
- if(P>Xa) P=Xa;
- M[I][L[I]]=(random()%2)?P:(-P);
- }
- for(I=0;I<Rk;I++){
- if(I!=0&&abs(M[I][L[I]])>1) M[K=random()%I][KK=L[I]]=1;
- I0=(I==0)?1:L[I]+1;
- I1=(I==Rk-1)?S[1]:L[I+1];
- for(J=I0;J<I1;J++){
- for(K=1;K<=Xa;K++){
- P=random()%(I+1);
- if((random()%2)==1) M[P][J]++;
- else M[P][J]--;
- }
- }
- }
- S=M;
- Res=(getopt(res)==1)?dupmat(S):0;
- }
- Conj=0;
- if(type(S)<2){
- if(S<2||S>20) return 0;
- if(getopt(conj)==1){
- M=S+Wt;
- if(M>15) M=10;
- M0=floor((M-1)/2);
- for(R=[],I=0;I<S;I++) R=cons(random()%M-M0,R);
- R=qsort(R);
- M=diagm(S,R);
- if(getopt(diag)!=1){
- for(I=1;I<S;I++)
- if(M[I-1][I-1]==M[I][I] && random()%2) M[I-1][I]=1;
- }
- if(M[0][0]==M[S-1][S-1]){
- for(I=1;I<S;I++) if(M[I-1][I]==1) break;
- if(I==S){
- if(M[0][0]>0) M[0][0]--;
- else M[S-1][S-1]++;
- }
- }
- if(getopt(res)==1) RR=diagm(S,[1]);
- S1=S;
- Res=dupmat(S=M);
- if(isint(I=getopt(int))&&I>1&&random()%I==0){
- K=S[0][0];L=K+1;
- for(I=1;I<S1;I++){
- if(S[I][I]>L && S[I-1][I]==0 && (I==S1-1||S[I][I+1]==0)){
- L=S[I][I];
- if(RR){
- RR[I][I]=L-K;RR[0][I]=1;
- }
- S[0][I]=1;
- if(!(random()%3)) break;
- }
- }
- if(random()%3==0){
- for(I=0;I<S1-1;I++){
- if(iand(S[I][I],1)&&S[I][I+1]==1){
- for(J=I+2;J<S1&&S[I][J]==0;J++);
- if(J<S1) continue;
- for(J=I-1;J>=0&&S[J][I]==0;J--);
- if(J>=0) continue;
- S[I][I+1]=2;
- for(J=0;J<S1;J++) RR[I][J]*=2;
- break;
- }
- }
- }
- }
- }else{
- M=diagm(S,[1]);
- S1=S;
- }
- }
- if(type(S)==6){
- M=dupmat(S);
- S=size(S);
- S1=S[1];S=S[0];
- Nt=1;
- if(getopt(conj)==1&&S==S1) Conj=1;
- }
- if(!isint(Ct=getopt(time)))
- Ct=(S>3||S1>3)?100:200;
- if(getopt(both)==1){
- OL=delopt(getopt(),"both");
- M=unim(mtranspose(M)|option_list=OL);
- M=mtranspose(M);
- }
- Mx=20;
- for(I=K=LL=0;I<Ct+Mx;I++){
- P=random()%S;Q=random()%S;
- if(3*K>Ct) T=random()%Xaa-Xh;
- else if(5*K<Ct) T=random()%2-1;
- else T=random()%4-2;
- if(T>=0) T++;
- if(P==Q) continue;
- for(G=0,J=S1-1;J>=0;J--){
- if((H=abs(M[Q][J]+M[P][J]*T))>Xa&&(!Conj||J!=P)) break;
- if(K<Mx&&!Conj) G=igcd(G,H);
- }
- if(K<Mx && G>1) J=1;
- if(J>0) continue;
- if(J<0&&Conj==1){
- for(J=S1-1;J>=0;J--)
- if(J!=Q&&abs(M[J][P]-M[J][Q]*T)>Xa) break;
- if(J<0&&abs(M[Q][P]-M[Q][Q]*T+M[P][P]*T-M[P][Q]*T^2)>Xa) J=1;
- if(J<0&&M[P][P]==M[Q][Q]){
- LF=0;
- for(L=S1-1;J>=0;J--) if(L!=Q&&M[J][Q]!=0) LF++;
- for(L=S1-1;J>=0;J--) if(L!=P&&M[P][J]!=0) LF++;
- if(!LF) J=1;
- }
- }
- if(J<0){
- for(J=S1-1;J>=0;J--)
- M[Q][J]+=M[P][J]*T;
- if(Conj==1)
- for(J=S1-1;J>=0;J--) M[J][P]-=M[J][Q]*T;
- if(RR) for(J=S1-1;J>=0;J--) RR[Q][J]+=RR[P][J]*T;
- K++;
- }
- if(K%5==0){
- if(!Nt) M=mtranspose(M);
- else if(!Conj&&K%2==0){
- for(F=0;F<S;F++){
- if((V=lgcd(M[F]))>1){
- for(L=0;L<S1;L++) M[F][L]/=V;
- }
- }
- }
- }
- if(I>Ct){
- for(L=S-1;L>=0;L--){
- for(F=0,J=S1-1;J>=0;J--)
- if(M[L][J]!=0) F++;
- if(F<2){
- F=-1;break;
- }
- else F=0;
- }
- if(F<0 && LL++<5){
- I=(CT-CT%2)/2;K=1;
- }
- if(I>Ct) break;
- }
- }
- if(RR){
- for(I=F=0;I<S1;I++){
- V=Res[I][I];
- for(J=I+1;J<S1;J++){
- if(Res[J][J]!=V) break;
- for(LP=0;LP<2;LP++){
- if(J==S1-1||Res[J][J+1]==0){
- if(I==0||Res[I-1][I]==0){
- for(VL=VS=[],K=0;K<S1;K++){
- VL=cons(RR[K][J],VL);VS=cons(RR[K][I],VS);
- }
- VR=ldev(VL,VS);
- if(VR[0]){
- for(K=S1-1,VN=VR[1];K>=0;K--,VN=cdr(VN))
- RR[K][J]=car(VN);
- F=1;
- }
- }
- }
- K=I;I=J;J=K;
- }
- }
- if(F&&I==S1-1){
- F=0;I=-1;
- }
- }
- if(getopt(int)==1){
- N=mtranspose(M);
- for(F=I=0;I<S1;I++) if(lgcd(M[I])>1||lgcd(N[I])>1) F++;
- if(F){
- for(F=I=0;I<S1;I++){
- if(Res[I][I]==-1) F=ior(F,1);
- else if(Res[I][I]==1) F=ior(F,2);
- }
- C=0;
- if(!iand(F,1)) C=1;
- else if(!iand(F,2)) C=-1;
- if(C){
- for(I=0;I<S1;I++){
- M[I][I]+=C;Res[I][I]+=C;
- }
- }
- }
- }
- if(getopt(rep)!=1){
- for(Lp=0;Lp<5;Lp++){
- F=(M==Res||abs(lmax(RR))>Xa*10||abs(lmin(RR))>Xa*10)?1:0;
- for(I=0;!F&&I<S1&&Lp<4;I++){
- for(K=L=J=0;J<S1;J++){
- if(M[I][J]) K++;
- if(M[J][I]) L++;
- }
- if(K<2||L<2) F=1;
- }
- if(!F) break;
- R=unim(S0|option_list=cons(["rep",1],getopt()));
- M=R[0];Res=R[1];RR=R[3];
- }
- }
- }
- if(Res==0) return M;
- if(RR){
- for(I=K=V=0;I<S1;I++){
- for(J=0;J<S1;J++){
- if(RR[J][I]>0) V++;
- else if(RR[J][I]<0) V--;
- }
- if(I<S1-1&&Res[I][I+1]!=0) continue;
- if(V<0){
- for(;K<=I;K++) RR=colm(RR,K,-1);
- }
- K=I+1;V=0;
- }
- }
- if(getopt(rep)!=1){
- if((F=getopt(dviout))==1){
- if(getopt(conj)==1){
- if(RR) show([Res,"=",myinv(RR),M,RR]|opt="spts0",str=1,lim=200);
- }else{
- if(type(Lim=getopt(lim))==1)
- mtoupper(M,0|step=1,opt=7,dviout=1,pages=1,lim=Lim);
- else mtoupper(M,0|step=1,opt=7,dviout=1,pages=1);
- }
- }else if(F==-1){
- if(getopt(conj)==1){
- if(RR) return ltotex([Res,"=",myinv(RR),M,RR]|opt="spts0",str=1,lim=200);
- }else{
- if(type(Lim=getopt(lim))==1)
- return mtoupper(M,0|step=1,opt=7,pages=1,lim=Lim,dviout=-1);
- else return mtoupper(M,0|step=1,opt=7,pages=1,dviout=-1);
- }
- }
- }
- if(RR==0) return[M,Res];
- return [M,Res,myinv(RR),RR];
-}
-
-def pfrac(F,X)
-{
- F = red(F);
- FN = nm(F);
- FD = dn(F);
- if(mydeg(FD,X) == 0)
- return [[F,1,1]];
- R = rpdiv(FN,FD,X);
- FN = R[0]/R[1];
- R0 = R[2]/R[1];
- FC = fctr(FD);
- RT=[];
- if(getopt(root)==2){
- for(FE=[],FT=FC;FT!=[];FT=cdr(FT)){
- if(mydeg(P=car(FT)[0],X)==4 && vars(P)==[X] && pari(issquare,C=mycoef(P,4,X))){
- if((S=mycoef(P,3,X)/4/C)!=0) P=subst(P,X,X-S);
- if(mycoef(P,1,X)==0 && pari(issquare,C0=mycoef(P,0,X))){
- C=sqrtrat(C);C0=sqrtrat(C0);C1=2*C*C0-mycoef(P,2,X);
- if(C1>0){
- FE=cons([C*(X+S)^2-C1^(1/2)*(X+S)+C0,car(FT)[1]],FE);
- FE=cons([C*(X+S)^2+C1^(1/2)*(X+S)+C0,car(FT)[1]],FE);
- RT=cons(C1,RT);
- continue;
- }
- }
- }
- FE=cons(car(FT),FE);
- }
- FC=reverse(FE);
- }
- N = Q = 0;
- L = [];
- for(I = length(FC)-1; I >= 0; I--){
- if((D = mydeg(FC[I][0],X)) == 0) continue;
- for(K=1; K<=FC[I][1]; K++){
- for(J=P=0; J < D; J++){
- V = makev(["zz_",++N]);
- P = P*X + V;
- L = cons(V,L);
- }
- Q += P/(FC[I][0]^K);
- Q = red(Q);
- }
- }
- L=reverse(L);
- Q = nm(red(red(Q*FD)-FN));
- Q = ptol(Q,X);
- S = lsol(Q,L);
- R = (R0==0)?[]:[[R0,1,1]];
- for(N=0,I=length(FC)-1; I >= 0; I--){
- if((D = mydeg(FC[I][0],X)) == 0) continue;
- for(K=1; K<=FC[I][1]; K++){
- for(P=J=0; J < D; N++,J++)
- P = P*X + S[N][1];
- if(P!=0) R = cons([P,FC[I][0],K],R);
- }
- }
- for(;RT!=[];RT=cdr(RT)){
- RTT=car(RT);
- R=mtransbys(os_md.substblock,R,[RTT^(1/2),(RTT^(1/2))^2,RTT]);
- }
- TeX=getopt(TeX);
- if((Dvi=getopt(dviout))==1||TeX==1){
- V=strtov("0");
- for(S=L=0,RR=R;RR!=[];RR=cdr(RR),L++){
- RT=car(RR);
- S+=(RT[0]/RT[1]^RT[2])*V^L;
- }
- if(TeX!=1) fctrtos(S|var=[V,""],dviout=1);
- else return fctrtos(S|var=[V,""],TeX=3);
- }
- return reverse(R);
-}
-
-def cfrac(X,N)
-{
- F=[floor(X)];
- if(N<0){
- Max=N=-N;
- }
- X-=F[0];
- if(Max!=1)
- M=mat([F[0],1],[1,0]);
- for(;N>0 && X!=0;N--){
- X=1/X;
- F=cons(Y=floor(X),F);
- X-=Y;
- if(Max){
- M0=M[0][0];M1=M[1][0];
- M=M*mat([Y,1],[1,0]);
- if(M[0][0]>Max) return M0/M1;
- }
- }
- return (Max==0)?reverse(F):M[0][0]/M[1][0];
-}
-
-def sqrt2rat(X)
-{
- if(type(X)>3) return X;
- X=red(X);
- if(getopt(mult)==1){
- for(V=vars(X);V!=[];V=cdr(V)){
- T=funargs(F=car(V));
- if(type(T)==4&&length(T)>1){
- Y=T[1];
- Z=sqrt2rat(Y);
- if(Y!=Z){
- if(length(T)==2){
- T0=T[0];
- X=subst(X,F,T0(Z));
- }else if(T[0]==pow)
- X=subst(X,F,Y^T[2]);
- }
- }
- }
- }
- for(V=vars(X);V!=[];V=cdr(V)){ /* r(x)^(1/2+n) -> r(x)^n*r(x)^(1/2) */
- T=args(Y=car(V));
- if(functor(Y)==pow&&T[1]!=1/2&&isint(T2=2*T[1])){
- if(iand(T2,1)){
- R=(T[0])^(1/2);T2--;
- }else R=1;
- R*=T[0]^(T2/2);
- X=red(subst(X,Y,R));
- }
- }
- D=dn(X);N=nm(X);
- if(imag(D)!=0){
- N*=conj(D);
- D*=conj(D);
- return sqrt2rat(N/D);
- }
- for(V=vars(N);V!=[];V=cdr(V)){ /* (r(x)^(n/m))^k */
- T=args(Y=car(V));
- if(functor(Y)==pow&&(T[1]==0||(type(T[1])==1&&ntype(T[1])==0))){
- Dn=dn(T[1]);Nm=nm(T[1]);
- N=substblock(N,Y,Y^Dn,T[0]^Nm);
- }
- }
- for(V=vars(D);V!=[];V=cdr(V)){
- T=args(Y=car(V));
- if(functor(Y)==pow&&(T[1]==0||(type(T[1])==1&&ntype(T[1])==0))){
- Dn=dn(T[1]);Nm=nm(T[1]);
- D=substblock(D,Y,Y^Dn,T[0]^Nm);
- }
- }
- for(V=vars(D);V!=[];V=cdr(V)){
- T=args(Y=car(V));
- if(functor(Y)==pow&&T[1]==1/2&&mydeg(D,Y)==1){
- N*=mycoef(D,0,Y)-mycoef(D,1,Y)*Y;
- N=mycoef(N,0,Y)+mycoef(N,1,Y)*Y+mycoef(N,2,Y)*T[0];
- D=mycoef(D,0,Y)^2-mycoef(D,1,Y)^2*T[0];
- X=red(N/D);
- D=dn(X);N=nm(X);
- break;
- }
- }
- X=red(N/D);
- D=dn(X);N=nm(X);
- for(V=vars(D);V!=[];V=cdr(V)){
- T=args(Y=car(V));
- if(functor(Y)==pow&&T[1]==1/2)
- D=substblock(D,T[0]^T[1],(T[0]^T[1])^2,T[0]);
- }
- for(V=vars(N);V!=[];V=cdr(V)){
- T=args(Y=car(V));
- if(functor(Y)==pow&&T[1]==1/2)
- N=substblock(N,T[0]^T[1],(T[0]^T[1])^2,T[0]);
- }
- for(V=vars(N);V!=[];V=cdr(V)){
- T=args(Y=car(V));
- if(functor(Y)==pow&&T[1]==1/2){
- Ag=T[0];
- R=S=1;
- An=fctr(nm(Ag));
- CA=An[0][0];
- if(CA<0){
- CA=-CA;R=-1;
- }
- if(type(I=sqrtrat(CA))<2) S=I;
- else R*=CA;
- for(An=cdr(An);An!=[];An=cdr(An)){
- Pw=car(An)[1];I=iand(Pw,1);
- if(I) R*=car(An)[0];
- if((Q=(Pw-I)/2)>0) S*=car(An)[0]^Q;
- }
- for(An=fctr(dn(Ag));An!=[];An=cdr(An)){
- Pw=car(An)[1];I=iand(Pw,1);
- if(I) R/=car(An)[0]^I;
- if((Q=(Pw-I)/2)>0) S/=car(An)[0]^Q;
- }
- if(S!=1) N=subst(N,Y,R^(1/2)*S);
- }
- }
- for(V=vars(N);V!=[];V=cdr(V)){
- T=args(Y=car(V));
- if(functor(Y)==pow&&T[1]==1/2){
- C=mycoef(N,1,Y);
- for(VC=vars(C);VC!=[];VC=cdr(VC)){
- TC=args(YC=car(VC));
- if(functor(YC)==pow&&TC[1]==1/2){
- Ag=red(T[0]*TC[0]);
- R=S=1;
- An=fctr(nm(Ag));
- CA=An[0][0];
- if(CA<0){
- CA=-CA;R=-1;
- }
- if(type(I=sqrtrat(CA))<2) S=I;
- else R*=CA;
- for(An=cdr(An);An!=[];An=cdr(An)){
- Pw=car(An)[1];I=iand(Pw,1);
- if(I) R*=car(An)[0];
- if((Q=(Pw-I)/2)>0) S*=car(An)[0]^Q;
- }
- for(An=fctr(dn(Ag));An!=[];An=cdr(An)){
- Pw=car(An)[1];I=iand(Pw,1);
- if(I) R/=car(An)[0]^I;
- if((Q=(Pw-I)/2)>0) S/=car(An)[0]^Q;
- }
- CC=mycoef(C,1,YC);
- N=N-CC*YC*Y+CC*R^(1/2)*S;
- }
- }
- }
- }
- return red(N/D);
-}
-
-def cfrac2n(X)
-{
- if(type(L=getopt(loop))==1&&L>0)
- C=x;
- else{
- C=0;L=0;
- }
- if(L>1){
- for(Y=[];L>1;L--){
- Y=cons(car(X),Y);
- X=cdr(X);
- }
- if(X!=[]){
- P=cfrac2n(X|loop=1);
- for(V=P,Y=reverse(Y);Y!=[];Y=cdr(Y))
- V=sqrt2rat(car(Y)+1/V);
- return V;
- }else{
- C=0;X=reverse(Y);
- }
- }
- for(V=C,X=reverse(X);X!=[];X=cdr(X)){
- if(V!=0) V=1/V;
- V+=car(X);
- }
- if(C!=0){
- V=red(V);P=dn(V)*x-nm(V);
- S=getroot(P,x|cpx=2);
- T=map(eval,S);
- V=(T[0]>0)?S[0]:S[1];
- }
- return V;
-}
-
-def s2sp(S)
-{
- if(getopt(short)==1){
- if(type(F=getopt(std))==1) S=s2sp(S|std=F);
- if(type(S)!=7) S=s2sp(S);
- L=strtoascii(S);
- for(LS=[],F=C=0;L!=[];L=cdr(L)){
- if((G=car(L))!=F){
- LS=cons(G,LS);C=0;
- }else if(C<3){
- LS=cons(G,LS);
- }else if(C==3){
- LS=cdr(LS);LS=cdr(LS);
- LS=cons(94,LS);LS=cons(52,LS);
- }else if(C==9){
- LS=cdr(LS);LS=cons(97,LS);
- }else{
- K=car(LS);LS=cdr(LS);LS=cons(K+1,LS);
- }
- C++;F=G;
- }
- return asciitostr(reverse(LS));
- }
- if(type(F=getopt(std))==1){
- F=(F>0)?1:-1;
- if(type(S)==7) S=s2sp(S);
- for(L=[];S!=[];S=cdr(S))
- L=cons(os_md.msort(car(S),[-1,0]),L);
- return os_md.msort(L,[F,2]);
- }
- if(type(S)==7){
- S = strtoascii(S);
- if(type(S) == 5) S = vtol(S);
- for(N=0,R=TR=[]; S!=[]; S=cdr(S)){
- if(car(S)==45) /* - */
- N=1;
- else if(car(S)==47) /* / */
- N=2;
- if(N>0){
- while(car(S)<48&&car(S)!=40) S=cdr(S);
- }
- if((T=car(S))>=48 && T<=57) TR=cons(T-48,TR);
- else if(T>=97) TR=cons(T-87,TR);
- else if(T>=65 && T<=90) TR=cons(T-29,TR); /* A-Z */
- else if(T==44){
- R=cons(reverse(TR),R);
- TR=[];
- }else if(T==94){ /* ^ */
- S=cdr(S);
- if(car(S)==40){ /* ( */
- S=cdr(S);
- for(T=0; car(S)!=41 && S!=[]; S=cdr(S)){
- V=car(S)-48;
- if(V>=10) V-=39;
- T=10*T+V;
- }
- }else{
- while(car(S)<48) S=cdr(S);
- T=car(S)-48;
- if(T>=10) T-=39;
- }
- while(--T>=1) TR=cons(car(TR),TR);
- }else if(T==40){ /* ( */
- S=cdr(S);
- if(N==1){
- N=0; NN=1;
- }else NN=0;
- if(car(S)==45){ /* - */
- S=cdr(S);
- NN=1-NN;
- }
- for(I=0; I<2; I++){
- for(V=0; (SS=car(S))!=41 && SS!=47 && S!=[]; S=cdr(S)){
- T=SS-48;
- if(T>=10) T-=39;
- V=10*V+T;
- }
- if(NN==1){
- V=-V; NN=0;
- }
- TR=cons(V,TR);
- if(SS!=47) break;
- else{
- N=2; S=cdr(S);
- }
- }
- }else if(T==60){
- for(V=[],S=cdr(S);S!=[]&&car(S)!=62;S=cdr(S))
- V=cons(car(S),V);
- if(car(S)!=62) continue;
- TR=cons(eval_str(asciitostr(reverse(V))),TR);
- }else if(T<48) continue;
- if(N==1){
- T = car(TR);
- TR=cons(-T,cdr(TR));
- N=0;
- }else if(N==2){
- T=car(TR); TR=cdr(TR);
- TR=cons(car(TR)/T,cdr(TR));
- N=0;
- }
- }
- return reverse(cons(reverse(TR),R));
- }else if(type(S)==4){
- Num=getopt(num);
- for(R=[]; ; ){
- if(type(TS=car(S))!=4) return;
- for(; TS!=[]; TS=cdr(TS)){
- V=car(TS);
- if(type(V)>1||(type(V)==1&&ntype(V)>0)){
- V="<"+rtostr(V)+">";
- R=append(reverse(strtoascii(V)),R);
- continue;
- }
- if(dn(V)>1){
- P=reverse(strtoascii(rtostr(V)));
- R=append(P,cons(40,R));
- R=cons(41,R);
- continue;
- }
- if(V<0 && V>-10){
- V=-V;
- R=cons(45,R);
- }
- if(V<0 || V>35 || (V>9 && Num==1)){
- P=reverse(strtoascii(rtostr(V)));
- R=append(P,cons(40,R));
- V=41;
- }else if(V<10) V+=48;
- else V+=87;
- R=cons(V,R);
- }
- if((S=cdr(S))==[]) break;
- R=cons(44,R);
- }
- return asciitostr(reverse(R));
- }
- return 0;
-}
-
-def sp2grs(M,A,L)
-{
- MM = [];
- T0 = 0;
- Mat=getopt(mat);
- if(Mat!=1) Mat=0;
- if(type(M)==7) M=s2sp(M);
- if((LM = length(M)) > 10 && type(A) < 4)
- CK = 1;
- Sft = (type(L)==1)?L:0;
- if(type(L)==4 && length(L)>=3)
- Sft = L[2];
- if(Sft < 0){
- T0 = 1;
- Sft = -Sft-1;
- }
- for(I = LM-1; I >= 0; I--){
- MI = M[I]; MN = [];
- if(CK == 1 && length(MI) > 10){
- erno(1);
- return;
- }
- if(type(A) == 4)
- AA = rtostr(A[I]);
- else
- AA = rtostr(A)+rtostr(I);
- for(J = LM = length(MI)-1; J >= 0; J--){
- V = MI[J];
- if(type(V) > 3)
- V = V[0];
- if(T0 == 0 || I == 0)
- MN = cons([V, makev([AA,J+Sft])], MN);
- else{
- if(LM == 1)
- MN = cons([V, (J==0)?0:makev([AA])], MN);
- else if(I == 1 && Mat == 0)
- MN = cons([V, (J==length(MI)-1)?0:makev([AA,J+Sft])], MN);
- else
- MN = cons([V, (J==0)?0:makev([AA,J])], MN);
- }
- }
- MM = cons(MN, MM);
- }
- if(type(L) == 4 && length(L) >= 2){
- R = chkspt(MM|mat=Mat); /* R[3]: Fuchs */
- AA = var(MM[L[0]-1][L[1]-1][1]);
- if(AA==0) AA=var(R[3]);
- if(AA!=0 && (P = mycoef(R[3],1,AA))!=0){
- P = -mycoef(R[3], 0, AA)/P;
- MM = mysubst(MM,[AA,P]);
- }
- }
- return MM;
-}
-
-def intpoly(F,X)
-{
- if((T=ptype(F,X))<4){
- if(T<3){ /* polynomial */
- if(type(C=getopt(cos))>0){
- V=vars(F);
- Z=makenewv(V);
- W=makenewv(cons(Z,V));
- Q=intpoly(F,X|exp=Z);
- Q=(subst(Q,Z,@i*C)*(Z+@i*W)+subst(Q,Z,-@i*C)*(Z-@i*W))/2;
- return [mycoef(Q,1,Z),mycoef(Q,1,W)];
- }
- if(type(C=getopt(sin))>0){
- Q=intpoly(F,X|cos=C);
- return [-Q[1],Q[0]];
- }
- if(type(C=getopt(log))>0){
- Q=intpoly(F,X);
- if(C[0]==0) return [Q,0];
- if(length(C)<3) C=[C[0],C[1],1];
- Q-=subst(Q,X,-C[1]/C[0]);
- if(iscoef(Q,os_md.israt)) Q=red(Q);
- if(C[2]==0) return [Q];
- S=subst(-Q*C[0]*C[2],X,X-C[1]/C[0]);
- for(R=0,D=mydeg(S,X);D>0;D--) R+=mycoef(S,D,X)*X^(D-1);
- R=subst(R,X,X+C[1]/C[0]);
- return cons(Q,intpoly(R,X|log=[C[0],C[1],C[2]-1]));
- }
- if(type(C=getopt(exp))>0){
- D = mydeg(F,X);
- for(P=Q=F/C;D>=0;D--){
- Q=-mydiff(Q,X)/C;
- P+=Q;
- }
- return P;
- }
- for(P=0,I=mydeg(F,X);I >= 0;I--)
- P += mycoef(F,I,X)*X^(I+1)/(I+1);
- return P;
- }
- R=pfrac(F,X|root=2); /* rational */
- for(P=0;R!=[];R=cdr(R)){
- if(type(V=getopt(dumb))==5){
- for(PF=[],RR=R;RR!=[];RR=cdr(RR))
- PF=cons(RR[0][0]/RR[0][1]^RR[0][2],PF);
- PF=[cons(X,reverse(PF))];
- if(P) PF=cons([1,P],PF);
- V[0]=cons(PF,V[0]);
- }
- RT=car(R);
- if(mydeg(RT[1],X)==0) P+=intpoly(RT[0]*RT[2],X);
- else if((Deg=mydeg(RT[1],X))==1){
- if(RT[2]>1) P+=RT[0]*RT[1]^(1-RT[2])/(1-RT[2])/mycoef(RT[1],1,X);
- else P+=RT[0]*log(RT[1])/mycoef(RT[1],1,X);
- P=red(P);
- }else if(Deg==2){
- D1=diff(RT[1],X);C1=mycoef(D1,1,X);
- B=2*C1*mycoef(RT[1],0,X)-mycoef(RT[1],1,X)^2; /* ax^2+bx+c => B=4ac-b^2 */
- B=sqrt2rat(B);
- N=RT[0];
- for(I=RT[2];I>0&&N!=0;I--){
- C0=mycoef(N,1,X)/C1;N-=C0*D1;
- if(C0){
- if(I>1) P-=C0/RT[1]^(I-1)/(I-1);
- else P+=C0*log(RT[1]);
- }
- if(I>1){
- BB=B/C1;
- P+=N*X/RT[1]^(I-1)/(I-1)/BB;
- N*=(2*I-3)/(I-1)/BB;
- }else{
- if(type(BR=sqrtrat(B))>3){
- mycat(["Cannot obtain sqare root of ",B]);
- return [];
- }
- if(real(nm(BR))!=0){
- P+=(2*N/BR)*atan(sqrt2rat(D1/BR|mult=1));
- }else{
- BR*=@i;BRI=sqrt2rat(1/BR);
- R1=(-mycoef(RT[1],1,X)+BR)/C1;
- R2=(-mycoef(RT[1],1,X)-BR)/C1;
- P+=N*BRI*log( /* sqrt2rat */((x-R1)/(x-R2)));
- }
- }
- P=red(P);
- }
- P=sqrt2rat(P);
- }else{
- mycat(["Cannot get an indefinite integral of ",F]);
- return [];
- }
- }
- Q=simplog(P,X);
- if(type(V)==5&&nmono(P)!=nmono(Q)) V[0]=cons([[1,red(P)]],V[0]);
- return red(Q);
- }
- return [];
-}
-
-def fshorter(P,X)
-{
- Q=sqrt2rat(P);
- R=trig2exp(Q,X|inv=1);
- if(str_len(fctrtos(R))<str_len(fctrtos(Q))) Q=R;
- Var=pfargs(Q,X|level=1);
- for(C=F=0,R=1,V=Var;V!=[];V=cdr(V)){
- if(findin(car(V)[1],[cos,sin,tan])>=0){
- if(!C){
- F=car(V)[2];
- }else{
- R=red(car(V)[2]/F);
- if(type(R)!=1) break;
- F/=dn(R);
- }
- C++;
- }
- }
- if(getopt(period)==1) return F;
- if(!isint(Log=getopt(log))) Log=0;
- if(V==[]&&F!=0){
- if(iand(Log,1)){
- H=append(cdr(fctr(nm(Q))),cdr(fctr(dn(Q))));
- for(L=0;H!=[];H=cdr(H))
- L+=str_len(rtostr(car(H)[0]));
- }else L=str_len(fctrtos(Q));
- S=trig2exp(P,X);
- for(T=[sin(F),tan(F),cos(F),sin(F/2),cos(F/2),tan(F/2)];T!=[];T=cdr(T)){
- R=trig2exp(S,X|inv=car(T));
- if(iand(Log,1)){
- H=append(cdr(fctr(nm(R))),cdr(fctr(dn(R))));
- for(K=0;H!=[];H=cdr(H))
- K+=str_len(rtostr(car(H)[0]));
- }else K=str_len(fctrtos(R));
- if(K<L){
- Q=R;L=K;
- }
- }
- }
- return Q;
-}
-
-def isshortneg(P)
-{
- return(str_len(rtostr(P))>str_len(rtostr(-P)))?1:0;
-}
-
-def simplog(R,X)
-{
- for(V=[],Var=pfargs(R,X);Var!=[];Var=cdr(Var)){
- VT=car(Var);
- if(VT[1]==log && ptype(R,VT[0])==2 && mydeg(R,VT[0])==1)
- V=cons([VT[0],VT[2],mycoef(R,1,VT[0])],V);
- }
- for(;V!=[];V=cdr(V)){
- VT=car(V);
- for(V2=cdr(V);V2!=[];V2=cdr(V2)){
- Dn=1;
- if((C=red(car(V2)[2]/VT[2]))!=1&&C!=-1){
- if(getopt(mult)==1&&type(C)==1&&ntype(C)==0){
- Dn=dn(C);C*=Dn;
- }else continue;
- }
- Log=red(VT[1]^Dn*car(V2)[1]^(Dn*C));
- L=str_len(rtostr(dn(Log)))-str_len(rtostr(nm(Log)));
- if(L>0 || (L==0&&isshortneg(VT[2])) ){
- Dn=-Dn;Log=1/Log;
- }
- R=mycoef(R,0,VT[0]);R=mycoef(R,0,car(V2)[0]);
- return(R+VT[2]*log(Log)/Dn);
- }
- }
- return R;
-}
-
-def integrate(P,X)
-{
- Dvi=getopt(dviout);
- if(type(I=getopt(I))==4){
- if((R=integrate(P,X))==[]) II="?";
- else if(type(I[0])>3||type(I[1])>3){
- R=subst(R,X,x);
- V=flim(R,I[0]);VV=flim(R,I[1]);
- if(V==""||VV=="") II="?";
- else if(type(V)==7||type(VV)==7){
- if(V==VV) II="?";
- else II=(VV=="+"||V=="-")?"\\infty":"-\\infty";
- }else{
- II=VV-V;
- if(II>10^10) II="\\infty";
- else if(II<-10^10) II="-\\infty";
- }
- }else{
- V=subst(R,X,I[1])-subst(R,X,I[0]);
- VV=myval(V);
- II=(type(VV)>=2||ntype(VV)<1)?VV:evalred(V);
- }
- if(type(Dvi)!=1) return II;
- I=ltov(I);
- for(J=0;J<2;J++){
- if(type(I[J])>3){
- if(type(I[J])==4&&length(I[J])>1) I[J]=I[J][1];
- else I[J]=(J==0)?"-\\infty":"\\infty";
- }
- if(type(I[J])<4) I[J]=my_tex_form(I[J]);
- }
- S=(type(II)==7)?II:my_tex_form(II);
- S="\\int_{"+I[0]+"}^{"+I[1]+"}"+monototex(P)+"\\,d"+my_tex_form(X)+"&="+S;
- if(Dvi==1) dviout(texbegin("align",S));
- return S;
- }
- if(isint(Dvi)==1){
- if(Dvi==2||getopt(dumb)==-1){
- V=newvect(1);V[0]=[];
- }else V=0;
- if((RR=integrate(P,X|dumb=V))==[]) return R;
- S=fshorter(RR,X);
- VV=[X];
- if(V!=0){
- R=cons([[1,RR]],V[0]);
- if(S!=RR) R=cons([[1,RR=S]],R);
- for(V=FR=[];R!=[];R=cdr(R))
- if(car(R)!=FR) V=cons(FR=car(R),V);
- Var=varargs(V|all=1)[1];
- for(S0=[x0,x1,x2,x3],S=[t,s,u,v,w];S0!=[]&&S!=[];){
- if(findin(car(S0),Var)<0){
- S0=cdr(S0); continue;
- }
- if(findin(car(S),Var)>=0){
- S=cdr(S); continue;
- }
- V=subst(V,[car(S0),car(S)]);S0=cdr(S0);S=cdr(S);
- }
- if(Dvi==-2) return V;
- S1="\\,dx&";
- }else{
- V=[[],[[1,RR=S]]];
- S1="\\,dx";
- }
- if(type(P)>2){
- if(type(nm(P))<2){
- P=P*dx;S1=V?"&":"";
- }
- S=fctrtos(P|TeX=2,lim=0);SV0=my_tex_form(P);
- if(str_len(SV0)<str_len(S)) S=SV0;
- }else S=monototex(P);
- if(Dvi!=-2) S="\\int "+S+S1;
- else S="";
- for(L=[],V=cdr(V);V!=[];V=cdr(V)){
- CL=car(V);S0=["="]; /* a line */
- for(FL=0;CL!=[];CL=cdr(CL),FL++){
- CT=car(CL); /* a term */
- if((Y=CT[0])==0){ /* a variable */
- CT=cdr(CT);
- if(length(CT)>2) CT=cdr(CT);
- S0=["\\qquad(",CT[0],"=",CT[1],")"];
- break;
- }else{
- for(FT=0,S2=[],CT=cdr(CT);CT!=[];CT=cdr(CT),FT++){
- SV=fctrtos(car(CT)|TeX=2,lim=0);SV0=my_tex_form(car(CT));
- if(str_len(SV0)<str_len(SV)) SV=SV0;
- if(FL||FT||(F&&type(Y)<2)) SV=minustos(SV);
- S2=append(["+",SV],S2);
- }
- S2=reverse(cdr(S2));
- if(type(Y)>1){
- if(length(S2)>1){
- S1="\\int\\left(";S3="\\right)\\,d";
- }else{
- S1="\\int";S3="\\,d";
- }
- S2=cons(S1,append(S2,[S3,Y]));
- if(findin(Y,VV)<0) VV=cons(Y,VV);
- }
- if(FL) S0=append(S0,cons("+",S2));
- else S0=append(S0,S2);
- }
- }
- L=append([S0],L);
- };
- V=pfargs(RR,X|level=1);
- for(Var=[];V!=[];V=cdr(V)) Var=cons(car(V)[0],Var);
- Var=reverse(Var);
- if(!isint(J=getopt(frac))) J=0;;
- if(!iand(J,4)&&(!iand(J,2)||length(Var)==1)&&(iand(J,8)==8||ptype(RR,Var)==2)){
- F=1;
- if(iand(J,1)){
- K=str_len(fctrtos(RR));
- I=str_len(fctrtos(RR|var=Var));
- if(I>=K) F=0;
- }
- if(F){
- V=[fctrtos(RR|var=Var,TeX=2)];
- if(Dvi!=-2) V=cons("=",V);
- if(length(L)>0) L=cdr(L);
- L=append([V],L);
- }
- }else if(ptype(RR,X)==2){
- L=cdr(L);
- V=[fctrtos(RR|var=X,TeX=2)];
- if(Dvi!=-2) V=cons("=",V);
- L=append([V],L);
- }
- S=texket(S+ltotex(reverse(L)|opt=["cr","spts0"],str=1));
- if(getopt(log)!=1){
- for(V=[];VV!=[];VV=cdr(VV))
- V=cons(strtoascii(my_tex_form(car(VV))),V);
- S1=strtoascii("\\log");
- for(F=1;F;){ /* log(log(x)) */
- F=FT=0;
- S0=strtoascii(S); /* log(x) -> log|x| */
- L=length(S0);
- S2=str_tb(0,0);
- for(I=0;;){
- if(I>=L||(J=str_str(S0,S1|top=I+FT))<0){
- S=str_tb(0,S2)+str_cut(S0,I,100000);
- break;
- }
- if((K=str_str(S0,40|top=J+4))<0
- ||(K!=J+4&&K!=J+9)||(N=str_pair(S0,K+1,40,41))<0){
- FT=J-I+4;continue;
- }
- FT=0;
- if(str_str(S0,V|top=K+1,end=N-1)[0]<0) S2=str_tb(str_cut(S0,I,N),S2);
- else{
- /* log(a) -> log(a) */
- F=1;
- if(N<L-1&&S0[N+1]==94){ /* log(x)^2 -> (log|x|)^2 */
- S2=str_tb([str_cut(S0,I,J-1),"\\left(",str_cut(S0,J,K-1),
- "|",str_cut(S0,K+1,N-1),"|\\right)"],S2);
- }
- else S2=str_tb([str_cut(S0,I,K-1),"|",str_cut(S0,K+1,N-1),"|"],S2);
- }
- I=N+1;
- }
- }
- }
- if(Dvi>0){
- dviout(texbegin("align*",S));
- return 1;
- }
- return S;
- } /* end of dviout */
- SM=["Cannot integrate",P,"at present"];
- P=sqrt2rat(P|mult=1);
- Dumb2=1;Dumb3=0;W=newvect(1);W[0]=[];
- if(type(Dumb=getopt(dumb))==5){
- Dumb2=Dumb3=Dumb;D2=W;
- }else if(!isint(Dumb)) Dumb=0;
- if(Dumb==-1){
- Dumb2=Dumb3=-1;
- }
- if(type(Dumb)!=5) D2=Dumb2;
- if(!isint(Mul=getopt(mult))) Mul=0;
- else Mul++;
- if(type(VAR=getopt(var))!=4) VAR=[];
- if(type(P)>4) return [];
- if(iand(T=ptype(P=red(P),X),63)>3||Mul>4){
- if(Dumb!=1) mycat(SM);
- return [];
- }
- if(Dumb==-1) mycat(["integrate", P]);
- else if(type(Dumb)==5) Dumb[0]=cons([[X,P]],Dumb[0]);
- if(T<4 && (T<3||iscoef(P,os_md.israt))){
- if(Dumb==-1) mycat(["rational function",P]);
- else if(type(Dumb)==5) Dumb[0]=cons([[X,P]],Dumb[0]);
- return intpoly(P,X|dumb=Dumb); /* rational function */
- }
- Var=pfargs(P,X);
- for(F=0,VV=Var;VV!=[];VV=cdr(VV)){
- /* p(x)*log(x^2-1), @e^x, a^x, f(x)^(m/n) etc.->simplify */
- V=car(VV);
- if(V[1]==log && (T=ptype(V[2],X))>1 && T<4){
- if(mydeg(dn(V[2]),X)>0||mydeg(nm(V[2]),X)>1){
- FC=pfctr(V[2],X);RV=1;
- if(length(FC)>2){
- RR=0;RV=1;
- if((F0=car(FC)[0])!=1){
- if(type(F0)!=1 && F0<0){
- for(FT=cdr(FT);FT!=[];FT=cdr(FT)){
- if(iand(car(FT)[1],1)){
- RV=-1;F0=-F0;break;
- }
- }
- }
- }
- if(F0!=1) RR=log(F0);
- for(FC=cdr(FC);FC!=[];FC=cdr(FC)){
- if(RV==-1&&iand(car(FC)[1],1)==1){
- RR+=car(FC)[1]*log(-car(FC)[0]);
- RV=1;
- }else
- RR+=car(FC)[1]*log(car(FC)[0]);
- }
- P=subst(P,V[0],RR);
- F=1;
- }
- }
- F=1;
- }else if(V[1]==pow){
- if(ptype(V[2],X)==1){
- F=1;
- if(V[2]==@e){ /* @e^(f(x)) */
- P=subst(P,V[0],exp(V[3]));
- }else P=subst(P,V[0],exp(log(V[2])*V[3]));
- }else if(type(V[3])<=1 && ntype(V[3])==0){ /* r(x)^(m/n) */
- if((Pw=floor(V[3]))!=0){
- R=V[2]^Pw;
- if((PF=V[3]-Pw)!=0) R*=V[2]^PF;
- P=subst(P,V[0],R);
- F=1;
- V=[V[2]^PF,V[1],V[2],PF];
- }
- if(ptype(nm(V[2]),X)<2&&V[3]>0){ /* (1/p(x))^(m/n) */
- P=subst(P,V[0],V[2]*red(1/V[2])^(1-V[3]));
- F=0;VV=cons(0,Var=pfargs(P,X));continue;
- }
- if(ptype(V[2],X)<4&&(K=dn(V[3]))>1){
- V2=red(V[2]);
- DN=mydeg(nm(V2),X);DD=mydeg(dn(V2),X);
- if(DN+DD>1){
- VF=pfctr(V2,X);
- R=car(VF)[0]^(car(VF)[1]);RR=0;
- for(VF=cdr(VF);VF!=[];VF=cdr(VF)){
- TV=car(VF);TM=TV[1];
- while(abs(TM)>=K){
- RR=1;
- if(TM>0){
- TM-=K;
- RR*=TV[0]^nm(V[3]);
- }else{
- TM+=K;
- RR/=TV[0]^nm(V[3]);
- }
- }
- if(TM!=0) R*=TV[0]^TM;
- }
- if(RR){
- P=subst(P,V[0],RR*red(R)^(V[3]));F=1;
- F=0;VV=cons(0,Var=pfargs(P,X));continue;
- }
- }
- }
- }
- }
- }
- if(F){
- P=sqrt2rat(P|mult=1);
- Var=pfargs(P=red(P),X);T=ptype(P,X);
- if(T<4 && (T<3||iscoef(P,os_md.israt))){
- if(Dumb==-1) mycat(["rational function",P]);
- else if(type(Dumb)==5){
- Dumb[0]=cons([[X,P]],Dumb[0]);
- return intpoly(P,X|dumb=Dumb3);
- }
- return intpoly(P,X); /* rational function */
- }
- }
-#if 1
- for(P0=P,V=pfargs(P,X|level=1);V!=[];V=cdr(V)) /* P:tan(x) -> P0:sin(x)/cos(x) */
- if(car(V)[1]==tan) P0=red(subst(P0,car(V)[0],sin(car(V)[2])/cos(car(V)[2])));
- if(iand(ptype(P0,X),128)){ /* (log f)'=f'/f */
- for(Df=cdr(fctr(dn(P0)));Df!=[];Df=cdr(Df)){
- if(!iand(ptype(car(Df)[0],X),64)) continue;
- Q=car(Df)[0]^(car(Df)[1]);QQ=red(dn(P0)/Q);
- DQ=red(diff(Q,X)*QQ);
- if(type(C=DQ/nm(P0))<2&&C!=0){
- PP=0;DN=[1];
- }else for(DN=cdr(fctr(DQ));DN!=[];DN=cdr(DN)){
- Y=car(DN)[0];
- if(!iand(ptype(Y,X),64)||(I=mydeg(nm(P0),Y))!=mydeg(DQ,Y)
- || ptype((C=red(mycoef(nm(P0),I,Y)/mycoef(DQ,I,Y))),X)>1||C==0) continue;
- PP=red(P0-C*diff(Q,X)/Q);
- if(nmono(P0)>nmono(PP)) break;
- }
- if(DN!=[]){
- R=C*log(Q);
- if(PP==0){
- if(P!=P0&&type(Dumb)==5) Dumb[0]=cons([[X,P0]],Dumb[0]);
- return R;
- }
- W[0]=[];
- S=integrate(PP,X|dumb=D2);
- if(S!=[]){
- if(type(Dumb)==5){
- Dumb[0]=cons([[X,red(P0-PP),PP]],Dumb[0]);
- TD=W[0];
- for(W0=[],TD=reverse(TD);TD!=[];TD=cdr(TD)){
- if(car(TD)[0][0]){
- WL=cons([1,R],car(TD));
- Dumb[0]=cons(WL,Dumb[0]);
- }
- else Dumb[0]=cons(car(TD),Dumb[0]);
- }
- }
- return red(R+S);
- }
- }
- }
- }
-#endif
- if((length(Var)==1||getopt(exe)==1) && /* p(x)*atan(q(x))^m+r(x), etc */
- findin((VT=car(Var))[1],[atan,asin,acos,log])>=0 && ptype(P,VT[0])==2 &&
- (VT[1]!=log||(T!=65&&T!=66)||mydeg(VT[2],X)!=1)){ /* exclude x*log(x+1)^2 */
- for(R=0,D=mydeg(P,VT[0]);D>=0;D--){
- Q=S=mycoef(P,D,VT[0]);
- if(S){
- if(D>0){
- if((Q=integrate(S,X|mult=Mul))==[]) return Q;
- }else{
- W[0]=[];
- if((Q=integrate(S,X|dumb=D2,var=VAR,mult=Mul))==[]) return Q;
- if(type(Dumb)==5){
- TD=W[0];
- for(W0=[],TD=reverse(TD);TD!=[];TD=cdr(TD)){
- if(car(TD)[0][0]){
- WL=cons([1,R],car(TD));
- Dumb[0]=cons(WL,Dumb[0]);
- }
- else Dumb[0]=cons(car(TD),Dumb[0]);
- }
- if(car(Dumb[0])!=[[1,R],[1,Q]])
- Dumb[0]=cons([[1,R,Q]],Dumb[0]);
- }
- return red(R+Q);
- }
- }else if(D>0) continue;
- if(D==0){
- if(Q!=0&&type(Dumb)==5) Dumb[0]=cons([[1,R,Q]],Dumb[0]);
- return red(Q+R);
- }
- R0=Q*VT[0]^D;
- P=(P0=P)-S*VT[0]^D-Q*diff(VT[0]^D,X);
- if(mydeg(P,VT[0])>=D){ /* (x+1)*log(x)/x^2 */
- if(mydeg(P,VT[0])==D &&
- ptype(C=red(mycoef(P,D,VT[0])/diff(VT[0],X)),VT[0])<2){
- P=P0-(S*VT[0]^D+Q*diff(VT[0]^D,X)+C*diff(VT[0]^(D+1),X)/(D+1));
- R0+=C*VT[0]^(D+1)/(D+1);
- }else{
- P=P0;
- if(Dumb!=1) mycat(SM);
- return [];
- }
- }
- if(type(Dumb)==5){
- if(P) Dumb[0]=cons([R?[1,R,R0]:[1,R0],[X,P]],Dumb[0]);
- else if(R!=0) Dumb[0]=cons([[1,R,R0]],Dumb[0]);
- }
- R+=R0;
- }
- }
- if(length(Var)==1 && (VT=car(Var))[1]==pow && mydeg(P,VT[0])==1 && (PT=ptype(VT[2],X))<4){
- PR=mycoef(P,0,VT[0]);
- if(RR!=0){
- RR=integrate(RR,X|dumb=Dumb3,var=Var);
- if(RR==[]) return RR;
- }
- PW=VT[3];
- if((D=mydeg(nm(V2=VT[2]),X))==2&&PT==2){ /* f(x)*(ax^2+bx+c)^(m/2)+r(x) */
- if(isint(2*PW)){
- C2=mycoef(V20=V2,2,X);F=1;
- if((C21=sqrtrat(C2))==[]) return [];
- if(imag(C21)!=0){
- if(real(C21)!=0) return [];
- C21=C21/@i;F=-1;
- }
- if(type(C21)>3) return [];
- P=subst(P,X,X/C21);VT=mysubst(VT,[X,X/C21]);V2=VT[2];
- C1=mycoef(V2,1,X)/F/2;
- if(C1!=0){
- P=subst(P,X,X-C1);VT=mysubst(VT,[X,X-C1]);V2=VT[2];
- }
- C0=mycoef(V2,0,X);
- if((C01=sqrtrat(C0))==[]) return [];
- if(imag(nm(C01))!=0){
- if(real(nm(C01))!=0) return [];
- C01=C01/@i;G=-1;
- }else G=1;
- if(type(C01)>3||(F==-1&&G==-1)) return [];
- Y=makenewv([P,VAR]|var=x);
- if(F==-1){ /* (c^2-x^2)^(1/2) */
- Q=subst(P,VT[0],(C01*cos(Y))^(2*PW),X,YX=C01*sin(Y))
- *C01*cos(Y)/C21;
- SY=(C21*X+C1);CY=V20;YY=asin(sqrt2rat((C21*X+C1)/C01|mult=1));
- }else if(G==-1){ /* (x^2-c^2)^(1/2) */
- Q=subst(P,VT[0],(C01*sin(Y)/cos(Y))^(2*PW),X,YX=C01/cos(Y))
- *C01*sin(Y)/cos(Y)^2/C21;
- SY=V20;CY=1/(C21*X+C1);YY=acos(sqrt2rat(C01*(C21*X+C1)|mult=1));
- }else{ /* (x^2+c^2)^(1/2) */
- Q=subst(P,VT[0],(C01/cos(Y))^(2*PW),X,YX=C01*sin(Y)/cos(Y))
- *C01/cos(Y)^2/C21;
- CY=V20; YY=atan(sqrt2rat((C21*X+C1)/C01|mult=1));
- }
- if(Dumb==-1) mycat([C21*X+C1,"=",YX]);
- else if(type(Dumb)==5) Dumb[0]=cons([[0,Y,C21*X+C1,YX]],Dumb[0]);
- Q=sqrt2rat(Q);
- QQ=red(substblock(nm(Q),sin(Y),sin(Y)^2,1-cos(Y)^2)
- /substblock(dn(Q),sin(Y),sin(Y)^2,1-cos(Y)^2));
- if(cmpsimple(QQ,Q|comp=2)<0) Q=QQ;
- QQ=red(substblock(nm(Q),cos(Y),cos(Y)^2,1-sin(Y)^2)
- /substblock(dn(Q),cos(Y),cos(Y)^2,1-sin(Y)^2));
- if(cmpsimple(QQ,Q|comp=2)<0) Q=QQ;
- if((Q=integrate(Q,Y|dumb=Dumb2,var=cons(X,Var)))==[]) return [];
- Q=trig2exp(Q,Y|inv=cos(Y));
- for(V=vars(Q);V!=[];V=cdr(V)){
- FA=funargs(car(V));
- if(type(FA)==4&&FA[0]==log){
- QQ=trig2exp(FA[1],Y|inv=cos(Y));
- Q=mycoef(Q,0,car(V))+mycoef(Q,1,car(V))*log(QQ);
- }
- }
- if(type(Dumb)==5) Dumb[0]=cons([[1,Q]],Dumb[0]);
- if(F==-1) Q=subst(Q,sin(Y),SY/C01,cos(Y),CY^(1/2)/C01,Y,YY);
- else if(G==-1){
- Q=red(subst(Q,sin(Y),SY^(1/2)*cos(Y)/C01));
- Q=red(subst(Q,cos(Y),C01*CY,Y,YY));
- }else{
- Q=red(subst(Q,sin(Y),(C21*X+C1)*cos(Y)/C01));
- Nm=substblock(nm(Q),cos(Y),C01^2/CY,cos(Y)^2);
- Nm=subst(Nm,cos(Y),C01/CY^(1/2));
- Dn=substblock(dn(Q),cos(Y),C01^2/CY,cos(Y)^2);
- Dn=subst(Dn,cos(Y),C01/CY^(1/2));
- Q=red(subst(Nm/Dn,Y,YY));
- }
- if(findin(Y,vars(Q))>=0) return [];
- for(R=[],Var=vars(Q);Var!=[];Var=cdr(Var)){
- VT=funargs(V=car(Var));
- if(type(VT)==4&&VT[0]==log&&ptype(VT[1],X)>60&&mydeg(Q,V)==1)
- R=cons([mycoef(Q,1,V),V],R);
- }
- if(length(R)==2 && (R[0][0]==R[1][0]||R[0][0]+R[1][0]==0)){
- R0=args(R[0][1])[0];R1=args(R[1][1])[0];
- if(R[0][0]==R[1][0]) S=R0*R1;
- else S=R1/R0;
- Q=mycoef(Q,0,R[0][1]);Q=mycoef(Q,0,R[1][1]);
- Q+=R[1][0]*log(red(S));
- }
- for(Var=vars(Q);Var!=[];Var=cdr(Var)){
- VT=funargs(car(Var));
- if(type(VT)==4&&VT[0]==log&&ptype(VT[1],X)>60){
- S=trig2exp(VT[1],X|inv=cos(X),arc=1);
- if(ptype(dn(S),X)<2 && mydeg(Q,car(Var))==1
- && ptype(mycoef(Q,1,car(Var)),X)<2){
- S=nm(S);
- SF=fctr(S);
- S/=SF[0][0];
- }
- if(cmpsimple(S,-S)>0) S=-S;
- Q=subst(Q,car(Var),log(S));
- }
- } /* x/(1-x^2)^(1/2) */
- if(type(Q=red(Q+RR))==2&&type(Dumb)!=5) Q-=cterm(Q);
- if(Dumb==-1) mycat(["->",Q]);
- else if(type(Dumb)==5) Dumb[0]=cons([[1,Q]],Dumb[0]);
- return Q;
- }
- }else if(D==1 && mydeg(Dn=dn(V2),X)<2 && type(PW)==1 && ntype(PW)==0 &&
- (V2!=X||ptype(mycoef(P,1,VT[0]),X)>2)){ /* p(x)((ax+b)/(cx+d))^(m/n) */
- PN=nm(PW);PD=dn(PW);
- Y=makenewv([P,VAR]|var=x);Q=Y^PD*Dn-nm(V2);F=-mycoef(Q,0,X)/mycoef(Q,1,X);
- Q=red(subst(P,VT[0],Y^PN,X,F)*diff(F,Y));
- if(Dumb==-1) mycat([Y,"=",V2^(1/PD)]);
- else if(type(Dumb)==5) Dumb[0]=cons([[0,Y,V2^(1/PD)]],Dumb[0]);
- if((Q=integrate(Q,Y|dumb=Dumb3,var=cons(X,Var)))==[]) return [];
- Q=red(Q);
- QN=subst(substblock(nm(Q),Y,Y^PD,V2),Y,V2^(1/PD));
- QD=subst(substblock(dn(Q),Y,Y^PD,V2),Y,V2^(1/PD));
- Q=red(QN/QD+RR);
- if(Dumb==-1) mycat(["->",Q]);
- else if(type(Dumb)==5) Dumb[0]=cons([[1,Q]],Dumb[0]);
- return Q;
- }
- }else if(length(Var)==2 && /* r(x,(ax+b)^(1/2),(cx+d)^(1/2)) */
- (VT=car(Var))[1]==pow && ptype(VT[2],X)==1 && mydeg(VT[2],X)==1 && VT[3]==1/2 &&
- (VS=car(car(Var)))[1]==pow && ptype(VS[2],X)==1 && mydeg(VS[2],X)==1 && VS[3]==1/2){
- Y=makenewv([P,VAR]|var=x);R=(Y^2-myceof(VS[0],0,X))/(C=mycoef(VS[0],1,X));
- if(Dumb==-1) mycat([Y,"=",VS[0]]);
- else if(type(Dumb)==5) Dumb[0]=cons([[0,Y,VD[0]]],Dumb[0]);
- R=integrate(subst(P,VS[0],Y,X,R)*2*Y/C,Y|dumb=Dumb3,var=cons(X,Var));
- if(R!=[]){
- R=subst(substblock(R,Y,VS[0],Y^2),Y,VS[0]);
- if(Dumb==-1) mycat(["->",R]);
- else if(type(Dumb)==5) Dumb[0]=cons([[1,R]],Dumb[0]);
- }
- return R;
- }
- if(T==65||T==66){ /* polynomial including sin, exp etc */
- for(F=0,VT=Var;VT!=[];VT=cdr(VT)){
- VTT=car(VT);
- if(ptype(VTT[2],X)>2||mydeg(VTT[2],X)>1) F=ior(F,256); /* compos. or rat. or nonlin. */
- K=findin(VTT[1],[cos,sin,tan,exp,log,pow]);
- F=ior(F,2^(K+1)); /* 1:other,2:cos,4:sin,8:tan,16:exp,32:log,64:pow */
- if((Deg=mydeg(P,VTT[0]))>1&&K!=4) F=ior(F,1024); /* nonlinear */
- if(K==5 && (ptype(VTT[3],X)!=0 || VTT[2]!=x||Deg>1)) F=ior(F,8192); /* pow */
- for(;Deg>0;Deg--){ /* coef */
- if(ptype(mycoef(P,Deg,VTT[0]),X)>2){
- if(K==4||K==5) F=ior(F,2048); /* exp, log */
- else F=ior(F,4096);
- }
- }
- }
- if(!iand(F,1+8+64+256+512+2048+8192)){ /* cos,sin,exp,log^n,x^c */
- if(iand(F,1024+4096)&&!iand(F,32+64)){ /* cos,sin,exp */
- if(type(Dumb)==5){
- S=trig2exp(P,X|inv=1);
- if(P!=S) Dumb[0]=cons([[X,S]],Dumb[0]);
- }
- R=integrate(trig2exp(P,X),X);
- if(R!=[]) S=trig2exp(R,X|inv=1);
- R=fshorter(S,X);
- if(type(Dumb)==5&&R!=S){
- Dumb[0]=cons([[1,S]],Dumb[0]);
- }
- return R;
- }
- for(R=0,VT=Var;VT!=[];VT=cdr(VT)){
- CV=car(VT);
- C0=mycoef(CV[2],0,X);C1=mycoef(CV[2],1,X);
- Q=mycoef(P,1,CV[0]);
- if(CV[1]==sin||CV[1]==cos){
- TR=(CV[1]==sin)?intpoly(Q,X|sin=C1):intpoly(Q,X|cos=C1);
- R+=TR[0]*cos(CV[2])+TR[1]*sin(CV[2]);
- }else if(CV[1]==exp){
- QT=exp(CV[2]);
- for(V2=vars(C1);V2!=[];V2=cdr(V2)){ /* exp(2*log(a)*x) => a^(2*x) */
- if(vtype(VA=car(V2))==2&&functor(VA)==log){
- if(ptype(C1,VA)!=2||mydeg(C1,VA)==1&&mycoef(C1,0,VA)==0){
- QT=args(VA)[0]^(red(C1/VA)*X);
- if(C0!=0) QT*=exp(C0);
- break;
- }
- }
- }
- R+=intpoly(Q,X|exp=C1)*QT;
- }else if(CV[1]==pow)
- R+=intpoly(Q,X|pow=CV[2])*x^CV[2];
- else if(CV[1]==log){
- for(Deg=mydeg(P,CV[0]);Deg>0; Deg--){
- Q=mycoef(P,Deg,CV[0]);
- TR=intpoly(Q,X|log=[C1,C0,Deg]);
- for(I=0;TR!=[];I++,TR=cdr(TR)){
- if(I==Deg) R+=car(TR)-subst(car(TR),X,0);
- else R+=car(TR)*CV[0]^(Deg-I);
- }
- }
- }
- P=mycoef(P,0,CV[0]);
- }
- R+=intpoly(P,X);
- return R;
- }
- }
- for(K=0,VX=[],VT=Var;VT!=[];VT=cdr(VT)){ /* contain only both pow and trig */
- VTT=car(VT);
- if(findin(VTT[1],[cos,sin,tan])>=0){
- if(ptype(VTT[2],X)!=2||mydeg(VTT[2],X)!=1) break;
- VX=cons(VTT,VX);
- }else if(VTT[1]==pow) K=1;
- else break;
- }
- if(VT==[]&&K==1&&VX!=[]){
- D=VX[0][2];
- if(VX[0][1]==tan) D*=2;
- for(VT=cdr(VX);VT!=[];VT=cdr(VT)){
- K=VT[0][2]/D;
- if(VT[0][1]==tan) K*=2;
- if(type(K)!=1||ntype(K)!=0) break;
- D/=dn(K);
- }
- if(VT==[]){
- Y=makenewv([P,VAR]|var=x);
- for(Q=P,VT=VX;VT!=[];VT=cdr(VT)){
- VTT=car(VT);
- if(VTT[1]==cos||VTT[1]==sin){
- VV=trig2exp(VTT[0],X|inv=cos(D));
- VV=subst(VV,cos(D),(1-Y^2)/(1+Y^2),sin(D),2*Y/(Y^2+1));
- }else if(VTT[1]==tan){
- VV=trig2exp(VTT[0],X|inv=tan(D/2));
- VV=subst(VV,tan(D),Y);
- }
- Q=subst(Q,VTT[0],VV);
- }
- Q*=2/(Y^2+1);
- if(diff(Q,X)==0){
- if(Dumb==-1) mycat([Y,"=",tan(D/2)]);
- else if(type(Dumb)==5) Dumb[0]=cons([[0,Y,tan(D/2)]],Dumb[0]);
- R=integrate(Q,Y|dumb=Dumb2,var=cons(X,Var));
- if(R!=[]){
- if(Dumb==-1) mycat(["->",R]);
- else if(type(Dumb)==5) Dumb[0]=cons([[1,R]],Dumb[0]);
- return sqrt2rat(subst(R,Y,tan(D/2))|mult=1);
- }
- }
- }
- }
- if(T>65||iand(F,8)){ /* rational for functions or tan */
- if(findin(X,vars(P))<0){
- for(XV=XE=0,VT=Var;VT!=[];VT=cdr(VT)){
- VTT=car(VT);
- if(mydeg(VTT[2],X)!=1) break;
- if(VTT[1]==cos||VTT[1]==sin||VTT[1]==tan){
- K=red(VTT[2]/X);
- if(type(K)>1||ntype(K)>0) break;
- if(XV==0) XV=K;
- else XV/=dn(K/XV);
- if(VTT[1]==tan) P=red(subst(P,VTT[0],sin(VTT[2])/cos(VTT[2])));
- }else if(VTT[1]==exp){
- K=red(VTT[2]/X);
- if(type(K)>1||ntype(K)>0) break;
- if(XE==0) XE=K;
- else XE/=dn(K/XE);
- }else break;
- }
- if(VT==[]&&XE*XV==0){
- if(XE){
- if(XE<0) XE=-XE;
- Y=makenewv([P,VAR]|var=x);
- for(F=0,VT=Var;VT!=[];VT=cdr(VT),F++){
- VTT=car(VT);C=red(VTT[2]/X/XE);
- P=subst(P,VTT[0],Y^C);
- if(!F){
- if(Dumb==-1) mycat([Y^C,"=",VTT[0]]);
- else if(type(Dumb)==5) Dumb[0]=cons([[0,Y^C,VTT[0]]],Dumb[0]);
- }
- }
- P/=XE*Y;
- Q=integrate(P,Y|dumb=Dumb3,var=cons(X,VAR));
- if(Q==[]) return [];
- Q=subst(Q,Y,exp(XE*X));
- Q=trig2exp(Q,X);
- if(Dumb==-1) mycat(["->",Q]);
- else if(type(Dumb)==5) Dumb[0]=cons([[1,Q]],Dumb[0]);
- return Q;
- }
- P=trig2exp(nm(P),X|inv=cos(XV*X))/trig2exp(dn(P),X|inv=cos(XV*X));
- Y=makenewv([P,VAR]|var=x);
- Q=red(subst(P,sin(XV*X),Y*cos(XV*X)));
- Q=substblock(nm(Q),cos(XV*X),cos(XV*X)^2,1/(Y^2+1))/
- (substblock(dn(Q),cos(XV*X),cos(XV*X)^2,1/(Y^2+1))*(Y^2+1));
- Q=red(Q);
- if(ptype(Q,X)<2){
- XV*=2;P=Q;
- }else{
- P=subst(P,cos(XV*X),(1-Y^2)/(1+Y^2),sin(XV*X),2*Y/(1+Y^2))*2/K/(1+Y^2);
- P=red(P);
- }
- if(Dumb==-1){
- mycat([Y,"=",tan(XV*X/2)]);
- mycat(["integrate",P]);
- }else if(type(Dumb)==5) Dumb[0]=cons([[Y,P]],cons([[0,Y,tan(XV*X/2)]],Dumb[0]));
- R=intpoly(P,Y|dumb=Dumb);
- if(R==[]) return R;
- if(Dumb==-1) mycat(["->",R]);
- else if(type(Dumb)==5) Dumb[0]=cons([[1,R]],Dumb[0]);
- for(Log=1,K=0,Var=pfargs(RR=R,Y);Var!=[];Var=cdr(Var)){
- VTT=car(Var);
- if(VTT[1]==log){
- C=mycoef(R,1,VTT[0]);
- VT2=VTT[2];
- if(K==0){
- K=C;Log=VT2;
- if(K<0){
- K=-K;Log=1/Log;
- }
- }else{
- if((V=red(C/K))<0){
- VT2=1/VT2;V=-V;
- }
- if(type(V)>1||ntype(V)>0){
- Log=1;break;
- }
- if(isint(V)) Log*=VT2^V;
- else{
- D=dn(V);K/=D;
- Log=Log^D*VT2^nm(V);
- }
- }
- RR=mycoef(RR,0,VTT[0]);
- }
- }
- if(Log!=1){
- R=RR;
- if(type(Dumb)==5){
- if(RR) Dumb[0]=cons([[1,K*log(Log),RR]],Dumb[0]);
- else Dumb[0]=cons([[1,K*log(Log)]],Dumb[0]);
- }
- Log=red(subst(red(Log),Y,sin(XV*X/2)/cos(XV*X/2)));
- Log=fshorter(Log,X|log=1); /* log(cos(2*x)+1)=-2*log(cos(x)) */
- Nm=fctr(nm(Log));
- for(T=[];Nm!=[];Nm=cdr(Nm)){
- if(ptype(car(Nm)[0],X)>1) T=cons(car(Nm),T);
- }
- Nm=fctr(dn(Log));
- for(;Nm!=[];Nm=cdr(Nm)){
- if(ptype(car(Nm)[0],X)>1) T=cons([car(Nm)[0],-car(Nm)[1]],T);
- }
- for(I=0,Nm=T;T!=[];T=cdr(T)){
- if(I=0) I=abs(car(T)[1]);
- else I=igcd(I,car(T)[1]);
- }
- for(Log=1;Nm!=[];Nm=cdr(Nm)) Log*=car(Nm)[0]^(car(Nm)[1]/I);
- K*=I;
- if(cmpsimple(nm(Log),dn(Log))<0){
- K=-K;Log=red(1/Log);
- }
- Log=K*log(Log);
- if(type(Dumb)==5){
- if(RR) Dumb[0]=cons([[1,Log,RR]],Dumb[0]);
- else Dumb[0]=cons([[1,Log]],Dumb[0]);
- }
- }else Log=0;
- for(Atan=0,Var=pfargs(RR=R,Y);Var!=[];Var=cdr(Var)){
- VTT=car(Var);
- if(VTT[1]==atan){
- W=subst(VTT[2],Y,sin(XV*X/2)/cos(XV*X/2));
- W=trig2exp(W,X|inv=1);
- V2=funargs(dn(W));
- if(type(V2)==4&&length(V2)==2){
- V3=V2[1]*mycoef(R,1,VTT[0]);
- Z=0;
- if(V2[0]==cos)
- Z=red(W*cos(V2[1])/sin(V2[1]));
- else if(V2[0]==sin){
- Z=red(W*sin(V2[1])/cos(V2[1]));
- V3=-V3;
- }
- if(Z==1){
- Atan+=V3;W=0;
- }else if(Z==-1){
- Atan-=V3;W=0;
- }
- }
- R0=mycoef(R,0,VTT[0]);
- if(W!=0) Atan+=subst(R-R0,VTT[0],atan(W)); /* atan(W); */
- R=R0;
- }
- }
- if(R!=0){
- R=subst(R,Y,sin(XV*X/2)/cos(XV*X/2));
- R=red(R);
- R=trig2exp(nm(R),X|inv=1)/trig2exp(dn(R),X|inv=1);
- }
- if(type(Dumb)==5){
- F=0;WL=[];
- if(R){
- WL=cons(R,WL);
- F++;
- }
- if(Atan){
- WL=cons(Atan,WL);
- F++;
- }
- if(Log){
- WL=cons(Log,WL);
- F++;
- }
- WL=cons(1,WL);
- if(F>1) Dumb[0]=cons([WL],Dumb[0]);
- }
- R=red(R+Log+Atan);
- if(Dumb==-1) mycat(["->",R]);
- else if(type(Dumb)==5) Dumb[0]=cons([[1,R]],Dumb[0]);
- return fshorter(R,X);
- }
- }
- }
- VT=pfargs(Q=P,X|level=1);
- V=(iand(ptype(P,X),7)<3)?[X]:[];
- for(;VT!=[];VT=cdr(VT))
- if(ptype(P,car(VT)[0])<3) V=cons(car(VT)[0],V);
- if(length(V)>0){ /* 1/x+tan(x)+... etc.: sums */
- for(R=0;V!=[];V=cdr(V)){
- T=mycoef(Q,0,car(V));
- W[0]=[];
- S=integrate(TD=red(Q-T),X|dumb=D2,mult=Mul,exe=1);
- if(S==[]) continue;
- if(type(Dumb)==5){
- WL=0;
- if(T!=0) WL=[[X,TD,T]];
- if(R!=0) WL=cons([1,R],WL);
- if(WL) Dumb[0]=cons(WL,Dumb[0]);
- TD=W[0];
- if(R!=0||T!=0){
- for(W0=[],TD=reverse(TD);TD!=[];TD=cdr(TD)){
- if(car(TD)[0][0]){
- WL=(!T)?[]:[[X,T]];
- WL=append(car(TD),WL);
- if(R!=0) WL=cons([1,R],WL);
- }else WL=car(TD);
- Dumb[0]=cons(WL,Dumb[0]);
- }
- }else Dumb[0]=append(TD,Dumb[0]);
- }
- R+=S;Q=T;
- if(!Q) return red(R);
- }
- W[0]=[];
- if(P!=Q&&type(S=integrate(Q,X|dumb=D2,mult=Mul))<4){
- RR=red(R+S);
- if(type(Dumb)==5){
- TD=W[0];
- for(W0=[],TD=reverse(TD);TD!=[];TD=cdr(TD)){
- if(car(TD)[0][0]){
- WL=cons([1,R],car(TD));
- Dumb[0]=cons(WL,Dumb[0]);
- }
- else Dumb[0]=append(TD,Dumb[0]);
- }
- if(nmono(R)+nmono(S)!=nmono(RR)) Dumb[0]=cons([[1,R,S]],Dumb[0]);
- }
- return RR;
- }
- }
- if(Dumb!=1) mycat(SM);
- return [];
-}
-
-def fimag(P)
-{
- for(V=vars(P);V!=[];V=cdr(V)){
- Q=[];
- if(vtype(VF=car(V))==2){
- VAA=args(VF);
- if(VAA==[]) continue;
- VA=sqrt2rat(VAA[0]);
- if(functor(VF)==exp){
- if(imag(VA)!=0){
- R=(real(VA)!=0)?exp(real(VA)):1;
- Q=subst(P,VF,R*(cos(imag(VA))+sin(imag(VA))*@i));
- }
- }else if(functor(VF)==pow){
- VA=sqrt2rat(VAA[1]);
- if(imag(VA)!=0){
- R=(real(VA)!=0)?VAA[0]^(real(VA)):1;
- L=(VAA[0]!=@e)?log(VAA[0]):1;
- Q=subst(P,VAA[0]^(VAA[1]),R*(cos(L*imag(VA))+sin(L*imag(VA))*@i));
- }else if(VAA[1]!=(V0=fimag(VA)))
- Q=subst(P,VAA[0]^(VAA[1]),VAA[0]^(V0));
- }
- V0=VA;
- if(length(VAA)==1&&(VAA[0]!=V0||VA!=(V0=fimag(VA))))
- Q=subst(P,VF,subst(VF,VAA[0],V0));
- }
- if(Q!=[]&&P!=Q){
- P=Q;V=cons(0,vars(P));
- }
- }
- return P;
-}
-
-
-def trig2exp(P,X)
-{
- if(iand(ptype(P,X),128)){
- OL=getopt();
- Nm=trig2exp(nm(P),X|option_list=OL);
- Dn=trig2exp(dn(P),X|option_list=OL);
- R=red(Nm/Dn);
- if(getopt(arc)==1) return sqrt2rat(R);
- }
- if((Inv=getopt(inv))==1||type(Inv)==2){
- for(VT=T=vars(P);T!=[];T=cdr(T)){
- if(findin(functor(car(T)),[cos,sin,tan])>=0){
- P=trig2exp(P,X);VT=vars(P);break;
- }
- }
- for(;VT!=[];VT=cdr(VT)){
- if(functor(CT=car(VT))==exp){
- if((Re=real(args(CT)[0]))!=0){
- if(isint(Re)) S=@e^Re;
- else S=exp(Re);
- }else S=1;
- if((Im=imag(args(CT)[0]))!=0){
- Q=nm(Im);Q=mycoef(Q,mydeg(Q,X),X);
- if(-Q>Q) S*=cos(-Im)-@i*sin(-Im);
- else S*=cos(Im)+@i*sin(Im);
- }
- P=subst(P,CT,S);
- }
- }
- P=red(P);
- U=vars(Inv);
- if(length(U)!=1||((F=functor(car(U)))!=sin&&F!=cos&&F!=tan)) return P;
- XX=args(car(U))[0];
- if(mydeg(XX,X)!=1) return P;
- if(!isvar(XX)) P=subst(P,X,(X-mycoef(XX,0,X))/mycoef(XX,1,X));
- for(VT=vars(P);VT!=[];VT=cdr(VT)){
- if(vtype(CT=car(VT))<2) continue;
- TX=args(CT)[0];
- if(mydeg(TX,X)!=1) continue;
- if(!isint(C1=mycoef(TX,1,X))) continue;
- if((C0=mycoef(TX,0,X))==0){
- CC=1;CS=0;
- }else if(vars(C0)==[@pi]){
- CC=myval(cos(C0));
- if(CC!=0&&type(CC)==1&&ntype(CC)!=0){
- CC=cos(C0);CS=sin(C0);
- }else CS=myval(sin(C0));
- }else{
- CC=cos(C0);CS=sin(C0);
- }
- K=C1;
- if(K<0) K=-K;
- for(CC1=0,I=K;I>=0;I-=2) CC1+=(-1)^((K-I)/2)*binom(K,I)*cos(X)^I*sin(X)^(K-I);
- for(CS1=0,I=K-1;I>=0;I-=2) CS1+=(-1)^((K-I-1)/2)*binom(K,I)*cos(X)^I*sin(X)^(K-I);
- if(C1<0) CS1=-CS1;
- if((TF=functor(CT))==cos) P=subst(P,cos(TX),CC1*CC-CS1*CS);
- else if(TF==sin) P=subst(P,sin(TX),CS1*CC+CC1*CS);
- }
- if(F==sin)
- P=substblock(P,cos(X),cos(X)^2,1-sin(X)^2);
- else{
- P=substblock(P,sin(X),sin(X)^2,1-cos(X)^2);
- if(F==tan){
- P=subst(P,sin(X),cos(X)*tan(X));
- P=substblock(P,cos(X),cos(X)^2,1/(tan(X)^2+1));
- }
- }
- if(!isvar(XX)) P=subst(P,X,XX);
-
- if(getopt(arc)==1){
- for(VT=vars(P);VT!=[];VT=cdr(VT)){
- FA=funargs(car(VT));
- if(type(FA)==4&&(FA[0]==cos||FA[0]==sin)&&ptype(FA[1],X)>60){
- VTT=vars(FA[1]);
- if(type(FA[1])!=2||length(VTT)!=1) break;
- FB=funargs(VTT[0]);
- if(type(FB)!=4||(FF=findin(FB[0],[asin,acos,atan]))<0) break;
- if(!isint(2*(C=mycoef(FA[1],1,VTT[0])))||mycoef(FA[1],0,VTT[0])!=0) break;
- if(C==1/2){
- if(FF==1){
- U=(FA[0]==cos)?(1+FB[1])/2:(1-FB[1])/2;
- P=subst(P,car(VT),red(U)^(1/2));
- }else if(FF==2){
- if(FA[0]==sin){
- FB1=red(FB[1]);
- Nm=nm(FB1);CC=fctr(Nm)[0][0];Dn=dn(FB1);
- if(CC<0) CC=-CC;
- Nm/=CC;Dn/=CC;
- NN=Nm^2+Dn^2;
- P=subst(P,car(VT),((NN)^(1/2)-Dn)/Nm*cos(FA[1]));
- }
- }
- P=red(P);
- }else if(C==1){
- if(FF==1){
- if(FA[0]==cos) P=subst(P,car(VT),FB[1]);
- else P=subst(P,car(VT),(1-FB[1])^(1/2));
- }else if(FF==0){
- if(FA[0]==sin) P=subst(P,car(VT),FB[1]);
- else P=subst(P,car(VT),(1-FB[1])^(1/2));
- }
- P=red(P);
- }
- }
- }
- P=sqrt2rat(P);
- }
- return red(P);
- }
- Var=pfargs(P,X);
- for(VT=Var;VT!=[];VT=cdr(VT)){
- CT=car(VT);
- if(CT[1]==cos)
- P=subst(P,CT[0],exp(CT[2]*@i)/2+exp(-CT[2]*@i)/2);
- else if(CT[1]==sin)
- P=subst(P,CT[0],exp(-CT[2]*@i)*@i/2-exp(CT[2]*@i)*@i/2);
- else if (CT[1]==tan)
- P=subst(P,CT[0],(exp(-CT[2]*@i)*@i-exp(CT[2]*@i)*@i)/(exp(CT[2]*@i)+exp(-CT[2]*@i)));
- else if(CT[1]==pow){
- if(ptype(CT[2],X)>1) continue;
- if(CT[2]==@e) P=subst(P,CT[0],exp(CT[3]));
- else P=subst(P,CT[0],exp(log(CT[2])*exp(CT[3])));
- }
- }
- P=red(P);
- for(PP=1,Lp=(dn(P)==1)?1:0;Lp<2;Lp++){
- PP=1/PP;
- U=(Lp==0)?dn(P):nm(P);
- if(U==1) continue;
- Var=vars(U);
- for(R=[],VT=Var;VT!=[];VT=cdr(VT))
- if(functor(car(VT))==exp) R=cons(car(VT),R);
- RR=os_md.terms(U,R);
- for(Q=0,RRT=RR;RRT!=[];RRT=cdr(RRT)){
- for(S=0,CT=cdr(car(RRT)),CR=R,UT=U;CR!=[];CR=cdr(CR),CT=cdr(CT)){
- UT=mycoef(UT,car(CT),car(CR));S+=car(CT)*args(car(CR))[0];
- }
- if(S==0) Q+=UT;
- else Q+=UT*exp(S);
- }
- PP*=Q;
- }
- return PP;
-}
-
-def powsum(N)
-{
- if (N < 0) return 0;
- if (N == 0) return x;
- P = intpoly(N*powsum(N-1),x);
- C = subst(P,x,1);
- return P+(1-C)*x;
-}
-
-def bernoulli(N)
-{
- return mydiff(powsum(N),x) - N*x^(N-1);
-}
-
-/* linfrac01([x,y]) */
-/* linfrac01(newvect(10,[0,1,2,3,4,5,6,7,8,9]) */
-/* 0:x=0, 1:x=y, 2:x=1, 3:y=0, 4:y=1, 5:x=\infty, 6:y=\infty, 7:x=y=0, 8:x=y=1, 9:x=y=\infty
- 10:y_2=0, 11:y_2=x, 12:y_2=y, 13: y_2=1, 14: y_2=\infty
- 15:y_3=0, 16:y_3=x, 17:y_3=y, 18: y_3=y_2, 19: y_3=1, 20:y_3=\infty
- X[0],X[11],X[2],X[10],X[13],X[5],X[14],X[7],X[8],X[9],
- X[3],X[1],X[12],X[4],X[6]
-
- T=0 (x_2,x_1,x_3,x_4,...)
- T=-j (x_1,x_2,..,x_{j-1},x_{j+1},x_j,x_{j+2},...)
- T=1 (1-x_1,1-x_2,1-x_3,1-x_4,...)
- T=2 (1/x_1,1/x_2,1/x_3,1/x_4,...)
- T=3 (x_1,x_1/x_2,x_1/x_3,x_1/x_4,...)
-*/
-
-def lft01(X,T)
-{
- MX=getopt();
- if(type(X)==4){
- K=length(X);
- if(K>=1) D=1;
- }
- if(type(X)==5){
- K=length(X);
- for(J=5, F=K-10; F>0; F-=J++);
- if(F==0) D=2;
- }
- if(D==0) return 0;
- if(T==0){ /* x <-> y */
- if(D==1){
- R=cdr(X); R=cdr(R);
- R=cons(X[0],R);
- return cons(X[1],R);
- }
- R=newvect(K,[X[3],X[1],X[4],X[0],X[2],X[6],X[5]]);
- for(I=7;I<K;I++) R[I]=X[I];
- for(I=11,J=5; I<K; I+=J++){
- R[I]=X[I+1]; R[I+1]=X[I];
- }
- return R;
- }
- if(T==1){
- if(D==1){
- for(R=[];X!=[];X=cdr(X)) R=cons(1-car(X),R);
- return reverse(R);
- }
- R=newvect(K,[X[2],X[1],X[0],X[4],X[3],X[5],X[6],X[8],X[7],X[9]]);
- for(I=11;I<K;I++) R[I]=X[I];
- for(I=10, J=5; I<K; I+=J++){
- R[I]=X[I+J-2]; R[I+J-2]=X[I];
- }
- return R;
- }
- if(T==2){
- if(D==1){
- for(R=[]; X!=[]; X=cdr(X)) R=cons(red(1/car(X)),R);
- return reverse(R);
- }
- R=newvect(K,[X[5],X[1],X[2],X[6],X[4],X[0],X[3],X[9],X[8],X[7]]);
- for(I=11;I<K;I++) R[I]=X[I];
- for(I=10,J=5; I<K; I+=J++){
- R[I]=X[I+J-1]; R[I+J-1]=X[I];
- }
- return R;
- }
- if(T==3){
- if(D==1){
- T=car(X);
- for(R=[T],X=cdr(X); X!=[]; X=cdr(X))
- R=cons(red(T/car(X)),R);
- return reverse(R);
- }
- R=newvect(K,[X[7],X[4],X[2],X[6],X[1],X[9],X[3],X[0],X[8],X[5]]);
- for(I=10,J=5; I<K; I+=J++){
- R[I]=X[I+J-1]; R[I+1]=X[I+J-2]; R[I+J-2]=X[I+1]; R[I+J-1]=X[I];
- }
- return R;
- }
- if(T==-1){
- if(D==1){
- return append([X[1],X[2],X[0]],cdr(cdr(cdr(X))));
- }
- R=newvect(K,[X[0],X[11],X[2],X[10],X[13],X[5],X[14],X[7],X[8],X[9],
- X[3],X[1],X[12],X[4],X[6]]);
- for(I=11;I<K;I++) R[I]=X[I];
- for(I=17,J=5; I<K; I+=J++){
- R[I]=X[I+1]; R[I+1]=X[I];
- }
- return R;
- }
- if(T<0){
- if(D==1){
- for(R=[],I=0; X!=[]; X=cdr(X),I--){
- if(I==T){
- R=cons(X[1],R);
- R=cons(X[0],R);
- X=cdr(X);
- }
- else R=cons(car(X),R);
- }
- return reverse(R);
- }
- T=3-T;
- R=newvect(K);
- for(I=0;I<K;I++) R[I]=X[I];
- for(I=10,J=5;J<T;I+=J++);
- for(II=0; II<J-2; II++){
- R[I]=X[I+J]; R[I+J]=R[I];
- }
- for( ; II<J; II++){
- R[I]=X[I+J+1]; R[I+J+1]=X[I];
- }
- return R;
- }
- return 0;
-}
-
-def linfrac01(X)
-{
- if(type(X)==4) K=length(X)-2;
- else if(type(X)==5){
- L=length(X);
- for(K=0,I=10,J=5; I<L; K++,I+=J++);
- if(I!=L) return 0;
- }
- if(K>3 && getopt(over)!=1) return(-1);
- II=(K==-1)?3:4;
- for(CC=C=1,L=[X]; C!=0; CC+=C){
- for(F=C,C=0,R=L; F>0; R=cdr(R), F--){
- P=car(R);
- for(I=-K; I<II; I++){
- S=lft01(P,I);
- if(findin(S,L) < 0){
- C++; L=cons(S,L);
- }
- }
- }
- }
- return L;
-}
-
-
-def varargs(P)
-{
- if((All=getopt(all))!=1) All=0;
- V=vars(P);
- for(Arg=FC=[];V!=[];V=cdr(V)){
- if(vtype(CV=car(V))==0&&All==1){
- Arg=lsort([CV],Arg,0);
- }
- if(vtype(CV)!=2) continue;
- if(findin(F=functor(CV),FC)<0) FC=cons(F,FC);
- for(AT=vars(args(CV));AT!=[];AT=cdr(AT)){
- if(vtype(X=car(AT))<2){
- if(findin(X,Arg)<0) Arg=cons(X,Arg);
- }else if(vtype(X)==2){
- R=varargs(X);
- if(R[1]!=[]){
- Arg=lsort(R[1],Arg,0);
- FC=lsort(R[0],FC,0);
- }
- }
- }
- }
- return [FC,Arg];
-}
-
-def pfargs(P,X)
-{
- if(type(L=getopt(level))!=1) L=0;
- for(Var=[],V=vars(P);V!=[];V=cdr(V)){
- if(vtype(car(V))==2){
- VT=funargs(car(V));
- if(length(VT)>1){
- if(L<2 &&(ptype(VT[1],X)>1 || (length(VT)>2 && ptype(VT[2],X)>1)))
- Var=cons(cons(car(V),VT),Var);
- if(L!=1 && (R=pfargs(VT[1],X|level=L-1))!=[]) Var=append(R,Var);
- }
- }
- }
- return reverse(Var);
-}
-
-def ptype(P,L)
-{
- if((T=type(P))<2 || T>3) return T;
- if(type(L)!=4) L=[L];
- F=0;
- if(lsort(L,varargs(dn(P))[1],2)!=[]) F=128;
- if(lsort(L,varargs(nm(P))[1],2)!=[]) F+=64;
- if(lsort(L,vars(dn(P)),2)!=[]) return F+3;
- return (lsort(L,vars(nm(P)),2)==[])?(F+1):(F+2);
-}
-
-def nthmodp(X,N,P)
-{
- X=X%P;
- for(Z=1;;){
- if((W=iand(N,1))==1) Z=(Z*X)%P;
- if((N=(N-W)/2)<=0) return Z;
- X=irem(X*X,P);
- }
-}
-
-def issquaremodp(X,P)
-{
- N=getopt(power);
- if(!isint(N)) N=2;
- if(P<=1 || !isint(P) || !pari(ispsp,P) || !isint(X) || !isint(N) || N<1){
- errno(0);
- return -2;
- }
- M=(P-1)/igcd(N,P-1);
- if((X%=P) == 0) return 0;
- if(X==1 || M==P-1) return 1;
- return (nthmodp(X,M,P)==1)?1:-1;
-}
-
-def iscoef(P,F)
-{
- if(P==0) return 1;
- if(type(P)==1) return F(P);
- if(type(P)==2) {
- X=var(P);
- for(I=deg(P,X); I>=0; I--){
- if(!iscoef(mycoef(P,I,X),F)) return 0;
- }
- }else if(type(P)==3){
- if(!iscoef(nm(P),F)||!iscoef(dn(P),F)) return 0;
- }else if(type(P)==4){
- for(;P!=[];P=cdr(P)) if(!iscoef(P,F)) return 0;
- }else if(type(P)>4 && type(P)<7) return iscoef(m2l(PP),F);
- else return 0;
- return 1;
-}
-
-def rootmodp(X,P)
-{
- X%=P;
- if(X==0) return [0];
- N=getopt(power);
- PP=pari(factor,P);
- P0=PP[0][0]; P1=PP[0][1];
- P2=pari(phi,P);
- if(!isint(N)) N=2;
- N%=P2;
- if(P0==2 || size(PP)[0]>1){
- for(I=1,R=[]; I<P2; I++)
- if(nthmodp(I,N,P)==X) R=cons(I,R);
- return qsort(R);
- }
- Y=primroot(P);
- if(Y==0) return 0;
- Z=nthmodp(Y,N,P);
- G=igcd(N,P2);
- P3=P2/G;
- for(I=0, W=1; I<P3;I++){
- if(W==X) break;
- W=(W*Z)%P;
- }
- if(I==P3) return [];
- W=nthmodp(Y,I,P);
- Z=nthmodp(Y,P3,P);
- for(I=0,R=[];;){
- R=cons(W,R);
- if(++I>=G) break;
- W=(W*Z)%P;
- }
- return qsort(R);
-}
-
-def primroot(P)
-{
- PP=pari(factor,P);
- P0=PP[0][0]; P1=PP[0][1];
- S=size(PP);
- if(S[0]>1 || !isint(P) || P0<=2){
- print("Not odd prime(power)!");
- return 0;
- }
- if(isint(Ind=getopt(ind))){
- Ind %= P;
- if(Ind<=0 || igcd(Ind,P)!=1 || (Z=primroot(P))==0){
- print("Not exist!");
- return 0;
- }
- P2=P0^(P1-1)*(P0-1);
- for(I=1,S=1; I<P2; I++)
- if((S = (S*Z)%P) == Ind) return I;
- return 0;
- }
- if(getopt(all)==1){
- I=primroot(P);
- P2=P0^(P1-1)*(P0-1);
- for(L=[],J=1; J<P2; J++){
- if(P1>1 && igcd(P0,J)!=1) continue;
- if(igcd(P0-1,J)!=1) continue;
- L=cons(nthmodp(I,J,P),L);
- }
- return qsort(L);
- }
- if(PP[0][1]>1){
- I=primroot(P0);
- P2=P0^(P1-2)*(P0-1);
- if(nthmodp(I,P2,P)==1) I+=P0;
- return I;
- }
- F=pari(factor,P-1);
- SF=size(F)[0];
- for(I=2; I<P; I++){
- for(J=0; J<SF; J++)
- if(nthmodp(I,(P-1)/F[J][0],P)==1) break;
- if(J==SF) return I;
- }
-}
-
-def rabin(P,X)
-{
- for(M=0,Q=P-1;iand(Q,1)==0;M++,Q/=2);
- Z=nthmodp(X,Q,P);
- for(N=M;M>0&&Z!=1&&Z!=P-1;M--,Z=(Z*Z)%P);
- return (M<N&&(M==0||Z==1))?0:1;
-}
-
-def powprimroot(P,N)
-{
- if(P<3) P=3;
- FE=getopt(exp);
- if(FE!=1) FE=0;
- if((Log=getopt(log))==1||Log==2) FE=-1;
- else if(Log==3){
- FE=-2;
- for(PP=1, L0=["$r$","$p/a$"];;){
- PP=pari(nextprime,PP+1);
- if(PP>=P) break;
- L0=cons(PP, L0);
- }
- L0=reverse(L0);
- }
- if(FE==0) All=getopt(all);
- for(I=0, PP=P, LL=[]; I<N; I++,PP++){
- PP=pari(nextprime,PP);
- if(All==1){
- PR=primroot(PP|all=1);
- LL=cons(cons(PP,PR),LL);
- continue;
- }
- PR=primroot(PP);
- if(FE==-2){ /* log=3 */
- LT=cdr(L0);LT=cdr(L0);
- for(L=[PP];LT!=[];LT=cdr(LT))
- L=cons(primroot(PP|ind=car(LT)),L);
- LL=cons(reverse(L),LL);
- if(I<N-1) L0=append(L0,[PP]);
- }else if(FE){
- for(J=1, L=[PP], K=1; J<PP; J++){
- if(FE==-1){ /* log=1,2 */
- K=primroot(PP|ind=J);
- if(K==0 && Log==2) K=PP-1;
- }
- else K=(K*PR)%PP; /* exp=1 */
- L=cons(K,L);
- }
- LL=cons(reverse(L),LL);
- }else
- LL=cons([PP,PR],LL); /* default */
- }
- LL=reverse(LL);
- if(!FE) return LL;
- PP--;
- if(FE==-2) return append(LL,[L0]);
- for(I=1,L=["$p$"];I<PP; I++) L=cons(I,L);
- return cons(reverse(L),LL);
-}
-
-def ntable(F,II,D)
-{
- F=f2df(F|opt=-1);
- Df=getopt(dif);
- Str=getopt(str);
- if(Df!=1) Df=0;
- L=[];
- if(type(D)==4){
- if(type(II[0])==4){
- T1=II[0][1]-II[0][0];T2=II[1][1]-II[1][0];
- for(L0=[],I=0;I<D[0];I++){
- for(R=[],J=0;J<D[1];J++)
- R=cons(myf2eval(F,II[0][0]+I*T1/D[0],II[1][0]+J*T2/D[1]),R);
- L=cons(reverse(R),L);L0=cons(II[0][0]+I*T1/D[0],L0);
- }
- }else{
- for(T=II[1]-II[0],L0=[],I=0;I<D[0];I++){
- for(R=[],J=0;J<D[1];J++)
- R=cons(myfdeval(F,II[0]+I*T/D[0]+J*T/D[0]/D[1]),R);
- L=cons(reverse(R),L);L0=cons(II[0]+I*T/D[0],L0);
- }
- }
- L=reverse(L);L0=reverse(L0);
- if(type(Str)==4){
- L0=mtransbys(os_md.sint,L0,[Str[0]]|str=1,zero=0);
- L=mtransbys(os_md.sint,L,[Str[1]]|str=1,zero=0);
- if(Df==1){
- for(DT=[],RT=L,I=0;RT!=[];){
- for(LT=[],TT=car(RT);TT!=[];TT=cdr(TT)){
- VV=car(TT);
- if((J=str_char(VV,0,"."))>=0){
- if(J==0) VV=str_cut(VV,1,10000);
- else VV=str_cut(VV,0,J-1)+str_cut(VV,J+1,10000);
- }
- V1=eval_str(VV);
- if(I++) LT=cons(V1-V0,LT);
- V0=V1;
- }
- DT=cons(LT,DT);
- if((RT=cdr(RT))==[]){
- VE=rint(myfdeval(F,II[1])*10^Str[1]);
- DT=cons([VE-V0],DT);
- }
- }
- for(I=0,D=[],TT=DT;TT!=[];TT=cdr(TT)){
- if(!I++) V=car(TT)[0];
- else{
- T1=reverse(cons(V,car(TT)));
- V=car(T1);
- if(length(TT)>1) T1=cdr(T1);
- D=cons(T1,D);
- }
- }
- for(DD=[],TT=D;TT!=[];TT=cdr(TT))
- DD=cons([os_md.lmin(car(TT)),os_md.lmax(car(TT))],DD);
- DD=reverse(DD);
- L=lsort(L,DD,"append");
- }
- }
- L=lsort(L,L0,"cons");
- if(type(Top=getopt(top))==4||getopt(TeX)==1){
- if(type(Top)==4){
- K=length(L[0])-length(Top);
- if(K>0&&K<4){
- if(K>1){
- Top=append(Top,["",""]);
- K-=2;
- }
- if(K) Top=cons("",Top);
- }
- L=cons(Top,L);
- }
- if(type(H=getopt(hline))!=4) H=[0,1,z];
- if(type(V=getopt(vline))!=4) V=[0,1,(DF)?z-2:z];
- if(type(T=getopt(title))!=7) Out=ltotex(L|opt="tab",hline=H,vline=V);
- else Out=ltotex(L|opt="tab",hline=H,vline=V,title=T);
- if(Df) Out=str_subst(Out,"\\hline","\\cline{1-"+rtostr(length(L[0])-2)+"}");
- return Out;
- }
- return L;
- }
- for(L=[],I=0;I<=D;I++){
- X=II[0]+I*T/D;
- L=cons([X,myfdeval(F,X)],L);
- }
- if(Df==1){
- for(LD=[],LL=L;LL!=[];LL=cdr(LL)){
- if(LD==[]) LD=cons([car(LL)[0],car(LL)[1],0],LD);
- else LD=cons([car(LL)[0],car(LL)[1],abs(car(LL)[1]-car(LD)[1])],LD);
- }
- L=reverse(LD);
- }
- if(type(Str)==4){
- if(length(Str)==1) Str=[Str[0],Str[0]];
- if(Df==1 && length(Str)==2) Str=[Str[0],Str[1],Str[1]];
- for(S=Str,Str=[];S!=[];S=cdr(S)){
- if(type(car(S))!=4) Str=cons([car(S),3],Str);
- else Str=cons(car(S),Str);
- }
- Str=reverse(Str);
- for(LD=[],LL=L;LL!=[];LL=cdr(LL)){
- for(K=[],J=length(Str); --J>=0; )
- K=cons(sint(car(LL)[J],Str[J][0]|str=Str[J][1]),K);
- LD=cons(K,LD);
- }
- L=LD;
- }else
- L=reverse(L);
- if(type(M=getopt(mult))==1){
- Opt=[["opt","tab"],["vline",[[0,2+Df]]],["width",-M]];
- if(type(T=getopt(title))==7)
- Opt=cons(["title",T],Opt);
- if(type(Tp=getopt(top))==4)
- Opt=cons(["top",Tp],Opt);
- L=ltotex(L|option_list=Opt);
- }
- return L;
-}
-
-def distpoint(L)
-{
- L=m2l(L|flat=1);
- if(getopt(div)==5) Div=5;
- else Div=10;
- V=newvect(100/Div);
- for(LT=L,LL=[],N=0; LT!=[]; LT=cdr(LT)){
- if(type(K=car(LT))>1||K<0){
- N++; continue;
- }
- LL=cons(K,LL);
- T=idiv(K,Div);
- if(Div==10 && T>=9) T=9;
- else if(Div==5 && T>=19) T=19;
- V[T]++;
- }
- V=vtol(V);
- if((Opt=getopt(opt))=="data") return V;
- Title=getopt(title);
- OpList=[["opt","tab"]];
- if(type(Title=getopt(title)) == 7)
- OpList=cons(["title",Title],OpList);
- if(Opt=="average"){
- T=isMs()?["平均点","標準偏差","最低点","最高点","受験人数"]:
- ["average","deviation","min","max","examinees"];
- L=average(LL);
- L=[sint(L[0],1),sint(L[1],1),L[3],L[4],L[2]];
- if(N>0){
- T=append(T,[isMs()?"欠席者":"absentees"]);L=append(L,[N]);
- }
- OpList=cons(["align","c"],OpList);
- return ltotex([T,L]|option_list=OpList);
- }
-
- if(getopt(opt)=="graph"){
- Mul=getopt(size);
- if(Div==5){
- V0=["00","05","10","15","20","25","30","35","40","45","50","55",
- "60","65","70","75","80","85","90","95"];
- if(type(Mul)!=4){
- Size = (TikZ)?[12,3,1/2,0.2]:[120,30,1/2,2];
- }
- }else{
- V0=["00-","10-","20-","30-","40-","50-","60-","70-","80-","90-"];
- if(type(Mul)!=4){
- Size = (TikZ)?[8,3,1/2,0.2]:[80,30,1/2,2];
- }
- }
- return ltotex([V,V0]|opt="graph",size=Size);
- }
- if(Div==5)
- V0=["00--04","05--09","10--14","15--19", "20--24", "25--29", "30--34", "35-39",
- "40--44", "45--49","50--54", "55--59","60--64", "65--69",
- "70--74", "75--79","80--84", "85--89","90--94", "95--100"];
- else
- V0=["00--09","10--19","20--29","30--39","40--49","50--59","60--69",
- "70--79","80--89","90--100"];
- Title=getopt(title);
- return ltotex([V0,V]|option_list=OpList);
-}
-
-def keyin(S)
-{
- print(S,2);
- purge_stdin();
- S=get_line();
- L=length(S=strtoascii(S));
- if(L==0) return "";
- return str_cut(S,0,L-2);
-}
-
-def init() {
- LS=["DIROUT","DVIOUTA","DVIOUTB","DVIOUTH","DVIOUTL","TeXLim","TeXEq","TikZ",
- "XYPrec","XYcm","Canvas"];
- if(!access(get_rootdir()+"/help/os_muldif.dvi")||!access(get_rootdir()+"/help/os_muldif.pdf"))
- mycat(["Put os_muldif.dvi and os_muldif.pdf in", get_rootdir()+(isMs()?"\\help.":"/help.")]);
- if(!isMs()){
- DIROUT="%HOME%/asir/tex";
- DVIOUTA=str_subst(DVIOUTA,[["\\","/"],[".bat",".sh"]],0);
- DVIOUTB=str_subst(DVIOUTB,[["\\","/"],[".bat",".sh"]],0);
- DVIOUTL=str_subst(DVIOUTL,[["\\","/"],[".bat",".sh"]],0);
- DVIOUTH="%ASIRROOT%/help/os_muldif.pdf";
- }
- Home=getenv("HOME");
- if(type(Home)!=7) Home="";
- for(Id=-7, F=Home; Id<-1;){
- G = F+"/.muldif";
- if(access(G)) Id = open_file(G);
- else Id++;
- if(Id==-6) F+="/asir";
- else if(Id==-5) F=get_rootdir();
- else if(Id==-4) F+="/bin";
- else if(Id==-3) F=get_rootdir()+"/lib-asir-contrib";
- }
- if(Id>=0){
- while((S=get_line(Id))!=0){
- if(type(P=str_str(S,LS))==4 && (P0=str_char(S,P[1]+5,"="))>0){
- if(P[0]<5){
- P0=str_chr(S,P0+1,"\"");
- if(P0>0){
- for(P1=P0;(P2=str_char(S,P1+1,"\""))>0; P1=P2);
- if(P1>P0+1){
- SS=str_cut(S,P0+1,P1-1);
- SS=str_subst(SS,["\\\\","\\\""],["\\","\""]);
- if(P[0]==0) DIROUT=SS;
- else if(P[0]==1) DVIOUTA=SS;
- else if(P[0]==2) DVIOUTB=SS;
- else if(P[0]==3) DVIOUTH=SS;
- else if(P[0]==4) DVIOUTL=SS;
- }
- }
- if(P0<0 || P1<P0+2) mycat(["Error! Definiton of", LS[P[0]],
- "in .muldif"]);
- }else{
- SV=eval_str(str_cut(S,P0+1,str_len(S)-1));
- if(P[0]==5) TeXLim=SV;
- else if(P[0]==6) TeXEq=SV;
- else if(P[0]==7) TikZ=SV;
- else if(P[0]==8) XYPrec=SV;
- else if(P[0]==9) XYcm=SV;
- else if(P[0]==10) XYcm=Canvas;
- }
- }
- }
- close_file(Id);
- }
- chkfun(1,0);
-}
-
-#ifdef USEMODULE
-endmodule;
-os_md.init()$
-#else
-init()$
-#endif
-
-end$