Malcolm_Multi_Plot_Project.mw

Malcolm Eaton 

Multivariable Independent Project 

Professor Ratliff 

5/2/2011 

 

with(plots) 

[animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, densityplot, display, dualaxisplot, fiel...
[animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, densityplot, display, dualaxisplot, fiel...
[animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, densityplot, display, dualaxisplot, fiel...
[animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, densityplot, display, dualaxisplot, fiel...
[animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, densityplot, display, dualaxisplot, fiel...
[animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, densityplot, display, dualaxisplot, fiel...
[animate, animate3d, animatecurve, arrow, changecoords, complexplot, complexplot3d, conformal, conformal3d, contourplot, contourplot3d, coordplot, coordplot3d, densityplot, display, dualaxisplot, fiel...		 (1)
 

 

 

 

`*`(Guitar, `*`(Body)) 

`*`(Guitar, `*`(Body)) (2)
 

 

`assign`(p1, polarplot(`+`(3, sin(`+`(`*`(3, `*`(theta))))), theta = 0 .. `*`(`+`(`*`(5.1, `*`(Pi))), `/`(1, 6)), color = brown, scaling = constrained, thickness = 5)) 

PLOT(CURVES([[3., 0.], [3.04180673050603, 0.427087545670809e-1], [3.07762400051471, 0.808231388818838e-1], [3.11719820861748, .124734146056540], [3.15618985955141, .170038384291181], [3.19406229348998... (3)
 

`assign`(p2, polarplot(`+`(3, `-`(sin(`+`(`*`(3, `*`(theta)))))), theta = 0 .. `+`(`-`(`*`(`+`(`*`(5.1, `*`(Pi))), `/`(1, 6)))), color = brown, scaling = constrained, thickness = 5)) 

PLOT(CURVES([[-3.55305632046385, -1.81037264266840], [-3.53234156041563, -1.86274020926592], [-3.51243082587345, -1.90743803329791], [-3.48796875812615, -1.95667311030610], [-3.46116424159176, -2.0050... (4)
 

`assign`(p3, plot([`+`(`-`(`*`(2, `*`(t)))), t, t = .5 .. 1.8], color = brown, thickness = 5)) 

PLOT(CURVES([[-1., .500000000000000], [-1.01366977306533, .506834886532663], [-1.02556376951759, .512781884758794], [-1.03893981248241, .519469906241206], [-1.05240452054271, .526202260271357], [-1.06... (5)
 

`assign`(p4, plot([`+`(`-`(`*`(2, `*`(t)))), `+`(`-`(t)), t = .5 .. 1.8], color = brown, thickness = 5)) 

PLOT(CURVES([[-1., -.500000000000000], [-1.01366977306533, -.506834886532663], [-1.02556376951759, -.512781884758794], [-1.03893981248241, -.519469906241206], [-1.05240452054271, -.526202260271357], [... (6)
 

`assign`(p5, plot([t, .5, t = 0 .. -8], color = black, thickness = 4, filled = true)) 

PLOT(POLYGONS([[-8., 0], [-7.95793915979900, 0], [-7.92134224763819, 0], [-7.88018519236181, 0], [-7.83875532140704, 0], [-7.79752235939698, 0], [-7.75929412542714, 0], [-7.71971100341709, 0], [-7.678... (7)
 

`assign`(p6, plot([t, -.5, t = 0 .. -8], color = black, thickness = 4, filled = true)) 

PLOT(POLYGONS([[-8., -.500000000000000], [-7.95793915979900, -.500000000000000], [-7.92134224763819, -.500000000000000], [-7.88018519236181, -.500000000000000], [-7.83875532140704, -.500000000000000],... (8)
 

`assign`(p7, plot(`+`(`-`(`*`(.3, `*`(x))), `-`(1.9)), x = -8 .. -9, y = 0 .. 2, color = brown, filled = true)) 

PLOT(POLYGONS([[-9., 0], [-8.99474239497487, 0], [-8.99016778095477, 0], [-8.98502314904523, 0], [-8.97984441517588, 0], [-8.97469029492462, 0], [-8.97469029492462, .792407088477387], [-8.979844415175... (9)
 

`assign`(p8, plot(`+`(`*`(.3, `*`(x)), 1.9), x = -8 .. -9, y = 0 .. 2, color = brown, filled = true)) 

PLOT(POLYGONS([[-9., -.800000000000000], [-8.99474239497487, -.798422718492462], [-8.99016778095477, -.797050334286432], [-8.98502314904523, -.795506944713568], [-8.97984441517588, -.793953324552764],... (10)
 

`assign`(p9, plot([`+`(t, 1), 0, t = 0 .. 5], color = brown)) 

PLOT(CURVES([[1., 0.], [1.02628802512563, 0.], [1.04916109522613, 0.], [1.07488425477387, 0.], [1.10077792412060, 0.], [1.12654852537688, 0.], [1.15044117160804, 0.], [1.17518062286432, 0.], [1.200766... (11)
 

 

 

 

`*`(AMP, `*`(CAB)) 

`assign`(p10, plot([0, `+`(t, 2), t = 0 .. 3], color =  

PLOT(CURVES([[0., 2.], [0., 2.01577281507538], [0., 2.02949665713568], [0., 2.04493055286432], [0., 2.06046675447236], [0., 2.07592911522613], [0., 2.09026470296482], [0., 2.10510837371859], [0., 2.12... (12)
 

`assign`(p11, plot([10, t, t = 0 .. 5], color =  

PLOT(CURVES([[10., 0.], [10., 0.262880251256281e-1], [10., 0.491610952261307e-1], [10., 0.748842547738694e-1], [10., .100777924120603], [10., .126548525376884], [10., .150441171608040], [10., .1751806... (13)
 

`assign`(p12, plot([t, 5, t = 0 .. 10], color =  

PLOT(CURVES([[0., 5.], [0.525760502512563e-1, 5.], [0.983221904522613e-1, 5.], [.149768509547739, 5.], [.201555848241206, 5.], [.253097050753769, 5.], [.300882343216080, 5.], [.350361245728643, 5.], [... (14)
 

`assign`(p13, plot([t, 0, t = 3 .. 10], color =  

PLOT(CURVES([[3., 0.], [3.03680323517588, 0.], [3.06882553331658, 0.], [3.10483795668342, 0.], [3.14108909376884, 0.], [3.17716793552764, 0.], [3.21061764025126, 0.], [3.24525287201005, 0.], [3.281072... (15)
 

`*`(AMP, `*`(HEAD)) 

`*`(AMP, `*`(HEAD)) (16)
 

`assign`(p14, plot([2, `+`(t, 5), t = 0 .. 3], color = black, thickness = 3)) 

PLOT(CURVES([[2., 5.], [2., 5.01577281507538], [2., 5.02949665713568], [2., 5.04493055286432], [2., 5.06046675447236], [2., 5.07592911522613], [2., 5.09026470296482], [2., 5.10510837371859], [2., 5.12... (17)
 

 

`assign`(p15, plot([8, `+`(t, 5), t = 0 .. 3], color = black, thickness = 3)) 

PLOT(CURVES([[8., 5.], [8., 5.01577281507538], [8., 5.02949665713568], [8., 5.04493055286432], [8., 5.06046675447236], [8., 5.07592911522613], [8., 5.09026470296482], [8., 5.10510837371859], [8., 5.12... (18)
 

`assign`(p16, plot([t, 8, t = 2 .. 8], color = black, thickness = 3)) 

PLOT(CURVES([[2., 8.], [2.03154563015075, 8.], [2.05899331427136, 8.], [2.08986110572864, 8.], [2.12093350894472, 8.], [2.15185823045226, 8.], [2.18052940592965, 8.], [2.21021674743719, 8.], [2.240919... (19)
 

`assign`(p17, plot([t, 6, t = 2 .. 8], color = black, thickness = 3)) 

PLOT(CURVES([[2., 6.], [2.03154563015075, 6.], [2.05899331427136, 6.], [2.08986110572864, 6.], [2.12093350894472, 6.], [2.15185823045226, 6.], [2.18052940592965, 6.], [2.21021674743719, 6.], [2.240919... (20)
 

 

`*`(AMP, `*`(DETAILS)) 

`*`(AMP, `*`(DETAILS)) (21)
 

`assign`(p18, plot([.5, `+`(t, 2), t = .2 .. 3], color = black)) 

PLOT(CURVES([[.500000000000000, 2.20000000000000], [.500000000000000, 2.21472129407035], [.500000000000000, 2.22753021332663], [.500000000000000, 2.24193518267337], [.500000000000000, 2.25643563750754... (22)
 

`assign`(p19, plot([1, `+`(t, 2), t = .5 .. 3], color = black)) 

PLOT(CURVES([[1., 2.50000000000000], [1., 2.51314401256281], [1., 2.52458054761307], [1., 2.53744212738693], [1., 2.55038896206030], [1., 2.56327426268844], [1., 2.57522058580402], [1., 2.587590311432... (23)
 

`assign`(p20, plot([1.5, `+`(t, 2), t = .58 .. 3], color = black)) 

PLOT(CURVES([[1.50000000000000, 2.58000000000000], [1.50000000000000, 2.59272340416080], [1.50000000000000, 2.60379397008945], [1.50000000000000, 2.61624397931055], [1.50000000000000, 2.62877651527437... (24)
 

`assign`(p21, plot([2, `+`(t, 2), t = .59 .. 3], color = black)) 

PLOT(CURVES([[2., 2.59000000000000], [2., 2.60267082811055], [2., 2.61369564789899], [2., 2.62609421080101], [2., 2.63857495942613], [2., 2.65099638923166], [2., 2.66251264471508], [2., 2.674437060220... (25)
 

`assign`(p22, plot([2.5, `+`(t, 2), t = .61 .. 3], color = black)) 

PLOT(CURVES([[2.50000000000000, 2.61000000000000], [2.50000000000000, 2.62256567601005], [2.50000000000000, 2.63349900351809], [2.50000000000000, 2.64579467378191], [2.50000000000000, 2.65817184772965... (26)
 

`assign`(p23, plot([3, `+`(t, 2), t = .5 .. 3], color = black)) 

PLOT(CURVES([[3., 2.50000000000000], [3., 2.51314401256281], [3., 2.52458054761307], [3., 2.53744212738693], [3., 2.55038896206030], [3., 2.56327426268844], [3., 2.57522058580402], [3., 2.587590311432... (27)
 

`assign`(p24, plot([3.5, `+`(t, 2), t = 0 .. 3], color = black)) 

PLOT(CURVES([[3.50000000000000, 2.], [3.50000000000000, 2.01577281507538], [3.50000000000000, 2.02949665713568], [3.50000000000000, 2.04493055286432], [3.50000000000000, 2.06046675447236], [3.50000000... (28)
 

`assign`(p25, plot([4, t, t = 0 .. 5], color = black)) 

PLOT(CURVES([[4., 0.], [4., 0.262880251256281e-1], [4., 0.491610952261307e-1], [4., 0.748842547738694e-1], [4., .100777924120603], [4., .126548525376884], [4., .150441171608040], [4., .175180622864322... (29)
 

`assign`(p26, plot([4.5, t, t = 0 .. 5], color = black)) 

PLOT(CURVES([[4.50000000000000, 0.], [4.50000000000000, 0.262880251256281e-1], [4.50000000000000, 0.491610952261307e-1], [4.50000000000000, 0.748842547738694e-1], [4.50000000000000, .100777924120603],... (30)
 

`assign`(p27, plot([5, t, t = 0 .. 5], color = black)) 

PLOT(CURVES([[5., 0.], [5., 0.262880251256281e-1], [5., 0.491610952261307e-1], [5., 0.748842547738694e-1], [5., .100777924120603], [5., .126548525376884], [5., .150441171608040], [5., .175180622864322... (31)
 

`assign`(p28, plot([5.5, t, t = 0 .. 5], color = black)) 

PLOT(CURVES([[5.50000000000000, 0.], [5.50000000000000, 0.262880251256281e-1], [5.50000000000000, 0.491610952261307e-1], [5.50000000000000, 0.748842547738694e-1], [5.50000000000000, .100777924120603],... (32)
 

`assign`(p29, plot([6, t, t = 0 .. 5], color = black)) 

PLOT(CURVES([[6., 0.], [6., 0.262880251256281e-1], [6., 0.491610952261307e-1], [6., 0.748842547738694e-1], [6., .100777924120603], [6., .126548525376884], [6., .150441171608040], [6., .175180622864322... (33)
 

`assign`(p30, plot([6.5, t, t = 0 .. 5], color = black)) 

PLOT(CURVES([[6.50000000000000, 0.], [6.50000000000000, 0.262880251256281e-1], [6.50000000000000, 0.491610952261307e-1], [6.50000000000000, 0.748842547738694e-1], [6.50000000000000, .100777924120603],... (34)
 

`assign`(p31, plot([7, t, t = 0 .. 5], color = black)) 

PLOT(CURVES([[7., 0.], [7., 0.262880251256281e-1], [7., 0.491610952261307e-1], [7., 0.748842547738694e-1], [7., .100777924120603], [7., .126548525376884], [7., .150441171608040], [7., .175180622864322... (35)
 

`assign`(p32, plot([7.5, t, t = 0 .. 5], color = black)) 

PLOT(CURVES([[7.50000000000000, 0.], [7.50000000000000, 0.262880251256281e-1], [7.50000000000000, 0.491610952261307e-1], [7.50000000000000, 0.748842547738694e-1], [7.50000000000000, .100777924120603],... (36)
 

`assign`(p33, plot([8, t, t = 0 .. 5], color = black)) 

PLOT(CURVES([[8., 0.], [8., 0.262880251256281e-1], [8., 0.491610952261307e-1], [8., 0.748842547738694e-1], [8., .100777924120603], [8., .126548525376884], [8., .150441171608040], [8., .175180622864322... (37)
 

`assign`(p34, plot([8.5, t, t = 0 .. 5], color = black)) 

PLOT(CURVES([[8.50000000000000, 0.], [8.50000000000000, 0.262880251256281e-1], [8.50000000000000, 0.491610952261307e-1], [8.50000000000000, 0.748842547738694e-1], [8.50000000000000, .100777924120603],... (38)
 

`assign`(p35, plot([9, t, t = 0 .. 5], color = black)) 

PLOT(CURVES([[9., 0.], [9., 0.262880251256281e-1], [9., 0.491610952261307e-1], [9., 0.748842547738694e-1], [9., .100777924120603], [9., .126548525376884], [9., .150441171608040], [9., .175180622864322... (39)
 

`assign`(p36, plot([9.5, t, t = 0 .. 5], color = black)) 

PLOT(CURVES([[9.50000000000000, 0.], [9.50000000000000, 0.262880251256281e-1], [9.50000000000000, 0.491610952261307e-1], [9.50000000000000, 0.748842547738694e-1], [9.50000000000000, .100777924120603],... (40)
 

`assign`(p37, plot([`+`(t, 3.45), .5, t = 0 .. 6.5], color = black)) 

PLOT(CURVES([[3.45000000000000, .500000000000000], [3.48417443266332, .500000000000000], [3.51390942379397, .500000000000000], [3.54734953120603, .500000000000000], [3.58101130135678, .500000000000000... (41)
 

`assign`(p38, plot([`+`(t, 3.65), 1, t = 0 .. 6.38], color = black)) 

PLOT(CURVES([[3.65000000000000, 1.], [3.68354352006030, 1.], [3.71272955750854, 1.], [3.74555230909146, 1.], [3.77859263117789, 1.], [3.81147591838090, 1.], [3.84196293497186, 1.], [3.87353047477487, ... (42)
 

`assign`(p39, plot([`+`(t, 3.75), 1.5, t = 0 .. 6.25], color = black)) 

PLOT(CURVES([[3.75000000000000, 1.50000000000000], [3.78286003140704, 1.50000000000000], [3.81145136903266, 1.50000000000000], [3.84360531846734, 1.50000000000000], [3.87597240515075, 1.50000000000000... (43)
 

`assign`(p40, plot([`+`(t, 3.65), 2, t = 0 .. 6.38], color = black)) 

PLOT(CURVES([[3.65000000000000, 2.], [3.68354352006030, 2.], [3.71272955750854, 2.], [3.74555230909146, 2.], [3.77859263117789, 2.], [3.81147591838090, 2.], [3.84196293497186, 2.], [3.87353047477487, ... (44)
 

`assign`(p41, plot([`+`(t, 2.95), 2.5, t = 0 .. 7], color = black)) 

PLOT(CURVES([[2.95000000000000, 2.50000000000000], [2.98680323517588, 2.50000000000000], [3.01882553331658, 2.50000000000000], [3.05483795668342, 2.50000000000000], [3.09108909376884, 2.50000000000000... (45)
 

`assign`(p42, plot([t, 3, t = 0 .. 10], color = black)) 

PLOT(CURVES([[0., 3.], [0.525760502512563e-1, 3.], [0.983221904522613e-1, 3.], [.149768509547739, 3.], [.201555848241206, 3.], [.253097050753769, 3.], [.300882343216080, 3.], [.350361245728643, 3.], [... (46)
 

`assign`(p43, plot([t, 3.5, t = 0 .. 10], color = black)) 

PLOT(CURVES([[0., 3.50000000000000], [0.525760502512563e-1, 3.50000000000000], [0.983221904522613e-1, 3.50000000000000], [.149768509547739, 3.50000000000000], [.201555848241206, 3.50000000000000], [.2... (47)
 

`assign`(p44, plot([t, 4, t = 0 .. 10], color = black)) 

PLOT(CURVES([[0., 4.], [0.525760502512563e-1, 4.], [0.983221904522613e-1, 4.], [.149768509547739, 4.], [.201555848241206, 4.], [.253097050753769, 4.], [.300882343216080, 4.], [.350361245728643, 4.], [... (48)
 

`assign`(p45, plot([t, 4.5, t = 0 .. 10], color = black)) 

PLOT(CURVES([[0., 4.50000000000000], [0.525760502512563e-1, 4.50000000000000], [0.983221904522613e-1, 4.50000000000000], [.149768509547739, 4.50000000000000], [.201555848241206, 4.50000000000000], [.2... (49)
 

`assign`(p46, plot([`+`(`*`(2, `*`(sin(t))), 2.5), `+`(`*`(2, `*`(cos(t))), 2), t = `+`(`-`(`*`(Pi, `*`(`/`(2.3))))) .. `+`(`*`(3, `*`(Pi, `*`(`/`(3.45)))))], color = black)) 

PLOT(CURVES([[.541831824385863, 2.40691202490465], [.551052186595337, 2.44900158198517], [.559810881930525, 2.48545461798688], [.570475258345534, 2.52624544781239], [.582076349592091, 2.56707042878817... (50)
 

`assign`(p47, plot([`+`(`*`(2, `*`(sin(t))), 7.5), `+`(`*`(2, `*`(cos(t))), 2), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black)) 

PLOT(CURVES([[7.50000000000000, 4.], [7.56605699733688, 3.99890882060759], [7.62347673246462, 3.99618473507335], [7.68792701621211, 3.99115128420158], [7.75260606680517, 3.98398341097228], [7.81671228... (51)
 

`assign`(p48, plot([t, 7.5, t = 2 .. 8], color = black)) 

PLOT(CURVES([[2., 7.50000000000000], [2.03154563015075, 7.50000000000000], [2.05899331427136, 7.50000000000000], [2.08986110572864, 7.50000000000000], [2.12093350894472, 7.50000000000000], [2.15185823... (52)
 

`assign`(p49, plot([t, 7, t = 2 .. 8], color = black)) 

PLOT(CURVES([[2., 7.], [2.03154563015075, 7.], [2.05899331427136, 7.], [2.08986110572864, 7.], [2.12093350894472, 7.], [2.15185823045226, 7.], [2.18052940592965, 7.], [2.21021674743719, 7.], [2.240919... (53)
 

`assign`(p50, plot([t, 6.5, t = 2 .. 8], color = black)) 

PLOT(CURVES([[2., 6.50000000000000], [2.03154563015075, 6.50000000000000], [2.05899331427136, 6.50000000000000], [2.08986110572864, 6.50000000000000], [2.12093350894472, 6.50000000000000], [2.15185823... (54)
 

`assign`(p51, plot([7.5, t, t = 6 .. 8], color = black)) 

PLOT(CURVES([[7.50000000000000, 6.], [7.50000000000000, 6.01051521005025], [7.50000000000000, 6.01966443809045], [7.50000000000000, 6.02995370190955], [7.50000000000000, 6.04031116964824], [7.50000000... (55)
 

`assign`(p52, plot([7, t, t = 6 .. 8], color = black)) 

PLOT(CURVES([[7., 6.], [7., 6.01051521005025], [7., 6.01966443809045], [7., 6.02995370190955], [7., 6.04031116964824], [7., 6.05061941015075], [7., 6.06017646864322], [7., 6.07007224914573], [7., 6.08... (56)
 

`assign`(p53, plot([6.5, t, t = 6 .. 8], color = black)) 

PLOT(CURVES([[6.50000000000000, 6.], [6.50000000000000, 6.01051521005025], [6.50000000000000, 6.01966443809045], [6.50000000000000, 6.02995370190955], [6.50000000000000, 6.04031116964824], [6.50000000... (57)
 

`assign`(p54, plot([6, t, t = 6 .. 8], color = black)) 

PLOT(CURVES([[6., 6.], [6., 6.01051521005025], [6., 6.01966443809045], [6., 6.02995370190955], [6., 6.04031116964824], [6., 6.05061941015075], [6., 6.06017646864322], [6., 6.07007224914573], [6., 6.08... (58)
 

`assign`(p55, plot([5.5, t, t = 6 .. 8], color = black)) 

PLOT(CURVES([[5.50000000000000, 6.], [5.50000000000000, 6.01051521005025], [5.50000000000000, 6.01966443809045], [5.50000000000000, 6.02995370190955], [5.50000000000000, 6.04031116964824], [5.50000000... (59)
 

`assign`(p56, plot([5, t, t = 6 .. 8], color = black)) 

PLOT(CURVES([[5., 6.], [5., 6.01051521005025], [5., 6.01966443809045], [5., 6.02995370190955], [5., 6.04031116964824], [5., 6.05061941015075], [5., 6.06017646864322], [5., 6.07007224914573], [5., 6.08... (60)
 

`assign`(p57, plot([4.5, t, t = 6 .. 8], color = black)) 

PLOT(CURVES([[4.50000000000000, 6.], [4.50000000000000, 6.01051521005025], [4.50000000000000, 6.01966443809045], [4.50000000000000, 6.02995370190955], [4.50000000000000, 6.04031116964824], [4.50000000... (61)
 

`assign`(p58, plot([4, t, t = 6 .. 8], color = black)) 

PLOT(CURVES([[4., 6.], [4., 6.01051521005025], [4., 6.01966443809045], [4., 6.02995370190955], [4., 6.04031116964824], [4., 6.05061941015075], [4., 6.06017646864322], [4., 6.07007224914573], [4., 6.08... (62)
 

`assign`(p59, plot([3.5, t, t = 6 .. 8], color = black)) 

PLOT(CURVES([[3.50000000000000, 6.], [3.50000000000000, 6.01051521005025], [3.50000000000000, 6.01966443809045], [3.50000000000000, 6.02995370190955], [3.50000000000000, 6.04031116964824], [3.50000000... (63)
 

`assign`(p60, plot([3, t, t = 6 .. 8], color = black)) 

PLOT(CURVES([[3., 6.], [3., 6.01051521005025], [3., 6.01966443809045], [3., 6.02995370190955], [3., 6.04031116964824], [3., 6.05061941015075], [3., 6.06017646864322], [3., 6.07007224914573], [3., 6.08... (64)
 

`assign`(p61, plot([2.5, t, t = 6 .. 8], color = black)) 

PLOT(CURVES([[2.50000000000000, 6.], [2.50000000000000, 6.01051521005025], [2.50000000000000, 6.01966443809045], [2.50000000000000, 6.02995370190955], [2.50000000000000, 6.04031116964824], [2.50000000... (65)
 

`assign`(p62, plot([`+`(`*`(.25, `*`(sin(t))), 3), `+`(`*`(.25, `*`(cos(t))), 5.5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black)) 

PLOT(CURVES([[3., 5.75000000000000], [3.00825712466711, 5.74986360257595], [3.01543459155808, 5.74952309188417], [3.02349087702651, 5.74889391052520], [3.03157575835065, 5.74799792637154], [3.03958903... (66)
 

`assign`(p63, plot([`+`(`*`(.15, `*`(sin(t))), 3), `+`(`*`(.15, `*`(cos(t))), 5.5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black)) 

PLOT(CURVES([[3., 5.65000000000000], [3.00495427480027, 5.64991816154557], [3.00926075493485, 5.64971385513050], [3.01409452621591, 5.64933634631512], [3.01894545501039, 5.64879875582292], [3.02375342... (67)
 

`assign`(p64, plot([`+`(`*`(.25, `*`(sin(t))), 4), `+`(`*`(.25, `*`(cos(t))), 5.5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black)) 

PLOT(CURVES([[4., 5.75000000000000], [4.00825712466711, 5.74986360257595], [4.01543459155808, 5.74952309188417], [4.02349087702651, 5.74889391052520], [4.03157575835065, 5.74799792637154], [4.03958903... (68)
 

`assign`(p65, plot([`+`(`*`(.15, `*`(sin(t))), 4), `+`(`*`(.15, `*`(cos(t))), 5.5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black)) 

PLOT(CURVES([[4., 5.65000000000000], [4.00495427480027, 5.64991816154557], [4.00926075493485, 5.64971385513050], [4.01409452621591, 5.64933634631512], [4.01894545501039, 5.64879875582292], [4.02375342... (69)
 

`assign`(p66, plot([`+`(`*`(.25, `*`(sin(t))), 5), `+`(`*`(.25, `*`(cos(t))), 5.5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black)) 

PLOT(CURVES([[5., 5.75000000000000], [5.00825712466711, 5.74986360257595], [5.01543459155808, 5.74952309188417], [5.02349087702651, 5.74889391052520], [5.03157575835065, 5.74799792637154], [5.03958903... (70)
 

`assign`(p67, plot([`+`(`*`(.15, `*`(sin(t))), 5), `+`(`*`(.15, `*`(cos(t))), 5.5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black)) 

PLOT(CURVES([[5., 5.65000000000000], [5.00495427480027, 5.64991816154557], [5.00926075493485, 5.64971385513050], [5.01409452621591, 5.64933634631512], [5.01894545501039, 5.64879875582292], [5.02375342... (71)
 

`assign`(p68, plot([`+`(`*`(.25, `*`(sin(t))), 6), `+`(`*`(.25, `*`(cos(t))), 5.5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black)) 

PLOT(CURVES([[6., 5.75000000000000], [6.00825712466711, 5.74986360257595], [6.01543459155808, 5.74952309188417], [6.02349087702651, 5.74889391052520], [6.03157575835065, 5.74799792637154], [6.03958903... (72)
 

`assign`(p69, plot([`+`(`*`(.15, `*`(sin(t))), 6), `+`(`*`(.15, `*`(cos(t))), 5.5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black)) 

PLOT(CURVES([[6., 5.65000000000000], [6.00495427480027, 5.64991816154557], [6.00926075493485, 5.64971385513050], [6.01409452621591, 5.64933634631512], [6.01894545501039, 5.64879875582292], [6.02375342... (73)
 

`assign`(p70, plot([`+`(`*`(.25, `*`(sin(t))), 7), `+`(`*`(.25, `*`(cos(t))), 5.5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black)) 

PLOT(CURVES([[7., 5.75000000000000], [7.00825712466711, 5.74986360257595], [7.01543459155808, 5.74952309188417], [7.02349087702651, 5.74889391052520], [7.03157575835065, 5.74799792637154], [7.03958903... (74)
 

`assign`(p71, plot([`+`(`*`(.15, `*`(sin(t))), 7), `+`(`*`(.15, `*`(cos(t))), 5.5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black)) 

PLOT(CURVES([[7., 5.65000000000000], [7.00495427480027, 5.64991816154557], [7.00926075493485, 5.64971385513050], [7.01409452621591, 5.64933634631512], [7.01894545501039, 5.64879875582292], [7.02375342... (75)
 

`assign`(p72, plot([`+`(`*`(.1, `*`(sin(t))), 2.25), `+`(`*`(.1, `*`(cos(t))), 5.5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black, thickness = 3)) 

PLOT(CURVES([[2.25000000000000, 5.60000000000000], [2.25330284986684, 5.59994544103038], [2.25617383662323, 5.59980923675367], [2.25939635081061, 5.59955756421008], [2.26263030334026, 5.59919917054861... (76)
 

`assign`(p73, plot([7.75, t, t = 5.3 .. 5.75], color = red, thickness = 8)) 

PLOT(CURVES([[7.75000000000000, 5.30000000000000], [7.75000000000000, 5.30236592226131], [7.75000000000000, 5.30442449857035], [7.75000000000000, 5.30673958292965], [7.75000000000000, 5.30907001317085... (77)
 

`assign`(p74, textplot([5, 7, 'MESA'], font = [TIMES, BOLD, 24], color = black)) 

PLOT(TEXT([5., 7.], MESA, FONT(TIMES, BOLD, 24), COLOUR(RGB, 0., 0., 0.))) (78)
 

`assign`(p75, textplot([5, 3, 'MESA'], font = [TIMES, BOLD, 32], color = black, scaling = constrained)) 

PLOT(TEXT([5., 3.], MESA, FONT(TIMES, BOLD, 32), COLOUR(RGB, 0., 0., 0.)), SCALING(CONSTRAINED)) (79)
 

`*`(GUITAR, `*`(DE, `*`(TAILS))) 

`*`(GUITAR, `*`(DE, `*`(TAILS))) (80)
 

`assign`(h1, plot([`+`(t, 1), -.8, t = -10 .. -12], color = brown, filled = true)) 

PLOT(POLYGONS([[-11., -.800000000000000], [-10.9894847899497, -.800000000000000], [-10.9803355619095, -.800000000000000], [-10.9700462980905, -.800000000000000], [-10.9596888303518, -.800000000000000]... (81)
 

`assign`(h2, plot([`+`(t, 1), .8, t = -10 .. -12], color = brown, filled = true)) 

PLOT(POLYGONS([[-11., 0], [-10.9894847899497, 0], [-10.9803355619095, 0], [-10.9700462980905, 0], [-10.9596888303518, 0], [-10.9493805898492, 0], [-10.9398235313568, 0], [-10.9299277508543, 0], [-10.9... (82)
 

`assign`(h3, plot([-10.5, t, t = .8 .. 1.3], color = black, thickness = 3)) 

PLOT(CURVES([[-10.5000000000000, .800000000000000], [-10.5000000000000, .802628802512563], [-10.5000000000000, .804916109522613], [-10.5000000000000, .807488425477387], [-10.5000000000000, .8100777924... (83)
 

`assign`(h4, plot([-10, t, t = .8 .. 1.3], color = black, thickness = 3)) 

PLOT(CURVES([[-10., .800000000000000], [-10., .802628802512563], [-10., .804916109522613], [-10., .807488425477387], [-10., .810077792412060], [-10., .812654852537688], [-10., .815044117160804], [-10.... (84)
 

`assign`(h5, plot([-9.5, t, t = .8 .. 1.3], color = black, thickness = 3)) 

PLOT(CURVES([[-9.50000000000000, .800000000000000], [-9.50000000000000, .802628802512563], [-9.50000000000000, .804916109522613], [-9.50000000000000, .807488425477387], [-9.50000000000000, .8100777924... (85)
 

`assign`(h6, plot([-10.5, t, t = -1.3 .. -.8], color = black, thickness = 3)) 

PLOT(CURVES([[-10.5000000000000, -1.30000000000000], [-10.5000000000000, -1.29737119748744], [-10.5000000000000, -1.29508389047739], [-10.5000000000000, -1.29251157452261], [-10.5000000000000, -1.2899... (86)
 

`assign`(h7, plot([-10, t, t = -1.3 .. -.8], color = black, thickness = 3)) 

PLOT(CURVES([[-10., -1.30000000000000], [-10., -1.29737119748744], [-10., -1.29508389047739], [-10., -1.29251157452261], [-10., -1.28992220758794], [-10., -1.28734514746231], [-10., -1.28495588283920]... (87)
 

`assign`(h8, plot([-9.5, t, t = -1.3 .. -.8], color = black, thickness = 3)) 

PLOT(CURVES([[-9.50000000000000, -1.30000000000000], [-9.50000000000000, -1.29737119748744], [-9.50000000000000, -1.29508389047739], [-9.50000000000000, -1.29251157452261], [-9.50000000000000, -1.2899... (88)
 

`assign`(h9, plot([`+`(`*`(.25, `*`(sin(t))), 1), `+`(`*`(.25, `*`(cos(t))), 1.75), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black, thickness = 4)) 

PLOT(CURVES([[1., 2.], [1.00825712466711, 1.99986360257595], [1.01543459155808, 1.99952309188417], [1.02349087702651, 1.99889391052520], [1.03157575835065, 1.99799792637154], [1.03958903609090, 1.9968... (89)
 

`assign`(h10, plot([`+`(`*`(.25, `*`(sin(t))), 1.75), `+`(`*`(.25, `*`(cos(t))), 2), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black, thickness = 4)) 

PLOT(CURVES([[1.75000000000000, 2.25000000000000], [1.75825712466711, 2.24986360257595], [1.76543459155808, 2.24952309188417], [1.77349087702651, 2.24889391052520], [1.78157575835065, 2.24799792637154... (90)
 

`assign`(h11, plot([`+`(`*`(.25, `*`(sin(t))), 2.5), `+`(`*`(.25, `*`(cos(t))), 1.75), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black, thickness = 4)) 

PLOT(CURVES([[2.50000000000000, 2.], [2.50825712466711, 1.99986360257595], [2.51543459155808, 1.99952309188417], [2.52349087702651, 1.99889391052520], [2.53157575835065, 1.99799792637154], [2.53958903... (91)
 

`assign`(h12, plot([`+`(`*`(.1, `*`(sin(t))), 1), `+`(`*`(.1, `*`(cos(t))), 1.75), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = brown, thickness = 2)) 

PLOT(CURVES([[1., 1.85000000000000], [1.00330284986684, 1.84994544103038], [1.00617383662323, 1.84980923675367], [1.00939635081061, 1.84955756421008], [1.01263030334026, 1.84919917054861], [1.01583561... (92)
 

`assign`(h13, plot([`+`(`*`(.1, `*`(sin(t))), 1.75), `+`(`*`(.1, `*`(cos(t))), 2), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = brown, thickness = 2)) 

PLOT(CURVES([[1.75000000000000, 2.10000000000000], [1.75330284986684, 2.09994544103038], [1.75617383662323, 2.09980923675367], [1.75939635081061, 2.09955756421008], [1.76263030334026, 2.09919917054861... (93)
 

`assign`(h14, plot([`+`(`*`(.1, `*`(sin(t))), 2.5), `+`(`*`(.1, `*`(cos(t))), 1.75), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = brown, thickness = 2)) 

PLOT(CURVES([[2.50000000000000, 1.85000000000000], [2.50330284986684, 1.84994544103038], [2.50617383662323, 1.84980923675367], [2.50939635081061, 1.84955756421008], [2.51263030334026, 1.84919917054861... (94)
 

`assign`(h15, plot([0, t, t = -.7 .. .7], color =  

PLOT(CURVES([[0., -.700000000000000], [0., -.692639352964824], [0., -.686234893336683], [0., -.679032408663316], [0., -.671782181246231], [0., -.664566412894472], [0., -.657876471949749], [0., -.65094... (95)
 

`assign`(h16, plot([1.2, t, t = -.7 .. .7], color =  

PLOT(CURVES([[1.20000000000000, -.700000000000000], [1.20000000000000, -.692639352964824], [1.20000000000000, -.686234893336683], [1.20000000000000, -.679032408663316], [1.20000000000000, -.6717821812... (96)
 

`assign`(h17, plot([2.5, t, t = -.9 .. .9], color = gold, thickness = 12)) 

PLOT(CURVES([[2.50000000000000, -.900000000000000], [2.50000000000000, -.890536310954774], [2.50000000000000, -.882302005718593], [2.50000000000000, -.873041668281407], [2.50000000000000, -.8637199473... (97)
 

`assign`(h18, plot([t, .35, t = 2.5 .. -8], color = grey, thickness = 1)) 

PLOT(CURVES([[-8., .350000000000000], [-7.94479514723618, .350000000000000], [-7.89676170002513, .350000000000000], [-7.84274306497487, .350000000000000], [-7.78836635934673, .350000000000000], [-7.73... (98)
 

`assign`(h19, plot([t, .2, t = 2.5 .. -8], color = grey, thickness = 1)) 

PLOT(CURVES([[-8., .200000000000000], [-7.94479514723618, .200000000000000], [-7.89676170002513, .200000000000000], [-7.84274306497487, .200000000000000], [-7.78836635934673, .200000000000000], [-7.73... (99)
 

`assign`(h20, plot([t, .1, t = 2.5 .. -8], color = grey, thickness = 1)) 

PLOT(CURVES([[-8., .100000000000000], [-7.94479514723618, .100000000000000], [-7.89676170002513, .100000000000000], [-7.84274306497487, .100000000000000], [-7.78836635934673, .100000000000000], [-7.73... (100)
 

`assign`(h21, plot([t, -0., t = 2.5 .. -8], color = grey, thickness = 1)) 

PLOT(CURVES([[-8., -0.], [-7.94479514723618, -0.], [-7.89676170002513, -0.], [-7.84274306497487, -0.], [-7.78836635934673, -0.], [-7.73424809670854, -0.], [-7.68407353962312, -0.], [-7.63212069198492,... (101)
 

`assign`(h22, plot([t, -.2, t = 2.5 .. -8], color = grey, thickness = 1)) 

PLOT(CURVES([[-8., -.200000000000000], [-7.94479514723618, -.200000000000000], [-7.89676170002513, -.200000000000000], [-7.84274306497487, -.200000000000000], [-7.78836635934673, -.200000000000000], [... (102)
 

`assign`(h23, plot([t, -.4, t = 2.5 .. -8], color = grey, thickness = 1)) 

PLOT(CURVES([[-8., -.400000000000000], [-7.94479514723618, -.400000000000000], [-7.89676170002513, -.400000000000000], [-7.84274306497487, -.400000000000000], [-7.78836635934673, -.400000000000000], [... (103)
 

`assign`(h24, plot([`+`(`*`(.1, `*`(sin(t))), `-`(10.5)), `+`(`*`(.1, `*`(cos(t))), `-`(.5)), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gold, thickness = 3)) 

PLOT(CURVES([[-10.5000000000000, -.400000000000000], [-10.4966971501332, -.400054558969620], [-10.4938261633768, -.400190763246333], [-10.4906036491894, -.400442435789921], [-10.4873696966597, -.40080... (104)
 

`assign`(h25, plot([`+`(`*`(.1, `*`(sin(t))), `-`(10)), `+`(`*`(.1, `*`(cos(t))), `-`(.5)), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gold, thickness = 3)) 

PLOT(CURVES([[-10., -.400000000000000], [-9.99669715013316, -.400054558969620], [-9.99382616337677, -.400190763246333], [-9.99060364918939, -.400442435789921], [-9.98736969665974, -.400800829451386], ... (105)
 

`assign`(h26, plot([`+`(`*`(.1, `*`(sin(t))), `-`(9.5)), `+`(`*`(.1, `*`(cos(t))), `-`(.5)), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gold, thickness = 3)) 

PLOT(CURVES([[-9.50000000000000, -.400000000000000], [-9.49669715013316, -.400054558969620], [-9.49382616337677, -.400190763246333], [-9.49060364918939, -.400442435789921], [-9.48736969665974, -.40080... (106)
 

`assign`(h27, plot([`+`(`*`(.1, `*`(sin(t))), `-`(9.5)), `+`(`*`(.1, `*`(cos(t))), .5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gold, thickness = 3)) 

PLOT(CURVES([[-9.50000000000000, .600000000000000], [-9.49669715013316, .599945441030380], [-9.49382616337677, .599809236753667], [-9.49060364918939, .599557564210079], [-9.48736969665974, .5991991705... (107)
 

`assign`(h28, plot([`+`(`*`(.1, `*`(sin(t))), `-`(10)), `+`(`*`(.1, `*`(cos(t))), .5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gold, thickness = 3)) 

PLOT(CURVES([[-10., .600000000000000], [-9.99669715013316, .599945441030380], [-9.99382616337677, .599809236753667], [-9.99060364918939, .599557564210079], [-9.98736969665974, .599199170548614], [-9.9... (108)
 

`assign`(h29, plot([`+`(`*`(.1, `*`(sin(t))), `-`(10.5)), `+`(`*`(.1, `*`(cos(t))), .5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gold, thickness = 3)) 

PLOT(CURVES([[-10.5000000000000, .600000000000000], [-10.4966971501332, .599945441030380], [-10.4938261633768, .599809236753667], [-10.4906036491894, .599557564210079], [-10.4873696966597, .5991991705... (109)
 

Music Notes 

`assign`(m1, plot(`+`(sin(`+`(`*`(.6, `*`(x)))), 7), x = -8 .. -1, color = black)) 

PLOT(CURVES([[-8., 7.99616460883584], [-7.96319676482412, 7.99785373811455], [-7.93117446668342, 7.99892761970552], [-7.89516204331658, 7.99969476682870], [-7.85891090623116, 7.99999562641269], [-7.82... (110)
 

`assign`(m2, plot(`+`(sin(`+`(`*`(.6, `*`(x)))), 6), x = -8 .. -1, color = black)) 

PLOT(CURVES([[-8., 6.99616460883584], [-7.96319676482412, 6.99785373811455], [-7.93117446668342, 6.99892761970552], [-7.89516204331658, 6.99969476682870], [-7.85891090623116, 6.99999562641269], [-7.82... (111)
 

`assign`(m3, plot(`+`(sin(`+`(`*`(.6, `*`(x)))), 5), x = -8 .. -1, color = black)) 

PLOT(CURVES([[-8., 5.99616460883584], [-7.96319676482412, 5.99785373811455], [-7.93117446668342, 5.99892761970552], [-7.89516204331658, 5.99969476682870], [-7.85891090623116, 5.99999562641269], [-7.82... (112)
 

`assign`(m4, plot(`+`(sin(`+`(`*`(.6, `*`(x)))), 4), x = -8 .. -1, color = black)) 

PLOT(CURVES([[-8., 4.99616460883584], [-7.96319676482412, 4.99785373811455], [-7.93117446668342, 4.99892761970552], [-7.89516204331658, 4.99969476682870], [-7.85891090623116, 4.99999562641269], [-7.82... (113)
 

`assign`(m5, plot(`+`(sin(`+`(`*`(.6, `*`(x)))), 8), x = -8 .. -1, color = black)) 

PLOT(CURVES([[-8., 8.99616460883584], [-7.96319676482412, 8.99785373811455], [-7.93117446668342, 8.99892761970552], [-7.89516204331658, 8.99969476682870], [-7.85891090623116, 8.99999562641269], [-7.82... (114)
 

`assign`(m6, plot([`+`(`*`(.15, `*`(sin(t))), `-`(8)), `+`(`*`(.25, `*`(cos(t))), 8), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black, thickness = 12)) 

PLOT(CURVES([[-8., 8.25000000000000], [-7.99504572519973, 8.24986360257595], [-7.99073924506515, 8.24952309188417], [-7.98590547378409, 8.24889391052520], [-7.98105454498961, 8.24799792637154], [-7.97... (115)
 

`assign`(m7, plot([-7.7, t, t = 8 .. 11], color = black, thickness = 3)) 

PLOT(CURVES([[-7.70000000000000, 8.], [-7.70000000000000, 8.01577281507538], [-7.70000000000000, 8.02949665713568], [-7.70000000000000, 8.04493055286432], [-7.70000000000000, 8.06046675447236], [-7.70... (116)
 

`assign`(m8, plot(`+`(sin(`+`(`*`(.6, `*`(x)))), 10), x = -7.7 .. -5.7, color = black, thickness = 3)) 

PLOT(CURVES([[-7.70000000000000, 10.9957351730622], [-7.68948478994975, 10.9951332944965], [-7.68033556190955, 10.9945773754068], [-7.67004629809045, 10.9939163810283], [-7.65968883035176, 10.99321274... (117)
 

`assign`(m9, plot([`+`(`*`(.15, `*`(sin(t))), `-`(6)), `+`(`*`(.25, `*`(cos(t))), 7), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black, thickness = 12)) 

PLOT(CURVES([[-6., 7.25000000000000], [-5.99504572519973, 7.24986360257595], [-5.99073924506515, 7.24952309188417], [-5.98590547378409, 7.24889391052520], [-5.98105454498961, 7.24799792637154], [-5.97... (118)
 

`assign`(m10, plot([-5.7, t, t = 7 .. 10.4], color = black, thickness = 3)) 

PLOT(CURVES([[-5.70000000000000, 7.], [-5.70000000000000, 7.01787585708543], [-5.70000000000000, 7.03342954475377], [-5.70000000000000, 7.05092129324623], [-5.70000000000000, 7.06852898840201], [-5.70... (119)
 

`assign`(m11, plot([`+`(`*`(.35, `*`(sin(t))), `-`(4.5)), `+`(`*`(.55, `*`(cos(t))), 4), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black, thickness = 3)) 

PLOT(CURVES([[-4.50000000000000, 4.55000000000000], [-4.48844002546605, 4.54969992566709], [-4.47839157181869, 4.54895080214517], [-4.46711277216288, 4.54756660315544], [-4.45579393830910, 4.545595438... (120)
 

`assign`(m12, plot([-4.2, t, t = 4 .. 7], color = black, thickness = 3)) 

PLOT(CURVES([[-4.20000000000000, 4.], [-4.20000000000000, 4.01577281507538], [-4.20000000000000, 4.02949665713568], [-4.20000000000000, 4.04493055286432], [-4.20000000000000, 4.06046675447236], [-4.20... (121)
 

`assign`(m13, plot([`+`(`*`(.15, `*`(sin(t))), `-`(3.5)), `+`(`*`(.25, `*`(cos(t))), 5.2), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black, thickness = 15)) 

PLOT(CURVES([[-3.50000000000000, 5.45000000000000], [-3.49504572519973, 5.44986360257595], [-3.49073924506515, 5.44952309188417], [-3.48590547378409, 5.44889391052520], [-3.48105454498961, 5.447997926... (122)
 

`assign`(m14, plot([-3.2, t, t = 5.2 .. 8], color = black, thickness = 3)) 

PLOT(CURVES([[-3.20000000000000, 5.20000000000000], [-3.20000000000000, 5.21472129407035], [-3.20000000000000, 5.22753021332663], [-3.20000000000000, 5.24193518267337], [-3.20000000000000, 5.256435637... (123)
 

`assign`(m15, plot(`+`(sin(`+`(`*`(.6, `*`(x)))), 8.9), x = -3.2 .. -2.0, color = black, thickness = 3)) 

PLOT(CURVES([[-3.20000000000000, 7.96035452631468], [-3.19369087396985, 7.95906606271570], [-3.18820133714573, 7.95795594660486], [-3.18202777885427, 7.95671971488237], [-3.17581329821106, 7.955488359... (124)
 

`assign`(m16, plot([`+`(`*`(.15, `*`(sin(t))), `-`(2.2)), `+`(`*`(.25, `*`(cos(t))), 5.2), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black, thickness = 15)) 

PLOT(CURVES([[-2.20000000000000, 5.45000000000000], [-2.19504572519973, 5.44986360257595], [-2.19073924506515, 5.44952309188417], [-2.18590547378409, 5.44889391052520], [-2.18105454498961, 5.447997926... (125)
 

`assign`(m17, plot(`+`(sin(`+`(`*`(.6, `*`(x)))), 8.5), x = -3.2 .. -2.0, color = black, thickness = 3)) 

PLOT(CURVES([[-3.20000000000000, 7.56035452631467], [-3.19369087396985, 7.55906606271570], [-3.18820133714573, 7.55795594660486], [-3.18202777885427, 7.55671971488237], [-3.17581329821106, 7.555488359... (126)
 

`assign`(m18, plot([-2.0, t, t = 5.2 .. 8], color = black, thickness = 3)) 

PLOT(CURVES([[-2., 5.20000000000000], [-2., 5.21472129407035], [-2., 5.22753021332663], [-2., 5.24193518267337], [-2., 5.25643563750754], [-2., 5.27086717421106], [-2., 5.28424705610050], [-2., 5.2981... (127)
 

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...
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