diff options
| author | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2018-05-09 11:22:48 -0400 |
|---|---|---|
| committer | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2018-05-09 11:22:48 -0400 |
| commit | 13a3bdd44d13de17834a3d85488baba5271695ec (patch) | |
| tree | 1a4a62319a62f2c666d1040ba8a86f11cac9af3c /GradeBook_lib.tcl | |
| parent | 42cc7b60e43b806affb2cd52038368f868c1df7c (diff) | |
| download | GradeBook-13a3bdd44d13de17834a3d85488baba5271695ec.tar.gz GradeBook-13a3bdd44d13de17834a3d85488baba5271695ec.zip | |
grading scheme includes possibility for A+, F is much lower
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index e9807db..702a2df 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -39,6 +39,7 @@ proc get_default_grading_scheme {} { # pair of letter grade and lower boundary for this grade # should be sorted in descended order! set grading_scheme [ list \ + A+ 100 \ A 0.94 \ A- 0.90 \ B+ 0.87 \ @@ -50,7 +51,7 @@ proc get_default_grading_scheme {} { D+ 0.67 \ D 0.64 \ D- 0.60 \ - F 0.00 \ + F -100 \ ] return $grading_scheme } |