Re: question

*To*: mathgroup at smc.vnet.net*Subject*: [mg80238] Re: question*From*: dimitris <dimmechan at yahoo.com>*Date*: Wed, 15 Aug 2007 04:23:01 -0400 (EDT)*References*: <f9p5p7$rgb$1@smc.vnet.net>

MathGroup is a suitable place fo many subject (talking about Mathematica and its use in mathematics, physics, mechanics and other sciences; for discussion of various issues of CASs and other interesting things BUT certainly it is not the place that someone will find the solutions to his/her homework without showing us some of his attempts! I think Jean-Marc was too kind to you and give you more hints that actually he should have given to you! Greetings from Greece, Dimitris S. Anagnostou Ivan Egorov : > Hello, I have 2 questions. > > I need to write a function maxima[lis_List] which, given a list of numbers, > produces a list of those numbers greater than all those that precede > them. For example maxima[{ 9, 2, 10, 3, 14, 9}] returns { 9, 10, 14}. > You need to use recursion, pattern matching, Select and Join. > I also need to write a function derivList[f, x, n_Integer] that returns the list > of first n derivatives of themathematical function f (x ) , that is, > { f ( x ) , f ' ( x ) , f ' ' ( x ) ,..., f n(x )} . Then, operate > your derivList implementation on Exp[-x] Sin[x] to generate the list > of derivatives up to the fifth one (that is, returning {f ( x) , > f ' ( x ) ,..., f (5) (x )}). Use Plot to plot the results for the > range 0<=x<=10 . Use the PlotStyle option to generate a different color > for each curve. > > I realy don't understand what they want in second question. > > > Thanks. > > I hope that now is readable.