Derivative of an interpolated function












5












$begingroup$


I am trying to take the derivative of an interpolated function. I am given the function values and the derivatives at some irregular points. Here is my minimal working example to reproduce the error:



i = Interpolation[Table[{{2 t}, Sin[t], Cos[t]}, {t, 0, 4, 0.01}]]
Plot[i[t], {t, 0, 4}]


The plot looks fine



Plot[i'[t], {t, 0, 4}]


while the derivative is not ok



Apparently the interpolation is working, but not the derivative. Is there something I am doing wrong or is this a bug?










share|improve this question







New contributor




fuerstmyschkin is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







$endgroup$

















    5












    $begingroup$


    I am trying to take the derivative of an interpolated function. I am given the function values and the derivatives at some irregular points. Here is my minimal working example to reproduce the error:



    i = Interpolation[Table[{{2 t}, Sin[t], Cos[t]}, {t, 0, 4, 0.01}]]
    Plot[i[t], {t, 0, 4}]


    The plot looks fine



    Plot[i'[t], {t, 0, 4}]


    while the derivative is not ok



    Apparently the interpolation is working, but not the derivative. Is there something I am doing wrong or is this a bug?










    share|improve this question







    New contributor




    fuerstmyschkin is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
    Check out our Code of Conduct.







    $endgroup$















      5












      5








      5





      $begingroup$


      I am trying to take the derivative of an interpolated function. I am given the function values and the derivatives at some irregular points. Here is my minimal working example to reproduce the error:



      i = Interpolation[Table[{{2 t}, Sin[t], Cos[t]}, {t, 0, 4, 0.01}]]
      Plot[i[t], {t, 0, 4}]


      The plot looks fine



      Plot[i'[t], {t, 0, 4}]


      while the derivative is not ok



      Apparently the interpolation is working, but not the derivative. Is there something I am doing wrong or is this a bug?










      share|improve this question







      New contributor




      fuerstmyschkin is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.







      $endgroup$




      I am trying to take the derivative of an interpolated function. I am given the function values and the derivatives at some irregular points. Here is my minimal working example to reproduce the error:



      i = Interpolation[Table[{{2 t}, Sin[t], Cos[t]}, {t, 0, 4, 0.01}]]
      Plot[i[t], {t, 0, 4}]


      The plot looks fine



      Plot[i'[t], {t, 0, 4}]


      while the derivative is not ok



      Apparently the interpolation is working, but not the derivative. Is there something I am doing wrong or is this a bug?







      calculus-and-analysis interpolation






      share|improve this question







      New contributor




      fuerstmyschkin is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.











      share|improve this question







      New contributor




      fuerstmyschkin is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      share|improve this question




      share|improve this question






      New contributor




      fuerstmyschkin is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      asked 8 hours ago









      fuerstmyschkinfuerstmyschkin

      282




      282




      New contributor




      fuerstmyschkin is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.





      New contributor





      fuerstmyschkin is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.






      fuerstmyschkin is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.






















          2 Answers
          2






          active

          oldest

          votes


















          6












          $begingroup$

          Remember the chain rule. You feed Interpolation with very contradictory information: The first derivative does not fit the parameterization of the curve.



          This works better:



          i = Interpolation[Table[{{2 t}, Sin[t], 1/2 Cos[t]}, {t, 0., 4., 0.01}]];
          GraphicsRow[{
          Plot[i[t], {t, 0, 4}],
          Plot[i'[t], {t, 0, 4}]
          }]


          enter image description here



          Alternatively, you may use



          i = Interpolation[Table[{{t}, Sin[t], Cos[t]}, {t, 0., 4., 0.01}]];





          share|improve this answer











          $endgroup$













          • $begingroup$
            Nice, but isn't N redundant here? {t, 0., 4., 0.01} should be enough?
            $endgroup$
            – Mr.Wizard
            5 hours ago










          • $begingroup$
            @Mr.Wizard Of course you're right. I removed it.
            $endgroup$
            – Henrik Schumacher
            3 hours ago



















          5












          $begingroup$

          There is no error.



          Given



          f = Interpolation[Table[{{2 t}, Sin[t], Cos[t]}, {t, 0, 4, 0.01}]]


          when you make the plot



          Plot[f[t], {t, 0, 8}]


          plot_1



          it looks like a nice smooth curve which should have a smooth derivative, but if you plot a small section of the domain, like this



          Plot[f[t], {t, 0, .1}]


          plot_2



          you see it is actually highly oscillatory, which explains your derivative plot.






          share|improve this answer









          $endgroup$













            Your Answer





            StackExchange.ifUsing("editor", function () {
            return StackExchange.using("mathjaxEditing", function () {
            StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
            StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
            });
            });
            }, "mathjax-editing");

            StackExchange.ready(function() {
            var channelOptions = {
            tags: "".split(" "),
            id: "387"
            };
            initTagRenderer("".split(" "), "".split(" "), channelOptions);

            StackExchange.using("externalEditor", function() {
            // Have to fire editor after snippets, if snippets enabled
            if (StackExchange.settings.snippets.snippetsEnabled) {
            StackExchange.using("snippets", function() {
            createEditor();
            });
            }
            else {
            createEditor();
            }
            });

            function createEditor() {
            StackExchange.prepareEditor({
            heartbeatType: 'answer',
            autoActivateHeartbeat: false,
            convertImagesToLinks: false,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: null,
            bindNavPrevention: true,
            postfix: "",
            imageUploader: {
            brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
            contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
            allowUrls: true
            },
            onDemand: true,
            discardSelector: ".discard-answer"
            ,immediatelyShowMarkdownHelp:true
            });


            }
            });






            fuerstmyschkin is a new contributor. Be nice, and check out our Code of Conduct.










            draft saved

            draft discarded


















            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f193578%2fderivative-of-an-interpolated-function%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown

























            2 Answers
            2






            active

            oldest

            votes








            2 Answers
            2






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            6












            $begingroup$

            Remember the chain rule. You feed Interpolation with very contradictory information: The first derivative does not fit the parameterization of the curve.



            This works better:



            i = Interpolation[Table[{{2 t}, Sin[t], 1/2 Cos[t]}, {t, 0., 4., 0.01}]];
            GraphicsRow[{
            Plot[i[t], {t, 0, 4}],
            Plot[i'[t], {t, 0, 4}]
            }]


            enter image description here



            Alternatively, you may use



            i = Interpolation[Table[{{t}, Sin[t], Cos[t]}, {t, 0., 4., 0.01}]];





            share|improve this answer











            $endgroup$













            • $begingroup$
              Nice, but isn't N redundant here? {t, 0., 4., 0.01} should be enough?
              $endgroup$
              – Mr.Wizard
              5 hours ago










            • $begingroup$
              @Mr.Wizard Of course you're right. I removed it.
              $endgroup$
              – Henrik Schumacher
              3 hours ago
















            6












            $begingroup$

            Remember the chain rule. You feed Interpolation with very contradictory information: The first derivative does not fit the parameterization of the curve.



            This works better:



            i = Interpolation[Table[{{2 t}, Sin[t], 1/2 Cos[t]}, {t, 0., 4., 0.01}]];
            GraphicsRow[{
            Plot[i[t], {t, 0, 4}],
            Plot[i'[t], {t, 0, 4}]
            }]


            enter image description here



            Alternatively, you may use



            i = Interpolation[Table[{{t}, Sin[t], Cos[t]}, {t, 0., 4., 0.01}]];





            share|improve this answer











            $endgroup$













            • $begingroup$
              Nice, but isn't N redundant here? {t, 0., 4., 0.01} should be enough?
              $endgroup$
              – Mr.Wizard
              5 hours ago










            • $begingroup$
              @Mr.Wizard Of course you're right. I removed it.
              $endgroup$
              – Henrik Schumacher
              3 hours ago














            6












            6








            6





            $begingroup$

            Remember the chain rule. You feed Interpolation with very contradictory information: The first derivative does not fit the parameterization of the curve.



            This works better:



            i = Interpolation[Table[{{2 t}, Sin[t], 1/2 Cos[t]}, {t, 0., 4., 0.01}]];
            GraphicsRow[{
            Plot[i[t], {t, 0, 4}],
            Plot[i'[t], {t, 0, 4}]
            }]


            enter image description here



            Alternatively, you may use



            i = Interpolation[Table[{{t}, Sin[t], Cos[t]}, {t, 0., 4., 0.01}]];





            share|improve this answer











            $endgroup$



            Remember the chain rule. You feed Interpolation with very contradictory information: The first derivative does not fit the parameterization of the curve.



            This works better:



            i = Interpolation[Table[{{2 t}, Sin[t], 1/2 Cos[t]}, {t, 0., 4., 0.01}]];
            GraphicsRow[{
            Plot[i[t], {t, 0, 4}],
            Plot[i'[t], {t, 0, 4}]
            }]


            enter image description here



            Alternatively, you may use



            i = Interpolation[Table[{{t}, Sin[t], Cos[t]}, {t, 0., 4., 0.01}]];






            share|improve this answer














            share|improve this answer



            share|improve this answer








            edited 3 hours ago

























            answered 7 hours ago









            Henrik SchumacherHenrik Schumacher

            57k577157




            57k577157












            • $begingroup$
              Nice, but isn't N redundant here? {t, 0., 4., 0.01} should be enough?
              $endgroup$
              – Mr.Wizard
              5 hours ago










            • $begingroup$
              @Mr.Wizard Of course you're right. I removed it.
              $endgroup$
              – Henrik Schumacher
              3 hours ago


















            • $begingroup$
              Nice, but isn't N redundant here? {t, 0., 4., 0.01} should be enough?
              $endgroup$
              – Mr.Wizard
              5 hours ago










            • $begingroup$
              @Mr.Wizard Of course you're right. I removed it.
              $endgroup$
              – Henrik Schumacher
              3 hours ago
















            $begingroup$
            Nice, but isn't N redundant here? {t, 0., 4., 0.01} should be enough?
            $endgroup$
            – Mr.Wizard
            5 hours ago




            $begingroup$
            Nice, but isn't N redundant here? {t, 0., 4., 0.01} should be enough?
            $endgroup$
            – Mr.Wizard
            5 hours ago












            $begingroup$
            @Mr.Wizard Of course you're right. I removed it.
            $endgroup$
            – Henrik Schumacher
            3 hours ago




            $begingroup$
            @Mr.Wizard Of course you're right. I removed it.
            $endgroup$
            – Henrik Schumacher
            3 hours ago











            5












            $begingroup$

            There is no error.



            Given



            f = Interpolation[Table[{{2 t}, Sin[t], Cos[t]}, {t, 0, 4, 0.01}]]


            when you make the plot



            Plot[f[t], {t, 0, 8}]


            plot_1



            it looks like a nice smooth curve which should have a smooth derivative, but if you plot a small section of the domain, like this



            Plot[f[t], {t, 0, .1}]


            plot_2



            you see it is actually highly oscillatory, which explains your derivative plot.






            share|improve this answer









            $endgroup$


















              5












              $begingroup$

              There is no error.



              Given



              f = Interpolation[Table[{{2 t}, Sin[t], Cos[t]}, {t, 0, 4, 0.01}]]


              when you make the plot



              Plot[f[t], {t, 0, 8}]


              plot_1



              it looks like a nice smooth curve which should have a smooth derivative, but if you plot a small section of the domain, like this



              Plot[f[t], {t, 0, .1}]


              plot_2



              you see it is actually highly oscillatory, which explains your derivative plot.






              share|improve this answer









              $endgroup$
















                5












                5








                5





                $begingroup$

                There is no error.



                Given



                f = Interpolation[Table[{{2 t}, Sin[t], Cos[t]}, {t, 0, 4, 0.01}]]


                when you make the plot



                Plot[f[t], {t, 0, 8}]


                plot_1



                it looks like a nice smooth curve which should have a smooth derivative, but if you plot a small section of the domain, like this



                Plot[f[t], {t, 0, .1}]


                plot_2



                you see it is actually highly oscillatory, which explains your derivative plot.






                share|improve this answer









                $endgroup$



                There is no error.



                Given



                f = Interpolation[Table[{{2 t}, Sin[t], Cos[t]}, {t, 0, 4, 0.01}]]


                when you make the plot



                Plot[f[t], {t, 0, 8}]


                plot_1



                it looks like a nice smooth curve which should have a smooth derivative, but if you plot a small section of the domain, like this



                Plot[f[t], {t, 0, .1}]


                plot_2



                you see it is actually highly oscillatory, which explains your derivative plot.







                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered 7 hours ago









                m_goldbergm_goldberg

                87.6k872198




                87.6k872198






















                    fuerstmyschkin is a new contributor. Be nice, and check out our Code of Conduct.










                    draft saved

                    draft discarded


















                    fuerstmyschkin is a new contributor. Be nice, and check out our Code of Conduct.













                    fuerstmyschkin is a new contributor. Be nice, and check out our Code of Conduct.












                    fuerstmyschkin is a new contributor. Be nice, and check out our Code of Conduct.
















                    Thanks for contributing an answer to Mathematica Stack Exchange!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid



                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.


                    Use MathJax to format equations. MathJax reference.


                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function () {
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f193578%2fderivative-of-an-interpolated-function%23new-answer', 'question_page');
                    }
                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    Popular posts from this blog

                    How to make a Squid Proxy server?

                    第一次世界大戦

                    Touch on Surface Book