(* 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[     24243,        473]
NotebookOptionsPosition[     23659,        449]
NotebookOutlinePosition[     24013,        465]
CellTagsIndexPosition[     23970,        462]
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[{"-", "2"}], ",", "8"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1.5"}], ",", "5.5"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g1", ":=", 
   RowBox[{"parametricplotdata", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"t", "^", "2"}], "/", "4"}], ",", "t"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "YMIN", ",", "YMAX"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g2", ":=", 
   RowBox[{"plotdata", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "/", "2"}], "+", "2"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "XMIN", ",", "XMAX"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g3", ":=", 
   RowBox[{"plotdata", "[", 
    RowBox[{"4", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "XMIN", ",", "XMAX"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"pP", ":=", 
  RowBox[{"{", 
   RowBox[{"4", ",", "4"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"pH", ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"-", "1"}], ",", "4"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"pF", ":=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"PF", ":=", 
  RowBox[{"listplotdata", "[", 
   RowBox[{"{", 
    RowBox[{"pP", ",", "pF"}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"FH", ":=", 
  RowBox[{"listplotdata", "[", 
   RowBox[{"{", 
    RowBox[{"pF", ",", "pH"}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"a", ":=", "0.3"}], "\[IndentingNewLine]", 
 RowBox[{"sq1", ":=", 
  RowBox[{"listplotdata", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "a"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "a"}], "}"}]}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"sq2", ":=", 
  RowBox[{"rotatedata", "[", 
   RowBox[{"sq1", ",", 
    RowBox[{"ArcTan", "[", 
     RowBox[{"-", "2"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"sq3", ":=", 
  RowBox[{"translatedata", "[", 
   RowBox[{"sq2", ",", "0", ",", "2"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"windisp", "[", 
  RowBox[{"g1", ",", "g2", ",", "g3", ",", "PF", ",", "FH", ",", "sq3"}], 
  "]"}]}], "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}},
 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.412828352421875*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{0.5625, -1.5}, {0.46416935919241187`, -1.3625995144464302`}, {
      0.3682315095630605, -1.2136416432589325`}, {
      0.28866708936864244`, -1.0745549578660785`}, {
      0.22005321559063065`, -0.9381966011250108}, {
      0.1561359589266654, -0.7902808587500153}, {
      0.10635304846698909`, -0.6522363021696633}, {
      0.06316032495193954, -0.5026343599553836}, {
      0.03164142716850662, -0.3557607463928904}, {
      0.011963800491913715`, -0.21875831862504078`}, {
      0.0012319575338951324`, -0.07019850522326333}, {0.00117272421603939, 
      0.0684901223838705}, {0.010449993696445928`, 0.20445042133921787`}, {
      0.030970386897722732`, 0.3519681059284931}, {0.05993061528954541, 
      0.4896146047231247}, {0.10202226552051007`, 0.638818489151684}, {
      0.15417168425002437`, 0.785294044928457}, {0.21247417185366294`, 
      0.9218984149105864}, {0.28625719213687734`, 1.0700601705266435`}, {
      0.3650278779249243, 1.208350740348057}, {0.46117592432051296`, 
      1.3581986958033982`}, {0.5664958130940527, 1.505318322606953}, {
      0.6745063932338736, 1.6425667636158643`}, {0.8022539392825442, 
      1.7913725902587034`}, {0.9315215016158958, 1.930307231106899}, {
      1.067619556163998, 2.0665135433033077`}, {1.2257559251506063`, 
      2.2142772411336447`}, {1.383175636931176, 2.352169753169338}, {
      1.5645252193659087`, 2.501619650838959}, {1.7534278041981421`, 
      2.6483412198567935`}, {1.9393230664668133`, 2.7851916030799844`}, {
      2.1515013187574414`, 2.933599371937103}, {2.359504831500292, 
      3.072135954999578}, {2.5727265126722156`, 3.207944209410267}, {
      2.814526046462238, 3.3553098494548834`}, {3.0499204759947918`, 
      3.4928043037048564`}, {3.3157790426487934`, 3.641856143588757}, {
      3.574059816348803, 3.781036797678014}, {3.8366802574320324`, 
      3.9174891231154847`}, {4.132070192693728, 4.065498834186884}, {
      4.417641762469609, 4.203637359463639}, {4.737877640736998, 
      4.353333270374322}, {5.063176941052818, 4.500300852633218}, {
      5.376363311484199, 4.6373972490974715`}, {5.7265711183022425`, 
      4.786051031195653}, {6.063496564636708, 4.92483362749919}, {
      6.40314657182133, 5.060887895150941}, {6.782116886516117, 
      5.208499548436619}, {7.1455705769765325`, 5.346240015927655}, {
      7.550234117547845, 5.495537869052617}, {7.5625, 5.5}}]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{-1.9999997959183673`, 
      1.0000001020408162`}, {-1.803713387984696, 
      1.098143306007652}, {-1.5909164291454136`, 
      1.2045417854272933`}, {-1.3922211642984792`, 
      1.3038894178507605`}, {-1.1974235118112397`, 
      1.4012882440943801`}, {-0.986115308418389, 
      1.5069423457908055`}, {-0.7889087990178864, 
      1.6055456004910569`}, {-0.5751917387117724, 
      1.7124041306441138`}, {-0.3653722907653535, 
      1.8173138546173233`}, {-0.1696545368112826, 1.9151727315943587`}, {
      0.0425737680483995, 2.0212868840241995`}, {0.24070037891573356`, 
      2.120350189457867}, {0.43492937742337273`, 2.2174646887116864`}, {
      0.645668926836623, 2.3228344634183116`}, {0.8423067822575253, 
      2.4211533911287626`}, {1.0554551885840389`, 2.5277275942920197`}, {
      1.2647059825508573`, 2.632352991275429}, {1.4598550825253278`, 
      2.729927541262664}, {1.6715147334054095`, 2.8357573667027047`}, {
      1.8690726902931432`, 2.9345363451465714`}, {2.083141198086488, 
      3.041570599043244}, {2.2933120935201377`, 3.146656046760069}, {
      2.489381294961439, 3.2446906474807196`}, {2.7019610473083517`, 
      3.350980523654176}, {2.9004391056629166`, 3.4502195528314585`}, {
      3.0950195516577867`, 3.5475097758288934`}, {3.3061105485582676`, 
      3.653055274279134}, {3.5030998514664007`, 3.7515499257332}, {
      3.7165997052801454`, 3.858299852640073}, {3.926201946734195, 
      3.9631009733670974`}, {4.121702494195896, 4.060851247097948}, {
      4.333713592563208, 4.166856796281603}, {4.5316229969381725`, 
      4.265811498469086}, {4.725634788953442, 4.362817394476721}, {
      4.936157131874322, 4.4680785659371605`}, {5.132577780802855, 
      4.566288890401427}, {5.345508980636999, 4.6727544903185}, {
      5.544338486478795, 4.772169243239397}, {5.739270379960896, 
      4.869635189980448}, {5.950712824348608, 4.975356412174304}, {
      6.148053574743972, 5.074026787371986}, {6.361904876044948, 
      5.180952438022474}, {6.571858564986228, 5.285929282493115}, {
      6.767710559935161, 5.38385527996758}, {6.980073105789704, 
      5.490036552894852}, {7.178333957651899, 5.58916697882595}, {
      7.3726971971544, 5.6863485985772}, {7.583570987562512, 
      5.791785493781256}, {7.780343083978275, 5.890171541989138}, {
      7.99362573129965, 5.996812865649825}, {7.9999997959183675`, 
      5.999999897959183}}]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{-1.9999997959183673`, 4.}, {-1.803713387984696, 
      4.}, {-1.5909164291454136`, 4.}, {-1.3922211642984792`, 
      4.}, {-1.1974235118112397`, 4.}, {-0.986115308418389, 
      4.}, {-0.7889087990178864, 4.}, {-0.5751917387117724, 
      4.}, {-0.3653722907653535, 4.}, {-0.1696545368112826, 4.}, {
      0.0425737680483995, 4.}, {0.24070037891573356`, 4.}, {
      0.43492937742337273`, 4.}, {0.645668926836623, 4.}, {0.8423067822575253,
       4.}, {1.0554551885840389`, 4.}, {1.2647059825508573`, 4.}, {
      1.4598550825253278`, 4.}, {1.6715147334054095`, 4.}, {
      1.8690726902931432`, 4.}, {2.083141198086488, 4.}, {2.2933120935201377`,
       4.}, {2.489381294961439, 4.}, {2.7019610473083517`, 4.}, {
      2.9004391056629166`, 4.}, {3.0950195516577867`, 4.}, {
      3.3061105485582676`, 4.}, {3.5030998514664007`, 4.}, {
      3.7165997052801454`, 4.}, {3.926201946734195, 4.}, {4.121702494195896, 
      4.}, {4.333713592563208, 4.}, {4.5316229969381725`, 4.}, {
      4.725634788953442, 4.}, {4.936157131874322, 4.}, {5.132577780802855, 
      4.}, {5.345508980636999, 4.}, {5.544338486478795, 4.}, {
      5.739270379960896, 4.}, {5.950712824348608, 4.}, {6.148053574743972, 
      4.}, {6.361904876044948, 4.}, {6.571858564986228, 4.}, {
      6.767710559935161, 4.}, {6.980073105789704, 4.}, {7.178333957651899, 
      4.}, {7.3726971971544, 4.}, {7.583570987562512, 4.}, {7.780343083978275,
       4.}, {7.99362573129965, 4.}, {7.9999997959183675`, 4.}}]}}, 
   LineBox[{{4., 4.}, {1., 0.}}], LineBox[{{1., 0.}, {-1., 4.}}], 
   LineBox[{{0.13416407864998736`, 1.7316718427000253`}, {0.4024922359499621, 
    1.8658359213500126`}, {0.2683281572999747, 2.134164078649987}}]},
  AspectRatio->Automatic,
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2., 8.}, {-1.5, 5.5}},
  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.412828352484375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"openfile", "[", "\"\<fig5.tex\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"openpicture", "[", "\"\<10/12cm\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", "g1", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", 
   RowBox[{"g2", ",", "g3", ",", "PF", ",", "FH", ",", "sq3", ",", "0.7"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"setpt", "[", "2", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwpt", "[", 
   RowBox[{"pF", ",", "pH", ",", "pP"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"expr", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", "\"\<w2\>\"", ",", 
    "\"\<\\\\ell\>\"", ",", "pH", ",", "\"\<nw\>\"", ",", 
    "\"\<\\\\text{H}\>\"", ",", "\[IndentingNewLine]", "pP", ",", 
    "\"\<se\>\"", ",", "\"\<\\\\text{P}(4,4)\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"htickmark", "[", 
   RowBox[{"pF", ",", "\"\<s\>\"", ",", "\"\<\\\\text{F}\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"setax", "[", "\"\<a\>\"", "]"}], ";"}], "\[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.412828348*^9, 
   3.412828349734375*^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.412828354109375*^9}],

Cell[BoxData["\<\"fig5.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.412828354109375*^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.412828354234375*^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, 4569, 110, 402, "Input"],
Cell[5162, 135, 2446, 35, 42, "Output"],
Cell[7611, 172, 9250, 146, 267, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16898, 323, 3251, 65, 310, "Input"],
Cell[20152, 390, 1205, 18, 77, "Output"],
Cell[21360, 410, 1141, 17, 42, "Output"],
Cell[22504, 429, 1139, 17, 42, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)