Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求变动成本和固定成本


  共有2484人关注过本帖树形打印复制链接

主题：[求助]求变动成本和固定成本
帅哥哟，离线，有人找我吗？
lgj716330
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1387 积分：10693 威望：0 精华：0 注册：2013/11/8 15:27:00 		[求助]求变动成本和固定成本  发帖心情 Post By：2017/7/21 21:02:00 [显示全部帖子]

可以象EXCEL一样求得固定成本和变动成本吗

 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1387 积分：10693 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2017/7/21 21:03:00 [显示全部帖子]

如图

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170721210005.png
图片点击可在新窗口打开查看

不知通过何种手段可以实现这个
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1387 积分：10693 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2017/7/21 21:29:00 [显示全部帖子]

上面这两个公式在狐表里也能用吗

SLOPE(known_y's，known_x's)
INTERCEPT(known_y's,known_x's)

[此贴子已经被作者于2017/7/21 21:43:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1387 积分：10693 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2017/7/21 22:14:00 [显示全部帖子]

嗯，找到参照的了，自己先研究下先
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=70541
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1387 积分：10693 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2017/7/24 13:55:00 [显示全部帖子]

Dim ls As List(Of String) = DataTables("表A").GetValues("销量", Tables("表A").filter)
Dim ls1 As List(Of String) = DataTables("表A").GetValues("费用", Tables("表A").filter)
Dim x() As Double
Dim y() As Double
x = ls.ToArray()
y = ls1.ToArray()
Dim avg1 As Double
Dim avg2 As Double
For i As Integer = 0 To x.length - 1
    avg1 += x(i) / x.length
    avg2 += y(i) / y.length
Next
Dim sum1 As Double
Dim sum2 As Double
For i As Integer = 0 To x.length - 1
    sum1 += (x(i)-avg1)*(y(i)-avg2)
    sum2 += (x(i)-avg1)*(x(i)-avg1)
Next
msgbox(sum1 / sum2)

上述代码有问题，如何改呢

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170724135428.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1387 积分：10693 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2017/7/24 14:12:00 [显示全部帖子]

错误提示
从字符串“”到类型“Double”的转换无效。
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1387 积分：10693 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2017/7/24 15:38:00 [显示全部帖子]

嗯，好了。不过用数据测了下，发现跟用excel算出来的有差异，一下不知问题在哪

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170724135428.png
图片点击可在新窗口打开查看

Dim b As Double = sum1 / sum2
Dim a As Double = avg2 - b*avg1
如上图，用EXCEL算，a=80791,b=0.4029
而用上面的代码计算结果是a=72850,b=1.2752
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1387 积分：10693 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2017/7/24 16:09:00 [显示全部帖子]

sum1的计算结果是不对的，实际应该是11629431，代码结果是36805359，但公式好象没问题，不知为什么
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1002.foxdb


[此贴子已经被作者于2017/7/24 16:15:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1387 积分：10693 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2017/7/24 16:19:00 [显示全部帖子]

嗯，现在对了，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
lgj716330
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1387 积分：10693 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2017/7/28 16:13:00 [显示全部帖子]

Dim t As DataTable = DataTables("表A")
Dim avg1 As Double
Dim avg2 As Double
Dim sum1 As Double =0
Dim sum2 As Double =0
Dim bjs As List(Of String) = t.GetValues("部门")
For Each bj As String In bjs
For Each r As DataRow In t.datarows.Select("部门 = '" & bj & "'")
    sum1 += val(r("销量"))
    sum2 += val(r("费用"))
Next
Next
avg1 = sum1 / t.datarows.count
avg2= sum2 / t.datarows.count
sum1=0
sum2=0
For Each bj As String In bjs
For Each r As DataRow In t.datarows.Select("部门 = '" & bj & "'")
    sum1 += (val(r("销量"))-avg1)*(val(r("费用"))-avg2)
    sum2 += (val(r("销量"))-avg1)*(val(r("销量"))-avg1)
Next
Next
Dim b As Double = sum1 / sum2
Dim a As Double = avg2 - b*avg1
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1002.foxdb

我想区分不同的部门分别计算，上面的代码错误提示

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170728161147.png
图片点击可在新窗口打开查看
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05896 秒, 7 次数据查询