Path: csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!news.glorb.com!news-out.readnews.com!news-xxxfer.readnews.com!newspump.sol.net!posts.news.twtelecom.net!nnrp3.twtelecom.net!not-for-mail
From: Narasimham <mathma18@gmail.com>
Newsgroups: comp.soft-sys.math.mathematica
Subject: Re: Solving Equations with 3 variables and many parameters
Date: Tue, 4 Mar 2014 07:06:59 +0000 (UTC)
Sender: steve@smc.vnet.net
Approved: Steven M. Christensen <steve@smc.vnet.net>, Moderator
Message-ID: <lf3u2j$ch2$1@smc.vnet.net>
Lines: 20
Organization: Time-Warner Telecom
NNTP-Posting-Date: 04 Mar 2014 07:12:36 GMT
NNTP-Posting-Host: ace8f1d4.news.twtelecom.net
X-Trace: DXC=ZiY]a^YSRF28W0SG3emHW:C_A=>8kQj6=;[h;PUXBgb43`G[5H2>>M2EFiONJ7[Go6kgi9@bcC@h3
X-Complaints-To: abuse@twtelecom.net
Xref: csiph.com comp.soft-sys.math.mathematica:16608

a[i_] = i ; b[j_] = 2 j - 3;

NSolve[{P1 == (a[1] + Con*b[11] + b[12]*P2)/(2*b[11]), 
  P2 == (a[2] + Con*b[22] + b[21]*P1)/(2*b[22])}, {P1, P2}]
NSolve[{P1 == (a[1] + Con*b[11] + b[12]*P2 + b[13]*P3)/(2*b[11]), 
  P2 == (a[2] + Con*b[22] + b[21]*P1 + b[23]*P3)/(2*b[22]), 
  P3 == (a[3] + Con*b[33] + b[31]*P1 + b[32]*P2)/(2*b[33])}, {P1, P2, 
  P3}]

Define your a and b. C is protected.

Use either Solve or NSolve.

{{P1 -> 0.0539835\[VeryThinSpace]+ 1.05311 Con, 
  P2 -> 0.0500653\[VeryThinSpace]+ 1.00087 Con}}

{{P1 -> -0.818902 - 16.5375 Con, P2 -> -0.742073 - 14.9625 Con, P3 -> -0.718902 - 14.4875 Con}}

Narasimham