Jarrel_Doorn.html

with(plots)

`assign`(p1, plot(12.5, x = -5 .. 5, filled = true, color = brown, thickness = 2, scaling = constrained))

`assign`(p2, plot(.1, x = -5 .. 5, color = black, thickness = 2))

`assign`(p3, plot([-5, `+`(t, 0), t = -.1 .. 12.5], color = black, thickness = 2))

`assign`(p4, plot([5, `+`(t, 0), t = .1 .. 12.5], color = black, thickness = 2))

`assign`(p5, plot([`+`(`*`(`/`(1, 15), `*`(cos(t))), 1), `+`(`*`(`/`(1, 15), `*`(sin(t))), 5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gold, thickness = 5))

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

`assign`(p7, plot([`+`(`*`(`/`(1, 5), `*`(cos(t))), 1), `+`(`*`(`/`(1, 5), `*`(sin(t))), 5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gold, thickness = 5))

`assign`(p8, plot([`+`(`*`(`/`(1, 7), `*`(cos(t))), 1), `+`(`*`(`/`(1, 7), `*`(sin(t))), 5), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gold, thickness = 5))

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

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

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

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

`assign`(p13, plot(0, x = -20 .. 50, color = red, thickness = 5))

`assign`(p14, plot([-20, `+`(t, 0), t = 0 .. 30], color = red, thickness = 5))

`assign`(p15, plot([20, `+`(t, 0), t = 0 .. 30], color = red, thickness = 5))

`assign`(p16, plot(30, x = -20 .. 20, color = red, thickness = 5))

`assign`(p17, plot(`+`(x, 50), x = -20 .. 0, color = red, thickness = 5))

`assign`(p18, plot(`+`(`-`(x), 50), x = 0 .. 20, color = red, thickness = 5))

`assign`(p19, plot(50, x = 0 .. 37, color = black, thickness = 7))

`assign`(p20, plot(30, x = 20 .. 50, color = black, thickness = 5))

`assign`(p21, plot([0, `+`(t, 0), t = .1 .. 12.5], color = black, thickness = 4))

`assign`(p22, plot(12.5, x = -5 .. 5, color = black, thickness = 2))

`assign`(p23, plot([50, `+`(t, 0), t = 0 .. 51.5], color = black, thickness = 3))

`assign`(p24, plot([60, `+`(t, 0), t = 0 .. 51.5], color = gray, thickness = 3))

`assign`(p25, plot([`+`(`+`(`*`(5, `*`(cos(t)))), 0), `+`(`*`(5, `*`(sin(t))), 40), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black, thickness = 2))

`assign`(p26, plot([0, `+`(t, 0), t = 35 .. 45], color = brown, thickness = 3))

`assign`(p27, plot(40, x = -5 .. 5, color = brown, thickness = 3))

`assign`(p28, plot(51.5, x = 40 .. 70, color = brown, thickness = 3))

`assign`(p29, plot(51.5, x = 50 .. 60, filled = true, color = black, thickness = 2))

`assign`(p30, plot([40, `+`(t, 0), t = 51.5 .. 70], color = brown, thickness = 3))

`assign`(p31, plot([70, `+`(t, 0), t = 51.5 .. 70], color = brown, thickness = 3))

`assign`(p32, plot([`+`(55, `*`(15, `*`(cos(t)))), `+`(70, `*`(10, `*`(sin(t)))), t = 0 .. Pi], thickness = 3, color = brown))

`assign`(p33, plot([45, `+`(t, 0), t = 51.5 .. 77], color = brown, thickness = 2))

`assign`(p34, plot([50, `+`(t, 0), t = 51.5 .. 79.5], color = brown, thickness = 2))

`assign`(p35, plot([55, `+`(t, 0), t = 51.5 .. 80], color = brown, thickness = 2))

`assign`(p36, plot([60, `+`(t, 0), t = 51.5 .. 79.5], color = brown, thickness = 2))

`assign`(p37, plot([65, `+`(t, 0), t = 51.5 .. 77], color = brown, thickness = 2))

`assign`(p38, plot(55, x = 40 .. 70, color = brown, thickness = 2))

`assign`(p39, plot(60, x = 40 .. 70, color = brown, thickness = 2))

`assign`(p40, plot(65, x = 40 .. 70, color = brown, thickness = 2))

`assign`(p41, plot(70, x = 40 .. 70, color = brown, thickness = 2))

`assign`(p42, plot(75, x = 42 .. 68, color = brown, thickness = 2))

`assign`(p43, textplot([55, 67,

PLOT(TEXT([55., 67.],

`assign`(p44, textplot([55, 57,

PLOT(TEXT([55., 57.],

`assign`(p45, plot(5, x = 53 .. 57, color = red, thickness = 5))

`assign`(p46, plot(10, x = 53 .. 57, color = red, thickness = 5))

`assign`(p47, plot(15, x = 53 .. 57, color = red, thickness = 5))

`assign`(p48, plot(20, x = 53 .. 57, color = red, thickness = 5))

`assign`(p49, plot(25, x = 53 .. 57, color = red, thickness = 5))

`assign`(p50, plot(30, x = 53 .. 57, color = red, thickness = 5))

`assign`(p51, plot(35, x = 53 .. 57, color = red, thickness = 5))

`assign`(p52, plot(40, x = 53 .. 57, color = red, thickness = 5))

`assign`(p53, plot(45, x = 53 .. 57, color = red, thickness = 5))

`assign`(p54, plot(50, x = 53 .. 57, color = red, thickness = 5))

`assign`(p55, plot(29, x = 20 .. 50, color = black, thickness = 7))

`assign`(p56, plot(`+`(`-`(x), 55), x = 5.1 .. 25, color = black, thickness = 9))

`assign`(p57, plot(`+`(`-`(x), 52), x = 2.59 .. 22.3, color = black, thickness = 9))

`assign`(p58, plot(`+`(`-`(x), 57), x = 7.65 .. 27, color = black, thickness = 9))

`assign`(p59, plot(`+`(`-`(x), 59), x = 9 .. 29, color = black, thickness = 9))

`assign`(p60, plot(`+`(`-`(x), 61), x = 11.7 .. 31, color = black, thickness = 9))

`assign`(p61, plot(`+`(`-`(x), 63), x = 13 .. 33, color = black, thickness = 9))

`assign`(p62, plot(`+`(`-`(x), 65), x = 15 .. 35, color = black, thickness = 9))

`assign`(p63, plot(`+`(`-`(x), 67), x = 17 .. 37, color = black, thickness = 9))

`assign`(p64, plot(`+`(`-`(x), 69), x = 19 .. 39, color = black, thickness = 9))

`assign`(p65, plot(`+`(`-`(x), 71), x = 21 .. 41, color = black, thickness = 9))

`assign`(p66, plot(`+`(`-`(x), 73), x = 23 .. 43, color = black, thickness = 9))

`assign`(p67, plot(`+`(`-`(x), 75), x = 25 .. 45, color = black, thickness = 9))

`assign`(p68, plot(`+`(`-`(x), 77), x = 27 .. 47, color = black, thickness = 9))

`assign`(p69, plot(`+`(`-`(x), 79), x = 29 .. 49, color = black, thickness = 9))

`assign`(p70, plot(`+`(`-`(x), 81), x = 31 .. 50, color = black, thickness = 9))

`assign`(p71, plot(`+`(`-`(x), 83), x = 32.5 .. 50, color = black, thickness = 9))

`assign`(p72, plot(`+`(`-`(x), 85), x = 35 .. 50, color = black, thickness = 9))

`assign`(p73, plot(23, x = 20 .. 50, color = brown, thickness = 2))

`assign`(p74, plot(18, x = 20 .. 50, color = brown, thickness = 2))

`assign`(p75, plot(13, x = 20 .. 50, color = brown, thickness = 2))

`assign`(p76, plot(8, x = 20 .. 50, color = brown, thickness = 2))

`assign`(p77, plot(3, x = 20 .. 50, color = brown, thickness = 2))

`assign`(p78, plot(28, x = 20 .. 50, color = brown, thickness = 2))

`assign`(p79, plot(25, x = -20 .. 20, color = brown, thickness = 2))

`assign`(p80, plot(20, x = -20 .. 20, color = brown, thickness = 2))

`assign`(p81, plot(15, x = -20 .. 20, color = brown, thickness = 2))

`assign`(p82, plot(10, x = -20 .. -4.9, color = brown, thickness = 2))

`assign`(p83, plot(5, x = -20 .. -4.9, color = brown, thickness = 2))

`assign`(p84, plot(10, x = 4.9 .. 20, color = brown, thickness = 2))

`assign`(p85, plot(5, x = 4.9 .. 20, color = brown, thickness = 2))

`assign`(p86, plot([-15, `+`(t, 0), t = .1 .. 30], color = brown, thickness = 2))

`assign`(p87, plot([-10, `+`(t, 0), t = .1 .. 30], color = brown, thickness = 2))

`assign`(p88, plot([-5, `+`(t, 0), t = 12.5 .. 30], color = brown, thickness = 2))

`assign`(p89, plot([0, `+`(t, 0), t = 12.5 .. 30], color = brown, thickness = 2))

`assign`(p90, plot([5, `+`(t, 0), t = 12.5 .. 30], color = brown, thickness = 2))

`assign`(p91, plot([10, `+`(t, 0), t = .1 .. 30], color = brown, thickness = 2))

`assign`(p92, plot([15, `+`(t, 0), t = .1 .. 30], color = brown, thickness = 2))

`assign`(p93, plot([`+`(`*`(13, `*`(cos(t))), `-`(20)), `+`(`*`(13, `*`(sin(t))), 60), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gray, thickness = 3))

`assign`(p94, plot([`+`(`*`(.5, `*`(cos(t))), `-`(23)), `+`(`*`(.5, `*`(sin(t))), 50), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gray, thickness = 1))

`assign`(p95, plot([`+`(`*`(1.5, `*`(cos(t))), `-`(16)), `+`(`*`(`*`(2, `/`(1, 2)), `*`(sin(t))), 55), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gray, thickness = 1))

`assign`(p96, plot([`+`(`*`(2, `*`(cos(t))), `-`(24)), `+`(`*`(`*`(.9, 2), `*`(sin(t))), 60), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gray, thickness = 1))

`assign`(p97, plot([`+`(`*`(`/`(3, 2), `*`(cos(t))), `-`(15)), `+`(`*`(`/`(3, 5), `*`(sin(t))), 68), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = gray, thickness = 1))

`assign`(p100, plot([`+`(`*`(`/`(1, 10), `*`(cos(t))), 15), `+`(`*`(`/`(1, 10), `*`(sin(t))), 75), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = yellow, thickness = 5))

`assign`(p101, plot([`+`(`*`(`/`(1, 20), `*`(cos(t))), 23), `+`(`*`(`/`(1, 20), `*`(sin(t))), 67), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = yellow, thickness = 5))

`assign`(p102, plot([`+`(`*`(`/`(1, 10), `*`(cos(t))), 35), `+`(`*`(`/`(1, 10), `*`(sin(t))), 55), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = yellow, thickness = 5))

`assign`(p103, plot([`+`(`*`(`/`(1, 20), `*`(cos(t))), 5), `+`(`*`(`/`(1, 20), `*`(sin(t))), 53), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = yellow, thickness = 5))

`assign`(p104, plot([`+`(`*`(`/`(1, 25), `*`(cos(t))), 20), `+`(`*`(`/`(1, 25), `*`(sin(t))), 60), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = yellow, thickness = 5))

`assign`(p105, plot([`+`(`*`(`/`(1, 20), `*`(cos(t))), 35), `+`(`*`(`/`(1, 20), `*`(sin(t))), 70), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = yellow, thickness = 5))

`assign`(p106, plot([`+`(`*`(`/`(1, 20), `*`(cos(t))), 16), `+`(`*`(`/`(1, 20), `*`(sin(t))), 60), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = yellow, thickness = 5))

`assign`(p107, plot([`+`(`*`(`/`(1, 20), `*`(cos(t))), 15), `+`(`*`(`/`(1, 20), `*`(sin(t))), 70), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = yellow, thickness = 5))

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

`assign`(p109, plot([`+`(`*`(3, `*`(cos(t))), 15), `+`(`*`(3, `*`(sin(t))), `-`(25)), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = yellow, thickness = 7))

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

`assign`(p111, plot([`+`(14.7, `*`(10, `*`(cos(t)))), `+`(`-`(23), `*`(8, `*`(sin(t)))), t = 0 .. Pi], thickness = 5, color = red))

`assign`(p112, plot([`+`(14.7, `*`(10, `*`(cos(t)))), `+`(`-`(23), `*`(9, `*`(sin(t)))), t = 0 .. Pi], thickness = 5, color = red))

`assign`(p113, plot([`+`(cos(t), 60), `+`(sin(t), `-`(27.5)), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black, thickness = 6))

`assign`(p114, plot([`+`(`*`(2.5, `*`(cos(t))), 60), `+`(`*`(2.5, `*`(sin(t))), `-`(27.5)), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = yellow, thickness = 4))

`assign`(p115, plot([`+`(`*`(4, `*`(cos(t))), 60), `+`(`*`(4, `*`(sin(t))), `-`(27.5)), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black, thickness = 10))

`assign`(p116, plot([`+`(60, `*`(5.5, `*`(cos(t)))), `+`(`-`(25), `*`(4, `*`(sin(t)))), t = 0 .. Pi], color = red, thickness = 5))

`assign`(p117, plot([`+`(60, `*`(5.5, `*`(cos(t)))), `+`(`-`(25), `*`(5, `*`(sin(t)))), t = 0 .. Pi], color = red, thickness = 5))

`assign`(p118, plot(-23, x = 25 .. 54.5, color = black, thickness = 5))

`assign`(p119, plot(-22, x = 25 .. 55, color = black, thickness = 5))

`assign`(p120, plot(-21, x = 25 .. 55.2, color = black, thickness = 5))

`assign`(p121, plot(-20, x = 25 .. 55.5, color = black, thickness = 5))

`assign`(p122, plot(-19, x = 25 .. 56, color = black, thickness = 5))

`assign`(p123, plot([56, `+`(t, 0), t = -23 .. -13], color = red, thickness = 10))

`assign`(p124, plot([58, `+`(t, 0), t = -20 .. -13], color = red, thickness = 10))

`assign`(p125, plot([60, `+`(t, 0), t = -20 .. -13], color = red, thickness = 10))

`assign`(p126, plot([62, `+`(t, 0), t = -20 .. -13], color = red, thickness = 10))

`assign`(p127, plot([64, `+`(t, 0), t = -23 .. -15], color = black, thickness = 5))

`assign`(p128, plot(-13, x = 31 .. 63.3, color = red, thickness = 5))

`assign`(p129, plot(-14, x = 31 .. 55, color = red, thickness = 5))

`assign`(p130, plot(-15, x = 31 .. 55, color = red, thickness = 5))

`assign`(p131, plot(-16.5, x = 35 .. 43, color = green, thickness = 5))

`assign`(p132, plot(-16.5, x = 43 .. 55, color = red, thickness = 5))

`assign`(p133, plot(-16.5, x = 21 .. 35, color = red, thickness = 5))

`assign`(p134, plot(-17.5, x = 21 .. 55, color = red, thickness = 5))

`assign`(p135, plot(-15, x = 20 .. 31, color = black, thickness = 7))

`assign`(p136, plot([20.7, `+`(t, 0), t = -15 .. -10], color = black, thickness = 5))

`assign`(p137, plot(-14, x = 8.5 .. 20, color = red, thickness = 5))

`assign`(p138, plot(-13, x = 8.5 .. 20, color = red, thickness = 5))

`assign`(p139, plot(-12, x = 40 .. 57, color = red, thickness = 10))

`assign`(p140, plot([50, `+`(t, 0), t = -20 .. -16], color = black, thickness = 2))

`assign`(p141, plot([50, `+`(t, 0), t = -16 .. -9], color = black, thickness = 5))

`assign`(p142, plot([`+`(`*`(`/`(1, 20), `*`(cos(t))), 30), `+`(`*`(`/`(1, 20), `*`(sin(t))), `-`(12)), t = 0 .. `+`(`*`(2, `*`(Pi)))], color = black, thickness = 8))

`assign`(p143, plot(-1, x = -40 .. 60, color = green, thickness = 5))

`assign`(p144, plot(-3, x = -40 .. 60, color = green, thickness = 10))

`assign`(p145, plot(-5, x = -40 .. 60, color = green, thickness = 10))

`assign`(p146, plot(-7, x = -40 .. 60, color = green, thickness = 10))

`assign`(p147, plot(-36, x = -40 .. 64, color = gray, thickness = 10))

`assign`(p148, plot(-34, x = 21.5 .. 64, color = gray, thickness = 10))

Plot_2d