Data update

2024-10-16 18:07:41 -07:00 · 2024-10-16 18:07:41 -07:00 · 52a6ef48dd
commit 52a6ef48dd
parent 81fd053722
10248 changed files with 63654 additions and 6775 deletions
--- a/Task/Animate-a-pendulum/AmigaBASIC/animate-a-pendulum.basic
+++ b/Task/Animate-a-pendulum/AmigaBASIC/animate-a-pendulum.basic
@ -0,0 +1,24 @@
+SCREEN 1,320,256,1,1
+WINDOW 2,"Pendulum (press any key to quit)",,0,1
+PI = 3.1415926535#
+theta = PI/2
+g = 9.81
+l = 1
+speed = 0
+px = 150
+py = 10
+bx = 0
+by = 0
+
+WHILE INKEY$=""
+    LINE (bx-5,by-5)-(bx+5,by+5),0,bf
+    LINE (px,py)-(bx,by),0
+    bx=px+l*140*SIN(theta)
+    by=py-l*140*COS(theta)
+    CIRCLE (bx,by),5,1,,,1
+    LINE (px,py)-(bx,by)
+    accel=g*SIN(theta)/l/100
+    speed=speed+accel/100
+    theta=theta+speed
+WEND
+SCREEN CLOSE 1
--- a/Task/Animate-a-pendulum/Delphi/animate-a-pendulum.delphi
+++ b/Task/Animate-a-pendulum/Delphi/animate-a-pendulum.delphi
--- a/Task/Animate-a-pendulum/Euphoria/animate-a-pendulum.euphoria
+++ b/Task/Animate-a-pendulum/Euphoria/animate-a-pendulum.euphoria
--- a/Task/Animate-a-pendulum/Julia/animate-a-pendulum.julia
+++ b/Task/Animate-a-pendulum/Julia/animate-a-pendulum.julia
--- a/Task/Animate-a-pendulum/Kotlin/animate-a-pendulum.kotlin
+++ b/Task/Animate-a-pendulum/Kotlin/animate-a-pendulum.kotlin
--- a/Task/Animate-a-pendulum/Rust/animate-a-pendulum.rust
+++ b/Task/Animate-a-pendulum/Rust/animate-a-pendulum.rust
--- a/Task/Animate-a-pendulum/Scheme/animate-a-pendulum-1.scm
+++ b/Task/Animate-a-pendulum/Scheme/animate-a-pendulum-1.scm
--- a/Task/Animate-a-pendulum/Scheme/animate-a-pendulum-2.scm
+++ b/Task/Animate-a-pendulum/Scheme/animate-a-pendulum-2.scm