Re: Solve Equation involving Error Function
- To: mathgroup at smc.vnet.net
- Subject: [mg65200] Re: Solve Equation involving Error Function
- From: "ben" <benjamin.friedrich at gmail.com>
- Date: Fri, 17 Mar 2006 05:45:40 -0500 (EST)
- References: <dvdih3$a3a$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hello,
There is no solution:
Erfc[x]<2
implies
t2-t1 Erfc[0.0005/Sqrt[k]>0.
I guess you forget a MINUS.
Then
t1 = {87, 87, 87};
t2 = {80, 81, 86};
Do[
sol[i] =
k /. Solve[t1[[i]] - t2[[i]]*Erfc[-0.0005/Sqrt[k]] == 0, k][[1]],
{i, Length[t1]}]
does the job.
Bye
Ben