Fourteen Clickable Calculus examples have been added to the Teaching Concepts with Maple area of the Maplesoft web site. Four are sequence and series explorations taken from algebra/precalculus, four are applications of differentiation, four are applications of integration, and two are problems from the lines-and-planes section of multivariate calculus. By my count, this means some 111 Clickable Calculus examples have now been posted to the section.

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...

A kryptarithm - this is an example of arithmetic, in which all or some of the digits are replaced by letters. The rule must be satisfied: the different letters represent different digits, the identical letters represent the identical digits. See the link  http://en.wikipedia.org/wiki/Verbal_arithmetic.

The following procedure, called  Ksolve , solves kryptarithms in which are used four operations ...

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?

 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