dfpmin.java

数值方面的优化算法

            
            };
            
            /* file C:/ProjFinal/N Recipes/dfpmin.c line 66*/
            ci_10=1;
            lab_dfpmin5 : for( ; (((ci_10)<=(cn))?1:0)!=0 ; )
            {
            setMEMFLOAT((int)((cdg_24 + (ci_10*4))),(float)(getMEMFLOAT((int)((cg_25 + (ci_10*4))))));
            ci_10++;
            
            }
            Object[] y3= 
            {
            new java.lang.Integer((int)(cp)),new java.lang.Integer((int)(cg_25))
            }
            ;
            
            /* file C:/ProjFinal/N Recipes/dfpmin.c line 68*/
            funcall(cdfunc,y3);
            ctest_23=(float)(0.0);
            cmaxarg1_7=getMEMFLOAT((int)(cfret));
            cmaxarg2_8=(float)(1.0);
            cden_13=((((cmaxarg1_7)>(cmaxarg2_8))?1:0)!=0 ?cmaxarg1_7:cmaxarg2_8);
            
            /* file C:/ProjFinal/N Recipes/dfpmin.c line 75*/
            ci_10=1;
            lab_dfpmin6 : for( ; (((ci_10)<=(cn))?1:0)!=0 ; )
            {
               
               {
               cmaxarg1_7=(float)(
               /* file C:/ProjFinal/N Recipes/dfpmin.c line 73*/
               cfabs(getMEMFLOAT((int)((cp + ((int)(ci_10)*4))))));
               cmaxarg2_8=(float)(1.0);
               ctemp_22=(float)(((
               /* file C:/ProjFinal/N Recipes/dfpmin.c line 73*/
               cfabs(getMEMFLOAT((int)((cg_25 + (ci_10*4)))))*(double)(((((cmaxarg1_7)>(cmaxarg2_8))?1:0)!=0 ?cmaxarg1_7:cmaxarg2_8)))/(double)(cden_13)));
               
               /* file C:/ProjFinal/N Recipes/dfpmin.c line 74*/
               if( (((ctemp_22)>(ctest_23))?1:0)!=0)
               {
               	ctest_23=ctemp_22;
               
               };
               
               }
            ci_10++;
            
            }
            
            /* file C:/ProjFinal/N Recipes/dfpmin.c line 77*/
            if( (((ctest_23)<(cgtol))?1:0)!=0)
            {
            	   
               {
               
               /* file C:/ProjFinal/N Recipes/dfpmin.c line 78*/
               UndefFcs.cfree_vector(cxi_29,1,cn);
               
               /* file C:/ProjFinal/N Recipes/dfpmin.c line 78*/
               UndefFcs.cfree_vector(cpnew_28,1,cn);
               
               /* file C:/ProjFinal/N Recipes/dfpmin.c line 78*/
               UndefFcs.cfree_matrix(chessin_27,1,cn,1,cn);
               
               /* file C:/ProjFinal/N Recipes/dfpmin.c line 78*/
               UndefFcs.cfree_vector(chdg_26,1,cn);
               
               /* file C:/ProjFinal/N Recipes/dfpmin.c line 78*/
               UndefFcs.cfree_vector(cg_25,1,cn);
               
               /* file C:/ProjFinal/N Recipes/dfpmin.c line 78*/
               UndefFcs.cfree_vector(cdg_24,1,cn);
               if(true)
               {
               prevlevel();
               return ;
               };
               
               }
            
            };
            
            /* file C:/ProjFinal/N Recipes/dfpmin.c line 81*/
            ci_10=1;
            lab_dfpmin7 : for( ; (((ci_10)<=(cn))?1:0)!=0 ; )
            {
            setMEMFLOAT((int)((cdg_24 + (ci_10*4))),(float)((getMEMFLOAT((int)((cg_25 + (ci_10*4)))) - getMEMFLOAT((int)((cdg_24 + (ci_10*4)))))));
            ci_10++;
            
            }
            
            /* file C:/ProjFinal/N Recipes/dfpmin.c line 87*/
            ci_10=1;
            lab_dfpmin8 : for( ; (((ci_10)<=(cn))?1:0)!=0 ; )
            {
               
               {
               setMEMFLOAT((int)((chdg_26 + (ci_10*4))),(float)((float)(0.0)));
               
               /* file C:/ProjFinal/N Recipes/dfpmin.c line 86*/
               cj_12=1;
               lab_dfpmin9 : for( ; (((cj_12)<=(cn))?1:0)!=0 ; )
               {
               y4= (int)((chdg_26 + (ci_10*4)));
               setMEMFLOAT((int)(y4),(float)((getMEMFLOAT((int)(y4)) + (getMEMFLOAT((int)((getMEMINT((int)((chessin_27 + (ci_10*4)))) + (cj_12*4))))*getMEMFLOAT((int)((cdg_24 + (cj_12*4))))))));
               cj_12++;
               
               }
               
               }
            ci_10++;
            
            }
            csumxi_21=(float)(0.0);
            csumdg_20=csumxi_21;
            cfae_16=csumdg_20;
            cfac_14=cfae_16;
            
            /* file C:/ProjFinal/N Recipes/dfpmin.c line 96*/
            ci_10=1;
            lab_dfpmin10 : for( ; (((ci_10)<=(cn))?1:0)!=0 ; )
            {
               
               {
               cfac_14+=(getMEMFLOAT((int)((cdg_24 + (ci_10*4))))*getMEMFLOAT((int)((cxi_29 + (ci_10*4)))));
               cfae_16+=(getMEMFLOAT((int)((cdg_24 + (ci_10*4))))*getMEMFLOAT((int)((chdg_26 + (ci_10*4)))));
               csqrarg_1=getMEMFLOAT((int)((cdg_24 + (ci_10*4))));
               csumdg_20+=(float)(((((csqrarg_1)==(0.0))?1:0)!=0 ?0.0:(csqrarg_1*csqrarg_1)));
               csqrarg_1=getMEMFLOAT((int)((cxi_29 + (ci_10*4))));
               csumxi_21+=(float)(((((csqrarg_1)==(0.0))?1:0)!=0 ?0.0:(csqrarg_1*csqrarg_1)));
               
               }
            ci_10++;
            
            }
            
            /* file C:/ProjFinal/N Recipes/dfpmin.c line 98*/
            if( (((cfac_14)>(
            /* file C:/ProjFinal/N Recipes/dfpmin.c line 97*/
            csqrt(((3.0e-8*(double)(csumdg_20))*(double)(csumxi_21)))))?1:0)!=0)
            {
            	   
               {
               cfac_14=(float)((1.0/(double)(cfac_14)));
               cfad_15=(float)((1.0/(double)(cfae_16)));
               
               /* file C:/ProjFinal/N Recipes/dfpmin.c line 103*/
               ci_10=1;
               lab_dfpmin11 : for( ; (((ci_10)<=(cn))?1:0)!=0 ; )
               {
               setMEMFLOAT((int)((cdg_24 + (ci_10*4))),(float)(((cfac_14*getMEMFLOAT((int)((cxi_29 + (ci_10*4))))) - (cfad_15*getMEMFLOAT((int)((chdg_26 + (ci_10*4))))))));
               ci_10++;
               
               }
               
               /* file C:/ProjFinal/N Recipes/dfpmin.c line 113*/
               ci_10=1;
               lab_dfpmin12 : for( ; (((ci_10)<=(cn))?1:0)!=0 ; )
               {
                  
                  {
                  
                  /* file C:/ProjFinal/N Recipes/dfpmin.c line 112*/
                  cj_12=ci_10;
                  lab_dfpmin13 : for( ; (((cj_12)<=(cn))?1:0)!=0 ; )
                  {
                     
                     {
                     y5= (int)((getMEMINT((int)((chessin_27 + (ci_10*4)))) + (cj_12*4)));
                     setMEMFLOAT((int)(y5),(float)((getMEMFLOAT((int)(y5)) + ((((cfac_14*getMEMFLOAT((int)((cxi_29 + (ci_10*4)))))*getMEMFLOAT((int)((cxi_29 + (cj_12*4))))) - ((cfad_15*getMEMFLOAT((int)((chdg_26 + (ci_10*4)))))*getMEMFLOAT((int)((chdg_26 + (cj_12*4)))))) + ((cfae_16*getMEMFLOAT((int)((cdg_24 + (ci_10*4)))))*getMEMFLOAT((int)((cdg_24 + (cj_12*4)))))))));
                     setMEMFLOAT((int)((getMEMINT((int)((chessin_27 + (cj_12*4)))) + (ci_10*4))),(float)(getMEMFLOAT((int)((getMEMINT((int)((chessin_27 + (ci_10*4)))) + (cj_12*4))))));
                     
                     }
                  cj_12++;
                  
                  }
                  
                  }
               ci_10++;
               
               }
               
               }
            
            };
            
            /* file C:/ProjFinal/N Recipes/dfpmin.c line 120*/
            ci_10=1;
            lab_dfpmin14 : for( ; (((ci_10)<=(cn))?1:0)!=0 ; )
            {
               
               {
               setMEMFLOAT((int)((cxi_29 + (ci_10*4))),(float)((float)(0.0)));
               
               /* file C:/ProjFinal/N Recipes/dfpmin.c line 119*/
               cj_12=1;
               lab_dfpmin15 : for( ; (((cj_12)<=(cn))?1:0)!=0 ; )
               {
               y6= (int)((cxi_29 + (ci_10*4)));
               setMEMFLOAT((int)(y6),(float)((getMEMFLOAT((int)(y6)) - (getMEMFLOAT((int)((getMEMINT((int)((chessin_27 + (ci_10*4)))) + (cj_12*4))))*getMEMFLOAT((int)((cg_25 + (cj_12*4))))))));
               cj_12++;
               
               }
               
               }
            ci_10++;
            
            }
            
            }
         cits_11++;
         
         }
         
         /* file C:/ProjFinal/N Recipes/dfpmin.c line 122*/
         UndefFcs.cnrerror((int)(strdfpmin2));
         
         /* file C:/ProjFinal/N Recipes/dfpmin.c line 123*/
         UndefFcs.cfree_vector(cxi_29,1,cn);
         
         /* file C:/ProjFinal/N Recipes/dfpmin.c line 123*/
         UndefFcs.cfree_vector(cpnew_28,1,cn);
         
         /* file C:/ProjFinal/N Recipes/dfpmin.c line 123*/
         UndefFcs.cfree_matrix(chessin_27,1,cn,1,cn);
         
         /* file C:/ProjFinal/N Recipes/dfpmin.c line 123*/
         UndefFcs.cfree_vector(chdg_26,1,cn);
         
         /* file C:/ProjFinal/N Recipes/dfpmin.c line 123*/
         UndefFcs.cfree_vector(cg_25,1,cn);
         
         /* file C:/ProjFinal/N Recipes/dfpmin.c line 123*/
         UndefFcs.cfree_vector(cdg_24,1,cn);
         
         }
      };
      prevlevel();
   }

}