红蜻蜓工作室

用批处理实现体彩3D组选分析表

作者： phanrider 2006-09-28

@REM =====================================
@REM Lottery.bat it's running in cmd /v:on
@REM Write by phanrider
@REM 2006.09.28
@REM http://www.reddragonfly.org
@REM =====================================

@echo off
setlocal

rem /****************************/
rem /*文件名称 */
rem /*格式：期号中奖号 */
rem /****************************/
set filename=lottery.txt

set key0=0
set key1=1
set key2=2
set key3=3
set key4=4
set key5=5
set key6=6
set key7=7
set key8=8
set key9=9

set num0=0
set num1=0
set num2=0
set num3=0
set num4=0
set num5=0
set num6=0
set num7=0
set num8=0
set num9=0
set sum=0

set num10=0
set num11=0
set num12=0
set num13=0
set num14=0
set num15=0
set num16=0
set num17=0
set num18=0
set num19=0
set sum1=0

set num20=0
set num21=0
set num22=0
set num23=0
set num24=0
set num25=0
set num26=0
set num27=0
set num28=0
set num29=0
set sum2=0

set sss0= -
set sss1= -
set sss2= -
set sss3= -
set sss4= -
set sss5= -
set sss6= -
set sss7= -
set sss8= -
set sss9= -

set ss0= -
set ss1= -
set ss2= -
set ss3= -
set ss4= -
set ss5= -
set ss6= -
set ss7= -
set ss8= -
set ss9= -

set s0= -
set s1= -
set s2= -
set s3= -
set s4= -
set s5= -
set s6= -
set s7= -
set s8= -
set s9= -

if not exist %filename% goto end

echo 期号中奖号百位分布图 # 十位分布图 # 个位分布图
echo ---- ------ 0 1 2 3 4 5 6 7 8 9 # 0 1 2 3 4 5 6 7 8 9 # 0 1 2 3 4 5 6 7 8 9
for /f "tokens=1,2* delims= " %%a in (%filename%) do (
@set num=%%b
@set num_1=!num:~0,1!
@set num_2=!num:~1,1!
@set num_3=!num:~2,1!
rem //////////////
rem //number 1 //
rem //////////////
if !num_1! EQU !key0! (
set /a num0=!num0! + 1
) else (
if !num_1! EQU !key1! (
set /a num1=!num1! + 1
) else (
if !num_1! EQU !key2! (
set /a num2=!num2% + 1
) else (
if !num_1! EQU !key3! (
set /a num3=!num3! + 1
) else (
if !num_1! EQU !key4! (
set /a num4=!num4! + 1
) else (
if !num_1! EQU !key5! (
set /a num5=!num5! + 1
) else (
if !num_1! EQU !key6! (
set /a num6=!num6! + 1
) else (
if !num_1! EQU !key7! (
set /a num7=!num7! + 1
) else (
if !num_1! EQU !key8! (
set /a num8=!num8! + 1
) else (
if !num_1! EQU !key9! (
set /a num9=!num9! + 1
))))))))))
rem //////////////
rem //number 2 //
rem //////////////
if !num_2! EQU !key0! (
set /a num10=!num10! + 1
) else (
if !num_2! EQU !key1! (
set /a num11=!num11! + 1
) else (
if !num_2! EQU !key2! (
set /a num12=!num12% + 1
) else (
if !num_2! EQU !key3! (
set /a num13=!num13! + 1
) else (
if !num_2! EQU !key4! (
set /a num14=!num14! + 1
) else (
if !num_2! EQU !key5! (
set /a num15=!num15! + 1
) else (
if !num_2! EQU !key6! (
set /a num16=!num16! + 1
) else (
if !num_2! EQU !key7! (
set /a num17=!num17! + 1
) else (
if !num_2! EQU !key8! (
set /a num18=!num18! + 1
) else (
if !num_2! EQU !key9! (
set /a num19=!num19! + 1
))))))))))
rem //////////////
rem //number 3 //
rem //////////////
if !num_3! EQU !key0! (
set /a num20=!num20! + 1
) else (
if !num_3! EQU !key1! (
set /a num21=!num21! + 1
) else (
if !num_3! EQU !key2! (
set /a num22=!num22% + 1
) else (
if !num_3! EQU !key3! (
set /a num23=!num23! + 1
) else (
if !num_3! EQU !key4! (
set /a num24=!num24! + 1
) else (
if !num_3! EQU !key5! (
set /a num25=!num25! + 1
) else (
if !num_3! EQU !key6! (
set /a num26=!num26! + 1
) else (
if !num_3! EQU !key7! (
set /a num27=!num27! + 1
) else (
if !num_3! EQU !key8! (
set /a num28=!num28! + 1
) else (
if !num_3! EQU !key9! (
set /a num29=!num29! + 1
))))))))))
for /l %%d in (0,1,9) do (
if %%d EQU !num_1! set sss%%d= *
if %%d EQU !num_2! set ss%%d= *
if %%d EQU !num_3! set s%%d= *
)

echo %%a %%b !sss0!!sss1!!sss2!!sss3!!sss4!!sss5!!sss6!!sss7!!sss8!!sss9! #!ss0!!ss1!!ss2!!ss3!!ss4!!ss5!!ss6!!ss7!!ss8!!ss9! #!s0!!s1!!s2!!s3!!s4!!s5!!s6!!s7!!s8!!s9!
for /l %%d in (0,1,9) do (
set sss%%d= -
set ss%%d= -
set s%%d= -
)
)
set /a sum=!num0! + !num1! + !num2! + !num3! + !num4! + !num5! + !num6! + !num7! + !num8! + !num9!
set /a sum1=!sum!
set /a sum2=!sum!

