Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*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 2005

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

Search the Archive

Re: Re: Crossing of 3D functions


That's not InputForm; this is:

F1 = -7.516*Exp[-3.076*
       (r - 1.184)]*
     (1 - (8.28*(180 - f)^2)/
       10^5)*1^0.5 +
    3.758*Exp[-6.152*
       (r - 1.184)] + 3.92

F2 = -0.958*Exp[-4.993*
       (r - 1.375)]*
     (1 - (1.07*(133 - f)^2)/
       10^3)*0.1^0.5 +
    0.479*Exp[-9.986*
       (r - 1.375)] + 0.479

But now, I don't know what your question might be.

Bobby

On Thu, 19 May 2005 03:08:49 -0400 (EDT), Paawel <fonfastik at interia.pl> wrote:

>> >> Can you post your code in "input form"?
>
> Here it is(??)
>
> ---------------F1----------------
>
> Cell[BoxData[
>     StyleBox[
>       RowBox[{"F1", "=",
>         RowBox[{
>           RowBox[{
>             RowBox[{"-", "7.516"}], "*", " ",
>             RowBox[{"Exp", "[",
>               RowBox[{
>                 RowBox[{"-", "3.076"}], "*",
>                 RowBox[{"(",
>                   RowBox[{"r", "-", "1.184"}], ")"}]}], "]"}], "*",
>             RowBox[{"(",
>               RowBox[{"1", "-",
>                 RowBox[{"8.28", "*",
>                   SuperscriptBox["10",
>                     RowBox[{"-", "5"}]], "*",
>                   SuperscriptBox[
>                     RowBox[{"(",
>                       RowBox[{"180", " ", "-", " ", "f"}], ")"}],
>                     "2"]}]}], ")"}], "*",
>             SuperscriptBox["1", "0.5"]}], "+",
>           RowBox[{"3.758", "*",
>             RowBox[{"Exp", "[",
>               RowBox[{
>                 RowBox[{"-", "6.152"}], "*",
>                 RowBox[{"(",
>                   RowBox[{"r", "-", "1.184"}], ")"}]}], "]"}]}], "+",
>           "3.92"}]}],
>       "Text"]], "Input"]
>
> -----------------------F2---------------------------------
>
> Cell[BoxData[
>     RowBox[{"F2", "=",
>       RowBox[{
>         RowBox[{
>           RowBox[{"-", "0.958"}], "*", " ",
>           RowBox[{"Exp", "[",
>             RowBox[{
>               RowBox[{"-", "4.993"}], "*",
>               RowBox[{"(",
>                 RowBox[{"r", "-", "1.375"}], ")"}]}], "]"}], "*",
>           RowBox[{"(",
>             RowBox[{"1", "-",
>               RowBox[{"1.07", "*",
>                 SuperscriptBox["10",
>                   RowBox[{"-", "3"}]], "*",
>                 SuperscriptBox[
>                   RowBox[{"(",
>                     RowBox[{"133", " ", "-", " ", "f"}], ")"}],
>                   "2"]}]}], ")"}], "*",
>           SuperscriptBox["0.1", "0.5"]}], "+",
>         RowBox[{"0.479", "*",
>           RowBox[{"Exp", "[",
>             RowBox[{
>               RowBox[{"-", "9.986"}], "*",
>               RowBox[{"(",
>                 RowBox[{"r", "-", "1.375"}], ")"}]}], "]"}]}], "+",
>         "0.479"}]}]], "Input"]
>
>
>
>



-- 
DrBob at bigfoot.com


  • Prev by Date: runs test for evaluation of model fit
  • Next by Date: Re: Reducing binary representation
  • Previous by thread: Re: Crossing of 3D functions
  • Next by thread: Re: Crossing of 3D functions