MaplePrimes Posts

MaplePrimes Posts are for sharing your experiences, techniques and opinions about Maple, MapleSim and related products, as well as general interests in math and computing.

Latest Post
  • Latest Posts Feed
  • Problems concerning integration have been discussed on  maple primes  before with piecewise continuous antiderivatives explaining  difficulties. Here an example is given using Maple 15 where a continuous antiderivative is returned but definite integration fails to give the correct answer.

    Integration_anomal.mw


    Let c=MRB constant -1/2

    In case if you like notepad++  under windows, and still didn't do smth like that then this is for you .userDefineLang.zip

    Unpack to notepad++ folder. In case if you already had had other
    own language then just copy "Maple language" section.

    I have below outlined the different probabilities for different poker hands given
    5 cards from a 52 cards deck. The frequencies are from wikipedia
    http://en.wikipedia.org/wiki/Poker_probability




    These frequencies are quite interesting....I wonder if they found them by "brute fource"

    I have contributed another application to the Application Center: "Street-fighting Math".
    This interactive Maple document contains a simple street-fighting game and performs a
    mathematical analysis of it, involving probability and game theory. 

     

     

     

    ``

    restart; Digits := 64

    ``

     

    ````Define s as the following function involving a divergent series.

    s := proc (x) options operator, arrow; sum((-1)^n*n^(1/n), n = 1 .. x) end proc

    proc (x) options operator, arrow; sum((-1)^n*n^(1/n), n = 1 .. x) end proc

    (1)

    ``

    ``

     

     

    ``The upper limit point of the partial sums, of s is very slowly convergent.

    evalf(s(100))

    .211329543346941069485035868216520490712148674852018130412747187

    (2)

    evalf(s(1000))

    .191323989712141370638688981469071803275457219110707245455878532

    (3)

    evalf(s(10000))

    .188320351076950504638897789942367214051161086517598649780487746

    (4)

     

    ``

    Let mrb be tthe upper limit point of s as x goes to infinity.

    ``

    mrb := evalf(sum((-1)^n*(n^(1/n)-1), n = 1 .. infinity))

    .1878596424620671202485179340542732300559030949001387861720046841

    (5)

    ``

    ``

    ``

     

    Define f as the following function involving the divergnet series sum((-1)^n*(n^(a/n)-a), n = 1 .. infinity).NULL

    ``

    ``

    f := proc (a) options operator, arrow; sum((-1)^n*(n^(a/n)-a), n = 1 .. infinity) end proc

    proc (a) options operator, arrow; sum((-1)^n*(n^(a/n)-a), n = 1 .. infinity) end proc

    (6)

    ``

    ``

     

     

    ``Let c be the value for a in the neighborhood of 26 such that f(a)=mrb.

    c := fsolve(eval(f(x)) = mrb, x = 26)

    25.71864739101744668471488151161460875040712539231550975094037406

    (7)

    ``

    ``

     

    ``The average of the upper and lower limit points of the partil sums of f converges much faster than the  upper limit point of the partial sums of s.

    evalf((sum((-1)^n*(n^(c/n)-c), n = 1 .. 100)+sum((-1)^n*(n^(c/n)-c), n = 1 .. 101))*(1/2))

    .195238896203546569611605945649919224928195587923897718988014700

    (8)

    evalf((sum((-1)^n*(n^(c/n)-c), n = 1 .. 1000)+sum((-1)^n*(n^(c/n)-c), n = 1 .. 1001))*(1/2))

    .187904922391719396683391551158554482265830937732923110694243700

    (9)

    evalf((sum((-1)^n*(n^(c/n)-c), n = 1 .. 10000)+sum((-1)^n*(n^(c/n)-c), n = 1 .. 10001))*(1/2))

    .187860182910509428926222275077446745338505139578191116998518780

    (10)

     

    Download Jan72012.mw

    A recent Tips and Techniques article in the Maple Reporter contained the following five "gems" from my Red Book of Maple Magic. These 'gems' are tricks and techniques for Maple that I've discovered in my years here at Maplesoft. The previous 15 gems have appeared in three other issues of the Reporter, as...

    index.mw

    Higher Mathematics for external students of  biological faculty.
    Solver-practicum.
    1st semester.
    300 problems (15 labs in 20 variants).
    mw.zip

    Before use - Shake!
    (Click on the button and activate the program and Maplet).

     

    One of the challenges in Linear Algebra is in developing problems, projects, and exercises that are both larger dimensional and student-accessible. Indeed, round-off error, computational complexity, difficulty factoring characteristic polynomials of degree 3 or higher, and similar aspects often mean that any problems or applications of rank 3 or higher are approached solely via technology. 


    However, that same technology can be used to create...

    New versions of Maple T.A. and the Maple T.A. MAA Placement Test Suite are now available. Highlights include:

    - Adaptive questions provide students another chance when they give an incorrect response. Knowing the student is having trouble, the question can be adapted to walk the student through the problem one step at a time, allow students to try a simpler version of the same question before retrying the original, or whatever the instructor feels is appropriate. 

    If I'm not mistaken Maple already had technical interactive documents.  And Mathematica introduced cdf only in mid 2011, however why is there so much hype about cdf and media coverage about it replacing pdf's.  Of course it differs by one letter and probably done so by design.  And if pdf is so popular, then so might cdf be in the future.  Pretty slick and trick marketing by Wolfram if you ask me. 

    Also Maple released the maple Player in...

     


    NULL

    NULL

    Let f(c)= sum((-1)^n*(n^(c/n)-c), n = 1 .. infinity)

    NULL

    NULL

    Then f(1) = the MRB constant:

    evalf(eval(sum((-1)^n*(n^(c/n)-c), n = 1 .. infinity), c = 1)) = .1878596425NULL

    NULL

    NULL

    What if we change the value of c and use Levin's u-transform to compute the values for the analytic extension of the sum?

    Then can we find values for c such that f(c)=c?

     

    evalf(eval(sum((-1)^n*(n^(c/n)-c), n = 1 .. infinity), c = -1.351776595077954)) = -1.351776595 

    evalf(eval(sum((-1)^n*(n^(c/n)-c), n = 1 .. infinity), c = 7.020400867228059)) = 7.020400867

    evalf(eval(sum((-1)^n*(n^(c/n)-c), n = 1 .. infinity), c = 25.58774196597964)) = 25.58880851

    ``

    As an alalytic extension of the sum is there another value for c such that f(c) = the MRB constant? I haven't found one.

    NULL

     

     

    ``


    Download jan022012.mw

     

    Powerful database + Maple = Fun

    Are you struggling to connect Maple with a simple microsoft access database?
    Then after weeks of error messages you finally manage to connect just to
    discover that the datafeed is slow slow slow ie you are driving a Fiat Punto
    when you really should be driving a ferrari!

    Then maybe OpenTSDB http://opentsdb.net/index.html is something for you.
    OpenTSDB is free software...

     

    ``

    Hi.

    Some times ago, I have asked about possibility to solve multilayer transient heat transfer problem.
    The problem was solved originaly by Robert Israel. I enclosed his solution and explanation in file Xpde_oryginal.mw.
    Thank's Robert!


    There was a problem with correct results of numeric PDE in Maple 14 when I have used convection and radiation BC toogather. However Maplesoft have removed this bug in version 15, thus now I have obtained right results...

    First 103 104 105 106 107 108 109 Last Page 105 of 297