Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Re: Unevaluated a[[1]]*a[[2]]
  • Next by Date: Re: Solve Equation involving Error Function
  • Previous by thread: Solve Equation involving Error Function
  • Next by thread: Re: Solve Equation involving Error Function