diff options
| -rw-r--r-- | free-fall.lsp | 19 | ||||
| -rw-r--r-- | sim.lsp | 11 |
2 files changed, 19 insertions, 11 deletions
diff --git a/free-fall.lsp b/free-fall.lsp new file mode 100644 index 0000000..27dec85 --- /dev/null +++ b/free-fall.lsp @@ -0,0 +1,19 @@ +;; 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 my-main () + (while (> *alt* 0) + (step))) + +;;; And here's an example from GNAT: +(defun free-fall () + (format (standard-output) "Gravitational constant: ~A~%" +G+) + (format (standard-output) "Twice that: ~A~%" (* 2 +G+)) + (let* ((time 10) + (distance (* 0.5 +G+ (expt time 2)))) + (format (standard-output) "Distance travelled in 10 seconds of free fall: ~A~%" distance))) 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))) |