Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Crossing of 3D functions

• To: mathgroup at smc.vnet.net
• Subject: [mg57161] Re: Crossing of 3D functions
• From: fonfastik at interia.pl (Paawel)
• Date: Thu, 19 May 2005 03:08:49 -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>
• Sender: owner-wri-mathgroup at wolfram.com

> >> 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"]

• Follow-Ups:
  • Re: Re: Crossing of 3D functions
    • From: DrBob <drbob@bigfoot.com>

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