redacted/mathematica.nb

Created July 4, 2011 14:13

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/redacted/1063374.js"></script>
Save redacted/1063374 to your computer and use it in GitHub Desktop.

Download ZIP

Mathematica in Lisp mode

Raw

mathematica.nb

	Set[f[x_],
	ReplaceAll[Times[A, Exp[-x]],
	First[Solve[
	Equal[Integrate[Times[A, Exp[-r]], {r, -Infinity, Infinity}], 1], A]]]]

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment