Tri_Nguyen_-_Parametric_plots.mw

Tri Nguyen 

Math236 - Multivariable Calculus 

Individual Project - Parametric Plots 

 

Title: Lazy Sunday Afternoon 

 

1. Table top 

with(plots); -1 

`assign`(f1, plot([t, `+`(`*`(sqrt(3), `*`(t)), 20, `-`(`*`(5, `*`(sqrt(3))))), t = 5 .. 12.5], color =
`assign`(f1, plot([t, `+`(`*`(sqrt(3), `*`(t)), 20, `-`(`*`(5, `*`(sqrt(3))))), t = 5 .. 12.5], color =
 

PLOT(CURVES([[5., 20.], [5.03943203768844, 20.0682982927224], [5.07374164283920, 20.1277242720311], [5.11232638216080, 20.1945550009329], [5.15116688618090, 20.2618287272873], [5.18982278806533, 20.32... (1)
 

`assign`(f2, plot([`+`(t, 55), `+`(`*`(sqrt(3), `*`(t)), 20, `-`(`*`(5, `*`(sqrt(3))))), t = 5 .. 12.5], color =  

PLOT(CURVES([[60., 20.], [60.0394320376884, 20.0682982927224], [60.0737416428392, 20.1277242720311], [60.1123263821608, 20.1945550009329], [60.1511668861809, 20.2618287272873], [60.1898227880653, 20.3... (2)
 

`assign`(f3, plot([t, 20, t = 5 .. 60], thickness = 3, color =  

PLOT(CURVES([[5., 20.], [5.28916827638191, 20.], [5.54077204748744, 20.], [5.82372680251256, 20.], [6.10855716532663, 20.], [6.39203377914573, 20.], [6.65485288768844, 20.], [6.92698685150754, 20.], [... (3)
 

`assign`(f4, plot([`+`(t, 7.5), `+`(20, `*`(7.5, `*`(sqrt(3)))), t = 5 .. 13.5], color =  

PLOT(CURVES([[12.5000000000000, 32.9903810567666], [12.5446896427136, 32.9903810567666], [12.5835738618844, 32.9903810567666], [12.6273032331156, 32.9903810567666], [12.6713224710050, 32.9903810567666... (4)
 

`assign`(f5, plot([`+`(t, 7.5), `+`(20, `*`(7.5, `*`(sqrt(3)))), t = 30.5 .. 60], color =  

PLOT(CURVES([[38., 32.9903810567666], [38.1550993482412, 32.9903810567666], [38.2900504618342, 32.9903810567666], [38.4418171031658, 32.9903810567666], [38.5945897523116, 32.9903810567666], [38.746636... (5)
 

2. Table legs 

`assign`(f6, plot([5, t, t = 5 .. 20], thickness = 3, color =  

PLOT(CURVES([[5., 5.], [5., 5.07886407537688], [5., 5.14748328567839], [5., 5.22465276432161], [5., 5.30233377236181], [5., 5.37964557613065], [5., 5.45132351482412], [5., 5.52554186859297], [5., 5.60... (6)
 

 

`assign`(f7, plot([60, t, t = 5 .. 20], thickness = 3, color =  

PLOT(CURVES([[60., 5.], [60., 5.07886407537688], [60., 5.14748328567839], [60., 5.22465276432161], [60., 5.30233377236181], [60., 5.37964557613065], [60., 5.45132351482412], [60., 5.52554186859297], [... (7)
 

`assign`(f8, plot([12.5, t, t = `+`(5, `*`(7.5, `*`(sqrt(3)))) .. `+`(7, `*`(7.5, `*`(sqrt(3))))], color =  

PLOT(CURVES([[12.5000000000000, 17.9903810600000], [12.5000000000000, 18.0008962700503], [12.5000000000000, 18.0100454980905], [12.5000000000000, 18.0203347619095], [12.5000000000000, 18.0306922296482... (8)
 

`assign`(f9, plot([67.5, t, t = `+`(5, `*`(7.5, `*`(sqrt(3)))) .. `+`(20, `*`(7.5, `*`(sqrt(3))))], color =  

PLOT(CURVES([[67.5000000000000, 17.9903810600000], [67.5000000000000, 18.0692451353769], [67.5000000000000, 18.1378643456784], [67.5000000000000, 18.2150338243216], [67.5000000000000, 18.2927148323618... (9)
 

 

3. Laptop 

`assign`(f10, plot([t, `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 15 .. `+`(24.5, `-`(`/`(`*`(6), `*`(sqrt(3)))))], color = black, thickness = 2)) 

PLOT(CURVES([[15., 22.0000000000000], [15.0317343696538, 22.0549655405866], [15.0593462750069, 22.1027907635519], [15.0903987504154, 22.1565752286602], [15.1216570617879, 22.2107162121161], [15.152766... (10)
 

`assign`(f11, plot([`+`(t, 17), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 15 .. `+`(24.5, `-`(`/`(`*`(6), `*`(sqrt(3)))))], color = black, thickness = 2))
`assign`(f11, plot([`+`(t, 17), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 15 .. `+`(24.5, `-`(`/`(`*`(6), `*`(sqrt(3)))))], color = black, thickness = 2))
 

PLOT(CURVES([[32., 22.0000000000000], [32.0317343696538, 22.0549655405866], [32.0593462750069, 22.1027907635519], [32.0903987504154, 22.1565752286602], [32.1216570617879, 22.2107162121161], [32.152766... (11)
 

`assign`(f12, plot([t, 22, t = 15 .. 32], color = black, thickness = 2)) 

PLOT(CURVES([[15., 22.], [15.0893792854271, 22.], [15.1671477237688, 22.], [15.2546064662312, 22.], [15.3426449420101, 22.], [15.4302649862814, 22.], [15.5114999834673, 22.], [15.5956141177387, 22.], ... (12)
 

`assign`(f13, plot([`+`(t, 9.5, `-`(`/`(`*`(6), `*`(sqrt(3))))), `+`(19.5, `*`(7.5, `*`(sqrt(3)))), t = 15 .. 32], color = black, thickness = 2)) 

PLOT(CURVES([[21.0358983848622, 32.4903810567666], [21.1252776702894, 32.4903810567666], [21.2030461086311, 32.4903810567666], [21.2905048510934, 32.4903810567666], [21.3785433268723, 32.4903810567666... (13)
 

`assign`(f14, plot([`+`(24.5, `-`(`/`(`*`(6), `*`(sqrt(3))))), t, t = `+`(19.5, `*`(7.5, `*`(sqrt(3)))) .. `+`(38, `*`(3.5, `*`(sqrt(3))))], color = black, thickness = 2))
`assign`(f14, plot([`+`(24.5, `-`(`/`(`*`(6), `*`(sqrt(3))))), t, t = `+`(19.5, `*`(7.5, `*`(sqrt(3)))) .. `+`(38, `*`(3.5, `*`(sqrt(3))))], color = black, thickness = 2))
 

PLOT(CURVES([[21.0358983848622, 32.4903810600000], [21.0358983848622, 32.5512209968477], [21.0358983848622, 32.6041575005895], [21.0358983848622, 32.6636901355032], [21.0358983848622, 32.7236173913652... (14)
 

`assign`(f15, plot([`+`(41.5, `-`(`/`(`*`(6), `*`(sqrt(3))))), t, t = `+`(19.5, `*`(7.5, `*`(sqrt(3)))) .. `+`(38, `*`(3.5, `*`(sqrt(3))))], color = black, thickness = 2))
`assign`(f15, plot([`+`(41.5, `-`(`/`(`*`(6), `*`(sqrt(3))))), t, t = `+`(19.5, `*`(7.5, `*`(sqrt(3)))) .. `+`(38, `*`(3.5, `*`(sqrt(3))))], color = black, thickness = 2))
 

PLOT(CURVES([[38.0358983848622, 32.4903810600000], [38.0358983848622, 32.5512209968477], [38.0358983848622, 32.6041575005895], [38.0358983848622, 32.6636901355032], [38.0358983848622, 32.7236173913652... (15)
 

`assign`(f16, plot([`+`(t, 9.5, `-`(`/`(`*`(6), `*`(sqrt(3))))), `+`(38, `*`(3.5, `*`(sqrt(3)))), t = 15 .. 32], color = black, thickness = 2)) 

PLOT(CURVES([[21.0358983848622, 44.0621778264911], [21.1252776702894, 44.0621778264911], [21.2030461086311, 44.0621778264911], [21.2905048510934, 44.0621778264911], [21.3785433268723, 44.0621778264911... (16)
 

 

4. Laptop Screen 

`assign`(f17, plot([`+`(t, 23), `+`(`*`(2, `*`(cos(`*`(t, `*`(`/`(1.5)))))), 37), t = 0 .. `+`(`*`(4, `*`(Pi)))], color = magenta)) 

PLOT(CURVES([[23., 39.], [23.0660690133193, 38.9980602627311], [23.1235553085393, 38.9932189845293], [23.1882046598182, 38.9842779777965], [23.2532825489627, 38.9715556582137], [23.3180511342601, 38.9... (17)
 

`assign`(f18, plot([`+`(`*`(2.5, `*`(cos(t))), 28), `+`(`*`(1.5, `*`(sin(t))), 35), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = magenta)) 

PLOT(CURVES([[30.5000000000000, 35.], [30.4986360257595, 35.0495427480027], [30.4952309188417, 35.0926075493485], [30.4889391052520, 35.1409452621591], [30.4799792637154, 35.1894545501039], [30.468455... (18)
 

`assign`(f19, plot([`+`(`*`(2, `*`(sin(t))), 32), `+`(`*`(2.5, `*`(cos(t))), 40), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = magenta)) 

PLOT(CURVES([[32., 42.5000000000000], [32.0660569973369, 42.4986360257595], [32.1234767324646, 42.4952309188417], [32.1879270162121, 42.4889391052520], [32.2526060668052, 42.4799792637154], [32.316712... (19)
 

 

5. Vase 

`assign`(f20, plot([`+`(`*`(3, `*`(cos(t))), 80), `+`(`*`(`/`(3, 2), `*`(sin(t))), 10), t = Pi .. `+`(`*`(2, `*`(Pi)))], color = brown, thickness = 2)) 

PLOT(CURVES([[77., 9.99999999938469], [77.0004092202027, 9.97522524594040], [77.0014310657103, 9.95367412625516], [77.0033201056658, 9.92944928970354], [77.0060122454791, 9.90508250190474], [77.009478... (20)
 

`assign`(f21, plot([`+`(cos(`+`(`*`(`/`(1, 2), `*`(t)))), 76), `+`(t, 10), t = 0 .. `+`(`*`(3.5, `*`(Pi)))], color = brown, thickness = 2)) 

PLOT(CURVES([[77., 10.], [76.9995822739853, 10.0578103866412], [76.9985393600160, 10.1081108949473], [76.9966120149913, 10.1646790773035], [76.9938667281582, 10.2216222302920], [76.9903346147441, 10.2... (21)
 

`assign`(f22, plot([`+`(`-`(cos(`+`(`*`(`/`(1, 2), `*`(t))))), 84), `+`(t, 10), t = 0 .. `+`(`*`(3.5, `*`(Pi)))], color = brown, thickness = 2)) 

PLOT(CURVES([[83., 10.], [83.0004177260147, 10.0578103866412], [83.0014606399840, 10.1081108949473], [83.0033879850087, 10.1646790773035], [83.0061332718418, 10.2216222302920], [83.0096653852559, 10.2... (22)
 

`assign`(f23, plot([`+`(`*`(3.3, `*`(cos(t))), 80), `+`(`*`(`/`(3, 2), `*`(sin(t))), 21), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = brown, thickness = 2)) 

PLOT(CURVES([[83.3000000000000, 21.], [83.2981995540025, 21.0495427480027], [83.2937048128710, 21.0926075493485], [83.2853996189326, 21.1409452621591], [83.2735726281043, 21.1894545501039], [83.258360... (23)
 

`assign`(f24, plot([`+`(cos(`+`(`*`(`/`(1, 4), `*`(t)))), 78), `+`(t, 17), t = Pi .. `+`(`*`(6, `*`(Pi)))], color = green, thickness = 2)) 

PLOT(CURVES([[78.7071067811140, 20.1415926540000], [78.6923577834008, 20.2241789206018], [78.6792844242937, 20.2960367895857], [78.6643203881531, 20.3768484786379], [78.6489833340997, 20.4581958400220... (24)
 

`assign`(f25, plot([`+`(`*`(3, `*`(sin(`+`(`*`(6, `*`(t)))), `*`(cos(t)))), 78), `+`(`*`(3, `*`(sin(`+`(`*`(6, `*`(t)))), `*`(sin(t)))), 37), t = 0 .. `+`(`*`(2, `*`(Pi)))], color =
`assign`(f25, plot([`+`(`*`(3, `*`(sin(`+`(`*`(6, `*`(t)))), `*`(cos(t)))), 78), `+`(`*`(3, `*`(sin(`+`(`*`(6, `*`(t)))), `*`(sin(t)))), 37), t = 0 .. `+`(`*`(2, `*`(Pi)))], color =
 

PLOT(CURVES([[78., 37.], [78.2967836369814, 37.0049024963552], [78.5904130772567, 37.0195111025925], [78.8409040794091, 37.0398938558896], [79.0846355962035, 37.0670916158113], [79.5981669566184, 37.1... (25)
 

`assign`(f26, plot([`+`(`-`(cos(`+`(`*`(`/`(1, 4), `*`(t))))), 82), `+`(t, 17), t = Pi .. `+`(`*`(4, `*`(Pi)))], color = green, thickness = 2)) 

PLOT(CURVES([[81.2928932188860, 20.1415926540000], [81.3017068472071, 20.1911444139947], [81.3094627688878, 20.2342591354143], [81.3182809122749, 20.2827461488786], [81.3272586717633, 20.3315545657422... (26)
 

`assign`(f27, plot([`+`(`*`(3, `*`(sin(`+`(`*`(6, `*`(t)))), `*`(cos(t)))), 83), `+`(`*`(3, `*`(sin(`+`(`*`(6, `*`(t)))), `*`(sin(t)))), 30), t = 0 .. `+`(`*`(2, `*`(Pi)))], color =
`assign`(f27, plot([`+`(`*`(3, `*`(sin(`+`(`*`(6, `*`(t)))), `*`(cos(t)))), 83), `+`(`*`(3, `*`(sin(`+`(`*`(6, `*`(t)))), `*`(sin(t)))), 30), t = 0 .. `+`(`*`(2, `*`(Pi)))], color =
 

PLOT(CURVES([[83., 30.], [83.2967836369814, 30.0049024963552], [83.5904130772567, 30.0195111025925], [83.8409040794091, 30.0398938558896], [84.0846355962035, 30.0670916158114], [84.5981669566184, 30.1... (27)
 

 

 

6. Can 

`assign`(f28, plot([45, t, t = 23 .. 31], color = brown, thickness = 2)) 

PLOT(CURVES([[45., 23.], [45., 23.0420608402010], [45., 23.0786577523618], [45., 23.1198148076382], [45., 23.1612446785930], [45., 23.2024776406030], [45., 23.2407058745729], [45., 23.2802889965829], ... (28)
 

`assign`(f29, plot([49, t, t = 23 .. 31], color = brown, thickness = 2)) 

PLOT(CURVES([[49., 23.], [49., 23.0420608402010], [49., 23.0786577523618], [49., 23.1198148076382], [49., 23.1612446785930], [49., 23.2024776406030], [49., 23.2407058745729], [49., 23.2802889965829], ... (29)
 

`assign`(f30, plot([`+`(`*`(2, `*`(cos(t))), 47), `+`(sin(t), 23), t = Pi .. `+`(`*`(2, `*`(Pi)))], color = brown, thickness = 2)) 

PLOT(CURVES([[45., 22.9999999995898], [45.0002728134684, 22.9834834972936], [45.0009540438069, 22.9691160841701], [45.0022134037772, 22.9529661931357], [45.0040081636527, 22.9367216679365], [45.006318... (30)
 

`assign`(f31, plot([`+`(`*`(2, `*`(cos(t))), 47), `+`(sin(t), 31), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = brown, thickness = 2)) 

PLOT(CURVES([[49., 31.], [48.9989088206076, 31.0330284986684], [48.9961847350733, 31.0617383662323], [48.9911512842016, 31.0939635081061], [48.9839834109723, 31.1263030334026], [48.9747641191214, 31.1... (31)
 

`assign`(f32, plot([t, 31, t = 45 .. 47], color = brown)) 

PLOT(CURVES([[45., 31.], [45.0105152100503, 31.], [45.0196644380905, 31.], [45.0299537019095, 31.], [45.0403111696482, 31.], [45.0506194101508, 31.], [45.0601764686432, 31.], [45.0700722491457, 31.], ... (32)
 

 

7. Laptop details 

`assign`(f33, plot([`+`(t, 6), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 15.5 .. `+`(19, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =  

PLOT(CURVES([[21.5000000000000, 22.8660254037844], [21.5092951785455, 22.8821251252907], [21.5173828636969, 22.8961334068885], [21.5264783115142, 22.9118871846257], [21.5356340498638, 22.9277453886280... (33)
 

`assign`(f34, plot([`+`(t, 13), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 15.5 .. `+`(19, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
`assign`(f34, plot([`+`(t, 13), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 15.5 .. `+`(19, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
 

PLOT(CURVES([[28.5000000000000, 22.8660254037844], [28.5092951785455, 22.8821251252907], [28.5173828636969, 22.8961334068885], [28.5264783115142, 22.9118871846257], [28.5356340498638, 22.9277453886280... (34)
 

`assign`(f35, plot([t, 23.8, t = 21.9 .. 28.9], color =  

PLOT(CURVES([[21.9000000000000, 23.8000000000000], [21.9368032351759, 23.8000000000000], [21.9688255333166, 23.8000000000000], [22.0048379566834, 23.8000000000000], [22.0410890937688, 23.8000000000000... (35)
 

`assign`(f36, plot([t, 22.9, t = 21.3 .. 28.2], color =  

PLOT(CURVES([[21.3000000000000, 22.9000000000000], [21.3362774746734, 22.9000000000000], [21.3678423114121, 22.9000000000000], [21.4033402715879, 22.9000000000000], [21.4390735352864, 22.9000000000000... (36)
 

`assign`(f37, plot([`+`(t, 3.5, `-`(`/`(`*`(3), `*`(sqrt(3))))), `+`(13, `*`(7.5, `*`(sqrt(3)))), t = 21.5 .. 28.5], color =  

PLOT(CURVES([[23.2679491924311, 25.9903810567666], [23.3047524276070, 25.9903810567666], [23.3367747257477, 25.9903810567666], [23.3727871491145, 25.9903810567666], [23.4090382862000, 25.9903810567666... (37)
 

`assign`(f38, plot([`+`(t, 3.5, `-`(`/`(`*`(3), `*`(sqrt(3))))), `+`(14, `*`(7.5, `*`(sqrt(3)))), t = 16.5 .. 33], color =  

PLOT(CURVES([[18.2679491924311, 26.9903810567666], [18.3546996753457, 26.9903810567666], [18.4301808066774, 26.9903810567666], [18.5150672331849, 26.9903810567666], [18.6005163420291, 26.9903810567666... (38)
 

`assign`(f39, plot([`+`(t, 3.5, `-`(`/`(`*`(3), `*`(sqrt(3))))), `+`(15, `*`(7.5, `*`(sqrt(3)))), t = 17 .. 33.5], color =  

PLOT(CURVES([[18.7679491924311, 27.9903810567666], [18.8546996753457, 27.9903810567666], [18.9301808066774, 27.9903810567666], [19.0150672331849, 27.9903810567666], [19.1005163420291, 27.9903810567666... (39)
 

`assign`(f40, plot([`+`(t, 3.5, `-`(`/`(`*`(3), `*`(sqrt(3))))), `+`(16, `*`(7.5, `*`(sqrt(3)))), t = 17.5 .. 34], color =  

PLOT(CURVES([[19.2679491924311, 28.9903810567666], [19.3546996753457, 28.9903810567666], [19.4301808066774, 28.9903810567666], [19.5150672331849, 28.9903810567666], [19.6005163420291, 28.9903810567666... (40)
 

 

`assign`(f41, plot([`+`(t, 3.5, `-`(`/`(`*`(3), `*`(sqrt(3))))), `+`(17, `*`(7.5, `*`(sqrt(3)))), t = 18 .. 34.5], color =  

PLOT(CURVES([[19.7679491924311, 29.9903810567666], [19.8546996753457, 29.9903810567666], [19.9301808066774, 29.9903810567666], [20.0150672331849, 29.9903810567666], [20.1005163420291, 29.9903810567666... (41)
 

`assign`(f42, plot([`+`(t, 3.5, `-`(`/`(`*`(3), `*`(sqrt(3))))), `+`(18, `*`(7.5, `*`(sqrt(3)))), t = 18.5 .. 35], color =  

PLOT(CURVES([[20.2679491924311, 30.9903810567666], [20.3546996753457, 30.9903810567666], [20.4301808066774, 30.9903810567666], [20.5150672331849, 30.9903810567666], [20.6005163420291, 30.9903810567666... (42)
 

`assign`(f43, plot([`+`(t, 1), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
`assign`(f43, plot([`+`(t, 1), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
 

PLOT(CURVES([[19., 27.1961524227066], [19.0145527835706, 27.2213585832425], [19.0272150827421, 27.2432903287482], [19.0414551624690, 27.2679548703390], [19.0557896346879, 27.2927829045218], [19.070055... (43)
 

`assign`(f44, plot([`+`(t, 3), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
`assign`(f44, plot([`+`(t, 3), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
 

PLOT(CURVES([[21., 27.1961524227066], [21.0145527835706, 27.2213585832425], [21.0272150827421, 27.2432903287482], [21.0414551624690, 27.2679548703390], [21.0557896346879, 27.2927829045218], [21.070055... (44)
 

`assign`(f45, plot([`+`(t, 5), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
`assign`(f45, plot([`+`(t, 5), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
 

PLOT(CURVES([[23., 27.1961524227066], [23.0145527835706, 27.2213585832425], [23.0272150827421, 27.2432903287482], [23.0414551624690, 27.2679548703390], [23.0557896346879, 27.2927829045218], [23.070055... (45)
 

`assign`(f46, plot([`+`(t, 7), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
`assign`(f46, plot([`+`(t, 7), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
 

PLOT(CURVES([[25., 27.1961524227066], [25.0145527835706, 27.2213585832425], [25.0272150827421, 27.2432903287482], [25.0414551624690, 27.2679548703390], [25.0557896346879, 27.2927829045218], [25.070055... (46)
 

`assign`(f47, plot([`+`(t, 9), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
`assign`(f47, plot([`+`(t, 9), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
 

PLOT(CURVES([[27., 27.1961524227066], [27.0145527835706, 27.2213585832425], [27.0272150827421, 27.2432903287482], [27.0414551624690, 27.2679548703390], [27.0557896346879, 27.2927829045218], [27.070055... (47)
 

`assign`(f48, plot([`+`(t, 11), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
`assign`(f48, plot([`+`(t, 11), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
 

PLOT(CURVES([[29., 27.1961524227066], [29.0145527835706, 27.2213585832425], [29.0272150827421, 27.2432903287482], [29.0414551624690, 27.2679548703390], [29.0557896346879, 27.2927829045218], [29.070055... (48)
 

`assign`(f49, plot([`+`(t, 13), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
`assign`(f49, plot([`+`(t, 13), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
 

PLOT(CURVES([[31., 27.1961524227066], [31.0145527835706, 27.2213585832425], [31.0272150827421, 27.2432903287482], [31.0414551624690, 27.2679548703390], [31.0557896346879, 27.2927829045218], [31.070055... (49)
 

`assign`(f50, plot([`+`(t, 15), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
`assign`(f50, plot([`+`(t, 15), `+`(`*`(sqrt(3), `*`(t)), 22, `-`(`*`(15, `*`(sqrt(3))))), t = 18 .. `+`(22.5, `-`(`/`(`*`(3), `*`(sqrt(3)))))], color =
 

PLOT(CURVES([[33., 27.1961524227066], [33.0145527835706, 27.2213585832425], [33.0272150827421, 27.2432903287482], [33.0414551624690, 27.2679548703390], [33.0557896346879, 27.2927829045218], [33.070055... (50)
 

 

8. Window 

`assign`(f51, plot([`+`(t, 50), 45, t = 0 .. 35], color = orange, thickness = 3)) 

PLOT(CURVES([[50., 45.], [50.1840161758794, 45.], [50.3441276665829, 45.], [50.5241897834171, 45.], [50.7054454688442, 45.], [50.8858396776382, 45.], [51.0530882012563, 45.], [51.2262643600503, 45.], ... (51)
 

`assign`(f52, plot([50, `+`(t, 45), t = 0 .. 25], color = orange, thickness = 3)) 

PLOT(CURVES([[50., 45.], [50., 45.1314401256281], [50., 45.2458054761307], [50., 45.3744212738693], [50., 45.5038896206030], [50., 45.6327426268844], [50., 45.7522058580402], [50., 45.8759031143216], ... (52)
 

`assign`(f53, plot([`+`(t, 50), 70, t = 0 .. 35], color = orange, thickness = 3)) 

PLOT(CURVES([[50., 70.], [50.1840161758794, 70.], [50.3441276665829, 70.], [50.5241897834171, 70.], [50.7054454688442, 70.], [50.8858396776382, 70.], [51.0530882012563, 70.], [51.2262643600503, 70.], ... (53)
 

`assign`(f54, plot([85, `+`(t, 45), t = 0 .. 25], color = orange, thickness = 3)) 

PLOT(CURVES([[85., 45.], [85., 45.1314401256281], [85., 45.2458054761307], [85., 45.3744212738693], [85., 45.5038896206030], [85., 45.6327426268844], [85., 45.7522058580402], [85., 45.8759031143216], ... (54)
 

`assign`(f55, plot([`+`(t, 50), 50, t = 0 .. 35], color = orange, thickness = 3)) 

PLOT(CURVES([[50., 50.], [50.1840161758794, 50.], [50.3441276665829, 50.], [50.5241897834171, 50.], [50.7054454688442, 50.], [50.8858396776382, 50.], [51.0530882012563, 50.], [51.2262643600503, 50.], ... (55)
 

`assign`(f56, plot([60, `+`(t, 45), t = 0 .. 25], color = orange, thickness = 3)) 

PLOT(CURVES([[60., 45.], [60., 45.1314401256281], [60., 45.2458054761307], [60., 45.3744212738693], [60., 45.5038896206030], [60., 45.6327426268844], [60., 45.7522058580402], [60., 45.8759031143216], ... (56)
 

`assign`(f57, plot([75, `+`(t, 45), t = 0 .. 25], color = orange, thickness = 3)) 

PLOT(CURVES([[75., 45.], [75., 45.1314401256281], [75., 45.2458054761307], [75., 45.3744212738693], [75., 45.5038896206030], [75., 45.6327426268844], [75., 45.7522058580402], [75., 45.8759031143216], ... (57)
 

 

9. Sun 

`assign`(f58, plot([`+`(`*`(8, `*`(cos(`+`(`*`(4, `*`(t)))))), 75), `+`(`*`(6, `*`(sin(`+`(`*`(4, `*`(t)))))), 70), t = `*`(Pi, `*`(`/`(3.7))) .. `*`(Pi, `*`(`/`(2.1)))], color = yellow, thickness = 1... 

PLOT(CURVES([[67.2581364264284, 68.4881316262268], [67.2862772386906, 68.4092782602126], [67.3119241841387, 68.3409073969840], [67.3420536978631, 68.2642954258015], [67.3737536048053, 68.1874863228444... (58)
 

`assign`(f59, plot([`+`(`*`(8, `*`(cos(`+`(`*`(4, `*`(t)))))), 75), `+`(`*`(6, `*`(sin(`+`(`*`(4, `*`(t)))))), 72), t = `*`(Pi, `*`(`/`(3.1))) .. `*`(Pi, `*`(`/`(2.4)))], color = yellow, thickness = 2... 

PLOT(CURVES([[70.1031521388857, 67.2553455787993], [70.1425712694590, 67.2326076627951], [70.1770224022424, 67.2129733665891], [70.2159348087743, 67.1910598736902], [70.2552839129929, 67.1691808194465... (59)
 

`assign`(f60, plot([`+`(t, 60), `+`(t, 52), t = 0 .. 9], color = gold, transparency = .5, thickness = 2)) 

PLOT(CURVES([[60., 52.], [60.0473184452261, 52.0473184452261], [60.0884899714070, 52.0884899714070], [60.1347916585930, 52.1347916585930], [60.1814002634171, 52.1814002634171], [60.2277873456784, 52.2... (60)
 

`assign`(f61, plot([`+`(t, 57), `+`(`*`(.7, `*`(t)), 56), t = 0 .. 9], color = gold, transparency = .5, thickness = 2)) 

PLOT(CURVES([[57., 56.], [57.0473184452261, 56.0331229116583], [57.0884899714070, 56.0619429799849], [57.1347916585930, 56.0943541610151], [57.1814002634171, 56.1269801843920], [57.2277873456784, 56.1... (61)
 

`assign`(f62, plot([`+`(t, 55), `+`(`*`(.5, `*`(t)), 60), t = 0 .. 9], color = gold, transparency = .5, thickness = 2)) 

PLOT(CURVES([[55., 60.], [55.0473184452261, 60.0236592226131], [55.0884899714070, 60.0442449857035], [55.1347916585930, 60.0673958292965], [55.1814002634171, 60.0907001317085], [55.2277873456784, 60.1... (62)
 

`assign`(f63, plot([`+`(t, 55), `+`(`*`(.3, `*`(t)), 64), t = 0 .. 9], color = gold, transparency = .5, thickness = 2)) 

PLOT(CURVES([[55., 64.], [55.0473184452261, 64.0141955335678], [55.0884899714070, 64.0265469914221], [55.1347916585930, 64.0404374975779], [55.1814002634171, 64.0544200790251], [55.2277873456784, 64.0... (63)
 

`assign`(f64, plot([`+`(t, 70), `+`(`*`(4, `*`(t)), 52), t = 0 .. 2], color = gold, transparency = .5, thickness = 2)) 

PLOT(CURVES([[70., 52.], [70.0105152100503, 52.0420608402010], [70.0196644380905, 52.0786577523618], [70.0299537019095, 52.1198148076382], [70.0403111696482, 52.1612446785930], [70.0506194101508, 52.2... (64)
 

`assign`(f65, plot([`+`(t, 82), `+`(`-`(`*`(2, `*`(t))), 52), t = -4 .. 0], color = gold, transparency = .5, thickness = 2)) 

PLOT(CURVES([[78., 60.], [78.0210304201005, 59.9579391597990], [78.0393288761809, 59.9213422476382], [78.0599074038191, 59.8801851923618], [78.0806223392965, 59.8387553214070], [78.1012388203015, 59.7... (65)
 

 

10. Can lettering 

`assign`(f66, plot([`+`(cos(t), 47), `+`(sin(t), 24), t = Pi .. `+`(`*`(2, `*`(Pi)))], color = red)) 

PLOT(CURVES([[46., 23.9999999995898], [46.0001364067342, 23.9834834972936], [46.0004770219034, 23.9691160841701], [46.0011067018886, 23.9529661931357], [46.0020040818263, 23.9367216679365], [46.003159... (66)
 

`assign`(f67, plot([`+`(cos(t), 47), `+`(`*`(`/`(1, 2), `*`(sin(t))), 25.2), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = red)) 

PLOT(CURVES([[48., 25.2000000000000], [47.9994544103038, 25.2165142493342], [47.9980923675367, 25.2308691831162], [47.9955756421008, 25.2469817540530], [47.9919917054861, 25.2631515167013], [47.987382... (67)
 

`assign`(f68, plot([`+`(cos(t), 47), `+`(sin(t), 27.2), t = Pi .. `+`(`*`(2, `*`(Pi)))], color = red)) 

PLOT(CURVES([[46., 27.1999999995898], [46.0001364067342, 27.1834834972936], [46.0004770219034, 27.1691160841701], [46.0011067018886, 27.1529661931357], [46.0020040818263, 27.1367216679365], [46.003159... (68)
 

`assign`(f69, plot([`+`(t, 46), `+`(`-`(`*`(.5, `*`(t))), 28.5), t = 0 .. 2], color = red)) 

PLOT(CURVES([[46., 28.5000000000000], [46.0105152100503, 28.4947423949749], [46.0196644380905, 28.4901677809548], [46.0299537019095, 28.4850231490452], [46.0403111696482, 28.4798444151759], [46.050619... (69)
 

`assign`(f70, plot([`+`(t, 46), `+`(`*`(.4, `*`(t)), 28.7), t = 0 .. 2], color = red)) 

PLOT(CURVES([[46., 28.7000000000000], [46.0105152100503, 28.7042060840201], [46.0196644380905, 28.7078657752362], [46.0299537019095, 28.7119814807638], [46.0403111696482, 28.7161244678593], [46.050619... (70)
 

`assign`(f71, plot([47.4, `+`(t, 28.1), t = 0 .. 1.5], color = red)) 

PLOT(CURVES([[47.4000000000000, 28.1000000000000], [47.4000000000000, 28.1078864075377], [47.4000000000000, 28.1147483285678], [47.4000000000000, 28.1224652764322], [47.4000000000000, 28.1302333772362... (71)
 

 

11. Wall lettering 

`assign`(f72, plot([`+`(`*`(2, `*`(sin(t))), 16), `+`(`*`(2.3, `*`(cos(t))), 65), t = Pi .. `+`(`*`(2, `*`(Pi)))], color =  

PLOT(CURVES([[15.9999999991796, 62.7000000000000], [15.9669669945872, 62.7003137354887], [15.9382321683402, 62.7010971503779], [15.9059323862714, 62.7025454143438], [15.8734433358730, 62.7046093882006... (72)
 

`assign`(f73, plot([`+`(t, 17), `+`(`*`(2.5, `*`(t)), 62.5), t = 0 .. 2], color =  

PLOT(CURVES([[17., 62.5000000000000], [17.0105152100503, 62.5262880251256], [17.0196644380905, 62.5491610952261], [17.0299537019095, 62.5748842547739], [17.0403111696482, 62.6007779241206], [17.050619... (73)
 

`assign`(f74, plot([`+`(t, 19), `+`(`-`(`*`(2.5, `*`(t))), 67.5), t = 0 .. 2], color =  

PLOT(CURVES([[19., 67.5000000000000], [19.0105152100503, 67.4737119748744], [19.0196644380905, 67.4508389047739], [19.0299537019095, 67.4251157452261], [19.0403111696482, 67.3992220758794], [19.050619... (74)
 

`assign`(f75, plot([`+`(t, 18), 64, t = 0 .. 2], color =  

PLOT(CURVES([[18., 64.], [18.0105152100503, 64.], [18.0196644380905, 64.], [18.0299537019095, 64.], [18.0403111696482, 64.], [18.0506194101508, 64.], [18.0601764686432, 64.], [18.0700722491457, 64.], ... (75)
 

`assign`(f76, plot([21.7, `+`(t, 62.5), t = 0 .. 5], color =  

PLOT(CURVES([[21.7000000000000, 62.5000000000000], [21.7000000000000, 62.5262880251256], [21.7000000000000, 62.5491610952261], [21.7000000000000, 62.5748842547739], [21.7000000000000, 62.6007779241206... (76)
 

`assign`(f77, plot([`+`(t, 21.7), 62.5, t = 0 .. 3], color =  

PLOT(CURVES([[21.7000000000000, 62.5000000000000], [21.7157728150754, 62.5000000000000], [21.7294966571357, 62.5000000000000], [21.7449305528643, 62.5000000000000], [21.7604667544724, 62.5000000000000... (77)
 

`assign`(f78, plot([`+`(`*`(2, `*`(sin(t))), 26.5), `+`(`*`(2.3, `*`(cos(t))), 65), t = Pi .. `+`(`*`(2, `*`(Pi)))], color =  

PLOT(CURVES([[26.4999999991796, 62.7000000000000], [26.4669669945872, 62.7003137354887], [26.4382321683402, 62.7010971503779], [26.4059323862714, 62.7025454143438], [26.3734433358730, 62.7046093882006... (78)
 

`assign`(f79, plot([`+`(t, 29.5), `+`(`*`(`^`(t, 2)), 62.5), t = -2.1 .. 2.1], color =  

PLOT(CURVES([[27.4000000000000, 66.9100000000000], [27.4220819411055, 66.8177434594798], [27.4412953199900, 66.7382649594953], [27.4629027740101, 66.6497651081360], [27.4846534562613, 66.5616216913595... (79)
 

`assign`(f80, plot([32.5, `+`(t, 62.5), t = 0 .. 5], color =  

PLOT(CURVES([[32.5000000000000, 62.5000000000000], [32.5000000000000, 62.5262880251256], [32.5000000000000, 62.5491610952261], [32.5000000000000, 62.5748842547739], [32.5000000000000, 62.6007779241206... (80)
 

`assign`(f81, plot([`+`(t, 32.5), 62.5, t = 0 .. 3], color =  

PLOT(CURVES([[32.5000000000000, 62.5000000000000], [32.5157728150754, 62.5000000000000], [32.5294966571357, 62.5000000000000], [32.5449305528643, 62.5000000000000], [32.5604667544724, 62.5000000000000... (81)
 

`assign`(f82, plot([`+`(t, 36), `+`(`*`(`^`(t, 2)), 62.5), t = -2.1 .. 2.1], color =  

PLOT(CURVES([[33.9000000000000, 66.9100000000000], [33.9220819411055, 66.8177434594798], [33.9412953199899, 66.7382649594953], [33.9629027740100, 66.6497651081360], [33.9846534562613, 66.5616216913595... (82)
 

`assign`(f83, plot([`+`(sin(`+`(`*`(1.5, `*`(t)))), 40), `+`(t, 63), t = `+`(`-`(`*`(`/`(1, 7), `*`(Pi)))) .. `+`(`*`(1.5, `*`(Pi)))], color =  

PLOT(CURVES([[39.3765101979218, 62.5512010493000], [39.4088408922461, 62.5783365369053], [39.4377702985155, 62.6019469795781], [39.4711449848400, 62.6284993917026], [39.5055879604426, 62.6552278104506... (83)
 

 

12. Bubble lettering 

`assign`(f84, plot([`+`(t, `-`(15)), 34.5, t = 0 .. 2], color =  

PLOT(CURVES([[-15., 34.5000000000000], [-14.9894847899497, 34.5000000000000], [-14.9803355619095, 34.5000000000000], [-14.9700462980905, 34.5000000000000], [-14.9596888303518, 34.5000000000000], [-14.... (84)
 

`assign`(f85, plot([`+`(t, `-`(15)), `+`(t, 34.5), t = 0 .. 2.5], color =  

PLOT(CURVES([[-15., 34.5000000000000], [-14.9868559874372, 34.5131440125628], [-14.9754194523869, 34.5245805476131], [-14.9625578726131, 34.5374421273869], [-14.9496110379397, 34.5503889620603], [-14.... (85)
 

`assign`(f86, plot([`+`(t, `-`(15)), 37, t = 0 .. 2], color =  

PLOT(CURVES([[-15., 37.], [-14.9894847899497, 37.], [-14.9803355619095, 37.], [-14.9700462980905, 37.], [-14.9596888303518, 37.], [-14.9493805898492, 37.], [-14.9398235313568, 37.], [-14.9299277508543... (86)
 

`assign`(f87, plot([`+`(t, `-`(10)), 40, t = 0 .. 3.3], color =  

PLOT(CURVES([[-10., 40.], [-9.98264990341709, 40.], [-9.96755367715075, 40.], [-9.95057639184925, 40.], [-9.93348657008040, 40.], [-9.91647797325126, 40.], [-9.90070882673869, 40.], [-9.88438078890955... (87)
 

`assign`(f88, plot([`+`(t, `-`(10)), `+`(t, 40), t = 0 .. 3], color =  

PLOT(CURVES([[-10., 40.], [-9.98422718492462, 40.0157728150754], [-9.97050334286432, 40.0294966571357], [-9.95506944713568, 40.0449305528643], [-9.93953324552764, 40.0604667544724], [-9.92407088477387... (88)
 

`assign`(f89, plot([`+`(t, `-`(10)), 43, t = 0 .. 3.3], color =  

PLOT(CURVES([[-10., 43.], [-9.98264990341709, 43.], [-9.96755367715075, 43.], [-9.95057639184925, 43.], [-9.93348657008040, 43.], [-9.91647797325126, 43.], [-9.90070882673869, 43.], [-9.88438078890955... (89)
 

`assign`(f90, plot([`+`(t, `-`(4)), 45, t = 0 .. 4], color =  

PLOT(CURVES([[-4., 45.], [-3.97896957989950, 45.], [-3.96067112381910, 45.], [-3.94009259618090, 45.], [-3.91937766070352, 45.], [-3.89876117969849, 45.], [-3.87964706271357, 45.], [-3.85985550170854,... (90)
 

`assign`(f91, plot([`+`(t, `-`(4)), `+`(t, 45), t = 0 .. 4.5], color =  

PLOT(CURVES([[-4., 45.], [-3.97634077738693, 45.0236592226131], [-3.95575501429648, 45.0442449857035], [-3.93260417070352, 45.0673958292965], [-3.90929986829146, 45.0907001317085], [-3.88610632716080,... (91)
 

`assign`(f92, plot([`+`(t, `-`(3.9)), 49.5, t = 0 .. 4], color =  

PLOT(CURVES([[-3.90000000000000, 49.5000000000000], [-3.87896957989950, 49.5000000000000], [-3.86067112381910, 49.5000000000000], [-3.84009259618090, 49.5000000000000], [-3.81937766070352, 49.50000000... (92)
 

 

13. Bubble outline 

`assign`(f93, plot([`+`(`*`(6, `*`(sin(t))), `-`(15)), `+`(`*`(5, `*`(cos(t))), 33), t = `+`(`*`(.4, `*`(Pi))) .. `+`(`*`(2, `*`(Pi)))], color =  

PLOT(CURVES([[-9.29366090118321, 34.5450849691924], [-9.24665971969126, 34.4188893394563], [-9.20903212414178, 34.3082778811970], [-9.17037475501741, 34.1830602686881], [-9.13539824424511, 34.05621383... (93)
 

`assign`(f94, plot([`+`(`*`(8, `*`(sin(t))), `-`(8)), `+`(`*`(7, `*`(cos(t))), 41), t = `+`(`*`(.4, `*`(Pi))) .. `+`(`*`(1.1, `*`(Pi)))], color =  

PLOT(CURVES([[-.391547868244282, 43.1631189568693], [-.363474027546334, 43.0860027659452], [-.339877544445735, 43.0186771439243], [-.314267104085301, 42.9427187086500], [-.289480462017005, 42.86600565... (94)
 

`assign`(f95, plot([`+`(`*`(8, `*`(sin(t))), `-`(8)), `+`(`*`(7, `*`(cos(t))), 41), t = `+`(`*`(1.4, `*`(Pi))) .. `+`(`*`(2.1, `*`(Pi)))], color =  

PLOT(CURVES([[-15.6084521327698, 38.8368810458616], [-15.6365259734316, 38.9139972367958], [-15.6601224565006, 38.9813228588252], [-15.6857328968255, 39.0572812941086], [-15.7105195388578, 39.13399434... (95)
 

`assign`(f96, plot([`+`(`*`(8, `*`(sin(t))), 2), `+`(`*`(7, `*`(cos(t))), 49), t = 0 .. `+`(`*`(1.1, `*`(Pi)))], color =  

PLOT(CURVES([[2., 56.], [2.14534383231273, 55.9988446405349], [2.27176937935642, 55.9959596920492], [2.41386542256831, 55.9906265983325], [2.55677115676966, 55.9830266182438], [2.69882070723014, 55.97... (96)
 

`assign`(f97, plot([`+`(`*`(8, `*`(sin(t))), 2), `+`(`*`(7, `*`(cos(t))), 49), t = `+`(`*`(1.4, `*`(Pi))) .. `+`(`*`(2, `*`(Pi)))], color =  

PLOT(CURVES([[-5.60845213276981, 46.8368810458616], [-5.63257783984885, 46.9029633243634], [-5.65295968802055, 46.9606289547116], [-5.67520132703853, 47.0256609298858], [-5.69686143380186, 47.09131148... (97)
 

`assign`(f98, plot([`+`(`*`(3, `*`(cos(t))), `-`(22)), `+`(`*`(3, `*`(sin(t))), 25), t = 0 .. `+`(`*`(2, `*`(Pi)))], color =  

PLOT(CURVES([[-19., 25.], [-19.0016367690886, 25.0990854960053], [-19.0057228973900, 25.1852150986969], [-19.0132730736976, 25.2818905243182], [-19.0240248835416, 25.3789091002078], [-19.0378538213180... (98)
 

`assign`(f99, plot([`+`(`*`(2, `*`(cos(t))), `-`(27)), `+`(`*`(2, `*`(sin(t))), 18), t = 0 .. `+`(`*`(2, `*`(Pi)))], color =  

PLOT(CURVES([[-25., 18.], [-25.0010911793924, 18.0660569973369], [-25.0038152649267, 18.1234767324646], [-25.0088487157984, 18.1879270162121], [-25.0160165890277, 18.2526060668052], [-25.0252358808786... (99)
 

`assign`(f100, plot([`+`(cos(t), `-`(30)), `+`(sin(t), 15), t = 0 .. `+`(`*`(2, `*`(Pi)))], color =  

PLOT(CURVES([[-29., 15.], [-29.0005455896962, 15.0330284986684], [-29.0019076324633, 15.0617383662323], [-29.0044243578992, 15.0939635081061], [-29.0080082945139, 15.1263030334026], [-29.0126179404393... (100)
 

 

display(f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f...
display(f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f...
display(f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f...
display(f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13, f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28, f29, f30, f31, f32, f33, f34, f35, f36, f37, f38, f39, f40, f...
 

Plot_2d
 

I have abided by the Wheaton College Honor Code in this assignment 

Tri Nguyen