// KnapSackGen.java
// Giedrius Norkevicius & Skirmante Taladyte VDU MIF 1

// KnapSackGen.class
// KnapSackGenDomain.class
// KnapGenWeightProvider.class
// KnapGenDataUrlProvider.class

package lt.ktu.gmj.tasks;
import lt.ktu.gmj.*;
import lt.ktu.gmj.propertySheet.*;
import java.net.*;
import java.io.*;
import java.util.*;
import java.lang.*;
import GlobalTools;

//********************* Sprendimo funkcijos tasko srities apibrezimas **********

class KnapSackGenDomain extends Domain
{ static final String []dimensions=
  { "Cross Probability"
     };


  KnapSackGenDomain ()
  { min[0] =0;
    max[0] =1.0;
    defaultPoint.x[0] = 0.5;  //santykine tikimybe kryzmini i-aja eilute

  }


  public String[] dimensions ()
  { return dimensions;
  }
};

//************************ Kuprines uzdavinio klase Sprendimo funkcija - GA ***************************

public class KnapSackGen implements Task
{ private double norm_point[];		//normalizuotas sprendimo funkcijos taskas
  private int    number_of_objects;	//bendras daiktu skaicius
  public  double total_weight=100;
  public  int    Iterations = 10;
  public int     Initialpopulation = 10;
  private Genetic G;

  private float  object_cost[];         //daiktu kainos
  private float  object_weight[];  	//daiktu svoriai
  private double  Wealth[];
  private Random rnd = new Random();	//atsitiktiniu skaiciu generatorius
  public  String data_url;
					//duomenu failo URL
  private String data_url_old = new String();
					//seno duomenu failo URL
  private KnapSackGenDomain mydomain = new KnapSackGenDomain();
					//sprendimo funkcijos tasko reiksmiu sritis

  //************ Duomenu ivedimo metodas

  private void input() throws java.net.MalformedURLException,java.io.IOException
  { int i,k,num = 0;
    float f1,f2;
    String data_line;
    number_of_objects = 0;

    //----------------- Pasirenkame duomenu saltini
    URL tmyurl = new URL (data_url);
    System.out.println("Reading data from: "+tmyurl.getHost()+tmyurl.getFile());

    //----------------- Nuskaitom is duomenu failo objektu kieki
    URLConnection tmycon = tmyurl.openConnection();
    System.out.println("Data type: "+tmycon.getContentType()+" with size: "+tmycon.getContentLength());
    InputStream      tis = tmycon.getInputStream();
    DataInputStream tids = new DataInputStream(tis);

    tids.readLine();	 	//pavadinimai
    while((data_line=tids.readLine()) != null)
    { StringTokenizer st = new StringTokenizer(data_line);
      st.nextToken();
      st.nextToken();
      number_of_objects += Integer.valueOf(st.nextToken()).intValue();
      num++;
    }
    System.out.println("Object types: "+num+" and total ammount: "+number_of_objects);

    tids.close();
    tis.close();

    //----------------- Isskiriam atminti

    object_cost  = new float[number_of_objects];
    object_weight= new float[number_of_objects];
    Wealth = new double[Initialpopulation];
    G = new Genetic(number_of_objects,Initialpopulation);

    //----------------- Nuskaitinejame duomenis
    URLConnection mycon = tmyurl.openConnection();
    InputStream      is = mycon.getInputStream();
    DataInputStream ids = new DataInputStream(is);
    ids.readLine(); 		//pavadinimai
    num = 0;
    while((data_line = ids.readLine()) != null)
    { StringTokenizer st = new StringTokenizer(data_line);
      f1 = Float.valueOf(st.nextToken()).floatValue(); 		//svoris
      f2 = Float.valueOf(st.nextToken()).floatValue(); 		//kaina
      k  = Integer.valueOf(st.nextToken()).intValue(); 		//kiekis
      for (i = 0; i < k; i++)
      { object_weight[num] = f1;
        object_cost  [num] = f2;
        num++;
      }
    }
    ids.close();
    is.close();
    System.out.println("Data ready...");
  }

