Re: Manipulating list of functions
- To: mathgroup at smc.vnet.net
- Subject: [mg96835] Re: Manipulating list of functions
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 26 Feb 2009 07:51:55 -0500 (EST)
- Organization: Uni Leipzig
- References: <go31hn$fa1$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi,
Manipulate[
Block[{buyprice = 100, initialinvestment, nbrshares, profit,
totalofholding, funcList},
initialinvestment[x_] := 100000;
nbrshares[buyprice_] := initialinvestment[buyprice]/buyprice;
profit[buyprice_] := (finalprice - buyprice)*nbrshares[buyprice];
totalofholding[_] := profit + initialinvestment;
funcList = #[x] & /@ {nbrshares, initialinvestment, profit,
totalofholding};
Plot[Evaluate[funcList], {x, 4, 7}, Axes -> False, Frame -> True,
PlotRange -> {0, 650000}]], {finalprice, 16, 24, 1}]
??
or what ever the dependences initialinvestment[] are and
why you call profit[] as a function, and profit as a symbol
is still strange.
Regards
Jens
Syd Geraghty wrote:
> Hi all,
>
> we recently had a thread regarding manipulating a list of functions
> which worked fine:-
>
> Manipulate[Block[{funcA, funcB, funcC, funcList},
> funcA[z_] := Sin[z + a];
> funcB[z_] := Cos[z + b];
> funcC[z_] := funcA[z] + funcB[z];
> funcList = #[x] & /@ {funcA, funcB, funcC};
> Plot[Evaluate[funcList], {x, 1, 10}, Axes -> False, Frame ->
> True]], {a, 0,
> Pi}, {b, 0, Pi}]
>
> I have tried what I thought would be a trivial a variant of this for
> very simple functions:
>
> Manipulate[
> Block[{initialinvestment, nbrshares, profit, totalofholding,
> funcList},
> initialinvestment := 100000;
> nbrshares[buyprice_] := initialinvestment/buyprice;
> profit[buyprice_] := (finalprice - buyprice)*nbrshares;
> totalofholding := profit + initialinvestment;
> funcList := #[x] & /@ {nbrshares, initialinvestment, profit,
> totalofholding};
> Plot[Evaluate[funcList], {x, 4, 7}, Axes -> False, Frame -> True,
> PlotRange -> {0, 650000}]], {finalprice, 16, 24, 1}]
>
> However I only get the nbrshares plotted, after several attempts I
> cannot get the desired output and would appreciate advice as to why
> the simpler function specifications lead to failure.
>
> It appears that unless the functions all contain explicit references
> such as to "z" in the first working example then they are omitted.
>
>
> Thanks in advance ... Syd
>
> Syd Geraghty B.Sc, M.Sc.
>
> sydgeraghty at mac.com
>
> Mathematica 7.0.0 for Mac OS X x86 (64 - bit) (21st November, 2008)
> MacOS X V 10.5.6
> MacBook Pro 2.33 GHz Intel Core 2 Duo 2GB RAM
>
>
>
>