Numerical methods FindRoot，起始值

我有一个简单的方程组，我正试图用数值方法求解

    ClearAll["Global`*"]
     b1 = 1
     T = 2
     t = .5

FindRoot[{(1 - xbar1) 2 ra1 == n1 - (1 - n1)/T,
ra1 == (pa1^2) (b1^2)/pw,
pw == (1 - xbar1) ra1 - 1,
xbar1 == 1/t  Log[(t n1 + ra1)/ra1],
t[1 - xbar1] + Log[T] - Log[ra1] + Log[t (1 - n1)/(Exp[t] - 1)] == 
 0},
{{n1, .5}, {ra1, .5}, {pa1, .5}, {pw, 1.5}, {xbar1, .5}}, 
AccuracyGoal -> 11]

这是我得到的输出

FindRoot::nlnum: "The function value {0.25,0.333333,2.25,-0.31093,0.432752 
+0.5[0.5]} is not a list of numbers with dimensions {5} at 
{n1,ra1,pa1,pw,xbar1} = {0.5,0.5,0.5,1.5,0.5}."de here`{n1,ra1,pa1,pw,xbar1} =                    `   {0.5,0.5,0.5,1.5,0.5}."``

我想知道我是否没有正确指定初始起始值。我用NSolve解决了一个类似的问题，我没有问题得到一个结果，所以我被这里的问题难住了