中国DOS联盟

这应该是最大盈利吧?投资90和500是没有什么利润的,所以没有去投资!

@echo off

set/a c=800,a=60,z=1,x=0

echo 第1天现有现金800 赢利60

:lp

set/a z+=1,c+=a,b+=a

if %c% geq 1000 set/a x=c/1000*1000,c-=x,a+=x/1000*80

set/a t+=x

echo 第%z%天投资%x%元 赢利%a% 总投资%t%元 总赢利 %b% 现有现金%c%

set/a x=0

if %a% lss 600 goto lp

:lq

set/a z+=1,c+=a,b+=a

if %c% geq 5000 set/a x=c/5000*5000,c-=x,a+=x/5000*500

set/a t+=x

echo 第%z%天投资%x%元 赢利%a% 总投资%t%元 总赢利 %b% 现有现金%c%

set x=0

if %z% geq 90 pause&exit

goto lq

第43天投资5000元 赢利2120 总投资22000元 总赢利 21780 现有现金580

第90天投资155000元 赢利170120 总投资1702000元 总赢利 1702420 现有现金1220

出现a>2000的最少天数是42,方法：3
到90天时的最大A是175180,方法：6


@echo off
set a200f=&set a200d=90
set z90f=&set z90a=0
for /f "delims=:" %%a in ('findstr /n :data %~nx0') do set/a sk=%%a+1
for /f "skip=%sk% tokens=1-5" %%a in (%~nx0) do (
echo 方法%%b: %%c %%d %%e
CALL :SUB %%c %%d %%e %%b
echo.
)
echo 出现A^>2000的最少天数是%a200d%,方法：%a200f%
echo 到90天时的最大A是%z90a%,方法：%z90f%

goto :eof

:sub
set/a c=800,a=60,z=1,x=0,y=0,t=0,b=0
rem echo 第1天现有现金800 赢利60
set poit=

:lp1
if %z% geq %1 goto :lp2
set/a z+=1,c+=a,b+=a
if %c% geq 500 set/a y=c/500*500,c-=y,a+=y/500*25
if %c% geq 90 set/a x=c/90*90,c-=x,a+=x/90*3
set/a t=t+x+y
call :pt %4
set/a x=0,y=0
goto :lp1

:lP2
if %z% geq %2 goto :lp3
set/a z+=1,c+=a,b+=a
if %c% geq 1000 set/a y=c/1000*1000,c-=y,a+=y/1000*80
if %c% geq 500 set/a x=c/500*500,c-=x,a+=x/500*25
set/a t=t+x+y
call :pt %4
set /a x=0,y=0
goto :lp2

:lP3
if %z% geq %3 goto :lp4
set/a z+=1,c+=a,b+=a
if %c% geq 5000 set/a y=c/5000*5000,c-=y,a+=y/5000*500
if %c% geq 1000 set/a x=c/1000*1000,c-=x,a+=x/1000*80
set/a t=t+x+y
call :pt %4
set/a x=0,y=0
goto :lp3

:lP4
set/a z+=1,c+=a,b+=a
if %c% geq 5000 set/a x=c/5000*5000,c-=x,a+=x/5000*500
set/a t+=x
call :pt %4
set x=0
if %z% geq 90 (
echo 第%z%天投资%x%元 赢利%a% 总投资%t%元 总赢利 %b% 现有现金%c%
if %a% gtr %z90a% (set z90a=%a%&set z90f=%4)
goto :eof
)
goto :lp4

:pt
rem echo 第%z%天投资%x%元 赢利%a% 总投资%t%元 总赢利 %b% 现有现金%c%
if not defined poit (
if %a% geq 2000 (
echo 第%z%天投资%x%元 赢利%a% 总投资%t%元 总赢利 %b% 现有现金%c%
set poit=a
if %z% lss %a200d% (set a200d=%z%&set a200f=%1)

)
)
set/a m=z%%24
rem if %m%==0 pause>nul

goto :eof

