(* 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[     27885,        609]
NotebookOptionsPosition[     27312,        585]
NotebookOutlinePosition[     27666,        601]
CellTagsIndexPosition[     27623,        598]
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]", 
 RowBox[{"Needs", "[", "\"\<VectorFieldPlots`\>\"", 
  "]"}], "\[IndentingNewLine]", "ThisVersion", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"setwindow", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"vf1", ":=", 
  RowBox[{"VectorFieldPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "y"}], ",", "x"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", 
      RowBox[{"-", "4"}], ",", " ", "4"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"y", ",", " ", 
      RowBox[{"-", "4"}], ",", " ", "4"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"windisp", "[", "vf1", "]"}]}], "Input",
 CellChangeTimes->{{3.4184403579375*^9, 3.418440370859375*^9}, {
  3.418441793140625*^9, 3.41844182746875*^9}, {3.420257952046875*^9, 
  3.420257974109375*^9}, {3.420258088328125*^9, 3.420258124171875*^9}, {
  3.42085138621875*^9, 3.420851387765625*^9}, {3.42085142465625*^9, 
  3.42085142796875*^9}}],

Cell[BoxData["\<\"v2.5.3a\"\>"], "Output",
 CellChangeTimes->{
  3.41844037721875*^9, 3.4184404536875*^9, 3.418441867953125*^9, {
   3.420258115109375*^9, 3.420258124734375*^9}, 3.420258195203125*^9, 
   3.420851428375*^9}],

