Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Re: Crossing of 3D functions

• To: mathgroup at smc.vnet.net
• Subject: [mg57187] Re: [mg57161] Re: Crossing of 3D functions
• From: DrBob <drbob at bigfoot.com>
• Date: Fri, 20 May 2005 04:43:20 -0400 (EDT)
• References: <200505110925.FAA24136@smc.vnet.net> <d5uu43$90b$1@smc.vnet.net> <200505161106.HAA09312@smc.vnet.net> <d6bi29$mno$1@smc.vnet.net> <200505190708.DAA13139@smc.vnet.net>
• Reply-to: drbob at bigfoot.com
• Sender: owner-wri-mathgroup at wolfram.com

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

• References:
  • Crossing of 3D functions
    • From: fonfastik@interia.pl (Paawel)
  • Re: Crossing of 3D functions
    • From: fonfastik@interia.pl (Paawel)
  • Re: Crossing of 3D functions
    • From: fonfastik@interia.pl (Paawel)