[数值计算] 批处理函数：大数字加减乘除、时期时间计算、数字排序、进制转换等

随风

发几个我的函数
2009-02-20 日更新：修正加法函数中一处bug，
                   增加整数除法“函数”（内勘多个标签，应该不算标准的封装）
2009-02-18 日更新：
  更新乘法函数，大大缩短代码，并且效率大大提升，且不再受位数限制。
  理论上只要积不超过变量赋值的最大位数就可以。
更新加法函数：代码略增，效率略为提高，且不再受位数限制。
更新减法函数：代码略增，效率提高，位数由200提升到1000位。
一、加法函数 任意位数 的正整数 进行 加法计算
二、减法函数 可以对 200位 以内正整数 进行 减法计算
三、乘法函数 可以对 任意位数 的正整数进行 乘法计算
四、计算批处理运行时间函数 时间必须是24小时制，未考虑时间为00点的情况。
五、查询指定天数前的日期（作者：Will Sort  出自：cn-dos ）
六、数字排序函数
七、关于进制转换的函数
    1、任意进制互转（只能处理cmd范围内的数）
       标签段以封装，可直接调用，使用方法见标签上方的说明
       为方便使用，标签以外的代码作了界面美化等处理。使得代码略显臃肿。。。
    2、二进制转十六进制（封装）（通过4位一段转换，可处理超大数）
    3、十六进制转二进制（封装）（通过4位一段转换，可处理超大数）
    4、二进制转十进制（封装）（只能处理cmd范围内的数，小巧方便代码中调用）
    5、获取10进制数（含负数）的 原码、反码、补码（未封装）（只能处理cmd范围内的值）
       完全不懂计算机，只理解为计算机中负数用补码表达
       代码中二进制数用32位显示，超出32位的会出错，
       呵呵，不知道电脑中有没有用32位以上表达的二进制数，哈哈外行话见笑了^_^
    6、综合以上对2、8、10、16进制数进行转换、（未封装）
       显示转换后的2、8、10、16进制数及 原码、反码、补码

:

@echo off
call :jia 354687654165435 35486456 ok
echo %ok%
pause
 
:jia 加法函数（封装）by @随风 @bbs.bathome.net
::计算任意位数的正整数加法
setlocal enabledelayedexpansion&set f=&set "t="
set var1=%~1&set var2=%~2&set /a j=0,n1=0,n2=0
for /l %%a in (0 1 9) do (set vard1=&set "vard2="
set var1=!var1:%%a= %%a !&set var2=!var2:%%a= %%a !)
for %%a in (!var1!)do (set/a n1+=1&set vard1=%%a !vard1!)
for %%a in (!var2!)do (set/a n2+=1&set vard2=%%a !vard2!)
(if !n1! lss !n2! (set var1=%var2%&set "var2=%var1%"
set vard1=%vard2%&set vard2=%vard1%))&set "var2=!var2: =!"
for %%a in (!vard1!) do (if "!var2!"=="" set /a var2=0
set /a a=%%a+!var2:~-1!+j&set t=!a:~-1!!t!&set "a=0!a!"
set "j=!a:~-2,1!"&set var2=!var2:~0,-1!)
if !j! neq 0 set "t=!j!!t!"
Endlocal&set %~3=%t%&goto :EOFCOPY

=====================================================================
:

@echo off
call :jian 354687654165435 35486456 ok
echo %ok%
pause
:jian 减法函数（封装）by @随风 @bbs.bathome.net
::计算1000位以内的正整数减法
setlocal enabledelayedexpansion&&set t=&set f=&set "lin="
for /l %%a in (1 1 10) do set "lin=0000000000!lin!"
set lin=!lin!!lin!!lin!!lin!!lin!&set "lin=!lin!!lin!"
set var1=!lin!%~1&set var2=!lin!%~2&set vard1=&set/a j=0
set var1=!var1:~-1000!&set "var2=!var2:~-1000!"
if "!var1!" lss "!var2!" (set var1=%~2&set "var2=%~1"
set "f=-") else set var1=%~1&set "var2=%~2"
for /l %%a in (0 1 9) do set "var1=!var1:%%a= %%a !"
for %%a in (!var1!) do set "vard1=%%a !vard1!"
for %%a in (!vard1!) do (if "!var2!"=="" set/a var2=0
set /a a=%%a-j,b=!var2:~-1!
if !a! lss !b! (set /a a+=10,j=1)else set /a j=0
set /a w=a-b&set t=!w!!t!&set var2=!var2:~0,-1!)
for /f "tokens=* delims=0" %%a in ("!t!") do (
if "%%a"=="" (set t=0) else set "t=%%a")
Endlocal&set %~3=%f%%t%&goto :EOFCOPY

=====================================================================
:

