File: d78.mac

package info (click to toggle)

maxima-sage 5.45.1-2

links: PTS, VCS
area: main
in suites: bookworm, sid, trixie
size: 113,788 kB
sloc: lisp: 440,833; fortran: 14,665; perl: 14,369; tcl: 10,997; sh: 4,475; makefile: 2,520; ansic: 447; python: 262; xml: 59; awk: 37; sed: 17

file content (3 lines) | stat: -rw-r--r-- 4,844 bytes

parent folder | download | duplicates (6)

1
2
3


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)];