/* This script illustrates the behavior between Maple and arenaireplot */
/* It is meant to be used with arenaireplot version 0.0.2.2-alpha      */

/* WARNING: the parameter diam represents a *relative diameter*:       */
/* To get the absolute maximal diameter of the zero boxes Delta, use   */
/* the formula:     Delta = diam * |I|                                 */
/* where |I| denotes the diameter of the input interval I.             */



d=[-1/4;1/4];
f=expm1(x);
p=x*(1+x*(2097145b-22 + x*(349527b-21 + x * (87609b-21 + x*(4369b-19)))));

plot (p-f)/f in d;
bashexecute "./compile.sh D_TO_D"; 
externalplot "./implementation" relative to f in d with 14 bits;
externalplot "./implementation" relative to p in d with 14 bits;