@echo off
call :cen 354687654165435 35486456 ok
echo %ok%
pause
:cen 乘法函数（封装）by @随风 @bbs.bathome.net
::计算任意位数的正整数乘法
setlocal enabledelayedexpansion
if "%~1"=="0" Endlocal&set %~3=0&goto :EOF
if "%~2"=="0" Endlocal&set %~3=0&goto :EOF
set f=&set jia=&set ji=&set /a n1=0,n2=0
set vard1=&set "vard2="&set var1=%~1&set "var2=%~2"
for /l %%a in (0 1 9) do (
set var1=!var1:%%a= %%a !&set var2=!var2:%%a= %%a !)
for %%a in (!var1!)do (set /a n1+=1&set vard1=%%a !vard1!)
for %%a in (!var2!)do (set /a n2+=1&set vard2=%%a !vard2!)
if !n1! gtr !n2! (set vard1=%vard2%&set vard2=%vard1%)
for %%a in (!vard1!) do (set "t="&set /a j=0
for %%b in (!vard2!) do (if "!jia!"=="" set /a jia=0
set /a a=%%a*%%b+j+!jia:~-1!&set "t=!a:~-1!!t!"
set a=0!a!&set "j=!a:~-2,1!"&set jia=!jia:~0,-1!)
set "ji=!t:~-1!!ji!"
if "!j:~0,1!"=="0" (set ss=) else set "ss=!j:~0,1!"
set jia=!ss!!t:~0,-1!)
if not "!j:~0,1!"=="0" set "t=!j:~0,1!!t!"
set "ji=!t!!ji:~1!"
Endlocal&set %~3=%ji%&goto :EOFCOPY

=====================================================================

@echo off
set suru=000012/001200
call :cu0  %suru:/= % ok
echo. %ok%
pause
exit
:cu0 500位内整数除法函数（封装）by @随风 bbs.bathome.net
::函数内有 cu1 cu2 cu3 cu4 四个标签，引用时需注意
setlocal enabledelayedexpansion&set "lin=00000"
set /a zongw=1000,cs1w=0,cs2w=0,falg=0,x=0
if "!str!"=="1" Endlocal&set %~3=%ff%!num!&goto :EOF
if "%~1"=="0" set sang=0&goto cu4
if "!str!"=="0" set sang=以零为除数的错误。&goto cu4
if not defined xiaosu set /a xiaosu=10
for /l %%a in (1 1 5) do set "lin=!lin!!lin!!lin!"
set sang=&set ppp=&set var1=%~1&set "var2=%~2"
for /f "tokens=* delims=0" %%a in ("!var1!")do set var1=%%a
for /f "tokens=* delims=0" %%a in ("!var2!")do set var2=%%a
for /l %%a in (0 1 9)do (set "var1=!var1:%%a= %%a !"
set "var2=!var2:%%a= %%a !")
for %%a in (!var1!) do set /a cs1w+=1
for %%a in (!var2!) do set /a cs2w+=1
for /l %%a in (1 1 10) do (set t=&set cs=%~2&set/a j=0
for /l %%b in (1 1 !cs2w!) do (set /a a=%%a*!cs:~-1!+j
set t=!a:~-1!!t!&set a=0!a!&set "j=!a:~-2,1!"
set cs=!cs:~0,-1!&set cs%%a=&set "bj%%a=")
if !j! neq 0 (set cs%%a=!lin!!j!!t!&set "bj%%a=!j!!t!"
) else set cs%%a=!lin!!t!&set "bj%%a=!t!"
set "cs%%a=!cs%%a:~-%zongw%!")
set var2=!lin!!var2: =!&set "var2=!var2:~-%zongw%!"
set /a cswc=cs1w-cs2w&set "var1=!var1: =!"
if !cswc! lss 0 (set cswc=!cswc:-=!&set/a flag=1
for /l %%a in (1 1 !cswc!)do (
if %%a leq 11 set sang=0!sang!&set /a x=cswc-1
set "var1=!var1!0")
set "sang=!sang:~0,1!.!sang:~1!")
set ppp=!var1:~0,%cs2w%!&set "var1=!var1:~%cs2w%!"
if !flag! equ 1 (set /a bul=1) else set /a bul=0
goto cu2
:cu1
if not defined var1 (set "var1=0"
if not defined ppp goto cu4
if !flag! equ 0 (set sang=!sang!.&set /a flag=1))
set/a bul=1&set ppp=!ppp!!var1:~0,1!&set "var1=!var1:~1!"
:cu2
if !x! geq %xiaosu% goto cu4
set pvar1=!lin!!ppp!&set "pvar1=!pvar1:~-%zongw%!"
if "!pvar1!" lss "!var2!" (
if !bul! equ 1 (set sang=!sang!0&set /a bul=0
if !flag! equ 1 set /a x+=1)
if "!ppp:~0,1!"=="0" set "ppp="
goto cu1)
if !flag! equ 1 set /a x+=1
set /a bul=0
::计算商
for /l %%a in (1 1 10) do (
if "!cs%%a!" equ "!pvar1!" (
set "sang=!sang!%%a"&set "yu=!bj%%a!"&goto cu3)
if "!cs%%a!" gtr "!pvar1!" (set /a s=%%a-1
set "sang=!sang!!s!"&set yu=!t!&goto cu3)
set "t=!bj%%a!")
:cu3 计算差
set cjs=!ppp!&set cj1=&set m=&set/a jjj=0
for /l %%a in (0 1 9) do set "cjs=!cjs:%%a= %%a !"
for %%a in (!cjs!) do set "cj1=%%a !cj1!"
for %%a in (!cj1!) do (if "!yu!"=="" set/a yu=0
set /a a=%%a-jjj,b=!yu:~-1!
if !a! lss !b! (set /a a+=10,jjj=1)else set/a jjj=0
set /a w=a-b&set m=!w!!m!&set yu=!yu:~0,-1!)
for /f "tokens=* delims=0" %%m in ("!m!") do (
if "%%m"=="" (set m=0) else set "m=%%m")
if !m! equ 0 (
if "!var1:0=!"=="" set sang=!sang!!var1!&goto cu4
set ppp=&goto cu1) else set "ppp=!m!"
goto cu2
:cu4
if "!sang:~0,1!"=="." set "sang=0!sang!"
Endlocal&set %~3=%ff%%sang%&goto :EOFCOPY

