(* 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[     22947,        503]
NotebookOptionsPosition[     22369,        479]
NotebookOutlinePosition[     22723,        495]
CellTagsIndexPosition[     22680,        492]
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.3"}], ",", "1.3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1.3"}], ",", "1.3"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"a", ":=", 
  RowBox[{"25", "*", 
   RowBox[{"Pi", "/", "180"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"pP", ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Cos", "[", "a", "]"}], ",", 
    RowBox[{"Sin", "[", "a", "]"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"pQ", ":=", 
  RowBox[{"-", "pP"}]}], "\[IndentingNewLine]", 
 RowBox[{"pO", ":=", 
  RowBox[{"{", 
   RowBox[{"0", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"pA", ":=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"PQ", ":=", 
  RowBox[{"listplotdata", "[", 
   RowBox[{"{", 
    RowBox[{"pP", ",", "pQ"}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"cir1", ":=", 
  RowBox[{"parametricplotdata", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Cos", "[", "t", "]"}], ",", 
      RowBox[{"Sin", "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", 
      RowBox[{"2", "*", "Pi"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"cir2", ":=", 
  RowBox[{"parametricplotdata", "[", 
   RowBox[{
    RowBox[{"0.3", "*", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "t", "]"}], ",", 
       RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "a"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"cir3", ":=", 
  RowBox[{"parametricplotdata", "[", 
   RowBox[{
    RowBox[{"0.2", "*", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "t", "]"}], ",", 
       RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", 
      RowBox[{"a", "+", "Pi"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"lines1", ":=", 
  RowBox[{"listplotdata", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"pP", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "pP", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"pP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}]}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"lines2", ":=", 
  RowBox[{"listplotdata", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"pQ", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "pQ", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"pQ", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}]}], "}"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tri1", ":=", 
  RowBox[{"listplotdata", "[", 
   RowBox[{"{", 
    RowBox[{"pO", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"pP", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], ",", "pP", ",", 
     "pO"}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tri2", ":=", 
  RowBox[{"listplotdata", "[", 
   RowBox[{"{", 
    RowBox[{"pO", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"pQ", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], ",", "pQ", ",", 
     "pO"}], "}"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"pd1", ":=", 
  RowBox[{"hatchdata", "[", 
   RowBox[{"\"\<i\>\"", ",", 
    RowBox[{"{", "tri1", "}"}], ",", "60", ",", "0.8"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"pd2", ":=", 
  RowBox[{"hatchdata", "[", 
   RowBox[{"\"\<i\>\"", ",", 
    RowBox[{"{", "tri2", "}"}], ",", "60", ",", "0.8"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"windisp", "[", 
  RowBox[{
  "PQ", ",", "cir1", ",", "cir2", ",", "cir3", ",", "tri1", ",", "tri2", ",", 
   "lines1", ",", "lines2", ",", "pd1", ",", "pd2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.41444383378125*^9, 3.414443962359375*^9}, {
  3.414443996609375*^9, 3.41444401496875*^9}, {3.414474751109375*^9, 
  3.4144748720625*^9}, {3.414475334*^9, 3.414475481484375*^9}, {
  3.414475607625*^9, 3.414475608828125*^9}, {3.414475659546875*^9, 
  3.414475664640625*^9}, {3.414475766265625*^9, 3.414476073*^9}, {
  3.414476146484375*^9, 3.414476151203125*^9}, {3.414546280921875*^9, 
  3.414546315921875*^9}, {3.41454640103125*^9, 3.414546449421875*^9}, {
  3.414546481890625*^9, 3.414546511390625*^9}, {3.4145465669375*^9, 
  3.414546608546875*^9}, {3.4145466706875*^9, 3.414546698421875*^9}, {
  3.414546751984375*^9, 3.414546770484375*^9}, {3.41454685171875*^9, 
  3.414546985515625*^9}, {3.41454711615625*^9, 3.414547122828125*^9}, {
  3.414547356671875*^9, 3.414547359609375*^9}}],

Cell[BoxData["\<\"v2.5.3a\"\>"], "Output",
 CellChangeTimes->{{3.414443931578125*^9, 3.414443962671875*^9}, {
   3.4144439990625*^9, 3.41444401525*^9}, {3.414474769046875*^9, 
   3.414474792296875*^9}, 3.41447482725*^9, {3.4144748626875*^9, 
   3.414474872421875*^9}, 3.414475103015625*^9, 3.414475348953125*^9, {
   3.41447541546875*^9, 3.414475481875*^9}, 3.4144756091875*^9, {
   3.41447566059375*^9, 3.414475665*^9}, {3.414475932765625*^9, 
   3.414475951625*^9}, {3.41447599284375*^9, 3.41447600496875*^9}, 
   3.41447607375*^9, 3.41447615178125*^9, 3.4145465119375*^9, 
   3.41454660915625*^9, {3.414546685890625*^9, 3.414546698875*^9}, {
   3.414546939875*^9, 3.4145469859375*^9}, {3.414547118609375*^9, 
   3.414547123203125*^9}, 3.414547360296875*^9}],

Cell[BoxData[
 GraphicsBox[{
   LineBox[{{0.9063077870366499, 
    0.42261826174069944`}, {-0.9063077870366499, -0.42261826174069944`}}], \
{{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{1., 0.}, {0.9924044427064662, 0.12301797468853186`}, {
      0.9671480594262246, 0.25421375090283377`}, {0.9279661947381223, 
      0.37266438174750394`}, {0.8755257046001983, 0.48317154364089593`}, {
      0.8038585055812217, 0.5948205637036476}, {0.7241805768819538, 
      0.6896103915015496}, {0.6253367726430245, 0.7803549966396104}, {
      0.5173312969104025, 0.8557852120929649}, {0.40845107247678125`, 
      0.9127802152723115}, {0.28346894359945013`, 0.9589814169287181}, {
      0.16220307393755762`, 0.9867573981507345}, {0.040873816531479146`, 
      0.999164316377517}, {-0.0913986241848828, 
      0.9958143860665554}, {-0.2134232080586018, 
      0.976959842706943}, {-0.3419607628493819, 
      0.939714231387111}, {-0.4622038256587628, 
      0.8867737160890619}, {-0.5671938549556562, 
      0.8235843192415346}, {-0.6713911193027199, 
      0.7411032080091415}, {-0.757981914717511, 
      0.6522755682694056}, {-0.838604741995495, 
      0.5447403846812436}, {-0.9030298316595368, 
      0.4295778429259925}, {-0.9489735837718971, 
      0.3153555728112668}, {-0.9825173653353512, 
      0.18617096125464916`}, {-0.9980440062199017, 
      0.06251529131763409}, {-0.9982183400141599, -0.05966695617655674}, \
{-0.981560610816476, -0.19115116346385758`}, {-0.9504528820335238, \
-0.3108686523825912}, {-0.9003371379222682, -0.4351931043547664}, \
{-0.8353925685434854, -0.5496537604913825}, {-0.7617499966360892, \
-0.6478710848810264}, {-0.668953127499395, -0.7433045897939674}, \
{-0.5715957797315255, -0.8205353524334642}, {-0.467577400774867, \
-0.8839521334804388}, {-0.3469086519798865, -0.937898921622953}, \
{-0.22881315401874486`, -0.9734703593576921}, {-0.09691733002704285, \
-0.9952924349860343}, {0.027854961086660548`, -0.9996119752898425}, {
      0.14977221520161957`, -0.9887205285385753}, {
      0.2794210519753168, -0.9601686704496285}, {
      0.3960250851539529, -0.9182396919806964}, {
      0.5154654021912465, -0.8569103915485076}, {
      0.6237009085643952, -0.781663083851315}, {
      0.7149313436849485, -0.6991946608898226}, {
      0.8015943713631442, -0.5978682662584842}, {
      0.8696674251083102, -0.49363809588146834`}, {
      0.9233248141433473, -0.3840199051965317}, {
      0.965964429872143, -0.25867493156814725`}, {
      0.9904910879471646, -0.13757690466514436`}, {
      0.9999919791997156, -0.004005188664162112}, {
      1., -2.4492935982947064`*^-16}}]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{0.3, 0.}, {0.29998899718497696`, 0.0025693516598322597`}, {
      0.2999522098796945, 0.005354604400670467}, {0.29989451482855584`, 
      0.007954871196008496}, {0.29981606927894805`, 0.010503551881198118`}, {
      0.29970648375852404`, 0.013267388330095893`}, {0.2995812271691841, 
      0.015845766873385604`}, {0.29942043939987345`, 0.01863868207751512}, {
      0.2992372547719474, 0.02137908689698}, {0.2990437725634989, 
      0.023933701990923085`}, {0.29880932307943864`, 0.02670184339718265}, {
      0.29856732548186893`, 0.029283991439073325`}, {0.2983084294249343, 
      0.03181321948544328}, {0.2980032918359172, 0.03455485573630983}, {
      0.29769584795388837`, 0.037110404349930695`}, {0.29733783829905164`, 
      0.03987743617193838}, {0.2969613575922199, 0.042590516514661794`}, {
      0.29658793880643647`, 0.04511756370361201}, {0.2961586179546113, 
      0.0478547073046591}, {0.29573510797132657`, 0.05040581229568473}, {
      0.2952513986874841, 0.0531658873064703}, {0.2947514364175224, 
      0.05587119767650628}, {0.29426267032449466`, 0.058390760001028906`}, {
      0.29370841372060064`, 0.06111765464846064}, {0.2931681128801284, 
      0.06365891603149001}, {0.29261707796249153`, 0.06614563995225349}, {
      0.2919954347447477, 0.06883796981481782}, {0.2913929743426726, 
      0.07134517855980567}, {0.29071571074716235`, 0.07405656976104293}, {
      0.2900262687167895, 0.07671221189756304}, {0.2893613448756165, 
      0.07918340793230941}, {0.2886164699479015, 0.0818567851482822}, {
      0.28789884937120497`, 0.0843460285415752}, {0.2871745225937906, 
      0.0867801450392222}, {0.28636527576979687`, 0.08941436592230677}, {
      0.2855884451067343, 0.09186533634357305}, {0.2847226219470645, 
      0.09451470018779606}, {0.2838919481350192, 0.09698124449657035}, {
      0.2830568144601712, 0.09939235276247459}, {0.2821277953982139, 
      0.1019995444290981}, {0.2812390686926498, 0.10442502688958712`}, {
      0.28025244710181696`, 0.10704469110349796`}, {0.2792600691607304, 
      0.10960754432220475`}, {0.2783132153869434, 0.11198997339485718`}, {
      0.2772635760733518, 0.11456399688827495`}, {0.27626214806973237`, 
      0.11695822136086563`}, {0.27526033818546336`, 0.1192968827003637}, {
      0.274151038811413, 0.1218244963815698}, {0.2730949860117889, 
      0.12417378392889879`}, {0.27192758956017765`, 0.12670984979863065`}, {
      0.27189233611099495`, 0.12678547852220984`}}]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{0.2, 0.}, {0.19950698015404622`, 0.014034417330727087`}, {
      0.1978614932405135, 0.02916898168661779}, {0.19528977972753836`, 
      0.04314976169076197}, {0.19181066233920752`, 0.056645121705178894`}, {
      0.18698417807538578`, 0.0709712417072748}, {0.18151540751374676`, 
      0.08397712090277}, {0.17456982742978, 0.09759802944289823}, {
      0.16675815800568033`, 0.11041610724234284`}, {0.1586237414098694, 
      0.12181341741013135`}, {0.1489257981546614, 0.1334957176990972}, {
      0.139096419019676, 0.14370868524867494`}, {0.12878187132264868`, 
      0.1530203568765828}, {0.11688899916686651`, 0.1622866657300232}, {
      0.10519147350035725`, 0.17010218664915405`}, {0.09192580829266539, 
      0.17762219954087985`}, {0.07838243048105044, 0.18400052878153175`}, {
      0.06535443069339299, 0.18902062953218227`}, {0.05086621608279768, 
      0.19342344237816197`}, {0.03707849031262544, 0.1965329121448531}, {
      0.021931629396846623`, 0.19879387221944086`}, {0.006934918961115026, 
      0.19987973108597773`}, {-0.007092620939881826, 
      0.19987419725468106`}, {-0.022259781437556102`, 
      0.19875739515890278`}, {-0.03630636664554856, 
      0.19667701375859611`}, {-0.049899898192404576`, 
      0.19367498589231305`}, {-0.06437138827345278, 
      0.18935766256412334`}, {-0.07754669453703165, 
      0.1843543060695364}, {-0.09138943725901744, 
      0.17789876547486247`}, {-0.10446142267937474`, 
      0.17055149126231942`}, {-0.11612608883030653`, 
      0.16283344709541636`}, {-0.1281321951317875, 
      0.1535647764648832}, {-0.13867600739159572`, 
      0.14411441625988045`}, {-0.14833784003413852`, 
      0.13414874287150935`}, {-0.1580122098782366, 
      0.122605634166608}, {-0.16623152881477302`, 
      0.11120736858636343`}, {-0.17421350358771115`, 
      0.09823265835604043}, {-0.1807552040416634, 
      0.085601146089621}, {-0.1862811777315438, 
      0.07279644787315519}, {-0.19125034301622956`, 
      0.058509027475890776`}, {-0.19490153324497198`, 
      0.04487084062906651}, {-0.19776120673688236`, 
      0.02984133224191038}, {-0.19944305540889917`, 
      0.01491534944822908}, {-0.19999790998205536`, 
      0.0009143318925199147}, {-0.19949027713637288`, -0.01426987484364003}, \
{-0.1979771723089834, -0.028373213503921264`}, {-0.19552711974233128`, \
-0.042061210696650864`}, {-0.19180038990874207`, -0.056679894414638034`}, \
{-0.18733806946346698`, -0.0700317622918431}, {-0.1814538621508356, \
-0.08411002265215223}, {-0.18126155740733002`, -0.08452365234813985}}]}}, 
   LineBox[{{0., 0.}, {0.9063077870366499, 0.}, {0.9063077870366499, 
    0.42261826174069944`}, {0., 0.}}], 
   LineBox[{{0., 0.}, {-0.9063077870366499, 
    0.}, {-0.9063077870366499, -0.42261826174069944`}, {0., 0.}}], 
   LineBox[{{0., 0.42261826174069944`}, {0.9063077870366499, 
    0.42261826174069944`}, {0.9063077870366499, 0.}}], 
   LineBox[{{
    0., -0.42261826174069944`}, {-0.9063077870366499, -0.42261826174069944`}, \
{-0.9063077870366499, 0.}}], {
    LineBox[{{0.8082903768654761, -5.551115123125783*^-17}, {
     0.9063077870366499, 0.16977113444279152`}}], 
    LineBox[{{0.6928203230275509, -5.551115123125783*^-17}, {
     0.9063077870366499, 0.3697711344427914}}], 
    LineBox[{{0.5773502691896257, -2.7755575615628914`*^-17}, {
     0.7900497035777481, 0.3684062271013906}}], 
    LineBox[{{0.4618802153517006, -2.7755575615628914`*^-17}, {
     0.6320397628621984, 0.29472498168111244`}}], 
    LineBox[{{0.34641016151377546`, -2.7755575615628914`*^-17}, {
     0.4740298221466488, 0.2210437362608343}}], 
    LineBox[{{0.2309401076758503, -1.3877787807814457`*^-17}, {
     0.31601988143109927`, 0.14736249084055628`}}], 
    LineBox[{{0.11547005383792515`, -6.938893903907228*^-18}, {
     0.15800994071554958`, 0.07368124542027807}}]}, {
    LineBox[{{-0.15800994071554958`, -0.07368124542027807}, \
{-0.11547005383792515`, 6.938893903907228*^-18}}], 
    LineBox[{{-0.31601988143109927`, -0.14736249084055628`}, \
{-0.2309401076758503, 1.3877787807814457`*^-17}}], 
    LineBox[{{-0.4740298221466488, -0.2210437362608343}, \
{-0.34641016151377546`, 2.7755575615628914`*^-17}}], 
    LineBox[{{-0.6320397628621984, -0.29472498168111244`}, \
{-0.4618802153517006, 2.7755575615628914`*^-17}}], 
    LineBox[{{-0.7900497035777481, -0.3684062271013906}, {-0.5773502691896257,
      2.7755575615628914`*^-17}}], 
    LineBox[{{-0.9063077870366499, -0.3697711344427914}, {-0.6928203230275509,
      5.551115123125783*^-17}}], 
    LineBox[{{-0.9063077870366499, -0.16977113444279152`}, \
{-0.8082903768654761, 5.551115123125783*^-17}}]}},
  AspectRatio->Automatic,
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1.3, 1.3}, {-1.3, 1.3}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.414443931578125*^9, 3.414443962671875*^9}, {
   3.4144439990625*^9, 3.41444401525*^9}, {3.414474769046875*^9, 
   3.414474792296875*^9}, 3.41447482725*^9, {3.4144748626875*^9, 
   3.414474872421875*^9}, 3.414475103015625*^9, 3.414475348953125*^9, {
   3.41447541546875*^9, 3.414475481875*^9}, 3.4144756091875*^9, {
   3.41447566059375*^9, 3.414475665*^9}, {3.414475932765625*^9, 
   3.414475951625*^9}, {3.41447599284375*^9, 3.41447600496875*^9}, 
   3.41447607375*^9, 3.41447615178125*^9, 3.4145465119375*^9, 
   3.41454660915625*^9, {3.414546685890625*^9, 3.414546698875*^9}, {
   3.414546939875*^9, 3.4145469859375*^9}, {3.414547118609375*^9, 
   3.414547123203125*^9}, 3.414547360453125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"openfile", "[", "\"\<figure-q12.tex\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"openpicture", "[", "\"\<40/12cm\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", 
   RowBox[{"cir1", ",", "cir2", ",", "cir3"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", 
   RowBox[{"tri1", ",", "tri2", ",", "1.5"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"drwline", "[", 
   RowBox[{"pd1", ",", "pd2", ",", "0.5"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dashline", "[", 
   RowBox[{"lines1", ",", "lines2"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"arrowhead", "[", 
   RowBox[{
    RowBox[{"0.3", "*", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "a", "]"}], ",", 
       RowBox[{"Sin", "[", "a", "]"}]}], "}"}]}], ",", "cir2", ",", "1", ",", 
    "1", ",", "1", ",", "2", ",", "\"\<l\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"arrowhead", "[", 
   RowBox[{
    RowBox[{"0.2", "*", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"a", "+", "Pi"}], "]"}], ",", 
       RowBox[{"Sin", "[", 
        RowBox[{"a", "+", "Pi"}], "]"}]}], "}"}]}], ",", "cir3", ",", "1", 
    ",", "1", ",", "1", ",", "2", ",", "\"\<l\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"expr", "[", 
   RowBox[{
   "pO", ",", "\"\<ne21\>\"", ",", "\"\<\\\\theta\>\"", ",", "pO", ",", 
    "\"\<n12w5\>\"", ",", "\"\<\\\\theta+\\\\pi\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"htickmark", "[", 
   RowBox[{"1", ",", "\"\<ne\>\"", ",", "\"\<1\>\"", ",", 
    RowBox[{"-", "1"}], ",", "\"\<nw\>\"", ",", "\"\<-1\>\"", ",", 
    RowBox[{"Cos", "[", "a", "]"}], ",", "\"\<sw\>\"", ",", 
    "\"\<\\\\cos \\\\theta\>\"", ",", 
    RowBox[{"-", 
     RowBox[{"Cos", "[", "a", "]"}]}], ",", "\"\<ne\>\"", ",", 
    "\"\<\\\\cos(\\\\theta+\\\\pi)\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vtickmark", "[", 
   RowBox[{"1", ",", "\"\<ne\>\"", ",", "\"\<1\>\"", ",", 
    RowBox[{"-", "1"}], ",", "\"\<se\>\"", ",", "\"\<-1\>\"", ",", 
    RowBox[{"Sin", "[", "a", "]"}], ",", "\"\<w\>\"", ",", 
    "\"\<\\\\sin \\\\theta\>\"", ",", 
    RowBox[{"-", 
     RowBox[{"Sin", "[", "a", "]"}]}], ",", "\"\<e\>\"", ",", 
    "\"\<\\\\sin(\\\\theta+\\\\pi)\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"setax", "[", 
   RowBox[{
   "\"\<a\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", 
    "\"\<\>\"", ",", "\"\<O\>\"", ",", "\"\<se\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"closepicture", "[", "1", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"closefile", "[", "]"}], "            "}]}], "Input",
 CellChangeTimes->{{3.414443981265625*^9, 3.414443981375*^9}, {
   3.41444402590625*^9, 3.41444411175*^9}, {3.41447487690625*^9, 
   3.414474950484375*^9}, {3.4144750746875*^9, 3.4144751250625*^9}, {
   3.4144754904375*^9, 3.414475537375*^9}, {3.414475581359375*^9, 
   3.41447564728125*^9}, 3.414475677875*^9, {3.414476083875*^9, 
   3.414476246109375*^9}, {3.414476279*^9, 3.4144763183125*^9}, {
   3.414546267328125*^9, 3.41454627734375*^9}, {3.414546717921875*^9, 
   3.414546743453125*^9}, {3.4145467750625*^9, 3.41454678328125*^9}, {
   3.414546818328125*^9, 3.414546839734375*^9}, {3.41454700434375*^9, 
   3.41454701290625*^9}, {3.414547066453125*^9, 3.414547238046875*^9}, {
   3.414547322421875*^9, 3.414547323421875*^9}, {3.414547366140625*^9, 
   3.41454737834375*^9}, {3.414547442203125*^9, 3.41454764275*^9}}],

Cell[BoxData["\<\"E:\\\\files\\\\kisarazu-national-college\\\\lecture\\\\text-\
answer\\\\fundmental-mathematics\\\\chapter5\\\\section2\"\>"], "Output",
 CellChangeTimes->{{3.414444048765625*^9, 3.414444112046875*^9}, 
   3.4144749509375*^9, {3.414475081015625*^9, 3.4144751253125*^9}, 
   3.414475538625*^9, {3.414475582203125*^9, 3.41447564753125*^9}, 
   3.414475678828125*^9, {3.414476253265625*^9, 3.414476319015625*^9}, 
   3.41454724625*^9, 3.414547324015625*^9, 3.41454737903125*^9, 
   3.414547443171875*^9, {3.4145474825625*^9, 3.414547537046875*^9}, {
   3.41454757321875*^9, 3.414547643109375*^9}}],

Cell[BoxData["\<\"figure-q12.tex\"\>"], "Output",
 CellChangeTimes->{{3.414444048765625*^9, 3.414444112046875*^9}, 
   3.4144749509375*^9, {3.414475081015625*^9, 3.4144751253125*^9}, 
   3.414475538625*^9, {3.414475582203125*^9, 3.41447564753125*^9}, 
   3.414475678828125*^9, {3.414476253265625*^9, 3.414476319015625*^9}, 
   3.41454724625*^9, 3.414547324015625*^9, 3.41454737903125*^9, 
   3.414547443171875*^9, {3.4145474825625*^9, 3.414547537046875*^9}, {
   3.41454757321875*^9, 3.414547643109375*^9}}],

Cell[BoxData["\<\"stdout\"\>"], "Output",
 CellChangeTimes->{{3.414444048765625*^9, 3.414444112046875*^9}, 
   3.4144749509375*^9, {3.414475081015625*^9, 3.4144751253125*^9}, 
   3.414475538625*^9, {3.414475582203125*^9, 3.41447564753125*^9}, 
   3.414475678828125*^9, {3.414476253265625*^9, 3.414476319015625*^9}, 
   3.41454724625*^9, 3.414547324015625*^9, 3.41454737903125*^9, 
   3.414547443171875*^9, {3.4145474825625*^9, 3.414547537046875*^9}, {
   3.41454757321875*^9, 3.414547643671875*^9}}]
}, Open  ]]
},
WindowSize->{1016, 665},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (2007\:5e746\:670819\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 4907, 136, 723, "Input"],
Cell[5500, 161, 760, 11, 42, "Output"],
Cell[6263, 174, 10653, 177, 375, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16953, 356, 3774, 92, 587, "Input"],
Cell[20730, 450, 611, 8, 77, "Output"],
Cell[21344, 460, 507, 7, 42, "Output"],
Cell[21854, 469, 499, 7, 42, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)