]> gitweb.michael.orlitzky.com - octave.git/blobdiff - optimization/test_functions/trigonometric_gradient1.m
Replace ##-style comments with %-style comments in all non-test code.
[octave.git] / optimization / test_functions / trigonometric_gradient1.m
index 134ce8699bebb2f850f427df344a56b6f086d14f..845dc3290d41fd1fab2efcf87ab163d3e88233c4 100644 (file)
@@ -1,8 +1,8 @@
 function g = trigonometric_gradient1(x)
-  ##
-  ## The gradient of the trigonometric function. See trigonometric1.m
-  ## for more information.
-  ##
+  %
+  % The gradient of the trigonometric function. See trigonometric1.m
+  % for more information.
+  %
   n  = length(x);
   g  = zeros(n,1);
 
@@ -12,13 +12,13 @@ function g = trigonometric_gradient1(x)
     f_k = n - cos_sum + k*(1 - cos(x(k))) - sin(x(k));
 
     for j = [ 1 : n ]
-      ## Add to the jth component of g the partial of f^2 with
-      ## respect to x(j). The first term that we add here exists
-      ## regardless of j.
+      % Add to the jth component of g the partial of f^2 with
+      % respect to x(j). The first term that we add here exists
+      % regardless of j.
       g(j) = g(j) + 2*f_k*sin(x(j));
 
       if (j == k)
-       ## But this term vanishes when j != k.
+       % But this term vanishes when j != k.
        g(j) = g(j) + 2*f_k*k*sin(x(k)) - 2*f_k*cos(x(k));
       end
     end