Recent content by 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}]

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...