I am supposed to implement the following code in Maple (I am using Maple 16 for Mac):

 euclid:= proc(m,n) local q,r1,r2,r3;

r1:=m; r2:=n;

while r2 <> 0 do;

q:=iquo(r1,r2); r3:=irem(r1,r2);

lprint(r1, '=', q, '*', r2, '+', r3);

r1:=r2; r2:=r3; od;

RETURN(r1); end;

It just returns: "Error, unable to match delimiters". I copied (typed) the code from this PDF: 

http://www...

I have to calculate and plot the volume of a cicloid where a equals 27. Now, the assisstant gave us the supposed code to work with, as most were having trouble with it. Here it is:

with(plots)

plot3d(27*(t-sin(t)),sqrt((27*(1-cos(t)))^2)*cos(s),sqrt((27*(1-cos(t)))^2)*sin(s),t=0..2*Pi,s=0..2*Pi);

However, this gives me the following error when trying to execute:

Error, (in plot3d) bad range arguments: ((27-27*cos(t...

Hello,

Given a two dimensional vector field.  u(x,y)=[x,y], how can I plot the given vector field subject to x+y>0?...or something more complicated like x^2+y^2>0

Thanks

I have to calculate inverse laplace transform of a function that contains branch point at zero and infinity. Is there any procedure in Maple to calculate ILT with branch point Analytically.

I've done the procedures for answering the questions but i don't know how to go about calculating f(6) and f(15).

In the application example SignalGeneration, I click on the button "Play Waveform" and get the message "This option is only available on the Windows platform. Your platform is X86 64 WINDOWS". Does it really mean that I won't be able to play audio file in windows 7 64? If not, how can I solve this problem ?

Thank you!

Stéphane

How to find the exact solution from this equations?

1. (x+epsilon*y)dy/dx + y =0      y(1)=1

2. (x^n + epsilon * y)dy/dx + nx^(n-1) * y = m*x^(m-1)      y(1)=b>1   ; n=2,3,4,...   ; m=0,1,2,3,...

3. u" + u + epsilon*u^3 = 0    u(0)=A  ;   u'(0)=0

4. y" + 2(y')^2 +3y' = -sin x    ; y(0)=1  ;  y'(0)=0

Would someone be kind enough to write rsolve procedures (or code) to evaluate these two sums

the answers are 3 and 7/4

Doing a pointplot([x1,...,xn],[y1,...yn]) is no problem but I have lists [y11,...y1n] [y21,...,y2n] ... [ym1,...ymn] each be plottet at [x1,...,xm] in 1 plot.

That means:

plotting 

[y11,...y1n] at x1

[y21,...,y2n] at x2

.

.

.

[ym1,...ymn] at xm

What is the easiest way to implement this?

Hello everyone!  

I am very new to the maplesoft community but am very impressed with everything I have learned in the last few days.  I'm having an issue using force probes on a double wishbone suspension that I'm hoping someone can help me with.  I am trying to measure the forces in each link to gather quantitative solutions for the forces at the chassis connection points.  However, I keep getting one of the links measuring no value at all.  The...

 hi everyone,   

I have a list of coordinates  and would like to sort them so that in the new order, the last coordinate will be the first coordinate and the first coordinate will be the first: 

   for example:  

  P:=array([[1,4],[2,3],[3,2],[4,1],[6,5],[6,1]]):   

should sort to  

  P:=array[ [6,1], [6,5], [4,1],[3,2],[2,3],[1,4]]  

Two examples:

for i in {1, 2/0, -3, 1/4, 5} do

if i::posint then print(i)  fi;

od;

       Error, numeric exception: division by zero

select(x->is(x::posint), {1, 2/0, -3, 1/4, 5});

       Error, numeric exception: division by zero

How to avoid interruption of the program in such cases?

Hi, this question requires the use of with(geom3d): package and i don't know how to go about answering it.

Hello dear,

I want to plot a piecewise function.

The code is 

restart:with(plots):

lambda0:=PL-R3*x;

Psi0:=PL+R3*S0*(R1-1)-R1*R3*x;

S0:=(Q-1)/Q;

P:=piecewise(x<S0,lambda0,x>S0,Psi0);

R3=-5,k=4,R1=0.0006,Q=1.2

I want to plot P vs x (0..1) vs PL (0..1).

Thanks

I am trying to illustrate the effects of using finite-precision arithmetic on solving certain linear systems using elementary row operations. I am able to set Digits to the desired level and use the RowOperation command for each individual row operation. I would like to be use say, ReducedRowEchelonForm or LinearSolve with the desired level of precision. Is there anyway to force Maple to use whatever number of digits when using commands like ReducedRowEchelonForm or LinearSolve?...