(* 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[ 47337, 1057] NotebookOptionsPosition[ 46791, 1034] NotebookOutlinePosition[ 47145, 1050] CellTagsIndexPosition[ 47102, 1047] 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[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"e", "[", "x_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", RowBox[{"Sin", "[", "x", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pO", ":=", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g11", "=", RowBox[{"plotdata", "[", RowBox[{ RowBox[{"Tan", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "Pi"}], "-", "0.2"}], ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g12", "=", RowBox[{"plotdata", "[", RowBox[{ RowBox[{"Tan", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g13", "=", RowBox[{"plotdata", "[", RowBox[{ RowBox[{"Tan", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"Pi", "/", "2"}], ",", RowBox[{"3", "*", RowBox[{"Pi", "/", "2"}]}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g14", "=", RowBox[{"plotdata", "[", RowBox[{ RowBox[{"Tan", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"3", "*", RowBox[{"Pi", "/", "2"}]}], ",", RowBox[{"5", "*", RowBox[{"Pi", "/", "2"}]}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g2", ":=", RowBox[{"parametricplotdata", "[", RowBox[{ RowBox[{"pO", "+", RowBox[{"{", RowBox[{"1", ",", "t"}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "YMIN", ",", "YMAX"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g31", ":=", RowBox[{"parametricplotdata", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "YMIN", ",", "YMAX"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g32", ":=", RowBox[{"parametricplotdata", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Pi", "/", "2"}], ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "YMIN", ",", "YMAX"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g33", ":=", RowBox[{"parametricplotdata", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", "*", RowBox[{"Pi", "/", "2"}]}], ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "YMIN", ",", "YMAX"}], "}"}]}], "]"}]}], ";"}], "\[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[{"XMAX", ",", "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"}], "*", "150"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cir3", ":=", RowBox[{"parametricplotdata", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0"}], "}"}], "+", RowBox[{"0.35", "*", RowBox[{"e", "[", "t", "]"}]}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "70"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pA", ":=", RowBox[{"pO", "+", RowBox[{"e", "[", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "70"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pT", ":=", RowBox[{"pO", "+", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Tan", "[", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "70"}], "]"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pB", ":=", RowBox[{"pO", "+", RowBox[{"e", "[", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "150"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pS", ":=", RowBox[{"pO", "+", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Tan", "[", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "150"}], "]"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pC", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "70"}], ",", RowBox[{"Tan", "[", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "70"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pD", ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "150"}], ",", RowBox[{"Tan", "[", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "150"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pE", ":=", RowBox[{"{", RowBox[{ RowBox[{"pC", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pF", ":=", RowBox[{"{", RowBox[{ RowBox[{"pD", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TC", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pT", ",", "pC"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SD", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pS", ",", "pD"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"OA", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pO", ",", "pA"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"OB", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pO", ",", "pB"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"OT", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pO", ",", "pT"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"OS", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pO", ",", "pS"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CE", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pC", ",", "pE"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"DF", ":=", RowBox[{"listplotdata", "[", RowBox[{"{", RowBox[{"pD", ",", "pF"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"windisp", "[", RowBox[{ "g11", ",", "g12", ",", "g13", ",", "g14", ",", "g2", ",", "g31", ",", "g32", ",", "g33", ",", "axs1", ",", "axs2", ",", "axs3", ",", "axs4", ",", "cir1", ",", "cir2", ",", "cir3", ",", "TC", ",", "SD", ",", "OA", ",", "OB", ",", "OS", ",", "OT", ",", "CE", ",", "DF"}], "]"}]}], "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.4034065116875*^9, 3.40340654996875*^9}, { 3.4034066149375*^9, 3.403406707546875*^9}, {3.403406738828125*^9, 3.40340677234375*^9}, {3.40340683740625*^9, 3.403406858375*^9}, { 3.40340689228125*^9, 3.403406942453125*^9}, {3.403406974296875*^9, 3.403406977453125*^9}, {3.403407012890625*^9, 3.403407028828125*^9}, { 3.403407722734375*^9, 3.403407844109375*^9}, {3.403407890890625*^9, 3.403407948515625*^9}, {3.40340863365625*^9, 3.403408736546875*^9}, 3.438466379109375*^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.403406949421875*^9, 3.403406977796875*^9}, 3.40340702928125*^9, 3.403407725578125*^9, {3.40340779309375*^9, 3.403407802890625*^9}, { 3.403407839828125*^9, 3.403407844671875*^9}, {3.403407905296875*^9, 3.403407908453125*^9}, 3.40340794915625*^9, 3.403408061484375*^9, 3.40340863803125*^9, {3.403408672828125*^9, 3.403408691328125*^9}, 3.403408737109375*^9, 3.4384663806875*^9, 3.438466627890625*^9, 3.4384829978125*^9}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{-3.341592617451093, -0.20270999788498403`}, \ {-3.306834292434222, -0.16676221183901874`}, {-3.2691522851276495`, \ -0.12825602488744417`}, {-3.2339674006134005`, -0.09263839441443032}, \ {-3.1994727038641333`, -0.05794477166135825}, {-3.1620543248251645`, \ -0.02046452734445813}, {-3.127133068578519, 0.01446059283030389}, {-3.089288130042172, 0.052352273397833105`}, {-3.0521333792708067`, 0.08969868713672179}, {-3.0174757512917654`, 0.12475819475180523`}, {-2.9798944410230224`, 0.16312237974684904`}, {-2.9448102535466028`, 0.19936239191226637`}, {-2.910416253835165, 0.23538459847046173`}, {-2.8730985718340256`, 0.27513754592036244`}, {-2.8382780126252096`, 0.3129718059635119}, {-2.800533771126692, 0.3549287050937614}, {-2.7634797173931562`, 0.39722625875555345`}, {-2.728922786451944, 0.4378091163015411}, {-2.69144217322103, 0.4832406728983576}, {-2.6564586827824397`, 0.5271538497562618}, {-2.618551510054148, 0.5766069989908268}, {-2.581334525090838, 0.6273091832269454}, {-2.5466146629198514`, 0.676789463640755}, {-2.508971118459163, 0.7331375926917105}, {-2.4738246967907984`, 0.7886275594738248}, {-2.4393684628874155`, 0.8460976652610024}, {-2.401988546694331, 0.9123638335159375}, {-2.36710575329357, 0.9784121675920417}, {-2.329299277603108, 1.0552908156449248`}, {-2.2921829896776273`, 1.1369783288190614`}, {-2.2575638245444702`, 1.2196369413298418`}, {-2.2200209771216115`, 1.3175548463234152`}, {-2.184975252491076, 1.4181231054372283`}, {-2.1506197156255227`, 1.5269132417687548`}, {-2.1133404964702676`, 1.6586684483850223`}, {-2.078558400107336, 1.7971898239082302`}, {-2.0408526214547025`, 1.96836165892714}, {-2.005643965594393, 2.1528460346121054`}, {-1.971125497499065, 2.363053465790721}, {-1.9336833471140356`, 2.633640829929083}, {-1.8987383195213297`, 2.939213900142896}, {-1.8608696096389221`, 3.350166838361483}, {-1.8236910875214964`, 3.869554105735073}, {-1.7890096881963944`, 4.50970105914422}, {-1.7514046065815907`, 5.47651063189834}, {-1.7162966477591104`, 6.824268376392204}, {-1.681878876701612, 8.965256040253022}, {-1.6445374233544119`, 13.536369894569283`}, {-1.6096930927995354`, 25.696111330625914`}, {-1.5719250799549573`, 885.9329131371871}, {-1.570796362933597, 2.7671166602747753`*^7}}]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{-1.5707962626807608`, -1.5597184410377089`*^7}, \ {-1.5091310689643658`, -16.196026401528183`}, {-1.4422789327047918`, \ -7.73816152819769}, {-1.379856974270171, -5.1734633782633015`}, \ {-1.318659486871126, -3.8816963282318464`}, {-1.2522750569289023`, \ -3.032608868602836}, {-1.1903208048116318`, -2.5002237169430845`}, \ {-1.1231796101511824`, -2.082816811023307}, {-1.057262886526309, \ -1.7730279141505667`}, {-0.9957763407263887, -1.5430339648586813`}, \ {-0.9291028523832895, -1.3383666766906683`}, {-0.8668595418651435, \ -1.177800060165091}, {-0.8058407023825733, -1.041744251560251}, \ {-0.7396349203568243, -0.9124202979292018}, {-0.6778593161560285, \ -0.8051269400407715}, {-0.6108967694120538, -0.7002545299190067}, \ {-0.545158693703655, -0.6064637311841801}, {-0.48385079582020935`, \ -0.5255151992901165}, {-0.41735595539358483`, -0.4434049404845775}, \ {-0.35529129279191357`, -0.37103649052382376`}, {-0.2880396876470634, \ -0.296279153431178}, {-0.2220125535377891, -0.22573356841343345`}, \ {-0.16041559725346796`, -0.16180591015127108`}, {-0.09363169842596801, \ -0.0939062811159219}, {-0.03127797742342124, -0.031288181288676886`}, { 0.029851272543549686`, 0.029860142512957853`}, {0.09616746505369946, 0.09646502390525877}, {0.15805347973889605`, 0.15938287126770065`}, { 0.22512643696727147`, 0.22900843429227435`}, {0.29097492316007106`, 0.2994748361413748}, {0.35239323152791746`, 0.3677429909728149}, { 0.41899848243894267`, 0.4453718356584064}, {0.4811735555250147, 0.5221033876802041}, {0.5421241575755109, 0.6023207097915233}, { 0.608261702169186, 0.6963345646882345}, {0.6699690689379078, 0.7922038305028759}, {0.7368633782498084, 0.9073542152805399}, { 0.7993275097367559, 1.0282540809296155`}, {0.8605671701881276, 1.1628891391749987`}, {0.9269937731826781, 1.332496323005288}, { 0.9889901983522753, 1.5203277448088004`}, {1.0561735660650515`, 1.7685228746348778`}, {1.1221324627422518`, 2.0772391692403662`}, { 1.1836611815944988`, 2.4527241898715637`}, {1.2503768429899247`, 3.0133640794085577`}, {1.3126623265603974`, 3.7875275963817385`}, { 1.3737233390952943`, 5.0084004249142415`}, {1.43997129417337, 7.60013887896526}, {1.5017890714264925`, 14.46822014223009}, { 1.5687937912227938`, 499.36624208544896`}, {1.5707962626807608`, 1.5597184410377089`*^7}}]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1.5707963909090323`, -1.5597184440169336`*^7}, { 1.6324615846254273`, -16.196026401528215`}, { 1.6993137208850013`, -7.738161528197698}, { 1.7617356793196222`, -5.173463378263305}, { 1.822933166718667, -3.8816963282318486`}, { 1.8893175966608908`, -3.032608868602837}, { 1.9512718487781613`, -2.5002237169430854`}, { 2.0184130434386107`, -2.0828168110233074`}, { 2.0843297670634846`, -1.7730279141505654`}, { 2.1458163128634054`, -1.5430339648586786`}, { 2.212489801206505, -1.3383666766906652`}, { 2.274733111724651, -1.1778000601650875`}, { 2.3357519512072216`, -1.0417442515602477`}, { 2.4019577332329707`, -0.9124202979291984}, { 2.4637333374337667`, -0.8051269400407683}, { 2.5306958841777414`, -0.7002545299190037}, { 2.5964339598861406`, -0.6064637311841768}, { 2.6577418577695866`, -0.525515199290113}, { 2.7242366981962114`, -0.44340494048457396`}, { 2.786301360797883, -0.37103649052381993`}, { 2.8535529659427334`, -0.2962791534311741}, { 2.919580100052008, -0.22573356841342956`}, { 2.981177056336329, -0.16180591015126713`}, { 3.047960955163829, -0.09390628111591795}, { 3.110314676166376, -0.031288181288672855`}, {3.1714439261333474`, 0.02986014251296229}, {3.2377601186434974`, 0.09646502390526356}, { 3.2996461333286944`, 0.15938287126770587`}, {3.36671909055707, 0.22900843429228002`}, {3.43256757674987, 0.2994748361413808}, { 3.4939858851177164`, 0.36774299097282126`}, {3.5605911360287417`, 0.44537183565841326`}, {3.622766209114814, 0.5221033876802117}, { 3.68371681116531, 0.6023207097915313}, {3.7498543557589854`, 0.6963345646882437}, {3.8115617225277076`, 0.7922038305028867}, { 3.8784560318396086`, 0.9073542152805527}, {3.9409201633265565`, 1.0282540809296303`}, {4.002159823777928, 1.1628891391750162`}, { 4.0685864267724785`, 1.332496323005308}, {4.1305828519420755`, 1.5203277448088235`}, {4.197766219654851, 1.7685228746349047`}, { 4.2637251163320515`, 2.077239169240401}, {4.325253835184299, 2.45272418987161}, {4.3919694965797245`, 3.013364079408624}, { 4.454254980150197, 3.787527596381839}, {4.515315992685093, 5.008400424914395}, {4.581563947763169, 7.600138878965618}, { 4.643381725016292, 14.468220142231418`}, {4.710386444812594, 499.3662420870795}, {4.7123889162705535`, 1.5597184272550302`*^7}}]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{4.712389044498826, -1.5597184361927042`*^7}, { 4.7740542382152205`, -16.196026401528247`}, { 4.840906374474794, -7.738161528197746}, { 4.903328332909414, -5.173463378263345}, { 4.964525820308459, -3.8816963282318753`}, { 5.030910250250682, -3.0326088686028587`}, { 5.092864502367952, -2.5002237169431023`}, { 5.160005697028401, -2.0828168110233225`}, { 5.225922420653275, -1.773027914150579}, { 5.287408966453195, -1.543033964858691}, { 5.354082454796294, -1.3383666766906768`}, { 5.41632576531444, -1.1778000601650984`}, { 5.47734460479701, -1.0417442515602573`}, { 5.543550386822759, -0.9124202979292069}, { 5.605325991023555, -0.8051269400407758}, { 5.67228853776753, -0.7002545299190105}, { 5.738026613475928, -0.6064637311841844}, { 5.7993345113593735`, -0.5255151992901211}, { 5.865829351785997, -0.4434049404845826}, { 5.927894014387668, -0.37103649052382914`}, { 5.995145619532518, -0.2962791534311839}, { 6.061172753641792, -0.22573356841343947`}, { 6.1227697099261125`, -0.1618059101512773}, { 6.189553608753612, -0.09390628111592839}, { 6.2519073297561585`, -0.031288181288683645`}, {6.313036579723129, 0.029860142512951056`}, {6.379352772233279, 0.09646502390525179}, { 6.4412387869184755`, 0.15938287126769343`}, {6.508311744146851, 0.2290084342922668}, {6.5741602303396505`, 0.2994748361413671}, { 6.635578538707497, 0.367742990972807}, {6.702183789618522, 0.4453718356583982}, {6.7643588627045945`, 0.5221033876801957}, { 6.82530946475509, 0.6023207097915135}, {6.891447009348765, 0.6963345646882231}, {6.953154376117486, 0.7922038305028627}, { 7.020048685429386, 0.9073542152805241}, {7.082512816916333, 1.0282540809295964`}, {7.143752477367705, 1.1628891391749763`}, { 7.210179080362255, 1.3324963230052609`}, {7.272175505531852, 1.520327744808767}, {7.3393588732446275`, 1.7685228746348345`}, { 7.405317769921828, 2.0772391692403103`}, {7.466846488774075, 2.4527241898714904`}, {7.533562150169501, 3.0133640794084524`}, { 7.595847633739973, 3.787527596381578}, {7.65690864627487, 5.008400424913951}, {7.723156601352946, 7.600138878964619}, { 7.784974378606068, 14.468220142227842`}, {7.85197909840237, 499.3662420828408}, {7.853981569860347, 1.5597184242758054`*^7}}]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{-4., -5.}, {-4., -4.8037135920663285`}, {-4., \ -4.590916633227046}, {-4., -4.3922213683801115`}, {-4., -4.197423715892872}, \ {-4., -3.9861155125000214`}, {-4., -3.7889090030995183`}, {-4., \ -3.5751919427934045`}, {-4., -3.365372494846986}, {-4., \ -3.1696547408929145`}, {-4., -2.9574264360332325`}, {-4., \ -2.7592998251658987`}, {-4., -2.5650708266582596`}, {-4., \ -2.3543312772450093`}, {-4., -2.1576934218241073`}, {-4., \ -1.9445450154975938`}, {-4., -1.7352942215307754`}, {-4., \ -1.540145121556305}, {-4., -1.3284854706762232`}, {-4., \ -1.1309275137884895`}, {-4., -0.9168590059951447}, {-4., \ -0.7066881105614948}, {-4., -0.5106189091201929}, {-4., \ -0.29803915677327986`}, {-4., -0.09956109841871483}, {-4., 0.09501934757615525}, {-4., 0.30611034447663654`}, {-4., 0.5030996473847698}, {-4., 0.7165995011985141}, {-4., 0.9262017426525636}, {-4., 1.121702290114265}, {-4., 1.3337133884815777`}, {-4., 1.5316227928565422`}, {-4., 1.725634584871812}, {-4., 1.9361569277926929`}, {-4., 2.1325775767212254`}, {-4., 2.3455087765553695`}, {-4., 2.544338282397166}, {-4., 2.7392701758792666`}, {-4., 2.950712620266979}, {-4., 3.1480533706623435`}, {-4., 3.3619046719633188`}, {-4., 3.571858360904599}, {-4., 3.7677103558535316`}, {-4., 3.980072901708075}, {-4., 4.1783337535702705`}, {-4., 4.372696993072771}, {-4., 4.583570783480883}, {-4., 4.780342879896646}, {-4., 4.993625527218021}, {-4., 5.}}]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{-1.5707963267948966`, -5.}, {-1.5707963267948966`, \ -4.8037135920663285`}, {-1.5707963267948966`, -4.590916633227046}, \ {-1.5707963267948966`, -4.3922213683801115`}, {-1.5707963267948966`, \ -4.197423715892872}, {-1.5707963267948966`, -3.9861155125000214`}, \ {-1.5707963267948966`, -3.7889090030995183`}, {-1.5707963267948966`, \ -3.5751919427934045`}, {-1.5707963267948966`, -3.365372494846986}, \ {-1.5707963267948966`, -3.1696547408929145`}, {-1.5707963267948966`, \ -2.9574264360332325`}, {-1.5707963267948966`, -2.7592998251658987`}, \ {-1.5707963267948966`, -2.5650708266582596`}, {-1.5707963267948966`, \ -2.3543312772450093`}, {-1.5707963267948966`, -2.1576934218241073`}, \ {-1.5707963267948966`, -1.9445450154975938`}, {-1.5707963267948966`, \ -1.7352942215307754`}, {-1.5707963267948966`, -1.540145121556305}, \ {-1.5707963267948966`, -1.3284854706762232`}, {-1.5707963267948966`, \ -1.1309275137884895`}, {-1.5707963267948966`, -0.9168590059951447}, \ {-1.5707963267948966`, -0.7066881105614948}, {-1.5707963267948966`, \ -0.5106189091201929}, {-1.5707963267948966`, -0.29803915677327986`}, \ {-1.5707963267948966`, -0.09956109841871483}, {-1.5707963267948966`, 0.09501934757615525}, {-1.5707963267948966`, 0.30611034447663654`}, {-1.5707963267948966`, 0.5030996473847698}, {-1.5707963267948966`, 0.7165995011985141}, {-1.5707963267948966`, 0.9262017426525636}, {-1.5707963267948966`, 1.121702290114265}, {-1.5707963267948966`, 1.3337133884815777`}, {-1.5707963267948966`, 1.5316227928565422`}, {-1.5707963267948966`, 1.725634584871812}, {-1.5707963267948966`, 1.9361569277926929`}, {-1.5707963267948966`, 2.1325775767212254`}, {-1.5707963267948966`, 2.3455087765553695`}, {-1.5707963267948966`, 2.544338282397166}, {-1.5707963267948966`, 2.7392701758792666`}, {-1.5707963267948966`, 2.950712620266979}, {-1.5707963267948966`, 3.1480533706623435`}, {-1.5707963267948966`, 3.3619046719633188`}, {-1.5707963267948966`, 3.571858360904599}, {-1.5707963267948966`, 3.7677103558535316`}, {-1.5707963267948966`, 3.980072901708075}, {-1.5707963267948966`, 4.1783337535702705`}, {-1.5707963267948966`, 4.372696993072771}, {-1.5707963267948966`, 4.583570783480883}, {-1.5707963267948966`, 4.780342879896646}, {-1.5707963267948966`, 4.993625527218021}, {-1.5707963267948966`, 5.}}]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1.5707963267948966`, -5.}, { 1.5707963267948966`, -4.8037135920663285`}, { 1.5707963267948966`, -4.590916633227046}, { 1.5707963267948966`, -4.3922213683801115`}, { 1.5707963267948966`, -4.197423715892872}, { 1.5707963267948966`, -3.9861155125000214`}, { 1.5707963267948966`, -3.7889090030995183`}, { 1.5707963267948966`, -3.5751919427934045`}, { 1.5707963267948966`, -3.365372494846986}, { 1.5707963267948966`, -3.1696547408929145`}, { 1.5707963267948966`, -2.9574264360332325`}, { 1.5707963267948966`, -2.7592998251658987`}, { 1.5707963267948966`, -2.5650708266582596`}, { 1.5707963267948966`, -2.3543312772450093`}, { 1.5707963267948966`, -2.1576934218241073`}, { 1.5707963267948966`, -1.9445450154975938`}, { 1.5707963267948966`, -1.7352942215307754`}, { 1.5707963267948966`, -1.540145121556305}, { 1.5707963267948966`, -1.3284854706762232`}, { 1.5707963267948966`, -1.1309275137884895`}, { 1.5707963267948966`, -0.9168590059951447}, { 1.5707963267948966`, -0.7066881105614948}, { 1.5707963267948966`, -0.5106189091201929}, { 1.5707963267948966`, -0.29803915677327986`}, { 1.5707963267948966`, -0.09956109841871483}, {1.5707963267948966`, 0.09501934757615525}, {1.5707963267948966`, 0.30611034447663654`}, { 1.5707963267948966`, 0.5030996473847698}, {1.5707963267948966`, 0.7165995011985141}, {1.5707963267948966`, 0.9262017426525636}, { 1.5707963267948966`, 1.121702290114265}, {1.5707963267948966`, 1.3337133884815777`}, {1.5707963267948966`, 1.5316227928565422`}, { 1.5707963267948966`, 1.725634584871812}, {1.5707963267948966`, 1.9361569277926929`}, {1.5707963267948966`, 2.1325775767212254`}, { 1.5707963267948966`, 2.3455087765553695`}, {1.5707963267948966`, 2.544338282397166}, {1.5707963267948966`, 2.7392701758792666`}, { 1.5707963267948966`, 2.950712620266979}, {1.5707963267948966`, 3.1480533706623435`}, {1.5707963267948966`, 3.3619046719633188`}, { 1.5707963267948966`, 3.571858360904599}, {1.5707963267948966`, 3.7677103558535316`}, {1.5707963267948966`, 3.980072901708075}, { 1.5707963267948966`, 4.1783337535702705`}, {1.5707963267948966`, 4.372696993072771}, {1.5707963267948966`, 4.583570783480883}, { 1.5707963267948966`, 4.780342879896646}, {1.5707963267948966`, 4.993625527218021}, {1.5707963267948966`, 5.}}]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{4.71238898038469, -5.}, { 4.71238898038469, -4.8037135920663285`}, { 4.71238898038469, -4.590916633227046}, { 4.71238898038469, -4.3922213683801115`}, { 4.71238898038469, -4.197423715892872}, { 4.71238898038469, -3.9861155125000214`}, { 4.71238898038469, -3.7889090030995183`}, { 4.71238898038469, -3.5751919427934045`}, { 4.71238898038469, -3.365372494846986}, { 4.71238898038469, -3.1696547408929145`}, { 4.71238898038469, -2.9574264360332325`}, { 4.71238898038469, -2.7592998251658987`}, { 4.71238898038469, -2.5650708266582596`}, { 4.71238898038469, -2.3543312772450093`}, { 4.71238898038469, -2.1576934218241073`}, { 4.71238898038469, -1.9445450154975938`}, { 4.71238898038469, -1.7352942215307754`}, { 4.71238898038469, -1.540145121556305}, { 4.71238898038469, -1.3284854706762232`}, { 4.71238898038469, -1.1309275137884895`}, { 4.71238898038469, -0.9168590059951447}, { 4.71238898038469, -0.7066881105614948}, { 4.71238898038469, -0.5106189091201929}, { 4.71238898038469, -0.29803915677327986`}, { 4.71238898038469, -0.09956109841871483}, {4.71238898038469, 0.09501934757615525}, {4.71238898038469, 0.30611034447663654`}, { 4.71238898038469, 0.5030996473847698}, {4.71238898038469, 0.7165995011985141}, {4.71238898038469, 0.9262017426525636}, { 4.71238898038469, 1.121702290114265}, {4.71238898038469, 1.3337133884815777`}, {4.71238898038469, 1.5316227928565422`}, { 4.71238898038469, 1.725634584871812}, {4.71238898038469, 1.9361569277926929`}, {4.71238898038469, 2.1325775767212254`}, { 4.71238898038469, 2.3455087765553695`}, {4.71238898038469, 2.544338282397166}, {4.71238898038469, 2.7392701758792666`}, { 4.71238898038469, 2.950712620266979}, {4.71238898038469, 3.1480533706623435`}, {4.71238898038469, 3.3619046719633188`}, { 4.71238898038469, 3.571858360904599}, {4.71238898038469, 3.7677103558535316`}, {4.71238898038469, 3.980072901708075}, { 4.71238898038469, 4.1783337535702705`}, {4.71238898038469, 4.372696993072771}, {4.71238898038469, 4.583570783480883}, { 4.71238898038469, 4.780342879896646}, {4.71238898038469, 4.993625527218021}, {4.71238898038469, 5.}}]}}, { LineBox[{{-6.3, 0.}, {-3.7, 0.}}], LineBox[{{-3.890211303259031, -0.06180339887498948}, {-3.7, 0.}, {-3.890211303259031, 0.06180339887498948}}]}, { LineBox[{{-5., -5.}, {-5., 5.}}], LineBox[{{-4.938196601125011, 4.809788696740969}, {-5., 5.}, {-5.061803398874989, 4.809788696740969}}]}, { LineBox[{{-3.3415926535897933`, 0.}, {7., 0.}}], LineBox[{{6.809788696740968, -0.06180339887498948}, {6.999999999999999, 0.}, {6.809788696740968, 0.06180339887498948}}]}, { LineBox[{{0., -5.}, {0., 5.}}], LineBox[{{0.06180339887498948, 4.809788696740969}, {0., 5.}, {-0.06180339887498948, 4.809788696740969}}]}, {{}, {}, {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.800264011069402, 0.010273009584145204`}, {-4.801145897431538, 0.02137863166087911}, {-4.802526455351787, 0.03168910166082568}, {-4.804398570371022, 0.041714274860054495`}, {-4.807004269465621, 0.052465683980116785`}, {-4.809968951672864, 0.06235543818857762}, {-4.813753350317989, 0.07288474107950382}, {-4.818035856994689, 0.08300030518222619}, {-4.822525644680936, 0.09221091694632846}, {-4.827920227758708, 0.10192424630766198`}, {-4.833436042582093, 0.11070884377178598`}, {-4.8392783441012535`, 0.11903171562724318`}, {-4.846086717205534, 0.12771335630790778`}, {-4.852862357179435, 0.135464069277458}, {-4.86064664210001, 0.14345954705768837`}, {-4.868710724054103, 0.15087453735339865`}, {-4.876586845498231, 0.1573823157026304}, {-4.885492733291315, 0.1639758697824349}, {-4.89412299544429, 0.1696763386754625}, {-4.903793416942435, 0.17534050694687675`}, {-4.913581837663668, 0.18036602013242806`}, {-4.92294992850914, 0.1845624189353111}, {-4.933335417486853, 0.1885625451629983}, {-4.94321896591041, 0.19177047261691996`}, {-4.953057386188498, 0.19441293940616258`}, {-4.963867520917159, 0.1967090337410258}, {-4.9740556788164625`, 0.19831009101486857`}, {-4.985174794858005, 0.19944977636612626`}, {-4.9961361726702975`, 0.19996267361276765`}, {-5.006371238909662, 0.19989849252747258`}, {-5.017450972380102, 0.1992372042641357}, {-5.027745925341729, 0.1980660587453873}, {-5.037766022487009, 0.196401954026712}, {-5.04852781737675, 0.19402332576432335`}, {-5.05843649755521, 0.19127251698422326`}, {-5.069002738625704, 0.187719530316248}, {-5.078676311899366, 0.18387506069588047`}, {-5.0879535155871105`, 0.17962232348978213`}, {-5.0977568017889325`, 0.1744809665952117}, {-5.106636688288104, 0.16919993117890386`}, {-5.115937511445058, 0.16296776810132485`}, {-5.124715553702507, 0.15635226466117175`}, {-5.132564933206955, 0.14975492807862975`}, {-5.140681653746571, 0.14215720980354749`}, {-5.147867488310481, 0.1346670186079348}, {-5.154525564160608, 0.12697184735541175`}, {-5.16129627221231, 0.11825190303082844`}, {-5.167171328288836, 0.10978955778281643`}, {-5.173037956338813, 0.10028891098265541`}, {-5.173205080756888, 0.09999999999999999}}]}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{-4.65, 0.}, {-4.65010063487366, 0.008392513579628134}, {-4.650437040921511, 0.01748535502328669}, {-4.650964450987222, 0.025965082810351554`}, {-4.651681177321464, 0.0342636508247278}, {-4.652681701565791, 0.04324349168100586}, {-4.653824282253555, 0.05159818255262018}, {-4.655289378739055, 0.06061837666824691}, {-4.656956368384202, 0.06943390243853914}, {-4.658714538460864, 0.07761593742279184}, {-4.660841499102586, 0.0864379041220859}, {-4.663032942112141, 0.09462136068774414}, {-4.6653729207712304`, 0.10259004750375521`}, {-4.6681248881314845`, 0.11117063516172021`}, {-4.670891142919679, 0.11911070561156464`}, {-4.674104136617331, 0.1276396734172593}, {-4.677473355184273, 0.13592852306970057`}, {-4.680805514639747, 0.14357883031841084`}, {-4.6846246365155935`, 0.1517839916034574}, {-4.688379636266596, 0.1593510241782616}, {-4.692653300731738, 0.16744553278276703`}, {-4.697053678151246, 0.1752812770329767}, {-4.701338942459902, 0.1824871850542666}, {-4.706178599266873, 0.1901814514384181}, {-4.710876173418898, 0.1972496207932997}, {-4.715646538223933, 0.20406643226157228`}, {-4.7210033099458935`, 0.2113311310215624}, {-4.726169674497868, 0.21798383617919057`}, {-4.731948052280161, 0.22505144594869994`}, {-4.737798366008895, 0.23184111613860628`}, {-4.743410128783529, 0.23803705171488412`}, {-4.749661155369133, 0.24460266324977442`}, {-4.755648049286684, 0.2505835672636919}, {-4.761655717658983, 0.25630451239754987`}, {-4.768326014142339, 0.26234931727912736`}, {-4.774687791568134, 0.26783279995466447`}, {-4.781730765588132, 0.2736028898042872}, {-4.7884407609798565`, 0.2788237586455248}, {-4.795140431848514, 0.2837825881494262}, {-4.802538799298567, 0.28897936642180566`}, {-4.809562723415727, 0.2936556549551961}, {-4.8172991460864765`, 0.29853039707753243`}, {-4.825015916092094, 0.3031180799274617}, {-4.83231827386076, 0.3072179010392539}, {-4.840344575408864, 0.3114645170779876}, {-4.847935006070311, 0.31523996831170337`}, {-4.855462845347747, 0.3187616835898422}, {-4.863722188690267, 0.3223792148148338}, {-4.871510895922418, 0.32556189908117344`}, {-4.880036848443702, 0.32879909103992444`}, {-4.880292949836016, 0.3288924172750679}}]}}, LineBox[{{-4., 2.7474774194546225`}, {1.2217304763960306`, 2.7474774194546225`}}], LineBox[{{-4., -0.5773502691896258}, { 2.6179938779914944`, -0.5773502691896258}}], LineBox[{{-5., 0.}, {-4.657979856674332, 0.9396926207859084}}], LineBox[{{-5., 0.}, {-5.866025403784438, 0.5}}], LineBox[{{-5., 0.}, {-4., -0.5773502691896258}}], LineBox[{{-5., 0.}, {-4., 2.7474774194546225`}}], LineBox[{{1.2217304763960306`, 2.7474774194546225`}, {1.2217304763960306`, 0.}}], LineBox[{{2.6179938779914944`, -0.5773502691896258}, { 2.6179938779914944`, 0.}}]}, AspectRatio->Automatic, Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-6.3, 7.}, {-5., 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.403406949421875*^9, 3.403406977796875*^9}, 3.40340702928125*^9, 3.403407725578125*^9, {3.40340779309375*^9, 3.403407802890625*^9}, { 3.403407839828125*^9, 3.403407844671875*^9}, {3.403407905296875*^9, 3.403407908453125*^9}, 3.40340794915625*^9, 3.403408061484375*^9, 3.40340863803125*^9, {3.403408672828125*^9, 3.403408691328125*^9}, 3.403408737109375*^9, 3.4384663806875*^9, 3.438466627890625*^9, 3.43848299790625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"openfile", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"openpicture", "[", "\"\<12/12cm\>\"", "]"}], ";", RowBox[{"drwline", "[", RowBox[{ "g11", ",", "g12", ",", "g13", ",", "g14", ",", "g2", ",", "axs1", ",", "axs2", ",", "axs3", ",", "axs4", ",", "cir1", ",", "cir2", ",", "cir3", ",", "OA", ",", "OB"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dashline", "[", RowBox[{ "g31", ",", "g32", ",", "g33", ",", "TC", ",", "SD", ",", "OS", ",", "OT", ",", "CE", ",", "DF"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"letter", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "\"\\"", ",", "\"\\"", ",", "pO", ",", "\"\\"", ",", "\"\\""}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"expr", "[", RowBox[{ RowBox[{"pO", "+", RowBox[{"{", RowBox[{"0.1", ",", "0.1"}], "}"}], "+", RowBox[{"0.35", "*", RowBox[{"e", "[", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "35"}], "]"}]}]}], ",", "\"\\"", ",", "\"\\"", ",", RowBox[{"pO", "+", RowBox[{"0.2", "*", RowBox[{"e", "[", RowBox[{ RowBox[{"Pi", "/", "180"}], "*", "120"}], "]"}]}]}], ",", "\"\\"", ",", "\"\\"", ",", RowBox[{"{", RowBox[{"XMAX", ",", "0"}], "}"}], ",", "\"\\"", ",", "\"\\"", ",", RowBox[{"{", RowBox[{"0", ",", "YMAX"}], "}"}], ",", "\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{"expr", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"pC", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], ",", "\"\\"", ",", "\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"pD", "[", 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}}\>\""}], "]"}], "\[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.403406486578125*^9, 3.4034064878125*^9}, {3.403407983671875*^9, 3.403408036765625*^9}, {3.40340807178125*^9, 3.403408220984375*^9}, { 3.4034082734375*^9, 3.40340832690625*^9}, {3.40340845040625*^9, 3.403408560390625*^9}, {3.403408744734375*^9, 3.40340879984375*^9}, { 3.43846640128125*^9, 3.43846640765625*^9}, {3.438483026703125*^9, 3.43848305840625*^9}, 3.43848312275*^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.40340834053125*^9, {3.403408478203125*^9, 3.403408561125*^9}, { 3.403408754671875*^9, 3.403408801796875*^9}, {3.438466403484375*^9, 3.438466408296875*^9}, 3.438466632953125*^9, {3.43848299884375*^9, 3.4384830276875*^9}, 3.438483059640625*^9, 3.43848312396875*^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.40340834053125*^9, {3.403408478203125*^9, 3.403408561125*^9}, { 3.403408754671875*^9, 3.403408801796875*^9}, {3.438466403484375*^9, 3.438466408296875*^9}, 3.438466632953125*^9, {3.43848299884375*^9, 3.4384830276875*^9}, 3.438483059640625*^9, 3.438483124390625*^9}] }, Open ]] }, WindowSize->{845, 651}, WindowMargins->{{Automatic, 64}, {Automatic, 2}}, 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, 10276, 335, 908, "Input"], Cell[10869, 360, 1183, 17, 42, "Output"], Cell[12055, 379, 29326, 523, 286, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41418, 907, 3907, 99, 379, "Input"], Cell[45328, 1008, 755, 11, 77, "Output"], Cell[46086, 1021, 689, 10, 42, "Output"] }, Open ]] } ] *) (* End of internal cache information *)