Biorhythms: Difference between revisions
m
→{{header|EasyLang}}
(Added Easylang) |
|||
Line 839:
=={{header|EasyLang}}==
[https://easylang.online/show/#cod=bVLBjqMwDL3nK54YtOoUwZoAbTlw3MPe9hcKyaiRgFQQZsp+/cqBtsyql8R+z47t59RmcJcQFYK0zLOYspjKQKiz0yt4lDEd4zQNxBvEx9Q3UOcZKkQiAMyo0E9drQeMUz26gZkUOXPdK+4AyZx6xZULN2g3DT2ywxF7zIjB925GhF2HCOU7lPlEKpc7RwR5LLBH5/0SERQnZVRkJBLh9M2N5q9GvrRveuNQh48RWtPrL6PcBZT4+p391CgIdGfZSYkeHKF4cind3Q87+LliSXAW0oP3nNsaBKAxQ9NqUFKswA1RBbm4yaNKjtLLyP2jDjf46fTAlcfVeR5RLYvxm4u9XfvdbhPpmcgpPxB4I9jIzr5IxHWwDZqZG+3tF1twIRrbIll6bGxrBz4373PUHmkiEa/j+1ou/F/nYqsXv8/xLBrb0VO6Kyom9hhNj112YFPhJxd6X0P8ElhdRLi+FDQRqz7L5pcP73XiL73M6CNkhuDPZR5Nc24DlETfyBOCX511xvbMUvmNzTIEv3un21Y3bvIBVArxDw== Run it]
<syntaxhighlight>
Line 858:
move 0 50
line 100 50
for d = -20 to 20
move x 50
Line 878 ⟶ 877:
text t$
linewidth 0.5
for d = now - 20 to now + 20
p = 20 * sin (360 * d / cyc)
Line 891 ⟶ 889:
cycle days 33 "Intellectual" 009
</syntaxhighlight>
=={{header|Emacs Lisp}}==
|