-------------------------------------------------------------------------------
--                                                                           --
--                          Experiment Source Code                           --
--              Delta NMR Experiment & Machine Control Interface             --
--                                                                           --
--                     Copyright (c) 2000 JEOL Ltd                           --
--                            All Rights Reserved                            --
--                                                                           --
-------------------------------------------------------------------------------
-- HELP.eng: single pulse experiment with hetero nuclear decoupling (select from "with NOE" ,"without NOE", "decoupling" and "non_decoupling" )
-- File name : single_pulse_dec
-- Category: 1D, structure elucidation, liquids, Single_pulse
--
-- Sequence name : single pulse experiment with hetero nuclear decoupling
-- (select from "with NOE" ,"without NOE", "decoupling" and "non_decoupling" )
--
-- Reference :
-- S. Braun, H.O. Kalinowski, S. Berger "150 and More Basic NMR Experiments,
-- A Practical Course" VCH Publishers, 1998.
--
-- R.R. Ernst, G. Bodenhausen, A. Wokaun "Principles of Nuclear Magnetic
-- Resonance in One and Two Dimensions" Clarendon Press,
-- Oxford University Press, 1987.
--
-- G.E. Martin, A.S. Zektzer, "Two Dimensional NMR Methods for Establishing
-- NMR Connectivity, VCH, 1988.
--
-- J.K.M Sanders, B Hunter "Modern NMR Spectroscopy, A Guide for Chemists"
-- Oxford University Press, 1987.
--
-- Parameters
-- x_angle          : flip angle  (set flip angle)
-- x_90_width       : 90 deg pulse width
-- x_atn            : attenuator of x_pulse
-- x_pulse          : pulse width
--
-- relaxation_delay : inter-pulse delay
-- repetition_time  : pulse repetition_time relaxation_delay+x_acq_time)
--
-- decoupling
--
-- noe              : select TRUE/FALSE for noe buildup
-- decoupling       : select TRUE/FALSE for decoupling during acquisition
--
-- irr_domain       : decoupled nucleus
-- irr_pwidth       : CPD pulse width
-- irr_offset       : decoupler offset
-- irr_noise        : noise modulation
-- irr_atn_dec      : decoupler attenuator during acquisition
--
-- irr_atn_noe      : decoupler attenuator during noe buildup
-- noe_time         : duration for noe buildup
--
-- Note :
--
-- END HELP

header
    filename  => "single_pulse_dec";
    sample_id => "";
    comment   => "single pulse decoupled gated NOE";
    process   =  "carbon_autophase.list";
    sn_ratio  => 0;
    include "header";
end header;

instrument
    include "instrument";
end instrument;

acquisition
    x_domain         => "Carbon13";
    x_offset         => 100[ppm];
    x_sweep          => 250[ppm];
    x_points         => 16384;
    scans            => 1000;
    x_prescans       => 4;
    mod_return       => 1;
    include "acquisition";
end acquisition;

pulse
    collect COMPLEX,OBS;

comment_1 =? "*** Pulse ***";
    x_angle          => 90[deg], 1[deg] -> 360[deg] : 1[deg], help "flip angle";
    x_90_width       => x90, help "set 90deg pulse width";
    x_pulse          =? x_90_width * (x_angle / 90[deg]), help "observe 90[deg] pulse";
    x_atn            =? xatn, help "attenuator for x_pulse";

comment_7 =? "*** Pulse Delay ***";
    initial_wait     =  1[s];
    relaxation_delay => 2[s], help "inter-pulse delay";
    repetition_time  =? relaxation_delay + x_acq_time, help "relaxation_delay + x_acq_time";
		x_acq_time1=>	x_acq_time+7[us];

    include "irr_noe_dec_param_proton";
    include "noe_relaxation_delay_calc";
    include "pulse";

    phase_1   = {0,90,270,180,180,270,90,0};
    phase_acq = {0,90,270,180,180,270,90,0};
	phase_x  = {0,90,270,180,180,270,90,0};
	phase_y  = {90,180,0,270,270,0,180,90};
	phase_prex  = {180,270,90,0,0,90,270,180};

begin
    initial_wait;

    relaxation_delay_calc;

    --noe buildup block on
    when irr_noe do
        on (irr.gate, irr.noise.irr_noise, irr.atn.irr_atn_noe);
    end when;

    noe_time;

    --noe buildup block off
    when irr_noe do 
        off (irr.gate);
    end when;

    --decoupling block on
    when irr_decoupling do
        on (irr.gate, irr.noise.irr_noise, irr.atn.irr_atn_dec);
    end when;

    x_pulse, (obs.gate, obs.phs.phase_1, obs.atn.x_atn);
    acq (dead_time, delay, phase_acq);

--	x_pulse, (obs.gate, obs.phs.phase_x, obs.atn.x_atn);
	x_pulse*2, (obs.gate, obs.phs.phase_y, obs.atn.x_atn);
--	x_pulse, (obs.gate, obs.phs.phase_x, obs.atn.x_atn);
	x_acq_time1;
	x_pulse, (obs.gate, obs.phs.phase_prex, obs.atn.x_atn);
--	x_pulse, (obs.gate, obs.phs.phase_prex, obs.atn.x_atn);
--	x_pulse*2, (obs.gate, obs.phs.phase_x, obs.atn.x_atn);	
--	x_pulse, (obs.gate, obs.phs.phase_prex, obs.atn.x_atn);
    --decoupling block off
    when irr_decoupling do
        off (irr.gate);
    end when;

end pulse;