;6.1) Program: 13C CP NMR with fast MAS (>25 kHz) and pulsed 19F decoupling ;Description: High-resolution 13C spectra of fluoropolymers ;Requires: !!!!; fast spinning (>14 kHz); demanding set-up due to narrow CP condition ;and small signal of small sample. ;Reference(s): Liu & KSR, Macromolecules 34, 8416-8418 (2001). ;sl19Fhetcor.ra (XWinNMR 2.6) ;from sl19Fhetcor.ra on SGI ;type "eda", set "CPDPRG2" to "tppm15", set p30=p31=9u (180 on 1F at pl12) ;with pulsed 19F decoupling ;ramp on 19F define loopcounter td1half "td1half=td1/2" ;for States cosine/sine "d26=0.001s/l30" ;1tr "d28=d26-p8" ;1 tr for decoupling "l1=aq/d26" 1 ze 2 d1 do:f3 ;recycle delay rpp14 ;reset ph14 10u pl1:f1 p1:f1 ph4 ;delete direct 13C magnetization 2m p1:f1 ph5 ;delete direct 13C magnetization 2m p1:f1 ph4 ;delete direct 13C magnetization 2m p1:f1 ph5 ;delete direct 13C magnetization 2m 10u pl2:f3 ;preselect pl2 drive power for F2 2u:f3 ph1 p3:f3 ph1 ;19F 90 pulse d0 ;t1, no J-decoupling (p15 ph2):f1 (p15:sp1 ph10):f3 ;CP contact time 1u pl12:f3 2u:f1 ph0 ;dead time delay, reset RF phase to detect 2u adc ph31 ;start ADC with ph31 signal routing 4 d28 ;detection p8:f3 ph14^ ;19F 180 pulse (or write this into a cpd file) lo to 4 times l1 rcyc=2 ; do NS scans ;1D ; wr #0 ; 2D 18 100m wr #0 if #0 zd ;write and increment file ip1 ; cosine to sine lo to 2 times 2 ip1 ;-cosine ip1 ;-sine id0 ;increment d0 by in0 lo to 2 times td1half ;number of rows exit ph0= 0 ;reference phase ph1= +y -y ;19F 90 pulse excitation ph2= +x +x +y +y -x -x -y -y ;13C CP ph4= +x ;delete 13C magnetization ph5= +y ;delete 13C magnetization ph10= +x ;19F CP ph14= +x +y +y +x +x +y +y +x ;19F 180 decoupling during detection -x -y -y -x -x -y -y -x ph31= 0 2 1 3 2 0 3 1 ;receiver list