| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求解 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51003) |
| -- 作者：hbhb -- 发布时间：2014/5/16 18:11:00 -- 求解 大师： 请教:求n的代码
1、10000 = 4000 +
3000/(1+0.1)^3 +3000/(1+0.1)^6+ 3000/(1+0.1)^+.........3000/(1+0.1)^3n
请教：求pv的值的代码
2、10000 = pv + (pv-1000)/(1+0.1)^3 + (pv-1000)/(1+0.1)^6 + (pv-1000)/(1+0.1)^9 + ............(pv-1000)/(1+0.1)^3n (n=无穷大） |
| -- 作者：hbhb -- 发布时间：2014/5/16 18:16:00 -- 请甜大师帮忙求解 请教:求n的代码
1、10000 = 4000 + 3000/(1+0.1)^3 +3000/(1+0.1)^6+ 3000/(1+0.1)^9+.........3000/(1+0.1)^3n
请教：求pv的值的代码
2、10000 = pv + (pv-1000)/(1+0.1)^3 + (pv-1000)/(1+0.1)^6 + (pv-1000)/(1+0.1)^9 + ............(pv-1000)/(1+0.1)^3n (n=无穷大） |
| -- 作者：e-png -- 发布时间：2014/5/16 20:08:00 -- 1、 这样对不？ Dim nn As Integer = 100 Dim sum As Double For n As Long = 1 To nn sum = sum + 3000/(1+0.1)^3*n If 4000 + sum >= 10000 output.show(n) Exit For End If Next
[此贴子已经被作者于2014-5-16 21:15:41编辑过]
|
| -- 作者：e-png -- 发布时间：2014/5/16 20:35:00 -- 2、无解！ 或 N多的解。。。 [此贴子已经被作者于2014-5-16 20:37:48编辑过]
|
| -- 作者：hbhb -- 发布时间：2014/5/16 21:39:00 -- 高 |
| -- 作者：小刚 -- 发布时间：2014/5/16 21:44:00 -- 不能在发帖的标题上写清楚发帖的目的吗？ |
| -- 作者：黄花菜 -- 发布时间：2014/5/16 21:53:00 -- 以下是引用e-png在2014-5-16 20:08:00的发言：
1、 这样对不？ Dim nn As Integer = 100
Dim sum As Double
For n As Long = 1 To nn
sum = sum + 3000/(1+0.1)^3*n
If 4000 + sum >= 10000
output.show(n)
Exit For
End If
Next
[此贴子已经被作者于2014-5-16 21:15:41编辑过]
注意运算符的优先级循序。。。
|
| -- 作者：黄花菜 -- 发布时间：2014/5/16 21:55:00 -- 以下是引用hbhb在2014-5-16 18:16:00的发言：
请甜大师帮忙求解 请教:求n的代码
1、10000 = 4000 + 3000/(1+0.1)^3 +3000/(1+0.1)^6+ 3000/(1+0.1)^9+.........3000/(1+0.1)^3n
请教：求pv的值的代码
2、10000 = pv + (pv-1000)/(1+0.1)^3 + (pv-1000)/(1+0.1)^6 + (pv-1000)/(1+0.1)^9 + ............(pv-1000)/(1+0.1)^3n (n=无穷大）
^3n <> ^(3n) |
| -- 作者：e-png -- 发布时间：2014/5/16 22:30:00 -- (3*n) ok |
| -- 作者：菲舍尔 -- 发布时间：2014/5/17 2:22:00 -- 这种问题不应该是代码可以求解的吧，你应该从算法层面去求解 |