Ideal electromagnetic switch-on-process in a real electromagnetic cable.
data2a = Transpose[{autostep[[1, 1, 2]]["Coordinates"][1], autostep[[1, 1, 2]]["ValuesOnGrid"]}]; Show[Plot[autostep[[1, 1, 2]][t], {t, 0, 1.5 10^-8}, PlotRange -> All], ListPlot[data2a, PlotStyle -> Red, PlotRange -> All], ImageSize -> 500]

data2a = Transpose[{autostep[[1, 2, 2]]["Coordinates"][[1]], autostep[[1, 2, 2]]["ValuesOnGrid"]}]; Show[Plot[autostep[[1, 2, 2]][t], {t, 0, 1.5 10^-8}, PlotRange -> All], ListPlot[data2a, PlotStyle -> Red, PlotRange -> All], ImageSize -> 500]

data3a = Transpose[{autostep[[1, 3, 2]]["Coordinates"][[1]], autostep[[1, 3, 2]]["ValuesOnGrid"]}]; Show[Plot[autostep[[1, 3, 2]][t], {t, 0, 1.5 10^-8}, PlotRange -> All], ListPlot[data3a, PlotStyle -> Red, PlotRange -> All], ImageSize -> 500]

This remains looking artificial. This compare "Coordinates" to "ValueOnGrid". The patterns are synchronized but the pattern seems strangely sparse where the interesting integration occurs. This is the ploterror function rewritten for the presented code.