I am giving the following equations to *Mathematica* and it is giving any response .

The following is the command:-

```
Solve[
    {
           lam *p000 == mu*p100 , 
           mu*p001 == mu*p101 , 
           (lam + mu)*p010 == mu*(p001+p011+p110) , 
           2*mu*p011 == lam*p010 + mu*p111 , 
           (lam + mu)*p100 == mu*p011 + mu*p100 , 
           2*mu*p101 == mu*p011+mu*p111+lam*p100 , 
           (lam+2*mu)p110 == mu*p111+mu*p101 , 
           3*mu*p111 == lam*p110 , 
           p000+p001+p010+p011+p100+p101+p110+p111==1
    }
    , { p000,p001,p010,p011,p100,p101,p110,p111}
] 

```