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