Changeset 2978
- Timestamp:
- 02/08/10 08:53:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/m/solutions/jpl/convergence.m
r2330 r2978 45 45 %print criterion 46 46 if ~isnan(eps_rel), 47 if (ndu/nu<=eps_rel), 48 displaystring(verbose,'%-60s%g%s%g%s',' relative convergence criterion: norm(du)/norm(u)',ndu/nu*100,' < ',eps_rel*100,' %'); 47 if nu, %avoid "dividing by zero" warning 48 if (ndu/nu<=eps_rel), 49 displaystring(verbose,'%-60s%g%s%g%s',' relative convergence criterion: norm(du)/norm(u)',ndu/nu*100,' < ',eps_rel*100,' %'); 50 else 51 displaystring(verbose,'%-60s%g%s%g%s',' relative convergence criterion: norm(du)/norm(u)',ndu/nu*100,' > ',eps_rel*100,' %'); 52 converged=0; 53 end 49 54 else 50 displaystring(verbose,'%-60s%g%s%g%s',' relative convergence criterion: norm(du)/norm(u)',ndu/nu*100,' > ',eps_rel*100,' %');51 55 converged=0; 52 56 end 53 57 else 54 displaystring(verbose,'%-60s%g%s',' relative convergence criterion: norm(du)/norm(u)',ndu/nu*100,' %'); 58 if nu, %avoid "dividing by zero" warning 59 displaystring(verbose,'%-60s%g%s',' relative convergence criterion: norm(du)/norm(u)',ndu/nu*100,' %'); 60 end 55 61 end 56 62
Note:
See TracChangeset
for help on using the changeset viewer.