批处理找1-100以内的所有勾股数？

bluenightsky

回复 1# youxi01


    能做出100万位数以上的勾股吗

unknown_world

1. @echo off & setlocal enabledelayedexpansion
   
2. 
   
3. for /l %%i in (1 1 100) do (
   
4.     for /l %%j in (%%i 1 100) do (
   
5.         for /l %%k in (%%i 1 100) do (
   
6.             set /a l=%%i*%%i+%%j*%%j
   
7.             set /a m=%%k*%%k
   
8.             if !l!==!m! echo %%i*%%i+%%j*%%j=%%k*%%k
   
9.         )
   
10.     )
    
11. )
    
12. 
    
13. pause > nul

复制代码

小程936

勾股数生成器
本程序可生成 所有小于(max-1)的平方的互质勾股数，无一遗漏。
算法依据：
任何一个勾股数，均可表示为 v(n2*v2),2vnm,v(n2+v2) 的形式
如果v=1，n+m=奇数，且n与m互质，则算出的勾股数（A,B,C）也一定互质。

详细公式
m>n,m+n=奇数,m与n互质

1. 
   
2. set /a max=61
   
3. rem 这个数越大。生成的勾股数就越多。你可以改成2000试试。
   
4. rem 小程936原创出品。版权所有。
   
5. 
   
6. @echo off&Setlocal enabledelayedexpansion&set /a b=1
   
7. set /a min=2
   
8. rem 从第min次循环开始(默认值为2)。从第(max-1)次循环后结束。max值越高求到的勾股数越多。
   
9. rem 自动排除非互质项，(3,4,5)互质，而(6,8,10)不互质。输出结果为a,b,c (第几次循环，此次循环得到的第几个值)
   
10. 
    
11. set ga=勾股数-%min%-%max%.txt
    
12. echo %ga%>%ga%&title %ga%
    
13. rem  控制输出文件名和文件首行。
    
14. 
    
15. for /l %%j in (%min%,1,%max%) do (
    
16. for /l %%k in (!b!,2,%%j) do (
    
17.   
    
18.   set /a a=m=%%j,b=n=%%k
    
19.   call :f
    
20.   if "!m!"=="1" (
    
21.    rem 看看a与b是否互质。
    
22.    
    
23.    set /a cmin=a*a+b*b,bmin=a*a-b*b,amin=2*a*b
    
24.    rem 计算a,b对应的勾股数amin,bmin,cmin   (a,b初始值2,1)
    
25.   
    
26.    if !amin! GTR !bmin! set /a v=bmin,bmin=amin,amin=v
    
27.    echo.!amin!,!bmin!,!cmin! ^(%%j,%%k^)
    
28.    rem 若bmin小于amin，交换位置。& 之后……记录下来。
    
29.   )
    
30. )>>%ga%
    
31. echo !a!/%max%
    
32.   rem 显示循环周期，
    
33. 
    
34. set /a b=a%%2
    
35. if "!b!"=="0" set /a b=2
    
36. rem 重置b(若a为偶则b=2，若a为奇则b=1)，之后a加1。
    
37. )
    
38. 
    
39. start "" %ga%
    
40. exit
    
41. rem 打开记录文件，结束程序。
    
42. 
    
43. :f
    
44. @set /a r=m%%n,m=n,n=r
    
45. if "%r%"=="0" goto :eof
    
46. goto f
    
47. rem 计算m与n的最大公因数，输出m（临时占用变量r）
    

复制代码

去注释版

1. set /a max=61
   
2. @echo off&Setlocal enabledelayedexpansion&set /a b=1
   
3. set /a min=2
   
4. set ga=勾股数-%min%-%max%.txt
   
5. echo %ga%>%ga%&title %ga%
   
6. for /l %%j in (%min%,1,%max%) do (
   
7. for /l %%k in (!b!,2,%%j) do (
   
8. set /a a=m=%%j,b=n=%%k
   
9. call :f
   
10. if "!m!"=="1" (
    
11. set /a cmin=a*a+b*b,bmin=a*a-b*b,amin=2*a*b
    
12. if !amin! GTR !bmin! set /a v=bmin,bmin=amin,amin=v
    
13. echo.!amin!,!bmin!,!cmin! ^(%%j,%%k^)
    
14. ))>>%ga%
    
15. echo !a!/%max%
    
16. set /a b=a%%2
    
17. if "!b!"=="0" set /a b=2
    
18. )
    
19. start "" %ga%
    
20. exit
    
21. :f
    
22. @set /a r=m%%n,m=n,n=r
    
23. if "%r%"=="0" goto :eof
    
24. goto f
    

复制代码