Board logo

标题: [数值计算] [已更新]cmd指令执行效率简易测试工具 [打印本页]

作者: plp626    时间: 2011-6-15 21:22     标题: [已更新]cmd指令执行效率简易测试工具

本帖最后由 plp626 于 2011-6-16 19:04 编辑
  1. @ECHO off
  2. :: cmd 命令执行效率测试,保存为cff.bat于windows目录下,
  3. :: 命令行调用格式:cff 1000 "命令名" "命令名" ...
  4. :: 举例:
  5. ::         cff 300 "chcp >nul"
  6. ::         cff 10000 "set var=123" "set var=^!random^!" "shift"
  7. ::         cff 10000 "for /f %a in ("abcdef")do set str=%a"
  8. :: Version: 1.01; Code by plp; Thanks to: fastslz, batchar
  9. setlocal EnableDelayedExpansion
  10. set/a $lp=%1 2>nul||(
  11.     echo  Parameter %%1 --- %1
  12.     echo     is invalid number.&exit/b2
  13. )
  14. if %2.==. echo Paramter %%2 is missing.&exit/b3
  15. call:getinf&rem :: 获取版本信息和CPU信息
  16. :begin
  17. set "cmd=%~2"
  18. Set $time1=%time%
  19. for /l %%@ in (1 1 %$lp%)do %~2
  20. Set $time2=%time%
  21. call:etime $time1 $time2 $t12
  22. if !$t12!==0 echo Parameter %%1 --- %$lp%&echo    is too small.&exit/b4
  23. set/a $cff=$lp*100/$t12,$r=$lp*100%%$t12*10/$t12
  24. echo === [!$time1! --^> !$time2!=!$t12!] ===
  25. ECHO "!cmd!" : !$cff!.!$r! (Hz)
  26. if !$t12! leq 20 (
  27.    echo.&echo ^^! Paramter %%1 --- %$lp%
  28.    echo    is smallish and maybe the result "!$cff!.!$r!" is not accurate
  29.    exit/b5
  30. )
  31. if %3. neq . shift&goto:begin
  32. goto:eof
  33. :etime <beginTime_VarName> <endTime_VarName> <retVar>
  34. Set/a "%3=(!%2:~,2!-!%1:~,2!)*360000+(1!%2:~3,2!-1!%1:~3,2!)*6000+1!%2:~-5,2!!%2:~-2!-1!%1:~-5,2!!%1:~-2!,%3+=-8640000*(%3>>31)"&goto:eof
  35. :getinf
  36. ver&wmic cpu get name|find "CPU"
  37. set NUMBER_OF_PROCESSORS
复制代码

作者: fastslz    时间: 2011-6-15 22:47

本帖最后由 fastslz 于 2011-6-17 11:33 编辑

