谁能帮我用maple 15编写个程序，求出n的表达式。公式如图，其中只有n是未知的。

> restart:> 求出n的表达式。公式如图，其中只有n是未知的。> > a*L1*(n-1)/(n-i)+b*(L1*(n-1)/(n-i))^3; 3 3 a L1 (n - 1) b L1 (n - 1) ------------ + -------------- n - i 3 (n - i)> rr:=subs({a=a1/L1,b=b1/L1^3},%); 3 a1 (n - 1) b1 (n - 1) rr := ---------- + ----------- n - i 3 (n - i)> F:=sum(rr,i=1..n-1); 3 2 F := -(-b1 n + 3 b1 n - 3 b1 n + b1) Zeta(3) - (-a1 n + a1) gamma 3 2 - 1/2 (-b1 n + 3 b1 n - 3 b1 n + b1) Psi(2, n) - (-a1 n + a1) Psi(n)> solve(F,n);Warning, solutions may have been lost3 3 2 RootOf(2 Zeta(3) b1 _Z + Psi(2, _Z) b1 _Z - 6 Zeta(3) b1 _Z 2 - 3 Psi(2, _Z) b1 _Z + 6 Zeta(3) b1 _Z + 2 gamma a1 _Z + 3 Psi(2, _Z) b1 _Z + 2 Psi(_Z) a1 _Z - 2 b1 Zeta(3) - 2 a1 gamma - Psi(2, _Z) b1 - 2 Psi(_Z) a1)> 画图来看看在哪里得零> n1:='n1'; n1 := n1> F2:=subs(n=n1,F); 3 2 F2 := -(-b1 n1 + 3 b1 n1 - 3 b1 n1 + b1) Zeta(3) - (-a1 n1 + a1) gamma 3 2 - 1/2 (-b1 n1 + 3 b1 n1 - 3 b1 n1 + b1) Psi(2, n1) - (-a1 n1 + a1) Psi(n1)> > for n1 from 1 to 10 do> plot3d(F2,a1=-10..10,b1=-1..1); pp[n1]:=%:od:> with(plots):display(seq(pp[n],n=1..10),insequence=true);可以看到随着n增长，和0平面的焦点也在变化，是个动画再把a=a*l1;b=b*L1^3换回去就可以了，得到的结果