plot of nmaximized result
- To: mathgroup at smc.vnet.net
- Subject: [mg118416] plot of nmaximized result
- From: tarun dutta <tarunduttaz at gmail.com>
- Date: Wed, 27 Apr 2011 05:39:37 -0400 (EDT)
this is the following program.here I want to plot between x VS max.but
I can not get the result.
Do[d = 2635/33859;
r = 0.6;
a1 = 0.7;
a2 = 0.13;
g = 33859;
b = 0.6631;
x = (b*j*(j + 1))/g;
f = (1/(a1 + a1*z + a2*z^2))*(b/g)*j*(j + 1) + (1 - Exp[-z])^2 +
d*Exp[-r*z];
{max, val} = NMaximize[f, z];
list1 = Print[(*"x= ",*)x];
list2 = Print[(*" max= ",*)max], {j, 0, 5}]
ListPlot[{list1, list2}]
any help will be appreciated.
regards,
tarun