Worked on solve-triangles, started the paper on automatic scheduling

autoschedule.org

@@ -0,0 +1,21 @@
+#+Title: Automatic Scheduling of Appointments with Block-Based Timing
+#+AUTHOR: Sam Flint
+#+EMAIL: swflint@flintfam.org
+#+DATE: \today
+#+INFOJS_OPT: view:info toc:nil path:http://flintfam.org/org-info.js
+#+OPTIONS: toc:nil H:5 ':t *:t
+#+PROPERTY: noweb tangle
+#+PROPERTY: comments noweb
+#+LATEX_HEADER: \usepackage[color]{showkeys}
+#+LATEX_HEADER: \parskip=5pt
+#+LATEX_HEADER: \lstset{texcl=true,breaklines=true,columns=fullflexible,frame=lines,literate={lambda}{$\lambda$}{1} {set}{$\gets$}1 {setq}{$\gets$}1 {setf}{$\gets$}1 {<=}{$\leq$}1 {>=}{$\geq$}1}
+
+#+BEGIN_ABSTRACT
+
+#+END_ABSTRACT
+
+#+TOC: headlines 3
+#+TOC: listings
+
+
+

solve-triangle.lisp

@@ -29,6 +29,11 @@
 
 (defun solve-ssa (sidea sideb anglea)
   "Solve an SSA triangle using the method of sines.  Angles are assumed to be in degrees."
+  (let ((angleb (asin (/ (* sideb (sin anglea))
+                         sidea))))
+    (cond
+      ((< 1 angleb) nil)
+      (())))
   (let* ((angleb (asin (/ (* sideb (sin anglea))
                           sidea)))
          (anglec (- 180 anglea angleb))