-------------------------------------------------------------------------------
--                                                                           --
--                          Experiment Source Code                           --
--              Delta NMR Experiment & Machine Control Interface             --
--                                                                           --
--                     Copyright (c) 2009 JEOL Ltd                           --
--                            All Rights Reserved                            --
--                                                                           --
-------------------------------------------------------------------------------
-- HELP.eng: Cross Polarization
-- Category: solids, 1D standard, cpmas
-- By Rongchun Zhang, 2025/10/01
---Descripbtion: PDSD with CW decoupling and flip-back pulses
---PDSD-WORD: Proton driven spin diffusion without recycle delay
header
    filename  		=> "PDSD-WORD";
    sample_id 		=> "";
    comment   		=> "Cross Polarization";
    process   		=  "1d_solid.list";
    include "header_solid";
end header;

instrument
    include "instrument_solid";
end instrument;

acquisition
	x_domain			=>	"Carbon13";
	x_offset			=>	100[ppm];
	x_sweep				=>	400[ppm];
	x_points			=>	2048;
	scans				=>	2;
	x_prescans			=>	2;
	mod_return			=>	1;

	y_domain			=	x_domain;
	y_offset			=	x_offset;
	y_sweep			    =>	x_sweep;
	y_points			=>	64;
	include "acquisition_solid";
	include "acquisition_2d";
	y_dwell				=?	1/y_sweep;
end acquisition;

pulse
	collect COMPLEX,OBS COMPLEX, OBS;
	include "pulse_solid";
	initial_wait		=	0.001[ms];

	irr_Setup			=? "#Setup Irradiation#";
	irr_domain			=>	"Proton",									help "decoupled nucleus";
	irr_offset			=>	5[ppm],										help "decoupler offset";
     
	include "cp_solid";
    obs_width_90		=>	x90,										help "90deg pulse width for 13C pulse";
	obs_amp_pulse		    =>	100[%], 0[%]->100[%]:0.01[%],				help "amplitude of 13C pulse";
    irr_amp_pulse       =>  irr_amp_prep;

	PDSD_mix			=? "#Setup PDSD Mixing parameters#";
	tauMix			    => 500[ms], help "mixing time";
	t1					=> 1[us], help "t1 evolution";


    dec_Setup			=? "#Setup Decoupling#";
	irr_noise			=>	"CW",("CW", "SPINAL64", "TPPM", "XiX"),	help "decoupling sequence";
	irr_amp_dec			=>	100[%], 0[%]->100[%]:0.01[%],				help "amplitude of decoupling";
	when irr_noise = "SPINAL64" or irr_noise = "TPPM" do
		irr_width_nominal90	=>	irr90,										help "modulation pulse width for decoupling";
	end when;
	when irr_noise = "TPPM" do
		irr_phs_tppm	=>	15[deg],									help "TPPM Decoupling Phase: between -irr_phs_tppm and +irr_phs_tppm";
	end when;
	when irr_noise = "XiX" do
		irr_width_xix	=>	50[us],										help "XiX modulation pulse width: should be optimized around 1.85*tr";
	end when;
	irr_pwidth			=	if	irr_noise = "CW"		then 0[us]			else
							if	irr_noise = "XiX"		then irr_width_xix	else
							irr_width_nominal90;


    recycle_Setup		=? "#Setup Recycle Times#";
	relaxation_delay	=>	5.0[s],										help "relaxation delay";
	repetition_time		=?	relaxation_delay + x_acq_time,				help"relaxation_delay+x_acq_time";

    atn_Setup           =? "#Experiment Attenuator Settings#";
	obs_atn				=>	xatn,										help "attenuator for obs";
	irr_atn				=>	irratn,										help "attenuator for irr";

	irr_phs_prep		=	{90,270};
    irr_phs_flip1       =   {270,90};
    irr_phs_flip2       =   {90,270};
    irr_phs_flip3       =   {270,90};
	irr_phs_cp		    =	{0,0,0,0};
	irr_phs_dec		    =	{0,0,0,0};
	obs_phs_cp		    =	{4(0),4(180)};
	obs_phs_90_1        =   {{4(270),4(90)},{4(180),4(0)}}.ystep(180%2);
	obs_phs_90_2        =   {4(0),4(180)};
	obs_phs_acq	    =	{0,180,0,180,180,0,180,0}.ystep(180%2);

	module_config		= "solid_sample";

begin
initial_wait;	
relaxation_delay;
irr_width_90,	(irr.gate,	irr.phs.irr_phs_prep,	irr.amp.irr_amp_prep,	irr.atn.irr_atn);

    contact_time, (irr.gate, irr.phs.irr_phs_cp, irr.shape.{irr_shape_cp,"irr"}, irr.atn.irr_atn,
				   obs.gate, obs.phs.obs_phs_cp, obs.shape.{obs_shape_cp,"obs"}, obs.atn.obs_atn);
t1 ystep 1/y_sweep, (irr.gate, irr.phs.irr_phs_dec, irr.amp.irr_amp_dec, irr.atn.irr_atn, irr.noise.irr_noise);

parallel
justify center
	obs_width_90,	(obs.gate,	obs.phs.obs_phs_90_1,	obs.amp.obs_amp_pulse,	obs.atn.obs_atn);
justify center
	irr_width_90,	(irr.gate,	irr.phs.irr_phs_flip1,	irr.amp.irr_amp_pulse,	irr.atn.irr_atn);
end parallel;

tauMix;

parallel
justify center
	obs_width_90,	(obs.gate,	obs.phs.obs_phs_90_2,	obs.amp.obs_amp_pulse,	obs.atn.obs_atn);
justify center
	irr_width_90,	(irr.gate,	irr.phs.irr_phs_flip2,	irr.amp.irr_amp_pulse,	irr.atn.irr_atn);
end parallel;

   on (irr.gate, irr.phs.irr_phs_dec, irr.amp.irr_amp_dec, irr.atn.irr_atn,irr.noise.irr_noise);
	acq( dead_time, delay, obs_phs_acq );
	off (irr.gate, irr.phs.irr_phs_dec, irr.amp.irr_amp_dec, irr.atn.irr_atn,irr.noise.irr_noise);
irr_width_90,	(irr.gate,	irr.phs.irr_phs_flip3,	irr.amp.irr_amp_prep,	irr.atn.irr_atn);
end pulse;