{VERSION 3 0 "IBM INTEL NT" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "with(orthopoly);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#7(%\"GG%\"HG%\"LG%\"PG%\"TG%\"UG" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "\nint(P(2,x),x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*$)%\"xG\"\"$\"\"\"#\"\"\"\"\"#F&#!\"\"F+ " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "Q:=(k)->P(k,(h-a*x)/sqr t(h^2+a^2-2*a*h*x))/sqrt(h^2+a^2-2*a*h*x)^(k+1); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"QGR6#%\"kG6\"6$%)operatorG%&arrowGF(*&-%\"PG6$9$*&, &%\"hG\"\"\"*&%\"aGF4%\"xGF4!\"\"\"\"\"-%%sqrtG6#,(*$)F3\"\"#F9F4*$)F6 F@F9F4*(F6F9F3F4F7F9!\"#!\"\"F9)F:,&F0F4F4F4FEF(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "Q(3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#* &,&*&*$),&%\"hG\"\"\"*&%\"aGF*%\"xGF*!\"\"\"\"$\"\"\"F0*$),(*$)F)\"\"# F0F**$)F,F6F0F**(F,F0F)F*F-F0!\"##\"\"$F6F0!\"\"#\"\"&F6*&F(F0*$-%%sqr tG6#F3F0F=#!\"$F6F0*$)F3\"\"#F0F=" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "simplify(int(Q(5)*P(7,x),x=-1..1));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&*(,**&)%\"aG\"#:\"\"\"-%%csgnG6#,&F)\"\"\"%\"hG! \"\"F0\"$k#*&F(F+-F-6#,&F)F0F1F0F0!$k#*&F,F+)F1F*F+!\"(*&F5F+F:F+F;F0F ,F+F5F+F+*&)F1\"#8F+)F)\"\")F+!\"\"#F0\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "subs(SU,%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$* &*$)%\"aG\"\"(\"\"\"F)*$)%\"hG\"#8F)!\"\"#\"$G&\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "SU:=\{csgn(a-h)=-1,csgn(a+h)=1\};" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#SUG<$/-%%csgnG6#,&%\"aG\"\"\"%\"hG! \"\"F./-F(6#,&F+F,F-F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 120 "for k from 0 to 5 do \n for l from 0 to 5 do\n TT:=simplify(int (Q(k)*P(l,x),x=-1..1));\n C[k,l]:=subs(SU,TT);\n od; \nod;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "C[3,2];C[2,3];" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#,$*&*$)%\"aG\"\"#\"\"\"F)*$)%\"hG\"\"'F)!\"\"\" \"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&*$)%\"aG\"\"$\"\"\"F)*$)%\" hG\"\"'F)!\"\"#\"#?\"\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 136 "for k from 0 to 5 do \n for l from 0 to 5 do\n if k=l then TT:= 1/a^(k+1) else TT:=0 fi;\n print (X[k,l],(2*l+1)/2*C[k,l]-TT);\n od; \nod;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"!F&,&*&\"\"\"F)% \"hG!\"\"\"\"\"*&F)F)%\"aGF+!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$& %\"XG6$\"\"!\"\"\"*&%\"aG\"\"\"*$)%\"hG\"\"#F*!\"\"" }}{PARA 11 "" 1 " " {XPPMATH 20 "6$&%\"XG6$\"\"!\"\"#*&*$)%\"aGF'\"\"\"F,*$)%\"hG\"\"$F, !\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"!\"\"$*&*$)%\"aGF '\"\"\"F,*$)%\"hG\"\"%F,!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"X G6$\"\"!\"\"%*&*$)%\"aGF'\"\"\"F,*$)%\"hG\"\"&F,!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"!\"\"&*&*$)%\"aGF'\"\"\"F,*$)%\"hG\"\" 'F,!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"\"\"\"!*&\"\" \"F)*$)%\"hG\"\"#F)!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\" \"\"F&,&*&%\"aG\"\"\"*$)%\"hG\"\"$F*!\"\"\"\"#*&F*F**$)F)\"\"#F*F/!\" \"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"\"\"\"#,$*&*$)%\"aGF '\"\"\"F-*$)%\"hG\"\"%F-!\"\"\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$ &%\"XG6$\"\"\"\"\"$,$*&*$)%\"aGF'\"\"\"F-*$)%\"hG\"\"&F-!\"\"\"\"%" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"\"\"\"%,$*&*$)%\"aGF'\"\" \"F-*$)%\"hG\"\"'F-!\"\"\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"X G6$\"\"\"\"\"&,$*&*$)%\"aGF'\"\"\"F-*$)%\"hG\"\"(F-!\"\"\"\"'" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"#\"\"!*&\"\"\"F)*$)%\"hG\" \"$F)!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"#\"\"\",$*&% \"aG\"\"\"*$)%\"hG\"\"%F+!\"\"\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 $&%\"XG6$\"\"#F&,&*&*$)%\"aGF&\"\"\"F,*$)%\"hG\"\"&F,!\"\"\"\"'*&F,F,* $)F+\"\"$F,F1!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"#\" \"$,$*&*$)%\"aGF'\"\"\"F-*$)%\"hG\"\"'F-!\"\"\"#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"#\"\"%,$*&*$)%\"aGF'\"\"\"F-*$)%\"hG\"\"(F- !\"\"\"#:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"#\"\"&,$*&*$) %\"aGF'\"\"\"F-*$)%\"hG\"\")F-!\"\"\"#@" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"$\"\"!*&\"\"\"F)*$)%\"hG\"\"%F)!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"$\"\"\",$*&%\"aG\"\"\"*$)%\"hG\"\"&F+! \"\"\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"$\"\"#,$*&*$) %\"aGF'\"\"\"F-*$)%\"hG\"\"'F-!\"\"\"#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"$F&,&*&*$)%\"aGF&\"\"\"F,*$)%\"hG\"\"(F,!\"\"\"#?*&F ,F,*$)F+\"\"%F,F1!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\" $\"\"%,$*&*$)%\"aGF'\"\"\"F-*$)%\"hG\"\")F-!\"\"\"#N" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"$\"\"&,$*&*$)%\"aGF'\"\"\"F-*$)%\"hG\"\" *F-!\"\"\"#c" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"%\"\"!*&\" \"\"F)*$)%\"hG\"\"&F)!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$ \"\"%\"\"\",$*&%\"aG\"\"\"*$)%\"hG\"\"'F+!\"\"\"\"&" }}{PARA 11 "" 1 " " {XPPMATH 20 "6$&%\"XG6$\"\"%\"\"#,$*&*$)%\"aGF'\"\"\"F-*$)%\"hG\"\"( F-!\"\"\"#:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"%\"\"$,$*&* $)%\"aGF'\"\"\"F-*$)%\"hG\"\")F-!\"\"\"#N" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"%F&,&*&*$)%\"aGF&\"\"\"F,*$)%\"hG\"\"*F,!\" \"\"#q*&F,F,*$)F+\"\"&F,F1!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&% \"XG6$\"\"%\"\"&,$*&*$)%\"aGF'\"\"\"F-*$)%\"hG\"#5F-!\"\"\"$E\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"&\"\"!*&\"\"\"F)*$)%\"hG\" \"'F)!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"&\"\"\",$*&% \"aG\"\"\"*$)%\"hG\"\"(F+!\"\"\"\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 $&%\"XG6$\"\"&\"\"#,$*&*$)%\"aGF'\"\"\"F-*$)%\"hG\"\")F-!\"\"\"#@" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"&\"\"$,$*&*$)%\"aGF'\"\"\" F-*$)%\"hG\"\"*F-!\"\"\"#c" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$ \"\"&\"\"%,$*&*$)%\"aGF'\"\"\"F-*$)%\"hG\"#5F-!\"\"\"$E\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$&%\"XG6$\"\"&F&,&*&*$)%\"aGF&\"\"\"F,*$)%\"hG\" #6F,!\"\"\"$_#*&F,F,*$)F+\"\"'F,F1!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "simplify(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&* (,**&)%\"aG\"#8\"\"\"-%%csgnG6#,&F)\"\"\"%\"hG!\"\"F0!$C**&F(F+-F-6#,& F)F0F1F0F0\"$C**&F,F+)F1F*F+F2*&F:F+F5F+F2F0F,F+F5F+F+*&)F1\"#8F+)F)\" \"(F+!\"\"#F2F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "6 0 0" 31 } {VIEWOPTS 1 1 0 1 1 1803 }