cmdline.cpp

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

            { a_option.max_no_of_clusters()=a_option.min_no_of_clusters(); }
          break;
          }       
        case CL_OPTION_CONSTANTS :
          {
          istrstream is(optarg,strlen(optarg));

          int i;
          for (i=0;i<OPTIONS_MAX_CONSTANTS;++i) 
            { 
            a_option.m_constants[i]=DEFAULT_OPTION_CONSTANTS;
            }
          is >> a_option.m_constants[0];
          i=0;
          while (is_followed_by(is,":",false))
            { 
            ++i;
            is >> a_option.m_constants[i];
            trace("set constants[] to",a_option.m_constants[i]);
            }

          break;
          }       
        case CL_OPTION_DISTSHIFT :
          {  
          a_option.distance_shift() = atof(optarg);
          trace("set distance shift to",a_option.distance_shift());
          break;
          }
        case CL_OPTION_FUZZIFIER :
          {  
          a_option.fuzzifier() = atof(optarg);
          trace("set fuzzifier to",a_option.fuzzifier());
          break;
          }
        case CL_OPTION_POSTSCRIPT :
          {  
          a_option.postscript() = true;
          trace("set postscript to",a_option.postscript());
          break;
          }
        case CL_OPTION_GRAPHMODE :
          {
          a_option.graph_mode() = atoi(optarg);
          trace("set graphics mode to",a_option.graph_mode());
          break;
          }
        case CL_OPTION_INIT :
          {
          if (optarg!=NULL)
            {
            istrstream iss(optarg);
            a_option.init() = is_followed_by(iss,g_keyword_init,false,true,DEFAULT_OPTION_INIT);
            }
          else // without argument:
            a_option.init() = FC_INIT_MEMB;
          trace("set init by prototype to",a_option.init());
          break;
          }
        case CL_OPTION_INTERDATADIST :
          {
          a_option.inter_data_distance() = atof(optarg);
          trace("set inter data distance to",a_option.inter_data_distance());
          break;
          }       
        case CL_OPTION_INTERIMOUT :
          {
          a_option.interim_output() = atoi(optarg);
          trace("set interim output to",a_option.interim_output());
          break;
          }       
        case CL_OPTION_MAXFEATURES :
          {  
          a_option.maximum_features() = atoi(optarg);
          trace("set maximum_features to",a_option.maximum_features());
          break;
          }
        case CL_OPTION_QUIETMODE :
          {
          a_option.output() = FC_OUTPUT_QUIET;
          trace("set output to",a_option.output());
          break;
          }
        case CL_OPTION_OUTPUT :
          {
          if (optarg!=NULL)
            {
            istrstream iss(optarg);
            a_option.output() = is_followed_by(iss,g_keyword_output,false,true,FC_OUTPUT_ALL_BUT_LINKS);
            }
          else 
            a_option.output() = FC_OUTPUT_ALL;
          trace("set output to",a_option.output());
          break;
          }
        case CL_OPTION_PICKSELECT :
          {
          a_option.pick_no() = atoi(optarg);
          trace("set pick no to",a_option.pick_no());
          break;
          }
        case CL_OPTION_SELECTXAXIS : 
        case CL_OPTION_SELECTYAXIS : 
        case CL_OPTION_SELECTZAXIS : 
        case CL_OPTION_SELECTTAXIS : 
        case CL_OPTION_SELECTCAXIS :
        case CL_OPTION_SELECTAAXIS :
        case CL_OPTION_SELECTIAXIS :
        case CL_OPTION_SELECTSAXIS :
        case CL_OPTION_SELECTDXAXIS :
        case CL_OPTION_SELECTDYAXIS :
        case CL_OPTION_SELECTDZAXIS :
          {
          int axis;
          switch (c)
            {
            case CL_OPTION_SELECTXAXIS : axis=AXIS_X; break;
            case CL_OPTION_SELECTYAXIS : axis=AXIS_Y; break;
            case CL_OPTION_SELECTZAXIS : axis=AXIS_Z; break;
            case CL_OPTION_SELECTTAXIS : axis=AXIS_T; break;
            case CL_OPTION_SELECTCAXIS : axis=AXIS_C; break;
            case CL_OPTION_SELECTAAXIS : axis=AXIS_A; break;
            case CL_OPTION_SELECTIAXIS : axis=AXIS_I; break;
            case CL_OPTION_SELECTSAXIS : axis=AXIS_S; break;
            case CL_OPTION_SELECTDXAXIS : axis=AXIS_DX; break;
            case CL_OPTION_SELECTDYAXIS : axis=AXIS_DY; break;
            case CL_OPTION_SELECTDZAXIS : axis=AXIS_DZ; break;
            }
          a_option.m_selector[axis] = Selector(optarg);
          trace("set select-?-axis to",make_pair(axis,a_option.m_selector[axis]));
          break; 
          }
        case CL_OPTION_SUBSTFEATURES :
          {
          a_option.substitute_features() = true;
          trace("set substitute features to",a_option.substitute_features());
          break;
          }
        case CL_OPTION_MAXITERATIONS :
          {
          a_option.max_iterations() = atoi(optarg);
          trace("set max iterations to",a_option.max_iterations());
          break;
          }       
        case CL_OPTION_CONVERGENCE :
          {
          a_option.threshold() = atof(optarg);
          trace("set convergence threshold to",a_option.threshold());
          break;
          }       
        case CL_OPTION_UNSUPERVISED :
          {
          a_option.unsupervised() = (optarg!=NULL)?stob(optarg):true;
          trace("set unsupervised mode to",a_option.unsupervised());
          break;
          }
        case CL_OPTION_WEIGHTFACTOR :
          {
          a_option.weight_factor() = Selector(optarg);
          trace("set weight factor to",a_option.weight_factor());
          break;
          }       
        case CL_OPTION_DATATRANS :
          {
          istrstream is(optarg,strlen(optarg));
          matrix_read_colon(is,a_option.data_transform());
          trace("set input-transformation to",a_option.data_transform());
          break;
          }       
        case CL_OPTION_RESTRANS :
          {
          istrstream is(optarg,strlen(optarg));
          matrix_read_colon(is,a_option.res_transform());
          trace("set output-transformation to",a_option.res_transform());
          break;
          }       
        case CL_OPTION_DATASCALE :
          {  
          a_option.data_scale() = atoi(optarg);
          trace("set maximum_features to",a_option.data_scale());
          break;
          }
        case CL_OPTION_PREFER_LOCAL :
          {  
          a_option.prefer_local() = (optarg!=NULL)?stob(optarg):true;
          trace("set prefer_local to",a_option.prefer_local());
          break;
          }
        case CL_OPTION_SPHEREHIER :
          {
          istrstream is(optarg,strlen(optarg));
          matrix_read_colon(is,a_option.sphere_hierarchy_param());
          invariant(a_option.sphere_hierarchy_param().rows()==3,
            "sphere-hierarchy : expected 3 values",SOURCELOC);
          trace("set sphere-hierarchy-parameter to",a_option.sphere_hierarchy_param());
          break;
          }       
        case CL_OPTION_CONNECT :
          {
          istrstream iss(optarg);
          a_option.connect() = is_followed_by(iss,g_keyword_connect,false,true,FC_CONNECT_LINE);
          trace("set connect to",a_option.connect());
          break;
          }
        case CL_OPTION_COMPARENAME :
          {
          a_option.compare_name() = optarg;
          trace("set compare name to",a_option.compare_name());
          break;
          }
        }
      }
  #endif
    (*mp_succ_alg)(a_analysis,a_option);
  }
