Percents

[BiLL]

Hi,

got a question about percents!

set percent1 [expr (100 / 9.0) * 7]
set percent2 [expr (100 / 9.0) * 2]

that returns
percent1 = 77.7777777778%
percent2 = 22.2222222222%

Can anyone help me to make percent1 = 77,8% and percent 2 = 22,2% ?
Would be great - thanks!!

[ppslim]

Nice, I come by and see this.

This should do you. However, it isn't same, and you need to make sure that what it being passed to the proc, is infact a number.

Code: Select all

proc round {in} {
  return [expr (round($in * 10) +0.0) / 10]
}

It will allways return a floating point value

Examples

round 51 = 51.0
round 51.5 = 51.5
round 51.55 = 51.6
round 51.545 = 51.5

[user]

either

Code: Select all

format %.1f <insert result here>

(format will just chop off extra digits, so the result might not be what you want.) or

Code: Select all

set tcl_precision 1

before the expr...but that will result in every calculation having this lousy precision

EDIT: format does rounding..so go ahead and use it

[BiLL]

awesome
thanks user
and thanks ppslim for that proc - WORKS GREAT!