with(plots):

Warning, the name changecoords has been redefined

spacecurve( [t, (2^.5)*cos(t), (2^.5)*sin(t)], t=-2*Pi..2*Pi, color=blue, axes=normal); #P716 #23 (curve)

LSUnUExPVDNERzYlLSUnQ1VSVkVTRzYkN1Q3JSQhKzJgPSRHJyEiKiQiK2lOQDk5RiwkIisqPSsqUSIqISNDNyUkIStrKEduLSdGLCQiKzk6J3pPIkYsJCIrRnZAKGUkISM1NyUkIStAQUZxZEYsJCIrRzJCSzdGLCQiK3FUelJwRjk3JSQhK3ljIlFeJkYsJCIrJFIqKmUsIkYsJCIrd3BWUSkqRjk3JSQhK04iZnREJkYsJCIrNiF5NkwoRjkkIiskXGEkNDdGLDclJCErI2YtNCsmRiwkIitFeCNRLSVGOSQiK3o1d2I4Riw3JSQhK1xnV1daRiwkIityd3hLWCEjNiQiK2lwWzg5Riw3JSQhKzEmKil6WyVGLCQhKzk3I3A5JEY5JCIrd2l2eThGLDclJCErakhgSlVGLCQhKzwjejdhJ0Y5JCIrazIlUUQiRiw3JSQhKz9rMnZSRiwkIStiLngyJipGOSQiKyU9NnAvIkYsNyUkISt4KT4nPVBGLCQhK2piQiY9IkYsJCIrdSZHXXIoRjk3JSQhK01MO2lNRiwkISszdjtVOEYsJCIrdUpJY1dGOTclJCErInoxZD8kRiwkISszekk2OUYsJCIrSncqMzEqRmVuNyUkIStbLURcSEYsJCErc1U4KVEiRiwkIStGN1IuRkY5NyUkISswUHojcCNGLCQhKyRSaVRGIkYsJCErZEUvT2hGOTclJCEraXJMT0NGLCQhKy5zJW8yIkYsJCErZFFMbiIqRjk3JSQhKz4xKSl6QEYsJCErQzkmNDQpRjkkIStDKCkqKWY2Riw3JSQhK3dTVUI+RiwkIStxJSo+JSlbRjkkIStwWj5GOEYsNyUkIStMdidwbSJGLCQhKyJwcXpOIkY5JCErVCd5d1MiRiw3JSQhKyEqNF41OUYsJCIrQkwzZEFGOSQhK25lMydSIkYsNyUkIStaVzBhNkYsJCIrKiozXUNkRjkkIStNWjwkSCJGLDclJCErUiF6ZigqKUY5JCIrL3RaPCkpRjkkISspb3djNSJGLDclJCErM09UNmtGOSQiKzUrUEw2RiwkIStyLWNlJSlGOTclJCEreCJbbyVRRjkkIitbI2UzSiJGLCQhKztwMjJgRjk3JSQhK1lGRyNHIkY5JCIrKSlHZy05RiwkISsxaVgzPUY5NyUkIismbyNHI0ciRjkkIisqKUdnLTlGLCQiKz9oWDM9Rjk3JSQiKzsiW28lUUY5JCIrXiNlM0oiRiwkIitPbzIyYEY5NyUkIitaTlQ2a0Y5JCIrOytQTDZGLCQiKy0tY2UlKUY5NyUkIit5KnlmKCopRjkkIitydFo8KSlGOSQiKyRvd2M1IkYsNyUkIitUVzBhNkYsJCIrdzRdQ2RGOSQiK0paPCRIIkYsNyUkIislKTReNTlGLCQiKzJNM2RBRjkkIittZTMnUiJGLDclJCIrRnYncG0iRiwkISsxMSh6TiJGOSQiK1QneXdTIkYsNyUkIitxU1VCPkYsJCErIVIqPiUpW0Y5JCIrc1o+RjhGLDclJCIrODEpKXpARiwkISthOCY0NClGOSQiK0goKSopZjZGLDclJCIrY3JMT0NGLCQhKyg+Wm8yIkYsJCIrQFJMbiIqRjk3JSQiKypwJHojcCNGLCQhKypRaVRGIkYsJCIrTUYvT2hGOTclJCIrVS1EXEhGLCQhK3JVOClRIkYsJCIrNjhSLkZGOTclJCIrJnkxZD8kRiwkISs0ekk2OUYsJCErJXknKjMxKkZlbjclJCIrR0w7aU1GLCQhKzZ2O1U4RiwkISskNC5qWCVGOTclJCIrcik+Jz1QRiwkIStvYkImPSJGLCQhKy4mR11yKEY5NyUkIis5azJ2UkYsJCErPS94MiYqRjkkISt6NiJwLyJGLDclJCIrZEhgSlVGLCQhKyNIejdhJ0Y5JCErZzIlUUQiRiw3JSQiKysmKil6WyVGLCQhKyhIQHA5JEY5JCErdWl2eThGLDclJCIrVmdXV1pGLCQiK0FveEtYRmVuJCEraXBbODlGLDclJCIrJ2UtNCsmRiwkIitXdyNRLSVGOSQhKyIzaGROIkYsNyUkIitIImZ0RCZGLCQiK1F6PEp0RjkkISsoXGEkNDdGLDclJCIrc2MiUV4mRiwkIispUSoqZSwiRiwkIStQcVZRKSpGOTclJCIrOkFGcWRGLCQiK0MyQks3RiwkIStXVXpScEY5NyUkIitlKEduLSdGLCQiKzc6J3pPIkYsJCErNHdAKGUkRjk3JSQiKyxgPSRHJ0YsRi0kIStfYkRSKCkhIz0tJSZDT0xPUkc2JiUkUkdCRyQiIiEhIiJGaGFsJCIjNUZqYWwtJSpBWEVTU1RZTEVHNiMlJ05PUk1BTEctJSVGT05URzYkJSpIRUxWRVRJQ0FHRlxibA==

