(* 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[     36265,        624]
NotebookOptionsPosition[     35678,        600]
NotebookOutlinePosition[     36034,        616]
CellTagsIndexPosition[     35991,        613]
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"}], ",", "5.5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.5"}], ",", "3.5"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"pA", ":=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "3"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"pB", ":=", 
  RowBox[{"{", 
   RowBox[{"0", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"pC", ":=", 
  RowBox[{"{", 
   RowBox[{"5", ",", "0.5"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"pM", ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"pB", "+", "pC"}], ")"}], "/", "2"}]}], "\[IndentingNewLine]", 
 RowBox[{"pG", ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"pA", "+", "pB", "+", "pC"}], ")"}], "/", 
   "3"}]}], "\[IndentingNewLine]", 
 RowBox[{"ABC", ":=", 
  RowBox[{"listplotdata", "[", 
   RowBox[{"{", 
    RowBox[{"pA", ",", "pB", ",", "pC", ",", "pA"}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"AM", ":=", 
  RowBox[{"listplotdata", "[", 
   RowBox[{"{", 
    RowBox[{"pA", ",", "pM"}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"bow1", ":=", 
  RowBox[{"bowdata", "[", 
   RowBox[{"pA", ",", "pG", ",", "2", ",", "0.7"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"bow2", ":=", 
  RowBox[{"bowdata", "[", 
   RowBox[{"pG", ",", "pM", ",", "3", ",", "0.6"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"windisp", "[", 
  RowBox[{"ABC", ",", "AM", ",", "bow1", ",", "bow2"}], "]"}]}], "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}, {3.414219071609375*^9, 
   3.414219246984375*^9}, {3.414219278484375*^9, 3.414219327796875*^9}, {
   3.41421964090625*^9, 3.4142197836875*^9}, {3.415489505625*^9, 
   3.415489721984375*^9}, {3.41548991990625*^9, 3.415489941875*^9}},
 FontSize->16],

Cell[BoxData["\<\"v2.5.3a\"\>"], "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, 3.414219133234375*^9, {
   3.414219207703125*^9, 3.414219247421875*^9}, 3.414219328328125*^9, 
   3.41421978578125*^9, {3.415489588546875*^9, 3.415489650375*^9}, {
   3.415489681828125*^9, 3.41548972234375*^9}, {3.4154899205*^9, 
   3.4154899423125*^9}, 3.415660306671875*^9, 3.415683789625*^9, {
   3.415685426484375*^9, 3.415685429890625*^9}}],

Cell[BoxData[
 GraphicsBox[{LineBox[{{1., 3.}, {0., 0.}, {5., 0.5}, {1., 3.}}], 
   LineBox[{{1., 3.}, {2.5, 0.25}}], {
    LineBox[{{1., 3.}, {0.9960057962925479, 2.9847689563423994`}, {
     0.9918548266563467, 2.9682108151223363`}, {0.9881477028147139, 
     2.952708610556085}, {0.9846719242581581, 2.93747343469891}, {
     0.9810795670798504, 2.9209073704900588`}, {0.9778944578965327, 
     2.9054114579629458`}, {0.9746257036365613, 2.8885816268139184`}, {
     0.9716021533704089, 2.872023755406312}, {0.9689479043115645, 
     2.856549298255939}, {0.9662512582890448, 2.8397393200885612`}, {
     0.9639045387429976, 2.8240198449136593`}, {0.9617642848729107, 
     2.80858652586659}, {0.9596218803166523, 2.791817352132855}, {
     0.9577918149906475, 2.7761496190258677`}, {0.955992576530245, 
     2.759145835495118}, {0.9544131425091005, 2.7424342581660914`}, {
     0.9531072016393924, 2.7268340001454328`}, {0.9518732036271418, 
     2.7098996164102136`}, {0.9508928387905087, 2.694081907420375}, {
     0.9500175074019497, 2.6769317105894075`}, {0.9493474053409383, 
     2.660085174405193}, {0.9488914376438342, 2.6443631507056047`}, {
     0.9485816386171115, 2.627312870881129}, {0.948465761327911, 
     2.611391422018475}, {0.9485146965323041, 2.5957822910815205`}, {
     0.9487497643702172, 2.5788502549907433`}, {0.9491399352598282, 
     2.5630526285309476`}, {0.9497489728650363, 2.5459365571354344`}, {
     0.9505352002057712, 2.5291407076603876`}, {0.9514366131467635, 
     2.5134836169953036`}, {0.9525973982725857, 2.496515798596768}, {
     0.9538529173089385, 2.480689267017944}, {0.9552447292704285, 
     2.465188034298736}, {0.956935157772933, 2.448384799024434}, {
     0.9586812781288307, 2.432725020524569}, {0.9607581547949708, 
     2.4157704653188263`}, {0.9628700687648009, 2.3999608372565007`}, {
     0.9651021546914913, 2.3844835608446986`}, {0.967703887401129, 
     2.367722424318215}, {0.9703013688944258, 2.35210633806463}, {
     0.9733003401435132, 2.3352154085076235`}, {0.9764306503653246, 
     2.3186664283301024`}, {0.9795165039636173, 2.303261246341609}, {
     0.9830429401041887, 2.286594563984316}, {0.98650427713933, 
     2.271071337438767}, {0.9900556717981661, 2.255889397190252}, {
     0.9940853501857236, 2.2394601247797787`}, {0.9980108948459867, 
     2.2241710126107317`}, {1.002445587090131, 2.207646249538265}, {
     1.0025810011543836`, 2.207153143658679}}], 
    LineBox[{{1.3348000003889695`, 1.5980849783952713`}, {1.3453674746074316`,
      1.5864116394214167`}, {1.356960294021807, 1.573881311109282}, {
     1.3679117835838972`, 1.562300033547522}, {1.3787662252761383`, 
     1.5510584715776263`}, {1.3906711628752746`, 1.5389914929073463`}, {
     1.4019028554843174`, 1.527850698200793}, {1.414205591169073, 
     1.5159104023255685`}, {1.4264147294420282`, 1.5043241214557364`}, {
     1.4379187672882132`, 1.4936395074992732`}, {1.4505177468664852`, 
     1.4821890498951082`}, {1.4623950958380652`, 1.4716279148325566`}, {
     1.4741457772953264`, 1.4613961257061594`}, {1.487013689069192, 
     1.4504320055146018`}, {1.499130257910969, 1.4403317204041848`}, {
     1.5123822551713424`, 1.4295266067070027`}, {1.5255098141503503`, 
     1.4190653150131494`}, {1.5378565160400697`, 1.4094407379152862`}, {
     1.5513595197844787`, 1.3991468079823404`}, {1.5640663220515845`, 
     1.3896758941381093`}, {1.577946150953803, 1.3795642273108322`}, {
     1.5916839810656072`, 1.3697904439084114`}, {1.604597447308087, 
     1.3608108935101138`}, {1.6187028926619975`, 1.3512273435990556`}, {
     1.6319693050719644`, 1.3424234658624563`}, {1.6450643681300647`, 
     1.3339283680545653`}, {1.6593687851924077`, 1.324865655680538}, {
     1.672808270197316, 1.3165531664090135`}, {1.6874712760972765`, 
     1.307702907384634}, {1.7019630839144995`, 1.2991761131917128`}, {
     1.7155644890415251`, 1.2913685007554163`}, {1.7304051050264917`, 
     1.2830612508795052`}, {1.7443420175296582`, 1.2754574426398648`}, {
     1.7580811164448873`, 1.268145635930933}, {1.7730735826245771`, 
     1.260371819490053}, {1.7871391779047923`, 1.2532699444999311`}, {
     1.8024696668859335`, 1.2457369194428838`}, {1.816860758718975, 
     1.2388593474921121`}, {1.8310393162422292`, 1.232264137164061}, {
     1.8464948956486464`, 1.2252763066020216`}, {1.8609894893540564`, 
     1.2189111032822106`}, {1.8767709696397419`, 1.2121848703212472`}, {
     1.892337987025123, 1.2057555969000848`}, {1.9069230801026473`, 
     1.1999146051650555`}, {1.9228052671935347`, 1.1937526098824809`}, {
     1.937694527997776, 1.188161426719806}, {1.952347305776566, 
     1.1828322788425447`}, {1.9683059330504715`, 1.1772214397451124`}, {
     1.983253046541964, 1.1721469299096796`}, {1.9995131080488302`, 
     1.1668229567979527`}, {1.9999999999999996`, 1.1666666666666665`}}]}, {
    LineBox[{{2., 1.1666666666666665`}, {1.9963708711845274`, 
     1.1610770989666674`}, {1.9925078756492618`, 1.1549716132412364`}, {
     1.9889684265315708`, 1.1492285367951327`}, {1.9855621921086961`, 
     1.1435592997329125`}, {1.9819391606621912`, 1.1373669249304148`}, {
     1.9786258762630362`, 1.131548562205621}, {1.9751097880860993`, 
     1.1252011854595902`}, {1.9717338004816076`, 1.1189280800114225`}, {
     1.9686530014878378`, 1.113040333693489}, {1.9653872652406401`, 
     1.1066172465393835`}, {1.9624093282556587`, 1.100585464331032}, {
     1.959556721563064, 1.0946398521088136`}, {1.9565367913578648`, 
     1.0881533101037162`}, {1.9537898711203296`, 1.0820682910074657`}, {
     1.9508900640252669`, 1.075437802971171}, {1.9481223747943326`, 
     1.0688945365576492`}, {1.9456121768107328`, 1.0627626879922731`}, {
     1.9429674145399278`, 1.056080738335641}, {1.9405722494193598`, 
     1.0498154120870267`}, {1.9380572712338355`, 1.0429963021619981`}, {
     1.9356697542417343`, 1.0362717905222332`}, {1.9335156969721874`, 
     1.029972930240612}, {1.931260482118305, 1.0231167513197326`}, {
     1.9292305077319039`, 1.0166909917985958`}, {1.927311563301132, 
     1.0103693749082963`}, {1.925309754710237, 1.0034875972755426`}, {
     1.9235169902837903`, 0.9970441126735096}, {1.9216563483134714`, 
     0.9900381786648612}, {1.9199132998731023`, 0.9831384750226739}, {
     1.9183624262484245`, 0.9766845060553034}, {1.9167625235882135`, 
     0.9696663032201762}, {1.9153461881716987`, 0.9630977920993187}, {
     1.914030237568493, 0.9566434343135934}, {1.9126836815646517`, 
     0.9496237109736361}, {1.9115038760231955`, 0.943059971823795}, {
     1.910308555845556, 0.9359299802767982}, {1.9092711267385807`, 
     0.9292594568213781}, {1.9083279795205597`, 0.9227086199199273}, {
     1.9073878642329278`, 0.9155914951908785}, {1.9065884111555715`, 
     0.9089391927664562}, {1.9058071773030245`, 0.9017206122011252}, {
     1.9051264101391037`, 0.8946247924309381}, {1.9045684753744934`, 
     0.8879986184468518}, {1.9040476945817508`, 0.8808072644334752}, {
     1.9036406239425432`, 0.8740881768463682}, {1.9033157805323202`, 
     0.8674971011082742}, {1.9030465065831517`, 0.860342526362694}, {
     1.9028733373077296`, 0.8536639098090105}, {1.9027708148689215`, 
     0.8464232102544045}, {1.9027691146045602`, 0.8462067879028731}}], 
    LineBox[{{2.1779278391373684`, 0.34174912625939147`}, {
     2.1835785124920735`, 0.3382158935086954}, {2.1897490189492865`, 
     0.3344576305441824}, {2.195551648612534, 0.33101668356497416`}, {
     2.2012781767644474`, 0.32770767206052553`}, {2.2075314654439255`, 
     0.3241908207346823}, {2.213405511661381, 0.32097729006855347`}, {
     2.219811955082749, 0.31757001104962}, {2.2261417476565586`, 
     0.3143015450115434}, {2.2320812007599082`, 0.31132164971515064`}, {
     2.238559072127008, 0.3081659779361442}, {2.244640785148822, 
     0.30529138717991444`}, {2.250634202373618, 0.3025406382620459}, {
     2.257171325474107, 0.2996318193956973}, {2.263302326084798, 
     0.2969891200740149}, {2.2699813247530334`, 0.29420286280345753`}, {
     2.276570860332844, 0.29154721601222877`}, {2.282744644700398, 
     0.28914200347930663`}, {2.289470745987347, 0.2866116319333585}, {
     2.295776025947003, 0.28432371288174596`}, {2.302637053193516, 
     0.28192544672347863`}, {2.3094013212138242`, 0.27965300919290703`}, {
     2.3157360166035805`, 0.27760673504537015`}, {2.322629675433355, 
     0.2754688268689145}, {2.3290891345198923`, 0.2735487826657049}, {
     2.3354425717696, 0.2717379754009368}, {2.3423575020310086`, 
     0.2698538733598823}, {2.348830636401561, 0.26817130700869574`}, {
     2.3558672964169487`, 0.26643046936460135`}, {2.362795735177722, 
     0.26480539565743955`}, {2.3692752253073577`, 0.2633648637794658}, {
     2.376319703694703, 0.26188493681932024`}, {2.3829114238476867`, 
     0.2605808778552915}, {2.3893872945414714`, 0.2593752414367916}, {
     2.3964289706752773`, 0.25814865019778277`}, {2.4030118839385213`, 
     0.25708100526082467`}, {2.4101612318807857`, 0.25600750920225535`}, {
     2.4168484847148695`, 0.2550840419021573}, {2.423414459802909, 
     0.25425280070519807`}, {2.4305465885583906`, 0.2534342528580258}, {
     2.4372115627265036`, 0.252748416064569}, {2.444442421754976, 
     0.25209045753935044`}, {2.4515488237202234`, 0.2515308565647387}, {
     2.4581835525265023`, 0.25108605713119403`}, {2.465382745181465, 
     0.2506880492210579}, {2.4721078000602232`, 0.25039567722136347`}, {
     2.478703458783324, 0.25018333637544754`}, {2.4858615863775455`, 
     0.25003617118035515`}, {2.492542185347593, 0.2499769759906304}, {
     2.4997835801419184`, 0.24999800747304424`}, {2.4999999999999996`, 
     0.2500000000000002}}]}},
  AspectRatio->Automatic,
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-0.5, 5.5}, {-0.5, 3.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.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, 3.414219133234375*^9, {
   3.414219207703125*^9, 3.414219247421875*^9}, 3.414219328328125*^9, 
   3.41421978578125*^9, {3.415489588546875*^9, 3.415489650375*^9}, {
   3.415489681828125*^9, 3.41548972234375*^9}, {3.4154899205*^9, 
   3.4154899423125*^9}, 3.415660306671875*^9, 3.415683789625*^9, {
   3.415685426484375*^9, 3.415685429921875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"openfile", "[", "\"\<fig4.tex\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"openpicture", "[", "\"\<14/12cm\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", 
   RowBox[{"ABC", ",", "AM", ",", "bow1", ",", "bow2"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", 
   RowBox[{"bowdata", "[", 
    RowBox[{"pA", ",", "pG", ",", "2", ",", "0.7"}], "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bowname", "[", "\"\<2\>\"", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", 
   RowBox[{"bowdata", "[", 
    RowBox[{"pG", ",", "pM", ",", "3", ",", "0.6"}], "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bowname", "[", "\"\<1\>\"", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"letter", "[", 
   RowBox[{
   "pA", ",", "\"\<n\>\"", ",", "\"\<A\>\"", ",", "pB", ",", "\"\<sw\>\"", 
    ",", "\"\<B\>\"", ",", "pC", ",", "\"\<e\>\"", ",", "\"\<C\>\"", ",", 
    "pM", ",", "\"\<se\>\"", ",", "\"\<M\>\"", ",", "pG", ",", "\"\<ne\>\"", 
    ",", "\"\<G\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"expr", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"pB", "+", "pM"}], ")"}], "/", "2"}], ",", "\"\<c\>\"", ",", 
    "\"\<\\\\circ\>\"", ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"pC", "+", "pM"}], ")"}], "/", "2"}], ",", "\"\<c\>\"", ",", 
    "\"\<\\\\circ\>\""}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"setpt", "[", "3", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwpt", "[", "pG", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"closepicture", "[", "0", "]"}], ";"}], "\[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}, {3.414219335359375*^9, 
   3.414219374765625*^9}, {3.414219414671875*^9, 3.41421955946875*^9}, {
   3.414219793859375*^9, 3.4142198283125*^9}, {3.41548973496875*^9, 
   3.415489977*^9}, {3.4156602986875*^9, 3.41566031521875*^9}, {
   3.41568378196875*^9, 3.41568378621875*^9}, {3.41568543253125*^9, 
   3.415685432875*^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}, 3.414219377421875*^9, 3.414219422140625*^9, 
   3.41421952140625*^9, 3.414219559828125*^9, 3.41421982890625*^9, {
   3.415489891125*^9, 3.4154899774375*^9}, {3.415660312546875*^9, 
   3.41566031659375*^9}, {3.415683786890625*^9, 3.415683792453125*^9}, 
   3.415685433703125*^9}],

Cell[BoxData["\<\"fig4.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.412828296375*^9}, 3.414219377421875*^9, 3.414219422140625*^9, 
   3.41421952140625*^9, 3.414219559828125*^9, 3.41421982890625*^9, {
   3.415489891125*^9, 3.4154899774375*^9}, {3.415660312546875*^9, 
   3.41566031659375*^9}, {3.415683786890625*^9, 3.415683792453125*^9}, 
   3.41568543371875*^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.412828296375*^9}, 3.414219377421875*^9, 3.414219422140625*^9, 
   3.41421952140625*^9, 3.414219559828125*^9, 3.41421982890625*^9, {
   3.415489891125*^9, 3.4154899774375*^9}, {3.415660312546875*^9, 
   3.41566031659375*^9}, {3.415683786890625*^9, 3.415683792453125*^9}, 
   3.415685434015625*^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, 5199, 101, 333, "Input"],
Cell[5792, 126, 4130, 59, 42, "Output"],
Cell[9925, 187, 13892, 203, 255, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23854, 395, 5264, 99, 333, "Input"],
Cell[29121, 496, 2222, 33, 42, "Output"],
Cell[31346, 531, 2157, 32, 42, "Output"],
Cell[33506, 565, 2156, 32, 42, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)