Friday, December 27, 2019

Combined Plots


PF=Function[{w,w0},
Plot[Cos[w*t]-Cos[w0*t]-2Sin[(w+w0)t/2]Sin[(w-w0)t/2],
{t,0,Pi},PlotStyle->Hue[w0/w]]];
Show[PF[64,62],PF[64,49],PF[64,16],ImageSize->600]

No comments:

Post a Comment