Advanced Search

Christopher2222

5785 Reputation

24 Badges

17 years, 22 days
Contact Christopher2222

MaplePrimes Activity


These are replies submitted by Christopher2222

maple file?...

Christopher2222 5785
February 21 2013

Maybe it would be perhaps better to post a maple worksheet, rather than a movie wmv file?

Founder effect...

Christopher2222 5785
February 20 2013

An extreme case of genetic drift is known as the founder effect.

I would like to point out that the proposterous idea of countries needing to protect themselves from zombie outbreaks might not be so rediculous.  Far fetched yes but is it really?  Should a few strange people be left stranded on an island, the idea of a zombie nation is possible.  Unfortunately the very nature of a zombie is to consume others so really they would just basically wipe themselves out. 

Both genetic drift and the founder effect have interesting effects on the human population.  I didn't really use much of maple here but the idea was interesting enough.  With a little more thought and time, a better presentation could be made with Maple. 


An extreme case of genetic drift is known as the founder effect.  If a small number of individuals migrate off to found a new population they may carry allels  in different relative frequencies from the main population (Allels - two or more forms of a single gene).

 

Again we can use Maple rather simply to simulate a demonstration of how it works.

 

Imagine a jar of 5000 jellybeans, containing five equal colors.  Pouring half of the jar out, you'll find roughly equal numbers of all five colors.  But picking out only 3 jellybeans at random you'll be missing at least 2 of the colors present in the main population.  You could concievably end up with 3 of one color as you can see in the following simulation.  

 

restart; gc()

a := [seq(seq(j, j = 1 .. 5), i = 1 .. 5000)]:#numbers representing 5 colors

with(combinat): 

count := 0; do b := randcomb(a, 3); print(b); count := count+1; if numbperm(b) = 1 then break end if end do; print("It took", count, " samplings to select all one value")
                                  [2, 3, 2]
                                  [1, 3, 4]
                                  [3, 3, 2]
                                  [1, 2, 4]
                                  [1, 4, 1]
                                  [4, 3, 1]
                                  [2, 5, 2]
                                  [1, 2, 4]
                                  [1, 2, 1]
                                  [1, 2, 3]
                                  [1, 4, 3]
                                  [2, 1, 1]
                                  [4, 4, 1]
                                  [5, 4, 5]
                                  [4, 1, 1]
                                  [4, 1, 1]
                                  [5, 4, 2]
                                  [4, 4, 4]
           "It took", 18, " samplings to select all of one value"



"It took", 18, " samplings to select all of one value"
(1)

The founder effect can be especially important in places such as Hawaii or the Galapagos islands where the populations of mainland species may be established by a handful of wanderers.  Madagascar is one example of where lemurs have become completely different from lemurs elsewhere.  Even within humans there are well-documented cases of the founder effect, where the mingling of their gene pool with the surrounding community is forbidden.  An example is the Amish community in Pennsylvania, an orthodox religous group founded by a very small number of immigrants and allows no marriage to outsiders.  Among the founders was a Mr. and Mrs. Samuel King.  The Kings happen to carry a recessive allele that causes dwarfism, the growth of extra fingers, and heart defects.  In the outside world the frequency of this allele is less than 1 in 1000 but in this Amish community it occurs at about 1 in 14.

 

 

Just for fun we could put our little experiment into a procedure to observe sample sizes for different selection sizes

``

``

NULL

 
foundereffect := proc (pop, diff, sel) local a, b, count; count := 0; a := [seq(seq(j, j = 1 .. diff), i = 1 .. pop/diff)]; do b := combinat:-randcomb(a, sel); print(b); count := count+1; if combinat:-numbperm(b) = 1 then break end if end do; print("It took", count, " samplings to select all one value") end proc:

foundereffect(9, 3, 3)

 

"It took", 7, " samplings to select all one value"

 (2)

For larger selection sizes, it would be wise to suppress the print outrput.

 

 

NULL


Download foundereffect2.mw

capped yes...

Christopher2222 5785
February 19 2013
0 0

Yes, okay adding the left=min(data),right=max(data) is what I wanted for capping. 

Regarding tipped, what I mean is shrinking the scale of the kerneldensityplot (no specified range) so that the plot ends on the upper and lower bounds of the data.

capped yes...

Christopher2222 5785
February 19 2013

Yes, okay adding the left=min(data),right=max(data) is what I wanted for capping. 

Regarding tipped, what I mean is shrinking the scale of the kerneldensityplot (no specified range) so that the plot ends on the upper and lower bounds of the data.

tickmark labels...

Christopher2222 5785
February 19 2013

Yes sorry, I am referring to the tickmark labels.

Statistics plot improvements...

Christopher2222 5785
February 18 2013
0 0

Just noticed something in boxplot.

When deciles=true not all points are displayed as small symbols.  Shouldn't they be? 

Bee swarm plot, bean plot and violin plots could be nice quick small additions to the Statistics plot options. 

Statistics plot improvements...

Christopher2222 5785
February 18 2013

Just noticed something in boxplot.

When deciles=true not all points are displayed as small symbols.  Shouldn't they be? 

Bee swarm plot, bean plot and violin plots could be nice quick small additions to the Statistics plot options. 

re clarification...

Christopher2222 5785
February 18 2013

I believe suspected outliers are points that lie between a lower/upper, inner and outer fence line. 

lower inner fence line = lower quartile - 1.5*(inner quartile range)
lower outer fence line = lower quartile - 3*(inner quartile range)

And outside the lower and upper outer fence lines are outliers (or as I just found out - highly suspect outliers).

No offense...

Christopher2222 5785
February 13 2013

No offense intended, I appologize if it sounded that way.  However using Maple on this problem ...

We have twelve 360 degree rotations of the minute hand equaling one 360 degree rotation of the hour hand

eq:=(12*360)/(1*360)=m/h
                
solve(eq,h); #number of degree's the hour hand moves
               
solve(subs(m=90,eq)); #the minute hand movement through 90 degrees will cause the hour hand to move
                

evalf(%,2);
                   7.5

Thus the hour hand has moved 7.5 degrees from it's 90 degree position and is 7.5 degrees away from the 15 minute position of the minute hand.

The harder part of the question is making it into a great maple application.

 

 

Maple?...

Christopher2222 5785
February 13 2013

I wonder if some of these 7 city learning questions are interesting enough for Maple?

 

 

It is clear now...

Christopher2222 5785
February 07 2013
0 0

I thought they were the same, thanks for clearing that up.  Makes more sense now.

For Maple, it appears quick updates to some bugs are possible without re-distributing the core version. 

It is clear now...

Christopher2222 5785
February 07 2013

I thought they were the same, thanks for clearing that up.  Makes more sense now.

For Maple, it appears quick updates to some bugs are possible without re-distributing the core version. 

Wording trick...

Christopher2222 5785
February 07 2013

Seems to be a wording trick.  One release per version as wikipedia shows except version 8 which shows 8.0.4

**edit add** my misunderstanding that wolframalpha was mathematica

Appreciated by all...

Christopher2222 5785
February 07 2013
0 0

Thank you!  I am sure this is appreciated by all.

Appreciated by all...

Christopher2222 5785
February 07 2013

Thank you!  I am sure this is appreciated by all.

First 80 81 82 83 84 85 86 Last Page 82 of 155