> with(plots):

Warning, the name changecoords has been redefined

> p1 := polarplot(.8+sin(3*theta), theta=.1*Pi..(.2*Pi), scaling = constrained):

> p2 := polarplot(.82+sin(3*theta), theta=.1*Pi..(.2*Pi), color=blue):

> p3 := polarplot(.84+sin(3*theta), theta=.1*Pi..(.2*Pi), color=green):

> p4 := polarplot(.865+sin(3*theta), theta=.1*Pi..(.2*Pi), color=blue):

> p5 := polarplot(.89+sin(3*theta), theta=.1*Pi..(.2*Pi), color=blue):

> p6 := polarplot(.91+sin(3*theta), theta=.1*Pi..(.2*Pi)):

> p7 := polarplot(.925+sin(3*theta), theta=.1*Pi..(.2*Pi), color=blue):

> p8 := polarplot(.935+sin(3*theta), theta=.1*Pi..(.2*Pi)):

> p9 := polarplot(.98+sin(3*theta), theta=.1*Pi..(.2*Pi), color=green):

> p10 := polarplot(.6+sin(2*theta), theta=.2*Pi..(.3*Pi), color=blue):

> p11 := polarplot(.63+sin(2*theta), theta=.2*Pi..(.3*Pi), color=green):

> p12 := polarplot(.64+sin(2*theta), theta=.2*Pi..(.3*Pi), color=blue):

> p13 := polarplot(.67+sin(2*theta), theta=.2*Pi..(.3*Pi)):

> p14 := polarplot(.69+sin(2*theta), theta=.2*Pi..(.3*Pi), color=blue):

> p15 := polarplot(.71+sin(2*theta), theta=.2*Pi..(.3*Pi),color=yellow):

> p16 := polarplot(.73+sin(2*theta), theta=.2*Pi..(.3*Pi), color=green):

> p17 := polarplot(.75+sin(2*theta), theta=.2*Pi..(.3*Pi), color=green):

> p18 := polarplot(.785+sin(2*theta), theta=.2*Pi..(.3*Pi),color=yellow):

> p19 := polarplot(.789+sin(2*theta), theta=.2*Pi..(.3*Pi),color=blue):

> p20 := polarplot(.792+sin(2*theta), theta=.2*Pi..(.3*Pi), color=green):

> p21 := plot((sin(.2*Pi)/cos(.2*Pi))*x, x=1..2.1, color=black):

> p22 := polarplot(.8+sin(theta), theta=.3*Pi..(.4*Pi), color=blue):

> p23 := polarplot(.81+sin(theta), theta=.3*Pi..(.4*Pi)):

> p24 := polarplot(.83+sin(theta), theta=.3*Pi..(.4*Pi), color=blue):

> p25 := polarplot(.84+sin(theta), theta=.3*Pi..(.4*Pi),color=yellow):

> p26 := polarplot(.87+sin(theta), theta=.3*Pi..(.4*Pi), color=green):

> p27 := polarplot(.89+sin(theta), theta=.3*Pi..(.4*Pi), color=green):

> p28 := polarplot(.925+sin(theta), theta=.3*Pi..(.4*Pi),color=blue):

> p29 := polarplot(.939+sin(theta), theta=.3*Pi..(.4*Pi),color=blue):

> p30 := polarplot(.942+sin(theta), theta=.3*Pi..(.4*Pi), color=green):

> p31 := plot((sin(.3*Pi)/cos(.3*Pi))*x, x=.75..2.25, color=black):

> p32 := polarplot(1+sin(theta), theta=.4*Pi..(.5*Pi), color=blue):

> p33 := polarplot(1.01+sin(theta), theta=.4*Pi..(.5*Pi)):

> p34 := polarplot(1.03+sin(theta), theta=.4*Pi..(.5*Pi), color=green):

> p35 := polarplot(1.04+sin(theta), theta=.4*Pi..(.5*Pi),color=blue):

> p36 := polarplot(1.06+sin(theta), theta=.4*Pi..(.5*Pi), color=green):

> p37 := polarplot(1.08+sin(theta), theta=.4*Pi..(.5*Pi), color=green):

> p38 := polarplot(1.101+sin(theta), theta=.4*Pi..(.5*Pi),color=yellow):

> p39 := polarplot(1.111+sin(theta), theta=.4*Pi..(.5*Pi),color=blue):

> p40 := polarplot(1.114+sin(theta), theta=.4*Pi..(.5*Pi), color=blue):

