diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 33 |
1 files changed, 30 insertions, 3 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 82591d5..7be159f 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -754,6 +754,7 @@ proc CreateGradesTable {db} { CheckAndCreateAsNeededInfoRow _The_Lowest_Grade_ CheckAndCreateAsNeededInfoRow _The_Mean_Grade_ CheckAndCreateAsNeededInfoRow _The_Median_Grade_ + CheckAndCreateAsNeededInfoRow _The_StDev_Grade_ # reasonable defaults for hidden columns #set instructor_hidden_columns [list UserHiddenColums UserHiddenGroups IdNum] @@ -1113,6 +1114,7 @@ proc htmlFormatTheStatsForGradeRaw { stats_needed sql_column_str hidden_columns "low" {set sql_user_name _The_Lowest_Grade_} "mean" {set sql_user_name _The_Mean_Grade_} "median" {set sql_user_name _The_Median_Grade_} + "stdev" {set sql_user_name _The_StDev_Grade_} default { htmlErrorMsg "Required stats ($stats_needed) to output is not known" return "" @@ -1134,6 +1136,7 @@ proc htmlFormatTheStatsForGradeRaw { stats_needed sql_column_str hidden_columns "low" {set col_value "Low"} "mean" {set col_value "Mean"} "median" {set col_value "Median"} + "stdev" {set col_value "StDev"} default {set col_value "UNKNOWN"} } } @@ -1297,6 +1300,7 @@ proc htmlDBout {db permission_list user {sort_col {}}} { htmlFormatMaxPossibleRaw $sql_column_str $hidden_columns puts [htmlFormatTheStatsForGradeRaw high $sql_column_str $hidden_columns] puts [htmlFormatTheStatsForGradeRaw mean $sql_column_str $hidden_columns] + puts [htmlFormatTheStatsForGradeRaw stdev $sql_column_str $hidden_columns] puts [htmlFormatTheStatsForGradeRaw median $sql_column_str $hidden_columns] puts [htmlFormatTheStatsForGradeRaw low $sql_column_str $hidden_columns] } @@ -2039,7 +2043,7 @@ proc UpdateColumnMeanGrade { columnname } { if { 0 != [llength $col_values] } { set val [::math::statistics::mean $col_values ] # rounding value to 2 digits - set val [format "%04.2f" $val ] + set val [format "%04.2f" $val ] } CheckAndCreateAsNeededInfoRow _The_Mean_Grade_ @@ -2056,7 +2060,7 @@ proc UpdateColumnMedianGrade { columnname } { if { 0 != [llength $col_values] } { set val [::math::statistics::median $col_values ] # rounding value to 2 digits - set val [format "%04.2f" $val ] + set val [format "%04.2f" $val ] } CheckAndCreateAsNeededInfoRow _The_Median_Grade_ @@ -2065,6 +2069,28 @@ proc UpdateColumnMedianGrade { columnname } { UpdateColValue4UserNameNonWeb $columnname _The_Median_Grade_ $val } +proc UpdateColumnStDevGrade { columnname } { + # find minimum in the column with a given name among active students + set val "N/A" + set col_values [GetGroupValuesInColumn student $columnname] + set col_values [LeaveOnlyNumbersInList $col_values] + if { 0 != [llength $col_values] } { + set val [::math::statistics::stdev $col_values ] + if { $val ne "" } { + # rounding value to 2 digits + set val [format "%04.2f" $val ] + } else { + set val "N/A" + } + } + CheckAndCreateAsNeededInfoRow _The_StDev_Grade_ + + set column_category [SelectColValue4User $columnname _Col_Category_] + + UpdateColValue4UserNameNonWeb $columnname _The_StDev_Grade_ $val +} + + proc UpdateGradesTableStatistic { permission_list user } { set grades_categories [get_grades_category] @@ -2102,8 +2128,9 @@ proc UpdateColumnStatistic { columnname {update_parent_flag true} } { } UpdateColumnHighestGrade $columnname UpdateColumnLowestGrade $columnname - UpdateColumnMeanGrade $columnname + UpdateColumnMeanGrade $columnname UpdateColumnMedianGrade $columnname + UpdateColumnStDevGrade $columnname # check recursion exit conditions if { !$update_parent_flag } return |