K-means: default to 100 iterations and a max distortion of 0.01
diff --git a/PerlMagick/Magick.xs b/PerlMagick/Magick.xs
index 5cbec9b..ddfdab7 100644
--- a/PerlMagick/Magick.xs
+++ b/PerlMagick/Magick.xs
@@ -11512,9 +11512,9 @@
               flags=ParseGeometry(argument_list[0].string_reference,
                 &geometry_info);
               if ((flags & SigmaValue) == 0)
-                geometry_info.sigma=40.0;
+                geometry_info.sigma=100.0;
               if ((flags & XiValue) == 0)
-                geometry_info.xi=0.05;
+                geometry_info.xi=0.01;
             }
           if (attribute_flag[1] != 0)
             geometry_info.rho=argument_list[1].integer_reference;