Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Simple question

• To: mathgroup@smc.vnet.net
• Subject: [mg11312] Re: [mg11239] Simple question
• From: Bob Hanlon <BobHanlon@aol.com>
• Date: Wed, 4 Mar 1998 01:40:15 -0500

FUNC[f_, n_Integer, p_, var_Symbol:x] := D[f, {var, n}] /. var -> p

FUNC[f[x], 3, 4, x]

\!\(\*
  RowBox[{
    SuperscriptBox["f", 
      TagBox[\((3)\),
        Derivative],
      MultilineFunction->None], "[", "4", "]"}]\)

FUNC[f[x], 3, 4]

\!\(\*
  RowBox[{
    SuperscriptBox["f", 
      TagBox[\((3)\),
        Derivative],
      MultilineFunction->None], "[", "4", "]"}]\)

FUNC[a*f[b*y], 3, 4, y]

\!\(\*
  RowBox[{"a", " ", \(b\^3\), " ", 
    RowBox[{
      SuperscriptBox["f", 
        TagBox[\((3)\),
          Derivative],
        MultilineFunction->None], "[", \(4\ b\), "]"}]}]\)

FUNC[f[g[z]], 3, 4, z]

\!\(\*
  RowBox[{
    RowBox[{"3", " ", 
      RowBox[{
        SuperscriptBox["g", "\[Prime]",
          MultilineFunction->None], "[", "4", "]"}], " ", 
      RowBox[{
        SuperscriptBox["f", "\[DoublePrime]",
          MultilineFunction->None], "[", \(g[4]\), "]"}], " ", 
      RowBox[{
        SuperscriptBox["g", "\[DoublePrime]",
          MultilineFunction->None], "[", "4", "]"}]}], "+", 
    RowBox[{
      SuperscriptBox[
        RowBox[{
          SuperscriptBox["g", "\[Prime]",
            MultilineFunction->None], "[", "4", "]"}], "3"], " ", 
      RowBox[{
        SuperscriptBox["f", 
          TagBox[\((3)\),
            Derivative],
          MultilineFunction->None], "[", \(g[4]\), "]"}]}], "+", 
    RowBox[{
      RowBox[{
        SuperscriptBox["f", "\[Prime]",
          MultilineFunction->None], "[", \(g[4]\), "]"}], " ", 
      RowBox[{
        SuperscriptBox["g", 
          TagBox[\((3)\),
            Derivative],
          MultilineFunction->None], "[", "4", "]"}]}]}]\)

Bob Hanlon