initialize_loop.m

% Use this script to set up from zero the recirculating loop
%   Copyright (c) 2018 Dario Pilori, Politecnico di Torino <d.pilori@inrim.it>
%   SPDX-License-Identifier: MIT
clear
close all
clc

global att l o a1 a2

%% Set up recirculating loop
tloop = 1.4682/299792458*25260*6;
l = RecirculatingLoop(9,8,tloop,5);
l.Initialize;
l.SelectLoop(0);
l.SetScramblerDelay(1e-6);

%% Set up OSA
o = OSA(23);

%% Set up attenuator
att = Attenuator('TCPIP0::ipq-sl-voa101::inst0::INSTR');

%% Set up amplifiers
a1 = gpib('ni',0,11);
a2 = gpib('ni',0,13);

%% Set up laser
laser = visa('agilent','TCPIP0::ipq-sl-laser110::inst0::INSTR');