source: MML/trunk/mml/finddispquad.m @ 4

function QuadSP = finddispquad
%FINDDISPQUAD - Find the optimal setting for the dispersion correction quadrupole family
%  QuadSP = finddispquad
%
%  This function is under development


disp('This function is under construction (Greg Portmann).  ');
return

QuadSP0 = getsp('QFA');

% Get Dispersion
%[Dx,Dy] = getdisp;


i = 0; 
for qfa=[0 .2 .4 .6 .8 1 1.2 1.4 1.6 1.8 2]
  i = i+1;
  QFAnew = QuadSP0+qfa
  qfaam=setsp('QFA', QFAnew);
  sleep(2);
  [Dx(:,i),Dy(:,i)]=getdisp;
  x(:,i) = getx(1,BPMelem1278);
  QFA(:,i) = getsp('QFA');
  save qfaout x QFA Dx Dy
end


% Set QFA back to starting point
setsp('QFA', QuadSP0);


% Find LS fit to the line
%y=Dxmat; 
%X = [ones(max(size()),1) QFA'];
%b = inv(X'*X)*X'*y;
%QuadSP = -b(1)/b(2);

%QFA1 = linspace(QFA(1),QFA(max(size(QFA))),100);
%yfit = b(1) + b(2)*QFA1;

%figure
%plot(QFA1,yfit, QFA,y,'o'); grid on
%xlabel('RF Frequency [MHz]');
%ylabel('Dot product of Dx and Hor. Orbit');

%fprintf('\n\n                             Zero crossing of QFAF = %f [MHz]\n', rf0);

save qfadata

figure;
plot(QFA,Dx(BPMelem1278,:)); grid on
xlabel('QFA [Amps]');
ylabel('Dispersion');