template < class ANALYSIS >
void
CmdLine< ANALYSIS >::operator()
  (
  ANALYSIS& a_analysis,
  CmdLine< ANALYSIS >::data_type& a_datum
  )
  {
  FUNCLOG("CmdLine::operator(data)");
  if (!m_elem_funcs_called) reset(a_analysis);
  (*mp_succ_alg)(a_analysis,a_datum);
  }
template < class ANALYSIS >
void
CmdLine< ANALYSIS >::operator()
  (
  ANALYSIS& a_analysis,
  CmdLine< ANALYSIS >::prot_type& a_prototype
  )
  {
  FUNCLOG("CmdLine::operator(prot)");
  if (!m_elem_funcs_called) reset(a_analysis);
  (*mp_succ_alg)(a_analysis,a_prototype);
  }
template < class ANALYSIS >
void
CmdLine< ANALYSIS >::operator()
  (
  ANALYSIS& a_analysis,
  CmdLine< ANALYSIS >::link_type& a_link
  )
  {
  FUNCLOG("CmdLine::operator(link)");
  if (!m_elem_funcs_called) reset(a_analysis);
  (*mp_succ_alg)(a_analysis,a_link);
  }
template < class ANALYSIS >
void
CmdLine< ANALYSIS >::reset
  (
  ANALYSIS& a_analysis
  )
  {
  FUNCLOG("CmdLine::reset");
  
  m_elem_funcs_called=true;
  }

// template instantiation



#endif // CmdLine_SOURCE