Combine Solve with ReplaceAll within it?

Questions
, ,
1

Hi everyone.
I’m trying to solve something like this:

Solve[{vccp == ReplaceAll[{vc1n1 -> vc1p, vc3n1 -> vc3p, voutn1 -> voutp}][vcc[n]],
  vc2p ==  ReplaceAll[{vc1n1 -> vc1p, vc3n1 -> vc3p, voutn1 -> voutp}][vc2[n]],
  vc3p == ReplaceAll[{vc1n1 -> vc1p, vc3n1 -> vc3p, voutn1 -> voutp}][vc3[n]],
  vc1p == ReplaceAll[{vc1n1 -> vc1p, vc3n1 -> vc3p, voutn1 -> voutp}][vc1[n]],
  voutp == ReplaceAll[{vc1n1 -> vc1p, vc3n1 -> vc3p, voutn1 -> voutp}][
    vout[n]]}, {vccp, vc2p, vc3p, vc1p, voutp}]

replacing the variables in equations vcc[n]; vc2[n]; vc3[n] etc by the ones explicited.
The simulation is running forever.
Any ideas?

Thank you very much

2

It runs in a split second for me. Are there preexisting assignments to some variables?

In[669]:= Solve[{vccp == 
   ReplaceAll[{vc1n1 -> vc1p, vc3n1 -> vc3p, voutn1 -> voutp}][
    vcc[n]], 
  vc2p == ReplaceAll[{vc1n1 -> vc1p, vc3n1 -> vc3p, voutn1 -> voutp}][
    vc2[n]], 
  vc3p == ReplaceAll[{vc1n1 -> vc1p, vc3n1 -> vc3p, voutn1 -> voutp}][
    vc3[n]], 
  vc1p == ReplaceAll[{vc1n1 -> vc1p, vc3n1 -> vc3p, voutn1 -> voutp}][
    vc1[n]], 
  voutp == ReplaceAll[{vc1n1 -> vc1p, vc3n1 -> vc3p, 
      voutn1 -> voutp}][vout[n]]}, {vccp, vc2p, vc3p, vc1p, voutp}]

(* Out[669]= {{vccp -> vcc[n], vc2p -> vc2[n], vc3p -> vc3[n], 
  vc1p -> vc1[n], voutp -> vout[n]}} *)
3

Yes. The expressions of vcc[n], vc3[n], vc2[n], vc1[n], vout[n] are quite long (8 mathematica text lines long) and all of them depend on vc1n1; vc3n1; voutn1.
I’m trying to replace these vc1n1; vc3n1; voutn1 by vc1p, vc3p and voutp in all of them to achieve something like this:
vc1p = alphavc1p + betavc3p + lambdavoutp
vc3p = alphavc1p + betavc3p + lambdavoutp
vc2p = alphavc1p + betavc3p + lambda*voutp
…

And after this solve the new established system to the variables vc1p; vc2p; vc3p; vccp; voutp

Thank you for your reply