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

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

randil(w):=ev([(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)],numer)$