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

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

randi:(SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))^2*COS(W^2/(8000000*%PI)+99*W/25)+SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))^2)/256000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))^2-SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))^2*COS(W^2/(8000000*%PI)+99*W/25))/256000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(8000000*%PI)+99*W/25)-SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(-SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(8000000*%PI)+99*W/25)-SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))^2*COS(W^2/(8000000*%PI)+99*W/25)+CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))^2)/256000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))^2-CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))^2*COS(W^2/(8000000*%PI)+99*W/25))/256000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(8000000*%PI)+99*W/25)-CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(-CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(8000000*%PI)+99*W/25)-CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))^2*COS(W^2/(8000000*%PI)+99*W/25)+SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))^2)/256000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))^2-SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))^2*COS(W^2/(8000000*%PI)+99*W/25))/256000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))^2*COS(W^2/(8000000*%PI)+99*W/25)+CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))^2)/256000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))^2-CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))^2*COS(W^2/(8000000*%PI)+99*W/25))/256000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))^2*COS(W^2/(8000000*%PI)-99*W/25)+SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))^2)/256000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))^2-SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))^2*COS(W^2/(8000000*%PI)-99*W/25))/256000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*COS(W^2/(8000000*%PI)-99*W/25)-SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2)))/128000000+(-SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*COS(W^2/(8000000*%PI)-99*W/25)-SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2)))/128000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))^2*COS(W^2/(8000000*%PI)-99*W/25)+CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))^2)/256000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))^2-CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))^2*COS(W^2/(8000000*%PI)-99*W/25))/256000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*COS(W^2/(8000000*%PI)-99*W/25)-CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2)))/128000000+(-CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*COS(W^2/(8000000*%PI)-99*W/25)-CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2)))/128000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))^2*COS(W^2/(8000000*%PI)-99*W/25)+SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))^2)/256000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))^2-SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))^2*COS(W^2/(8000000*%PI)-99*W/25))/256000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))^2*COS(W^2/(8000000*%PI)-99*W/25)+CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))^2)/256000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))^2-CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))^2*COS(W^2/(8000000*%PI)-99*W/25))/256000000+CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*SIN(W^2/(16000000*%PI)+99*W/50)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)+CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*SIN(W^2/(16000000*%PI)+99*W/50)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)-CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SIN(W^2/(16000000*%PI)+99*W/50)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)-CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SIN(W^2/(16000000*%PI)+99*W/50)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)-SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(16000000*%PI)+99*W/50)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)-SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(16000000*%PI)+99*W/50)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)+SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*COS(W^2/(16000000*%PI)+99*W/50)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)+SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*COS(W^2/(16000000*%PI)+99*W/50)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)-CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*SIN(W^2/(16000000*%PI)+1979*W/1000)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)-CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*SIN(W^2/(16000000*%PI)+1979*W/1000)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)+CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SIN(W^2/(16000000*%PI)+1979*W/1000)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)+CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SIN(W^2/(16000000*%PI)+1979*W/1000)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)+SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(16000000*%PI)+1979*W/1000)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)+SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(16000000*%PI)+1979*W/1000)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)-SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*COS(W^2/(16000000*%PI)+1979*W/1000)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)-SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*COS(W^2/(16000000*%PI)+1979*W/1000)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)+CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SIN(W^2/(16000000*%PI)-1979*W/1000)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)+CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SIN(W^2/(16000000*%PI)-1979*W/1000)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)-CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SIN(W^2/(16000000*%PI)-1979*W/1000)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)-CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SIN(W^2/(16000000*%PI)-1979*W/1000)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)-SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*COS(W^2/(16000000*%PI)-1979*W/1000)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)-SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*COS(W^2/(16000000*%PI)-1979*W/1000)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)+SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*COS(W^2/(16000000*%PI)-1979*W/1000)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)+SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*COS(W^2/(16000000*%PI)-1979*W/1000)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)-CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SIN(W^2/(16000000*%PI)-99*W/50)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)-CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SIN(W^2/(16000000*%PI)-99*W/50)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)+CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SIN(W^2/(16000000*%PI)-99*W/50)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)+CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SIN(W^2/(16000000*%PI)-99*W/50)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)+SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*COS(W^2/(16000000*%PI)-99*W/50)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)+SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*COS(W^2/(16000000*%PI)-99*W/50)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)-SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*COS(W^2/(16000000*%PI)-99*W/50)/(8000*SQRT(2)*W+128000000000*SQRT(2)*%PI)-SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*COS(W^2/(16000000*%PI)-99*W/50)/(8000*SQRT(2)*W-128000000000*SQRT(2)*%PI)+(CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*SIN(W^2/(8000000*%PI))+SIN(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*SIN(W^2/(8000000*%PI))-SIN(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(SIN(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))-CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*SIN(W^2/(8000000*%PI)))/128000000+(-CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*SIN(W^2/(8000000*%PI))-SIN(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*SIN(W^2/(8000000*%PI))+SIN(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*SIN(W^2/(8000000*%PI))-SIN(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(SIN(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))-SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*SIN(W^2/(8000000*%PI)))/128000000+(-SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*SIN(W^2/(8000000*%PI))-SIN(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(SIN(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))-CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SIN(W^2/(8000000*%PI)))/128000000+(-CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SIN(W^2/(8000000*%PI))-SIN(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2)))/128000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SIN(W^2/(8000000*%PI))+SIN(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2)))/128000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SIN(W^2/(8000000*%PI))-SIN(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2)))/128000000+(SIN(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))-SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SIN(W^2/(8000000*%PI)))/128000000+(-SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SIN(W^2/(8000000*%PI))-SIN(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2)))/128000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SIN(W^2/(8000000*%PI))+SIN(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2)))/128000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*SIN(W^2/(8000000*%PI))-SIN(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2)))/128000000+(COS(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))-SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(8000000*%PI)))/128000000+(-SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(8000000*%PI))-COS(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(8000000*%PI))+COS(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(8000000*%PI))-COS(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(8000000*%PI))+COS(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(8000000*%PI))-COS(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(COS(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))-CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(8000000*%PI)))/128000000+(-CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2))*COS(W^2/(8000000*%PI))-COS(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3960*SQRT(2)))/128000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*COS(W^2/(8000000*%PI))+COS(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2)))/128000000+(SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*COS(W^2/(8000000*%PI))-COS(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2)))/128000000+(COS(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))-SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*COS(W^2/(8000000*%PI)))/128000000+(-SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*COS(W^2/(8000000*%PI))-COS(99*W/25)*SFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*SFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2)))/128000000+(COS(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))-CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*COS(W^2/(8000000*%PI)))/128000000+(-CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*COS(W^2/(8000000*%PI))-COS(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3956*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2)))/128000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*COS(W^2/(8000000*%PI))+COS(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2)))/128000000+(CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2))*COS(W^2/(8000000*%PI))-COS(99*W/25)*CFRESNEL(SQRT(2)*W/(4000*%PI)-3960*SQRT(2))*CFRESNEL(SQRT(2)*W/(4000*%PI)+3956*SQRT(2)))/128000000+2*(COS(W/500)/(8*W^2-2048000000000000*%PI^2)+1/(8*W^2-2048000000000000*%PI^2))+2*(1/(8*W^2-2048000000000000*%PI^2)-COS(W/500)/(8*W^2-2048000000000000*%PI^2))-COS(W/1000)/(2*W^2+64000000*%PI*W+512000000000000*%PI^2)-COS(W/1000)/(2*W^2-64000000*%PI*W+512000000000000*%PI^2)-COS(W/1000)/(W^2-256000000000000*%PI^2)+2/(4*W^2+128000000*%PI*W+1024000000000000*%PI^2)+2/(4*W^2-128000000*%PI*W+1024000000000000*%PI^2)+1/(2*W^2-512000000000000*%PI^2)$