Cell[BoxData[
 GraphicsBox[
  {Thickness[Small], Arrowheads[0.02], 
   ArrowBox[{{-4., -4.}, {-3.5959389821791157`, -4.404061017820884}}], 
   ArrowBox[{{-4., -3.4285714285714284`}, {-3.6536619847249563`, \
-3.8326324463923127`}}], 
   ArrowBox[{{-4., -2.857142857142857}, {-3.711384987270797, \
-3.2612038749637415`}}], 
   ArrowBox[{{-4., -2.2857142857142856`}, {-3.7691079898166375`, \
-2.68977530353517}}], 
   ArrowBox[{{-4., -1.7142857142857142`}, {-3.826830992362478, \
-2.1183467321065983`}}], 
   ArrowBox[{{-4., -1.1428571428571428`}, {-3.8845539949083188`, \
-1.5469181606780271`}}], 
   ArrowBox[{{-4., -0.5714285714285714}, {-3.9422769974541594`, \
-0.9754895892494556}}], ArrowBox[{{-4., 0.}, {-4., -0.4040610178208842}}], 
   ArrowBox[{{-4., 0.5714285714285714}, {-4.05772300254584, 
    0.16736755360768718`}}], 
   ArrowBox[{{-4., 1.1428571428571428`}, {-4.115446005091681, 
    0.7387961250362586}}], 
   ArrowBox[{{-4., 1.7142857142857142`}, {-4.173169007637521, 
    1.31022469646483}}], 
   ArrowBox[{{-4., 2.2857142857142856`}, {-4.2308920101833625`, 
    1.8816532678934013`}}], 
   ArrowBox[{{-4., 2.857142857142857}, {-4.288615012729203, 
    2.453081839321973}}], 
   ArrowBox[{{-4., 3.4285714285714284`}, {-4.346338015275044, 
    3.024510410750544}}], 
   ArrowBox[{{-4., 4.}, {-4.404061017820884, 3.5959389821791157`}}], 
   ArrowBox[{{-3.4285714285714284`, -4.}, {-3.024510410750544, \
-4.346338015275044}}], 
   ArrowBox[{{-3.4285714285714284`, -3.4285714285714284`}, \
{-3.0822334132963847`, -3.774909443846472}}], 
   ArrowBox[{{-3.4285714285714284`, -2.857142857142857}, \
{-3.1399564158422253`, -3.203480872417901}}], 
   ArrowBox[{{-3.4285714285714284`, -2.2857142857142856`}, \
{-3.197679418388066, -2.6320523009893293`}}], 
   ArrowBox[{{-3.4285714285714284`, -1.7142857142857142`}, \
{-3.2554024209339065`, -2.0606237295607577`}}], 
   ArrowBox[{{-3.4285714285714284`, -1.1428571428571428`}, \
{-3.313125423479747, -1.4891951581321865`}}], 
   ArrowBox[{{-3.4285714285714284`, -0.5714285714285714}, \
{-3.3708484260255878`, -0.917766586703615}}], 
   ArrowBox[{{-3.4285714285714284`, 
    0.}, {-3.4285714285714284`, -0.3463380152750436}}], 
   ArrowBox[{{-3.4285714285714284`, 0.5714285714285714}, {-3.486294431117269, 
    0.2250905561535278}}], 
   ArrowBox[{{-3.4285714285714284`, 
    1.1428571428571428`}, {-3.5440174336631096`, 0.7965191275820992}}], 
   ArrowBox[{{-3.4285714285714284`, 
    1.7142857142857142`}, {-3.6017404362089502`, 1.3679476990106707`}}], 
   ArrowBox[{{-3.4285714285714284`, 2.2857142857142856`}, {-3.659463438754791,
     1.9393762704392419`}}], 
   ArrowBox[{{-3.4285714285714284`, 2.857142857142857}, {-3.7171864413006315`,
     2.5108048418678135`}}], 
   ArrowBox[{{-3.4285714285714284`, 3.4285714285714284`}, {-3.774909443846472,
     3.0822334132963847`}}], 
   ArrowBox[{{-3.4285714285714284`, 4.}, {-3.8326324463923127`, 
    3.6536619847249563`}}], 
   ArrowBox[{{-2.857142857142857, -4.}, {-2.453081839321973, \
-4.288615012729203}}], 
   ArrowBox[{{-2.857142857142857, -3.4285714285714284`}, \
{-2.5108048418678135`, -3.7171864413006315`}}], 
   ArrowBox[{{-2.857142857142857, -2.857142857142857}, {-2.568527844413654, \
-3.1457578698720603`}}], 
   ArrowBox[{{-2.857142857142857, -2.2857142857142856`}, \
{-2.6262508469594947`, -2.5743292984434887`}}], 
   ArrowBox[{{-2.857142857142857, -1.7142857142857142`}, \
{-2.6839738495053354`, -2.002900727014917}}], 
   ArrowBox[{{-2.857142857142857, -1.1428571428571428`}, {-2.741696852051176, \
-1.4314721555863459`}}], 
   ArrowBox[{{-2.857142857142857, -0.5714285714285714}, \
{-2.7994198545970166`, -0.8600435841577745}}], 
   ArrowBox[{{-2.857142857142857, 
    0.}, {-2.857142857142857, -0.28861501272920304`}}], 
   ArrowBox[{{-2.857142857142857, 0.5714285714285714}, {-2.914865859688698, 
    0.28281355869936836`}}], 
   ArrowBox[{{-2.857142857142857, 1.1428571428571428`}, {-2.9725888622345384`,
     0.8542421301279397}}], 
   ArrowBox[{{-2.857142857142857, 1.7142857142857142`}, {-3.030311864780379, 
    1.425670701556511}}], 
   ArrowBox[{{-2.857142857142857, 2.2857142857142856`}, {-3.0880348673262197`,
     1.9970992729850825`}}], 
   ArrowBox[{{-2.857142857142857, 2.857142857142857}, {-3.1457578698720603`, 
    2.568527844413654}}], 
   ArrowBox[{{-2.857142857142857, 3.4285714285714284`}, {-3.203480872417901, 
    3.1399564158422253`}}], 
   ArrowBox[{{-2.857142857142857, 4.}, {-3.2612038749637415`, 
    3.711384987270797}}], 
   ArrowBox[{{-2.2857142857142856`, -4.}, {-1.8816532678934013`, \
-4.2308920101833625`}}], 
   ArrowBox[{{-2.2857142857142856`, -3.4285714285714284`}, \
{-1.9393762704392419`, -3.659463438754791}}], 
   ArrowBox[{{-2.2857142857142856`, -2.857142857142857}, \
{-1.9970992729850825`, -3.0880348673262197`}}], 
   ArrowBox[{{-2.2857142857142856`, -2.2857142857142856`}, \
{-2.054822275530923, -2.516606295897648}}], 
   ArrowBox[{{-2.2857142857142856`, -1.7142857142857142`}, \
{-2.1125452780767637`, -1.9451777244690767`}}], 
   ArrowBox[{{-2.2857142857142856`, -1.1428571428571428`}, \
{-2.1702682806226044`, -1.3737491530405053`}}], 
   ArrowBox[{{-2.2857142857142856`, -0.5714285714285714}, \
{-2.227991283168445, -0.8023205816119338}}], 
   ArrowBox[{{-2.2857142857142856`, 
    0.}, {-2.2857142857142856`, -0.2308920101833624}}], 
   ArrowBox[{{-2.2857142857142856`, 0.5714285714285714}, {-2.343437288260126, 
    0.34053656124520904`}}], 
   ArrowBox[{{-2.2857142857142856`, 1.1428571428571428`}, {-2.401160290805967,
     0.9119651326737804}}], 
   ArrowBox[{{-2.2857142857142856`, 
    1.7142857142857142`}, {-2.4588832933518074`, 1.4833937041023517`}}], 
   ArrowBox[{{-2.2857142857142856`, 2.2857142857142856`}, {-2.516606295897648,
     2.054822275530923}}], 
   ArrowBox[{{-2.2857142857142856`, 2.857142857142857}, {-2.5743292984434887`,
     2.6262508469594947`}}], 
   ArrowBox[{{-2.2857142857142856`, 
    3.4285714285714284`}, {-2.6320523009893293`, 3.197679418388066}}], 
   ArrowBox[{{-2.2857142857142856`, 4.}, {-2.68977530353517, 
    3.7691079898166375`}}], 
   ArrowBox[{{-1.7142857142857142`, -4.}, {-1.31022469646483, \
-4.173169007637521}}], 
   ArrowBox[{{-1.7142857142857142`, -3.4285714285714284`}, \
{-1.3679476990106707`, -3.6017404362089502`}}], 
   ArrowBox[{{-1.7142857142857142`, -2.857142857142857}, {-1.425670701556511, \
-3.030311864780379}}], 
   ArrowBox[{{-1.7142857142857142`, -2.2857142857142856`}, \
{-1.4833937041023517`, -2.4588832933518074`}}], 
   ArrowBox[{{-1.7142857142857142`, -1.7142857142857142`}, \
{-1.5411167066481923`, -1.887454721923236}}], 
   ArrowBox[{{-1.7142857142857142`, -1.1428571428571428`}, \
{-1.598839709194033, -1.3160261504946646`}}], 
   ArrowBox[{{-1.7142857142857142`, -0.5714285714285714}, \
{-1.6565627117398736`, -0.7445975790660933}}], 
   ArrowBox[{{-1.7142857142857142`, 
    0.}, {-1.7142857142857142`, -0.1731690076375218}}], 
   ArrowBox[{{-1.7142857142857142`, 
    0.5714285714285714}, {-1.7720087168315548`, 0.3982595637910496}}], 
   ArrowBox[{{-1.7142857142857142`, 
    1.1428571428571428`}, {-1.8297317193773954`, 0.9696881352196209}}], 
   ArrowBox[{{-1.7142857142857142`, 1.7142857142857142`}, {-1.887454721923236,
     1.5411167066481923`}}], 
   ArrowBox[{{-1.7142857142857142`, 
    2.2857142857142856`}, {-1.9451777244690767`, 2.1125452780767637`}}], 
   ArrowBox[{{-1.7142857142857142`, 2.857142857142857}, {-2.002900727014917, 
    2.6839738495053354`}}], 
   ArrowBox[{{-1.7142857142857142`, 
    3.4285714285714284`}, {-2.0606237295607577`, 3.2554024209339065`}}], 
   ArrowBox[{{-1.7142857142857142`, 4.}, {-2.1183467321065983`, 
    3.826830992362478}}], 
   ArrowBox[{{-1.1428571428571428`, -4.}, {-0.7387961250362586, \
-4.115446005091681}}], 
   ArrowBox[{{-1.1428571428571428`, -3.4285714285714284`}, \
{-0.7965191275820992, -3.5440174336631096`}}], 
   ArrowBox[{{-1.1428571428571428`, -2.857142857142857}, \
{-0.8542421301279397, -2.9725888622345384`}}], 
   ArrowBox[{{-1.1428571428571428`, -2.2857142857142856`}, \
{-0.9119651326737804, -2.401160290805967}}], 
   ArrowBox[{{-1.1428571428571428`, -1.7142857142857142`}, \
{-0.9696881352196209, -1.8297317193773954`}}], 
   ArrowBox[{{-1.1428571428571428`, -1.1428571428571428`}, \
{-1.0274111377654616`, -1.258303147948824}}], 
   ArrowBox[{{-1.1428571428571428`, -0.5714285714285714}, \
{-1.0851341403113022`, -0.6868745765202526}}], 
   ArrowBox[{{-1.1428571428571428`, 
    0.}, {-1.1428571428571428`, -0.1154460050916812}}], 
   ArrowBox[{{-1.1428571428571428`, 
    0.5714285714285714}, {-1.2005801454029834`, 0.4559825663368902}}], 
   ArrowBox[{{-1.1428571428571428`, 1.1428571428571428`}, {-1.258303147948824,
     1.0274111377654616`}}], 
   ArrowBox[{{-1.1428571428571428`, 
    1.7142857142857142`}, {-1.3160261504946646`, 1.598839709194033}}], 
   ArrowBox[{{-1.1428571428571428`, 
    2.2857142857142856`}, {-1.3737491530405053`, 2.1702682806226044`}}], 
   ArrowBox[{{-1.1428571428571428`, 2.857142857142857}, {-1.4314721555863459`,
     2.741696852051176}}], 
   ArrowBox[{{-1.1428571428571428`, 
    3.4285714285714284`}, {-1.4891951581321865`, 3.313125423479747}}], 
   ArrowBox[{{-1.1428571428571428`, 4.}, {-1.5469181606780271`, 
    3.8845539949083188`}}], 
   ArrowBox[{{-0.5714285714285714, -4.}, {-0.16736755360768718`, \
-4.05772300254584}}], 
   ArrowBox[{{-0.5714285714285714, -3.4285714285714284`}, \
{-0.2250905561535278, -3.486294431117269}}], 
   ArrowBox[{{-0.5714285714285714, -2.857142857142857}, \
{-0.28281355869936836`, -2.914865859688698}}], 
   ArrowBox[{{-0.5714285714285714, -2.2857142857142856`}, \
{-0.34053656124520904`, -2.343437288260126}}], 
   ArrowBox[{{-0.5714285714285714, -1.7142857142857142`}, \
{-0.3982595637910496, -1.7720087168315548`}}], 
   ArrowBox[{{-0.5714285714285714, -1.1428571428571428`}, \
{-0.4559825663368902, -1.2005801454029834`}}], 
   ArrowBox[{{-0.5714285714285714, -0.5714285714285714}, \
{-0.5137055688827308, -0.629151573974412}}], 
   ArrowBox[{{-0.5714285714285714, 
    0.}, {-0.5714285714285714, -0.0577230025458406}}], 
   ArrowBox[{{-0.5714285714285714, 0.5714285714285714}, {-0.629151573974412, 
    0.5137055688827308}}], 
   ArrowBox[{{-0.5714285714285714, 1.1428571428571428`}, {-0.6868745765202526,
     1.0851341403113022`}}], 
   ArrowBox[{{-0.5714285714285714, 1.7142857142857142`}, {-0.7445975790660933,
     1.6565627117398736`}}], 
   ArrowBox[{{-0.5714285714285714, 2.2857142857142856`}, {-0.8023205816119338,
     2.227991283168445}}], 
   ArrowBox[{{-0.5714285714285714, 2.857142857142857}, {-0.8600435841577745, 
    2.7994198545970166`}}], 
   ArrowBox[{{-0.5714285714285714, 3.4285714285714284`}, {-0.917766586703615, 
    3.3708484260255878`}}], 
   ArrowBox[{{-0.5714285714285714, 4.}, {-0.9754895892494556, 
    3.9422769974541594`}}], ArrowBox[{{0., -4.}, {0.4040610178208842, -4.}}], 
   ArrowBox[{{0., -3.4285714285714284`}, {
    0.3463380152750436, -3.4285714285714284`}}], 
   ArrowBox[{{0., -2.857142857142857}, {
    0.28861501272920304`, -2.857142857142857}}], 
   ArrowBox[{{0., -2.2857142857142856`}, {
    0.2308920101833624, -2.2857142857142856`}}], 
   ArrowBox[{{0., -1.7142857142857142`}, {
    0.1731690076375218, -1.7142857142857142`}}], 
   ArrowBox[{{0., -1.1428571428571428`}, {
    0.1154460050916812, -1.1428571428571428`}}], 
   ArrowBox[{{0., -0.5714285714285714}, {
    0.0577230025458406, -0.5714285714285714}}], PointBox[{0., 0.}], 
   ArrowBox[{{0., 0.5714285714285714}, {-0.0577230025458406, 
    0.5714285714285714}}], 
   ArrowBox[{{0., 1.1428571428571428`}, {-0.1154460050916812, 
    1.1428571428571428`}}], 
   ArrowBox[{{0., 1.7142857142857142`}, {-0.1731690076375218, 
    1.7142857142857142`}}], 
   ArrowBox[{{0., 2.2857142857142856`}, {-0.2308920101833624, 
    2.2857142857142856`}}], 
   ArrowBox[{{0., 2.857142857142857}, {-0.28861501272920304`, 
    2.857142857142857}}], 
   ArrowBox[{{0., 3.4285714285714284`}, {-0.3463380152750436, 
    3.4285714285714284`}}], ArrowBox[{{0., 4.}, {-0.4040610178208842, 4.}}], 
   ArrowBox[{{0.5714285714285714, -4.}, {
    0.9754895892494556, -3.9422769974541594`}}], 
   ArrowBox[{{0.5714285714285714, -3.4285714285714284`}, {
    0.917766586703615, -3.3708484260255878`}}], 
   ArrowBox[{{0.5714285714285714, -2.857142857142857}, {
    0.8600435841577745, -2.7994198545970166`}}], 
   ArrowBox[{{0.5714285714285714, -2.2857142857142856`}, {
    0.8023205816119338, -2.227991283168445}}], 
   ArrowBox[{{0.5714285714285714, -1.7142857142857142`}, {
    0.7445975790660933, -1.6565627117398736`}}], 
   ArrowBox[{{0.5714285714285714, -1.1428571428571428`}, {
    0.6868745765202526, -1.0851341403113022`}}], 
   ArrowBox[{{0.5714285714285714, -0.5714285714285714}, {
    0.629151573974412, -0.5137055688827308}}], 
   ArrowBox[{{0.5714285714285714, 0.}, {0.5714285714285714, 
    0.0577230025458406}}], 
   ArrowBox[{{0.5714285714285714, 0.5714285714285714}, {0.5137055688827308, 
    0.629151573974412}}], 
   ArrowBox[{{0.5714285714285714, 1.1428571428571428`}, {0.4559825663368902, 
    1.2005801454029834`}}], 
   ArrowBox[{{0.5714285714285714, 1.7142857142857142`}, {0.3982595637910496, 
    1.7720087168315548`}}], 
   ArrowBox[{{0.5714285714285714, 2.2857142857142856`}, {0.34053656124520904`,
     2.343437288260126}}], 
   ArrowBox[{{0.5714285714285714, 2.857142857142857}, {0.28281355869936836`, 
    2.914865859688698}}], 
   ArrowBox[{{0.5714285714285714, 3.4285714285714284`}, {0.2250905561535278, 
    3.486294431117269}}], 
   ArrowBox[{{0.5714285714285714, 4.}, {0.16736755360768718`, 
    4.05772300254584}}], 
   ArrowBox[{{1.1428571428571428`, -4.}, {
    1.5469181606780271`, -3.8845539949083188`}}], 
   ArrowBox[{{1.1428571428571428`, -3.4285714285714284`}, {
    1.4891951581321865`, -3.313125423479747}}], 
   ArrowBox[{{1.1428571428571428`, -2.857142857142857}, {
    1.4314721555863459`, -2.741696852051176}}], 
   ArrowBox[{{1.1428571428571428`, -2.2857142857142856`}, {
    1.3737491530405053`, -2.1702682806226044`}}], 
   ArrowBox[{{1.1428571428571428`, -1.7142857142857142`}, {
    1.3160261504946646`, -1.598839709194033}}], 
   ArrowBox[{{1.1428571428571428`, -1.1428571428571428`}, {
    1.258303147948824, -1.0274111377654616`}}], 
   ArrowBox[{{1.1428571428571428`, -0.5714285714285714}, {
    1.2005801454029834`, -0.4559825663368902}}], 
   ArrowBox[{{1.1428571428571428`, 0.}, {1.1428571428571428`, 
    0.1154460050916812}}], 
   ArrowBox[{{1.1428571428571428`, 0.5714285714285714}, {1.0851341403113022`, 
    0.6868745765202526}}], 
   ArrowBox[{{1.1428571428571428`, 1.1428571428571428`}, {1.0274111377654616`,
     1.258303147948824}}], 
   ArrowBox[{{1.1428571428571428`, 1.7142857142857142`}, {0.9696881352196209, 
    1.8297317193773954`}}], 
   ArrowBox[{{1.1428571428571428`, 2.2857142857142856`}, {0.9119651326737804, 
    2.401160290805967}}], 
   ArrowBox[{{1.1428571428571428`, 2.857142857142857}, {0.8542421301279397, 
    2.9725888622345384`}}], 
   ArrowBox[{{1.1428571428571428`, 3.4285714285714284`}, {0.7965191275820992, 
    3.5440174336631096`}}], 
   ArrowBox[{{1.1428571428571428`, 4.}, {0.7387961250362586, 
    4.115446005091681}}], 
   ArrowBox[{{1.7142857142857142`, -4.}, {
    2.1183467321065983`, -3.826830992362478}}], 
   ArrowBox[{{1.7142857142857142`, -3.4285714285714284`}, {
    2.0606237295607577`, -3.2554024209339065`}}], 
   ArrowBox[{{1.7142857142857142`, -2.857142857142857}, {
    2.002900727014917, -2.6839738495053354`}}], 
   ArrowBox[{{1.7142857142857142`, -2.2857142857142856`}, {
    1.9451777244690767`, -2.1125452780767637`}}], 
   ArrowBox[{{1.7142857142857142`, -1.7142857142857142`}, {
    1.887454721923236, -1.5411167066481923`}}], 
   ArrowBox[{{1.7142857142857142`, -1.1428571428571428`}, {
    1.8297317193773954`, -0.9696881352196209}}], 
   ArrowBox[{{1.7142857142857142`, -0.5714285714285714}, {
    1.7720087168315548`, -0.3982595637910496}}], 
   ArrowBox[{{1.7142857142857142`, 0.}, {1.7142857142857142`, 
    0.1731690076375218}}], 
   ArrowBox[{{1.7142857142857142`, 0.5714285714285714}, {1.6565627117398736`, 
    0.7445975790660933}}], 
   ArrowBox[{{1.7142857142857142`, 1.1428571428571428`}, {1.598839709194033, 
    1.3160261504946646`}}], 
   ArrowBox[{{1.7142857142857142`, 1.7142857142857142`}, {1.5411167066481923`,
     1.887454721923236}}], 
   ArrowBox[{{1.7142857142857142`, 2.2857142857142856`}, {1.4833937041023517`,
     2.4588832933518074`}}], 
   ArrowBox[{{1.7142857142857142`, 2.857142857142857}, {1.425670701556511, 
    3.030311864780379}}], 
   ArrowBox[{{1.7142857142857142`, 3.4285714285714284`}, {1.3679476990106707`,
     3.6017404362089502`}}], 
   ArrowBox[{{1.7142857142857142`, 4.}, {1.31022469646483, 
    4.173169007637521}}], 
   ArrowBox[{{2.2857142857142856`, -4.}, {
    2.68977530353517, -3.7691079898166375`}}], 
   ArrowBox[{{2.2857142857142856`, -3.4285714285714284`}, {
    2.6320523009893293`, -3.197679418388066}}], 
   ArrowBox[{{2.2857142857142856`, -2.857142857142857}, {
    2.5743292984434887`, -2.6262508469594947`}}], 
   ArrowBox[{{2.2857142857142856`, -2.2857142857142856`}, {
    2.516606295897648, -2.054822275530923}}], 
   ArrowBox[{{2.2857142857142856`, -1.7142857142857142`}, {
    2.4588832933518074`, -1.4833937041023517`}}], 
   ArrowBox[{{2.2857142857142856`, -1.1428571428571428`}, {
    2.401160290805967, -0.9119651326737804}}], 
   ArrowBox[{{2.2857142857142856`, -0.5714285714285714}, {
    2.343437288260126, -0.34053656124520904`}}], 
   ArrowBox[{{2.2857142857142856`, 0.}, {2.2857142857142856`, 
    0.2308920101833624}}], 
   ArrowBox[{{2.2857142857142856`, 0.5714285714285714}, {2.227991283168445, 
    0.8023205816119338}}], 
   ArrowBox[{{2.2857142857142856`, 1.1428571428571428`}, {2.1702682806226044`,
     1.3737491530405053`}}], 
   ArrowBox[{{2.2857142857142856`, 1.7142857142857142`}, {2.1125452780767637`,
     1.9451777244690767`}}], 
   ArrowBox[{{2.2857142857142856`, 2.2857142857142856`}, {2.054822275530923, 
    2.516606295897648}}], 
   ArrowBox[{{2.2857142857142856`, 2.857142857142857}, {1.9970992729850825`, 
    3.0880348673262197`}}], 
   ArrowBox[{{2.2857142857142856`, 3.4285714285714284`}, {1.9393762704392419`,
     3.659463438754791}}], 
   ArrowBox[{{2.2857142857142856`, 4.}, {1.8816532678934013`, 
    4.2308920101833625`}}], 
   ArrowBox[{{2.857142857142857, -4.}, {
    3.2612038749637415`, -3.711384987270797}}], 
   ArrowBox[{{2.857142857142857, -3.4285714285714284`}, {
    3.203480872417901, -3.1399564158422253`}}], 
   ArrowBox[{{2.857142857142857, -2.857142857142857}, {
    3.1457578698720603`, -2.568527844413654}}], 
   ArrowBox[{{2.857142857142857, -2.2857142857142856`}, {
    3.0880348673262197`, -1.9970992729850825`}}], 
   ArrowBox[{{2.857142857142857, -1.7142857142857142`}, {
    3.030311864780379, -1.425670701556511}}], 
   ArrowBox[{{2.857142857142857, -1.1428571428571428`}, {
    2.9725888622345384`, -0.8542421301279397}}], 
   ArrowBox[{{2.857142857142857, -0.5714285714285714}, {
    2.914865859688698, -0.28281355869936836`}}], 
   ArrowBox[{{2.857142857142857, 0.}, {2.857142857142857, 
    0.28861501272920304`}}], 
   ArrowBox[{{2.857142857142857, 0.5714285714285714}, {2.7994198545970166`, 
    0.8600435841577745}}], 
   ArrowBox[{{2.857142857142857, 1.1428571428571428`}, {2.741696852051176, 
    1.4314721555863459`}}], 
   ArrowBox[{{2.857142857142857, 1.7142857142857142`}, {2.6839738495053354`, 
    2.002900727014917}}], 
   ArrowBox[{{2.857142857142857, 2.2857142857142856`}, {2.6262508469594947`, 
    2.5743292984434887`}}], 
   ArrowBox[{{2.857142857142857, 2.857142857142857}, {2.568527844413654, 
    3.1457578698720603`}}], 
   ArrowBox[{{2.857142857142857, 3.4285714285714284`}, {2.5108048418678135`, 
    3.7171864413006315`}}], 
   ArrowBox[{{2.857142857142857, 4.}, {2.453081839321973, 
    4.288615012729203}}], 
   ArrowBox[{{3.4285714285714284`, -4.}, {
    3.8326324463923127`, -3.6536619847249563`}}], 
   ArrowBox[{{3.4285714285714284`, -3.4285714285714284`}, {
    3.774909443846472, -3.0822334132963847`}}], 
   ArrowBox[{{3.4285714285714284`, -2.857142857142857}, {
    3.7171864413006315`, -2.5108048418678135`}}], 
   ArrowBox[{{3.4285714285714284`, -2.2857142857142856`}, {
    3.659463438754791, -1.9393762704392419`}}], 
   ArrowBox[{{3.4285714285714284`, -1.7142857142857142`}, {
    3.6017404362089502`, -1.3679476990106707`}}], 
   ArrowBox[{{3.4285714285714284`, -1.1428571428571428`}, {
    3.5440174336631096`, -0.7965191275820992}}], 
   ArrowBox[{{3.4285714285714284`, -0.5714285714285714}, {
    3.486294431117269, -0.2250905561535278}}], 
   ArrowBox[{{3.4285714285714284`, 0.}, {3.4285714285714284`, 
    0.3463380152750436}}], 
   ArrowBox[{{3.4285714285714284`, 0.5714285714285714}, {3.3708484260255878`, 
    0.917766586703615}}], 
   ArrowBox[{{3.4285714285714284`, 1.1428571428571428`}, {3.313125423479747, 
    1.4891951581321865`}}], 
   ArrowBox[{{3.4285714285714284`, 1.7142857142857142`}, {3.2554024209339065`,
     2.0606237295607577`}}], 
   ArrowBox[{{3.4285714285714284`, 2.2857142857142856`}, {3.197679418388066, 
    2.6320523009893293`}}], 
   ArrowBox[{{3.4285714285714284`, 2.857142857142857}, {3.1399564158422253`, 
    3.203480872417901}}], 
   ArrowBox[{{3.4285714285714284`, 3.4285714285714284`}, {3.0822334132963847`,
     3.774909443846472}}], 
   ArrowBox[{{3.4285714285714284`, 4.}, {3.024510410750544, 
    4.346338015275044}}], 
   ArrowBox[{{4., -4.}, {4.404061017820884, -3.5959389821791157`}}], 
   ArrowBox[{{4., -3.4285714285714284`}, {
    4.346338015275044, -3.024510410750544}}], 
   ArrowBox[{{4., -2.857142857142857}, {
    4.288615012729203, -2.453081839321973}}], 
   ArrowBox[{{4., -2.2857142857142856`}, {
    4.2308920101833625`, -1.8816532678934013`}}], 
   ArrowBox[{{4., -1.7142857142857142`}, {
    4.173169007637521, -1.31022469646483}}], 
   ArrowBox[{{4., -1.1428571428571428`}, {
    4.115446005091681, -0.7387961250362586}}], 
   ArrowBox[{{4., -0.5714285714285714}, {
    4.05772300254584, -0.16736755360768718`}}], 
   ArrowBox[{{4., 0.}, {4., 0.4040610178208842}}], 
   ArrowBox[{{4., 0.5714285714285714}, {3.9422769974541594`, 
    0.9754895892494556}}], 
   ArrowBox[{{4., 1.1428571428571428`}, {3.8845539949083188`, 
    1.5469181606780271`}}], 
   ArrowBox[{{4., 1.7142857142857142`}, {3.826830992362478, 
    2.1183467321065983`}}], 
   ArrowBox[{{4., 2.2857142857142856`}, {3.7691079898166375`, 
    2.68977530353517}}], 
   ArrowBox[{{4., 2.857142857142857}, {3.711384987270797, 
    3.2612038749637415`}}], 
   ArrowBox[{{4., 3.4285714285714284`}, {3.6536619847249563`, 
    3.8326324463923127`}}], 
   ArrowBox[{{4., 4.}, {3.5959389821791157`, 4.404061017820884}}]},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->True,
  AxesLabel->None,
  AxesOrigin->{0, 0},
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  DisplayFunction:>$DisplayFunction,
  Epilog->{},
  FormatType:>TraditionalForm,
  Frame->False,
  FrameLabel->None,
  FrameStyle->{},
  FrameTicks->Automatic,
  FrameTicksStyle->{},
  GridLines->None,
  GridLinesStyle->{},
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Automatic,
  LabelStyle->{},
  Method->Automatic,
  PlotLabel->None,
  PlotRange->{{-4., 4.}, {-4., 4.}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotateLabel->True,
  Ticks->Automatic,
  TicksStyle->{}]], "Output",
 CellChangeTimes->{
  3.41844037721875*^9, 3.4184404536875*^9, 3.418441867953125*^9, {
   3.420258115109375*^9, 3.420258124734375*^9}, 3.420258195203125*^9, 
   3.4208514286875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"openfile", "[", "\"\<fig39.tex\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"openpicture", "[", "\"\<10/12cm\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", "vf1", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"closepicture", "[", "1", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"closefile", "[", "]"}], "            "}]}], "Input",
 CellChangeTimes->{{3.41844038171875*^9, 3.418440381984375*^9}, {
  3.418440464265625*^9, 3.418440466546875*^9}, {3.420257976234375*^9, 
  3.420257980109375*^9}, {3.4202581364375*^9, 3.42025813971875*^9}, {
  3.420851405296875*^9, 3.42085143234375*^9}}],

