From e46e5eee74af75aa1123b2370ff2f4587f4adc2a Mon Sep 17 00:00:00 2001
From: Elizabeth Hunt <elizabeth.hunt@simponic.xyz>
Date: Mon, 9 Oct 2023 21:37:44 -0600
Subject: flatten directory structure to appease dr koebbe

---
 src/approx/derivative.lisp | 17 -----------------
 src/approx/maceps.lisp     | 12 ------------
 src/approx/package.lisp    |  6 ------
 3 files changed, 35 deletions(-)
 delete mode 100644 src/approx/derivative.lisp
 delete mode 100644 src/approx/maceps.lisp
 delete mode 100644 src/approx/package.lisp

(limited to 'src/approx')

diff --git a/src/approx/derivative.lisp b/src/approx/derivative.lisp
deleted file mode 100644
index 8aa171a..0000000
--- a/src/approx/derivative.lisp
+++ /dev/null
@@ -1,17 +0,0 @@
-(in-package :lizfcm.approx)
-
-(defun central-derivative-at (f x &optional (delta 0.01))
-  (let* ((x2 (+ x delta))
-         (x1 (- x delta))
-         (y2 (apply f (list x2)))
-         (y1 (apply f (list x1))))
-    (/ (- y2 y1)
-       (- x2 x1))))
-
-(defun fwd-derivative-at (f x &optional (delta 0.01))
-  (let* ((x2 (+ x delta))
-         (x1 x)
-         (y2 (apply f (list x2)))
-         (y1 (apply f (list x1))))
-    (/ (- y2 y1)
-       (- x2 x1))))
diff --git a/src/approx/maceps.lisp b/src/approx/maceps.lisp
deleted file mode 100644
index e2738e4..0000000
--- a/src/approx/maceps.lisp
+++ /dev/null
@@ -1,12 +0,0 @@
-(in-package :lizfcm.approx)
-
-(defun compute-maceps (f a init)
-  (let ((h init)
-        (err init))
-    (loop collect (list a h err)
-          do
-          (setf h (/ h 2)
-                err (abs (- (funcall f (+ a h))
-                            (funcall f a))))
-          while (> err 0))))
-
diff --git a/src/approx/package.lisp b/src/approx/package.lisp
deleted file mode 100644
index 67c6a90..0000000
--- a/src/approx/package.lisp
+++ /dev/null
@@ -1,6 +0,0 @@
-(in-package :cl-user)
-(defpackage lizfcm.approx
-  (:use :cl)
-  (:export :central-derivative-at
-           :fwd-derivative-at
-           :compute-maceps))
-- 
cgit v1.2.3-70-g09d2