fktick[min_, max_, dn_] :=
Table[If[EvenQ[i], {1 + i*dn/Floor[max],
i, {.01, 0.}}, {1 + i*dn/Floor[max], i, {.005, 0.}}], {i,
Ceiling[min], Floor[max], 1}]
fntick[ndiv_][min_, max_] :=
Table[If[Divisible[i, ndiv], {i, i, {.01, 0.}},
If[EvenQ[i], {i, "", {0., 0.}}, {i, "", {0., 0.}}]], {i,
Ceiling[min], Floor[max], 1}]
randset[{min_, max_, dn_}, ri_, rf_,
rn_] := {RandomReal[{ri, rf}, {rn, dn + 1}]};
mweSEPlot[set_, vdiv_ : 4] := Module[{y = (Evaluate @@ set)[[1]]},
ListLinePlot[y, PlotRange -> {Full, All}, Frame -> True,