批处理之家 - Powered by Discuz! Board

@echo off
for /f "tokens=1* delims=*" %%a in ('more +30^<"%~fs0"') do call:hanye %%a %%b
pause&exit
:hanye
setlocal enabledelayedexpansion
set n=%1&set m=%2&set n=!n:~0,-1!&set m=!m:~0,-1!&set n=!n:.=!
:s60
set/a n_60+=1
set/a y_60_!n_60!=60-n*n_60,k_60=n_60,x_60_!n_60!=1
if !y_60_%n_60%! geq %n% goto:s60
set/a n_60+=1,y_60_0=y_60_!k_60!,v_60=2
for /l %%a in (%n_60%,1,%m%) do (set/a n_60=%%a,y=%%a%%k_60,w_60+=1
set/a y_60_%%a=y_60_!y!
if !w_60! gtr !k_60! (set/a v_60+=1,x_60_%%a=v_60,w_60=1) else set x_60_%%a=!v_60!)
set/a y_60_0=0,x_60_0=0
:s54
set/a n_54+=1
set/a y_54_!n_54!=54-n*n_54,k_54=n_54,x_54_!n_54!=1
if !y_54_%n_54%! geq %n% goto:s54
set/a n_54+=1,y_54_0=y_54_!k_54!,v_54=2
for /l %%a in (%n_54%,1,%m%) do (set/a n_54=%%a,y=%%a%%k_54,w_54+=1
set/a y_54_%%a=y_54_!y!
if !w_54! gtr !k_54! (set/a v_54+=1,x_54_%%a=v_54,w_54=1) else set x_54_%%a=!v_54!)
set/a y_54_0=0,x_54_0=0
for /l %%a in (0,1,%m%) do (set/a b=m-%%a
set/a z_%%a=y_60_%%a+y_54_!b!)
for /F " tokens=1-3 delims==_" %%a in ('set z_') do if not defined bc (set bc=%%c&set a=%%b) else if %%c lss !bc! set bc=%%c&set a=%%b
set/a b=m-a
echo.%1*%2:需要6米的铝材 !x_60_%a%! 根;需要5.4米的铝材 !x_54_%b%! 根.
Endlocal&goto:eof
1.8米*10支
1.5米*20支
2.2米*30支
3.1米*15支

复制代码

15根6米切2.2的30根+1.5米15根，丢掉的是15*0.1米，剩余
1.8 10
1.5 5
3.1 15
15根5.4米切剩下的所有，则舍弃总和是10*0.5+5*0.8+15*0.1=10.5
使用根数总和是：15+5+10=30根

复制代码

15根5.4米切3.1的15根+2.2的15根，3根5.4米切1.8的9根，5根6米切1.5米的20根，丢掉的是15*0.1米
2.2 15
1.8 1
7根5.4米切2.2的14根，舍弃7*1米，1根5.4米切2.2的1根+1.8的1根，舍弃1.4米。舍弃总和事7*1+1.4+15*0.1=9.9米。
使用根数总和是：15+3+5+7+1=31

复制代码

@echo off&setlocal enabledelayedexpansion
::////////////////////////
for /f "tokens=1-2 delims=米*支" %%a in (%~nx0) do (
if "%%a" equ "铝材:" set s=lc&set n=
if "%%a" equ "切割:" set s=cg&set/a lcx=!n!-1&set n=
if defined s if defined n set !s!!n!=%%a&set !s!!n!n=%%b&set vars=!vars! !s!!n!
set /a n+=1
)
set/a cgx=!n!-1
:::://////把数据读入到变量
::set lc
::set cg
::set vars
::pause
::////////////////////////
for %%a in (%vars%) do (
for /f "delims=. tokens=1,2" %%c in ("!%%a!") do (set ver=%%d0)
set d=0
for /l %%b in (0,1,10) do (
if "!ver:~%%b,1!" neq "" set d=%%b
)
set d%%a=!d!
if !d! gtr !dot! set dot=!d!
)
set ver=0000000000
for %%a in (%vars%) do (
set /a n=dot-d%%a
for %%b in (!n!) do set d%%a=!%%a:.=!!ver:~,%%b!
)
::set d
::pause
::////////////小数位调整
::////////////////////////
for /l %%a in (1,1,!cgx!) do (
for /l %%b in (1,1,!cgx!) do (
if !cg%%a! leq !cg%%b! set /a bcg%%a+=1
))
set n=0
for /l %%a in (1,1,!cgx!) do (
for %%b in (mum!bcg%%a!) do (
set /a n+=1
set %%b=!%%b! cg%%a
))
for /l %%a in (1,1,!n!) do set vv=!vv! !mum%%a!&set bcg%%a=&set num%%a=
::echo; !vv!
::pause
::///////要切割规格排序
for %%a in (%vv%) do (
set vvn=!vv:*%%a=!
set gnn=!d%%a!
for /l %%b in (1,1,!lcx!) do (
set /a nn=dlc%%b %% d%%a
if !nn! lss !gnn! set gnn=!nn!&set gxx=lc%%b
for %%c in (!vvn!) do (
set /a mm=nn %% d%%c
if !mm! lss !gnn! set gnn=!mm!&set gxx=lc%%b %%c
))
rem 首先切规格最长的，并且配合其它规格，选最省切法
for /f "tokens=1,2" %%b in ("!gxx!") do (
set/a ##v=d%%b/d%%a,##y=d%%b %% d%%a,##y=##y/d%%c
set/a ##s1=%%an/##v,##s2=##s1,##xy=%%an %% ##v
set gvv=!d%%a!
if !##xy! neq 0 (
set/a ##k=%%an-##s1*##v
set/a ##s1+=1,##k=d%%b-##k*d%%a
for %%d in (!vvn! lc1) do (
set /a mm=##k %% d%%d
if !mm! leq !gvv! set gvv=!mm!&set gxx=%%d
)
)
set/a ##x1=%%an,##x2=##s2*##y,%%an=0
set/a #d%%b=##s1+#d%%b,%%cn=%%cn-##x2,#lf1=gnn*##s2
echo;使用!%%b!米铝材 !##s1!根
set /p =切成：!%%a!米长!##x1!根,还差0根<NUL
if !##y! neq 0 (echo;，!%%c!米长!##x2!根,还差!%%cn!根<NUL) echo;
if !gvv! neq !d%%a! (
for %%d in (!gxx!) do (
echo;二次利用：!##k:~,-%d%!.!##k:~-%d%!米切得：
set/a ##k1=##k/d%%d, ##k2=##k %% d%%d,%%dn=%%dn-##k1
echo; !%%d!米长!##k1!根还差：!%%dn!根，仍剩：0!##k2:~,-%d%!.!##k2:~-%d%!米
set/a #lf1=#lf1+##k2
))
echo;本次浪费：0!#lf1:~,-%d%!.!#lf1:~-%d%!米
echo;
set/a #lf=#lf+#lf1
)
)
for /l %%a in (1,1,!lcx!) do (
echo;共用材料：!lc%%a!米，!#dlc%%a!根
)
echo;共浪费材料：!#lf:~,-%d%!.!#lf:~-%d%!米
pause
exit/b
::数据定义
铝材:
6米
5.4米
切割:
1.8米*10支
1.5米*20支
2.2米*30支
3.1米*15支

复制代码