- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 计算问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=39966)
-- 发布时间：2013/9/5 16:54:00
-- 计算问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
两个问题：
1、根据输入的数字（n）计算有效分并填入表格
有效分计算公式：
总分有效分数（称之为控制分数）：总分从大到小排序，找到第n个数
学科有效分公式：
学科有效分=学科平均分+（学科标准差/各学科标准差之和）*（控制分数—总分平均分）
2、统计有效人数：DataColChanged事件中
如何将控制分数赋值给yxfs
-- 发布时间：2013/9/5 17:02:00
--
1.在何处输入统计在何处?说的不清不楚帮不上你忙啊.
2.赋值给YXFS?
-- 发布时间：2013/9/5 17:11:00
--
在"有效人数"表格中统计"原始成绩"中的数据
在控制人数中输入数字
-- 发布时间：2013/9/5 17:22:00
--
根据你的例子,还是没有看懂.抱歉. 能否说具体一些.
-- 发布时间：2013/9/5 20:33:00
--
头晕……解决了第一个问题，第二个问题没有看懂，那些学科平均分、标准差，是计算全部学生的，还是高于控制分数的学生的？
还有就是，一本线的怎么计算，二本线的又怎么计算了？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.table |
-- 发布时间：2013/9/5 21:15:00
--
谢谢，第一个问题正确。
学科平均分、标准差 是计算所有学生的单科成绩的平均分、标准差，统计数字要求大于有效分数。
例如：语文一本有效分数
1、统计一本控制人数40人，控制分数为544分
2、计算各学科标准差：语文：b1 数学：b2英语：b3政治：b4历史：b5地理：b6
3、计算语文平均分：P1
4、计算总分平均分：p
5、计算语文一本有效分数为：p1+[b1/(b1+b2+b3+b4+b5+b6)]*(544-p)
-- 发布时间：2013/9/5 21:18:00
--
“一本上线”与“一本有效”同学科有效分是一样的
二本依然
-- 发布时间：2013/9/5 22:27:00
--
如下代码，你一个一个往表里写入，就行了。
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim drs As List(Of DataRow) = DataTables("原始成绩").Select("", "总分 desc")
Dim dr1 As DataRow = DataTables("有效人数").Find("学科 = \'总分\' and 项目 = \'一本上线\'")
Dim dr2 As DataRow = DataTables("有效人数").Find("学科 = \'总分\' and 项目 = \'二本上线\'")
dr1("有效分数") = drs(txt1.text)("总分")
dr2("有效分数") = drs(txt2.text)("总分")
\'得到各科的标准差
Dim b1 As Double = DataTables("原始成绩").Compute("StDev(语文)")
Dim b2 As Double = DataTables("原始成绩").Compute("StDev(数学)")
Dim b3 As Double = DataTables("原始成绩").Compute("StDev(英语)")
Dim b4 As Double = DataTables("原始成绩").Compute("StDev(政治)")
Dim b5 As Double = DataTables("原始成绩").Compute("StDev(历史)")
Dim b6 As Double = DataTables("原始成绩").Compute("StDev(地理)")
Dim p1 As Double = DataTables("原始成绩").Compute("avg(语文)")
Dim p2 As Double = DataTables("原始成绩").Compute("avg(数学)")
Dim p3 As Double = DataTables("原始成绩").Compute("avg(英语)")
Dim p4 As Double = DataTables("原始成绩").Compute("avg(政治)")
Dim p5 As Double = DataTables("原始成绩").Compute("avg(历史)")
Dim p6 As Double = DataTables("原始成绩").Compute("avg(地理)")
Dim p As Double = DataTables("原始成绩").Compute("avg(总分)")
msgbox("语文 有效分是:" & p1+(b1/(b1+b2+b3+b4+b5+b6))*(dr1("有效分数")-p))