# 1 "/home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII" ;;start ;ph_OPSYdq_2D_mkIII ;OPSY with double quantum filter modified for use with the parahydrogen polariser ;Modified to work like a COSYgpqf but by selecting only two spin order terms # 1 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/Avance.incl" 1 ;Avance3.incl ; for AV III ; ;avance-version (07/12/14) ; ;$CLASS=HighRes Incl ;$COMMENT= # 165 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/Avance.incl" ;$Id: Avance3.incl,v 1.9.8.1 2012/01/31 17:56:17 ber Exp $ # 7 "/home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII" 2 # 1 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/Grad.incl" 1 ;Grad2.incl - include file for Gradient Spectroscopy ; for TCU3 ; ;avance-version (07/01/17) ; ;$CLASS=HighRes Incl ;$COMMENT= # 27 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/Grad.incl" define list EA= # 31 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/Grad.incl" ;$Id: Grad2.incl,v 1.13.8.1 2012/01/31 17:56:17 ber Exp $ # 8 "/home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII" 2 # 1 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/user/Polariser3.incl" 1 ;Polariser_AQS.incl ;defines the commands to control the polariser V3 ;this is used for IPSO_AQS version only ;version 20130430 JMT 30 April 2013 # 30 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/user/Polariser3.incl" ;addittionel defines to use the old pulse pogramms with the ;news polariser and the new definition # 43 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/user/Polariser3.incl" ;News defines for the polariser V3 subroutine IPSO_CMD subroutine MANUAL_CMD subroutine INJECT_POLARISER subroutine EJECT_POLARISER subroutine INJECT_PROBE subroutine EJECT_PROBE subroutine BUBBLE_H2 subroutine STOP_EVEN subroutine POLARISE # 9 "/home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII" 2 "d0=3u" # 13 "/home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII" "d13=4u" "in0=inf1" # 1 "mc_line 16 file /home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII exp. def. part of mc cmd. before ze" define delay MCWRK define delay MCREST "MCREST = d1 - d1" "MCWRK = 0.500000*d1" dccorr # 16 "/home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII" 1 ze # 1 "mc_line 16 file /home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII exp. def. of mc cmd. after ze" # 17 "/home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII" # 1 "mc_line 17 file /home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII exp. start label for mc cmd." 2 MCWRK LBLF1, MCWRK MCREST # 18 "/home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII" subr POLARISE ;EXEC_begin POLARISE POLARISE(delay d20, delay d21, delay d24) # 160 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/user/Polariser3.incl" ;EXEC_begin IPSO_CMD IPSO_CMD() # 45 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/user/Polariser3.incl" 500m setnmr4|14^13^8|7 ;force to ipso ;set to ipso mode 500m setnmr4^14^13^8^7 ;acknowledge command ;EXEC_end IPSO_CMD setnmr4^14^13|8|7 ;Force IN_MIX_CHAMBER ;Sample is in the polariser ;EXEC_begin BUBBLE_H2 BUBBLE_H2() # 131 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/user/Polariser3.incl" 100u trigpl2 ;test '1' stat of trigger2 ;test '1' stat of trigger2 100u trigpl1 ;test '1' stat of trigger1 ;test '1' stat of trigger1 setnmr4^14|13|8|7 ;start regeneration 100u trignl2 ;test '0' stat of trigger2 ;test '0' stat of trigger2 100u trigpl1 ;test '1' stat of trigger1 ;test '1' stat of trigger1 setnmr4^14^13^8^7 ;acknowledge command ;IPSO acknowledge command ;EXEC_end BUBBLE_H2 d20 ;polarisation time ;EXEC_begin STOP_EVEN STOP_EVEN() # 144 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/user/Polariser3.incl" 100u trignl2 ;test '0' stat of trigger2 ;test '0' stat of trigger2 100u trigpl1 ;test '1' stat of trigger1 ;test '1' stat of trigger1 setnmr4|14|13|8|7 ;stop BPHP at the end of the event 100u trigpl2 ;test '1' stat of trigger2 ;test '1' stat of trigger2 100u trignl1 ;test '0' stat of trigger1 ;test '0' stat of trigger1 setnmr4|14^13^8^7 ;end of acknowledge IPSO 100u trigpl2 ;test '1' stat of trigger2 ;test '1' stat of trigger2 100u trigpl1 ;test '1' stat of trigger1 ;test '1' stat of trigger1 setnmr4^14^13^8^7 ;acknowledge command ;EXEC_end STOP_EVEN d21 ;delay before sample transfered to NMR probe ;EXEC_begin INJECT_PROBE INJECT_PROBE() # 95 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/user/Polariser3.incl" 100u trigpl2 ;test '1' stat of trigger2 ;test '1' stat of trigger2 100u trigpl1 ;test '1' stat of trigger1 ;test '1' stat of trigger1 setnmr4^14|13|8^7 ;sample fron polasiser to probe 100u trignl2 ;test '0' stat of trigger2 ;test '0' stat of trigger2 100u trigpl1 ;test '1' stat of trigger1 ;test '1' stat of trigger1 setnmr4^14^13^8^7 ;acknowledge command ;IPSO acknowledge command 100u trigpl2 ;test '1' stat of trigger2 ;test '1' stat of trigger2 100u trignl1 ;test '0' stat of trigger1 ;test '0' stat of trigger1 setnmr4|14^13^8^7 ;end of acknowledge IPSO ;end of acknowledge IPSO 100u trigpl2 ;test '1' stat of trigger2 ;test '1' stat of trigger2 100u trigpl1 ;test '1' stat of trigger1 ;test '1' stat of trigger1 setnmr4^14^13^8^7 ;acknowledge command ;IPSO acknowledge command ;EXEC_end INJECT_PROBE setnmr4^14^13|8^7 ;Force IN_FLOWCELL ;test if transfert is finished d24 ; delay defore the acquisition ;EXEC_end POLARISE # 18 "/home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII" 3 30m d1 p1 ph1 ; pH MODIFIED 50u setnmr3|0 setnmr0|34|32|33 ctrlgrad 0 p16:gp1*-1 d16 20u setnmr3^0 setnmr0^34^32^33 ctrlgrad 7 p1 ph2 ; pH MODIFIED 50u setnmr3|0 setnmr0|34|32|33 ctrlgrad 0 p16:gp1 d16 p16:gp1 d16 20u setnmr3^0 setnmr0^34^32^33 ctrlgrad 7 d0 50u setnmr3|0 setnmr0|34|32|33 ctrlgrad 0 p19:gp2 d16 p0 ph2 d13 p19:gp2 d16 4u setnmr3^0 setnmr0^34^32^33 ctrlgrad 7 go=3 ph31 subr EJECT_PROBE ;EXEC_begin EJECT_PROBE EJECT_PROBE() # 113 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/user/Polariser3.incl" 100u trigpl2 ;test '1' stat of trigger2 ;test '1' stat of trigger2 100u trigpl1 ;test '1' stat of trigger1 ;test '1' stat of trigger1 setnmr4^14|13^8^7 ;sample from probe to polariser 100u trignl2 ;test '0' stat of trigger2 ;test '0' stat of trigger2 100u trigpl1 ;test '1' stat of trigger1 ;test '1' stat of trigger1 setnmr4^14^13^8^7 ;acknowledge command ;IPSO acknowledge command 100u trigpl2 ;test '1' stat of trigger2 ;test '1' stat of trigger2 100u trignl1 ;test '0' stat of trigger1 ;test '0' stat of trigger1 setnmr4|14^13^8^7 ;end of acknowledge IPSO ;end of acknowledge IPSO 100u trigpl2 ;test '1' stat of trigger2 ;test '1' stat of trigger2 100u trigpl1 ;test '1' stat of trigger1 ;test '1' stat of trigger1 setnmr4^14^13^8^7 ;acknowledge command ;IPSO acknowledge command ;EXEC_end EJECT_PROBE # 43 "/home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII" # 1 "mc_line 44 file /home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII exp. mc cmd. in line" MCWRK wr #0 if #0 zd id0 lo to LBLF1 times td1 MCWRK # 45 "/home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII" subr MANUAL_CMD ;EXEC_begin MANUAL_CMD MANUAL_CMD() # 51 "/opt/topspin3.2.3/exp/stan/nmr/lists/pp/user/Polariser3.incl" 500m setnmr4^14^13^8|7 ;stop immediatly and set to manuel mode ;set to manual mode ;EXEC_end MANUAL_CMD # 45 "/home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII" exit ph1=0 2 ph2=0 0 2 2 ph3=0 2 ph31=0 2 # 54 "/home/flow/Polariser_mkIII_pp/ph_OPSYdq_2D_mkIII" ;d1 : relaxation delay; set to very short for hyperpolarisation experiments ;d13: short delay [4 usec] ;d20: bubble time for polarisation ;d21: stop bubbling, wait before transfering the sample ;d24: settling after transfer ;l0 : accumulate L0 scans ;pl1 : f1 channel - power level for pulse (default) ;p1 : f1 channel - 90 degree high power pulse ;p2 : f1 channel - 180 degree high power pulse ;p16: homospoil/gradient pulse ;p19: gradient pulse for single quantum filter ;d16: delay for homospoil/gradient recovery ;NS: 1 * n, total number of scans: NS * TD0 ;in0: 1/(1 * SW) = 2 * DW ;for z-only gradients: ;gpz1: 70% ;gpz2: 10% ;p16= 1-3 ms ;p19= 600 us ; increase gpz1 and/or p16 to improve the signal suppression. ;use gradient files: ;gpnam1: SINE.100 ;gpnam2: SINE.100 ;gpz1 70% refers to the gradient filter used to select double quantum coherences ;gpz2 10% refers to the single quantum filter (used in the last 90) ;Ralph Adams 12MAY2009 ;;stop