private void Button9_Click_general(object sender, EventArgs e, string filename = null, bool save = true, bool check = true, bool msg = true)
{//xml importálás
if (filename != null || openFileDialog1.ShowDialog() == DialogResult.OK)
{
string fnevhash = ABKezelo.GetCurrentUser();
try
{
if (save)
{
Button10_Click_general(sender, e, "tempetrend.xml", false);
}
ABKezelo.TorolMinden();
if (filename == null)
{
filename = openFileDialog1.FileName;
}
EtrendXML.XMLRead(filename, check, fnevhash, msg);
FormRefresh();
}
catch (Exception ex)
{
Button9_Click_general(sender, e, "tempetrend.xml", false, false, false);
MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
}
public static void Init()
{
try
{
string fnevhash = ABKezelo.GetCurrentUser();
List <EtrendAdat> e = ABKezelo.Kiolvasas();
List <EtrendAdat> e0 = new List <EtrendAdat>()
{
new Mertekegyseg(fnevhash, "gram", MertekegysegFajta.weight, 1, true, false),
new Mertekegyseg(fnevhash, "milligram", MertekegysegFajta.weight, 0.001, true, false),
new Mertekegyseg(fnevhash, "pound", MertekegysegFajta.weight, Konstans.pondToGramm, true, false),
new Mertekegyseg(fnevhash, "calorie", MertekegysegFajta.energy, 1, true, false),
new Mertekegyseg(fnevhash, "joule", MertekegysegFajta.energy, Konstans.jouleToCalorie, true,
false),
new Mertekegyseg(fnevhash, "deciliter", MertekegysegFajta.liquidmeasure, 0.1, true, false),
new Mertekegyseg(fnevhash, "liter", MertekegysegFajta.liquidmeasure, 1, true, false),
new Penznem(fnevhash, "Forint", "HUF", 1, 0, true, false),
new Penznem(fnevhash, "Dollar", "USD", Konstans.dollarToForint, 2, true, false),
new Penznem(fnevhash, "Euro", "EUR", Konstans.euroToForint, 2, true, false),
new Penznem(fnevhash, "English pound", "GBP", Konstans.fontToForint, 2, true, false)
};
int num = 0;
foreach (EtrendAdat item in e0)
{
int cnt = 0;
if (item is Mertekegyseg)
{
cnt = e.Where(x =>
x is Mertekegyseg &&
(x as Mertekegyseg).Megnevezes == (item as Mertekegyseg).Megnevezes)
.Count();
}
else if (item is Penznem)
{
cnt = e.Where(x => x is Penznem && (x as Penznem).Megnevezes == (item as Penznem).Megnevezes)
.Count();
}
if (cnt == 0)
{
ABKezelo.Beszuras(item);
num++;
}
else if (!(item is Penznem))
{
ABKezelo.Modositas(item);
}
}
}
catch (Exception ex)
{
throw ex;
}
}
private void Button1_Click(object sender, EventArgs e)
{
try
{
if (numericUpDown1.Value <= 0)
{
throw new ArgumentException("The exchange rate should be positive!");
}
if (penznem == null)
{
string fnevhash = ABKezelo.GetCurrentUser();
string nev = textBox1.Text.Trim();
string kod = textBox2.Text.Trim().ToUpper();
if (nev == "" || nev.Length > 30)
{
throw new ArgumentException("The name should be non-empty and at most 30 characters length!");
}
if (kod.Length != 3)
{
throw new ArgumentException("Currency code should have exactly 3 characters!");
}
if (ABKezelo.Kiolvasas().Where(x => x is Penznem && (x as Penznem).Megnevezes == nev).ToList().Count != 0)
{
throw new ArgumentException("We have already a currency with this name!");
}
penznem = new Penznem(fnevhash, nev, kod,
(double)numericUpDown1.Value, (byte)numericUpDown2.Value, checkBox1.Checked, checkBox2.Checked);
ABKezelo.Beszuras(penznem);
Logolas.Ment("New currency added, name: " + penznem.Megnevezes);
}
else
{
if (!checkBox1.Checked && ABKezelo.Kiolvasas().Where(x => (x is Elelmiszer) && (x as Elelmiszer).Penz.Megnevezes == penznem.Megnevezes).ToList().Count > 0)
{
throw new ArgumentException("The currency should be usable, because there is a food that is using it!");
}
penznem.Arfolyam = (double)numericUpDown1.Value;
penznem.TizedesekSzama = (byte)numericUpDown2.Value;
penznem.Hasznalhato = checkBox1.Checked;
ABKezelo.Modositas(penznem);
Logolas.Ment("Currency modification, name: " + penznem.Megnevezes);
}
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error);
DialogResult = DialogResult.None;
}
}
private void Button1_Click(object sender, EventArgs e)
{
try
{
if (numericUpDown1.Value <= 0)
{
throw new WarningException("The rate should be positive!");
}
if (mertekegyseg == null)
{
string fnevhash = ABKezelo.GetCurrentUser();
string nev = textBox1.Text.Trim();
if (nev == "" || nev.Length > 30)
{
throw new WarningException("The name should be non-empty and at most 30 characters!");
}
if (ABKezelo.Kiolvasas().Where(x => x is Mertekegyseg &&
(x as Mertekegyseg).Megnevezes == nev).ToList().Count != 0)
{
throw new WarningException("We have already a unit with that name!");
}
mertekegyseg = new Mertekegyseg(fnevhash, nev, (MertekegysegFajta)comboBox1.SelectedIndex, (double)numericUpDown1.Value, checkBox1.Checked,
checkBox2.Checked);
ABKezelo.Beszuras(mertekegyseg);
Logolas.Ment("New unit added, name: " + mertekegyseg.Megnevezes);
}
else
{
mertekegyseg.Hasznalhato = checkBox1.Checked;
ABKezelo.Modositas(mertekegyseg);
Logolas.Ment("Unit modification, name: " + mertekegyseg.Megnevezes);
}
}
catch (Exception ex)
{
if (ex is WarningException)
{
MessageBox.Show(ex.Message, "Attention!", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
else
{
MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
DialogResult = DialogResult.None;
}
}
private void Button1_Click(object sender, EventArgs e)
{
try
{
string fnevhash = ABKezelo.GetCurrentUser();
string mnev = comboBox1.SelectedItem.ToString();
Mertekegyseg m = (Mertekegyseg)ABKezelo.Kiolvasas()
.Where(x => (x is Mertekegyseg) && (x as Mertekegyseg).Megnevezes == mnev).First();
if (checkBox1.Checked && numericUpDown1.Value > numericUpDown2.Value)
{
throw new ArgumentException("The daily minimum intake should not be less than the maximumu!");
}
if (tapanyag == null)
{
string nev = textBox1.Text.Trim();
if (nev == "" || nev.Length > 30)
{
throw new ArgumentException("The name should be non-empty and at most 30 characters length!");
}
if (ABKezelo.Kiolvasas().Where(x => x is Tapanyag && (x as Tapanyag).Megnevezes == nev).ToList().Count > 0)
{
throw new ArgumentException("We have already a nutrient with this name!");
}
tapanyag = new Tapanyag(fnevhash, nev, m, (double)numericUpDown1.Value, (double)numericUpDown2.Value, checkBox1.Checked, checkBox2.Checked);
ABKezelo.Beszuras(tapanyag);
Logolas.Ment("New nutrient added, name: " + tapanyag.Megnevezes);
ABKezelo.BeszurTapanyagElelmiszerekbe(tapanyag);
}
else
{
tapanyag.NapiMinBevitel = (double)numericUpDown1.Value;
tapanyag.NapiMaxBevitel = (double)numericUpDown2.Value;
tapanyag.NapiMax = checkBox1.Checked;
tapanyag.Hasznalhato = checkBox2.Checked;
ABKezelo.Modositas(tapanyag);
Logolas.Ment("Nutrient modification, name: " + tapanyag.Megnevezes);
}
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error);
DialogResult = DialogResult.None;
}
}
private void Button1_Click(object sender, EventArgs e)
{
try
{
string fnev = ABKezelo.GetCurrentUser();
int i, j, k;
int p = 0, q = 0;
for (i = 0; i < 2; i++)
{
for (j = 0; j < 4; j++)
{
for (k = 0; k < 2; k++)
{
EtkezesFeltetel etk = new EtkezesFeltetel(fnev, (ElelmiszerTipus2)i, (EtkezesTipus2)j,
(Szamlalo)k, (double)numericUpDowns[p].Value, checkBoxs[q].Checked,
(double)numericUpDowns[p + 1].Value);
p += 2;
q++;
ABKezelo.Torol(etk);
ABKezelo.Beszuras(etk);
}
}
}
EtrendIdopont et = new EtrendIdopont(fnev, new List <DateTime>(3));
for (i = 0; i < 3; i++)
{
et.Datum.Add(new DateTime(2018, 1, 1, (int)numericUpDowns2[2 * i].Value,
(int)numericUpDowns2[2 * i + 1].Value, 0));
}
if (ABKezelo.Kiolvasas().Where(x => x is EtrendIdopont).ToList().Count > 0)
{
ABKezelo.Modositas(et);
}
else
{
ABKezelo.Beszuras(et);
}
Logolas.Ment("Saved diet conditions.");
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
void EtrendFeltetelMentes()
{
try
{
string fnevhash = ABKezelo.GetCurrentUser();
Penznem p = (Penznem)ABKezelo.Kiolvasas().Where(x => (x is Penznem) && (x as Penznem).Megnevezes == comboBox3.SelectedItem.ToString()).First();
EtrendFeltetel e = new EtrendFeltetel(fnevhash, dateTimePicker1.Value, (EtkezesTipus)comboBox1.SelectedIndex, dateTimePicker2.Value, (EtkezesTipus)comboBox2.SelectedIndex, checkBox1.Checked, checkBox2.Checked, (double)numericUpDown1.Value, p, checkBox3.Checked, checkBox4.Checked, (int)numericUpDown2.Value, (int)numericUpDown3.Value, checkBox5.Checked);
if (ABKezelo.Kiolvasas().Where(x => x is EtrendFeltetel).ToList().Count == 0)
{
ABKezelo.Beszuras(e);
}
else
{
ABKezelo.Modositas(e);
}
}
catch (Exception exception)
{
MessageBox.Show(exception.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
private void Button1_Click(object sender, EventArgs e)
{
try
{
string fnevhash = ABKezelo.GetCurrentUser();
if (comboBox1.SelectedIndex != (int)ElelmiszerTipus.menu && checkBox2.Checked &&
numericUpDown5.Value > numericUpDown6.Value)
{
throw new WarningException("The maximal consumption should not be less than the minimal!");
}
if (elelmiszer == null)
{
string nev = textBox1.Text.Trim();
if (nev == "" || nev.Length > 30)
{
throw new WarningException("The name should be non-empty and at most 30 characters!");
}
if (elelmiszerek.Where(x => x.Megnevezes == nev).ToList().Count > 0)
{
throw new WarningException("You already have a food with this name!");
}
int i;
List <bool> fogyaszthato = new List <bool> {
checkBox3.Checked, checkBox4.Checked, checkBox5.Checked
};
double ar = (double)numericUpDown2.Value;
Penznem penz = penznemek.Where(p => p.Megnevezes == comboBox2.SelectedItem.ToString()).First();
Mertekegyseg mertek1 = mertekegysegek.Where(m => m.Megnevezes == comboBox3.SelectedItem.ToString()).First();
double mennyiseg1 = (double)numericUpDown3.Value;
Mertekegyseg mertek2 = mertekegysegek.Where(m => m.Megnevezes == comboBox4.SelectedItem.ToString()).First();
double mennyiseg2 = (double)numericUpDown4.Value;
//étel
Elelmiszer el = null;
switch ((ElelmiszerTipus)comboBox1.SelectedIndex)
{
case ElelmiszerTipus.meal:
{
el = new Etel(fnevhash, textBox1.Text.Trim(),
(byte)numericUpDown1.Value,
penz,
ar,
checkBox1.Checked,
fogyaszthato,
checkBox6.Checked,
checkBox7.Checked,
new Dictionary <Tapanyag, double>(),
mennyiseg1,
(double)numericUpDown5.Value,
(double)numericUpDown6.Value,
checkBox2.Checked,
mertek1);
break;
}
//ital
case ElelmiszerTipus.drink:
{
el = new Ital(fnevhash, textBox1.Text.Trim(),
(byte)numericUpDown1.Value,
penz,
ar,
checkBox1.Checked,
fogyaszthato,
checkBox6.Checked,
checkBox7.Checked,
new Dictionary <Tapanyag, double>(),
mennyiseg2,
(double)numericUpDown5.Value,
(double)numericUpDown6.Value,
checkBox2.Checked,
mertek2);
break;
}
//menü
case ElelmiszerTipus.menu:
{
el = new Menu(fnevhash, textBox1.Text.Trim(),
(byte)numericUpDown1.Value,
penz,
ar,
checkBox1.Checked,
fogyaszthato,
checkBox6.Checked,
checkBox7.Checked,
new Dictionary <Tapanyag, double>(),
(byte)numericUpDown7.Value,
1,
mertek1,
1,
mertek2,
new Dictionary <Elelmiszer, double>(),
checkBox8.Checked);
break;
}
}
foreach (Tapanyag item in ABKezelo.Kiolvasas().Where(x => x is Tapanyag).ToList())
{
el.TapanyagTartalom.Add(item, 0);
}
for (i = 0; i < labelek.Count(); i++)
{
string str = labelek[i].Text.Remove(labelek[i].Text.Length - 1);
double m = (double)szamlalok[i].Value;
Tapanyag t = tapanyagok.Where(x => x.Megnevezes == str).First();
el.TapanyagTartalom[t] = m;
}
if (el is Menu)
{
bool van = false;
for (i = 0; i < labelek3.Count; i++)
{
string str = labelek3[i].Text.Remove(labelek3[i].Text.Length - 1);
double m = (double)szamlalok3[i].Value;
if (m > 0)
{
van = true;
}
Elelmiszer el2 = elelmiszerek.Where(x => x.Megnevezes == str).First();
(el as Menu).Osszetevo.Add(el2, m);
}
if (!van)
{
throw new WarningException("There is no meal/drink with positive mass/volume!");
}
}
ABKezelo.Beszuras(el);
Logolas.Ment("New food added, name: " + el.Megnevezes);
}
else
{
elelmiszer.Orom = (byte)numericUpDown1.Value;
elelmiszer.Ar = (double)numericUpDown2.Value;
string pnev = comboBox2.SelectedItem.ToString();
elelmiszer.Penz = penznemek.Where(x => x.Megnevezes == pnev).First();
elelmiszer.EgysegTobbszorose = checkBox1.Checked;
elelmiszer.Fogyaszthato = new List <bool>()
{
checkBox3.Checked,
checkBox4.Checked,
checkBox5.Checked
};
elelmiszer.Valtozatossag = checkBox6.Checked;
elelmiszer.Hasznalhato = checkBox7.Checked;
int i;
for (i = 0; i < labelek.Count; i++)
{
string tnev = labelek[i].Text.Remove(labelek[i].Text.Length - 1);
Tapanyag t = tapanyagok.Where(x => x.Megnevezes == tnev).First();
elelmiszer.TapanyagTartalom[t] = (double)szamlalok[i].Value;
}
if (elelmiszer is Etel)
{
(elelmiszer as Etel).TomegMertek.Megnevezes = comboBox3.SelectedItem.ToString();
(elelmiszer as Etel).EgysegTomegMennyiseg = (double)numericUpDown3.Value;
(elelmiszer as Etel).MinTomeg = (double)numericUpDown5.Value;
(elelmiszer as Etel).MaxTomeg = (double)numericUpDown6.Value;
(elelmiszer as Etel).MaxTomegE = checkBox2.Checked;
}
else if (elelmiszer is Ital)
{
(elelmiszer as Ital).Urmertek.Megnevezes = comboBox4.SelectedItem.ToString();
(elelmiszer as Ital).EgysegUrTartalomMennyiseg = (double)numericUpDown4.Value;
(elelmiszer as Ital).MinUrTartalom = (double)numericUpDown5.Value;
(elelmiszer as Ital).MaxUrTartalom = (double)numericUpDown6.Value;
(elelmiszer as Ital).MaxUrTartalomE = checkBox2.Checked;
}
else if (elelmiszer is Menu)
{
(elelmiszer as Menu).TomegMertek.Megnevezes = comboBox3.SelectedItem.ToString();
(elelmiszer as Menu).EgysegTomegMennyiseg = (double)numericUpDown3.Value;
(elelmiszer as Menu).Urmertek.Megnevezes = comboBox4.SelectedItem.ToString();
(elelmiszer as Menu).EgysegUrTartalomMennyiseg = (double)numericUpDown4.Value;
(elelmiszer as Menu).MaxDarab = (byte)numericUpDown7.Value;
(elelmiszer as Menu).Osszetevo = new Dictionary <Elelmiszer, double>();
double total = 0;
for (i = 0; i < labelek3.Count; i++)
{
string str = labelek3[i].Text.Remove(labelek3[i].Text.Length - 1);
Elelmiszer el2 = elelmiszerek.Where(x => x.Megnevezes == str).First();
double m = (double)szamlalok3[i].Value;
if (m > 0)
{
(elelmiszer as Menu).Osszetevo.Add(el2, m);
total += m;
}
}
if (total == 0)
{
throw new WarningException("The unit should be positive");
}
}
ABKezelo.Modositas(elelmiszer);
Logolas.Ment("Food modification, name: " + elelmiszer.Megnevezes);
}
}
catch (Exception ex)
{
if (ex is WarningException)
{
MessageBox.Show(ex.Message, "Attention!", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
else
{
MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
DialogResult = DialogResult.None;
}
}
public List <object> Megoldas()
{
e0 = ABKezelo.Kiolvasas().ToList();
mertekegysegek = new List <Mertekegyseg>();
tapanyagok = new List <Tapanyag>();
penznemek = new List <Penznem>();
elelmiszerek = new List <Elelmiszer>();
elelmiszerhasznalt = new List <Elelmiszer>();
etkezesfeltetelek = new List <EtkezesFeltetel>();
EtrendFeltetel etrendfeltetel = null;
foreach (EtrendAdat item in e0)
{
if (item is Mertekegyseg)
{
mertekegysegek.Add((Mertekegyseg)item);
}
else if (item is Tapanyag && (item as Tapanyag).Hasznalhato)
{
tapanyagok.Add((Tapanyag)item);
}
else if (item is Penznem)
{
penznemek.Add((Penznem)item);
}
else if (item is EtkezesFeltetel)
{
etkezesfeltetelek.Add((EtkezesFeltetel)item);
}
else if (item is Elelmiszer)
{
elelmiszerek.Add((Elelmiszer)item);
if (((Elelmiszer)item).Hasznalhato)
{
elelmiszerhasznalt.Add((Elelmiszer)item);
}
}
else if (item is EtrendFeltetel)
{
etrendfeltetel = (EtrendFeltetel)item;
}
}
if (elelmiszerhasznalt.Count == 0)
{
throw new ArgumentException("Currently you have no usable food!");
}
DateTime datum1 = etrendfeltetel.Datum1;
datum1 = new DateTime(datum1.Year, datum1.Month, datum1.Day, 0, 0, 0);
DateTime datum2 = etrendfeltetel.Datum2;
datum2 = new DateTime(datum2.Year, datum2.Month, datum2.Day, 0, 0, 0);
int E1 = 1 + (int)etrendfeltetel.Etkezes1; //E1,E2 eggyel el van tolva
int E2 = 1 + (int)etrendfeltetel.Etkezes2;
if (datum1 > datum2 || (datum1 == datum2 && E1 > E2))
{
throw new ArgumentException("The mealtime is empty!");
}
int sz = 3 * ((datum2 - datum1).Days - 1) + E2 + 4 - E1; // étkezések száma
if (sz > Konstans.maxEtkezesekSzama)
{
throw new ArgumentException(String.Format("{0} given mealtime, the maximal is {1} !", sz,
(int)Konstans.maxEtkezesekSzama));
}
int maxfutasiido = 1000 * etrendfeltetel.Maxfutasiido;//msec-ben
int E = elelmiszerhasznalt.Count;
int T = tapanyagok.Count;
int N = 1 + (datum2 - datum1).Days; //napok száma
bool valtozatos = etrendfeltetel.Numvaltozatossag >= 2;
bool folytonos = etrendfeltetel.Folytonosmodell;
int valtozatosEtkezesSzam = etrendfeltetel.Numvaltozatossag;
if (!valtozatos)
{
valtozatosEtkezesSzam = 0;
}
string input_filename = "etkezesprogram.txt";
string output_filename = "solution.txt";
string str = "";
Penznem p = elelmiszerhasznalt[0].Penz;
Penznem p0 = etrendfeltetel.Penz;
try
{
foreach (Elelmiszer item in elelmiszerhasznalt)
{
if (item is Menu)
{
(item as Menu).update();
}
}
// egészértétű lineáris program megírása
str += "/* Automatikusan generált program, ne módosítsa a fájlt! */" + Environment.NewLine;
str += Environment.NewLine;
str += String.Format("param NagySzam := {0};", nagySzam) + Environment.NewLine;
str += String.Format("param NagySzam2 := {0};", nagySzam2) + Environment.NewLine;
str += "/* élelmiszerek száma */" + Environment.NewLine;
str += String.Format("param E := {0};", E) + Environment.NewLine;
str += "/* napok száma */" + Environment.NewLine;
str += String.Format("param N := {0};", N) + Environment.NewLine;
str += "/* tápanyagok száma */" + Environment.NewLine;
str += String.Format("param T := {0};", T) + Environment.NewLine;
str += "/* Változatosság */" + Environment.NewLine;
str += String.Format("param D := {0};", valtozatosEtkezesSzam) + Environment.NewLine;
str += "/* Első étkezés */" + Environment.NewLine;
str += String.Format("param E1:= {0};", E1) + Environment.NewLine; /* első étkezés, 1-el eltolva */
str += "/* Utolsó étkezés */" + Environment.NewLine;
str += String.Format("param E2:= {0};", E2) + Environment.NewLine; /* utolsó étkezés, 1-el eltolva */
str += Environment.NewLine;
//maxpénz beállítása
if (!etrendfeltetel.Koltsegmin)
{
str += String.Format("param Maxpenz:= {0};", etrendfeltetel.Maxpenz * p0.Arfolyam / p.Arfolyam).Replace(',', '.') + Environment.NewLine;
}
str += "param V{0..15,0..2};" + Environment.NewLine; //étkezésfeltételek
str += "param W{1..E,1..18};" + Environment.NewLine;
if (T > 0)
{
str += "param U{1..E,1..T};" + Environment.NewLine;
str += "param NapiMaxTapanyag{1..T};" + Environment.NewLine;
str += "param NapiMinTapanyag{1..T};" + Environment.NewLine;
}
str += Environment.NewLine;
str += "var x{n in 1..N,i in 1..4,e in 1..E}, >=0;" + Environment.NewLine;
str += "var y{n in 1..N,i in 1..3,e in 1..E} integer, >=0;" + Environment.NewLine;
str += "var b{n in 1..N,i in 1..4,e in 1..E} binary;" + Environment.NewLine;
str += "var c{n in 1..N,i in 1..4,e in 1..E} binary;" + Environment.NewLine;
str += "var Adat{n in 1..N,i in 1..4,j in 0..3}, >=0;" + Environment.NewLine;
if (T > 0)
{
str += "var Tapanyag{n in 1..N,t in 1..T}, >=0;" + Environment.NewLine;
}
str += "var Tomeg{n in 1..N,i in 1..4,e in 1..E}, >=0;" + Environment.NewLine;
str += "var Urmertek{n in 1..N,i in 1..4,e in 1..E}, >=0;" + Environment.NewLine;
str += "var Penz >=0;" + Environment.NewLine;
str += "var Orom >=0;" + Environment.NewLine;
str += Environment.NewLine;
int reggelinelFogyaszthatoE;
int ebednelFogyaszthatoE;
int vacsoranalFogyaszthatoE;
int valtozatosE;
int egysegTobbszorose;
int maxDarab;
int etelSzam;
double etelTomeg;
double minEtelTomeg;
double maxEtelTomeg;
int italSzam;
double italUrmertek;
double minItalUrmertek;
double maxItalUrmertek;
double ar, orom;
int maxTomegE;
int maxUrmertekE;
string str2 = "param W: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18:=" + Environment.NewLine;
int i = 0, j;
foreach (Elelmiszer item in elelmiszerhasznalt)
{
i++;
maxTomegE = 0;
maxUrmertekE = 0;
maxEtelTomeg = 0;
maxItalUrmertek = 0;
if (item is Etel)
{
Etel e = item as Etel;
reggelinelFogyaszthatoE = Convert.ToByte(e.Fogyaszthato[0]);
ebednelFogyaszthatoE = Convert.ToByte(e.Fogyaszthato[1]);
vacsoranalFogyaszthatoE = Convert.ToByte(e.Fogyaszthato[2]);
valtozatosE = valtozatosEtkezesSzam;
if (!e.Valtozatossag || !valtozatos)
{
valtozatosE = 0;
}
egysegTobbszorose = Convert.ToByte(e.EgysegTobbszorose);
if (folytonos)
{
egysegTobbszorose = 0;
}
maxDarab = -1;
etelSzam = 1;
etelTomeg = e.EgysegTomegMennyiseg * e.TomegMertek.Valtoszam;
minEtelTomeg = e.MinTomeg * e.TomegMertek.Valtoszam;
if (e.MaxTomegE)
{
maxEtelTomeg = e.MaxTomeg * e.TomegMertek.Valtoszam;
maxTomegE = 1;
}
italSzam = 0;
italUrmertek = 0;
minItalUrmertek = 0;
maxItalUrmertek = nagySzam;
ar = e.Ar * e.Penz.Arfolyam / p.Arfolyam;
orom = 0.001 * etelTomeg * e.Orom;
}
else if (item is Ital)
{
Ital e = item as Ital;
reggelinelFogyaszthatoE = Convert.ToByte(e.Fogyaszthato[0]);
ebednelFogyaszthatoE = Convert.ToByte(e.Fogyaszthato[1]);
vacsoranalFogyaszthatoE = Convert.ToByte(e.Fogyaszthato[2]);
valtozatosE = valtozatosEtkezesSzam;
if (!e.Valtozatossag || !valtozatos)
{
valtozatosE = 0;
}
egysegTobbszorose = Convert.ToByte(e.EgysegTobbszorose);
if (folytonos)
{
egysegTobbszorose = 0;
}
maxDarab = -1;
etelSzam = 0;
etelTomeg = 0;
minEtelTomeg = 0;
maxEtelTomeg = 0;
italSzam = 1;
italUrmertek = e.EgysegUrTartalomMennyiseg * e.Urmertek.Valtoszam;
minItalUrmertek = e.MinUrTartalom * e.Urmertek.Valtoszam;
if (e.MaxUrTartalomE)
{
maxItalUrmertek = e.MaxUrTartalom * e.Urmertek.Valtoszam;
maxUrmertekE = 1;
}
ar = e.Ar * e.Penz.Arfolyam / p.Arfolyam;
orom = italUrmertek * e.Orom;
}
else
{
Menu e = item as Menu;
reggelinelFogyaszthatoE = Convert.ToByte(e.Fogyaszthato[0]);
ebednelFogyaszthatoE = Convert.ToByte(e.Fogyaszthato[1]);
vacsoranalFogyaszthatoE = Convert.ToByte(e.Fogyaszthato[2]);
valtozatosE = valtozatosEtkezesSzam;
if (!e.Valtozatossag || !valtozatos)
{
valtozatosE = 0;
}
egysegTobbszorose = Convert.ToByte(e.EgysegTobbszorose);
if (folytonos)
{
egysegTobbszorose = 0;
}
maxDarab = e.MaxDarab;
// annyi ételnek/italnak felel meg amennyi ételt/italt tartalmaz
etelSzam = 0;
italSzam = 0;
foreach (KeyValuePair <Elelmiszer, double> item2 in e.Osszetevo)
{
if (item2.Value > 0)
{
if (item2.Key is Etel)
{
etelSzam++;
}
else
{
italSzam++;
}
}
}
etelTomeg = e.EgysegTomegMennyiseg * e.TomegMertek.Valtoszam;
minEtelTomeg = 0;
maxEtelTomeg = nagySzam;
italUrmertek = e.EgysegUrTartalomMennyiseg * e.Urmertek.Valtoszam;
minItalUrmertek = 0;
maxItalUrmertek = nagySzam;
ar = e.Ar * e.Penz.Arfolyam / p.Arfolyam;
orom = e.Orom * (0.001 * etelTomeg + italUrmertek); // 1 l=1 kg-nak felel meg
}
str2 += String.Format("{0} {1} {2} {3} {4} {5} {6} {7} {8} {9} {10} {11} {12} {13} {14} {15} {16} {17} {18}", i,
reggelinelFogyaszthatoE, ebednelFogyaszthatoE, vacsoranalFogyaszthatoE,
valtozatosE, egysegTobbszorose, maxDarab,
etelSzam, etelTomeg, minEtelTomeg, maxEtelTomeg,
italSzam, italUrmertek, minItalUrmertek, maxItalUrmertek,
ar, orom, maxTomegE, maxUrmertekE
).Replace(',', '.') + ((i == E) ? ";" : "") + Environment.NewLine;
}
//étkezésfeltételek
str2 += Environment.NewLine + "param V: 0 1 2 :=" + Environment.NewLine;
double[] f1 = new double[16];
double[] f2 = new double[16];
int[] b0 = new int[16];
for (i = 0; i < 16; i++)
{
f1[i] = 0;
f2[i] = 0;
b0[i] = 0;
}
foreach (EtkezesFeltetel item in etkezesfeltetelek)
{
int pos = 8 * ((int)item.Eltipus2) + 2 * ((int)item.Ettipus2) + (int)item.Szamlalo;
f1[pos] = item.Minval;
f2[pos] = item.Maxval;
if (item.Eltipus2 == ElelmiszerTipus2.drink && item.Szamlalo == Szamlalo.quantity)
{
f1[pos] /= 10;
f2[pos] /= 10; // deciliter volt
}
b0[pos] = item.MaxvalE ? 1 : 0;
}
for (i = 0; i < 16; i++)
{
str2 += string.Format("{0} {1} {2} {3}", i, f1[i], b0[i], f2[i]).Replace(',', '.') + (i == 15 ? ";" : "") +
Environment.NewLine;
}
i = 0;
if (tapanyagok.Count > 0)
{
//tápanyagtömb neve U lesz
str2 += Environment.NewLine + "param U: ";
for (i = 1; i <= tapanyagok.Count; i++)
{
str2 += string.Format(" {0}", i);
}
str2 += " :=" + Environment.NewLine;
i = 0;
foreach (Elelmiszer item in elelmiszerhasznalt)
{
i++;
j = 0;
str2 += String.Format("{0}", i);
foreach (Tapanyag item2 in tapanyagok)
{
j++;
str2 += String.Format(" {0}", item.TapanyagTartalom[item2]).Replace(',', '.');
}
str2 += ((i == E) ? ";" : "") + Environment.NewLine;
}
str2 += Environment.NewLine;
str2 += "param NapiMaxTapanyag:=" + Environment.NewLine;
for (i = 1; i <= tapanyagok.Count; i++)
{
double v = tapanyagok[i - 1].NapiMax ? tapanyagok[i - 1].NapiMaxBevitel : -1;
str2 += String.Format("{0} {1}", i, v).Replace(',', '.') + (i < T ? "," : ";") + Environment.NewLine;
}
str2 += Environment.NewLine;
str2 += "param NapiMinTapanyag:=" + Environment.NewLine;
for (i = 1; i <= tapanyagok.Count; i++)
{
str2 += string.Format("{0} {1}", i, tapanyagok[i - 1].NapiMinBevitel).Replace(',', '.') + (i < T ? "," : ";") +
Environment.NewLine;
}
str2 += Environment.NewLine;
}
str += "/* napi élelmiszeradagok kiszámítása */" + Environment.NewLine;
str += "s.t. feltetel0{n in 1..N,e in 1..E}:x[n,4,e]=x[n,1,e]+x[n,2,e]+x[n,3,e];" + Environment.NewLine;
str += Environment.NewLine;
str += "/* ha nem fogyaszható, akkor x=0 */" + Environment.NewLine;
str += "s.t. feltetel1{n in 1..N,i in 1..3,e in 1..E:W[e,i]=0 or (n=1 and i<E1) or (n=N and i>E2)}:x[n,i,e]=0;" +
Environment.NewLine;
str += Environment.NewLine;
/* pénz és öröm kiszámítása */
str += "/* pénz kiszámítása */" + Environment.NewLine;
str += "s.t. feltetel2: sum{n in 1..N,i in 1..3,e in 1..E}x[n,i,e]*W[e,15]=Penz;" + Environment.NewLine;
str += Environment.NewLine;
str += "/* öröm kiszámítása */" + Environment.NewLine;
str += "s.t. feltetel3: sum{n in 1..N,i in 1..3,e in 1..E}x[n,i,e]*W[e,16]=Orom;" + Environment.NewLine;
str += Environment.NewLine;
/* maxdarab feltételek */
str += "/* maxdarab feltételek */" + Environment.NewLine;
str += "s.t. feltetel4{n in 1..N,i in 1..3,e in 1..E:W[e,6]!=-1}:x[n,i,e]<=W[e,6];" + Environment.NewLine;
str += Environment.NewLine;
/* egység többszöröse */
str += "/* egység többszöröseire feltétel */" + Environment.NewLine;
str += "s.t. feltetel5{n in 1..N,i in 1..3,e in 1..E:W[e,5]=1}:x[n,i,e]=y[n,i,e];" + Environment.NewLine;
str += Environment.NewLine;
str += "s.t. feltetel5a{n in 1..N,i in 1..3,e in 1..E:W[e,5]=1}:b[n,i,e]<=y[n,i,e];" + Environment.NewLine;
str += Environment.NewLine;
str += "s.t. feltetel5b{n in 1..N,i in 1..3,e in 1..E:W[e,5]=1}:c[n,i,e]<=y[n,i,e];" + Environment.NewLine;
str += Environment.NewLine;
str += "/* tömege,űrmértéke az élelmiszereknek */" + Environment.NewLine;
str += "s.t. feltetel6{n in 1..N,i in 1..4,e in 1..E}:x[n,i,e]*W[e,8]=Tomeg[n,i,e];" + Environment.NewLine;
str += "s.t. feltetel7{n in 1..N,i in 1..4,e in 1..E}:x[n,i,e]*W[e,12]=Urmertek[n,i,e];" +
Environment.NewLine;
str += Environment.NewLine;
str += "/* nagyszam>=tömeg,űrmérték>=1/nagyszam minden élelmiszerre */" + Environment.NewLine;
str += "s.t. feltetel8{n in 1..N,i in 1..4,e in 1..E}:Tomeg[n,i,e]<=NagySzam*b[n,i,e];" + Environment.NewLine;
str += "s.t. feltetel9{n in 1..N,i in 1..4,e in 1..E}:Tomeg[n,i,e]*NagySzam2>=b[n,i,e];" + Environment.NewLine;
str += "s.t. feltetel10{n in 1..N,i in 1..4,e in 1..E}:Urmertek[n,i,e]<=NagySzam*c[n,i,e];" + Environment.NewLine;
str += "s.t. feltetel11{n in 1..N,i in 1..4,e in 1..E}:Urmertek[n,i,e]*NagySzam2>=c[n,i,e];" + Environment.NewLine;
str += Environment.NewLine;
str += "/* tömeg,űrmértékekre feltételek minden élelmiszerre */" + Environment.NewLine;
str += "s.t. feltetel12{n in 1..N,i in 1..3,e in 1..E}:Tomeg[n,i,e]>=W[e,9]*b[n,i,e];" + Environment.NewLine;
str += "s.t. feltetel13{n in 1..N,i in 1..3,e in 1..E:W[e,17]=1}:Tomeg[n,i,e]<=W[e,10]*b[n,i,e];" + Environment.NewLine;
str += "s.t. feltetel14{n in 1..N,i in 1..3,e in 1..E}:Urmertek[n,i,e]>=W[e,13]*c[n,i,e];" + Environment.NewLine;
str += "s.t. feltetel15{n in 1..N,i in 1..3,e in 1..E:W[e,18]=1}:Urmertek[n,i,e]<=W[e,14]*c[n,i,e];" + Environment.NewLine;
str += Environment.NewLine;
if (T > 0)
{
//tápanyagokra feltétel
str += "/* napi max,min bevitel a tápanyagokra */" + Environment.NewLine;
str += "s.t. feltetel16{n in 1..N,t in 1..T}:sum{e in 1..E}x[n,4,e]*U[e,t]=Tapanyag[n,t];" +
Environment.NewLine;
if (true)
{
str +=
"s.t. feltetel17{n in 1..N,t in 1..T:NapiMaxTapanyag[t]!=-1}:Tapanyag[n,t]<=NapiMaxTapanyag[t];" +
Environment.NewLine;
}
str += "s.t. feltetel18{n in 1..N,t in 1..T}:Tapanyag[n,t]>=NapiMinTapanyag[t];" +
Environment.NewLine;
str += Environment.NewLine;
}
//ételszám,tömeg,italszám,űrmérték feltételek adott étkezésre, illetve teljes napra [i=4 <=> egész napra feltétel]
//itt is lehetne egy sokkal tömörebb felírás, de inkább szétszedjük a feltételeket több esetre
str += "/* ételszám,tömeg,italszám,űrmérték számítása */" + Environment.NewLine;
str += "s.t. feltetel19{n in 1..N,i in 1..4}:sum{e in 1..E}b[n,i,e]*W[e,7]=Adat[n,i,0];" + Environment.NewLine;
str += "s.t. feltetel20{n in 1..N,i in 1..4}:sum{e in 1..E}x[n,i,e]*W[e,8]=Adat[n,i,1];" + Environment.NewLine;
str += "s.t. feltetel21{n in 1..N,i in 1..4}:sum{e in 1..E}c[n,i,e]*W[e,11]=Adat[n,i,2];" + Environment.NewLine;
str += "s.t. feltetel22{n in 1..N,i in 1..4}:sum{e in 1..E}x[n,i,e]*W[e,12]=Adat[n,i,3];" + Environment.NewLine;
str += Environment.NewLine;
// ételszámokra feltétel
str += "s.t. feltetel23{n in 1..N,i in 1..4:i=4 or (3*n+i>=3+E1 and 3*n+i<=3*N+E2)}:Adat[n,i,0]>=V[2*(i-1),0];" + Environment.NewLine;
str += "s.t. feltetel24{n in 1..N,i in 1..4:V[2*(i-1),1]=1 and (i=4 or (3*n+i>=3+E1 and 3*n+i<=3*N+E2))}:Adat[n,i,0]<=V[2*(i-1),2];" + Environment.NewLine;
// ételtömegre feltétel
str += "s.t. feltetel25{n in 1..N,i in 1..4:i=4 or (3*n+i>=3+E1 and 3*n+i<=3*N+E2)}:Adat[n,i,1]>=V[2*(i-1)+1,0];" + Environment.NewLine;
str += "s.t. feltetel26{n in 1..N,i in 1..4:V[2*(i-1)+1,1]=1 and (i=4 or (3*n+i>=3+E1 and 3*n+i<=3*N+E2))}:Adat[n,i,1]<=V[2*(i-1)+1,2];" + Environment.NewLine;
// italszámokra feltétel
str += "s.t. feltetel27{n in 1..N,i in 1..4:i=4 or (3*n+i>=3+E1 and 3*n+i<=3*N+E2)}:Adat[n,i,2]>=V[2*(i-1)+8,0];" + Environment.NewLine;
str += "s.t. feltetel28{n in 1..N,i in 1..4:V[2*(i-1)+8,1]=1 and (i=4 or (3*n+i>=3+E1 and 3*n+i<=3*N+E2))}:Adat[n,i,2]<=V[2*(i-1)+8,2];" + Environment.NewLine;
// italűrmértékre feltétel
str += "s.t. feltetel29{n in 1..N,i in 1..4:i=4 or (3*n+i>=3+E1 and 3*n+i<=3*N+E2)}:Adat[n,i,3]>=V[2*(i-1)+9,0];" + Environment.NewLine;
str += "s.t. feltetel30{n in 1..N,i in 1..4:V[2*(i-1)+9,1]=1 and (i=4 or (3*n+i>=3+E1 and 3*n+i<=3*N+E2))}:Adat[n,i,3]<=V[2*(i-1)+9,2];" + Environment.NewLine;
str += Environment.NewLine;
//változatosságra feltétel
//num tudjuk, hogy ételt vagy italt tartalmaz-e az adott élelmiszer, így külön szedjük a 2 esetet
str += "/* változatosságra feltétel */" + Environment.NewLine;
str +=
"s.t. feltetel31{n in 1..N,i in 1..3,e in 1..E:W[e,4]>1}:sum{m in 1..N,j in 1..3:3*m+j>=3*n+i and 3*m+j<3*n+i+D}b[m,j,e]<=1;" +
Environment.NewLine;
str +=
"s.t. feltetel32{n in 1..N,i in 1..3,e in 1..E:W[e,4]>1}:sum{m in 1..N,j in 1..3:3*m+j>=3*n+i and 3*m+j<3*n+i+D}c[m,j,e]<=1;" +
Environment.NewLine;
str += Environment.NewLine;
// célfüggvény megadása, illetve még egy plusz feltétel is egy ágban
if (etrendfeltetel.Koltsegmin)
{
str += "minimize cost:Penz;" + Environment.NewLine + Environment.NewLine;
}
else if (etrendfeltetel.Orommax)
{
str += "s.t. feltetel33:Penz<=Maxpenz;" + Environment.NewLine;
str += "maximize cost:Orom;" + Environment.NewLine + Environment.NewLine;
}
else
{
str += "s.t. feltetel33:Penz<=Maxpenz;" + Environment.NewLine;
str += "maximize cost:0;" + Environment.NewLine + Environment.NewLine;
}
str += "/* a lineáris program megoldása */" + Environment.NewLine;
str += "solve;" + Environment.NewLine + Environment.NewLine;
str += "data;" + Environment.NewLine + Environment.NewLine;
str += str2 + Environment.NewLine;
str += "end;" + Environment.NewLine;
File.WriteAllText(input_filename, str);
}
catch (Exception e)
{
throw new ArgumentException("Unsuccessful save to file!");
}
ProcessStartInfo startInfo = new ProcessStartInfo();
startInfo.CreateNoWindow = false;
startInfo.UseShellExecute = etrendfeltetel.Solverelrejt;
startInfo.FileName = "glpsol.exe";
startInfo.WindowStyle = ProcessWindowStyle.Hidden;
startInfo.Arguments = "--math -o " + output_filename + " " + input_filename + "\"";
try
{
using (Process exeProcess = Process.Start(startInfo))
{
if (!exeProcess.WaitForExit(maxfutasiido))
{
throw new TimeoutException("We have reached the maximal running time, Glpk killed!");
}
}
}
catch (Exception ex)
{
if (ex is TimeoutException)
{
throw ex;
}
throw new FileNotFoundException("Not found the glpsol.exe or dll !");
}
if (!File.Exists(output_filename))
{
throw new FileNotFoundException("File not found!");
}
else
{
List <EAdat> C = new List <EAdat>();
int i, j, sorokszama = 0;
double opt = 0;
foreach (string item in File.ReadAllLines(output_filename))
{
sorokszama++;
if (sorokszama == 5 && item == "Status: INTEGER EMPTY")
{
return(new List <object> {
false
});
}
if (sorokszama == 6)
{
for (i = 0; item[i] != '='; i++)
{
;
}
i += 2;
for (j = i; item[j] != ' '; j++)
{
;
}
opt = double.Parse(item.Substring(i, j - i), NumberStyles.Any, new CultureInfo("en-US"));
}
string u = "";
for (i = 0; i < item.Length; i++)
{
if (item[i] != ' ' || i == 0 || item[i - 1] != ' ')
{
u += item[i];
}
}
string[] s = u.Trim().Split(' ');
if (s.Length >= 3 && s[1][0] == 'x')
{
double v = double.Parse(s[2], NumberStyles.Any, new CultureInfo("en-US"));
if (v > 0)
{
string[] t = s[1].Substring(2, s[1].Length - 3).Split(',');
int i1 = Convert.ToInt32(t[1]);
if (i1 <= 3)
{
C.Add(new EAdat(Convert.ToInt32(t[0]), i1, Convert.ToInt32(t[2]), v));
}
}
}
}
Mertekegyseg u1 = (Mertekegyseg)ABKezelo.Kiolvasas()
.Where(x => x is Mertekegyseg && (x as Mertekegyseg).Megnevezes == "gram").ToList().First();
Mertekegyseg u2 = (Mertekegyseg)ABKezelo.Kiolvasas()
.Where(x => x is Mertekegyseg && (x as Mertekegyseg).Megnevezes == "liter").ToList().First();
string fnev = ABKezelo.GetCurrentUser();
ABKezelo.TorolEtrendElelmiszer();
for (int nap = 1; nap <= N; nap++)
{
for (int etkezes = 1; etkezes <= 3; etkezes++)
{
foreach (EAdat item in C)
{
if (item.nap == nap && item.etkezes == etkezes)
{
Elelmiszer e = elelmiszerhasznalt[item.elelmiszer - 1];
double tomeg = 0, urtartalom = 0;
Mertekegyseg m1 = u1;
Mertekegyseg m2 = u2;
if (e is Etel)
{
tomeg = item.val * (e as Etel).EgysegTomegMennyiseg;
m1 = (e as Etel).TomegMertek;
}
else if (e is Ital)
{
urtartalom = item.val * (e as Ital).EgysegUrTartalomMennyiseg;
m2 = (e as Ital).Urmertek;
}
else
{
tomeg = item.val * (e as Menu).EgysegTomegMennyiseg;
m1 = (e as Menu).TomegMertek;
urtartalom = item.val * (e as Menu).EgysegUrTartalomMennyiseg;
m2 = (e as Menu).Urmertek;
}
DateTime datum = datum1.AddDays(nap - 1);
ABKezelo.Beszuras(new EtrendElelmiszer(fnev, datum, (EtkezesTipus)(etkezes - 1), e, item.val, tomeg, m1,
urtartalom, m2));
}
}
}
}
return(new List <object>()
{
true, opt, p
});
}
}
