Mit der rationalen Näherungsfunktion können auch Funktionen angenähert werden, deren Werte stellenweise unendlich sind. In jedem Fall muß der Grad des Zähler- und Nennerpolynoms als Option angegeben werden. Außerdem wird der Zählerbereich benötigt, in dem die Näherung erfolgen soll.
Needs["NumericalMath`Approximations`"] g:= (* Zu approximierende Funktion *) z= (* Grad des Zählerpolynoms *) n= (* Grad des Nennerpolynoms *) xmin= (* Untere Grenze des Approximatiomnsbereiches *) xmax= (* Obere Grenze des Approximationsbereiches *) f=RationalInterpolation[g,{x,z,n},{x,xmin,xmax}]