Katherine.mws

> with(plots);

Warning, the name changecoords has been redefined

[animate, animate3d, animatecurve, arrow, changecoo...
[animate, animate3d, animatecurve, arrow, changecoo...
[animate, animate3d, animatecurve, arrow, changecoo...
[animate, animate3d, animatecurve, arrow, changecoo...

> p1:=plot([sin(t), cos(t), t=0..2*Pi], color=gold, scaling=constrained):

> p2:=plot([-sin(t)+2.5, cos(t), t=0..2*Pi], color=gold):

> p3:=plot([.2*sin(t)-.3, .3*cos(t)+.2, t=0..2*Pi], color=black, filled=true):

> p4:=plot([-.2*sin(t)+2.7, .3*cos(t)+.2, t=0..2*Pi], color=black, filled=true):

> p5:=plot([.7*sin(t)+1.25, .5*cos(t), t=-.5..(.5)], color=gold):

> p6:=plot([-1.1*sin(t)+2.6, 1.1*cos(t)+.1, t=-1.2..Pi/2], color=gold):

> p7:=plot([1.1*sin(t)-.15, 1.1*cos(t)+.1, t=-1.2..Pi/2], color=gold):

> p8:=plot([.6*sin(t)+1.25, .4*cos(t)-1, t=0..2*Pi], color=brown):

> p9:=plot([cos(t)+4, cos(t)*cos(t)+.35, t=1..2], color=gold):

> p10:=plot([-cos(t)-1.6, cos(t)*cos(t)+.35, t=1..2], color=gold):

> p11:=plot([4.3*sin(t)+1.1, 4*cos(t), t=1.3..4.85], color=brown):

> p12:=polarplot([1.3*sin(t)+4, cos(t)+2.1, t=0..2*Pi], color=violet):

> p13:=polarplot([3*sin(2*t)+3,t-0.13, t=0.5..1.3], color=brown):

> p14:=plot([5.2,t, t=1.1..2.1], color=brown):

> p15:=plot([1.2*sin(t)*sin(t)+1.2, 1.2*cos(t)*cos(t)-5.2, t=0..2*Pi], color=tan):

> p16:=plot([-1.2*sin(t)*sin(t)+1.2, 1.2*cos(t)*cos(t)-5.2, t=0..10], color=tan):

> p17:=plot([2*cos(t)+2.65, 3*cos(t)*cos(t)-4.65, t=0.7..1.2], color=tan):

> p18:=plot([sin(t)*sin(t)-1.05,cos(t)*cos(t)-5.15,t=0..5], color=tan):

> p19:=plot([-sin(t)*sin(t)+3.4, cos(t)*cos(t)-5.2, t=0..5], color=tan):

> p20:=plot([-2*cos(t)-0.3, 3*cos(t)*cos(t)-4.5, t=0.8..1.2], color=tan):

> p21:=plot([1.25, t, t=-1.36..-1.7], color=black):

> p22:=plot([-.5*sin(t)+1.27, cos(t)*cos(t)-2.7, t=.6..1.5*Pi], color=black):

> p23:=plot([-3*sin(t+2.4)-1.3, -1.5*cos(t)+2, t=0..2.6], color=violet):

> p24:=plot([-(3*t)+1,-3.4*t+3, t=0..(.5)], color=violet):

> p25:=plot([-(3*t)+.5, -3.4*t+2.8, t=-.075..(.5)], color=violet):

> p26:=plot([-(3*t), -3.4*t+2.6, t=-.1..(.5)], color=tan):

> p27:=plot([-3*t-.5, -3.4*t+2.4, t=-.1..(.5)], color=violet):

> p28:=plot([-3*t-1, -3.4*t+2.2, t=-.1..(.45)], color=violet):

> p29:=plot([-3*t-1.5, -3.4*t+2, t=-.1..(.4)], color=tan):

> p30:=plot([-3*t-2, -3.4*t+1.8, t=0..(.35)], color=violet):

> p31:=plot([-3*t+1.5, -3.4*t+3.2, t=0..(.5)], color=tan):

> p32:=plot([-3*t+2, -3.4*t+3.4, t=.1..(.5)], color=violet):

> p33:=polarplot([1.3*sin(t)+3.8,cos(t)+2.1, t=.4..2], color=tan):

> p34:=polarplot([1.3*sin(t)+3.6, cos(t)+2.1, t=.4..2], color=violet):

> p35:=polarplot([5*sin(4*t)*cos(t)+5, -2*sin(t)*cos(t)-5, t=1.7..2], color=violet):

> p36:=polarplot([5*sin(4*t)*cos(t)+4.8, -2*sin(t)*cos(t)-4.85, t=1.7..2], color=violet):

> p37:=polarplot([5*sin(4*t)*cos(t)+4.6, -2*sin(t)*cos(t)-4.7, t=1.65..1.95], color=tan):

> p38:=polarplot([5*sin(4*t)*cos(t)+4.4, -2*sin(t)*cos(t)-4.55, t=1.65..1.9], color=violet):

> p39:=plot([.3*sin(t)-3.1, .3*cos(t)+1.8, t=0..2*Pi],color=gold):

> p40:=plot([t-4.3,t,t=.8..2], color=red):

> p41:=plot([t-4.5, t+1,t=.5..1.6], color=red):

> p42:=plot([-t-1.5, t+1.2, t=.8..1.43], color=red):

> p43:=plot([t-5.5,0.8, t=1.5..2], color=red):

> p44:=plot([-4,t,t=.8..1.5], color=red):

> p45:=plot([5.7*sin(t)+1, 6.1*cos(t)-8, t=1.8..4.45], color=brown):

> p46:=plot([3*sin(t)*sin(t)+6.1, 1.5*cos(t)*cos(t)-12, t=0..0.8], color=brown):

> p47:=plot([3*sin(t)*sin(t)+4.9, 1.5*cos(t)*cos(t)-14.2, t=0..1.05], color=brown):

> p48:=plot([-3*sin(t)*sin(t)-4.25, 1.5*cos(t)*cos(t)-12, t=0..0.8], color=brown):

> p49:=plot([-3*sin(t)*sin(t)-2.85, 1.5*cos(t)*cos(t)-14.2, t=0..1.1], color=brown):

> p50:=plot([6*sin(2*t)+1, 2*cos(2*t)-2.5, t=1.51..1.605], color=gray):

> p51:=plot([6*sin(t)-1.5, 4*cos(t)-6.8, t=5.8..6], color=gray):

> p52:=plot([1.5*sin(t)+4.4, 1.5*cos(t)-6.8, t=0..2*Pi], color=black):

> p53:=plot([.4*sin(t)+3.3, .4*cos(t)-6.5, t=1..Pi], color=green):

> p54:=plot([.38*sin(t)+4, .38*cos(t)-6.2, t=2.78..4.03], color=green):

> p55:=plot([.41*sin(t)+3.5, .41*cos(t)-7.3, t=-.2..1.3], color=green):

> p56:=plot([.4*sin(t)+4.2, .4*cos(t)-7.2, t=-1.3..0.5], color=green):

> p57:=plot([.3*sin(t)+4.4, .3*cos(t)-6.5, t=2.5..4.8], color=green):

> p58:=plot([2.5*sin(t)*sin(t)-2, 2*cos(t)*cos(t)-8, t=0..1], color=red):

> p59:=plot([-2.5*sin(t)*sin(t)-2,2*cos(t)*cos(t)-8, t=0..1], color=red):

> p60:=plot([-2.5*sin(t)*sin(t)-2, -2*cos(t)*cos(t)-6.8, t=0..1], color=red):

> p61:=plot([2.5*sin(t)*sin(t)-2, -2*cos(t)*cos(t)-6.8, t=0..1], color=red):

> p62:=plot([-5*sin(t)*sin(t)+1.5, -5*cos(t)*cos(t)-5.8, t=0.32..0.82], color=tan):

> p63:=plot([-2.5*sin(t)*sin(t)+4, 2*cos(t)*cos(t)-8, t=(.72)..0.97], color=blue):

> p64:=plot([-2.5*sin(t)*sin(t)+4, -2*cos(t)*cos(t)-6.7, t=0..0.97], color=blue):

> p65:=plot([2.5*sin(t)*sin(t)+4, -2*cos(t)*cos(t)-6.7, t=0..(.5)], color=blue):

> p66:=plot([-5*sin(t)*sin(t)+4, 5*cos(t)*cos(t)-12.4, t=0.4..0.88], color=tan):

> p67:=plot([10*sin(t)+1, 8*cos(t)-2.8, t=2.5..1.209*Pi], color=gray):

> p68:=plot([6*sin(t)+1, 9*cos(t)-9,t=4.7..1.6*Pi], color=gray):

> p69:=plot([6*sin(t)+1, 9*cos(t)-9, t=1.25..1.6], color=gray):

> p70:=plot([10*sin(t)+1,5*cos(t)-7.5,t=5.4..1.9*Pi], color=gray):

> p71:=plot([10*sin(t)+1,5*cos(t)-7.5, t=0.32..0.9], color=gray):

> p72:=plot([7*sin(t)+10, 3*cos(t)-4, t=3.4..1.15*Pi], color=gray):

> p73:=plot([7*sin(t)-7.8, 3*cos(t)-4, t=2.69..2.925], color=gray):

> p74:=plot([3*sin(t)-3.8, 5*cos(t)-4, t=4.1..1.475*Pi], color=gray):

> p75:=plot([3*sin(t)+5.8, 5*cos(t)-4, t=1.63..2.2], color=gray):

> p76:=plot([1.5*sin(t)+8.5, 2*cos(t)-13, t=1.36*Pi..2.6*Pi], color=brown):

> p77:=plot([1.5*sin(t)-6.6, 2*cos(t)-13, t=1.3*Pi..2.65*Pi], color=brown):

> p78:=plot([3.7*sin(t)*sin(t)+8, 1.5*cos(t)*cos(t)-5.8, t=2.3..2.68], color=brown):

> p79:=plot([3.7*sin(t)*sin(t)+8, 1.3*cos(t)*cos(t)-7.9, t=2.85..2.4], color=brown):

> p80:=plot([-3.9*sin(t)*sin(t)-6, 1.8*cos(t)*cos(t)-6, t=2.3..2.7], color=brown):

> p81:=plot([-3.9*sin(t)*sin(t)-6, 1.8*cos(t)*cos(t)-8.4, t=2.45..2.83], color=brown):

> p82:=plot([(t^2)*sin(t)*sin(t)+8.5, 1.3*t*cos(t)*cos(t)-7.45, t=1.15..2.4], color=brown):

> p83:=plot([ -t^2+11.35,t-6.3, t=0.4..1.2], color=brown):

> p84:=plot([-(t^2)*sin(t)*sin(t)-7, 1.3*t*cos(t)*cos(t)-7.71, t=0.9..2.35], color=brown):

> p85:=plot([0.5*t^2-10.2, t-7.2, t=0.9..2], color=brown):

> p86:=plot([sin(t)+8.6, 1.35*cos(t)-13, t=0..2*Pi], color=brown):

> p87:=plot([sin(t)-6.6, 1.35*cos(t)-13, t=0..2*Pi], color=brown):

> p88:=plot([ -6.4,t-12.3, t=0..0.6], color=black):

> p89:=plot([-6.8, t-12.3, t=0..0.6], color=black):

> p90:=plot([8.9, t-12.3, t=0..0.6], color=black):

> p91:=plot([8.5, t-12.3, t=0..0.6], color=black):

> p92:=plot([t^2-9.6, t-7.4, t=0..1.1], color=brown):

> p93:=plot([-t^2+11, t-7.1, t=0..1.1], color=brown):

> p94:=plot([-8.4, t-7, t=0..0.7], color=brown):

> p95:=plot([9.8, t-6.6, t=0..0.7], color=brown):

> p96:=plot([t,3, t=0.7..1.6], color=violet):

> p97:=plot([t,2.85, t=0..1.6], color=violet):

> p98:=plot([t, 2.5, t=-1..1.5], color=tan):

> p99:=plot([t,2.35, t=-1.3..1.4], color=tan):

> p100:=plot([t,2, t=-1.8..0.9], color=violet):

> p101:=plot([t,1.85,t=-2..0.6], color=violet):

> p102:=plot([t, 1.5, t=-2.4..0.2], color=tan):

> p103:=plot([t, 1.35, t=-2.6..-0.1], color=tan):

> p104:=plot([t,1, t=-2.9..-1], color=violet):

> p105:=plot([t,0.85, t=-3.1..-1.6], color=violet):

> p106:=plot([1.5*t+0.7,t+3, t=0..0.8], color=violet):

> p107:=plot([1.5*t+0.35, t+3, t=0..1], color=violet):

> p108:=plot([1.5*t,t+3, t=-0.2..1.3], color=tan):

> p109:=plot([1.5*t-0.35,t+3, t=-0.3..1.3], color=violet):

> p110:=plot([1.5*t-0.7, t+3,t=-0.5..1.5], color=violet):

> p111:=plot([1.5*t-1.05,t+3, t=-0.1..1.6], color=tan):

> p112:=plot([1.5*t-1.4, t+3, t=0.3..1.7], color=violet):

> p113:=plot([1.5*t-1.75,t+3, t=0.6..1.8], color=violet):

> p114:=plot([1.5*t-2.1,t+3,t=0.9..1.9], color=tan):

> p115:=plot([1.5*t-2.45,t+3, t=1.7..1.9], color=violet):

> p116:=polarplot([1.3*sin(t)+3.4, cos(t)+2.1, t=.4..2], color=violet):

> p117:=polarplot([1.3*sin(t)+3.2, cos(t)+2.1, t=.95..1.8], color=tan):

> p118:=polarplot([1.3*sin(t)+3, cos(t)+2.1, t=1..1.7], color=violet):

> p119:=polarplot([1.3*sin(t)+2.8, cos(t)+2.1, t=1.2..1.6], color=violet):

> p120:=polarplot([1.3*sin(t)+2.6, cos(t)+2.1, t=1.3..1.55], color=tan):

> p121:=polarplot([1.3*sin(t)+2.4, cos(t)+2.1, t=1.3..1.5], color=violet):

> p122:=polarplot([1.3*sin(t)+2.2, cos(t)+2.1, t=1.3..1.45], color=violet):

> p123:=polarplot([1.3*sin(t)+2, cos(t)+2.1, t=1.3..1.45], color=tan):

> p124:=plot([t, 4.8, t=-0.2..1],color=violet):

> p125:=plot([t,4.65,t=-0.2..1], color=violet):

> p126:=plot([t,4.3,t=-0.5..1.5], color=tan):

> p127:=plot([t,4.15,t=-0.5..1.6], color=tan):

> p128:=plot([t,3.8,t=-0.7..1.8], color=violet):

> p129:=plot([t,3.65,t=-0.8..1.8], color=violet):

> p130:=plot([t,3.3, t=-0.9..1.5], color=tan):

> p131:=plot([t,3.15,t=-1.1..1], color=tan):

> p132:=plot([t,2.8,t=-1.2..-0.3],color=violet):

> p133:=plot([t,2.65,t=-1.2..-0.8], color=violet):

> p134:=plot([t, 4.8,t=-2..-0.5], color=violet):

> p135:=plot([t,4.65,t=-2.4..-0.5], color=violet):

> p136:=plot([t,4.3,t=-3..-1.1],color=tan):

> p137:=plot([t,4.15,t=-3.2..-1.3], color=tan):

> p138:=plot([t,3.8,t=-3.6..-1.7], color=violet):

> p139:=plot([t,3.65,t=-3.7..-1.8], color=violet):

> p140:=plot([t,3.3,t=-4..-2], color=tan):

> p141:=plot([t,3.15,t=-4.1..-2.1],color=tan):

> p142:=plot([t,2.8,t=-4.3..-2.1], color=violet):

> p143:=plot([t,2.65,t=-4.3..-2.1], color=violet):

> p144:=plot([t,2.3,t=-4.5..-3.3], color=tan):

> p145:=plot([t,2.15,t=-4.5..-3.5],color=tan):

> p146:=plot([t,1.8,t=-4.5..-3.8],color=violet):

> p147:=plot([t,1.65,t=-4.5..-3.9], color=violet):

> p148:=plot([t,1.3,t=-4.6..-4.1], color=tan):

> p149:=plot([t,1.15,t=-4.6..-4.1], color=tan):

> p150:=plot([t,0.8,t=-4.5..-4.1], color=violet):

> p151:=plot([t,0.65,t=-4.5..-4.1], color=violet):

> p152:=plot([2*cos(t^2)*3*sin(t)+1,cos(t)-6,t=1.05..1.26], color=gray):

> p153:=plot([2*cos(t^2)*3*sin(t)+1,cos(t)-6,t=-1.26..-1.09],color=gray):

> p154:=plot([-sin(t)*t^2+1.6, -cos(t)*t^2-5.1, t=-2.08..-1.3], color=gray):

> p155:=plot([-sin(t)*t^2+0.7,-cos(t)*t^2-5.1, t=1.3..2.09], color=gray):

> p156:=plot([10*sin(t)+1,8*cos(t)-1.8, t=2.5..1.207*Pi], color=gray):

> p157:=plot([3*sin(t)-2.8, 5*cos(t)-4,t=4.1..1.51*Pi], color=gray):

> p158:=plot([3*sin(t)+4.8, 5*cos(t)-4,t=1.55..2.15], color=gray):

> p159:=plot([1.3,t-5.7, t=0..1.24], color=gray):

> p160:=plot([1.1,t-5.7,t=0..1.24], color=gray):

> p161:=plot([1.3*t,t-5.6,t=0..0.85], color=gray):

> p162:=plot([1.3*t+0.25,t-5.6,t=0..0.67], color=gray):

> p163:=plot([-1.3*t+2.15, t-5.6,t=0..0.67], color=gray):

> p164:=plot([-1.3*t+2.4,t-5.6,t=0...0.85], color=gray):

> p165:=plot([-1.3*t+3, t-5.6, t=0.05..0.45], color=gray):

> p166:=plot([-1.3*t+3.25,t-5.6,t=0.08..0.56], color=gray):

> p167:=plot([-1.3*t+3.85,t-5.6,t=0.2..0.8], color=gray):

> p168:=plot([-1.3*t+4.1,t-5.6,t=0.3..0.92], color=gray):

> p169:=plot([-1.3*t+4.7,t-5.6, t=0.49..1.19], color=gray):

> p170:=plot([-1.3*t+4.95,t-5.6,t=0.63..1.28], color=gray):

> p171:=plot([-1.3*t+5.55,t-5.6, t=0.87..1.54], color=gray):

> p172:=plot([-1.3*t+5.8,t-5.6,t=0.98..1.7], color=gray):

> p173:=plot([-1.3*t+6.4,t-5.6,t=1.24..2],color=gray):

> p174:=plot([-1.3*t+6.65,t-5.6,t=1.4..2.14], color=gray):

> p175:=plot([-1.3*t+7.25,t-5.6,t=1.7..2.47], color=gray):

> p176:=plot([-1.3*t+7.5,t-5.6,t=1.85..2.6], color=gray):

> p177:=plot([-1.3*t+8.1,t-5.6,t=2.2..2.8], color=gray):

> p178:=plot([-1.3*t+8.35,t-5.6,t=2.33..2.78], color=gray):

> p179:=plot([1.3*t-0.6,t-5.6,t=0.03..0.49], color=gray):

> p180:=plot([1.3*t-0.85,t-5.6,t=0.03..0.5], color=gray):

> p181:=plot([1.3*t-1.45,t-5.6,t=0.16..0.8], color=gray):

> p182:=plot([1.3*t-1.7,t-5.6,t=0.22..0.91], color=gray):

> p183:=plot([1.3*t-2.3,t-5.6,t=0.44..1.19],color=gray):

> p184:=plot([1.3*t-2.55,t-5.6,t=0.57..1.3],color=gray):

> p185:=plot([1.3*t-3.15,t-5.6,t=0.77..1.61],color=gray):

> p186:=plot([1.3*t-3.4,t-5.6,t=0.91..1.74],color=gray):

> p187:=plot([1.3*t-4,t-5.6,t=1.2..2.03],color=gray):

> p188:=plot([1.3*t-4.25,t-5.6,t=1.33..2.13],color=gray):

> p189:=plot([1.3*t-4.85,t-5.6,t=1.64..2.45],color=gray):

> p190:=plot([1.3*t-5.1,t-5.6,t=1.76..2.6],color=gray):

> p191:=plot([1.3*t-5.7,t-5.6,t=2.12..2.82],color=gray):

> p192:=plot([1.3*t-5.95,t-5.6,t=2.27..2.88],color=gray):

> p193:=plot([1.1, t-10.8,t=0..1.06],color=gray):

> p194:=plot([1.3, t-10.8,t=0..1.06], color=gray):

> p195:=plot([1.9,t-10.8,t=0.03..1.1],color=gray):

> p196:=plot([2.15,t-10.8,t=0.03..1.1],color=gray):

> p197:=plot([2.75,t-10.8,t=0.1..1.14],color=gray):

> p198:=plot([3,t-10.8,t=0.14..1.18],color=gray):

> p199:=plot([3.6,t-10.8,t=0.25..1.25],color=gray):

> p200:=plot([3.85,t-10.8,t=0.33..1.34],color=gray):

> p201:=plot([4.45,t-10.8,t=0.47..1.49],color=gray):

> p202:=plot([4.7,t-10.8,t=0.55..1.57],color=gray):

> p203:=plot([5.3,t-10.8,t=0.74..1.77],color=gray):

> p204:=plot([5.55,t-10.8,t=0.9..1.92],color=gray):

> p205:=plot([6.15,t-10.8,t=1.1..2.13],color=gray):

> p206:=plot([6.4,t-10.8,t=1.23..2.3],color=gray):

> p207:=plot([7,t-10.8,t=1.6..2.5],color=gray):

> p208:=plot([0.5,t-10.8,t=0.03..1],color=gray):

> p209:=plot([0.25,t-10.8,t=0...1.04],color=gray):

> p210:=plot([-0.35,t-10.8,t=0.07..1.07],color=gray):

> p211:=plot([-0.6,t-10.8,t=0.1..1.09],color=gray):

> p212:=plot([-1.2,t-10.8,t=0.19..1.18],color=gray):

> p213:=plot([-1.45,t-10.8,t=0.22..1.25],color=gray):

> p214:=plot([-2.05,t-10.8,t=0.37..1.4],color=gray):

> p215:=plot([-2.3,t-10.8,t=0.4..1.45],color=gray):

> p216:=plot([-2.9,t-10.8,t=0.61..1.66],color=gray):

> p217:=plot([-3.15,t-10.8,t=0.69..1.71],color=gray):

> p218:=plot([-3.75,t-10.8,t=0.93..2],color=gray):

> p219:=plot([-4,t-10.8,t=1.06..2.05],color=gray):

> p220:=plot([-4.6,t-10.8,t=1.36..2.35],color=gray):

> p221:=plot([t-6.4,-6.5,t=0..1.05],color=gray):

> p222:=plot([t-6.4,-6.25,t=-0.05..0.98],color=gray):

> p223:=plot([t-6.4,-5.65,t=-0.276..0.8],color=gray):

> p224:=plot([t-6.4,-5.4,t=-0.3..0.75],color=gray):

> p225:=plot([t-6.4,-4.8,t=-0.34..0.66],color=gray):

> p226:=plot([t-6.4,-4.55,t=-0.32..0.68],color=gray):

> p227:=plot([t+7.34,-6.6,t=0..1],color=gray):

> p228:=plot([t+7.34,-6.35,t=0.09..1.1],color=gray):

> p229:=plot([t+7.34,-5.75,t=0.27..1.28],color=gray):

> p230:=plot([t+7.34,-5.5, t=0.33..1.34],color=gray):

> p231:=plot([t+7.34,-4.9,t=0.43..1.42],color=gray):

> p232:=plot([t+7.34,-4.65,t=0.47..1.48],color=gray):

> p233:=plot([t+7.34,-4.05,t=0.48..0.98],color=gray):

> p234:=plot([2*sin(t)+2.7,2*cos(t)+1.2,t=-0.2..1],color=brown):

> p235:=textplot([4.4,-6,"AREA 10"],font=[TIMES,BOLD,6],color=black):

> p236:=textplot([5.2,-6.8,"NEW"],font=[TIMES,BOLD,6],color=black):

> p237:=textplot([4.5,-7.4,"ENGLAND"],font=[TIMES,BOLD,6],color=black):

> p238:=textplot([1,-14,"HUG ME!"],font=[TIMES,BOLD,40],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,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,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,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);

[Maple Plot]

>