My code is quite lengthy. Maybe I post another one (from other people) which I modified from to get mine.
a=Table[{i, i^2 - 3 i + 2 + 0.3 Random[]}, {i, -1, 3, 0.1}]; ListPlot[a];
b = Interpolation[a, Method -> "Spline"];
c = b';
Plot[Evaluate[{b[x], c[x]}], {x, -1, 3}]
Before, the plot consisted of two curves: a blue one for "b" and a red one for "c". Now when the code is run, there is only the blue curve for "b".
By the way, what do you mean by "notebook"? (Sorry that I am a beginner and not familiar with many terms.)
And if necessary, I can post my lengthy code. Thanks.