pVinc

Untitled

Oct 20th, 2021
630
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.             N = 3;
  2.             numericUpDown1.Value = N;
  3.             UstawTablice();
  4.             int blad;
  5.             AZ = new Complex[N + 1, N + 1];
  6.             BZ = new Complex[N + 1];
  7.             XZ = new Complex[N + 1];
  8.  
  9.             Complex E2 = 10;
  10.             Complex E1 = 10;
  11.             double R = 10, Xc=10, Xl=10;
  12.  
  13.             AZ[1, 1] = 1; AZ[1, 2] = -1; AZ[1, 3] = -1;
  14.             AZ[2, 1] = R; AZ[2, 2] = new Complex(0, -Xc); AZ[2, 3] = 0;
  15.             AZ[3, 1] = 0; AZ[3, 2] = new Complex(0, Xc); AZ[3, 3] = new Complex(0, Xl);
  16.  
  17.             BZ[1] = Complex.Zero;
  18.             BZ[2] = E1;
  19.             BZ[3] = E2;
  20.  
  21.             for (int i = 1; i <= N; i++)
  22.             {
  23.                 for (int j = 1; j <= N; j++)
  24.                 {
  25.                     MacierzA.Rows[i-1].Cells[j-1].Value = AZ[i,j].ToString();
  26.                 }
  27.                 WektorB.Rows[i - 1].Cells[0].Value = BZ[i].ToString();
  28.             }
  29.             if (radioButton1.Checked)
  30.             {
  31.                 blad = MetodaGaussa.RozRowMacGaussa(AZ, BZ, XZ, 1e-30);
  32.             }
  33.             else
  34.             {
  35.                 blad = MetodaRozkladuLU.RozRowMacCroutDoolitta(AZ, BZ, XZ, 1e-30);
  36.             }
  37.             if (blad == 0)
  38.                 for (int i = 1; i <= N; i++)
  39.                     WektorX[0, i - 1].Value = XZ[i].ToString("0.000000");
  40.  
  41.            
  42.             textBox1.Text = "IpK bilans: " + (XZ[1] - XZ[2] - XZ[3]).ToString();
  43.             textBox2.Text = "IIpK bilans: " + (E1 - XZ[1]*R - XZ[2]*(-Complex.j*Xc)).ToString();
  44.  
  45.             double Pz = (E1*XZ[1].Conjugate + E2*XZ[3].Conjugate).Re;
  46.             textBox3.Text = "  Pz = " + Pz.ToString();
  47.  
  48.            
  49.             double Podb = (XZ[1] * XZ[1].Conjugate * R).Re + (XZ[2] * XZ[2].Conjugate * (-Complex.j * Xc)).Re + (XZ[3] * XZ[3].Conjugate * (Complex.j * Xl)).Re;
  50.             textBox4.Text = "Podb = " + Podb.ToString();
  51.            
  52.             Complex Sz = new Complex(0, 0);
  53.             Sz = E1 * XZ[1].Conjugate + E2 * XZ[3].Conjugate;
  54.             textBox5.Text = "  Sz= " + Sz.ToString();
  55.  
  56.             Complex Sodb = new Complex(0, 0);
  57.             Sodb = (XZ[1] * XZ[1].Conjugate * R) + (XZ[2] * XZ[2].Conjugate * (-Complex.j * Xc)) + (XZ[3] * XZ[3].Conjugate * (Complex.j * Xl));
  58.             textBox6.Text = "Sodb = " + Sodb.ToString();
RAW Paste Data