with(plots): with(VectorCalculus): c1:=plot([cos(t),sin(t),t=0..2*Pi],x=-2..2,y=-2..2, color=black): c2:=plot([8*cos(t^2),8*sin(t^2),t=0..sqrt(2*Pi)], x=-10..10,y=-10..10,color=black): tan1:=arrow(<1,0>,<0,1>,length=1, shape=arrow,width=[7,relative], head_width=.4, color=blue): tan2:=arrow(<0,1>,<-1,0>,length=1, shape=arrow, head_width=.4, color=blue): tan3:=arrow(<-1,0>,<0,-1>,length=1, shape=arrow, head_width=.4, color=blue): tan4:=arrow(<0,-1>,<1,0>,length=1, shape=arrow, head_width=.4, color=blue): tan81:=arrow(<8,0>,<0,1>,length=1, shape=arrow, head_width=.4, color=red): tan82:=arrow(<8*cos(Pi/16),8*sin(Pi/16)>,<-8*sin(Pi/16),8*cos(Pi/16)>,length=1, shape=arrow, head_width=.4, color=red): tan83:=arrow(<8*cos(Pi/8),8*sin(Pi/8)>,<-8*sin(Pi/8),8*cos(Pi/8)>,length=1, shape=arrow, head_width=.4, color=red): tan84:=arrow(<8*cos(3*Pi/16),8*sin(3*Pi/16)>,<-8*sin(3*Pi/16),8*cos(3*Pi/16)>,length=1, shape=arrow, head_width=.4, color=red): Consider two circles: the unit circle and a circle of radius 8. Consider how the tangent vectors for each change over a fixed length of each curve. On each, we look at a length of curve 2\317\200 units long -- that's the whole unit circle, but only 1/8 of the larger circle -- and at tangent vectors placed every \317\200/2 units. display(c1,c2,tan1, tan2, tan3, tan4, tan81,tan82,tan83,tan84);

Ni4tSSdDVVJWRVNHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2JDdTNyQkIiIiIiIhJCIiISIiITckJCIzdyI0aFJQaWohKiohIz0kIjNJa3diIz15X08iISM9NyQkIjNEOEojKSk0LVFuKiEjPSQiMyVbI1xmZiopR0xEISM9NyQkIjMtTjUnKXlrZVsjKiEjPSQiM2dMaiZbSzVKIVEhIz03JCQiMz5nb3o9NDJgJykhIz0kIjNqOU5YUjRVN10hIz03JCQiM1NiXShHLl9VIXohIz0kIjN0X0gtcWNlRGghIz03JCQiM15cJFInb1RkIzMoISM9JCIzIUdPIyozcVUmZnEhIz03JCQiMz9IJD5qdWJrNichIz0kIjMhXEBAJlwhPjgieiEjPTckJCIzVkd1SWM6eDVdISM9JCIzLSQ+cChRaC1hJykhIz03JCQiMzdDM25XJ1IsI1EhIz0kIjNhSysxNmJjVCMqISM9NyQkIjMkb1lAaUYnUUREISM9JCIzciZRIltNIm9lbiohIz03JCQiM05CXmhBbzhYOCEjPSQiMzMpZlZQTzwiNCoqISM9NyQkITMqKnBCL3UocDUoZiEjQCQiMiVIaEo8IykqKioqKiohIzw3JCQhMzIpXFQjZkJbaTghIz0kIjNhcCU+d0dabiEqKiEjPTckJCEzKGU6ZC46Iz1ZRSEjPSQiM1BBPj1cRGBWJyohIz03JCQhMyUqeVYxSiozSngkISM9JCIzSHpGI2VgbTNFKiEjPTckJCEzVShcQU9GOkIvJiEjPSQiM3VVJ3lJMiZvTicpISM9NyQkITNbaWdOdyUqW1JnISM9JCIzemkiKVJRK0JxeiEjPTckJCEzLlhVd1lqSiozKCEjPSQiM0Bmdk9nP3hfcSEjPTckJCEzJj1lX2I/L1UheiEjPSQiM3UzPEolUVpjNychIz03JCQhM3chRzUpUm5JZicpISM9JCIzRCVIJFw0L2ssXSEjPTckJCEzL2BrOHRpJDRCKiEjPSQiM0luJ1sqPkh2WFEhIz03JCQhMyFwIVJTNE5paicqISM9JCIzbyRwOW0jUSU9ZCMhIz03JCQhMyNwKHBUPisuMioqISM9JCIzMFY/MDBdVWc4ISM9NyQkITMvZ0tHND4mKioqKiohIz0kIjN2Q0FcTyU0ODUkISM/NyQkITNfX0lzPSFRJTMqKiEjPSQhM3EjNCo+Yz04XTghIz03JCQhMyk+YmBzWWxTbiohIz0kITNVTmJGR0lHS0QhIz03JCQhMzZfSi44QUVqIyohIz0kITNxNCY9amBCc3ckISM9NyQkITMlXEYpNEtoPXUnKSEjPSQhM2pFTlgnKTN6dlwhIz03JCQhM0RCKno3eG5nJXohIz0kITM2VyhIIXBVQ3JnISM9NyQkITNYRDg0UGZjNXIhIz0kITNZPyNvPyJ5TUpxISM9NyQkITMhUSV5NklrZVtnISM9JCEzKDRqMnllR0wneiEjPTckJCEzZ0BVRD0lKW8hKlwhIz0kITNIX01oNk1pbCcpISM9NyQkITNvKzFzIlsieXNQISM9JCEzIlxJTiwlKioqNEUqISM9NyQkITMweUNIImVsJzNFISM9JCEzPVY+KGZwW1BsKiEjPTckJCEzZzY3Q3ZuYyJIIiEjPSQhMzskUm9JKj5DOyoqISM9NyQkITNEenlPSE1RZEkhIz8kITNXMU8jPkVgKioqKiohIz03JCQiM0ZJQWpgS3MoRyIhIz0kITNsWVozWD11OyoqISM9NyQkIjNFS1JxWDgvYkQhIz0kITNVJFtvJUgneiFvJyohIz03JCQiM0AlKXliJlEpek5RISM9JCEzQS8yPCM+eF1CKiEjPTckJCIzTzd3NHcwSS5dISM9JCEzdkhnYjV3TWUnKSEjPTckJCIzP1wjKVsqUl0kNGghIz0kITMvYSpbPUgybyJ6ISM9NyQkIjMzL3dZJ1ErJCo0KCEjPSQhMyk0ZCllZz9zVXEhIz03JCQiM1tmPXMkUnksIXohIz0kITNEMSRIPGJRMzgnISM9NyQkIjMkKlIsQDt2THUnKSEjPSQhM2Q+KXpEKHBfdlwhIz03JCQiMyFHJGVAYDQrRCMqISM9JCEzaCY+Mm5kbypmUSEjPTckJCIzMW1HQXApKW9hJyohIz0kITMlKWZdblJRPTBFISM9NyQkIjNAemInZmBicCEqKiEjPSQhMy51cDkxdCc0TyIhIz03JCQiIiIiIiEkIjM1WUtoU3I4LyMpISNGLUknQ09MT1VSRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiNiZJJFJHQkc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IiIiISIiISIiIS1JJ0NVUlZFU0c2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYkN2puNyQkIiIpIiIhJCIiISIiITckJCIzIXolNE9gVicqKip6ISM8JCIzbktrJlxmKj0pUSMhIz43JCQiM2sqKmZCPFNjKip6ISM8JCIzWiI+Kj1Aaic+TikhIz43JCQiM213JHorI0hsKCp6ISM8JCIzSEwqXF9wQ3gkPiEjPTckJCIzLShHbCp6PkkjKnohIzwkIjNtLio+UTMhcDNOISM9NyQkIjNJeWNVJVJrMyl6ISM8JCIzS0E5Jz1WXSpIYiEjPTckJCIzVz1gdnpnemh6ISM8JCIzSWxVVyJmKikqM3khIz03JCQiMyM0Jyp5QngxKUh6ISM8JCIzXCN6TDorTHUwIiEjPDckJCIzXil5Slw7UCF6eSEjPCQiM1d5PiJ6bj5mUSIhIzw3JCQiM1UtWVN4LjkweSEjPCQiMzwpMyQzXDckXHYiISM8NyQkIjM3LGNOS2VbKXAoISM8JCIzQUVVQjImPWM8IyEjPDckJCIzKXltRklDZ0pkKCEjPCQiMz4+IXl5JlxBeUQhIzw3JCQiM1MheU5mdUAsUighIzwkIjMjKSpwbiRmVm5qSSEjPDckJCIzIT4lZkB3XjdhciEjPCQiMzdEKVI4SSNIIWUkISM8NyQkIjN1YG1oLigzKXBvISM8JCIzKT0vNnIueiUqNCUhIzw3JCQiMyk0SWIxJEhMZGwhIzwkIjNqRCQ+MHpFRmUlISM8NyQkIjNdJ0hneiUpRzo2JyEjPCQiMyhmcFo7eShHaV4hIzw3JCQiM05HRWMocFBjbSYhIzwkIjNkSCVlPzlkIVtjISM8NyQkIjNzd20+dF05al0hIzwkIjMhZW4oKSoqSDhSPichIzw3JCQiMyNmWScpKVttb15XISM8JCIzPEhWP1kyKnBrJyEjPDckJCIzXVQsKUgqKjNecCQhIzwkIjM9X0Npc01dJjQoISM8NyQkIjMlKVFVYD0rYCMqRyEjPCQiM1xcOHFfOHhldSEjPDckJCIzTEYqb24oRzZ1PiEjPCQiMzM6Wzk8WWdfeCEjPDckJCIzPygzWF9LV1sxIiEjPCQiM1MnNGRLJlwiKUd6ISM8NyQkIjNMOTgqSCpRIyl6QyEjPiQiMyNvem1gY2gqKip6ISM8NyQkITMpR0MhW2koUUs1IiEjPCQiMyo9M04kZlFjQnohIzw3JCQhM196bWVsIVtrNSMhIzwkIjM3bllHOiopcDx4ISM8NyQkITNAZ3oiNFp3KSk9JCEjPCQiM2NDLXZ6ZCdwTCghIzw3JCQhM20+b09IYlJ3VSEjPCQiM1pfP1ZRdzRobiEjPDckJCEzWWwqZWxiKT13XyEjPCQiM0xPOFxxNVo4ZyEjPDckJCEzJ2VWZSY+PFVbaCEjPCQiMzkrJj1BdSJIPV4hIzw3JCQhM01RXTQlPTVVJ3AhIzwkIjMoUTJuUWJ2cCRSISM8NyQkITMqPXNhbjZiOV8oISM8JCIzW3Yoeil5SVFERiEjPDckJCEzPz9aQUZJJ0gqeSEjPCQiM0A9VD9GYkYvOCEjPDckJCEzJWZZZkUuXSgqKnohIzwkITNDJSlRYiN6IzRDaiEjPjckJCEzTGJWbiVvJHpReSEjPCQhM09oNjxDIjR6ZiIhIzw3JCQhM2M5NHdhbyJvbCghIzwkITNyQHVjRm8rPUIhIzw3JCQhM3UnUVE/OCUqXFMoISM8JCEzciZlaCN6L2JGSSEjPDckJCEzU0dcI2UkUmdtcSEjPCQhMyNSImZNdTYzXVAhIzw3JCQhM3IxK0UkKVF2Xm0hIzwkITMnbycpZm1QbVhXJSEjPDckJCEzJz1BX3pGUU48JyEjPCQhMyJlJkhaaydvejMmISM8NyQkITNtNSYzKlJoeERjISM8JCEzW2VTJylcRHcobyYhIzw3JCQhMyJHbUQ0MXE4KVwhIzwkITNvPkJaJVJvKWZpISM8NyQkITMhKSozNkEsOyRwVSEjPCQhM2cnPU8mWy1kbG4hIzw3JCQhM1U2KFFYOUphXyQhIzwkITN1eFlLKls9OD0oISM8NyQkITMpellmcyFbUUpGISM8JCEzaS0qek9weCM+diEjPDckJCEzQmhEZ0tWcHY9ISM8JCEzQidvQmJvLXF4KCEjPDckJCEzS1x4IlI2JnpgKSohIz0kITMjcGg0YkUjM1J6ISM8NyQkITNqbmpKQCk9KXl5ISM+JCEzKT4/SHAsNycqKnohIzw3JCQiMzd1TzYiPXkoKVIpISM9JCEzX1BXOHUxemJ6ISM8NyQkIjNHM10jbyk9NyVvIiEjPCQhMzlceSdHaEMyI3khIzw3JCQiM1stLnVYTS89RCEjPCQhMzUkZjw5WSNRJGYoISM8NyQkIjNYWyQzSCRmXlpNISM8JCEzS290XDBtLz5zISM8NyQkIjNVXCFHXihbRkxWISM8JCEzQTBZISpwWXlDbiEjPDckJCIzJUhnJSkqKXl0XDImISM8JCEzRXVMNXheQSU9JyEjPDckJCIzQmYnMzZsTW52JiEjPCQhM1VgYDI+JHleYiYhIzw3JCQiM2JEIkg0SiFwL2shIzwkITMpSCMqSCR5KVJQeiUhIzw3JCQiM1gxMGNlLjplcCEjPCQhMzQ8IXAnPmRuWlIhIzw3JCQiM2RGPSRbQE56USghIzwkITMoNCYpemdNVipvSSEjPDckJCIzWW0lKXBJIjMrcighIzwkITM1TTFXa2dVTUAhIzw3JCQiMythIyo0YCdwaiN6ISM8JCEzKVEtSE08JypHMyIhIzw3JCQiIikiIiEkITNbdyd6P08kcElEISNELUknQ09MT1VSRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiNiZJJFJHQkc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IiIiISIiISIiIS1JJ0NVUlZFU0c2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYmNyQ3JCQiIiIiIiEkIiIhIiIhNyQkIiIiIiIhJCIrKysrKzUhIio3JTckJCIrKysrKyEpISM1JCIrKysrKyEpISM1NyQkIiIiIiIhJCIrKysrKzUhIio3JCQiKysrKys3ISIqJCIrKysrKyEpISM1LUkmU1RZTEVHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2I0ksUEFUQ0hOT0dSSURHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiItSSdDT0xPVVJHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2JkkkUkdCRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiJCIiISIiISQiIiEiIiEkIiorKysrIiEiKS1JJ0NVUlZFU0c2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYmNyQ3JCQiIiEiIiEkIiIiIiIhNyQkISsrKysrNSEiKiQiIiIiIiE3JTckJCErKysrKyEpISM1JCIrKysrKyEpISM1NyQkISsrKysrNSEiKiQiIiIiIiE3JCQhKysrKyshKSEjNSQiKysrKys3ISIqLUkmU1RZTEVHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2I0ksUEFUQ0hOT0dSSURHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiItSSdDT0xPVVJHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2JkkkUkdCRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiJCIiISIiISQiIiEiIiEkIiorKysrIiEiKS1JJ0NVUlZFU0c2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYmNyQ3JCQhIiIiIiEkIiIhIiIhNyQkISIiIiIhJCErKysrKzUhIio3JTckJCErKysrKyEpISM1JCErKysrKyEpISM1NyQkISIiIiIhJCErKysrKzUhIio3JCQhKysrKys3ISIqJCErKysrKyEpISM1LUkmU1RZTEVHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2I0ksUEFUQ0hOT0dSSURHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiItSSdDT0xPVVJHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2JkkkUkdCRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiJCIiISIiISQiIiEiIiEkIiorKysrIiEiKS1JJ0NVUlZFU0c2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYmNyQ3JCQiIiEiIiEkISIiIiIhNyQkIisrKysrNSEiKiQhIiIiIiE3JTckJCIrKysrKyEpISM1JCErKysrKyEpISM1NyQkIisrKysrNSEiKiQhIiIiIiE3JCQiKysrKyshKSEjNSQhKysrKys3ISIqLUkmU1RZTEVHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2I0ksUEFUQ0hOT0dSSURHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiItSSdDT0xPVVJHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2JkkkUkdCRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiJCIiISIiISQiIiEiIiEkIiorKysrIiEiKS1JJ0NVUlZFU0c2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYmNyQ3JCQiIikiIiEkIiIhIiIhNyQkIiIpIiIhJCIrKysrKzUhIio3JTckJCIrKysrK3khIiokIisrKysrISkhIzU3JCQiIikiIiEkIisrKysrNSEiKjckJCIrKysrKyMpISIqJCIrKysrKyEpISM1LUkmU1RZTEVHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2I0ksUEFUQ0hOT0dSSURHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiItSSdDT0xPVVJHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2JkkkUkdCRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiJCIqKysrKyIhIikkIiIhIiIhJCIiISIiIS1JJ0NVUlZFU0c2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYmNyQ3JCQiK1ZBR1l5ISIqJCIreERzZzohIio3JCQiK0A+Pl53ISIqJCIrZHldVEQhIio3JTckJCIrSEgwJVwoISIqJCIrT0ZMMUIhIio3JCQiK0A+Pl53ISIqJCIrZHldVEQhIio3JCQiK1VxTycpeSEiKiQiK2wpb1ZRIyEiKi1JJlNUWUxFRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiNiNJLFBBVENITk9HUklERzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiLUknQ09MT1VSRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiNiZJJFJHQkc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IiQiKisrKysiISIpJCIiISIiISQiIiEiIiEtSSdDVVJWRVNHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2JjckNyQkIitnaS4iUighIiokIitndVloSSEiKjckJCIrR0dOM3EhIiokIisjKnBNJilSISIqNyU3JCQiKzNPNitwISIqJCIrK1cuQ1AhIio3JCQiK0dHTjNxISIqJCIrIypwTSYpUiEiKjckJCIrP2FtcHMhIiokIitzeDV4USEiKi1JJlNUWUxFRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiNiNJLFBBVENITk9HUklERzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiLUknQ09MT1VSRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliRzYiNiZJJFJHQkc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IiQiKisrKysiISIpJCIiISIiISQiIiEiIiEtSSdDVVJWRVNHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2JjckNyQkIispKm92Xm0hIiokIitsPWNXVyEiKjckJCIrbG09JzQnISIqJCIreDkud18hIio3JTckJCIrKnkxNS8nISIqJCIrM05pKSpcISIqNyQkIitsbT0nNCchIiokIit4OS53XyEiKjckJCIrTVlmdGohIiokIissOyYzQSYhIiotSSZTVFlMRUc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYjSSxQQVRDSE5PR1JJREc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2Ii1JJ0NPTE9VUkc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYmSSRSR0JHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiIkIiorKysrIiEiKSQiIiEiIiEkIiIhIiIhLUkrQVhFU0xBQkVMU0c2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2IjYlUSJ4NiJRInk2Ii1JJUZPTlRHNiI2I0koREVGQVVMVEc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkc2Ii1JJVZJRVdHNiQlKnByb3RlY3RlZEdJKF9zeXNsaWJHNiI2JDskISM1IiIhJCIjNSIiITskISM1IiIhJCIjNSIiIQ==

Differentiating T(t): T:=t-> <2*t,3,3*t^2>/sqrt(4*t^2+9+9*t^4); diff(T(t),t); subs(t=1,%);