X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=legendre_p_tilde.m;h=3bb30be664003fcab28ca19259d7b8f4821f045b;hp=e5e6f63b39b929731c3c8281f59b4510fbbf494c;hb=d2a898d4e9937c00b1a81e35c0492a8ed80c8950;hpb=ee06b882dfb9a86788d7057cec8ca6d7680c5ca5

diff --git a/legendre_p_tilde.m b/legendre_p_tilde.m
index e5e6f63..3bb30be 100644
--- a/legendre_p_tilde.m
+++ b/legendre_p_tilde.m
@@ -1,24 +1,25 @@
 function P_tilde = legendre_p_tilde(n, a, b)
-  ## Return the nth Legendre polynomial scaled to the interval [a,b].
-  ##
-  ## INPUTS:
-  ##
-  ##   * ``n`` - The index of the polynomial that we want.
-  ##
-  ##   * ``a`` - The left endpoint of the interval.
-  ##
-  ##   * ``b`` - The right endpoint of the interval.
-  ##
-  ## OUTPUTS:
-  ##
-  ##   * ``P_tilde`` - A polynomial function of one argument.
-  ##
+  % Return the `n`th Legendre polynomial scaled to the interval [a,b].
+  %
+  % INPUT:
+  %
+  %   * ``n`` - The index of the polynomial that we want.
+  %
+  %   * ``a`` - The left endpoint of the interval.
+  %
+  %   * ``b`` - The right endpoint of the interval.
+  %
+  % OUTPUT:
+  %
+  %   * ``P_tilde`` - A polynomial function of one argument.
+  %
   if (n < 0)
-    ## Can't do anything here. Return nothing.
+    % Can't do anything here. Return nothing.
     P = NA;
   else
-    ## Compute the Legendre polynomial over [-1,1] and mangle it.
-    P = legendre_p(n)
-    P_tilde = @(x) P( (2/(b-a))*x + 1 - (2*b)/(b-a) )
+    % Compute the Legendre polynomial over [-1,1] and mangle it to fit
+    % the interval [a,b].
+    P = legendre_p(n);
+    P_tilde = @(x) P( (2/(b-a)).*x + 1 - (2*b)/(b-a) );
   end
 end