> with(student):

> with(plots):

> macro(coolblue=COLOR(RGB, .0, .5607, .7372)):

>

Thirteen Stars of the USA flag:

> p1:= plot([sin(cos(5*t))*sin(t)+5*cos(6*Pi/13), sin(cos(5*t))*cos(t)+5*sin(6*Pi/13), t=0..Pi], color=gold):

>

> p2:= plot([sin(cos(5*t))*sin(t)+5*cos(8*Pi/13), sin(cos(5*t))*cos(t)+5*sin(8*Pi/13), t=0..Pi], color=gold):

>

> p3:= plot([sin(cos(5*t))*sin(t)+5*cos(10*Pi/13), sin(cos(5*t))*cos(t)+5*sin(10*Pi/13), t=0..Pi], color=gold):

>

> p4:= plot([sin(cos(5*t))*sin(t)+5*cos(12*Pi/13), sin(cos(5*t))*cos(t)+5*sin(12*Pi/13), t=0..Pi], color=gold):

>

> p5:= plot([sin(cos(5*t))*sin(t)+5*cos(14*Pi/13), sin(cos(5*t))*cos(t)+5*sin(14*Pi/13), t=0..Pi], color=gold):

>

> p6:= plot([sin(cos(5*t))*sin(t)+5*cos(16*Pi/13), sin(cos(5*t))*cos(t)+5*sin(16*Pi/13), t=0..Pi], color=gold):

>

> p7:= plot([sin(cos(5*t))*sin(t)+5*cos(18*Pi/13), sin(cos(5*t))*cos(t)+5*sin(18*Pi/13), t=0..Pi], color=gold):

>

> p8:= plot([sin(cos(5*t))*sin(t)+5*cos(20*Pi/13), sin(cos(5*t))*cos(t)+5*sin(20*Pi/13), t=0..Pi], color=gold):

>

> p9:= plot([sin(cos(5*t))*sin(t)+5*cos(22*Pi/13), sin(cos(5*t))*cos(t)+5*sin(22*Pi/13), t=0..Pi], color=gold):

>

> p10:= plot([sin(cos(5*t))*sin(t)+5*cos(24*Pi/13), sin(cos(5*t))*cos(t)+5*sin(24*Pi/13), t=0..Pi], color=gold):

>

> p11:= plot([sin(cos(5*t))*sin(t)+5*cos(26*Pi/13), sin(cos(5*t))*cos(t)+5*sin(26*Pi/13), t=0..Pi], color=gold):

>

> p12:= plot([sin(cos(5*t))*sin(t)+5*cos(28*Pi/13), sin(cos(5*t))*cos(t)+5*sin(28*Pi/13), t=0..Pi], color=gold):

>

> p13:= plot([sin(cos(5*t))*sin(t)+5*cos(30*Pi/13), sin(cos(5*t))*cos(t)+5*sin(30*Pi/13), t=0..Pi], color=gold):

>

The first few stripes of the USA flag:

> p14:= plot(sin(x)/5-23, x=-7.978..15):

>

> p15:= plot(sin(x)/5-20.5, x=-7.9..15):

>

> p16:= plot(sin(x)/5-18, x=-7.829..15):

>

> p17:= plot(sin(x)/5-15.5, x=-7.8..15):

>

> p18:= plot(sin(x)/5-13, x=-7.3..15):

>

> p19:= plot(sin(x)/5-10.5, x=-7.2..15):

>

> p20:= plot(sin(x)/5-8, x=-7..15):

The next stripes of the USA flag:

> p21:= plot(sin(x)/5-5.5, x=7..15):

>

> p22:= plot(sin(x)/5-3, x=7..15):

>

> p23:= plot(sin(x)/5-.5, x=7..15):

>

> p24:= plot(sin(x)/5+2, x=7..15):

>

> p25:= plot(sin(x)/5+4.5, x=7..15):

>

> p26:= plot(sin(x)/5+7, x=-6.64..15):

>

The second wave of stripes of the USA flag:

> p27:= plot(sin(x)/4-22, x=15..34.12):

>

> p28:= plot(sin(x)/4-19.5, x=15..34.10):

>

> p29:= plot(sin(x)/4-17, x=15..34.38):

>

> p30:= plot(sin(x)/4-14.5, x=15..34.79):

>

> p31:= plot(sin(x)/4-12, x=15..34.83):

>

> p32:= plot(sin(x)/4-9.5, x=15..34.7):

>

> p33:= plot(sin(x)/4-7, x=15..35):

>

> p34:= plot(sin(x)/4-4.5, x=15..34.7):

>

> p35:= plot(sin(x)/4-2, x=15..35):

>

> p36:= plot(sin(x)/4+.5, x=15..35):

>

> p37:= plot(sin(x)/4+3, x=15..35):

>

> p38:= plot(sin(x)/4+5.5, x=15..35.2):

>

> p39:= plot(sin(x)/4+8, x=15..35.25):

>

The vertical edges of the USA flag:

> p40:= plot(((x+7)/.05),x=-8.155..-6.64,thickness=1):

>

> p41:= plot(((x-35)/.04),x=34.12..35.32,thickness=1):

>

> p42:= plot(((x-7)/.05),x=6.6..7.37,thickness=1):

>

USA's pole:

> p43:= plot(((x+8)/.05), x=-10..-7.6, thickness=4, color=black):

>

> p44:= plot([1.5*cos(x)-7.5,1.5*sin(x)+9.4, x=0..2*Pi],thickness=2, color=gold):

>

More of the USA flag:

> p45:= plot([15,t,t=-22.9..-21.9]):

>

