scenario_obj.c

来自「CA仿真模型中SLEUTH模型」· C语言 代码 · 共 2,197 行 · 第 1/5 页

          util_trim (object_ptr);
          strcpy (scenario.whirlgif_binary, object_ptr);
        }
        else if (!strcmp (keyword, "URBAN_DATA"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          index = scenario.urban_data_file_count;
          strcpy (scenario.urban_data_file[index], object_ptr);
          scenario.urban_data_file_count++;
        }
        else if (!strcmp (keyword, "ROAD_DATA"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          index = scenario.road_data_file_count;
          strcpy (scenario.road_data_file[index], object_ptr);
          scenario.road_data_file_count++;
        }
        else if (!strcmp (keyword, "URBAN_DATA"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          index = scenario.urban_data_file_count;
          strcpy (scenario.urban_data_file[index], object_ptr);
          scenario.urban_data_file_count++;
        }
        else if (!strcmp (keyword, "LANDUSE_DATA"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          index = scenario.landuse_data_file_count;
          strcpy (scenario.landuse_data_file[index], object_ptr);
          scenario.landuse_data_file_count++;
        }
        else if (!strcmp (keyword, "EXCLUDED_DATA"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          strcpy (scenario.excluded_data_file, object_ptr);
        }
        else if (!strcmp (keyword, "SLOPE_DATA"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          strcpy (scenario.slope_data_file, object_ptr);
        }
        else if (!strcmp (keyword, "BACKGROUND_DATA"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          strcpy (scenario.background_data_file, object_ptr);
        }
        else if (!strcmp (keyword, "ROAD_GRAV_SENSITIVITY"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.rd_grav_sensitivity = atof (object_ptr);
        }
        else if (!strcmp (keyword, "SLOPE_SENSITIVITY"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.slope_sensitivity = atof (object_ptr);
        }
        else if (!strcmp (keyword, "CRITICAL_LOW"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.critical_low = atof (object_ptr);
        }
        else if (!strcmp (keyword, "CRITICAL_HIGH"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.critical_high = atof (object_ptr);
        }
        else if (!strcmp (keyword, "CRITICAL_SLOPE"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.critical_slope = atof (object_ptr);
        }
        else if (!strcmp (keyword, "BOOM"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.boom = atof (object_ptr);
        }
        else if (!strcmp (keyword, "BUST"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.bust = atof (object_ptr);
        }
        else if (!strcmp (keyword, "ECHO_IMAGE_FILES(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.echo_image_files = 1;
          if (!strcmp (object_ptr, "NO"))
          {
            scenario.echo_image_files = 0;
          }
        }
        else if (!strcmp (keyword, "WRITE_COLOR_KEY_IMAGES(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.write_color_keys = 1;
          if (!strcmp (object_ptr, "NO"))
          {
            scenario.write_color_keys = 0;
          }
        }
        else if (!strcmp (keyword, "WRITE_COEFF_FILE(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.write_coeff_file = 1;
          if (!strcmp (object_ptr, "NO"))
          {
            scenario.write_coeff_file = 0;
          }
        }
        else if (!strcmp (keyword, "WRITE_AVG_FILE(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.write_avg_file = 1;
          if (!strcmp (object_ptr, "NO"))
          {
            scenario.write_avg_file = 0;
          }
        }
        else if (!strcmp (keyword, "WRITE_STD_DEV_FILE(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.write_std_dev_file = 1;
          if (!strcmp (object_ptr, "NO"))
          {
            scenario.write_std_dev_file = 0;
          }
        }
        else if (!strcmp (keyword, "LOG_TRANSITION_MATRIX(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.log_trans_matrix = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.log_trans_matrix = 1;
          }
        }
        else if (!strcmp (keyword, "LOG_URBANIZATION_ATTEMPTS(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.log_urbanization_attempts = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.log_urbanization_attempts = 1;
          }
        }
        else if (!strcmp (keyword, "LOG_BASE_STATISTICS(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.log_base_stats = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.log_base_stats = 1;
          }
        }
        else if (!strcmp (keyword, "LOG_DEBUG(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.log_debug = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.log_debug = 1;
          }
        }
        else if (!strcmp (keyword, "LOG_INITIAL_COEFFICIENTS(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.log_coeff = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.log_coeff = 1;
          }
        }
        else if (!strcmp (keyword, "LOG_TIMINGS(0:off/1:low verbosity/2:high verbosity)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.log_timings = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "RANDOM_SEED"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.random_seed = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "NUM_WORKING_GRIDS"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.num_working_grids = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "MONTE_CARLO_ITERATIONS"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.monte_carlo_iterations = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "ANIMATION(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.postprocessing = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.postprocessing = 1;
          }
        }
        else if (!strcmp (keyword, "ECHO(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.echo = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.echo = 1;
          }
        }
        else if (!strcmp (keyword, "LOGGING(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.logging = FALSE;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.logging = TRUE;
          }
        }
        else if (!strcmp (keyword, "WRITE_MEMORY_MAP(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.log_memory_map = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.log_memory_map = 1;
          }
        }
        else if (!strcmp (keyword, "LOG_LANDCLASS_SUMMARY(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.log_landclass_summary = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.log_landclass_summary = 1;
          }
        }
        else if (!strcmp (keyword, "LOG_SLOPE_WEIGHTS(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.log_slope_weights = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.log_slope_weights = 1;
          }
        }
        else if (!strcmp (keyword, "LOG_READS(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.log_reads = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.log_reads = 1;
          }
        }
        else if (!strcmp (keyword, "LOG_WRITES(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.log_writes = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.log_writes = 1;
          }
        }
        else if (!strcmp (keyword, "LOG_COLORTABLES(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.log_colortables = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.log_colortables = 1;
          }
        }
        else if (!strcmp (keyword, "LOG_PROCESSING_STATUS(0:off/1:low verbosity/2:high verbosity)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.log_processing_status = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "VIEW_GROWTH_TYPES(YES/NO)"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          util_AllCAPS (object_ptr);
          scenario.view_growth_types = 0;
          if (!strcmp (object_ptr, "YES"))
          {
            scenario.view_growth_types = 1;
          }
        }
        else if (!strcmp (keyword, "GROWTH_TYPE_PRINT_WINDOW"))
        {
          object_ptr = strtok (NULL, "\n");
          util_trim (object_ptr);
          scenario.growth_type_window.run1 = atoi (strtok (object_ptr, ","));
          scenario.growth_type_window.run2 = atoi (strtok (NULL, ","));
          scenario.growth_type_window.monte_carlo1 = atoi (strtok (NULL, ","));
          scenario.growth_type_window.monte_carlo2 = atoi (strtok (NULL, ","));
          scenario.growth_type_window.year1 = atoi (strtok (NULL, ","));
          scenario.growth_type_window.year2 = atoi (strtok (NULL, ","));
        }
        else if (!strcmp (keyword, "CALIBRATION_DIFFUSION_START"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.start.diffusion = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "CALIBRATION_DIFFUSION_STOP"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.stop.diffusion = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "CALIBRATION_DIFFUSION_STEP"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.step.diffusion = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "PREDICTION_DIFFUSION_BEST_FIT"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.best_fit.diffusion = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "CALIBRATION_BREED_START"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.start.breed = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "CALIBRATION_BREED_STOP"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.stop.breed = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "CALIBRATION_BREED_STEP"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.step.breed = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "PREDICTION_BREED_BEST_FIT"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.best_fit.breed = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "CALIBRATION_SPREAD_START"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.start.spread = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "CALIBRATION_SPREAD_STOP"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.stop.spread = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "CALIBRATION_SPREAD_STEP"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.step.spread = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "PREDICTION_SPREAD_BEST_FIT"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.best_fit.spread = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "CALIBRATION_SLOPE_START"))
        {
          object_ptr = strtok (NULL, " \n");
          util_trim (object_ptr);
          scenario.start.slope_resistance = atoi (object_ptr);
        }
        else if (!strcmp (keyword, "CALIBRATION_SLOPE_STOP"))
        {
          object_ptr = strtok (NULL,