我也来一个vbs的
cn-dos旧作
  1. 'CPU 基准测试+信息查询,好玩又防奸商,去电脑城选电脑带上一个吧!CPU信息一目了然。
  2. 'CPUtest.vbs BY: fastslz   http://bbs.cn-dos.net  http://bbs.bathome.net
  3. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  4. Set CPUs = objWMIService.InstancesOf("Win32_Processor")
  5. Set Caches = objWMIService.InstancesOf("Win32_CacheMemory")
  6. For Each ObjCache In Caches
  7.     Select Case objCache.Level
  8.     case 3
  9.     aUsage = "一级缓存: " & objCache.MaxCacheSize & "KB    (一级数据+L1缓存)"
  10.     case 4
  11.     aUsage = aUsage & vbCrLf & "二级缓存: " & objCache.MaxCacheSize & "KB"
  12.     case 5
  13.     aUsage = aUsage & vbCrLf & "三级缓存: " & objCache.MaxCacheSize & "KB"
  14.     End Select
  15. Next
  16. For Each ObjCPU In CPUs
  17. Usage = "CPU 名称: " & ltrim(ObjCPU.Name)               & Chr(9) & vbCrLf _
  18.       & "CPU 构架: " & ObjCPU.Description               & vbCrLf _
  19.       & "制造厂商: " & ObjCPU.Manufacturer              & vbCrLf _
  20.       & "接口规格: " & ObjCPU.SocketDesignation         & vbCrLf _
  21.       & "核心数量: " & ObjCPU.NumberOfCores             & vbCrLf _
  22.       & "地址位宽: " & ObjCPU.AddressWidth & " Bit"     & vbCrLf _
  23.       & "数据位宽: " & ObjCPU.DataWidth & " Bit"        & vbCrLf _
  24.       & "CPU 电压: " & ObjCPU.CurrentVoltage / 10 & "V" & vbCrLf _
  25.       & "主频速度: " & ObjCPU.CurrentClockSpeed & "MHZ" & vbCrLf _
  26.       & "总线速度: " & ObjCPU.ExtClock & "MHZ"          & vbCrLf & aUsage
  27. Next
  28. If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then
  29.     MsgBox Usage , vbInformation ,"CPU 基准测试"
  30.     Else
  31.     WScript.Echo Usage
  32. End If
  33. Dim I,T1,T2,Tempvalue,aRunTime,bRunTime
  34.     T1 = Timer()
  35.     For I = 1 To 2000000
  36.         Tempvalue= 2^0.5
  37.     Next
  38.     T2 = Timer()
  39.     aRunTime = FormatNumber((T2-T1)*1000,2)
  40. NumMsg = "CPU 200万次开方计算所需时间:" &aRunTime&" 毫秒" &Chr(9)
  41.     T1 = Timer()
  42.     For I = 1 To 6000000
  43.         Tempvalue= 1 + 1
  44.     Next
  45.     T2 = Timer()
  46.     bRunTime = FormatNumber((T2-T1)*1000,2)
  47. NumMsg =  NumMsg & vbCrLf & "CPU 600万次加法计算所需时间:"&bRunTime&" 毫秒" &Chr(9)
  48. If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then
  49.     MsgBox NumMsg , vbInformation ,"CPU 基准测试"
  50.     Else
  51.     WScript.Echo NumMsg
  52. End If
复制代码

作者: plp626    时间: 2011-6-16 12:44

  1. Microsoft Windows XP [版本 5.1.2600]
  2. Genuine Intel(R) CPU           T1600  @ 1.66GHz
  3. NUMBER_OF_PROCESSORS=2
  4. "rem" : 366678.1 (Hz)
  5. "shift" : 139301.5 (Hz)
  6. "if a==b 命令" : 145857.1 (Hz)
  7. "@echo off" : 116761.1 (Hz)
  8. "break" : 107383.2 (Hz)
  9. "popd" : 108809.0 (Hz)
  10. "set a=1" : 70921.9 (Hz)
复制代码
结论:
  1. rem >>  if a==b 命令 >> shift >> @echo off >> break >> set a=1
复制代码

作者: fastslz    时间: 2011-6-17 10:36

plp626 兄
在Windows7 64bit Q8300(四核CPU)环境下,经过多次测试发现cmd wscript cscript在不调用外部命令的情况下CPU占用始终保持在25%,甚至只使用一个线程(核心),之前你写的圆周率计算的代码更奇怪一个
核心CPU占用95%其它3个核心空闲中,这个情况何解?
http://bbs.bathome.net/viewthread.php?tid=3437
作者: plp626    时间: 2011-6-17 15:35

4# fastslz


也许是因为cmd,cscript,wscript这些脚本解释器都是单线程程序,使用内部命令时,始终是一个线程运行。
如果开多个cmd进程,就相当于多个线程,在多核系统中,系统根据任务调度的基本单位--线程,很可能根据情况分多个cpu。

(仅是猜测,勉强可以解释现象。)
作者: fastslz    时间: 2011-6-17 16:01

5# plp626


是啊、可以猜测一下
cmd+系统自带外部命令 单线程、多个线程
cmd+内部命令  只能是单线程

建议改进下代码,测试每秒能运算圆周率小数点位数
作者: plp626    时间: 2011-6-17 17:25

每秒运算圆周率位数这个不能说明问题,计算圆周率的算法太多,没有个统一参考;
我倒是有个想法,测试cmd的echo off指令执行频率,容易统一比较;

还有一楼的代码太繁琐了,不知不觉都40行了,准备写个精简版的,可以根据是否为外部命令智能给出合适的循环次数,不用人为指定循环次数;
作者: plp626    时间: 2011-6-17 17:42

本帖最后由 plp626 于 2011-6-17 21:36 编辑

