Implemented section 6.1 examples

psg-mit · Mar 4, 2020 · c06015c · c06015c
1 parent 247cabd
commit c06015c
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/src/SmoothLang.hs b/src/SmoothLang.hs
@@ -108,8 +108,16 @@ runMixedPartialXY :: Real
 runMixedPartialXY = atPrec 0.00001 mixedPartialXY
 
 
--- Section 6.1: Ignoring for now because of liklihood of future changes
--- TODO
+-- Section 6.1:
+-- call derivCuberoot8 implemented as part of section 3
+oneTwelfth :: DReal ()
+oneTwelfth = 1 / 12
+
+sqrt2 :: DReal ()
+sqrt2 = sqrt 2
+
+sqrt2squared :: DReal ()
+sqrt2squared = (sqrt 2)^2
 
 
 -- Section 7.1.3: derivative of the mean of a uniform distribution wrt. a line perturbation