# Copyright (c) 2002-08 Peter Guntert. All rights reserved.
## 7MACROS: sugarring - CYANA macro
##
## Parameters: <parameters>
##
## Defines the correlations between the dihedral angles and the
## pseudorotation angle P in DNA/RNA sugar rings:

var i numax

syntax *

numax=40.0*pi/180.0
do i 1 nparam
  grid correlate $numax*cos(p+4*pi/5)+2*pi/3 "DELTA     $p$i"
  grid correlate $numax*cos(p-4*pi/5)        "DELTA NU1 $p$i"
  grid correlate $numax*cos(p)               "DELTA NU2 $p$i"
end do
if (nparam.eq.0) then
  grid correlate $numax*cos(p+4*pi/5)+2*pi/3 "DELTA"
  grid correlate $numax*cos(p-4*pi/5)        "DELTA NU1"
  grid correlate $numax*cos(p)               "DELTA NU2"
end if