Yang_Li_project_.mw

Yang Li 

 

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)
 

`assign`(p1, plot([`+`(`*`(1.3, `*`(sin(`+`(`*`(8, `*`(theta)))), `*`(cos(theta)))), 15), `+`(`*`(1.3, `*`(sin(`+`(`*`(8, `*`(theta)))), `*`(sin(theta))))), theta = 0 .. `+`(`*`(2, `*`(Pi)))], color =... 

PLOT(CURVES([[15., 0.], [15.1712566158000, 0.282894617539765e-2], [15.3393884132244, 0.112156088749035e-1], [15.4807486803345, 0.228074985506617e-1], [15.6154737411377, 0.380709686524402e-1], [15.7567... (2)
 

`assign`(p2, plot([`+`(`*`(.8, `*`(sin(x), `*`(`+`(exp(cos(x)), `-`(`*`(2, `*`(cos(`+`(`*`(4, `*`(x))))))), `-`(`*`(`^`(sin(`+`(`*`(`/`(1, 12), `*`(x)))), 5))))))), `-`(8)), `+`(`*`(.8, `*`(cos(x), `*...
`assign`(p2, plot([`+`(`*`(.8, `*`(sin(x), `*`(`+`(exp(cos(x)), `-`(`*`(2, `*`(cos(`+`(`*`(4, `*`(x))))))), `-`(`*`(`^`(sin(`+`(`*`(`/`(1, 12), `*`(x)))), 5))))))), `-`(8)), `+`(`*`(.8, `*`(cos(x), `*...
 

PLOT(CURVES([[-8., 10.5746254627672], [-7.94607160964394, 10.6515093941121], [-7.85499264867264, 10.8699161332594], [-7.69770099635690, 11.1950657606805], [-7.45985164008191, 11.5751877434775], [-7.19... (3)
 

`assign`(p3, plot(`+`(`-`(`*`(`^`(x, 2)))), x = 0 .. 3, color = green, thickness = 2)) 

PLOT(CURVES([[0., -0.], [0.157728150753769e-1, -0.248781695402036e-3], [0.294966571356784e-1, -0.870052782179767e-3], [0.449305528643216e-1, -0.201875458069360e-2], [0.604667544723618e-1, -0.365622839... (4)
 

`assign`(p4, plot([`+`(t, 8), `+`(t, 45), t = 0 .. 15], color = red, thickness = 2)) 

PLOT(CURVES([[8., 45.], [8.07886407537688, 45.0788640753769], [8.14748328567839, 45.1474832856784], [8.22465276432161, 45.2246527643216], [8.30233377236181, 45.3023337723618], [8.37964557613065, 45.37... (5)
 

`assign`(p5, plot([`+`(t, 75), `+`(t, 45), t = 0 .. 15], color = red, thickness = 2)) 

PLOT(CURVES([[75., 45.], [75.0788640753769, 45.0788640753769], [75.1474832856784, 45.1474832856784], [75.2246527643216, 45.2246527643216], [75.3023337723618, 45.3023337723618], [75.3796455761307, 45.3... (6)
 

`assign`(p6, plot([t, 45, t = 8 .. 75], color = red, thickness = 2)) 

PLOT(CURVES([[8., 45.], [8.35225953668342, 45.], [8.65875867603015, 45.], [9.00344901396985, 45.], [9.35042418321608, 45.], [9.69575024005025, 45.], [10.0159116995477, 45.], [10.3474203463819, 45.], [... (7)
 

`assign`(p7, plot([t, 60, t = 21 .. 90], color = red, thickness = 2)) 

PLOT(CURVES([[21., 60.], [21.3627747467337, 60.], [21.6784231141206, 60.], [22.0334027158794, 60.], [22.3907353528643, 60.], [22.7463696502010, 60.], [23.0760881681910, 60.], [23.4174925955276, 60.], ... (8)
 

`assign`(p8, plot([13, t, t = 0 .. 45], color = red, thickness = 2)) 

PLOT(CURVES([[13., 0.], [13., .236592226130653], [13., .442449857035176], [13., .673958292964824], [13., .907001317085427], [13., 1.13893672839196], [13., 1.35397054447236], [13., 1.57662560577889], [... (9)
 

`assign`(p9, plot([71, t, t = 0 .. 45], color = red, thickness = 2)) 

PLOT(CURVES([[71., 0.], [71., .236592226130653], [71., .442449857035176], [71., .673958292964824], [71., .907001317085427], [71., 1.13893672839196], [71., 1.35397054447236], [71., 1.57662560577889], [... (10)
 

`assign`(p10, plot([88, t, t = 7 .. 57], color = red, thickness = 2)) 

PLOT(CURVES([[88., 7.], [88., 7.26288025125628], [88., 7.49161095226131], [88., 7.74884254773869], [88., 8.00777924120603], [88., 8.26548525376884], [88., 8.50441171608040], [88., 8.75180622864322], [... (11)
 

`assign`(p11, plot([`+`(t, 71), `*`(`*`(1.4, `/`(1, 3)), `*`(t)), t = 0 .. 28], color = red, thickness = 2)) 

PLOT(CURVES([[71., 0.], [71.1472129407035, 0.686993723332153e-1], [71.2753021332663, .128474328866798], [71.4193518267337, .195697519156357], [71.5643563750754, .263366308387321], [71.7086717421106, .... (12)
 

`assign`(p12, plot([t, .2, t = 12 .. 72], color = red, thickness = 2)) 

PLOT(CURVES([[12., .200000000000000], [12.3154563015075, .200000000000000], [12.5899331427136, .200000000000000], [12.8986110572864, .200000000000000], [13.2093350894472, .200000000000000], [13.518582... (13)
 

`assign`(p13, plot([30, t, t = 0 .. 18], color = red, thickness = 2)) 

PLOT(CURVES([[30., 0.], [30., 0.946368904522613e-1], [30., .176979942814070], [30., .269583317185930], [30., .362800526834171], [30., .455574691356784], [30., .541588217788945], [30., .630650242311558... (14)
 

`assign`(p14, plot([50, t, t = 0 .. 18], color = red, thickness = 2)) 

PLOT(CURVES([[50., 0.], [50., 0.946368904522613e-1], [50., .176979942814070], [50., .269583317185930], [50., .362800526834171], [50., .455574691356784], [50., .541588217788945], [50., .630650242311558... (15)
 

`assign`(p15, plot([t, 18, t = 30 .. 50], color = red, thickness = 2)) 

PLOT(CURVES([[30., 18.], [30.1051521005025, 18.], [30.1966443809045, 18.], [30.2995370190955, 18.], [30.4031116964824, 18.], [30.5061941015075, 18.], [30.6017646864322, 18.], [30.7007224914573, 18.], ... (16)
 

`assign`(p16, plot([t, `+`(55, sin(`+`(`*`(.5, `*`(t))))), t = 17 .. 84], color = gold, thickness = 2)) 

PLOT(CURVES([[17., 55.7984871126235], [17.3522595366834, 55.6806490349634], [17.6587586760301, 55.5608388287931], [18.0034490139698, 55.4105466227153], [18.3504241832161, 55.2469833011914], [18.695750... (17)
 

`assign`(p17, plot([t, `+`(50, sin(`+`(`*`(.5, `*`(t))))), t = 13 .. 80], color = gold, thickness = 2)) 

PLOT(CURVES([[13., 50.2151199880878], [13.3522595366834, 50.3829101219059], [13.6587586760302, 50.5194387690586], [14.0034490139698, 50.6582857308640], [14.3504241832161, 50.7783458330995], [14.695750... (18)
 

`assign`(p18, plot([`+`(`*`(2, `*`(sin(`+`(`*`(2, `*`(t)))))), 35), `+`(`*`(2, `*`(cos(`+`(`*`(2, `*`(t)))))), 12), t = 10 .. 22], color = brown, thickness = 2)) 

PLOT(CURVES([[36.8258905014553, 12.8161641236268], [36.9140864114834, 12.5798906874357], [36.9661005869889, 12.3666721721671], [36.9962913835228, 12.1217403469378], [36.9959840936990, 11.8733212815791... (19)
 

`assign`(p19, plot([`+`(t, 27), `+`(`-`(`*`(`/`(1, 10), `*`(`^`(t, 2)))), 35), t = -7 .. 7], color = red, thickness = 2)) 

PLOT(CURVES([[20., 30.1000000000000], [20.0736064703518, 30.2025072672447], [20.1376510666332, 30.2908167116719], [20.2096759133668, 30.3891498798489], [20.2821781875377, 30.4870870096006], [20.354335... (20)
 

`assign`(p20, plot([`+`(t, 53), `+`(`-`(`*`(`/`(1, 10), `*`(`^`(t, 2)))), 35), t = -7 .. 7], color = red, thickness = 2)) 

PLOT(CURVES([[46., 30.1000000000000], [46.0736064703518, 30.2025072672447], [46.1376510666332, 30.2908167116719], [46.2096759133668, 30.3891498798489], [46.2821781875377, 30.4870870096006], [46.354335... (21)
 

`assign`(p21, plot([t, 30, t = 20 .. 34], color = red, thickness = 2)) 

PLOT(CURVES([[20., 30.], [20.0736064703518, 30.], [20.1376510666332, 30.], [20.2096759133668, 30.], [20.2821781875377, 30.], [20.3543358710553, 30.], [20.4212352805025, 30.], [20.4905057440201, 30.], ... (22)
 

`assign`(p22, plot([t, 30, t = 45 .. 60], color = red, thickness = 2)) 

PLOT(CURVES([[45., 30.], [45.0788640753769, 30.], [45.1474832856784, 30.], [45.2246527643216, 30.], [45.3023337723618, 30.], [45.3796455761307, 30.], [45.4513235148241, 30.], [45.5255418685930, 30.], ... (23)
 

`assign`(p23, plot([`+`(`*`(10, `*`(sin(t))), 80), `+`(`*`(10, `*`(cos(t))), 110), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = red, thickness = 4)) 

PLOT(CURVES([[80., 120.], [80.3302849866844, 119.994544103038], [80.6173836623231, 119.980923675367], [80.9396350810606, 119.955756421008], [81.2630303340258, 119.919917054861], [81.5835614436360, 119... (24)
 

`assign`(p24, plot([`+`(sin(t), `-`(55)), `+`(`*`(4, `*`(t))), t = 0 .. 15], color = brown, thickness = 4)) 

PLOT(CURVES([[-55., 0.], [-54.9212176489478, .315456301507538], [-54.8530507924913, .589933142713568], [-54.7772321346048, .898611057286432], [-54.7022510622420, 1.20933508944724], [-54.6294086947904,... (25)
 

`assign`(p25, plot([`+`(sin(t), `-`(38)), `+`(`*`(4, `*`(t))), t = 0 .. 15], color = brown, thickness = 4)) 

PLOT(CURVES([[-38., 0.], [-37.9212176489478, .315456301507538], [-37.8530507924913, .589933142713568], [-37.7772321346048, .898611057286432], [-37.7022510622420, 1.20933508944724], [-37.6294086947904,... (26)
 

`assign`(p26, plot([`+`(t, 1), `+`(`*`(5, `*`(sin(t)))), t = -70 .. 10], color = green, thickness = 1)) 

PLOT(CURVES([[-69., -3.86945340778945], [-68.7896957989950, -3.12314912745781], [-68.5793915979900, -2.23922300449752], [-68.3964070371859, -1.38835372865831], [-68.2134224763819, -.491127285978678], ... (27)
 

`assign`(p27, plot([t, `+`(`*`(6, `*`(sin(t)))), t = -70 .. 10], color = green, thickness = 1)) 

PLOT(CURVES([[-70., -4.64334408934733], [-69.7896957989950, -3.74777895294937], [-69.5793915979900, -2.68706760539702], [-69.3964070371859, -1.66602447438997], [-69.2134224763819, -.589352743174413], ... (28)
 

`assign`(p28, plot([`+`(t, `-`(5)), `+`(`*`(7, `*`(sin(t)))), t = -70 .. 10], color = green, thickness = 1)) 

PLOT(CURVES([[-75., -5.41723477090522], [-74.7896957989950, -4.37240877844093], [-74.5793915979900, -3.13491220629652], [-74.3964070371859, -1.94369522012163], [-74.2134224763819, -.687578200370149], ... (29)
 

`assign`(p29, plot([`+`(t, 3), `+`(`*`(7, `*`(cos(`+`(`*`(2, `*`(t))))))), t = -70 .. 10], color = green, thickness = 1)) 

PLOT(CURVES([[-67., -1.38469501802988], [-66.9474239497488, -.656855894713193], [-66.8948478994975, 0.782393711354686e-1], [-66.8422718492462, .812470343867290], [-66.7896957989950, 1.53772613548934],... (30)
 

`assign`(p30, plot([`+`(`*`(4, `*`(sin(`+`(`*`(8, `*`(theta)))), `*`(cos(theta)))), `-`(25)), `+`(`*`(4, `*`(sin(`+`(`*`(8, `*`(theta)))), `*`(sin(theta)))), 10), theta = 0 .. `+`(`*`(2, `*`(Pi)))], c... 

PLOT(CURVES([[-25., 10.], [-24.4730565667693, 10.0087044497705], [-23.9557279593097, 10.0345095657689], [-23.5207732912784, 10.0701769186174], [-23.1062346426533, 10.1171414420075], [-22.6715049102121... (31)
 

`assign`(p31, plot([`+`(`*`(`*`(5, `+`(sin(`+`(`*`(4, `*`(t)))), `-`(.3))), `*`(cos(t))), 15), `+`(`*`(`*`(5, `+`(sin(`+`(`*`(4, `*`(t)))), `-`(.3))), `*`(sin(t))), 15), t = 0 .. `+`(`*`(30, `*`(Pi)))... 

PLOT(CURVES([[13.5000000000000, 15.], [14.1182370252632, 14.9726831989237], [14.7266841964370, 14.9830492182105], [15.3143497629221, 15.0292904236550], [15.8707112940818, 15.1084183607295], [16.851094... (32)
 

`assign`(p32, plot([`+`(`*`(`*`(4, `+`(sin(`+`(`*`(4, `*`(t)))), `-`(.3))), `*`(cos(t))), `-`(60)), `+`(`*`(`*`(4, `+`(sin(`+`(`*`(4, `*`(t)))), `-`(.3))), `*`(sin(t))), 25), t = 0 .. `+`(`*`(30, `*`(... 

PLOT(CURVES([[-61.2000000000000, 25.], [-60.7054103797894, 24.9781465591390], [-60.2186526428504, 24.9864393745684], [-59.7485201896623, 25.0234323389240], [-59.3034309647345, 25.0867346885836], [-58.... (33)
 

`assign`(p33, plot([`+`(`*`(20, `*`(sin(`+`(`*`(8, `*`(theta)))), `*`(cos(theta)))), 80), `+`(`*`(20, `*`(sin(`+`(`*`(8, `*`(theta)))), `*`(sin(theta)))), 110), theta = 0 .. `+`(`*`(2, `*`(Pi)))], col...
`assign`(p33, plot([`+`(`*`(20, `*`(sin(`+`(`*`(8, `*`(theta)))), `*`(cos(theta)))), 80), `+`(`*`(20, `*`(sin(`+`(`*`(8, `*`(theta)))), `*`(sin(theta)))), 110), theta = 0 .. `+`(`*`(2, `*`(Pi)))], col...
 

PLOT(CURVES([[80., 110.], [82.6347171661534, 110.043522248852], [85.2213602034516, 110.172547828845], [87.3961335436080, 110.350884593087], [89.4688267867337, 110.585707210038], [91.6424754489394, 110... (34)
 

`assign`(p34, plot([`+`(theta, 15), `+`(`*`(13, `+`(4, `-`(cos(`+`(`*`(8, `*`(theta))))))), 8), theta = 0 .. `+`(`*`(2, `*`(Pi)))], color = grey, thickness = 2)) 

PLOT(CURVES([[15., 47.], [15.0330345066491, 47.4513358675649], [15.0617776542500, 48.5556010410514], [15.0779399920646, 49.4462332432962], [15.0941023298791, 50.5130592734837], [15.1103718021601, 51.7... (35)
 

`assign`(p35, plot([`+`(sin(`+`(`*`(.7, `*`(t)))), 15), `+`(t, 75), t = 0 .. `+`(`*`(7, `*`(Pi)))], color = grey)) 

PLOT(CURVES([[15., 75.], [15.0808462112963, 75.1156207732825], [15.1507780297229, 75.2162217898947], [15.2285136950296, 75.3293581546070], [15.3053168241997, 75.4432444605840], [15.3798301132620, 75.5... (36)
 

`assign`(p36, plot([`+`(sin(`+`(`*`(.7, `*`(t)))), 16), `+`(t, 75), t = 0 .. `+`(`*`(7, `*`(Pi)))], color = grey)) 

PLOT(CURVES([[16., 75.], [16.0808462112963, 75.1156207732825], [16.1507780297229, 75.2162217898947], [16.2285136950296, 75.3293581546070], [16.3053168241997, 75.4432444605840], [16.3798301132620, 75.5... (37)
 

`assign`(p37, plot([`+`(sin(`+`(`*`(.7, `*`(t)))), 17), `+`(t, 75), t = 0 .. `+`(`*`(7, `*`(Pi)))], color = grey)) 

PLOT(CURVES([[17., 75.], [17.0808462112963, 75.1156207732825], [17.1507780297229, 75.2162217898947], [17.2285136950296, 75.3293581546070], [17.3053168241997, 75.4432444605840], [17.3798301132620, 75.5... (38)
 

`assign`(p38, plot([`+`(sin(`+`(`*`(.7, `*`(t)))), 18), `+`(t, 75), t = 0 .. `+`(`*`(7, `*`(Pi)))], color = grey)) 

PLOT(CURVES([[18., 75.], [18.0808462112963, 75.1156207732825], [18.1507780297229, 75.2162217898947], [18.2285136950296, 75.3293581546070], [18.3053168241997, 75.4432444605840], [18.3798301132620, 75.5... (39)
 

`assign`(p39, plot([`+`(sin(`+`(`*`(.7, `*`(t)))), 19), `+`(t, 75), t = 0 .. `+`(`*`(7, `*`(Pi)))], color = grey)) 

PLOT(CURVES([[19., 75.], [19.0808462112963, 75.1156207732825], [19.1507780297229, 75.2162217898947], [19.2285136950296, 75.3293581546070], [19.3053168241997, 75.4432444605840], [19.3798301132620, 75.5... (40)
 

`assign`(p40, plot([`+`(sin(`+`(`*`(.7, `*`(t)))), 20), `+`(t, 75), t = 0 .. `+`(`*`(7, `*`(Pi)))], color = grey)) 

PLOT(CURVES([[20., 75.], [20.0808462112963, 75.1156207732825], [20.1507780297229, 75.2162217898947], [20.2285136950296, 75.3293581546070], [20.3053168241997, 75.4432444605840], [20.3798301132620, 75.5... (41)
 

`assign`(p41, plot([`+`(`*`(30, `*`(sin(`+`(`*`(4, `*`(theta)))), `*`(cos(theta)))), `-`(48)), `+`(`*`(30, `*`(sin(`+`(`*`(4, `*`(theta)))), `*`(sin(theta)))), 70), theta = 0 .. `+`(`*`(2, `*`(Pi)))],... 

PLOT(CURVES([[-48., 70.], [-44.0495415934742, 70.1305489363742], [-40.6758972597350, 70.4530423756446], [-37.0212832112946, 71.0361831892480], [-33.5612656836907, 71.8383782168321], [-30.4029393712196... (42)
 

`assign`(p42, plot([`+`(`*`(8, `*`(sin(t))), 80), `+`(`*`(8, `*`(cos(t))), 110), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = red, thickness = 4)) 

PLOT(CURVES([[80., 118.], [80.2642279893475, 117.995635282430], [80.4939069298585, 117.984738940293], [80.7517080648484, 117.964605136806], [81.0104242672207, 117.935933643889], [81.2668491549088, 117... (43)
 

`assign`(p43, plot([`+`(`*`(6, `*`(sin(t))), 80), `+`(`*`(6, `*`(cos(t))), 110), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = red, thickness = 4)) 

PLOT(CURVES([[80., 116.], [80.1981709920106, 115.996726461823], [80.3704301973939, 115.988554205220], [80.5637810486363, 115.973453852605], [80.7578182004155, 115.951950232917], [80.9501368661816, 115... (44)
 

`assign`(p44, plot([`+`(`*`(4, `*`(sin(t))), 80), `+`(`*`(4, `*`(cos(t))), 110), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = yellow, thickness = 4)) 

PLOT(CURVES([[80., 114.], [80.1321139946738, 113.997817641215], [80.2469534649292, 113.992369470147], [80.3758540324242, 113.982302568403], [80.5052121336103, 113.967966821945], [80.6334245774544, 113... (45)
 

`assign`(p45, plot([`+`(`*`(30, `*`(sin(`+`(`*`(6, `*`(theta)))), `*`(cos(theta)))), `-`(48)), `+`(`*`(30, `*`(sin(`+`(`*`(6, `*`(theta)))), `*`(sin(theta)))), 70), theta = 0 .. `+`(`*`(2, `*`(Pi)))],... 

PLOT(CURVES([[-48., 70.], [-45.0321636301860, 70.0490249635518], [-42.0958692274332, 70.1951110259254], [-39.5909592059086, 70.3989385588958], [-37.1536440379647, 70.6709161581135], [-32.0183304338160... (46)
 

`assign`(p46, plot([`+`(`*`(30, `*`(sin(`+`(`*`(5, `*`(theta)))), `*`(cos(theta)))), `-`(48)), `+`(`*`(30, `*`(sin(`+`(`*`(5, `*`(theta)))), `*`(sin(theta)))), 70), theta = 0 .. `+`(`*`(2, `*`(Pi)))],... 

PLOT(CURVES([[-48., 70.], [-43.0700156617963, 70.1629188680055], [-38.8974062455033, 70.5630533657582], [-34.4599005767159, 71.2779292583253], [-30.3901861988113, 72.2421285263215], [-26.8516649299557... (47)
 

`assign`(p47, plot([`+`(`*`(1.2, `*`(sin(x), `*`(`+`(exp(cos(x)), `-`(`*`(2, `*`(cos(`+`(`*`(4, `*`(x))))))), `-`(`*`(`^`(sin(`+`(`*`(`/`(1, 12), `*`(x)))), 5))))))), `-`(8)), `+`(`*`(1.2, `*`(cos(x),...
`assign`(p47, plot([`+`(`*`(1.2, `*`(sin(x), `*`(`+`(exp(cos(x)), `-`(`*`(2, `*`(cos(`+`(`*`(4, `*`(x))))))), `-`(`*`(`^`(sin(`+`(`*`(`/`(1, 12), `*`(x)))), 5))))))), `-`(8)), `+`(`*`(1.2, `*`(cos(x),...
 

PLOT(CURVES([[-8., 10.8619381941509], [-7.91910741446590, 10.9772640911681], [-7.78248897300897, 11.3048741998891], [-7.54655149453535, 11.7925986410208], [-7.18977746012286, 12.3627816152163], [-6.78... (48)
 

`assign`(p48, plot([`+`(`*`(`*`(5, `+`(sin(`+`(`*`(4, `*`(t)))), `-`(.3))), `*`(cos(t))), `-`(40)), `+`(`*`(`*`(5, `+`(sin(`+`(`*`(4, `*`(t)))), `-`(.3))), `*`(sin(t))), 65), t = 0 .. `+`(`*`(30, `*`(... 

PLOT(CURVES([[-41.5000000000000, 65.], [-40.8817629747368, 64.9726831989237], [-40.2733158035630, 64.9830492182105], [-39.6856502370779, 65.0292904236550], [-39.1292887059182, 65.1084183607295], [-38.... (49)
 

`assign`(p49, plot([`+`(`*`(4, `*`(sin(`+`(`*`(4, `*`(theta)))), `*`(cos(theta)))), `-`(25)), `+`(`*`(4, `*`(sin(`+`(`*`(4, `*`(theta)))), `*`(sin(theta)))), 10), theta = 0 .. `+`(`*`(2, `*`(Pi)))], c... 

PLOT(CURVES([[-25., 10.], [-24.4732722124632, 10.0174065248499], [-24.0234529679647, 10.0604056500859], [-23.5361710948393, 10.1381577585664], [-23.0748354244921, 10.2451170955776], [-22.6537252494960... (50)
 

`assign`(p50, plot([`+`(`*`(6, `*`(sin(`+`(`*`(4, `*`(theta)))), `*`(cos(theta)))), `-`(60)), `+`(`*`(6, `*`(sin(`+`(`*`(4, `*`(theta)))), `*`(sin(theta)))), 78), theta = 0 .. `+`(`*`(2, `*`(Pi)))], c... 

PLOT(CURVES([[-60., 78.], [-59.2099083186948, 78.0261097872748], [-58.5351794519470, 78.0906084751289], [-57.8042566422589, 78.2072366378496], [-57.1122531367381, 78.3676756433664], [-56.4805878742439... (51)
 

`assign`(p51, plot([`+`(`*`(4, `*`(sin(`+`(`*`(8, `*`(theta)))), `*`(cos(theta)))), `-`(50)), `+`(`*`(4, `*`(sin(`+`(`*`(8, `*`(theta)))), `*`(sin(theta)))), 7), theta = 0 .. `+`(`*`(2, `*`(Pi)))], co... 

PLOT(CURVES([[-50., 7.], [-49.4730565667693, 7.00870444977045], [-48.9557279593097, 7.03450956576893], [-48.5207732912784, 7.07017691861742], [-48.1062346426533, 7.11714144200751], [-47.6715049102121,... (52)
 

`assign`(p52, plot([`+`(`*`(4, `*`(sin(`+`(`*`(4, `*`(theta)))), `*`(cos(theta)))), `-`(50)), `+`(`*`(4, `*`(sin(`+`(`*`(4, `*`(theta)))), `*`(sin(theta)))), 7), theta = 0 .. `+`(`*`(2, `*`(Pi)))], co... 

PLOT(CURVES([[-50., 7.], [-49.4732722124632, 7.01740652484989], [-49.0234529679647, 7.06040565008594], [-48.5361710948393, 7.13815775856640], [-48.0748354244921, 7.24511709557761], [-47.6537252494959,... (53)
 

`assign`(p53, plot([`+`(`*`(45, `*`(sin(t))), 22), `+`(`*`(45, `*`(cos(t))), 90), t = `*`(`*`(3.2, `/`(1, 2)), `*`(Pi)) .. `*`(`*`(4.8, `/`(1, 2)), `*`(Pi))], color = red, thickness = 6)) 

PLOT(CURVES([[-20.7975432297174, 103.905764757843], [-20.6100642762949, 104.470052604259], [-20.4408857818077, 104.958984392517], [-20.2439258267223, 105.506473833415], [-20.0385276867958, 106.0549739... (54)
 

`assign`(p54, plot([`+`(`*`(44, `*`(sin(t))), 22), `+`(`*`(44, `*`(cos(t))), 88), t = `*`(`*`(3.2, `/`(1, 2)), `*`(Pi)) .. `*`(`*`(4.8, `/`(1, 2)), `*`(Pi))], color = orange, thickness = 6)) 

PLOT(CURVES([[-19.8464867135015, 101.596747763224], [-19.6631739590439, 102.148495879720], [-19.4977549866564, 102.626562517127], [-19.3051719194618, 103.161885526006], [-19.1043381826448, 103.6981967... (55)
 

`assign`(p55, plot([`+`(`*`(43, `*`(sin(t))), 22), `+`(`*`(43, `*`(cos(t))), 86), t = `*`(`*`(3.2, `/`(1, 2)), `*`(Pi)) .. `*`(`*`(4.8, `/`(1, 2)), `*`(Pi))], color = yellow, thickness = 6)) 

PLOT(CURVES([[-18.8954301972855, 99.2877307686055], [-18.7162836417929, 99.8269391551807], [-18.5546241915051, 100.294140641738], [-18.3664180122013, 100.817297218597], [-18.1701486784938, 101.3414195... (56)
 

`assign`(p56, plot([`+`(`*`(42, `*`(sin(t))), 22), `+`(`*`(42, `*`(cos(t))), 84), t = `*`(`*`(3.2, `/`(1, 2)), `*`(Pi)) .. `*`(`*`(4.8, `/`(1, 2)), `*`(Pi))], color = green, thickness = 6)) 

PLOT(CURVES([[-17.9443736810696, 96.9787137739868], [-17.7693933245419, 97.5053824306416], [-17.6114933963538, 97.9617187663489], [-17.4276641049408, 98.4727089111874], [-17.2359591743427, 98.98464239... (57)
 

`assign`(p57, plot([`+`(`*`(41, `*`(sin(t))), 22), `+`(`*`(41, `*`(cos(t))), 82), t = `*`(`*`(3.2, `/`(1, 2)), `*`(Pi)) .. `*`(`*`(4.8, `/`(1, 2)), `*`(Pi))], color = turquoise, thickness = 6)) 

PLOT(CURVES([[-16.9933171648537, 94.6696967793680], [-16.8225030072909, 95.1838257061025], [-16.6683626012025, 95.6292968909596], [-16.4889101976803, 96.1281206037782], [-16.3017696701917, 96.62786519... (58)
 

`assign`(p58, plot([`+`(`*`(40, `*`(sin(t))), 22), `+`(`*`(40, `*`(cos(t))), 80), t = `*`(`*`(3.2, `/`(1, 2)), `*`(Pi)) .. `*`(`*`(4.8, `/`(1, 2)), `*`(Pi))], color = blue, thickness = 6)) 

PLOT(CURVES([[-16.0422606486377, 92.3606797847493], [-15.8756126900399, 92.8622689815634], [-15.7252318060513, 93.2968750155704], [-15.5501562904198, 93.7835322963690], [-15.3675801660407, 94.27108799... (59)
 

`assign`(p59, plot([`+`(`*`(39, `*`(sin(t))), 22), `+`(`*`(39, `*`(cos(t))), 78), t = `*`(`*`(3.2, `/`(1, 2)), `*`(Pi)) .. `*`(`*`(4.8, `/`(1, 2)), `*`(Pi))], color = violet, thickness = 6)) 

PLOT(CURVES([[-15.0912041324218, 90.0516627901306], [-14.9287223727889, 90.5407122570244], [-14.7821010109000, 90.9644531401811], [-14.6114023831593, 91.4389439889597], [-14.4333906618897, 91.91431079... (60)
 

`assign`(p60, plot([`+`(t, cos(t), 70), `+`(`+`(1, `-`(sin(t))), 82), t = `+`(`*`(`/`(1, 5), `*`(Pi))) .. `*`(`+`(`*`(50, `*`(Pi))), `/`(1, 10))], color = green, thickness = 2)) 

PLOT(CURVES([[71.4373355251267, 82.4122147476412], [71.4675245628066, 82.3499871495807], [71.4898960575318, 82.2991525173283], [71.5110131317717, 82.2459778656884], [71.5282803210622, 82.1970324393777... (61)
 

`assign`(p61, plot([`+`(t, cos(t), 92), `+`(`+`(1, `-`(sin(t))), 100), t = `+`(`*`(`/`(1, 5), `*`(Pi))) .. `*`(`+`(`*`(50, `*`(Pi))), `/`(1, 10))], color = blue, thickness = 2)) 

PLOT(CURVES([[93.4373355251267, 100.412214747641], [93.4675245628066, 100.349987149581], [93.4898960575318, 100.299152517328], [93.5110131317717, 100.245977865688], [93.5282803210622, 100.197032439378... (62)
 

`assign`(p62, plot([`+`(t, cos(t), 40), `+`(`+`(1, `-`(sin(t))), 90), t = `+`(`*`(`/`(1, 5), `*`(Pi))) .. `*`(`+`(`*`(50, `*`(Pi))), `/`(1, 10))], color = violet, thickness = 2)) 

PLOT(CURVES([[41.4373355251267, 90.4122147476412], [41.4675245628066, 90.3499871495807], [41.4898960575318, 90.2991525173283], [41.5110131317717, 90.2459778656884], [41.5282803210622, 90.1970324393777... (63)
 

`assign`(p63, plot([`+`(75, sin(`+`(`*`(.5, `*`(t))))), `+`(t, `-`(2)), t = 5 .. 46], color = gold, thickness = 2)) 

PLOT(CURVES([[75.5984721441040, 3.], [75.5088184660333, 3.21556180603015], [75.4259685645206, 3.40312098085427], [75.3283604068298, 3.61405088914573], [75.2264224486635, 3.82637897778894], [75.1224357... (64)
 

`assign`(p64, plot([`+`(83, sin(`+`(`*`(.5, `*`(t))))), `+`(t, `-`(2)), t = 7 .. 54], color = gold, thickness = 2)) 

PLOT(CURVES([[82.6492167723104, 5.], [82.5364822592670, 5.24710743618090], [82.4440840305806, 5.46211429512563], [82.3478907258899, 5.70391199487437], [82.2606775343631, 5.94731248673367], [82.1847357... (65)
 

 

`assign`(p65, plot([99, `+`(t, .4), t = 12 .. 52], color = red, thickness = 2)) 

PLOT(CURVES([[99., 12.4000000000000], [99., 12.6103042010050], [99., 12.7932887618090], [99., 12.9990740381910], [99., 13.2062233929648], [99., 13.4123882030151], [99., 13.6035293728643], [99., 13.801... (66)
 

 

`assign`(p66, plot([`+`(`*`(3, `*`(t))), `+`(`-`(`*`(2.1, `*`(t))), 122), t = 30 .. 33.3], color = red, thickness = 2)) 

PLOT(CURVES([[90., 59.], [90.0520502897487, 58.9635647971759], [90.0973389685477, 58.9318627220166], [90.1482708244523, 58.8962104228834], [90.1995402897588, 58.8603217971688], [90.2505660802462, 58.8... (67)
 

`assign`(p67, plot([`+`(t, 1), `+`(`*`(5, `*`(sin(t)))), t = 75 .. 122], color = green, thickness = 1)) 

PLOT(CURVES([[76., -1.93890817704715], [76.1235537180904, -1.35614645561313], [76.2471074361809, -.752708774167806], [76.3546108656533, -.217994979923586], [76.4621142951256, .319235754124125], [76.58... (68)
 

`assign`(p68, plot([t, `+`(`*`(6, `*`(sin(t)))), t = 75 .. 123], color = green, thickness = 1)) 

PLOT(CURVES([[75., -2.32668981245658], [75.1261825206030, -1.61218857376526], [75.2523650412060, -.872052063534992], [75.3621557776884, -.216360533324926], [75.4719465141709, .441936389316431], [75.59... (69)
 

`assign`(p69, plot([`+`(t, `-`(5)), `+`(`*`(7, `*`(sin(t)))), t = 75 .. 125], color = green, thickness = 1)) 

PLOT(CURVES([[70., -2.71447144786601], [70.1314401256281, -1.84541106083728], [70.2628802512563, -.944514292132077], [70.3772456017588, -.146835820302096], [70.4916109522613, .652761088485640], [70.62... (70)
 

`assign`(p70, plot([`+`(t, 3), `+`(`*`(7, `*`(cos(`+`(`*`(2, `*`(t))))))), t = 75 .. 124], color = green, thickness = 1)) 

PLOT(CURVES([[78., 4.89475564534863], [78.1288113231156, 6.00818637639179], [78.2576226462312, 6.72505779732004], [78.3136616679774, 6.90012810446455], [78.3697006897236, 6.98861322989179], [78.397720... (71)
 

`assign`(p71, plot([`+`(t, 1), `+`(`*`(5, `*`(sin(t))), 10), t = 95 .. 125], color = green, thickness = 1)) 

PLOT(CURVES([[96., 13.4163085736806], [96.1577281507538, 13.9473607858325], [96.2949665713568, 14.3301005498455], [96.4493055286432, 14.6629546497275], [96.6046675447236, 14.8860435215408], [96.681979... (72)
 

`assign`(p72, plot([t, `+`(`*`(6, `*`(sin(t))), 10), t = 90 .. 125], color = green, thickness = 1)) 

PLOT(CURVES([[90., 15.3639799816033], [90.1840161758794, 14.7814890739617], [90.3441276665829, 14.1424757743917], [90.5241897834171, 13.2981604085067], [90.7054454688442, 12.3406071300719], [90.885839... (73)
 

`assign`(p73, plot([`+`(t, `-`(5)), `+`(`*`(7, `*`(sin(t))), 10), t = 95 .. 123], color = green, thickness = 1)) 

PLOT(CURVES([[90., 14.7828320031528], [90.1472129407035, 15.4808217662020], [90.2753021332663, 15.9921463628079], [90.4193518267337, 16.4495400438072], [90.5643563750754, 16.7750190446925], [90.636514... (74)
 

`assign`(p74, plot([`+`(t, 3), `+`(`*`(7, `*`(cos(`+`(`*`(2, `*`(t)))))), 10), t = 95 .. 124], color = green, thickness = 1)) 

PLOT(CURVES([[98., 10.4641480084620], [98.0762352728643, 9.39793974526807], [98.1524705457286, 8.34570064420001], [98.2188024490201, 7.46054029349915], [98.2851343523116, 6.62000812403357], [98.359731... (75)
 

`assign`(p75, plot([`+`(`*`(4, `*`(sin(`+`(`*`(6, `*`(theta)))), `*`(cos(theta)))), 125), `+`(`*`(4, `*`(sin(`+`(`*`(6, `*`(theta)))), `*`(sin(theta)))), 10), theta = 0 .. `+`(`*`(2, `*`(Pi)))], color... 

PLOT(CURVES([[125., 10.], [125.395711515975, 10.0065366618069], [125.787217436342, 10.0260148034567], [126.121205439212, 10.0531918078528], [126.446180794938, 10.0894554877485], [127.130889275491, 10.... (76)
 

`assign`(p76, plot([`+`(`*`(`*`(5, `+`(sin(`+`(`*`(4, `*`(t)))), `-`(.3))), `*`(cos(t))), 110), `+`(`*`(`*`(5, `+`(sin(`+`(`*`(4, `*`(t)))), `-`(.3))), `*`(sin(t))), 5), t = 0 .. `+`(`*`(30, `*`(Pi)))... 

PLOT(CURVES([[108.500000000000, 5.], [109.118237025263, 4.97268319892374], [109.726684196437, 4.98304921821049], [110.314349762922, 5.02929042365496], [110.870711294082, 5.10841836072948], [111.851094... (77)
 

`assign`(p77, plot([`+`(sin(`+`(`*`(.8, `*`(t)))), `-`(50)), `+`(`*`(4, `*`(t)), 6), t = 0 .. 12], color = brown, thickness = 2)) 

PLOT(CURVES([[-50., 6.], [-49.9495484192340, 6.25236504120603], [-49.9057507924830, 6.47194651417085], [-49.8567170825420, 6.71888884582915], [-49.8077115204950, 6.96746807155779], [-49.7594104767538,... (78)
 

`assign`(p78, plot([`+`(sin(`+`(`*`(.8, `*`(t)))), `-`(43)), `+`(`*`(4, `*`(t)), 6), t = 0 .. 12], color = brown, thickness = 2)) 

PLOT(CURVES([[-43., 6.], [-42.9495484192340, 6.25236504120603], [-42.9057507924830, 6.47194651417085], [-42.8567170825420, 6.71888884582915], [-42.8077115204950, 6.96746807155779], [-42.7594104767538,... (79)
 

 

`assign`(p79, plot([t, -10, t = 30 .. 60], color = turquoise, thickness = 10)) 

PLOT(CURVES([[30., -10.], [30.1577281507538, -10.], [30.2949665713568, -10.], [30.4493055286432, -10.], [30.6046675447236, -10.], [30.7592911522613, -10.], [30.9026470296482, -10.], [31.0510837371859,... (80)
 

`assign`(p80, plot([t, -13, t = 20 .. 70], color = turquoise, thickness = 10)) 

PLOT(CURVES([[20., -13.], [20.2628802512563, -13.], [20.4916109522613, -13.], [20.7488425477387, -13.], [21.0077792412060, -13.], [21.2654852537688, -13.], [21.5044117160804, -13.], [21.7518062286432,... (81)
 

`assign`(p81, plot([t, -16, t = 10 .. 75], color = turquoise, thickness = 10)) 

PLOT(CURVES([[10., -16.], [10.3417443266332, -16.], [10.6390942379397, -16.], [10.9734953120603, -16.], [11.3101130135678, -16.], [11.6451308298995, -16.], [11.9557352309045, -16.], [12.2773480972362,... (82)
 

`assign`(p82, plot([t, -20, t = 14 .. 72], color = turquoise, thickness = 10)) 

PLOT(CURVES([[14., -20.], [14.3049410914573, -20.], [14.5702687046231, -20.], [14.8686573553769, -20.], [15.1690239197990, -20.], [15.4679628943719, -20.], [15.7451175906533, -20.], [16.0320952252261,... (83)
 

 

`assign`(p83, plot([t, -24, t = 17 .. 65], color = turquoise, thickness = 10)) 

PLOT(CURVES([[17., -24.], [17.2523650412060, -24.], [17.4719465141709, -24.], [17.7188888458291, -24.], [17.9674680715578, -24.], [18.2148658436181, -24.], [18.4442352474372, -24.], [18.6817339794975,... (84)
 

`assign`(p84, plot([t, -28, t = 22 .. 60], color = turquoise, thickness = 10)) 

PLOT(CURVES([[22., -28.], [22.1997889909548, -28.], [22.3736243237186, -28.], [22.5691203362814, -28.], [22.7659122233166, -28.], [22.9617687928643, -28.], [23.1433529042211, -28.], [23.3313727337688,... (85)
 

`assign`(p85, plot([t, -13, t = 27 .. 60], color = brown, thickness = 2)) 

PLOT(CURVES([[27., -13.], [27.1735009658291, -13.], [27.3244632284925, -13.], [27.4942360815075, -13.], [27.6651342991960, -13.], [27.8352202674874, -13.], [27.9929117326131, -13.], [28.1561921109045,... (86)
 

`assign`(p86, plot([t, -18, t = 25 .. 58], color = brown, thickness = 2)) 

PLOT(CURVES([[25., -18.], [25.1735009658291, -18.], [25.3244632284925, -18.], [25.4942360815075, -18.], [25.6651342991960, -18.], [25.8352202674874, -18.], [25.9929117326131, -18.], [26.1561921109045,... (87)
 

`assign`(p87, plot([t, -23, t = 23 .. 56], color = brown, thickness = 2)) 

PLOT(CURVES([[23., -23.], [23.1735009658291, -23.], [23.3244632284925, -23.], [23.4942360815075, -23.], [23.6651342991960, -23.], [23.8352202674874, -23.], [23.9929117326131, -23.], [24.1561921109045,... (88)
 

`assign`(p88, plot([t, -8, t = 29 .. 58], color = brown, thickness = 2)) 

PLOT(CURVES([[29., -8.], [29.1524705457286, -8.], [29.2851343523116, -8.], [29.4343286776884, -8.], [29.5845119598995, -8.], [29.7339814471859, -8.], [29.8725587953266, -8.], [30.0160476126131, -8.], ... (89)
 

`assign`(p89, plot([t, -2, t = 29 .. 53], color = brown, thickness = 2)) 

PLOT(CURVES([[29., -2.], [29.1261825206030, -2.], [29.2359732570854, -2.], [29.3594444229146, -2.], [29.4837340357789, -2.], [29.6074329218090, -2.], [29.7221176237186, -2.], [29.8408669897487, -2.], ... (90)
 

`assign`(p90, plot([`+`(t, 72), 75, t = 30 .. 60], color = turquoise, thickness = 5)) 

PLOT(CURVES([[102., 75.], [102.157728150754, 75.], [102.294966571357, 75.], [102.449305528643, 75.], [102.604667544724, 75.], [102.759291152261, 75.], [102.902647029648, 75.], [103.051083737186, 75.],... (91)
 

`assign`(p91, plot([`+`(t, 80), 73, t = 20 .. 66], color = turquoise, thickness = 5)) 

PLOT(CURVES([[100., 73.], [100.241849831156, 73.], [100.452282076080, 73.], [100.688935143920, 73.], [100.927156901910, 73.], [101.164246433467, 73.], [101.384058778794, 73.], [101.611661730352, 73.],... (92)
 

`assign`(p92, plot([`+`(t, 75), 70, t = 10 .. 64], color = turquoise, thickness = 5)) 

PLOT(CURVES([[85., 70.], [85.2839106713568, 70.], [85.5309398284422, 70.], [85.8087499515578, 70.], [86.0884015805025, 70.], [86.3667240740703, 70.], [86.6247646533668, 70.], [86.8919507269347, 70.], ... (93)
 

`assign`(p93, plot([`+`(t, 77), 67, t = 14 .. 62], color = turquoise, thickness = 5)) 

PLOT(CURVES([[91., 67.], [91.2523650412060, 67.], [91.4719465141709, 67.], [91.7188888458291, 67.], [91.9674680715578, 67.], [92.2148658436181, 67.], [92.4442352474372, 67.], [92.6817339794975, 67.], ... (94)
 

 

`assign`(p94, plot([`+`(t, 73), 65, t = 19 .. 60], color = turquoise, thickness = 5, axes = none)) 

PLOT(CURVES([[92., 65.], [92.2155618060302, 65.], [92.4031209808543, 65.], [92.6140508891457, 65.], [92.8263789777889, 65.], [93.0376979080905, 65.], [93.2336176071859, 65.], [93.4364811074874, 65.], ... (95)
 

 

 

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