Rename *ll* and *ul* to ll and ul in in-interval

[maxima.git] / share / contrib / fresnel / d78.mac

ft:(4*%I*SIN(%PI*F/5000000-29*%PI/250)*SIN(%PI*(50*F^2+3192000000*F)/10000000-124999999*%PI/500000000)/SQRT(2)+4*SIN(%PI*F/5000000-29*%PI/250)*COS(%PI*(50*F^2+3192000000*F)/10000000-124999999*%PI/500000000)/SQRT(2)+4*%I*SIN(%PI*F/5000000+29*%PI/250)*SIN(%PI*(50*F^2-3192000000*F)/10000000-124999999*%PI/500000000)/SQRT(2)-4*SIN(%PI*F/5000000+29*%PI/250)*COS(%PI*(50*F^2-3192000000*F)/10000000-124999999*%PI/500000000)/SQRT(2)+8*%I*SIN(1596*%PI*F/5)*SIN(%PI*F^2/200000+%PI/4)/SQRT(2)+8*COS(1596*%PI*F/5)*SIN(%PI*F^2/200000+%PI/4)/SQRT(2)+2*FRESNELG(SQRT(2)*F/(200*SQRT(5))-1595599999*SQRT(2)/(10000*SQRT(5)))*COS(2*%PI*F/25+%PI/625)+2*%I*FRESNELF(SQRT(2)*F/(200*SQRT(5))-1595599999*SQRT(2)/(10000*SQRT(5)))*COS(2*%PI*F/25+%PI/625)+2*FRESNELG(-SQRT(2)*F/(200*SQRT(5))-1595600001*SQRT(2)/(10000*SQRT(5)))*COS(2*%PI*F/25+%PI/625)-2*%I*FRESNELF(-SQRT(2)*F/(200*SQRT(5))-1595600001*SQRT(2)/(10000*SQRT(5)))*COS(2*%PI*F/25+%PI/625)+2*%I*FRESNELG(SQRT(2)*F/(200*SQRT(5))-1595600001*SQRT(2)/(10000*SQRT(5)))*SIN(2*%PI*F/25-%PI/625)-2*FRESNELF(SQRT(2)*F/(200*SQRT(5))-1595600001*SQRT(2)/(10000*SQRT(5)))*SIN(2*%PI*F/25-%PI/625)+2*%I*FRESNELG(-SQRT(2)*F/(200*SQRT(5))-1595599999*SQRT(2)/(10000*SQRT(5)))*SIN(2*%PI*F/25-%PI/625)+2*FRESNELF(-SQRT(2)*F/(200*SQRT(5))-1595599999*SQRT(2)/(10000*SQRT(5)))*SIN(2*%PI*F/25-%PI/625)+2*FRESNELG(SQRT(2)*F/(200*SQRT(5))-1595600001*SQRT(2)/(10000*SQRT(5)))*COS(2*%PI*F/25-%PI/625)+2*%I*FRESNELF(SQRT(2)*F/(200*SQRT(5))-1595600001*SQRT(2)/(10000*SQRT(5)))*COS(2*%PI*F/25-%PI/625)+2*FRESNELG(-SQRT(2)*F/(200*SQRT(5))-1595599999*SQRT(2)/(10000*SQRT(5)))*COS(2*%PI*F/25-%PI/625)-2*%I*FRESNELF(-SQRT(2)*F/(200*SQRT(5))-1595599999*SQRT(2)/(10000*SQRT(5)))*COS(2*%PI*F/25-%PI/625)+2*%I*FRESNELG(SQRT(2)*F/(200*SQRT(5))-1595599999*SQRT(2)/(10000*SQRT(5)))*COS(2*%PI*F/25-623*%PI/1250)-2*FRESNELF(SQRT(2)*F/(200*SQRT(5))-1595599999*SQRT(2)/(10000*SQRT(5)))*COS(2*%PI*F/25-623*%PI/1250)+2*%I*FRESNELG(-SQRT(2)*F/(200*SQRT(5))-1595600001*SQRT(2)/(10000*SQRT(5)))*COS(2*%PI*F/25-623*%PI/1250)+2*FRESNELF(-SQRT(2)*F/(200*SQRT(5))-1595600001*SQRT(2)/(10000*SQRT(5)))*COS(2*%PI*F/25-623*%PI/1250)-4*%I*SIN(2*%PI*F/25)*FRESNELG(SQRT(2)*F/(200*SQRT(5))-159560*SQRT(2)/SQRT(5))-4*COS(2*%PI*F/25)*FRESNELG(SQRT(2)*F/(200*SQRT(5))-159560*SQRT(2)/SQRT(5))+4*SIN(2*%PI*F/25)*FRESNELF(SQRT(2)*F/(200*SQRT(5))-159560*SQRT(2)/SQRT(5))-4*%I*COS(2*%PI*F/25)*FRESNELF(SQRT(2)*F/(200*SQRT(5))-159560*SQRT(2)/SQRT(5))-4*%I*SIN(2*%PI*F/25)*FRESNELG(-SQRT(2)*F/(200*SQRT(5))-159560*SQRT(2)/SQRT(5))-4*COS(2*%PI*F/25)*FRESNELG(-SQRT(2)*F/(200*SQRT(5))-159560*SQRT(2)/SQRT(5))-4*SIN(2*%PI*F/25)*FRESNELF(-SQRT(2)*F/(200*SQRT(5))-159560*SQRT(2)/SQRT(5))+4*%I*COS(2*%PI*F/25)*FRESNELF(-SQRT(2)*F/(200*SQRT(5))-159560*SQRT(2)/SQRT(5)))/(12800*SQRT(2)*SQRT(5))-(4*%I*SIN(%PI*F/5000000-29*%PI/250)*SIN(%PI*(50*F^2+3192000000*F)/10000000-124999999*%PI/500000000)/SQRT(2)+4*SIN(%PI*F/5000000-29*%PI/250)*COS(%PI*(50*F^2+3192000000*F)/10000000-124999999*%PI/500000000)/SQRT(2)+4*%I*SIN(%PI*F/5000000+29*%PI/250)*SIN(%PI*(50*F^2-3192000000*F)/10000000-124999999*%PI/500000000)/SQRT(2)-4*SIN(%PI*F/5000000+29*%PI/250)*COS(%PI*(50*F^2-3192000000*F)/10000000-124999999*%PI/500000000)/SQRT(2)+8*%I*SIN(1596*%PI*F/5)*SIN(%PI*F^2/200000+%PI/4)/SQRT(2)+8*COS(1596*%PI*F/5)*SIN(%PI*F^2/200000+%PI/4)/SQRT(2)+2*FRESNELG(SQRT(2)*F/(200*SQRT(5))-1595999999*SQRT(2)/(10000*SQRT(5)))+2*%I*FRESNELF(SQRT(2)*F/(200*SQRT(5))-1595999999*SQRT(2)/(10000*SQRT(5)))-4*FRESNELG(SQRT(2)*F/(200*SQRT(5))-159600*SQRT(2)/SQRT(5))-4*%I*FRESNELF(SQRT(2)*F/(200*SQRT(5))-159600*SQRT(2)/SQRT(5))+2*FRESNELG(SQRT(2)*F/(200*SQRT(5))-1596000001*SQRT(2)/(10000*SQRT(5)))+2*%I*FRESNELF(SQRT(2)*F/(200*SQRT(5))-1596000001*SQRT(2)/(10000*SQRT(5)))+2*FRESNELG(-SQRT(2)*F/(200*SQRT(5))-1595999999*SQRT(2)/(10000*SQRT(5)))-2*%I*FRESNELF(-SQRT(2)*F/(200*SQRT(5))-1595999999*SQRT(2)/(10000*SQRT(5)))-4*FRESNELG(-SQRT(2)*F/(200*SQRT(5))-159600*SQRT(2)/SQRT(5))+4*%I*FRESNELF(-SQRT(2)*F/(200*SQRT(5))-159600*SQRT(2)/SQRT(5))+2*FRESNELG(-SQRT(2)*F/(200*SQRT(5))-1596000001*SQRT(2)/(10000*SQRT(5)))-2*%I*FRESNELF(-SQRT(2)*F/(200*SQRT(5))-1596000001*SQRT(2)/(10000*SQRT(5))))/(12800*SQRT(2)*SQRT(5))+(25*%I*COS(%PI*F/25+%PI/1250)-25*COS(%PI*F/25-312*%PI/625))/(800*%PI*F+25600000016*%PI)+(25*COS(%PI*F/25-312*%PI/625)-25*%I*COS(%PI*F/25+%PI/1250))/(25599999984*%PI-800*%PI*F)+(25*SIN(%PI*F/25-%PI/1250)-25*%I*COS(%PI*F/25-%PI/1250))/(25600000016*%PI-800*%PI*F)+(25*%I*COS(%PI*F/25-%PI/1250)-25*SIN(%PI*F/25-%PI/1250))/(800*%PI*F+25599999984*%PI)+(SIN(%PI*F/25)-%I*COS(%PI*F/25))/(16*%PI*F+512000000*%PI)+(SIN(%PI*F/25)-%I*COS(%PI*F/25))/(16*%PI*F-512000000*%PI)-25*%I/(800*%PI*F+25600000016*%PI)-25*%I/(800*%PI*F+25599999984*%PI)+%I/(16*%PI*F+512000000*%PI)+%I/(16*%PI*F-512000000*%PI)+25*%I/(25600000016*%PI-800*%PI*F)+25*%I/(25599999984*%PI-800*%PI*F);
sing:[(1599999999/50), 32000000, (1600000001/50)];