about summary refs log tree commit diff stats
path: root/sim.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'sim.lsp')
-rw-r--r--sim.lsp11
1 files changed, 0 insertions, 11 deletions
diff --git a/sim.lsp b/sim.lsp
deleted file mode 100644
index 80d6f0d..0000000
--- a/sim.lsp
+++ /dev/null
@@ -1,11 +0,0 @@
-;; TODO: air resistance, terminal velocity
-(defconstant +G+ 9.81)
-(defglobal *alt* 20000)
-(defglobal *v* 0)
-(defun step ()
-   (setq *alt* (- *alt* *v*))
-   (setq *v* (+ *v* +G+))
-   (format (standard-output) "~A~%" *alt*))
-(defun main ()
-   (while (> *alt* 0)
-	  (step)))