|
不得不爱
超级版主
我爱DOS
积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
|
『第
16 楼』:
这应该是最大盈利吧?投资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
|
我的网络U盘 我的网络第2个U盘
论坛软件下载链接
灵雨飘零论坛
论坛新手必读，所有人的基本行为准则
刷QQ空间人气、留言的小软件 |
|
 2009-1-30 17:26 |
|
|
netbenton
银牌会员
批处理编程迷
积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
|
『第
17 楼』:
出现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 ]
|
精简
[你的+我的+他的]=>[大家的] 个人 网志  |
|
|
2009-1-31 03:01 |
|
|
不得不爱
超级版主
我爱DOS
积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
|
|
|
2009-1-31 10:35 |
|
|
terse
银牌会员
积分 2404
发帖 946
注册 2005-9-8
状态 离线
|
『第
19 楼』:
去掉一些投资方式 怎么会这样的结果 那里错了？
头大 [ Last edited by terse on 2009-1-31 at 16:33 ]
|
简单!简单!再简单! |
|
|
2009-1-31 15:54 |
|
|
linee
初级用户
积分 94
发帖 49
注册 2008-12-14
状态 离线
|
『第
20 楼』:
不懂线性规划，也不了解投资组合，没有算法，感觉用批处理很难做，期待知道算法的高手。
|
|
|
2009-1-31 22:42 |
|
|
netbenton
银牌会员
批处理编程迷
积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
|
『第
21 楼』:
| Quote: | 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的方案。
|
精简
[你的+我的+他的]=>[大家的] 个人网志 |
|
|
2009-2-1 00:08 |
|
|
terse
银牌会员
积分 2404
发帖 946
注册 2005-9-8
状态 离线
|
『第
22 楼』:
推算到一种最大赢利
批处理对付线性规划模型 头大
@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
|
简单!简单!再简单! |
|
|
2009-2-1 03:08 |
|
|
netbenton
银牌会员
批处理编程迷
积分 1916
发帖 752
注册 2008-12-28
来自 广西
状态 离线
|
『第
23 楼』:
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/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
|
精简
[你的+我的+他的]=>[大家的] 个人网志 |
|
|
2009-2-1 09:09 |
|
|
linee
初级用户
积分 94
发帖 49
注册 2008-12-14
状态 离线
|
『第
24 楼』:
我是凑出来的，
前33天只投资1000的，第34天到第41天只投资5000的，能在第42天赢利2020元：（最快过2000）
| Quote: | | 第42天投资22000元，现金2140元，赢利2020元。 |
|
前28天只投资1000的，第29天到第89天只投资5000的，能在第90天赢利175700元：（最大赢利）
| Quote: | | 第90天投资1758000元，现金176300元，赢利175700元。 |
|
[ Last edited by linee on 2009-2-2 at 00:41 ]
|
|
|
2009-2-2 00:37 |
|
|
不得不爱
超级版主
我爱DOS
积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
|
『第
25 楼』:
加入最后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元
|
我的网络U盘 我的网络第2个U盘
论坛软件下载链接
灵雨飘零论坛
论坛新手必读，所有人的基本行为准则
刷QQ空间人气、留言的小软件 |
|
|
2009-2-5 10:46 |
|
|
