| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1332 人关注过本帖
标题:[求助]哪位兄弟帮忙算下这个公式
只看楼主 加入收藏
烟花伤
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2007-2-4
收藏
得分:0 

2007-02-04 17:36
℃仰望→天空
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2006-11-28
收藏
得分:0 
厉害~~

写情书一样写程序,看小说一样看代码~~~~
2007-02-04 17:48
zsolong
Rank: 1
等 级:新手上路
威 望:1
帖 子:193
专家分:0
注 册:2006-12-15
收藏
得分:0 

还是用上面的算法,把intI,intJ的范围放的足够大,然后让程序在那边跑,看是是否能够得出结果。
我的代码里面已经写了一个数组来记录所有符合条件的X、Y的值了,只要存在相应的值,就肯定能够算出来了!!


2007-02-05 09:36
zhenxin
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2007-2-2
收藏
得分:0 
谢谢兄弟的回复
谢谢兄弟的回复,你的答案和计算方法都很好,现在还有个问题想麻烦你下,就是现在我想把原先的那个公式换成另外一个:
X*378.756+Y*181.926=609526.24
前面的那个公式,把汇率省略了一位,可能计算精确度不是很高,现在这个公式是原始公式。麻烦帮忙计算一下,谢谢。。
2007-02-05 10:53
zsolong
Rank: 1
等 级:新手上路
威 望:1
帖 子:193
专家分:0
注 册:2006-12-15
收藏
得分:0 
我说呢,这下就完全可以了,可以算出准确的值了,呵呵!具体如下面:是按照 (X,Y,计算结果)的形式来排列的,每一组值之间用空格分开了。总共有18组值符合条件,误差均在(+1)之内。
下面的值都是符合误差在1的范围内的。可能是小于最终值,误差在1之内,即为负差:-1,也可能是大于最终值,误差误差在1之内,即正差:+1,下面这些值得是符合要求的。
5,3340,609526.62 66,3213,609526.134 127,3086,609525.648 359,2603,609526.782 420,2476,609526.296
481,2349,609525.81 542,2222,609525.324 713,1866,609526.944 774,1739,609526.458 835,1612,609525.972
896,1485,609525.486 1067,1129,609527.106 1128,1002,609526.62 1189,875,609526.134 1250,748,609525.648
1482,265,609526.782 1543,138,609526.296 1604,11,609525.81


算法修改如下:

Private Sub Command1_Click()
Dim lngI As Long
Dim lngJ As Long
Dim lngK As Long
Dim lngM As Long
Dim SUM As Double
Dim blnHaveResults As Boolean

Dim arySUM(1000, 2)
For lngI = -1 To 1608
For lngJ = -1 To 3345
SUM = lngI * 378.756 + lngJ * 181.926
If ((SUM >= 609525.24) And (SUM <= 609526.24)) Or ((SUM > 609526.24) And (SUM <= 609527.24)) Then
blnHaveResults = True
arySUM(lngK, 0) = lngI
arySUM(lngK, 1) = lngJ
arySUM(lngK, 2) = SUM

Text1.Text = Text1.Text & arySUM(lngK, 0) & "," & arySUM(lngK, 1) & "," & arySUM(lngK, 2) & " "
lngK = lngK + 1
lngM = lngM + 1

If lngM = 5 Then
Text1.Text = Text1.Text & vbCrLf
lngM = 0
End If

End If
Next lngJ
Next lngI

If blnHaveResults <> True Then
MsgBox "No Value"
End If

End Sub

[此贴子已经被作者于2007-2-5 12:02:57编辑过]


2007-02-05 11:11
zhenxin
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2007-2-2
收藏
得分:0 
谢谢各位兄弟的回复和解答。同时也谢谢zsolong
2007-02-05 13:39
smilerapple
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-1-29
收藏
得分:0 
2007-02-06 16:00
y448935314
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2007-2-13
收藏
得分:0 

刚接触啊!~~ 啥都看不懂啊!~~郁闷


您的一点点奉献,就可能让他倍感到温暖!~~ 受人滴水之恩,当涌泉相报!~~ 试着奉献一下吧!~~~~
2007-02-13 13:23
快速回复:[求助]哪位兄弟帮忙算下这个公式
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027268 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved