Mathematica 9 is now available
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: 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"]


  • Prev by Date: Best way to maximize over a discrete space?
  • Next by Date: Re: Modifying displayed form of an expression?
  • Previous by thread: Re: Re: Crossing of 3D functions
  • Next by thread: Re: Re: Crossing of 3D functions