α-wwwiki

user:none (1485 bytes)

_h2 differential (& [[derivee]], [[curry]])
_p Compute the cubic function and the derivees upto 4 at x =1,2,3

_h4 1) define

{pre °°
{define compute (x) ••
   var D = function (f) {
     return function (x) {
       var res = ( f(x+0.01) - f(x-0.01) )/(2*0.01);
       return (Math.abs(res)< 0.001)? 0 : res;
     };
   };

var cubic = function (x) { return x*x*x; };

x = parseFloat(x);
   var str =  'f('+x+') = ' + cubic(x)
           + '\nd1f('+x+')/dx1 = ' + (D(cubic))(x)
           + '\nd2f('+x+')/dx2 = ' + (D(D(cubic)))(x)
           + '\nd3f('+x+')/dx3 = ' + (D(D(D(cubic))))(x)
           + '\nd4f('+x+')/dx4 = ' + (D(D(D(D(cubic)))))(x);
   return '{pre ' + str + '}';
••}
°°} -> {define compute (x) °°
   var D = function (f) {
     return function (x) {
       var res = ( f(x+0.01) - f(x-0.01) )/(2*0.01);
       return (Math.abs(res)< 0.001)? 0 : res;
     };
   };
   var cubic = function (x) { return x*x*x; };
   x = parseFloat(x);
   var str =  'f('+x+') = ' + cubic(x)
           + '\nd1f('+x+')/dx1 = ' + (D(cubic))(x)
           + '\nd2f('+x+')/dx2 = ' + (D(D(cubic)))(x)
           + '\nd3f('+x+')/dx3 = ' + (D(D(D(cubic))))(x)
           + '\nd4f('+x+')/dx4 = ' + (D(D(D(D(cubic)))))(x);
   return '{pre ' + str + '}';
°°}

_h4 2) compute
{b °°{compute 1}°°} -> {compute 1}

{b °°{compute 2}°°} -> {compute 2}

{b °°{compute 3}°°} -> {compute 3}