UVSetIrisLevel.m

function UVSetIrisLevel(serial_obj,n)
    %where n is a number between 1 and 95
    
    SIL = {'SIL1D9','SIL23B','SIL365','SIL4E6','SIL5B8','SIL65A','SIL704',...
        'SIL845','SIL91B','SIL1075','SIL112B','SIL12C9','SIL1397','SIL1414',...
        'SIL154A','SIL16A8','SIL17F6','SIL18B7','SIL19E9','SIL2020','SIL217E',...
        'SIL229C','SIL23C2','SIL2441','SIL251F','SIL26FD','SIL27A3','SIL28E2',...
        'SIL29BC','SIL30E4','SIL31BA','SIL3258','SIL3306','SIL3485','SIL35DB',...
        'SIL3639','SIL3767','SIL3826','SIL3978','SIL408A','SIL41D4','SIL4236',...
        'SIL4368','SIL44EB','SIL45B5','SIL4657','SIL4709','SIL4848','SIL4916',...
        'SIL504E','SIL5110','SIL52F2','SIL53AC','SIL542F','SIL5571','SIL5693',...
        'SIL57CD','SIL588C','SIL59D2','SIL601B','SIL6145','SIL62A7','SIL63F9',...
        'SIL647A','SIL6524','SIL66C6','SIL6798','SIL68D9','SIL6987','SIL70DF',...
        'SIL7181','SIL7263','SIL733D','SIL74BE','SIL75E0','SIL7602','SIL775C',...
        'SIL781D','SIL7943','SIL80C7','SIL8199','SIL827B','SIL8325','SIL84A6',...
        'SIL85F8','SIL861A','SIL8744','SIL8805','SIL895B','SIL9003','SIL915D',...
        'SIL92BF','SIL93E1','SIL9462','SIL953C'};
    
    fprintf(serial_obj,[SIL{n},char(13)]);
    
end