Guest User

Untitled

a guest
May 25th, 2018
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.17 KB | None | 0 0
  1. teta = Pi/4;
  2. l = List[0];
  3. f[h_] := h*tan[teta/2]
  4. hmax = 30;
  5. For[y = 50 - hmax, y <= 50 + hmax, y++, g = f[65 - y];
  6. For[x = 50 - g <= 50 + g, x++, Append[l, {{x, y}}]]]
Add Comment
Please, Sign In to add comment