Re: find inverse of an arbitrary function
- To: mathgroup at smc.vnet.net
- Subject: [mg38537] Re: find inverse of an arbitrary function
- From: "Borut L" <gollum at email.si>
- Date: Tue, 24 Dec 2002 06:40:30 -0500 (EST)
- References: <au3vob$fds$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
I don't know what exactly you had in mid, but below is a lame approach you
could consider.
I tailored your problem to finding the one argument, whose picture you
specify.
First, teach the function.
f[{1,0,1,1,1}]={1,0,0,0,0,0,0,0,0,0};
f[{1,0,1,1,0}]={0,1,1,1,1,1,1,1,1,1};
f[a]=b;
f["my age"]=100;
f[1]=1;
?f
invf[x_]:=
(
Select[DownValues[f],(Last@#==x)&]/.f[arg_]->arg
)[[1,1]]//ReleaseHold
invf[{0,1,1,1,1,1,1,1,1,1}]
invf[100]
"rasoul asheghi" <rasoul_asheghi at yahoo.com> wrote in message
news:au3vob$fds$1 at smc.vnet.net...
>
> dear
> hello,how are you
> i am a student that wants to compute inverse an
> arbitrary function and the menu help of mathematica
> donot solve myproblem please guid me ,i needs to your
> contribution
> example if F[1,0,1,1,1]={1,0,0,0,0,0,0,0,0,0}then i
> wish to have
> F^(-1)[{1,0,0,0,0,0,0,0,0,0}]={1,0,1,1,1}.
> thanks very much
> i am waiting for response
> goodby
>
>
> __________________________________________________
> Do you Yahoo!?
> Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
> http://mailplus.yahoo.com
>