Index: openacs-4/packages/acs-templating/www/admin/test/chain-frac-0.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/admin/test/chain-frac-0.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-templating/www/admin/test/chain-frac-0.tcl 13 Mar 2001 22:59:27 -0000 1.1
+++ openacs-4/packages/acs-templating/www/admin/test/chain-frac-0.tcl 10 Jan 2007 21:22:13 -0000 1.2
@@ -10,48 +10,48 @@
Chain Fraction
"
-set e [expr exp(1)]
+set e [expr {exp(1)}]
-set e0 [expr int ( $e ) ]; # keep the integer part in e0
-set xf [expr 1 / ($e - $e0) ]; # invert the fractional part
-set e1 [expr int ( $xf ) ]; # keep the integer part in e1
-set xf [expr 1 / ($xf - $e1) ]; # invert the fractional part
-set e2 [expr int ( $xf ) ]; # keep the integer part in e2
-set xf [expr 1 / ($xf - $e2) ]; # invert the fractional part
-set e3 [expr int ( $xf ) ]; # keep the integer part in e3
-set xf [expr 1 / ($xf - $e3) ]; # invert the fractional part
-set e4 [expr int ( $xf ) ]; # keep the integer part in e4
-set xf [expr 1 / ($xf - $e4) ]; # invert the fractional part
-set e5 [expr int ( $xf ) ]; # keep the integer part in e5
-set xf [expr 1 / ($xf - $e5) ]; # invert the fractional part
-set e6 [expr int ( $xf ) ]; # keep the integer part in e6
-set xf [expr 1 / ($xf - $e6) ]; # invert the fractional part
-set e7 [expr int ( $xf ) ]; # keep the integer part in e7
-set xf [expr 1 / ($xf - $e7) ]; # invert the fractional part
-set e8 [expr int ( $xf ) ]; # keep the integer part in e8
-set xf [expr 1 / ($xf - $e8) ]; # invert the fractional part
-set e9 [expr int ( $xf ) ]; # keep the integer part in e9
-set xf [expr 1 / ($xf - $e9) ]; # invert the fractional part
-set e10 [expr int ( $xf ) ]; # keep the integer part in e10
-set xf [expr 1 / ($xf - $e10) ]; # invert the fractional part
-set e11 [expr int ( $xf ) ]; # keep the integer part in e11
-set xf [expr 1 / ($xf - $e11) ]; # invert the fractional part
-set e12 [expr int ( $xf ) ]; # keep the integer part in e12
-set xf [expr 1 / ($xf - $e12) ]; # invert the fractional part
-set e13 [expr int ( $xf ) ]; # keep the integer part in e13
-set xf [expr 1 / ($xf - $e13) ]; # invert the fractional part
-set e14 [expr int ( $xf ) ]; # keep the integer part in e14
-set xf [expr 1 / ($xf - $e14) ]; # invert the fractional part
-set e15 [expr int ( $xf ) ]; # keep the integer part in e15
-set xf [expr 1 / ($xf - $e15) ]; # invert the fractional part
-set e16 [expr int ( $xf ) ]; # keep the integer part in e16
-set xf [expr 1 / ($xf - $e16) ]; # invert the fractional part
-set e17 [expr int ( $xf ) ]; # keep the integer part in e17
-set xf [expr 1 / ($xf - $e17) ]; # invert the fractional part
-set e18 [expr int ( $xf ) ]; # keep the integer part in e18
-set xf [expr 1 / ($xf - $e18) ]; # invert the fractional part
-set e19 [expr int ( $xf ) ]; # keep the integer part in e19
-set xf [expr 1 / ($xf - $e19) ]; # invert the fractional part
+set e0 [expr {int ( $e ) }]; # keep the integer part in e0
+set xf [expr {1 / ($e - $e0) }]; # invert the fractional part
+set e1 [expr {int ( $xf ) }]; # keep the integer part in e1
+set xf [expr {1 / ($xf - $e1) }]; # invert the fractional part
+set e2 [expr {int ( $xf ) }]; # keep the integer part in e2
+set xf [expr {1 / ($xf - $e2) }]; # invert the fractional part
+set e3 [expr {int ( $xf ) }]; # keep the integer part in e3
+set xf [expr {1 / ($xf - $e3) }]; # invert the fractional part
+set e4 [expr {int ( $xf ) }]; # keep the integer part in e4
+set xf [expr {1 / ($xf - $e4) }]; # invert the fractional part
+set e5 [expr {int ( $xf ) }]; # keep the integer part in e5
+set xf [expr {1 / ($xf - $e5) }]; # invert the fractional part
+set e6 [expr {int ( $xf ) }]; # keep the integer part in e6
+set xf [expr {1 / ($xf - $e6) }]; # invert the fractional part
+set e7 [expr {int ( $xf ) }]; # keep the integer part in e7
+set xf [expr {1 / ($xf - $e7) }]; # invert the fractional part
+set e8 [expr {int ( $xf ) }]; # keep the integer part in e8
+set xf [expr {1 / ($xf - $e8) }]; # invert the fractional part
+set e9 [expr {int ( $xf ) }]; # keep the integer part in e9
+set xf [expr {1 / ($xf - $e9) }]; # invert the fractional part
+set e10 [expr {int ( $xf ) }]; # keep the integer part in e10
+set xf [expr {1 / ($xf - $e10) }]; # invert the fractional part
+set e11 [expr {int ( $xf ) }]; # keep the integer part in e11
+set xf [expr {1 / ($xf - $e11) }]; # invert the fractional part
+set e12 [expr {int ( $xf ) }]; # keep the integer part in e12
+set xf [expr {1 / ($xf - $e12) }]; # invert the fractional part
+set e13 [expr {int ( $xf ) }]; # keep the integer part in e13
+set xf [expr {1 / ($xf - $e13) }]; # invert the fractional part
+set e14 [expr {int ( $xf ) }]; # keep the integer part in e14
+set xf [expr {1 / ($xf - $e14) }]; # invert the fractional part
+set e15 [expr {int ( $xf ) }]; # keep the integer part in e15
+set xf [expr {1 / ($xf - $e15) }]; # invert the fractional part
+set e16 [expr {int ( $xf ) }]; # keep the integer part in e16
+set xf [expr {1 / ($xf - $e16) }]; # invert the fractional part
+set e17 [expr {int ( $xf ) }]; # keep the integer part in e17
+set xf [expr {1 / ($xf - $e17) }]; # invert the fractional part
+set e18 [expr {int ( $xf ) }]; # keep the integer part in e18
+set xf [expr {1 / ($xf - $e18) }]; # invert the fractional part
+set e19 [expr {int ( $xf ) }]; # keep the integer part in e19
+set xf [expr {1 / ($xf - $e19) }]; # invert the fractional part
append page "
Natural e
@@ -103,46 +103,46 @@
set g [expr (sqrt(5)+1)/2]
-set g0 [expr int ( $g ) ]; # keep the integer part in g0
-set xf [expr 1 / ($g - $g0) ]; # invert the fractional part
-set g1 [expr int ( $xf ) ]; # keep the integer part in g1
-set xf [expr 1 / ($xf - $g1) ]; # invert the fractional part
-set g2 [expr int ( $xf ) ]; # keep the integer part in g2
-set xf [expr 1 / ($xf - $g2) ]; # invert the fractional part
-set g3 [expr int ( $xf ) ]; # keep the integer part in g3
-set xf [expr 1 / ($xf - $g3) ]; # invert the fractional part
-set g4 [expr int ( $xf ) ]; # keep the integer part in g4
-set xf [expr 1 / ($xf - $g4) ]; # invert the fractional part
-set g5 [expr int ( $xf ) ]; # keep the integer part in g5
-set xf [expr 1 / ($xf - $g5) ]; # invert the fractional part
-set g6 [expr int ( $xf ) ]; # keep the integer part in g6
-set xf [expr 1 / ($xf - $g6) ]; # invert the fractional part
-set g7 [expr int ( $xf ) ]; # keep the integer part in g7
-set xf [expr 1 / ($xf - $g7) ]; # invert the fractional part
-set g8 [expr int ( $xf ) ]; # keep the integer part in g8
-set xf [expr 1 / ($xf - $g8) ]; # invert the fractional part
-set g9 [expr int ( $xf ) ]; # keep the integer part in g9
-set xf [expr 1 / ($xf - $g9) ]; # invert the fractional part
-set g10 [expr int ( $xf ) ]; # keep the integer part in g10
-set xf [expr 1 / ($xf - $g10) ]; # invert the fractional part
-set g11 [expr int ( $xf ) ]; # keep the integer part in g11
-set xf [expr 1 / ($xf - $g11) ]; # invert the fractional part
-set g12 [expr int ( $xf ) ]; # keep the integer part in g12
-set xf [expr 1 / ($xf - $g12) ]; # invert the fractional part
-set g13 [expr int ( $xf ) ]; # keep the integer part in g13
-set xf [expr 1 / ($xf - $g13) ]; # invert the fractional part
-set g14 [expr int ( $xf ) ]; # keep the integer part in g14
-set xf [expr 1 / ($xf - $g14) ]; # invert the fractional part
-set g15 [expr int ( $xf ) ]; # keep the integer part in g15
-set xf [expr 1 / ($xf - $g15) ]; # invert the fractional part
-set g16 [expr int ( $xf ) ]; # keep the integer part in g16
-set xf [expr 1 / ($xf - $g16) ]; # invert the fractional part
-set g17 [expr int ( $xf ) ]; # keep the integer part in g17
-set xf [expr 1 / ($xf - $g17) ]; # invert the fractional part
-set g18 [expr int ( $xf ) ]; # keep the integer part in g18
-set xf [expr 1 / ($xf - $g18) ]; # invert the fractional part
-set g19 [expr int ( $xf ) ]; # keep the integer part in g19
-set xf [expr 1 / ($xf - $g19) ]; # invert the fractional part
+set g0 [expr {int ( $g ) }]; # keep the integer part in g0
+set xf [expr {1 / ($g - $g0) }]; # invert the fractional part
+set g1 [expr {int ( $xf ) }]; # keep the integer part in g1
+set xf [expr {1 / ($xf - $g1) }]; # invert the fractional part
+set g2 [expr {int ( $xf ) }]; # keep the integer part in g2
+set xf [expr {1 / ($xf - $g2) }]; # invert the fractional part
+set g3 [expr {int ( $xf ) }]; # keep the integer part in g3
+set xf [expr {1 / ($xf - $g3) }]; # invert the fractional part
+set g4 [expr {int ( $xf ) }]; # keep the integer part in g4
+set xf [expr {1 / ($xf - $g4) }]; # invert the fractional part
+set g5 [expr {int ( $xf ) }]; # keep the integer part in g5
+set xf [expr {1 / ($xf - $g5) }]; # invert the fractional part
+set g6 [expr {int ( $xf ) }]; # keep the integer part in g6
+set xf [expr {1 / ($xf - $g6) }]; # invert the fractional part
+set g7 [expr {int ( $xf ) }]; # keep the integer part in g7
+set xf [expr {1 / ($xf - $g7) }]; # invert the fractional part
+set g8 [expr {int ( $xf ) }]; # keep the integer part in g8
+set xf [expr {1 / ($xf - $g8) }]; # invert the fractional part
+set g9 [expr {int ( $xf ) }]; # keep the integer part in g9
+set xf [expr {1 / ($xf - $g9) }]; # invert the fractional part
+set g10 [expr {int ( $xf ) }]; # keep the integer part in g10
+set xf [expr {1 / ($xf - $g10) }]; # invert the fractional part
+set g11 [expr {int ( $xf ) }]; # keep the integer part in g11
+set xf [expr {1 / ($xf - $g11) }]; # invert the fractional part
+set g12 [expr {int ( $xf ) }]; # keep the integer part in g12
+set xf [expr {1 / ($xf - $g12) }]; # invert the fractional part
+set g13 [expr {int ( $xf ) }]; # keep the integer part in g13
+set xf [expr {1 / ($xf - $g13) }]; # invert the fractional part
+set g14 [expr {int ( $xf ) }]; # keep the integer part in g14
+set xf [expr {1 / ($xf - $g14) }]; # invert the fractional part
+set g15 [expr {int ( $xf ) }]; # keep the integer part in g15
+set xf [expr {1 / ($xf - $g15) }]; # invert the fractional part
+set g16 [expr {int ( $xf ) }]; # keep the integer part in g16
+set xf [expr {1 / ($xf - $g16) }]; # invert the fractional part
+set g17 [expr {int ( $xf ) }]; # keep the integer part in g17
+set xf [expr {1 / ($xf - $g17) }]; # invert the fractional part
+set g18 [expr {int ( $xf ) }]; # keep the integer part in g18
+set xf [expr {1 / ($xf - $g18) }]; # invert the fractional part
+set g19 [expr {int ( $xf ) }]; # keep the integer part in g19
+set xf [expr {1 / ($xf - $g19) }]; # invert the fractional part
append page "
Golden Ratio
@@ -191,48 +191,48 @@
# Square root of 3
-set r [expr sqrt(3)]
+set r [expr {sqrt(3)}]
-set r0 [expr int ( $r ) ]; # keep the integer part in r0
-set xf [expr 1 / ($r - $r0) ]; # invert the fractional part
-set r1 [expr int ( $xf ) ]; # keep the integer part in r1
-set xf [expr 1 / ($xf - $r1) ]; # invert the fractional part
-set r2 [expr int ( $xf ) ]; # keep the integer part in r2
-set xf [expr 1 / ($xf - $r2) ]; # invert the fractional part
-set r3 [expr int ( $xf ) ]; # keep the integer part in r3
-set xf [expr 1 / ($xf - $r3) ]; # invert the fractional part
-set r4 [expr int ( $xf ) ]; # keep the integer part in r4
-set xf [expr 1 / ($xf - $r4) ]; # invert the fractional part
-set r5 [expr int ( $xf ) ]; # keep the integer part in r5
-set xf [expr 1 / ($xf - $r5) ]; # invert the fractional part
-set r6 [expr int ( $xf ) ]; # keep the integer part in r6
-set xf [expr 1 / ($xf - $r6) ]; # invert the fractional part
-set r7 [expr int ( $xf ) ]; # keep the integer part in r7
-set xf [expr 1 / ($xf - $r7) ]; # invert the fractional part
-set r8 [expr int ( $xf ) ]; # keep the integer part in r8
-set xf [expr 1 / ($xf - $r8) ]; # invert the fractional part
-set r9 [expr int ( $xf ) ]; # keep the integer part in r9
-set xf [expr 1 / ($xf - $r9) ]; # invert the fractional part
-set r10 [expr int ( $xf ) ]; # keep the integer part in r10
-set xf [expr 1 / ($xf - $r10) ]; # invert the fractional part
-set r11 [expr int ( $xf ) ]; # keep the integer part in r11
-set xf [expr 1 / ($xf - $r11) ]; # invert the fractional part
-set r12 [expr int ( $xf ) ]; # keep the integer part in r12
-set xf [expr 1 / ($xf - $r12) ]; # invert the fractional part
-set r13 [expr int ( $xf ) ]; # keep the integer part in r13
-set xf [expr 1 / ($xf - $r13) ]; # invert the fractional part
-set r14 [expr int ( $xf ) ]; # keep the integer part in r14
-set xf [expr 1 / ($xf - $r14) ]; # invert the fractional part
-set r15 [expr int ( $xf ) ]; # keep the integer part in r15
-set xf [expr 1 / ($xf - $r15) ]; # invert the fractional part
-set r16 [expr int ( $xf ) ]; # keep the integer part in r16
-set xf [expr 1 / ($xf - $r16) ]; # invert the fractional part
-set r17 [expr int ( $xf ) ]; # keep the integer part in r17
-set xf [expr 1 / ($xf - $r17) ]; # invert the fractional part
-set r18 [expr int ( $xf ) ]; # keep the integer part in r18
-set xf [expr 1 / ($xf - $r18) ]; # invert the fractional part
-set r19 [expr int ( $xf ) ]; # keep the integer part in r19
-set xf [expr 1 / ($xf - $r19) ]; # invert the fractional part
+set r0 [expr {int ( $r ) }]; # keep the integer part in r0
+set xf [expr {1 / ($r - $r0) }]; # invert the fractional part
+set r1 [expr {int ( $xf ) }]; # keep the integer part in r1
+set xf [expr {1 / ($xf - $r1) }]; # invert the fractional part
+set r2 [expr {int ( $xf ) }]; # keep the integer part in r2
+set xf [expr {1 / ($xf - $r2) }]; # invert the fractional part
+set r3 [expr {int ( $xf ) }]; # keep the integer part in r3
+set xf [expr {1 / ($xf - $r3) }]; # invert the fractional part
+set r4 [expr {int ( $xf ) }]; # keep the integer part in r4
+set xf [expr {1 / ($xf - $r4) }]; # invert the fractional part
+set r5 [expr {int ( $xf ) }]; # keep the integer part in r5
+set xf [expr {1 / ($xf - $r5) }]; # invert the fractional part
+set r6 [expr {int ( $xf ) }]; # keep the integer part in r6
+set xf [expr {1 / ($xf - $r6) }]; # invert the fractional part
+set r7 [expr {int ( $xf ) }]; # keep the integer part in r7
+set xf [expr {1 / ($xf - $r7) }]; # invert the fractional part
+set r8 [expr {int ( $xf ) }]; # keep the integer part in r8
+set xf [expr {1 / ($xf - $r8) }]; # invert the fractional part
+set r9 [expr {int ( $xf ) }]; # keep the integer part in r9
+set xf [expr {1 / ($xf - $r9) }]; # invert the fractional part
+set r10 [expr {int ( $xf ) }]; # keep the integer part in r10
+set xf [expr {1 / ($xf - $r10) }]; # invert the fractional part
+set r11 [expr {int ( $xf ) }]; # keep the integer part in r11
+set xf [expr {1 / ($xf - $r11) }]; # invert the fractional part
+set r12 [expr {int ( $xf ) }]; # keep the integer part in r12
+set xf [expr {1 / ($xf - $r12) }]; # invert the fractional part
+set r13 [expr {int ( $xf ) }]; # keep the integer part in r13
+set xf [expr {1 / ($xf - $r13) }]; # invert the fractional part
+set r14 [expr {int ( $xf ) }]; # keep the integer part in r14
+set xf [expr {1 / ($xf - $r14) }]; # invert the fractional part
+set r15 [expr {int ( $xf ) }]; # keep the integer part in r15
+set xf [expr {1 / ($xf - $r15) }]; # invert the fractional part
+set r16 [expr {int ( $xf ) }]; # keep the integer part in r16
+set xf [expr {1 / ($xf - $r16) }]; # invert the fractional part
+set r17 [expr {int ( $xf ) }]; # keep the integer part in r17
+set xf [expr {1 / ($xf - $r17) }]; # invert the fractional part
+set r18 [expr {int ( $xf ) }]; # keep the integer part in r18
+set xf [expr {1 / ($xf - $r18) }]; # invert the fractional part
+set r19 [expr {int ( $xf ) }]; # keep the integer part in r19
+set xf [expr {1 / ($xf - $r19) }]; # invert the fractional part
append page "
Square root of 3
@@ -281,46 +281,46 @@
# the user's x
-set n0 [expr int ( $x ) ]; # keep the integer part in n0
-set xf [expr 1 / ($x - $n0) ]; # invert the fractional part
-set n1 [expr int ( $xf ) ]; # keep the integer part in n1
-set xf [expr 1 / ($xf - $n1) ]; # invert the fractional part
-set n2 [expr int ( $xf ) ]; # keep the integer part in n2
-set xf [expr 1 / ($xf - $n2) ]; # invert the fractional part
-set n3 [expr int ( $xf ) ]; # keep the integer part in n3
-set xf [expr 1 / ($xf - $n3) ]; # invert the fractional part
-set n4 [expr int ( $xf ) ]; # keep the integer part in n4
-set xf [expr 1 / ($xf - $n4) ]; # invert the fractional part
-set n5 [expr int ( $xf ) ]; # keep the integer part in n5
-set xf [expr 1 / ($xf - $n5) ]; # invert the fractional part
-set n6 [expr int ( $xf ) ]; # keep the integer part in n6
-set xf [expr 1 / ($xf - $n6) ]; # invert the fractional part
-set n7 [expr int ( $xf ) ]; # keep the integer part in n7
-set xf [expr 1 / ($xf - $n7) ]; # invert the fractional part
-set n8 [expr int ( $xf ) ]; # keep the integer part in n8
-set xf [expr 1 / ($xf - $n8) ]; # invert the fractional part
-set n9 [expr int ( $xf ) ]; # keep the integer part in n9
-set xf [expr 1 / ($xf - $n9) ]; # invert the fractional part
-set n10 [expr int ( $xf ) ]; # keep the integer part in n10
-set xf [expr 1 / ($xf - $n10) ]; # invert the fractional part
-set n11 [expr int ( $xf ) ]; # keep the integer part in n11
-set xf [expr 1 / ($xf - $n11) ]; # invert the fractional part
-set n12 [expr int ( $xf ) ]; # keep the integer part in n12
-set xf [expr 1 / ($xf - $n12) ]; # invert the fractional part
-set n13 [expr int ( $xf ) ]; # keep the integer part in n13
-set xf [expr 1 / ($xf - $n13) ]; # invert the fractional part
-set n14 [expr int ( $xf ) ]; # keep the integer part in n14
-set xf [expr 1 / ($xf - $n14) ]; # invert the fractional part
-set n15 [expr int ( $xf ) ]; # keep the integer part in n15
-set xf [expr 1 / ($xf - $n15) ]; # invert the fractional part
-set n16 [expr int ( $xf ) ]; # keep the integer part in n16
-set xf [expr 1 / ($xf - $n16) ]; # invert the fractional part
-set n17 [expr int ( $xf ) ]; # keep the integer part in n17
-set xf [expr 1 / ($xf - $n17) ]; # invert the fractional part
-set n18 [expr int ( $xf ) ]; # keep the integer part in n18
-set xf [expr 1 / ($xf - $n18) ]; # invert the fractional part
-set n19 [expr int ( $xf ) ]; # keep the integer part in n19
-set xf [expr 1 / ($xf - $n19) ]; # invert the fractional part
+set n0 [expr {int ( $x ) }]; # keep the integer part in n0
+set xf [expr {1 / ($x - $n0) }]; # invert the fractional part
+set n1 [expr {int ( $xf ) }]; # keep the integer part in n1
+set xf [expr {1 / ($xf - $n1) }]; # invert the fractional part
+set n2 [expr {int ( $xf ) }]; # keep the integer part in n2
+set xf [expr {1 / ($xf - $n2) }]; # invert the fractional part
+set n3 [expr {int ( $xf ) }]; # keep the integer part in n3
+set xf [expr {1 / ($xf - $n3) }]; # invert the fractional part
+set n4 [expr {int ( $xf ) }]; # keep the integer part in n4
+set xf [expr {1 / ($xf - $n4) }]; # invert the fractional part
+set n5 [expr {int ( $xf ) }]; # keep the integer part in n5
+set xf [expr {1 / ($xf - $n5) }]; # invert the fractional part
+set n6 [expr {int ( $xf ) }]; # keep the integer part in n6
+set xf [expr {1 / ($xf - $n6) }]; # invert the fractional part
+set n7 [expr {int ( $xf ) }]; # keep the integer part in n7
+set xf [expr {1 / ($xf - $n7) }]; # invert the fractional part
+set n8 [expr {int ( $xf ) }]; # keep the integer part in n8
+set xf [expr {1 / ($xf - $n8) }]; # invert the fractional part
+set n9 [expr {int ( $xf ) }]; # keep the integer part in n9
+set xf [expr {1 / ($xf - $n9) }]; # invert the fractional part
+set n10 [expr {int ( $xf ) }]; # keep the integer part in n10
+set xf [expr {1 / ($xf - $n10) }]; # invert the fractional part
+set n11 [expr {int ( $xf ) }]; # keep the integer part in n11
+set xf [expr {1 / ($xf - $n11) }]; # invert the fractional part
+set n12 [expr {int ( $xf ) }]; # keep the integer part in n12
+set xf [expr {1 / ($xf - $n12) }]; # invert the fractional part
+set n13 [expr {int ( $xf ) }]; # keep the integer part in n13
+set xf [expr {1 / ($xf - $n13) }]; # invert the fractional part
+set n14 [expr {int ( $xf ) }]; # keep the integer part in n14
+set xf [expr {1 / ($xf - $n14) }]; # invert the fractional part
+set n15 [expr {int ( $xf ) }]; # keep the integer part in n15
+set xf [expr {1 / ($xf - $n15) }]; # invert the fractional part
+set n16 [expr {int ( $xf ) }]; # keep the integer part in n16
+set xf [expr {1 / ($xf - $n16) }]; # invert the fractional part
+set n17 [expr {int ( $xf ) }]; # keep the integer part in n17
+set xf [expr {1 / ($xf - $n17) }]; # invert the fractional part
+set n18 [expr {int ( $xf ) }]; # keep the integer part in n18
+set xf [expr {1 / ($xf - $n18) }]; # invert the fractional part
+set n19 [expr {int ( $xf ) }]; # keep the integer part in n19
+set xf [expr {1 / ($xf - $n19) }]; # invert the fractional part
append page "
Your x