> p41 := plot((sin(.4*Pi)/cos(.4*Pi))*x, x=.5..(.7), color=black):

> p42 := plot((sin(.1*Pi)/cos(.1*Pi))*x, x=1.2..2.2, color=black):

> p43 := polarplot(.77+cos(theta), theta=0..(.1*Pi), scaling = constrained):

> p44 := polarplot(.78+cos(theta), theta=0..(.1*Pi), color=green):

> p45 := polarplot(.8+cos(theta), theta=0..(.1*Pi), color=blue):

> p46 := polarplot(.825+cos(theta), theta=0..(.1*Pi), color=blue):

> p47 := polarplot(.83+cos(theta), theta=0..(.1*Pi), color=yellow):

> p48 := polarplot(.84+cos(theta), theta=0..(.1*Pi), color=green):

> p49 := polarplot(.86+cos(theta), theta=0..(.1*Pi), color=blue):

> p50 := polarplot(.88+cos(theta), theta=0..(.1*Pi)):

> p51 := polarplot(.9+cos(theta), theta=0..(.1*Pi), color=green):

> p52 := polarplot(1.02, theta=0..2*Pi, color=orange):

> p53 := polarplot(1.04, theta=0..2*Pi, color=yellow):

> p54 := polarplot(1.06+.03*sin(theta), theta=0..2*Pi, color=green):

> p55 := polarplot(1.08-.05*cos(theta), theta=0..2*Pi, color=green):

> p56 := polarplot(1.1-.07*sin(theta), theta=0..2*Pi, color=blue):

> p57 := polarplot(1.12+.09*cos(theta), theta=0..2*Pi, color=blue):

> p58 := polarplot(1.14+.11*sin(theta), theta=0..2*Pi,color=blue):

> p59 := polarplot(1.16-.13*cos(theta), theta=0..2*Pi, color=green):

> p60 := polarplot(1.18-.15*sin(theta), theta=0..2*Pi,color=green):

> p61 := polarplot(1.20+.17*cos(theta), theta=0..2*Pi, color=green):

> p62 := polarplot(1.22+.19*sin(theta), theta=0..2*Pi, color=blue):

> p63 := polarplot(1.24-.21*cos(theta), theta=0..2*Pi, color=green):

> p64 := polarplot(1.26-.23*sin(theta), theta=0..2*Pi, color=blue):

> p65 := polarplot(1.28+.25*cos(theta), theta=0..2*Pi, color=green):

> p66 := polarplot(1.30+.27*sin(theta), theta=0..2*Pi, color=green):

> p67 := polarplot(1.32-.29*cos(theta), theta=0..2*Pi, color=green):

> p68 := polarplot(1.34-.31*sin(theta), theta=0..2*Pi, color=blue):

> p69 := polarplot(1.36+.33*cos(theta), theta=0..2*Pi, color=green):

> p70 := polarplot(1.38+.35*sin(theta), theta=0..2*Pi, color=green):

> p71 := polarplot(1.4-.37*cos(theta), theta=0..2*Pi, color=blue):

>

> p72 := polarplot(-.82+cos(3*theta), theta=.9*Pi..(Pi), color=blue):

> p73 := polarplot(-.84+cos(3*theta), theta=.9*Pi..(Pi), color=green):

> p74 := polarplot(-.865+cos(3*theta), theta=.9*Pi..(Pi), color=blue):

> p75 := polarplot(-.89+cos(3*theta), theta=.9*Pi..(Pi), color=blue):

> p76 := polarplot(-.91+cos(3*theta), theta=.9*Pi..(Pi)):

> p77 := polarplot(-.925+cos(3*theta), theta=.9*Pi..(Pi), color=blue):

> p78 := polarplot(-.935+cos(3*theta), theta=.9*Pi..(Pi)):

> p79 := polarplot(-.98+cos(3*theta), theta=.9*Pi..(Pi), color=green):

> p80 := polarplot(-.6+cos(3*theta), theta=.8*Pi..(.9*Pi), color=blue):

> p81 := polarplot(-.63+cos(theta), theta=.8*Pi..(.9*Pi), color=green):

> p82 := polarplot(-.64+cos(theta), theta=.8*Pi..(.9*Pi), color=blue):

> p83 := polarplot(-.67+cos(theta), theta=.8*Pi..(.9*Pi)):

> p84 := polarplot(-.69+cos(theta), theta=.8*Pi..(.9*Pi), color=blue):

> p85 := polarplot(-.71+cos(theta), theta=.8*Pi..(.9*Pi),color=yellow):

