Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Plot[{With[{n = 1}, Cos[Pi*(Clip[x - n]/2)]^2] +
- With[{n = 2}, Cos[Pi*(Clip[x - n]/2)]^2] +
- With[{n = 3}, Cos[Pi*(Clip[x - n]/2)]^2] +
- With[{n = 5}, Cos[Pi*(Clip[x - n]/2)]^2] +
- With[{n = 8}, Cos[Pi*(Clip[x - n]/2)]^2] +
- With[{n = 13}, Cos[Pi*(Clip[x - n]/2)]^2]}, {x, 0, 15}]
Add Comment
Please, Sign In to add comment