这个无需给定命令循环次数,由程序指定。
  1. :: cff "命令名"; "命令名"; ...
  2. :: 举例:
  3. ::         cff "set var=^!random^!"
  4. ::         cff "call set a=1"; "call set/a a=1"; "set/a a=1"
  5. ::         cff "for /f %a in ("abcdef")do set str=%a"
复制代码
  1. :: cmd 命令执行效率测试,保存为cff.bat于windows目录下,
  2. :: 命令行调用格式:
  3. ::                 cff "命令名"; "命令名"; ...
  4. :: Version: 1.1; Code by plp; Thanks to: fastslz, batchar
  5. @ECHO off&setlocal EnableDelayedExpansion&call:getinf
  6. echo ------------ CMD指令测试 -------------
  7. :beg
  8. set/a $lp=random%%5+1&set "cmd=%~1"
  9. :begin
  10. Set $time1=%time%
  11. for /l %%@ in (1 1 %$lp%)do %cmd%
  12. Set $time2=%time%
  13. call:etime $time1 $time2 $t12
  14. if !$t12! leq 20 set/a $lp=$lp*2+5&goto:begin
  15. set/a $cff=$lp*100/$t12,$r=$lp*100%%$t12*10/$t12
  16. call:print
  17. if %2. neq . shift&goto:beg
  18. goto:eof
  19. :etime <beginTime_VarName> <endTime_VarName> <retVar>
  20. Set/a "%3=(!%2:~,2!-!%1:~,2!)*360000+(1!%2:~3,2!-1!%1:~3,2!)*6000+1!%2:~-5,2!!%2:~-2!-1!%1:~-5,2!!%1:~-2!,%3+=-8640000*(%3>>31)"&goto:eof
  21. :getinf 获取版本信息和CPU信息
  22. ver&wmic cpu get name|find "CPU"
  23. set NUMBER_OF_PROCESSORS&goto:eof
  24. :print 格式化输出
  25. set "prt="!cmd!"                                  "
  26. set $cf=      !$cff!.!$r!&set $cf=!$cf:~-8! Hz
  27. if !cmd:~37!. neq . (echo "!cmd!" @ !$cf!)else (
  28.     echo !prt:~0,37! @ !$cf!
  29. )
复制代码

作者: lllsoslll    时间: 2011-6-17 21:33

1.1版本的:
运行 —> cmd —> 粘贴代码,回车:
  1. cd.>f.t&cd.>g.t
  2. cff "set a=1" "set a=^!random:~2,1^!"; "set a=^!random:2=#^!"; "set abcd12345678901234567890=$$"; "call set a=1234567890"; "call set/a a=2" "call set f=%%a%%"; popd "setlocal&endlocal"; "if a==0 ?"; "for %a in (1)do set b=%a"; "for /f %a in ("1")do set b=%a"; "ver>nul"; "echo off>a.t" "echo.>b.t 4>a.t" "echo.>b.t" "if exist xxxx.txt ?"; "for %a in (#.txt)do set x=%a"; rem; "copy/b f.t+g.t f.t>nul"; "copy f.t+g.t f.t>nul" shift
复制代码
输出:
  1. Microsoft Windows XP [版本 5.1.2600]
  2. Genuine Intel(R) CPU           T1600  @ 1.66GHz
  3. NUMBER_OF_PROCESSORS=2
  4. ------------ CMD指令测试 -------------
  5. "set a=1"                             @  70202.8 Hz
  6. "set a=!random:~2,1!"                 @  40943.3 Hz
  7. "set a=!random:2=#!"                  @  37221.2 Hz
  8. "set abcd12345678901234567890=$$"     @  55843.1 Hz
  9. "call set a=1234567890"               @    275.7 Hz
  10. "call set/a a=2"                      @   6124.0 Hz
  11. "call set f=%%a%%"                    @    275.7 Hz
  12. "popd"                                @ 102379.1 Hz
  13. "setlocal&endlocal"                   @   2461.2 Hz
  14. "if a==0 ?"                           @ 136519.4 Hz
  15. "for %a in (1)do set b=%a"            @  43867.8 Hz
  16. "for /f %a in ("1")do set b=%a"       @  43867.8 Hz
  17. "ver>nul"                             @   6124.0 Hz
  18. "echo off>a.t"                        @   2631.0 Hz
  19. "echo.>b.t 4>a.t"                     @   1263.3 Hz
  20. "echo.>b.t"                           @   1804.7 Hz
  21. "if exist xxxx.txt ?"                 @   6959.0 Hz
  22. "for %a in (#.txt)do set x=%a"        @  39622.5 Hz
  23. "rem"                                 @ 351067.8 Hz
  24. "copy/b f.t+g.t f.t>nul"              @    748.0 Hz
  25. "copy f.t+g.t f.t>nul"                @    692.5 Hz
  26. "shift"                               @ 140420.0 Hz