spacecurve( [1, -(2^.5)*sin(t), (2^.5)*cos(t)], t=-2*Pi..2*Pi, color=blue, axes=normal); #P716 #23 (tangent)

LSUnUExPVDNERzYlLSUnQ1VSVkVTRzYkN1Q3JSQiIiIiIiEkISsqPSsqUSIqISNDJCIraU5AOTkhIio3JUYqJCErRnZAKGUkISM1JCIrOTonek8iRjI3JUYqJCErcVR6UnBGNiQiK0cyQks3RjI3JUYqJCErd3BWUSkqRjYkIiskUioqZSwiRjI3JUYqJCErJFxhJDQ3RjIkIis2IXk2TChGNjclRiokISt6NXdiOEYyJCIrRXgjUS0lRjY3JUYqJCEraXBbODlGMiQiK3J3eEtYISM2NyVGKiQhK3dpdnk4RjIkISs5NyNwOSRGNjclRiokIStrMiVRRCJGMiQhKzwjejdhJ0Y2NyVGKiQhKyU9NnAvIkYyJCErYi54MiYqRjY3JUYqJCErdSZHXXIoRjYkIStqYkImPSJGMjclRiokISt1SkljV0Y2JCErM3Y7VThGMjclRiokIStKdyozMSpGUiQhKzN6STY5RjI3JUYqJCIrRjdSLkZGNiQhK3NVOClRIkYyNyVGKiQiK2RFL09oRjYkISskUmlURiJGMjclRiokIitkUUxuIipGNiQhKy5zJW8yIkYyNyVGKiQiK0MoKSopZjZGMiQhK0M5JjQ0KUY2NyVGKiQiK3BaPkY4RjIkIStxJSo+JSlbRjY3JUYqJCIrVCd5d1MiRjIkISsicHF6TiJGNjclRiokIituZTMnUiJGMiQiK0JMM2RBRjY3JUYqJCIrTVo8JEgiRjIkIisqKjNdQ2RGNjclRiokIispb3djNSJGMiQiKy90WjwpKUY2NyVGKiQiK3ItY2UlKUY2JCIrNStQTDZGMjclRiokIis7cDIyYEY2JCIrWyNlM0oiRjI3JUYqJCIrMWlYMz1GNiQiKykpR2ctOUYyNyVGKiQhKz9oWDM9RjYkIisqKUdnLTlGMjclRiokIStPbzIyYEY2JCIrXiNlM0oiRjI3JUYqJCErLS1jZSUpRjYkIis7K1BMNkYyNyVGKiQhKyRvd2M1IkYyJCIrcnRaPCkpRjY3JUYqJCErSlo8JEgiRjIkIit3NF1DZEY2NyVGKiQhK21lMydSIkYyJCIrMk0zZEFGNjclRiokIStUJ3l3UyJGMiQhKzExKHpOIkY2NyVGKiQhK3NaPkY4RjIkISshUio+JSlbRjY3JUYqJCErSCgpKilmNkYyJCErYTgmNDQpRjY3JUYqJCErQFJMbiIqRjYkISsoPlpvMiJGMjclRiokIStNRi9PaEY2JCErKlFpVEYiRjI3JUYqJCErNjhSLkZGNiQhK3JVOClRIkYyNyVGKiQiKyV5JyozMSpGUiQhKzR6STY5RjI3JUYqJCIrJDQualglRjYkISs2djtVOEYyNyVGKiQiKy4mR11yKEY2JCErb2JCJj0iRjI3JUYqJCIrejYicC8iRjIkISs9L3gyJipGNjclRiokIitnMiVRRCJGMiQhKyNIejdhJ0Y2NyVGKiQiK3Vpdnk4RjIkISsoSEBwOSRGNjclRiokIitpcFs4OUYyJCIrQW94S1hGUjclRiokIisiM2hkTiJGMiQiK1d3I1EtJUY2NyVGKiQiKyhcYSQ0N0YyJCIrUXo8SnRGNjclRiokIitQcVZRKSpGNiQiKylRKiplLCJGMjclRiokIitXVXpScEY2JCIrQzJCSzdGMjclRiokIis0d0AoZSRGNiQiKzc6J3pPIkYyNyVGKiQiK19iRFIoKSEjPUYwLSUmQ09MT1JHNiYlJFJHQkckRiwhIiJGZ1tsJCIjNUZoW2wtJSpBWEVTU1RZTEVHNiMlJ05PUk1BTEctJSVGT05URzYkJSpIRUxWRVRJQ0FHRmpbbA==