egghelp/eggheads community

Best way to test Proc speed

2021-05-10T12:27:21-04:00

Thanks CrazyCat

Statistics: Posted by ComputerTech — Mon May 10, 2021 12:27 pm

Best way to test Proc speed

2021-05-10T02:51:44-04:00

You can't.
"Proc speed" means nothing, it can only be compared to another one.

But you can use time with a greater number of iteration (I usually use 1000), it will give you an average speed which is more relevant

Edit: you can find short infos on https://wiki.tcl-lang.org/page/How+to+M ... erformance

Statistics: Posted by CrazyCat — Mon May 10, 2021 2:51 am

Best way to test Proc speed

2021-05-08T16:07:15-04:00

Okay, so what would be an alternative way to test proc speed and not rely on CPU ? would need exact 0.00seconds to compare different procs

thanks in advanced

Statistics: Posted by ComputerTech — Sat May 08, 2021 4:07 pm

Best way to test Proc speed

2021-05-08T04:15:47-04:00

Just because the cpu could be used for other / different things and not 100% of the cpu (nor the same percentage) is dedicated to tclsh.

Statistics: Posted by CrazyCat — Sat May 08, 2021 4:15 am

Best way to test Proc speed

2021-05-08T01:50:28-04:00

Just curious why the "time" command yields different milliseconds each time

Code:

125 microseconds per iteration% time {puts "hello"} 1hello121 microseconds per iteration% time {puts "hello"} 1hello126 microseconds per iteration% time {puts "hello"} 1hello126 microseconds per iteration% time {puts "hello"} 1hello126 microseconds per iteration% time {puts "hello"} 1hello123 microseconds per iteration% time {puts "hello"} 1hello92 microseconds per iteration%

^^ on tclsh

Statistics: Posted by ComputerTech — Sat May 08, 2021 1:50 am

Best way to test Proc speed

2021-03-13T07:10:25-04:00

The clock clicks should yield the same results.

Statistics: Posted by caesar — Sat Mar 13, 2021 7:10 am

Best way to test Proc speed

2021-03-12T15:21:28-04:00

Just thought i'd post my finished working proc speed test code

Code:

bind PUB - "!speed" do:testproc proc:name {nick host hand chan text} {putserv "PRIVMSG $chan :foo"}proc do:test {nick host hand chan text} {set foo [ time {proc:name $nick $host $hand $chan $text} 1]set aoo [lindex [split $foo] 0]set qoo "[expr {$aoo / 1000.00}]ms"puthelp "PRIVMSG $chan :Proc Name : $tproc"puthelp "PRIVMSG $chan :Proc Speed: $qoo"}

Statistics: Posted by ComputerTech — Fri Mar 12, 2021 3:21 pm

Best way to test Proc speed

2021-03-10T17:03:33-04:00

thanks willyw, appreciate it

Statistics: Posted by ComputerTech — Wed Mar 10, 2021 5:03 pm

Re: Best way to test Proc speed

2021-03-10T14:37:06-04:00

Check out:

http://www.tcl.tk/man/tcl8.6/TclCmd/time.htm

You'll find it interesting.

After that, you might like to visit:

https://www.tcl.tk/man/tcl8.5/tutorial/Tcl39.html

too.

I hope this helps.

Statistics: Posted by willyw — Wed Mar 10, 2021 2:37 pm

Best way to test Proc speed

2021-03-10T14:11:37-04:00

So is this a good/best way to test the proc speed?

Code:

bind PUB - "!test" speed:testproc speed:test {nick host hand chan text} {set start [clock clicks]putquick "MODE $chan +o $nick"set end [clock clicks]puthelp "PRIVMSG $chan : Timespan: [expr ($end-$start)/1000.0]ms"}

(Found this code from http://forum.egghelp.org/viewtopic.php?t=20784 | thanks to caesar)

Statistics: Posted by ComputerTech — Wed Mar 10, 2021 2:11 pm