set /a num0=!num0! * 100 / !sum! 1>nul 2>&1
set /a num1=!num1! * 100 / !sum! 1>nul 2>&1
set /a num2=!num2! * 100 / !sum! 1>nul 2>&1
set /a num3=!num3! * 100 / !sum! 1>nul 2>&1
set /a num4=!num4! * 100 / !sum! 1>nul 2>&1
set /a num5=!num5! * 100 / !sum! 1>nul 2>&1
set /a num6=!num6! * 100 / !sum! 1>nul 2>&1
set /a num7=!num7! * 100 / !sum! 1>nul 2>&1
set /a num8=!num8! * 100 / !sum! 1>nul 2>&1
set /a num9=!num9! * 100 / !sum! 1>nul 2>&1

set /a num10=!num10! * 100 / !sum! 1>nul 2>&1
set /a num11=!num11! * 100 / !sum! 1>nul 2>&1
set /a num12=!num12! * 100 / !sum! 1>nul 2>&1
set /a num13=!num13! * 100 / !sum! 1>nul 2>&1
set /a num14=!num14! * 100 / !sum! 1>nul 2>&1
set /a num15=!num15! * 100 / !sum! 1>nul 2>&1
set /a num16=!num16! * 100 / !sum! 1>nul 2>&1
set /a num17=!num17! * 100 / !sum! 1>nul 2>&1
set /a num18=!num18! * 100 / !sum! 1>nul 2>&1
set /a num19=!num19! * 100 / !sum! 1>nul 2>&1

set /a num20=!num20! * 100 / !sum! 1>nul 2>&1
set /a num21=!num21! * 100 / !sum! 1>nul 2>&1
set /a num22=!num22! * 100 / !sum! 1>nul 2>&1
set /a num23=!num23! * 100 / !sum! 1>nul 2>&1
set /a num24=!num24! * 100 / !sum! 1>nul 2>&1
set /a num25=!num25! * 100 / !sum! 1>nul 2>&1
set /a num26=!num26! * 100 / !sum! 1>nul 2>&1
set /a num27=!num27! * 100 / !sum! 1>nul 2>&1
set /a num28=!num28! * 100 / !sum! 1>nul 2>&1
set /a num29=!num29! * 100 / !sum! 1>nul 2>&1

echo.
echo 目前统计期数为!sum!期
echo.
echo 各数所占概率(数字：百分比)
echo --------------------------------------------------------------------------------
echo 百位 0: !num0!%% 1: !num1!%% 2: !num2!%% 3: !num3!%% 4: !num4!%% 5: !num5!%% 6: !num6!%% 7: !num7!%% 8: !num8!%% 9: !num9!%%
echo 十位 0: !num10!%% 1: !num11!%% 2: !num12!%% 3: !num13!%% 4: !num14!%% 5: !num15!%% 6: !num16!%% 7: !num17!%% 8: !num18!%% 9: !num19!%%
echo 个位 0: !num20!%% 1: !num21!%% 2: !num22!%% 3: !num23!%% 4: !num24!%% 5: !num25!%% 6: !num26!%% 7: !num27!%% 8: !num28!%% 9: !num29!%%
echo.
pause

goto endd
:end
echo 错误：%filename%没有发现！！！

:endd
endlocal

rem ======================== End ================================

REM ==================== Lottery.txt ============================
REM 06262 917
REM 06261 735
REM 06260 659
REM 06259 628
REM 06258 860
REM 06257 508
REM 06256 998
REM 06255 479
REM 06254 293
REM 06253 978
REM 06252 115
REM 06251 656
REM ..... ...
REM ================== Lottery.txt End ==========================