Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Trying bin mul floating point
set value1 -10 set value2 -10.68447 puts $value1 puts $value2 set tcl_precision 4 set list {} set A [expr {$value1 + $value2} ] #puts $A set B [expr {int($A) }] set C [expr {$A - $B}] set C [expr {abs($C)}] puts "$C ----1" set result {} set result1 {} if {$B<0} { set sign - set B [expr {abs ($B)}] puts "$sign $B ----1" } else { set sign {} puts "$B----2" } while {$B > 0} { set result [ expr { $B % 2 } ]$result set B [expr {$B/2}] } while {$C<1} { set result1 [expr {$C*2}] #puts "$result1 " set D [expr {int ($result1) }] #puts "$D" set E [expr {$result1 - $D}] #puts "$E" set C $E lappend list $D set llen [llength $list] #puts "$llen - - - 5" #puts "$list " if {$C==0} { break } } puts "Final Result is : $sign $result . [Join $list ""]"
run
|
edit
|
history
|
help
0
eerewr
Bin mul float
Dec to binary addition
Perfect neg float bin multiplier
r
binds
Practice TCL
Get EarliestTimestamp
Perfect bin mul eo float
NISP - Planning ID Unit Test