> p86 := polarplot(-.73+cos(theta), theta=.8*Pi..(.9*Pi), color=green):

> p87 := polarplot(-.75+cos(theta), theta=.8*Pi..(.9*Pi), color=green):

> p88 := polarplot(-.785+cos(theta), theta=.8*Pi..(.9*Pi),color=yellow):

> p89 := polarplot(-.789+cos(theta), theta=.8*Pi..(.9*Pi),color=blue):

> p90 := polarplot(-.792+cos(theta), theta=.8*Pi..(.9*Pi), color=green):

> p91 := plot(-(sin(.2*Pi)/cos(.2*Pi))*x, x=1..2.1, color=black):

> p92 := polarplot(-.8+cos(theta), theta=.7*Pi..(.8*Pi), color=blue):

> p93 := polarplot(-.81+cos(theta), theta=.7*Pi..(.8*Pi)):

> p94 := polarplot(-.83+cos(theta), theta=.7*Pi..(.8*Pi), color=blue):

> p95 := polarplot(-.84+cos(theta), theta=.7*Pi..(.8*Pi),color=yellow):

> p96 := polarplot(-.87+cos(theta), theta=.7*Pi..(.8*Pi), color=green):

> p97 := polarplot(-.89+cos(theta), theta=.7*Pi..(.8*Pi), color=green):

> p98 := polarplot(-.925+cos(theta), theta=.7*Pi..(.8*Pi),color=blue):

> p99 := polarplot(-.939+cos(theta), theta=.7*Pi..(.8*Pi),color=blue):

> p100 := polarplot(-.942+cos(theta), theta=.7*Pi..(.8*Pi), color=green):

> p101 := plot(-(sin(.3*Pi)/cos(.3*Pi))*x, x=.75..1.25, color=black):

> p102 := polarplot(-1.1+sin(theta), theta=.4*Pi..(.5*Pi), color=blue):

> p103 := polarplot(-1.11+cos(theta), theta=.6*Pi..(.7*Pi)):

> p104 := polarplot(-1.13+cos(theta), theta=.6*Pi..(.7*Pi), color=green):

> p105 := polarplot(-1.14+cos(theta), theta=.6*Pi..(.7*Pi),color=blue):

> p106 := polarplot(-1.16+cos(theta), theta=.6*Pi..(.7*Pi), color=green):

> p107 := polarplot(-1.18+cos(theta), theta=.6*Pi..(.7*Pi), color=green):

> p108 := polarplot(-1.201+cos(theta), theta=.6*Pi..(.7*Pi),color=yellow):

> p109 := polarplot(-1.211+cos(theta), theta=.6*Pi..(.7*Pi),color=blue):

> p110 := polarplot(-1.214+cos(theta), theta=.6*Pi..(.7*Pi), color=blue):

> p111 := plot(-(sin(.4*Pi)/cos(.4*Pi))*x, x=.5..(.7), color=black):

> p112 := plot(-(sin(.1*Pi)/cos(.1*Pi))*x, x=1.2..2.2, color=black):

> p113 := polarplot(.77-sin(theta), theta=1.5*Pi..(1.6*Pi), scaling = constrained):

> p114 := polarplot(.78-sin(theta), theta=1.5*Pi..(1.6*Pi), color=green):

> p115 := polarplot(.8-sin(theta), theta=1.5*Pi..(1.6*Pi), color=blue):

> p116 := polarplot(.825-sin(theta), theta=1.5*Pi..(1.6*Pi), color=blue):

> p117 := polarplot(.83-sin(theta), theta=1.5*Pi..(1.6*Pi), color=yellow):

> p118 := polarplot(.84-sin(theta), theta=1.5*Pi..(1.6*Pi), color=green):

> p119 := polarplot(.86-sin(theta), theta=1.5*Pi..(1.6*Pi), color=blue):

> p120 := polarplot(.88-sin(theta), theta=1.5*Pi..(1.6*Pi)):

> p121 := polarplot(.9-sin(theta), theta=1.5*Pi..(1.6*Pi), color=green):

> p122 := polarplot(.85, theta=0..2*Pi, color=blue):

> p123 := polarplot(-.77+sin(theta), theta=1.5*Pi..1.6*Pi):

> p124 := polarplot(-.78+sin(theta), theta=1.5*Pi..(1.6*Pi), color=green):

> p125 := polarplot(-.8+sin(theta), theta=1.5*Pi..(1.6*Pi), color=blue):

> p126 := polarplot(-.825+sin(theta), theta=1.5*Pi..(1.6*Pi), color=blue):