==========================================================================

@echo off
set t=%time%
call :time0 "%t%" "%time%" ok
echo %ok%
pause
 
:time0  计算时间差 （封装）
@echo off&setlocal&set /a n=0&rem code 随风 @bbs.bathome.net
for /f "tokens=1-8 delims=.: " %%a in ("%~1:%~2") do (
set /a n+=10%%a%%100*360000+10%%b%%100*6000+10%%c%%100*100+10%%d%%100
set /a n-=10%%e%%100*360000+10%%f%%100*6000+10%%g%%100*100+10%%h%%100)
set /a s=n/360000,n=n%%360000,f=n/6000,n=n%%6000,m=n/100,n=n%%100
set "ok=%s% 小时 %f% 分钟 %m% 秒 %n% 毫秒"
endlocal&set %~3=%ok:-=%&goto :EOFCOPY

=====================================================================
数字排序
:

@echo off
:start
setlocal enabledelayedexpansion&cls
for /l %%a in (1 1 10) do set str=!str! !random!
echo.&echo %str%
call :sort "%str%" ok
echo  %ok%
pause>nul
endlocal&goto start
:sort 可以处理0开头的数、重复数及200位以内的超大整数（封装）
@echo off&setlocal enabledelayedexpansion
for /f "delims==" %%a in ('set p. 2^>nul')do set "%%a="
for /l %%a in (1 1 20) do set "p.lin=0000000000!p.lin!"
for %%a in (%~1) do (set s=!p.lin!%%a&set "s=!s:~-200!"
if defined p...!s! (set p..%%a=!p..%%a! %%a
set p...!s!=!p..%%a! %%a) else (set p...!s!=%%a))
for /f "tokens=2 delims==" %%a in ('set p...') do (
for %%i in (%%a) do set "p.ok=!p.ok! %%i")
endlocal&set %~2=%p.ok:~1%&goto :EOFCOPY

=====================================================================
:

@echo off
:start
setlocal&cls
set /p tian=      请指定要追溯的天数：&echo\
call :Date2Day "%date%" %tian% ok
echo       %ok%
endlocal&pause>nul&goto start
:Date2Day 计算指定天数 前/后 的日期及星期 （封装）
@echo off&setlocal ENABLEEXTENSIONS
for /f "tokens=1-3 delims=/-:\, " %%a in ('echo/%~1') do (
set /a yy=%%a,mm=100%%b%%100,dd=100%%c%%100)
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
set /a i=j-%~2,a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
for %%a in (一/1 二/2 三/3 四/4 五/5 六/6 日/0) do (
for /f "tokens=1,2 delims=/" %%i in ("%%a")do set %%i=%%j&set ".%%j=%%i")
if %~2 gtr 0 (set /a d=^(7-%~2%%7+%date:~-1%^)%%7&set x=前) else (
set /a d=^(~%~2+1+%date:~-1%^)%%7&set x=后)
call set "d=星期%%.%d%%%"
endlocal&set %~3=%yy%-%mm%-%dd% %d%&goto :EOFCOPY

=====================================================================
进制转换（函数）
代码1、
   任意进制互转

@echo off&color 1f&set /a q=10,h=2
title 任意进制互转 默认：%q%进制转%h%进制
:start
setlocal&echo.&echo. 被转换的数 被转换数的进制 需转换成的进制
echo.&echo. 如：95 16 10  表示将 16进制数95 转换 为10进制数
echo.&echo. 参数可用分割符为  空格 / + - \  如：95/16/10 或95+16+10
echo.&echo. 默认将 10进制 转换为 2进制（即上例中如果不输入 16 10 则默认为 10 2）
echo.&set /p num= 请输入需转换的数 &cls
if not defined num endlocal&goto start
for /f "tokens=1-3 delims=/+-\ " %%a in ("%num%") do (
    set "num=%%a"
    if not "%%b"=="" if not "%%c"=="" set /a q=%%b,h=%%c
)
call :nxn "%num%" ok %q% %h%
for /l %%a in (1 1 12)do (
   if %%a equ 4 (
      echo. %q%进制转%h%进制 结果
      echo.&echo. %num% = %ok%
    )else echo\
)
set /a w=%random%%%2
if %w% equ 1 (set f=1f) else (set f=df)
color %f%&endlocal&goto start
::函数使用方法：call :nxn "98" ok 10 2
::call :nxn "被转换的数" 保存结果的变量名 被转换数的进制 需转换成的进制
::默认将 10进制 转换为 2进制（即上例中不输入 10 2）
:nXn 任意进制互转 @随风 @bbs.bathome.net（封装）
@echo off&setlocal enabledelayedexpansion
if "%~4"=="" (set /a q=10,h=2)else (set /a q=%~3,h=%~4)
set "str=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
for /l %%a in (0 1 35)do set .%%a=!str:~%%a,1!&set ".!str:~%%a,1!=%%a"
set sun=&set jie=&set "var=%~1"&set /a nnn=1,num=0
for /l %%a in (0 1 100) do (
if not "!var:~%%a,1!"=="" (call set sun=%%.!var:~%%a,1!%% !sun!))
for %%a in (!sun!) do set /a num=%%a*nnn+num,nnn*=q
:10进制转n进制
set /a yu=num%%h,num/=h
set "jie=!.%yu%!!jie!"&if !num! gtr 0 goto 10进制转n进制
endlocal&set %~2=%jie%&goto :EOFCOPY

代码2、
   二进制转十六进制（封装）（通过4位一段转换，可处理超大数）

