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}]

 

[CellCoree]

?

I would suggest using the "ConditionalExpression" function in Mathematica to eliminate the value of k=0 in your plot. This will allow you to plot the function for all values of k except for k=0. Your code could look like this:

Plot[Table[ConditionalExpression[k-x/k, k != 0], {k, -10, 10, 0.1}], {x, -10, 10}]

This will ensure that the function is only evaluated for values of k that are not equal to 0, and will not plot any points where k=0. This will give you a more accurate representation of the function and avoid any potential errors. I hope this helps!