> p127 := polarplot(-.83+sin(theta), theta=1.5*Pi..(1.6*Pi), color=yellow):

> p128 := polarplot(-.84+sin(theta), theta=1.5*Pi..(1.6*Pi), color=green):

> p129 := polarplot(-.86+sin(theta), theta=1.5*Pi..(1.6*Pi), color=blue):

> p130 := polarplot(-.88+sin(theta), theta=1.5*Pi..(1.6*Pi)):

> p131 := polarplot(-.9+sin(theta), theta=1.5*Pi..(1.6*Pi), color=green):

> p132 := polarplot(-.9, theta=0..2*Pi, color=blue):

> p133 := plot(-(sin(.4*Pi)/cos(.4*Pi))*x, x=-.5..(-.7), color=black):

> p134 := polarplot(-.97+sin(theta), theta=1.6*Pi..1.7*Pi):

> p135 := polarplot(-.98+sin(theta), theta=1.6*Pi..(1.7*Pi), color=green):

> p136 := polarplot(-1.08+sin(theta), theta=1.6*Pi..(1.7*Pi), color=blue):

> p137 := polarplot(-1.025+sin(theta), theta=1.6*Pi..(1.7*Pi), color=blue):

> p138 := polarplot(-1.03+sin(theta), theta=1.6*Pi..(1.7*Pi), color=yellow):

> p139 := polarplot(-1.04+sin(theta), theta=1.6*Pi..(1.7*Pi), color=green):

> p140 := polarplot(-1.06+sin(theta), theta=1.6*Pi..(1.7*Pi), color=blue):

> p141 := polarplot(-1.08+sin(theta), theta=1.6*Pi..(1.7*Pi)):

> p142 := polarplot(-1.09+sin(theta), theta=1.6*Pi..(1.7*Pi), color=green):

> p143 := plot(-(sin(.3*Pi)/cos(.3*Pi))*x, x=-.6..(-2), color=black):

> p144 := polarplot(-.97-1.5*cos(theta), theta=1.7*Pi..1.8*Pi):

> p145 := polarplot(-.98-1.5*cos(theta), theta=1.7*Pi..(1.8*Pi), color=green):

> p146 := polarplot(-1.08-1.5*cos(theta), theta=1.7*Pi..(1.8*Pi), color=blue):

> p147 := polarplot(-1.025-1.5*cos(theta), theta=1.7*Pi..(1.8*Pi), color=blue):

> p148 := polarplot(-1.03-1.5*cos(theta), theta=1.7*Pi..(1.8*Pi), color=yellow):

> p149 := polarplot(-1.04-1.5*cos(theta), theta=1.7*Pi..(1.8*Pi), color=green):

> p150 := polarplot(-1.06-1.5*cos(theta), theta=1.7*Pi..(1.8*Pi), color=blue):

> p151 := polarplot(-1.08-1.5*cos(theta), theta=1.7*Pi..(1.8*Pi)):

> p152 := polarplot(-1.09-1.5*cos(theta), theta=1.7*Pi..(1.8*Pi), color=green):

> p153 := plot(-(sin(.2*Pi)/cos(.2*Pi))*x, x=-.6..(-2), color=black):

> p154 := polarplot(-.97-1.2*cos(theta), theta=1.8*Pi..1.9*Pi):

> p155 := polarplot(-.98-1.2*cos(theta), theta=1.8*Pi..(1.9*Pi), color=green):

> p156 := polarplot(-1.08-1.2*cos(theta), theta=1.8*Pi..(1.9*Pi), color=blue):

> p157 := polarplot(-1.025-1.2*cos(theta), theta=1.8*Pi..(1.9*Pi), color=blue):

> p158 := polarplot(-1.03-1.2*cos(theta), theta=1.8*Pi..(1.9*Pi), color=yellow):

> p159 := polarplot(-1.04-1.2*cos(theta), theta=1.8*Pi..(1.9*Pi), color=green):

> p160 := polarplot(-1.06-1.2*cos(theta), theta=1.8*Pi..(1.9*Pi), color=blue):

> p161 := polarplot(-1.08-1.2*cos(theta), theta=1.8*Pi..(1.9*Pi)):

> p162 := polarplot(-1.09-1.2*cos(theta), theta=1.8*Pi..(1.9*Pi), color=green):

> p163 := plot(-(sin(.2*Pi)/cos(.2*Pi))*x, x=-.6..(-3), color=black):

