pulseprogram HANS

{  

Melody "Haenschen klein" played by 1H NMR      

Sample: Acetone in CDCl3

Spectrometer: JEOL Alpha500


	Copyright (C) 1994 by Walter Bauer

}


EXPCM  PW1,ACQTM,PD; PI1=ACQTM; SET OBST2 = ON RESONANCE
 ENDEXPCM

 CONST
    PH = 100USEC
    PRE = 10USEC
 ENDCONST

 VAR
  I, J : INTEGER
  PH1 : PHASELIST = ( S = X)
  APHASE1 : PHASELIST = ( S = X)
  F1: OFSET
  F2: OFSET
  F3: OFSET
  F4: OFSET
  F5: OFSET
 ENDVAR

 SETMODE
  VHMOD = V;
  PROCC = ',,J1';
  IRMOD = 'NON';
  SCMOD = 'LQNOR';
  MPLAN = MASP;
{ LPROT=
  SPROT= }  
 ENDSET

GPHAS =(8(X),8(NX),8(Y),8(NY));
                   
 BEGIN
  FORTODAT J DO


F1 = OBSET
F2 = OBST2 - (OBST2 - OBSET) * 29/26
F3 = OBST2 - (OBST2 - OBSET) * 5/4
F4 = OBST2 - (OBST2 - OBSET) * 4/3
F5 = OBST2 - (OBST2 - OBSET) * 3/2


   FORTIMES I DO

      OGATE ( OFF )
      DURATION ( PRE )
      DURATION ( PH )
    OPULSE ( PW1, PH1, , F5 )
      ACQUIRE ( APHASE1 )
      DURATION (PI1)
    OPULSE ( PW1, PH1, , F3 )
      ACQUIRE ( APHASE1 )
      DURATION (PI1)
    OPULSE ( PW1, PH1, , F3 )
      ACQUIRE ( APHASE1 )
      DURATION (PI1)
      DURATION (PI1)
      DURATION (PI1)
    OPULSE ( PW1, PH1, , F4 )
      ACQUIRE ( APHASE1 )
      DURATION (PI1)
    OPULSE ( PW1, PH1, , F2 )
      ACQUIRE ( APHASE1 )
      DURATION (PI1)
    OPULSE ( PW1, PH1, , F2 )
      ACQUIRE ( APHASE1 )
      DURATION (PI1)
      DURATION (PI1)
      DURATION (PI1)
    OPULSE ( PW1, PH1, , F1 )
      ACQUIRE ( APHASE1 )
      DURATION (PI1)
    OPULSE ( PW1, PH1, , F2 )
      ACQUIRE ( APHASE1 )
      DURATION (PI1)
    OPULSE ( PW1, PH1, , F3 )
      ACQUIRE ( APHASE1 )
      DURATION (PI1)
    OPULSE ( PW1, PH1, , F4 )
      ACQUIRE ( APHASE1 )
      DURATION (PI1)
    OPULSE ( PW1, PH1, , F5 )
      ACQUIRE ( APHASE1 )
      DURATION (PI1)
    OPULSE ( PW1, PH1, , F5 )
      ACQUIRE ( APHASE1 )
      DURATION (PI1)
    OPULSE ( PW1, PH1, , F5 )
      ACQUIRE ( APHASE1 )


      DURATION ( PD )

   ENDFORTIMES
  ENDFORTODAT         

EXHELP
ENDEXHELP
ENDPULSEPROGRAM