diff --git a/doc/examples-2.0/scan_FlexibleEFTHiggs_uncertainty.m b/doc/examples-2.0/scan_FlexibleEFTHiggs_uncertainty.m
index b787178e6..50906e1c5 100644
--- a/doc/examples-2.0/scan_FlexibleEFTHiggs_uncertainty.m
+++ b/doc/examples-2.0/scan_FlexibleEFTHiggs_uncertainty.m
@@ -4,12 +4,8 @@
 
 (* generate logarithmically spaced range [start, stop] *)
 LogRange[start_, stop_, steps_] :=
-    Module[{i, result = {}},
-           For[i = 0, i <= steps, i++,
-               result = AppendTo[result, Exp[Log[start] + (Log[stop] - Log[start]) i / steps]];
-              ];
-           result
-          ];
+    Exp /@ Range[Log[start], Log[stop],
+                 (Log[stop] - Log[start])/steps];
 
 (* generate logarithmically spaced range [2 Q, Q / 2] *)
 GenerateScales[Q_] := LogRange[Q/2, 2 Q, 10];
diff --git a/doc/examples-2.0/scan_HSSUSY_EFT_uncertainty.m b/doc/examples-2.0/scan_HSSUSY_EFT_uncertainty.m
index d285d5e35..e2ca2ea84 100644
--- a/doc/examples-2.0/scan_HSSUSY_EFT_uncertainty.m
+++ b/doc/examples-2.0/scan_HSSUSY_EFT_uncertainty.m
@@ -2,15 +2,8 @@
 
 (* generate logarithmically spaced range [start, stop] *)
 LogRange[start_, stop_, steps_] :=
-    Module[{i, result = {}},
-           For[i = 0, i <= steps, i++,
-               result = AppendTo[
-                  result,
-                  Exp[Log[start] + (Log[stop] - Log[start]) i/steps]
-               ];
-              ];
-           result
-          ];
+    Exp /@ Range[Log[start], Log[stop],
+                 (Log[stop] - Log[start])/steps];
 
 CalcMh[MS_, TB_, Xt_, deltaEFT_] :=
     Module[{handle, spec},
diff --git a/doc/examples-2.0/scan_HSSUSY_SM_uncertainty.m b/doc/examples-2.0/scan_HSSUSY_SM_uncertainty.m
index b346246e7..95c26d119 100644
--- a/doc/examples-2.0/scan_HSSUSY_SM_uncertainty.m
+++ b/doc/examples-2.0/scan_HSSUSY_SM_uncertainty.m
@@ -2,15 +2,8 @@
 
 (* generate logarithmically spaced range [start, stop] *)
 LogRange[start_, stop_, steps_] :=
-    Module[{i, result = {}},
-           For[i = 0, i <= steps, i++,
-               result = AppendTo[
-                  result,
-                  Exp[Log[start] + (Log[stop] - Log[start]) i/steps]
-               ];
-              ];
-           result
-          ];
+    Exp /@ Range[Log[start], Log[stop],
+                 (Log[stop] - Log[start])/steps];
 
 (* generate logarithmically spaced range [2 Q, Q / 2] *)
 GenerateScales[Q_] := LogRange[Q/2, 2 Q, 10];