Mathematica何が悪いのでしょうか？

こんにちは、

下記は、HPをそのまま写したのですが、評価するとエラーになります。
どこが間違っているのでしょうか？

http://www.rs.kagu.tus.ac.jp/~phlabex/LabExercise/LCR/frame/lcr2.htm


L := 2.65/10^3;
r := 73.32;
c := 12.55/10^9;
e1 := 5;
i1 = y[x] /. NDSolve[{Derivative[2][y][x] == (-(r/L))*Derivative[1][y][x] - (1/(L*c))*y[x] + e1/L, y[0] == 0.0001, Derivative[1][y][0] == 0}, y, {x, 0, 0.0001}]
Plot[i, {x, 0, 0.0001}]
q1 = D[i, x]
q2 = plot[g1, {x, 0, 0.0001}]

追伸

このグラフは、ｘが増加するに連れて、減少してますが、増加させるにはどこを変更すれば良いでしょうか？