复制代码

作者: plp626    时间: 2011-6-17 23:37

本帖最后由 plp626 于 2011-6-17 23:55 编辑

8楼的代码(version 1.1版本)win7下报错,具体原因下次公布答案,现在还在思考;

这次升级到1.11版,win7兼容版:
  1. :: cmd 命令执行效率测试,保存为cff.bat于windows目录下,
  2. :: 命令行调用格式:
  3. ::                 cff "命令名"; "命令名"; ...
  4. :: Version: 1.11; Code by plp; Thanks to: fastslz, batchar
  5. @ECHO off&setlocal EnableDelayedExpansion&call:getinf
  6. echo ------------ CMD指令测试 -------------
  7. :beg
  8. if "%~1"=="" goto:eof
  9. :: 比较纳闷的这句,在win7下改为 if %1.==. goto:eof 会出错!!
  10. set/a $lp=random%%5+1&set "cmd=%~1"
  11. :begin
  12. Set $time1=%time%
  13. for /l %%@ in (1 1 %$lp%)do %cmd%
  14. Set $time2=%time%
  15. call:etime $time1 $time2 $t12
  16. if !$t12! leq 20 set/a $lp=$lp*2+5&goto:begin
  17. set/a $cff=$lp*100/$t12,$r=$lp*100%%$t12*10/$t12
  18. call:print & shift& goto:beg
  19. :etime <beginTime_VarName> <endTime_VarName> <retVar>
  20. Set/a "%3=(!%2:~,2!-!%1:~,2!)*360000+(1!%2:~3,2!-1!%1:~3,2!)*6000+1!%2:~-5,2!!%2:~-2!-1!%1:~-5,2!!%1:~-2!,%3+=-8640000*(%3>>31)"&goto:eof
  21. :getinf 获取版本信息和CPU信息
  22. ver&wmic cpu get name|find "CPU"
  23. set NUMBER_OF_PROCESSORS&goto:eof
  24. :print 格式化输出
  25. set "prt="!cmd!"                                  "
  26. set $cf=      !$cff!.!$r!&set $cf=!$cf:~-8! Hz
  27. if !cmd:~37!. neq . (echo "!cmd!" @ !$cf!)else (
  28.     echo !prt:~0,37! @ !$cf!
  29. )
复制代码

作者: fastslz    时间: 2011-6-19 12:00

不知道怎么回事,今天怎么测试8楼的也不报错了,见鬼了
  1. cff.bat "rem";"break";"popd";"set var=^!random^!";"call set a=1";"for /f %a in ("abcdef")do set str=%a";"setlocal&endlocal";"find /?>nul";"findstr /?>nul"
复制代码
Microsoft Windows [版本 6.1.7601]
Intel(R) Core(TM)2 Quad CPU    Q8300  @ 2.50GHz
NUMBER_OF_PROCESSORS=4
------------ CMD指令测试 -------------
"rem"                                 @ 531359.4 Hz
"break"                               @  25579.1 Hz
"popd"                                @  25579.1 Hz
"set var=!random!"                    @  17052.7 Hz
"call set a=1"                        @    947.5 Hz
"for /f %a in ("abcdef")do set str=%a @  17540.0 Hz
"setlocal&endlocal"                   @   5670.3 Hz
"find /?>nul"                         @    138.7 Hz
"findstr /?>nul"                      @    172.0 Hz

