option.cpp

模糊聚類分析源碼。包含教學文件

    else if (is_followed_by(is,KEYWORD_OPTION_SELECTAXIS[AXIS_S],false)) 
      is >> m_selector[AXIS_S];
    else if (is_followed_by(is,KEYWORD_OPTION_SELECTAXIS[AXIS_DX],false)) 
      is >> m_selector[AXIS_DX];
    else if (is_followed_by(is,KEYWORD_OPTION_SELECTAXIS[AXIS_DY],false)) 
      is >> m_selector[AXIS_DY];
    else if (is_followed_by(is,KEYWORD_OPTION_SELECTAXIS[AXIS_DZ],false)) 
      is >> m_selector[AXIS_DZ];
    else if (is_followed_by(is,KEYWORD_OPTION_SUBSTFEATURES,false)) 
      is >> m_substitute_features;
    else if (is_followed_by(is,KEYWORD_OPTION_MAXITER,false)) 
      is >> m_max_iterations;
    else if (is_followed_by(is,KEYWORD_OPTION_THRESHOLD,false)) 
      is >> m_threshold;
    else if (is_followed_by(is,KEYWORD_OPTION_UNSUPERVISED,false)) 
      is >> m_unsupervised;
    else if (is_followed_by(is,KEYWORD_OPTION_WEIGHTFACTOR,false)) 
      is >> weight_factor();
    else if (is_followed_by(is,KEYWORD_OPTION_DATATRANS,false)) 
      { matrix_read_colon(is,data_transform()); }
    else if (is_followed_by(is,KEYWORD_OPTION_RESTRANS,false)) 
      { matrix_read_colon(is,res_transform()); }
    else if (is_followed_by(is,KEYWORD_OPTION_DATASCALE,false)) 
      is >> m_data_scale;
    else if (is_followed_by(is,KEYWORD_OPTION_BBOX_LOCAL,false)) 
      is >> m_bbox_local;
    else if (is_followed_by(is,KEYWORD_OPTION_BBOX_GLOBAL,false)) 
      is >> m_bbox_global;
    else if (is_followed_by(is,KEYWORD_OPTION_PREFER_LOCAL,false)) 
      is >> m_prefer_local;
    else if (is_followed_by(is,KEYWORD_OPTION_STAT_LOCAL,false)) 
      is >> m_stat_local;
    else if (is_followed_by(is,KEYWORD_OPTION_STAT_GLOBAL,false)) 
      is >> m_stat_global;
    else if (is_followed_by(is,KEYWORD_OPTION_SPHEREHIER,false)) 
      { 
      matrix_read_colon(is,sphere_hierarchy_param()); 
      invariant(sphere_hierarchy_param().rows()==3,
        "dimension of sphere-hierarchy parameter mismatch",SOURCELOC); 
      }
    else if (is_followed_by(is,KEYWORD_OPTION_CONNECT,false)) 
      output() = is_followed_by(is,g_keyword_connect,false,true,FC_CONNECT_LINE);
    else if (is_followed_by(is,KEYWORD_OPTION_COMPARENAME,false)) 
      {
      read_until_matching_paranthesis(is,'(',')',compare_name());
      is.putback(')'); // used as delimiter below
      delete_superfluous_blanks(compare_name());
      if (compare_name()=="") compare_name()=DEFAULT_OPTION_COMPARENAME;
      }
    else if (is_followed_by(is,KEYWORD_OPTION_PROTDEPTH,false)) 
      is >> m_prot_depth;
    else if (is_followed_by(is,KEYWORD_OPTION_DATADEPTH,false))
      is >> m_data_depth;
    else if (is_followed_by(is,KEYWORD_OPTION_COMSEP,false)) 
      is >> m_separation;
    else if (is_followed_by(is,KEYWORD_OPTION_PARTCOEFF,false)) 
      is >> m_part_coeff;
    else if (is_followed_by(is,KEYWORD_OPTION_HYPERVOL,false)) 
      is >> m_hyper_volume;
    else if (is_followed_by(is,KEYWORD_OPTION_CONTRACTIVE,false)) 
      is >> m_contractive;
    else 
      {
      read_until(is,"("); // read opening paranthesis of unknown command
      string entry;
      read_until_matching_paranthesis(is,'(',')',entry);

      m_unrecognized += "("; m_unrecognized += entry; m_unrecognized +=") ";
      is.putback(')');
      }
    read_until_matching_paranthesis(is,'(',')');
    }
  trace("read",*this);
  }
