haupt.cc

模糊聚类分析的源程序！

/********************************************************/
/*   filename: haupt.cc                                 */
/*                                                      */
/********************************************************/
/* programmed by: Oliver Wagner                         */
/* last change: 22-03-95                                */
/********************************************************/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <math.h>
#include <time.h>
#include "daten.h"
#include "vektor.h"
#include "cluster.h"
#include "verfahren.h"

char Inputfile_name[30];
Datensatz DieDaten;
DVektor Eingabe;
Regelbasis Regeln;
FCM_Clustering Cluster;
Regelbasis_Ausgabe Ergebnis;
int i;

int 
main (int argc, char *argv[])
{

//  time_t timer;
  //  srand((unsigned) time(&timer));

  if (argc > 1) {		/*Es wurde etwas uebergeben */
    strcpy (Inputfile_name, argv[1]);
  }
  printf ("\n Hallo\n");
  DMatrix Test (3, 3, NULL);
  DVektorArray Result;

  Test[0][0] = 1.0;
  Test[0][1] = 0.0;
  Test[0][2] = 0.0;
  Test[1][0] = 0.0;
  Test[1][1] = 5.0;
  Test[1][2] = 0.0;
  Test[2][0] = 0.0;
  Test[2][1] = 0.0;
  Test[2][2] = 3.0;
  Result = Test.Eigenvektoren ();

  DieDaten = File_einlesen (Inputfile_name);

  Verfahren2 (DieDaten, Regeln, Cluster);

  Regeln.Speichern ("Oliver.test");
};