;;; ringworld.el - Functions for computing physical characteristics of rotating space habitats.
;;; Created: November 11, 2008
;;; Author:  David Meyer

(load "astronomical-constants")

;; Formal parameter names:
;; Ac: centripetal acceleration
;; Vr: rotational velocity
;; R:  radius

(defun centripetal-accel (Vr R)
 (/ (* Vr Vr) R))

(defun rotational-vel (Ac R)
 (sqrt (* Ac R)))

(defun radius (Ac Vr)
 (/ (* Vr Vr) Ac))