Microsoft Windows XP [版本 5.1.2600]
Intel(R) Core(TM)2 Quad CPU    Q8300  @ 2.50GHz
NUMBER_OF_PROCESSORS=4
------------ CMD指令测试 -------------
"rem"                                 @ 531359.4 Hz
"break"                               @ 158538.7 Hz
"popd"                                @ 158538.7 Hz
"set var=!random!"                    @  55831.8 Hz
"call set a=1"                        @   1804.7 Hz
"for /f %a in ("abcdef")do set str=%a @  63002.5 Hz
"setlocal&endlocal"                   @  18055.8 Hz
"find /?>nul"                         @     63.3 Hz
"findstr /?>nul"                      @     63.3 Hz

可见WinXP和Win7 cmd执行效率差异和大
作者: plp626    时间: 2011-6-19 18:35

从你的测试数据看,win7想对于xp:
仅外部命令启动所花费的时间变少了,是xp时间的一半。
cmd的内部命令执行效率反而低了!而且低了1倍以上!
像set这样实用非常频繁的指令,xp下执行的效率是win7的近4倍!
很意外,这到底是什么原因呢?
作者: fastslz    时间: 2011-6-19 19:13

本帖最后由 fastslz 于 2011-6-19 19:47 编辑

Microsoft Windows [版本 6.1.7601]
Intel(R) Core(TM) i3 CPU       M 370  @ 2.40GHz
NUMBER_OF_PROCESSORS=4
------------ CMD指令测试 -------------
"rem"                                 @ 531359.4 Hz
"break"                               @  58490.4 Hz
"popd"                                @  68252.7 Hz
"set var=!random!"                    @  22737.0 Hz
"call set a=1"                        @    692.5 Hz
"for /f %a in ("abcdef")do set str=%a @  26691.3 Hz
"setlocal&endlocal"                   @   7290.4 Hz
"find /?>nul"                         @    122.8 Hz
"findstr /?>nul"                      @    153.5 Hz


Microsoft Windows XP [版本 5.1.2600]
Intel(R) Core(TM) i3 CPU       M 370  @ 2.40GHz
NUMBER_OF_PROCESSORS=4
------------ CMD指令测试 -------------
"rem"                                 @ 634203.2 Hz
"break"                               @ 153584.3 Hz
"popd"                                @ 182025.9 Hz
"set var=!random!"                    @  66408.1 Hz
"call set a=1"                        @   3179.1 Hz
"for /f %a in ("abcdef")do set str=%a @  74457.5 Hz
"setlocal&endlocal"                   @  10223.3 Hz
"find /?>nul"                         @     29.6 Hz
"findstr /?>nul"                      @     30.4 Hz
还得改进
i3 M370是双核心4线程
NUMBER_OF_PROCESSORS其实是线程数
wmic cpu get NumberOfCores这个是核心数
再增加64bit 或32bit系统
wmic cpu get AddressWidth 或set PROCESSOR_ARCHITECTURE
从上面的数据可以看出原生4核和4线程还是有区别的,xp下外部命令效率提示很明显
  1. @echo off
  2. for /f "delims=" %%i in ('wmic cpu get name^,AddressWidth^,NumberOfCores^,NumberOfLogicalProcessors /Value') do set "%%i">nul
  3. echo %Name%
  4. echo 核芯数 %NumberOfCores%
  5. echo 线程数 %NumberOfLogicalProcessors%
  6. echo %AddressWidth% Bit
  7. ver
复制代码

作者: qzwqzw    时间: 2011-6-20 11:12

之前在想一个可以测试代码性能的工具
测试结果仅于代码有关
而与测试环境无关

可惜试了很多思路
没有找到足够完整的测试基准
可以抵消测试环境对测试结果的影响
作者: cjiabing    时间: 2011-6-20 22:39

不明白,求真相
作者: fly2sky    时间: 2011-6-29 23:42

本帖最后由 fly2sky 于 2011-6-29 23:45 编辑

原来没有认真看说明,还以为2008R2不行呢
作者: zhj    时间: 2011-6-30 19:08

之前在想一个可以测试代码性能的工具
测试结果仅于代码有关
而与测试环境无关

可惜试了很多思路
没有找到足够完整的测试基准
可以抵消测试环境对测试结果的影响
qzwqzw 发表于 2011-6-20 11:12

用DOSBOX之类限制CPU频率即可,或者用虚拟机限制
作者: mstsc    时间: 2011-7-24 20:28

好深奥   一点都不懂     现在只能复制粘贴    用用




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2