| Author |
Comment/Response |
Varun
|
 09/11/11 11:19pm
How to combine these two dynamic graphs into one graph.
tr[t_, alp_] := Gamma[t + alp]/Gamma[t];
tf[t_, alp_] := Gamma[t + 1]/Gamma[t + 1 - alp];
frames = {};
Do[(
label = "\[Alpha] =" <> ToString[alp];
AppendTo[
frames, {Plot[tr[t, alp], {t, 0, 20}, AxesOrigin -> {0, 0},
PlotStyle -> {Red}, PlotLabel -> label,
PlotRange -> {{0, 20}, {0, 20}}],
Plot[tf[t, alp], {t, 0, 20}, AxesOrigin -> {0, 0},
PlotStyle -> {Green}, PlotLabel -> label,
PlotRange -> {{0, 20}, {0, 20}}]}]
), {alp, 1, 2, .01}]
ListAnimate[frames]
URL: , |
|
