Friday, December 27, 2019

Combined Plots 2


PPE[N_]:=Plot[{Exp[-x^2]Cos[N*Pi*x^2]Sin[N*Pi*x^(-2)],
Exp[-x^2],-Exp[-x^2]},{x,-2,2},ImageSize->400,
ColorFunction->Function[{x,y},Hue[x+y]],
Background->Black,AxesStyle->White,AspectRatio->1];
{PPE[1],PPE[10]}


No comments:

Post a Comment