{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 139 "f:=(n-2)/sqrt(2*Pi)*GAMMA(n-1)/GAM MA(n-1/2)*(1-rho^2)^(n/2-1/2)*(1-r^2)^(n/2-2)/(1-rho*r)^(n-3/2)*hyperg eom([1/2,1/2],[n-1/2],rho*r/2+1/2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 113 "g:=eval(f,r=rho-rho*(1-rho^2)/n+z*(1-rho^2)*sqrt(1/n +(1+11/2*rho^2)/n^2))*(1-rho^2)*sqrt(1/n+(1+11/2*rho^2)/n^2):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "a3:=-6*rho/sqrt(n): a4:=(72 *rho^2-6)/n:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "H3:=z*(z^2- 3): H4:=z^4-6*z^2+3: H6:=z^6-15*z^4+45*z^2-15: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "n:=30: rho:=0.9:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "plot(\{g,exp(-z^2/2)/sqrt(2*Pi)*(1+a3/6*H3+a4/24*H 4+a3^2/72*H6)\},z=-4..3.1);" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6&-%'CURVESG6$7_o7$$!\"%\"\"!$\"+=KbhQ!#77$$!+0-CXQ!\"*$ \"+DW<=ZF-7$$!+OXe5PF1$\"+rLwr1MF1$ \"+f)*[J$)F-7$$!+&G)*\\D$F1$\"+m1F95!#67$$!+'GSV6$F1$\"+j(zp@\"FH7$$!+ vqpoHF1$\"+Tr@p9FH7$$!+dE2=GF1$\"+3=N%y\"FH7$$!+%HJzm#F1$\"+h5Jk@FH7$$ !+[C\\8DF1$\"+fZOPEFH7$$!+GEYxBF1$\"+qL+OJFH7$$!+p_KCAF1$\"+40.1QFH7$$ !+8\"f02#F1$\"+Su/:YFH7$$!+IpPA>F1$\"+%[5ia&FH7$$!+7L\"yy\"F1$\"+&fg2a 'FH7$$!+bT!yi\"F1$\"+Ef;NzFH7$$!+5aD#\\\"F1$\"+Oh')>$*FH7$$!+'**zXL\"F 1$\"+yvP>6!#57$$!+P0,&>\"F1$\"+9b668Fdq7$$!+@2)=/\"F1$\"+)Qx9b\"Fdq7$$ !*B\\1'*)F1$\"+Wqk5=Fdq7$$!*O9#RuF1$\"+O7O7@Fdq7$$!*?i?/'F1$\"+a-j:CFd q7$$!*&[/NXF1$\"+#\\)4mFFdq7$$!*Px'pHF1$\"+.#zl9$Fdq7$$!*P?qg\"F1$\"+z 7'*zMFdq7$$!)[8`8F1$\"+%*3pDQFdq7$$\"*u.^Q\"F1$\"+0G!R9%Fdq7$$\"*PND(G F1$\"+:jI)Q%Fdq7$$\"+l'=@f$Fdq$\"+U!pLZ%Fdq7$$\"*'>q6VF1$\"+nyyJXFdq7$ $\"+S#*=6ZFdq$\"+'3\"Q^XFdq7$$\"+?ln5^Fdq$\"+690hXFdq7$$\"+g,U5`Fdq$\" +/'))>c%Fdq7$$\"++Q;5bFdq$\"+NuBgXFdq7$$\"+Su!*4dFdq$\"+$4Mdb%Fdq7$$\" *3^'4fF1$\"+LzT[XFdq7$$\"+b_cFmFdq$\"+ol0)\\%Fdq7$$\"*VzaM(F1$\"+=VY3W Fdq7$$\"+]g+7\")Fdq$\"+En)zE%Fdq7$$\"*nK&y))F1$\"+L!Q43%Fdq7$$\"+?(>Jd *Fdq$\"+BrIsQFdq7$$\"+x1xE5F1$\"+#eO)GOFdq7$$\"+)Q2F5\"F1$\"+!)z=FLFdq 7$$\"+)4W'y6F1$\"+;22&*HFdq7$$\"+DY4]7F1$\"+))eXiEFdq7$$\"+_^a@8F1$\"+ zr+>BFdq7$$\"+S:B'R\"F1$\"+3qne>Fdq7$$\"+Gz\"4Z\"F1$\"+]^63;Fdq7$$\"+C v$Ra\"F1$\"+EsT&G\"Fdq7$$\"+>r&ph\"F1$\"+m'z*=**FH7$$\"+o=S$p\"F1$\"+# GZ'RsFH7$$\"+=m%)pZV=F1$\"+Bd)zK$FH7$$\"+yt4<>F 1$\"+9])\\1#FH7$$\"+j**Q#*>F1$\"+oU=n6FH7$$\"+ZDon?F1$\"+K#Q>'fF-7$$\" +s;NU@F1$\"+-XW1FF-7$$\"+&z?q@#F1$\"+w;=_5F-7$$\"+mRj&G#F1$\"+wC'pq$!# 87$$\"+NrCaBF1$\"+xh[[5Fg^l7$$\"+2S_6DF1$\"+^eqR:!#:7$$\"+;V>_EF1$\"+% >@12\"!#=7$$\"+0#y@!GF1$\"+Fm7i?!#[7$$\"+D>tXHF1$!+Zr@C)*Fh_l7$$\"#J! \"\"$!+9T&y(pFg^l-%'COLOURG6&%$RGBG$\"#5Fg`l$F*F*F`al-F$6$7ao7$F($\"3[ pa+y'f()f%!#?7$$!3ymmT0-CXQ!#<$\"3q@)=8s&>ZkFgal7$$!3NLekNXe5PF[bl$\"3 ]L\"=:)y0+%)Fgal7$$!3gm;z^,:fNF[bl$\"3#\\$\\6o/A%4\"!#>7$$!3Um;ai>r1MF [bl$\"3U!zAAFtwP\"Fhbl7$$!3ELeR&G)*\\D$F[bl$\"3mv(*)HV5An\"Fhbl7$$!3!p ;zfGSV6$F[bl$\"3J\\(zcq-1%>Fhbl7$$!3!**\\7[2(poHF[bl$\"35Q/c?!)4*>#Fhb l7$$!3em\"zuls!=GF[bl$\"3$[0#3Dj%oV#Fhbl7$$!3++Dc%HJzm#F[bl$\"3-#f!=<6 \\[EFhbl7$$!3RLL3[C\\8DF[bl$\"3'p-XBENf'GFhbl7$$!3km;/GEYxBF[bl$\"3=08 IM_3)4$Fhbl7$$!3'****\\#p_KCAF[bl$\"3myA)>![_rMFhbl7$$!3!****\\P6f02#F [bl$\"3'Q/ZdO&z]SFhbl7$$!3/++vIpPA>F[bl$\"3'\\FB\">!oh)[Fhbl7$$!3'o;zC J8yy\"F[bl$\"3E]8=K+6PfFhbl7$$!34LL3bT!yi\"F[bl$\"3%)yGU\"\\t:f(Fhbl7$ $!3?LLL5aD#\\\"F[bl$\"3+dGF-&=KM*Fhbl7$$!3z*\\7j**zXL\"F[bl$\"3MW^0Q_u v6Fh_l7$$!3KLL$y`5]>\"F[bl$\"3.FFGmgz=9Fh_l7$$!3()*\\78s!)=/\"F[bl$\"3 Ow+)ydO9r\"Fh_l7$$!37)*\\PR#\\1'*)Fh_l$\"3Du6@\\1q5?Fh_l7$$!3jGLekV@Ru Fh_l$\"30Uj*R$=,TBFh_l7$$!3,K$e*3A1UgFh_l$\"3%*3T53yfeEFh_l7$$!3*fm;/' [/NXFh_l$\"3&Qj#*z^UM,$Fh_l7$$!3/m;zutnpHFh_l$\"3_h_NkL-)Q$Fh_l7$$!35* *\\(oP?qg\"Fh_l$\"3OgO6a542PFh_l7$$!3)>mm\"z[8`8Fhbl$\"3Dr!QQr1W-%Fh_l 7$$\"3]*****\\t.^Q\"Fh_l$\"3wCSrx?Y$H%Fh_l7$$\"3i+]P\\&>)G@Fh_l$\"3#ej $pQv&GR%Fh_l7$$\"3u,+vj``sGFh_l$\"3gaVMp8]lWFh_l7$$\"3j]7`4qKKKFh_l$\" 3WbH7XFh_l7$$\"3U[P4,.\">&RFh_l$\"35675::l:XFh_l7$$\"3'GP %)R71=8%Fh_l$\"3TDi1g]/q6VFh_l$\"3yH77EYM;XFh_l7$ $\"3H[(=nA*=6ZFh_l$\"3DI^aX:92XFh_l7$$\"3G*\\il]w16&Fh_l$\"3-6u;'yar[% Fh_l7$$\"3E]iS'yj,^&Fh_l$\"3a+;#oYlhX%Fh_l7$$\"3D,+Dm5l4fFh_l$\"3*fY:< @VST%Fh_l7$$\"3CL$eRClvi'Fh_l$\"31\"e#ot!3.J%Fh_l7$$\"3Clmm@%zaM(Fh_l$ \"3=*)G.x)H6<%Fh_l7$$\"34NL3Ug+7\")Fh_l$\"3#H%fPltA&)RFh_l7$$\"3'\\++D mK&y))Fh_l$\"37F%eqldRw$Fh_l7$$\"3_nT&)3(>Jd*Fh_l$\"3;:z%y`BV5#Fh_l7$$\"3-LeRQ:B'R\"F[bl $\"3n:[)4m$Q-=Fh_l7$$\"33+vVEz\"4Z\"F[bl$\"35)ov!=w[6:Fh_l7$$\"3Y$3x@_ PRa\"F[bl$\"3Q.!)RiChU7Fh_l7$$\"3&om;z6dph\"F[bl$\"3f#>!*QPQ3$**Fhbl7$ $\"3?$3_v'=S$p\"F[bl$\"3mVPZYSZfvFhbl7$$\"3e*\\(=F[bl$\"3._JFjV)*>AFhbl7$$\"3=L$eaa#on?F[bl$!3=W/x 2o!=H\"!#@7$$\"35]iSp;NU@F[bl$!3J_[$)eF)p](Fgal7$$\"3-nTN$z?q@#F[bl$!3 3h*)G&4NPF\"Fhbl7$$\"3q$3FM'Rj&G#F[bl$!3%=48!o45)e\"Fhbl7$$\"3O++]LrCa BF[bl$!3YnL3yN4mn;H0S _6DF[bl$!3c!H$y![H.y\"Fhbl7$$\"3ILLL9V>_EF[bl$!3CYE[_qA%\\\"Fhbl7$$\"3 E+vo.#y@!GF[bl$!3kbY:R#z^0\"Fhbl7$$\"3c+DJB>tXHF[bl$!3!ztNK2=$[iFgal7$ $\"33+++++++JF[bl$!3_KJRXqaFBFgal-F[al6&F]alF`alF^alF`al-%+AXESLABELSG 6$Q\"z6\"Q!Fegm-%%VIEWG6$;F(Fe`l%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "plot(\{g-exp(-z^2/2)/sqrt(2*Pi)*(1+a3/6*H 3+a4/24*H4+a3^2/72*H6)\},z=-4..3.1);" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6%-%'CURVESG6$7iq7$$!\"%\"\"!$!*fk?P(!#77$$!+ 0-CXQ!\"*$!+98-Hr1MF1$!+,HCXaF-7$$!+&G)*\\D$F1$!*i(Rzl!#67$$!+&GpY=$F1$!*)G&)opFH7$$ !+'GSV6$F1$!*XHiB(FH7$$!+\"o=:/$F1$!*PY#etFH7$$!+vqpoHF1$!*w3))H(FH7$$ !+m[Q$*GF1$!*h7g-(FH7$$!+dE2=GF1$!*+VFF1$!**ej%z&FH7$$! +%HJzm#F1$!*`+=%[FH7$$!+[C\\8DF1$!*,0dG#FH7$$!+GEYxBF1$\")Q\"=z$FH7$$! +p_KCAF1$\"*3d]M$FH7$$!+!>Uu9#F1$\"*e,@i%FH7$$!+8\"f02#F1$\"*v?Dk&FH7$ $!+mN^L?F1$\"*l+'=gFH7$$!+@!ok*>F1$\"*+5$3jFH7$$!+wCUf>F1$\"*vpV]'FH7$ $!+IpPA>F1$\"*cC/g'FH7$$!+Egt))=F1$\"*UKlf'FH7$$!+@^4b=F1$\"*#Gj-lFH7$ $!+;UX@=F1$\"*3CkJ'FH7$$!+7L\"yy\"F1$\"*n0l.'FH7$$!+M(3yq\"F1$\"*w%f$* \\FH7$$!+bT!yi\"F1$\"*VCfV$FH7$$!+5aD#\\\"F1$!)rBNBFH7$$!+'**zXL\"F1$! )gwOc!#57$$!+P0,&>\"F1$!*`0o2\"F`u7$$!+@2)=/\"F1$!*\">f*f\"F`u7$$!*B\\ 1'*)F1$!*1O0+#F`u7$$!*O9#RuF1$!**f]'G#F`u7$$!+!GQ1u'F`u$!*;%frBF`u7$$! *?i?/'F1$!*ev'HCF`u7$$!+iyIlcF`u$!*gr0X#F`u7$$!+DNb)G&F`u$!*n@YY#F`u7$ $!+(=*z6\\F`u$!*3`@Z#F`u7$$!*&[/NXF1$!*GSMZ#F`u7$$!+!)HqVTF`u$!*1v$oCF `u7$$!+56O_PF`u$!*6%*oX#F`u7$$!+S#>5O$F`u$!*st*QCF`u7$$!*Px'pHF1$!*jTW T#F`u7$$!+q)[$)G#F`u$!*i$)[N#F`u7$$!*P?qg\"F1$!*v(HrAF`u7$$!)[8`8F1$!* @er)>F`u7$$\"++8&*[iFH$!*!\\Kq)G@F`u$!*!pGl6F`u7$$\"*PND(GF1$!)`]>xF`u7$$\"+l'=@f$F`u$!)_)eL$F`u7$$ \"*'>q6VF1$\")XKW:F`u7$$\"+S#*=6ZF`u$\")W&RU%F`u7$$\"+?ln5^F`u$\")Dm*Q (F`u7$$\"++Q;5bF`u$\"*x>2/\"F`u7$$\"*3^'4fF1$\"*AZPM\"F`u7$$\"+b_cFmF` u$\"*)\\[x=F`u7$$\"*VzaM(F1$\"*VWLP#F`u7$$\"+]g+7\")F`u$\"*j$fFGF`u7$$ \"*nK&y))F1$\"*z.)pJF`u7$$\"+&>EeA*F`u$\"*np%zKF`u7$$\"+?(>Jd*F`u$\"*] 4uN$F`u7$$\"+#[mnu*F`u$\"*%3(QQ$F`u7$$\"+XKT?**F`u$\"*nI$F`u7$$\"+)4W'y6F1$\"*ZkW.$F`u7$$\"+DY 4]7F1$\"*^1@k#F`u7$$\"+_^a@8F1$\"*bOo9#F`u7$$\"+Y$)))e8F1$\"*NI,'=F`u7 $$\"+S:B'R\"F1$\"*aLHc\"F`u7$$\"+MZdL9F1$\"*5yCE\"F`u7$$\"+Gz\"4Z\"F1$ \")Rvi'*F`u7$$\"+Cv$Ra\"F1$\")rZ!G%F`u7$$\"+>r&ph\"F1$!)o'e=\"FH7$$\"+ o=S$p\"F1$!*On#)>$FH7$$\"+=m%)pWFH7 $$\"+3$fm!=F1$!*^$47VFH7$$\"+`c1D=F1$!*zbl4%FH7$$\"+)*>ZV=F1$!*.*RwPFH 7$$\"+)o%G!)=F1$!*vq1%GFH7$$\"+yt4<>F1$!*A$**\\:FH7$$\"+j**Q#*>F1$\"+4 0BY>F-7$$\"+ZDon?F1$\"+u!>64'F-7$$\"+s;NU@F1$\"+YFM@5FH7$$\"+&z?q@#F1$ \"+rK&*y8FH7$$\"+mRj&G#F1$\"+(fq^i\"FH7$$\"+NrCaBF1$\"+T%ylx\"FH7$$\"+ Xn!RP#F1$\"+)ot?!=FH7$$\"+ajc$R#F1$\"+\"RI)>=FH7$$\"+jfA8CF1$\"+'o'3I= FH7$$\"+sb)GV#F1$\"+6c8L=FH7$$\"+\"=XDX#F1$\"+*)\\JH=FH7$$\"+!z/AZ#F1$ \"+)e(**==FH7$$\"+*Rk=\\#F1$\"+d=e-=FH7$$\"+2S_6DF1$\"+ZM[!y\"FH7$$\"+ i\"f=e#F1$\"+Q6Qh;FH7$$\"+;V>_EF1$\"+`rA%\\\"FH7$$\"+0#y@!GF1$\"+O#z^0 \"FH7$$\"+D>tXHF1$\"+-#3$[iF-7$$\"#J!\"\"$\"+X;wH;F--%'COLOURG6&%$RGBG $\"#5Fe]m$F*F*F^^m-%+AXESLABELSG6$Q\"z6\"Q!Fc^m-%%VIEWG6$;F(Fc]m%(DEFA ULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1 " }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 139 "f:=(n-2)/sqrt(2*Pi)*GAMMA(n-1)/GAM MA(n-1/2)*(1-rho^2)^(n/2-1/2)*(1-r^2)^(n/2-2)/(1-rho*r)^(n-3/2)*hyperg eom([1/2,1/2],[n-1/2],rho*r/2+1/2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "h:=eval(f,r=tanh(r))/cosh(r)^2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "h:=eval(h,r=arctanh(rho)+rho/2/n+z*sqrt(1/n+( 6-rho^2)/2/n^2))*sqrt(1/n+(6-rho^2)/2/n^2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "a3:=0: a4:=2/n:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "H3:=z*(z^2-3): H4:=z^4-6*z^2+3: H6:=z^6-15*z^4+45*z ^2-15: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "n:=30: rho:=0.9 :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "plot(\{h-exp(-z^2/2)/s qrt(2*Pi)*(1+a3/6*H3+a4/24*H4+a3^2/72*H6)\},z=-4..4);" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "6%-%'CURVESG6$7io7$$!\"%\"\"!$ \")eo[\")!#87$$!+nFiDQ!\"*$\")f7F!*F-7$$!+o!)*Qn$F1$\")tOJ*)F-7$$!+xxE .NF1$\"(nIK(!#77$$!+Ok]JLF1$\"(C1[$F>7$$!+[9cgJF1$!(`\"HKF>7$$!+iN2-IF 1$!)[kq7F>7$$!+N&oz$GF1$!)kY\"o#F>7$$!+\")3DoEF1$!(#>xZ!#67$$!+:v2*\\# F1$!(UV\"yFX7$$!+8>1DBF1$!)d1U7FX7$$!+w))yr@F1$!)(Hh#=FX7$$!+S(R#**>F1 $!)R$Gv#FX7$$!++@)f#=F1$!)j%p.%FX7$$!+gi,f;F1$!)bGXcFX7$$!+\"G&R2:F1$! (YmS(!#57$$!+tK5F8F1$!(0.y*Ffp7$$!+$HsV<\"F1$!)Ai)=\"Ffp7$$!*a)4n**F1$ !)j\\?9Ffp7$$!*$\\[%R)F1$!)R3!f\"Ffp7$$!+NU+Sg\"Ffp 7$$!*)[`P2Vs\"F1$!(zsn)Ffp7$$\"+v7+#\\#Ffp$!(\"f :oFfp7$$\"*O&pfKF1$!(a#[[Ffp7$$\"++g#))3%Ffp$!(Zzj#Ffp7$$\"*kcz\"\\F1$ !'4kPFfp7$$\"+D(HXx&Ffp$\"(X/(>Ffp7$$\"*\"G5JmF1$\"(tCG%Ffp7$$\"+gC4pu Ffp$\"(]iY'Ffp7$$\"*6#32$)F1$\"(:0`)Ffp7$$\"+&=!)y6*Ffp$\")TqP5Ffp7$$ \"*Ey'G**F1$\")1C/7Ffp7$$\"+GJ*G3\"F1$\")`fk8Ffp7$$\"+J%=H<\"F1$\")oB' \\\"Ffp7$$\"+q,\"QD\"F1$\")CL)e\"Ffp7$$\"+3>qM8F1$\")!e[l\"Ffp7$$\"+1l )yP\"F1$\")t&)z;Ffp7$$\"+/62@9F1$\")hi(p\"Ffp7$$\"+.MmU9F1$\")l$Qq\"Ff p7$$\"+-dDk9F1$\")$*G3dY:F1$\"))\\'4q\"Ffp7$$\"+%HN[ i\"F1$\")uE*o\"Ffp7$$\"+fp'Rm\"F1$\"*,l4N=F1$\"*F1$\"*NLVP\"FX7$$\"+mXTk@F1$\"*[ $fk6FX7$$\"+od'*GBF1$\")&[L`*FX7$$\"+EcB,DF1$\")na^uFX7$$\"+v>:nEF1$\" )e,$p&FX7$$\"+0a#o$GF1$\"*snB?%F>7$$\"+`Q40IF1$\"**R(e.$F>7$$\"+\"3:(f JF1$\"*hsE@#F>7$$\"+e%GpL$F1$\"*<:W^\"F>7$$\"+:-V&\\$F1$\"*l]d1\"F>7$$ \"+ZhUkOF1$\"*$zX\\sF-7$$\"+