Board logo

标题: [求助]这投资数学题如何用P处理做? [打印本页]

作者: siwmm     时间: 2009-1-27 16:37    标题: [求助]这投资数学题如何用P处理做?

题目来自我一个失败的P处理(查找特定TEMP的):  所以改了题目:
现有金钱C=800 ,今天过后有A=60的赢利,今天是Z=第一天..
每天都可以进行多种投资搭配:,"""只要有""钱""`~   
投资方式有          投资㈠:每投资90,今天过后增加3点赢利即A+=3......
                         投资㈡:每投资500,今天过后增加25点赢利即A+=25
                         投资㈢:每投资1000,今天过后增加80点赢利即A+=80,
                         投资㈣:每投资5000,今天过后增加5000点赢利即A+=500,
这里的投资意思是  用现在手上 一定量的钱换取以后每天一定量的赢利..
例如:
第一天的800可以这样投资...投资90*(2)+500*(1)+1000*(0)+5000*(0)后剩下金钱120,第一天赢利从60增加到91,这天结束得金钱120+91=211, 那么明天就有211的现金,明天可能赢利91(如果不再投资)
①原本要求:第Z=90天时,每天怎样的投资A=?最大.或赢利A=2000时Z的MIN值.每一天是怎样投资才可以达到这个目的....

②有了这P处我就可以找回我重要的数据了(已经找到).:后来想想,编写出来的P处理就是一个很好的投资软件~..那请把P处理设计为,告诉用户现金C和现收入A得知Z天内每天的该怎样投资最好...C,A,Z待用户设
回答方式只要有如下就可以
            :第一天投资90*(x)&500*(Y)&1000*(j)&5000(K)
             第二天投资90*(x)&500*(Y)&1000*(j)&5000(K)
             第Z-1天…………………………
在这发贴本想让人帮我改我第一次写的P处理(太菜,无人问津)~
期待大家华丽的语句了………………感谢2楼yishanju 4楼BC .5楼terse  改贴前的关心~

[ Last edited by siwmm on 2009-1-30 at 00:51 ]
作者: yishanju     时间: 2009-1-27 23:48
至少介绍下代码是用来干什么的吧
作者: siwmm     时间: 2009-1-28 22:17
把它化成数学题也行~~~
题目:现有金钱C=800 ,今天过后有a=60的赢利,今天是Z=第一天..
每天都有这样的投资:投资㈠:每投资90,今天过后增加3点赢利即a+=3
                            投资㈡:每投资500,今天过后增加25点赢利即a+=25
                            投资㈢:每投资1000,今天过后增加80点赢利即a+=80,
                            投资㈣:每投资5000,今天过后增加5000点赢利即a+=500,
第Z=90天时,每天怎样的投资最好既A最大,每一天是怎样投资才可以达到这个目的.
或赢利A=2000时Z的最小值.每一天是怎样投资才可以达到这个目的

[ Last edited by siwmm on 2009-1-29 at 13:19 ]
作者: BC     时间: 2009-1-29 00:13
认真理清一下思路?
作者: terse     时间: 2009-1-29 02:23
1000元是否可以作2个500元投资那样反而多了20个点
作者: siwmm     时间: 2009-1-29 12:54


  Quote:
Originally posted by terse at 2009-1-29 02:23 AM:
1000元是否可以作2个500元投资那样反而多了20个点

不可饿~`~那我改一下题目 可以多次投资配合
                       投资㈡:每投资500,今天过后增加25点赢利即a+=25,
请问解决3楼问题的P处理可以怎么写呢?

[ Last edited by siwmm on 2009-1-29 at 21:56 ]
作者: terse     时间: 2009-1-29 13:39
题目:现有金钱C=800 ,今天过后有a=60的赢利,今天是Z=第一天..
第二天 是不是有860 投资500 过后是否 金钱C=360 a=110呢?接着还可以投资一个90[余金钱C=270+a(113)]还是 4个90即360[余金钱C=0+ a(122)]呢?
作者: siwmm     时间: 2009-1-29 13:46
re   7 楼

  是"每投资x元",A增加Y.


第二天 是不是有860 投资500 过后是否 金钱C=360 a=110呢?接着还可以投资一个90[余金钱C=270+a(113)]
作者: terse     时间: 2009-1-29 20:02
前面的赢利计算在每天都有的
@echo off
set/a c=860
echo 第1天后  赢利60 有现金860
:lp
if %c% geq 5000 set/a a+=500,c-=5000,x+=5000
if %c% geq 1000 set/a a+=80,c-=1000,x+=1000
if %c% geq 500 set/a a+=25,c-=500,x+=500
if %c% geq 90 set/a a+=3,c-=90,x+=90
set/a z+=1,c+=a,b+=a,y+=x
echo 第%z%天投资%x%元 赢利%a% 总投资%y%元 总赢利 %b% 现有现金%c%
if %z% geq 90 echo 第%z%天后  总赢利 %b%&pause&exit
set/a x=0
goto lp

作者: siwmm     时间: 2009-1-29 20:30
这里的投资意思是  用现在手上 一定量的钱换取以后每天一定量的收入
如用去90换3点,那这90没了,但以后每天多了3点收入.
re :  terse
和我的计算有出入呀?~好象有更好的投资方案
作者: slore     时间: 2009-1-29 21:11
线性规划?
作者: siwmm     时间: 2009-1-29 21:30


  Quote:
Originally posted by slore at 2009-1-29 09:11 PM:
线性规划?

应该算吧~`从线性规划方向去想方程应该好多吧~
作者: 不得不爱     时间: 2009-1-29 23:35
投资后的资金还可以重新投资吗
作者: siwmm     时间: 2009-1-30 00:49
这里的投资意思是  用现在手上 一定量的钱换取以后每天一定量的赢利..
第一天的800可以这样投资...投资90*(2)+500*(1)+1000*(0)+5000*(0)后剩下金钱120,第一天赢利从60增加到91,这天结束得金钱120+91=211, 那么明天就有211的现金,明天可能赢利91(如果不再投资)
作者: slore     时间: 2009-1-30 01:50
我明白意思了。。。
很麻烦。。。


有点思路了。。。。要看回本天数

[ Last edited by slore on 2009-1-30 at 12:34 ]
作者: 不得不爱     时间: 2009-1-30 17:26
这应该是最大盈利吧?投资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
作者: netbenton     时间: 2009-1-31 03:01
出现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 10:35
楼上的多算了1天
作者: terse     时间: 2009-1-31 15:54
去掉一些投资方式  怎么会这样的结果    那里错了?
头大
[ Last edited by terse on 2009-1-31 at 16:33 ]
作者: linee     时间: 2009-1-31 22:42
不懂线性规划,也不了解投资组合,没有算法,感觉用批处理很难做,期待知道算法的高手。
作者: netbenton     时间: 2009-2-1 00:08


  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的方案。
作者: terse     时间: 2009-2-1 03:08
推算到一种最大赢利
批处理对付线性规划模型 头大
@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

作者: netbenton     时间: 2009-2-1 09:09    标题: 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
作者: linee     时间: 2009-2-2 00:37
我是凑出来的,

前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-5 10:46
加入最后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元