Example 1: 
 
   > dirtyinfnorm(sin(x),[-10;10]);
 
   1
 
 
 
Example 2: 
 
   > prec=15!;
 
   > dirtyinfnorm(exp(cos(x))*sin(x),[0;5]);
 
   1.45856
 
   > prec=40!;
 
   > dirtyinfnorm(exp(cos(x))*sin(x),[0;5]);
 
   1.458528537135
 
   > prec=100!;
 
   > dirtyinfnorm(exp(cos(x))*sin(x),[0;5]);
 
   1.458528537136237644438147455024
 
   > prec=200!;
 
   > dirtyinfnorm(exp(cos(x))*sin(x),[0;5]);
 
   1.458528537136237644438147455023841718299214087993682374094153
 
 
 
Example 3: 
 
   > dirtyinfnorm(x^2, [log(0);log(1)]);
 
   @NaN@