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?
