- update scaling hess

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@18764 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Jan 24, 2014 · 22185dd · 22185dd
1 parent fc023be
commit 22185dd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/SimulationRuntime/c/optimization/lagrangeFun/ipopt_hessian.c b/SimulationRuntime/c/optimization/lagrangeFun/ipopt_hessian.c
@@ -260,15 +260,15 @@ static int num_hessian(double *v, double t, IPOPT_DATA_ *iData, double *lambda,
     if(lagrange_yes){
       for(j = i; j < iData->nv; ++j)
       {
-       iData->oH[i][j]  = (long double) h* (iData->gradF[j] - iData->gradF0[j]);
+       iData->oH[i][j]  = (long double) h* iData->vnom[j]*(iData->gradF[j] - iData->gradF0[j]);
        iData->oH[j][i]  = iData->oH[i][j] ; 
       }
     }
 
     if(mayer_yes){
       for(j = i; j < iData->nv; ++j)
       {
-       iData->mH[i][j]  = (long double) h* (iData->gradF_[j] - iData->gradF00[j]);
+       iData->mH[i][j]  = (long double) h* iData->vnom[j]*(iData->gradF_[j] - iData->gradF00[j]);
        iData->mH[j][i]  = iData->mH[i][j] ; 
       }
     }