> p164 := polarplot(-.97-cos(1.1*theta), theta=1.9*Pi..2*Pi):

> p165 := polarplot(-.98-cos(1.1*theta), theta=1.9*Pi..(2*Pi), color=green):

> p166 := polarplot(-1.08-cos(1.1*theta), theta=1.9*Pi..(2*Pi), color=blue):

> p167 := polarplot(-1.025-cos(1.1*theta), theta=1.9*Pi..(2*Pi), color=blue):

> p168 := polarplot(-1.03-cos(1.1*theta), theta=1.9*Pi..(2*Pi), color=yellow):

> p169 := polarplot(-1.04-cos(1.1*theta), theta=1.9*Pi..(2*Pi), color=green):

> p170 := polarplot(-1.06-cos(1.1*theta), theta=1.9*Pi..(2*Pi), color=blue):

> p171 := polarplot(-1.08-cos(1.1*theta), theta=1.9*Pi..(2*Pi)):

> p172 := polarplot(-1.09-cos(1.1*theta), theta=1.9*Pi..(2*Pi), color=green):

> p173 := plot(-(sin(.1*Pi)/cos(.1*Pi))*x, x=-.6..(-3), color=black):

> p174 := polarplot(-.98-.8*cos(2*theta), theta=2*Pi..2.1*Pi):

> p175 := polarplot(-.98-.8*cos(2*theta), theta=2*Pi..(2.1*Pi), color=green):

> p176 := polarplot(-1.08-.8*cos(2*theta), theta=2*Pi..(2.1*Pi), color=blue):

> p177 := polarplot(-1.025-.8*cos(2*theta), theta=2*Pi..(2.1*Pi), color=blue):

> p178 := polarplot(-1.03-.8*cos(2*theta), theta=2*Pi..(2.1*Pi), color=yellow):

> p179 := polarplot(-1.04-.8*cos(2*theta), theta=2*Pi..(2.1*Pi), color=green):

> p180 := polarplot(-1.06-.8*cos(2*theta), theta=2*Pi..(2.1*Pi), color=blue):

> p181 := polarplot(-1.08-.8*cos(2*theta), theta=2*Pi..(2.1*Pi)):

> p182 := polarplot(-1.09-.8*cos(2*theta), theta=2*Pi..(2.1*Pi), color=green):

> p183 := plot(0, x=-1.5..(-3), color=black):

> p184 := polarplot(-1.1-cos(2*theta), theta=2.1*Pi..2.2*Pi):

> p185 := polarplot(-1.11-cos(2*theta), theta=2.1*Pi..(2.2*Pi), color=green):

> p186 := polarplot(-1.12-cos(2*theta), theta=2.1*Pi..(2.2*Pi), color=blue):

> p187 := polarplot(-1.13-cos(2*theta), theta=2.1*Pi..(2.2*Pi), color=blue):

> p188 := polarplot(-1.14-cos(2*theta), theta=2.1*Pi..(2.2*Pi), color=yellow):

> p189 := polarplot(-1.15-cos(2*theta), theta=2.1*Pi..(2.2*Pi), color=green):

> p190 := polarplot(-1.16-cos(2*theta), theta=2.1*Pi..(2.2*Pi), color=blue):

> p191 := polarplot(-1.17-cos(2*theta), theta=2.1*Pi..(2.2*Pi)):

> p192 := polarplot(-1.18-cos(2*theta), theta=2.1*Pi..(2.2*Pi), color=green):

> p193 := plot((sin(2.1*Pi)/cos(2.1*Pi))*x, x=-1.5..(-2.4), color=black):

> p194 := polarplot(-.90-cos(2*theta-2.3), theta=2.2*Pi..2.3*Pi):

> p195 := polarplot(-.91-cos(2*theta-2.3), theta=2.2*Pi..(2.3*Pi), color=green):

> p196 := polarplot(-.92-cos(2*theta-2.3), theta=2.2*Pi..(2.3*Pi), color=blue):

> p197 := polarplot(-.93-cos(2*theta-2.3), theta=2.2*Pi..(2.3*Pi), color=blue):

> p198 := polarplot(-.94-cos(2*theta-2.3), theta=2.2*Pi..(2.3*Pi), color=yellow):

> p199 := polarplot(-.95-cos(2*theta-2.3), theta=2.2*Pi..(2.3*Pi), color=green):

> p200 := polarplot(-.96-cos(2*theta-2.3), theta=2.2*Pi..(2.3*Pi), color=blue):

> p201 := polarplot(-.97-cos(2*theta-2.3), theta=2.2*Pi..(2.3*Pi)):

> p202 := polarplot(-.98-cos(2*theta-2.3), theta=2.2*Pi..(2.3*Pi), color=green):

> p203 := plot((sin(2.2*Pi)/cos(2.2*Pi))*x, x=-.9..(-2.1), color=black):

> p204 := polarplot(-.90-.7*cos(2*theta-2.3), theta=2.3*Pi..2.4*Pi):

> p205 := polarplot(-.91-.7*cos(2*theta-2.3), theta=2.3*Pi..(2.4*Pi), color=green):

> p206 := polarplot(-.925-.7*cos(2*theta-2.3), theta=2.3*Pi..(2.4*Pi), color=blue):

> p207 := polarplot(-.939-.7*cos(2*theta-2.3), theta=2.3*Pi..(2.4*Pi), color=blue):

> p208 := polarplot(-.957-.7*cos(2*theta-2.3), theta=2.3*Pi..(2.4*Pi), color=yellow):

> p209 := polarplot(-.970-.7*cos(2*theta-2.3), theta=2.3*Pi..(2.4*Pi), color=green):

> p210 := polarplot(-.983-.7*cos(2*theta-2.3), theta=2.3*Pi..(2.4*Pi), color=blue):

> p211 := polarplot(-.995-.7*cos(2*theta-2.3), theta=2.3*Pi..(2.4*Pi)):

> p212 := polarplot(-1.01-.7*cos(2*theta-2.3), theta=2.3*Pi..(2.4*Pi), color=green):

> p213 := plot((sin(2.3*Pi)/cos(2.3*Pi))*x, x=-.5..(-2.1), color=black):

> p214 := polarplot(-1.01-cos(2*theta-1.8), theta=2.4*Pi..2.5*Pi):

> p215 := polarplot(-1.02-cos(2*theta-1.8), theta=2.4*Pi..(2.5*Pi), color=green):

> p216 := polarplot(-1.035-cos(2*theta-1.8), theta=2.4*Pi..(2.5*Pi), color=blue):

> p217 := polarplot(-1.05-cos(2*theta-1.8), theta=2.4*Pi..(2.5*Pi), color=blue):

> p218 := polarplot(-1.065-cos(2*theta-1.8), theta=2.4*Pi..(2.5*Pi), color=yellow):

> p219 := polarplot(-1.08-cos(2*theta-1.8), theta=2.4*Pi..(2.5*Pi), color=green):

> p220 := polarplot(-1.10-cos(2*theta-1.8), theta=2.4*Pi..(2.5*Pi), color=blue):

> p221 := polarplot(-1.12-cos(2*theta-1.8), theta=2.4*Pi..(2.5*Pi)):

> p222 := polarplot(-1.13-cos(2*theta-1.8), theta=2.4*Pi..(2.5*Pi), color=green):

> p223 := plot((sin(.7*Pi)/cos(.7*Pi))*x, x=-1..(-4), color=blue):

> p224 := plot((sin(.71*Pi)/cos(.71*Pi))*x, x=-1.1..(-4.2), color=green):

> p225 := plot((sin(.72*Pi)/cos(.72*Pi))*x, x=-1.2..(-4.6), color=blue):

> p226 := plot((sin(.73*Pi)/cos(.73*Pi))*x, x=-1.3..(-5.2), color=green):

> p227 := plot((sin(.74*Pi)/cos(.74*Pi))*x, x=-1.4..(-6), color=blue):

> p228 := plot((sin(.75*Pi)/cos(.75*Pi))*x, x=-1.5..(-6.8), color=green):

> p229 := plot((sin(.76*Pi)/cos(.76*Pi))*x, x=-1.6..(-7.8), color=blue):

> p230 := plot((sin(.77*Pi)/cos(.77*Pi))*x, x=-1.7..(-8), color=green):

> p231 := plot((sin(.78*Pi)/cos(.78*Pi))*x, x=-1.7..(-9.4), color=blue):

> p232 := plot((sin(.79*Pi)/cos(.79*Pi))*x, x=-1.7..(-10.8), color=green):

> p233 := plot((sin(.80*Pi)/cos(.80*Pi))*x, x=-1.7..(-11.2), color=blue):

> p234 := plot((sin(.81*Pi)/cos(.81*Pi))*x, x=-1.7..(-12.8), color=green):

> p235 := plot((sin(.82*Pi)/cos(.82*Pi))*x, x=-1.8..(-11.3), color=blue):

