Board logo

标题: [数值计算] [分享]阶乘函数,组合函数(半原创) [打印本页]

作者: ht河豚    时间: 2014-8-29 09:23     标题: [分享]阶乘函数,组合函数(半原创)

之所以说是半原创,是因为调用了随风的乘法函数.
大家用的时候要把随风的乘法函数和这两个函数放在一起才能使用.
这两个函数都没什么技术含量,只是快开学了不能长期混论坛了.
就发出来,算是造福大家?
  1. :factorial 要阶乘的数 输出变量
  2. setlocal enabledelayedexpansion
  3. set res=1&set var=%~1
  4. for /l %%i in (!var! -1 1) do Call :cen !res! %%i res
  5. Endlocal&set %~2=%res%&goto :eof
复制代码
  1. :C 组合数下标 组合数上标 输出变量
  2. setlocal enabledelayedexpansion
  3. set /a "u=1,d=1"&set m=%~1&set n=%~2&set /a sp=!n!+1
  4. for /l %%i in (!m! -1 !sp!) do set t1=%%i&Call :cen !t1! !u! u
  5. for /l %%i in (!n! -1 1) do set t2=%%i&Call :cen !t2! !d! d
  6. set /a ret=!u!/!d!
  7. Endlocal&set %~3=%ret%&goto :eof
复制代码
组合数的最后一步可以引用随风的除法函数,处理更大的数.
不过组合数一定能被整除,而且经过类似笔算的优化.
最后两个数不会很大……吧?所以就没有用除法函数

随风的帖子:http://bathome.net/viewthread.ph ... 3%CB%2B%BA%AF%CA%FD




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