Message Boards Message Boards

0
|
2197 Views
|
2 Replies
|
0 Total Likes
View groups...
Share
Share this post:

Value of a variable by eliminating others in system of equations?

Unable to find A11 by eliminating other variables

POSTED BY: JEEVANPREET KAUR
2 Replies

Ok, thanks.

POSTED BY: JEEVANPREET KAUR

If you put all values to all parameters you can solve very quickly:

  ClearAll["`*"] 

  Rn = 2; Ra = -1; α = 1; δ = -1; Q = 1; Ri = 1; F = -1; Le = 1; NA = -10;
  eq0 = α (Rn Subscript[C, 1, 1] - 
         Ra Subscript[B, 1, 1]) - δ^4 Subscript[A, 1, 1] - 
      Q Subscript[C, 0, 2] π δ^2 == 0;
  eq1 = -((δ^2 - Ri) Subscript[B, 1, 1] - α Subscript[A, 
         1, 1] F + π α Subscript[A, 1, 1] Subscript[B, 0, 
         2]) == 0;
  eq2 = 1/2 (α π Subscript[A, 1, 1] Subscript[B, 1, 1] - 
        8 π^2 Subscript[B, 0, 2] + 2 Subscript[B, 0, 2] Ri) == 0;
  eq3 = -(π α Subscript[C, 0, 2] Subscript[A, 1, 
         1] + α Subscript[A, 1, 
         1] + δ^2 (Subscript[C, 1, 1]/Le + 
           NA/Le Subscript[B, 1, 1])) == 0;
  eq4 = -((-π  α)/2 Subscript[A, 1, 1] Subscript[C, 1, 1] + 
        4 π^2 (Subscript[C, 0, 2]/Le + 
           NA/Le Subscript[B, 0, 2])) == 0;
  eq5 = π Subscript[A, 1, 1] - δ^2 Subscript[D, 1, 
       1] - π α Subscript[D, 0, 2] Subscript[A, 1, 1] == 0;
  eq6 = -((π  α)/2 Subscript[A, 1, 1] Subscript[D, 1, 1] + 
        4 α^2 Subscript[D, 0, 2]) == 0;

  sol = Solve[{eq0, eq1, eq2, eq3, eq4, eq5, eq6}, {Subscript[B, 1, 1], 
      Subscript[B, 0, 2], Subscript[C, 1, 1], Subscript[C, 0, 2], 
      Subscript[D, 1, 1], Subscript[D, 0, 2], Subscript[A, 1, 1]}]
  sol // N // MatrixForm
POSTED BY: Mariusz Iwaniuk
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract