how to solve the multiple nonlinear equation from last tern EXP

clc;

close all;

clear all;

n=3;

syms a0;

a=sym('a', [1 2*n]);

w=sym('w', [1 n]);

x=sym('x', [1 n]);

% syms ww

I1(1)=sym(zeros(1,1));

for j=1:n

f(1)=a0;

for i=1:2*n-1

f(i+1)=f(i)+a(i)*x(j)^i;

end

fun=f(end);

I1(1)

I1(j+1)=I1(j)+w(j)*fun

end

I2 = I1(end);

fun_hand(x(n))=fun;

I3=int(fun,x(end),-1,1)-I2;

temp=coeffs(I3,a0);

coeff_a(1)=temp(2);

for i=1:2*n-1

temp=coeffs(I3,a(i));

coeff_a(i+1)=temp(2);

end

for i=1:2*n

exp(i)=coeff_a(i)==0

end