0001 function setrampRF2(varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018 DisplayFlag = 1;
0019 devName = 'BOO/RF/RAMPETENSION';
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
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