这投资数学题如何用P处理做? - 中国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元

第16楼　不得不爱	发表于 2009-01-30 17:26
超级版主　发帖 2,044　积分 5,310　来自四川南充
这应该是最大盈利吧?投资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/10001000,c-=x,a+=x/100080 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/50005000,c-=x,a+=x/5000500 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

第17楼　netbenton	发表于 2009-01-31 03:01
银牌会员　发帖 752　积分 1,916　来自广西
出现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/500500,c-=y,a+=y/50025 if %c% geq 90 set/a x=c/9090,c-=x,a+=x/903 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/10001000,c-=y,a+=y/100080 if %c% geq 500 set/a x=c/500500,c-=x,a+=x/50025 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/50005000,c-=y,a+=y/5000500 if %c% geq 1000 set/a x=c/10001000,c-=x,a+=x/100080 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/50005000,c-=x,a+=x/5000500 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 ]

第18楼　不得不爱	发表于 2009-01-31 10:35
超级版主　发帖 2,044　积分 5,310　来自四川南充
楼上的多算了1天

第19楼　terse	发表于 2009-01-31 15:54
银牌会员　发帖 946　积分 2,404
去掉一些投资方式怎么会这样的结果那里错了？头大 [ Last edited by terse on 2009-1-31 at 16:33 ]

第20楼　linee	发表于 2009-01-31 22:42
初级用户　发帖 49　积分 94
不懂线性规划，也不了解投资组合，没有算法，感觉用批处理很难做，期待知道算法的高手。

第21楼　netbenton	发表于 2009-02-01 00:08
银牌会员　发帖 752　积分 1,916　来自广西
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的方案。

第22楼　terse	发表于 2009-02-01 03:08
银牌会员　发帖 946　积分 2,404
推算到一种最大赢利批处理对付线性规划模型头大 @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+=_a500,x+=_a5000,c-=_a5000 ) 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+=_a80,x+=_a1000,c-=_a*1000 ) goto lp

第23楼　netbenton	发表于 2009-02-01 09:09
银牌会员　发帖 752　积分 1,916　来自广西
re18楼改了一下 @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/500500,c-=y,a+=y/50025 if %c% geq 90 set/a x=c/9090,c-=x,a+=x/903 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/10001000,c-=y,a+=y/100080 if %c% geq 500 set/a x=c/500500,c-=x,a+=x/50025 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/50005000,c-=y,a+=y/5000500 if %c% geq 1000 set/a x=c/10001000,c-=x,a+=x/100080 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/50005000,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

第24楼　linee	发表于 2009-02-02 00:37
初级用户　发帖 49　积分 94
我是凑出来的，前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 ]

第25楼　不得不爱	发表于 2009-02-05 10:46
超级版主　发帖 2,044　积分 5,310　来自四川南充
加入最后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/10001000,c-=x,a+=x/100080 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/50005000,c-=x,a+=x/5000500 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/10001000,c-=y,a+=y/100080,y=c/500500,c-=y,a+=y/50025,y=c/9090,c-=y,a+=y/903,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元