lift ratios (unused)

1 files changed, 19 insertions, 0 deletions

diff --git a/repgoal.hs b/repgoal.hs
index bef5c88..bc3741d 100755
--- a/repgoal.hs
+++ b/repgoal.hs
@@ -179,6 +179,25 @@ theApp =
         , appAttrMap = const $ A.attrMap V.defAttr []
         }
 
+-- Lift Ratios
+-- from https://www.catalystathletics.com/article/1786/The-Relation-of-Snatch-Clean-Jerk-and-Squat-Weights/
+squat, deadlift, press :: Rational
+squat = 345
+deadlift = 453
+press = 140
+
+cleanAndJerk = squat * 80 / 100
+frontSquat = squat * 85 / 100
+overheadSquat = squat * 65 / 100
+snatch = squat * 60 / 100
+powerSnatch = snatch * 80 / 100
+
+clean = deadlift * 70 / 100
+powerClean = clean * 80 / 100
+
+pushPress = press * 100 / 75
+jerk = pushPress / 100 * 85
+
 main :: IO ()
 main = do
     let buildVty = V.mkVty V.defaultConfig