Mon Jul 6 23:50:38 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Pleated Hyperbolic Paraboloid

--- old-qt.examples/src/origami/tri.input 1970-01-01 01:00:00.000000000 +0100

+++ new-qt.examples/src/origami/tri.input 2014-10-30 07:37:24.000000000 +0100

@@ -0,0 +1,8 @@

+-- echo ')read tst.input' | AXIOMsys >tst.output

+a := radicalSolve([R**2+(Z-Z2)**2 = R2**2, (R-D1)**2 + (Z-Z1)**2 = R1**2], [R,Z])

+

+)lisp (load "tri.util.lisp")

+

+rhsmap(list) == map(rhs, list)

+PRINTEXPRESSIONSDEFUN("tri.lisp", '[V1 V2],

+ '[Z1, Z2, D1, R1, R2], map(simplify,map(rhsmap,a))::InputForm)$Lisp