minitial tune taken in account

esrf_matlab/movetune.m

@@ -102,11 +102,18 @@ allq_unsort = [iq;iq8;idq];
 % get order of quadrupoles components in lattice
 [allq,iqa] = sort(allq_unsort); 
 
+% get lattice with initial tunes
+latinitunes=ebs.model(latmodel);%,'reduce',true);
+latinitunes.settune(Q0,tunemode);
+
+% get lattice with final tunes
 latnewtunes=ebs.model(latmodel);%,'reduce',true);
 latnewtunes.settune(Q1,tunemode);
-DGL_=latnewtunes.get(1,'qp') - latmodel.get(1,'qp');
-D8GL=latnewtunes.get(1,'qf8d') - latmodel.get(1,'qf8d');
-DqGL=latnewtunes.get(1,'dq') - latmodel.get(1,'dq');
+
+% compute difference in gradients
+DGL_=latnewtunes.get(1,'qp') - latinitunes.get(1,'qp');
+D8GL=latnewtunes.get(1,'qf8d') - latinitunes.get(1,'qf8d');
+DqGL=latnewtunes.get(1,'dq') - latinitunes.get(1,'dq');
 DGL=[DGL_; D8GL; DqGL];
 
 q_group = NaN(size(allq));