Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Dynamic Graphs' topicStudent Support Forum > General > "Dynamic Graphs"

Next Comment >Help | Reply To Topic
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: ,

Subject (listing for 'Dynamic Graphs')
Author Date Posted
Dynamic Graphs Varun 09/11/11 11:19pm
Re: Dynamic Graphs yehuda ben-s... 09/12/11 11:23pm
Next Comment >Help | Reply To Topic