plot[tan(y*(pi)),1/y, {y,0,20}]