Re: Retrieving orphaned code

*To*: mathgroup at smc.vnet.net*Subject*: [mg109078] Re: Retrieving orphaned code*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Mon, 12 Apr 2010 06:56:21 -0400 (EDT)

f[a_, b_, c_, x_] := Module[{d, e, f}, d = a + b/2; e = Exp[-c*x]; d*x^2 + e*x + c] DownValues[f] // InputForm {HoldPattern[f[a_, b_, c_, x_]] :> Module[{d, e, f}, d = a + b/2; e = Exp[(-c)*x]; d*x^2 + e*x + c]} However, other Values could have been defined so n = ToExpression[Names["*Values"]] {DefaultValues,DownValues,DynamicModuleValues,FormatValues, NValues,OwnValues,SingularValues,SubValues,UpValues} Select[{#, #[f]} & /@ n, FreeQ[#[[2]], #[[1]]] &] // Quiet Bob Hanlon ---- Michael Young <michaelcharlesyoung at earthlink.net> wrote: ============= Hello, I seem to have accidentally 'orphaned' three functions i built . That is, the code is still active in memory, and the function name shows in black and displays its intended data ; however, the file's copies of the functions' source-code have been modified and recompiled under different names, for different purposes . Is there a way to retrieve function source-code in Mathematica ? Michael