>>157
i1 じゃなくて i
g1 じゃなくて q1

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

Plot[-i, {x, 0, 0.0001}]
とでもすれば？