(* 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[     24290,        467]
NotebookOptionsPosition[     23707,        443]
NotebookOutlinePosition[     24061,        459]
CellTagsIndexPosition[     24018,        456]
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[{"-", "1"}], ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1.5"}], ",", "4.5"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g1", ":=", 
   RowBox[{"implicitplotdata", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"4", "x"}], "+", 
      RowBox[{"3", "y"}], "-", "12"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "XMIN", ",", "XMAX"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "YMIN", ",", "YMAX"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"box1", ":=", 
  RowBox[{"framedata", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.5"}], ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.5"}], ",", "0"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"pd1", ":=", 
  RowBox[{"hatchdata", "[", 
   RowBox[{"\"\<io\>\"", ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"g1", ",", "\"\<w\>\""}], "}"}], ",", 
    RowBox[{"{", "box1", "}"}], ",", "45", ",", "2"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"windisp", "[", 
  RowBox[{"g1", ",", "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.41185113571875*^9, 3.411851181859375*^9}, {
   3.411851385640625*^9, 3.41185147675*^9}, {3.411851522078125*^9, 
   3.411851567125*^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.41185114684375*^9, 3.411851182203125*^9}, {3.41185141096875*^9, 
   3.411851457921875*^9}, {3.411851550609375*^9, 3.4118515675*^9}, 
   3.411859273125*^9, 3.41186485921875*^9, 3.41230794375*^9, 
   3.412828531875*^9, 3.41282858715625*^9}],