@echo off&color 1f&title 二进制 转 十六进制
call :2x16 "11111111 11111111 11111111 11111110" ok
echo %ok%
pause
::以4位一段，分别转换为十六进制,不必考虑超大数问题
:2x16 二进制 转 十六进制  @随风 @bbs.bathome.net （封装）
@echo off&setlocal enabledelayedexpansion
set "str=0123456789ABCDEF"
set k=&set kk=&set xx=&set "x=000%~1"
set x=!x:0= 0!&set x=!x:1= 1!&set /a jj=0,ss=1
for %%a in (!x!) do set "xx=%%a !xx!"
for %%a in (!xx!) do (set /a jj+=%%a*ss,ss=ss*2
if !ss! equ 16 set k=!jj! !k!&set /a jj=0,ss=1)
for %%a in (!k!) do set kk=!kk!!str:~%%a,1!
endlocal&set %~2=%kk%&goto :EOFCOPY

代码3、
   十六进制转二进制（封装）（通过4位一段转换，可处理超大数）

@echo off&color 1f&title 十六进制 转 二进制
set mmm=bfa35e7d8
call :16x2 %mmm% ok
echo.&echo  十六进制 %mmm%
echo.&echo    二进制 %ok%
echo.&pause
::以4位一段，分别转换为二进制,不必考虑超大数问题
:16x2 十六进制 转 二进制  @随风 @bbs.bathome.net （封装）
@echo off&setlocal enabledelayedexpansion
set str=0123456789abcdef&set ok=&set "num=%~1"
for /l %%a in (0 1 15) do (set ".!str:~%%a,1!=%%a"
call set "num=%%num:!str:~%%a,1!= !str:~%%a,1!%%")
for %%i in (!num!) do (set /a x=0,n=!.%%i!
for %%a in (8 4 2 1) do (set /a x+=%%a
if !n! geq !x! (set ok=!ok!1) else (
set ok=!ok!0&set /a x-=%%a)))
endlocal&set %~2=%ok%&goto :EOFCOPY

代码4、
   二进制转十进制（封装）（只能处理cmd范围内的数，小巧方便代码中调用）

@echo off
call :2x10 01100100 ok
echo %ok%
pause
:2x10  2进制转 10进制 @随风 @bbs.bathome.net （封装）
@echo off&setlocal enabledelayedexpansion
set /a nnn=1,num=0&set nn=&set "n=%~1"
set "n=!n:0= 0!"&set "n=!n:1= 1!"
for %%a in (!n!) do set "nn=%%a !nn!"
for %%a in (!nn!) do set /a num+=%%a*nnn,nnn*=2
endlocal&set %~2=%num%&goto :EOFCOPY

代码5、
   获取10进制数（含负数）的 原码、反码、补码（未封装）

@echo off&color 1f&title 获取10进制数的 原码、反码、补码
::获取10进制数的 原码、反码、补码
::计算机中 负数用补码表达
::补码：反码+1
::反码：将二进制数（原码）按位取反 （即：1变0、0变1）
::原码：一个整数，按照绝对值大小转换成的二进制数，称为原码。
::个人理解为在计算机中表达负数的二进制数叫补码
::所以以下代码中，若输入的是负数则结果中补码代表该数
@echo off&rem @随风 @bbs.bathome.net @2009-01-15
:start
setlocal enabledelayedexpansion
for /l %%a in (1 1 15) do set "lin=00000!lin!"
echo.&echo.&set /p y10= 请输入一个10进制数可以为负数 &cls
if !y10! lss 0 (set /a n="~y10"+1,c=1) else set /a n=y10,c=1
:10x2 将10进制转成2进制 原码
set /a y=n%%2,n/=2&set "j=!y!!j!"&if !n! gtr 0 goto 10x2
set j=!lin!!j!&set "j=!j:~-32!"
set ss=!j:0= 0!&set "ss=!ss:1= 1!"
:: 获取反码
for %%a in (%ss%) do set /a n="^!%%a"&set "f=!f!!n!"
set f=!lin!!f!&set f=!f:~-32!&set "ss=!f!"
:buma 获取补码
set /a m=!ss:~-1!+c
if !m! gtr 1 (set c=1&set b=0!b!)else set c=0&set "b=!m!!b!"
set "ss=!ss:~0,-1!"
if defined ss goto buma
echo.
echo  10进制数  %y10%&echo.
echo      原码  %j:~-32,8% %j:~-24,8% %j:~-16,8% %j:~-8%
echo      反码  %f:~-32,8% %f:~-24,8% %f:~-16,8% %f:~-8%
echo      补码  %b:~-32,8% %b:~-24,8% %b:~-16,8% %b:~-8%
endlocal&goto startCOPY

代码6、转换 2、8、10、16、进制数并显示2进制 原码、反码、补码（未封装）

