f:=(t,y)->exp(t)*sin(y); NiM+SSJmRzYiZio2JEkidEdGJUkieUdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlKiYtSSRleHBHRiU2IzkkIiIiLUkkc2luR0YlNiM5JUYyRiVGJUYl Euler:=proc(ystart,tstart,tstop,deltat)
local t,y0,y1;
global results;
t:=tstart;
y0:=ystart;
results:=[[tstart,ystart]];
while t < tstop do
y1:=evalf(y0+f(t,y0)*deltat);
t:=evalf(t+deltat);
results:=[op(results),op([[t,y1]])];
y0:=y1;
end do;
end proc; NiM+SSZFdWxlckc2ImYqNiZJJ3lzdGFydEdGJUkndHN0YXJ0R0YlSSZ0c3RvcEdGJUknZGVsdGF0R0YlNiVJInRHRiVJI3kwR0YlSSN5MUdGJUYlRiVDJj44JDklPjglOSQ+SShyZXN1bHRzR0YlNyM3JEYzRjY/KEYlIiIiRjxGJTJGMjkmQyY+OCYtSSZldmFsZkdJKnByb3RlY3RlZEdGRDYjLCZGNUY8KiYtSSJmR0YlNiRGMkY1Rjw5J0Y8Rjw+RjItRkM2IywmRjJGPEZLRjw+Rjg3JC1JI29wR0ZENiNGOC1GUzYjNyM3JEYyRkE+RjVGQUYlRlRGJQ== Euler(3,0,5,0.2); NiMkIStyJnpWNCYhIik= results; NiM3PDckIiIhIiIkNyQkIiIjISIiJCIrLVNBR0khIio3JCQiIiVGKiQiK3YlZWUwJEYtNyQkIiInRiokIitBc1MiMyRGLTckJCIiKUYqJCIrJSlwSy5KRi03JCQiIzVGKiQiKyE+Yi43JEYtNyQkIiM3RiokIisvLSE+OCRGLTckJCIjOUYqJCIrO2hMUUpGLTckJCIjO0YqJCIrJUh4NDkkRi03JCQiIz1GKiQiK3RvZVRKRi03JCQiIz9GKiQiK25RZlRKRi03JCQiI0FGKiQiK3U/ZlRKRi03JCQiI0NGKiQiKz9KZlRKRi03JCQiI0VGKiQiKyM0I2ZUSkYtNyQkIiNHRiokIisvT2ZUSkYtNyQkIiNJRiokIit5L2ZUSkYtNyQkIiNLRiokIis9IypmVEpGLTckJCIjTUYqJCIrNXFjVEpGLTckJCIjT0YqJCIrKG8/PDkkRi03JCQiI1FGKiQiK0dOeVNKRi03JCQiI1NGKiQiKy10LFtKRi03JCQiI1VGKiQiKyxJJ3kyJEYtNyQkIiNXRiokIisqNG5zI1JGLTckJCIjWUYqJCErVHMhW2YoRi03JCQiI1tGKiQhKyhHOkZvIyEiKTckJCIjXUYqJCErciZ6VjQmRltz result1:=results; NiM+SShyZXN1bHQxRzYiN1U3JCIiISIiJDckJCIiIiEiIiQiKyw/NjlJISIqNyQkIiIjRi0kIitqRTtHSUYwNyQkRilGLSQiK1Z0KT4vJEYwNyQkIiIlRi0kIitLL1RiSUYwNyQkIiImRi0kIisqUl4jb0lGMDckJCIiJ0YtJCIrIVxLLjMkRjA3JCQiIihGLSQiK1J5WyI0JEYwNyQkIiIpRi0kIispW3Q6NSRGMDckJCIiKkYtJCIrU3ZaNUpGMDckJCIjNUYtJCIrKVFIIj1KRjA3JCQiIzZGLSQiKyF5MVg3JEYwNyQkIiM3Ri0kIis1JVInSEpGMDckJCIjOEYtJCIrS3pnTEpGMDckJCIjOUYtJCIrS3hgT0pGMDckJCIjOkYtJCIrJmYoZVFKRjA3JCQiIztGLSQiK25WJCpSSkYwNyQkIiM8Ri0kIitAZHZTSkYwNyQkIiM9Ri0kIitgUUBUSkYwNyQkIiM+Ri0kIis5SVdUSkYwNyQkIiM/Ri0kIitoSWFUSkYwNyQkIiNARi0kIiswKHo6OSRGMDckJCIjQUYtJCIrei1mVEpGMDckJCIjQkYtJCIrQUNmVEpGMDckJCIjQ0YtJCIrYEVmVEpGMDckJCIjREYtJCIrYUVmVEpGMDckJCIjRUYtRmBzNyQkIiNGRi1GW3M3JCQiI0dGLUZgczckJCIjSEYtRltzNyQkIiNJRi1GYHM3JCQiI0pGLUZbczckJCIjS0YtRmBzNyQkIiNMRi1GW3M3JCQiI01GLSQiK2JFZlRKRjA3JCQiI05GLSQiK15FZlRKRjA3JCQiI09GLSQiK2dFZlRKRjA3JCQiI1BGLSQiK1BFZlRKRjA3JCQiI1FGLSQiKy9GZlRKRjA3JCQiI1JGLSQiK3pDZlRKRjA3JCQiI1NGLSQiK1VMZlRKRjA3JCQiI1RGLSQiKyRlKmVUSkYwNyQkIiNVRi0kIis2IjM7OSRGMDckJCIjVkYtJCIrSl1dVEpGMDckJCIjV0YtJCIrMzM6VUpGMDckJCIjWEYtJCIrI2YvdzgkRjA3JCQiI1lGLSQiKyQpUV10SkYwNyQkIiNaRi0kIit6NTRjR0YwNyQkIiNbRi0kIispZUhFJmZGMDckJCIjXEYtJCIrOjt5Mz9GMDckJCIjXUYtJCIrN3IsPDkhIik= with(plots); Warning, the name changecoords has been redefined NiM3Zm5JKGFuaW1hdGVHNiJJKmFuaW1hdGUzZEdGJUktYW5pbWF0ZWN1cnZlR0YlSSZhcnJvd0dGJUktY2hhbmdlY29vcmRzR0koX3N5c2xpYkdGJUksY29tcGxleHBsb3RHRiVJLmNvbXBsZXhwbG90M2RHRiVJKmNvbmZvcm1hbEdGJUksY29uZm9ybWFsM2RHRiVJLGNvbnRvdXJwbG90R0YlSS5jb250b3VycGxvdDNkR0YlSSpjb29yZHBsb3RHRiVJLGNvb3JkcGxvdDNkR0YlSS1jeWxpbmRlcnBsb3RHRiVJLGRlbnNpdHlwbG90R0YlSShkaXNwbGF5R0YlSSpkaXNwbGF5M2RHRiVJKmZpZWxkcGxvdEdGJUksZmllbGRwbG90M2RHRiVJKWdyYWRwbG90R0YlSStncmFkcGxvdDNkR0YlSSxncmFwaHBsb3QzZEdGJUktaW1wbGljaXRwbG90R0YlSS9pbXBsaWNpdHBsb3QzZEdGJUkoaW5lcXVhbEdGJUksaW50ZXJhY3RpdmVHRiVJMmludGVyYWN0aXZlcGFyYW1zR0YlSS1saXN0Y29udHBsb3RHRiVJL2xpc3Rjb250cGxvdDNkR0YlSTBsaXN0ZGVuc2l0eXBsb3RHRiVJKWxpc3RwbG90R0YlSStsaXN0cGxvdDNkR0YlSStsb2dsb2dwbG90R0YlSShsb2dwbG90R0YlSSttYXRyaXhwbG90R0YlSSltdWx0aXBsZUdGJUkob2RlcGxvdEdGJUkncGFyZXRvR0YlSSxwbG90Y29tcGFyZUdGJUkqcG9pbnRwbG90R0YlSSxwb2ludHBsb3QzZEdGJUkqcG9sYXJwbG90R0YlSSxwb2x5Z29ucGxvdEdGJUkucG9seWdvbnBsb3QzZEdGJUk0cG9seWhlZHJhX3N1cHBvcnRlZEdGJUkucG9seWhlZHJhcGxvdEdGJUkncmVwbG90R0YlSSpyb290bG9jdXNHRiVJLHNlbWlsb2dwbG90R0YlSStzZXRvcHRpb25zR0YlSS1zZXRvcHRpb25zM2RHRiVJK3NwYWNlY3VydmVHRiVJMXNwYXJzZW1hdHJpeHBsb3RHRiVJK3NwaGVyZXBsb3RHRiVJKXN1cmZkYXRhR0YlSSl0ZXh0cGxvdEdGJUkrdGV4dHBsb3QzZEdGJUkpdHViZXBsb3RHRiU= pointplot(result1,style=LINE); LSUlUExPVEc2JC0lJ0NVUlZFU0c2IzdVNyQkIiIhRiskIiIkRis3JCQiIiIhIiIkIissPzY5SSEiKjckJCIiI0YxJCIrakU7R0lGNDckJEYtRjEkIitWdCk+LyRGNDckJCIiJUYxJCIrSy9UYklGNDckJCIiJkYxJCIrKlJeI29JRjQ3JCQiIidGMSQiKyFcSy4zJEY0NyQkIiIoRjEkIitSeVsiNCRGNDckJCIiKUYxJCIrKVt0OjUkRjQ3JCQiIipGMSQiK1N2WjVKRjQ3JCQiIzVGMSQiKylRSCI9SkY0NyQkIiM2RjEkIisheTFYNyRGNDckJCIjN0YxJCIrNSVSJ0hKRjQ3JCQiIzhGMSQiK0t6Z0xKRjQ3JCQiIzlGMSQiK0t4YE9KRjQ3JCQiIzpGMSQiKyZmKGVRSkY0NyQkIiM7RjEkIituViQqUkpGNDckJCIjPEYxJCIrQGR2U0pGNDckJCIjPUYxJCIrYFFAVEpGNDckJCIjPkYxJCIrOUlXVEpGNDckJCIjP0YxJCIraElhVEpGNDckJCIjQEYxJCIrMCh6OjkkRjQ3JCQiI0FGMSQiK3otZlRKRjQ3JCQiI0JGMSQiK0FDZlRKRjQ3JCQiI0NGMSQiK2BFZlRKRjQ3JCQiI0RGMSQiK2FFZlRKRjQ3JCQiI0VGMUZkczckJCIjRkYxRl9zNyQkIiNHRjFGZHM3JCQiI0hGMUZfczckJCIjSUYxRmRzNyQkIiNKRjFGX3M3JCQiI0tGMUZkczckJCIjTEYxRl9zNyQkIiNNRjEkIitiRWZUSkY0NyQkIiNORjEkIiteRWZUSkY0NyQkIiNPRjEkIitnRWZUSkY0NyQkIiNQRjEkIitQRWZUSkY0NyQkIiNRRjEkIisvRmZUSkY0NyQkIiNSRjEkIit6Q2ZUSkY0NyQkIiNTRjEkIitVTGZUSkY0NyQkIiNURjEkIiskZSplVEpGNDckJCIjVUYxJCIrNiIzOzkkRjQ3JCQiI1ZGMSQiK0pdXVRKRjQ3JCQiI1dGMSQiKzMzOlVKRjQ3JCQiI1hGMSQiKyNmL3c4JEY0NyQkIiNZRjEkIiskKVFddEpGNDckJCIjWkYxJCIrejU0Y0dGNDckJCIjW0YxJCIrKWVIRSZmRjQ3JCQiI1xGMSQiKzo7eTM/RjQ3JCQiI11GMSQiKzdyLDw5ISIpLSUmU1RZTEVHNiMlJUxJTkVH plot2:=results; NiM+SSZwbG90Mkc2Ijc8NyQiIiEiIiQ3JCQiIiMhIiIkIistU0FHSSEiKjckJCIiJUYtJCIrdiVlZTAkRjA3JCQiIidGLSQiK0FzUyIzJEYwNyQkIiIpRi0kIislKXBLLkpGMDckJCIjNUYtJCIrIT5iLjckRjA3JCQiIzdGLSQiKy8tIT44JEYwNyQkIiM5Ri0kIis7aExRSkYwNyQkIiM7Ri0kIislSHg0OSRGMDckJCIjPUYtJCIrdG9lVEpGMDckJCIjP0YtJCIrblFmVEpGMDckJCIjQUYtJCIrdT9mVEpGMDckJCIjQ0YtJCIrP0pmVEpGMDckJCIjRUYtJCIrIzQjZlRKRjA3JCQiI0dGLSQiKy9PZlRKRjA3JCQiI0lGLSQiK3kvZlRKRjA3JCQiI0tGLSQiKz0jKmZUSkYwNyQkIiNNRi0kIis1cWNUSkYwNyQkIiNPRi0kIisobz88OSRGMDckJCIjUUYtJCIrR055U0pGMDckJCIjU0YtJCIrLXQsW0pGMDckJCIjVUYtJCIrLEkneTIkRjA3JCQiI1dGLSQiKyo0bnMjUkYwNyQkIiNZRi0kIStUcyFbZihGMDckJCIjW0YtJCErKEc6Rm8jISIpNyQkIiNdRi0kIStyJnpWNCZGXnM= display({plot1,plot2}); Error, (in display) first argument must be a plot structure or list, set or array of plot structures ?display ?pointplot