setrframp2

 SETRFRAMP2 - Loads a new AC ramp the the RF voltage

  INPUTS
  1. AC ramp maximum between 0 and 5 in kV
        0 means 0 kV
        5 means mean 500 kV at maximum 

  NOTES
  1. do not forget the DC value which is added


  See Also getrframp2

0001 function setrampRF2(varargin)
0002 % SETRFRAMP2 - Loads a new AC ramp the the RF voltage
0003 %
0004 %  INPUTS
0005 %  1. AC ramp maximum between 0 and 5 in kV
0006 %        0 means 0 kV
0007 %        5 means mean 500 kV at maximum
0008 %
0009 %  NOTES
0010 %  1. do not forget the DC value which is added
0011 %
0012 %
0013 %  See Also getrframp2
0014 
0015 %
0016 %  Written by Laurent S. Nadolski
0017 
0018 DisplayFlag = 1;
0019 devName = 'BOO/RF/RAMPETENSION'; % Device avec controle 1er point = dernier point + refus ecrire Tension superieur à 8 kV
0020 
0021 for i = length(varargin):-1:1
0022     if strcmpi(varargin{i},'Display')
0023         DisplayFlag = 1;
0024         varargin(i) = [];
0025     elseif strcmpi(varargin{i},'NoDisplay')
0026         DisplayFlag = O;
0027         varargin(i) = [];
0028     elseif strcmpi(varargin{i},'NoArchive')
0029         ArchiveFlag = O;
0030         varargin(i) = [];
0031     elseif strcmpi(varargin{i},'Archive')
0032         ArchiveFlag = 1;
0033         varargin(i) = [];
0034     end
0035 end
0036 
0037 if isempty(varargin)
0038     disp('Missing factor exiting ...')
0039     return;
0040 else
0041     factor = varargin{1};
0042     if factor > 10
0043         error('Too large')
0044     end
0045 end
0046 
0047 rampe = getrframp('NoDisplay');
0048 
0049 figure
0050 
0051 plot(rampe*100)
0052 
0053 rampe2 = rampe/2;
0054 rampe2= rampe/max(rampe)*factor;
0055 
0056 hold on
0057 plot(rampe2*100,'r.')
0058 hold off
0059 legend('Old RF voltage Ramp','New RF voltage ramp')
0060 grid on
0061 ylabel('RF voltage (kV)');
0062 title('RF ramp')
0063 addlabel(1,0,sprintf('%s', datestr(clock)));
0064 
0065 
0066 reply = input('Do you want to apply this ramp? Y/N [N]: ','s');
0067 
0068 if isempty(reply)
0069     reply = 'N';
0070 end
0071 
0072 switch reply
0073     case 'Y'    
0074         % write the new ramp
0075         tango_command_inout2(devName, 'Stop');
0076         tango_write_attribute2(devName,'waveformData',rampe2)
0077         tango_command_inout2(devName, 'Start');
0078     otherwise
0079         disp('Ramp not applied')
0080 end
0081