/* wxMaxima 0.7.2 http://wxmaxima.sourceforge.net
Maxima 5.12.0 http://maxima.sourceforge.net
Using Lisp GNU Common Lisp (GCL) GCL 2.6.8 (aka GCL)
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
This is a development version of Maxima. The function bug_report()
provides bug reporting information.

(%i1) integrate(-2*x*cos(x*F)*S*%e^-(x^2*S)-F*sin(x*F)*%e^-(x^2*S),x);

(%i2) assume(F=constant);

(%i3) assume(F:constant);

(%i4) assume(F:=constant);

(%i5) assume(constant(F)));

(%i5) constant(F);

(%i6) facts;

(%i7) declare(F, constant);

(%i8) facts;

(%i9) facts();

(%i10) ;

(%i10) declare(F, constant);

(%i11) declare;

(%i12) declare());

(%i12) declare();

(%i13) features;

(%i14) vars;

(%i15) values;

(%i16) declare(F);

(%i17) values(F);

(%i18) apropos(F);

(%i19) apropos(constant);

(%i20) declare(S, constant);

(%i21) apropos(constant);

(%i22) apropos(S);

(%i23) declarep(S, constant);

(%i24) facts;

(%i25) declare(F, constant);

(%i26) apropos(F);

(%i27) apropos(S);

(%i28) integrate(-2*x*cos(x*F)*S*%e^-(x^2*S)-F*sin(x*F)*%e^-(x^2*S),x);

(%i29) kill(F);

(%i30) declare(F, constant);

(%i31) integrate(-2*x*cos(x*F)*S*%e^-(x^2*S)-F*sin(x*F)*%e^-(x^2*S),x);

(%i32) integrate(F*cos(x*F)*%e^-(x^2*S)-2*x*sin(x*F)*S*%e^-(x^2*S),x);

(%i33) diff(sin(F*x)*exp(-S*x^2),x);

(%i34) integrate(integrate(*x^2*sin(x*F)*S^2*%e^-(x^2*S)-2*sin(x*F)*S*%e^-(x^2*S)-4*x*F*cos(x*F)*S*%e^
 -(x^2*S)-F^2*sin(x*F)*%e^-(x^2*S),x),x);

(%i34) integrate(integrate(4*x^2*sin(x*F)*S^2*%e^-(x^2*S)-2*sin(x*F)*S*%e^-(x^2*S)-4*x*F*cos(x*F)*S*%e^
 -(x^2*S)-F^2*sin(x*F)*%e^-(x^2*S),x),x);

(%i35) integrate(4*x^2*sin(x*F)*S^2*%e^-(x^2*S)-2*sin(x*F)*S*%e^-(x^2*S)-4*x*F*cos(x*F)*S*%e^
 -(x^2*S)-F^2*sin(x*F)*%e^-(x^2*S),x);

(%i36) diff(sin(F*x)*exp(-S*x^2),x);

(%i37) ratsimp(%);

(%i38) expand(%);

(%i39) integrate(%,x);

(%i40)