Udregning af ligning med 1 ubekendt.

Nå, jeg fik den regnet ud i mit program, men synes nu stadig det er lidt besværligt at gøre det. Så hvis der nu skulle komme et guldkort til en smart måde, så ville jeg da stadig glæde mig over det!

/Lasse

Du må jo lave ligningen om til en algoritme, der kan laves til programlinjer !-)

Jeg gjorde sådan her for at finde X i 2. udregning, som vist i første indlæg.


TEXTBOX5.TEXT = det samme som 5 i eksemplet.
TEXTBOX4.TEXT = det samme som X i første udregning, som altså er bekendt når jeg skal udregne ligningen herunder.

Muligvis er den regnet alt for besværligt. Men forstår ikke lige hvad du mener med at lave ligningen om til en algoritme Roenving.

/Lasse


-------------



            try
            {
             
               
                Double Result0 = 0;
                Double Result1 = 0;
                Double Result2 = 0;
                Double Result3 = 0;
                Double Result4 = 0;
                Double Result5 = 0;
                Double XAmount = 0;

                foreach (DataGridViewRow R in dataGridView1.Rows)
                {
          if (R.Index != dataGridView1.CurrentRow.Index)
Result0 = Result0 + Convert.ToDouble(dataGridView1[2, R.Index].Value) * Convert.ToDouble(dataGridView1[3, R.Index].Value);
                             
      } 


                foreach (DataRow R in vareinformationer.Rows)
                {
                    Double Pris = 0;
                    Double Mængde = 0;
                    Double Result = 0;

                    switch (Convert.ToString(R[3]))
                    {


                   
                        case "biprodukt":
                            Pris = Convert.ToDouble(R[2]);
                            Mængde = Convert.ToDouble(R[1]);
                            Result = Pris * Mængde;
                            Result1 = Result1 + Result; break;

                        case "omkostning":
                            Pris = Convert.ToDouble(R[2]);
                            Mængde = Convert.ToDouble(R[1]);
                            Result = Pris * Mængde;
                            Result2 = Result2 + Result; break;

                    }

                }

               
                foreach (DataGridViewRow R in dataGridView1.Rows)
                {
                    if (R.Index == dataGridView1.CurrentRow.Index)
                  XAmount = Convert.ToDouble(dataGridView1[2, R.Index].Value);
                }

                Double KnownValues = Result0 + TP_O - TP_B;
                Result3 = Convert.ToDouble(textBox4.Text) * Convert.ToDouble(textBox5.Text);
                Result4 = Result3 - KnownValues;
                Result5 = Result4 / XAmount;

                Decimal ReS = Convert.ToDecimal(Result3);
                Decimal Res = Decimal.Round(ReS, 2);
                Råvarepris = Convert.ToString(Res);
                dataGridView1[3, dataGridView1.CurrentRow.Index].Value = Convert.ToString(Res);
            }


catch (Exception Ex)
            {

functions.Messagebox("Der skete en fejl under beregning af priser. Teknisk beskrivelse : " + 
Ex.Message, 0);
            }

lukket