repos
/
qt.examples
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Pleated Hyperbolic Paraboloid
Annotate for file src/origami/tri.input
2009-07-06 tobias
1
-- echo ')read tst.input' | AXIOMsys >tst.output
21:50:38 '
2
a := radicalSolve([R**2+(Z-Z2)**2 = R2**2, (R-D1)**2 + (Z-Z1)**2 = R1**2], [R,Z])
'
3
'
4
)lisp (load "tri.util.lisp")
'
5
'
6
rhsmap(list) == map(rhs, list)
'
7
PRINTEXPRESSIONSDEFUN("tri.lisp", '[V1 V2],
'
8
'[Z1, Z2, D1, R1, R2], map(simplify,map(rhsmap,a))::InputForm)$Lisp