(* 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[ 25293, 624] NotebookOptionsPosition[ 24713, 600] NotebookOutlinePosition[ 25069, 616] CellTagsIndexPosition[ 25026, 613] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Get", "[", " ", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Get", "[", " ", "\"\\"", "]"}], "\[IndentingNewLine]", "ThisVersion", "\[IndentingNewLine]", RowBox[{ RowBox[{"setwindow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6.3"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"e", "[", "x_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", RowBox[{"Sin", "[", "x", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g1", "=", RowBox[{"plotdata", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "Pi"}], "-", "0.2"}], ",", "XMAX"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g2", "=", RowBox[{"plotdata", "[", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", RowBox[{"Pi", "*", RowBox[{"3", "/", "2"}]}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"axs1", ":=", RowBox[{"arrowdata", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6.3"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.7"}], ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"axs2", ":=", RowBox[{"arrowdata", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "YMIN"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "YMAX"}], "}"}]}], "]"}]}], ";", RowBox[{"axs3", ":=", RowBox[{"arrowdata", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "Pi"}], "-", "0.2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"axs4", ":=", RowBox[{"arrowdata", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "YMIN"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "YMAX"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cir1", ":=", RowBox[{"parametricplotdata", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0"}], "}"}], "+", RowBox[{"e", "[", "t", "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "*", "Pi"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cir2", ":=", RowBox[{"parametricplotdata", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0"}], "}"}], "+", RowBox[{"0.2", "*", RowBox[{"e", "[", "t", "]"}]}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "40"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pA", ":=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0"}], "}"}], "+", RowBox[{"e", "[", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "40"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pB", ":=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0"}], "}"}], "+", RowBox[{"e", "[", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "90"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pC", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "40"}], ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "40"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pD", ":=", RowBox[{"{", RowBox[{ RowBox[{"Pi", "/", "2"}], ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pE", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "40"}], ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pF", ":=", RowBox[{"{", RowBox[{ RowBox[{"Pi", "/", "2"}], ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pO", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AC", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pA", ",", "pC"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BD", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pB", ",", "pD"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"OA", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pO", ",", "pA"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CE", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pC", ",", "pE"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DF", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pD", ",", "pF"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"line1", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", "*", RowBox[{"Pi", "/", "2"}]}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", "*", RowBox[{"Pi", "/", "2"}]}], ",", "0"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"line2", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pA", ",", RowBox[{"{", RowBox[{ RowBox[{"pA", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"windisp", "[", RowBox[{ "g1", ",", "g2", ",", "axs1", ",", "axs2", ",", "axs3", ",", "axs4", ",", "cir1", ",", "cir2", ",", "AC", ",", "BD", ",", "OA", ",", "CE", ",", "DF", ",", "line1", ",", "line2"}], "]"}]}], "Input", CellChangeTimes->{{3.403402026734375*^9, 3.403402121046875*^9}, { 3.403402160046875*^9, 3.40340218353125*^9}, {3.403402279015625*^9, 3.403402370609375*^9}, {3.40340250159375*^9, 3.403402505171875*^9}, { 3.4034026114375*^9, 3.40340262278125*^9}, {3.40340281790625*^9, 3.40340286796875*^9}, {3.4034029011875*^9, 3.403402970296875*^9}, { 3.403403018203125*^9, 3.40340363290625*^9}, {3.40340366628125*^9, 3.40340368334375*^9}, {3.403403780140625*^9, 3.40340379728125*^9}, { 3.40340397378125*^9, 3.403403991078125*^9}, {3.40340449696875*^9, 3.403404534*^9}, 3.438466331453125*^9}, FontSize->16], Cell[BoxData["\<\"v2.5.7a\"\>"], "Output", CellChangeTimes->{{3.403402115671875*^9, 3.40340214871875*^9}, 3.403402184296875*^9, {3.40340235946875*^9, 3.403402371109375*^9}, 3.403402506*^9, {3.40340261640625*^9, 3.403402623359375*^9}, { 3.403402861921875*^9, 3.403402868671875*^9}, {3.403402906203125*^9, 3.403402970828125*^9}, {3.403403061546875*^9, 3.403403105109375*^9}, 3.403403143796875*^9, {3.40340317446875*^9, 3.403403216171875*^9}, 3.40340327446875*^9, 3.40340332571875*^9, 3.4034033774375*^9, 3.40340343378125*^9, 3.403403519296875*^9, 3.40340356315625*^9, 3.40340361821875*^9, 3.403403683921875*^9, 3.403403797796875*^9, { 3.403403983609375*^9, 3.403403991484375*^9}, 3.403404552265625*^9, { 3.438466333078125*^9, 3.438466356890625*^9}, 3.438466416859375*^9, 3.43846661903125*^9}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{-3.341592442536882, 0.19866912394915248`}, {-3.1386010351082434`, -0.002991614019163394}, \ {-2.918535088484386, -0.22121246833785985`}, {-2.713052539359972, \ -0.4155433725057394}, {-2.5116007421701143`, -0.5891382221275945}, \ {-2.293074405785038, -0.7503016492713499}, {-2.089131466899405, \ -0.868645212417559}, {-1.8681139888185536`, -0.9561257364572825}, \ {-1.6511272626722584`, -0.9967752050795986}, {-1.448723934025407, \ -0.9925584133562901}, {-1.2292460661833366`, -0.9422365409673475}, \ {-1.0243515958407101`, -0.8543774239475104}, {-0.8234878774326398, \ -0.7335208815596609}, {-0.6055496198293505, -0.5692140537923028}, \ {-0.402194759725505, -0.3914389103521895}, {-0.18176536042644062`, \ -0.18076613227220267`}, {0.03463328693806755, 0.03462636378654739}, { 0.23644853680313196`, 0.2342514635523795}, {0.45533832586341527`, 0.43976619358659375`}, {0.6596447174242549, 0.6128361428089593}, { 0.8810256481803134, 0.7713919663050661}, {1.0983758270018156`, 0.8904694663382476}, {1.301142608323874, 0.9638632027504516}, { 1.5209839288411513`, 0.9987596190140647}, {1.7262418518589848`, 0.987942652516406}, {1.9274690229422622`, 0.937063764299618}, { 2.1457707332207585`, 0.8392062208218384}, {2.3494890459998112`, 0.711832313959192}, {2.5702818979740827`, 0.5407351112835188}, { 2.787043998013798, 0.34716712833160956`}, {2.9892227005540697`, 0.15178105162506464`}, {3.20847594228956, -0.06683343418775857}, { 3.413145786525607, -0.268227978701117}, { 3.6137848788270976`, -0.45483971406403073`}, { 3.831498510323807, -0.6364645717825445}, { 4.034628744321072, -0.778979115149591}, { 4.254833517513556, -0.8971350667786311}, { 4.460454893206596, -0.968432108982067}, { 4.6620455169650805`, -0.9987330354690712}, { 4.880710679918783, -0.9858673175472663}, { 5.084792445373043, -0.9314555235525701}, { 5.30594875002252, -0.8289549013880503}, { 5.5230743027374425`, -0.689001900882964}, { 5.7256164579529205`, -0.5291248252459422}, { 5.945233152363618, -0.33155577862153757`}, { 6.150266449274871, -0.13252781455785614`}, {6.351268994251568, 0.06803110020542798}, {6.569346078423484, 0.28227120928108523`}, { 6.772839765095957, 0.470320976946598}, {6.9934079909636475`, 0.6520026297507857}, {6.999999788947089, 0.656986439605509}}]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{-4.99999980178798, -1.}, {-4.809358807246551, -1.}, \ {-4.602682123437549, -1.}, {-4.40970155336215, -1.}, {-4.220506496019962, \ -1.}, {-4.0152757494102005`, -1.}, {-3.8237411165340434`, -1.}, \ {-3.6161707943903125`, -1.}, {-3.412385984979793, -1.}, {-3.222297289302877, \ -1.}, {-3.016172904358387, -1.}, {-2.8237446331475007`, -1.}, \ {-2.635101874669826, -1.}, {-2.4304234269245772`, -1.}, \ {-2.2394410929129323`, -1.}, {-2.0324230696337136`, -1.}, \ {-1.829190559087706, -1.}, {-1.6396541622753023`, -1.}, \ {-1.4340820761953248`, -1.}, {-1.2422061038489511`, -1.}, \ {-1.0342944422350036`, -1.}, {-0.8301682933542672, -1.}, \ {-0.6397382582071346, -1.}, {-0.43327253379242814`, -1.}, \ {-0.24050292311132546`, -1.}, {-0.051518825163434014`, -1.}, { 0.1535009620520313, -1.}, {0.3448246355338928, -1.}, { 0.5521839982833282, -1.}, {0.7557578482995524, -1.}, { 0.9456355845821727, -1.}, {1.1515490101323669`, -1.}, { 1.3437663219489573`, -1.}, {1.5321981210323363`, -1.}, { 1.7366656093832893`, -1.}, {1.9274369840006385`, -1.}, { 2.1342440478855615`, -1.}, {2.327354998036881, -1.}, { 2.516680435454989, -1.}, {2.722041562140671, -1.}, { 2.913706575092749, -1.}, {3.1214072773124006`, -1.}, { 3.3253224667988412`, -1.}, {3.515541542551678, -1.}, { 3.7217963075720886`, -1.}, {3.9143549588588953`, -1.}, { 4.103128097412491, -1.}, {4.307936925233661, -1.}, { 4.499049639321227, -1.}, {4.706198042676367, -1.}, { 4.7123887821726695`, -1.}}]}}, {LineBox[{{-6.3, 0.}, {-3.7, 0.}}], LineBox[{{-3.890211303259031, -0.06180339887498948}, {-3.7, 0.}, {-3.890211303259031, 0.06180339887498948}}]}, { LineBox[{{-5., -1.5}, {-5., 1.5}}], LineBox[{{-4.938196601125011, 1.3097886967409693`}, {-5., 1.5}, {-5.061803398874989, 1.3097886967409693`}}]}, { LineBox[{{-3.3415926535897933`, 0.}, {7., 0.}}], LineBox[{{6.809788696740968, -0.06180339887498948}, {6.999999999999999, 0.}, {6.809788696740968, 0.06180339887498948}}]}, { LineBox[{{0., -1.5}, {0., 1.5}}], LineBox[{{0.06180339887498948, 1.3097886967409693`}, {0., 1.5}, {-0.06180339887498948, 1.3097886967409693`}}]}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{-4., 0.}, {-4.007595557293534, 0.12301797468853186`}, {-4.032851940573775, 0.25421375090283377`}, {-4.072033805261878, 0.37266438174750394`}, {-4.124474295399802, 0.48317154364089593`}, {-4.196141494418779, 0.5948205637036476}, {-4.275819423118046, 0.6896103915015496}, {-4.374663227356976, 0.7803549966396104}, {-4.4826687030895975`, 0.8557852120929649}, {-4.591548927523219, 0.9127802152723115}, {-4.71653105640055, 0.9589814169287181}, {-4.837796926062443, 0.9867573981507345}, {-4.959126183468521, 0.999164316377517}, {-5.091398624184883, 0.9958143860665554}, {-5.213423208058602, 0.976959842706943}, {-5.341960762849382, 0.939714231387111}, {-5.462203825658762, 0.8867737160890619}, {-5.567193854955656, 0.8235843192415346}, {-5.6713911193027196`, 0.7411032080091415}, {-5.757981914717511, 0.6522755682694056}, {-5.8386047419954945`, 0.5447403846812436}, {-5.903029831659537, 0.4295778429259925}, {-5.948973583771897, 0.3153555728112668}, {-5.982517365335351, 0.18617096125464916`}, {-5.998044006219902, 0.06251529131763409}, {-5.9982183400141595`, -0.05966695617655674}, \ {-5.9815606108164765`, -0.19115116346385758`}, {-5.950452882033524, \ -0.3108686523825912}, {-5.900337137922268, -0.4351931043547664}, \ {-5.835392568543486, -0.5496537604913825}, {-5.761749996636089, \ -0.6478710848810264}, {-5.668953127499395, -0.7433045897939674}, \ {-5.571595779731526, -0.8205353524334642}, {-5.467577400774867, \ -0.8839521334804388}, {-5.346908651979886, -0.937898921622953}, \ {-5.228813154018745, -0.9734703593576921}, {-5.0969173300270425`, \ -0.9952924349860343}, {-4.9721450389133395`, -0.9996119752898425}, \ {-4.85022778479838, -0.9887205285385753}, {-4.720578948024683, \ -0.9601686704496285}, {-4.603974914846047, -0.9182396919806964}, \ {-4.484534597808754, -0.8569103915485076}, {-4.376299091435605, \ -0.781663083851315}, {-4.285068656315051, -0.6991946608898226}, \ {-4.198405628636856, -0.5978682662584842}, {-4.13033257489169, \ -0.49363809588146834`}, {-4.076675185856653, -0.3840199051965317}, \ {-4.034035570127857, -0.25867493156814725`}, {-4.009508912052835, \ -0.13757690466514436`}, {-4.000008020800284, -0.004005188664162112}, {-4., \ -2.4492935982947064`*^-16}}]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{-4.8, 0.}, {-4.800018777958575, 0.0027405895019359887`}, {-4.800081558427134, 0.005711104891059645}, {-4.800180011567127, 0.008483644422442189}, {-4.8003138583885665`, 0.011200216441588556`}, {-4.80050080694542, 0.014144679938810606`}, {-4.80071444620376, 0.016889880050671668`}, {-4.800988619846014, 0.019861283171174034`}, {-4.801300891128039, 0.02277419885503247}, {-4.80163060862131, 0.025486948896406653`}, {-4.802029990858512, 0.02842315043268835}, {-4.8024420604921, 0.031158635037387986`}, {-4.802882712476005, 0.03383452318538697}, {-4.803401814508556, 0.03673082440500968}, {-4.803924560918274, 0.03942616122460371}, {-4.8045329310723215`, 0.042339402036661325`}, {-4.805172279251358, 0.045190255895370915`}, {-4.80580601220189, 0.04784030835046283}, {-4.806534105698864, 0.050704514022537055`}, {-4.807251808222373, 0.0533679170143956}, {-4.808070875913052, 0.056242433510801104`}, {-4.808916734108708, 0.059052396194547246`}, {-4.8097429317000575`, 0.061662370712703835`}, {-4.8106789729138635`, 0.06447905631327484}, {-4.811590565252727, 0.06709608705590263}, {-4.812519372679112, 0.06964922382457829}, {-4.813566109265653, 0.072404450040407}, {-4.814579446117685, 0.0749614447431184}, {-4.8157173090222525`, 0.0777167279676657}, {-4.816874226456435, 0.08040491940217959}, {-4.81798865621524, 0.08289674742513005}, {-4.819235516669478, 0.08558154921622652}, {-4.820435185937396, 0.08807086663966911}, {-4.821644503041016, 0.09049484352444531}, {-4.822993741697522, 0.09310630763679066}, {-4.824287086854663, 0.09552472011986801}, {-4.825726462106202, 0.09812611268148125}, {-4.827105288133369, 0.10053565839320289`}, {-4.828489426707637, 0.1028791681970879}, {-4.830026704852646, 0.10539961544877806`}, {-4.831494878325263, 0.10773125808873713`}, {-4.8331219862290276`, 0.11023487887168548`}, {-4.834755625691001, 0.11266896981523933`}, {-4.836311552158266, 0.11491776208734683`}, {-4.838033215451418, 0.11733184010741973`}, {-4.8396726937380325`, 0.11956234719501493`}, {-4.8413097586340745`, 0.12172677312417442`}, {-4.84311892338469, 0.12404969891144911`}, {-4.844837778224794, 0.12619304629725714`}, {-4.846733915604066, 0.1284893278600925}, {-4.846791111376205, 0.12855752193730785`}}]}}, LineBox[{{-4.233955556881022, 0.6427876096865393}, {0.6981317007977318, 0.6427876096865393}}], LineBox[{{-5., 1.}, {1.5707963267948966`, 1.}}], LineBox[{{-5., 0.}, {-4.233955556881022, 0.6427876096865393}}], LineBox[{{0.6981317007977318, 0.6427876096865393}, {0.6981317007977318, 0.}}], LineBox[{{1.5707963267948966`, 1.}, {1.5707963267948966`, 0.}}], LineBox[{{4.71238898038469, -1.}, {4.71238898038469, 0.}}], LineBox[{{-4.233955556881022, 0.6427876096865393}, {-4.233955556881022, 0.}}]}, AspectRatio->Automatic, Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-6.3, 7.}, {-1.5, 1.5}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.403402115671875*^9, 3.40340214871875*^9}, 3.403402184296875*^9, {3.40340235946875*^9, 3.403402371109375*^9}, 3.403402506*^9, {3.40340261640625*^9, 3.403402623359375*^9}, { 3.403402861921875*^9, 3.403402868671875*^9}, {3.403402906203125*^9, 3.403402970828125*^9}, {3.403403061546875*^9, 3.403403105109375*^9}, 3.403403143796875*^9, {3.40340317446875*^9, 3.403403216171875*^9}, 3.40340327446875*^9, 3.40340332571875*^9, 3.4034033774375*^9, 3.40340343378125*^9, 3.403403519296875*^9, 3.40340356315625*^9, 3.40340361821875*^9, 3.403403683921875*^9, 3.403403797796875*^9, { 3.403403983609375*^9, 3.403403991484375*^9}, 3.403404552265625*^9, { 3.438466333078125*^9, 3.438466356890625*^9}, 3.438466416859375*^9, 3.438466619109375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"openfile", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"openpicture", "[", "\"\<12/12cm\>\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"drwline", "[", RowBox[{ "g1", ",", "axs1", ",", "axs2", ",", "axs3", ",", "axs4", ",", "cir1", ",", "cir2", ",", "OA"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dashline", "[", RowBox[{ "g2", ",", "AC", ",", "BD", ",", "CE", ",", "DF", ",", "line1", ",", "line2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"letter", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "\"\\"", ",", "\"\\"", ",", "pO", ",", "\"\\"", ",", "\"\\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"expr", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "5"}], "+", "0.1"}], ",", "0.1"}], "}"}], "+", RowBox[{"0.2", "*", RowBox[{"e", "[", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "20"}], "]"}]}]}], ",", "\"\\"", ",", "\"\\"", ",", RowBox[{"{", RowBox[{"7", ",", "0"}], "}"}], ",", "\"\\"", ",", "\"\\"", ",", RowBox[{"{", RowBox[{"0", ",", "YMAX"}], "}"}], ",", "\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{"expr", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"pC", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], ",", "\"\\"", ",", "\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"Pi", "/", "2"}], ",", "0"}], "}"}], ",", "\"\\"", ",", "\"\<\\\\Fbox{\\\\phantom{aa}}\>\"", ",", RowBox[{"{", RowBox[{"Pi", ",", "0"}], "}"}], ",", "\"\\"", ",", "\"\<\\\\Fbox{\\\\phantom{a}}\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"3", "*", RowBox[{"Pi", "/", "2"}]}], ",", "0"}], "}"}], ",", "\"\\"", ",", "\"\<\\\\Fbox{\\\\phantom{aa}}\>\"", ",", RowBox[{"{", RowBox[{"0.1", ",", "1"}], "}"}], ",", "\"\\"", ",", "\"\<\\\\Fbox{\\\\phantom{a}}\>\"", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", "\"\\"", ",", "\"\<\\\\Fbox{\\\\phantom{a}}\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"expr", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1"}], "}"}], ",", "\"\\"", ",", "\"\<1\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", "\"\\"", ",", "\"\<-1\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"closepicture", "[", "0", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"closefile", "[", "]"}], " "}]}], "Input", CellChangeTimes->{{3.4034020005625*^9, 3.403402006203125*^9}, { 3.403403701578125*^9, 3.403403761875*^9}, {3.403403804375*^9, 3.40340386221875*^9}, {3.403403929640625*^9, 3.403403930078125*^9}, { 3.403404033828125*^9, 3.403404261515625*^9}, {3.403404332296875*^9, 3.40340443090625*^9}, {3.4034044613125*^9, 3.403404478125*^9}, { 3.40340454553125*^9, 3.4034045495*^9}, {3.403404596375*^9, 3.4034046634375*^9}, {3.403404747921875*^9, 3.4034047724375*^9}, { 3.43846631353125*^9, 3.43846635971875*^9}}, FontSize->16], Cell[BoxData["\<\"E:\\\\files\\\\kisarazu-national-college\\\\KETpic\\\\\ examples\\\\41-50\"\>"], "Output", CellChangeTimes->{ 3.403403864640625*^9, 3.403403931890625*^9, 3.403404028359375*^9, { 3.40340406534375*^9, 3.403404185515625*^9}, {3.40340423421875*^9, 3.4034042621875*^9}, {3.4034044100625*^9, 3.403404433875*^9}, 3.403404478828125*^9, 3.403404554796875*^9, {3.403404614234375*^9, 3.40340463378125*^9}, 3.403404663890625*^9, 3.403404773203125*^9, { 3.438466344453125*^9, 3.43846636009375*^9}, 3.438466417859375*^9, 3.438466619609375*^9}], Cell[BoxData["\<\"fig49.tex\"\>"], "Output", CellChangeTimes->{ 3.403403864640625*^9, 3.403403931890625*^9, 3.403404028359375*^9, { 3.40340406534375*^9, 3.403404185515625*^9}, {3.40340423421875*^9, 3.4034042621875*^9}, {3.4034044100625*^9, 3.403404433875*^9}, 3.403404478828125*^9, 3.403404554796875*^9, {3.403404614234375*^9, 3.40340463378125*^9}, 3.403404663890625*^9, 3.403404773203125*^9, { 3.438466344453125*^9, 3.43846636009375*^9}, 3.438466417859375*^9, 3.438466619625*^9}], Cell[BoxData["\<\"stdout\"\>"], "Output", CellChangeTimes->{ 3.403403864640625*^9, 3.403403931890625*^9, 3.403404028359375*^9, { 3.40340406534375*^9, 3.403404185515625*^9}, {3.40340423421875*^9, 3.4034042621875*^9}, {3.4034044100625*^9, 3.403404433875*^9}, 3.403404478828125*^9, 3.403404554796875*^9, {3.403404614234375*^9, 3.40340463378125*^9}, 3.403404663890625*^9, 3.403404773203125*^9, { 3.438466344453125*^9, 3.43846636009375*^9}, 3.438466417859375*^9, 3.438466619796875*^9}] }, Open ]] }, WindowSize->{845, 651}, WindowMargins->{{Automatic, -906}, {5, Automatic}}, 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, 6957, 233, 678, "Input"], Cell[7550, 258, 832, 12, 42, "Output"], Cell[8385, 272, 11277, 199, 109, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19699, 476, 3407, 90, 356, "Input"], Cell[23109, 568, 572, 9, 77, "Output"], Cell[23684, 579, 505, 8, 42, "Output"], Cell[24192, 589, 505, 8, 42, "Output"] }, Open ]] } ] *) (* End of internal cache information *)