A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Extreme-floating-point-values/Mathematica/extreme-floating-point-values.mathematica
+++ b/Task/Extreme-floating-point-values/Mathematica/extreme-floating-point-values.mathematica
@ -0,0 +1,9 @@
+Column@{ReleaseHold[
+   Function[expression,
+     Row@{HoldForm@InputForm@expression, " = ", Quiet@expression},
+     HoldAll] /@
+    Hold[1./0., 0./0., Limit[-Log[x], x -> 0], Limit[Log[x], x -> 0],
+     Infinity + 1, Infinity + Infinity, 2 Infinity,
+     Infinity - Infinity, 0 Infinity, ComplexInfinity + 1,
+     ComplexInfinity + ComplexInfinity, 2 ComplexInfinity,
+     0 ComplexInfinity, Indeterminate + 1, 0 Indeterminate]]}