Changeset 4849

Timestamp:

07/28/10 16:43:38 (15 years ago)

Author:

seroussi

Message:

some type in controlconvergence serial

File:

• issm/trunk/src/m/solutions/controlconvergence.m (modified) (1 diff)

issm/trunk/src/m/solutions/controlconvergence.m

@@ -12 +12 @@
                         if (fit(i)==fit(n)),
                                 %convergence test only if we have the same misfits
-                                if ((c(i).J-c(n).J)/c(n).J <= eps_cm),
+                                if ((J(i)-J(n))/J(n) <= eps_cm),
                                         %convergence if convergence criteria fullfilled
                                         convergence=true;
-                                        displaystring(verbose,'\n%s%g%s%g\n','      Convergence criterion: dJ/J = ',(c(i).J-c(n).J)/c(n).J,'<',eps_cm);
+                                        displaystring('\n%s%g%s%g\n','      Convergence criterion: dJ/J = ',(J(i)-J(n))/J(n),'<',eps_cm);
                                 else
-                                        displaystring(verbose,'\n%s%g%s%g\n','      Convergence criterion: dJ/J = ',(c(i).J-c(n).J)/c(n).J,'>',eps_cm);
+                                        displaystring('\n%s%g%s%g\n','      Convergence criterion: dJ/J = ',(J(i)-J(n))/J(n),'>',eps_cm);
                                 end
                                 break;