(* 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[     35667,        685]
NotebookOptionsPosition[     35081,        661]
NotebookOutlinePosition[     35435,        677]
CellTagsIndexPosition[     35392,        674]
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[{"-", "0.5"}], ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1.5"}], ",", "1"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g1", ":=", 
   RowBox[{"plotdata", "[", 
    RowBox[{"x", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "XMIN", ",", "XMAX"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g2", ":=", 
   RowBox[{"plotdata", "[", 
    RowBox[{
     RowBox[{"-", "x"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "XMIN", ",", "XMAX"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g3", ":=", 
   RowBox[{"plotdata", "[", 
    RowBox[{
     RowBox[{"x", "-", "2"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "XMIN", ",", "XMAX"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g4", ":=", 
   RowBox[{"plotdata", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "x"}], "+", "1"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "XMIN", ",", "XMAX"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"pA", ":=", 
  RowBox[{
   RowBox[{"intersectcrvs", "[", 
    RowBox[{"g1", ",", "g2"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"pB", ":=", 
  RowBox[{
   RowBox[{"intersectcrvs", "[", 
    RowBox[{"g2", ",", "g3"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"pC", ":=", 
  RowBox[{
   RowBox[{"intersectcrvs", "[", 
    RowBox[{"g3", ",", "g4"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"pD", ":=", 
  RowBox[{
   RowBox[{"intersectcrvs", "[", 
    RowBox[{"g4", ",", "g1"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ABCD", ":=", 
  RowBox[{"listplotdata", "[", 
   RowBox[{"{", 
    RowBox[{"pA", ",", "pB", ",", "pC", ",", "pD", ",", "pA"}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"box1", ":=", 
  RowBox[{"framedata", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0.8", ",", 
      RowBox[{"-", "0.4"}]}], "}"}], ",", "0.15"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"pd1", ":=", 
  RowBox[{"hatchdata", "[", 
   RowBox[{"\"\<io\>\"", ",", 
    RowBox[{"{", "ABCD", "}"}], ",", 
    RowBox[{"{", "box1", "}"}], ",", "60", ",", "1.2"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"windisp", "[", 
  RowBox[{"g1", ",", "g2", ",", "g3", ",", "g4", ",", "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.410567684390625*^9, 3.410567738953125*^9}, {3.411800680890625*^9, 
   3.411800744921875*^9}, {3.411800861984375*^9, 3.4118012881875*^9}, {
   3.411801368015625*^9, 3.4118013686875*^9}, {3.411801610765625*^9, 
   3.411801610890625*^9}, {3.411801659421875*^9, 3.41180165975*^9}, {
   3.41184945625*^9, 3.411849536078125*^9}, {3.411850377421875*^9, 
   3.411850527140625*^9}, {3.4120363850625*^9, 3.412036401*^9}, {
   3.412036451484375*^9, 3.412036458609375*^9}, {3.412036518515625*^9, 
   3.412036573953125*^9}, {3.41203661128125*^9, 3.4120366180625*^9}, {
   3.412036664453125*^9, 3.412036708546875*^9}, {3.4120367536875*^9, 
   3.41203678175*^9}, {3.412036842328125*^9, 3.412036854296875*^9}, {
   3.412036938890625*^9, 3.412037014203125*^9}, {3.412037109546875*^9, 
   3.412037541890625*^9}, {3.412037580171875*^9, 3.412037765609375*^9}, {
   3.41203790340625*^9, 3.412037922078125*^9}, {3.4122876955*^9, 
   3.412287741859375*^9}, {3.412287795625*^9, 3.412287901375*^9}, {
   3.4122879448125*^9, 3.412288184015625*^9}, {3.412288496578125*^9, 
   3.412288499046875*^9}, {3.41228853028125*^9, 3.412288530828125*^9}, {
   3.41229894190625*^9, 3.412298942796875*^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.410567674515625*^9, {
   3.41056771290625*^9, 3.410567739796875*^9}, 3.410567850046875*^9, 
   3.410585360546875*^9, 3.410585456171875*^9, 3.4118006745625*^9, {
   3.411800725125*^9, 3.41180074571875*^9}, {3.41180086665625*^9, 
   3.411800896796875*^9}, {3.411800969828125*^9, 3.411801015484375*^9}, {
   3.41180104671875*^9, 3.411801099359375*^9}, {3.411801147828125*^9, 
   3.411801153109375*^9}, 3.4118011870625*^9, {3.411801244640625*^9, 
   3.411801288890625*^9}, 3.41180136903125*^9, 3.411801611296875*^9, 
   3.411801660484375*^9, {3.4118495200625*^9, 3.411849536578125*^9}, {
   3.411850414234375*^9, 3.41185044953125*^9}, 3.411850527671875*^9, 
   3.4120364493125*^9, 3.4120365235*^9, 3.4120365575*^9, 3.412036625625*^9, {
   3.412036693953125*^9, 3.412036709421875*^9}, {3.412036754421875*^9, 
   3.412036782265625*^9}, {3.412036844890625*^9, 3.41203685084375*^9}, {
   3.412036967765625*^9, 3.412037028265625*^9}, {3.4120371125*^9, 
   3.41203726253125*^9}, {3.412037317140625*^9, 3.412037410921875*^9}, 
   3.412037444515625*^9, {3.412037483390625*^9, 3.412037528578125*^9}, {
   3.4120375966875*^9, 3.4120376665625*^9}, 3.412037705796875*^9, {
   3.412037750015625*^9, 3.412037766140625*^9}, {3.41203790415625*^9, 
   3.412037924484375*^9}, 3.4122877045625*^9, 3.412287742296875*^9, {
   3.412287853046875*^9, 3.4122878908125*^9}, {3.412288080046875*^9, 
   3.41228811759375*^9}, {3.41228815965625*^9, 3.412288184390625*^9}, 
   3.412288499390625*^9, 3.412288531296875*^9, 3.4122989436875*^9, 
   3.41230553409375*^9, 3.41230587478125*^9, 3.412310357890625*^9, 
   3.41282730021875*^9, 3.41282800715625*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{-0.4999999489795918, -0.4999999489795918}, \
{-0.450928346996174, -0.450928346996174}, {-0.3977291072863534, \
-0.3977291072863534}, {-0.3480552910746198, -0.3480552910746198}, \
{-0.29935587795280993`, -0.29935587795280993`}, {-0.24652882710459725`, \
-0.24652882710459725`}, {-0.1972271997544716, -0.1972271997544716}, \
{-0.1437979346779431, -0.1437979346779431}, {-0.09134307269133837, \
-0.09134307269133837}, {-0.04241363420282065, -0.04241363420282065}, {
      0.010643442012099874`, 0.010643442012099874`}, {0.06017509472893339, 
      0.06017509472893339}, {0.10873234435584318`, 0.10873234435584318`}, {
      0.16141723170915576`, 0.16141723170915576`}, {0.21057669556438133`, 
      0.21057669556438133`}, {0.2638637971460097, 0.2638637971460097}, {
      0.3161764956377143, 0.3161764956377143}, {0.36496377063133195`, 
      0.36496377063133195`}, {0.41787868335135236`, 0.41787868335135236`}, {
      0.4672681725732858, 0.4672681725732858}, {0.520785299521622, 
      0.520785299521622}, {0.5733280233800344, 0.5733280233800344}, {
      0.6223453237403598, 0.6223453237403598}, {0.6754902618270879, 
      0.6754902618270879}, {0.7251097764157292, 0.7251097764157292}, {
      0.7737548879144467, 0.7737548879144467}, {0.8265276371395669, 
      0.8265276371395669}, {0.8757749628666002, 0.8757749628666002}, {
      0.9291499263200363, 0.9291499263200363}, {0.9815504866835487, 
      0.9815504866835487}, {1.030425623548974, 1.030425623548974}, {
      1.083428398140802, 1.083428398140802}, {1.1329057492345431`, 
      1.1329057492345431`}, {1.1814086972383604`, 1.1814086972383604`}, {
      1.2340392829685805`, 1.2340392829685805`}, {1.2831444452007137`, 
      1.2831444452007137`}, {1.3363772451592497`, 1.3363772451592497`}, {
      1.3860846216196987`, 1.3860846216196987`}, {1.434817594990224, 
      1.434817594990224}, {1.487678206087152, 1.487678206087152}, {
      1.537013393685993, 1.537013393685993}, {1.590476219011237, 
      1.590476219011237}, {1.642964641246557, 1.642964641246557}, {
      1.6919276399837901`, 1.6919276399837901`}, {1.745018276447426, 
      1.745018276447426}, {1.7945834894129749`, 1.7945834894129749`}, {
      1.8431742992886, 1.8431742992886}, {1.895892746890628, 
      1.895892746890628}, {1.9450857709945688`, 1.9450857709945688`}, {
      1.9984064328249125`, 1.9984064328249125`}, {1.9999999489795919`, 
      1.9999999489795919`}}]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{-0.4999999489795918, 0.4999999489795918}, {-0.450928346996174, 
      0.450928346996174}, {-0.3977291072863534, 
      0.3977291072863534}, {-0.3480552910746198, 
      0.3480552910746198}, {-0.29935587795280993`, 
      0.29935587795280993`}, {-0.24652882710459725`, 
      0.24652882710459725`}, {-0.1972271997544716, 
      0.1972271997544716}, {-0.1437979346779431, 
      0.1437979346779431}, {-0.09134307269133837, 
      0.09134307269133837}, {-0.04241363420282065, 0.04241363420282065}, {
      0.010643442012099874`, -0.010643442012099874`}, {
      0.06017509472893339, -0.06017509472893339}, {
      0.10873234435584318`, -0.10873234435584318`}, {
      0.16141723170915576`, -0.16141723170915576`}, {
      0.21057669556438133`, -0.21057669556438133`}, {
      0.2638637971460097, -0.2638637971460097}, {
      0.3161764956377143, -0.3161764956377143}, {
      0.36496377063133195`, -0.36496377063133195`}, {
      0.41787868335135236`, -0.41787868335135236`}, {
      0.4672681725732858, -0.4672681725732858}, {
      0.520785299521622, -0.520785299521622}, {
      0.5733280233800344, -0.5733280233800344}, {
      0.6223453237403598, -0.6223453237403598}, {
      0.6754902618270879, -0.6754902618270879}, {
      0.7251097764157292, -0.7251097764157292}, {
      0.7737548879144467, -0.7737548879144467}, {
      0.8265276371395669, -0.8265276371395669}, {
      0.8757749628666002, -0.8757749628666002}, {
      0.9291499263200363, -0.9291499263200363}, {
      0.9815504866835487, -0.9815504866835487}, {
      1.030425623548974, -1.030425623548974}, {
      1.083428398140802, -1.083428398140802}, {
      1.1329057492345431`, -1.1329057492345431`}, {
      1.1814086972383604`, -1.1814086972383604`}, {
      1.2340392829685805`, -1.2340392829685805`}, {
      1.2831444452007137`, -1.2831444452007137`}, {
      1.3363772451592497`, -1.3363772451592497`}, {
      1.3860846216196987`, -1.3860846216196987`}, {
      1.434817594990224, -1.434817594990224}, {
      1.487678206087152, -1.487678206087152}, {
      1.537013393685993, -1.537013393685993}, {
      1.590476219011237, -1.590476219011237}, {
      1.642964641246557, -1.642964641246557}, {
      1.6919276399837901`, -1.6919276399837901`}, {
      1.745018276447426, -1.745018276447426}, {
      1.7945834894129749`, -1.7945834894129749`}, {
      1.8431742992886, -1.8431742992886}, {
      1.895892746890628, -1.895892746890628}, {
      1.9450857709945688`, -1.9450857709945688`}, {
      1.9984064328249125`, -1.9984064328249125`}, {
      1.9999999489795919`, -1.9999999489795919`}}]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{-0.4999999489795918, -2.4999999489795917`}, \
{-0.450928346996174, -2.4509283469961742`}, {-0.3977291072863534, \
-2.3977291072863536`}, {-0.3480552910746198, -2.34805529107462}, \
{-0.29935587795280993`, -2.29935587795281}, {-0.24652882710459725`, \
-2.2465288271045973`}, {-0.1972271997544716, -2.1972271997544714`}, \
{-0.1437979346779431, -2.143797934677943}, {-0.09134307269133837, \
-2.0913430726913385`}, {-0.04241363420282065, -2.0424136342028207`}, {
      0.010643442012099874`, -1.9893565579879002`}, {
      0.06017509472893339, -1.9398249052710665`}, {
      0.10873234435584318`, -1.8912676556441568`}, {
      0.16141723170915576`, -1.8385827682908442`}, {
      0.21057669556438133`, -1.7894233044356187`}, {
      0.2638637971460097, -1.7361362028539902`}, {
      0.3161764956377143, -1.6838235043622856`}, {
      0.36496377063133195`, -1.635036229368668}, {
      0.41787868335135236`, -1.5821213166486476`}, {
      0.4672681725732858, -1.5327318274267143`}, {
      0.520785299521622, -1.479214700478378}, {
      0.5733280233800344, -1.4266719766199656`}, {
      0.6223453237403598, -1.3776546762596402`}, {
      0.6754902618270879, -1.324509738172912}, {
      0.7251097764157292, -1.2748902235842707`}, {
      0.7737548879144467, -1.2262451120855533`}, {
      0.8265276371395669, -1.173472362860433}, {
      0.8757749628666002, -1.1242250371334}, {
      0.9291499263200363, -1.0708500736799635`}, {
      0.9815504866835487, -1.0184495133164513`}, {
      1.030425623548974, -0.9695743764510261}, {
      1.083428398140802, -0.9165716018591981}, {
      1.1329057492345431`, -0.8670942507654569}, {
      1.1814086972383604`, -0.8185913027616396}, {
      1.2340392829685805`, -0.7659607170314195}, {
      1.2831444452007137`, -0.7168555547992863}, {
      1.3363772451592497`, -0.6636227548407503}, {
      1.3860846216196987`, -0.6139153783803013}, {
      1.434817594990224, -0.565182405009776}, {
      1.487678206087152, -0.5123217939128479}, {
      1.537013393685993, -0.4629866063140069}, {
      1.590476219011237, -0.4095237809887631}, {
      1.642964641246557, -0.35703535875344294`}, {
      1.6919276399837901`, -0.30807236001620986`}, {
      1.745018276447426, -0.254981723552574}, {
      1.7945834894129749`, -0.20541651058702515`}, {
      1.8431742992886, -0.1568257007114}, {
      1.895892746890628, -0.10410725310937208`}, {
      1.9450857709945688`, -0.05491422900543119}, {
      1.9984064328249125`, -0.001593567175087518}, {
      1.9999999489795919`, -5.102040812055009*^-8}}]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{-0.4999999489795918, 1.4999999489795919`}, {-0.450928346996174,
       1.450928346996174}, {-0.3977291072863534, 
      1.3977291072863534`}, {-0.3480552910746198, 
      1.3480552910746197`}, {-0.29935587795280993`, 
      1.2993558779528098`}, {-0.24652882710459725`, 
      1.2465288271045973`}, {-0.1972271997544716, 
      1.1972271997544717`}, {-0.1437979346779431, 
      1.1437979346779432`}, {-0.09134307269133837, 
      1.0913430726913385`}, {-0.04241363420282065, 1.0424136342028207`}, {
      0.010643442012099874`, 0.9893565579879001}, {0.06017509472893339, 
      0.9398249052710667}, {0.10873234435584318`, 0.8912676556441568}, {
      0.16141723170915576`, 0.8385827682908442}, {0.21057669556438133`, 
      0.7894233044356187}, {0.2638637971460097, 0.7361362028539903}, {
      0.3161764956377143, 0.6838235043622857}, {0.36496377063133195`, 
      0.635036229368668}, {0.41787868335135236`, 0.5821213166486476}, {
      0.4672681725732858, 0.5327318274267142}, {0.520785299521622, 
      0.479214700478378}, {0.5733280233800344, 0.4266719766199656}, {
      0.6223453237403598, 0.3776546762596402}, {0.6754902618270879, 
      0.32450973817291207`}, {0.7251097764157292, 0.27489022358427084`}, {
      0.7737548879144467, 0.2262451120855533}, {0.8265276371395669, 
      0.1734723628604331}, {0.8757749628666002, 0.12422503713339983`}, {
      0.9291499263200363, 0.07085007367996365}, {0.9815504866835487, 
      0.018449513316451283`}, {1.030425623548974, -0.030425623548973935`}, {
      1.083428398140802, -0.08342839814080194}, {
      1.1329057492345431`, -0.13290574923454312`}, {
      1.1814086972383604`, -0.1814086972383604}, {
      1.2340392829685805`, -0.23403928296858045`}, {
      1.2831444452007137`, -0.2831444452007137}, {
      1.3363772451592497`, -0.3363772451592497}, {
      1.3860846216196987`, -0.3860846216196987}, {
      1.434817594990224, -0.434817594990224}, {
      1.487678206087152, -0.48767820608715207`}, {
      1.537013393685993, -0.5370133936859931}, {
      1.590476219011237, -0.5904762190112369}, {
      1.642964641246557, -0.6429646412465571}, {
      1.6919276399837901`, -0.6919276399837901}, {
      1.745018276447426, -0.745018276447426}, {
      1.7945834894129749`, -0.7945834894129749}, {
      1.8431742992886, -0.8431742992886}, {
      1.895892746890628, -0.8958927468906279}, {
      1.9450857709945688`, -0.9450857709945688}, {
      1.9984064328249125`, -0.9984064328249125}, {
      1.9999999489795919`, -0.9999999489795919}}]}}, {
    LineBox[{{1.4330127018922194`, -0.5669872981077806}, {
     1.4820508075688772`, -0.4820508075688773}}], 
    LineBox[{{1.0232050807568873`, -0.9767949192431127}, {
     1.3722431864335456`, -0.3722431864335456}}], 
    LineBox[{{0.8964101615137754, -0.8964101615137754}, {
     1.262435565298214, -0.26243556529821405`}}], 
    LineBox[{{0.7866025403784438, -0.7866025403784438}, {
     0.9232050807568877, -0.55}}], 
    LineBox[{{0.9500000000000001, -0.5035898384862243}, {
     1.1526279441628824`, -0.15262794416288247`}}], 
    LineBox[{{0.6767949192431122, -0.6767949192431123}, {0.75, -0.55}}], 
    LineBox[{{0.9232050807568877, -0.25}, {
     1.0428203230275508`, -0.0428203230275509}}], 
    LineBox[{{0.5669872981077807, -0.5669872981077806}, {
     0.65, -0.4232050807568877}}], 
    LineBox[{{0.75, -0.25}, {0.9330127018922193, 0.06698729810778065}}], 
    LineBox[{{0.4571796769724491, -0.4571796769724491}, {0.8232050807568878, 
     0.1767949192431123}}], 
    LineBox[{{0.3473720558371175, -0.3473720558371175}, {0.7133974596215561, 
     0.2866025403784438}}], 
    LineBox[{{0.23756443470178595`, -0.23756443470178595`}, {
     0.6035898384862246, 0.39641016151377534`}}], 
    LineBox[{{0.12775681356645435`, -0.12775681356645432`}, {
     0.47679491924311246`, 0.4767949192431124}}], 
    LineBox[{{0.017949192431122696`, -0.017949192431122696`}, {
     0.06698729810778063, 0.06698729810778063}}]}},
  AspectRatio->Automatic,
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-0.5, 2.}, {-1.5, 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "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.410567674515625*^9, {
   3.41056771290625*^9, 3.410567739796875*^9}, 3.410567850046875*^9, 
   3.410585360546875*^9, 3.410585456171875*^9, 3.4118006745625*^9, {
   3.411800725125*^9, 3.41180074571875*^9}, {3.41180086665625*^9, 
   3.411800896796875*^9}, {3.411800969828125*^9, 3.411801015484375*^9}, {
   3.41180104671875*^9, 3.411801099359375*^9}, {3.411801147828125*^9, 
   3.411801153109375*^9}, 3.4118011870625*^9, {3.411801244640625*^9, 
   3.411801288890625*^9}, 3.41180136903125*^9, 3.411801611296875*^9, 
   3.411801660484375*^9, {3.4118495200625*^9, 3.411849536578125*^9}, {
   3.411850414234375*^9, 3.41185044953125*^9}, 3.411850527671875*^9, 
   3.4120364493125*^9, 3.4120365235*^9, 3.4120365575*^9, 3.412036625625*^9, {
   3.412036693953125*^9, 3.412036709421875*^9}, {3.412036754421875*^9, 
   3.412036782265625*^9}, {3.412036844890625*^9, 3.41203685084375*^9}, {
   3.412036967765625*^9, 3.412037028265625*^9}, {3.4120371125*^9, 
   3.41203726253125*^9}, {3.412037317140625*^9, 3.412037410921875*^9}, 
   3.412037444515625*^9, {3.412037483390625*^9, 3.412037528578125*^9}, {
   3.4120375966875*^9, 3.4120376665625*^9}, 3.412037705796875*^9, {
   3.412037750015625*^9, 3.412037766140625*^9}, {3.41203790415625*^9, 
   3.412037924484375*^9}, 3.4122877045625*^9, 3.412287742296875*^9, {
   3.412287853046875*^9, 3.4122878908125*^9}, {3.412288080046875*^9, 
   3.41228811759375*^9}, {3.41228815965625*^9, 3.412288184390625*^9}, 
   3.412288499390625*^9, 3.412288531296875*^9, 3.4122989436875*^9, 
   3.41230553409375*^9, 3.41230587478125*^9, 3.412310357890625*^9, 
   3.41282730021875*^9, 3.4128280123125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"openfile", "[", "\"\<fig1.tex\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"openpicture", "[", "\"\<24/12cm\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", 
   RowBox[{"g1", ",", "g2", ",", "g3", ",", "g4"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", 
   RowBox[{"pd1", ",", "0.5"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"expr", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1.3", ",", 
      RowBox[{"-", "1.3"}]}], "}"}], ",", "\"\<e2\>\"", ",", "\"\<y=-x\>\"", 
    ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", "\"\<e\>\"", ",", "\"\<y=-x+1\>\"", 
    ",", 
    RowBox[{"{", 
     RowBox[{"1.8", ",", 
      RowBox[{"-", "0.2"}]}], "}"}], ",", "\"\<e2\>\"", ",", "\"\<y=x-2\>\"", 
    ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}], ",", "\"\<s2e\>\"", ",", "\"\<y=x\>\"", 
    ",", 
    RowBox[{"{", 
     RowBox[{"0.8", ",", 
      RowBox[{"-", "0.4"}]}], "}"}], ",", "\"\<c\>\"", ",", "\"\<D\>\"", ",", 
    
    RowBox[{"{", 
     RowBox[{"1.5", ",", 
      RowBox[{"-", "1.5"}]}], "}"}], ",", "\"\<e2\>\"", ",", "\"\<X\>\"", ",",
     
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}], ",", "\"\<w2\>\"", ",", "\"\<Y\>\""}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"letter", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", "\"\<s2\>\"", ",", "\"\<P\>\"", ",", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], "/", "2"}], ",", "\"\<n2\>\"", ",", 
    "\"\<Q\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"setax", "[", 
   RowBox[{
   "\"\<a\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", 
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<sw4\>\""}], "]"}], 
  ";"}], "\[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.410567749109375*^9, 3.410567760171875*^9}, {
   3.41056779209375*^9, 3.410567847046875*^9}, {3.41058531684375*^9, 
   3.410585356859375*^9}, 3.410585459640625*^9, {3.411800670375*^9, 
   3.411800671625*^9}, {3.411801320015625*^9, 3.4118013286875*^9}, {
   3.4118013738125*^9, 3.411801492109375*^9}, {3.4118015539375*^9, 
   3.41180155453125*^9}, {3.4118019385*^9, 3.41180194034375*^9}, {
   3.411802605921875*^9, 3.411802643125*^9}, {3.41184955403125*^9, 
   3.411849631125*^9}, {3.411850536984375*^9, 3.411850672296875*^9}, {
   3.41185071853125*^9, 3.411850736359375*^9}, {3.412037773421875*^9, 
   3.412037829390625*^9}, {3.412037878046875*^9, 3.412037891734375*^9}, {
   3.412037927546875*^9, 3.412037950375*^9}, {3.412288198359375*^9, 
   3.412288355078125*^9}, {3.412288424546875*^9, 3.412288444703125*^9}, {
   3.41228851221875*^9, 3.412288515390625*^9}, {3.412288561078125*^9, 
   3.412288561390625*^9}, {3.412298952453125*^9, 3.41229897575*^9}, {
   3.4123054806875*^9, 3.4123055276875*^9}, 3.41230558840625*^9, {
   3.4123058774375*^9, 3.41230589665625*^9}, {3.4123103781875*^9, 
   3.412310410546875*^9}, {3.412310958828125*^9, 3.4123109589375*^9}, {
   3.412310990390625*^9, 3.412311022921875*^9}, {3.412827289234375*^9, 
   3.4128272916875*^9}, {3.412827403515625*^9, 3.412827403625*^9}, {
   3.41282798353125*^9, 3.412827986390625*^9}},
 FontSize->16],

Cell[BoxData["\<\"E:\\\\files\\\\kisarazu-national-college\\\\Ketpic\\\\\
examples\\\\1-10\"\>"], "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.410567761625*^9, {
   3.4105678374375*^9, 3.410567851015625*^9}, 3.410585361875*^9, 
   3.410585460140625*^9, 3.41180150578125*^9, 3.411801555046875*^9, 
   3.41180161253125*^9, 3.41180194121875*^9, {3.411802632375*^9, 
   3.411802643546875*^9}, 3.411849637046875*^9, 3.41185067284375*^9, 
   3.411850736921875*^9, 3.412037833578125*^9, {3.41203789278125*^9, 
   3.412037950890625*^9}, 3.412288356984375*^9, 3.412288445359375*^9, {
   3.412288515890625*^9, 3.412288562640625*^9}, {3.4122989536875*^9, 
   3.41229897625*^9}, {3.41230552821875*^9, 3.412305544984375*^9}, 
   3.412305588796875*^9, {3.41230588159375*^9, 3.412305897046875*^9}, 
   3.412310411296875*^9, 3.4123109596875*^9, {3.41231099115625*^9, 
   3.41231102359375*^9}, 3.412827307171875*^9, 3.412827404015625*^9, 
   3.412828012390625*^9, 3.412828069515625*^9}],

Cell[BoxData["\<\"fig1.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.410567761625*^9, {
   3.4105678374375*^9, 3.410567851015625*^9}, 3.410585361875*^9, 
   3.410585460140625*^9, 3.41180150578125*^9, 3.411801555046875*^9, 
   3.41180161253125*^9, 3.41180194121875*^9, {3.411802632375*^9, 
   3.411802643546875*^9}, 3.411849637046875*^9, 3.41185067284375*^9, 
   3.411850736921875*^9, 3.412037833578125*^9, {3.41203789278125*^9, 
   3.412037950890625*^9}, 3.412288356984375*^9, 3.412288445359375*^9, {
   3.412288515890625*^9, 3.412288562640625*^9}, {3.4122989536875*^9, 
   3.41229897625*^9}, {3.41230552821875*^9, 3.412305544984375*^9}, 
   3.412305588796875*^9, {3.41230588159375*^9, 3.412305897046875*^9}, 
   3.412310411296875*^9, 3.4123109596875*^9, {3.41231099115625*^9, 
   3.41231102359375*^9}, 3.412827307171875*^9, 3.412827404015625*^9, 
   3.412828012390625*^9, 3.412828069515625*^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.410567761625*^9, {
   3.4105678374375*^9, 3.410567851015625*^9}, 3.410585361875*^9, 
   3.410585460140625*^9, 3.41180150578125*^9, 3.411801555046875*^9, 
   3.41180161253125*^9, 3.41180194121875*^9, {3.411802632375*^9, 
   3.411802643546875*^9}, 3.411849637046875*^9, 3.41185067284375*^9, 
   3.411850736921875*^9, 3.412037833578125*^9, {3.41203789278125*^9, 
   3.412037950890625*^9}, 3.412288356984375*^9, 3.412288445359375*^9, {
   3.412288515890625*^9, 3.412288562640625*^9}, {3.4122989536875*^9, 
   3.41229897625*^9}, {3.41230552821875*^9, 3.412305544984375*^9}, 
   3.412305588796875*^9, {3.41230588159375*^9, 3.412305897046875*^9}, 
   3.412310411296875*^9, 3.4123109596875*^9, {3.41231099115625*^9, 
   3.41231102359375*^9}, 3.412827307171875*^9, 3.412827404015625*^9, 
   3.412828012390625*^9, 3.41282807475*^9}]
}, Open  ]]
},
WindowSize->{1016, 665},
WindowMargins->{{0, Automatic}, {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, 5585, 128, 379, "Input"],
Cell[6178, 153, 3506, 50, 42, "Output"],
Cell[9687, 205, 15356, 265, 372, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25080, 475, 4821, 101, 264, "Input"],
Cell[29904, 578, 1763, 26, 42, "Output"],
Cell[31670, 606, 1699, 25, 42, "Output"],
Cell[33372, 633, 1693, 25, 42, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)