egghelp/eggheads community

Ignoring zeros?

2012-06-08T03:19:43-04:00

Hey guys,

did anybody ever try to calculate something like 5/100 or 5/100000...?

!calc 5/100
5/100000 = 0.5

!calc 5/100000
5/100000 = 0.5

Any ideas, how to fix it?

Statistics: Posted by PacMan1973 — Fri Jun 08, 2012 3:19 am

Simple calculator.

2012-04-12T01:21:48-04:00

yeah FightingNavyman, it doesn't do unicode (utf8) that's exactly why I asked if it's possible

Statistics: Posted by spithash — Thu Apr 12, 2012 1:21 am

Simple calculator.

2012-04-10T01:07:08-04:00

spithash said: I wonder if this script can do unicode char mathematics, like, for example:

results are:
<~chachin> !calc (1+√(5))/2
[12:05:40am] <@R2D2> chachin: Invalid expression. Cannot calculate ''.

Statistics: Posted by FightingNavyman — Tue Apr 10, 2012 1:07 am

Simple calculator.

2012-04-09T19:58:31-04:00

I wonder if this script can do unicode char mathematics, like, for example:

!calc (1+√(5))/2

Statistics: Posted by spithash — Mon Apr 09, 2012 7:58 pm

Simple calculator.

2012-04-09T04:18:25-04:00

this script is awesome. I'm so copying it. thank you guys

Statistics: Posted by spithash — Mon Apr 09, 2012 4:18 am

Simple calculator.

2012-07-13T19:20:16-04:00

Code:

# this is the maximum amount of digits# that will be shown after the decimal pointset calc_precision 7bind pub - !calc safe_calcbind pub - .calc safe_calcsetudef flag calcproc is_op {str} {return [expr [lsearch {{ } . + - * ^ / ( ) %} $str] != -1]}proc safe_calc {nick uhost hand chan str} {if {![channel get $chan calc]} { return }foreach char [split $str {}] {if {![is_op $char] && ![string is integer $char]} {putserv "PRIVMSG $chan :$nick: Invalid expression. Cannot calculate '$char'."return}}if {[catch {format "%.${::calc_precision}f" [expr [calc_force_floats $str]]} out]} {putserv "PRIVMSG $chan :$nick: Invalid equation. Cannot calculate."return} else {putserv "PRIVMSG $chan :$str = [calc_precision_format $out]"}}proc calc_precision_format {value} {      set v [split $value .]      set v1 [lindex $v 0]      set v2 [string trim [lindex $v 1] " 0"]      if {[string length $v2]} { set v "${v1}.${v2}" } { set v $v1 }}proc calc_force_floats {equation} {   regsub -all -- {[0-9.]+} $equation "double(\\0)" equation   return $equation} putlog "calculate loaded."# eof

!calc [die]
speechles: Invalid expression. Cannot calculate '['.
!calc -2.02 + 3.112312 * 0.2
-2.02 + 3.112312 * 0.2 = -1.3975376
!calc 5 + 3 + 2.1
5 + 3 + 2.1 = 10.1
!calc 5 + 3 + 2
5 + 3 + 2 = 10
!calc 5 + 3 + 2 + M
speechles: Invalid expression. Cannot calculate 'M'.

-- These last two demonstrate how precision affects results ---
!calc 2.000005+9.38712317823781287817237812789378912318923*5
2.000005+9.38712317823781287817237812789378912318923*5 = 48.9356209
!calc 48.9356209 - 5*9.38712317823781287817237812789378912318923
48.9356209 - 5*9.38712317823781287817237812789378912318923 = 2.5

That should be "2.000005" but because we restrict precision to 7, we wind up off by .5 or so .. This is normal because we create the condition by stripping excess digits. You need to take this into account when you set your precision. 7 seems a good number. Maybe 8 is better. Who knows?

Enjoys ;^)

Uses same procedures used to modify other script to same behavior.

Statistics: Posted by speechles — Sat Apr 07, 2012 3:24 am

Something messed up

2012-04-04T17:06:24-04:00

Script has worked flawlessly over the years.
However, now something's messed up.
I'm not sure if auto-updates ('Buntu) over apt-get has caused it.
Anyhow, with my latest revision, all !c requests yields answers in /MSG.
I was dazed and angry and worked my way for a solution -- empty handed.
Niow, I found this simple script that may be a better scratch than the one we used.
It works nice (decimals and all) by default, but it's adding ".0" for integers.
Is there any easy way to modify this script so that it returns integers without .0 and I would fly of happyness! :>

Statistics: Posted by Gewan — Wed Apr 04, 2012 5:06 pm

Simple calculator.

2011-03-09T11:34:19-04:00

It works like a charm!
Thanks a lot!

Cheers~

Statistics: Posted by Gewan — Wed Mar 09, 2011 11:34 am

Simple calculator.

2011-03-09T11:19:19-04:00

Thanks alot for your effort speechles. I'm so thankful.
Some minor flaw though, from what it seems.