@echo off
::转换 2、8、10、16、进制数并显示2进制 原码、反码、补码
::计算机中 负数用补码表达
::补码：反码+1
::反码：将二进制数（原码）按位取反 （即：1变0、0变1）
::原码：一个整数，按照绝对值大小转换成的二进制数，称为原码。
::个人理解为在计算机中表达负数的二进制数叫补码
::完全不懂计算机，只理解为计算机中负数用补码表达
::代码中二进制数用32位显示，超出32位的会出错
::只能处理cmd范围内的数
@echo off&title 转换 2、8、10、16、进制数并显示2进制 原码、反码、补码
::@随风 @bbs.bathome.net @2009-1-12
set "str=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
set "color1=1f&set color2=df"&color 1f
for /l %%a in (0 1 35) do (
   call set ".%%a=%%str:~%%a,1%%"
   call set ".%%str:~%%a,1%%=%%a"
)
:start
setlocal enabledelayedexpansion&color %color1%
echo.
echo. ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
echo. ┃                                                          ┃
echo. ┃输入格式：需转换的数+该数的进制（可用分割符 / \ + - 空格）┃
echo. ┃                                                          ┃
echo. ┃默认输入的为10进制数、也可以是2、8、16进制、但必须指明进制┃
echo. ┃                                                          ┃
echo. ┃如：需转换16进制 2afd 则输入 2afd+16  10进制数则不需要指明┃
echo. ┃                                                          ┃
echo. ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
echo.&set /p num= 请输入需转换的数  &cls
if not defined num endlocal&goto start
for /f "tokens=1,2 delims=/\+- " %%a in ("%num%") do (
   set "n0=%%a"
   if "%%b"=="" (set jz=10) else set /a jz=%%b
)
echo.&echo    被转换的数为: !jz!进制数  !n0!&echo.
if !jz! equ 16 (set /a n10=0x!n0!) else (
   if !jz! equ 10 (set n10=!n0!) else (
      if !jz! equ 8 (set /a n10=0!n0!) else (
         set /a nnn=1,n10=0&call :2x10 !n0!
)))
for %%a in (16 10 8 2) do call :10进制转n进制 !n10! %%a
echo.&call :yuan&echo.
endlocal&set color1=%color2%&set "color2=%color1%"
goto start
:10进制转n进制
set /a yu=n10%%%~2,n10/=%~2
set "jie=!.%yu%!!jie!"&if !n10! gtr 0 goto 10进制转n进制
set "xs=         %~2"
echo !xs:~-5! 进制  !jie!
set d2=!jie!&set jie=&set "n10=%~1"
goto :EOF
:2x10  2进制转10进制
set /a n10+=!n0:~-1!*nnn,nnn*=2
set "n0=!n0:~0,-1!"
if defined n0 goto 2x10
goto :EOF
:yuan
for /l %%a in (1 1 15) do set lin=00000!lin!
set j=!lin!!d2!&set "j=!j:~-32!"
set ss=!j:0= 0!&set "ss=!ss:1= 1!"
:: 获取反码
for %%a in (%ss%) do set /a n="^!%%a"&set "f=!f!!n!"
set f=!lin!!f!&set f=!f:~-32!&set "ss=!f!"
set /a c=1
:buma 获取补码
set /a m=!ss:~-1!+c
if !m! gtr 1 (set c=1&set b=0!b!)else set c=0&set "b=!m!!b!"
set "ss=!ss:~0,-1!"
if defined ss goto buma
echo       原码  %j:~-32,8% %j:~-24,8% %j:~-16,8% %j:~-8%
echo       反码  %f:~-32,8% %f:~-24,8% %f:~-16,8% %f:~-8%
echo       补码  %b:~-32,8% %b:~-24,8% %b:~-16,8% %b:~-8%
goto :EOFCOPY

[ 本帖最后由 随风 于 2009-2-21 19:00 编辑 ]

aabb

牛人啊！！这个我一个都看不懂！！！！
看来学习还得要很长时间才能掌握

wxcute

真是一声惊雷阿。

我还从来没有写过封装的“函数”，是时候要整理下了。

zjw767676

什么是封装？怎么使用？第一个代码运行后的结果如下：

能解释下该函数怎么使用吗？

随风

所谓封装，意识是该代码可以放在任何一个其它的批处理代码中运行，而不影响该批处理中的原代码。
调用方式就是 call 标签 参数
你的这个结果就是一楼 call 后面两个数的和。

lockmove

我也想弄懂函数,但找不到相关的帖子.call 了之后怎么传值? 就如第一个,jia  %~1代表354687654165435 %~2代表35486456?就这样么?  ok就是%~3?改变了%~3  ok的值也变了?没其他注意事项了吗?

lockmove

5、获取10进制数（含负数）的 原码、反码、补码（未封装）（只能处理cmd范围内的值）
       完全不懂计算机，只理解为计算机中负数用补码表达
       代码中二进制数用32位显示，超出32位的会出错，
       呵呵，不知道电脑中有没有用32位以上表达的二进制数，哈哈外行话见笑了^_^

我可以解释下,计算机里都用补码表示,正数补码不变,即原码(正数的反码也不变.),负数补码为原码 取反加1.
举例5的话,假设8位.就是原码 补码都是 00000101.
-5 的反码 11111010 然后加1就是补码 11111011;大致就这样.
靠你计算的话,肯定没错, 就是概念弄错了而已.

32位就是4个Byte,int类型.如果你用long int的话 就不只32位了.
我猜bat只支持4个字节来表示数字,所以就32位了.
看来超版你不是计算机专业的啊,水平这么高,让我汗颜.

[ 本帖最后由 lockmove 于 2009-2-22 22:07 编辑 ]

netbenton

我贴一个较高效的浮点加法函数

@echo off
 
set aa=%time%
for /l %%a in (1,1,1000) do call :_ADD 123456722222222222222890.3212222222222222222222222 1222222222222222222.789233333333333333333333333
 
set/p =计算1000次,用时：<NUL&CALL 
 
goto :eof
::前面为演示用
 
