| Revision: | 1.1 |
| Committed: | Tue Jan 8 23:53:04 2019 UTC (6 years, 3 months ago) by greg |
| Branch: | MAIN |
| CVS Tags: | rad5R4, rad5R3, HEAD |
| Log Message: | Added tests for genbox genprism genrev gensurf and genworm |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | greg | 1.1 | { RCSid $Id$ } |
| 2 | { | ||
| 3 | basin.cal - calculate coordinates for basin sink. | ||
| 4 | } | ||
| 5 | |||
| 6 | sq(x) : x*x; | ||
| 7 | |||
| 8 | R(t,p) : 5 + (3.25*sq(cos(p))+1.75*sq(sin(p))+1*sin(p)*sq(cos(t)))*sq(sin(t)); | ||
| 9 | |||
| 10 | x(t,p) : R(t,p)*sin(t)*cos(p); | ||
| 11 | y(t,p) : R(t,p)*sin(t)*sin(p); | ||
| 12 | z(t,p) : R(t,p)*cos(t); | ||
| 13 | |||
| 14 | theta(s) : PI*(.5+.5*s); | ||
| 15 | phi(t) : 2*PI*t; |