Re: Solve Equation involving Error Function
- To: mathgroup at smc.vnet.net
- Subject: [mg65213] Re: Solve Equation involving Error Function
- From: bghiggins at ucdavis.edu
- Date: Sat, 18 Mar 2006 06:40:35 -0500 (EST)
- References: <dvdih3$a3a$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Raj,
Try this,
MapThread[FindRoot[#1-#2*Erfc[0.0005/
Sqrt[k]] ==0,{k,0.3}] &,{{81,80,80} ,{87,87,87} }]
{{k->0.0000667579},{k->0.0000490023},{k->0.0000490023}}
Cheers,
Brian
rajanikanth at gmail.com wrote:
> hi!
>
> Could somebody tell me how to solve this equation for the value of k in
> Mathematica
>
> t2-t1*Erfc[0.0005/Sqrt[k]] ==0
>
> where t2 is a list given by {87,87,87}
> and t1 is a list given by {81,80,80}
>
> Thanks,
>
> Raj