Mathematica Help: Plotting y=k-x/k for All -10<k<10

[hang2010wang]

Hi, Guys
Can someone help me about this question?
I am trying to use Mathematica to plot all the functions: y=k-x/k for all -10<k<10 with interval of 0.1
what I wrote is like this:
Plot[Table[k-x/k,{k,-10,10,0.1}],{x,-10,10}]

However, because the function doesn't have meaning when k=0.

So how can I type the comment to eliminate k=0

 

[Phrak]

I cheated and tried this: Plot[Table[{k - x/k, -k + x/k}, {k, 1, 10, 1}], {x, -10, 10}]

 

[manlyman62]

You could also try this:
s1=Plot[Table[k-x/k,{k,0.1,10,0.1}],{x,-10,10}]
s2=Plot[Table[k-x/k,{k,-10,-0.1,0.1}],{x,-10,10}]
Show[s1,s2]
Enjoy!

 

[hang2010wang]

HAHA,many thanks for all
I have just discovered that it's even better if type in:
Plot[Table[-x/k+k,Cases[{k,-10,10,0.1},Except[0]]],{x,-10,10}]