(* 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[     31615,        572]
NotebookOptionsPosition[     31027,        548]
NotebookOutlinePosition[     31383,        564]
CellTagsIndexPosition[     31340,        561]
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.5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.5"}], ",", "2.5"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"cir1", ":=", 
  RowBox[{"parametricplotdata", "[", 
   RowBox[{
    RowBox[{"2", "*", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "t", "]"}], ",", 
       RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", 
      RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"cir2", ":=", 
  RowBox[{"parametricplotdata", "[", 
   RowBox[{
    RowBox[{"0.3", "*", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "t", "]"}], ",", 
       RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", 
      RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"pA", ":=", 
  RowBox[{"{", 
   RowBox[{"0.3", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"pB", ":=", 
  RowBox[{"{", 
   RowBox[{"2", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"pC", ":=", 
  RowBox[{"{", 
   RowBox[{"0", ",", "0.3"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"pD", ":=", 
  RowBox[{"{", 
   RowBox[{"0", ",", "2"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"BA", ":=", 
  RowBox[{"listplotdata", "[", 
   RowBox[{"{", 
    RowBox[{"pB", ",", "pA"}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"CD", ":=", 
  RowBox[{"listplotdata", "[", 
   RowBox[{"{", 
    RowBox[{"pC", ",", "pD"}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"box1", ":=", 
  RowBox[{"framedata", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0.7", ",", "0.7"}], "}"}], ",", "0.25"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"pd1", ":=", 
  RowBox[{"hatchdata", "[", 
   RowBox[{"\"\<io\>\"", ",", 
    RowBox[{"{", 
     RowBox[{"BA", ",", "cir2", ",", "CD", ",", 
      RowBox[{"invert", "[", "cir1", "]"}]}], "}"}], ",", 
    RowBox[{"{", "box1", "}"}], ",", "60", ",", "1.5"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"windisp", "[", 
  RowBox[{"cir1", ",", "cir2", ",", "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}, {3.41230611346875*^9, 
   3.4123062086875*^9}, {3.412307132203125*^9, 3.41230713475*^9}, {
   3.412307192328125*^9, 3.412307228859375*^9}, {3.41230729940625*^9, 
   3.4123073420625*^9}, {3.41230740540625*^9, 3.412307424859375*^9}, {
   3.4123076233125*^9, 3.412307690390625*^9}, {3.41230775953125*^9, 
   3.41230776084375*^9}, {3.412309714765625*^9, 3.4123099199375*^9}, {
   3.412310316890625*^9, 3.41231031728125*^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.412306194265625*^9, 
   3.4123062090625*^9}, 3.412306483375*^9, 3.412307104890625*^9, {
   3.41230730709375*^9, 3.412307342390625*^9}, 3.412307425421875*^9, {
   3.41230767903125*^9, 3.41230769096875*^9}, 3.41230776171875*^9, 
   3.412308130453125*^9, {3.41230990846875*^9, 3.41230992059375*^9}, 
   3.412310317703125*^9, 3.412828279578125*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{2., 0.}, {1.9990494262797247`, 0.06165542385470368}, {
      1.9958722446196342`, 0.12842890312146807`}, {1.9908924677034847`, 
      0.1906493693709184}, {1.9841278000083553`, 0.25146942803053457`}, {
      1.9746896258522173`, 0.3171764202327002}, {1.9639186202896002`, 
      0.3781846809163388}, {1.950118569704271, 0.4438891349138521}, {
      1.93443229367177, 0.5079091465998375}, {1.9179058725611315`, 
      0.5671305528672607}, {1.897937465459591, 0.6307403405560991}, {
      1.8773918940856285`, 0.689492332097737}, {1.855485452846226, 
      0.7464407104894777}, {1.8297640909268396`, 0.8074424880786722}, {
      1.8039551530693636`, 0.8635657506608799}, {1.774036255234044, 
      0.9234692009564639}, {1.742729951606644, 0.9812707657793053}, {
      1.7118361115620522`, 1.0342229581439937`}, {1.676511163861115, 
      1.0905550501689725`}, {1.6418669497000036`, 1.142047687044112}, {
      1.602543778523696, 1.1966007846876063`}, {1.562173670373638, 
      1.248844835674695}, {1.5229763918604398`, 1.296357554780222}, {
      1.4788475326004993`, 1.3464805885423732`}, {1.4361566361783469`, 
      1.3919246087202048`}, {1.39294883233261, 1.435163248729293}, {
      1.3446045956062542`, 1.4805534375612863`}, {1.2981554723685422`, 
      1.5214441723440288`}, {1.246411209944429, 1.564116074888582}, {
      1.1942476780050542`, 1.604298128023447}, {1.144425707903279, 
      1.6402102911182086`}, {1.0891779326295847`, 1.6774061616295393`}, {
      1.0365136388180518`, 1.7104500801087885`}, {0.983913935410021, 
      1.7412390323289806`}, {0.9258058648322416, 1.7728179547382255`}, {
      0.8706759534435216, 1.8005341940921906`}, {0.8099774633303862, 
      1.8286433520227154`}, {0.7524794275631578, 1.8530447137331096`}, {
      0.6953956539094329, 1.8752132904082863`}, {0.6327415613347283, 
      1.8972712290444111`}, {0.5736349897121884, 1.9159704847877739`}, {
      0.5089628035568161, 1.9341553362115427`}, {0.444910229844601, 
      1.9498858652186861`}, {0.38472217709852935`, 1.9626484266033404`}, {
      0.3190505953670624, 1.9743876816866344`}, {0.25741798198247495`, 
      1.9833648132787045`}, {0.19675429487752838`, 1.9902984066333487`}, {
      0.1307318209236539, 1.9957227239769522`}, {0.06899362806607572, 
      1.998809615567796}, {0.00200259935159978, 1.999998997398708}, {
      1.2246467991473532`*^-16, 2.}}]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{0.3, 0.}, {0.2998574139419587, 0.00924831357820555}, {
      0.29938083669294513`, 0.01926433546822021}, {0.2986338701555227, 
      0.02859740540563776}, {0.29761917000125326`, 0.03772041420458019}, {
      0.2962034438778326, 0.04757646303490503}, {0.29458779304344, 
      0.05672770213745081}, {0.29251778545564067`, 0.06658337023707782}, {
      0.2901648440507655, 0.07618637198997563}, {0.28768588088416974`, 
      0.0850695829300891}, {0.2846906198189387, 0.09461105108341486}, {
      0.28160878411284423`, 0.10342384981466055`}, {0.27832281792693386`, 
      0.11196610657342165`}, {0.2744646136390259, 0.12111637321180083`}, {
      0.27059327296040453`, 0.129534862599132}, {0.2661054382851066, 
      0.13852038014346957`}, {0.26140949274099656`, 0.14719061486689577`}, {
      0.2567754167343078, 0.15513344372159904`}, {0.2514766745791672, 
      0.16358325752534586`}, {0.24628004245500051`, 0.1713071530566168}, {
      0.24038156677855438`, 0.17949011770314094`}, {0.2343260505560457, 
      0.18732672535120426`}, {0.22844645877906594`, 0.1944536332170333}, {
      0.2218271298900749, 0.20197208828135596`}, {0.21542349542675202`, 
      0.2087886913080307}, {0.2089423248498915, 0.21527448730939394`}, {
      0.20169068934093812`, 0.22208301563419294`}, {0.19472332085528132`, 
      0.22821662585160432`}, {0.18696168149166437`, 0.2346174112332873}, {
      0.1791371517007581, 0.24064471920351704`}, {0.17166385618549182`, 
      0.24603154366773128`}, {0.1633766898944377, 0.2516109242444309}, {
      0.15547704582270777`, 0.2565675120163183}, {0.14758709031150316`, 
      0.2611858548493471}, {0.13887087972483622`, 0.2659226932107338}, {
      0.13060139301652823`, 0.27008012911382856`}, {0.12149661949955792`, 
      0.2742965028034073}, {0.11287191413447366`, 0.27795670705996645`}, {
      0.10430934808641494`, 0.28128199356124295`}, {0.09491123420020924, 
      0.2845906843566617}, {0.08604524845682826, 0.28739557271816607`}, {
      0.07634442053352242, 0.2901233004317314}, {0.06673653447669015, 
      0.2924828797828029}, {0.0577083265647794, 0.29439726399050103`}, {
      0.04785758930505935, 0.29615815225299513`}, {0.03861269729737124, 
      0.29750472199180567`}, {0.029513144231629256`, 0.29854476099500227`}, {
      0.019609773138548083`, 0.29935840859654284`}, {0.010349044209911357`, 
      0.2998214423351694}, {0.000300389902739967, 0.2999998496098062}, {
      1.8369701987210297`*^-17, 0.3}}]}}, {
    LineBox[{{1.9381941874331419`, 0.}, {1.997126279777637, 
     0.10207337813700634`}}], 
    LineBox[{{1.7216878364870323`, 0.}, {1.9575471578045012`, 
     0.40852032796056936`}}], 
    LineBox[{{1.5051814855409225`, 0.}, {1.8871498339494062`, 
     0.6615885863266643}}], 
    LineBox[{{1.2886751345948129`, 0.}, {1.796209164335346, 
     0.879074726080777}}], 
    LineBox[{{1.0721687836487033`, 0.}, {1.6896782357055486`, 
     1.069557745116474}}], 
    LineBox[{{0.8556624327025937, 1.1102230246251565`*^-16}, {
     1.570478362522498, 1.2380975085076633`}}], 
    LineBox[{{0.639156081756484, 2.220446049250313*^-16}, {0.8989637028918154,
      0.4499999999999999}}], 
    LineBox[{{0.95, 0.538397459621556}, {1.4402614058776055`, 
     1.3875551235917158`}}], 
    LineBox[{{0.42264973081037427`, 1.1102230246251565`*^-16}, {
     0.6824573519457058, 0.44999999999999996`}}], 
    LineBox[{{0.95, 0.913397459621556}, {1.300078522123753, 
     1.5197512465785215`}}], 
    LineBox[{{0.2750637935792999, 0.11937365823310808`}, {0.4659510009995961, 
     0.44999999999999984`}}], 
    LineBox[{{0.754626135594409, 0.95}, {1.1505645105785072`, 
     1.635785382138716}}], 
    LineBox[{{0.14211304220016152`, 0.2640962019399825}, {
     0.44999999999999996`, 0.7973720558371175}}], 
    LineBox[{{0.5381197846482993, 0.95}, {0.9921563412812193, 
     1.7364143845818412`}}], 
    LineBox[{{0.0002838788785803903, 0.3934408850720197}, {0.8249067870700364,
      1.821729659144827}}], 
    LineBox[{{0.0002176366795371143, 0.7683261502176716}, {0.6487587135150142,
      1.891632246092149}}], 
    LineBox[{{0.00015139448049386606`, 1.1432114153633235`}, {
     0.46328039627704626`, 1.94537437693361}}], 
    LineBox[{{0.00008515228145053802, 1.5180966805089753`}, {
     0.2678320689860493, 1.9818479438112524`}}], 
    LineBox[{{0.000018910082407258555`, 1.8929819456546275`}, {
     0.06119621643857101, 1.9989441485337094`}}]}},
  AspectRatio->Automatic,
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-0.5, 2.5}, {-0.5, 2.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.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.412306194265625*^9, 
   3.4123062090625*^9}, 3.412306483375*^9, 3.412307104890625*^9, {
   3.41230730709375*^9, 3.412307342390625*^9}, 3.412307425421875*^9, {
   3.41230767903125*^9, 3.41230769096875*^9}, 3.41230776171875*^9, 
   3.412308130453125*^9, {3.41230990846875*^9, 3.41230992059375*^9}, 
   3.412310317703125*^9, 3.412828280265625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"openfile", "[", "\"\<fig3.tex\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"openpicture", "[", "\"\<18/12cm\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", 
   RowBox[{"cir1", ",", "cir2"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", 
   RowBox[{"pd1", ",", "0.5"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"htickmark", "[", 
   RowBox[{
   "2", ",", "\"\<s\>\"", ",", "\"\<1\>\"", ",", "0.3", ",", "\"\<s\>\"", 
    ",", "\"\<\\\\varepsilon\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vtickmark", "[", 
   RowBox[{
   "2", ",", "\"\<w\>\"", ",", "\"\<1\>\"", ",", "0.3", ",", "\"\<w\>\"", 
    ",", "\"\<\\\\varepsilon\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"expr", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0.7", ",", "0.7"}], "}"}], ",", "\"\<c\>\"", ",", 
    "\"\<D_{\\\\varepsilon}\>\""}], "]"}], ";"}], "\[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.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.41230621440625*^9, 
   3.412306214578125*^9}, 3.412306246484375*^9, {3.412306292546875*^9, 
   3.41230643353125*^9}, {3.41230649678125*^9, 3.412306508515625*^9}, {
   3.41230710834375*^9, 3.41230712740625*^9}, {3.412307354265625*^9, 
   3.4123073990625*^9}, {3.41230743359375*^9, 3.412307433984375*^9}, {
   3.412307467109375*^9, 3.412307494859375*^9}, {3.41230761621875*^9, 
   3.4123076166875*^9}, {3.412307702140625*^9, 3.4123077219375*^9}, {
   3.412307767390625*^9, 3.41230776765625*^9}, {3.412309926609375*^9, 
   3.41231000678125*^9}, {3.41282783221875*^9, 3.41282783859375*^9}, {
   3.41282828328125*^9, 3.412828295625*^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.412306285984375*^9, 3.412306340921875*^9}, 3.41230643409375*^9, {
   3.412306484953125*^9, 3.41230650890625*^9}, 3.41230710990625*^9, 
   3.4123074360625*^9, {3.412307467796875*^9, 3.41230749653125*^9}, 
   3.412307726484375*^9, 3.412307768375*^9, 3.412308134546875*^9, 
   3.4123100075625*^9, 3.412310319484375*^9, {3.412828284625*^9, 
   3.412828296375*^9}}],

Cell[BoxData["\<\"fig3.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.412306285984375*^9, 3.412306340921875*^9}, 3.41230643409375*^9, {
   3.412306484953125*^9, 3.41230650890625*^9}, 3.41230710990625*^9, 
   3.4123074360625*^9, {3.412307467796875*^9, 3.41230749653125*^9}, 
   3.412307726484375*^9, 3.412307768375*^9, 3.412308134546875*^9, 
   3.4123100075625*^9, 3.412310319484375*^9, {3.412828284625*^9, 
   3.412828296390625*^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.412306285984375*^9, 3.412306340921875*^9}, 3.41230643409375*^9, {
   3.412306484953125*^9, 3.41230650890625*^9}, 3.41230710990625*^9, 
   3.4123074360625*^9, {3.412307467796875*^9, 3.41230749653125*^9}, 
   3.412307726484375*^9, 3.412307768375*^9, 3.412308134546875*^9, 
   3.4123100075625*^9, 3.412310319484375*^9, {3.412828284625*^9, 
   3.41282829715625*^9}}]
}, Open  ]]
},
WindowSize->{1016, 665},
WindowMargins->{{-1, Automatic}, {Automatic, 86}},
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, 5684, 119, 356, "Input"],
Cell[6277, 144, 3785, 54, 42, "Output"],
Cell[10065, 200, 10837, 171, 372, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20939, 376, 4356, 78, 264, "Input"],
Cell[25298, 456, 1944, 29, 42, "Output"],
Cell[27245, 487, 1883, 28, 42, "Output"],
Cell[29131, 517, 1880, 28, 42, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)