> p236 := plot((sin(.83*Pi)/cos(.83*Pi))*x, x=-1.9..(-10.9), color=green):

> p237 := plot((sin(.84*Pi)/cos(.84*Pi))*x, x=-1.9..(-9.5), color=blue):

> p238 := plot((sin(.85*Pi)/cos(.85*Pi))*x, x=-1.9..(-8.1), color=green):

> p239 := plot((sin(.86*Pi)/cos(.86*Pi))*x, x=-1.9..(-7.9), color=blue):

> p240 := plot((sin(.87*Pi)/cos(.87*Pi))*x, x=-1.9..(-6.9), color=green):

> p241 := plot((sin(.88*Pi)/cos(.88*Pi))*x, x=-1.9..(-6.1), color=blue):

> p242 := plot((sin(.89*Pi)/cos(.89*Pi))*x, x=-1.9..(-5.3), color=green):

> p243 := plot([8*cos(x)+6.2, 8*sin(x)-5, x=Pi/2..4.4*Pi/6], color=black):

> p244 := plot(0, x=1.5..2.3, color=black):

> p245 := plot([8*cos(x)+6.2, 8*sin(x)-5, x=5.1*Pi/6..Pi], color=black):

> p246 := plot([7.9*cos(x)+6.2, 7.9*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p247 := plot([7.8*cos(x)+6.2, 7.8*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p248 := plot([7.7*cos(x)+6.2, 7.7*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p249 := plot([7.6*cos(x)+6.2, 7.6*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p250 := plot([7.5*cos(x)+6.2, 7.5*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p251 := plot([7.4*cos(x)+6.2, 7.4*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p252 := plot([7.3*cos(x)+6.2, 7.3*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p253 := plot([7.2*cos(x)+6.2, 7.2*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p254 := plot([7.1*cos(x)+6.2, 7.1*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p255 := plot([7.0*cos(x)+6.2, 7.0*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p256 := plot([6.9*cos(x)+6.2, 6.9*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p257 := plot([6.8*cos(x)+6.2, 6.8*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p258 := plot([6.7*cos(x)+6.2, 6.7*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p259 := plot([6.6*cos(x)+6.2, 6.6*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p260 := plot([6.5*cos(x)+6.2, 6.5*sin(x)-5, x=5.1*Pi/6..Pi], color=grey):

> p261 := plot([7.9*cos(x)+6.2, 7.9*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p262 := plot([7.8*cos(x)+6.2, 7.8*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p263 := plot([7.7*cos(x)+6.2, 7.7*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p264 := plot([7.6*cos(x)+6.2, 7.6*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p265 := plot([7.5*cos(x)+6.2, 7.5*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p266 := plot([7.4*cos(x)+6.2, 7.4*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p267 := plot([7.3*cos(x)+6.2, 7.3*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p268 := plot([7.2*cos(x)+6.2, 7.2*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p269 := plot([7.1*cos(x)+6.2, 7.1*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p270 := plot([7.0*cos(x)+6.2, 7.0*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p271 := plot([6.9*cos(x)+6.2, 6.9*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p272 := plot([6.8*cos(x)+6.2, 6.8*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p273 := plot([6.7*cos(x)+6.2, 6.7*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p274 := plot([6.6*cos(x)+6.2, 6.6*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p275 := plot([6.5*cos(x)+6.2, 6.5*sin(x)-5, x=Pi/2..4.4*Pi/6], color=grey):

> p276 := plot([6.4*cos(x)+6.2, 6.4*sin(x)-5, x=Pi/2..Pi], color=grey):

> p277 := plot([6.3*cos(x)+6.2, 6.3*sin(x)-5, x=Pi/2..Pi], color=grey):

> p278 := plot([6.2*cos(x)+6.2, 6.2*sin(x)-5, x=Pi/2..Pi], color=grey):

> p279 := plot([6.1*cos(x)+6.2, 6.1*sin(x)-5, x=Pi/2..Pi], color=grey):

> p280 := plot([6.0*cos(x)+6.2, 6.0*sin(x)-5, x=Pi/2..Pi], color=grey):

> p281 := plot([5.9*cos(x)+6.2, 5.9*sin(x)-5, x=Pi/2..Pi], color=grey):

> p282 := plot([5.8*cos(x)+6.2, 5.8*sin(x)-5, x=Pi/2..Pi], color=grey):

> p283 := plot([5.7*cos(x)+6.2, 5.7*sin(x)-5, x=Pi/2..Pi], color=grey):

> p284 := plot([5.6*cos(x)+6.2, 5.6*sin(x)-5, x=Pi/2..Pi], color=grey):

> p285 := plot([5.5*cos(x)+6.2, 5.5*sin(x)-5, x=Pi/2..Pi], color=grey):

> p286 := plot([5.4*cos(x)+6.2, 5.4*sin(x)-5, x=Pi/2..Pi], color=grey):

> p287 := plot([5.3*cos(x)+6.2, 5.3*sin(x)-5, x=Pi/2..Pi], color=grey):

> p288 := plot([5.2*cos(x)+6.2, 5.2*sin(x)-5, x=Pi/2..Pi], color=grey):

> p289 := plot([5.1*cos(x)+6.2, 5.1*sin(x)-5, x=Pi/2..Pi], color=grey):

> p290 := plot([5.0*cos(x)+6.2, 5.0*sin(x)-5, x=Pi/2..Pi], color=grey):

> p291 := plot([4.9*cos(x)+6.2, 4.9*sin(x)-5, x=Pi/2..Pi], color=grey):

> p292 := plot([4.8*cos(x)+6.2, 4.8*sin(x)-5, x=Pi/2..Pi], color=grey):

> p293 := plot([4.7*cos(x)+6.2, 4.7*sin(x)-5, x=Pi/2..Pi], color=grey):

> p294 := plot([4.6*cos(x)+6.2, 4.6*sin(x)-5, x=Pi/2..Pi], color=grey):

> p295 := plot([4.5*cos(x)+6.2, 4.5*sin(x)-5, x=Pi/2..Pi], color=grey):

> p296 := plot([4.4*cos(x)+6.2, 4.4*sin(x)-5, x=Pi/2..Pi], color=grey):

> p297 := plot([4.3*cos(x)+6.2, 4.3*sin(x)-5, x=Pi/2..Pi], color=grey):

> p298 := plot([4.2*cos(x)+6.2, 4.2*sin(x)-5, x=Pi/2..Pi], color=grey):

> p299 := plot([4.1*cos(x)+6.2, 4.1*sin(x)-5, x=Pi/2..Pi], color=grey):

> p300 := plot([.1*cos(x), .1*sin(x), x=0..2*Pi], color=green):

> p301 := plot([.1*cos(x), .1*sin(x), x=0..2*Pi], color=blue):

> p302 := plot([.2*cos(x), .2*sin(x), x=0..2*Pi], color=green):

> p303 := plot([.3*cos(x), .3*sin(x), x=0..2*Pi], color=blue):

> p304 := plot([.4*cos(x), .4*sin(x), x=0..2*Pi], color=green):

> p305 := plot([.5*cos(x), .5*sin(x), x=0..2*Pi], color=blue):

> p306 := plot([.6*cos(x), .6*sin(x), x=0..2*Pi], color=green):

> p307 := plot([.7*cos(x), .7*sin(x), x=0..2*Pi], color=blue):

>

> 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, 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, p97, p98, p99, p100, p101, p102, p103, p104, p105, p106, p107, p108, p109, p110, p111, p112, p113, p114, p115, p116, p117, p118, p119, p120, p121, p122, p123, p124, p125, p126, p127, p128, p129, p130, p131, p132, p133, p134, p135, p136, p137, p138, p139, p140, p141, p142, p143, p144, p145, p146, p147, p148, p149, p150, p151, p152, p153, p154, p155, p156, p157, p158, p159, p160, p161, p162, p163, p164, p165, p166, p167, p168, p169, p170, p171, p172, p173, p174, p175, p176, p177, p178, p179, p180, p181, p182, p183, p184, p185, p186, p187, p188, p189, p190, p191, p192, p193, p194, p195, p196, p197, p198, p199, p200, p201, p202, p203, p204, p205, p206, p207, p208, p209, p210, p211, p212, p213, p214, p215, p216, p217, p218, p219, p220, p221, p222, p223, p224, p225, p226, p227, p228, p229, p230, p231, p232, p233, p234, p235, p236, p237, p238, p239, p240, p241, p242, p243, p244, p245, p246, p247, p248, p249, p250, p251, p252, p253, p254, p255, p256, p257, p258, p259, p260, p261, p262, p263, p264, p265, p266, p267, p268, p269, p270, p271, p272, p273, p274, p275, p276, p277, p278, p279, p280, p281, p282, p283, p284, p285, p286, p287, p288, p289, p290, p291, p292, p293, p294, p295, p296, p297, p298, p299, p300, p301, p302, p303, p304, p305, p306, p307);