:data 指N:天开始放弃某种投资，
方法 90 500 1000 5000
N: 1 0 0 32
N: 2 0 0 33
N: 3 0 0 34
N: 4 0 0 35
N: 6 0 0 36
N: 7 0 0 37
N: 8 0 0 38
N: 9 0 0 39
N: 10 0 0 40
N: 11 0 0 41
N: 12 0 0 42
N: 13 0 0 43
N: 14 0 0 44
N: 15 0 0 45
N: 16 0 0 46

[ Last edited by netbenton on 2009-1-31 at 03:02 ]

楼上的多算了1天

去掉一些投资方式 怎么会这样的结果 那里错了？

头大

[ Last edited by terse on 2009-1-31 at 16:33 ]

不懂线性规划，也不了解投资组合，没有算法，感觉用批处理很难做，期待知道算法的高手。

Originally posted by netbenton at 2009-1-31 03:01:
:data 指N:天开始放弃某种投资，
方法 90 500 1000 5000
N: 1 0 0 32
N: 2 0 0 33
N: 3 0 0 34
N: 4 0 0 35
N: 6 0 0 36
N: 7 0 0 37
N: 8 0 0 38

编辑后面的:data数据，进行各种尝试，实际可证明，第一、二种投资的利是最小的，所以只考虑第三、四种投资，这里所说的放弃某种投资，只是说有了一定的A后就不再做小额投资了，到最后只投资第四种5000的a+=500的方案。

推算到一种最大赢利
批处理对付线性规划模型 头大

@echo off&setlocal enabledelayedexpansion

set/a z+=1,c=800,a=60,y=c,m=1000,x=0,_a=0,b+=a

:lp

if %x% neq 0 echo 第%z%天投资%m%*%_a%=%x%元 赢利%a% 总投资%y%元 总赢利 %b% 现有现金%c%

  if %z% geq 90 echo 第%z%天后  总赢利 %b%&pause&exit

    if %a% gtr 1100 (

      set /a z+=1,c+=a,b+=a,y+=x,x=0,_a=0,m=5000

        if !c! geq 5000 set/a _a=c/5000,a+=_a*500,x+=_a*5000,c-=_a*5000

      ) else (

        set/a z+=1,c+=a,b+=a,y+=x,x=0,_a=0,m=1000

        if !c! geq 1000 set/a _a=c/1000,a+=_a*80,x+=_a*1000,c-=_a*1000

  )

  goto lp

@echo off
set a200f=&set a200d=90
set z90f=&set z90a=0
for /f "delims=:" %%a in ('findstr /n :data %~nx0') do set/a sk=%%a+1
for /f "skip=%sk% tokens=1-5" %%a in (%~nx0) do (
echo 方法%%b: %%c %%d %%e
CALL :SUB %%c %%d %%e %%b
echo.
)
set/a sk-=2
for /f "skip=%sk% tokens=*" %%a in (%~nx0) do (echo %%a)

echo 出现A^>2000的最少天数是%a200d%,方法：%a200f%
echo 到90天时的最大A是%z90a%,方法：%z90f%
pause
goto :eof

:sub
set/a c=800,a=60,z=1,x=0,y=0,t=0,b=0
rem echo 第1天现有现金800 赢利60
set poit=

:lp1
if %z% geq %1 goto :lp2
rem set/a
if %c% geq 500 set/a y=c/500*500,c-=y,a+=y/500*25
if %c% geq 90 set/a x=c/90*90,c-=x,a+=x/90*3
set/a t=t+x+y,x+=y
call :pt %4
set/a x=0,y=0,z+=1,c+=a,b+=a
goto :lp1

:lP2
if %z% geq %2 goto :lp3
if %c% geq 1000 set/a y=c/1000*1000,c-=y,a+=y/1000*80
if %c% geq 500 set/a x=c/500*500,c-=x,a+=x/500*25
set/a t=t+x+y,x+=y
call :pt %4
set /a x=0,y=0,z+=1,c+=a,b+=a
goto :lp2

:lP3
if %z% geq %3 goto :lp4
if %c% geq 5000 set/a y=c/5000*5000,c-=y,a+=y/5000*500
if %c% geq 1000 set/a x=c/1000*1000,c-=x,a+=x/1000*80
set/a t=t+x+y,x+=y
call :pt %4
set/a x=0,y=0,z+=1,c+=a,b+=a
goto :lp3

