ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/OpenMD/trunk/src/integrators/NPAT.cpp
(Generate patch)

Comparing trunk/src/integrators/NPAT.cpp (file contents):
Revision 536 by tim, Thu May 19 04:28:26 2005 UTC vs.
Revision 963 by tim, Wed May 17 21:51:42 2006 UTC

# Line 86 | Line 86 | namespace oopse {
86    void NPAT::getPosScale(const Vector3d& pos, const Vector3d& COM, int index, Vector3d& sc) {
87  
88      /**@todo */
89 <    Vector3d rj = (oldPos[index] + pos)/2.0 -COM;
89 >    Vector3d rj = (oldPos[index] + pos)/(RealType)2.0 -COM;
90      sc = eta * rj;
91    }
92  
93    void NPAT::scaleSimBox(){
94
95    int i;
96    int j;
97    int k;
94      Mat3x3d scaleMat;
99    double eta2ij;
100    double bigScale, smallScale, offDiagMax;
101    Mat3x3d hm;
102    Mat3x3d hmnew;
95  
96 <
97 <
98 <    // Scale the box after all the positions have been moved:
99 <
100 <    // Use a taylor expansion for eta products:  Hmat = Hmat . exp(dt * etaMat)
101 <    //  Hmat = Hmat . ( Ident + dt * etaMat  + dt^2 * etaMat*etaMat / 2)
110 <
111 <    bigScale = 1.0;
112 <    smallScale = 1.0;
113 <    offDiagMax = 0.0;
114 <
115 <    for(i=0; i<3; i++){
116 <      for(j=0; j<3; j++){
117 <
118 <        // Calculate the matrix Product of the eta array (we only need
119 <        // the ij element right now):
120 <
121 <        eta2ij = 0.0;
122 <        for(k=0; k<3; k++){
123 <          eta2ij += eta(i, k) * eta(k, j);
124 <        }
125 <
126 <        scaleMat(i, j) = 0.0;
127 <        // identity matrix (see above):
128 <        if (i == j) scaleMat(i, j) = 1.0;
129 <        // Taylor expansion for the exponential truncated at second order:
130 <        scaleMat(i, j) += dt*eta(i, j)  + 0.5*dt*dt*eta2ij;
131 <      
132 <
133 <        if (i != j)
134 <          if (fabs(scaleMat(i, j)) > offDiagMax)
135 <            offDiagMax = fabs(scaleMat(i, j));
96 >    for(int i=0; i<3; i++){
97 >      for(int j=0; j<3; j++){
98 >              scaleMat(i, j) = 0.0;
99 >              if(i==j) {
100 >                scaleMat(i, j) = 1.0;
101 >              }
102        }
137
138      if (scaleMat(i, i) > bigScale) bigScale = scaleMat(i, i);
139      if (scaleMat(i, i) < smallScale) smallScale = scaleMat(i, i);
103      }
104 <
105 <    if ((bigScale > 1.01) || (smallScale < 0.99)) {
106 <      sprintf( painCave.errMsg,
107 <               "NPAT error: Attempting a Box scaling of more than 1 percent.\n"
108 <               " Check your tauBarostat, as it is probably too small!\n\n"
146 <               " scaleMat = [%lf\t%lf\t%lf]\n"
147 <               "            [%lf\t%lf\t%lf]\n"
148 <               "            [%lf\t%lf\t%lf]\n"
149 <               "      eta = [%lf\t%lf\t%lf]\n"
150 <               "            [%lf\t%lf\t%lf]\n"
151 <               "            [%lf\t%lf\t%lf]\n",
152 <               scaleMat(0, 0),scaleMat(0, 1),scaleMat(0, 2),
153 <               scaleMat(1, 0),scaleMat(1, 1),scaleMat(1, 2),
154 <               scaleMat(2, 0),scaleMat(2, 1),scaleMat(2, 2),
155 <               eta(0, 0),eta(0, 1),eta(0, 2),
156 <               eta(1, 0),eta(1, 1),eta(1, 2),
157 <               eta(2, 0),eta(2, 1),eta(2, 2));
158 <      painCave.isFatal = 1;
159 <      simError();
160 <    } else if (offDiagMax > 0.01) {
161 <      sprintf( painCave.errMsg,
162 <               "NPAT error: Attempting an off-diagonal Box scaling of more than 1 percent.\n"
163 <               " Check your tauBarostat, as it is probably too small!\n\n"
164 <               " scaleMat = [%lf\t%lf\t%lf]\n"
165 <               "            [%lf\t%lf\t%lf]\n"
166 <               "            [%lf\t%lf\t%lf]\n"
167 <               "      eta = [%lf\t%lf\t%lf]\n"
168 <               "            [%lf\t%lf\t%lf]\n"
169 <               "            [%lf\t%lf\t%lf]\n",
170 <               scaleMat(0, 0),scaleMat(0, 1),scaleMat(0, 2),
171 <               scaleMat(1, 0),scaleMat(1, 1),scaleMat(1, 2),
172 <               scaleMat(2, 0),scaleMat(2, 1),scaleMat(2, 2),
173 <               eta(0, 0),eta(0, 1),eta(0, 2),
174 <               eta(1, 0),eta(1, 1),eta(1, 2),
175 <               eta(2, 0),eta(2, 1),eta(2, 2));
176 <      painCave.isFatal = 1;
177 <      simError();
178 <    } else {
179 <
180 <      Mat3x3d hmat = currentSnapshot_->getHmat();
181 <      hmat = hmat *scaleMat;
182 <      currentSnapshot_->setHmat(hmat);
183 <        
184 <    }
104 >    
105 >    scaleMat(2, 2) = exp(dt*eta(2, 2));
106 >    Mat3x3d hmat = currentSnapshot_->getHmat();
107 >    hmat = hmat *scaleMat;
108 >    currentSnapshot_->setHmat(hmat);
109    }
110  
111    bool NPAT::etaConverged() {
112      int i;
113 <    double diffEta, sumEta;
113 >    RealType diffEta, sumEta;
114  
115      sumEta = 0;
116      for(i = 0; i < 3; i++) {
# Line 198 | Line 122 | namespace oopse {
122      return ( diffEta <= etaTolerance );
123    }
124  
125 <  double NPAT::calcConservedQuantity(){
125 >  RealType NPAT::calcConservedQuantity(){
126  
127      chi= currentSnapshot_->getChi();
128      integralOfChidt = currentSnapshot_->getIntegralOfChiDt();
# Line 214 | Line 138 | namespace oopse {
138      // of freedom).  
139      fkBT = info_->getNdf()*OOPSEConstant::kB *targetTemp;    
140      
141 <    double conservedQuantity;
142 <    double totalEnergy;
143 <    double thermostat_kinetic;
144 <    double thermostat_potential;
145 <    double barostat_kinetic;
146 <    double barostat_potential;
147 <    double trEta;
141 >    RealType conservedQuantity;
142 >    RealType totalEnergy;
143 >    RealType thermostat_kinetic;
144 >    RealType thermostat_potential;
145 >    RealType barostat_kinetic;
146 >    RealType barostat_potential;
147 >    RealType trEta;
148  
149      totalEnergy = thermo.getTotalE();
150  
# Line 228 | Line 152 | namespace oopse {
152  
153      thermostat_potential = fkBT* integralOfChidt / OOPSEConstant::energyConvert;
154  
155 <    SquareMatrix<double, 3> tmp = eta.transpose() * eta;
155 >    SquareMatrix<RealType, 3> tmp = eta.transpose() * eta;
156      trEta = tmp.trace();
157      
158      barostat_kinetic = NkBT * tb2 * trEta /(2.0 * OOPSEConstant::energyConvert);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines