How solve nonlinear equations by 14 unknowns?


This is my code, i want to solve system by 14 equations and 14 unknowns(rr list).But the code doesn’t run…

Clear["Global`*"] T[0, t_] = 1; T[1, t_] = t; T[n_, t_] := 2 *t*T[n - 1, t] - T[n - 2, t]; For[n = 0, n <= 7, n++, Print["T[", n, ",t]= ", T[n, t], "\n"]]; tableoft = tt /.NSolve[T[7, tt], tt]; tableoft[[1]]; Subscript[z, 1][t_] = Sum[Simplify[Subscript[a, j]*T[j, t]], {j, 0, 6}]; Subscript[z, 2][t_] = Sum[Simplify[Subscript[b, l]*T[l, t]], {l, 0, 6}]; f[t_] = (t^4/6 - t^3/3 + t) /. t -> 1/2*(\[Tau] + 1); Subscript[k, 1][t_, s_] = s^3 /. s -> 1/4*(\[Tau] + 1)*(r + 1); Subscript[k, 1][t, s]*Subscript[z, 1][r]; p[\[Tau]_] =   Integrate[Subscript[k, 1][t, s]*Subscript[z, 1][r], {r, -1, 1}] Subscript[k, 2][t_, s_] = -2 (t - s) /. t -> 1/2*(\[Tau] + 1) /.    s -> 1/4*(\[Tau] + 1)*(r + 1); Subscript[k, 2][t, s]*Subscript[z, 2][r];     pp[\[Tau]_] =   Integrate[Subscript[k, 2][t, s]*Subscript[z, 2][r], {r, -1, 1}]; Subscript[g, 2][\[Tau]_] =   Expand[(f[t] + p[\[Tau]] + pp[\[Tau]])^2] // N; Subscript[\[Delta],    1][\[Tau]_] = ((Subscript[z,      1][\[Tau]])*((f[t] + p[\[Tau]] + pp[\[Tau]])) - 1) // N; Subscript[\[Delta],    2][\[Tau]_] = (Subscript[z, 2][\[Tau]] -Subscript[g, 2][\[Tau]]) // N;  Table[N[Subscript[\[Delta], 1][tableoft[[i]]]], {i, 1, 7}];  Table[N[Subscript[\[Delta], 2][tableoft[[i]]]], {i, 1, 7}];  r = Flatten[Table[N[{Subscript[\[Delta], 1][tableoft[[i]]],   Subscript[\[Delta], 2][tableoft[[i]]]}], {i, 1, 7}]];  rr =Table[Simplify[r[[i]]] == 0, {i, 1, 14}]  list =Flatten[Table[{Subscript[a, i], Subscript[b, i]}, {i, 0, 6}]];  Solve[rr, list] 

How to get solution fast?