:lP4
if %c% geq 5000 set/a x=c/5000*5000,c-=x,a+=x/5000*500
set/a t+=x
call :pt %4
if %z% geq 90 (
echo/第%z%天投资%x%元 赢利%a% 总投资%t%元 总赢利 %b% 现有现金%c%
if %a% gtr %z90a% (set z90a=%a%&set z90f=%4)
goto :eof
)
set/a x=0,z+=1,c+=a,b+=a
goto :lp4

:pt
rem echo 第%z%天投资%x%元 赢利%a% 总投资%t%元 总赢利 %b% 现有现金%c%
if not defined poit (
if %a% geq 2000 (
echo 第%z%天投资%x%元 赢利%a% 总投资%t%元 总赢利 %b% 现有现金%c%
set poit=a
if %z% lss %a200d% (set a200d=%z%&set a200f=%1)

)
)
set/a m=z%%24
rem if %m%==0 pause>nul

goto :eof

:data 指N:天开始放弃某种投资，
方法 90 500 1000 5000
N: 1 2 4 32
N: 2 0 0 33
N: 3 0 0 34
N: 4 0 0 35
N: 6 0 0 36
N: 7 0 0 37
N: 8 0 0 38
N: 9 0 0 39
N: 0 0 0 40
N: 11 0 0 41
N: 12 0 0 42
N: 13 0 0 43
N: 14 0 0 44
N: 15 0 0 45
N: 16 0 0 46

我是凑出来的，

前33天只投资1000的，第34天到第41天只投资5000的，能在第42天赢利2020元：（最快过2000）

第42天投资22000元，现金2140元，赢利2020元。

前28天只投资1000的，第29天到第89天只投资5000的，能在第90天赢利175700元：（最大赢利）

第90天投资1758000元，现金176300元，赢利175700元。

[ Last edited by linee on 2009-2-2 at 00:41 ]

加入最后1天投资尽量全部:

@echo off

::echo 第1天现有现金800 赢利60

set/a t200=100,ff=0,z90=0,ff90=0

for /l %%a in (25,1,45) do echo 第%%a天后放弃投资1000&set/a c=800,a=60,z=1,tj=0,b=0,t=0&call :lp %%a

echo 出现A^>2000的最少天数是%t200%,方法是在第%ff%天放弃投资1000元

echo 到90天时的最大A是%z90%,方法是在第%ff90%天放弃投资1000元

pause

goto :eof

:lp

set/a z+=1,c+=a,b+=a,x=0

if %c% geq 1000 set/a x=c/1000*1000,c-=x,a+=x/1000*80

set/a t+=x

if %tj%==0 if %a% geq 2000 echo 第%z%天投资%x%元 赢利%a% 总投资%t%元 总赢利 %b% 现有现金%c%&set tj=1&if %t200% geq %z% set/a t200=z,ff=%1

if %z% lss %1 goto lp

:lq

set/a z+=1,c+=a,b+=a,x=0

if %c% geq 5000 set/a x=c/5000*5000,c-=x,a+=x/5000*500

set/a t+=x

if %tj%==0 if %a% geq 2000 echo 第%z%天投资%x%元 赢利%a% 总投资%t%元 总赢利 %b% 现有现金%c%&set tj=1&if %t200% geq %z% set/a t200=z,ff=%1

if %z% lss 90 goto lq

set/a f=c,y=c/1000*1000,c-=y,a+=y/1000*80,y=c/500*500,c-=y,a+=y/500*25,y=c/90*90,c-=y,a+=y/90*3,x+=f-c

echo 第%z%天投资%x%元 赢利%a% 总投资%t%元 总赢利 %b% 现有现金%c%

if %a% geq %z90% set/a z90=a,ff90=%1

echo.

出现A>2000的最少天数是42,方法是在第34天放弃投资1000元
到90天时的最大A是175728,方法是在第29天放弃投资1000元