;-----------------------------------------------------------------------------
; timing.in
; David Boozer
; 03 May 2006
;-----------------------------------------------------------------------------
; to load these pulses into ADwin box:
;   type "C:\ADwin\ADbasic3\Inc>pulse-new timing.in" in DOS 
;   run ADbasic, open "C:\ADwin\ADbasic3\Programs\pulses.bas",
;   press B to reboot then C to compile
;
; all times are in units of ms
;-----------------------------------------------------------------------------
; Command syntax:
;
; <cmd> --> p<name> : <cmd>
;       --> invert <digital channel>
;       --> define t<name> <time>
;       --> define c<name> <int>
;       --> define a<name> <int>
;       --> begin_comment <cmds> end_comment
;       --> [<time>, <time>] <digital channel>
;       --> <time> aout <analog channel> > <float>
;       --> <time> inline ' <string> '
;       --> <time> loop <int> { <cmds> }
;
; <time> --> <time> + <time>
;        --> <time> - <time>
;        --> ( <time> )
;        --> start( p<name> )
;        --> stop( p<name> )
;        --> t<name>
;        --> <float>
;
; <digial channel> --> c<name>
;                  --> <int>
;
; <analog channel> --> a<name>
;                  --> <int>
;
;-----------------------------------------------------------------------------
; Parameters for 16 June 2006 experiments
;
; Optical powers and frequencies:
;
; FORT power: 0.95 mW
; Raman power: 140 uW in each beam
;
; 4-4' lattice power (pump setting): 150 mV
; 4-4' lattice detuning (pump setting): +10.0 MHz
;
; 3-3' lattice power (pump setting): 150 mV
; 3-3' lattice detuning (pump setting): +10.0 MHz
;
; 3-3' side light is polarized along cavity axis
; 4-4' side light is vertically polarized
;
; 3-3' side power: 1 uW
; 3-3' side detuning: 0.0 MHz
;
; 4-4' side power: 1 uW
; 4-4' side detuning: 0.0 MHz
;
; Magnetic field null:
;
; 1 > -1.025 ; z axial (.5 A/V)
; 2 > -2.00 ; x fed-from-above (0.5 A/V)
; 3 > -4.75 ; y fed-from-below (1 A/V)
;-----------------------------------------------------------------------------

;-----------------------------------------------------------------------------
; define channels
;-----------------------------------------------------------------------------

define c_umot_bfield 0     ; ok H/L --> field on/off
define c_lmot_bfield 4     ; ok H/L --> field on/off

define c_45_mot 3          ; ok H/L --> 4-5' mot light on/off
define c_mot_frequency 1   ; ok H/L --> 4-5' mot light pgc/doppler frequency
define c_mot_intensity 2   ; ok H/L --> 4-5' mot light pgc/doppler intensity

define c_probe 5           ; ok H/L --> cavity probe on/off

define c_44_load 6         ; ok H/L --> 4-4' load light on/off
define c_44_pump 7         ; ok H/L --> 4-4' pump light on/off

define c_33_pump 8         ; ok H/L --> 3-3' pumping light on/off
define c_33_load 9         ; ok H/L --> 3-3' loading light on/off
define c_33_mot 10         ; ok H/L --> 3-3' mot light on/off

define c_44_side 21        ; ok H/L --> 4-4' side light on/off
define c_33_side 19        ; ok H/L --> 3-3' side light on/off

define c_oldraman_blue 17  ; ok H/L --> blue/red Raman frequency
define c_oldraman_cool 14  ; ok H/L --> cool/red Raman frequency
define c_oldraman_heat 20  ; ok H/L --> heat/red Raman frequency

define c_newraman_on 18    ; ok H/L --> Raman pair resonant/detuned
define c_newraman_shutter 30    ; H/L --> Shutter on/off new raman

define c_card_trig 12      ; ok downgoing edge triggers APD card



;define c_srs 16           ; ttl for srs triggering 

;define c_d1 28            ; 3-4' light on D1 line
;define c_srs  29
define c_43_probe 13

