Mercurial > hg > octave-avbm

comparison scripts/control/util/axis2dlim.m @ 6518:952c8b00525e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-04-11 20:50:22 by jwe]
author jwe
date Wed, 11 Apr 2007 20:50:23 +0000
parents 99489e2ffbd4
children 43fc02d57862
comparison
equal deleted inserted replaced
6517:a1ec359aef37 6518:952c8b00525e
57 if(midv(2) != 0) 57 if(midv(2) != 0)
58 axdel(3:4) = [-0.1*midv(2),0.1*midv(2)]; 58 axdel(3:4) = [-0.1*midv(2),0.1*midv(2)];
59 endif 59 endif
60 else 60 else
61 ## they're at least one-dimensional 61 ## they're at least one-dimensional
62 tolv = max(1e-8, 1e-8*abs(midv));
63 if(abs(delv(1)) >= tolv(1))
62 if(delv(1) != 0) 64 if(delv(1) != 0)
63 axdel(1:2) = 1.1*[-delv(1),delv(1)]; 65 axdel(1:2) = 1.1*[-delv(1),delv(1)];
64 endif 66 endif
65 if(delv(2) != 0) 67 if(abs(delv(2)) >= tolv(2))
66 axdel(3:4) = 1.1*[-delv(2),delv(2)]; 68 axdel(3:4) = 1.1*[-delv(2),delv(2)];
67 endif 69 endif
68 endif 70 endif
69 axvec = axmid + axdel; 71 axvec = axmid + axdel;
70 endfunction 72 endfunction