internal UjMertekegysegForm(Mertekegyseg modosit, bool megjelenit = false) : this() { try { mertekegyseg = modosit; this.megjelenit = megjelenit; textBox1.Text = mertekegyseg.Megnevezes; textBox1.Enabled = false; comboBox1.SelectedIndex = (int)mertekegyseg.Mertek; comboBox1.Enabled = false; numericUpDown1.Value = (decimal)mertekegyseg.Valtoszam; numericUpDown1.Enabled = false; checkBox1.Checked = mertekegyseg.Hasznalhato; checkBox2.Checked = mertekegyseg.Torolheto; checkBox2.Enabled = false; if (megjelenit) { foreach (Control item in Controls) { item.Enabled = false; } button1.DialogResult = DialogResult.Cancel; button1.Enabled = true; } } catch (Exception ex) { MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error); } }
public Ital(string felhasznaloNevHash, string megnevezes, byte orom, Penznem penz, double ar, bool egysegTobbszorose, List <bool> fogyaszthato, bool valtozatossag, bool hasznalhato, Dictionary <Tapanyag, double> tapanyagTartalom, double egysegUrTartalomMennyiseg, double minUrTartalom, double maxUrTartalom, bool maxUrTartalomE, Mertekegyseg urMertek) : base(felhasznaloNevHash, megnevezes, orom, penz, ar, egysegTobbszorose, fogyaszthato, valtozatossag, hasznalhato, tapanyagTartalom) { EgysegUrTartalomMennyiseg = egysegUrTartalomMennyiseg; MinUrTartalom = minUrTartalom; MaxUrTartalom = maxUrTartalom; MaxUrTartalomE = maxUrTartalomE; Urmertek = urMertek; }
public Etel(string felhasznaloNevHash, string megnevezes, byte orom, Penznem penz, double ar, bool egysegTobbszorose, List <bool> fogyaszthato, bool valtozatossag, bool hasznalhato, Dictionary <Tapanyag, double> tapanyagTartalom, double egysegTomegMennyiseg, double minTomeg, double maxTomeg, bool maxTomegE, Mertekegyseg tomegMertek) : base(felhasznaloNevHash, megnevezes, orom, penz, ar, egysegTobbszorose, fogyaszthato, valtozatossag, hasznalhato, tapanyagTartalom) { EgysegTomegMennyiseg = egysegTomegMennyiseg; MinTomeg = minTomeg; MaxTomeg = maxTomeg; MaxTomegE = maxTomegE; TomegMertek = tomegMertek; }
public Ital(XElement e, List <Penznem> penznemek, List <Mertekegyseg> mertekegysegek) : base(e.Element("Elelmiszer"), penznemek) { EgysegUrTartalomMennyiseg = double.Parse(e.Attribute("EgysegUrTartalomMennyiseg").Value, NumberStyles.Any, new CultureInfo("en-US")); MinUrTartalom = double.Parse(e.Attribute("MinUrTartalom").Value, NumberStyles.Any, new CultureInfo("en-US")); MaxUrTartalom = double.Parse(e.Attribute("MaxUrTartalom").Value, NumberStyles.Any, new CultureInfo("en-US")); MaxUrTartalomE = e.Attribute("MaxUrTartalomE").Value == "1"; Urmertek = mertekegysegek.Where(x => x.Megnevezes == e.Attribute("UrmertekMegnevezes").Value).ToList().First(); //Urmertek = (Mertekegyseg)ABKezelo.Kiolvasas().Where(x => x is Mertekegyseg && (x as Mertekegyseg).Megnevezes == e.Attribute("UrmertekMegnevezes").Value).ToList().First(); }
public EtrendElelmiszer(string felhasznaloNevHash, DateTime datum, EtkezesTipus etkezes, Elelmiszer elelmiszer, double val, double tomeg, Mertekegyseg tomegmertekegyseg, double urmertek, Mertekegyseg urmertekegyseg) : base(felhasznaloNevHash) { Datum = datum; Etkezes = etkezes; Elelmiszer = elelmiszer; Val = val; Tomeg = tomeg; Tomegmertekegyseg = tomegmertekegyseg; Urmertek = urmertek; Urmertekegyseg = urmertekegyseg; }
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; } }
public Menu(string felhasznaloNevHash, string megnevezes, byte orom, Penznem penz, double ar, bool egysegTobbszorose, List <bool> fogyaszthato, bool valtozatossag, bool hasznalhato, Dictionary <Tapanyag, double> tapanyagTartalom, byte maxDarab, double egysegTomegMennyiseg, Mertekegyseg tomegMertek, double egysegUrTartalomMennyiseg, Mertekegyseg urmertek, Dictionary <Elelmiszer, double> osszetevo, bool arszamitas) : base(felhasznaloNevHash, megnevezes, orom, penz, ar, egysegTobbszorose, fogyaszthato, valtozatossag, hasznalhato, tapanyagTartalom) { MaxDarab = maxDarab; EgysegTomegMennyiseg = egysegTomegMennyiseg; TomegMertek = tomegMertek; EgysegUrTartalomMennyiseg = egysegUrTartalomMennyiseg; Urmertek = urmertek; Osszetevo = osszetevo; Arszamitas = arszamitas; }
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; } }
public Tapanyag(string felhasznaloNevHash, string megnevezes, Mertekegyseg mertek, double napiMinBevitel, double napiMaxBevitel, bool napiMax, bool hasznalhato) : base(felhasznaloNevHash) { if (napiMax && napiMinBevitel > napiMaxBevitel) { throw new ArgumentException("The minimum daily intake should not be less than the maximal intake!"); } if (napiMax && napiMaxBevitel < 0.0) { throw new ArgumentException("The daily maximal intake should ne non-negative!"); } Megnevezes = megnevezes; Mertek = mertek; NapiMinBevitel = napiMinBevitel; NapiMaxBevitel = napiMaxBevitel; NapiMax = napiMax; Hasznalhato = hasznalhato; }
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 }); } }
private void Button1_Click(object sender, EventArgs evnt) { try { List <Elelmiszer> e = new List <Elelmiszer>(); double ertek = 0; int tipus = comboBox1.SelectedIndex + 3 * comboBox2.SelectedIndex; if (comboBox3.Items.Count == 0) { listBox1.DataSource = null; listBox1.DataSource = e; return; } Mertekegyseg mertek = (Mertekegyseg) ABKezelo.Kiolvasas() .Where(x => x is Mertekegyseg && (x as Mertekegyseg).Megnevezes == comboBox3.SelectedItem.ToString()).ToList().First(); Tapanyag tapanyag = null; if (tipus % 3 == 0) { ertek = (double)numericUpDown1.Value * mertek.Valtoszam; } else if (tipus % 3 == 1) { ertek = (double)numericUpDown1.Value * mertek.Valtoszam; } else if (comboBox4.SelectedIndex != -1) { ertek = (double)numericUpDown1.Value; tapanyag = (Tapanyag)ABKezelo.Kiolvasas() .Where(x => x is Tapanyag && (x as Tapanyag).Megnevezes == comboBox4.SelectedItem.ToString()).ToList().First(); } else { listBox1.DataSource = null; listBox1.DataSource = e; return; } foreach (Elelmiszer item in elelmiszerek) { double ertek2 = 0; if (tipus % 3 == 0) { if (item is Etel) { ertek2 = (item as Etel).EgysegTomegMennyiseg * (item as Etel).TomegMertek.Valtoszam; } else if (item is Menu) { ertek2 = (item as Menu).EgysegTomegMennyiseg * (item as Menu).TomegMertek.Valtoszam; } } else if (tipus % 3 == 1) { if (item is Ital) { ertek2 = (item as Ital).EgysegUrTartalomMennyiseg * (item as Ital).Urmertek.Valtoszam; } else if (item is Menu) { ertek2 = (item as Menu).EgysegUrTartalomMennyiseg * (item as Menu).Urmertek.Valtoszam; } } else { ertek2 = item.TapanyagTartalom[tapanyag]; } if (comboBox2.SelectedIndex == (int)Reláció.atleast) { if (ertek <= ertek2) { e.Add(item); } } else { if (ertek >= ertek2) { e.Add(item); } } } listBox1.DataSource = null; listBox1.DataSource = e; } catch (Exception ex) { MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error); } }
public void update() { try { int i = 0; double ar = 0; Penznem p = null; List <Mertekegyseg> mertekegysegek = new List <Mertekegyseg>(); List <Tapanyag> tapanyagok = new List <Tapanyag>(); var e = ABKezelo.Kiolvasas().ToList(); foreach (EtrendAdat item in e) { if (item is Mertekegyseg) { mertekegysegek.Add((Mertekegyseg)item); } else if (item is Tapanyag) { tapanyagok.Add((Tapanyag)item); } } double tomeg = 0; Mertekegyseg m1 = mertekegysegek.Where(x => x.Megnevezes == "gram").First(); double urmertek = 0; Mertekegyseg m2 = mertekegysegek.Where(x => x.Megnevezes == "liter").First(); Dictionary <Tapanyag, double> dict = new Dictionary <Tapanyag, double>(); foreach (Tapanyag item in tapanyagok) { dict.Add(item, 0); } foreach (KeyValuePair <Elelmiszer, double> item in Osszetevo) { if (i == 0) { p = item.Key.Penz; } i++; if (item.Key is Etel) { tomeg += item.Value * (item.Key as Etel).TomegMertek.Valtoszam; ar += item.Value / (item.Key as Etel).EgysegTomegMennyiseg * item.Key.Ar / p.Arfolyam * item.Key.Penz.Arfolyam; } else { urmertek += item.Value * (item.Key as Ital).Urmertek.Valtoszam; ar += item.Value / (item.Key as Ital).EgysegUrTartalomMennyiseg * item.Key.Ar / p.Arfolyam * item.Key.Penz.Arfolyam; } foreach (Tapanyag item2 in tapanyagok) { if (!item2.Hasznalhato) { continue; } double val; if (item.Key is Etel) { val = item.Value / (item.Key as Etel).EgysegTomegMennyiseg; } else { val = item.Value / (item.Key as Ital).EgysegUrTartalomMennyiseg; } val *= item.Key.TapanyagTartalom[item2]; dict[item2] += val; } } EgysegTomegMennyiseg = tomeg; TomegMertek = m1; EgysegUrTartalomMennyiseg = urmertek; Urmertek = m2; if (Arszamitas) { Ar = ar; Penz = p; } TapanyagTartalom = dict; ABKezelo.Modositas(this); } catch (Exception ex) { throw ex; } }