>restart:with(plots): >screw:=[seq(plot3d([a*cos(x),a*sin(x),3*x],a=-20..20,x=1..4*Pi,numpoints=1500,orientation=[i,60]),i=-30..30)]: >tube:=[seq(implicitplot3d([x^2+y^2=40,z],x=-15..15,y=-15..15,z=1..12*Pi,color=green,orientation=[i,60]),i=-30..30)]: >p1:=display(tube,insequence=true): >p2:=display(screw,insequence=true): >display(p1,p2); Regards, Georgios Kokovidis Dräger Medical

From the FAQ's section for Maple 11: How do I get the Pi symbol to appear on my 2-D plot axis? With Maple 11 you can follow these steps: Select your 2-D plot, and bring up the Axis Properties dialog (from the Plot menu or plot context menu). Remove the checkmark from “Let the renderer choose tickmarks”, then select “Custom Spacing”, then select “Multiply by Pi”. Then click Apply. See ?plot,tickmarks for details. If you do not have Maple 11, then it gets kind of messy, but it is still possible. See link here. Regards, Georgios Kokovidis Dräger Medical

Numerical round off error. At the beginning of your worksheet, change Digits to a higher value than the default and execute the worksheet over again, and your answer will match the other prorams. >restart: >Digits:=20 The rest of your code here: ?Digits for more help on this. Regards, Georgios Kokovidis Dräger Medical

It strips the units because it acts as a multiplying factor. Change Unit=1 to Unit=2 to see this in action. This does not work for the Classic Interface version of Maple, only for the Standard interface. I wonder why that is. Regards, Georgios

Take a look at the worksheets here, Unit 4 - Parametric Probability Distributions. Regards, Georgios Kokovidis Dräger Medical

Here is a starting point for you with regards to animating the screw of Archimedes. The point moving up the screw is up to you. Good luck with your assignment. >restart:with(plots): >screw:=[seq(plot3d([a*cos(x),a*sin(x),3*x],a=-20..20,x=1..4*Pi,numpoints=1500,orientation=[i,60]),i=-30..30)]: >display(screw,insequence=true); Right click on the graph, go to Animation, Play to see it spin. Regards, Georgios Kokovidis Dräger Medical

Your values for r[1] are created with the seq command inside the first pointplot statement below. r[1] and r[2] are the same, so if you use the display command, you will not see them, because they will be on top of each other. As an example, I modified on of the sequences so the values are different. Then using the display command you can see them clearly near each other. >restart:with(plots): >pointplot({seq([x^2,x^3],x=1..5)},symbolsize=20); >p1:=pointplot({seq([x^2,2+x^3],x=1..5)},color=blue,symbolsize=20): >p2:=pointplot({seq([x^2,x^3],x=1..5)},color=red,symbolsize=20): >display({p1,p2}); Regards, Georgios Kokovidis Dräger Medical

Take a look at the help files for the plot3d command and the examples that are listed. Given the symbolic output of your differential equation, you should be able to use that to get what you are looking for with this command. >?plot3d >?plot3d[coords] Later edit: I replied soon after Alex above, without seeing his posting. //G Regards, Georgios Kokovidis Dräger Medical

If you have the Mathematica notebook file (*.nb), you can try to open it directly in Maple. I have not tried this feature, but you can give it a try and see what happens. Under the File-Open menu, one of the options is Mathematica notebook, in the dropdown list that is available. Otherwise, cut and paste you actual Maple code here so that we can take a look at it. Regards, Georgios Kokovidis Dräger Medical

You could display both plots at the same time over each other to see if there are differences. What version of Maple are you using? Maple 11 handles this better than Maple 10. At the Maple prompt, type ?axis and look at the help files for more info. >restart: with(plots): >ReZ:=sin(omega); >ImZ:=cos(omega); >p1:=plot([ReZ,ImZ,omega=0..0.5],color=green): >p2:=plot([ReZ,ImZ,omega=0..1]): >display(p1,p2); Regards, Georgios Kokovidis Dräger Medical

How about using Asymptotes: >restart: >with(Student[Calculus1]): >f:=1/sqrt(k); >s:=(k-2)*exp(-k); >Asymptotes(f,k=1..infinity); >Asymptotes(s,k=1..infinity); Regards, Georgios Kokovidis Dräger Medical

I make a partial attempt here to solve the problem. >restart: >sc:=readdata("c:/temp/cubicvar.txt",float,4); Here I read in a file that I created similar to what you are describing. Below, the writedata command shows the contents of that file. Each column represents the a,b,c and d values of your cubic function. >writedata(terminal,sc); 1.5 2.02 3.04 10 2.07 3.4 5.6214 10 3.6 5.33 1.0667 10 >i:=nops(sc); Return the number of rows of the data values. >j:=nops(sc[1]); Return the number of columns in the data. These values can be used for controlling a for loop to iterate over all of the variables(functions) that you are trying to solve. >ans:=fsolve(-sc[1,1]*x^3-sc[1,2]*x^2+sc[1,3]*x-sc[1,4],x,real); ans := -2.865688206 >ans2:=fsolve(-1.5*x^3-2.02*x^2+3.04*x-10,x,real); ans := -2.865688206 Your "for" loop can plug in values indexed like I have above in the fsolve command. ans and ans2 are identical. >type(ans,nonnegative); false Your can check your answer, and if it is false, ignore it, otherwise print it or write it off to a file. Hope this helps, or points you in the right direction. Regards, Georgios Kokovidis Dräger Medical

The code above posted by Mariner works exactly the same in Maple11 as in Maple10. Both instances used the Classic Interface, WinXP. Regards, Georgios Kokovidis Dräger Medical

An example. >restart:with(plots): >data:=[[6,10],[6.1,11],[6.2,12],[6.3,13],[6.4,14],[6.5,15],[6.6,16],[6.7,17],[6.8,18],[6.9,19],[7,20]]; >plot(data); >dataM:=convert(data,matrix); >dataL:=convert(dataM,listlist); >plot(dataL); >f1:=%: >plot(x,x=4..10); >f2:=%: >display({f1,f2}); Regards, Georgios Kokovidis Dräger Medical

Greetings. The above code from Scott works as long as the number that you are testing is not the first element or the last element in your range. > restart: z:=5: > type(z, Range(1, 10)); true > restart: z:=1: > type(z, Range(1, 10)); false > restart: z:=10: > type(z, Range(1, 10)); false Take a look at the help page for the "in" command: > restart: z:=5: > evalb(z in {$ 1..10}); true > restart: z:=1: > evalb(z in {$ 1..10}); true > restart: z:=10: > evalb(z in {$ 1..10}); true > restart: z:=11: > evalb(z in {$ 1..10}); false > restart: z:=0: > evalb(z in {$ 1..10}); false Regards, Georgios Kokovidis Dräger Medical