> p46:= plot([15,t,t=-20.3..-19.3]):

>

> p47:= plot([15,t,t=-17.9..-16.9]):

>

> p48:= plot([15,t,t=-15.5..-14.5]):

>

> p49:= plot([15,t,t=-13.01..-12.01]):

>

> p50:= plot([15,t,t=-10.4..-9.4]):

>

> p51:= plot([15,t,t=-7.9..-6.9]):

>

> p52:= plot([15,t,t=-5.3..-4.4]):

>

> p53:= plot([15,t,t=-2.9..-1.94]):

>

> p54:= plot([15,t,t=-.35..(.79)]):

>

> p55:= plot([15,t,t=2.1..3.1]):

>

> p56:= plot([15,t,t=4.6..5.7]):

>

> p57:= plot([15,t,t=7.1..8.2]):

>

The sun of the Argentinian flag

> p58:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=-Pi/64..Pi/64],thickness=2, color=gold):

>

> p59:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=7*Pi/64..9*Pi/64],thickness=2, color=gold):

>

> p60:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=15*Pi/64..17*Pi/64],thickness=2, color=gold):

>

> p61:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=23*Pi/64..25*Pi/64],thickness=2, color=gold):

>

> p62:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=31*Pi/64..33*Pi/64],thickness=2, color=gold):

>

> p63:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=39*Pi/64..41*Pi/64],thickness=2, color=gold):

>

> p64:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=47*Pi/64..49*Pi/64],thickness=2, color=gold):

>

> p65:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=55*Pi/64..57*Pi/64],thickness=2, color=gold):

>

> p66:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=63*Pi/64..65*Pi/64],thickness=2, color=gold):

>

> p67:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=71*Pi/64..73*Pi/64],thickness=2, color=gold):

>

> p68:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=79*Pi/64..81*Pi/64],thickness=2, color=gold):

>

> p69:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=87*Pi/64..89*Pi/64],thickness=2, color=gold):

>

> p70:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=95*Pi/64..97*Pi/64],thickness=2, color=gold):

>

> p71:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=103*Pi/64..105*Pi/64],thickness=2, color=gold):

>

> p72:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=111*Pi/64..113*Pi/64],thickness=2, color=gold):

>

> p73:= plot([4.5*cos(16*t)*cos(t)-32, 4.5*cos(16*t)*sin(t)-9, t=119*Pi/64..121*Pi/64],thickness=2, color=gold):

>

The face of the sun on the Argentinian flag

> p74:= plot([3.3*cos(t)-32, 3.3*sin(t)-9,t=0..2*Pi],thickness=2, color=gold):

>

> p75:= plot([1.6*cos(t)-32, 1.6*sin(t)-9.7,t=14*Pi/11..19*Pi/11],thickness=2, color=gold):

>

> p76:= plot([2*cos(t)-32, 2*sin(t)-9.8,t=15.5*Pi/11..17.5*Pi/11],thickness=2, color=gold):

>

> p77:= plot([.2*cos(t)-30.75, .3*sin(t)-8.4,t=0..2*Pi],thickness=2, color=gold):

>

> p78:= plot([.2*cos(t)-33.25, .3*sin(t)-8.4,t=0..2*Pi],thickness=2, color=gold):

>

> p79:= plot([.8*cos(t)-30.75, .8*sin(t)-8.1,t=Pi..2*Pi], color=gold):

>

> p80:= plot([.8*cos(t)-33.25, .8*sin(t)-8.1,t=Pi..2*Pi], color=gold):

>

> p81:= plot([2*cos(t)-30.75, 2*sin(t)-9.9,t=Pi/3..2*Pi/3],thickness=3, color=gold):

>

> p82:= plot([2*cos(t)-33.25, 2*sin(t)-9.9,t=Pi/3..2*Pi/3],thickness=3, color=gold):

>

> p83:= plot([.3*cos(t)+.46, .3*sin(t)+5.03,t=15.5*Pi/11..17.5*Pi/11], scaling=constrained, color=gold):

>

> p84:= plot([-31.6, t, t=-10..-9.8],thickness=6, color=gold):

>

> p85:= plot([-32.4, t, t=-10..-9.8],thickness=6, color=gold):

>

The stripes of the Argentinian flag

> p86:= plot(sin(x)/5-24, x=-53..-10.2,color=coolblue):

>

> p87:= plot(sin(x)/5-14, x=-53..-10.5,color=coolblue):

>

> p88:= plot(sin(x)/5-4, x=-53.8..-11,color=coolblue):

>

> p89:= plot(sin(x)/5+6, x=-54.36..-11.7,color=coolblue):

>

The sides of the Argentinian flag

> p90:= plot(((x+11.4)/(-.05)),x=-11.7..-10.2,thickness=1,color=coolblue):

>

> p91:= plot(((x+54)/(-.05)),x=-54.31..-52.796,thickness=1,color=coolblue):

>

Argentina's pole

> p92:= plot(((x+10.3)/(-.05)), x=-10.7..-8.3, thickness=4, color=black):

>

> p93:= plot([1.5*cos(x)-10.7,1.5*sin(x)+9.7, x=0..2*Pi], color=gold, thickness=2):

>

>

> 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,p41,p42,p43,p44,p45,p46,p47,p48,p49,p50,p51,p52,p53,p54,p55,p56,p57,p58,p59,p60,p61,p62,p63,p64,p65,p66,p67,p68,p69,p70,p71,p72,p73,p74,p75,p76,p77,p78,p79,p80,p81,p82,p83,p84,p85,p86,p87,p88,p89,p90,p91,p92,p93,p94,p95,p96);

>

>