!c 1+2
error calculating '1+2' (can't read "::": no such variable)

Getting the same respons with 1-2, 1/2, or even 1*2.

Ideas?

That was a flaw in my code. I've corrected that, you can now safely use the above code changes and they will function correctly.

Enjoys, and have a fun

Statistics: Posted by speechles — Wed Mar 09, 2011 11:19 am

Simple calculator.

2011-03-09T10:42:48-04:00

Thanks alot for your effort speechles. I'm so thankful.
Some minor flaw though, from what it seems.

!c 1+2
error calculating '1+2' (can't read "::": no such variable)

Getting the same respons with 1-2, 1/2, or even 1*2.

Ideas?

Statistics: Posted by Gewan — Wed Mar 09, 2011 10:42 am

Simple calculator.

2011-03-09T11:20:18-04:00

So, anyone feeling bored? Please make me a "calc_mod.tcl" that will add the "." (in either numerator or denominator) per default. I would be _very_ happy!

Using the original script make these simple modifications:

Code:

change this:            } elseif {[catch {expr [calc_fixexpr $remainder]} output]} {to this:            } elseif {[catch {set output [format "%.${::calc_precision}f" [expr [calc_fixexpr [calc_force_floats $remainder]]]]} output]} {change this:            calc_msg $output2 "$remainder = $output"to this:            calc_msg $output2 "$remainder = [calc_precision_format $output]"then add these procedures to the end:proc calc_precision_format {value} {set v [split $value .]set v1 [lindex $v 0]set v2 [string trim [lindex $v 1] " 0"]if {[string length $v2]} { set v "${v1}.${v2}" } { set v $v1 }}proc calc_force_floats {equation} {regsub -all -- {[0-9.]+} $equation "double(\\0)" equationreturn $equation}then add this to the very top of the script:# set the digits of precision you want in your displayset calc_precision 7

This will remove the ending 0's, as well as the decimal point when not needed. Using the variable calc_precision you control how many digits will be the maximum after the decimal point. If this looks familiar, yes, this is the exact same technique used within Incith:Weather.

You will never see things like ( 7.0200000 or 7.0000000 ) .. These will instead be displayed as ( 7.02 or 7 ) respectively. This is because even though you've set calc_precision to 7, it will smartly clean the number up before displaying to remove needless precision.

Try this out and see if it works

edit: corrected issue mentioned below....

Statistics: Posted by speechles — Tue Mar 08, 2011 10:46 pm

Erhm.

2011-03-08T16:05:32-04:00

Hi (again).
Guys. Regarding calc.tcl now.

<@NejthanX> !c 123/5
<@Eggdrop> 123/5 = 24

<@Gewan> !c 123/5.
<@Eggdrop> 123/5. = 24.6

<@Gewan> !c 123./5
<@Eggdrop> 123/5. = 24.6

It won't even round off per default, but just omit the decimals, see. Adding a simple dot will make it return correct answer. Any chance that anyone here could modify calc.tcl so that it add the dot auto matically? When I'm tired I forget to add the dot, and I'm too slow/dumb to always "see" when decimals are to be expected in a result (please don't judge me).

So, anyone feeling bored? Please make me a "calc_mod.tcl" that will add the "." (in either numerator or denominator) per default. I would be _very_ happy!

Statistics: Posted by Gewan — Tue Mar 08, 2011 4:05 pm

Simple calculator.

2011-03-06T15:16:22-04:00

@arfer,
Thank you very much for you taking the time to check the script. Very kind.
I tried copying the script again, pasting it into vim. Same error again though :/
It works fine without use of decimals, but the 123/2.0 won't fly.

Also, for your information:

I am Eggdrop, running eggdrop v1.6.19+ctcpfix: 6 users (mem: 267k).
Tcl version: 8.4.19 (header version 8.4.19)

--EDIT--
Guys! Never mind this.
I did a simple .restart and guess what?
Yeah, it now works like a charm.
Thanks for all your help!

Statistics: Posted by Gewan — Sun Mar 06, 2011 3:16 pm

Simple calculator.

2011-03-06T08:56:04-04:00

I copied the script calc.tcl directly from the site you pasted above and loaded it into one of my bots. It seems to work fine for me.

[12:44] <@arfer> .calc 123/2
[12:44] 123/2 = 61
[12:44] <@arfer> .calc 123/2.0
[12:44] 123/2.0 = 61.5

The script is on an Eggdrop version 1.6.20 using Tcl 8.5

There is some discussion on google regarding the script but this is more to do with the difference in default decimal precision between Tcl 8.4 and Tcl 8.5, rather than the generation of errors.

Hopefully somebody following this thread will recognise the exact error and point you in the right direction. I would download the file again and ensure that you use a competent text editor to read/modify it. I suggest you do not modify it in any way until you have established whether or not it works for you as is.

Statistics: Posted by arfer — Sun Mar 06, 2011 8:56 am

Simple calculator.

2011-03-06T07:16:25-04:00

@arfer,

I see, pardon me. Then I change approach to officially request for a script/modification of calc.tcl that will be able to handle decimals.

Statistics: Posted by Gewan — Sun Mar 06, 2011 7:16 am