  //********* Sprendimo funkcijos tasko normalizavimo metodas

/*  private void normalize (Point pt)
  { double sum = 0;
    norm_point = new double[3];
    for (int i = 0; i < pt.x.length; i++) sum += pt.x[i];
    if (sum != 0)
      for (int i = 0; i < pt.x.length; i++) norm_point[i] = pt.x[i]/sum;
  }*/

  //********* Kainos funkcijos reiksmes skaiciavim metodas

  private double calculation(Point pt)
  {

    int i,j;
    double prob;
    double cost;

    G.generate();
    for (i=0;i<Iterations;i++)
    {
     evaluate();
    G.reproduction(Wealth);
      for(j=0;j<Initialpopulation;j++)
      {
        prob = rnd.nextDouble();
         if (prob<=pt.x[0]) G.cross(j);
          else G.mutation(j);
      }
    }

    evaluate();
    cost =0;
    for (i=0;i<Initialpopulation;i++)
    {
      if (cost<Wealth[i]) cost = Wealth[i];
    }

    return (-cost);
  }

  private void evaluate()
  {
    int i,j;
    double sum_cost;
    double sum_weight;

    for (i=0;i<Initialpopulation;i++)
    {
      sum_cost = 0;
      sum_weight = 0;
      for(j=0;j<number_of_objects;j++)
      {
       if (G.Population[i][j]==1)
       {
        sum_cost = sum_cost + object_cost[j];
        sum_weight = sum_weight + object_weight[j];
       }
      }
      if (sum_weight<=total_weight) Wealth[i] = sum_cost;
        else Wealth[i] = 0;
    }


  }


  //************ Sprendimo funkcijos tasko reiksmiu srities pateikimo metodas

  public Domain domain ()
  { return mydomain;
  }

  public KnapSackGen(){
    data_url = new String(GlobalTools.getCodeBase()+"file:///d:/knapsack/norveda.txt");

  }
  //************ Kintamuju ivedimo metodas

 public void customize (PropertyManager manager)
  {
    //-------- Iveda maksimalu paimama svori ribose nuo 10 iki 10000
    manager.add ( new DoubleProperty("Total Weight",
                  new KnapGenWeightProvider (this), 10, 10000));

     manager.add ( new IntProperty("Iterations",
                  new KnapIterationsProvider (this), 10, 10000));

    //-------- Iveda duomenu failo URL
    manager.add ( new UrlProperty("URL of data file",
		 new KnapGenDataUrlProvider (this)));


  }

  //**** Metodas pateikianis suskaiciuota kainos funkcija uzduotame sprendimo funkcijos taske

  public double f (Point pt)
  { //normalize (pt);            		// normalizuojame taska
    if (!data_url.equals(data_url_old)) // tikriname ar buvo pakeistas URL
    { try
      { input();                        // ivedame duomenis
        data_url_old=new String(data_url);
      }
      catch(Exception e)
      { System.out.println("!!!-Bad data: "+e);
      }
    }
    return calculation(pt);               // graziname kainos funkcijos reiksme
  }
};

//********** Svorio kintamojo ivedimo klase *********************************

class KnapGenWeightProvider extends SimplePropertyProvider
{ public KnapSackGen knap;

  public KnapGenWeightProvider (KnapSackGen _knap)
  { knap=_knap;
  }

  public Object get ()
  { return new Double(knap.total_weight);
  }

  public void set (Object value) throws InvalidPropertyException
  { knap.total_weight=((Double)value).doubleValue();
  }

};

//*********** Duomenu failo URL kintamojo ivedimo klase ***********************

class KnapGenDataUrlProvider extends SimplePropertyProvider
{ public KnapSackGen knap;

  public KnapGenDataUrlProvider (KnapSackGen _knap)
  { knap=_knap;
  }

  public Object get ()
  { return knap.data_url;
  }

  public void set (Object value) throws InvalidPropertyException
  { knap.data_url=new String(value.toString());
  }

};




class KnapIterationsProvider extends SimplePropertyProvider
{ public KnapSackGen knap;

  public KnapIterationsProvider (KnapSackGen _knap)
  { knap=_knap;
  }

  public Object get ()
  { return new Integer(knap.Iterations);
  }

  public void set (Object value) throws InvalidPropertyException
  { knap.Iterations=((Integer)value).intValue();
  }

};