troze

(c4)

(c36) load("c:\\rwg\\climax\\troze.mac")$

(c4) troze(0)$

(c14) troze(1)$

(c15) troze(2)$

(c16) troze(3)$

(c17) dispfun(troze,troz1,show)$

(e17) troze(n) := block([equalscale : true, color_cycles : 0.5], show(troz1(n)))

(e18) troz1(n) := if n = 0 then (((%e)^((%i * %pi)/12.0) * sec(((%pi)/12.0))/2), [[0, %%*^, 1, %%]]) else block([l : troz1(n - 1)],
((append(l, (apply('append, makelist((%e)^((%pi * %i * k)/3.0) * l, k, 0, 5)), 2 + append(%%, ((%% * (%e)^((%i * %pi)/6.0))/(sqrt(3.0)))))))/3))

(e19) show(l) := block([n : ((length(l) * 7)/13) - (1/2), polys : []],
for p in l do (push(makelist(endcons(signum(n) * 0.002, rectformlist(z)), z, p), polys), n : n - 1),
plotfaces(polys))

(c20) solve_triangle(%pi/12,1,%pi/4,asa)

D:\Macsyma\Macsyma2\share\geofuncs.fas being loaded.

(d20) [sides = [1, ((sqrt(6) - sqrt(2))/(2 * sqrt(3))), (2/(sqrt(2) * sqrt(3)))], angles = [((2 * %pi)/3), ((%pi)/12), ((%pi)/4)]]

(c21) load("c:\\rwg\\climax\\troze.mac")$

Batching the file c:\rwg\climax\troze.mac
Batchload done.

(c22) troze(0)$