> a1:=beta=Pi/10; a1 := beta = 1/10*Pi > a2:=gamma=(Pi^2)/(2*beta*(Pi-2*beta)); a2 := gamma = 1/2*Pi^2/beta/(Pi-2*beta) > a3:=subs(a1,a2); a3 := gamma = 25/4 > a4:=h=(1-(2*sinh(x*gamma*beta)*sinh(x*gamma(Pi/2-beta))))/(sinh(Pi*x*gamma/2)*tanh(Pi*x)); a4 := h = (1-2*sinh(x*gamma*beta)*sinh(x*gamma(1/2*Pi-beta)))/sinh(1/2*Pi*x*gamma)/tanh(Pi*x) > a5:=subs([a1,a3],a4); a5 := h = (1-2*sinh(5/8*Pi*x)*sinh(x*(25/4)(2/5*Pi)))/sinh(25/8*Pi*x)/tanh(Pi*x) > a6:=int(tanh(Pi*x)/x*h(x)*LegendreP(-.5+I*x,1,cosh(2))^2,x = .1e-2 .. 3); a6 := int(tanh(Pi*x)/x*h(x)*LegendreP(-.5+I*x,1,cosh(2))^2,x = .1e-2 .. 3) > a7:=subs(h=h(x),a5); a7 := h(x) = (1-2*sinh(5/8*Pi*x)*sinh(25/4*x))/sinh(25/8*Pi*x)/tanh(Pi*x) > a8:=subs(a7,a6); a8 := int(1/x*(1-2*sinh(5/8*Pi*x)*sinh(25/4*x))/sinh(25/8*Pi*x)*LegendreP(-.5+I*x,1,cosh(2))^2,x = .1e-2 .. 3) > evalf(a8); 2.774531147-.2279070192e-28*I > Is that what you wanted? Regards, Jim FitzSimons

I teach mathematics at Paradise Valley Community College. We use the TI-83 and TI-84 for just about all our mathematics courses. I have a TI-92 and use a TI-89 calculator for my own use as a tutor. The TI-89 is a true CAS like Maple. The software used in the TI-92 and TI-89 came from the developers of the CAS DERIVE. I would like to have Maple in a calculator like the TI-89. How much would it cost? Who would sell it? The college has Maple, so that I where I use it.