f <- function (x,i=2, b=1, a=2, c=3,d=1, g=2, h=3, z=1, m=2)
 {
(x*a*(m-i*(a*(x+2*b)-2*a*b)*z)/m)/(x*c+0.5*(x^2)*d-(x*a*(m-i*(a*(x+2*b)-2*a*b)*z)/m))-(h/
 (g-h))
 }

 png();plot(seq(-100,100), f(seq(-100,100)) );dev.off()

png();plot(seq(-1,-0.01,by=0.001), f(seq(-1,-0.01,by=0.001)) );dev.off()