define c_channel_c 15      ; rising edge goes to channel C of counting card 
define c_tag 27            ; falling edge goes to channel D of counting card

;-----------------------------------------------------------------------------
; invert channels
;-----------------------------------------------------------------------------

invert c_45_mot
invert c_umot_bfield
invert c_mot_frequency

invert c_33_pump
invert c_33_load
invert c_33_mot

invert c_44_load
invert c_44_pump

invert c_oldraman_blue
invert c_newraman_on

invert c_tag
;invert c_srs

;-----------------------------------------------------------------------------
; define times
;-----------------------------------------------------------------------------

define t_umot_pgc_start     150.0
define t_umot_pgc_stop      t_umot_pgc_start + 10.0

define t_lmot_catch         t_umot_pgc_stop + 180.0
define t_lmot_pgc_start     t_lmot_catch + 150.0
define t_lmot_pgc_stop      t_lmot_pgc_start + 10.0

define t_load_start         t_lmot_pgc_stop + 30.0
define t_load_end           t_load_start + 5.0

;-----------------------------------------------------------------------------
; pulse sequence
;-----------------------------------------------------------------------------

begin_comment

; c_oldraman_blue (red sideband)
0.0 inline 'text = "cfrq:value 85.000 MHz"'
0.0 inline 'serial_out (9)'
0.0 inline 'text = "cfrq:inc 25.0 kHz"'
0.0 inline 'serial_out (9)'

; c_oldraman_heat (blue sideband)
0.0 inline 'text = "cfrq:value 85.000 MHz"'
0.0 inline 'serial_out (10)'
0.0 inline 'text = "cfrq:inc 25.0 kHz"'
0.0 inline 'serial_out (10)'

end_comment



begin_comment

; c_oldraman_blue (red sideband)
0.0 inline 'text = "cfrq:value 85.300 MHz"'
0.0 inline 'serial_out (9)'
0.0 inline 'text = "cfrq:inc 10.0 kHz"'
0.0 inline 'serial_out (9)'

; c_oldraman_heat (blue sideband)
0.0 inline 'text = "cfrq:value 85.300 MHz"'
0.0 inline 'serial_out (10)'
0.0 inline 'text = "cfrq:inc 10.0 kHz"'
0.0 inline 'serial_out (10)'

end_comment



1.0 loop 21 {

; set bias coil currents for lower mot loading
0.0 aout 1 > -1.66 ; z axial (0.5 A/V)
0.0 aout 2 > -5.68 ; x fed-from-above (0.5 A/V)
0.0 aout 3 > -6.16 ; y fed-from-below (1 A/V)

; load upper mot
[0.0, t_umot_pgc_start] c_umot_bfield
[0.0, t_umot_pgc_stop] c_45_mot
[0.0, t_umot_pgc_stop] c_33_mot

; open MOT repumper shutter
;[0.0, t_load_end] c_33_shutter

; pg cool atoms in upper mot
[t_umot_pgc_start, t_umot_pgc_stop] c_mot_intensity
[t_umot_pgc_start, t_umot_pgc_stop] c_mot_frequency

; catch atoms in lower mot
[t_lmot_catch, t_lmot_pgc_start-5.0] c_lmot_bfield
[t_lmot_catch, t_lmot_pgc_start-5.0] c_45_mot
[t_lmot_catch, t_lmot_pgc_start-5.0] c_33_mot

; pg cool atoms in lower mot
[t_lmot_pgc_start, t_lmot_pgc_stop] c_45_mot
[t_lmot_pgc_start, t_lmot_pgc_stop] c_33_mot
[t_lmot_pgc_start, t_lmot_pgc_stop] c_mot_intensity
[t_lmot_pgc_start, t_lmot_pgc_stop] c_mot_frequency

; load an atom into the FORT using 33 and 44 lattice light
[t_load_start, t_load_end] c_44_load ; cavity on 45 or 43
;[t_load_start, t_load_end] c_probe ; cavity on 44
[t_load_start, t_load_end] c_33_load

; set bias coil currents for Raman transitions
;t_load_end+5.0 aout 1 > -1.55 ; z axial (null) (.5 A/V)
t_load_end+5.0 aout 1 > -1.55 ; z axial (.5 A/V) 
t_load_end+5.0 aout 2 > -3.50 ; x fed-from-above (0.5 A/V)
;t_load_end+5.0 aout 2 > 0.00 ; x fed-from-above (0.5 A/V)
t_load_end+5.0 aout 3 > -3.75 ; y fed-from-below (1 A/V)

; trigger photon counting card with downgoing edge
p_trigger_card:
[t_load_end+14.0, t_load_end+15.0] c_card_trig

; see if we have an atom
[t_load_end+15.0, t_load_end+15.1] c_probe
[t_load_end+15.0, t_load_end+15.1] c_33_pump ; bypassing VCA
;[t_load_end+14.0, t_load_end+14.1] c_43_probe

;[t_load_end+16.0, t_load_end+16.5] c_44_pump
;[t_load_end+15.0, t_load_end+16.0] c_srs

; tag atom
t_load_end+15.2 inline 'n_pulses(i,11)'

;-----------------------------------------------------------------------------
; cavity on 4-4', drive from side with resonant 4-4'
;-----------------------------------------------------------------------------

begin_comment

define t_start t_load_end+20.0

p_cycle:
t_start loop 100 {

[0.000,0.001] c_channel_d

; pump the atom to F=4

p_pump_to_3:
0.005 loop 10 {
[0.000,0.001] c_33_load
[0.001,0.002] c_33_side
}

define t_ready_a stop(p_pump_to_3)+0.001

[t_ready_a+0.000,t_ready_a+0.100] c_44_pump

; pump the atom to F=4

p_pump_to_4:
t_ready_a+0.105 loop 10 {
[0.000,0.001] c_33_load
[0.001,0.002] c_33_side
}

define t_ready_b stop(p_pump_to_4)+0.001

[t_ready_b+0.000,t_ready_b+0.010] c_probe
[t_ready_b+0.050,t_ready_b+0.150] c_44_pump

}

define t_atom_detect stop(p_cycle)+20.0;

[t_atom_detect+0.0, t_atom_detect+0.001] c_channel_d;

[t_atom_detect, t_atom_detect+50.0] c_probe
[t_atom_detect, t_atom_detect+50.0] c_33_pump

end_comment

;-----------------------------------------------------------------------------
; optical pumping with cavity on 4-3'
;-----------------------------------------------------------------------------

begin_comment

define t_start t_load_end+20.0

p_cycle:
t_start loop 1000 {

; pump the atom to F=3

[0.000,0.001] c_channel_d

p_pump_to_3:
0.002 loop 10 {
[0.000,0.001] c_44_load
[0.001,0.002] c_44_side
}

define t_ready_a stop(p_pump_to_3)+0.001

[t_ready_a+0.000,t_ready_a+0.005] c_33_load

p_pump_to_4:
t_ready_a+0.010 loop 10 {
[0.000,0.001] c_33_load
[0.001,0.002] c_33_side
}

define t_ready_b stop(p_pump_to_4)+0.001

[t_ready_b+0.000,t_ready_b+0.0125] c_43_probe
[t_ready_b+0.025,t_ready_b+0.030] c_33_load

}

define t_atom_detect stop(p_cycle)+20.0;

[t_atom_detect+0.0, t_atom_detect+0.0001] c_channel_d;

p_atom_detect:
t_atom_detect+0.0002 loop 10000 {
[0.000,0.001] c_33_load
[0.001,0.002] c_44_pump
}

define t_delay stop(p_atom_detect)+0.001;

[t_delay+1.0, t_delay+31.0] c_33_load;

end_comment


;-----------------------------------------------------------------------------
; optical pumping via cavity experiment
;-----------------------------------------------------------------------------

begin_comment

p_cycle:
t_load_end+16.0 loop 250 {

; pump atom to F=4

p_pump_to_4:
0.0 loop 10 {
[0.000,0.001] c_33_pump
[0.001,0.002] c_33_side
}

define t_ready stop(p_pump_to_4)+0.001;

; probe atom with 4-4' light

[t_ready,t_ready+0.001] c_channel_d
[t_ready+0.000,t_ready+0.002] c_probe
[t_ready+0.003,t_ready+0.005] c_44_side
[t_ready+0.006,t_ready+0.008] c_probe
[t_ready+0.009,t_ready+0.011] c_44_side
[t_ready+0.012,t_ready+0.014] c_probe
[t_ready+0.015,t_ready+0.017] c_44_side
[t_ready+0.018,t_ready+0.020] c_probe
[t_ready+0.021,t_ready+0.023] c_44_side
[t_ready+0.024,t_ready+0.026] c_probe
[t_ready+0.027,t_ready+0.029] c_44_side


}

define t_detect_atom stop(p_cycle)+10.0;

[t_detect_atom,t_detect_atom+0.001] c_channel_c
[t_detect_atom,t_detect_atom+20.0] c_probe
[t_detect_atom,t_detect_atom+20.0] c_33_pump

end_comment

;-----------------------------------------------------------------------------
; by-the-numbers experiment (cavity on 4-4')
;-----------------------------------------------------------------------------

begin_comment

[t_load_end+16.0, t_load_end+500.0] c_probe
[t_load_end+16.0, t_load_end+500.0] c_33_pump

end_comment

;-----------------------------------------------------------------------------
; single photon generation (cavity on 4-3')
;-----------------------------------------------------------------------------

begin_comment

t_load_end+20 loop 100000 {
[0.000,0.001] c_33_pump
[0.001,0.002] c_44_pump
}

end_comment

;-----------------------------------------------------------------------------
; 43 probing
;-----------------------------------------------------------------------------

begin_comment

define t_start t_load_end+20.0

;[t_start, t_start+300.0] c_43_probe
;[t_start, t_start+300.0] c_33_load
;[t_start, t_start+300.0] c_33_pump

;[t_start+360.0, t_start+360.3] c_probe
;[t_start+360.0, t_start+380.3] c_33_load


;p_atom_detect_first:
;t_start loop 10000 {
;[0.000,0.001] c_33_load
;[0.001,0.002] c_44_pump
;}

;p_cycle:
;stop(p_atom_detect_first)+1.0 loop 5000 {

p_cycle:
t_start loop 5000 {

;;;; with 3-3' ;;;;

; pump the atom to F=4
p_pump_to_4_a:
0.001 loop 10 {
[0.000,0.001] c_33_load
[0.001,0.002] c_33_side
;[0.000,0.001] c_44_load ; <--- pump to F=3
;[0.001,0.002] c_44_side ; <--- pump to F=3
}

define t_ready_a stop(p_pump_to_4_a)+0.001

[t_ready_a+0.000,t_ready_a+0.001] c_channel_d
[t_ready_a+0.000,t_ready_a+0.0035] c_33_pump
[t_ready_a+0.000,t_ready_a+0.001] c_43_probe
[t_ready_a+0.005,t_ready_a+0.0085] c_33_load

;;; without 3-3' ;;;

; pump the atom to F=4
p_pump_to_4_b:
t_ready_a+0.009 loop 10 {
[0.000,0.001] c_33_load
[0.001,0.002] c_33_side
;[0.000,0.001] c_44_load ; <--- pump to F=3
;[0.001,0.002] c_44_side ; <--- pump to F=3
}

define t_ready_b stop(p_pump_to_4_b)+0.001

[t_ready_b+0.000,t_ready_b+0.001] c_channel_d
[t_ready_b+0.000,t_ready_b+0.001] c_43_probe
[t_ready_b+0.005,t_ready_b+0.0085] c_33_load

}

define t_atom_detect stop(p_cycle)+0.001;

[t_atom_detect, t_atom_detect+0.0001] c_channel_c;

p_atom_detect:
t_atom_detect+0.0002 loop 10000 {
[0.000,0.001] c_33_load
[0.001,0.002] c_44_pump
}

define t_delay stop(p_atom_detect)+0.001;

[t_delay+1.0, t_delay+11.0] c_33_load;

end_comment

;-----------------------------------------------------------------------------
; null magnetic field (21 values)
;-----------------------------------------------------------------------------

; scan axial coil from -2.0 to -1.0 in steps of 0.05 (18.0 kHz)
;begin_comment
t_load_end+10.0 inline 'v_start = -2.0'
t_load_end+10.0 inline 'v_step = 0.05'
t_load_end+10.0 inline 'dac (1, (10.0 + v_start + (i-1)*v_step)*3276.8)'
;end_comment


; scan axial coil from -1.5 to 0.5 in steps of 0.05 (18.0 kHz)
begin_comment
t_load_end+10.0 inline 'v_start = -1.5'
t_load_end+10.0 inline 'v_step = 0.05'
t_load_end+10.0 inline 'dac (1, (10.0 + v_start + (i-1)*v_step)*3276.8)'
end_comment

; scan axial coil from -1.6 to -1.2 in steps of 0.02 (7.2 kHz)
begin_comment
t_load_end+10.0 inline 'v_start = -1.6'
t_load_end+10.0 inline 'v_step = 0.02'
t_load_end+10.0 inline 'dac (1, (10.0 + v_start + (i-1)*v_step)*3276.8)'
end_comment


; scan fed-from-above coil from -7.0 to 3.0 in steps of 0.5 (12.5 kHz)
begin_comment
t_load_end+10.0 inline 'v_start = -7.0'
t_load_end+10.0 inline 'v_step = 0.5'
t_load_end+10.0 inline 'dac (2, (10.0 + v_start + (i-1)*v_step)*3276.8)'
end_comment

; scan fed-from-above coil from -4.0 to 0.0 in steps of 0.2 (5.0 kHz)
begin_comment
t_load_end+10.0 inline 'v_start = -4.0'
t_load_end+10.0 inline 'v_step = 0.2'
t_load_end+10.0 inline 'dac (2, (10.0 + v_start + (i-1)*v_step)*3276.8)'
end_comment

; scan fed-from-below coil from -6.0 to -1.0 in steps of 0.25 (12.5 kHz)
begin_comment
t_load_end+10.0 inline 'v_start = -6.0'
t_load_end+10.0 inline 'v_step = 0.25'
t_load_end+10.0 inline 'dac (3, (10.0 + v_start + (i-1)*v_step)*3276.8)'
end_comment

; scan fed-from-below coil from -5.5 to -3.5 in steps of 0.1 (5.0 kHz)
begin_comment
t_load_end+10.0 inline 'v_start = -5.5'
t_load_end+10.0 inline 'v_step = 0.1'
t_load_end+10.0 inline 'dac (3, (10.0 + v_start + (i-1)*v_step)*3276.8)'
end_comment

;
; null field using accidental method
;

begin_comment

p_main_loop:
t_load_end+20.0 loop 500 {

p_pump_to_4:
0.0 loop 10 {
[0.000, 0.001] c_33_pump
[0.001, 0.002] c_33_side
}

p_pump_to_3:
[stop(p_pump_to_4), stop(p_pump_to_4)+0.050] c_44_pump

define t_probe_atom stop(p_pump_to_3)

[t_probe_atom+0.000, t_probe_atom+0.001] c_channel_c
[t_probe_atom+0.000, t_probe_atom+0.200] c_probe
[t_probe_atom+0.100, t_probe_atom+0.200] c_33_pump

}

end_comment

;
; measure leaking rate for accidental method
;

;begin_comment

p_main_loop:
t_load_end+20.0 loop 500 {

p_pump_to_4:
0.0 loop 10 {
[0.000, 0.001] c_33_pump
[0.001, 0.002] c_33_side
}

[start(p_pump_to_4), stop(p_pump_to_4)] c_44_pump

p_scan_44_duration:
stop(p_pump_to_4) scan {
[0.000, 5.000] c_44_pump
}

define t_probe_atom stop(p_scan_44_duration)

[t_probe_atom+0.000, t_probe_atom+0.001] c_channel_c
[t_probe_atom+0.000, t_probe_atom+0.200] c_probe
[t_probe_atom+0.100, t_probe_atom+0.200] c_33_pump

}

;end_comment

;
; null field using Raman transitions
;

begin_comment

p_main_loop:
t_load_end+20.0 loop 500 {

define t_cool 0.250

[0.000, t_cool] c_newraman_on
[0.000, t_cool] c_oldraman_cool
[0.000, t_cool] c_44_pump

p_pump_to_3:
t_cool+0.001 loop 10 {
[0.000, 0.001] c_44_pump
[0.001, 0.002] c_44_side
}

define t_raman_start stop(p_pump_to_3)+0.001
define t_raman_stop t_raman_start+0.100

[t_raman_start, t_raman_stop] c_newraman_on

define t_probe_atom t_raman_stop

[t_probe_atom, t_probe_atom+0.0001] c_channel_c

[t_probe_atom+0.0002, t_probe_atom+0.200] c_probe
;[t_probe_atom+0.1000, t_probe_atom+0.200] c_33_load ; when using VCA
[t_probe_atom+0.1000, t_probe_atom+0.200] c_33_pump ; when bypassing VCA

}

end_comment

;-----------------------------------------------------------------------------
; raman scan with cooling
;-----------------------------------------------------------------------------

begin_comment

define t_cool 0.250

p_main_loop:
t_load_end+20.0 loop 250 {

[0.000, t_cool] c_newraman_on
[0.000, t_cool] c_oldraman_cool
[0.000, t_cool] c_44_pump

p_pump_r:
t_cool+0.001 loop 10 {
[0.000, 0.001] c_44_load
[0.001, 0.002] c_44_side
}

define t_raman_start_r stop(p_pump_r)+0.001
define t_probe_atom_r t_raman_start_r+0.50

;define t_probe_atom_r stop(p_pump_r)+0.001 ; use this to measure leaking

[t_raman_start_r, t_probe_atom_r] c_newraman_on
[t_raman_start_r, t_probe_atom_r] c_oldraman_blue

[t_probe_atom_r+0.000, t_probe_atom_r+0.200] c_probe
[t_probe_atom_r+0.100, t_probe_atom_r+0.200] c_33_pump

define t_blue t_probe_atom_r+0.200

[t_blue+0.000, t_blue+t_cool] c_newraman_on
[t_blue+0.000, t_blue+t_cool] c_oldraman_cool
[t_blue+0.000, t_blue+t_cool] c_44_pump

p_pump_b:
t_blue+t_cool+0.001 loop 10 {
[0.000, 0.001] c_44_load
[0.001, 0.002] c_44_side
}

define t_raman_start_b stop(p_pump_b)+0.001
define t_probe_atom_b t_raman_start_b+0.50

;define t_probe_atom_b stop(p_pump_b)+0.001 ; use this to measure leaking

[t_raman_start_b, t_probe_atom_b] c_newraman_on
[t_raman_start_b, t_probe_atom_b] c_oldraman_heat

[t_probe_atom_b+0.000, t_probe_atom_b+0.200] c_probe
[t_probe_atom_b+0.100, t_probe_atom_b+0.200] c_33_pump

}

stop(p_main_loop)+1.0 inline 'text = "cfrq:dn"'
stop(p_main_loop)+1.0 inline 'serial_out (9)'
stop(p_main_loop)+1.0 inline 'text = "cfrq:up"'
stop(p_main_loop)+1.0 inline 'serial_out (10)'

end_comment

;-----------------------------------------------------------------------------

;define t_observation_time stop(p_main_loop) - stop(p_trigger_card)

}