Does Maple have a command for plotting  regular polygons? How can I plot a regular polygon insrcibed in a circle? Thanks.

By the way, I read from a book that an N-polygon can be plotted as follows. But I wonder if this is the easiest way.

with(plots):with(plottools):
R:=1:
C:=circle([0,0],R,color=red,thickness=3):
N:=7:
a:=I*(2*Pi*i/N+Pi/2):t:=R*exp(a):
P:=polygonplot([[seq([Re(t),Im(t)],i=1..N)]],color=blue):
display(C,P);

In Maple 11 I need to write define_external procedure with 23 arguments.

For example:
   test1 := define_external('myproc',
                                               N1::(integer[4]),

Hi

I'm trying to create a maple graded question for working out if a students response is a correct eigenvector. I've been trying to get maple to solve AX = LX where A is a 2x2 matrix and X is a column vector.

I've tried the following commands and although they work in the algorithms they don't seem to work when used to grade the question. It there anyway around this problem? I think the problem is with the MatrixMatrixMultiply command.

Hi

 

how can i do this in maple

 

if(a>b>c) then 4

 

or maybe if(a>b) and if(b>c) then 4

All:

This should be simple but I am clearly missing some of the nuances - can you please help me see what I am doing wrong?  I would like to solve 2 eqns in 2 unknowns:

eq15 := Kzeff15 = (Kvr*Kz15)/(Kvr+Kz15);

eq33 := Kzeff33 = (Kvr*Kz33)/(Kvr+Kz33);

Kz33 := (3.3/1.5)*Kz15;

Kzeff15 := 150612;

Kzeff33 := 253629;

soln_z15 := fsolve ({eq15,eq33},{Kvr,Kz15});

 

 

I am currently running Mac OS 10.5.2. (Leopard) Is there any version of Maple that works with this OS?

limit approaching infinity: (arcsin(x))/(x)

= 0

Question is: Why? The 'Sandwich Theorem' 0=[(arcsinx)/x]=0 gives this
solution, but looking at the graph of (arcsinx)/x , this appears
impossible.

lim x->OO [arcsin(x)] - {DNE)
lim x->OO [(arcsinx)/x] - {DNE/OO}

lim x->OO [-Pi/2x] = lim x->OO [(arcsinx)/x] = lim x->OO [Pi/2x]
=> 0 = [(arcsinx)/x] = 0

=> lim x->OO [(arcsinx)/x] = 0

HOWEVER: (-Pi/2)<[arcsinx]<(Pi/2) ... SO ... 

Greetings all

I would like to show the x y values next to the point on the plot does maple have a command to do this?

data := [[0, 0], [.5, -1], [1, 0], [2, 2], [3, 0], [5, -4], [7, 0], [11, 8], [15, 0], [18.5, -7], [22, 0], [24.5, 5], [27, 0]];
 with(CurveFitting);
cubfit := BSplineCurve(data, x, order = 3);
plots[display](plot(data, style = point, color = black, symbol = BOX),
plot(cubfit, x = 0 .. 27, thickness = 2))

 

tia sal

What is the best way to print a maple file?  It seems that a lot of white space is added when making an html file.  Also it scrambles in a ton of strange symbols when its in a pdf, Im just trying to figure out how to print a 3 or 4 page maple worksheet without it printing on 20 pages!

 

Thanks!

How can I plot sin(y)>0, x>0 ?

I've tried using inequal:
with(plots):
inequal({sin(y)>0,x>0}, x=-2*pi..2pi, y=-2*pi..2*pi);

but I get the message 'unable to compute coeff' .

Thanks in advance.

I'm interested in finding a command that could stretch slope fields for me. Or perhaps I need to make a procedure of my own?

If that is the case, I would like to know how to draw a segment of a graph by varying the slope.

I think it is possible for me to use

with(geometry);

segment([y=y'*x+C, [x,y]],a,b);

But I don't have any idea how to make a program out of it yet.

 

Thanks in advance :)

Can I have maple show me the steps it takes to integrate?  Is this possible?

 

thanks!

Hi, I can't find any information what does FI mean, for example: f := proc(x) if x>0 then x else -x fi; end proc: f(-3); or: if iseuler(G) then continue else RETURN (print ("The graph does not have an Euler circuit")) fi; I'm tired of googling already, Maple Help doesn't have any information about fi, what might it be? perhaps some closing declaration instead of 'end if'? I would be grateful for any comments, thanks in advance, Sven

is there any way of creating a polynomial in maple from a list of coefficients (i could write my own function, but this is annoying, no?). specifically i would want an inverse to the PolynomialTools:-CoefficientList function, f([1, 2, 3]) would yield me 1 + 2*x + 3*x^2. i cant understand the apparent lack of such an elementary function, i must be missing someting? thanks

Hiya,

I have two questions...
Firstly when plotting a graph in Maple using plots[display]({A1,A2,A3}), is there anyway to switch the horizontal and vertical axes such that f(z) is on the horizontal axis and z along the vertical?

Secondly, I'm trying to plot a sum at various times t,

c(z,t):= Sum(A[n]*Phi[n](z)*exp(-lambda[n]*t), n = 1 .. 10)