Thank you very much Dr. Kamel Boughrara,  I will solve my problem as suggested.  Thank you once again for your time.

A.Q

Thank you very much Dr. Kamel Boughrara,  I will solve my problem as suggested.  Thank you once again for your time.

A.Q

Thank you vvvvvvvvvv much long rob.  The code worked

Best Regards

A.Q

Thank you vvvvvvvvvv much long rob.  The code worked

Best Regards

A.Q

Hi Longrob,

B[n1] = -A[n1]*R[s]^np/R[s]^(-np)

B[n2] = -(-mu[r]*A[n2]*R[r]^np+mu[r]*A[n2]*R[r]^np*np^2-M[n]*R[r])/(mu[r]*R[r]^(-np)*(-1+np^2))

A[n2] = (-np*mu[R[m]]*A[n1]*R[m]^np+np^3*mu[R[m]]*A[n1]*R[m]^np+np*mu[R[m]]*B[n1]*R[m]^(-np)-np^3*mu[R[m]]*B[n1]*R[m]^(-np)-np*mu[R[m]]*B[n2]*R[m]^(-np)+np^3*mu[R[m]]*B[n2]*R[m]^(-np)+M[n]*R[m])/(np*mu[R[m]]*R[m]^np*(-1+np^2))

A[n1] = (mu[R[m]]*B[n1]*R[m]^(-np)-mu[R[m]]*B[n1]*R[m]^(-np)*np^2-mu[R[m]]*A[n2]*R[m]^np+mu[R[m]]*A[n2]*R[m]^np*np^2-mu[R[m]]*B[n2]*R[m]^(-np)+mu[R[m]]*B[n2]*R[m]^(-np)*np^2-M[n]*R[m])/(mu[R[m]]*R[m]^np*(-1+np^2))

I have to solve these equations and find the values of Bn1, Bn2, An2, An1

I shall be very greatful if you could help me in this regard.

Thanks

A.Q