I need to get the fraction from a number. Is there a way to do it with
tcl?

for example:

Number = 10.12345

I want a way to extract 0.12345 from number to other variable.

set number 10.12345
set fraction [expr {$number-int($number)}]

There is no single function to do it though.

Regards,

% set x 10.12345
10.12345
% regexp {([0-9]*)(\.)([0-9]*)} $x match a b c
1
% set a
10
% set b
.
% set c
12345

or

regexp {([0-9]*)(\.[0-9]*)} $x match a b
1
% set a
10
% set b
.12345

or

% expr $x-[expr int($x)]
0.12345

or . . .

Regards,

lindex [split $x .] 1

(but I think fmod is the way to go)

So, here's another way..

# frac.tcl

console show

set n 10.12345
foreach {int frac} [split $n .] {}

  % format %.3f [expr fmod(12345678901.23,1)]
  0.230

You realize that the fractional part becomes less and less
meaningful as the number gets larger?  

Regards,

(BTW, Fortran 90/95 offers two functions to compute the
fraction of a number x - mod(x,1.0) and modulo(x,1.0)
The first is equivalent to fmod() and returns -0.2. The
other is equivalent to x - floor(x) ansd returns 0.8)

Regards,

This assumes it's even defined over the negative
integers.... and it's *not* defined over the
reals... we're extending the concept.

http://www.maths.tcd.ie/~dwilkins/Courses/111/intro.pdf

This assumes it's even defined over the negative
integers.... and it's *not* defined over the
reals... we're extending the concept.

http://www.maths.tcd.ie/~dwilkins/Courses/111/intro.pdf