w1fm.h

改编过的遗传算法

                {{ 0.0,  500,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  540,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                  1500,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 2400,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 2600,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                  1500,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  550,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0, 172.8, 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  27.2, 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                  1500,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }};
                                              /*  (kg/m3) */
/*double E1f1w[][21]=
                {{ 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }};
                                           /*  (kg/m3) */
double E1f1l[]= {  20,  30,  10,  40,  60,  10,  30,  30,  10};/*  (year)  */
                                           
double E1f1g[]= {  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0}; /*  (kg-c/m3)  */
                                   
/*double E1f1c[]= {  2371, 2371, 796, 5697, 9967, 1194, 1194,1923, 1194};/*  (yen/m2)  */
                                    
double E1f1h[]={  7.70, 7.10,  6.30,  0.90, 0.54, 6.30, 6.25, 7.69, 6.30};/*  (mhK/kcal)*/ 
                                           
double E1f1t[]= {  0.8,  0.8,  0.8,  0.8,  0.8,  0.8,  0.4,  0.4,  0.8};/*  (kg/kg)  */
                                    
double e1f1max[]={  0.05, 0.05,0.005, 0.05, 0.05,0.005, 0.02, 0.05, 0.01};/*  (m) */
                                    
double e1f1min[]={ 0.005,0.005,0.001,0.005, 0.01,0.0005,0.002, 0.02, 0.001};/*  (m) */
                                    

/*===yuka under (E2f1:6) D-11===*/
double E2f1m[][20]=
                {{ 0.0, 65.93, 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0, 64.25, 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  500,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  540,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  600,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 2000,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }};
                                              /*  (kg/m3) */
/*double E2f1w[][21]=
                {{ 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }};
                                             /*  (kg/m3) */
double E2f1l[]= {  30,  15,  30,  30,  50,  30};/*  (year)  */
                                             
double E2f1g[]= {  0.0,  0.0,  0.0,  0.0,  0.0,  0.0};/*  (kg-c/m2)  */
                                             
/*double E2f1c[]= { 2147,  141, 1923,  1923, 4500, 1073}; /*  (yen/m2)  */
                                            
double E2f1h[]= {  7.7,  0.022, 7.70, 7.10, 6.70,  0.77};/*  (mhK/kcal) */ 
                                             
double E2f1t[]= {  0.8,  0.6,  0.8,  0.8,  0.8,  0.8};/*  (kg/kg)  */
                                             
double e2f1max[]={  0.05,  0.05,  0.05,  0.05,  0.2,  0.05};/*  (m) */
                                             
double e2f1min[]={  0.01,  0.01, 0.005, 0.005,  0.05,  0.01};/*  (m) */
                                             
/*===insulation (dannetsu) (E3f1:3) D-12===*/
double E3f1m[][20]=
                {{ 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  40,   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  30,   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }};
                                            /*  (kg/m3) */
/*double E3f1w[][21]=
                {{ 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }};
                                            /*  (kg/m3) */
double E3f1g[]= {  0.0,  0.0,  0.0};                 /*  (kg-c/m3)  */
/*double E3f1c[]= {  0.0, 1930, 1930};                 /*  (yen/m2)  */
double E3f1h[]= {  0.0, 29.4, 34.5};                  /*   (mhK/kcal) */
double E3f1t[]= {  1.0,  0.4,  0.4};                 /*  (kg/kg)  */
double e3f1max[]={  0.0, 0.15, 0.15};                /*  (m)   */
double e3f1min[]={  0.0, 0.025, 0.025};              /*  (m)   */

/*===tenjou structure (Ff1:3) D-13===*/
double Ff1m[][20]=
                {{ 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0, 2.52,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  1.32,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }};
                                            /*  (kg/m2) */
/*double Ff1w[][21]=
                {{ 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }};
                                            /*  (kg/m2) */
double Ff1g[]= {  0.0,  0.0,  0.0};                 /*  (kg-c/m2)  */
/*double Ff1c[]= {  0.0, 2147,  498};                 /*  (yen/m2)  */
double Ff1h[]= {  0.0, 0.0,  0.0};                 /*   (m2hK/kcal) */ 
double Ff1t[]= {  1.0,  0.8,  0.6};                 /*  (kg/kg)  */

/*===tenjou (F1f1:9) D-14===*/
double F1f1m[][20]
               ={{ 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  500,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  540,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  900,  0.0,  0.0 }, 
                 { 0.0,  0.0, 334.8, 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  15.2, 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0, 2700,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  550,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  990,  0.0,  0.0}, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 2000,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }};
                                              /*  (kg/m3) */
/*double F1f1w[][21]=
                {{ 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }};
                                           /*  (kg/m3) */
double F1f1l[]= { 1,  30,  30,  30,  30,  60,  30,  15,  30};/*  (year)  */
                                           
double F1f1g[]= {  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0};/*  (kg-c/m3)  */
                                    
/*double F1f1c[]= {  0.0, 1792, 1792, 1294, 1891, 2887, 2090, 4295, 3454};/*  (yen/m2)  */
                                    
double F1f1h[]={  0.0, 7.70, 7.10, 5.30, 20.00, 0.006, 6.25,  1.90, 0.77};/*  (mhK/kcal)*/ 
                                           
double F1f1t[]= {  1.0,  0.8,  0.8,  0.8,  0.4,  1.0,  0.4,  0.8,  1.0}; /*  (kg/kg)  */ 
                                   
double f1f1max[]={  0.0,  0.05,  0.05, 0.025,  0.02, 0.005, 0.005,  0.03,  0.03}; /*  (m) */
                                   
double f1f1min[]={  0.0, 0.005, 0.005,  0.01, 0.002,0.0003, 0.001, 0.005, 0.005};  /*  (m) */
                                  

/*===tenjou under (F2f1:8) D-15===*/
double F2f1m[][20]=
                {{ 0.0, 80.00,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  0.0,  0.0, 70.67,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 }, 
                 { 0.0,  500,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,
                   0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0 },