Recently I was able to try Maple 17 beside Maple 12.  There were little wiggles in 17's plot but not so in 12's.  I thought what if I dragged 12's plot into 17's?  What would I get?  Well here is the result.

I made a plot of x^2+10 in Maple 17 and a plot of x^2 in Maple 12 then dragged the line over. And this is the visual I got

Hi all,

This is just for fun.

I am originally from Shanghai China and I went abroad to UK in 2006. Maple has always been there for me. Maple was there for my senior year, for my foundation year, for all my undergraduate year, for my master's degree and for my PhD!

Somehow, I lost Maple 10. I will see if I can find it from my backup drive again!

A reddit user posted an interesting question:

http://www.reddit.com/r/math/comments/1eyx0f/help_with_simplifying_in_maple/

The problem is how to simplify, e.g. 2/3*37^(1/2)*sin(1/6*Pi+1/3*arccos(55/1369*37^(1/2)))+2/3 to 4.  I tried a few things and got nowhere.  Any suggestions?

#### Code attached at the BOTTOM ####

If I run these seperately, they seem to be running fine as shown above. But when I run '8' after '7', it does not seem to be working as in first picture.

I am trying to solve a problem using fsolve. Where the fsolve is inside the integral. I keep getting the following message. Here is what I am trying to do 

int(fsolve(int(k*r*PDF(R,r),r=-infinity..x)=0,x)*PDF(Q,z),z=-1..1);

where Q is a normal distribution and R is also normally distributed with its parameter conditional on Q. Following is the error message that I get.

"Error, (in fsolve) z is in the equation, and is not solved for"

Please, explain me, why I got this? And how to get normal one?

restart;

with(ExcelTools):

with(ListTools):

with(DynamicSystems):

filename := "MSFT";

close3 := Import(cat(cat("C://US//",filename),".xls"), filename, "E2:E100");

this i usually use ln(close3[n]/close[n-1]) as the original series

as i do not know whether Sample in statistics package can use this directly,

or 

need to use counting to classify them into some group and got a distribution graph

genDE := Diff(g(t),t)^2 - 1 - x*(g(t))^2 - (y-x^2)/12*(g(t))^4 = 0;gensol := dsolve(genDE,g(t));genfun := rhs(gensol[1]);

from above, i got generating function and then continue to derive got the following error

u = ln(-sqrt((-z^2+y)*(-3*z+sqrt(12*z^2-3*y)))*z^2/(sqrt(-z^3*(-3+2*sqrt(3)*csgn(z)))*(-z^2+y)))/x;

tau := subs(u=z,solve(q,z));

it said solution may have lost

if this can not be direct to...

restart;with(Statistics):

MartinPoisson := (p/((p+2*q*T)/(1+p*T+q*T^2)-(p*T+q*T^2)*(p+2*q*T)/(1+p*T+q*T^2)^2))^r*r^2*T^n/factorial(n);

Dist := subs(T=t,MartinPoisson) assuming t > 0;

MartinDist := Distribution(CDF = unapply(piecewise(t>1,Dist,0),t));

MartinDist := Distribution(CDF = unapply(Dist, t)) assuming t > 0; #Change 2

X:=RandomVariable(MartinDist);

MartinDensity := PDF(X,t);

MartinDensity := subs(t=x, MartinDensity);

plot part of the surface f(x,y)=10-x^2-3y^2:

plot3d(10-x^2-3y^2, x=-1 .. 4, y=1 .. 2, view=0 .. 11, axes= normal); (press enter)

Determine the normal vector and the equation of the tangent plane at the point (2,1,3) on the surface.

Display the surface , a black vector and the tangent plane, and give the equation for each of them

label the normal vector and the tangent plane, and give the equation for each of them

LL_61)_Poker.mw

I am having some problem with this procedure located in the "experiment" sub section.
I am trying to calculate the win probability in a poker game pre flop ie each player
get two cards. I am trying to find out which two card combination will result in the
highest probability of winning in the end.

In the first example I simply assume that player 1 gets [DA, HA] ie dimond ace

i copy from notepad, it do not have line return, so i copy to MS WORD and copy here from MS WORD

but some characters missing, if there is some missing please tell me, it seems old web page is better

code and error here

https://skydrive.live.com/redir?resid=E0ED7271C68BE47C!351

restart;with(LinearAlgebra):

f:=[x3-x2^3,-x2,x1^2-x3]:

with(Physics):

u := subs(x3=x3(t),subs(x2=x2(t),subs(x1=x1(t),u)));u := -Physics[`*`](Physics[`*`](Physics[`*`](3, Physics[`^`](conjugate(x2(t)), 2)), x2(t))+Physics[`^`](x1(t), 2)-x3(t), Physics[`^`](1+Physics[`*`](3, Physics[`^`](conjugate(x2(t)), 2)), -1));

u = subs(conjugate(x3(t))=x3(t),subs(conjugate(x2(t))=x2(t),subs(conjugate(x1(t))=x1(t),u)));

would like to remove all conjugate back to normal variable

have a matrix An = [alpha(i,j)]
alpha(i,j) = (j-i+1)*(j-1)!/(i-1)!*a(j-i+1)*x    for j-i >= 0, j - i even

                   0, j-i >= 0, j-i odd,           

                   -1, i-j = 1,             

                    0, otherwise

DOES ANYONES HAS THE SLIGHTEST IDEA OF HOW I COULD MODEL AND SUMILATE THE WAVE PATTERN OF A REGISTERED EARTHQUAKE??? FOR INSTANCE I AM STUDYING THE EARTHQUAKE EFFECTS OF THE NOVEMBER QUAKE IN GUATEMALA OF LAST YEAR. I WOULD LIKE TO MODEL THE MOVEMENT OF THAT QUAKE OVER A GIVEN AREA NEAR THE EPICENTER.

ANY HINTS OF HOW I COULD EVEN START TO MAKE THE MODEL AND SIMULATE??