:::::::::::::::::::::::::::::::::::::
::浮点加法 call _ADD  <被加数> <加数> [返回变量]
:_ADD [var]   //made by netbenton on 2009.10.09
::
::分别支持十进制的64位整数和小数,一次计算仅用0.01秒
:::::::::::::::::::::::::::::::::::::
(setlocal enabledelayedexpansion
set L=&for /l %%a in (1,1,8) do set L=!L!00000000
for /f "tokens=1-3 delims=." %%a in ("!L!%1.!L!") do set at=%%a&set aw=%%b%%c
for /f "tokens=1-3 delims=." %%a in ("!L!%2.!L!") do set bt=%%a&set bw=%%b%%c
set a=!at:~-64!!aw:~,64!
set b=!bt:~-64!!bw:~,64!
set e=
set v=200000000
for /l %%a in (8,8,128)do set/a v=1!b:~-%%a,8!+1!a:~-%%a,8!+!v:~-9,-8!-2&set e=!v:~-8!!e!
set e=!e:0= !
for /f "tokens=*" %%a in ("!e:~,-64!.!e:~64!") do set e=%%~nxa
for %%a in ("!e: =0!") do endlocal&(if %3.==. (echo %%~a) else set %3=%%~a)
exit/b)
 
 
::计算时差函数
:etime [return]  // By plp626 On 09-7-20
setlocal enabledelayedexpansion&set be=%~1;%~2&set be=!be::=;1!&set n=
for %%a in (%be:.=%)do set/a n+=1&set t!n!=%%a
set/a n=((t4-t1)*60+t5-t2)*6000+t6-t3,s=n/100,w=n%%100/10,f=n%%100%%10
endlocal&(if %3.==. (echo %s%.%w%%f%) else set %3=%n:-=%)&exit/bCOPY

[ 本帖最后由 netbenton 于 2009-10-10 07:58 编辑 ]

plp626

原帖由 netbenton 于 2009-10-9 22:17 发表
我贴一个较高效的浮点加法函数@echo off

set aa=%time%
for /l %%a in (1,1,1000) do call :_ADD 123456722222222222222890.3212222222222222222222222 1222222222222222222.789233333333333333333333333

set ...

谢谢使用etime子过程，只是那个还是有bug的，对跨天情况考虑不全，现在代码已经更新，
http://bbs.bathome.net/thread-4701-1-1.html

如果兄对那个代码还抱有一点点喜欢，为防止bug到处蔓延还是建议兄下次使用更新代码

shuaige100

不明白为什么要那么复杂，应该要耗电脑很大内存很cpu的吧？我们又不是做计算火箭的事业，呵呵，能也写个简单的给我们吗？

sgaizxt001

10楼，我推荐你在win+r，然后输入calc

我很好奇这个批处理的原理是什么，变量的字节数超出存储范围后是怎么处理的。我测试看不出问题啊。郁闷

[ 本帖最后由 sgaizxt001 于 2010-6-25 02:34 编辑 ]

ht河豚

好贴,顶一下

jatqwgij

高人啊。。。。。。。。。。。。

happy886rr

回复 1# 随风
我也写了个批处理大数浮点乘法，任意位，任意小数乘法均可以计算。
全精度浮点乘，批处理的各种特殊性全部考虑，计算效率极佳。
只受限于批处理的输入，批处理最多允许输入一千多位。但是，程序可以扩展。稍加改造即可用多个字符串来存储输入。这样理论上是无限制的。当然最大限制是6300位大数，源于批处理的2的31次方限制。

@echo off&mode con cols=58 lines=38
:MAIN
cls
echo 浮点乘表达式^(乘号用*表示^)
set /p Express=-^>
setlocal enabledelayedexpansion
REM 浮点计数
for /f "tokens=1,2 delims=*" %%a in ("!Express!") do (
	set A=%%a&set A=!A: =!
	set B=%%b&set B=!B: =!
)
for /f "tokens=1,2 delims=." %%a in ("!A!") do (
	set A1=%%a&set A=!A1!%%b
	if "%%b"=="" (set PA=0) else (
		set A2=%%b
		for %%i in (512 256 128 64 32 16 8 4 2 1) do (
    			if not "!A2:~%%i!"=="" (
				set/a PA+=%%i
				set "A2=!A2:~%%i!"
			)
		)
		if "!A2:~1!"=="" (set/a PA+=1)
	)
)
for /f "tokens=1,2 delims=." %%a in ("!B!") do (
	set B1=%%a&set B=!B1!%%b
	if "%%b"=="" (set PB=0) else (
		set B2=%%b
		for %%i in (512 256 128 64 32 16 8 4 2 1) do (
    			if not "!B2:~%%i!"=="" (
				set/a PB+=%%i
				set "B2=!B2:~%%i!"
			)
		)
		if "!B2:~1!"=="" (set/a PB+=1)
	)
)
set/a PO=PA+PB
REM 位数信息
CALL :CUT !A! A NA
CALL :CUT !B! B NB
set/a N=NA+NB,NA*=3,NB*=3
echo ======================================
echo 被乘数信息:  有效!NA!位，浮点!PA!位  
echo   乘数信息:  有效!NB!位，浮点!PB!位
echo ======================================
set t1=!time:~-5!
REM 核心乘法
for /l %%i in (1 1 !N!) do (
	for /l %%j in (1 1 %%i) do (
		set/a j=%%i-%%j+1
		if defined A[%%j] (
			if defined B[!j!] (
				set/a sum=A[%%j]*B[!j!]+sum
			)
		)
	)
	set/a s=sum+1000
	set sum=!sum:~0,-3!
	set pul=!s:~-3!!pul!
)
:DIS 显示结果
if !PO! equ 0 (
	for /l %%i in (1 1 5) do (
		if "!pul:~0,1!"=="0" (
			set pul=!pul:~1!
		)
	)
	echo =!pul!
) else (
	set pre=!pul:~0,-%PO%!
	for /l %%i in (1 1 5) do (
		if "!pre:~0,1!"=="0" (
			set pre=!pre:~1!
		)
	)
	if not defined pre (set pre=0)
	echo =!pre!.!pul:~-%PO%!
)
REM 毫秒计时器
set "t2=!time:~-5!" &set/a "t=1!t2:.=!-1!t1:.=!" &if !t! lss 0 (set/a t+=6000)
set/p=耗时!t:~0,-2!秒!t:~-2!0毫秒
endlocal&goto MAIN
:CUT 分割数组
set num=%1
if "!num:~-3!"=="!num:~-4!" (
	set %2[1]=!num!
	set %3=1
	goto :eof
)
for /l %%i in (1 1 365) do (
	if "!num:~0,-3!"=="" (
		set/a %2[%%i]=!num!
		set %3=%%i
		goto :eof
	)
	set/a %2[%%i]=1!num:~-3!-1000
	set num=!num:~0,-3%!
)COPY

