Teikyo_TARDIS.mw

Teikyo Mowchan 

Multivarible Calculus  

Ratliff 

Spring 2011 

Flight of the TARDIS 

A Maple 14 Production 

 

Loading plots  

with(plots); -1 

 

TIME VORTEX 

`assign`(p1, fieldplot([`+`(`*`(5, `*`(x))), `+`(`*`(5, `*`(y)))], x = -60 .. 60, y = -60 .. 60, grid = [10, 10], color = yellow, thickness = 1, scaling = constrained))
`assign`(p1, fieldplot([`+`(`*`(5, `*`(x))), `+`(`*`(5, `*`(y)))], x = -60 .. 60, y = -60 .. 60, grid = [10, 10], color = yellow, thickness = 1, scaling = constrained)) 

PLOT(CURVES([[-55.2859547920897, -55.2859547920897], [-64.7140452079103, -64.7140452079103], [-61.4942924536134, -63.8513150575686]], [[-55.2859547920897, -43.0001870605142], [-64.7140452079103, -50.3... (1)
 

`assign`(p2, fieldplot([`+`(`-`(y)), x], x = -60 .. 60, y = -60 .. 60, grid = [15, 15], color = aquamarine, thickness = 1)) 

PLOT(CURVES([[-63.0304576336566, -56.9695423663434], [-56.9695423663434, -63.0304576336566], [-57.5241546058488, -60.9606165773229]], [[-62.5975351145628, -48.3981137949148], [-57.4024648854372, -54.4... (2)
 

`assign`(p3, fieldplot([`+`(x, y), y], x = -60 .. 60, y = -60 .. 60, grid = [8, 8], color = yellow, thickness = 1)) 

PLOT(CURVES([[-52.3334812200007, -56.1667406100003], [-67.6665187799993, -63.8332593899997], [-63.3885039214644, -64.0900390794820]], [[-53.4286981885721, -40.1191004357145], [-66.5713018114279, -45.5... (3)
 

`assign`(p4, fieldplot([`+`(`*`(5, `*`(x))), `+`(`*`(4, `*`(y)))], x = -60 .. 60, y = -60 .. 60, grid = [5, 5], color = aquamarine, thickness = 3)) 

PLOT(CURVES([[-48.2869678583546, -50.6295742866836], [-71.7130321416454, -69.3704257133164], [-64.2985340183120, -68.2411703927243]], [[-48.2869678583545, -25.3147871433418], [-71.7130321416455, -34.6... (4)
 

`assign`(p5, fieldplot([`+`(`*`(2, `*`(x))), `+`(`*`(3, `*`(y)))], x = -60 .. 60, y = -60 .. 60, grid = [5, 5], color = yellow, thickness = 3)) 

PLOT(CURVES([[-51.6794970566216, -47.5192455849323], [-68.3205029433784, -72.4807544150677], [-61.5974308789970, -69.1565549599906]], [[-51.6794970566216, -23.7596227924662], [-68.3205029433784, -36.2... (5)
 

`assign`(p6, fieldplot([x, y], x = -60 .. 60, y = -60 .. 60, grid = [6, 6], color = cyan, thickness = 3)) 

PLOT(CURVES([[-51.5147186257614, -51.5147186257614], [-68.4852813742386, -68.4852813742386], [-62.6897264165042, -66.9323671036234]], [[-51.5147186257615, -30.9088311754569], [-68.4852813742386, -41.0... (6)
 

`assign`(p7, fieldplot([`+`(`*`(8, `*`(x))), `+`(`*`(8, `*`(y)))], x = -60 .. 60, y = -60 .. 60, grid = [17, 17], color = yellow, thickness = 4)) 

PLOT(CURVES([[-57.3483495705505, -57.3483495705505], [-62.6516504294495, -62.6516504294495], [-60.8405395051575, -62.1663647198823]], [[-57.3483495705505, -50.1798058742317], [-62.6516504294495, -54.8... (7)
 

`assign`(p8, fieldplot([`+`(`*`(8, `*`(x))), `+`(`*`(8, `*`(y)))], x = -60 .. 60, y = -60 .. 60, grid = [17, 18], color = aquamarine, thickness = 3)) 

PLOT(CURVES([[-57.5043290075769, -57.5043290075769], [-62.4956709924231, -62.4956709924231], [-60.7910960048542, -62.0389315010657]], [[-57.5043290075769, -50.7391138302149], [-62.4956709924231, -55.1... (8)
 

`assign`(p9, fieldplot([`+`(`*`(8, `*`(x))), `+`(`*`(8, `*`(y)))], x = -60 .. 60, y = -60 .. 60, grid = [18, 17], color = yellow, thickness = 2)) 

PLOT(CURVES([[-57.5043290075769, -57.5043290075769], [-62.4956709924231, -62.4956709924231], [-60.7910960048542, -62.0389315010657]], [[-57.5043290075769, -50.3162878816298], [-62.4956709924231, -54.6... (9)
 

`assign`(p10, polarplot([`^`(theta, `+`(`*`(`/`(1, 50), `*`(theta))))], theta = 0 .. 54, color = yellow, thickness = 5)) 

PLOT(CURVES([[.999122632746470, 0.886465689295687e-2], [.998413022390737, 0.177181166074210e-1], [.997717989160994, 0.265621589155627e-1], [.997005017216235, 0.353974072289219e-1], [.995469993157903, ... (10)
 

`assign`(p11, polarplot([`+`(`-`(`^`(theta, `+`(`*`(`/`(1, 50), `*`(theta))))))], theta = 0 .. 54, color = yellow, thickness = 5)) 

PLOT(CURVES([[-.999122632746470, -0.886465689295687e-2], [-.998413022390737, -0.177181166074210e-1], [-.997717989160994, -0.265621589155627e-1], [-.997005017216235, -0.353974072289219e-1], [-.99546999... (11)
 

`assign`(p12, polarplot([`^`(theta, `+`(`*`(`/`(1, 75), `*`(theta))))], theta = 0 .. 74, color = cyan, thickness = 1)) 

PLOT(CURVES([[.999211535731143, 0.121492239523723e-1], [.998500458758555, 0.242847463803277e-1], [.997726939524854, 0.364078729089140e-1], [.996861368798488, 0.485184631541863e-1], [.994803977885907, ... (12)
 

`assign`(p13, polarplot([`^`(theta, `+`(`*`(`/`(1, 120), `*`(theta))))], theta = 0 .. 110, color = aquamarine, thickness = 1)) 

PLOT(CURVES([[.999232526485288, 0.180611132122065e-1], [.998347859153219, 0.361020404468782e-1], [.997216362070646, 0.541211694434977e-1], [.995810829815424, 0.721148967003285e-1], [.992132612425602, ... (13)
 

 

WHITE OUT 

`assign`(p14, plot(`+`(`*`(4, `*`(x)), 73), x = -11.35 .. -10.4, color = yellow, thickness = 16)) 

PLOT(CURVES([[-11.3500000000000, 27.6000000000000], [-11.3450052752261, 27.6199788990955], [-11.3406593919070, 27.6373624323719], [-11.3357719915930, 27.6569120336281], [-11.3308521944171, 27.67659122... (14)
 

 

`assign`(p15, plot(`+`(`*`(4, `*`(x)), 40), x = -16.25 .. -4.25, color = white, thickness = 45)) 

PLOT(CURVES([[-16.2500000000000, -25.], [-16.1869087396985, -24.7476349587940], [-16.1320133714573, -24.5280534858291], [-16.0702777885427, -24.2811111541709], [-16.0081329821106, -24.0325319284422], ... (15)
 

`assign`(p16, plot(`+`(`*`(4, `*`(x)), 71), x = -23.5 .. -11.5, color = white, thickness = 50)) 

PLOT(CURVES([[-23.5000000000000, -23.], [-23.4369087396985, -22.7476349587940], [-23.3820133714573, -22.5280534858291], [-23.3202777885427, -22.2811111541709], [-23.2581329821106, -22.0325319284422], ... (16)
 

`assign`(p17, plot(`+`(`*`(4, `*`(x)), 104), x = -31.35 .. -19.25, color = white, thickness = 53)) 

PLOT(CURVES([[-31.3500000000000, -21.4000000000000], [-31.2863829791960, -21.1455319167839], [-31.2310301495528, -20.9241205982111], [-31.1687801034472, -20.6751204137889], [-31.1061174236281, -20.424... (17)
 

`assign`(p18, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 23), x = -23 .. -1, color = white, thickness = 10)) 

PLOT(CURVES([[-23., 28.7500000000000], [-22.8843326894472, 28.7210831723618], [-22.7836911810050, 28.6959227952513], [-22.6705092789950, 28.6676273197487], [-22.5565771338693, 28.6391442834673], [-22.... (18)
 

`assign`(p19, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 24), x = -20 .. -3, color = white, thickness = 5)) 

PLOT(CURVES([[-20., 29.], [-19.9106207145729, 28.9776551786432], [-19.8328522762312, 28.9582130690578], [-19.7453935337688, 28.9363483834422], [-19.6573550579899, 28.9143387644975], [-19.5697350137186... (19)
 

`assign`(p20, plot(`+`(`*`(4, `*`(x)), 89.7), x = -21.86 .. -20.05, color = gray, thickness = 22)) 

PLOT(CURVES([[-21.8600000000000, 2.26000000000001], [-21.8504837349045, 2.29806506038192], [-21.8422036835281, 2.33118526588744], [-21.8328918997719, 2.36843240091257], [-21.8235183914683, 2.405926434... (20)
 

`assign`(p21, plot(`+`(`*`(4, `*`(x)), 101.3), x = -24.6 .. -22.75, color = gray, thickness = 22)) 

PLOT(CURVES([[-24.6000000000000, 2.89999999999999], [-24.5902734307035, 2.93890627718592], [-24.5818103947663, 2.97275842093467], [-24.5722928257337, 3.01082869706532], [-24.5627121680754, 3.049151327... (21)
 

 

TARDIS 

 

`assign`(p22, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 19.625), x = -23.6 .. -1.675, color = gray, thickness = 19)) 

PLOT(CURVES([[-23.6000000000000, 25.5250000000000], [-23.4847270098241, 25.4961817524560], [-23.3844285974334, 25.4711071493584], [-23.2716325428166, 25.4429081357041], [-23.1580888027312, 25.41452220... (22)
 

`assign`(p23, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 22), x = -24 .. 0, color = navy, thickness = 2)) 

PLOT(CURVES([[-24., 28.], [-23.8738174793970, 27.9684543698492], [-23.7640267429146, 27.9410066857286], [-23.6405555770854, 27.9101388942714], [-23.5162659642211, 27.8790664910553], [-23.3925670781910... (23)
 

`assign`(p24, plot(`+`(`*`(4, `*`(x)), 22), x = -12 .. 0, color = navy, thickness = 3)) 

PLOT(CURVES([[-12., -26.], [-11.9369087396985, -25.7476349587940], [-11.8820133714573, -25.5280534858291], [-11.8202777885427, -25.2811111541709], [-11.7581329821106, -25.0325319284422], [-11.69628353... (24)
 

`assign`(p25, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), `-`(29)), x = -36 .. -12, color = navy, thickness = 4)) 

PLOT(CURVES([[-36., -20.], [-35.8738174793970, -20.0315456301508], [-35.7640267429146, -20.0589933142714], [-35.6405555770854, -20.0898611057286], [-35.5162659642211, -20.1209335089447], [-35.39256707... (25)
 

`assign`(p26, plot(`+`(`*`(4, `*`(x)), 124), x = -36 .. -24, color = navy, thickness = 3)) 

PLOT(CURVES([[-36., -20.], [-35.9369087396985, -19.7476349587940], [-35.8820133714573, -19.5280534858291], [-35.8202777885427, -19.2811111541708], [-35.7581329821106, -19.0325319284422], [-35.69628353... (26)
 

`assign`(p27, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), `-`(26.8)), x = -35.5 .. -11.5, color = navy, thickness = 2)) 

PLOT(CURVES([[-35.5000000000000, -17.9250000000000], [-35.3738174793970, -17.9565456301508], [-35.2640267429146, -17.9839933142714], [-35.1405555770854, -18.0148611057286], [-35.0162659642211, -18.045... (27)
 

`assign`(p28, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 18), x = -24 .. -2, color = navy, thickness = 2)) 

PLOT(CURVES([[-24., 24.], [-23.8843326894472, 23.9710831723618], [-23.7836911810050, 23.9459227952513], [-23.6705092789950, 23.9176273197487], [-23.5565771338693, 23.8891442834673], [-23.4431864883417... (28)
 

`assign`(p29, plot(`+`(`*`(4, `*`(x)), 124), x = -36 .. -24, color = navy, thickness = 2)) 

PLOT(CURVES([[-36., -20.], [-35.9369087396985, -19.7476349587940], [-35.8820133714573, -19.5280534858291], [-35.8202777885427, -19.2811111541708], [-35.7581329821106, -19.0325319284422], [-35.69628353... (29)
 

`assign`(p30, plot(`+`(`*`(4, `*`(x)), 28), x = -1.4 .. -1, color = navy, thickness = 2)) 

PLOT(CURVES([[-1.40000000000000, 22.4000000000000], [-1.39789695798995, 22.4084121680402], [-1.39606711238191, 22.4157315504724], [-1.39400925961809, 22.4239629615276], [-1.39193776607035, 22.43224893... (30)
 

`assign`(p31, plot(`+`(`*`(4, `*`(x)), 118), x = -22.55 .. -22.15, color = navy, thickness = 2)) 

PLOT(CURVES([[-22.5500000000000, 27.8000000000000], [-22.5478969579900, 27.8084121680402], [-22.5460671123819, 27.8157315504724], [-22.5440092596181, 27.8239629615276], [-22.5419377660704, 27.83224893... (31)
 

`assign`(p32, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 24), x = -22.25 .. -.75, color = navy, thickness = 2)) 

`assign`(p33, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 21.25), x = -23 .. -1, color = navy, thickness = 2)) 

PLOT(CURVES([[-23., 27.], [-22.8843326894472, 26.9710831723618], [-22.7836911810050, 26.9459227952513], [-22.6705092789950, 26.9176273197487], [-22.5565771338693, 26.8891442834673], [-22.4431864883417... (32)
 

`assign`(p34, plot(`+`(`*`(4, `*`(x)), 26), x = -1.9 .. -1.1, color = navy, thickness = 2)) 

PLOT(CURVES([[-1.90000000000000, 18.4000000000000], [-1.89579391597990, 18.4168243360804], [-1.89213422476382, 18.4314631009447], [-1.88801851923618, 18.4479259230553], [-1.88387553214070, 18.46449787... (33)
 

`assign`(p35, plot(`+`(`*`(4, `*`(x)), 120), x = -24 .. -23.2, color = navy, thickness = 2)) 

PLOT(CURVES([[-24., 24.], [-23.9957939159799, 24.0168243360804], [-23.9921342247638, 24.0314631009447], [-23.9880185192362, 24.0479259230553], [-23.9838755321407, 24.0644978714372], [-23.9797522359397... (34)
 

`assign`(p36, plot(`+`(`*`(4, `*`(x)), 21), x = -11.8 .. -11, color = navy, thickness = 5)) 

PLOT(CURVES([[-11.8000000000000, -26.2000000000000], [-11.7957939159799, -26.1831756639196], [-11.7921342247638, -26.1685368990553], [-11.7880185192362, -26.1520740769447], [-11.7838755321407, -26.135... (35)
 

`assign`(p37, plot(`+`(`*`(4, `*`(x)), 125), x = -36.3 .. -35.45, color = navy, thickness = 5)) 

PLOT(CURVES([[-36.3000000000000, -20.2000000000000], [-36.2955310357286, -20.1821241429146], [-36.2916426138116, -20.1665704552462], [-36.2872696766884, -20.1490787067538], [-36.2828677528995, -20.131... (36)
 

`assign`(p38, plot(`+`(`*`(4, `*`(x)), 21), x = -.7 .. .1, color = navy, thickness = 5)) 

PLOT(CURVES([[-.700000000000000, 18.2000000000000], [-.695793915979899, 18.2168243360804], [-.692134224763819, 18.2314631009447], [-.688018519236181, 18.2479259230553], [-.683875532140704, 18.26449787... (37)
 

`assign`(p39, plot(`+`(`*`(4, `*`(x)), 125), x = -25.18 .. -24.38, color = navy, thickness = 5)) 

PLOT(CURVES([[-25.1800000000000, 24.2800000000000], [-25.1757939159799, 24.2968243360804], [-25.1721342247638, 24.3114631009447], [-25.1680185192362, 24.3279259230553], [-25.1638755321407, 24.34449787... (38)
 

`assign`(p40, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), `-`(26.8)), x = -34 .. -13, color = navy, thickness = 4)) 

PLOT(CURVES([[-34., -18.3000000000000], [-33.8895902944724, -18.3276024263819], [-33.7935234000503, -18.3516191499874], [-33.6854861299498, -18.3786284675126], [-33.5767327186935, -18.4058168203266], ... (39)
 

`assign`(p41, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 23.5), x = -22.1 .. -1, color = navy, thickness = 3)) 

PLOT(CURVES([[-22.1000000000000, 29.0250000000000], [-21.9890645339699, 28.9972661334925], [-21.8925401781457, 28.9731350445364], [-21.7839884448543, 28.9459971112136], [-21.6747171602111, 28.91867929... (40)
 

`assign`(p42, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 24.5), x = -20 .. -3, color = navy, thickness = 3)) 

PLOT(CURVES([[-20., 29.5000000000000], [-19.9106207145729, 29.4776551786432], [-19.8328522762312, 29.4582130690578], [-19.7453935337688, 29.4363483834422], [-19.6573550579899, 29.4143387644975], [-19.... (41)
 

`assign`(p43, plot(`+`(`*`(4, `*`(x)), 109), x = -20.1 .. -19.8, color = navy, thickness = 2)) 

PLOT(CURVES([[-20.1000000000000, 28.6000000000000], [-20.0984227184925, 28.6063091260301], [-20.0970503342864, 28.6117986628543], [-20.0955069447136, 28.6179722211457], [-20.0939533245528, 28.62418670... (42)
 

`assign`(p44, plot(`+`(`*`(4, `*`(x)), 36.5), x = -3.1 .. -2.8, color = navy, thickness = 2)) 

PLOT(CURVES([[-3.10000000000000, 24.1000000000000], [-3.09842271849246, 24.1063091260302], [-3.09705033428643, 24.1117986628543], [-3.09550694471357, 24.1179722211457], [-3.09395332455276, 24.12418670... (43)
 

`assign`(p45, plot(`+`(`*`(4, `*`(x)), 28), x = -12.8 .. -2.5, color = navy, thickness = 1)) 

PLOT(CURVES([[-12.8000000000000, -23.2000000000000], [-12.7458466682412, -22.9833866729648], [-12.6987281438342, -22.7949125753367], [-12.6457384351658, -22.5829537406633], [-12.5923974763116, -22.369... (44)
 

`assign`(p46, plot(`+`(`*`(4, `*`(x)), 118), x = -34 .. -23.7, color = navy, thickness = 1)) 

PLOT(CURVES([[-34., -18.], [-33.9458466682412, -17.7833866729648], [-33.8987281438342, -17.5949125753367], [-33.8457384351658, -17.3829537406633], [-33.7923974763116, -17.1695899052462], [-33.73931003... (45)
 

`assign`(p47, plot(`+`(`*`(4, `*`(x)), 73), x = -23.5 .. -13.15, color = navy, thickness = 1)) 

PLOT(CURVES([[-23.5000000000000, -21.], [-23.4455837879899, -20.7823351519598], [-23.3982365328819, -20.5929461315276], [-23.3449895926181, -20.3799583704724], [-23.2913896970704, -20.1655587882814], ... (46)
 

`assign`(p48, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 17.3), x = -23.7 .. -2.8, color = navy, thickness = 1)) 

PLOT(CURVES([[-23.7000000000000, 23.2250000000000], [-23.5901160549749, 23.1975290137437], [-23.4945066219548, 23.1736266554887], [-23.3869838150452, 23.1467459537613], [-23.2787482771759, 23.11968706... (47)
 

`assign`(p49, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 16), x = -23 .. -14.3, color = navy, thickness = 2)) 

PLOT(CURVES([[-23., 21.7500000000000], [-22.9542588362814, 21.7385647090704], [-22.9144596943065, 21.7286149235766], [-22.8697013966935, 21.7174253491734], [-22.8246464120302, 21.7061616030075], [-22.... (48)
 

`assign`(p50, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 16), x = -12.5 .. -4, color = navy, thickness = 2)) 

PLOT(CURVES([[-12.5000000000000, 19.1250000000000], [-12.4553103572864, 19.1138275893216], [-12.4164261381156, 19.1041065345289], [-12.3726967668844, 19.0931741917211], [-12.3286775289950, 19.08216938... (49)
 

`assign`(p51, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 6.425), x = -25 .. -16.7, color = navy, thickness = 2)) 

PLOT(CURVES([[-25., 12.6750000000000], [-24.9563618782915, 12.6640904695729], [-24.9183925819246, 12.6545981454812], [-24.8756921370754, 12.6439230342688], [-24.8327086459598, 12.6331771614900], [-24.... (50)
 

`assign`(p52, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 6.425), x = -14.5 .. -6.4, color = navy, thickness = 2)) 

PLOT(CURVES([[-14.5000000000000, 10.0500000000000], [-14.4574133992965, 10.0393533498241], [-14.4203590257337, 10.0300897564334], [-14.3786875072663, 10.0196718768166], [-14.3367397629246, 10.00918494... (51)
 

`assign`(p53, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 5.425), x = -25.4 .. -17.1, color = navy, thickness = 2)) 

PLOT(CURVES([[-25.4000000000000, 11.7750000000000], [-25.3563618782915, 11.7640904695729], [-25.3183925819246, 11.7545981454812], [-25.2756921370754, 11.7439230342688], [-25.2327086459598, 11.73317716... (52)
 

`assign`(p54, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 5.425), x = -14.9 .. -6.6, color = navy, thickness = 2)) 

PLOT(CURVES([[-14.9000000000000, 9.15000000000000], [-14.8563618782915, 9.13909046957286], [-14.8183925819246, 9.12959814548116], [-14.7756921370754, 9.11892303426884], [-14.7327086459598, 9.108177161... (53)
 

`assign`(p55, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), `-`(4.15)), x = -27.5 .. -19.2, color = navy, thickness = 2)) 

PLOT(CURVES([[-27.5000000000000, 2.72500000000000], [-27.4563618782915, 2.71409046957286], [-27.4183925819246, 2.70459814548116], [-27.3756921370754, 2.69392303426884], [-27.3327086459598, 2.683177161... (54)
 

`assign`(p56, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), `-`(4.15)), x = -17 .. -8.8, color = navy, thickness = 2)) 

PLOT(CURVES([[-17., 0.999999999999996e-1], [-16.9568876387940, 0.892219096984919e-1], [-16.9193758038291, 0.798439509572857e-1], [-16.8771898221709, 0.692974555427135e-1], [-16.8347242044422, 0.586810... (55)
 

`assign`(p57, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), `-`(5.15)), x = -27.8 .. -19.5, color = navy, thickness = 2)) 

PLOT(CURVES([[-27.8000000000000, 1.80000000000000], [-27.7563618782915, 1.78909046957286], [-27.7183925819246, 1.77959814548116], [-27.6756921370754, 1.76892303426884], [-27.6327086459598, 1.758177161... (56)
 

`assign`(p58, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), `-`(5.15)), x = -17.3 .. -9, color = navy, thickness = 2)) 

PLOT(CURVES([[-17.3000000000000, -.825000000000000], [-17.2563618782915, -.835909530427136], [-17.2183925819246, -.845401854518844], [-17.1756921370754, -.856076965731156], [-17.1327086459598, -.86682... (57)
 

`assign`(p59, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), `-`(14.725)), x = -30.1 .. -21.8, color = navy, thickness = 2)) 

PLOT(CURVES([[-30.1000000000000, -7.20000000000000], [-30.0563618782915, -7.21090953042714], [-30.0183925819246, -7.22040185451884], [-29.9756921370754, -7.23107696573116], [-29.9327086459598, -7.2418... (58)
 

`assign`(p60, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), `-`(14.725)), x = -19.6 .. -11.3, color = navy, thickness = 2)) 

PLOT(CURVES([[-19.6000000000000, -9.82500000000000], [-19.5563618782915, -9.83590953042713], [-19.5183925819246, -9.84540185451884], [-19.4756921370754, -9.85607696573116], [-19.4327086459598, -9.8668... (59)
 

`assign`(p61, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), `-`(15.725)), x = -30.3 .. -22, color = navy, thickness = 2)) 

PLOT(CURVES([[-30.3000000000000, -8.15000000000000], [-30.2563618782915, -8.16090953042714], [-30.2183925819246, -8.17040185451884], [-30.1756921370754, -8.18107696573115], [-30.1327086459598, -8.1918... (60)
 

`assign`(p62, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), `-`(15.725)), x = -19.8 .. -11.5, color = navy, thickness = 2)) 

PLOT(CURVES([[-19.8000000000000, -10.7750000000000], [-19.7563618782915, -10.7859095304271], [-19.7183925819246, -10.7954018545188], [-19.6756921370754, -10.8060769657312], [-19.6327086459598, -10.816... (61)
 

`assign`(p63, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), `-`(25.3)), x = -32.6 .. -24.3, color = navy, thickness = 2)) 

PLOT(CURVES([[-32.6000000000000, -17.1500000000000], [-32.5563618782915, -17.1609095304271], [-32.5183925819246, -17.1704018545188], [-32.4756921370754, -17.1810769657312], [-32.4327086459598, -17.191... (62)
 

`assign`(p64, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), `-`(25.3)), x = -22.1 .. -13.5, color = navy, thickness = 2)) 

PLOT(CURVES([[-22.1000000000000, -19.7750000000000], [-22.0547845967839, -19.7863038508040], [-22.0154429162111, -19.7961392709472], [-21.9711990817889, -19.8072002295528], [-21.9266619705126, -19.818... (63)
 

`assign`(p65, plot(`+`(`*`(4, `*`(x)), 33), x = -13.7 .. -11.45, color = navy, thickness = 2)) 

PLOT(CURVES([[-13.7000000000000, -21.8000000000000], [-13.6881703886935, -21.7526815547739], [-13.6778775071482, -21.7115100285930], [-13.6663020853518, -21.6652083414070], [-13.6546499341457, -21.618... (64)
 

`assign`(p66, plot(`+`(`*`(4, `*`(x)), 33), x = -11.25 .. -8.95, color = navy, thickness = 2)) 

PLOT(CURVES([[-11.2500000000000, -12.], [-11.2379075084422, -11.9516300337688], [-11.2273858961960, -11.9095435847839], [-11.2155532428040, -11.8622129712161], [-11.2036421549045, -11.8145686196181], ... (65)
 

`assign`(p67, plot(`+`(`*`(4, `*`(x)), 33), x = -8.75 .. -6.55, color = navy, thickness = 2)) 

PLOT(CURVES([[-8.75000000000000, -2.], [-8.73843326894472, -1.95373307577889], [-8.72836911810050, -1.91347647240201], [-8.71705092789950, -1.86820371159799], [-8.70565771338693, -1.82263085354774], [... (66)
 

`assign`(p68, plot(`+`(`*`(4, `*`(x)), 33), x = -6.25 .. -4, color = navy, thickness = 2)) 

PLOT(CURVES([[-6.25000000000000, 8.], [-6.23817038869347, 8.04731844522613], [-6.22787750714824, 8.08848997140704], [-6.21630208535176, 8.13479165859296], [-6.20464993414573, 8.18140026341709], [-6.19... (67)
 

`assign`(p69, plot(`+`(`*`(4, `*`(x)), 68), x = -22 .. -19.65, color = navy, thickness = 2)) 

PLOT(CURVES([[-22., -20.], [-21.9876446281910, -19.9505785127638], [-21.9768942852437, -19.9075771409749], [-21.9648044002563, -19.8592176010251], [-21.9526343756633, -19.8105375026533], [-21.94052219... (68)
 

`assign`(p70, plot(`+`(`*`(4, `*`(x)), 68), x = -19.5 .. -17.15, color = navy, thickness = 2)) 

PLOT(CURVES([[-19.5000000000000, -10.], [-19.4876446281910, -9.95057851276381], [-19.4768942852437, -9.90757714097488], [-19.4648044002563, -9.85921760102512], [-19.4526343756633, -9.81053750265326], ... (69)
 

`assign`(p71, plot(`+`(`*`(4, `*`(x)), 68), x = -16.95 .. -14.75, color = navy, thickness = 2)) 

PLOT(CURVES([[-16.9500000000000, .200000000000003], [-16.9384332689447, .246266924221104], [-16.9283691181005, .286523527597993], [-16.9170509278995, .331796288402018], [-16.9056577133869, .3773691464... (70)
 

`assign`(p72, plot(`+`(`*`(4, `*`(x)), 68), x = -14.5 .. -12.25, color = navy, thickness = 2)) 

PLOT(CURVES([[-14.5000000000000, 10.], [-14.4881703886935, 10.0473184452261], [-14.4778775071482, 10.0884899714070], [-14.4663020853518, 10.1347916585930], [-14.4546499341457, 10.1814002634171], [-14.... (71)
 

`assign`(p73, plot(`+`(`*`(4, `*`(x)), 78), x = -24.3 .. -22.05, color = navy, thickness = 2)) 

PLOT(CURVES([[-24.3000000000000, -19.2000000000000], [-24.2881703886935, -19.1526815547739], [-24.2778775071482, -19.1115100285930], [-24.2663020853518, -19.0652083414070], [-24.2546499341457, -19.018... (72)
 

`assign`(p74, plot(`+`(`*`(4, `*`(x)), 78), x = -21.8 .. -19.5, color = navy, thickness = 2)) 

PLOT(CURVES([[-21.8000000000000, -9.20000000000000], [-21.7879075084422, -9.15163003376885], [-21.7773858961960, -9.10954358478392], [-21.7655532428040, -9.06221297121608], [-21.7536421549045, -9.0145... (73)
 

`assign`(p75, plot(`+`(`*`(4, `*`(x)), 78), x = -19.3 .. -17, color = navy, thickness = 2)) 

PLOT(CURVES([[-19.3000000000000, .799999999999997], [-19.2879075084422, .848369966231147], [-19.2773858961960, .890456415216079], [-19.2655532428040, .937787028783916], [-19.2536421549045, .9854313803... (74)
 

`assign`(p76, plot(`+`(`*`(4, `*`(x)), 78), x = -16.85 .. -14.6, color = navy, thickness = 2)) 

PLOT(CURVES([[-16.8500000000000, 10.6000000000000], [-16.8381703886935, 10.6473184452261], [-16.8278775071482, 10.6884899714070], [-16.8163020853518, 10.7347916585930], [-16.8046499341457, 10.78140026... (75)
 

`assign`(p77, plot(`+`(`*`(4, `*`(x)), 113), x = -32.6 .. -30.25, color = navy, thickness = 2)) 

PLOT(CURVES([[-32.6000000000000, -17.4000000000000], [-32.5876446281910, -17.3505785127638], [-32.5768942852437, -17.3075771409749], [-32.5648044002563, -17.2592176010251], [-32.5526343756633, -17.210... (76)
 

`assign`(p78, plot(`+`(`*`(4, `*`(x)), 113), x = -30.05 .. -27.75, color = navy, thickness = 2)) 

PLOT(CURVES([[-30.0500000000000, -7.20000000000000], [-30.0379075084422, -7.15163003376885], [-30.0273858961960, -7.10954358478392], [-30.0155532428040, -7.06221297121608], [-30.0036421549045, -7.0145... (77)
 

`assign`(p79, plot(`+`(`*`(4, `*`(x)), 113), x = -27.55 .. -25.3, color = navy, thickness = 2)) 

PLOT(CURVES([[-27.5500000000000, 2.80000000000000], [-27.5381703886935, 2.84731844522612], [-27.5278775071482, 2.88848997140703], [-27.5163020853518, 2.93479165859296], [-27.5046499341457, 2.981400263... (78)
 

`assign`(p80, plot(`+`(`*`(4, `*`(x)), 113), x = -25.1 .. -22.8, color = navy, thickness = 2)) 

PLOT(CURVES([[-25.1000000000000, 12.6000000000000], [-25.0879075084422, 12.6483699662311], [-25.0773858961960, 12.6904564152161], [-25.0655532428040, 12.7377870287839], [-25.0536421549045, 12.78543138... (79)
 

`assign`(p81, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 11.2125), x = -23.7 .. -15.8, color = navy, thickness = 1)) 

PLOT(CURVES([[-23.7000000000000, 17.1375000000000], [-23.6584649203015, 17.1271162300754], [-23.6223254695427, 17.1180813673857], [-23.5816828774573, 17.1079207193643], [-23.5407708798894, 17.09769271... (80)
 

`assign`(p82, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 11.2125), x = -13.5 .. -4.9, color = navy, thickness = 1)) 

PLOT(CURVES([[-13.5000000000000, 14.5875000000000], [-13.4547845967839, 14.5761961491960], [-13.4154429162111, 14.5663607290528], [-13.3711990817889, 14.5552997704472], [-13.3266619705126, 14.54416549... (81)
 

`assign`(p83, plot(`+`(`*`(4, `*`(x)), 73), x = -11.35 .. -10.4, color = brown, thickness = 1)) 

PLOT(CURVES([[-11.3500000000000, 27.6000000000000], [-11.3450052752261, 27.6199788990955], [-11.3406593919070, 27.6373624323719], [-11.3357719915930, 27.6569120336281], [-11.3308521944171, 27.67659122... (82)
 

`assign`(p84, plot(`+`(`*`(4, `*`(x)), 77), x = -12.3 .. -11.3, color = brown, thickness = 1)) 

PLOT(CURVES([[-12.3000000000000, 27.8000000000000], [-12.2947423949749, 27.8210304201005], [-12.2901677809548, 27.8393288761809], [-12.2850231490452, 27.8599074038191], [-12.2798444151759, 27.88062233... (83)
 

`assign`(p85, plot(`+`(`*`(4, `*`(x)), 69), x = -10.4 .. -9.4, color = brown, thickness = 1)) 

PLOT(CURVES([[-10.4000000000000, 27.4000000000000], [-10.3947423949749, 27.4210304201005], [-10.3901677809548, 27.4393288761809], [-10.3850231490452, 27.4599074038191], [-10.3798444151759, 27.48062233... (84)
 

`assign`(p86, plot(`+`(`-`(`*`(`/`(1, 4), `*`(x))), 29), x = -12 .. -8.7, color = brown, thickness = 2)) 

PLOT(CURVES([[-12., 32.], [-11.9826499034171, 31.9956624758543], [-11.9675536771508, 31.9918884192877], [-11.9505763918492, 31.9876440979623], [-11.9334865700804, 31.9833716425201], [-11.9164779732513... (85)
 

`assign`(p87, plot(`+`(`*`(4, `*`(x)), 46.7), x = -9.5 .. -7.2, color = navy, thickness = 1)) 

PLOT(CURVES([[-9.50000000000000, 8.70000000000000], [-9.48790750844221, 8.74836996623116], [-9.47738589619598, 8.79045641521608], [-9.46555324280402, 8.83778702878392], [-9.45364215490452, 8.885431380... (86)
 

`assign`(p88, plot(`+`(`*`(4, `*`(x)), 56.3), x = -11.7 .. -9.45, color = navy, thickness = 1)) 

PLOT(CURVES([[-11.7000000000000, 9.50000000000000], [-11.6881703886935, 9.54731844522613], [-11.6778775071482, 9.58848997140704], [-11.6663020853518, 9.63479165859297], [-11.6546499341457, 9.681400263... (87)
 

`assign`(p89, plot(`+`(`*`(4, `*`(x)), 89.7), x = -19.6 .. -17.3, color = navy, thickness = 1)) 

PLOT(CURVES([[-19.6000000000000, 11.3000000000000], [-19.5879075084422, 11.3483699662311], [-19.5773858961960, 11.3904564152161], [-19.5655532428040, 11.4377870287839], [-19.5536421549045, 11.48543138... (88)
 

`assign`(p90, plot(`+`(`*`(4, `*`(x)), 101.3), x = -22.3 .. -20.1, color = navy, thickness = 1)) 

 

 

 

display(p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17, p18, p19, p20, p21, p22, p23, p24, p25, p26, p27, p28, p29, p30, p31, p32, p33, p34, p35, p36, p37, p38, p39, p40, p...
display(p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17, p18, p19, p20, p21, p22, p23, p24, p25, p26, p27, p28, p29, p30, p31, p32, p33, p34, p35, p36, p37, p38, p39, p40, p...
display(p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17, p18, p19, p20, p21, p22, p23, p24, p25, p26, p27, p28, p29, p30, p31, p32, p33, p34, p35, p36, p37, p38, p39, p40, p...
display(p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17, p18, p19, p20, p21, p22, p23, p24, p25, p26, p27, p28, p29, p30, p31, p32, p33, p34, p35, p36, p37, p38, p39, p40, p... 

Plot_2d