Cell[BoxData[
 GraphicsBox[{LineBox[CompressedData["
1:eJwtVglUzVsXv/PtzjdCwvIi0zNl9jzsbegls6cyz/P00OPjGT4tL2QeUqaM
oR4eElLi4FWKNL1SFKUvaXbrNo/f/+zbXat1Wut/zj5779+wj/3Sjb+ukIhE
okfCH18tPyO6u/FfJXO9++r0yxcGHNpdmXP3TgW7Fjx68PsDBlT0D8z+alPB
JmyerI9cYMC1f/5n56PrZhbVa/tP8v4GfBLpW6rraWYjhd3RdXq8LOyO8C9n
W9QLp758q8eD0XWJszuXswHVi8SxZ/SYNspNuKmMnZxp8lAv1GNfOmdi3cIL
drwdrEf9hUjn2CMmNn7Z7tV3DHrU8jC9TMxu9+8V75J0eNi06tVl1Xe2gH8+
qkMn575jm86XMAM2bkj8TYd1t36pvFNbzNpG+O89M1OHnYrGCZGKmUx64Fuy
RodrVnTrGV5QyHrxsiK02L/73S0bsYDVRhmXpAZpMb2zbN7rD/ksz4YH0GIX
Ox4gn5V4n/+Y5qRF5485R1Ni81ilUJVdkQY7yHmDclnOJAfXjzkafCx08UtY
LgvdkPF4Q4YGe7iccnA5lcvS9HffZe7RoMO0K+bSv3KYN/VFg314GwOzWVzS
MOesjhr0Ue3p3nAum73kn+00KM+992HG4Wz2guKqUer99EErm09sTmeemBqX
8vZs/8AezZo0ItddjV8attv2rUhnRx34xWrM2rfEdv+SdHbLLjUkz6zC55uH
/tc5JYX9SPeqcL3QxcqrSezyp4V9C06o0D/P/L8lDxPZHIqrwnUHeKIJzOdK
/s2ivio0P17qU9MzltVT/VZYQn36h3kv8/ih9I0V3rvCA71g3Si+Ff6oOH2w
96enbLdQlWmVFabYBLtG/hrM4og/VmikRlxmHgX7WptlVrhS9WnLsxVrWdlV
TkAlNqv4+QuwivJU4i7afw8uCuiaPJSYzOm2NxTmbTynqBmtxOVPhv7e3OYF
PHvLL1CiL+ETCdMHdvWsy1BgUPzTwDduMfAbh+exAlP4suEtOAmsadiuwG28
jImJcLCSJ6DASuL3vzCC4irwXONS7/trUwCIt3JcTDxMhX47XxSLQ+QY4X2j
i9+hdHAjfORor+T5Z0DX0RNXyqbL8XPr/IidtzLBeJRfIEd32vcJbMUpWYoS
GXpO873tuCIb7Ik3MrxBOOaALnLBHNUhGVr7Pt7edWsOfKG6ZXiT9JYDYk7v
HjIMEFjadl8uPODyjZYitfFAHlS5cAFLcfAPta1UvnlQ4sEFKsVwp5hFIQF5
UKStFxQgxagVdtn11/PhT95etRT9qc+FkJ3gBa2bJOh+++e/Sx8WQhh9kGDi
Si7AQkg9pQ9rc0GC+ab5O75EFoMrl/dUCVKYhaUQ63Z2oO1wCf5B9CuFfcR/
CX4lfn2H57Zd7tililH+fNqhZR4moLJPiZEWhzIIybjdrZOHGN8tzhZuKIMZ
FF+Mu1O6CAopg6BLQy53NojRT7p5lvvecqiiwkVI19iZ4eISJtwgwkU3xcIN
ZuhEuhah1YqcidWKCjhJF4pa9FoBr+mcCMeRD1WCNuFGu6lxzWAq6nJ47PlK
SKa8m8GHeFIFVa5h6pmKZnhyLKTs52tV4Ej+0gQviIfVkP0xrnEWNoHngPGz
h9yqhrXEv0botJ/rswZiqa5GcElJed7vQQ0kc3mNa4RRxLMaCCFdNoD1Nm5g
tSAhX26AwLb2e94dqwP/9cq0laX18LF91WH7V3Vg8d96CCec6mB/ud2bdT3r
4VoE/68ezhOudTCI8myATdv7Pdu0tA7WLWo3xya5AdqRf9bBMNJPA8xtGnN/
q38tDJIEMd3HRggjf6uBh7Q2wTgvt4Ad72ug4fpwYYI0wUCedmINPBt2ZfL8
giboo17jt8dYA9zdRYXNMJd4Xw3tyZ9F2PbEroNeE6vBmXQowjfkD9XgQP4n
wuY2fEMV3Ob23iDCBvKfSqA2LRNjwYWAjceeV4Lh7KjFVZ5iXEq6rIQ15Bti
TLYPFYyrAraQz0jwEtVfARZ+SjBCcIWzAysgfUR89HdvCRL8RWa4J0yHc08k
eKPv5wkX15th1JG2O4q1UrTovxyozNlSPM5hv1kOV8lHpUi0dSmHipEJ5pEJ
UrTYfBlQO21kSLLdWwZtqM8yJHralcFaz+8+OWdlaPFnE9CxrzKc5NSnTbCr
CeJpTsiR0lebWnQmR97d9Z2+wyBuc1fkaNFvKQjkmOvVIMeR125WbT1ZAme2
xPyd7qDACZRgCfhQngqk8SQvhnqagwq0+EchkP21VmJWWMWrg38UwmJOjz5K
9CbeF7bwVIkPojr85VOSD5Grr76Ov69Eiz99A6JhLyvclzT2+MUl36AXzXkr
jKNz38CafNAKZ39aszUw9Ssc1QzsF/NEmAvUl1yYzsfQTyrsXXBiXrBLLpRz
exmpQot/Ct9pfquwqSJ0zNNnOeBO7xgVuhIvvsBxylONSaKsHlEDvsDTZvWE
5+PVLfhlgx8vb5YandtrO16alAWdZ8ysD49RoyP1PRPiiYcaLHGcmx88KBO8
rl24GzpZg5k0NzLAsmrwxISgh1EdPkA+jU8N3ifdp4GO6tfiEIGVH6TvYTLh
qMURFD8F7AkgLWZsGz+lpCgZgv04QFocTvgkwWRadSju3E2QXgK04eNjvg4t
/hIHq+j9o8MpNK9jYQcRRoee5PvRcJgMUI9+uxcsnzHhH/h8aEpOwHI9phNv
GZA8gvUYPsdcW+YYDmMzfX2v5OtRRPp5BG9ICAYM2iTY6rXbEEg6MCBS/qeh
PK04yCnGgOM3jomWt98GGv58MRlQdITH38O8iIdGTLN5nYuZN9jw1aHCS8WI
w+n8Q9aRADTi2969xyRNCWWFHOZdRvSkesJYANVhxHMra5Uv379k/mEcQGOL
fl4zC45GnDJsgfACiGFThep+EVmjI/l7DHtFOFijxOrl+81D45lII8A/1hpP
UF+SmYWn1jhvfSuhw8nswaDiduO8rFv0m8y4O9vut8YQ4dViPSmVLZ9/YvOY
aGu0vJ/TmWVthf8HrlltTQ==
    "]], {
    LineBox[{{3.9699675255657723`, -1.3333333333333335`}, {
     3.9871289395281884`, -1.3161719193709174`}}], 
    LineBox[{{3.6164141349724983`, -1.3333333333333335`}, {
     3.8356060578453564`, -1.1141414104604752`}}], 
    LineBox[{{3.2628607443792252`, -1.3333333333333335`}, {
     3.6840831761625257`, -0.9121109015500333}}], 
    LineBox[{{2.9093073537859513`, -1.3333333333333335`}, {
     3.5325602944796937`, -0.7100803926395911}}], 
    LineBox[{{2.5557539631926773`, -1.3333333333333335`}, {
     3.3810374127968617`, -0.5080498837291494}}], 
    LineBox[{{2.202200572599404, -1.3333333333333335`}, {
     3.2295145311140305`, -0.3060193748187068}}], 
    LineBox[{{1.8486471820061303`, -1.3333333333333335`}, {
     3.0779916494311985`, -0.10398886590826528`}}], 
    LineBox[{{1.4950937914128564`, -1.3333333333333335`}, {2.926468767748367, 
     0.09804164300217688}}], 
    LineBox[{{1.1415404008195824`, -1.3333333333333335`}, {
     2.7749458860655354`, 0.3000721519126195}}], 
    LineBox[{{0.7879870102263089, -1.3333333333333335`}, {2.6234230043827034`,
      0.502102660823061}}], 
    LineBox[{{0.4344336196330351, -1.3333333333333335`}, {2.4719001226998722`,
      0.7041331697335037}}], 
    LineBox[{{0.08088022903976144, -1.3333333333333335`}, {
     2.3203772410170407`, 0.9061636786439458}}], 
    LineBox[{{-0.2726731615535123, -1.3333333333333335`}, {
     2.1688543593342096`, 1.1081941875543886`}}], 
    LineBox[{{-0.6262265521467859, -1.3333333333333335`}, {
     2.0173314776513775`, 1.3102246964648299`}}], 
    LineBox[{{-0.9797799427400596, -1.3333333333333335`}, \
{-0.14644660940672627`, -0.5}}], 
    LineBox[{{0., -0.35355339059327373`}, {1.865808595968546, 
     1.512255205375272}}], 
    LineBox[{{-1.3333333333333333`, -1.3333333333333333`}, {-0.5, -0.5}}], 
    LineBox[{{0., 0.}, {1.7142857142857146`, 1.7142857142857146`}}], 
    LineBox[{{-1.6868867239266074`, -1.3333333333333335`}, {-0.5, \
-0.14644660940672627`}}], 
    LineBox[{{-0.35355339059327373`, 0.}, {1.5627628326028828`, 
     1.9163162231961568`}}], 
    LineBox[{{-2., -1.2928932188134525`}, {1.4112399509200508`, 
     2.1183467321065983`}}], 
    LineBox[{{-2., -0.9393398282201787}, {1.2597170692372197`, 
     2.3203772410170407`}}], 
    LineBox[{{-1.9999999999999998`, -0.5857864376269049}, {
     1.1081941875543877`, 2.5224077499274826`}}], 
    LineBox[{{-2., -0.23223304703363123`}, {0.956671305871556, 
     2.7244382588379246`}}], 
    LineBox[{{-2., 0.12132034355964239`}, {0.8051484241887248, 
     2.926468767748367}}], 
    LineBox[{{-2., 0.4748737341529159}, {0.6536255425058932, 
     3.1284992766588093`}}], 
    LineBox[{{-2., 0.82842712474619}, {0.5021026608230617, 
     3.3305297855692517`}}], 
    LineBox[{{-2., 1.1819805153394638`}, {0.35057977914022986`, 
     3.5325602944796937`}}], 
    LineBox[{{-2., 1.5355339059327373`}, {0.19905689745739852`, 
     3.7345908033901356`}}], 
    LineBox[{{-2., 1.8890872965260108`}, {0.04753401577456651, 
     3.936621312300577}}], 
    LineBox[{{-2., 2.2426406871192848`}, {-0.10398886590826395`, 
     4.13865182121102}}], 
    LineBox[{{-2., 2.5961940777125587`}, {-0.25551174759109685`, 
     4.340682330121462}}], 
    LineBox[{{-2., 2.949747468305832}, {-0.4497474683058318, 4.5}}], 
    LineBox[{{-2., 3.3033008588991057`}, {-0.8033008588991057, 4.5}}]}},
  AspectRatio->Automatic,
  Axes->True,
  PlotRange->{{-1., 4.}, {-1.5, 4.5}},
  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.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.41185114684375*^9, 3.411851182203125*^9}, {3.41185141096875*^9, 
   3.411851457921875*^9}, {3.411851550609375*^9, 3.4118515675*^9}, 
   3.411859273125*^9, 3.41186485921875*^9, 3.41230794375*^9, 
   3.412828531875*^9, 3.41282858953125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"openfile", "[", "\"\<fig9.tex\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"openpicture", "[", "\"\<10/12cm\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", "g1", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"drwline", "[", 
  RowBox[{"pd1", ",", "0.7"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"expr", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "3"}], "}"}], ",", "\"\<e\>\"", ",", 
    "\"\<4x+3y=12\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"htickmark", "[", 
   RowBox[{"3", ",", "\"\<ne\>\"", ",", "\"\<3\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vtickmark", "[", 
   RowBox[{"4", ",", "\"\<ne\>\"", ",", "\"\<4\>\""}], "]"}], 
  ";"}], "\[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.41184955403125*^9, 
   3.411849631125*^9}, {3.411850536984375*^9, 3.411850672296875*^9}, {
   3.41185071853125*^9, 3.411850736359375*^9}, {3.4118515795625*^9, 
   3.41185163971875*^9}, {3.411851672171875*^9, 3.411851672421875*^9}, {
   3.411859276578125*^9, 3.411859277046875*^9}, {3.41186486365625*^9, 
   3.4118648638125*^9}, {3.412828521921875*^9, 3.412828529375*^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.4118516421875*^9, 3.4118516755*^9, 
   3.41185927740625*^9, 3.41186486428125*^9, 3.4128285355*^9, 
   3.41282859153125*^9}],

Cell[BoxData["\<\"fig9.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.4118516421875*^9, 3.4118516755*^9, 
   3.41185927740625*^9, 3.41186486428125*^9, 3.4128285355*^9, 
   3.4128285915625*^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.4118516421875*^9, 3.4118516755*^9, 
   3.41185927740625*^9, 3.41186486428125*^9, 3.4128285355*^9, 
   3.412828593859375*^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, 3650, 79, 195, "Input"],
Cell[4243, 104, 2784, 40, 42, "Output"],
Cell[7030, 146, 9348, 161, 437, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16415, 312, 3266, 61, 264, "Input"],
Cell[19684, 375, 1377, 21, 77, "Output"],
Cell[21064, 398, 1312, 20, 42, "Output"],
Cell[22379, 420, 1312, 20, 42, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)