测试 615位大数   35486456354... 乘以 312位大数   35867...用时9秒。for循环的效率以及批处理脆弱的计算能力，导致它远远不及C语言（需要0.3秒）.
----------------------------------------------------------------------------------------------------------------------------------------------------------------
下面是大整数加法，1000位加1000位范围内，再多，cmd窗口输不进去。效率基本0.0几秒吧。

@echo off&setlocal enabledelayedexpansion
title By Happy
mode con cols=65 lines=35
REM 大数长度
set "MAX=1000" ^位
REM 分割大小
set "K=8"      ^位
set /a CYC=MAX/K
:MAIN
cls
echo 请输入^(被加数^)
set /p A=-^>:
echo 请输入^(加数^)
set /p B=-^>:
REM 优化字符
setlocal
CALL :POINT !A! A N1
CALL :POINT !B! B N2
 
set /a B1=N1*K
set /a B2=N2*K
echo ======================================
echo 被加数信息:  预估!B1!位
echo   加数信息:  预估!B2!位
echo ======================================
echo 计算结果
REM 加法核心
if !N1! gtr !N2! (set RM=!N1! &set dx=B) else (set RM=!N2! &set dx=A)
for /l %%i in (1 1 !RM!) do (
	if not defined !dx![%%i] (set "!dx![%%i]=00000000")
	set /a sum=1!A[%%i]!+1!B[%%i]!+sum
	set S=!sum:~-%K%!!S!
	set /a sum=!sum:~0,1!-2
)
REM 显示
:DISP
for /l %%i in (1 1 8) do (if "!S:~0,1!"=="0" (set S=!S:~1!))
if "!S!"=="" (set S=0)
echo,!S!
 
pause>nul
endlocal
goto MAIN
REM 分割数位
:POINT
set num=%1
for /l %%i in (1 1 !CYC!) do (
	set %2[%%i]=!num:~-%K%!
	set num=!num:~0,-%K%!
	if "!num!"=="" (
		set /a CU=!%2[%%i]!+100000000
		set %2[%%i]=!CU:~-%K%!
		set /a %3=%%i
		goto :eof
	)
)COPY

pcl_test

批处理，两个不分正负的大数的加减运算

@echo off
for %%a in (
    "1.1 - 0.9"
    "1.12345678987654321 + -9.87654321012345679"
    "6.6543212345678 - 5.5432101234567"
    "-2 - 2.4948463537"
    "-93701350643248383.03974234214254643221455737 - 364354503.67365700005267589864236576"
    "-0.4253500 - -5762.4948463537"
    "0 - 0"
    "232.556 - 232.556"
    "0 + 0"
    "0 - 234.342250988"
    "-3.4536 - 3456"
    "325689088000004600 - 94872734352.487409900094848377236474830937"
    "-34.435464573575735 + -3425.0298576283039836"
    "4 - 1000000.0000001"
) do (
    for /f "tokens=1-3" %%i in (%%a) do (
        setlocal enabledelayedexpansion
        rem 由于cmd自身的各种限制，不做过多考虑，暂支持两个长度在4000位以内不分正负的整数或小数的加减运算
        rem 用法call :calc num1 [+/-] num2 result
        call :calc %%i %%j %%k result
        echo;%%~a
        echo;= !result!
        echo;
        endlocal
    )
)
pause&exit
 
:calc
rem 屏蔽数字合法性检测可提高效率
echo;%~1|findstr "^-0\.0*[1-9][0-9]*$ ^0\.0*[1-9][0-9]*$ ^0$ ^-[1-9][0-9]*$ ^[1-9][0-9]*$ ^-[1-9][0-9]*\.[0-9][0-9]*$ ^[1-9][0-9]*\.[0-9][0-9]*$">nul||set n=1
echo;%~3|findstr "^-0\.0*[1-9][0-9]*$ ^0\.0*[1-9][0-9]*$ ^0$ ^-[1-9][0-9]*$ ^[1-9][0-9]*$ ^-[1-9][0-9]*\.[0-9][0-9]*$ ^[1-9][0-9]*\.[0-9][0-9]*$">nul||set n=1
if defined n (set "%~4=数字不合法"&goto :eof)
if "%~2" neq "+" if "%~2" neq "-" (set "%~4=算术运算符不正确"&goto :eof)
if "%~4" equ "" (set "%~4=缺少结果变量"&goto :eof)
 
