Merge pull request openwebwork#308 from dpvc/fraction-fix

Add differentiation to fractions, and add cmp_defaults
pstaabp · Jul 7, 2017 · 2da8143 · 2da8143
2 parents 8f22d5f + a4a6bcc
commit 2da8143
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/macros/contextFraction.pl b/macros/contextFraction.pl
@@ -618,6 +618,8 @@ sub reduce {
 package context::Fraction::Real;
 our @ISA = ('Value::Real');
 
+sub cmp_defaults {Value::Real::cmp_defaults(@_)}
+
 #
 #  Allow Real to convert Fractions to Reals
 #
@@ -831,6 +833,16 @@ sub atan2 {
   return $self->inherit($other)->make(CORE::atan2($l->eval,$r->eval));
 }
 
+##################################################
+#
+#  Differentiation
+#
+
+sub D {
+  my $self = shift;
+  return $self->make(0,1);
+}
+
 ##################################################
 #
 #  Utility