Polya deals out cards from a deck one by one. How many cards must Polya deal out until he is sure that a flush (five cards of the same suit) has appeared amongst the dealt cards? What if Polya wants a straight (five cards in sequence, with an ace counting low or high)?

 The answers are 17 and 45, but how? in Maple?

for the flush the chances are 1/numbperm(13,5)/numbperm(4,1)

for the straight 1/10/numbperm(4,1)^5. 

http://www.math.hawaii.edu/~ramsey/Probability/PokerHands.html

Hello,

In a mechanical problem, i have to deal with a system with trigonometric expression. The variables are gamma[1](t), psi[1](t), phi[1](t), alpha(t), beta(t), x(t). The orthers are parameters.

I would like to have a explicit relations between  gamma[1](t), psi[1](t), phi[1](t) and alpha(t), beta(t), x(t).

In orthers words, i would like to have 

alpha(t)= f(gamma[1](t), psi[1](t), phi[1](t)).

beta(t)= f(gamma[1](t), psi[1](t), phi[1](t)).

 x(t) = f( gamma[1](t), psi[1](t), phi[1](t)).

Of course, the expresions of alpha(t), beta(t), and x(t) should be complex. Nevertheless, it will avoid me to have to solve Newton Raphson algorithm to solve these constraints equations.

Normally, it should be feasible.

When i have only one equation and not a system, isolate function is helpful.

But in this case, i don't manage to have my relations.

Have you some ideas to expression these relations ?

alpha(t)= f(gamma[1](t), psi[1](t), phi[1](t)).

beta(t)= f(gamma[1](t), psi[1](t), phi[1](t)).

 x(t) = f( gamma[1](t), psi[1](t), phi[1](t)).

Here the code of the equations :

restart:
with(LinearAlgebra):
with(Student[MultivariateCalculus]):
with(plots):
constants:= ({constants} minus {gamma})[]:
`evalf/gamma`:= proc() end proc:
`evalf/constant/gamma`:= proc() end proc:
unprotect(gamma);
restart:
with(LinearAlgebra):
with(Student[MultivariateCalculus]):
with(plots):
constants:= ({constants} minus {gamma})[]:
`evalf/gamma`:= proc() end proc:
`evalf/constant/gamma`:= proc() end proc:
unprotect(gamma);
eq_liai[1]:= rF[1]*cos(a[1])-cos(a[1])*cos(gamma[1](t))*e[1]-l[1]*(cos(phi[1](t))*cos(a[1])*cos(gamma[1](t))*cos(psi[1](t))-cos(phi[1](t))*cos(a[1])*sin(gamma[1](t))*sin(psi[1](t))-sin(a[1])*sin(phi[1](t)))-cos(alpha(t))*rBTP[1]*cos(a[1])-sin(alpha(t))*sin(beta(t))*rBTP[1]*sin(a[1])-sin(alpha(t))*cos(beta(t))*h = 0;
eq_liai[2]:= rF[1]*sin(a[1])-sin(a[1])*cos(gamma[1](t))*e[1]-l[1]*(cos(phi[1](t))*sin(a[1])*cos(gamma[1](t))*cos(psi[1](t))-cos(phi[1](t))*sin(a[1])*sin(gamma[1](t))*sin(psi[1](t))+cos(a[1])*sin(phi[1](t)))-cos(beta(t))*rBTP[1]*sin(a[1])+sin(beta(t))*h = 0;
eq_liai[3] := h[1]+sin(gamma[1](t))*e[1]+l[1]*(sin(gamma[1](t))*cos(psi[1](t))+cos(gamma[1](t))*sin(psi[1](t)))*cos(phi[1](t))+sin(alpha(t))*rBTP[1]*cos(a[1])-cos(alpha(t))*sin(beta(t))*rBTP[1]*sin(a[1])-cos(alpha(t))*cos(beta(t))*h-z(t) = 0;

or directly a maple file

constraints.mw

Thanks a lot for your help

Hi.

How to present two indexed values a[n] and b[n] in form

a₀ = ...,

a₁ = ...,    b₁ = ...;

a₂ = ...,   b₂ = ...;

in MathContainer component?

Thank you.

Hi,

Does Maplesim allow hardware integration such as a joystick so that I can feed in joystick commands (via USB or serial) from the computer and then control my Maplesim model in the virtual space? Suggestions?

Thank you.

Hi,

I'm currently working on a manipulator model in Maplesim and will import CAD attachments to each of the links. The Solidworks model, once imported to Maplesim, is not located in the same position as the Maplesim part but is offset by X,Y,Z. The scaling is also off. Is there some way to align the CAD to the component instead of trial and error?

Thank you.

Dear all,

I have encounter a Maple response but I don't know how to interpret it.

When I tried the following Maple codes:

A := solve( x^4 + x^3 + x^2 + x + 1  = n, x ):

asympt( A, n, 2 )

Maple responded with a mysterious "pt".  What is going on?  Any help will be appreciated!

Thanks in advance.

Cheers, Yen-chi Roger Lin

Assistant Professor in Mathematics

National Taiwan Normal University

Good morning Maple users.

I request your kind suggestion to the above cited question.

With thanks & Regards

M.Anand

Assistant Professor in Mathematics

SR International Institute of Technology,

Hyderabad, Andhra Pradesh, INDIA.

I am playing around with a crude implementation of the bisection algorithm. I am using printf  to display some of the output, however there are a couple extra characters, namely, ()^2, at the end. When the very last line is removed, it goes away. What is causing this?

Download bisect.mw

Consider the following Matrix constructor:

M := Matrix(3,(i,j) -> a||i||j + I*b||i||j,shape = hermitian);

It generates the following output:

That appears to me to be definitely wrong, a hermitian matrix allowing nonzero real-valued diagonal elements (otherwise quantum mechanics would be a rather vacuous theory). For shape = antihermitian, the diagonal still contains only zeros, even though it should contain nonzero purely complex-imaginary elements. Have I fundamentally misunderstood something?

PS: I was aware of this shortcoming back in Maple 9.5 (the previous version I have been working with), there manually circumventing it, but I certainly expected that it had been fixed since then.

Maple Player seems like it could be an outstanding piece of software, yet with the new operating system for Ipad, the program crashes immediately. I am unable to find any solutions. I also stumbled across a post in which Maplesoft is no longer providing support for the APP. Is this true?

I am attaching my file. Many of you have given great help on how to get dynamic Maple activities working.  My question again is along those lines. I have created a parabola with sliders a,h, and k.  What I am trying to do is have a button that says show vertex on the equation . However, when I connect the button with Plot3, I plot the the vertex in a new window.  Here is the most successful code I used:

Do(%Plot3=(plot([[%Slider2,%Slider1]],style=point,colour=blue,symbol=solidcircle,symbolsize=18)));

So I do get the point I want (h,k), but the point is not on the function itself.  I have tried muliple maple commands with no luck.  I am wonder how I can get the point (h,k) to be on the function when I hit the "show vertex" button. 

Parabolas_In_Vertex_.mw

Thank you for you time,

Nicholas

restart;

diffeq := diff(w(r), `$`(r, 1))+2*beta*(diff(w(r), `$`(r, 1)))^3-(1/2)*S*(r-m^2/r) = 0;

con := w(1) = 1;

ODE := {con, diffeq};

sol := dsolve(ODE, w(r), type = numeric);

How can i have numerical solution of the above differential equation with corresponding boundary condition?

Good time friends,

Recently, I saw this link http://math.stackexchange.com/q/613753/8581. There we asked to find the functions f(x) ang g(x) by having both composition functions fog(x) and gof(x). I know what to do to find any of f(x) (or g(x)) if I am given fog(x) (or gof(x)) respectively, but I confess I don't know what to do with this one. Can Maple overcome this knid of problem? Thanks for your time.

¿Does Maple 17 in that way has helped in the development of complex geometric problems?

¿que libros me recomiendan para aprender mas sobre matematica computacional?