Cell[BoxData["\<\"E:\\\\files\\\\kisarazu-national-college\\\\KETpic\\\\\
examples\\\\31-40\"\>"], "Output",
 CellChangeTimes->{
  3.418440467234375*^9, 3.4184418686875*^9, 3.420258140015625*^9, 
   3.420258196125*^9, {3.42085140890625*^9, 3.420851432828125*^9}}],

Cell[BoxData["\<\"fig39.tex\"\>"], "Output",
 CellChangeTimes->{
  3.418440467234375*^9, 3.4184418686875*^9, 3.420258140015625*^9, 
   3.420258196125*^9, {3.42085140890625*^9, 3.42085143284375*^9}}],

Cell[BoxData["\<\"stdout\"\>"], "Output",
 CellChangeTimes->{
  3.418440467234375*^9, 3.4184418686875*^9, 3.420258140015625*^9, 
   3.420258196125*^9, {3.42085140890625*^9, 3.420851434140625*^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, 1327, 35, 247, "Input"],
Cell[1920, 60, 223, 4, 42, "Output"],
Cell[2146, 66, 23657, 479, 379, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25840, 550, 790, 16, 213, "Input"],
Cell[26633, 568, 263, 4, 42, "Output"],
Cell[26899, 574, 198, 3, 42, "Output"],
Cell[27100, 579, 196, 3, 42, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)