void
Option::write
  (
  ostream& os
  )
  const
  {
  os << KEYWORD_OPTIONS << " ";
  if (m_analysis_name!=DEFAULT_OPTION_ANALYSISNAME) 
    os << KEYWORD_OPTION_ANALYSISNAME << " " 
       << m_analysis_name << ") ";
  if (m_history!="") 
    os << KEYWORD_OPTION_HISTORY << " " 
       << m_history << ") ";
  if (m_data_dimension!=DEFAULT_OPTION_NODATADIM) 
    os << KEYWORD_OPTION_DATADIM << " " 
       << m_data_dimension << ") ";
  if (m_number_prototypes!=DEFAULT_OPTION_PROTCOUNT) 
    os << KEYWORD_OPTION_PROTCOUNT << " " 
       << m_number_prototypes << ") ";
  if (m_number_features!=DEFAULT_OPTION_DATACOUNT) 
    os << KEYWORD_OPTION_DATACOUNT << " " 
       << m_number_features << ") ";
  if (m_generic_validity_measure!=DEFAULT_OPTION_VALIDITY) 
    os << KEYWORD_OPTION_VALIDITY << " " 
       << m_generic_validity_measure << ") ";
  if ((m_min_no_of_clusters!=m_max_no_of_clusters) || (m_number_prototypes==0))
    {
    os << KEYWORD_OPTION_CLUSTERRANGE << " "
       << m_min_no_of_clusters << ":" << m_max_no_of_clusters
       << KEYWORD_CLOSE << " ";
    }
  else
    {
    invariant(((min_no_of_clusters()==number_prototypes()) ||
      (min_no_of_clusters()==DEFAULT_OPTION_CLUSTERRANGE)),
      "clusterrange and no. of clusters mismatch",SOURCELOC);
    }
  if (m_constants[0]!=DEFAULT_OPTION_CONSTANTS)
    { 
    int i(0); 
    os << KEYWORD_OPTION_CONSTANTS << " ";
    while ((m_constants[i]!=DEFAULT_OPTION_CONSTANTS) && (i<OPTIONS_MAX_CONSTANTS))
      {
      if (i>0) os << ":";
      os << m_constants[i];
      ++i;
      }
    os << KEYWORD_CLOSE << " ";
    }
  if (m_distance_shift!=DEFAULT_OPTION_DISTSHIFT)
    os << KEYWORD_OPTION_DISTSHIFT << " "
       << m_distance_shift << KEYWORD_CLOSE << " ";
  if (m_fuzzifier!=DEFAULT_OPTION_FUZZIFIER)
    os << KEYWORD_OPTION_FUZZIFIER << " "
       << m_fuzzifier << KEYWORD_CLOSE << " ";
  if (m_postscript!=DEFAULT_OPTION_POSTSCRIPT)
    os << KEYWORD_OPTION_POSTSCRIPT << " "
       << m_postscript << KEYWORD_CLOSE << " ";
  if (m_graph_mode!=DEFAULT_OPTION_GRAPHMODE)
    os << KEYWORD_OPTION_GRAPHMODE << " "
       << m_graph_mode << KEYWORD_CLOSE << " ";
  if (m_init_strategy!=DEFAULT_OPTION_INIT)
    os << KEYWORD_OPTION_INIT << " "
       << get_keyword(g_keyword_init,m_init_strategy) << KEYWORD_CLOSE << " ";
  if (m_inter_data_distance!=DEFAULT_OPTION_INTERDATADIST)
    os << KEYWORD_OPTION_INTERDATADIST << " "
       << m_inter_data_distance << KEYWORD_CLOSE << " ";
  if (m_interim_output!=DEFAULT_OPTION_NOINTERIMOUT)
    os << KEYWORD_OPTION_INTERIMOUT << " "
       << m_interim_output << KEYWORD_CLOSE << " ";
  if (m_maximum_features!=DEFAULT_OPTION_MAXFEATURES)
    os << KEYWORD_OPTION_MAXFEATURES << " "
       << m_maximum_features << KEYWORD_CLOSE << " ";
  if (m_output!=DEFAULT_OPTION_OUTPUT)
    os << KEYWORD_OPTION_OUTPUT << " "
       << get_keyword(g_keyword_output,m_output) << KEYWORD_CLOSE << " ";
  for (int a=AXIS_BEGIN;a!=AXIS_END;++a)
    if (m_selector[a] != DEFAULT_OPTION_SELECTAXIS[a])
      os << KEYWORD_OPTION_SELECTAXIS[a] << " "
         << m_selector[a] << KEYWORD_CLOSE << " ";
  if (m_substitute_features!=DEFAULT_OPTION_SUBSTFEATURES)
    os << KEYWORD_OPTION_SUBSTFEATURES << " "
       << m_substitute_features << KEYWORD_CLOSE << " ";
  if (m_max_iterations!=DEFAULT_OPTION_MAXITER)
    os << KEYWORD_OPTION_MAXITER << " "
       << m_max_iterations << KEYWORD_CLOSE << " ";
  if (!equal(m_threshold,DEFAULT_OPTION_THRESHOLD))
    os << KEYWORD_OPTION_THRESHOLD << " " 
       << m_threshold << KEYWORD_CLOSE " ";
  if (m_unsupervised!=DEFAULT_OPTION_UNSUPERVISED)
    os << KEYWORD_OPTION_UNSUPERVISED << " "
       << m_unsupervised << KEYWORD_CLOSE << " ";
  if (m_weight_factor!=DEFAULT_OPTION_WEIGHTFACTOR)
    os << KEYWORD_OPTION_WEIGHTFACTOR << " "
       << weight_factor() << KEYWORD_CLOSE << " ";
  if (data_transform().rows() > 0)
    { os << KEYWORD_OPTION_DATATRANS << " ";
      matrix_write_colon(os,data_transform()); os << KEYWORD_CLOSE << " "; }
  if (res_transform().rows() > 0)
    { os << KEYWORD_OPTION_RESTRANS << " ";
      matrix_write_colon(os,res_transform()); os << KEYWORD_CLOSE << " "; }
  if (m_data_scale!=DEFAULT_OPTION_DATASCALE)
    os << KEYWORD_OPTION_DATASCALE << " "
       << m_data_scale << KEYWORD_CLOSE << " ";
  if (m_bbox_local.rows()!=0)
    os << KEYWORD_OPTION_BBOX_LOCAL << " "
       << m_bbox_local << KEYWORD_CLOSE << " ";
  if (m_bbox_global.rows()!=0)
    os << KEYWORD_OPTION_BBOX_GLOBAL << " "
       << m_bbox_global << KEYWORD_CLOSE << " ";
  if (m_prefer_local!=DEFAULT_OPTION_PREFER_LOCAL)
    os << KEYWORD_OPTION_PREFER_LOCAL << " "
       << m_prefer_local << KEYWORD_CLOSE << " ";
  if (m_stat_local.rows()!=0)
    os << KEYWORD_OPTION_STAT_LOCAL << " "
       << m_stat_local << KEYWORD_CLOSE << " ";
  if (m_stat_global.rows()!=0)
    os << KEYWORD_OPTION_STAT_GLOBAL << " "
       << m_stat_global << KEYWORD_CLOSE << " ";
  if ((sphere_hierarchy_param()(BUSH_STARTRANGE_AXIS)!=1.0)||
      (sphere_hierarchy_param()(BUSH_ENDRANGE_AXIS)!=0.125)||
      (sphere_hierarchy_param()(BUSH_RANGEDIV_AXIS)!=2.0))
    { os << KEYWORD_OPTION_SPHEREHIER << " ";
      matrix_write_colon(os,sphere_hierarchy_param()); os << KEYWORD_CLOSE << " "; }
  if (m_connect!=DEFAULT_OPTION_CONNECT)
    os << KEYWORD_OPTION_CONNECT << " "
       << get_keyword(g_keyword_connect,m_connect) << KEYWORD_CLOSE << " ";
  if (m_compare_name!=DEFAULT_OPTION_COMPARENAME) 
    os << KEYWORD_OPTION_COMPARENAME << " " 
       << m_compare_name << ") ";
  if (m_prot_depth!=DEFAULT_OPTION_PROTDEPTH) 
    os << KEYWORD_OPTION_PROTDEPTH << " " 
       << m_prot_depth << ") ";
  if (m_data_depth!=DEFAULT_OPTION_DATADEPTH) 
    os << KEYWORD_OPTION_DATADEPTH << " " 
       << m_data_depth << ") ";
  if (m_separation!=DEFAULT_OPTION_COMSEP)
    os << KEYWORD_OPTION_COMSEP << " "
       << m_separation << KEYWORD_CLOSE << " ";
  if (m_part_coeff!=DEFAULT_OPTION_PARTCOEFF)
    os << KEYWORD_OPTION_PARTCOEFF << " "
       << m_part_coeff << KEYWORD_CLOSE << " ";
  if (m_hyper_volume!=DEFAULT_OPTION_HYPERVOL)
    os << KEYWORD_OPTION_HYPERVOL << " "
       << m_hyper_volume << KEYWORD_CLOSE << " ";
  if (m_contractive!=DEFAULT_OPTION_CONTRACTIVE)
    os << KEYWORD_OPTION_CONTRACTIVE << " "
       << m_contractive << KEYWORD_CLOSE << " ";
  os << m_unrecognized;
  os << KEYWORD_CLOSE << " ";
  }

// template instantiation



#endif // Option_SOURCE