LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYrLUkjbWlHRiQ2JVEocmVzdGFydEYnLyUnaXRhbGljR1EldHJ1ZUYnLyUsbWF0aHZhcmlhbnRHUSdpdGFsaWNGJy1JI21vR0YkNi1RIjpGJy9GM1Enbm9ybWFsRicvJSZmZW5jZUdRJmZhbHNlRicvJSpzZXBhcmF0b3JHRj0vJSlzdHJldGNoeUdGPS8lKnN5bW1ldHJpY0dGPS8lKGxhcmdlb3BHRj0vJS5tb3ZhYmxlbGltaXRzR0Y9LyUnYWNjZW50R0Y9LyUnbHNwYWNlR1EsMC4yNzc3Nzc4ZW1GJy8lJ3JzcGFjZUdGTC1GLDYlUSV3aXRoRidGL0YyLUkobWZlbmNlZEdGJDYkLUYjNiMtRiw2JVEmcGxvdHNGJ0YvRjJGOUY1LUY2Ni1RIn5GJ0Y5RjtGPkZARkJGREZGRkgvRktRJjAuMGVtRicvRk5GaG5GTy1GUzYkLUYjNiMtRiw2JVEnbGluYWxnRidGL0YyRjlGNQ==
QyQ+SSZiYXNleEc2IiwkLUkkY29zR0YlNiNJInRHRiUiIiMhIiI=
QyQ+SSZiYXNleUc2IiwkLUkkc2luR0YlNiNJInRHRiUiIiQhIiI=
QyQ+SSliYXNlcGxvdEc2Ii1JJXBsb3RHRiU2JTclSSZiYXNleEdGJUkmYmFzZXlHRiUvSSJ0R0YlOyIiISwkSSNQaUclKnByb3RlY3RlZEciIiMvSSZjb2xvckdGJUkmYmxhY2tHRiUvSSp0aGlja25lc3NHRiUiIiYhIiI=
QyQtSShkaXNwbGF5RzYiNiRJKWJhc2VwbG90R0YlL0kldmlld0dGJTckOyEiJSIiJUYrIiIi
QyQ+SSxiYXNldmVjdG9yWEc2Ii1JJmFycmF5RyUqcHJvdGVjdGVkRzYjNyRJJmJhc2V4R0YlSSZiYXNleUdGJSEiIg==
QyQ+SS90YW5nZW50dmVjdG9yVEc2Ii1JJG1hcEclKnByb3RlY3RlZEc2JUklZGlmZkdGKEksYmFzZXZlY3RvclhHRiVJInRHRiUiIiI=
Dx:=tangentvectorT[1];
Dy:=tangentvectorT[2];
D2x:=diff(tangentvectorT[1],t);
D2y:=diff(tangentvectorT[2],t);
QyQ+SSxwZXJwdmVjdG9yUEc2Ii1JJmFycmF5RyUqcHJvdGVjdGVkRzYjNyQsJCZJL3RhbmdlbnR2ZWN0b3JUR0YlNiMiIiMhIiImRi02IyIiIkYz
QyQ+STB1bml0cGVycHZlY3RvclVHNiIqJkkscGVycHZlY3RvclBHRiUiIiItSSVub3JtR0YlNiRGJyIiIyEiIkYt
QyQtSShkb3Rwcm9kRzYiNiVJL3RhbmdlbnR2ZWN0b3JUR0YlSSxwZXJwdmVjdG9yUEdGJUkrb3J0aG9nb25hbEdGJSIiIg==
QyQ+SSZrYXBwYUc2IiomLUklc3FydEc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkdGJTYjKiQsJiomSSNEeEdGJSIiIkkkRDJ5R0YlRjFGMSomSSNEeUdGJUYxSSREMnhHRiVGMSEiIiIiI0YxLCYqJEYwRjdGMSokRjRGN0YxIyEiJEY3RjE=
plot(kappa,t=0..2*Pi);
QyQ+SSJSRzYiKiRJJmthcHBhR0YlISIiIiIi
QyQ+SS5jZW50ZXJ2ZWN0b3JDRzYiLUkmZXZhbG1HRiU2IywmSSxiYXNldmVjdG9yWEdGJSIiIiomSSJSR0YlRitJMHVuaXRwZXJwdmVjdG9yVUdGJUYrRitGKw==
cpplot:=plot([centervectorC[1],centervectorC[2],t=0..2*Pi]):
display({baseplot,cpplot});
?seq
QyQ+SShjZW50ZXJzRzYiNyMtSSZldmFsZkclKnByb3RlY3RlZEc2Iy1JJHNlcUdGKTYlNyQmSS5jZW50ZXJ2ZWN0b3JDR0YlNiMiIiImRjA2IyIiIy9JInRHRiU7IiIhIiInJEY1ISIiRjI=
QyQ+SStjZW50ZXJwbG90RzYiLUkkc2VxRyUqcHJvdGVjdGVkRzYkLUkqcG9pbnRwbG90R0YlNiYmSShjZW50ZXJzR0YlNiNJImlHRiUvSSZjb2xvckdGJUkmYmxhY2tHRiUvSSdzeW1ib2xHRihJKGRpYW1vbmRHRiUvSStzeW1ib2xzaXplR0YlIiNDL0YwOyIiIi1JJW5vcHNHRig2I0YuISIi
display({centerplot,baseplot, cpplot});
QyQ+SShjaXJjbGVzRzYiLUkkc2VxRyUqcHJvdGVjdGVkRzYlLUklcGxvdEc2JEYoSShfc3lzbGliR0YlNiU3JSwmKiZJIlJHRiUiIiItSSRjb3NHRiw2I0kic0dGJUYzRjMmSS5jZW50ZXJ2ZWN0b3JDR0YlNiNGM0YzLCYqJkYyRjMtSSRzaW5HRixGNkYzRjMmRjk2IyIiI0YzL0Y3OyIiISwkSSNQaUdGKEZBL0kmY29sb3JHRiVJKG1hZ2VudGFHRiUvSShzY2FsaW5nR0YlSSxjb25zdHJhaW5lZEdGJS9JInRHRiU7RkQiIickRkEhIiJGUg==
QyQtSShkaXNwbGF5RzYiNiQ8JkkoY2lyY2xlc0dGJUknY3BwbG90R0YlSSliYXNlcGxvdEdGJUkrY2VudGVycGxvdEdGJS9JJXZpZXdHRiU3JDshIikiIik7ISImIiImIiIi
QyQtSShkaXNwbGF5RzYiNiU8JS1GJDYkSSliYXNlcGxvdEdGJUknY3BwbG90R0YlLUYkNiQ3I0koY2lyY2xlc0dGJS9JK2luc2VxdWVuY2VHRiVJJXRydWVHJSpwcm90ZWN0ZWRHLUYkNiQ3I0krY2VudGVycGxvdEdGJUYwL0kldmlld0dGJTckOyEiKSIiKTshIiYiIiYvSShzY2FsaW5nR0YlSSxjb25zdHJhaW5lZEdGJSIiIg==
LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYsLUkjbWlHRiQ2JVEqYW5pbWF0aW9uRicvJSdpdGFsaWNHUSV0cnVlRicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0YnLUkjbW9HRiQ2LVEqJmNvbG9uZXE7RicvRjNRJ25vcm1hbEYnLyUmZmVuY2VHUSZmYWxzZUYnLyUqc2VwYXJhdG9yR0Y9LyUpc3RyZXRjaHlHRj0vJSpzeW1tZXRyaWNHRj0vJShsYXJnZW9wR0Y9LyUubW92YWJsZWxpbWl0c0dGPS8lJ2FjY2VudEdGPS8lJ2xzcGFjZUdRLDAuMjc3Nzc3OGVtRicvJSdyc3BhY2VHRkwtRjY2LVEifkYnRjlGO0Y+RkBGQkZERkZGSC9GS1EmMC4wZW1GJy9GTkZTLUYsNiVRKGFuaW1hdGVGJ0YvRjItSShtZmVuY2VkR0YkNiQtRiM2OC1GWTYmLUYjNkEtRiw2JVEiUkYnRi9GMi1GNjYtUSIqRidGOUY7Rj5GQEZCRkRGRkZIL0ZLUSwwLjE2NjY2NjdlbUYnL0ZORmJvLUYsNiVRJGNvc0YnL0YwRj1GOS1GWTYkLUYjNiUtRiw2JVEic0YnRi9GMi8lK2V4ZWN1dGFibGVHRj1GOUY5Rk8tRjY2LVEiK0YnRjlGO0Y+RkBGQkZERkZGSC9GS1EsMC4yMjIyMjIyZW1GJy9GTkZlcEZPLUYsNiVRLmNlbnRlcnZlY3RvckNGJ0YvRjItRlk2Ji1GIzYlLUkjbW5HRiQ2JFEiMUYnRjlGX3BGOUY5LyUlb3BlbkdRIltGJy8lJmNsb3NlR1EiXUYnLUY2Ni1RIixGJ0Y5RjsvRj9GMUZARkJGREZGRkhGUi9GTlEsMC4zMzMzMzMzZW1GJ0ZPRltvRl5vLUYsNiVRJHNpbkYnRmdvRjlGaG9GT0ZhcEZPRmdwLUZZNiYtRiM2JS1GX3E2JFEiMkYnRjlGX3BGOUY5RmJxRmVxRmhxRk9GXHAtRjY2LVEiPUYnRjlGO0Y+RkBGQkZERkZGSEZKRk0tRl9xNiRRIjBGJ0Y5LUY2Ni1RIy4uRidGOUY7Rj5GQEZCRkRGRkZIRmRwRlRGZXJGXm8tRiw2JVEnJiM5NjA7RidGZ29GOUZfcEY5RjlGYnFGZXFGaHFGTy1GLDYlUSJ0RidGL0YyRmhyRltzRl5zLUZfcTYkUSI2RidGOUZocUZPLUYsNiVRJ2ZyYW1lc0YnRi9GMkZPRmhyRk8tRl9xNiRRIjdGJ0Y5RmhxRk8tRiw2JVEmY29sb3JGJ0YvRjJGaHItRiw2JVEobWFnZW50YUYnRi9GMkZfcEY5RjktRjY2LVEiOkYnRjlGO0Y+RkBGQkZERkZGSEZKRk0tSSdtc3BhY2VHRiQ2Ji8lJ2hlaWdodEdRJjAuMGV4RicvJSZ3aWR0aEdRJjAuMGVtRicvJSZkZXB0aEdGXnUvJSpsaW5lYnJlYWtHUSVhdXRvRictRiw2I1EhRidGX3BGOQ== LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbWlHRiQ2I1EhRic=
LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYnLUkjbWlHRiQ2JVEoZGlzcGxheUYnLyUnaXRhbGljR1EldHJ1ZUYnLyUsbWF0aHZhcmlhbnRHUSdpdGFsaWNGJy1JKG1mZW5jZWRHRiQ2JC1GIzYzLUY2NiYtRiM2LUYrLUY2NiQtRiM2JS1GLDYlUSliYXNlcGxvdEYnRi9GMi8lK2V4ZWN1dGFibGVHUSZmYWxzZUYnL0YzUSdub3JtYWxGJ0ZILUkjbW9HRiQ2LVEiLEYnRkgvJSZmZW5jZUdGRy8lKnNlcGFyYXRvckdGMS8lKXN0cmV0Y2h5R0ZHLyUqc3ltbWV0cmljR0ZHLyUobGFyZ2VvcEdGRy8lLm1vdmFibGVsaW1pdHNHRkcvJSdhY2NlbnRHRkcvJSdsc3BhY2VHUSYwLjBlbUYnLyUncnNwYWNlR1EsMC4zMzMzMzMzZW1GJy1GSzYtUSJ+RidGSEZOL0ZRRkdGUkZURlZGWEZaRmZuL0ZqbkZobkYrLUY2NiQtRiM2LC1GNjYmLUYjNiUtRiw2JVErY2VudGVycGxvdEYnRi9GMkZFRkhGSC8lJW9wZW5HUSJbRicvJSZjbG9zZUdRIl1GJ0ZKRlxvLUYsNiVRK2luc2VxdWVuY2VGJ0YvRjJGXG8tRks2LVEiPUYnRkhGTkZfb0ZSRlRGVkZYRlovRmduUSwwLjI3Nzc3NzhlbUYnL0ZqbkZpcEZcby1GLDYlRjFGL0YyRkVGSEZIRkpGXG8tRiw2JVEqYW5pbWF0aW9uRidGL0YyRkVGSEZIL0ZdcFEifGZyRicvRmBwUSJ8aHJGJ0ZKRlxvLUYsNiVRJXZpZXdGJ0YvRjJGXG9GZXBGXG8tRjY2Ji1GIzYuLUZLNi1RKiZ1bWludXMwO0YnRkhGTkZfb0ZSRlRGVkZYRlovRmduUSwwLjIyMjIyMjJlbUYnL0ZqbkZfci1JI21uR0YkNiRRIjFGJ0ZILUZLNi1RIy4uRidGSEZORl9vRlJGVEZWRlhGWkZeckZgby1GYnI2JFEiN0YnRkhGSkZcb0Zbci1GYnI2JFEiNEYnRkhGZXJGW3NGRUZIRkhGXHBGX3BGSkZcby1GLDYlUShzY2FsaW5nRidGL0YyRlxvRmVwRlxvLUYsNiVRLGNvbnN0cmFpbmVkRidGL0YyRkVGSEZILUZLNi1RIjtGJ0ZIRk5GUEZSRlRGVkZYRlpGZm5GanBGRUZI