MathGroup Archive 1998

[Date Index] [Thread Index] [Author Index]

Search the Archive

Can anyone help me with these?

   1. The Binomial Coefficients
may be computed in Mathematica by typing Binomial[n,r]. Apart from the
fact that nC0=nCn=1 for all positive integers n, there are equalities
like 4C2=6C1=6 which make it rather difficult to work out how many
different numbers occur as binaomial coefficients nCr as n ranges from
1 to N (say) and r ranges from 0 to n. Write a function h[] which will
compute this number. Then use ListPlot[] (with PlotJoined->True) to
compare N with h[N] as N ranges from 1 to 20.
*************************************************** 2. Produce complete
and accurate graphs of the functions defined by the formulae
 f(x)=cos(cos(2 Pi x)) and  g(x)=cos(sin(2 Pi x)) on the interval [0,12]
*************************************************** 3. Write a function
d in Mathematica such that d(n) is the fraction of the first n
Fibonnaci numbers which are prime. Find d(100). Use ListPlot[ ] with
(PlotJoined->true) to give a graphical representation of the way d(n)
varies with n for n =10, 20, ..., 100. Ensure that the viewer can see
clearly where in the interval [0,1] d(n) lies.
Fionnaci is f1=f2=1 and fn=fn-1 + fn-2 for n>2

Thanks in advance,


  • Prev by Date: Xresources for Mathematica
  • Next by Date: Petri-Nets/Concurrency Analsysis with Mathematica
  • Prev by thread: Re: Xresources for Mathematica
  • Next by thread: Re: Can anyone help me with these?