(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     33291,        659]
NotebookOptionsPosition[     32705,        635]
NotebookOutlinePosition[     33059,        651]
CellTagsIndexPosition[     33016,        648]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"Get", "[", " ", "\"\<KETpic\\ketpic6.m\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Get", "[", " ", "\"\<KETpic\\ketpicapp6.m\>\"", 
  "]"}], "\[IndentingNewLine]", "ThisVersion", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"setwindow", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"x", "^", "2"}], "+", 
   RowBox[{"x", "*", "y"}], "+", 
   RowBox[{"y", "^", "2"}], "-", "3"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g1", ":=", 
   RowBox[{"implicitplotdata", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "XMIN", ",", "XMAX"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "YMIN", ",", " ", "YMAX"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ax1", "=", 
   RowBox[{"plotdata", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Tan", "[", 
       RowBox[{"Pi", "/", "4"}], "]"}], "*", "x"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "XMIN", ",", "XMAX"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ax2", "=", 
   RowBox[{"plotdata", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Tan", "[", 
       RowBox[{
        RowBox[{"Pi", "/", "4"}], "+", 
        RowBox[{"Pi", "/", "2"}]}], "]"}], "*", "x"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "XMIN", ",", "XMAX"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"g2", ":=", 
  RowBox[{"partcrv", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}], ",", "g1"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"g3", ":=", 
  RowBox[{"plotdata", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Tan", "[", 
      RowBox[{"Pi", "/", "4"}], "]"}], "*", "x"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "1"}], ",", "1"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"bd1", ":=", 
  RowBox[{"joincrvs", "[", 
   RowBox[{"g2", ",", 
    RowBox[{"invert", "[", "g3", "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"cir1", ":=", 
  RowBox[{"parametricplotdata", "[", 
   RowBox[{
    RowBox[{"0.5", "*", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "t", "]"}], ",", 
       RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", 
      RowBox[{"Pi", "/", "4"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"pd1", ":=", 
  RowBox[{"hatchdata", "[", 
   RowBox[{"\"\<i\>\"", ",", 
    RowBox[{"{", "bd1", "}"}], ",", "75", ",", "1.5"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"windisp", "[", 
  RowBox[{"g1", ",", "ax1", ",", "ax2", ",", "cir1", ",", "bd1", ",", "pd1"}],
   "]"}]}], "Input",
 CellChangeTimes->{{3.4028657995625*^9, 3.402865893265625*^9}, {
   3.402869207640625*^9, 3.402869378578125*^9}, {3.40286940921875*^9, 
   3.4028694561875*^9}, {3.402869507140625*^9, 3.4028695438125*^9}, {
   3.402869576703125*^9, 3.402869594640625*^9}, 3.40286965415625*^9, 
   3.402869689859375*^9, {3.40286972634375*^9, 3.40286973075*^9}, {
   3.40288175290625*^9, 3.4028817566875*^9}, {3.402881795296875*^9, 
   3.402881825328125*^9}, {3.40288188265625*^9, 3.40288191659375*^9}, {
   3.402881964296875*^9, 3.402882043453125*^9}, {3.402882202484375*^9, 
   3.402882377703125*^9}, {3.404174998171875*^9, 3.40417501965625*^9}, {
   3.404175096375*^9, 3.404175207921875*^9}, {3.404175258578125*^9, 
   3.4041756295*^9}, {3.404175890859375*^9, 3.404175907515625*^9}, {
   3.404176011890625*^9, 3.40417603378125*^9}, {3.4041789638125*^9, 
   3.40417924625*^9}, {3.404179311734375*^9, 3.40417933746875*^9}, {
   3.40417956259375*^9, 3.404179773015625*^9}, {3.40417987228125*^9, 
   3.404179872796875*^9}, {3.40418505340625*^9, 3.404185061203125*^9}, {
   3.40853811321875*^9, 3.408538115375*^9}, {3.408538270546875*^9, 
   3.408538493203125*^9}, {3.408538553375*^9, 3.408538672484375*^9}, {
   3.409972668734375*^9, 3.409972682390625*^9}, {3.41005551928125*^9, 
   3.410055525640625*^9}, {3.410055570265625*^9, 3.41005567125*^9}, {
   3.410055707515625*^9, 3.41005591940625*^9}, {3.41005595965625*^9, 
   3.410056032625*^9}, {3.410056065984375*^9, 3.41005608325*^9}, {
   3.4100561255625*^9, 3.410056363359375*^9}, {3.4100565878125*^9, 
   3.410056620453125*^9}, {3.410056954203125*^9, 3.410056955328125*^9}, {
   3.410500358185999*^9, 3.410500402527195*^9}, {3.4105004431186066`*^9, 
   3.410500474663665*^9}, {3.4105005051150355`*^9, 3.4105005256919756`*^9}, {
   3.4105007199308133`*^9, 3.4105007374925265`*^9}, {3.410501168129483*^9, 
   3.4105013252318196`*^9}, {3.4105013673549323`*^9, 3.41050136763617*^9}, {
   3.4105014430859146`*^9, 3.410501525129114*^9}},
 FontSize->16],

Cell[BoxData["\<\"v2.4.2c\"\>"], "Output",
 CellChangeTimes->{{3.4028658005*^9, 3.40286580609375*^9}, {
   3.402865865890625*^9, 3.4028658939375*^9}, 3.402869208359375*^9, {
   3.40286930259375*^9, 3.40286933409375*^9}, {3.402869369640625*^9, 
   3.4028693790625*^9}, 3.402869544171875*^9, 3.402869595015625*^9, {
   3.402869654703125*^9, 3.402869690375*^9}, {3.40286972734375*^9, 
   3.402869733046875*^9}, 3.40288204390625*^9, 3.40288220578125*^9, {
   3.402882293109375*^9, 3.402882378453125*^9}, 3.40289634021875*^9, 
   3.40289726425*^9, 3.404174971109375*^9, 3.404175208578125*^9, {
   3.40417530584375*^9, 3.4041753198125*^9}, {3.404175379734375*^9, 
   3.404175383640625*^9}, {3.4041754200625*^9, 3.40417544190625*^9}, {
   3.40417548909375*^9, 3.40417553796875*^9}, {3.40417561084375*^9, 
   3.404175630953125*^9}, 3.404175908109375*^9, 3.404175971359375*^9, {
   3.404176012625*^9, 3.404176034296875*^9}, 3.40417623090625*^9, 
   3.404178941*^9, 3.40417906909375*^9, 3.404179110828125*^9, {
   3.404179147328125*^9, 3.4041792469375*^9}, 3.404179337921875*^9, {
   3.404179689890625*^9, 3.40417969890625*^9}, 3.40417973921875*^9, 
   3.404179773671875*^9, 3.404179873984375*^9, {3.404185054953125*^9, 
   3.40418506190625*^9}, 3.4045957326875*^9, {3.408538099515625*^9, 
   3.4085381163125*^9}, 3.408538261109375*^9, 3.40853831684375*^9, {
   3.40853846259375*^9, 3.4085384936875*^9}, {3.40853863509375*^9, 
   3.408538641109375*^9}, 3.4085386729375*^9, {3.409972658578125*^9, 
   3.409972669828125*^9}, 3.410055529*^9, {3.410055584640625*^9, 
   3.410055611015625*^9}, {3.410055645296875*^9, 3.41005583915625*^9}, 
   3.410055892640625*^9, {3.41005601359375*^9, 3.410056033234375*^9}, {
   3.4100560671875*^9, 3.41005608384375*^9}, {3.410056318703125*^9, 
   3.410056364421875*^9}, {3.410056591640625*^9, 3.410056621671875*^9}, 
   3.4100569556875*^9, 3.410057272046875*^9, 3.4105004033084*^9, {
   3.41050046207064*^9, 3.4105004760073376`*^9}, {3.410500516255019*^9, 
   3.4105005260669537`*^9}, {3.410500726743008*^9, 3.4105007381331224`*^9}, {
   3.4105011938783293`*^9, 3.410501207330852*^9}, {3.4105012983423996`*^9, 
   3.4105013257942944`*^9}, {3.4105014472732267`*^9, 3.410501525457224*^9}, 
   3.410559455578125*^9, 3.41309395746875*^9, 3.4130953254375*^9}],

Cell[BoxData[
 GraphicsBox[{LineBox[CompressedData["
1:eJxdl3lwjXcUhg1Np5WUImWsEdReNJXYhjOlqLWWllY16RC1tbW0JR2CUhVV
S4WoqdiXjjEIQ6w9FYomdoKMLZZYEtKssrjJ7b0535M/aq7cmZvvft/vnPO+
z3sSOGrSkDEVK1SokOv5732fn5x+cWzVG5LhOzh47Xel2sav2rDF6SkSPTRr
auXQUu0XW3TvWPdkmZn9+YbOuSWa5X9kzdxVl+VcaMyjkEsl2nn77Lj5IefF
90X3DxePLdG8NO8FpyQsf+gvR/1KtCj8Xt+Cl09IcJcJ1XKuuXR6YH70yNh4
qZnRY3TkOJfu2bflWWmHPeI6XvbSJlEniy98vEsmzYnqeaSNSy+ualg74NE8
rVy4rvb8lS80akHZ7/X5+HqdY95+oTd9tuYM7Bivh3ZmeF7FmutTsX90YoKu
nrvKU0Gxfr9lRqXEE3/r0hE/uoK7FOtZO58uX+E6fLl+sfbZqXELp53XVt+s
v5c6o0hvWn3a1Xvcp4XassbwQx3WX9FdKYMXLdNCbXtpcuzgXle1Xh1vAYW6
8GDLC/0+SNHEEXV+OJ1foJf2f3XD89JOv+f0jVxXoJGep6/MvKXen681L9C1
x/0rrUtK1XVx3dpfXfBch/j3HOzf867GjPnE83qu4TuqLs7fcFfbV9jqKur4
XG/XHdR057f39c6coClbZuRrWOQ4zxVpOmrFhJwDe/P0aoO45AZxaXprdcjB
QZvztNa2lZuSbqdpoz7Lm/RZnqeeIv7oefqReh7uqSRXRww8ltQi4olWT8lc
2dg3V6Vy+x1p6U90VbcAnzpXc3TRoSUvtZiSrltSvY3K0ZKywWVo0cRpVxo9
yNaPAryFP9Me73r/Zevkx4HNhpU8030juzbumJelWctDW7g2ZWrziE4+bbdl
qavs+/+Wv/M51/E97sN9eQ7P5Ryci3NybuqgLuqkbvpAX+gTfaOP9JU+03fm
wFyYE3NjjsyVOTN3dIAu0Am6QUfoCp2hO3SILtEpukXH6Bqdo3t8gC/wCb7B
R/gKn+E7fIgv8Sm+xcf4Gp/jezgAF+AE3IAjcAXOwB04BJfgFNyCYxF+Bx4P
mFWqD62/Ev/p1OjqqaX65hrf/mmxqbK7bdONPV5x69c2P3mj99LeM8Wt4TEt
K7VOvC/vJf085/Q0t463+cuDsgG4NcE7xhqP5PWNJ6tuPOm53vQlayf4np92
zq3vZ98Pmjg3XVKGDH9WJc+tYaZfMd269adWtzwKypSj29Kqby9261vmAwn0
dLVGllvr1Y1fv6dythy7XhTRK9mt203nkhnwa8iefW49Y42QO6P/jP4r0q3N
TMfyT9jeTTUDPfWUzTdf+naND0p4WqqbTYfl/RqQFpP8amqBvHPmQJvYaqUa
aDqTL7xfn12iAz3q6j+ySOplNmx34axL15pOyudZq7B4wKnMYnnd3rWufS7o
KcC+J4PsPhpu9xX0HGzPle52Dv3NziX4pb+dW5w61KlL8Guq1S1nrQ/q9EXg
QYL1TepbH7Wh9VXgjdN3ibI5ODxyC5y5bnOTvjZHdeYqcKSqzV2Omw7U0YXA
iR6mGxljOlJHVwIndpnuxNGhHjBdChyYbrqVeaZjfWq6lnDTeXm/HB+o4wuB
A2fMN9LJfKSOrwQOfGa+k0LzoYaYLyWoUZlPy+d5yHysjq8FDnxpvpdjxgFx
uCBwIM+4IbeNI3LYuCI7jDOCniKMQ7LEuCRwYJlxS/oZx6S1cU3gQGfjnrQy
Dspu46L4GycFPTscFYerAgeCjbsyyzgsDpdlmXFa8IvDcXG4LnCinXFfnBwQ
JxcEToRabsg1yxG5bbkifpYzgl+dHBInlwSOVLHcEifHxMk1mWM5J/DAdJsh
Ti4KnOlmuSlOjsp+y1V5aDkr8MbJ4fJ3Puc6vsd9uC/P4bmcg3NxTs5NHdRF
ndRNH+gLfaJv9JG+0mf6zhyYC3NibsyRuTJn5o4O0AU6QTfoCF2hM3SHDtEl
OkW36Bhdo3N0jw/wBT7BN/gIX+EzfIcP8SU+xbf4GF/jc3wPB+ACnIAbcASu
wBm4A4fgEpyCW3AMrsE5uAcH4SKchJtwFK7CWbgLh+EynIbbcByuw3m4Tw6Q
C+QEuUGOkCvkDLlDDpFL5BS5RY6Ra+Qc/SIHyUVyktwkR8lVcpZ5ksPkMjmN
nshxcp2cR8/sAewF7An4hT2CvYI9A7+yh7CXsKfAA/YY9hr2HHjDHsRexJ4E
Z9ij2KvYs+AIexh7GXsanGCPY69jz4MT7IHsheyJcIA98v9/H/8H6RhpQA==

    "]], {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{-2.9999998775510206`, -2.9999998775510206`}, \
{-2.8822280327908176`, -2.8822280327908176`}, {-2.754549857487248, \
-2.754549857487248}, {-2.635332698579087, -2.635332698579087}, \
{-2.518454107086743, -2.518454107086743}, {-2.3916691850510325`, \
-2.3916691850510325`}, {-2.273345279410731, -2.273345279410731}, \
{-2.1451150432270625`, -2.1451150432270625`}, {-2.019223374459211, \
-2.019223374459211}, {-1.9017927220867685`, -1.9017927220867685`}, \
{-1.7744557391709594`, -1.7744557391709594`}, {-1.655579772650559, \
-1.655579772650559}, {-1.5390423735459755`, -1.5390423735459755`}, \
{-1.4125986438980254`, -1.4125986438980254`}, {-1.294615930645484, \
-1.294615930645484}, {-1.1667268868495762`, -1.1667268868495762`}, \
{-1.0411764104694852`, -1.0411764104694852`}, {-0.9240869504848028, \
-0.9240869504848028}, {-0.7970911599567538, -0.7970911599567538}, \
{-0.6785563858241136, -0.6785563858241136}, {-0.5501152811481067, \
-0.5501152811481067}, {-0.42401274388791677`, -0.42401274388791677`}, \
{-0.30637122302313563`, -0.30637122302313563`}, {-0.17882337161498782`, \
-0.17882337161498782`}, {-0.059736536602248806`, -0.059736536602248806`}, {
      0.05701173099467323, 0.05701173099467323}, {0.183666329134962, 
      0.183666329134962}, {0.30185991087984193`, 0.30185991087984193`}, {
      0.42995982316808856`, 0.42995982316808856`}, {0.5557211680405183, 
      0.5557211680405183}, {0.6730214965175392, 0.6730214965175392}, {
      0.8002281555379268, 0.8002281555379268}, {0.9189737981629056, 
      0.9189737981629056}, {1.0353808733720673`, 1.0353808733720673`}, {
      1.1616942791245957`, 1.1616942791245957`}, {1.2795466684817152`, 
      1.2795466684817152`}, {1.4073053883822015`, 1.4073053883822015`}, {
      1.526603091887279, 1.526603091887279}, {1.6435622279765396`, 
      1.6435622279765396`}, {1.7704276946091668`, 1.7704276946091668`}, {
      1.8888321448463852`, 1.8888321448463852`}, {2.0171429256269704`, 
      2.0171429256269704`}, {2.143115138991739, 2.143115138991739}, {
      2.2606263359610983`, 2.2606263359610983`}, {2.3880438634738246`, 
      2.3880438634738246`}, {2.5070003745911422`, 2.5070003745911422`}, {
      2.623618318292643, 2.623618318292643}, {2.75014259253751, 
      2.75014259253751}, {2.8682058503869685`, 2.8682058503869685`}, {
      2.9961754387797934`, 2.9961754387797934`}, {2.9999998775510206`, 
      2.9999998775510206`}}]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{-2.9999998775510206`, 
      2.9999998775510206`}, {-2.8822280327908176`, 
      2.8822280327908176`}, {-2.754549857487248, 
      2.754549857487248}, {-2.635332698579087, 
      2.635332698579087}, {-2.518454107086743, 
      2.518454107086743}, {-2.3916691850510325`, 
      2.3916691850510325`}, {-2.273345279410731, 
      2.273345279410731}, {-2.1451150432270625`, 
      2.1451150432270625`}, {-2.019223374459211, 
      2.019223374459211}, {-1.9017927220867685`, 
      1.9017927220867685`}, {-1.7744557391709594`, 
      1.7744557391709594`}, {-1.655579772650559, 
      1.655579772650559}, {-1.5390423735459755`, 
      1.5390423735459755`}, {-1.4125986438980254`, 
      1.4125986438980254`}, {-1.294615930645484, 
      1.294615930645484}, {-1.1667268868495762`, 
      1.1667268868495762`}, {-1.0411764104694852`, 
      1.0411764104694852`}, {-0.9240869504848028, 
      0.9240869504848028}, {-0.7970911599567538, 
      0.7970911599567538}, {-0.6785563858241136, 
      0.6785563858241136}, {-0.5501152811481067, 
      0.5501152811481067}, {-0.42401274388791677`, 
      0.42401274388791677`}, {-0.30637122302313563`, 
      0.30637122302313563`}, {-0.17882337161498782`, 
      0.17882337161498782`}, {-0.059736536602248806`, 
      0.059736536602248806`}, {0.05701173099467323, -0.05701173099467323}, {
      0.183666329134962, -0.183666329134962}, {
      0.30185991087984193`, -0.30185991087984193`}, {
      0.42995982316808856`, -0.42995982316808856`}, {
      0.5557211680405183, -0.5557211680405183}, {
      0.6730214965175392, -0.6730214965175392}, {
      0.8002281555379268, -0.8002281555379268}, {
      0.9189737981629056, -0.9189737981629056}, {
      1.0353808733720673`, -1.0353808733720673`}, {
      1.1616942791245957`, -1.1616942791245957`}, {
      1.2795466684817152`, -1.2795466684817152`}, {
      1.4073053883822015`, -1.4073053883822015`}, {
      1.526603091887279, -1.526603091887279}, {
      1.6435622279765396`, -1.6435622279765396`}, {
      1.7704276946091668`, -1.7704276946091668`}, {
      1.8888321448463852`, -1.8888321448463852`}, {
      2.0171429256269704`, -2.0171429256269704`}, {
      2.143115138991739, -2.143115138991739}, {
      2.2606263359610983`, -2.2606263359610983`}, {
      2.3880438634738246`, -2.3880438634738246`}, {
      2.5070003745911422`, -2.5070003745911422`}, {
      2.623618318292643, -2.623618318292643}, {
      2.75014259253751, -2.75014259253751}, {
      2.8682058503869685`, -2.8682058503869685`}, {
      2.9961754387797934`, -2.9961754387797934`}, {
      2.9999998775510206`, -2.9999998775510206`}}]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{0.5, 0.}, {0.49994058561241334`, 0.007707843895487287}, {
      0.4997419486982528, 0.016061902479870445`}, {0.49943045484978965`, 
      0.023858347984137593`}, {0.4990070014544107, 0.03149622992483063}, {
      0.4984155912647232, 0.03977308617943075}, {0.4977398052879637, 
      0.0474877482294116}, {0.4968726301644285, 0.05583537761565741}, {
      0.4958850858359078, 0.06401547973353304}, {0.4948425174083879, 
      0.07163018194119905}, {0.49357987356781924`, 0.07986806876828538}, {
      0.492277354120979, 0.08753860074074873}, {0.4908847530764111, 
      0.09503767251522359}, {0.48924457654932413`, 0.10314913628854357`}, {
      0.48759327012053316`, 0.1106923797429831}, {0.48567197361195114`, 
      0.11883910992544605`}, {0.48365341100359793`, 0.12680448739924288`}, {
      0.48165315007028475`, 0.13420224672996997`}, {0.4793557632294825, 
      0.1421901974774644}, {0.4770919034696043, 0.14961054656590816`}, {
      0.4745092055563633, 0.15761032276557588`}, {0.4718430400020248, 
      0.16542111594850162`}, {0.4692398368545423, 0.1726672392456731}, {
      0.46629172283832276`, 0.18047722629869067`}, {0.46342182702279644`, 
      0.18772376045363387`}, {0.46049897070546003`, 0.19478372103235905`}, {
      0.4572065039185148, 0.2023912369017224}, {0.45402061299354446`, 
      0.20944040435638514`}, {0.45044500288217965`, 0.21702372998931058`}, {
      0.4468114589794177, 0.22440926924858542`}, {0.4433132151695401, 
      0.23124314747910923`}, {0.4394014346691975, 0.23859249613231964`}, {
      0.43563987699260065`, 0.24539335274997112`}, {0.43185022978241694`, 
      0.25200273616941876`}, {0.4276246795403828, 0.259108343069043}, {
      0.42357673105379634`, 0.265674147989186}, {0.4190746848213921, 
      0.27272038527006165`}, {0.41476495057164287`, 0.2792311511585028}, {
      0.41044150419924585`, 0.28554819493504147`}, {0.4056431283572058, 
      0.2923245669056562}, {0.4010638189328623, 0.2985763104182718}, {
      0.39599264541440793`, 0.3052700849701768}, {0.3909052178793314, 
      0.31175809634187923`}, {0.38606364251073694`, 0.31773395149297773`}, {
      0.38071073298561126`, 0.32412858218546325`}, {0.37561765649913836`, 
      0.3300172361045637}, {0.3705362916501507, 0.33571246114815945`}, {
      0.36492566202958154`, 0.34180295667573096`}, {0.35959991901296323`, 
      0.347401638231414}, {0.35373035275400805`, 0.35337633981426236`}, {
      0.3535533905932738, 0.35355339059327373`}}]}}, LineBox[CompressedData["
1:eJw9lQtUzHkUxyPtrooewkHpIY/UhlaDLHdXQklbeb/KI6+waD1y2khYeSTb
267ySKJjo2xS5KpQSySpdCJTGmVqxvSuMTX7r/v//+b8O59ONdPvd+/3fq75
hl2em/praGj8w331kl4KFKiyn+lr0PyFcYL/DK1JSQpUhHtZqRLkmL5m1pjp
rQrcXW8+flm3DB1/7n014VLTkQ2OG2XYtX3/G4vaJuzue38DJoolRg8uNOPp
rLMDrPZIMWa2qdbIsmYE7ak3JdLPaFghjxqj04Kr3HKeW/l/RvmgCUOWZ7Vg
c3njdaeCOrRwDrd0Dm/F4UlRCc+rJPj+vCjT/Worlo1OLR2dKsENkb7N9+60
onfg1pt6oRL8EGS3JzGgDatGuY9L2fsRp2pcU3VNb0cf7rdtl6sxetNK7mlH
TyMnDyOnaryYOntq2Yl2jM8z0rz4XIzPHkdxR+jAQM3e797jjL+bXQIvduDr
uzsruQefrRp5pKCtA09mTny18JcKNO69dmAnTnq9O85jXhneqvA4fQ47cSJ3
i2mX3uAsrgrljZ34jqtCcEwJWv92qUYc0IXOKZh6cn8Rhkeq7peYKPFFb5mC
8zFs1TGu9Eo8mBjAneAJng+OWazwU2KLVn/XiGe5mJXSwD1KfKd1rdltega2
bzN2iJ7yFUNOPFW+WnELtTsvjjge9RWLY8xGmNYdxV1BIU4PbFVoGdL3e1Dl
9T2Ylp4o65mWBsN6j79VhQfM2yLWxGVAX9vKVdjlU+PS8c1j8G5bfCZbtxtb
6Xyg83XOktAt3eiQfDj1uKgIXnpF14led6OC7ge/N6277NDSjQvjumpy5pRC
BHd6ba8etNU1WBYqrYAGHQ/7+H09eLxUWrxFrxL8de/VLzrUg5+ovpCx2i/C
UNyDYy/ouErixHB70rgrjt+p8VfqHwydHzb/d1CjT/RETZtnH2Hu81NBBfvV
uI36D7V9DVBjbm8bh9SB/pWneleecn9P+YJ4X52i/S/VuKDpo932YClUeC6X
DW5VozflFyi3avzD+j2XIDlkJ0kMk5Vq/J7mAMy5qg5RqNF4VMalNO0myHnb
5T+vVI3JlHOQm/4pSktXYyEVAj5sfBjxKFCN4ynH8J/3nYRh5tx9+vrbBi6z
MuxyG3vwKuWQ1WuRJLp0oLgDfii8Zxtn0IPmlDPY3Pv2w93oxqXLdU0XGMvN
Jr96ocJ4ygnr5/BO5aJ8uRL0iTiKfg5CnkzpfeBOn4M+9Lkg5Nme/i/MoXNg
LJ0LhHlxpXMDfw/k7wXCvIrp3vCC6oB8XUDwQS7VDUyojmhGdQXBN3zdIYT6
wPtIDYJn3lLfwIX6iHxfQfCIHvUd8igHyOcCBE84Um5gE+UI+VyB4IlblDvg
c4j3KJcgeOAA5RaOUo6xkXINPpRzVi9+DpCfCxA8UEhzAzNojpCfKxA8sJbm
DjppDlFEcwl2Fn1zyvqZRXOM/FyD4IEdNPeQQx4A3gsgeKCVvAFV5BG4T16B
m+QZEPLkTx6Cs+QlEDxwjrwFC8ljYENeA8EDDuQ9sCYPwm3yIhiRJ0HIM+9R
4L0KggfsybtwiDwMvJfhHHkahHnhPQ6810HwxGTyPvB7APi9AIInvGhvQDnt
EaiivQK6tGdAmFd+DwG/l0DwyGDaW8DvMeD3GgTRngPBB5TbBuD3IgiemU17
E/g9Cndpr8In2rMg+Ibfy4znLYx3n237wuhZPFNkEitn7NR21MxcKmNM9dpp
4aBqYFw+6/CCgmwpY8rqS0kt3H0EjoisXTHApJ5x93J9A4t3nxgrp3qPGntM
wtjhke31ZGwto4ay/w2/mhpGkwfbnbRCqhnHDXxQf3WBmDHPetqpPK0qxnUH
f6z71rWSsfydvufmgreM+/Zarw8bVsYoMx966PVfJYz5biaD3A2LGcO8y4Mm
ZxQyOi0y1GxLz2d0Tqh44bYil3GM4n6XQ24mo31Nv9FHuHkRmKkdUJq7L4Jx
rYfxv5UbI1FgYqUk9POxFMa09id6BZZZjEOXpJxbOTyX8ehc2atM/3xGG9EX
m8SWQkaDQzdEtv2KGSU2UXZ4t4Txw5NUM5GojDFtYohvzce3jGP0f5qzJL6S
MevDBN2bFlWMUdmS2Au+Ysb1QUWWZderGQM0kw/4yWoYg3es97dyrmW84DLF
r+SkhDFhcNWI2OpPjJ3hASEI9YzrzkxRVAR/Zkzf/lhL772U0eTRLqNpxo2M
b97oSHPWyxgPFB3bueWhnNEWhknV6i+M/wMVr9nR
    "]], {
    LineBox[{{0.7954951288348657, 0.7954951288348656}, {0.8803062827902222, 
     1.1120146644448021`}}], 
    LineBox[{{0.5303300858899105, 0.5303300858899105}, {0.7233099709885561, 
     1.2505408219168601`}}], 
    LineBox[{{0.26516504294495524`, 0.2651650429449552}, {0.5635482172489671, 
     1.3787462095712077`}}], 
    LineBox[{{0., 0.}, {0.4004118984230504, 1.4943575488699328`}}], 
    LineBox[{{-0.2651650429449553, -0.2651650429449553}, {0.2345749845919888, 
     1.5998901303987902`}}], 
    LineBox[{{-0.5303300858899105, -0.5303300858899105}, {0.06637979520919884,
      1.6966215077503497`}}], 
    LineBox[{{-0.7954951288348657, -0.7954951288348656}, \
{-0.10513303545179464`, 1.780971279290366}}], 
    LineBox[{{-1.0347226659871382`, -0.963860082339917}, {-0.2799771804512435,
      1.8528884164632844`}}], 
    LineBox[{{-1.1852712212634442`, -0.8012705699203809}, \
{-0.45784035857691224`, 1.9135383686194163`}}], 
    LineBox[{{-1.3315868859105504`, -0.6228836946097895}, \
{-0.6399656469506554, 1.9582819087822747`}}], 
    LineBox[{{-1.4743763485962846`, -0.4313368544216092}, \
{-0.8261774565294682, 1.9877743441816056`}}], 
    LineBox[{{-1.6110636798585636`, -0.21701654972663031`}, \
{-1.0174978690390795`, 1.998201213887501}}], 
    LineBox[{{-1.7409969863841186`, 
     0.022510118441378846`}, {-1.2166375198741837`, 1.9794462888861675`}}], 
    LineBox[{{-1.8609547141818532`, 
     0.29926615325651684`}, {-1.4251356453822073`, 1.925765060924152}}], 
    LineBox[{{-1.9609089941227043`, 0.6506760718000992}, {-1.652845510636251, 
     1.800384644128199}}]}},
  AspectRatio->Automatic,
  Axes->True,
  PlotRange->{{-3., 3.}, {-3., 3.}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.4028658005*^9, 3.40286580609375*^9}, {
   3.402865865890625*^9, 3.4028658939375*^9}, 3.402869208359375*^9, {
   3.40286930259375*^9, 3.40286933409375*^9}, {3.402869369640625*^9, 
   3.4028693790625*^9}, 3.402869544171875*^9, 3.402869595015625*^9, {
   3.402869654703125*^9, 3.402869690375*^9}, {3.40286972734375*^9, 
   3.402869733046875*^9}, 3.40288204390625*^9, 3.40288220578125*^9, {
   3.402882293109375*^9, 3.402882378453125*^9}, 3.40289634021875*^9, 
   3.40289726425*^9, 3.404174971109375*^9, 3.404175208578125*^9, {
   3.40417530584375*^9, 3.4041753198125*^9}, {3.404175379734375*^9, 
   3.404175383640625*^9}, {3.4041754200625*^9, 3.40417544190625*^9}, {
   3.40417548909375*^9, 3.40417553796875*^9}, {3.40417561084375*^9, 
   3.404175630953125*^9}, 3.404175908109375*^9, 3.404175971359375*^9, {
   3.404176012625*^9, 3.404176034296875*^9}, 3.40417623090625*^9, 
   3.404178941*^9, 3.40417906909375*^9, 3.404179110828125*^9, {
   3.404179147328125*^9, 3.4041792469375*^9}, 3.404179337921875*^9, {
   3.404179689890625*^9, 3.40417969890625*^9}, 3.40417973921875*^9, 
   3.404179773671875*^9, 3.404179873984375*^9, {3.404185054953125*^9, 
   3.40418506190625*^9}, 3.4045957326875*^9, {3.408538099515625*^9, 
   3.4085381163125*^9}, 3.408538261109375*^9, 3.40853831684375*^9, {
   3.40853846259375*^9, 3.4085384936875*^9}, {3.40853863509375*^9, 
   3.408538641109375*^9}, 3.4085386729375*^9, {3.409972658578125*^9, 
   3.409972669828125*^9}, 3.410055529*^9, {3.410055584640625*^9, 
   3.410055611015625*^9}, {3.410055645296875*^9, 3.41005583915625*^9}, 
   3.410055892640625*^9, {3.41005601359375*^9, 3.410056033234375*^9}, {
   3.4100560671875*^9, 3.41005608384375*^9}, {3.410056318703125*^9, 
   3.410056364421875*^9}, {3.410056591640625*^9, 3.410056621671875*^9}, 
   3.4100569556875*^9, 3.410057272046875*^9, 3.4105004033084*^9, {
   3.41050046207064*^9, 3.4105004760073376`*^9}, {3.410500516255019*^9, 
   3.4105005260669537`*^9}, {3.410500726743008*^9, 3.4105007381331224`*^9}, {
   3.4105011938783293`*^9, 3.410501207330852*^9}, {3.4105012983423996`*^9, 
   3.4105013257942944`*^9}, {3.4105014472732267`*^9, 3.410501525457224*^9}, 
   3.410559455578125*^9, 3.41309395746875*^9, 3.41309532846875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"openfile", "[", "\"\<fig19.tex\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"openpicture", "[", "\"\<16/12cm\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", 
   RowBox[{"g1", ",", "ax1", ",", "ax2", ",", "cir1"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", 
   RowBox[{"pd1", ",", "0.5"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"expr", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"XMAX", "/", 
      RowBox[{"Cos", "[", 
       RowBox[{"Pi", "/", "4"}], "]"}]}], "*", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"Pi", "/", "4"}], "]"}], ",", 
       RowBox[{"Sin", "[", 
        RowBox[{"Pi", "/", "4"}], "]"}]}], "}"}]}], ",", "\"\<e\>\"", ",", 
    "\"\<X\>\"", ",", 
    RowBox[{
     RowBox[{"YMAX", "/", 
      RowBox[{"Cos", "[", 
       RowBox[{"Pi", "/", "4"}], "]"}]}], "*", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"Pi", "/", "4"}], "+", 
         RowBox[{"Pi", "/", "2"}]}], "]"}], ",", 
       RowBox[{"Sin", "[", 
        RowBox[{
         RowBox[{"Pi", "/", "4"}], "+", 
         RowBox[{"Pi", "/", "2"}]}], "]"}]}], "}"}]}], ",", "\"\<nw\>\"", 
    ",", "\"\<Y\>\"", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}], ",", "\"\<e2\>\"", ",", 
    "\"\<\\\\sqrt{2}\>\"", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", "\"\<w4\>\"", ",", 
    "\"\<-\\\\sqrt{2}\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"expr", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"2", ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", "\"\<e\>\"", ",", 
    "\"\<x^2+xy+y^2=3\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"expr", "[", 
   RowBox[{
    RowBox[{"0.5", "*", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"Pi", "/", "8"}], "]"}], ",", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"Pi", "/", "8"}], "]"}], "+", "0.2"}]}], "}"}]}], ",", 
    "\"\<e2\>\"", ",", "\"\<\\\\frac{\\\\pi}{4}\>\""}], "]"}], ";", 
  RowBox[{"expr", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"2", ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", "\"\<s4e\>\"", ",", 
    "\"\<(3X^2+Y^2=6)\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"setax", "[", 
   RowBox[{
   "\"\<a\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", 
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<s6w\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"closepicture", "[", "1", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"closefile", "[", "]"}], "            "}]}], "Input",
 CellChangeTimes->{{3.402869744015625*^9, 3.40286984109375*^9}, {
  3.402895758*^9, 3.402895840921875*^9}, {3.4028959343125*^9, 
  3.402895985203125*^9}, {3.402896276484375*^9, 3.402896277703125*^9}, {
  3.402896330546875*^9, 3.40289633065625*^9}, {3.402896702765625*^9, 
  3.402896703046875*^9}, {3.40289727390625*^9, 3.402897313765625*^9}, {
  3.404175645375*^9, 3.40417577984375*^9}, {3.404175874109375*^9, 
  3.404175885359375*^9}, {3.4041759201875*^9, 3.40417595609375*^9}, {
  3.4041760050625*^9, 3.4041760054375*^9}, {3.40417621496875*^9, 
  3.404176219828125*^9}, {3.404176254078125*^9, 3.404176288828125*^9}, {
  3.40417638715625*^9, 3.40417640665625*^9}, {3.404179351828125*^9, 
  3.40417944075*^9}, {3.404179784328125*^9, 3.404179785125*^9}, {
  3.404179862828125*^9, 3.404179863234375*^9}, {3.404595736515625*^9, 
  3.4045957368125*^9}, {3.408538544125*^9, 3.408538547671875*^9}, {
  3.40853869434375*^9, 3.408538745296875*^9}, {3.4099726961875*^9, 
  3.4099727123125*^9}, {3.409972846390625*^9, 3.409972883484375*^9}, {
  3.410056373375*^9, 3.41005647975*^9}, {3.4100569398125*^9, 
  3.410056946859375*^9}, {3.410056987828125*^9, 3.4100569976875*^9}, {
  3.41005727759375*^9, 3.410057283375*^9}, {3.4100574136875*^9, 
  3.410057525109375*^9}, {3.410500607780997*^9, 3.410500710306341*^9}, {
  3.4105007610539713`*^9, 3.4105008787518225`*^9}, {3.410500945108225*^9, 
  3.410501095476488*^9}, {3.410501555393383*^9, 3.4105016439206667`*^9}, {
  3.41055946728125*^9, 3.4105594976875*^9}, {3.413093968109375*^9, 
  3.413093969703125*^9}, {3.41309544846875*^9, 3.413095513234375*^9}, {
  3.41309566546875*^9, 3.413095665765625*^9}},
 FontSize->16],

Cell[BoxData["\<\"E:\\\\files\\\\kisarazu-national-college\\\\Ketpic\\\\\
examples\\\\11-20\"\>"], "Output",
 CellChangeTimes->{
  3.40286984215625*^9, 3.402895985984375*^9, 3.4028962783125*^9, {
   3.402896331234375*^9, 3.402896341484375*^9}, 3.402896703515625*^9, {
   3.402897286390625*^9, 3.402897314375*^9}, 3.404175959328125*^9, 
   3.40417600584375*^9, 3.404176036640625*^9, {3.4041762319375*^9, 
   3.404176289203125*^9}, {3.404176391390625*^9, 3.404176407046875*^9}, 
   3.404179448375*^9, {3.404179799796875*^9, 3.404179814328125*^9}, {
   3.40417986390625*^9, 3.4041798750625*^9}, 3.40418506490625*^9, 
   3.40459573740625*^9, 3.408538753421875*^9, {3.409972700234375*^9, 
   3.409972713875*^9}, 3.409972787953125*^9, {3.409972849*^9, 
   3.409972885453125*^9}, 3.410056480453125*^9, 3.410056720875*^9, 
   3.410056957703125*^9, {3.410056988734375*^9, 3.410056998140625*^9}, {
   3.410057507296875*^9, 3.410057526484375*^9}, {3.4105006932291994`*^9, 
   3.41050071075944*^9}, 3.4105008792518005`*^9, {3.410500948029969*^9, 
   3.410500972810109*^9}, 3.4105010486817093`*^9, 3.41050153983158*^9, {
   3.4105015919386206`*^9, 3.4105016442487774`*^9}, {3.410559467921875*^9, 
   3.41055949821875*^9}, 3.413093970859375*^9, 3.41309533096875*^9, {
   3.413095454828125*^9, 3.413095474359375*^9}, 3.41309551453125*^9, 
   3.413095666265625*^9}],

Cell[BoxData["\<\"fig19.tex\"\>"], "Output",
 CellChangeTimes->{
  3.40286984215625*^9, 3.402895985984375*^9, 3.4028962783125*^9, {
   3.402896331234375*^9, 3.402896341484375*^9}, 3.402896703515625*^9, {
   3.402897286390625*^9, 3.402897314375*^9}, 3.404175959328125*^9, 
   3.40417600584375*^9, 3.404176036640625*^9, {3.4041762319375*^9, 
   3.404176289203125*^9}, {3.404176391390625*^9, 3.404176407046875*^9}, 
   3.404179448375*^9, {3.404179799796875*^9, 3.404179814328125*^9}, {
   3.40417986390625*^9, 3.4041798750625*^9}, 3.40418506490625*^9, 
   3.40459573740625*^9, 3.408538753421875*^9, {3.409972700234375*^9, 
   3.409972713875*^9}, 3.409972787953125*^9, {3.409972849*^9, 
   3.409972885453125*^9}, 3.410056480453125*^9, 3.410056720875*^9, 
   3.410056957703125*^9, {3.410056988734375*^9, 3.410056998140625*^9}, {
   3.410057507296875*^9, 3.410057526484375*^9}, {3.4105006932291994`*^9, 
   3.41050071075944*^9}, 3.4105008792518005`*^9, {3.410500948029969*^9, 
   3.410500972810109*^9}, 3.4105010486817093`*^9, 3.41050153983158*^9, {
   3.4105015919386206`*^9, 3.4105016442487774`*^9}, {3.410559467921875*^9, 
   3.41055949821875*^9}, 3.413093970859375*^9, 3.41309533096875*^9, {
   3.413095454828125*^9, 3.413095474359375*^9}, 3.41309551453125*^9, 
   3.413095666265625*^9}],

Cell[BoxData["\<\"stdout\"\>"], "Output",
 CellChangeTimes->{
  3.40286984215625*^9, 3.402895985984375*^9, 3.4028962783125*^9, {
   3.402896331234375*^9, 3.402896341484375*^9}, 3.402896703515625*^9, {
   3.402897286390625*^9, 3.402897314375*^9}, 3.404175959328125*^9, 
   3.40417600584375*^9, 3.404176036640625*^9, {3.4041762319375*^9, 
   3.404176289203125*^9}, {3.404176391390625*^9, 3.404176407046875*^9}, 
   3.404179448375*^9, {3.404179799796875*^9, 3.404179814328125*^9}, {
   3.40417986390625*^9, 3.4041798750625*^9}, 3.40418506490625*^9, 
   3.40459573740625*^9, 3.408538753421875*^9, {3.409972700234375*^9, 
   3.409972713875*^9}, 3.409972787953125*^9, {3.409972849*^9, 
   3.409972885453125*^9}, 3.410056480453125*^9, 3.410056720875*^9, 
   3.410056957703125*^9, {3.410056988734375*^9, 3.410056998140625*^9}, {
   3.410057507296875*^9, 3.410057526484375*^9}, {3.4105006932291994`*^9, 
   3.41050071075944*^9}, 3.4105008792518005`*^9, {3.410500948029969*^9, 
   3.410500972810109*^9}, 3.4105010486817093`*^9, 3.41050153983158*^9, {
   3.4105015919386206`*^9, 3.4105016442487774`*^9}, {3.410559467921875*^9, 
   3.41055949821875*^9}, 3.413093970859375*^9, 3.41309533096875*^9, {
   3.413095454828125*^9, 3.413095474359375*^9}, 3.41309551453125*^9, 
   3.41309566921875*^9}]
}, Open  ]]
},
WindowSize->{845, 651},
WindowMargins->{{Automatic, 30}, {Automatic, 0}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (2007\:5e746\:670819\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 5049, 126, 333, "Input"],
Cell[5642, 151, 2276, 32, 42, "Output"],
Cell[7921, 185, 16274, 268, 379, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24232, 458, 4533, 110, 333, "Input"],
Cell[28768, 570, 1349, 20, 77, "Output"],
Cell[30120, 592, 1285, 19, 42, "Output"],
Cell[31408, 613, 1281, 19, 42, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)