gmx_bool has_dihedral(int Dih, t_dlist *dl)
{
gmx_bool b = FALSE;
int ddd;
switch (Dih)
{
case edPhi:
b = ((dl->atm.H != -1) && (dl->atm.N != -1) && (dl->atm.Cn[1] != -1) && (dl->atm.C != -1));
break;
case edPsi:
b = ((dl->atm.N != -1) && (dl->atm.Cn[1] != -1) && (dl->atm.C != -1) && (dl->atm.O != -1));
break;
case edOmega:
b = ((dl->atm.minCalpha != -1) && (dl->atm.minC != -1) && (dl->atm.N != -1) && (dl->atm.Cn[1] != -1));
break;
case edChi1:
case edChi2:
case edChi3:
case edChi4:
case edChi5:
case edChi6:
ddd = Dih - edChi1;
b = ((dl->atm.Cn[ddd] != -1) && (dl->atm.Cn[ddd+1] != -1) &&
(dl->atm.Cn[ddd+2] != -1) && (dl->atm.Cn[ddd+3] != -1));
break;
default:
pr_dlist(stdout, 1, dl, 1, 0, TRUE, TRUE, TRUE, TRUE, MAXCHI);
gmx_fatal(FARGS, "Non existant dihedral %d in file %s, line %d",
Dih, __FILE__, __LINE__);
}
return b;
}
int gmx_chi(int argc,char *argv[])
{
const char *desc[] = {
"[TT]g_chi[tt] computes [GRK]phi[grk], [GRK]psi[grk], [GRK]omega[grk], and [GRK]chi[grk] dihedrals for all your ",
"amino acid backbone and sidechains.",
"It can compute dihedral angle as a function of time, and as",
"histogram distributions.",
"The distributions [TT](histo-(dihedral)(RESIDUE).xvg[tt]) are cumulative over all residues of each type.[PAR]",
"If option [TT]-corr[tt] is given, the program will",
"calculate dihedral autocorrelation functions. The function used",
"is C(t) = < cos([GRK]chi[grk]([GRK]tau[grk])) cos([GRK]chi[grk]([GRK]tau[grk]+t)) >. The use of cosines",
"rather than angles themselves, resolves the problem of periodicity.",
"(Van der Spoel & Berendsen (1997), Biophys. J. 72, 2032-2041).",
"Separate files for each dihedral of each residue",
"[TT](corr(dihedral)(RESIDUE)(nresnr).xvg[tt]) are output, as well as a",
"file containing the information for all residues (argument of [TT]-corr[tt]).[PAR]",
"With option [TT]-all[tt], the angles themselves as a function of time for",
"each residue are printed to separate files [TT](dihedral)(RESIDUE)(nresnr).xvg[tt].",
"These can be in radians or degrees.[PAR]",
"A log file (argument [TT]-g[tt]) is also written. This contains [BR]",
"(a) information about the number of residues of each type.[BR]",
"(b) The NMR ^3J coupling constants from the Karplus equation.[BR]",
"(c) a table for each residue of the number of transitions between ",
"rotamers per nanosecond, and the order parameter S^2 of each dihedral.[BR]",
"(d) a table for each residue of the rotamer occupancy.[PAR]",
"All rotamers are taken as 3-fold, except for [GRK]omega[grk] and [GRK]chi[grk] dihedrals",
"to planar groups (i.e. [GRK]chi[grk]2 of aromatics, Asp and Asn; [GRK]chi[grk]3 of Glu",
"and Gln; and [GRK]chi[grk]4 of Arg), which are 2-fold. \"rotamer 0\" means ",
"that the dihedral was not in the core region of each rotamer. ",
"The width of the core region can be set with [TT]-core_rotamer[tt][PAR]",
"The S^2 order parameters are also output to an [TT].xvg[tt] file",
"(argument [TT]-o[tt] ) and optionally as a [TT].pdb[tt] file with",
"the S^2 values as B-factor (argument [TT]-p[tt]). ",
"The total number of rotamer transitions per timestep",
"(argument [TT]-ot[tt]), the number of transitions per rotamer",
"(argument [TT]-rt[tt]), and the ^3J couplings (argument [TT]-jc[tt]), ",
"can also be written to [TT].xvg[tt] files.[PAR]",
"If [TT]-chi_prod[tt] is set (and [TT]-maxchi[tt] > 0), cumulative rotamers, e.g.",
"1+9([GRK]chi[grk]1-1)+3([GRK]chi[grk]2-1)+([GRK]chi[grk]3-1) (if the residue has three 3-fold ",
"dihedrals and [TT]-maxchi[tt] >= 3)",
"are calculated. As before, if any dihedral is not in the core region,",
"the rotamer is taken to be 0. The occupancies of these cumulative ",
"rotamers (starting with rotamer 0) are written to the file",
"that is the argument of [TT]-cp[tt], and if the [TT]-all[tt] flag",
"is given, the rotamers as functions of time",
"are written to [TT]chiproduct(RESIDUE)(nresnr).xvg[tt] ",
"and their occupancies to [TT]histo-chiproduct(RESIDUE)(nresnr).xvg[tt].[PAR]",
"The option [TT]-r[tt] generates a contour plot of the average [GRK]omega[grk] angle",
"as a function of the [GRK]phi[grk] and [GRK]psi[grk] angles, that is, in a Ramachandran plot",
"the average [GRK]omega[grk] angle is plotted using color coding.",
};
const char *bugs[] = {
"Produces MANY output files (up to about 4 times the number of residues in the protein, twice that if autocorrelation functions are calculated). Typically several hundred files are output.",
"[GRK]phi[grk] and [GRK]psi[grk] dihedrals are calculated in a non-standard way, using H-N-CA-C for [GRK]phi[grk] instead of C(-)-N-CA-C, and N-CA-C-O for [GRK]psi[grk] instead of N-CA-C-N(+). This causes (usually small) discrepancies with the output of other tools like [TT]g_rama[tt].",
"[TT]-r0[tt] option does not work properly",
"Rotamers with multiplicity 2 are printed in [TT]chi.log[tt] as if they had multiplicity 3, with the 3rd (g(+)) always having probability 0"
};
/* defaults */
static int r0=1,ndeg=1,maxchi=2;
static gmx_bool bAll=FALSE;
static gmx_bool bPhi=FALSE,bPsi=FALSE,bOmega=FALSE;
static real bfac_init=-1.0,bfac_max=0;
static const char *maxchistr[] = { NULL, "0", "1", "2", "3", "4", "5", "6", NULL };
static gmx_bool bRama=FALSE,bShift=FALSE,bViol=FALSE,bRamOmega=FALSE;
static gmx_bool bNormHisto=TRUE,bChiProduct=FALSE,bHChi=FALSE,bRAD=FALSE,bPBC=TRUE;
static real core_frac=0.5 ;
t_pargs pa[] = {
{ "-r0", FALSE, etINT, {&r0},
"starting residue" },
{ "-phi", FALSE, etBOOL, {&bPhi},
"Output for [GRK]phi[grk] dihedral angles" },
{ "-psi", FALSE, etBOOL, {&bPsi},
"Output for [GRK]psi[grk] dihedral angles" },
{ "-omega",FALSE, etBOOL, {&bOmega},
"Output for [GRK]omega[grk] dihedrals (peptide bonds)" },
{ "-rama", FALSE, etBOOL, {&bRama},
"Generate [GRK]phi[grk]/[GRK]psi[grk] and [GRK]chi[grk]1/[GRK]chi[grk]2 Ramachandran plots" },
{ "-viol", FALSE, etBOOL, {&bViol},
"Write a file that gives 0 or 1 for violated Ramachandran angles" },
{ "-periodic", FALSE, etBOOL, {&bPBC},
"Print dihedral angles modulo 360 degrees" },
{ "-all", FALSE, etBOOL, {&bAll},
"Output separate files for every dihedral." },
{ "-rad", FALSE, etBOOL, {&bRAD},
"in angle vs time files, use radians rather than degrees."},
{ "-shift", FALSE, etBOOL, {&bShift},
"Compute chemical shifts from [GRK]phi[grk]/[GRK]psi[grk] angles" },
{ "-binwidth", FALSE, etINT, {&ndeg},
"bin width for histograms (degrees)" },
{ "-core_rotamer", FALSE, etREAL, {&core_frac},
"only the central [TT]-core_rotamer[tt]*(360/multiplicity) belongs to each rotamer (the rest is assigned to rotamer 0)" },
{ "-maxchi", FALSE, etENUM, {maxchistr},
"calculate first ndih [GRK]chi[grk] dihedrals" },
{ "-normhisto", FALSE, etBOOL, {&bNormHisto},
"Normalize histograms" },
{ "-ramomega",FALSE,etBOOL, {&bRamOmega},
"compute average omega as a function of phi/psi and plot it in an [TT].xpm[tt] plot" },
{ "-bfact", FALSE, etREAL, {&bfac_init},
"B-factor value for [TT].pdb[tt] file for atoms with no calculated dihedral order parameter"},
{ "-chi_prod",FALSE,etBOOL, {&bChiProduct},
"compute a single cumulative rotamer for each residue"},
{ "-HChi",FALSE,etBOOL, {&bHChi},
"Include dihedrals to sidechain hydrogens"},
{ "-bmax", FALSE, etREAL, {&bfac_max},
"Maximum B-factor on any of the atoms that make up a dihedral, for the dihedral angle to be considere in the statistics. Applies to database work where a number of X-Ray structures is analyzed. [TT]-bmax[tt] <= 0 means no limit." }
};
FILE *log;
int natoms,nlist,idum,nbin;
t_atoms atoms;
rvec *x;
int ePBC;
matrix box;
char title[256],grpname[256];
t_dlist *dlist;
gmx_bool bChi,bCorr,bSSHisto;
gmx_bool bDo_rt, bDo_oh, bDo_ot, bDo_jc ;
real dt=0, traj_t_ns;
output_env_t oenv;
gmx_residuetype_t rt;
atom_id isize,*index;
int ndih,nactdih,nf;
real **dih,*trans_frac,*aver_angle,*time;
int i,j,**chi_lookup,*xity;
t_filenm fnm[] = {
{ efSTX, "-s", NULL, ffREAD },
{ efTRX, "-f", NULL, ffREAD },
{ efXVG, "-o", "order", ffWRITE },
{ efPDB, "-p", "order", ffOPTWR },
{ efDAT, "-ss", "ssdump", ffOPTRD },
{ efXVG, "-jc", "Jcoupling", ffWRITE },
{ efXVG, "-corr", "dihcorr",ffOPTWR },
{ efLOG, "-g", "chi", ffWRITE },
/* add two more arguments copying from g_angle */
{ efXVG, "-ot", "dihtrans", ffOPTWR },
{ efXVG, "-oh", "trhisto", ffOPTWR },
{ efXVG, "-rt", "restrans", ffOPTWR },
{ efXVG, "-cp", "chiprodhisto", ffOPTWR }
};
#define NFILE asize(fnm)
int npargs;
t_pargs *ppa;
CopyRight(stderr,argv[0]);
npargs = asize(pa);
ppa = add_acf_pargs(&npargs,pa);
parse_common_args(&argc,argv,PCA_CAN_VIEW | PCA_CAN_TIME | PCA_BE_NICE,
NFILE,fnm,npargs,ppa,asize(desc),desc,asize(bugs),bugs,
&oenv);
/* Handle result from enumerated type */
sscanf(maxchistr[0],"%d",&maxchi);
bChi = (maxchi > 0);
log=ffopen(ftp2fn(efLOG,NFILE,fnm),"w");
if (bRamOmega) {
bOmega = TRUE;
bPhi = TRUE;
bPsi = TRUE;
}
/* set some options */
bDo_rt=(opt2bSet("-rt",NFILE,fnm));
bDo_oh=(opt2bSet("-oh",NFILE,fnm));
bDo_ot=(opt2bSet("-ot",NFILE,fnm));
bDo_jc=(opt2bSet("-jc",NFILE,fnm));
bCorr=(opt2bSet("-corr",NFILE,fnm));
if (bCorr)
fprintf(stderr,"Will calculate autocorrelation\n");
if (core_frac > 1.0 ) {
fprintf(stderr, "core_rotamer fraction > 1.0 ; will use 1.0\n");
core_frac=1.0 ;
}
if (core_frac < 0.0 ) {
fprintf(stderr, "core_rotamer fraction < 0.0 ; will use 0.0\n");
core_frac=0.0 ;
}
if (maxchi > MAXCHI) {
fprintf(stderr,
"Will only calculate first %d Chi dihedrals in stead of %d.\n",
MAXCHI, maxchi);
maxchi=MAXCHI;
}
bSSHisto = ftp2bSet(efDAT,NFILE,fnm);
nbin = 360/ndeg ;
/* Find the chi angles using atoms struct and a list of amino acids */
get_stx_coordnum(ftp2fn(efSTX,NFILE,fnm),&natoms);
init_t_atoms(&atoms,natoms,TRUE);
snew(x,natoms);
read_stx_conf(ftp2fn(efSTX,NFILE,fnm),title,&atoms,x,NULL,&ePBC,box);
fprintf(log,"Title: %s\n",title);
gmx_residuetype_init(&rt);
dlist=mk_dlist(log,&atoms,&nlist,bPhi,bPsi,bChi,bHChi,maxchi,r0,rt);
fprintf(stderr,"%d residues with dihedrals found\n", nlist);
if (nlist == 0)
gmx_fatal(FARGS,"No dihedrals in your structure!\n");
/* Make a linear index for reading all. */
index=make_chi_ind(nlist,dlist,&ndih);
isize=4*ndih;
fprintf(stderr,"%d dihedrals found\n", ndih);
snew(dih,ndih);
/* COMPUTE ALL DIHEDRALS! */
read_ang_dih(ftp2fn(efTRX,NFILE,fnm),FALSE,TRUE,FALSE,bPBC,1,&idum,
&nf,&time,isize,index,&trans_frac,&aver_angle,dih,oenv);
dt=(time[nf-1]-time[0])/(nf-1); /* might want this for corr or n. transit*/
if (bCorr)
{
if (nf < 2)
{
gmx_fatal(FARGS,"Need at least 2 frames for correlation");
}
}
/* put angles in -M_PI to M_PI ! and correct phase factor for phi and psi
* pass nactdih instead of ndih to low_ana_dih_trans and get_chi_product_traj
* to prevent accessing off end of arrays when maxchi < 5 or 6. */
nactdih = reset_em_all(nlist,dlist,nf,dih,maxchi);
if (bAll)
dump_em_all(nlist,dlist,nf,time,dih,maxchi,bPhi,bPsi,bChi,bOmega,bRAD,oenv);
/* Histogramming & J coupling constants & calc of S2 order params */
histogramming(log,nbin,rt,nf,maxchi,dih,nlist,dlist,index,
bPhi,bPsi,bOmega,bChi,
bNormHisto,bSSHisto,ftp2fn(efDAT,NFILE,fnm),bfac_max,&atoms,
bDo_jc,opt2fn("-jc",NFILE,fnm),oenv);
/* transitions
*
* added multiplicity */
snew(xity,ndih) ;
mk_multiplicity_lookup(xity, maxchi, dih, nlist, dlist,ndih);
strcpy(grpname, "All residues, ");
if(bPhi)
strcat(grpname, "Phi ");
if(bPsi)
strcat(grpname, "Psi ");
if(bOmega)
strcat(grpname, "Omega ");
if(bChi){
strcat(grpname, "Chi 1-") ;
sprintf(grpname + strlen(grpname), "%i", maxchi);
}
low_ana_dih_trans(bDo_ot, opt2fn("-ot",NFILE,fnm),
bDo_oh, opt2fn("-oh",NFILE,fnm),maxchi,
dih, nlist, dlist, nf, nactdih, grpname, xity,
*time, dt, FALSE, core_frac,oenv) ;
/* Order parameters */
order_params(log,opt2fn("-o",NFILE,fnm),maxchi,nlist,dlist,
ftp2fn_null(efPDB,NFILE,fnm),bfac_init,
&atoms,x,ePBC,box,bPhi,bPsi,bChi,oenv);
/* Print ramachandran maps! */
if (bRama)
do_rama(nf,nlist,dlist,dih,bViol,bRamOmega,oenv);
if (bShift)
do_pp2shifts(log,nf,nlist,dlist,dih);
/* rprint S^2, transitions, and rotamer occupancies to log */
traj_t_ns = 0.001 * (time[nf-1]-time[0]) ;
pr_dlist(log,nlist,dlist,traj_t_ns,edPrintST,bPhi,bPsi,bChi,bOmega,maxchi);
pr_dlist(log,nlist,dlist,traj_t_ns,edPrintRO,bPhi,bPsi,bChi,bOmega,maxchi);
ffclose(log);
/* transitions to xvg */
if (bDo_rt)
print_transitions(opt2fn("-rt",NFILE,fnm),maxchi,nlist,dlist,
&atoms,x,box,bPhi,bPsi,bChi,traj_t_ns,oenv);
/* chi_product trajectories (ie one "rotamer number" for each residue) */
if (bChiProduct && bChi ) {
snew(chi_lookup,nlist) ;
for (i=0;i<nlist;i++)
snew(chi_lookup[i], maxchi) ;
mk_chi_lookup(chi_lookup, maxchi, dih, nlist, dlist);
get_chi_product_traj(dih,nf,nactdih,nlist,
maxchi,dlist,time,chi_lookup,xity,
FALSE,bNormHisto, core_frac,bAll,
opt2fn("-cp",NFILE,fnm),oenv);
for (i=0;i<nlist;i++)
sfree(chi_lookup[i]);
}
/* Correlation comes last because it f***s up the angles */
if (bCorr)
do_dihcorr(opt2fn("-corr",NFILE,fnm),nf,ndih,dih,dt,nlist,dlist,time,
maxchi,bPhi,bPsi,bChi,bOmega,oenv);
do_view(oenv,opt2fn("-o",NFILE,fnm),"-nxy");
do_view(oenv,opt2fn("-jc",NFILE,fnm),"-nxy");
if (bCorr)
do_view(oenv,opt2fn("-corr",NFILE,fnm),"-nxy");
gmx_residuetype_destroy(rt);
thanx(stderr);
return 0;
}