if "%~1" equ "0" (
    if "%~3" equ "0" (set "%~4=0") else (
        set a=%~3
        if "%~2" equ "+" (
            set "%~4=%~3"
        ) else (
            if "!a:~,1!" equ "-" (set "%~4=!a:~1!") else (set "%~4=-%~3")
        )
    )
    goto :eof
)
if "%~3" equ "0" (set "%~4=%~1"&goto :eof)
if "%~1" equ "%~3" if "%~2" equ "-" (set "%~4=0"&goto :eof)
 
set a=%~1.0
set b=%~3.0
for /f "tokens=1,2 delims=." %%a in ("%a:-=%") do set "a_1=%%a"&set "a_2=%%b"
for /f "tokens=1,2 delims=." %%a in ("%b:-=%") do set "b_1=%%a"&set "b_2=%%b"
call :strlen %a_1% L1_1
call :strlen %a_2% L1_2
call :strlen %b_1% L2_1
call :strlen %b_2% L2_2
 
for %%i in (1 2) do (
    set "zero="&set m=0
    if !L1_%%i! leq !L2_%%i! (
        set /a m=L2_%%i-L1_%%i
        if !m! neq 0 (
            for /l %%a in (1 1 !m!) do set zero=!zero!0
        )
        if "%%i" equ "1" (set a_%%i=!zero!!a_%%i!) else set a_%%i=!a_%%i!!zero!
        set Len_%%i=!L2_%%i!
    ) else (
        set /a m=L1_%%i-L2_%%i
        for /l %%a in (1 1 !m!) do set zero=!zero!0
        if "%%i" equ "1" (set b_%%i=!zero!!b_%%i!) else set b_%%i=!b_%%i!!zero!
        set Len_%%i=!L1_%%i!
    )
)
 
set /a Len=Len_1+Len_2+1
if "%~2" equ "+" (
    if "!a:~,1!" neq "-" (
        if "!b:~,1!" neq "-" (
            call :jia %a_1%.%a_2% %b_1%.%b_2% %Len% s
            set "%~4=!s!"
        ) else (
            call :jian %a_1%.%a_2% %b_1%.%b_2% %Len% s
            if "%a_1%.%a_2%" gtr "%b_1%.%b_2%" (set "%~4=!s!") else set "%~4=-!s!"
        )
    ) else (
        if "!b:~,1!" neq "-" (
            call :jian %a_1%.%a_2% %b_1%.%b_2% %Len% s
            if "%a_1%.%a_2%" gtr "%b_1%.%b_2%" (set "%~4=-!s!") else set "%~4=!s!"
        ) else (
            call :jia %a_1%.%a_2% %b_1%.%b_2% %Len% s
            set "%~4=-!s!"
        )
    )
) else (
    if "!a:~,1!" neq "-" (
        if "!b:~,1!" neq "-" (
            call :jian %a_1%.%a_2% %b_1%.%b_2% %Len% s
            if "%a_1%.%a_2%" lss "%b_1%.%b_2%" (set "%~4=-!s!") else set "%~4=!s!"
        ) else (
            call :jia %a_1%.%a_2% %b_1%.%b_2% %Len% s
            set "%~4=!s!"
        )
    ) else (
        if "!b:~,1!" neq "-" (
            call :jia %a_1%.%a_2% %b_1%.%b_2% %Len% s
            set "%~4=-!s!"
        ) else (
            call :jian %a_1%.%a_2% %b_1%.%b_2% %Len% s
            if "%a_1%.%a_2%" lss "%b_1%.%b_2%" (set "%~4=!s!") else set "%~4=-!s!"
        )
    )
)
goto :eof
 
:strlen
setlocal
set "$=%1#"
set len=&for %%a in (4000 2048 1024 512 256 128 64 32 16)do if !$:~%%a!. neq . set/a len+=%%a&set $=!$:~%%a!
set $=!$!fedcba9876543210&set/a len+=0x!$:~16,1!
endlocal&set %2=%len%&goto :eof
 
:jia
setlocal
set a=%~1
set b=%~2
set t=0
set "s="
for /l %%a in (-1 -1 -%~3) do (
    if "!a:~%%a,1!" equ "." (
      set s=.!s!
    ) else (
        set /a "c=t+!a:~%%a,1!+!b:~%%a,1!"
        if !c! geq 10 (set t=1) else set t=0
        set s=!c:~-1!!s!
    )
)
if %t% equ 1 (set s=1!s!)
for /f "tokens=1,2 delims=." %%a in ("%s%") do (
    for /f "tokens=1* delims=0" %%c in (".%%b") do if "%%c%%d" equ "." set s=%%a
)
endlocal&set %~4=%s%&goto :eof
 
:jian
setlocal
if "%~1" lss "%~2" (
    set a=%~2
    set b=%~1
) else (
    set a=%~1
    set b=%~2
)
set t=0
set "s="
for /l %%a in (-1 -1 -%~3) do (
    if "!a:~%%a,1!" equ "." (
      set s=.!s!
    ) else (
        set /a "c=10+!a:~%%a,1!-!b:~%%a,1!-t"
        if !c! lss 10 (set t=1) else set t=0
        set s=!c:~-1!!s!
    )
)
for /f "tokens=1,2 delims=." %%a in ("%s%") do (
    for /f "tokens=* delims=0" %%c in ("%%a") do if "%%c" equ "" (set pre=0) else set pre=%%c
    for /f "tokens=* delims=0" %%c in ("%%b") do if "%%c" equ "" (set s=!pre!) else set s=!pre!.%%b
)
endlocal&set %~4=%s%&goto :eofCOPY