In[]:=
t=Table[Plot[PDF[GammaDistribution[2,q],x],{x,0,20},FillingAxis,FrameLabel{"time","cases"},FrameTrue,PlotRangePaddingNone,FrameTicksNone,PlotRange{Automatic,{0,0.2}},Epilog{White,Line[{{0,0.1},{20,0.1}}],{If[PDF[GammaDistribution[2,q],q]>0.1,Red,Green],Line[{{q,PDF[GammaDistribution[2,q],q]},{q,0.1}}]},Text["hospital capacity",{17,0.105}]},BackgroundBlack,PlotStyleWhite,FrameStyleWhite,ImageSize{400,400}],{q,2,7,0.1}];
In[]:=
ListAnimate[t]
Out[]=
In[]:=
Export["D:\\tmp\\cv.gif",t,DefaultDuration5,AnimationRepetitionsInfinity]
Out[]=
D:\tmp\cv.gif
In[]:=
CopyFile["D:\\tmp\\cv.gif","D:\\git\\wolfram-coronavirus\\images\\hospital-capacity.gif"]
Out[]=
D:\git\wolfram-coronavirus\images\hospital-capacity.gif
Assuming
In[]:=
expr=Simplify[PDF[GammaDistribution[2,4],x],x>0];Solve[D[expr,x]0,x]
Out[]=
{{x4}}
In[]:=
expr
In[]:=
Plotx,{x,0,10}
1
9
-x/3
Out[]=
In[]:=
PDF[GammaDistribution[2,3],3]
Out[]=
1
3