?____ ( 3 f l v #,:IZk 1ir~ (4Pcw1DO]l '3DP[cow $39=FJag*7CNRbm ,GKHjrx/>L]m| /@Qa| &5FUdr!/@Q_hv7KZdr>qPVrx   $ @ _ .!c!l!!! "<"}""""""""""""""######S###$C$$$$$$$$$$$$$$$$$$$%%%S%W%]%`%d%l%u%%%%%%,&3&<&L&a&t&&&&&&&&&' '''$','3':'B'K'R''''''(P(((()Z)-*2*8*>*V*b*n*t*{*******+S++++++,,0,D,J,t,|,,,&-A-^-b-e-k-r---------.. ..".6._.s........ ///#/&/*/a/////////0!0-0<0A0E0U0_0k0v0}00000000(1V1Z11111112Z2^2j2q2y2222)3_3f33334A4x444445N5h555 666$6,6<6D6L6n6}666666677#7-7d7o7{77777777777 8'8-8b8888 99)9c9}999999.:a:i:q:::::: ;>;R;`;;;;;;;;;9>o>>>>(?-?r????@2@h@@@@@,A5AzAAA B-BTBjBBBC CC)CcCCCCCD!DJDDDDDDE9EmEEEE!F)F\^\c\m\\\\\\ ];][]]]]]]] ^^8^E^S^`^n^^^^^^^^__-_9_F_Z_n_________ ``,`9`P`g`t````````a$a1aAaRagazaaaaaaabb;bVbfb|bbbbbbbbbccTcXc\cdcrc{cccccccccd;dfddddee;eWeeeef@f_fhffffff g(g`gggyggggggg0h;hJh~hhhhh"i=iKiiiiiiiiiiiij jj"j-j3jojjjjkk0kekkkklJllll4mnmmmnKnXn\nnnnnnnnnnn ooDoyooo(pCpGpmpvpppppppqqqq$q0q:qAqGqLqqqq'r.rfrrrrr.s2s@sNssss,t`tttttttu5umuuuuuuuu$vPv|vvvvvvvvvv/wcwwwwwwwwwx4xjxxxxxx y6y?yIyTyyyzz-zBzbzzzzzz"{E{f{{{{{*|7|O|`|n||||}}8}E}_}y}}}}}}}}$~.~:~[~~~;kB )]zЁ ^kv=z>vބKjׅBkކ*]dowHLj4:[fow‰Ӊ܉&*ipxÊ"(-3EMR_mu~֋6kŒόی)AKV^mv 7;DHLOTrv}ێ".<@HUbԏ'9VetƐ5r .28=CK}˒Ғ1XՓ+fݔN-m Oߗ$_!_יXҚQɛA3nƝ>ݞP͟]ؠ 4p0MӢ:x@K¥Kئ"`ϧ3j-vQ9g-vӬ i7-XƯ"TDѱU۲e A0xNֶV'eѸV1h&dP¼ OĽ 6bɾLÿ?q*Tz @u½!FÈ 1fĥ-vXƢ%pǽ Wș9~ɸ2eʩI˕'[̑Y̓=JNQX_dk|κ)@DKP_vϒϧϪϿ/3Gi}БФз,148?GZ}ѫ",&a[k][l]);"complex.h""n","real(n) imag. 0 N- =nr8 rutilBx=",X1, " to +HHTOTiniAsteps9#kxobessjX0(xq 1 #@define@ A`LEN(a,b,c,d) sqrt(((b)@-(a))* `+h((dc @)KPBIG 1.0(e30]PCfPEPpS 0. (e --3FAC (3.1415926535/180.0y`FPMINC0|pFREEALL free_RETURN[`HUNC$ (QI`TMAX(QJ BM`AXIT 1`<STR 8pP1 (M+1) /* no. of polynomial coefficients */Q`ZaN 2 pBDIM 3>`ŀ  (2*NnPb`P pdPmePS RANSFaNVALAnRONE C3(*,đPI1 26& "8979!`PIO2570796aSAFE `WAPb`@ temp=;U=;=;;++r,YSTINYֲp`TOaX1X2 5#include~ Lp"$+D5`p stdioliBb$ring7u~n.0*0@CP3P4+@5@# P|sR0a3^0`#i0MP^#}0CP[B0PP@w0's%*snval);@%10.2f4s%11.6\%12 Pp#9t T$Pi&xx--sign(iter? j=(0,lla;Rl@;jj 01 %24+ <KY-Vm aŐn`diGnj6limkIvN`\Qj1jaj=lc!0s!kk<=kvl;k n`$Pi9$ijmH +1]-V_0l7Q1E Bn 2n=L1,jmax-NPR/2);n<IN(n +P2 v0` F0s -a)*V,*(a+b$ ; ,9nf(",%dpf`luR( ncmp(@txt,"B elEllip|)InUALegendrModified(sum C\Bturn f  o|mizon;Eme"cu" e bug uned)(t*lg*g P charU) == NULL)(v+nl-NR_END8voi(get)( xxZ!*)oc((_t)**a,**u,*(isq,*fp;*hn ,*i,*3lefright,nch,n#;*'A0=IA*( -k*IQ)-IRD*k!lobLupncumfq ,jYF,min4P ,nradRndx,*p(,*xm nrވ*prob)0; =betai _"dfE 5,df /(df+0gammq}2' )  ch*xpyp,dxsav;-T0.23 4-2.0*w06; +8;-8. (Explan"b(WdlinvGSVhow to use&0m. T, Xbo@oks wiC enable l .B )gram6)t hypert fm:th fu?ffectiveq s. Vol 1ng ealgoJrBmB anLis g9sh 8 E9`. H(elp,#t dnoecD ,{)E r!z@٠.!Note: Be sF}t ;P0p1Se.tA t beO S1,ny6!sdisk.)/* D er0*öJInte}=-e 4Pe&r*deos3G */~t 8 a-rixÌ*arisn !Qduc(fTgbF0#at P $po er rows1 (0cabon:ADstep VN **2! [ t 7larg 4@Mu?` Q+R Wfrea`he:&a 3that"0+E!8 w`1fAsage,Wpzey]I,ginback1e M_ m79s>#!re&WAaprray^k1shifrom 8256%>alpha96!`@BE)I-[ ,,-3X/\6|5.0}4/,70,9Kpj135690.40. 70710670.80.90x100L,0x204 080PPP0L}0pp=p@)N0P.`V`U`Tp00@`.0L}1*ntus~&!Tar.SV    GiC!qe-3061.596310 2< 2 Values3 MPTRf\R3.1415926`535897 93#V*x*(Px*x-M)n(x)-(powD(xt)-1#0x+28!cos!;5 iadamulltigMarl%877p(al0NP]=mb=sqr&t y+ z)I y* ;a.r}mhPs;^D (- 36619772/ax8)*()1-6z(:0262/c5&1+z<:5[i-1]=(fft *(dum=P)>argf th M :ve(1,n1,& 12,n2 90flohatbb;,QbsubtQ/by j0  00a&iH@A8bijute Nd y3sBsy" "b ig = /e10; == S k;d0Cf L/c ft,c,NVAL,f eck-s$ -ef:i9-(y;;:0 cw- r@r&<$err:c r72Q C"A0x hygeoJDp iv< I ,CP4y`Gev\D8<oubroo*a3S [9ut  L po(d8&SLm3! nly ( h  [L/RGol n cy( taays;d?K F FauZG44L41f! ropyjsu6ue...A0`d8LrdZup_L0@1,!y&automyclW 4y#(sumU o=. 774 de, whY V  2 s~c S  eImO'2QK`90#h :H.)d=0.5*(e=(d x >=  ? a-x : b-xdd%&)5022PS0l]%12B*/1(&i)-1;YXsd v%t /NPTlS;?v lC1g,lcuqV >?0wul3pmpos( 7d$ef)ngi=(b-a)/(3.0*tnm {atFtPad Sy Cyshev] t 9Ts$sM7de qul%#X devf.0suuUtfmd ,0oryJrie @9 ++;}B+@i] < a o j--j] N>0Tat(Exh5cofH  mm0kk)-Esnrm(u gn lo@Bx8PitolnP wr,wi,wpMpp,ta Pxx,y,z2;qqqq;dydxjy[2@2 2!IH m+)*-(y[3]-c2 yI-9`-Sp3DX03}@43XK304@])0,ei1WymFx lM[115 N06"D818@(0*soNbZ`2P-Me cP PDEU7sucn s'|x3hoI 5Mse if (`i == 2)%`kk. &&t f[ Z  {[km]1,4mT 4Pm0c 2 (noxnr(("b N VgaBIRG{cnd)))>;P2x= F ( 0,fabs(yi]/y>s/X a)f)_te H K(T ,oW`imumg(MEM)by)(6]4y?u,exa4Ov& FholW@"8xcejdeQ0*i`J?  , void /@Pgak@@)b`,$1@p;*@`sub71@**aoldr `hpchch,Aap[Qbeapp2aqQ*i,$poric: pfac`Qstph)Vrf`fpfpfcp^d:a`Kpp,*xi(*nr? PQ0Qxp,**yp,dxsavQy@an"RW2*hiby pBib *B`+["Sa@Aa< 0,b=PIO2,s#PmotryCbp|Sy~pp [ mNP9sa999pQPbV @$b, j0CxC 13Cbb:`ig,per,0,su l,*P0DblDP7 @ `cPbevn'P lpDd@fCdrr8@ rD`$UD: De@p %@1/`WhCnof 0baP4Ck9rhdid pns 3p1,ict, h, y!e,wo@rk,wrkwxE=9 e-4,h11,"x1,x2=0,*ystar!7`rfcc%evlmemEfdcmsEfC/?RtRt`1fgapmmlnRapwR3qP@e_PP"ulEhBKW!ցmiVgas $NG<<<X--)EterhT$-Het.sctsdUj_5j=0,lիl'"lp0 #dist#5@n-#@LL#d7SH[10*i+jT--b[R2q43rewin] ilel5%@Au8.4=u4GQ4.1co(/nU4[5T4HD[1?,q&#",OLYv0!BTSBB1ToV6P18 Ptrlma$ _4 P1d i|njglim=*)0,xc",i ar)(ness+32TPvӢ=S ( .#"GTj4*cOII\*(-.1P @ci\ij" +1 `j]]=sTlq =ir-mWHdjdUk k]: 0=Kk X;kQa[k=]+nseq :,@y5,Bm?7 P{o0p q#D0iwf* [9jO t1рl2!(,^V]vpF18 P& l[W,? n nOLnD=L1,j -@NPR/2)LMIN(g.+P\n}F# 0\s, sa6- ! -j pkTD@ (10 *SQR(p -xoffXxx xx]f.,s,Msr?rh=m% =-1corl(0t=Tj4Si= 3nu!}Nur1(,NN,i0ew'P,&nabc% d10fs:@th(-orfMstr,"Atte@mptingE @expands .>2Read the e -of 'code' >8kSeularityfree((FREE_ARG) (m+2-NR_ENDL[R9$Dpv+nC_co@nvert_ix(x(a,1,NP 4PvectA d: `3<@l@*Pi8u+Vcf3tensqPi~ PS0 `ndx{ l P0 `j pӐAb/QI)AvXWcAa , \PA0T#d GТ1ta2}fˠp ZDIMNs #Pig"T9w "ks~x  0uxb!Bxb@(xicomWn# ` xysaUUj0om+*s (dn,&mfE0x,&:fZ-PCC60^K'/qfloat{tiol',Psf!g = -SIGN(sqrt(s),f);gamXmln @ q+@eneral linear least-squares by norm"eg [15.4]get`([lob`ally }5St multi- bNewton's method [9.7]haveherehuffPhypE@o#ric texti,j;ip,nb=" ;id3(-1if!m) nrK{"oc fail8"0X&'' 2 in F)h _` (ax=fabs(x))$ < fpmfopen("fnc1.C","r"#== NULLf)*dx1**"`spctrUU("t70j %t 5 0I}' m < ||@> NVALbPreak !*v bigUig\"`bcd FPu =[ %pd p&d&el-1.< E,PSǑE0xcxatcc~`f test) 2PpPz-z1 =\eno&cDZKtt/cbi > #r-A >= j-l=#+O1L#j ijstackSTACK0 o15Fkv limLlLEj = #n1+(1L "% d$EOT,luk! C[QR deposit|:ic C+ . iD,i0j,k`,lQ0':,v0&F0Qa, u' **alph`be8$@ chisql0c1:0jpfL0kcLp* sndexvyPne@b@]pyFF0k, kt main(void) \op8Pt n PxsPhtot@stepQyw! o|i8vs) 9NA:a[]seg@a" 4Y alVy Chebyshe vt[5.9]2= Gaussian  dR 4.51dg semi-Zhۗr_54g5 3Eth+8sphacen6thx!94son i)o Qwith l$9-roS ;%0 ` 1lubksb>lud\cmE dV) lloc(ze_(v+NR_EpND)*C*&)<-..][c> ch]uNmany'-ce /5=2|messagmgfasgPK N&~# 2PH ll)V5]22pxjugldi"64gdownhil`exn4nv \ab>70u2(2a 77d4'"90Cak(&&JbcfabYc,~o8 i%BelwI_EKF#f'5[6orA mov(ugHned ul prqc# x,y, ,NPT,a,ia,MA,9 )fgrqs44co:@5,&alamdac^Ydiso 6w avrans 3.10]$s.ec B hi- 92rKE|_w"7'oi9$ b3k@exa,mpu3qgi i pioP@ 6FFT׃FP ny,nu,nl vvR+0 l*^->+I;n,xbQj0( ) 01 0`oP7pA, Mardt#5 ^ae}1]Badfi~~.+VT+WspctSW taGyp%{6(`bۀpaw÷ achar||nul oDt(y,3,x1,x2,eps,bhkrt,iokn,;,w5P'0N:1,h;7? *7 gi* otrplantX))V h +,t yO `>eff g.from!n)0]22t&{T(3 dd0>(shift{ gP+p 6+,i MEM75x6@uneven sF$d )r  9@8]4dp?"PCN@%64s,&s[1]);  Dur$ T ...*RP%` 1 p0 s %8172l "w h. #x eT) Pd)a11.6nfA\`2dr8702 ",iJ, s.r piQi2.41041 sum,6f \@x4 ~, " +-nqrt(cvm{H<k][l(PbAЌ430!(.rlg.291_ b2151 ͡p  ""4(iw[4.1(j4wz e@,q4d",l Nkluw 1 P!c5\t5a1b2Cphi(w-) u!] K7A6ac606 p@!7P7Npkd710X*i+0b%75:Sps N4~d8 p˰8#d~9 P byz4픉pHck?,2 3zaPd stn:  dd,`dle3?7Prh= U(r@.m.s.)>,, ( )Kpapncy=ıA*݅*B w` 6r& B@4A"?G_Dl iX1E5fb)- a9"Elxsort|O%B1k,q5H NѦ0n wee@n 6 anM2d. (n=0end),NVTAL wF>M: p (-x)/%x)Z I :0,inf L! G~ \d w Q', S d2 @ Dev.,iR . 1f% Nl ")#էOyIw+_EXP  c dn/| nnels (2-* 1&xRes 9ro*uKepU: MIDINF+1;0:3\,2  xApS$aY(ENlD) y253\`8i\nD T thF sol2ssusqfference e 3' 6i*)/)B S,Y( !$'UGY9f{5@VXDsucc fulokѠ0tor+media=;:  r0/)=`2 5tx>q #- b]A D"a- mixb,7@a77b7a7scr ck]<7e C oulH`4v o i $* which Hmany s( }Zv?†N3. M1-%dvidacc j ,NRi5; SBS0psR*EC(^1xn9EC nexdrom$h4]='uРu^g+z}0,fx(R'ob ksWOkoduct /ce spar(6Z#B[$ o! P g@ s&d> ure `weighoWarbi riju ker_8.3];?phogot431(dom0 i s%0[7.4'dev$by L'EXcuy]#p6plus shuffl8 18 Parkl$MillO*sW7 %jft1omursiv-idi MMe CarloVY)8K/a; .Vo un!%circ13.6mB(s=(b-a)*FUNCa*(a+b) B `P1B4.0*x*(x*x-7.0)*x)-(pow(x,)- #x+28!tR[PfPj4cPsCv-nl+NR_Px}02}p@wind(filn xe *h)i`P j"j,msizejajn)n0itmx 0n,C*t? @sdnn2 3Q@q% icrc(Ek4bufpltrq=p1>>o0nechzqz@reg HL !> ~dR s a$l [20U;_T^;099d/Fu&tilityCV,v=5&,);vn,x;.>v aPJjs60osiZC5<=>vegas(1n,n n,ax, "&avgi,&&chi2Bv 5v (*dxvs)&:9R- `)(@'kb:> 5P d)(v6X @G s@vlZ*),@rkqP?#`PA^)(*Qw+epf0/1adtP**uf` 1` Cf:@iry6W)caicb pai ppz@mebsRaxG**!`yA 31"Gpb60oeb66'tol6@OM&W8rm`ioZr {`c:"ArcmakNt4freqYYhhd@r?JB39 de{4mlK`i i4ini jaOA\*bw S6!5r0ABt s?3UC]a?viIY+U=^rvS5F3ba6lHbaaFPnbksQm1@jH`:BBBBJ0BB@cucofJ-#58C1ւ2 d1@cuDDDo1eschb*U=TgaF pOQik:xnuhRrEtrkp@pjk{@jKpy@Pk F nO(T YVjakBk*coBsdyd)!cnvhxeht&D(NIloy 9*m  0yyDchLB5EYc wcȔ;PebfQ<< )YH7oGF2b olsnpPsm Mbinsw^eP1Ano nnAhs<>)M,#+??pnJ 10"**zn2Dn*krsq222:r. PEwh&Rlvt sp1mJPpywaM-or7 Y\$?FPvsWlarnEEi%%fiIc(n+\wʉsCycliU=&Galphfxaspg['odfa\dhi J0djac8 f[dBfgauU; *isena@ill0@5 UcewMDex'nwA @ b1lmoonQC'pi @=j+ d~aI=5V<w> ڊuI yGnfB obiTl*roN= ]6 d kt l☥UtauK>E 2 gtaHiwJ1Uzo[Prxmom\U@Kks2d1/oy ;4`244Px2q @onedNKdPtwozFQu4Jk=* Os?loy\j^`ih0inbcgxvvPdouw92u/@h*~i!2P/22*Lma;i ]fim?rn r ngr C< addp`F `ZUkPt 555`edZ pm*abdevMPmk\uZ?xmg-AiOyB _reg ɷtsFAmiRsS 6O#vaixghtoOmnbrak]azb zczf'qfbAPewt?tria ӏң aj KehPQv_ Qdfs 2p2dfI*%Kmp>&QuQ;$pdi~vΞ.\`@i>nByy[ shs=moaa6u֋%%An \IrovW, luBsMSpsd>YirG`mu\\@qrt"v@5 uRrq uccduZhCxC $ҏ check&@re`rror(- _text> MUstarDA80rthogan)$_ph)B$|Zpears ?5#c6oo+HPrioh{ofaj]v?i 0}sn)i^e1 0jPj6s  c#@gApohnk|=wX4 Kb,y6lp7œ7u2f(/fG|ini1x2**yHʄ> _hm 3\yQwell**xsM}lf]+ gIer3{predoY,\ycep9MqrsolTRcLrxPupdmZ**qKCn" @uadcjm}d3˝ nEFmxcpvhRcinqfKrankϼߙW:t\FpaqPtk'kkGlsqF]n)SMN| +CkDrealf(Ӿ3Aebor\n;*^Fi, P,aed5zUzUPj`*mUm`fPlaxF~8Dnrh' s*2++s Jper dd verlseu6_e+#cit#ak4W?p,o2h[rk>c\?H@@du:m\_v..AGnstep~PqsWM.sBq3k**Pspeq1BotatM{KkhOkC͇ 1trfrsr@HM45f)A5~~?savgoNW%=&pWO?G6nA UlOLNscovrlaRB1 2hzd Cphb 1jq{sj``l> ^^`2aKp,=Kp6iypnypp2q@ ].PQT ?^j$ prsCC ijߝ;QrF Lth?LŃu `pm##ЗtLL`LZ]&G{sqtsssTt8ifb ҹe*x; I6f5@stloe^u2rexs,GvbksY-+>wXv.RHvdfin?A? ]c់rvdvepiʠcvI,plz\8.2@x~6a*ni2Bvoltrab[bJ6t0hBbOwtY no;@wghtT 6Nzbrar^@oqD/dbE0rhq [Ug1artrti5_zr] eco ex9P# Wpolish)w=tv 1,NPwasweiwfilt.c`which5 (!@!feop)B)@FMAX0fadelx), Py) pz)) > ERRTOL,);U@In>txt,","Error Function",14y`;In0te Gamma225i=wi*wpr+wtemp i+wi;withoutwksp[=&thetapr = `-2.0*6@<;wr=(F =wr)T-[ Qr;0j0.5*G@x0*x*(L)*~3x,tnm ,sum,=,dB=(-0.05+i/1)x= a+O];x=i*PIO2 q7hґT xacc,2,*z2;=(1.00e-6)i]+)/;M-BMb2t =0.25t+ alambtx,y,ans12;yyr *y *= +SPREAD*Zdev(&idum)/"Ax**0) =youzrthpPy`ytry=amo(pp$Dk,ihi5"@sa"pb,yb(p&y-"Dx,X1,X2,N,}Qb,&n${,0.{0x1L,(0x24 8L,0x10L,0x20L,/&;)z41\FOREHELP.EX l |CONTEXTO|CTXOMAP|FONT |KWBTREED|KWDATA|KWMAP3|Phrases|SYSTEMc|TOPIC$l|TTLBTREEs|bm0w|bm1EOF) break; q=selip(k,NP,a); :printf("Element in sort position %lu is %6.2f\n",k,q); in sort position %lu is %6.2f\n",k,q); } free_vector(b,1,NP); free_vector(a,1,NP); "printf("Normal completion\n"); completion\n"); return 0; 0; } #undef NRANSI NRANSI xshell.c "/* Driver for routine shell */ Driver for routine shell */ #include #include  #define NRANSI NRANSI #include "nr.h" "nr.h" #include "nrutil.h" "nrutil.h" #define MAXSTR 80 MAXSTR 80 #define NP 100 NP 100 int main(void) main(void) { char txt[MAXSTR]; txt[MAXSTR]; unsigned long i,j; long i,j; float *a; *a; FILE *fp; *fp; a=vector(1,NP); /if ((fp = fopen("tarray.dat","r")) == NULL) ((fp = fopen("tar2)l3Numerical Recipes in C V2.08h3Copyright (C) 1986-1995 Numerical Recipes Softwarev 6( 0F( @wwwwwwwww wwwwwwwwwp p p ̻˼p p ̼˼˼p p ̻p p p ˻˻p ˻p ˻˻˻p p p ̼p ̼p ̻p p p (  ̻˼ ˼ ̼̼ ˼˼ ˼˼?( @ " E00??p2Ee?p4g?1b??0;;8??5`5U`1P`??0RegisterRoutine("nrcopy.dll","CopyToFile","i=")0RegisterRoutine("nrcopy.dll","BeginCopy","v=U").RegisterRoutine("nrcopy.dll","EndCopy","v=U")/RegisterRoutine("nrcopy.dll","ChangePath","U"),RegisterRoutine("nrcopy.dll","SetPath","S")SetPath("C:\\NR")^CreateButton("cpb","To &Disk","BeginCopy(hwndApp):CopyTopic():CopyToFile():EndCopy(hwndApp)")DisableButton("cpb")>CreateButton("btn_chgpath","Set &Path","ChangePath(hwndApp)")BrowseButtons()Zmain?main;:Oz0WG  Om##O,lGzzq >J1`JlCNumerical P 5 :8" in C (Version 2.08h)#J)S tP@@=&`s剂㲡Ff(UmThis M @of Y library 6specifly designed for convenient use Microsoft /3.1,95g/NT plat7ms. All  (more U600), as we "sl unpacking Xm, q~taiI _MYTo ,llow [steps:Read LicengDisclaiWarranty InatZLBy L @s, "ify  agrHeem to|te|@HU9!Hypertext BIfMdon't alry E Ybook тzmay w! YFpSee Can Irr` Without$Bd?{`( "Clickon gt1th cate@goriesa ccessactuI:-)7D VY 3LN vr# ghCx|HgUtiliFil(e.g., "nru"  H"( D AlBn9velyczbrowseV<7/ .x1p<ŐSu HnHg by ]C$(4H furth,$ lQatT"l20 4Pr# ^!QFrequAskQues3s.h91VnXhB uy$2Z3l.) "fu}UzC/ ,"R%Sx%5YebG veVeffec 2Ume9beD$Wjun/ Y$Jferenc e $ (Cambridge UnyYPrg, ISBN 0 521 43108 994 pp.vN.< Fvvun#j3b6bgh it2 d& N,@Cpossible, e[&X&O Ysimpl 4,3$ 0DI¦Q`Firstf a ins"&Y  li4ngNm0@ Ycor)ponde 4@4astudxB&i afxiguH58s$#0mRcpfE ow@n .a`lso: eK? 1  eCompr Hs;< @),$E7  )*F 7IBM/PC-cN'mach4qquivaJdi [!`EsegFedLlim/ add3v!meAireGo id~( dir&ec8hniT8ommodX  f/ sqe+moC+ n sourXicul*dost5@ siz&g ch.o0 el'In general, Uu(@"huge"- 2( itNva l )y provzi"a0yY<  D`# !K6sM'  JMa'j0 exaa DaandwnsDoB Ru0qw J2cS-D OS>uzC/C++, Borlr (which s CPTurbo C jʩEbee2nli un; [ Wh*y" <$defa o:p',z @ always D L Q scNF!worH1"som NP bWIish[ ss(s$ i U )L '!b g , V ,|/AH (2+0F 8000+@se.bL32 @Kbytes1PHi87`0(dJulai$axth 4orspJ`chanHQ,Odpķ`Z(lude2D SE`T CL=Q/`Jwi0 Ynam \CuD(2Qpi7iDX AUTOEXEC.BAT iH-SHh[ (4TD$S"-mh+0fR]mKPNe qF f;ful wh{E0O-s"Aae8 >Vl˒placoQBFae)/ !2$'U+s ^2TURBOC.CFG Dx#"a} hР ,>NRBCg; /;lo]8 "+p:-A( WJ( Wany9 Y* &ne%4aR br9 di{Y/Peos keSUIC:\BORLANDC\INCL(UDEpLLIB Plea` docz nt{1GZ7o,T32$1@/6e) l q83:I Fd L  Wqf$O'(e0erLB none`)ne obta \mi + :sw)^.>I - &dH :1* Xsu%nt % ged, if thr8 di48qm@et: (1 +qbo  exec$ut,gsepa^?vi-z _ ink,bl q. ` 0@#rDs  dXy(p+3B" ularI"toolkitT "bh"֖)2) PXqQm1S@dva)Z(-3) Ayright;/!O _$emxbedG&v @8h?prJ d!=&4'E0ctj8%ls: O+" daribu,o d{ n`owled>ptQ DISCLAIMER OF WARRANTRY=g+f 2WZbuS {reBlp%shipc$re+B'sgܲoh>oi CambriUnz(rsiW P. 'MBdoC grjs]&re/a~e= bo\bj T"mEx9BS;.#L a  D Uy8@ecational materials in printed form (notchine-readable). A fee8y or be gedContact (NumXcbQ details.R!8@1%[@CFlong Po Fats NLinkedN%@+A) "J8JJ|a@A)MM M0Q. Usa Borland , I keep get Y ,M""+AC; D z $ ABelieve Dit ,`considers _aature,a bug! *ir@ Techn!Support d ocwno. 645 explainGWcan1ce9(to lO! bbyympi f ollow1alo  ZYoulP\neD?l, just iname on  MYmuke:? 0void!>" () {- a=0, *b=&a;Pa=*b}We EdN1? YUtty  Lar<asd BCCBUG.C. KAC1CG@Frequly AsZQuessGC$D)~ CL /AH /F 8000 D/DV$/c @cf[8e X]??x:Q `pythagO2AobjZ NRW@+IM` /Z #bD2 -*@;@ h6("QZgAq Ydefaultfigur1TURBOC.CFGq1  -1-K -mh -w- -C z(The6 op-"ressslunnecwar( Ls.)@Qi[hXUqself-pr@$ J G; j`Q,K=N1%=Nm8PdM0MN)t_ `_IE=NmPR rl&@Ra 9:j9 *EOudd :P.O.A x 243 m bridg MA 02238 (USA)E fax C (781) 863-1739(S$or|weu$Uvia In7ll3 M$Ea(Co , X-k ascii\@!uJ9f5*mV 1 2څ?!xɄ;;CheaJc&:GeHU  (;%)2  EpIpu32W mPV9Wb( r2. Where do want  materials shipped? < F V Z< i0Your name:@FullX0ing addreyE0uaincorpoBe piece2s<it   own project -- comiz Xm%0needs ifdT+g Xbn!mpi"/ T@It generall@y Sg>opct, atj rob tA !r eason_ Wa signg &?!ontain PARAMETER+qFacmod(ulXnspaccepta{ity)[ e@# fM)f5#Mk"WinHelp , deA0run ur /3.1, 95,NTc1 vi0nven3s sskL Ycؒb,(m anIllowsB"/#Ʌ: B:@P 6View: random@ls,L a Hloc Y+( s)V2PrIsVÙany v3 W}2p>erSavezDiskFc?a d |+B&PAldy-toe@Rw0 .iR'gT 6iFgtlsy1"! !b8othl=ng}B"multdip!!@$fever, wn't d ^,HC,zwhyEjD(jj(Ej(#ruch4I, !, _,;o!A&sA~2 w)tkujP=2F Z3RH8LNƉvp $91`.FroW*pagn _whcli YC,WY,ba@tba**K. <CD }$th re  gori}n: "",{"a#gUta$ 's " (0Rtm UF, Ys effG Z YBrjgev &[a.)Z S(cro d  YA!(e.g.[0kPeyboP6D-)c6 y (ishv.4 Y73 )n C. *9aCR:aPer& exactv Yabo p%$ag!> 0?-r~$ (visible);cho /$Top hoic :)j "w> J ӁEFirst,  sS,PathKTbdO ogx th:playI7opEl2*@subdirTo^r0 dw  _0@u' Zl s6 aowM#p oFI q!, !,wT6. @э+ &**>B {  ݎ4 6+>'﫴p|t!@:escrib %oD'0^1#R["% top4`%b;э1L #I hL! 'ݎ#)E O(R We kna jEfeel!!'V  do 37* F>>;M50aS9J2$ _(ex#W)V9 ear zB qY liz ng it/pI!\21 Is Tech Sup t O&,?X6#א)} l|TTT@>,(E}6!cX.\, no6pub%h- e lexnav W.greKboo 8qmeqJK tarr'po+r@/-l f %\uchnB.^stAm(.bxdo Z"u3 buqbab@isoo g(docn'pd}d !9"X ssuregularlg [ci@ gO xg(wI !-i:x.P$O@ wa W@ ͇ faiw i tu9 prod;Y cst2c W U1gx p20QuEP.a (th'30du+ errorr ~K4 1m\hA,xt9a M *110 be@cerd[9א. (,r= ,J d LS : _  ].y1< y.Ltng 0clai-Wafr b InJ=Y2Ҕ)dUUUP -Wy@*?.OC} hX) _$B,,5d.np8.S [. OB-@O/BO./D/cd@mo+ >^ r sykm.+ i Uy>ea^`[ 0 'qoҔp; Fއ-+Z.-b6EFurI. 1Ob^AddiBsRk(W߲֜>v18~! pxT ptah- <DISCLAIMER OF WARRANTYBp (=4|BB" ) UTHE PROGRAMS ACCESSED BY THIS HYPERTEXT FILE (@AND ONE ORIGINAL DISTRIBUTIMED@IA) ARU VIDL"AS IS" WITHOUT WARRANTY OF ANY KIND. WE MAKE NO PIES,` EXPRn IMPLIED,)ATYg FREF ERRO R,(}CONS9ENowh PARTICULARH STARFRCHABI0LITYB bpWILLET YOUR REQUIREMXS FlIXAPCA .%0SLDT  J3RĂ{@ `itpag^c"some m Wqne"ary9" Y xqSEDd> _o @gclick_lZemzKanyrticular  W@wantV!, 4ntc+sasd@isko,h9V3qIf ptouthsignify $ ,-m%5Pc  %1[nveni $vH# s howxe@ aRWa3S2C"):BeginX:JI("","NRE L.H")CX2k!F: $DC.o<.GA U"@ *e5ote W Ynru.h, @cf.hGpneedVVCmo] jv aYou wiOefin itely [) 4k%A[each S@!3RCx ɒTpW/ .[㪲TFQh3 k (t'- CNR kmO3 62|\%so~hgP eHT2 4+lkߐdCOB EXhcomplex w t M(+5t Pd0d4bSourceA52%P0T;: BR# Q 㟼Csf0AP- >(y(. 0mS0DatarB# ?;/f 9bgoM!IDATES1.~vyf 셪H7z3gpϛ B)NCm3$8[!+ɩ+XFNCVALu@MATRXP 23@`SPCTR3P LEP 3PTY&P.P:@($XçwEE7 >+ A#-LiCCBUG)fixkvbug' +B and [W,17 z,YdCE)++O 9$|) [2 .08h] //Y :G(B:%[F q[c#(K 6B; w f osidID. ;dg :De..,P 110d!Aue, Pn ! er, 10573 1@cup.or~gL8 Ze ph z1-800-431-1580 (P 914-937-9600).DP;qsneKdM ar? qPcurr aiKo rC asb1sub'change1,e:)m(s)w v "ma " [hardcr]d 77 , Vol 2=cuss } el90hp H g$- (IO/̑ "57Ȯ (|@1I  43064-X ($54.95)I IP2IIP57439-*l$4I Cs008-5rpP/l0 eaKRRecipeCDROM $2,t*!O 1 Number:Expiration Ac!b`ts*{%  N[heck My Or(dergBure6!qqz b_4\I1} \I`g "l  Form (outYײ)hE);A;WW0u[[ [2.08h]*IS t  p @,C0IB(The]is a  m w s 0 Ө mbridge Unisity P, Custo Servi Depart%, Edinburgh BHuil g,Iaftesy R8oadC_PNB2 2RU, U.K.,"fax G( count9+) 223 3150521trade@cup.cam.ac.`ukPt#shownI pIdgqcurrat timlfWN$, butbjeco changeM1" Y(s) wish J" ma" [hJc r]@d 77, whiEVol 2 discussUHall el 90 hi.)I?- (%sK4U7 (%|@1)! 43064-X (UK:A 37)R RP2RRP5743 9-*Rp29.95R C0431008-5QP30 .Q!CSRec@ipe CoCDROMF ,&LWVQFp IBM PCQ|MacoS.-Screen L,n63X5QTUNIX Work+RRp7&9X1P3Z, 'C1ExamY Bspaperback ,Mi&&AdJ (en 77bB4372Z11q6PC-0 -2-\N-Z< )m\ZH2}8td oa pH? < xF 11[cG?9Your nameyYFufF) tYuphpal)42pgW< 0 5 8ϼٲ(c7kboxe7Surfac ely,a flfee   2d7Air=l95/ H7 i",)lP# 4ynt/piZ  )@ "CɞBa ay/)EuroPAc sBank=K)g0 4 5 :9Ad) as8 gi@U;)companyI31 g ' c'5heque˹[6;( My )3!pe C`ommuns{(`excluP] UK, IandLuxembwDg)VATLf  Y (inJP} ta,)  Y S {/n*X'(,cB4  1s   > g  )=x@_:U  x@ ' 4㲡FDUE0F 0G0HU0I"0J)0K00L70v>*y q Y p . Y, C< | oS4,.a3K9-v r inq-5 W also: M&{[ P iminarieso .Sa 6'LTar Algebra`ic  I2nU poag|ExU P #g+$=1) 5(Evalu6ph+` ' 7PRomsM8 rg9"oot Fin"gNonl90Se10iinz@T ax@q o Omn!o0p 0q0r0s"0jt)0u00 "rF1Q Eigym1nF :Ts,K xŌg) l A^?8 Sst-Descri"'Dat1M }+gty Diff nt!U!Two PFok und)Vue oP0gIna;*oryPab2L-{orith*!H&1@ 7ZBRevi} "='ssic,' a7 W bur sgrea'(who s Ns...." ---On J `Phy\s"t 0qa m14S0dcg stcifg\0S Yi`gmN-So9ty"Ae^ gold->eM%= c ularly ne8techniis 'help'a, v.Y.ad- eipUy stuffA1Geolog-MagazDqn\wi h! profit;rlb- s ;7qse-umm3!enjoz8!Observat#Dm~) ܀lk N!R M9Vdoesn 't EM ewp!_w  c~Idiskett Iprou. iTi beN s rs2 "S C ex;$ # } A9! ce-3+kmp `A Xir gnd ,@ oc]s ef tl p Ymath4 wkpr[W]se}t, v *le edu,6X48jH..--@ Ps sx.%5"M Y=  buy if qg#$ E) sol  t g 'J$3er 4Dr. Dobb's T0:A*M a remar>km C2  C i U zCK%rX(]4s9( ck #"Byt| auM ~Aqto be congratulated for providing Yscientific(mmunity a valuable resource." --The S30st"This book indispens7 }anyone who wishesemploy te@chniququickly bgfid bean @expertd applimatheics0Jnal of Nuclear Medicineruaimp!sive Yinsight authors<fer `out vari ous act4 NsF$es;ed1Phys Today<%~B+ $KRH"@Almost/Qi nvolv putwill fm _{!useful. qdrvq1E!e a cla&cenQUnrsCdP#nay W _reviewD cven^g'gdve#Yt eAmrmounFteri >W)"@TB trJAC1kCEWhaHt VonCUsedW.BgC) "\1B'B@q"ReQse?ZC{E. *R 㲡F%#M exclu~ YANSI "m!cTCIarr DOS ]kette @s, Xwaalso2"so-Il@K&R C,@oldd]0e{3sav@space,si"@0hard h, Eeli`$it ),!.If ne{a@ Cambridge PTseSthD"=Code CD-RXOM"epubld'#/!0M3archiHQ&v#@}9luC%`!(gCE%p R#X6{EE1ynEI "_"nrl"m,{ ?\BEWF)P \XXhEI\ x P 0 P p4MJW% cros WqAYQo [*0imwBTunk2 D1.AFiles.Don'tf3!IQC'!#. +9 1Yݭ0(#dhH r .k Ͳ(g0? ! Xmses;$ 8qg1(&lJ.)UU6WFqI1qINU'n"?Q:I€I)`~t`v`fMM"qIK) EZvQ5(R"amcFirH ( Syelloo)B y)tap_oppX:9p= OL 1(H@rM E S*b`@blutPFORTRAN)H@ i U350(H ta h' YM WqZnr| )s)av耮( roxicly) 200tex7%cor po&%Md l # iSlet n*1ypo4 ph'K igW u:baMgadvaM ippPIK2 4/0U( HB GOrFormu H lx*Cin:2 KN4@ 6nG0 AI chap: 6o r .Multig]>,s <tB n.I?Qrandom QWaeb d+st G9 tsthk."" `s + co,(rbiKr[ 0v.Bgod H.L 0algebra  D.ChokQRA qo T CalcD u$.LPbnt gn r .KI 4] o:%:@h x-diHL0)\G(lob yt;rg qe much<20 Me$ga $ '!,l QlckF_p 0ccupB UphalfVVP)q /n availableJ*u:=a:-by-EJ \J&`nO4S)|kXE  i Yp, ,lik:qui/U^`w a%6 -hund"-cryp < am!Keep/ .WNjx Qa dgob li--n!H PARAMETERqJc zede mpxxo pE1QeS1UeSS$4SS" DeSS1hSSRTF_TOPIC_817009001$SS"ggFS7T1j7T[Tg1_1$S[T"iNC7TT1?sTT EndCopy(hwndApp);DB(`cpb')2,[TTP,X.1unINTU> J#R1 \N  ])Thpage6 IcL& Y4+o/\ubrn 4 S1 dowO gcf \left+wDw*viewqprp#%E &9T2 2sth? 6iO+*U[Tcopying all Yto disk in bulk. (Here is why.) Instead, we  d CPjust those  Wneed for a specific project,frly  YworkI%. W%@. However, if rey wan=ioy gle $, Ghow:~Uj RW 5SaveMark("C"); BeginC&(hwndApp);JI("","ADDINT.%X2Click F: >b!Routine@s gkDkF) ": ^0LIST OF NUMERICAL R@ECIPES' &eR A]8.~r|8zNƦa-% : $ 3xB"!I;|ID*IUy {g 4|uEr '>Qinterpolat9gadZ mglin ";*IRY(Airy 5[6.7]VAMEBSBAAsimu>dp ann#connuousacw96OEB)6 W T]0wamoeba@ [10.4b0OTb0 ebsD NNEAL g! ORM2  P@RCMAKstruct w[20.5 RCODE} FRCSUMtegerybyB!a`rcodeG`S8OLVG 97bcgz#peond itionK=فv &vS&21r&*.0B+6. =>>F?!N5lV n^TIME"S tip2a AVEVAR=!alc! me?g ofSset4.2 BADLUn!Friday!13thenmoXfu[1.130LANCbalanc enymmemc G[11A1BANBK band&agona6H, [f202%DEQ@%r%MU="@8by Y|UPCUCOFJtwo-dimensbicu [3<.63@_C))0 +P!4 B)9UL94P9P90e "Lx 4 00> q$j0)01?0f-W#BESCHB#expa bes8sjy D(SIr0#b01101{!od1I TrSl B# fJf 2J_j 2j 0n p2`ege_9mEp$5fxrac `K0dK0d찃$KEQY`Yހ += WBZ%-PZ&=Df$7,B\8+UrX%=r 0V-# q"V&n"Kmf"¤>bSYlaYlY?Q1YllT<&beta 1U4Ck# if"32:"incomple? @04ICOR$inomi!]KSU"DEo7.3$NLDE"V='room [%PRE97Brent'0s O5ROHYDN'ec) OU)I5o[9A1CSSTEP~Wgr|s, Bulirsch-Slto~ pA =4F {!c81vBpX]Vew le ?h}̅tAD_6ߓ^ Oɞ_B떿_ݻSf U DAU(6endar dWJ'~ VCH$DEd& EB|1 evalu6[5.8-0HEBF(fi /&v*="PQ& ^H X(9?exfa chi^2}5 2 CHOLD&Ch@oleskyC69=PS(`&@SONW( TW" I4co- q s Ci SiUb0NTA2B?% @( =S l^e&D8ft:0ZDHz7z*B>0fuk  ^f$!{< Z#wmAONVRL=# Pn1 KJ, iCORRE)7SFT'&fa A e hpo s 2A+)``stag ed'' c9.VSR* rge0 varin F*lOu5!u:CRAN8*reDpl:yQ Xir k(' CYCLI(  cycy i IDAUB4cDaube^{ @4-coef i:K ve fil 3.10]DAWC;0wsornd$0tFd + OF?Ss$B- ĉ 8C6/ ,! O@:&]"Q&~aVb,CLO*:K Z}- 0i DDPOL@,CA giN{% CH+" RIV*sa( ws0tiff!cHDFX1DI;@n vun1;mM+@P$MI% Y9RIBD*  Ridders'b5D5eAILL,f&FI- ( ;`I+/#E|8FI(XRT$ FLEGxL nd Ã6= svdFLMO6phaspO~)pT&FDn!/ 3~ IYx$B?9p? T*x<!^f;  <!DQ2~ LlL.~ ;|LH$h0D#-x$ ĉHUN11a Kw hen cs qco#lat ed [3!AYP$DR# GEOtx KZ41Y#IPCRC1t"}!ixcrc{1!"!pGRAY$raybginv0erse!$INPDEXXn'dqforZ2L!INTER$bilin prol0onga"mg, PB;RBIT  @2 POBIM'#M @v%saN 4 wstiff162 &qB;h;DHC)0 ISK][# xFBkVs7{ Er ,BnoV ݡX9"0cVBCJUDLD1JulD 1!Jd-[6KENDL1 @5!PRMOM%)S2D1S$modelY4.7D %2@ONJE$>TW"(UG6I FIc$?IHNBC& MI ' ]5NSR|CH d#-$n(ewt90LOCAT =Sn ) K0S$LOTlinontBoperat or$gR 2C#B&JFBw6RU]ZX6!TG p\X0~0DwB>܂>:$H$D/׬ Ɉuaټ&_ Π XLUBK SBh(N3m @, [25LUDCc8 LU #PMACHA'diagnouter's flow(MATADD%fcSU ERDB MtHyTR1Met@ropoli`&anl9GFA" I8"#I}A)I IN( P1b5extBHmidpoint rux&DSQ' @U"/L B^^H"#^J'"$!v7B 1OWEL3S|REDFI.Ljedi$= bl #P0RO+Kolmogorov-Sm irnovbaty$4AI)``pseudo-'' ha648 !,y`<$4sp0"7 @ A,H#BWTSEMDi7 p{)`PYTH?u(a^2+b^2)^{1/2} o( :w APZEXT5Ñra{bsste .Q3<* 2RXQR8=4QR OM(v Rom.adaptizvCO./2- < O/aGa@>)aPUPD(/up_+a SI_9SimG$iX/0QTRA+ ezoid-A* 5ˮHJs%A,d "TI.!0Z0!0(0'0p~֥o.QUAD3) 0C7ouV \)p(0d`ts/ks2d1syWLFM5.M +.7@tum` G[18AuV?)WP dfRAN0, A> ?>L'E8cuyUs, io@d plusuff(7|4P38Knuthsh2*p4deI-likeBrebinnvega|A"eduBcOlumnK FF3jLAX"ϓn @mgPS;d{residual2*VCS)Cst;rI rs+@i"O &4gV6IN'2g/2D"!VW/7G& ,z0 !/8ހ &CMR`OA7EVERS+d @^R(*J)K# C,C-Karp-Runge-Kutt rkq$KRKDU{n]@?4tKQ6VL$·OFUN(R,ed 5DOTAT,Jacob`i rot#7qrWfrigh riang 5 O[T[2.10] RSTRCT.Chalf-weighting restriction, mglin, P ;k ڀ3R7I(#YM"qBҿIM4O]Y>뉂 \Bh59 ]E:AMPz;cUTBISfind of a 1by [9.1 TFLSP$$false-posi 1"210NEW!E4E0SAFE0g] PECsecant OV`ZEXTRn$raZalextrapol l!bsstep [16z0SAVGOLSavit`zky-G0amooth[14.8- CRSTHOgXh!toarch for s"0SELE2A! YNth st in an y[8.5)@IE!FROID9 SOLVD E7)1O 6tBZB:'\#Ϸz+[ d! $ 9 " ]A1 M;|M .B~[w{a8qErBISHELc!sort0EShell's8M2[RO2#  @F@d@itto, hǔDta fQ8poi #a"SIMP1x +simplx0Am2p399pLXW )d0n" qNF1asine e[12.B3b"LVSMs ~c w"40NCNDN6Jacobi&S5$ARM"!1bcgq" norm =k B-9W9DqBAiH!IQ0k*#$@!Bi&qTay$kY\"Hgr"!OBSEQZ#oboquasi-randomquence p[7.7#""k=#U T!>"twrraysquickV"F"2/!n, usfemex8"3  iH@ 4iGb6PCT1power spe@ctrum im$ FFTEi3iDPEA$"?HBE\%sp he5$j_gy[6!APHFP3"fDG2S@ ~ ʀBHLe%HFH7p%P$0{D-q P#@dU@46[vZ$^b$j$U CrPLIEl#c$onuc!-d imens5sp#3.6W1LIN#(( *4&]pa cubicU3U'K @REAr%2ir2&` x'per73 FPRSA $prod  Gg  I#veG* % #DPE2attern multiplVy"NEJPT#th=hold((`Ӎ'ns{e` ;  wBXC\XH` !hI"pnx|ϲ'Qg-9BedfUNBG"._x*;JE)R. [% TIFBy(eiVff ODEs, Bulirsch-Sto{'A2<5&xTOE45Iperv%vVed-ord](A7VBKSB'0  2VDLCM() GFI) ', BV3 PLZ7l}Toetz I7 a( TPTES6*!Q0QLI*)K<RAPZ(ezoDidrulA4![9TRED&ѡ/IDAGF( id o)  / pAa*9 v';t pɑBrv1+")ZRHQ+>P3g 3 envalZuNW+-+ZD#+Rids'ZRT J11  1X ' % D' - 1 /aRcIfThenE' (IsMark("G"),`N ()',` 0P`C'@Delete`;EndCopy(hwndApp)';DB(`cpb')/&) "LK`1M> Jƛv@ `!This page g]s acces_YD ividu` (whi3 w F u Y). Scroll dowH _R gcl G left mo/D[anyurticular^` Ww  view_pr& ch sa d isk2@ 2" 6i2We RdUpya 8Y ]bulk. (Here "why@.) I ead, we Edju$thJrv@ak*ifmyjv -H c, if rBQC7 8`$, G:uZf ?RW4/2"C"); Begin;JI("","XAI(RY.$8AX2C!F::!PDEP)8" !o$LIST OF EXA E PROGRAMS Z ~3+Ly -@'!@,}t;VjJXBYh w]E!GД>ܭ;`[Af MEBSb& `OEBp 3PNNEA.K yMPRCx eP gPVEH @BALAN& 0`1ps pMUP 0PCUCO)M pK0 MPESCH)   + %w < )It^;>$s!;=2%S"Ywѩh,ExP 2MRS/*0SI qStI00(2P1W3@(LPKMJeJeJeJeJeJR 0~}KːKːKːKːd&,< yۥ3dz3&!56!Q.oϊBsbEč` 8OWrj~^PUrYYYYqT@T ar S8ICOS SNLDEVT SZ(`OYD+ TSSTEv- 6DCALDAT 0=PHK `EB_` 0;@FN P@(A/4Ĕ_AiAzPP鲸_UBne}Sg B {ɝk!۞!Ȇv(׆}`A6 ~PU 0>aZu VaOLSU 0paSON)V 0p8 pE QId QNTABT/ 0.P2RONVLa `RRELP@.CCORREL XCOSFT1W` 223aB ~; ㎴DB.`xXTa!,1~F;3턏(Jg,Y`<hwU"wd*ԕ;xPGǤ@ AVSRT&a &QRANK?Q >QYCLICXQ XADAWSONrA 0PBRENeP 03PDPOLY3P MPpECCHP 0gPFp1DIMgP `PMI` 3`RIDR3` M`TIp qPLINN 0D 0P@D am_@őiB='L,B>ej2y\T!cYB&6SU9%ECLAPWs 0EFA8CTL?T 0RLRUFASPES 0ePGAUb 0PIT pEXT 0-`XRTG` P8LEGP `MOe 0POURwV .>DHK}\T\,CQz_#zވ=>-2joBW.#ņe~ԆHy=vNJ.kFa a )R ARREDW e 091pNEAb K`PRM3p RTES)b @HGAMr 0pMb 0PP1Q0Qc`Sc *:FKPyuȺeĊp~"P"ƷnUF0XYFJ E{x1֋ )COV 0aUHc 0pJAX 03pLAS 0c 0gpSSJp R C`C`OLDEwa /RSp JHPSb pOi 01PQX EPUFFMAtY @ H M 'ڀI!x5Ê Dfu/yqp2 9/*v o,";Qs,r6HULj PQYpPGEOQQ KICRZ PGRAyZ -PNDEXX/P GPRBI9l 09\ 0mLOBY 0PULD` 0LKENDL\ 0\ 03PS2D1Y 0 KO@ +1caQyXxʌchyٌw茈A"xTԄ1ךb3Ɓ}!B}Q6ͻ22ZK VZ $aTW!R NUEh 0P,x /PINBCW 0p|1lc OCATZ 0}PUBKSB}P `DC6f 0NMACHA\ 0PEDx 0*: M?Q9X}= g񎋒Bqrf#L< {+!Kcz`iLbӮ 9v 05QG/ 4Q ` ` eQIDPn 0`u Q2Q=QNBRAL_ 0`EWa QOM1; 0QPm `ROVI] 0)RRQ p- 02 OHSA2WǤɃ!؃RɓBۜ@:'9n _!#z%2FRTVSHQaήmlODE| 0PpRTHO[ 0NPADnQ PCCHES 0`SHF_ 0IPEARS\ 0q`RIONR 0}PIKSR[ 0g` PLGND*] 0POI} 0; ?QUU B32gQEXoH藇JR=+;BJY ;fL COa awZs 0pDI&q 3pI~Na a taWEL^ 0ZRZ 0`O*` R. ` RZEXTa OQO PRs 0H"2HSwW@y eHFD߇q.I=G\"KBZV"eHB4D fS,焈=P>QROMW aOM_Z pO'^ qIaSOL'^ 0caUPD2p QSI|q QTRAa QpUAD3qV 0SORl p4p4)pV; ?`Tu 0pLS^ 0j UUY"9aȀvP㓹}!d$+,;6a=S&'!jB e9˗PbdTW>NlLlRWRaEALe 0Q]TRWJRe^Ra^RKaKqaKDUb 0-`Q[ R3R RpOFUN` 3RTBIH` `FLS?Z 01` 0v wW[}JJ[\cB2+3A: 5PLgGv,!v+"攌\ATSAFjY 0>aSEb S 0OSAVGOV 0PCRSH^ 03PELEC^ 0pI-\ ePHiv }PkL^ 05V 1`Nh PNCND\ 0}*:Y]4!t 0>Bڕ SOBSEU 0QOIaOaX pan _ -S =RPCTRM=R `T `` 1`HB'h 0pFPa e`LIE` h 0\ 03gpI[À_0B7\u5ՙ" X2,}HE4"F!qN {?ՋNOmPRSAfc aRQyn]3Pq 3TT_c 3TcTIFBb [ 1`OEtr TV ?V 0`S 0pFIQd ?]ʀa? UxDžǤdjV m]A&!:\|{P;#0FVB?;S%]+,)xVDVs OYPLZO 0PPTESxU 03PQLI1Pw IP- ZX 0`EDcT 1`IDA^ 0PzyU P8WOFn 0iOVA8NDE\ 0PEGAzX F_Rc * RB孙+ f!ol7!ԚR$7=ّzD!F8WNV'. =/rb]7n!?|ϲḠ\O{WGAUSSJLUPDCMPl1m , LU @[2.3L UBKSB# PTRIDAGD =i I;4!2NMUL2multiplWband diagonal G1/DECb! H,0UP%% { @MPROVE %SVP  6SVQia0 PYTH0(s(a^2+b^2)^{1/2} overflow UPCYCLI !0cyclY=1r  \ B46[C\U 0^  Er=a80vS p4|pBoed2S PRSIN#ontto format  #AXproduct4$ G(g PT  @d"transpose0`M@PMM attern +bdtwy ES`& threshold(]LINBC"$NR[ bcg n ATIMEM"#Bica-$1- SOLU2Qpre1diWer'! VR0solve Verm%e ##8>#OEPDLZ%pToertz"J8i q>6!>D^Fy`416&Q>R2@5$0`ri@ght trRg;$pQRUPDI&up&a ]ROTAT#Jacobi rot1qr5t0T+O1 !O\ 30Inpo'"gExPP/) "<^.LL"LO ΀t,v)H,F&B4$p%<{-q ݡX&T?| \x0R!l5ltd n$6POD' [37R)M0r#1 2I%Pyo%9strAa cubSsDnI3R6* 7Sj s6OCAsch m ed d K_&H>U0%P^(ls qcorred{&CO6 Kj5`FpIN2$wo-dipmens 1)AT&BCUD@ q/!3sA)D1_pm\: D Ler%MH7CE Pq#7(ppH$1$ "@4`CgV2D(\)=TP@@  @ uuIQH!}Ae)46%ua@#sp0ץ_ڭΠ0/! 8 _FOJ} @TRAPZD Gpezo l rujle 4F3Q#diA+--PSI9-Simpson'sYROM)YRomberg @adapti O)MIDP4ext ~midpo`)XOh)5 IN@#C SQ* @U _ EX|*>K6 *LER*Gauss-Lega re gabscissa>s3#.:.@ague.#5ۍS tkN0K?N'H&N'L+HWcX H70:HiV @JA?*0F@D ORTHO8A QUAD3Q" G#"1 d#"e@5 Evalu}C'ۍe):N?|C"t$|)ŖL|L OGp&G! ]QwDV DpX,?h&le vhcB4#a*ADD .e"18gits &#-0DI(divi  Aanoth )PD 1'&8. Sort:Y) ".R816w p ē.MCLtZk*B9  Q2~ d0#PPIKSR!s an y ;$inti[83* #* two arrays 0A#SHELLZShel'POick ( #(0/HPZayheapYpx3NDEXXcon struc !index for1 4P$3, uDse,pto I!3r 5 i!A9PKCek Ke2S te]E:BAir%}ĉ-CSELEC#f YNK st`3ELIP)I!E!!dCLAS$lli:!6}%ZZ0proced ur@Z8 1 ' _C9URoot FgNonlinear SeV<_)}qxqRRR O vx 9RGjuZ07BIj(#rIMzH7!ЦYMĬϒ"q CRSHOy&radph$1Xch" 9.0AZBRACqo@utward'b#k'!n3PS'3"in22'TBIs&9" pb#pFLS5"$false-pos iU497RTSE Usecan#*@ZRIDD%Ridders'a-BRENrBr497RTNdEW&V3TSAFE0g #v_C B7iIR6qDQ!7Bnoe8V e p?͉#@KmPcLAGU6#OOT&( 1HQ7. ! z eigenvalu: NG"m.(Q;i'=QN`ewton% 2Iho{#LNSRCH'2a)la ['n?97fQ FDJ2ite-dif feJacobianAFM80 3hBROYD*8GR\(Z6v1T(10Mmiza!'MaxV:C)tRRR  .J'$K0x7  nwBmƦ -  C/",a*|B-n  Bi~@:SH8C6-PO@$$9܂7pxz9. +si x1+'.0 .9N(NEAp* L REVCS+co&Hrev%al+anEl 9, ERS%d ((PTRNUnsV1RNSz0*x B?0@IFOUR$WOFJF:CAL @UnN0fs1  e[B.COS#%0F*.huge $sLexs&l media -EW2w*gpermute %fourfs2@Q.1 !+.P X3 `gSpA pplicX)sM2.) daII$9sg ^e&MH$@!$Dw$$B<*DLttL!TdU\P#Yz  ~a!rVbz6< (9@CONVLV+INRRr?PCTR#(power-um esHtim: [Q,MEMCOFe/yIXi ,[I2.JOpqil9 9 HY?VLK)# E0RIODuni_nl a'FAS:M)ZE ir x5\2ar?@DF^T, I=high-accu%y 3.J9W3 AUB4Daubechi4-coeffici@ wavel fiH!1_/. I@ `C)X9k  c hM\PW.izwp%-s`(!ar%`oP WT:g W,gc1,c_14. Statistical Description of DataS0 ) "`R O Oac SR7<ɑB<rPf! 'DO/ _ xF?VGRO_WSf0XYBg&oMOMENT.Cculate momentsa  set [@1] TTES. Stud%'s t-test f or Kme(ans1 21AV0EVARa" g b0 TUcP#pP `!JF~PFt rCHSONEA TWOO KP @PROBKS Kolmogorov-Smirnov probability  13i NTAB1 @2 OEARSN / _w@ ^f$B )0K]/s%0 ## \h2CRANKreplaces yQby Xir ran k!6KENDZL0 @0E2D1+!model!"7!QUADCQ2ount poiLcquadbts, ks2d1s98VL(Puie5n 2@` SAVGOL Savitzky-Golay smoothing  8H1 -@R5RMLCDD!_) "BC@4T>) > 4T4DD_#t  aRfuk" 'Qgh-9p!^P0㳏 qpp l-& `LFII$ Hfit8to? j;e@54#EXYpCHI 04exy 6ta chi^2? q#Ld@?OVSR$rearge covariance 4 Fh"lf5.4"VDP' D ^POL a >@svdJFLEG-pLegendrw6MRQMI$ COFAmrqmin b5,!GAU&S$0 ?Gausss 0P_2 oA P'=\X0arFz0B)$DME!Q>ROPFUNCPe1 b_;)1 .RP 6I`ntegr7Ordinary @Differ~i[?R)O>~WWWpf6b  ҀmwG7!'VW/!0o""#'>L 4O]Y `}(RK4" DUMB.!e ODE8%Ru@-Kutta67RKQ&IC%Cash-Karp-2stepsrkqq%67 _I7s ac@curacy n0itor07`MMID ifi@ed mid% O,'BSSTEP, Bulirsch-St8oer0#PZEXT@( exptraphF&bs0#R.`^2 177TuR g vI"I ijp$- dgSTOERMconservA ve sed-ord "$PSTIF+$ JACOB`(sample Jacob w ff1'DERIV(.@':IMPn1p0B)rX A(Y.b  1  / d * 7 Two P>" BCdValue P lemsU2 d )gdQQQxj * ܀:'\!KϷzqBqkfBz;c,CLOH I k L !RHOO+  @&ditto,Ishb'm p3[Ax+SOLVD+ k|KSU^$<~0, *PIN2diagonaliz|sub-block3BE$redumcolum 5,z7dАSFRO94 A'DIFEQ (,a ')@FP"G@K2d u1E &0u8gInverse *oryG6*)z lCCP ui f<N?'  ߋ!9m# Ib-d 6"-KF,  0g8Rr6%e obta dTf28=V`OLTRA)n WWGHT- R. ;MX} aKtu .GX)-E. } O+1Z &1j9Par('K/j@)w ^Gz R5~iH!X.~   ;B| lA]8'P!! pghpb)pf_p BKpt /SOp/UGLkJ!LRSTR=half-weighEG$rricgmg , P@ ;'E6R'nn longRw4AD_hRgadde_ SLVSM- !RELAd"S8)|iduDalYCOPa;GR S.+]#߁ k a!K * Uy { `-ACHt> mnoocompu's floc o w[0+IGRA4/Gray gits iF&'ICR$C1+ic|rcv+ A`DECCH9, HUFMAG,trucHuffmU D/(APlR b/-`+hu;k0u:PEONq #`ARCxw_z0/# $g1 S~UL+TU@  by*',arco de 1[/ 1\c YwBM.! Ȕ:J˗u) 1W>M(POPI4u MU9$ {q >multi reLciU?<DI"dividC8rem!*0SQ6R)Ns QL02DF;wPI&DR1h3 @RTF_TOPIC_817009696$\ @"   @\1=@1U4=@a@$ @a@" f=@@15@(AAaddint.cIfThen(IsMark("C"),`CopyTopic();0 Else(0File($Next()',`GotBo< `C'));EB("cpb")0 a@(A%  R`@AH@ ^R`9Y ;  R {  erp(res,uc,nf);for (j=1;j<=nf;j++)S *ii i0uf[i][j] += E 0;}d(AuB1%6uBBFairy||!|`||. AB%||0(uBDc Czzq!~QAQ@ 0z#define PI 3.1415927`THIRD (1.0/3.0)pWOTHR (02.0*# pONOVRT 0.5`77350L  !*rkp) @y absx,rip,rjk ootyp,z;S .=f4(xN x=sqrt(F_z=0*W*B cif (x > +bessik(z,i ,&}&sp *ai= F*0/PI bP( +$Pi< ap4!bbPp = f-bbp=__PBF] ?C JB} *ej 41<4jy4j8y414!w1j- aj t k l@hi 0x00I3; " W0tyti@0t <= @ u0j0i@/P+!0D?d`(-sIM [H+\ <5u4w 8* =V(J-./(P)+0Ca= <# || #0ASF"1OloP =x"$? p4 0F@Mp!F>B0-= "<- r "ԡ&>Eq"$b s/@GwRЛŸ9i != 4#YKO| 'rDv`PPnv6<w#fw8e{F$(aD);=(bb)64}a=on]"jxryjjj-XPHLhiQMM@H==0=V9x- >| ?2,1) : @1,2 OTt tb:РXIg( %)=7`2[ G zn7` ] && }E5hz>0FXh -@V}0F0+TI$NYolHSWAP1],@Տ+(* &i],F?2ob) nrerr"q#x~")%@ 6mq&FQU WBteehob1e"h7hhhhhW6=4a-F-J4R,Ӗ֖&fTzV1#]̔9zVVX<$5enjE (0F(60 UV`%`%zVXg K$ܶ*Ovf& "6 2_21އc1,fac2F^F^F+(1=( -5)/s02=5H*  :@=bYbijk 0 b^-_@ ߨr0ep-s`=@M-return l0fV3Y1 ̗:3YcY@=\s  0 XcY%`a3Y~[gɻbrb^ ern b Atrs\a(2ͲBb *yb, :flu0?fR= 8EbS#-tt*log(ran1(&id U` v$$$$apareverse(`zQG >= nlimit) @ c%s %10.6f  FT =",t, " PvLeng!printf("S4essful Moves: %6d\n", "t *= TFACTR`p== 0) T"8 @̀DR}~#undefb@LENf1̗<lanorm2.cIfThen(IsMark("C"),`CopyTopic(d);0El|0File($Next()',`Goto< `C'));EB("cpb")0 %  R`lJ bo.?.C!/ &C,1z /0(double  n) >=0.0;- ,;j++)  ?a[i][j]*@9 qrt(sI/n;#f1=3arcmako!`0 l3%`,_] 0011 }D"Tx#include <#s.h>#ine MC 512"fULONG_MAX0AXINT (` >> `1)#e`214748364B7ndif" o s - t1 u*acode" slong jBP$chh >) nrerror("input radix may exceedin ]A"'$)dC256DoutEE 'F Vminm= /V V= 0=umfq[1]=!@= ->B&`j]p0 -1]+I(nHfre0,1s39 BȤ0i2г]}MC#"f_1| >50 %`Պj 75~s%#x&|~zcNWK 20cJTRY(j,k,m) (B()(((JE) (k))* pj)))/pd ))zzsԏ3*lcd,4t isign4, Qwk<, CN px' &0 Cihi,ja,jh,jl,mEV!h z8Vj!c-*for (j=;j>=&--HViupb'4`lo j3=KZx3qPS8`%+1)4#z €RRzBFZbJ<e,too 4I$Z ]>c-**icL$)x =c*`Jja=(*p)[(]-Dg!da;d<1iJja_$5< (g+jhP\sj];o:>L_7 v#,,m?f,x <g yuu97|/Llzhx QQ A"<jh=p!2ᰬ|jl99Cjh-jlz SaQ/tal2g-??`Kl??ҋ*c!AA &&0yD0R<]3KR3?[M0 /y P5rw^0j0$/2?\3=( unF *)reallocCa-0NiSize expion D4gDLp)$++R!d# &Eu100;?ʀ74??0 ʒ% `ml7\ o㫁 dcc/a`IarryK,,]tmp>O6I 6 n#6Y#=ja%a AQ`atimes=0 %`zQ`J bѰ[s!@ڪ (h At | *!S#trnsp) dsprstx,@,x,r,nW a]f1CB'9avevar\\\\\10 `'%\`9R r~3\[_f?RCJ,e%Uw(* =0.0|,j\", data8 / <N=' 7 ,|s=1@l d/+epjs8 * I (O-ep*ep/n)/(n-1~Cf'Й1tCЙ(badluk?55555~30 9% 5`<>Й<_ }~AA:Ժ|z#define ZON -5.0`IYBEG 190END 209 /* PrograDm E1 */#Dl_'uldayB(}mm, ic yyy c,icon,id@wk,im,,6float timzon =/24zfrac1c`d,jdEprf("\nFull moons" <Fri Y13th %5d to \n", W=!;<_  R'0m*mp<=12o=Pm,13 ?V= (+_% 7@0 5w_n/0(12.37** -+-0.5)/0)n4 **0P:?HP`?+y Mfl(n,2,&&1=*(+2P' +nM--j[9>@EQ@l-:> I!N++> k>P Vw\,dTp b%2d/13/%4"BP 25.1f %s"b""PN<49" hrs after midnight (EST)");<(m +R`9Y  P !p &*/Aw0} W{@ic=(jday >= jd ? @1 : -1`if (ic == (-icon) ) ;@on=icPn += `}@ @  f41Q5Dbalanc.cIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb")0 (%  `RB` A!1Qq ("z#define RADIX l  int last,j,iJ,r,g,f,c,sqrdTx;* => *'D 5=0 c@0) T 1 d"r=c=0.+,;j++)"!.40c=a@[j][i]"SryPi]8CZ"c && rBPg=r/P`f=1u@@s=c+rt3 cC/Cp l@ } Ssc~()/f < L5*siaa41%/fDA oAgU2/@ݳ}#unli2f1 WEbanbks$(`C0 0%`k /c3cUП5"e{du@m=(a);=D(bb)=;}3 slong indx[], float b[])P0,k,lkmmtC3mm=@m1+m2+l X=n;ki=\ k]& k) SWAP(b,b$Flgn) l+"+for7=k^i<=l;iU. -= alU[i-k]*F ,l4$[I`k=2;kG F C0+i-1w )/1$0Pm&mPfH15FHxdeB0 x0%`.WH Ѐfrh6;rl0x6*dj?mBk"l"T1+2-i;jmٔ-l]=SFl--Tm-l,]F*dTF7x@1awB=k~nj#qrS~&1]) > o 9\0 >:xi=jG*]I#=O'& +@=TINYz Jx] qvȓa*+f**d = -(*@ ǖQS$;!j],WEJK.Qp1#xa`t5%t2 9 R-w*@H0wmmRV ; f11WG mu~l60 %`[P nǪJ7vTxk:tmplo op`J(:k=i-m1-:*@=LMIN(F,n-k9-%QJALMAX(1,1!^P(u& CJ*x[j+kt6 fN1HHN~bcucof80 ~%`N[ >!xE 2,B**cd8/wt[16e6]={ 1,0 p s2-3F 0P-20^p>@0Ip#d2`؀@00̀G5H9,-9, 6*3-6 d 41~d 쥿 Ϛ}P42 0 BA2(W13t!m 4 a0w 0p?} -Kl9 O\x,d@1d2,cl,xO=d1*d2<4xxx MpyJ+31Y*d/7!2 @% 1510u;|jF 15ajxkk! (x~xM!;[ xjH= J+^Qy.+Pc/I+h 8 f1#I]]]Nex]]0 %]`4` ]c%ghB[4\ 1lpu, \2l 1 9+ansy5 @2>d$2lo-t,u,d1,Nc=matrixL4R4d1=x1u-x1K4x2 2X7(y,xy22P@i 8; || 9 2l) input 1"t=4l)/)#u2o3g =(@@1)KwN>--> 40t*60)+((A"4]*u+"3]) P2 pS>O1=`B2>3.0*Ap2 PEA Pii]M;1=u@1}`4 ]*t}@3 )c:?" /= u$2 frete_AcAIfe1HJe)beschb?0 %`qe[ Y.O:#define NUSE1 52./*gammi.X&5 &1[] -1.142022680371168e0,6.5165112670737e 87090173086es3.4706269649e .94370664e(2 67@795e-1.$35613 &"2`1.8540,58Y`5-7.6852840844786'@1.2719306654}.9f74231198e-8'.42309}Q;.70(11r.15$8qfx*x}@1=chebev(E,c1,y!,xx>e2$2$ 2$@S): D<(Lpl= h -xRzPmi@+002q e1K8Zsippp7>/ )%p Y x XX?tGZp zCC 4cBIGNO Ze1IlV'f&M!(d nTS,0(&0 * 2`i,bimp,tox,| Jn < 2) nrerror("Index n l U2!&*i{ ʠWP=I/fabs("g=^bi= 3^2*(n+) sqrt(ACC*n));j0>0;jVEm=+j**bZ0 `m ~bi) >K1>@bx *=K1; p"8K dtlQvlpS+M8j=n) Ga@Ax)/0return x!)&&&8) 1) ? -ans : h}CCBIGNO@If1)Lbessi0.cIfThen(IsMark("C"),`CopyTo@pic();0Else(0File($Next()',`Goto!< `C'));EB("cpb")0 8%  R`f 0R`9Y 0 p/z flPoat 1( 0x){u;double y;. _@3.75) !0y=x/ %y$*="=1.0+y*(3.5156229 008994241.206749 2*0.26 59732 0360768e-1F0.45813e0-2))} W~0/axwP(exp(ax)/sqrt)L $98w28g013`28592[{25319a-# 57565@0.916281P"20577060 35537@C64763gP237"0@f1M"1"`0 %`%f۾bP?" 75)ax5287`89059"1@498869KB5@084934Ţ87!B0153l241G315/ab8296P289531B787654jD-(#20)#Hp 8026P6201k`16380S03155Ca, *= vreturn @x < )ť94 8 #dQf1  Nd%k$$$30 %`a $U3U P`S10"4000#define XMIN l^@# @*rkp% G/*gam(mi) int i,l,nl /a,a1,b,c,d,de*l1h s,e,f,factA 2,ff,K192,X pl,h,p,pimu,q,q1,q2,qnew,r4il1rip -ritemp,rkk s,sum1,x2,xi/]2Cif (=|| xnu+ Hsin7k"nHl=()("+  J=1-!SZ=\*`i/u=2.0*xi:h1 0zh`h=FPYb=*e2' v 6U_ U3dj0c=hMAXIT;i++7b += Id (b+d1b+c el=Hc*dh=*Mel- )) $nrerror("x t oo a; try asymptotic  ion!@a=h*201= P:p pqfo r (l=l>=1;l--8Z26=N+<@= -o #@&% 24f| /0tBw#69x25*(=PIHBo0= 6!? [: (/( D ~ '1.@nW`M? d-log(xz2"e#"# eĐfh(e)/eC@"~ chb(&{$$2 4ff1(J*cosD+R*e$*2 >=ff0d0pj!e/r$q{x/(et 2xÏ" >1=(i*ff+p+q)/ i-cI#c'd/0p / 0q0+`930 ?nUP1T(p-m^0tn a])*EPSe3' \ KDV!%5)ryk to convergez%=u 01 1M[bca%D 0+x$4b}d!1Dq2eQa25!2c=aK!a 0s,q*$5i=2P;i<= a2*1RG*c/2$=(q1-b*q2)/a21=qS%Bl|c*`|%L'2}UaBsh=(b*dsb%`h!B 0=`D dl \4t"a;H9"sBH2s/s9: E cf2"2h`6,2PI/(ww' -CR-*h+x-h)7C7i mu-^f&i/(fPgkm=(v1)Ep`p`8B^18> Vg8= i2 1+c0߿@[v ka(}f( #un )e\1'O)@lj FFeF,`N exFF/ d)% F F9Fz €sjE?1{I7^C(C 4> Z[BIGNO Zew I- jd@ n, \}+`vj,j bj,bjm tox,.jnh 2) ZiIndex n l U2D!H)axbs(B%>ax = *  @X> |n8oN="07N01P?.'=j*p*bj-4>j @ j' UvDm=j(n++ o.ACC*n))/8/=~) Ҁ#ud c8&mHT;j>0;jZS!)~(>!)?1~bj)q"Hip"(zO# ?3d'-x) (AZ!!($ 11a  Ou' >tEe turn )&&& 1) ?): hCCT#@I= fF1 UP2$`0 % 6$h ITgTc$zb654_8y =x<1=57568490574e y*(-1336259035@6516196 7$01214@424.18477392.330D17C084.S2456)B2n` 41n1029@532985~09 49468j18lP59272.64853267. 2712t3`p1/iXz=CDy=z*xx=ax-U98164a@@1098627e-k(P 734510404 ah 0733706`39e-5F93887211e-Q1562499995e-1Y014304063D V'9)@6911<14\76^2-934935152He-7Aj. +fL1QL|A+6QQ30 |%`4!LAhCRߕKIKCxR2614 23 #7895*0 3*C296.1c2974 1.439]#5704.4826336036606#)c725228^@3005 79#8584|A.74+y*(99447@.43394376.99913971.0))));,ans=)1/2} W{Dz=8.0/ax#y=z*z,xx=ax-2.3561_d91A@1=Qu0.183105e$-2-0*16396496e-`0.2457520174e-5*@2403370 19e-62=0.0468749,`002690873e-3|AG \YR`9Y   pb8990P88228987#fA057120Rjif (x < +a0 = -h^ fAOB1UROBB8Pbessjy.cIfThen(IsMark("C"),`CopyTo@pic();0Else(0File($Next()',`Goto!< `C'));EB("cpb")0 AB% G R&`OBDZ xxAg ~1@! 0zTx10"4000#define XMIN l^ *ryp)  /*gammisign,l,nl/a,b,br,bi,c,cr,ci,d,del1n,dlrr,e,f,fact 2,e 3,ffV,b12 mipl,h,p ,pimu 2,q,r,rjl<1 rjp -rjtemp,ryy hsum1y& w,x2,xibzR= )|| xnu" sin E2b"nl="G!? (int)(.+0.5) : IMAX(0,`p-x+17$r=M!{=*S! BFx Sa  3r-xi/=2.0*xiDw=&/PIiu=h0hh=FPVb3*=%d-Hc=h3IT;i++) +`b += Od=b-dXc c J#! n=c*, h={*\8$d8$ : S elO)X ) Q$nrerror("x too a; try asymptotic expion"=!*P=h*01= Pp p@ ?qfor (l=Zl>[l--1-2=8N+<@-DHk ?e 2D$# -ߠ @o-0!ρ35 =F`l=EPS!//1U 2x5*c5'=PIC0= !? P[: !/(  'd0log(x2'e]#V"$G eDh(e)/e'*chb(&$2 5Xff$*!(*cosK+ 2*d@:e =e/.pl*PII(q{#(evu!1 Q3 a21!2)/0FJ} Ȁ,,WvW r(r%#!30:cax,$ >=ff+r*q 01=Q#4{(i**p+q)/ i-)c *=/1pp / 0qm0+`L4(y0C0 .?P1mp-i*Ps ]Y(fabs(u))*j4(ly to converge\&0z1 @1*%&76iqmu-3]w/('-f JHM ҀU>Wi2B&a 25!#d$ ##r6#i T=a/(p*Acr=br g_"i=bi+p` *#bi*jb$d2/z&i gbi`lr=cr*dr-c/0li i+rɡ%p*-q@i 3E5P;i<=a2*12bi %3a+bw &i}Br)u2di&W3Q/(crcC516AJ)O{ Ā\ )%Z=,!pQ~cP/e(pd+dQA-`f1ہ_;Al1iHcfP2 Ur =2()/%#sqrt( %4aSIGNl +l? !n y>*>}8* #un3 0-e)OP1SPP`Rk~~.~~(`C~/ 8PP%~~cEP`R Z}?}~m|n@}fl(oat/-k n0, \\.0(&0 01 O`k,bkmap,to' mn kIx n l U2 i=k-;)iOJ=@xbk010?,kp=x+j*v*bk&*8 @Jretur("fPR17TR'S-U1(A(enEls(x((0 `R'S@%(( R-Uc s) 2JJ34z! x8i8double y, Yy=x*x/4p:) =( R91940/cbS1040/468`4)0"Z498619365562_s15042@780353p32561682 45bԲeUX1ӓVXX*Z-5/ XX%PcEX*ZZwy(i0.hy,byy8y'tx'y7# Gyp=Gy-g.)y 0fXZ1A WZZ4170 *ZZ% 0Z7c 9ˇm̭ex8"'zl 6y 8C w>D12957@821389478340654(-519.6W1087988?486327.92752283&D2=4p0076.j@45249964.8y i466.438X4744747n%226<30I_p=(%/i)+36v(j*%" z="8y=z*A8xx=x (5@398164+Q=1Z7*Z.0+y*(-0.1098627e-20.2734510404Z4K dR`9Y < 0 w@2073370639e-593887211e-6)));-ans2 = 1562499995e-101430*4063Y691114GY762516Z!934952e-7qr l@} f7ˁ1ӓ XˁLbessy1.cIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb")0 4%  `Rm`ˁe A!AСۡ!z float 1( 0x){0z6. if (x < 8.0) &y=x*x A1 4900603e13B275274390[34381[1,B9264594237922726e7"8511935e4b=A58057n4*34244419@664e12R0.3650367e1h#T245B9S02e8(p1020426050e6:@549632885e=( /)+36619772*(sj1(x)*log-1.0/x@} W)Pz=[/R!y=z*|>*LQ pUcs cxx=x-24491aCp8310j$~3396k$@Q,a0174C14:0110046874^d02690873990nWP882p2898T5:7Q1Td1  Ybxeta5$`. L@%t? L UtaCz, 4w#& return exp(gammln(z)+ @w)-P +w{fG1-  ZGw bccf?{{e{ee10 w% {`G~ ʀ ?{~E `u 5407R"cfEaQb, \% nt m,m2aa,c,d,del,h,qabmp;1=a+b  m=acd-A*x/? @/dh=for (m=1;m<=MAXIT;m++6m2=2*m (a=m-m)K((+m2)*(aB(l +aa*Yh 0/c |h *= d* aa}-MSg^ pgggwbG \uV~SqOIRIM=@0el el )Y)( $ilm > nrerror("a jb too bi$g,   in'B"ChP FPMIN e1 ['@i?,,,5/ b'%4, V z+ŮY .  9#OIthC.)|| xZ) x `in R!!!@==" bt*}wV ea!eb)+aSH+b{\(x+P d/iB+2 ) Ebt*eDa,b,x)/a}P pb,a,Z0/@xd'B1 J \Bp#bicovv`v``7. p%`@B#@?`O8``(in",t k\7ctI |g % +qfa' n)- @k `n-km-ep1  ]bksub8/ #% ӊ@k e؈owu. #!bf,im,kp,k,j,i\ '=ne-niFk=k2;k>=k1;k--<kk1) ,W+I+kp=k 0,bf;j Wvc[j][jf][kp]8=7i=im;i1J  ^>nbnldev?rr\r\\;0 n% r`*>x U?ɜ=I\54!!Opp@4G -*idumQ[: /nold=(-1 m,em,g,angle,p,q,sq,t,ystatic Kp7@,pc,pen,Sg,Jp=(pp H<=  ? b:-ppp2 n*nc259F,#`ran1( p0) ++?Xa.m# g&-am/tJI#^tKpI#0tgB9'%(jnj}mo0!E!Cen=n*n ؀ct] 8:=Men'7$!w*pkDp+-=!{`c@G, ^sq=sqrt(&*am*$@do4Pf=PI*y=ta@emQ*y+a ,с e!) x>= P007esA2*Dy)*^em(>%`n-@+e$ +0)2 > t!eOKc1n-2L7 >8_\L{Y e1r _brentKQQ3QvNeQ/ % P]ژh PGSILI1Tx-109GOLD3819660#define ZEPS| e%`SHFT( c,(a)=(b);=(c5cd ,5tol,i*xmin%0iter5> d,etemp,fu,fv,fw,fBxq,r,<12,u,v,w,x,x;!/a=(acx[n : b >x=w=v=bfw=fv=fx=(*f) xmP 5lM=(=*fabs=*$if x-x-D b-a 8!=(jXA0eM#(. ڀqUVZ`8|=(x-w)*(fx-fv5qv@wEy@q-/0)=!q-rzvq+p = tEq=T!qDI=e4=dV&q*:") 0u'a 70#b!*d=bC*(eAxm3-4% j%6-p/q5u=x+0.u-aw8b-u @:fSIGN*"U5y&\@ljX&u=(i"mTx+fpd&ژ Iw~&}lfu=(*@f)(u); if (fu <= fx) { u >= a=x; WbSHFT(v,w ,x,u)`fv,fw,fx,f }0HwNpE:@ nrerror("Too C in brent"A*xmin return$;<CGOLD#undef ZEPS P&lf#1B ! `#Sbroydn.cIfThen(IsMark("C"),`CopyTo@pic();0Else(0File($Next()',`Goto!< `C'));EB("cpb")0 S%  0R+`#eQ pQ0R`9Y qRy z$x#=ine S 2007nF@ Ze-4 X $`STPM@X 100.(nMIN& 6'{free_vectf,1,n);xold0\.w+t>s;matrix(rgk@q@ p}gfvcg`ڐp2;} int nn;*;void (*nrfuncv)( , float 0xf[] ?. 2( #0 2@ " :Sf RDTB Ħ@E@x  Pstpmax B  8ts,j,k,restrt,sing,skipen0,f,f)J@su@m,tempst,*c,*d,^0*g,*p,****r ,*s,*&w,*nW1c=B"d1$g4pDqt=Bbs}tw'enn=j@["dS4e ؀i,R!1 `0S@`$f=/"x R6[i]) >  P)=fab~s5$@8*TOLF7*check=0:H&SQRd(x8@ 8+W=1or (its <=MAXITS ++n72~Gfdjac(fnb$r,YA'@qrdcmpun,c,d,&0 fular Jacobixan &a&!r7,;jqt[j]=`700i]=1@;0Xn;kPE8c[kR7O`@ >Q@S9 s7tqq@B?UEp) !@ ?+= r*A@8@L!R1W!Qg tdIIjTj w Xn%?f')17 Ӝ a)Y_bsstepo%/`0 Y%`!)zg  o/K7 @X 8* ( +1)b1 0.252b7(oREDk D/5'2')g30aCALbB, Ix> ps,d T) . [ v(qb k- /=1 kopt taticNep df ,xne:wkQ,*"y0saveq#a[I1O@@alf[ A]` n82`={0,2,4,6,8,10,12,14,16,18}Jreduct,exitflag% w}v!Ym  |y|z}`x=䍠!Keq'1 !=A Mhn8ext`Ae29"1=SAFE1*4a[o}!1]+-*ZZiq=2;iq<=" VlXiqe,%k q]=pow1,(ad[k-a)/}<( p*(2**8 WXr2=@ +<0@n1]: 0]* -m ) ] =B3z{ Ā Ђ v h=htryn*Jnv+:Tyk<'xx!|| h(1y 2!O 23/y.X0,~=a)+~hnD2dz size r,w.&Nmmid($dydx,h,#k],.,<ivJx.h419zr(k, 60y,x$491^>TINY-K_B =k-#=[km[BB /)#/mh  ,K(4Yt,h81 <&&K3B8BPD%1<PQge*AF##_~k}C? 0#B`x$2/gAIR_gM. w,wP.Pa.#m*m@X4`0?B#J,J&y cyRԗa[WDzF d,h8/,0 PA*'h * ed#@5P#|=H*hdid=&>;wrk e35 p^k\dfa|,g#C8,work7 ct*6[0Lscale- +w@B+4{N'=h/: 8G# F"#!`8]z /Vʐ* <=[>_W |}=`a$7 qfree_H|%rX: XNG%0Id_ 1+ *l{ 2\.; l+<f1! b& Idat@ Ni ()̜0 _&%cPCZ ̼l|¼L*GREG 2299161=</long ja,jalphb,jc,jd,j2]+gjulitanAIF:10=B(A)(((9,),P-1867216)-)/36524 mja=QR0+1+x0-F0 (=*0} /q< 0PDP[5*(1-0k h Vn jb=ja,+1 cP66 80.0+ŀb-2439870)-122.1 @ jd7P*jc+e@c*jeaEjd)&C_/30.6001);*id=jb-jd-(l@ong) (@*je mm=je-1*&@ NAR`9Y  if (P > 12) -= yyy=jc-48715)p(--( B , <= 0julia8n <& a00*(1-0/36525}IGREGeC17Ӝ  cchder.cIfThen(IsMark("C"),`CopyTopic();0Else(0 File($Next()',`Goto< `C'));EB("cpb")/ % o 0RUPM h~A!AP1 {float con; c[n-1]0=0.0C@2]=2*()*c# ^for=n-3;j>=0;0j--)oA j]B=0+2]+9j+9 9n=2.0/(b-aI@Bw (*P@< Z/BIG t? :M )6` Ipyd9/ /= m& pa=-b*sXw(7,?װ|{`h -agD 0 -: C4 8"$m7f 1 i qchold%Y%YYL0 C %%Y@giqg Y5[|0 pg tLѩ'z\p []flQi,j,JkSPoNMF'Q.j =a[i]C,k=i! lw ? aetWi == jG, <= * l1 ,po=sqrt}0} WTZ= /G}.f 18F j8?-sl--e---")0 q8%-`?Q xp?)й(w;\i,kab,݁xOIx!qK!K+ [<)Bk]IKK`f81]  k2chsone?1>0 ?% `,2V zG1s$*df*,*q rw)RF,=nbins-knstr7 iM,;fe.&+ exp]ed in`o3temp=-@-6P !*&/sq)-f1x * l@@two=0 20%`G@^ S "1()&& 32P1%--(z/Wwi-a9-1Px-/c`+[P/ •d1  mTAcisi+"). @% 0Gk xeoKt#define 6.0e-8`EULER t77215@6640-`PIBY2 d"A`TMIN lpRUE 1Xcq(f/Nx  si^k0,odd ` ,err,fact,`sign,vcs,t,ter h,b,c,d,deltKt=fabs(xVGt"+qDq -/FP "b 40> ;b=Complex(6t\+c C0, x+d=h=Cdiv(ONE ,b+)i=2;i<=MAXIT;i]^a(, )* -z € Z&2 addx(b,P q9dp' RCmul(a,d)9A@K=Qa!!,cGPe|l=: 96Jh9el.r)+!.i)A) 9!zf >z$:W@Qcos(t),-sibn),h.-Bh.r&+"+h.iR Vty sp:")J >c]R xs=tv*6@s&pct=%=B%X+B)}A w& _ Q8*/6" */>'rm P ?#=/#K\,!;f! `-A@=sumc;A} W{ x >c0 %s%@+ if (err < ) @ odd=!N ' &k > nr.or("maxits in cisi")}U*si g`*c c+log(t)+EUL\ER}zxx+0 = -(8D}+  BY2FPMIN#undef T O-TA5 :4R`9Y@ B`RDUENPONE>fAA1*  nABEcntab1.cIfThen(IsMark("C"),`CopyTopic();0Else(0 File($Next()',`Goto< `C'));EB("cpb")0 TAB%  0R`A3Dz €YqP ? P(zTx#ine )Ze-30 @*df, p@rob,c ramrv ccHc)int nnj,nni,j,i,minijP=0.0,expcPtd,*i j,temp;i @i=vect1,n[jjZ=ni j=n\ >=[i]fV7R#0 +=#[j]s# ?][0==--2N0AbP0]G@ G`I=*#\+1*chisq@0 hDBET v..Cq23"1!</{T11-1$0O*/(1+TINYTT)e"O1 ? -h1 :,-1Q"=sqrt( 1/*A"F i51+Jg free_@B["2RiDf3D2F1  o2FbF JF$2FFf$#FF(`CF0 EbF% F`2FuH ڀ%FFF@ @U$p!RRThygxV$hxgy_$uPu`xy\$Cdp>99L9$'''92\4 7D' j) 'pc -= p*pW5D<6kHChbF Je AA0R (U@Ud4Agx=(*hr)hxA"`y K%y-h")-hyda"Dx~ xy=2.0* D0"@EfppppfuHJ1z V pJJNconvl~vppp40 JJ%`I9JMq sXR6"HJ$s8 gnAans[]( ^ ! slo ng | `i,no2} um,mag2,*fftH <<1;$(m-1)/@2;i++) respkn+1-u @m |=(m+3/ <=n-G<<htwo(data,X0,2,,n=nD>>)+=284:,n-[*U/00=(@dum+) -1+} e c ]4t(%=SQR(` =)+ `]))M1)*,rlDeolvi}at 2onazero ",JNI `jXn0 qa<10 dNo meanforo2 }2]=aYreal!,{@Yb> dMN1 qNN]Oc ~~~8. NN%  ԉ ~N]OD V< }I: Eg,;jp30aout ain 09<fNO1V T rO$PQcorrel90 ]O$P`%`wdOQ_ ~N~> ))',l)%$$Ƅ1,2D5~E~~f$P2R1 s2RbRTcosft===b=0 QbR%=`z2RvTy =9 `z^#void(float 4 nwj,nP,y1,"y'/ Xwi+wpir,wXr=1;#A&=PI/nK - >5*(y[1]-y%[p+pnUCMK @=(n_)Sl$+ Ɯ y1UPj< 2-l xy2= jpy1-wi* }1 %+` ?i wr!0%Fy,n,m(0=yL ?{(j=4;jU?XP `?=bRT5 :Pu  fvTJU1T tJUzUZ#UUUE0 TzU%U`*EJUWr U ;O1, Jz>H,y2i1#r'+C=(thetauC=sinpr _{ i% :`x:.K>*sig#-i?C,#Q ,3-4 B@(#=)*]xpi+#00r~+)$0 (aI3i8=3;PKzUY  ,TMIrX/$NJ4[*wr\,/Pr"0\!0/ =41-EdDQ >= -a\U$OgD,O==,"nd4d@ 2W0$}RPQ,6!;WZV z|&LA=1;j--?iaOSWAP(O`k],[-"k"@--(k--44e[]1 3 v]]`_crankjjj=/ ]]@%͊@c]`_n BM,OMj=1,j$t#bt,# K*sA j F> 1)+1]>= 0) F|=1,j=1;j<=n-3;j+=2,## ̉C0*a[j]+C1+$C2 23 3. +nh]0]-)@3=0.2O 3@}en-)Pne@mc2a `.b0.. tokV z?sr*RsC} dW< ~0h_.P@2ph_AE0,0A3h5Aj++q@iAp!s0i!w03@Qi}A5@@0CQ5pif=5b[tC0C23o4f1G.  y2Hdawsonpp$p`pp0 k2%`Jn ;qqwpTztp zG#define NMAX 6`H1 (2.0/3.0) 2030f7=R!bDx/(\$,n1,d2,e1,e2,sum,x2,xp,xx,anso&[||/init=Bh0Cd!AM7cexp(-SQR(*i-Hp)*H)ix)F4x2=xx*xL z-A1*x2 @2 p3)K0Cxx=@fabs(xn0=5V)(0.5*xx/H+ xp=xx-n0*He1 xp 2=e1*e d1=n0>%2HO l WPJd2=d1-A >HJ,d1i.0- =e2) ?+=i!*(e1/(/(d2d!E!641895835*SIGN(!xp),x)*1 6zPHCfJߋ1r   zߋPdbrent?MMM30 H% `4ߋ([ iNNk-100cZEPS ZecMOV3 d,e,f) (a)=(d);T(becf 3N!;Hax, $x@=w=v=bfw=fv=fx= (*#dw=d8v=d#D$m*(a+bK$=*f4+k@2Z*: "J ΀cݓs] :0G @5-xm= (N- b-a9!=&%return f4%MU%e)OIE )v$)dw 0!= d(w-dxHx-dw/0% v%`2=( v%vU0u1=xJ+W@u+dQ]#(a-u1)*(u1-b)&&t*d1WD+2+@2+2M+2+w=e{*e=d`n|| J`p dZ.d%< d=? *e S@r"(l 6!uB"cn1L01AV`1rm"'hRu 1q,u-as 8ab-u @RASa& $xmHF12[00 *`?(  ΂pfu4u'f` pP+@-fuwf&2XY0 pYq0D@E@JPt gC!6 !!&P a b"Dg&v, w?(&@, xg3`@, uWsap0 j99^0d *x+l-?0 <d *= i] ,f 1_  | ;idecchk?#++##+;0 t;% `1 lM h# 0(char string[], &", *ch*c j,k=0, >p[10][8]={0,1,5,8,9,4,2,7 p0@1,( 'P3,6  +PJP Qaw/i 6p3/`l`t ה@}I?j ջ0246z P0`5P1` 0|0D0 P3`809&70!28 6 1` #-0#-0f<0<0F SP5S`0;iM0!\m!FDED7,C0;jBj#c48c&$57%/k=zk]"[;(c+ % C7 & m++b]S=9z$VB!2`j][m)7@]]) #ch=j+48n {K k=fl1  }0df1dim  ?0 i0`%`X ~ 'O8"C?.nco`[] e void (*nrdfun)(n>E$ ?7!@ Nt,|Nxt=ve0ictor(1,ncom);df=ve,;j++) xt`[j]=p,+0x*xi 09(*nrdfun)( xt,df8dfp1 +=?5free_q@df,pPpreturnP;}f0g1 ~gFdfour1.cIfThen(IsMark("C"),`CopyTo@pic();0Else(0File($Next()',`Goto!< `C'));EB("cpb")0 %  Rq@Rg Ԁ0R`9Y P 0'"9zh { slong n,mmax,m,j,istep,i,ouble wtemp@,wr,wpi,wi,thetaO/r,"2Wn=nn << j=@for (i i i0SWAP(data2, i]+1P  }"m=n >>r m >= 2 && ^m^@j -=| mO !- =jOJ=2* R @=&P Xta=isign*(6.28318530717959/9 U ԔЙw r=1.0wi=0 YFt 𶀳Br0  V 1mdm<;maQm==!"Ai+1 "=wr*A-wi @"pi"p]+$`"@A=A-W"@ 9Pi]4#P-0,  4hdgI@FPV)@4@loat(*c)( []), void PE)(  *f," )0stp3 B,i,its,jen,facde,fp,6@sum !h%testY*M***A*#!lEdgЇ!" 6y Emd|VXjkP 1=Aa&xifp=Qp(* $,gT,822Af5~@i]Uxi;= -Vgm%?pz*6 8Vtsts<=ITMAX 8*ite r=lnsr@ch(n,pg.," tR&c`heck,}"fzp*!00=?@0W R6p=fabshiF/F( )&,[7C7 2V e?n',-"$XH  Gd=Q 1den= S!`!)* 0)/B$( < gtol- Ё~Br D!GIe=3$#B-Bk+ -Rzp0W) >dg1SQRni >xiP>2: 6i ހh@ 0yFQ> sqrt(t*J%xi)X[1m /Ad@eX*HR.1-!CM8Cjr(9`nj]$0En!L Vatj$Z9(2>4 =<% nrerr"too C ig("cp #un TOLX P '"=fV1 0dfridr"""90 i0`%`FH` ?},O N 1.4 2 (CON*)2iNTAB1 cl-6!H\, ,(^ K8tr(hh5a8,an*(nh == + bh mube nonzero "!}"awX(hD=h [1]=(Wx+hh)- `- )/(2.0*=BI2G~2;e ;iKWhh /= b bp0b(%Z@=i#3d.PT=(`-R *} - PEGdE0a } `.߶6' `)P Ͻ ,?V 3.01416e0) sto$w th)w e-2&4t=tt2=t*5+t4=t2*t#t6=t4 @"A-(172~ )*t4+(2z/151@E==(-/)+t2/45@.0+(10,4 N69R2268@@sJ b<.@+=(7d4 - D1802+(/03456P) 59{π2&P-!; 6048 At6/64 y%3/w0u q02419!6pP<1i35AG10@-(am/28308/46777"06*E7?~ N6157`159875QB0j2 -;92f1wB90C 74844Q03`36: 84!H"03628AP299376E} W9c bt7==cos(/=sinP=*-*&0e0Z#h[h* P^h_h`3u=e0$$=ek@-+( K4g,*$qp6sG$*s$*(b0+"2$4 +c 2+<@60-6 7@i7P;0yP2)<@Bh`10$X/ vb@3$=-0UP@70Tp+ATQ pNN{8#Pata[NDFT+1],endpts[9]) c,cdft,cerr,00en,sJ$s$*cpol,*s x ;!=vector(1,MP|OL 6+if ( != 1 || a  b &P ur wR`9Y @ 0P p$ 8 V!1=fa =bA=#!=(b-a)/M or (j@j<=M+H++);dj]=1)(a+(j-1)*!<9P8M+2;<0.QhOS[@P+4@M(-3+0}realft(,Al,1z 2_P(e(n=w0*h/T@WOPI+1~ nn=IMIN(IMAX(t)(en-0.5*"$)V^ /2-0Lm"`2*nn-1 [ }q 2#6(,+# H&i#&j'M#'`>s' m'H(wCa,bCP`$] ZD *= /l4K! +! re P0imA=1(w*r"s@PE=c*D-s*' 5=s +cPfree_#DF$(t[$YU!^d}M s#undeDf "eS1j Sp difeq.cIfThen(IsMark("C"),`CopyTopic();A0Else(0File($Next()',`Goto< `C'));EB("cpb")/ %  R`P Sq AD"̴tmm,n,mph,c2,anorm,xV[>'#ipxXv[]n6* s0y'R,temp1 21Fk == k13n+mm & @s[3][3+c@1]]=V4.2D33jspf]=yKN$ Wkk QkPk[k@2k`ne1 !0> k24 3(yu]-c2)/(2.00*(mm)%% p e ~f 7!Sp Ͱ*>׀ށ с XsMq(!"A 3r<9=@p3V 5*hȁ!`{4!iW"=x[k]+F=h/( -#*00.25'#5*1=0)) 4@D#a]X .5] ; ^ 0 "I1c' Rs@ rr+-rl2KF-BCb'Kd%tk]`3;#)h="Q @e"*|((S*qW)"2E p = JGGkK9i@%Du"SBM*xg 1%y 9-dr min'(`C1 p 9%nj`#Un G^:gslG̗\ " xo7e-4.'co [\void `(*nrd95N 0E .%8,- @.bre E>ax, O>b `Dcxi^f1dimi@ AI 7?fc4&~\x,x,fx,fb,f x,axyN=1pnni.rinr-]1=,-d,Op.ML xi@=$ $axgMxxHmn@brak(&&Vx&&&9-G \u^L*V t=d1tSn!,d0T &AQ *^ h a}qk| ogU1H   dpythagqqq31 -%p @G?񼳠s">zC /@(dou ble a( /b!T3/abs bsb =f(/0b=-C /) urn  qrtq+DSQ:R&bY @*~* ǣ })?:E 8ab)zm Og1 & drealft?QQQ51 % p"r ;S5T 9-&   slong i,i1,i2,i3,i4,np3/cF1zh1ri,h22i5 Xta=3.141592653589793/(^2)R >>1I%2hc2:dfour1(data,%,' ]c*"btheta)4 wr+wprwi=wp=n+for (i=2;i<=!2);iTi4 =1+(i*p3-(i2 1=i+i-1u"=c1* [i1t]+03$:2]-&04@2rc2 p>@ `>`= \r^D _Dh*IP=+wr*-wi@2i0g;@3; -;00;N4R.> 5"_!1(r@)n12+/ @ tpC_B@!D+P@!G0jg 1  z Q6dsprsax zzenEzNzCz1 Q0%pH 6I `ZO]VF' )ADniB& Rk!I+ij!!= n+2) nrerr""A: mismatched @g F"~bϥb[i }]*x m*Mk ak]{gQ10&  !t(((H1 60%pkR roPa+ Vj񴁫Gin O=AA1muj=1bIa* =g1z  /dsvbksbuu91 `%ph/k qṕimuL--Ix} jj'/s,*tmpL =dƼ6spL*w ;su *!s /= 'A{_s=10;i--4eg=s!S@Pgl |CG //t!1%Zb$Tlb%(s16WT%eBCiBU`0&} W T@V ++uQk=n;kkQ1tsts<=309t6laua&%l=(k;llQ`nm=l-#0&(doub2+ ') =t 0*Vga& Kwx[nmJ6 &EI 8!)FP hLtkWcXCbSOcl;i<iߥa&2%WaXcfNA&dpythag(f,g7s8FWh#Wc=g*+Ws = -f`'Hyd Hz0` 0=y*c+z*zH*T=z*c-y`8tzTFK lzkK)GK Y=Rr_#~^8z+I9zrX,G7%0 @ cCJt}= 30) o convergence in dsvdcmp "J:xHkCyQ5Qh IH(y-z)*(y+z) +(g-h g+h))/(2.0*h*y:gPD+:>x> x>h*M/(f+SIG`N(g,f&P)t/x*c4 Sonpi=ju;0Zh@(IN <YnGhw_@xcEVz=hCtMBc=Df/XBs=h PfT=xfgfSggexwShKycypLx. mhz@dPl s%P#r`}fNO1P Ќ OOQeclass.cIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb")0 OO% O `R `=OQU x{Nj\! 0int l,k,j; 4 Xnfe9k s/ istaM  j) j= ` &b& 3 T"0E e D6^j ],P`fOQ1B QQRzz"`0 QQ%`QRT v}u2QkQ1 | CT2C$nCt#-(=3ph-1);k"~+1 7\*equiv),kk)G"#pPP35i@AabQlS1eЌ  lSSVei1,RS%@lSUv s0_E^Sz#define EULER 0.57721566@40"`6.0e-8#i(float x) 7B ct,prev,sum,term-Dx <= argumeO ei)@ return log(x)+ p EPS/} >_fact_MAXITO4>x/=3@ ?ϰ0kK*Mk > nrerror("Series p um~+ >SVc ƉUC2+=` kJ ^9) >0T-= ={Aexpi*(+h+}q" AFPMIN;fUcW1 9 cWWXeigsrt50 VW%`WcWXp ?7냛 G4e,j,i[#pGO1np=d[k=q
  • ) 207viCF]KL=y:p|j{ @0'^?N?@TB7dWY14 YYZelle7. XY@% lle?YZL fʉi{KTxEcEphi, ak%>Bbcc,q, (s=sin(0_cc=SQR(cos rq=t LC  *0(rf(M #-(C;( )*rdp/3A/KdYE[19 q E[s[4\f9. Zs[%@E[4\F Z_CfJ!{,!mes[\1{ \\C^Ip]1fE/ 4\\% J Jh\C^N jKKMMCpY1N#n.9rj7Y, @9yPzPp }censs1=en*s /ߐSg*P +|×f\^1!q ^ _elmhe''A''vG0 C^ _0%'`!^+a ր'qy]_PSWAP(g,h y=(g);=(hh)=y;}q/void P1Kin+e mҧy,I wmU mm[x9[i2=*Tw3;~"adm-1R> xxuK<`7i=-ii : +T-10a 2,a[mG( X @'  [x[wih;(ye0+:y / L8#`n _^ xQ衄+aC^T;j<=n;j++)0a[i][j] -= yP*a[m ;-@,(j] +(0 Zi(@}0 } me+a1 > Derfcc.cIfThen(IsMark("C"),`CopyTopic();0Else(0File($Next()', `Goto< `C'));EB("cpb")/ D%  R+P\4K di/R`9Y 9z  {float t,z,ans; z=fabs(x)t=1.0/(+0.5*z)=t*exp(-z*z-1.26551@223+t*)0@002368 0.37409196 009678418+,-0.1862880@27886807IX1352039J 1.48851587return x >= )?  : 2.0- 1dD51  5c f?" `. c% t5< Hr""2( 2x),BCa ] YU?vvVVVVA/ % vPY? L1vXZ([`Z+bsqbf1 N  eulsum20 Y %ċPv ۴hATD @0 6 /ntermtEmp,duA!if (j @== 1) ;/ =1*=!(wksp[1]=K} W,N=@ #@for]In- e 90j+;0< oj]+nh0 7 / 3ppf) <= ,^)'z* ++@V$zp'f 1]  Ո9evlmeooooE0 Ո%`dx9Y g+64 "ֈPrU,/ib0 double w0Bw ,wpri,wtethetaG Xta=6.283185307179590*fdt` 5=cos(/  ^(L =wrD)*^-wiigs r+n P >rd *wr=0ip: Wms/(r<r+FiDfՈ1N z Њdev?70 9% `ЊH ^=DIɯG (longX *i7: ddo>Dran16(% *"y-log( 0GfM1 o M} int77790 }%\`1M c88[`V?0@ PxK40#define EULER U 77 6649"7( n, \) i,nmza,b,c,d,del,fact,h,psiЋ(=nR6n 0 ||I(x=X &&/ 1H @ sin@"O6J0 0)V=a,x)/x&&+-C (`T' FbP=x+nMc|,FPPMIN Nd,bNh=d"NMAXIT;i4gR = -i*('>+T`@9 \ } (7zV]ӱPa16Up?"(a*d+b`c=b+a/FcP=c*QHh *elQel  /q-h=-? ҢO_/Pnrerror ontin@ued fr}ion 1If0!k $x)-#Qq-x/&i != &) /(i-R`63#Y]z €=v/j/'Q:iic ii{ i"9i`!WH1+bA}! )*EPS) QseriesB"&)5} #$e1Hz ݒf1di`6E`Nex`x/ ݒ`%!PNO l_!\!Tx,nco [`;w !(@,*xtOxt=vector(1,L1D,U_,xt: =peBi 0=(*nrfu@nc)(xt7free_M@xt,KPpIf:f1Bo ̕ln==?0 `%`̕G \;O#(i97 #a8[10dn') n^UNegative #orial in 21'6@. 0amKa[n]l : (=gammٗn+ Ie 0P:fc1} \ cȗrl30 ̕%`LbcU x rl /n`top=43p3]={,64.0}Merl>X 32a ( = a= 0ACC 4& 8 Z+s -*jmax, H  ܰ s.j,k,n+,nq0)ve,ckterm,cwt6 n,df,ePffm,ByC,Bf@ hc2w9s,hypoT,ps= s=var,xdif,bxxmi t,*noutV 5*oq*hi0=*MP=6! 00E} =P <%"O nwkAworkspaces too ?2,(y,n,& &U-{l \;ޏp 9=x[  ax=J1El]x b.0'p>ax@7G Oax-TP5wk1wk2# ac=7/(!] " ;(88.ck= U )*?c@">%k==n * !p"++spread(yT2"> $@5P p$a{ߗlft(wk1,ndim,1);rea02df=1.0/(xdif*ofac)pmax = -7for (k=3,j=1;j<=(*nout);j++,k+=2) {\ sR`9Y @ @hypo=sqr [k]*0+ +1@hc2wt=0.5&@v/> s8`c1` 6+@ J sHSIGN(P-0F,J m denk n60Pk `b term=SQR(l1` 0/Ku )-+`)(n-x Ij]=j*Tdf02(n +J .2.0*va"r!if G!j] > ) =[H(*j j)}expy= (-( Geffm6=NB/6_*prob=*4>}[{ 9 BRP a8) \0-pow(,}MODACC2e1\ .fdjac.cIfThen(IsMark("C"),`CopyTopic();0Else(0 File($Next()',`Goto< `C'));EB("cpb")/ % & 0RP\.f VVSA1<?#D3i`cnAzTx4 : ,temp,*`f=vector(`[, $2)=x#=EPS*fabs(A~bh == .+ /=c+h60@-t(*nfunc)(n,8x,f#2``df[i]"-ff)/O&,( 2f1o 8 3fgauss!!A" !`!!0 .% !!‹P>:3Z uy"R "<"c,ex,argB*yg%fi!@i<=na-+ =32-=(x-Xa[i$2%evxY4N*R%=u)]C*j g += @u%yd&w p=a@2 c}p}e1 gfill0%%%2/ 3%%PoigB T{$tdA >SCTzuWC!3c18 1 (fitWW5W553-g(%W1шuB ހUOU8D1`XPh.wf#A*a,"b, si gaP0chi2 q) float wt,t,sxoss,s#,st20igdatmSbCm%ssCM %Vf'wL)xxP#ypN} W$_X@4p1.@na8 =sx/ss;Щ@ti!)/00t2Bt*0*b 0&p&(hv ƚjr/btCP\Q /= a=(sy  b) 4S"J;F+O(ss*#$ +p"p;}E*q89r0A>`!-(*a)b)*%^;"@"-% *B@Ubyzł b"> gammq:*`, 0IBB7 >,ך s*fhA1. Γ AqnBexy?{{{80 q% {؋PAf Ou ]j#define POTN 1.571000\5CC Ze-3*int nN Txx,*8yy,ww,aa,offF}(Bt%k5zz S"5tol%xmi-5xy(5ban( @8 rOrr0% 80fc!%#f Vswap,am mn, xy,y[7],chscale, b b(d1,d2,r2{dum um23 45KxxH yy(qb I}6Ű?S$wwave(x ,& &,y^ya :5\/Pnn& 2`mx,]yy*!/w,5]s$ 'ww' ')+'oU0%n (n\n,!b 2 3 4 5 ~="C ;/8 |n@45% .@6]=\j=4;j<=6 1xE  3xk cq'f 0 0 mnbrPak(&0, 2@3")#vbrent @?@>@#,AC|C,-!-73?1aenb['*v7$=r9jS Da/r( " #r=BIG n @!XG+7AT Ac! > ?|d1Q 1'9 d1 >= PhI) - *d2=PI-d1!*c\1 < T0="@bd;0 d D@c:(< )P 2 nn@k99=wv9;z"2 2 *b+c8 o)6-6no6(*nnUn ($*cos!Uy9-*1+1n)+r kT(*)K?)^B*am*D*b=+D:`free_/F$2V x1qn= JjOiH 'f}#unnk(Z CC9f11 5fixrts7 *e,(0 n5% `;|pj O'ItYN0MAX `ZERO Complex 0w 0)Xvoid B1KIm/  i,j,@polisha[e],roo ts 0Na[m]=ONET-c>=0;j--)P-d[m-0=2;i0i-O Cmul`, 0u=z(0k8U5> L?♕C-'Xy<=mvr! = -.r/S*Sdp1~Γ  flegPp-`. %P P0M ` Nss1 %H D3Lx, pl[], i 2l,N|twox,f2,f L-o& O89% x~Il?H8=2.0"*f2$ d+7@"Z3(l/{f++'f/'å (f2* -f1 02G f1 flmoon.cIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb")0 %  R`"X@ ~E0R`9Y@ P@0bz#define RAD (3.14159265/180.0) D{ am,as,c,t,t2,xtra;& c=n+nph/4.0;t=c/1236.85 2=t*tas=359.2242+29.105356*cm=306.0253+385.816918*c+10730*t2W*jd=2020+2@8L*n+7phr=0.75933+1.53 05886B((1.178e-4)- 55e-7)*tRif ( == 0 || @2)S0@ += (0@34-3.93F;sin(6*as)-0.40i`Tm)e \1\3\21-9[![6280[> JOBRdis unknown in 2"i=(int)( >= )?oor ) : ceil -1()ifra c= }#ungdRd81V8ffmio3`. f%hÉ0%E8L f󒣗c"@Txmnn;*fveOern void (*nrfuncv) n,at 0f[])3@7("0x PCOnn,x,q@for (sumK0,i@=1;i<=i@++) ? SHQR([ipretu0.5&*5:ef!1!P four1}}}1/ P@%}}o0O!f Ԁ|||uu? 0'"uh " F slongmmax,m,j,istep,zdouble wtemp, wr,wpi,wi,thetRr,%n << 1jB1=2) (%j > i0SWAP(data[j], s2+1P  }Wm=n >>r  mc2 && ^m^@j -|= O.,@=Pj/J= R @="P Xta=isign*(6.28318%717959/9 ԔЙwr=wiYP t Wr0 E3mdm<;maQm==!"Ai+1 r=wr*qA-wi @"pi"p+$`"@A=A-U @ 9Pi]V4#P-0,  @1;krps0+=kscX;k+cccc,dObQbB1>cK2џ*!} else A.RbW b=,,,Vb#+ ΀:d? Qcuvkd::1bEcEsE Vkkz4K+ @7&c[kk+ks]@$>s; &l]+ `:++7@9@{VMCF+VP um5kk> C <}XXBsC'lbeFHImF=JVKfLVSs$XE%#@ 1&ONTƊd*4P /xUV VfY3+&v ) l+X ~KpOJHN8W>7fc K0ba! nU6W }@ eC19AFnyEEeE,`NEE/ %EE&Xk U?A9N@~J\>h+.L+int i% 1~i1,i2,i3rev pppf  fp3`bit,k1,k2,n, np7 m,ntDotC.i,tK/4,wi,wSwpr,w3N(8= % [N_y &_(= 5`>H@-Z-9n9P=+ * )]#p1"= < L99A*.312void !s2 x, 0p[], int np){ p[1.0for (j=2;j<=np;j++)6j]=-1]*x;!eTBC19oCCjEfred2hh!h`hh/ BC`%hPCjEf qiqlq r`2"Txl! N(*g)D, ,ak@A)! jD Nii,j,*ind**omk;1 =matrix(P1,n,)gauleg(a, b,t,w0,;H[i]D(i @== j)-0t,t )*wf0= i ludcmp(#,&dlubksbfe_@3ZfCF11F1FGqexrrr20 jE1F%r FGm oss?w2vR|x>%|z}B\5#define N 40# /* Program 31 */|" wb ld,*g,yFw2N)a xrNx g=ve0ctor#quadmx(a0)BE ,'gosin((r)*PI/(N20D"2`fg10x=.~ .2d j,,2u"@RgPʸ`0 BY2f1FH12o(HHIin```40 GH`%`HIC TbfaVff[60hvUnatVb}Vt}5@AP ů6ַP=0$aK ?30xi]*fǢ$x)+sum6fHNJ11cNJ~JeQnel(((60 I~J%L`GNJLn dLP_Bi M$JtCd6.0e-8K"[dXMIN 1.ltPI 3.1415927BY2 (2.0)dTRUE 1X(8C{!x*s c#77nodd$a,a^act,pix2,sig,n,cs,termstFb,cc,d,h,del,csPGax=fabs9{f (ax < sqrt(F"P)) C*s#2 c=a} 4X+= !%0 >=x*P >+@|I=!*axB=N6@n=3`X=MAXIT;k *~JN mxx`0 `,08;l/*/) str1)*EP>SC-zm101 = -c= >s\ Phc}-W40o'"^| ( < P) )x>!Q2o }l k > nrerr"serie@s inB"&kP@Pqb=Comple .0,-&cc/~",&d=h=Cdiv(ONE,b& !K.+k k<)LPp })?) ʍ rFqan*(n+7@add(b,Q470dp' RCmulJd)A0%B@JQa)!IPel=< {0@M$0r- )+$.i)!B "cf_@`x,-ax),h1s0.5 5)"Csub0@cos&* "n pU21ocs./ S+$cL(MuNeQA RomZrZP0Fsk9 8%#un %[) P PfPQ1(Q,RUfrprmummN0 eQ,R%`)QUTj n?#;-201e$Jxi>h-g>N.` []'El>U B7j,it`7gg,gam,f p,dggK,*g,*h,*x.g)|sxi fpyfunc)D(p~(*d @,xiG,>'g2xiN =hGL*=1;<8=ITZ FP*i6=0linmϣ nit, #+O*>(*-fp;tol*(7p\D+Q8,RU~ ʀ 3~7W Gk h:=Iwgg7~*gA. Ly+)A]W8\==DJ=G/J"o+*G gToo xC 'A$d>eUTV1cדVV6Xfű$ENex/ UV%?̊@y V6Xa >*Znt8T\ b#f ܡdvar1,2,ave12,df1m $|~6-w /|Kf=A/A )f1=n18B=n2)Z.02.?"@."0.0:0#*prob3l*betai(nSj /(+*x(*ft7I:0 Z) F = -P ~>fVX1XX[<dev>>>20 6XX%`0 X-[ ~?rvuxy>Ffm6-!(ia, -*idO :0>&m,e,s,v2,x,yM ia 1) kE in 1)*`6 >x]( a~6xra8n1( |&logX>\do<Ppv1=A2U*Yp=} wh-1*v1+v02*v22.=y=&v,Kia3*<=sam+`=x=s*y+a>=^`.*-e=+y*y)`*exp(e /a<e/X[; F^\\IDT Gq| e_:y0urn xf-[)\1)\Y\ml,,[,,E0 [Y\0%[`)\S t[Ehce%;xx)doub-,tmp,se1 !cof[6]={76.18009172Y\[947146,-86.50532032941677,24.01409824083091,-1.231739572450155'B208650973866179e-2,-0.5'239384953e-5}; y=x=xxtmp=x+5.5 0 -= (x+<)*l(og()6ser=1.00 191=5@;j++) ! += cof[j ]/++ylre@turn -c+L266282 74631M5*)X/xa}eY\15gammp.cIfThen(IsMark("C"),`CopyTopic();0 Else(0File($Next()',`GotBo< `C'));EB("cpb")/ ށ%  RPU x5/R`9Y 0`^ { n pfloa,t , cf,gl!!p"if < (a+)) F$g(&:@a,x,&8QU0/} W1 cf0 d0 .0-}0.!eށx15Hxq! `/ %PxUWȱlgvl!Aqa?"qȑfB1BrCgasdev10 r%Ӌ@BCop C#PSze%S(long *idum): /iset=0`tat8ic C\c,rsq,v1,= [|| l*7fac=sqrt(-j9)/VO&e 1od0oTad1`4frڇ1Hڇ jgau**a*aa40 C %`` ڇjb +ff4 b Tx' d%E&4 @**z4Fz=matrix(01,n,!Fi != 1) b[i]1 i6&,8z=(&)2jAtqli(a,b[zTeigs1a,zix]abw mu0*z8[1]wPQ0frhee_@z@}@ f 1 1 ߍ&he~rQQQ60 j1%`?Ow &&?t Ӕ4;B14#define PIM4 0.75112554446494254T*voidB1 @int n$ts,j,m /p1,p2@,p3,pp z*m=(n+1)/{Ńr$zr4(doub@le)(2*1)% 85575*p ow166667(]I01.143n,0.426)/ eA  `3`o6*zq x-= 4-91- x[2O-@f9z--@ %p1=C%p2=0%i1ߍs ppJF0 `SD(sa&p3=p$& p% z*&/j)*p2-1aj- 3&ppر;&zS0=z1-p1/pp&+A$ts > nrerror("too C |i+k4!x[l-i] = -!y$(pp*np-$0=JM4  fOv1v_jac?:0 ߍ% 3`qvq 7ZqrnND f')20alfbet,an,bn,r1,r2,rI=/\c,PtemU͖Ian=U/bn=C_ @r1=(+ t)*78/(+n&768*an/s;r2%h 4E96*bb452&083 bk0<0-r81/rcIDv4.r1v /(56*v6*(n-8 (`wB@3(PCNP25 xbs(R A%-z)*r1*r2*e!Ӓd aot_ mE167z!137!22QW#Z6G+O)*nsL!35[6919 #P639Q`71PQ;!027.n52P+=n-3]𺠸@0_qU Ҁz12'&1!''a2'g35  P2]+3g4=DJGy@W@c-+*zM]EUUwX0*jXa|*(P4b=0B?02p7c9.E ,#Xg(b"c)/aWwXӒ_Y %~x"(n LB-LA*p1+ nEn3p2D0$wCMMMMM,exp(gammlnW+. @n)-@ -`T2 i1*,A82X=X8f1q &@fl\age,0`Nex0 _&%0 @$J ڀ RWd۔ hAaiv[m1G5.:4.615k5 95F]lai=V *e@5?iH':i)2_ih&+)3P& \{wpTl889( vD;9 (df &fYavO|\fp1-QTpI1D:w:<=/T(float)n6  fJ1-e<`0 f-%` M /Y\l14jint m,jF,> z1g xm,xl, ev\mF+1$xm5*(x2+x1=xlP-0ŀz=cos141592654*(i- nS 5;do;mms 'mwGkSnw/ zR(} ĺf^z-z}'}/xm-xl6*+P_*xl='OX$-: DHxdF8cOfM<1(<l@ssjEEE>30 l0%E`Wq< EQW;@P_Txe{+(a);@ Qb)=U*}i7lh*indxc, rpivilcol,irow,j,k,l,ll;float big,dum,pivinv,temp; indxc=ivector(1,n);4r<(,@;j++) [j]=0q{q=0.$Pif (+@ != 1 X=n;kG9&k] == 0`0~ag) >=pr fab@ nrerr"gaussj: Singular Matrix-1"2) lt R`9Y  `p"0 0`++U1?0h! eZAw0SWAP &][xl], 4 !s b p ,"[i]=kl C }PXP +JJ2J!2=1.|0/ELV"a"wap *= 2{"spfor (ll=1;ll<llll8==a[l`RG0'-= _q*!X ~7((, 0 2{pq_{@"0>--y3#!8!RS#FBk0@J@3}#Zs,.TX c@}9ch1hvgcf.cIfThen(IsMark("C"),`CopyTopiPc();0E(A0File($Next()',`Goto< `C'));EB("cpb")-%  `R0hvy  D!Qaa:Tbz-1007"% n@ @an,b,c,d,del,h F*gln=gammln(a!b=x+-aGc#FPMINUd#b_h=dITMAX;iUan = - i*(i-J b += 26d= an*d+>,c=b+an/c /_@Y=d* h7 el-!) < ) %ҳa too ,   in /%*cf=exp(-x+a*log(x)-())* f 1U( =agolden"`0 v=%‹P# Tk G6֙2#define R F1803399$(aR)`SHFT2(a)E@)=(b);=,(c%3%0,dc'+=(d*xmin) 9f1,f2,x0,x1,x3Ix0=ax8 x3=c~cx-bxo @bx-ax)8x1=b(x20+C*((0 W" " +-"@05f1=(*f)H(x1sf2 @2  (x3-xE>l*(01d)+02)@Ufz2fB)1`R*x1x3)a10rP'0 =aX{xQD8@3q!1202,QsH 5 12':!=x1breturn|@2 }# C#un RPx" 3 dT1$gser3. a$P%seH6 ̀ƍ㶚Ztvoid: ((<, , \%int n^P&a\cx M6| <;=efb71=7g)):0 g%)`7} W0Z)O:C&-1(uns@igned -#n, V6ra[FcirI> @r HcnI Zl= >>LQr1y$_l jYD=i8--l"YPir73 0)13--ir ==K`%<O 3Ui=,j=l+- FrWCX= 9#j9C@SǠ Si=jC3 #Ng9 B*F m@ *3c}_1~rf_hqhQ'QM-%0_g />Q:%qCW6OTx?t4)n,m,l,kDits,i,m Mfz,y,x,w,v,u,t,s,r,q,p,anormdF iIuI1, j`+< Sc nnD#t[I nbb2=r)do$6|&l=nn;l>=2;l--=Vs=fa[l-1] M/l Fs\+s=@nVw:)P=60F + s)zsx=a[nn]clnnVwr!=x+t9Dwi1--]HJ ERP M=dy a w@ az* p1TQ(9&O: pO 5*( y-/\q=p*p+w @z=sqy!qZxBOA+q/;50p+SIGN(z,(q5=azPz) Q-w/`15ϷQ[x+2H@ -(C@zPC"0 -= .jo W4!B/G=S030UT[C< S 7=.10[;@2;QtxQ_J]:^J0$W *'`oczbcb2Sx! 75*sb = 43`A++B*mO);m>omwta[m]mRrF_bs=y pp=(r*s-w)/2 7+<0 RqO -z-r- X>V2ɰEpEqErqcp /V` r< LuwU~*-ThPdvP"@5 '6z/f|a>pu+v&PCm2T2HN3 !=$@3mk=m;k!-1;k]@2u J'PBh``p_R@R ta [kcfCk4rMw#dVkC'x-BJfBdB?"pE`T(s=&&q*q+r*r)ouif (k == m) {cl !`a[k][k-1]P = - `;3P} V++s*x%(k VR`9Y ```/pp`/ %7xQp += s`x=p"/ py=q z=rq /= p3arfor (j=k;j<=n n;j++p=A!j]+q*+1 ~a(nn-1)Ƒ0r. N2.0 -*zIp}#f #0ymp@;0:mmin'nn>Sg(j:< 1)| && nprob[;0j]] >]) g/0_;) @@#4i=j!pf1 fdeco"`0 %`&p M]ast  Bo" -H2 x%2*nb, I*hcode1"l/nc,n4 5setbit[8]={0x1,0x*248 104 80}iB%@=W ->Lma ^ync=(z >> 3'++ncWl 7*ichC`ch', E` ([nc] & @7 ])++] ?+@right[]@lef@`xp-1fF 1 F v L enB0 v %`9F  { Āsd2?tv(|~""z4 Rt l,n4k,nc" "se"32]=C TR PV#uch+u:> || knrerror(" out of rangle SA"/)nrod Bn>=0;n--,++":c= *, 0 * = 1.5*\*|p=(unsigned *)realloc(0,J+R;`Size expa9on 0wv L F \~{ƟH' l$)7V!l) )!KmJDi>1snx1 6| 1l3f  1F  0mak00?0??60 L  `%0` 0k CcD "TxGv|S7ӊH{KiG c6q,L*uex,*(,n,nused,*w(³3v= oH=lvect1,()(2o6_&(u3'*)..)XXD=0,j=1@݆Hml9j]=nfreq>MM)&# Sb nЅX)@)L]Y# N!;j>--v) (APAjk "h 3(O:? PJ0"->-+1iO2E,_A++ka׊ +:#(t?$(-9PEupNpZ-g2  }(`RH=OHO{ $0wx "µnt|lГ>G0, *-l*P)$ S 0nnY^)yQPE-Z3D94n󦖗C' 5ZL0Ӽ /*if jZ:z0%3tw )up.._%t=S5 :,&Ey_dwI1  IwShunt=. w%e I F #T ~Οm, jhi,i*`ascndO =L(x= 1C,B*jlo0 ?k9Y=n*} WE$ ;,xU@K= } Md`X-P z )U whIp?H03 +=W R`#pˠ PmF=YwS ]:F?ib2 DWq--W0 %`1u c¸Rv:z"T86"`!@D1(Dfc2 a,bc z. ps, d *serieU d v 60  HE*fvoidJ)(floavt['JnhbadB k ns# *yyOk*z.r*+z.ii(.257(R,,&P&S +e} J@ +z0c-0.`5,0.0'=` Z) *)`U xSl~ (" q0F, )?5@ : 5?aa=a;bb=bBcc=coMzdQ#ayy=vector(1,40 #$0$D%c0ode9,4S,1EPS_1c001,&6,bss8tepb5~Pfr8ee_@_@re`turn ';f 1B J XBH2///70 J %|`"^ Ap 𮀽g/[3J A@  tX *series(, d v){ @int n;aa,bb,cc,fac,temp ;? / ->r=0.0(@i@,=Complex(1.0,$)N ?=HYaa=a!`bb=bgcc=|1000;n++) F0mul(|Cdiv( ))T`+Z.ri06i%KRU /n ,zE0 A=Cadd(_ if (*1 == .r && `i) ޶} ^AV LONE i \P| l%@vBJ XB: DR`9Y "!}nrerror("convergence in hy p"}#u`ndef udAB1+BCFicrc.cIfThen(IsMark("C"),`CopyTopic();0 Else(0File($Next()',`GotBo< `C'));EBpb"). XBC%   R@ JB;EW |99Q6<H#G1Qs Atype) uuchak#7ine LOBYTE(x)H (( )( & 0xFF))'` HI'4>> 8C% s Q(unsigned( `,s*b ufptr slong len,jinit,b jre3FP1Guonech 5k0tb[25(6],G= 2 rchr +j,cword=$pit[16]={0,8,4,12,2,10,6,1 ,9,5,13,3,11,7,15}?DV!3v 1=255;jGT!j]=0j << 8,cAU$ "yQjz1].4 |je4]yCFK dYYC[RB2"Ufi&! >= 0) )1 R !)(e E  )i--HD/@[ia) @ |+1@ 0c0tL( '!N02%1[#1--eKO MhX 6T=l W[)k=(l+iH)SWAP(!6k l9d9nir]]vQ)p!+0&[!p.P ,-[lZZlYi=c)j=i-DlOD2C4o ;x 43}2 j,-- > `i+A* ZBMqMPz €_(]J2lBTCSrB+= 21UC r1 W/#U#ZR $@l3]c/;f$# AdM$fOQ1QQ7WJ0 PQ%If$mQӀSIۓII ``IIIIֆIIIiIVaIIIIITIt[F-IflIII @IfVtII1IQUIII m6BlIIIgv.pg\` q=KFBMMM8nj-MMM]LWNrS7W@zMM_vM!'ϤSOOndNCNNN l":bcNFDNNfUW1Ջ@WW@Y erp NNenElsNN0 7WW%N`WYT vt|~\ voidnd(double **uf, /%c>nf~c,iif,jc,jf,nc^ nc=0nf/2)l%jc =1jc<=!#jc++.+=N25#;i0i) uf[2*ic-1][jf]=uc[ic ctV0Q fQfALif=2;\1m@>\n\Ъ]!2o10 [n\%`<U>\]V zozul["*B1#2 2 5 16 8 131070ASK (IB1+IB25)*!b2!4w~ a>8v8Q R^t M`)ah* .0/_a=-? ̿,k^ 5 qfn\A^1 !A^q^φjacobir30 ]q^0%`)3A^h g..~v cp*Pz,#LROTATE(a,ia<) g=ah k]= ;@=g-s*(h+g*tau);\# 0=h+g-h0 !Ph=W -"2ӄ KA#5:b!"(float)K1hGhQHt=/h1WA Xtaau5*h/=1.0/1theta)+sqrt(+ *00`(  <t = -nts@cR E0+t*tkPs=t*c@tau=s/e cPh+c@3$0 -= PDq] WPh$!J"!: pNjrROTATE(a,j,ipqKφ K17J]\$+BvA-%j5j<=iq@ @@E!=`iq,j=,NNvN%++(&:D;"b"WM&%%j6 5%ghknrerr["Too C in ja cobi"}#undef #1fӄf13(f O n.cIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb")0 φ%  `R`-fY [G\`g2@ @GvR  d`fdx[iW y[1]$013-;<y[3k P2131,p1],`2M^2, 2^5Y,H0`2u`3ߖ X= IN@a=0)( Fy+zA) 2-ja+ wa1* returnC1}P Q f_1(x 8kendl~150 q8%Hke@(W րQؒR<|B$3 *z@,  s"n2=0,n1k,j3 #is-* svar,aa,a2,au"?-k=(j+1);kXkma1=data1[j  k:a2 2P2`a=a1*a&2(-Paa\++>n 0 0. )?&I: --isc-SD@1H>PV GF`Hi -+(doublex1)*3=D(49 n+1)/(9 *(*z=(W)<;I2]'86 <N^:*prob=erfcc=*z)/1.4@142136(fWK1q fK{"280 {%B`Kt qOO2&&c$3n,m2,m1,lj,li,l,kj,ki,k&7.0,poBs,pairs,eaed&nn=i*o+0=ta ],vEV30R#n-2Usk@i=(k/jc%kj=k-j*kipq0EHki+ k?+|+l=k3lQ ~kli=lF/j=lQlQ mm=(m1=li-ki)@2=lj-k{0 kAb[l{ l{PFS!&< 60 ?+0N!^%{T v)x-8m8'Hs.?*/2402*(82>>fR1x RLkermo~m"<0 %I`+Rl "?CT1w er$n 6 x9 /d,df,clog,x2,x3,x4,yiy x9d=y->f=2s H&Pd)*d$wd(f/3>w5df*(x+d/5S'0300 + (D*Dx d*hd/7'`4'@(pF(Pv*+P*x+68)EJx3=(x2=x*x[x4=x2*xA'y2=y*d*dx=x-m*0 =;)&P%5*(ty-91+y)a(-13*x3+y*(6.2 809.g'B@3-/18>.bL= J0d 6C?!(w41'x+)K Ap4-(y2 )/40}e(f1fkks2d1s0 L%`10k cmmC}MTx7% *d1z y, 0fa*fbu0c 0dJum,du /+'fd,ga,gb,gc,gd ,r1,rqenM~7/quadct(x,y x1V T,&&&&|0(*1vl)U2&s&t&u&g)0iFMAX(ffa-ga*(fb-gb9@c-gc9V@,d-rMpsnP&" m* =& [9 Bj_ rrP0: -r1*.rO :k d1@en/#+rr*S.-0.75^ ,enL.f0P1+&Pzl>2llll("G.0 `%G`53Plgllj.m ":#>dssss1,d2,Ryy2|{{{ {3y2,n #}s5{sPyd*,,2;jK__T2k__}zS t9k'ׄ8828A28П858Pв*dx id1+dm;d n2/_/U b $+r2*rd0$e 1k ;ksone?,4z z/ z;%  Rksone.c{ e /R`9Y p@ 0nzTx {, \; slong j t,en,ff,fo=0.0;8 sort(n,dataB)3en=n:*d"0,;j++) Wfn=j/eff=(*func)(9[j]<dt=FMAX(fabs(fo-ff4), 0n # if (dt > *Dd)=dtP o=fx} sqen*prob"=ks(+0(.121)*(E}e;L1&3L{Y@kstwoIfThen(IsMark("C"),`CopyTopic();0 Else(0File($Next()',`GotBo< `C'));EB("cpb")/ {%?P0LY` a??=A;B:2 44*d, ::B1=1,j2=1B"1,d2T,dH1L2P"nv1KU2S.T1/Ud2<e2f21=FnUG=n2q j1 <= n1 && j2 22;(d1=X [j1]))(d2 2[j2])) j1++'q2G d12=j2 wS@t=B<2-D1*/+"f{1; *lagu|er"(`C0 Y %㴋`!XAl Tt/$`TtD#define S Ze-7`MR 8 pT 103(MT*(MR)2int iter,%abx,abpAm,err,dx,x1,b,d,f,g,h,sq,gp,gm,g2W*rac[MR+1] = 5,0.2%7 1338 6288,1.0}mEfor N(|R<=.IT fU*its=hb=a[m]Sr=CWbj5=f=Comple|x(%&0*x%T-1;j>=0;j--59add(Cmul&,d%Tqd),l01b),e+L*D1 `d W bR# *=_V'AF!) ޾g=@Cdiv(d@gD2=!g,g&h=Csub(g2,R!20 f96sq#!0(float) (m0-1),= m,Lh)2=@gpv1g{N0mr@P1gnpA! m:g $< ) Pgmv'x=((x'B)? %Rp+) : 01r,QRcol0*)p,sin'x161-p2x->r == x1.Vri@i1A*F Zw$Y3N %Px=x1W P1fp/MT]pnror("too C in u5"<^oMRw s8d`13lfitrrr5. *% ʼn0q %S" ma**covar(void E))  l m,mN[ ym,@wt,sumg2i,**betpa,*aJ=matrix(12,u1,(# =v8ect (eR* o++^ c|0) Eb: no parameis to be tedT"D+QX=;kb I [k]|K{ 1P B6?<$=n ;i[ ym=y[i1&=`=sqrt(<")if  >%@)K0 *=@/hGfor+y=0.0,i=1;i<=n;i++5 += gm^  >= +nrerror("Roundoff problem in lnsrch.", R=fabs()/FMAX( xolBd,1.0}71=TOLX/telstU=&  ? q Ba @pg `@%y>Kx=@+Q*f=(*func)(x  < 2) HK> Q1 q} X*f <= f*+ALF*q =") # WS uk`=ZyO" = -n"/(2.0*-M0)w!DP/"Plp P2=f2p2a4=(/ )-02 2))0>0}0b=(N@@a1EE{)  | ƀ2R@ !IlwFQ}!+wwb@jQ@=b*b-3af#38MP5!1"@Xb`(-|b+$kdU _Aelse H@ R/1{JB:B> vPQ2_RB59$=Pf>2H"##4,0,.12}LF#Pef of?  1uܚo   locate.cIfThen(IsMark("C"),`CopyTopic();0 E(0File($Next()',`Goto< `C'));EB("cpb")0   %  RY`DA  ^ ̆\"SF{" ~ Qng ju,jm,jl5asc$ndNFjlJ&ju=n+a =(x0x[n]1]O ju-jlO14j\ju+`jl) >Tx5@jm]sk v$ij"V u0e0 *j$"3,R"Z(/|_B)xo)t=l@,q9lSingular G 1,ߑ6{@+Ej-;n B+Xi;kk]*a!PCBS)vEay]ff jf +jQ%  ? W!2FK+W("=w!*.F=1s< Ia<i[64Vj!= =MX!<bL`jO o`**d"(*d =&L4_6%mZj(+ @=TINY.]'2@u= R ? rTEAfree_SCvv,V3: ,;f2  1  r   machar,,$,$,;0 ?  0%`( # h Q?.k3{DO`NV(i)t$) )$*!!ep, neg iexg0 `ax epsP42xM x,izS,mx,nxresC%a,b,beth =one,th%m%1s%a,two,y,z,zerosG)=C) =;+? &-0&a$do"a n+ %a4@ 1w%-} wh#JlbSZbSbS i%(inrW0 .  E04&i =. ! D o _  } L!00tI-++#tA$buJabJ-JJ*irndk0 =/LA" /! +! =0f*"-@;P>"?m y! &&n !c"Q2#=I +3@ini/@[R(=3)S72aQin-"Qyg'"`_`6"_-_@# W y o $(*%4K6`D QDm6,-:a=+?bbz4E#s0p0ngrA2Y`('~*DGC V Q k/z"!tW$"1y=zz=y*ya=zdfdHz*tOg+aJT @|| z+(yAt*@bb1 $ &B++~D n ?3$yU I7,klNυ ~3 1048i&-mx=k+.  WpizCT kai<{(izKJ5)$+?\iz+i^z "3&=!y봣7y¡y±DFd< ' I+ ! yT 9e2z"$ =mx <+k-3O nmL* O(=mxf(f,X۶uQ 28 vi8)Gn< 2=! I.@2*Ak(Z(`$/ D \8U970(*1") /=5#p$ }s@)Wl0wFn  7 >(O^h<}uF f ` 1=`   maptadd ea,`Ne0   %``  D V%]O{;5>. *ӛ:Κc*OO +b_f  1r  @ Gsu~bGGGGG10   %G` @ DGGGGG;N-G @  f @ 1A@ @ sE medfit.cIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb")0 @ @ %  R`#S@ B h@ 0R`9Y `@` 0zTxint ndatat;*xt,*yt,aa,abdev {float rofunc( 0b);Pbb,b1,b2,del,f,f1,f2,sigb,te mp*B0sx=0.0,sy0xP0chisq {00= mxt=Bxtyt=y{2j++) sx += x[j]sy y Px *p0`b*5@}n0*1-sxaaD=(*sy0y )/bb=(.P0`p ( =-(aa+bb{ )$!*)U6=sqrt(!kl@ E U""Bb7@ @Rb1=$bb1=Bb1 b2+SIG@N(3.0*!f) f2)`26if == 9!*a=a*bW\0=2/R q f1*f2 > +b2+1.6*mb-0 2 f  u!1ǹ cabsO@ik2m1+0.5m b0 || 2) ,a9#!f*f1 >=@ aa} W02PPi9B sE ; Fr5; tQsQru}^f E F 1 F :F I memcofff%f`ff0 sE :F %f` 6 F ZH p mff`U_)sӃ%n MMxk,j,iep%P*wk12 mE=vector(1,n)t m#pm#,; %p SQR(ixms=p/nJ 1[1]= 18|[n-PnKfor (j=2;j<=W0q<j<@u5=j=`SUX=m;kUJ6num&deno (n-k)ap&i0E7 P0)+ 0#&d[k]=2pld$ *1.0-!&)[a:F I hcUuKW|3(k-8i"6i]=-[k-i&Ri1k 0mAfree_B,,A24"11pR,!!i=1;i<=k y=qq2 -1+1]-!`9t ever get Ghin =D"DfZH J 1AJ J RK metrop40 I J %`J RK A PAI% K< @ 1gljdR18Ireturn de < )@ran3(&%0)exp(-de/t)eJ K 1 K L V ~PAAA5, RK L %hA A &K 7N j ~==1y? "?KHRE 1OSTLPHA 0.33#define NGMAX 15%void P(double $Ӏ+, ma xcyc)k/@anorm2'`с | r T  U&:R sj,jQle,j m1,jpostre,nf ,ng=0rid,n/**`irho[ , staup 3!pU res@,trerr[n=w nn >C ng++Jfas#(0/ d =ng{:  matr4ixn'rs trct(',u@L UP a @@"n}\ 0< 3<P0--p],p0 H3Iu')!sP9PW`1slvsy 01V( @!aQI{Kx2*n^IuW(E1s`?;`Z827N sR q [^0 erpKjz Rc ,(j !=* ? #s: u):R9#s3<=W4@laf,8)j=j;jj>j--zII/N6<=NPRE Hglax "Nj!nf"lou1@fS= @S1mkH`_`S0! `~0PG`>xsub!l6P0UP T t M|z #oo$+?jjjtAO%=Am**FJ/>!>add"+q6`QM`1SRrLX2u!yY4X`cD.`S=?`b_ ') k$uG.sG.,joW--$G37FP%$E/-G% && R%Fp}y1 <eT W 1&W NW ^ mpglin 99epnEls999/ V NW %9PW iY j< <7,NY<<+00[=1!(3: *3+ K +>#K $(}kT nkeso%._ʂonnbPV0L#NW [ c %䖲 G('1*lv~o|V!Qiؚg;P(Qcn((00(L3@gn))2iY ] z €q 4RO)ߗ1*,vi|!ZA&c~L@`WPfill07+E醂f`EC@#, @x += 0G-;0Y ti"AFUNCO f~_ a 1&a a 1inf``1`1120 ` a %1`*a { ĀU11171.".1.0)"/(4*84B$4Bb,a44Ca%a ` a=1.0/bb;{ } W tnm=it ddel=+  4 >=0$.0##D @x += 0=;0}oreturn (s=(s+(b-a)*sum/u)/3(.0)}(FUNCfa T 1uF T Ȃ midpnt.cIfThen(IsMark("C"),`CopyTopic();0 Else(0File($Next()',`GotBo< `C'));EB("cpb")0 % RR@`DT Ȃ z €0R`9Y ҂ 0p0 `$pB"((*func)(x)) $&^static Jint it,j;$ ###X###r  җf _ 16_  midsql. * `  0 Ȃ % Pu_  ~ ʀ?  R $Bz(2(.0* *"k)p(aa+ B(^,a,,##bb=sqrt(baaD__;_'(B;-;Ff 1 ` ˅ @ ;"u;F;;;;20  ˅ %;`u @ ~;?F;JJJ;k);*;;;;w;Ob;;e˅ և 1 6Oև  miservvvvv4/ @  % v֊0և  g q@y`Rr,m=f i|#;n++ 0@pt(_L`% A m 𨀣Hj6_؊WK=Xpt &gA 2P *`? / =FMAX(@TINY,(m!-xY'0)/2!* ]c::lc(="LT(unne4d C)G0), !E r]/u /e 5e+#( *2661+36979) %@ 17500+s=SIGN(d(")1 -8# 0[j]=(0`.5+s)+#+-Po+j]) 5 v $$: @&p?GR:<#BI>Gw,b#0d = -@reê,A#ptD<=MAgCFMIN(PE$2"P"+RRSS"@S@"S  >b2QjbZ;=$&ysWQ > |Q && eA0$#A ڀYYr$ !powra-a .A3O"3 ~!3+ 1<b bz B}n `!=017,'li#V!jQ1+(e*m)/Ut=#4bmBPr034$0;'=fabs((0>-86 "v ` ||v%=շEC--2*%*M'*'/(+*(-()"rbK5G=Jp[1!}Xw2*բhE5`߄E]! %bD*(' )D(9!&&(&'Mlqqrq0!28ee_Hp) H ^!!XZy8(1Q(C(J(2 2 )3 i^> BS o #un#4 1+ d S 1`S m? ||| Nex||. %| |̉0%S z €!{{^Lp|kzw|~ "L9,nstep,[ void  [], O@8 0 ,i\,swap,h2@,h,*ymnKymBynh=htot/ $ݙym[i]L=yyn P+h*dydx0 @x=xs+h[ ,yn,you2tS 2=for =2;n<=c0nXj0=p +h2*Bv@P}0 y[A/ M0}5*(c0 h@xf/qX, 7 >X\CQmQp?f 1O# ŗ 8 mnbrak?AAAAA30 ŗ %4ϋP,^ d  /C󳽼?GOLD 1.618034pLIMI0llSHFT(a,b,c,d) (a@)=(b);=(ccd~ / cl3# ulim,u,r,q,fu,d(e#*fa9n*ax*fbpb  /? G,5,&S)4fba@f*c6xP+!bx*-r`cpc upPc?r< 1 ]fb-q@7PJa/un0-(pq-Dpr)/(-7<[q-r),), ŗ  Q5ף BOQ:"scQ1\_uu!a +.6f1u=,u v /@A=Qu=,,A>aa4`!aC%!cq#}?$yIy9e Ν 1Ν mnewtz8X&z`zz/ 8 %z 8֊0Ν  g A7=+iYtm: ; '{fmatrix(fjafc); Mf[" 0\0+iGMindxB0retuPrn;}M6Ĭ 2U  k,8i,*/Y&errx,f,div** * )' =@` X=n!al;kxYusrfun(x $+ _/ϔy_ +I$ <= tolf) . p = -,@4ludcmpf1n,&!&kPbksbp O lE\ttg]m_p%r05L^@x@m,- 8 f 1# o moment.cIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb")0 %  R`1m  l@ 0R`9Y P@@ z *var, skew curt){ p=0.0,s,p;9 if (n <= 1) must be at leaA 2 in i1"`);s>,;j++) s += data[j]*ave=s/n dev=() D.0Ls=)P@-(O)we:pis v(pp=s*s 0 ^*&0}iP/= 30-ep*ep/n)/(Hn-1*ssqrt0- 0u I(n*04?0~!PU#p)-3I!kH o 6 <##e(e 1S-ԋ  y!?&&&4/ 4 % P   z €% ?t0'630c#define MF 4 `BI (1.0/256) 5f@(2 03,j,maxmn,Dmm-floIf0u,fvnH =IpMAX(#yO1|+(> OPW J#mA@IN(MFD3ffi ) v[mmTm-1;j$>=--a8fvBIM v8qfu=i)Efuu(unsigned ) iM u=..0*(fu-fiNfy 6Cu?3CcD&neg R&  \ EX.P @OE'5 1] -= 254@`f,F) C4$) @j==n9Da dO@ 7MFBI3e 1 J% 8/  %P&  l ? RX8&Cn(B /cy,t,*a,*bSCm8 n,  6 a=dgn)b;L 5=(double&)]3orMn+<=nn"<) zL&. b9CT3# >1)+cyp+0.59tlong t/RX$!t-cy*RXh=Zcy >=`cannot` happ ^flft ^.w" acJyr2"+m?Rw-!b qBa P}#unO8e  1ԋ I mpopshhenEhh/ I %pP c s OOdT M-}DАy[BXLOBYTE(x (& 0xff)).`HI..p>> n83p-ʷ s ireg= -W'++c@()+@Ps"-}q0? @,9,y {25t5+"-R}*is|~PЁL9P*i(I x ԀIBGf$||a|ABA^"Q2*ir] s()!TB(i/ivq"Di % !;.L 5-ZB#C3J*:2wuc = JpoAW ee@! &43 dx 1ɏ  mppi?iiii5. %4iى  w ?h =|9*AOF B8%voidpLi( D ȝUΧЬҿ܍ҝCir, -mm,*x,*y sxi,*a s,*p *xin+/yOs'0it83*9 p8s0t622ZEt(*%psqrt(x,x nu0mpadd(pi xPlsh@3 "6P y0]L*-  | ƀIMIdv&xW.,x2,&]>}t,0`&&U,0`Y++ y `PmpinyVy=2=nn'|npm=3ffotui `!= mmNsc<]-m' j n || m > 10< >As,0QQsn@Dpruf("\n*(=pi%I 8  ` qy?@2]='.'{!=0mp2dfr(& n-1,F&#m+3*3 cOtCtMC C y) T@?!/f 1b mprov~e;0  % r01 [ _͏A9k % +\[]?osdp*rOr=y& = .i.*X+i]YxHr&=Y0lubksb(alud,n,indx,d$KxaR -= 3dree_Er1Byf 1d  >5z"z`NzC0 %` F ) ~ ʀR`9Y @  )`PzTx#define MF 3 `BI (1.0/256) int m){ ;Pr,j,mm'float fu,fv5 u* r,*s;U r=cvector(1,n<<1Dsmm=IMIN(m,MFhfv=(W ) v[mm]Tm@-1;j>=--) & *= +=-j,}u=sqrt(fv,;j++90i=();u5=(unsigned ) iS u=!.0*(fu-&iXyzmpmul(r,un,nlsh P!s,r,v!@n)GS  u BqA 0 `"(bY"@s`neg `s[1] -= 2530sdv,,2,&ir Fx1if (nsk@as$!ov(u,&r\`<A Ij8 >lCuSbj,k, /!tati c'Do#,*atr5*oT}p@ < #0uCg34,jaa-(] %trix6 Af01(!@&(x,y,nDdaa,iC,'5 0p4d 4(4/<G i yW:֥F.()#ViUe#X%7"XE`ʓj]z*|+Q7!1 ]=E9gausxsj(~2f! "j1:+4 ==f== Bs G@|1{)@6t$Ay@d"bb8v q!lql]++*@@#C23A2d Y iijp|#5'l l#l'Efj&aT B` re@turn;}; x "f[stpmax, BEl/tsm*indxden0,f,f9@su@m,tempst- *g,*p ,*,  } Ȁ=.b, 1/d'K6wRAg{L/>p"*5nnz=F7B*@=!x~ R3G8*TOLN ecu &SQR,E 816its <=MAXITS  tfd:(n,x,"H"@.&5b= DN=K+8fO0p = -E 0ludc$mp2n,E,&d&lubksbph  ee_PI p' PZqLlnsrchK"g,pY&fS!,p'!AݡO&/FM@ m=F(f,0.5*[0Au=fabs(-*)0)"2,)/=?aR}Rz2? 1 : 0c0`0+2p ap- B))/zG@u 1X) Bnrerr "2 in "Q=#unFjJ J 8 @VVESX_P&rf  1 '  q ode/[ = e,`Nex0 J  %` * c r1mҍe `^SW)3o7 % ps, 1 !*nok0bad  0D ., G)6E]) .',\sav hnl,hdid,Ryscal,* - >GP4(x=x}h=SIGN(h1,x2-x6,$( ).kou= yYrt^5"k > x=x-d*2. &? & V 0 Z r 9_YixupQ%ji!Uu$y(+$x~h)+TINYH &&%A< -B1x-))!)cExpO W!25y[?@{%R1[(x+h-x2)*01^+h=e(*rkqs)(Q1",&W,eK2&^"&j2derJ^ Rp'RcFQ& r* q Q po%MWO7o_S#'/W#) @ b s Xm)"%F,,bC Uk,l50*siglooptmpE{2*n+1  +@=Ul=3EP/\[1] i6p++4p24424 anu[l-1aG=alph+2]/ .bb0+kk<2=;k[-k+3K; k8*k [l+|(0-a2 !p]-8 >@ q b[k-2 ]*sig [l]+beta[l4-1P1 ;8 A C TIR`9Y t}xaW =alph 0+ ][k+1]/ P]-`k@ ?0 D-`!ifree_matrix(,1,2*Hn+1P); d>@ A 1'0A A E pade.cIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb"). A A % o `RR@%A D x A1Q @? #PzTx void (double cof[], int n, *resid){ RY ؒ(\[]*j,k,*indx{rr,rrold,sum,**qlu,*x,*y,*z;y q=A1,nnO*x=vectoVr)uyz,;j++) y[j]=xn+j"X=n;k#Pq$" j-k+n"@ @ludcmp(n,,&dlubksbx'rr=BIGdo "!=rr @zPA E e w~ 0Smprove(q,Ȁy0for (0.0,j=p1;j<3Wrr += SQR(-`} r< "!C2=sqrtL!{e S+!k]iPk1 P?-= * -}1y_<4!]={! = mQBzyRyr(x)D4fD |F 1U|F F H pccheb$(`C0 E F %ċPj|F H b 5mtt6T4&4 (float 0cd$ j,jm,jp,k c,powtD =1.0"c[0]=2p.0*d" c #ac=daE jmp #Sj>=0;j-=2}--}[dc+JT$R *= (0)jm)/ `px#z`v0}'fF H 1k0_H H J pcshft00020 H H 0%0`:H J V z?T0$f$Ba,* -2b)k,j#BcnstF /(b-a$0?QdAA"@6 A 0.5*(a+bZ$$2A-2;CE_%k k>=j;k--Z%o kfH J 1~UJ J +M pears~n11140 J J %1`{J L r ?F+Hl0( *z(% 5 sl0ong b4yt,xt,t,df`syy 'sxPx'a0a Hax,Gay:yf/= n ' @xt(-a`yt&-ayG\Z t*x\ t*y0xl G *r=/('*)+T(INY'z"log((*+(*r5@/-pdf"t=(*'ldf+*K< 0t*tFi :J +M 4 8k fL M 1_W M M U periodEEE70 +M M %E`M P W |>#define TWOPID 6.283185307179586532_7px Spylp, *nout jmaxI(# }^ave,VYwtau,effm,expy,p@now,py7sD,sumc y0 shy >s= var,F xVxdif,xxxmin,y /arg#emp,*wip r c r,wi=dF$r% %bo*hiiHf (! >*) nre r("/parrays too in 2"H0y n,&<&` M +R u lfy_=_: /RQ]) \p<i>nF }[Zax-,/7+4 '$"I5/(v!=2*( --)*p,  sin(:)"@i-5 {4:sp# *07b1);iu^?i\]=hccVZc=d q.s=^ }.5ds*g(cs(c-s) *(c+s" P MT w ((s?;:(atan2(Q3D.#Q!W.$R!`1y*!i'+7?*k$-c*5$"0 0+s[X!zsZc,k1e7veQ7y2P3@*2(1)4"ە'+qL2(P+$+pR,yV[*3%mcy/D+:!c~! s)/7oK6+R U O lm?!o > )0=)(&8=i)(Z|/(,%n =(-C0 '-PC/`qprob==E*EjU8) !0 ~(n&x)$wro i P}#un2/G?fMT /V 1h[ /V _V W piks|r2lllNell0 U _V %lpP7/V W b (iu&arrOM +2H,b:[E4+=.3b=-_F=j-{/ i00 &&X" atO 8 C i/4p  C4i--q_2pq ,`of_V -X 1!W" -X ]X MY q!jjjA0 W ]X %j`-X MY X ~>yqt(1e]X Y 1R[ Y Z  pinvs 4?/ MY Z % ӊ0?Y $\ e 3|s>l- ,&**c s0/js1,jpiv,je2,jcoff,j,ir iid,i a indxXLi v^,=dum,big,*psc&l5O, =iKie`1,ie2 *#=~=je1+%&--s12+9"?cwYfor (j1;j< &;e$f ^s  )=fabs(PZ$ =+n[Singular G-  all 05O+ .+'? iDd=id<2WjivCJ!Z , m!@# ?>RpA ,P'0J1)@@jp=jD01J@Qi"(6jpUiO@=jp]@o80Y Z^7:gB  A:qiv0)#,U$\ , MY jsf;j++) s[ipiv][j] *= inv;$\  ~ ʀcR`9Y  0 @ @;&@2 ``=1.0{if (indxr[i] != #)   8@Pdum=pKcfor (j=je1;j<=Q00!-= <N*'q<@dp=00}0 jcoff=jc1-js1Ti ierPirow=P>+# P9 c[/+] ][k]@free_vector(`pscl,o22)5}lf, 1"  plgndr.cIfThen(IsMark("C"),`CopyTop ic();0Else(0File($Next()',`Goto< `C'));EB("cpb")0  %  R+`/   { ĀABmwR?rbz float 1t l, m, \$) ct,pll,pmmp1,som x2$3i,ll;N "m < 0 || m > Blx) Z sin 1"W4C1@0> 0!3f =s qrt((U-xD)*+x) factmcm#5-*P)0 +8= 232l == mFret0urn QW =x*(2*`m+1)*07p(w# K f|dD4s1`Pm$$Q0$$2f 0 1,0 ` [ poidev~~#~`~~0 ` 0%~`0 | 3~fV^c2+\54 +c3!(3x -L*i#\:tatic 3 sq,al)g,oldm=(-Em,t,yx1 6@8FC x"g=exp(-x"5&Xem b"tVdo6++e60t`ran1( v# DwhQ (tg9} i3sq+4*@=log0g*-gammln+A&PPy=tan(PI*py` [ N jIOlÅnceq*y+SA} ºE< *'e@t94y*y)*eܰze0-H!Q mqzt/_!d@f| 1 "  polcoe@@@30 [ " %@`  z -@@gyMWѱ"T2x# )>k,j,i WGhi,ff,b,*sGDs=H0,n#|=0;i<=n;riJ]= 9s[n]kx[0R Jn-i n ZsJxk  xj+1=*E @w9&hi=n+&]*kk>=1;Xk--Y* kM kh]+xt *)f=y /@bZDN0D :k]b.*/:3Upbw,1If" 1r  ͌ ' "flll60  ͌ %` ꀎ lr֙į lFr)IkB\min,dy,*x,*;V:xyS"'=xjazLy y @wroll (x-1,y#-j, ,&j],&dy)FxNe38Qkcvf8c-j;:#j]z) ;g]G f0abs( Q=k="='9 (y -0)/4C.--3|4-1.@O >p  B P=͌ ' 5 X:&| ]f 1<  di I0 ' `% `  Q p> }yϔ/ WL4ruOq?E-nvqr[nv+k]/v/U>=k;jb5*v[j-k^?0P%%? /f 1Hr R ג M#~2___;0 %` ג S tw__nkv \1,2, *y 9d pmtmpN W1,Z-'2a,$,n,x2,&< 4 T1(Y0,m,x @frxee_G0e0Ff n 1 n S +5 enENex0 ג %`%In Õ Ҁ}B Yi nsen,dift,ho ,hp,w*pc,*dD F-U1&c"rnd9W(Y=z{sOe6eC]nc\6d }*y5ns--7v&m mi`#X=Hm;k ?d/a-8k!>=v2x=0=# \q-upturerps a2 = -'*A ;100;j++) R :=O*exp(a2*j*j)% ?+= WA if d)( <=*l0 || 2*) u7 R@fabs(+L }α}, 2e 1  pxsdeGGg2G`GG/ U @ %GGŠ@9 , [ sFF@REMK[G"7bNITER 45 * slong i,ia,ib,iswap,itmph=0 l=& 5 -Hc1[? ]=0xbaa96887L, 0x1e@17d32c 0@3bcdc3 @f33d1b2L}%GP2G4b"b58G e874f0c3T 6955c5a6a 55a70ca46G"|Ii< ;iRia=( =(*irword)) ^ i]"ia &fff fPh0>> 1R6"b=!*!+ ~(! h)a@jli h(((AZ= (ibI0) |>bq`< 2)+ipZ Y% : D^JWWD;$840=7!;#4c,  1T F i pwtuu-u--3- F %uuň 6 b j m++{@-c 93A:STx0# oZint ncof,ioff,j**cc,*cr wa2vlt\5sern` wpvoid ](5SCn, eisign%i,ai1`,*wkssi,j,jr,k,n1,ni,nj,nh,nmodEif (n 8< 4nB=v@ector(0)+,= .*nA1=n-1h=n#,;&0 j]?6]]>= 0%6forai=1,=2n=2GVni=i++r0HqHnj\AvX ;kI`jf=n1(ni+kF i ڀ6cQ P'3'WrPj0C ii] / c[k]*a[jf+1$Q0+nh@r@rP} Whhai=a[i4 1 am1'=()+71P`>fi`riH0Pr98]= , 2fb 1i 0 h se?\H0 i 0 % \`6H f X ~\z`:fZtM=(%* (5k/F :c13$ &4[5]=4829629131445341,0.8365163037378079,;0.2241438680420134,-0.1294095225512604_(&12[13\111540743350, D946238 90398.751133908021d0.315250351709_226264693965o@766867567@7501@605587Q02786553J00P82o3 18/ *38426477725- 01077385020[21&02667 005798 B8817 007 527188932.0  c :̛ ,bF8845M454O28117234366 24984642432-!1,957/B273\4033R6@33o0"4.0071\14p7166N!-36822:32!7405#"6x360z|M33175483l#K174161992;29!K685856q @,115A093581 3v24r,c12r~,c20raM\wW==[=c4M +Ge +`129,12-`r.= 2G[ 2f h H ^S`: =duni) emented nDv"anwnx+1-k]=*8cY3D =.xv&f 1L# / J pythagU&ENC0 h / %` J G \1ڊ<zzl:0yJa, :bnZbsa,}b ?a)0b?bFi\ - > /)` retu A* sqrt(+SQR%b/X)F"  )?-:D 7a7b)8Gf/ 1   pzr70 J  %`* ; ҀL* *d,*xa? ,v,'1,jgq,f2,f1,`delta Oc \v) x[ie`st]=xC=dyyz 9I($?* [&pZ=c?z,k1 k1?ku(@% =S0IGN((),a!` @y !p!*,@ &*:%.P Ck+#ns/Af7& :  M hR`9Y 0  tau=sum/c[k]; a[i][@j] -= * @} d[n8]=a8if ( == +*sing=1;/ge Z 1 7Z  c qromb.cIfThen(IsMark("C"),`CopyTo@pic();0Else(0File($Next()',`Goto!< `C'));EB("cpb")/  % L R%PZ c m G||Af vQz!!11z6/20.P (JMAX+1)#define K 5 float 1!( 0a, 0b){$ T1@ss,dssJ[[P],h0$+1 ^ h[1]=1.0$Js=trapzd(func,a,b,j)>j >= K) *polint(&h[j`-K],&;K,0.0 s,&#:  <?*fabs() آx"C=0.25*Onrerror("Too Csteps iPn D"" ʉF@ PKe  1 (  o7"`/ c ( % P  k +ғR14i2(*choose)2(*@), kk!)r{,sB;bqK,$s)]=]/91#brout&#oe(  17   @ h Eo~tEEE2/   %EP  r EE?GePLu VeJET`x-L?U@)Ze-6C% $%nt iter%c,sb,s,rc,rb,r,dv,delcb-*q,*qrem[3Rq=vect0,n)Yq2"d[2)hUhdy(*vb?0" div(p,n,d`,2,q,% s=)r %0Pq,(n-1)40A5b = -\*(rc 90x r@b)*rc+(s%`00dv/(sb-sc*r@$=(r*s!9)*dv@c=(-b+U f h \ ~hFRMW*pb +=\!*cP|!(&&f6 || < ()&& ,?,,0,(Gfree_2BM,6Bj.p 9I t'ot'9f 1# ! / ! qrsolv70 h / @ % ً@/ ! N j_G򥉙y#+ > 8B LP,2 C?f0or (C 0,i=j;i<=n;i++) ?tNK*bV br{(??07*~Xr!(a#f/ 18  "  qrup~d]]]H0 ! %`q  f ^W{ &%!6U,j,kE%!kk> k--:u, ) -k1) kQk-1;i:i:Protat@e(r,qti,ug ,- ed7D==+"X{P>t>@s$1])*sqrt( +SQRD@/9 P&e5 d42 b o;,;jr %Vu! *v;B f+eDDoN}Psic \sav,y; #(*nr+O,)<8F"0/ f1? G2@0=a -turn qgaus(f1,x52J}"Bx)5[2[@y|o@yyap@),yy@@Rx=xu2)1(x00x }dpj3@z}pz@A,z@"M=y3,>,y9 @ vp Ǔq;0 9 w 4 8 mohf>  1& >  )~cUEEEE0 w > %)`]f  _ V~WWLT, b0c 0d! slong k,n b,ncH,ndbffna=nb=nc=nd=V%X=nx fsZyyt hy/Nxx0x ? ++na :b2} W#+ndg#0r!Nff/k=ff*na b N # yf> 2 1['2 b  Mmxiii2>0  b %M`s2  fy yy̰YiY#y,\5n'do`uble ,I|  U L,,*wt,xx,c0@wt=vector(1?h=PI/(n-1 [zx=xx=(j *hwwghts(On,h,@kermom?cx=cos(xnx 2a =wt *cx*%(kP 8 ++" ^free_@0 +fb l 1th(l   vl?90   % `Cl  P nIK"#B.C7qa,qb,qc,q;)qa=FMIN(2.0d,F(0 -q&qb M&qc=,x+ =02d\,y`,0.25*qa*q%4b@b*q*4c!@c*;$20d5md t 1y)t  @ ran0;.   % @Ht @ Y 1?9ٍ*A 16807 M 2147 48364MB /IM)%Q @  127773*R 2836@0ASK3459876 float ran0(long *idum ){ k;@h+  ^= MHk=(/0/IQ(@l1ans=AM*@B8 }IAMhIQR^d bA 1-hJ*bA A D 1.cIfThen(IsMark("C"),`CopyTopic();A0Else(0File($Next()',`Goto< `C'));EB("cpb"). @ A % R@]bA C s .R`9Y ܂0   0 `@- "A 16807M 2P14744M (1.0/IM)Q$#define NTAB 32pDIV9+(IM-1) /),`1.2e-7=`RNMXg -EPS)i$ are 1iy=00v[}"]{R;z2if k2 <= 0 || !iy)  -B < 1)2=1W2= "Pfor (j=+7;j>xj--N0'2B<!) j]X2#k}ty=0 A D J bBrrl#j=iy/}0j9@(temp:>!) r`eturn!eP-;s##un=!dC !E 1MӇ+!E OE I 27#`. D OE % @M!E lG e QO#SM1S56M2S399շ1M.( 1 40014E2 6921@ 536682L 5  R12112 3791Im[62[s2=&6789  Tw [OE ~I l 3c%s!}G=IA1XG-k*)R$|@0ffd0k6=!2w!IA2*(! 20 ! 0+= IM=j]-"J0y1D M!X)68_(0M" Q R. ReIlG I 5 :4w:d~I \J 1J,\J J N 3:::5. I J 0%@-\J L ~ ʀ%_:4~hMBIG 100pSEED& 1803398/pZ $pFAC'09E8< /qxt, 'm0a[56ffC(T+mj,mIxi,Q 81 =̈́f4mj=labs( - ;(mj % + A5]=mj8 k454;i++Dii=(21*i) % 55s(ii67 mLj- @vmkNMZ) lP90XX=4;kiEv5vd ] -= $E i+3UJ N Y !&Ju RJ97u0~ @ ʐ)* 0p=3A*Lz ++!56b7 T@pp&/Ai4]- Ppe!j=eQje0`1Imj~*42:ZW > dL N 1Ӈ[-N N 2Q 4>>>9. N N %>@*ON P ^ >:t?=E) n4 s/irwordd,i\,l hsX # 7=d(vXax)P__G VAX6 5/jD x408-`msk ffff007f?0x3fn8$?\ 7B? ndif[Y@</"!J&!#(svps des(&;!,&O1R!=@| 0&&rA++y Lj(*(G>*)&! )-9N 2Q 4 8 ggo-dP Q 1.Q Q gR k%%e%%%"). 2Q Q % % rQ gR = H%%%) &2:o/,;j3iddxV]=YeQ R 1[/R ,S S pt5[5[58/ gR ,S %5[ R S D V|i6ܭ}_&e] 8 :,IEpt =regn+( n+ @)*1(&Lf,S gT 1g 0gT T W ratiniB0 S T %@)ggT V  E'y g_-zzTxl5'{free_vector(d,1,n);c0+<;}1a m,i,ns].>w,t,hh,h,dd,*c,*$)c=b@` dhh=fQx-x ]Vi h Z+.*y=y3W(*d2 % Xh lhhNi(sh- ^c Epd `+TINY">f0ns-b-for Wm0 W X %`#$dX Z e I ަFߋˉ|H}5mPIO2 (3.141592653589793/2.0)3/cof[], @/*dev*  ,Nouble x[# .-t,j,n5, ^/7max,e,hth,power,sum,*bb"off,*ee,*fs,**uv,*wt,*x5 &.N=mm+kk+E=NP*gbb=d_tptKY`0 -1.ee,fs@u=dmatrixS0 pvpwPtxp#X \ x ]S @ =>?$iui<=73oiG/2FO=I*(i[/(.4xsSa+(b-a)*DSQR(sinn(#WE?isGb-GG@ fk (*fn)(w (&wt; p e%F0tt<=MAXIT _ _"=a devmax)@ =$`}7e=sum/nptD4,0 <= *7) {\for (j=0;jfheev=,0k $-10bb`}PFACO2 BIGf 1- t2 Ղ ,val.cIfThen(IsMark("C"),`CopyTopic();A0Else(0File($Next()',`Goto< `C'));EB("cpb")0  %  R` C T&&B "*2"0  / >d,n; B[mm],j=mm-1;j>--) >nn*x+2A6@d=0.02 +!bՂ N 1b3N z J rc! `, z % 3N Y gq?SS#`zTx#define E@RRTOL v4`)1.69e-38&`SQRTNY 1-19=` 3.e37O`TNBG (TINY*;)OMP1 (2`.236/F0@2 '-*2/25.0)EpHIRD /313M470375e4 (9- 22Ffloa t rc(0x, 0y)alamb,ave,s,w,xt,y )|@| y == 0(x+fy))J>!||(y<-C && x) < 2))?nrerror("in#id sinV"^My8+xt=yt=y{z J g iAUSAw=T WP- = 0w=sqrt(x)/0%do&5c!=*P0ytD)+n! O+ve=!*F l's=.-L)/ !sx2return w* 4*s*(C1(C2 3C4)))@ R%3#unBE@!@2` E7CC4;6b ݈ 1t 4݈ rd7774,J 0% s " f dA6oȘd <l5s4.X5e2( /14%4D6T"$+2@5 (0.25*C36m% 4=4>%delxy z,ea,eb,ec,ed,efac,e x y,zs\4,z #'.FMIN(x,yNCk$0+y,zadFMAX((g$A@si@d@$2D1Dzt=z #CC CrCU3ypz3z3^ 9 d ssʃJm+`/(R!*+%)+!R!0phfT_*@=(-mDy0 z)0q.&3) 0< `z5&tea lx lebzec=eah-eb(d *0e=ed+eccuv*h cA 5ed*(- C5*ed-C6V *ee+g #a @-C3*Q C4*ea25 8);XC" 9` B>h-$c285#our1(data,$,-kX 6:Τr+wprwi=wp1=n+ Ki= 2;i<=2) ;iNhi4=1+(i*p3-(i2 1=i+iZ4=c1* [i1]+03]E@i2]-&04@2r&ch P>@7 `>`1>P\0qX ^ Zr(mP=+wr*-wi@2i0g;@3; -;00;4]$>(*2_!11(r@)n12 02TtpZB@!DD5P0!GG6*Pe} 1p `6 ђ  rebinSSS>/ ђ % yԊ0?/  X ~_S*,'Y9L, SintOk!r/txn0o}8(C1nd;c rc dr"-dr r[++k!4"k 1) Lxi[k-1"a $2r -4(xin[i]=xn-(xo)*dr/r(0 T07 Fi[nd]=cђ 1'7 є re!2E Ne- є % {+ ^S=SxfoFX R"Bc1,  jpf0kc, ***@s/8loff,l,`j,ic,b?v3+=O-jm21c=eUj=@jz1;j<2L;jU%l=0l!m2;lUvx=c[ic][l+x][kce$m0ViO2iO/&s1J[l]] j]*.LpI`HHpjmfJs4eє  1`H8 E relaxssqsqq2/ E %sPQ8 Z q qzD@ut$upas s,isw<jsfwW/hoMh/(n5h2=xh*hh<D<(M++I 3-O,HX\pFlr$3Rsw+$2=2$u,2L +1<+ @N/ @-h2*rhmBvfE - 19- ]@ ' "2?40 ] %@- ' h IorF&%%bf oh ,res//"?5]24 ;HHHH—4JJ4 s= GQBG2AR2B)^Bz]P-ab$RE'es/(+2@$% 9e] 1hH: С hiG/ ' %P7B U xnm[9~($ 4; aFQ ' +)res[i][j] = -h2i*(u[i+1+ - `# @-=@4.0*0])+rhL@;D]p1]=g@n+ 0_i0n 0.0;}f 8 1;8 h E revcst.cIfThen(IsMark("C"),`CopyTopic();0 Else(0File($Next()',`GotBo< `C'));EB("cpb")0 h %  RK@8 E \  0R`9Y  _ Pfz float %1( 0 @i nt nc ity, []){\x[5],yydeA.j,ii;Y n[3]=1 +P ((n+C -2) % ~B4@n[2]@Yii=iorder[nW xxa=x[ini uy@de~ALEN(*1],03 3])R%-= u%P2% 4 4%P+%pK0%0K0%KPq0K0q0return }3gh 1V'<  3ń erse7"`1 E  %4@%  3 P n?rR2 *[r"n,j,k,@l,itmpRRn=(1+(1"-Tr#R0)/29for (j=1;j<=nn;j++T) WkjrlbWjTp Rk" `Rll b 1!= rf1,3 % ća  e É@QDTx#define ERRTOL 8`)1.5e-3pBIG 3.0e378`THIRD (1.0/)1 02j2 "B3 (9/45@4201$ Balamb,avelxy z,e2,e3,sqrtx y z,xt,yt,ztEif (FMIN0x,y),z) < )|| +y,x+z),y _FMAX7>9P>z'nrerror("invalid sin rf")!>xt=xEyt=yLzt=zo# =(xt, y0ypz#0z#0^  X ~%FӔv,S0.2t5*x+}! =!*+yt+@=(-/@y0z)0!)@} cqfabs(), PT9 `z)~2ce2=*- gLe3pP Ǔ+(C1*e2-CA3*e3) +C4 /!h,b3 8#un2C12 34 b 5 1'>5 a rjWWW6, a %n _5  Q pnqtH Z)Zduu.%y+z3p)v< (1a | ƀyyv/%%Rj% ><R=>'p+xt%UUpt=Z( W&@[.@9N@h+z+V%%~/-p &b=ax7* Fwrb=xt*zt/yA =p*pP=  _xfvxx"=SQR(pt*(Mu'+u' z) x*' !V  h /G!;wXG=0 ?N :*|3rv'&Y]w_7`0w+p727\7p\7O22=2XP)P'CFaF7; +, yMgbMeczpzjed=ea- *eHee=eb+ *(lec=%+'ed*(-C1+C5*ed-C6*ee)+e`b*(C7?-C8 0z H ^wH`0esb03)0/"))4<=*Tb*+(-rf :;{QQD56 7"8X8c 1{!J?  rk4G$YYenEYNeYY- % Yk n uɬ?NnJ"KLM E 'B֓\h,h6 ,*dymt, *y2\=vector(1,n)ythh= h*0.5 6=,h/hhhOKyt[i]=y{dxh,n/++:*mϿZVT0n #=`+liou6 0+v03W ree_!A9$APUm-@a . 6  3 86^d 1@ rkck e e  3.  % cy T v ;/: Zy[],  #a"2,a3 3,a4 6,a5,a6& 875,b21% 31/4@ ,b32=*9 `4$32 = 93] I6051-15, b52= P,b537 /27T54=35 P61=163: 529 ,b62=17$51 3=5 1382_7 4=442!01059)05=l250J cv/378n0c3 62c4=12Ei 9c6=r /177#c5274333[c1-28? 2764bd` c3-1804838000  _ a-Akdc4h 50MAbdc6-,*Pak2,34 5-ytem &%$&14#556\eŦ4~ e*D+a2*H,7"E(}U+DD3D3|D`4D4DP 3;O44`j55Op5OP4E U x]G9F5FV5~Fa6F6q6mp6P 5Ig66q*(cqc acV`c6F6:d$> foPurn(ܰ-7n,3,1!"3 l s $&0 @9!@ @|1=1;i1< i1++f2==0;i2-2 l(s peq[i++j!i18{##28O8f0j 1=(i11 ?-2w1P)wr=15wiV(;i3<=(>>2)++++=2@Ii31P(i2P(Y2-i2)<`<1)+3`^1@r=c1*(+]7!j5+pi+2]-+ C)J z €e!y_ "422੐p2r= --2@B=:+6<iPrUA8-8pD=-2} W/j"j3+3>-s%]+$A[j31 ~-3zg@3V"nl = n t("atnT|fb` 9q!wr*4-wiQ12+ +0}"T0(0TrU02D M m ] -1Lh  1|LD @ S frag<2 =  % @% - i CL! <~L\N2 2456p3 /* example1 */-,4  ! ***, **L=f30tens,,N2%(=matrix@2*N27N*%,>60N3,&0OX_T@;@Y `432-0a1 32>64=1<8le2<<(=vect[&e0'2o #6@[j]=yt->b R0 & UNaa=selNM +1)>>=XP,(> 1?0P.5*(D@j8+P+OP@ 19Od@(@+aa -@1d-' =+d / ;-) >  ) ?(d >')? !-!gdJ  < xHBC֯ um;\3fL G 1LFG w  roFe\p\ppp;0  w 0%\`@G  } ȀIngK@Y /ooc, 6TfR#c,fact,s,wL,yGa   + cuBs=(bR[ 1.0" Xfabs(a<b)2!X=b/ac= SIGN(1/sHqrt+(y*~)),2s= cU0/E a/b0EEb/cE0sB7My=r[i{]'w @@=c*y-s*w@0=s*y+c ,"xy=qtR? SpPT!pUBw  7 >,AiBS/ e l 1+aGl  p rsol~v>/   %hΊ@l p I `7~^8 8" e PJb[n] dor (i=n-1;i>r=--BAF,j=;j<=nK:%a+2*bJBb;A-y)/dK) f  1*H @ B rstrct40 p @ `%` @ p  B c R`9Y@  0 ( :{int ic,iif,jc,jf,ncc=2*nc-1; for (jf=3 =2; jc TPT@}e @ B 1aIB B D rtbis.cIfThen(IsMark("C"),`CopyTopic();0 Else(0File($Next()',`GotBo< `C'));EB("cpb")/ B B %  R PP.B D \ ]r?""BrP2z@/40float !( 0\1, \2acc) x,f,fmid,x=R=(*func)(x1D#p2W@if (f*< >= +nrerror("Root must be brack eted 74in0" = f < )? (dx=x2-Hx1,s :01-x2,p0Y#+; *= C)" < = || = etur 2`Too Cs ʁOJMAXfB }i";0+xlxh1 WP ! 1=flfh9 h=i5h-2x! eM=xl+dx*fl/-fh%sos`8-!0 Py4&0lE hH Q pyyG}@h}ph}ph}@pel)&zx Maximum of CfG H 1ЈKH /I J rtnewtccc30 hH /I %`xH J b "d_fӿaj&B2j6DPf,qmn.I.[(H+Ǖ_6dn,&f,&d2f/d"i -=8 dxUn)*4*|fJumpout> }FEw&) K 11نL>K nK nO rtsafe?60 J nK % `*>K M p a>? [HHFKKbdxoldh,%RHwKJb:&JBp2=`haRH")&|& EE@Y)Yu(EZ%,)h --F&$V7OF&=sY+!=fabs H 0=B!rK6\(-xh)*df-vfd0l@ knK nO ~ ʀ;=>  2.0* !"))TM164O~49-8!6'&xl ]wSTtemp - Pt!+[[0q $' VCg׫beM P 1Ј4MP 3P R ec?hhh:/ nO 3P % hP2P R | ƀehhjtH *Ǥrfl ""I:GZ zQ$ #RDV:  s)*fW -r{DC%Z+Wusf7k-hͥ]"f3P R 1;8NR R U rzrenE5N@(k0 R R %m݋PQR T Ap]l_ "Tx"**dL,*v / <int k,j--yy,v,ddy,c,b1,b,*f.@fx=vector(1,iestx[ x]=xG1 d=%yz[jx]=y45[:1y% S=Xap;k++[ k+<}0-k]/3@oPv=_@ky=cfor (k=2;k<=``j6b1=f]*vI-b=b1-c 0Yb(P(c-Pv)/b(0<=4c* Pc7 R U c Qq_Ց 9&0@! Ak11k]=0yy#@A!PA. ZXx,b@ fT {V 14O{V V gZ savgolv&`0 U V %`+{V X ^ <;ۄ*[c >R&A imj,ipj,j,k,kk,mm,*in6-fac,su*a,m1+ npFnl+nr+1Sn0 r Plda m0(wm argS-1*m+&a=matrix@bt)@W#=0;<=(pm << aS >=" ? ): Z )X=$nr3 ?pow((doublpe)k, P-`l-- -k.mm=IMIN,2* m-FP0mj = -mm;s<= 0+=a[1++)/2 -@= pV gZ [ =S ludcmp(az!Wjaj=1;+"bm0.0[l d*1 lubksbEb/pnp;kv!c[k;05f 6[`x|L ]M@. u+Do5`/, -w jz=1-(I )*/Qz]=B `nH] u gZ t) ((y[i]-ysml)*dyj);scr[j](=FF} %10.3f " ,ybig( ISCR;i++) printf@("%c",?@J]Q|qH] _ R`9Y  P0PE b"0(u-1);j>=2;j--) {`12s"," /0°j _po 7 1F0P &s MA%44 PD\n ,x102}|fP BLANK#undef ZE$RO PYYPXX 5FFfu 1Q select.cIfThen(IsMark("C"),`CopyTo@pic();0Else(0File($Next()',`Goto!< `C'));@EB("cp0 %  R`"/ ڄ _BBB 2)".?PYdi"f J(!(unsigned long k, s n, arr0[])@i,ir,j,l,m idk!,temp;R l=1ir=nyif (ir <= l+1) "@= && f ir] < l]1'@r eturn) k]1# W#=(l+ir) >> SWAP(],T +|Pe0 >xPo&p7(_`V_ E%j=irG%a=9Qk4!*0,!io1yaQN jL0#0=a%$j > = k) =j-10:l=iER$eڄ 1q R ц u ip79$`/ ц %4 ! q G[Tt&nfDTx164$v2or(;,1,M+free_Zl@i<4N Bndj,jl,jm,ju,kk,mm,nlo,hnxt *@.4hi,asu 8$%k1 ||T knn60) input to !+'.=PPq=kk =kz=BIG lo = - 04mm==0?` >=0. =M3ϼd2J'ThiTmm<++(3) mm"M)([mm*3iц I|t 6@ #ж(14e6 @!U6Amm/M1 [1 + i+k%U ?+Xp?$"%nA)yloYX1E)shelll,%+: ukW6RhvT ]=/mmiN0O`$0280forjVQ;dHe=g1,8-=yyA++A81%p:MIG \P f 1 S <  sfroidiii60 u < %`% a \ ]jj Z |zXF# ine NE$ 3e41pB SI"-pYJ(K MJpC+CJ (NE-NBU Y$K S'2*NE&  ,mpt=,c2,ano0rm,x#: /* Program 1 */float p0lgndSl,B Z , \ X tma x,k,i xv[A0conv,deriv,fac12,qOlowcal1p**y,**s*crKy=matrix?'6'SISJc=f3tens4'T1C7 C7 "< q}nn~B~i =10|=5.00e-6=1E'h/(M_\nente`r m n(cand %d"d,&&n/( n &TA 4,A$A3]=3mL3p$B3PA Sg@7=q1"-6iy5 inc$v,Es$y.%47Yolvde($,%E,NE,NB,M,y,O* c%0s %2|p7.3f 10.6f+8/"8 "&" n t!$ lamda)"|1]S B4 e 1 T ݕ [ +enE Ne /  ݕ % P~E [ x {Vo^μ0 pjQ2 Bʎ(incgv=nc %do:Fc *= -} S |)/)@fno%0%n5V.vd=a]j=s,T a[j-v]]w@^>j* CjÊ) Ek9 /TP;e+eݕ 1U shootB+BBB)/ [ %BP t -Mrj4"J6e*nvar;x1,x$ %N* * DIE  ) !E ,  void (*)("[o*^2@ @*@"t nbad,nok1,hmin**yAjvectokt)1=(x2-x1)/ )d(v,yAodeR (y; , ,EPS,hj0| ok *s,rkq+%`score]=f?%@@=f 1(aV Ś "f=0 Ś %Pd ؜ v ɤ򤂦ky3"n2!b,xRf Fr?2i,SBf12rf1f21(rfr.f,?2o,&v[}]F3Ś C TvvT)Df=f1-f26.42 1e؜ R 1WR simp1#`/ `%PR R z €CR`9Y 0@ pP>z H*bmax){int k;floa t P;% if (nll <= 0)0 =0.0*W7*kp=ll[ 1]<@a[mmp+1][for (k=2;k<=N;k++ ) =` iabf =a@tes&tC`Zk]L-(#0eV(pfabs(-)- 2X > +y hP` Pk0} e _ 1aX_  simp2.cIfThen(IsMark("C"),`CopyTopic();0Else(0File($Next()', `Goto< `C'));EB("cpb")/ %@ Q RP#_ } ȀG򁂀rB `t@ @"(6"J~b,ibqp,q0,q,q1B*ip=t2a[icb" < -EP S) QB>m) q1 = -+@1]/5Ut|=`+1;i<=m;iRgg@"qZZ;3qq1Bn`<H1=q[2 e ,0-pX=n)p0 c P{w`0&@@0 !rp91|:  H `tDcddcpPe 1}Y @ e U3UUu#UU(`CU/  `%UPk e a ~uR9e5 Le/0spivE =1.0%ii=i1COCii-1 i %`i_S*=`0ipk:kGbk2k<0kp5n+Bap L0X--4dsdis( sDis]= \-klh=tbI-Wh1 Kkh]Kj0R+w ?"A u~lR++Tڊ&+RsX\;**`EpK PGq3>S=isH 4T0>DT4,d\C`@@4@"?0I- 7 >Z[ e 1}[ + ,r,,,;/ %,P1 r c,%o>P-%Y#/Qn,\s, 0totm9ep, 4? y) $ in,*indD h,x,**a,*del,@*ytemp\Ia=matrix( (=7y5 h=h-/ ,,;j#j'h*dfdy0R iludcmp(an,&d Iyout?h*(dydxJ +L )ubksb:p/4e 1((\ sinft44e4,`Nex t(4ĭ/ + %4PO v 𺀟UÝb`$p}8"z2$void (J=l C$=Bj(,n2 2P,y1,y / @Xta,wi,wr=1pir,w3&=3.14159265358979/(double) jnnryS $L@ >>1N)" #$ 1=wi*(y%+y[n2-j2y2d 50-O=y1+ h2 - !real y$ *L T >2`,! j+=2r7 ?Df0[jI 0=sum-f ~ 1 ϒ]~ slvs|m2'(0 %P~ G \xҹb R&>]"disc,fact,h1/fill0(u ,31$=2.0`/(h*h&3=sqrt(8*=p+rhs9u 0`/, +o]$f  1(^ M !l[[80 M %` A P<񑈎h`& T_AU*Yq4yfM o 1,_o : sncnd~n90 %`o yZA 603:Va,b,c,d,emc,ujm[14],eni,0l,boVC'=emmc"=u1u#=Q"(i--_b[i=: a@@(j1!(a aib5@p=c/b.L/!/%c*c+$1` E >)? a :@n*`qP 9`&2ZLJ" W : h(u);*dn=(*cn 0sn=tan@B}CA%d 1a` W snrm.cIfThen(IsMark("C"),`CopyTopic();0 Else(0File($Next()',`GotBo< `C'));EB("cpb"). : %  R@ZX W ^ .R`9Y  ``'z /(unsigned long n, x[], int itol){ s i,isamaBx/hG if (( <= 3) -ans = 0.0D+= Wi ]*  qrt(*! W99_0=180K_; ) > F ])) /@i!}%return%!Bf  1K:a  8 sobxseq>"`0 W @ %‹P.x L _  $R" 01="!"Tx0AXBIT 30 @DIM 6<vPoid 1((*a8\[],"9j0,k,l8rm,ipp*ac50n,ix[M[ +1],*iu t &pmdeg%p={0,1,2,34,4}Np%')1%vq@z*j`=-0 _3 1,5,7qo5,13 ,9}c*n >]2k ($gQlP-1;lb>l--`P1pp &G b l\pY0)@4$dm=in++V!(im| ) "%nmlpj,=B nrerror("Z3 too (inC"`L 8 K d/v'g4(j-1)a3IMIzN$,B #I!vp[im+A3#9#*?E7$40#ft  1=ab   solvd~e50 8  %`k  k 8wH`(|'5 Y'ndexv5ne8nb8m'**Ry0*c0s+8 "$H?0G) s?@ F @D@c1,ic234,it,j,j1,j2,j3,j4,j5,j6,j7,j8,j9. &5jcf,jvk72,km,kp,nvars,*k8float ,$j,fac,v,vz,8*er((.=ivectI1,ne =k1(0k2=m m =ne* j0j2=tnb34" 5=j4+j$ 6 2  / l eej7 3 8 49=j8ߙ0)- = @(@P&it it :wc ?0/: ZҪї+))y(Jh-= *^prf("\n% 8s %9 \n","Iter.EFA.12.6f ~i#< convZre|e_F0& 6 e+(iT C icD  1!:Pc   sor$e,`Nex-  @ %؈&S  x ̸hVėL`z#define  S 1005 (Zs/**fq/Ӳ. r&j Hpasspsw,l, ln /anPorm, f, omega,r0esid7HL2;4j=l;8i--ia"+i] <= a) ޚ>C I ips00GP0[0--9l W<=(l+ir) >> <SWAP k],q  34I)P$gQx> p!r]ZFP(a!E[Ű%?teQ6;p!'''UBWBBB `\rL "9 @ E8>:%Ǜ3?wڱ.bP @ ^ rr[j])(}al+1]=j];Pj b P @ 0=b- jstac@k += 2= sort2.")0{li& B[-0]=irj  i0ir=j-1 } W40 $@l-0l=-0 }MSTACK eP A 1omfA A @C 3.cIfThen(IsMark("C"),`CopyTopic();0Else(0File($Next()'@,`Goto< `C'));EB("cpb")/ @ A %  R PcA @C Z /R`9Y P@ `#"Tx `  slong j,*iwksp * 0) =lvectorp(1,n indexx(n,ra,I ,;j++) \\ram2P =t[z 30b33gcgg,y@ @^OfA C 1%gC D H spctrmPPp"P`PP0 @C D %PP‹P!C (F c EQQLRSl0Z z|]B#define WINDOW(j,a,b) (1.0-fabs((((j)-1)-(a))*(b)))/* Bartlett *T/"b"F^"t mm,m443,kk,joffn ,j2,jfloat @w,facpm,*w12,sumw=0.0,denBmm=m+mU=(m4=mm)+3# 43+w1rm4#2nV=J|=/ or (j=1;jF<[2 >w<SQR('a )8#'0if (@ovrlap'`pk; +rt) )* N/H@dfB=betai(08.5*/(df+t*t' V. B2aJfK 9N 1Fi9N iN O sphbe~saaa:0 M iN %8 a@9N O V!~R76T KZRTPIO2 1.253P3141:f yo, ,order,rjp,rylN n < 0 || x <= sin b1. =n+usjy(xS@&T&Qp,[ =02x$s$j=0*r*sy`y0p ppsj)/(*?@ypy yg#1fiN P 1>+jP P U Vfpt  <0 O P %V`(P R q ]Z W\N1 2 ppTOT `(N1+N< \DXX Ze-4,,, L9e30)y2[1]=u0.0Q W`0 = 5e (3.0/(x[2]-x4))*((ym y -ep}-1;i++) V=AiAi-5@i+1`lp=*!l+2 i-1.0)/p0yA0O]) -?m"m`kA06.0*K-d qD1nDqn=un?AӀ I `B2O+1\0.1nan!-UQ!1nun-qn(@ iWRor (k=3;k>=--(Bk]= 2k+ure$e_lBu,nR}`f 1o Ä Q #t$`0 Ä %` Q Z q 33؁ 4 n 3klo,kh3,b,aChi=ni &-.1Q_3k=(:+B), >ixacx) =9e(l h=%fh-lo;h == + xa input@ to 1")a:P)/hbFP0*y=a*yX0+b j +((a*-aF)@(b*-b@ih*h)/WfÄ 1'p  spreadDDTDTT20 Q  %D`5r M f DDX;WF BBpBfhi,imix,j,ndeT 1nfac[1 {01,2,6,24,120,75040,403362880}cuFmm0) nrerror("Qial Ktoo in 1!@"ix=()xAiyy[ix] += yf=LMIN(LMAX((`long)h*m$,1) U=+mU= m=x- oj. 1;j<=;j#  *=B-j/T $ **/(9*Nk%K`K>;jE'04 `/(j+1jw? lbj`,I : D4_VQv}UfM - 1(q- ]@ T Dsax50 ] 0%`L- T Q piIxUrs^ n)U@w)bija(!= n+2*1: mismatched g F)0%cbsa *gl!l. dk]i&!f] 1 r  in?GGWGWW70 T  % G`y m WGTg?$0 `bkR)z-F;tq]a3aQ,4j]=M!=12P#~= thresh && i5FjD'++k nmaIin: y<t'"] 0*2=jG$)-d= +Bf + 1s+ [@ ג p~m90 [ %`%?+ } Ȁ={IXB@P)v Jc[], ObC 4ijmabjm, mbPRRijbم||"Pc{kpm: sizes do s$)+i i; -2;mj=m=2imn 4 >MDsy&mbCblR(,maVq;maai2 mac*&@maR;%ma[ ?4tR> mb <!2 @Y0mbC[`biw.[ $3w--ҏ 0Q1mb+"+`@} g+`!maq++66'7~~0=P  2bb=mb;1b1b]A Ar s=sum-)y?|J&3) 0 m=mnH1E ג 9 BDCf n 1: tn @tBBb5E (02FBto%B0 ג % B`]n k /޾>>x loaL'>e, RR,iURkRuOOtm9"Kc V#k>= RMfȗ > 1u> n %p50 n `%`+\> n R˵"kS;z %V4Oj,jl,jm,jp,ju,n2,noff,inc,iNv% Jn2eu,2-CE)%"p=indexxa[n2- 5D,(9&*)&`, b$0)jp=k  +kUk:I01;k[ w k]+cO /Q+j=jpL j:%߽5Q"s@gl ou=UP ju-@jl > 1,Fjm=(ju+jl)/R |jm]&>jm9FR b٣ jl-nF@>a n 3k,? +,l?z&wUL1ak1 7n@c *= 3R1nBc;} <l#///P2B+;'< 0k2byfv5B?v=4"?m72&-ivl&PL m -ncLm-^aZK\PvS` 0 % A>29 4 8 RoS%f  18v +x@`%`@0 %`k U x@e;E' ;8< | en) 21ei,j,6 %iC?n+2mis*ed g Gin D1*b''x?ϝ*mc4/kB 8k.`| f 1 w stifbs.cIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb")0 %  R`  g@ 0R`9Y 0  @0`zTx#define KMAXX 7* ( +1)b@1 0.252E71`RED3 Ze-5INI')"30j`SCALM8B **d,*x; try, ps,d ){ ; Ppint nvq,k,km, /=1 ax,kopt,nvold = -1Jstatic float epsP.0,xnewl\ dfdx,fdy,*err,*"y0saveqk#a[I31]\p@alf[KA]` n82`={0,2,6,10,14,22,34,50,70} f BRbB 0"Greduct,exitflag=01d=matrix(1qE,1,/"=vector @y/1=+pB`?V`ObVpeq~iDf( !=Q|N|") Mx*hn Ae29c 1=S`AFE1*aF[!1]+<Zfor (iq=2;iq<&=B# ++a0`Xiq;k  k][iq]=pow1,((a[k1-a9)/*  q.0)*(2**))):  6 q (R"d >t$b2}1B=AO#=nv"Q| +bx  0]*+!-4 ) = h=h,1=1;i< i[i]=y9jacobn(*xx,y,##1R 2"0h?(%2)22M U023)yyZX0 2P={)+ha x2da) nr[D"step size underw in 6"simpr(9$dy0`Lx,Dh,_$k],,Givs1 L 99r 5Q@Pg"xest=SQHR(h$5k]0pzrr(k, 0y,%51{CCj,TINYq!d /$0km=k&60[kmCB / $,/m!q &&a >= 2nn3B2t@<-Pbey@"V@#k 0)#B`$2/@I_p@. ,w 6 d bo "`aÐI%mw!*MqQX4``AK#zUa !+GDFu (J,9#0A X`A?'h *~=v#@Jm=H*hdid=;iwrkmine35 pkqdfam "u9=$work=!*}~[0&'L z m z-{PƝ #scale '%@7%z52%'=h/: E# J#!8)z ./z9*d <>=/`6pfr8ee_1I%6Y: pWYyG%0I**6P3PY}%,nd ; FlܥD&+#f f) 2P"3 IN8`E, ez 1 x @ G fo.`/ %h > O l}/L#]b TY LmGROW 1.}P }SHRNK #0( /3 nERRCON 296nNTRY 4}GAM (E2<21 l31 (4 85032 (6p(- *37?`+1+@R4L-1 1?P4O-5436`_B19bP*`@/10B4 E[7;3Q3 (! b CQ%quoBE1XZ2-P3250{A029!03Z+:!/ i,j,j!.*indt9 xs*a,d?2*g1,*g234?Naݎ)@מ)`Χ=Og12! 324!   v #T Jx*Qp1=BM!<}vӽ <=S4 c_y0`,;jvF][j] 0p- Bi.Z/(*h.ludcmp(aa,&d g100+h*C1Xl"@@lubksb] /,_>X?*@TY*h*po,)) :4)2D0oʛV9F3/ 2/G 1GLx6?{˙8 K0 &'P G kNN. _ WI*!1h=(h)? _/>,*/U%cexc`eededZ}TYF\A+l<` 0&;7;@AM213 2U 4 4 03yB"B-B 4^6= h"EWQ  3 42 <fc 1y  sto8erm ==en8Els===0 G  %4= =݋@{ ! l >'K,/9.CY[ ,"[=* ot,Nt nj,loat  J:n,neqns,nn5,h2`,half tempJ p/xot/` (875A(W =nv/2:Y"i7 i<=p ;i0Yn0+ir Y+(0n]=h*(y+ *d20#, l& 2+w)nn=2;nns nnYP@(`))h2*youtUx _ Pu B TP40 )Q/h#A@#`S\A:}r3f! Q 1$zQ w|svrr#r`rr0 %r`jQ wkl 0_Ν~[qP\[]Xcj,J,*tEc W'\:ssXi3w' +Hs%u<8svdcmp.cIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb")0 w>%  R`2p@ 0R`9Y@ ԂP@  0@p zTx  .flag,i,its,j,jj,k,l,nmanorm,c,f,g,h,s,scale,x,y,z,*Prv1;L =A1g=* =@ "B0l=i+374 [iSR*gB46@SBif (i <= ml2d2 ha[k>]Er.0 -@ i0&@ /= . B@*J@03=a`8U h=f*g- cY =f- S s@(#,k=i;k<=m;k6u"#)> S11R#r: o7 `A.B1s$/h?Aj,i]eQ*eIMwa  && i != nAokAoa& !B J [llok].2k]/ A"j=l;j3e9"a:Es`0!p 5L)dFTPT!RH?P2Br1 $FMAX(V4@(fabs()f+ 4))@f^`D bgcR3q&L(#j]/IA)/1vwc_2@x1 $Sv^0=oPF- 17g=4Fi=IMIN(mi>=1;i--K7eg=-US@Pgl   ܀m;t8-u+0b!$Tln%(s16cT%NC2iNUl<&} DW TX++uQk=n;kMkQ1tst`s<=30X+el=k;llQnm= l-#0&(float)2+Y') = 05V`P)\ Jw[nmI5 $  8i&8Jh lP{WcdZo`CMcl;i<ia&<%WkXcfMA&pythag( {8FWh#'Wc=g*3Ws =H -f`'Hyl7 Hz0` 0=y*c+ z*H'T=z*c-y`8tzP+FSlwk+  U9ZAȡfhz+I9zzXLk,0 @ cKJt}= 30) o convergence i n K< "]Q:x HkCyQ5Qh PH(y-z)*(y+z)+(g-h g+h))/(2.0*h*y:^gNr>:=x= x =h*L/(f+SIGN(g,f&O)/x*c: Su vi=j{;70Zh<& & <twR>~ c?VzshCyCJBc=f/UBsD=h Pf=xcgUcSggbxtSh+LycyuLx' Yz@dPl s%P#r`*?S P\2+s*y=x,y- 25jjj:UR8j gwE/~L%%S0eP$%P)y7hfKfX.<=h# a;ree_N,!>}f&12E|tfit.cIfThen(IsMark("C"),`CopyTo@pic();0Else(0File($Next()',`Goto!< `C');EB("cpb")0 8%  R|` Bs 𴀅N!Bz0*p"TxoZe-5 int ma,**vD, )  oid E,))O D n\[). fT Gj,=0wmax,tmp,thresh,sum,*b,*afun|b=Adata %pm GR+sig[)nu:L[ *wb=y 0 6(up0^,w,vJ(G > ) ; P+0=TOL*3< 05_|svbksbzq~pb, *chisqOKH ^^GC8>%ma6 ~?/+4Q0(g(;-)nA\EN1bA}#un0def /3f1}ǀ3<xvar#`0 %`l3b ~}C |k,l3P,*wt :"S2 @ * =90 x>umzNc a;kQb/k]:*6ZcvmO ?VREf1EA~Jtoeplz?22220 3% `Z i 2pg'{UhS7hgf7return;}6kRj,k,m,m2epp,pt12,qq,q q sd,sgn,shxnY9Tg,"Dr[ np = nrer r"1-1 princip`al mi.,g)hx[11]/[A m-ph@V++p)m m ;m[m1=m;!Yy[m1&%sd?hi@f^$SZm1:-xZ.g[m-, q%G -r E | )z-2=x=/sd0 -=N  ؠ,m1n) 6A-GQhP2Y1gZ90ZAj;AZQAthtaI3hu)|| y z-3> g g!ahQk G2=(AH) >> .pp=; qqq=6 /}\N  2\n J^ ,#xt1JMOdM O=-pp*@ 0?=a-qq*-@k--20/; - arrive F6!  I(f-1VtptesIIH0 J%`u V z~-*z;+=  slong jkb 1,g 2,ave1%df,cov=f( (A ,&- &=+p2@2 22g,*ovi*F W -t)*80@2 (/= df=Hd=sqr(t((+-2H.0*)/&*8t=(A04X(*t])P.dk@1)AJk@@Etqli.k@cIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb"). @%  Rtqli.c@k@B Ѐ.R`9Y P 0 PЉzTx {.int m,l,iter ,i,k;J,r,p,g,f,dd,c,b;3 ;i++) e[i-1]=]-e[n]=H0.08wTI=do for (m=l;m<=n-1 ;mE dd=fabs(d[m])+ P+1])@f ((float)(( e( dd) == b},Pm !8= l^P>++.30) nrerror("Too C inJ "p@g=l-])/(20.0*e 0r=pythag(gp,1.04`1 ++/(g+SIG@N(r,g)@sX=c=10p1A}@D .Ba@  P ?2DVDFBQi=mi>i--Qf=s-"8b=c9=(-Dafq!r+ L@d/ -= vpP@nmnR@"1E2ef/r|@c\=g `{-HPri]-g)*s2+c*u=g+(prPgr-$PX=n;krz[k] P`0]+c*f]#@-s`BEX ~ 4=4U1/1sq)&& i >;#}Al{=g P{} zCA} fD(F1V(FXFGtrapzd2Ӽen`0 EXF%ŋP(FGa wup"((*func)(x))6$ 15 @a, 0b$, n)%\,tnm,sum,delstat`ic JiHt,jEreturn (s5*(b-a)*(FUNC(a)+ b))) W3t=1,j=1;j 1;!Hglg%D7a +`= a~o)/'(50?*lV]=}% l62RVJ@ /= Fhhf@*n@8l6f]9f@)? -sqrt(h) :^ @00 *JEhf P@=f-iHL *Ww#ʧ =3 iXvXw%HT1j]/hgwJjqw1jw4k=j+1;k<5`j5ey {Pf@1jԡhhA(h+hA`A-PT@ j]-` ~ slxongH @Ibet,*gaa. =j2(1,n]Sb7\<nE ^1B b k.u`rie/(X=7cEeKc[j/x&0RDv etFv2vw(rG`e)d@(o );j>{s 4@"55=2;k--@b=c[(k]+ib sxq[k-1]Pdt=t+ 0bws/t@c,#1}e1!vegas7"`/ %4Š@ ҅T v?˲rRB|zBLPH 1.5#define ND MX 50`MX DIM 1p)Ze-30ern {" slong ncall," "tmx 0nprn, *tgra sd,*chi2a)float ran2(I   /i,it3,mds,ndo,ng,npg,ia[c ,kg `static V0s,dv2g,dxg,f,f2b,fb,rc,ti,tsi,wgt,xjac,xnd,xoFp8["opdidtp]dxp rBP,xi`pinmP!s%,s0 ЀTd4t p,E"if (init <= 0Kj4==15j]4n3@1) si==DU24nd=ng[0{ Dt)pow("/2.0+0.25,/ndim)$ \ 2*ng-) ^>` H%0b=ng/1@d{!@ pg*ndd#UD1,i i<im;%k *= n< \IMAbX@k,2 "= (#) * >/M{ w(d) gE҅Gs W /!CSQR({#*{)6 (-1!k5@| }V/#R2&U(gn]- 060@nd !|doG~1Q$)1rUV5rebin8o/{rj]S2O1f`Sprf@("%s: }im= %3d + 8.0f\n"/" Input paramefs F&"8im,$2Z`28s q=%5Xy T" "=2k= A>.>2 6%<` ԀtDrXOtjG| Axo=6 ]- Arc% +-!!)*)(* ;?WH9J t]+ &2#Ӓt tH Ю" ` 2: 94.7g +/- %9.2%4v" er| onp no.~'amFUF(.'6:[iNqeU210djVbek Kgdd jn: (@so+0tY(8HXC2<5 Pj@6HA (rco 3MXp VHud[nd2!0e[LX>w)$Ӓ!\ ߞLXv^@T8oP< (y]=piLsh6 ?1`0.5*h k ,l& i0*f[l~J*jjjlubksbpp:$N* Lree_AbQa "cw1Gwwt1#`-%0wK d)c#c1%void (~# S slong n{# isignD {Pd#?) 4) %]z/nn=n;nn>=4 ) wtstep)(a,nn,b ^7P1<77K-cN1N{wtn5-{%0*uN[v }` i1,i2,i3,k,new, ev=1,nto0 *"*wkspEi8{[dim=1;i<=n ++) ntot *= nn[];wksp=vector(1, )for (@GG{n=Ennew=n@*nprevif (n > 4,0|2=0;Xi2<+=ew@11@ Li1eP: 3=i(2,kk;k`++,i3Cn) k]=a[ i3 }0]>= 0D`(nt; nt>=4 > 1)@(*wtstep)(,isign ,{k R`9Y  P}@@P$,0} W<< A} GGGB!=[kJA~}D00!!8,2b}f[1څNwwghts.cIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb")0 N%  `R|`3 } ȀAA0!a/a  fij,k/wold[5],wk hh,hi,c,fac,a,b;!hh=hhi=1.0/h ,;jo![j]=0.0(*kermom^,,4C=Sb/@G-3I0A#c=j-1v#af=}) a+q 4j =p-3) b=(n-1)*@3y<,bw0*w(7S4#*=hi3w=8 -!k])*$AP += (b$(H(c+ )*2@3w[1]$-(1,+c*(1 20.=`w[3v[4])/6UHNx ]%%t!7t<2$A+1-@(' -(c+ 5P+ *0.5X4pP2ao cQ[kZ8Yn04Yn3ӡ߀0A"pQXs2-Y2=iB} e} 6hh,3Oq Q pABBf>d#vA(601C1''*32C2]&`W3@$XU1.5"+""pcF#B.("Cx01f211!,2߰-f(}`])i &e1Çzbrac&#(`C/ %4Pb RvFFfn8oz#define FACTOR 1.6`NTRY 50D%!(float *x1, 2) > f1,f>2F, , initial rangJn[0"}*1=(*func)3*2""š*j j<=vzf1*f2 < + ΎJf1)f2^))f*1*-sE)V, ,2E,1|B 1L1A- e51{5d~k2/ d%PJO5d /Y. \b2[], * nbZ"nbb,i \,fp,fc,dxH^ dx=(4/npHx)($x=G2Ϻfc3Pdx,+6"c*Hfp _ +,x b1[++v]=x-l 2[0H((bb) 28+~fD # )fdE1ÇnEu :en~t&&&40 u%&`FEu &?,0=4Tx-1008$4)1 d\\2," 4tolObit$erYa,b =x2,cd,e,min1da),f Db c,p,@q,r,s,Z18,xm ) && fb +||a@* nrerr"Romust be ketedG Ew!5c=fmT(`0j cjp` w@j [a*/G 0e=d=b- 05c0Eb)O{g;G`a0b2Bu ހ4! G-(EPS/ bs(xm8c-bTxm:=<1  +return ,1!e)2& jaAs/sA?a g?pT)xm*s?q- 0} jW%0q/Y$rP @p=s*Bq*(q-r)-( r WP=0*(s i0]pH"q-qm m1p=#=m-SK!*q`2/0eP16d (b_d ?1 : m2h0: ̀a3AVaFaK#e1d=p/1qd=&8a`D@U#O.c8.b&tx SIG~NW![!/t8=dMaximum of I7 ʜ(e1tzrh|qrN0ext(/ :% *Pv SnƟa+"F!D[MAXM1[ i  tAj,kr&**hess,xr,x3(=matrix(1,H,0km_ Ea[m]4 argsA+&m>i9-k]/@C j 1E5 k+7 :balan k--FT4 xr) ~$Q ?i/P_*pxS= Jfd>d`free_A!_3f11n1azridd`````C0 a%`T1ws 𴀩^陣^60kcUNUSED (11e30)u#h ns,fh,fl,fm ,fnew xh,xl ,xNflqnpNhpo.9Zlih].)lihxcIxls P(hX a=0w# b'A) ~! m9GfG6@h=YXL0ML`lL`66{`hmpmdnever ge`t F.+ZhElC4 exce< mX=, J:.l˪2 /h{"lr\4,]>w; F|\ X#unaC81t.@FzsϹDD/ `ӈHx`G'xo0 %o`'{z €տfȎHEtu2.0e-6#define MAXM 100 { ;ts,j,jj x,b,c,ad[.];, for (j=0;j<=m;j++) !j]=aBT;j>=1;j--) Wx=Complex(0.0,)hlagu er(adn&x ,&its if x.i) <= l*EPS*fabs(x.r)) =FQA svxMb= X0j=j-σ`c' (0 0=b b=Cadd(Cmul(),c }(polish2)&JP,m,&root`\C0P`i i i AlFF \R`9Y C 0i].r@14 .i+1]@i,!pI}#1w1Yw(F"  par ew5104M5dxairy.cIfThen(IsMark("C"),`CopyTopic();A0Else(0File($Next()',`Goto< `C'));EB("cpb")/ d%  RlP05r GA!0!1@PPa  */#|~Tvx06# lai,bi,aipp,x,T,x\I3`   Au",14#&#xprintf("%5s\n%14s (%17n", "x","aib O  0p"B]#%f m"J$&p]po$;&&? $p.2f\n\t%16@.6e x6<5.YN.d; F\S2#̤zgz1r zxamexbsaDDd#D`DD1 @%DDӌP&Yze 𘀳FK/ß U9S ;5I4"wP 5/gFTOL ZEBN +pRAD 0.30UGU' 2 64`float tfunk(! 0p[])tP q,r,su,mdrFst atic B0wid[N{J1NV3W3\}Gwq=p*3 7r=}0)(q @>= 0 ?n+0.5) : -0 -q)' >r += q*q 0d (q-r)* 2& ΂+*(1+( >*? A:*/(@ )`}it8er,  ndim=NP,nit# p G%*g\eiUOF6j5Rtr,yb%**p,*x,*y,*p7A\offx[NPq0 ap=matrix(1,MP,1,NP aM pb=vector"0MP;ij }pp9yd@=")[]= j=`9qx(J@%xj])2xYybN e3z)UInpu, i:i%dtempEA& ) = (POP iA<= 0` r   v ??b0 s'0 * JP:\%(p,y"`,pb,&<<,#1i1`@!-@p:yb < xJ2!y: 3e "O .5fpbaw15.7ex|yb1*}0G0JWVere s of ? al 3-D si+< .1W4 Yv<@b!h3hp 8"' y0z 0?ctiodBTp dicN X ~YY_jk_313`ϼ>ci 99-D a1 freeN_DT4T046"@YDpV[ R3g 1M,[3oeb3x3x33H1 %3pg 8z{;[n5Hqzn4:4E38{jjreturn F-bessj0(SQR(x[1]-+ 02 j6 P372i i,n,G66~* /_c/N.$&nV(i(j+1)9[: **6.-2u$ & &5[nNumberW1evaluons: #23-d_[T v!*m7b?dDnGs,"As$ NIlnTrue [ils C ,Y7>)GzGxRP `q %z=ran3(&idum)0)iCs!fy,0p^_*@** Sys Frozen 4F#pathRZ@ &s %9.city %Cii=`د4d PYi[ii]0c-QdV$;1pgf ?wۻĿ (k=getc(tfp!$$ (@k -= 3> = 1k]++ @7ch=96f "(!,(`) 0 &! /* now ready to proQgr l! senROTEnt a) ^(s((Hcha)&Z"1 ]`?-n=strlh$&~,1"j] !2 Miializ) lc$(&,&"f&#,0 Gwe  lyP (1:n)W0P @h ?mp=@?@1Ր4%!m "qQCVLength iX, d= %\lu+~-' ѕ$taqi-}" ,) k"e $'unsigned )/j > A%) Arith. ing: NeED  F2nt=j-n @"f.AP nR`9Y 0@ printf("Decoded output: \n");: # b 0if (nt != n) 8PError `! j dB@ TinF.F@}H_,0,MAXLINE]at.ncumfq,@1,MC+2iupbNWKlo Rbg @A1ăAACxavevar.cIfThen(IsMark("C"),`CopyTo@pic();0Else(0File($Next()',`Goto!< `C'));@EB("cp>1 .AA%  RpRACh A ?1qB b0" 1 */ |Tvx0R001 { $25!@,shift,vrnce,*data;J PTSH/* generate gaussian 'tR\n%9s %11s DR ","r8age 5ce"11;i+(+)  =(i-1)*EPSa"S;j![j]= +i*gasdev(`&idum"2(I,N,&& # (11.2f2@%` @rgAYD1fYDD/Hxbal"`1 CD`%p#YDFu A}2"K1zI5*c,*r,**br=vecPtor(SPbNINP;I4!.a[i]. = (((i & 1) && !(j ) ? 100.0 : ZBWrinor\msHUp"rQ=nc6W% `+= s@t%)Pj]%EHUrowsUlpU92",xbscolumn:::\n** B"ing G /&D/Ha -V3(zzzzz1zzzzzzx7fre4e_Br"2wgFH1ăHHKmnmm71 /HH%p-H%Km me]eD76PTl,*b,*x!" slo i,@j,*ind 4; t$a=mathrixp7*xt7cbal'4)Y=l8 7atxaran1Նd$DN4mul(a2 x,bZZ%ld i,b,m ;"=`,&d@bks````O)A#PAsaHK= JvK\pi! `ʼaizg%K0L1b0LaLPhjiiii:1 KaL0%ip0L~Nn Yimc~JiSsoW701 22 1#define MP (M1+1+M2)k*axSNPkm(a8a)HP wMwJ T=1*j+i:Lower PQ(]=*iagona{!R2RP' +(1q[pUpp[ZNHk=i-M1-1D(aj>=Lp 1$+k(j<INiIM2Lk $+a#'T8-k]aLPZ aq~l{nWt`I8ltReference 0:\tB@v9P |4f`( $Q ܞ :פ6a'wʭ~g~NP1iPPSxbcucofTT>1 PP%p5lPSi }UpH!H@1,d2,ee,x1x2|loat y[5],y1 F2 0 **ctstatic \1[]=0,2, }2@O#@c2x42Xd1=x1[2]-1d2=Px2[420\4 0i2 ee=exp(AxP(x*ee, , *(1.0&0PCO@o 4 3 -+Y Bg~"(y<9)6,da!cCoefficien ts foMicbu  fLPSD VT 43h}6L]KcgSJT1bJT{TWf ce,`Nex1 S{T`%pAXJTVi أ?Sj ֕ansy^,m y1ylu#, 2xyyc#ÓxÃDyS=xx3 2 2l=702u 4=c3*@Ca!0p#?0/p#4 !i b%6Ps %871f1 0/,R"x1","x2yJ  p@A3{TWU xg=,2=(x12*i,E3b bcR 2,&D" 1 057E41%T0v1U12h13%@ & CA"2R-ogVX1i XX[xbeschbJJJoJ/1 WX`%p'JXZ_ JdOۧ跿?l /gam1,2pl mix W 0m #yj_Enter x *n0scan,/>&x) ==  !(e0 g@ m2ro5s\Hn%1 %1#\2"x0 0mi@? @ 00!=1/-ln((()(1+x))$P,mi$$ -$1=C i-i!)/(7ePy!+@dX[@ NigmlTL>q.2f 6.6e ܐx|6RfZJ\1)J\z\^si;0 [z\% sJ\^r )?ޓ#si!~ȳ6a l}:i,nval,nJX P;`  8 Modified I 27)6;) x xC %20 k#"kactua^!(n,x)5>ۑs4d %18.7ed2,@p dJOgz\^1 ^^-N20OOO=1 ^^%p\^-rPPPwPvbP0QQQFFF20FFӅ FA0(@(w4v^-^al,bessi0(x));}  g^ŀ1) ŀRxO 1.cIfThen(IsMark("C"),`CopyTo@pic();0Else(0File($Next()',`Goto!< `C'));EB("cpb")1 -% R p\Rr 1R`9Y 0  @ p;  1 */ |~Tvx06 { lX@"7 `  Modified I1",27)) = !xprintf("%5s Fx","actu\al1"F( \n",x,v$R$)$g1@xt"ko$$D"$`$$1 R%$p1Lr$V$$&2B$G"$rkR $$$float ri,@rk,rippAxnu,xxNNșL5)LLR "`BxFrik p |   0pa#%f #@",&&x,&&ppr02(0&_$ &0pb.2_\n\t%16.6e "!17?2P N.; F<\/TDlfL11 1 1aG#~jkkFkFF30 a%hkk ] 1rjEjEjUjjDiD i,nv.nttUB'el J18##s7s %1n%20s FF,#sj(n,tpkgaV13 V߉#20kkk51 %pXV߉rkk%%b>0kkJ0?tR$ gw11 4wD4G1 ߉%pXwr FFdϱ RЊkNrO7 DiDr0D$*Op s k6.=2D2= @g^n1dxn4@@@@B1 ֓%pxnr@t@@1@@7@!@:p@@;f1n ޖ;@"D0 ޖ%`] ;r &>`>== H`nrY18DDb&%1= %20y(n, pgޖӘ1x#\#2F1 ;%dpXӘ\r: [d%rddY0[[$  g1 &%}D4H1 \%%pX}r FFa,bR00*SCAL 2 #define NN 1LLEN 50txt[+1]; ,klim@,dist[@ 433T7pp,xd;"yI! do-RMean of2)(0.0 tok.0)",N_" - Negativeqh:02" %xm"} wh (xm > C0if < +p=xm/$NN j=bnldev(pp,NN,&idum);if (j >= 0 && j <= N) ++d@ist[j]#}'printf("Binomial-ributed , mean %5.2f of %6d po2s\n",NTc R`9Y  `& xm ,NPTS  8s "x!p(x) gr aph:" for=0;jt* 0++0%Әg1=T7Coyd>n#(`C1 n7@% oy xCh dA`P5uvx#voi$d v( n,float B0f[])fASQR(x)+ 02])-2#bf =ex-#)+*'3SN 2ٓi,check*xH,*fC K=vector(1l,NY={0=0.5o1(x,7K #v0N,O(m ) {WConvergenceoblems.D #%3`Indefa&N;)$lf5d i,x[i],f d N kfg71bu =xbssteplll21 C %p,k8q mrph]6 !^ڒgrP6xsav,*xp,**yp; /*  ds&#rDhs@couf 1evalua0tion-  S,++<@5BDZi,nbad,no6ystartpr200Iyp=ma x#x10,p? I6(^x0)@&13Q-@(2,.4P3g@d'kmdD=(x2-j/20' 2+#r 220s %3d* 7" ~ =M hj' T 8 t lsJiHi<=k#J%16.6fH aWxpy^p`)7$ree_zAypx} DU1$ezg81xcalda?ffffF1 =% pAG` gg_nLkj0G~ƶ"6$d,i imyy,n @long j : name[]={" januaryebr @march)"a l #june l1@august'0september o 0novP(dec0}# :C whe`ther @perly undoes $ dayak=D f/n("*es1.1 r"))~UAp F d *s ",&n&c%43a."origin(al U:Pectruck'7&561 @(.montGLeyea"92T v~e~tNi/5l0z7ϓfscanf(fp,"%*?Fy/"j=q1(\f03(j34 35 60 %/%1t3l@"im]+Q 0"I0~fG1CuGYxchder;0 G%``Y ؀:Bx,&eNW40`ܚN*KZ (=;x3+return 4.0*x *(x*x+*si  PA )*cos![4mw+a=(-PIO2),b=,xx+c[NVAL],c 0NX$Test $y W Jl2 j(ap,b,cH y " p$actuaCby. NiDv.9/.  x)bev_0]P ,xc'gG1"]"ENex1 Y"%Pz €Ԣ2>;Br; L,cllB/{ yy qF#\@yshfi~t\\\Y2g"K1ԚK|GY"fu3Y33YB1 |0%YpHK 䀑44.O+ tbjbf?;;f9,d0um,f[4t0,t1,termy,cTYMj&E Qresulo5*|r"y -0.5*(b@+a))/( 0-W E.>e  CHEBEV)t0= !) t1=y2 f=c *t1+c[X0]*\0o j=2;j<&j f% =t1o FF*y?-t|GTS SSiա'wR7S) 7u@j0f += !sfg16%pc =1 G%pV ܀!5pczhUS|2,polycC,drrx(c,dlxAV ,# n||G|c=d[7-1"T D>=0;j--) $ *y+d# f1CԚ t N?tttt?0 % t`rt tttt?Btt8cN7c{-_yK )+28kkk9k,cHkvwh(hKh","actual","Cheby. integ.");"{  ! x,f"(x)- -PIO2),c<ev(a,b,cA,mval,x)E }H Ug1U6 Imxcholsl.cIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb")1 I% Rp@p =1R`9Y0 0@``#p"{ 1 */ |Tv"x #dee N 3  i,j,k@P,**atest [,*p,*xstatic aorig[N+1] = 0,0.M , 10 501`2.3C % 1.0}kpf@loat bf04c2,99$ a=matrix(1,N,7 ).p=vectorB  N;i++)a[i][j]=0 M@dcN,p T6p  #@@((i > j) ? S@ :B == jpg*_Ir +??B 6r# pfBA@8Wʐ$ pr#f("%16.06e",3S OA 04PProduct of Cesky fors:\nv$afor (sum=k=1;k<=N;k ?+=`k]" "A@#p'ck n2sl 2xN;js`a*xwA@mG \Sb5c1a2,,bA ZSfree~_qC$v@4ʞcug1  6 sone &`1 m60%p;nq d ݬSUU 6E z%BINS 10uPTS 2000 45bin,jlncq,d f,pro,*s,*etE_4k" #jj2WV7{Nx=expd,&idumg(innt) (x* /3.0)D+1 f (! <=0) ++Y 7av E UUF*/.!*z(-(i-0.5)096v( !!0P,0,&(&1!&/͔%15s MX"eedL o`bserv G6 E X?''H3p4.2fP,A&b%19s  chi-squared:" sq԰)p ability)P"$QG+1 zgq  1  N @two:1 N 0%p5 ` j kTTS7j1$4216$27'^] $tB04t777+1U477418dT TPo`N K dsg< $1#25Sdataset 1 2gY!O3O2AO4Pd8PLL%0H+SH9 Ie` e1  eIxcisiLL_L_L>/ %LL0KeI| JJL~U.J?Knn~+Vs~$Z6Q l9 Ohi,siHZ,xsi& $G8`V Z  CosgSs"0,25)L=!j:xkg0 "xr9 uali(x)-s O,۪$x,&&,(@ |%00Lyg1$ \ xcntab1N {{enE{Next()'P,`Go{({21 I%p)e }}}~xZ: h DAT 9zMON 12 i,j,**nHmbrzcci cramrvZ q my[MAXSTR],f[j+1][16],mon[ktxt΂i=iM if = fopW"le1f.t r"Nfnrerror("Data  J& `0fscanf(fp,jc"` 5]='\0'./12/?0 HpNX[^0123456789]"1>>0g^ aD^nck@͐/dp ",&5?pO\n%HAqP<"!>5pO7`Qp ߒb +#(!2BM,S 2&$%20K" "degA s of dom5dfK=h4h`4Ser<-v@4s3*u); F= N/2-N/8) && < 6+' =1.0V0 MzXP 2Q`| 7J00LpN0@c 1g`;!=1A3(I!N,!M,!,&compare a dir+volI5v3s ȇ"i CONVLV Exp<R`9Y $ g@A1 ) AADxcorrel.cIfThen(IsMark("C"),`CopyTopic();0Else(0 File($Next()',`Goto< `C'));EB("cpb")1 @A%  0Rp-cACr  A    P  F 1 */ |T vx #define N 64 p2 (2*N)1 { slong N loat )],*[102,*A;d ClIW=8BLRN;i++) Xif ((i > N/2-N/8) && *<+)1=1.0V00 # 2 2(00N/* Calculate di2rly* s %18s\n","CORRLEL 00 cA." |=0;i<8=16pPoC+ǣ0jADC T|999SD3֟C833 sgCE1  * EIE%Hsft1#`1 DIE0%pE^G wpss/ECz@3I17cWIDTH \limICP#yz Escan f",&perCP#~EF=(2.0*PI*(i/2Pc1f#,NP2 L#Jz |F " f4d %6p.2f F 48 V 9ʕ:IE%H` uqc7'!.wg^GH1) . HHK3~2...31 %HH%.pHK}.860h.5)2 ',󃣦=:H̀K`6GYJgKeL1* eLLP vsr~tLLL71 KL%peLNy ֺz:J$G0A 10jMFIT 5+: i,j,*i"a#**carB;:ia=ijMA =matrix 0MASfor m?&O ~ ZZ<= :j`*7$*M]\noriginal F W+ns 7@pTest #1 - full fittingKni'2("!iax`nLPe 𘀱;֜2spread%Ѩ ܑ B=2=Q=,!;eaqb!fNP1l. PPVxcrank ;0 PP@%  ߋ@,P Sn 34 O$7e<DAT 2EtNMON `126s$gK?$**order,*s,**ray$ P @+gBrt@K= fop"table2. r"== \nrerr"D:  J!&   RIf mjq`- i]]sorA "-"\:U&sA!(}) ( +0#''M4n\!XX! SVS tCb 2tf6frealpha,bed,*@b,*c,*xaM[zndx223Y%abcr/ CaE%azPk(b3n2(&idum,/0/$i i 1(x)&R(x,val$@L|gW[H]1 H]y]`xdbren~t61 \y]%!p=H]_zm \z*F1zL oZe-B6lEQL 4&func(float x)return -bessj1&;fY ԃ@Lflagnmin.bx,cx,fa,fb,fc,x,,a"[2Minima of Y1x 0O s %8߆2d "m.  ,"DBRENT210*0kx:b+1Y& E=I2(ax,@,d `TOL,&*if (*0K + / ! 0b!P a0 Pb+8y]`e 'f26} W+i!MM- 4-!V <==*! E00#U $%1++* q!!8f("%6s %s G",Na6V `121B75s\nxDDPOLYactual"J>=ǃ_ }??B" `7Xh8Ajj= X=#i;k>  *= x)0`5.6f x,d*0(frl(NC)/ `-i)<)*[p!L9apress ENTER to p!free_Ad, BR$ ̨bg}_1[ c!_x@decchkIfThen(IsMark("C"),`CopyTopic();0 Else(0File($Next()',`GotBo< `C'));EB("cpb")1 ǃ%Rp_z €RRO4VtPT$b.B@ f4! f cTMAXLINE0 128US,l,n,nbad=0,ntotdqD ok,joslin[E@+2](,chhC/* Qall jump transpositions of Ym 86jlk41N0]=8'8'['6U P54P6&1&D48574>$kk #B#5$l2l2 l` 3]=l^#P!= kP++0 2]=304]=$=2(#,7,&chˆzfVR5z6P07]=cn,8 P@P#::PV!' || *) G9QBG$ 2143d^%Total,ies] "{" $21'@Bad%%@14.22f%Frq goodQ@((float)(-9 $)/fPyen ter sng minated by x:&if (gets) == iC&"2 ;j]/'x') 2Q pD8v6Fvn2! nR#nRn+1?r( ]|&KgGst aQc-* ? 'T' : ,'FP1RgˆR1!k !R$xdf1dim&`1 %Ep#R^ -EEGJ7^*=: =: BD*ncom;/*  s *p,*xivoid (*nrdfun)3 Ex[7! c@ fD539d2fx(x~ t)*= p; cv IM Z1,  [0= 5lotTc. Minimum is in XC1Ydir [[- 3x y z.PG  "J v scan Df f",&_Z! P@3\*~f$= JgVϣscrsho(2I 1AXLq\yg1c!6!ip\\i\i\91 $%p?,^ieC]]miSGi= /n,&nBd\1p2sqr=SQR(2.0+xNC4 C( Ό n*R &*xN13.0-1 -0; F0)+`0/( + @`c @P~ ,x`g ,C=+?.``#(kO2(O x#p*(-t -6k-*& l p2Ű-0 _ E>.f{4?ZY.7 cW |(r4IM 2oGTOL Ze-4ez,: t6_u+True [(5,+-0.89442719)ۛH"=2+pRV B.2Start : (%7.4f, O>,; "(p% ,,&,&],#7&rIM a],:YFj. eval#pi#`Deriv%nSXolu)09,' ~  %14.6gI6,9 BNl5򼅿?䞘gcD1|k !!Duridr>1 u%pKDY 1h@H z1urn tan(xh\,h,dx,er`D.hinput x, hK ṡ ,&h) Ydxv(%x=X&V7+Sh!=%12k G{$cos); {guX16!U!X` tGenEN ex1 %p%TXW\\RWwJv* &,d;5C:qcxd(:x*+Bc*x+4 ciD (si@n((w-c<-(d)/* )+=0+?P))uesE0-FF-?0FF+WanRs@w,;a@b@*s Ps/+ =bki(a =a,b,M E ,M,  wF Omega  % e*test $ Erre+ 6O ր8Y0/pP=4۟+c,&d?/90N>:`;a,&b;/aL0OPwOp0c wL?w < +P4j(3,w1&W1TPbBw% &J"&D"t@o15.6e `U0wE-"J-_}0X>9 B|rM^norm al h1}!!xdlinlllXlg2 @% ܍`m 𨀡m?]= 1mB`s%<֊ p%f#?u'3;i++) f += i]- ` Gf˼QC i ,=pЄ`1sr2\ *xfi[[[xioXR\nMmum of a 3-d quadc cten es(ǡ ). CP $(los a \radi H.\nK . | i<=1Ex=PIO2*i/1f!0V z;PUQ]L[3==sqrt(2.0);xi[1]=sr2*cos(xP20sinp3]=1T.04p3p$p00dlinm0p,xi,NDIM,&fret,func,dq for (j=1;j<=3;j++) ",p[j] 5},ree_v@ector(U1W  "gx1vU!!xxeclass.cIfThen(IsMark("C"),`CopyTopic();0 Else(0File($Next()',`GotBo< `C'));EB("cpb")1 % R@pixj 1R`9Y F0~@@@ 0 1 */ |Tvx0111#define N 15% {int i,j,k,lH=0,n!P!,*nfla"g savc /lista[]={01,5,2,67,11,3,4,12},)b)05,9,13(154'.5,8,4}; nf=iBw (1(LN,  b,Z"0N;i [iS) rf("their modulo 4:\n\n";#1=nfCqkif rS,1]W&00P=a#V!+ + k * X ~BA b<ciN#@ ==  [++kX]=j QCJ"%2d:KN"2d$ k3KQ%3d",T C 8F#[2P tg1G!ˆ! $zz 7 -$ ` 1 % p0ks Q @ Tzz4equiv&(4j)# (i % 4) =(j ;EEEz3zz3 (vkCl sO l/=F@Q%wca1!!axei3-@%׈Tar WC/ߧi~6 l X)q7`t Exponential Ei",23F)3 )  x=w%5s %11s Fx","actualei G7R@([,x,val, Jgz1ˆ!!z)gsr~t51 %p(Pz^ jY i IJrot{5.0,4.3,3? , , T,----4'Z *5.12022 x6b00bb`*ne.TZ .p .2 /+!0X=!1- d 9)z +z;\'!+.0 *d,**veKh u =convert_matrix(`&c[0]P' {W*** Finding Eige=   tKjacobi(eDd,v,&nIunsortxed C` [P{W)0alue  = i,>d/%.NP+g12.6f",>Ph:ZqX\n@So@nL4(;1@e)[ $$lO'<YLLLLLQLLLLqfPree_lee]q2[xe1!T!xelleDDDi`Next(DD/ )%h]8܊0~ ʀY6Bbb9kmmzp_ wwak,alpha,phix (Ledre KibnS38)X He(Vako$uj&u0&p# =! *FAC k=0sin( 4hi=Pp^6.2f 0?v08;PDոeN1! !N}K~f2/ }%PNK~WlfbFirsdt B7)rf6?Sf}1T!!!pg"""E0 K%  4F ̀i####mk%%%%a,en(((Third, ts80%2l3s " -ze "rڭr#% ",&"en = );Csp0 t.S2< Hd]=@/gF11< !!1bmomhe~sqNqqq81 b%p(1s iPTlh NI5.Nstatic float b[NTP]= {m0 ]^n~ 67N! B 8N.$0Z 9.m*a;'=ab-{$<0 G ̼b:`balance @0(aMOC@reduNto senberg form<MbmO l| 'BXeaV#3`p (j=1;j<=NP-2;j  i=jp+2;i$!ah[i] =?i 2e",-@. }Cf1!!4xerxfccD!Do$!0 m4%!`u %BsxeulsumH^le4(),`Next()',`GotoMark(`C'));EB("cpb")1 e%  Rxeulsum.c4u 71R`9Y 0 @  ` 0 */ |zTvDx0W40 {int i,j,mval;P,term,x,xpower,*wk(sp;L =vector(1, NVAL)2/* e<uate ln(1+x)=x-x^2/2+ x^3/3 4/4 ... for -1j,14s "S,"xactual pol`ynomi m x=i/10.0 >=s P1 = (j=1;j<=G!`j++) B +P* = (-x.e>Q pYB!0aB4C=1/j 2(&1j,N!} x,l@og(1.0,k!,q$ 1g1$!5"x evlmeIfThen(Isd#"C"|CopyTopic();A0Else(0F8ile1 >% pj cS1! ~<00110#define NFDT $16kloat fdt,pm,*cof,*data3sM)dN;i: [i]$Q(P,N,M,&cbCSPb spfestimate of spctrl. C f*dexltaW$C\w(X#dDNif ((y < y j]) && >@-1])) ++xa@P 0 += /\nAConent] ) %7dwsNPTS'Ser'3obs ed5#1ed\n9Sy`Bxx=(5$) /\! G \clXbbv1J(-(v1+A)/2.0Z!1&95*EE/(EE-1#g@%6.2f 0x&XP1i>] 2vg` 15" "`   ++:1  %+pe`  r )++fc׳f !Ɔ+} l/ZRn- ,n/Xxv`SJ( EEt 23># (B xF 7s %1521s F1(n,x)<6= )Bxf  1_ "~"  9xf1di?XL0  %4X X̋P e wWWTl9⼸G, C;535*f (-` )* pg return f; )B,`ncom;% W  s4[ y&=ND|IM l@xi nrfun c=:@[1]=5 2@3B+ |plot Y<tion. MPinimk i, XL\dir* ) [[-  x y z:Lscan % q",& P2 `3)scrsh,o(") @`9 99 BrrU?Al:L EQ{g1 ""xfa ln>?1 9%ps !pqq\0qttEv%*i?|I|%N-or,~1}wwyn_6`yO b%6>95;/?;oV1(nf2fp,"%bd2n,&})  7 n.,N`?gT1~""Ts" ?}}.1 % pYTs~ ʀһٛrl 1kb z 8 0 Xqrl(qq| "r"2+2 < Ze10+"020B2"g )3,V.Pee ++P|g 1"" <9br9"9)1 s<% 9p8u tn x9Ы(4E.I9~~MP 4096HR 11nTWOPI s @83185324 slong jjmaxjoutjeprob,*pxy,*%yN NP'xxM0y|NP+10; n^irn !=X 3 k 4 `6`21 +08,`v5-@78p .`8[p937?&++j]=ny 75*cos(0.6*)+ga^s7 2(j,4.0, ,MP9,&F!&84c<I `qGVw|."TBresults  QsiTgn(@x noise)pYaTǥ !=%l12.6g& !~0n,\"[n]PyN 2gx`0떘gt@1+""@qfxfgaussn444<1 q%npM@g 4nnنp<!-n(TNPT 3 pLIN 2apA 3*p1,e2, f,4#a[NA+< { ,30.25#3}yd+@,df40.M_I ` /ydJ1@2@3@4@5'@6!7ix3*i '2 a,&y,P,NBA)e1=H(-SQR((x-ba )/ax025 6@f=aJ *e1+a[42w^ e1 @4 qf[ {T lt @*2.0k}@(* @5) )p)6)@S%V[6[1P^cpdrom @FGAUSSUN &.4f "}n1or (j=1;j<=6;vjs$ "!R\nindepeAdcalc.Zx,fZZfXNT {d @1m"" @:@vCxfit))>f @f. f:@%  Rxfit.c3 @mBt =.R`9Y 0P  P P ~ */ |T@vx0N#define SPREAD 0.5) { 417);int i,mwt a,b,chi2,q ,sigab,*x,*y,*";j  Lx[i]=0.1*iR?|0h}for (j=0;p<=1++) BJ(x,y,NPT{,&a,&b,&  &qifN @ == 0)prf("\nIgno g standard deviatio ns\n"> V3nclud44bP%12s %9.6f %18 PZ,"a = ",a,"u@ncertahy :"V!w :@vCM h)22B+rH b@bgb9s F-squared:I 23 10 Fgoodness-of-1!JC@gmBD1"["D?DItexywIfThen(IsMark("C"),`CopyTop ic();0Else(0File($Next()',`Goto< `C'));EB("cpb")1 vC?D%0({DgFm sځ wSzTR 30bs$Cddzdx=vec`tor(1Rd yz%;j!Sdx[j?$+ran1(&idum#dy0z10N0o= 0+*gasED 2yf-5'W ( x+= G`TValues o,J:OD|TF x gy errors gives'PB?DHY ,,VVfp3FeDD$ DJĐSett>xPto zeroʰozoCom"..._be comph@resultmpy,1PaIzy,xQgFIK d<=nA79Vsa=sqrt( a+SQR b*(a/b)))/ sb= /(b*'&A-",1.0=4=8"ree~_Dd(!ND2gHAJ1f""AJrJO xrts22R&2`221 IrJ0%2p#cAJL] 279z5"#t26HOLES 6 1 (NP +1)X;jTRUE 17/:polish=tX c [NP1]= {,6-1n,2 0}nzcoe*f4 ,\s @1,z2jJ/* )D p%(z-o)8^6=v#|wr# XP]=ON}*i=0 -1;i> i--90i] C@lex(-d?@- i],zroots( =0AR* Z,ƈ%24F 27s: 11","`*rJN]"Z-v8ؓE1;i[z1=Csub(1=m+z2=Cmul(10*P:#0 12$iAi].r p11.i.JnowAx Xmlie in un circle"3(dA8?62="\n2refl ˰LOO lvE< z  r0|eN=P1["7"=PlPARxmg....1 AR S%p!RUT vCˎB諞ZON (E)|1,i3,id,im,iy,n,nph=& oat t@imzon=>/24|frac,secs lo>j1,j. phase[]={`"new kfirst quarter-"fullPla/ ^Daz Yn9 fUc . Y3#EneS da@y\'s d@(e.g. 12 15 1992) : Bsc$an.d  ",.&'yFAp@proxim ) `s sin@ce janyE]099n=()(37*(iy-+((im- 0.5)/0)#  S=Wo Zpx  j1=jul /! 03(!,&nj nn ((j1-j2)/29.53 +  >= j2 ?5W5#10 1}Qe(EST)2"425 ,Y#P ac=*(m+2)i  < +s--5 > .p>G )++2-= 2 VJPti11 =360 0-i9i2)@(@/6Ji3-60*i2+' UAXV zZG ncat(C{537d:%2 - %& FR,i?LT4G6T =x= 3dAc!nn\phؗf=WX1g7"#XYxfour180 AXY@%ދ@. X6[t V>f|x&vH> zvoid pr ] t(5un0signI %nn2) s 0CN 13s I  B 0 \a[ n2@p}$oB;n<=nn+1;Xn+=6 Q((n-1)/2)E0nM@*]"e[0*;2-P 3aH  W NN 32 2 (2*NN(&i/g*,*dcmpWON-0^h(t)=real-valuA even-tifHKY~]b +ʫ pn)=h(N-n) g?I߻!i]=?/(SQR('2i-NN.+]w-0=s>2!=1Uk"> .cc=fw"(&*",sizeofA%B,"1]x7[2>>P2>`$ J0 0 >q*V7p#",&,1&0rd v"0 >noIp uIR$..l`n(3 >=rTT];TTCTTll=i3k pA@*`(l/f=sqrt(SQR0[ll]-r2l])+P)yd >2 += @P6*@)@>?'r3h > -) @Z0;/7Qum 9 A.f` >4'd :0ep/* now  Yin`verse (Z(5B0This step  0conceptually a reNal, but tha=  s9 accomplishes V.v 8 D\cS3#$݃?d4Px1p=L'>' 2V UIe 7UH Pi;B|,$@v>1 -& d>12pSspyE*034`#YWW0 0APoq#\~c1~SC1h]ratio of r.m.s. , eDxp ed  = 1/,~$-Xfclo Hg8c% dl`-PXremovYx deletZCf7 ><f<}f1#0#ŏ*-n.`0 ŏ%  mx ˻M[ߙ n( ~B2 1024ۋyignӫ long [nd(um= n#îKnn=lODIM+/+/; nn [i]=(^ <<= 6) E9J: J7 0 l p4ar f ne#zimag!Q nn! GGw@ be anr@ocessit od in space')" = +``UDouble 3$ension^0 d\n?K-U%2@2s %240s\ ,=Ptransf.","Oriul  Rb"' s [@%11 ` C 9Ap 242k=2* 2*i)UaBU`12.2f i@`4p0*J b5J/rg5H ,JZP+/ 40P  V\nQ>duc4# -ngths : %4lu#+q<6w$& 0®Ft+vf1y#k#xfpoly++UK&E+N+C+0 *%+`0i@ a+,F٬uFW15fDX BHOLY$ 5!ж\,*afuncE =uP4*b%38s"pow %x* &%.9pSxx*T*001 0203043Öx=i*DX9!(x, p.4f",rx- ;m s26 hf.10#)#.^xd2ll80 ^%`V.zb }l8>zh 8hPI 3.1415927(flo at g(0t)I +)-N(PI/2.0,H5)*t,0.75)25;akBP,R0bsJ ret'7 *s904PBaMh,b=m@*t,*wHt-w(N,a,b,,w,g,ak;OCbare@ exa@ 9pDLAbscissa, Calc soln, True NT V;&6S0P6JfItg ,fs _,v )ko]^=p JX\O,Pe_JtP{gz1k#.#Q#in;1 % R06gh SyY3 ZZZZ3ZPIZZZZ*s3Sf .0-bessj0(x[1]-0.5)*`j23!0;m R Ddf9=E 1Ex[EEP:2:@߀KPu3:3K`( i ter,k angl,t,*p;W!p=vector(1,0NDIM_SPr@ogram bds Y [of a functionr-with trial startiHng \0s.,@c 55B "@  ?2;TTrue [is (, @for (k=0;k<=`4;k++p4"=PIO2*k/4 .0$9=2.0*cos(B4 sin07@D\nSQ : (L4f,@ 7=$i,X3]SD(p!,,&!&!,dIas: 8%3dӤSo|luUF . at %14f_ Df1e#g#xftxest%`0 @%ԋ@!b T섻Rr4tR00dMPTS 501W1"1 43Љlof,f"or,prob,vrnce,*dPata102 03!D]52,tr$)/* GMe two gaussian (s  s b%16s %5c`"VaA 1 = .0H%13,11u.2Rbability'=gasdev(&idumcj=1;j<=>$;j( %!=+(i-1)*EPS2(H!=sqrt(H!]I `Gtb4 ![j]=11(3(1N,!3!3,&۸113P32f%"sH! e_/FV0r `0Bxg1#U#%xgam81 `%pvu h8̆)1 ))> $*SCAL 20LLEN@words[+12 Ta,j,k,klim,dist[@dI,Hy d&o+MvelG #Gamma )(n1.%d), -1 to( hNm+sHcand"a+} ia > "0if (< 0ys j=( )T#"C40(j >=5&& <=P) ++ &3O mma-rib7,%2d %6d po=v s[t]MKl%c/X D|-719sh Fp< ph:,T0N4 !X=5 2k]=' '! 1w) +*+0 88j,dd11mc",iP1 r A }g1-g##'ml###H1 %%pa Ԁ(?,D5$D~J6 l0,J/,calc,x8834Ƹ4o 2'1f%4fp,"%>f+?`#$x 0> +$=(Dx<6 ? QP+!E-log\ :-`)A [2/20.6Px/>x@!~ 2㿗f1U##@"p??0 % `fr 1󸱒p pa,vbIncomple r25b 4fa(a,& )pM,f1# #F$q ,,$Nex,),0 %`hFr,;,ޔq ,',--,,,,,!(,(( -)."+0.g1&## sH\\\/\d1 F%DHsHK%i UE]1='ROv(&5">E_NOVER2 (N/2)Q4QI QQ;E ?L IN;H :x=0.25*N*J&x+0.5 :X x-! ij-00z+0)VNormally 'oګZ'7 5~ g=yx*w y x*I `FJ?:O8) > 00Z & /(1),JǠk:Jުg%1 ##L܄ ucof81 %p} Ȁo?UUI64cSQRTPI 1.7724539/* Test Gauss-Hermi e i,namu0,check,*a,*b,*x,*wOPT^b (yVZEnt`er N:9#]i=1;i<n;ima[i]E 0 /b[i=i*^a[n `b[1] is arbitrary  l nPtqli =1U2(n,a,Db, x,wn$ w( ,0=@+= w*#1f1 byLA R>_Ռ74 Xܳag1B#$ Gher5b5b5b;1 L%p ~ Gc%. WHC?ByCKKreturn cos ; vyJsfloat p,x@C; H(S1(,n# e @ Yuse GG AUHER<#anH 4#\ nIl M2: xB~A. : #4*exp(n v vj )*powu 0/*  e Yuse of GAUJAC for an .ak35O1x1!!*fpunc(>q!prf("\nIntegral 3: xBx%Actu! l: #;* ellf(",a&k]!%e[g1$$#xlag##C$#`##1 0%#p1* ܀##","ԗ *! **i$Sl\f=)׫1s#k@n*(n+\ @w,)66CLAG6oc #]/*k%Y#VM= JSSF+T[OOg*1$2 $I@ O#e?OsOOOOC1 I% sp'p h ?ssuTs{Gp0ce00HOINT 10`gX1 ( pkZp3 hy'_3return x*V-AX$\xF2x=vector(1,NP;C P1(X1,X2,d$p b%2s #","K?"BN0;i++)%2d@ i&,oqemonstratk5Ak+tionv3zx'(6&zEGvI A P9FsI )XX1)1-03%P3'Q~qfgp  1X$Y$  ssj61   %p)  ؀-scvޖ~E2sMP 6j,k,l,mJ**ai,**ub *t :} 6Nai=matrix#,u* b+M+ xV t+b K (E ; 0N PX=nD;k3x`r P &b[0k][l9 save E6lr testingRresultbs#wt+Mpa2iI0=aQ0 :` = ڀ-Vh0 UkK+m0x=b0DXinve`rt G*+{3( nPm!+18 Ga : \nN%]1zQ`!&0yr@t z+bxa times a:- @:`11u|AM,;jB`_%!j]`F@ Cu follLow(qeq ity`Vv1-,"origin alG3*sol'G1%~ K99r oSIsS.Y|7f !,l1^t@x &u" "*{73,Y@E2.@<b *free_Dt$Ktdx"u=P4X(Нd=1?2 $$xgcf@ enEls. %։ ̭ cbfƀȭ֖( l^Է-,val g cf,glnF`Sl  Incomplete G, a ",25)4#2+,X B3[ %8s#asa""aC)q (a,x) =a l15&if (x >+jv@@&@H,&9pZ6.2f%13.z62`q(%A(-)aP[ ICrgj1Y$$jixgoldenQ=1 `%p"j ЀQN?WЃjM! j2oZe-6emEQLX e-3#M= >f,j,nmin=B-bx,cx,fa,fb,fc,x,,a#[21}aIbMini Y1be~ 0G -100;*'ax=ib[ R=1(ax,@ ,TOxL,&R" 0== 02H 1]=& 1>8|&'D  W'i (j18j<= x`- j]) 44".n @d@1"$'$@@Cxhqr.cIfThen(IsMark("C"),`CopyTopic();A0Else(0File($Next()',`Goto< `C'));EB("cpb"). @@%  R@!w@Bq .R`9Y0 0@ @   */ |Tvx0I5 { ({1.0t,20 0-E3x405- I-6G7GU67a8#9.0};*wr,*wi,**a; wr=vector( 1,NP)%wia=convert_matrix(&c[0],3 8printf("$0:\n"NNP;i++)   }balanc(az@elmhes`b% ,wibeigenvaluesgP}P%11s Freal","imag. @C@ NO Bq*pmp5f %14f[i]Hfree^_`AwcQrAa %hB5D1 $nj$5DgDAMxhuffman#`2 CgD%Ӎ`W5D{F[ G1s mak,enc dec~#define MC 512pQ (2*MC-1)&AXLIN`E 256Ӄ kW slong@ i,j,i ,n,nb,nh,n 0t,lcode=E@,nc@q[257]@u* ,mess[1k@],n I&hFY$H=cC0,@)8n.it=lc4MQpn5Ple ft5P righfor (j=1;j<=MQ;jp[j]=sp 05gDHX ~kUUP#E/* struct a l@etter luy K Yt.datif = fop"P<r")) == nrerrj"Input C .D.11@ (k=getc(fjp^!^((k -= 31`) >= &2kH]++05ch=96#"V(N"X"&2&{2& 2"pEind $0  )E,ch!@P3lu %c %60luj,(cha`r)(j+Bj<], @By#c{FJ` bWnow dy toomptr lsD"5aEnFO4V!s( *),3u5=l# $B&,53#j]"2`Gwe H5Pe0..n]90nbT#G`5((unsignedJ )]@,&j$& $&b#nh=(nb>>3)+1@ M@mination (Aa single -acc)01{@Bjj`|`Ck5H49 #&HLb MrD߹iG#4(&i,%#i ) !e %oq)i #j > & DTQI: Nea "  F^2nt=j-!SLen@gth of" i d= %3~h"SDe$ 0 outb:y3tnxE! :( SD !z0nt-n)iTMay be ml spurious1"1U &Ħui 6P`w~JAM= JMiiPhE}` ReLM1'$$MNQ nt5559/ AMN@%5  bMPg 667M"/Q,=-z0<0 0TjL\,*xxLxx)  te yvsearch ; xx =exp(i/2 )-7` |c0sult_ jD=0adicUs x-o m$4s)10+ } - b%12ps %8/> 8+/ulin[256]y s i1,iEHIn:IEnteenWg in ٛscanl n;i^;%4{nj={T%s'.P2/1=(0,,n,(short)!o F`@bi2]=@A@iN2L0M +2O XMODEM: S CRC, Packet =y x%x@H9!V[Z i%IR8 Qi2 xff,- ~Q,Y1.25 aOaP Һ-CCITTREf"Y[1$z% [[܀xigrayDDD90 [[%D ԋ@"[Hi 3CBdjpng,0nmaxni`,nxorinput '01TluOaGxjp=(n-n)/11N\jpN 41)= Yn,D G[n]0( @)` ^!@C (Y!3 (n=;nB<ax;n]Hng=#"(nD;PgSV% ! = n) YWRONG ! AT8 %d0H1[H[ni);V!((n-nmin) % j p)) {nxor=ng ^ igray( n+1,15z[܀H `R`9Y : f0printf("%lu  0\n",n,ng,nni,0}  RgHt1$% t[xindexx.cIfThen(IsMark("C"),`CopyTopic();A0Else(0File($Next()',`Goto< `C'));EB("cpb")1 ܀% + Rp,t[| ƀY]]AK  `aiApQp' /p! 1 */ |~Tvx0J0D6 + l slo,i,j,*ZBx]*ad J =lvector(1,NRPPf 0NP;i++) ,B7 (NP,a&,Y )|=0;i<=9.0 v"=%10;jb{b7.2f",a[[10*i0+j]]!#Mp5,P~rg1nz%% $axirbit1~~"~`~~1 [$%~p:@^d ~SoS$fB fc"U#define NBIN 15pTRIES 10000~flg,ipts=0|nRseed=12345float twoinv,delay[a+1];2/* Calculate )of runs zerosp2C0i]=0.0KTdistribution<=DPnF0yd6s %2218,"proba@bilityexpected"for (i=1g1rifW"(& ) == 1E++$%i2<O jOjO#6OPP&&w_026$ab 𒀑R%6w:Ҟ`1&1j?V#1|!n,T 19.4f~0o D1)Bn]/W,420'?2 /= 2!fg^1q%O % *j4241 a*%pCp 7 2!D" 5#ton[16]=0x40L,0x8{N3;;;1*1--ru?---t2$Pbob'*jS tfzKKdKKu F}IeI } /e,1.0/(d@ouble)iBn+(zgC1 %%3xjacobi81 j30%p7bjl Zu }*1zj xMAT 3,kk,l,l@l,nrot#Pa[3]= {e,,3 Zn x} s@tatic .8bX[5]A ->-GO D  ' /Z=    0 (54.3 Pgx0 -40*5.12022` 6b0/bp4!=e.*3X ~-E"~I"R<Qq}A1Q/`fR18H"22_ d,*r,**ve/num[4]={,5,1*r=~< q-LEqFe=convert_ma x(&a[0] jip/4]1b11pjh ))[d:zrs|e `3(&c܀5(ePd,v<,&l(.[(1 Э%2dFiberTJACOBI oons0: %30 Qeigenvalue?$?L1]l124.6d .fh%K\\n^0"s:^^ ,3d#_ ",jZ0X PkB|v[k]`8k % 5,0) O!̔ G@t?|qŎ48@ǿ(?J Q0test=*llal}r[lNZ~i (k > likk=lIll=kI} W"P".P]-w0 += (e[ll][kk]*ֱmnA22Br1s  wY1@ mtrxj*.r*?/ 8Օ[ qa p~jfxx!c. >v~x,M /@b Bʞree_megC1@Er3m55jzg̔m1O %%m?xjulday jjej,`Njj1 Օ0%jp.m̘h 3ji8Hmf!f~i6%d,im,iy,  l&@name[i"januarafebr @march""al june l@augustsepteQ5o!^%"nov@"dec"0*= fop8 "da^1.0$")<.p  *s "q,b%5G A O%9s "mont_IyeaC@Nian 0e vent"jLfscanf(fp,"%d 0hM&idy583 -10 Z%6+10l1slim],5sL?T v PiC3(i),"htxtC19wYour choice(neg: ve to hn)?!& ;<.g. 1 13 1905-P2 0;iwmm dd y ?X[1OXaW 1 ?% p'qך/f *vLr.s0>nD200͞g>prob,t@au,z,*aj102{`"RAN00102 030440$q@0LookCorrel: in UV,1 2 38 gSKPai@of@ ..".I4\nJ ,17%18`$ProgramKall Std. Dev#babil(ity1C50sTx357`# G &91= ran0(umF Ԁt .g*)]1 4@} Ю2CC4A3 4a[e3(3#,M,&,&z,&9- &I17 qAi-1]bC3Py)3CC/7 ><\UJygF!1%%!RI52Ii%``CI1 R%Ip0J!_ I_B2BB 10AC*P 8`J R {int ifunc,i=IP,j=JP,k,l,m,n,twoton; slong iseedfloat prob,tau,z,**tab'txt[8]={"000",11 1 1 1 1 1};/* Look w'ones-after-zeros' in IRBIT1 g 2 sequences */=mat@rix(1,1,JP)prf("Are V followe`d by \ Qvice-vers a?\n"6for (!=1;&!<=20++) ?!=2468(if/@ == 1)z`test of irbit1:a@5R gR`9Y  P 0`0_ `*ZV@2PXp=i;k'!l#l<=j;l[k][l]=X0.0K!mGm<=NDAT;mBQk]*p2 @{!n=0;nsn,`ccB +=[!(&")*2 P)2)p *= 2 }`l)Уy 44r(=2pp9"!++a2kendl2(,i,j,&+&z,&8B" L271AS%6s",Vn]w" bB|8e-`3-P-1/0w8t"E"_pd",(@) (0.5 n][m]) 2oP b%17s  ,"(allustd. dev. ability23`15.6f \nHE5Qnfree_D?ˤ ̑cgk1`%%kxks2d1s.cIfThen(IsMark("C"),`CopyTopic();0Else(0File($Next()', `G< `C'));EB("cp1 %  R hp#Nk ԀE 2BEP#u 1H |Tvx&#define NMAX 0&F7 &Gj,jal,n1,n Bf actor!,u,v,*x1,*y&x1=ve/ `yytVHow hCposVn1)šFn1 > 2too .1UD6WWh0 nonlar2<|`00",&0@5@I0= -16t lEG'o@< +2 (71HAless x U0LaOQZVHgreaK1K&A!/xV) !)")Ҭ"-dum289-2-n')2 92<=B2g/7u=ranT_Gu=u*((b-B+u*'B7x1[j]=2.0*u!rvHv=vHvHT vZ%y`vb#(]5(y1,quad`vl,&djd,B+= demVDLtA-t Rg1%%@&2:6(`C1 `%p+Hw fp Z;fz2&2A-sh k%F2 ~0x2EyEƀInput Nx2C(scan8lu &n2WWWW&2=&291age] KK?V1O(TE˅7u-n,gas *1˕u+;eu-0Y-,2;j}awLh-F2a0a S t](}e2셰y2d2*1 1@ ;\f1%%4; one:::60 %: :0n +9;,A#o$L#z&R 1   .0 - erfcc(x/sqrt(>a}F DL25 .\-Lvarnce,*data.LPTSS~9ZsS>8ia: ratiok-s st! stic`11;iU_w0=+(i-1)*EPS*= 0?S; bs(6*,O"(,N,func,+060OANsAC47 >< VI`f1%%s`two?__D_DD90 4% $`j $^#6 G1 2;EWo2U?;SYO43|57J/YD1+22NB1[i]Ds8se5ICCCCCCfC3 7?Cqd"~(0 <45a<2[Us= J"'4YqNg!1>sg 1%b% <xlaguer??d Ne??1 s<% ddƌ` Wk #e@󉜿6Vx|1cBtv614l /* deg* of D Ô8_cTRY 211 +p1.e-B6y[* ] ,xV.&c a[MP1]={{0.0,}bP P{ ,-7} } f,its,j,n=@&V\nRoots0x^4-(1+2i)*x^2KL b#07s"RealComplex#iter,for (di=<=sx=/@()/1 /2(a,M`,&x,&s:<nubto̿~l~}z,08MvnZ+[5don,x4.ri{-} W}-i+t ~CaCsub(x,y\ )) < * x=00M ++nP52>jn q weW`1%=&`xlfitT7ToT'/ %4 TԊ0/`q J|JɊX4 zN,dSPRE AD B>ERM 5*void s(flo a[], ma)֬:0;)022C23ma77J0i]=sin(i*x&91h&ji,j(,*i 0chisq,*a,*x,*y,*sig,**co :Kia=iiMf  $a=  &A trix7P,?p+P$a0.1*i++$!, mPEK+jja' y += j*GT"_` fLl~sP1uJ<2k;iaPc ,r i@r,!,&17"U1 p 215para$me," er,taL a[%1d] = %8($,,V-! )-squared = %12f\n",chisq);printf("full covariance F& {for (j=1;j<=NTERM;j++) =PVT>[i][j]Z( bA } /* Now results of tricting fit parameters */y@i=2;iyPi+=2)H iai=0=a {R`9Y  @ 0 P`l(x,y,sig,NPT,a,ia,! 0,&Q!,funcsW b%11@s %21so"` #ertax yb1a a[%1d]8.6f wi,,sqrt(_ai])-squared1111 a($ +ngN1b%&N@ xlinbcg.cIfThen(IsMark("C"),`CopyTopic();0Else(0 File($Next()',`Goto< `C'));EB("cp1 % i R .pKNQ p B?q @2P 0 |zTvx #define NSIZE 59I20`ITOL 1o1e--75G slong ija[7 +10,22,23,25,27,29,31,33,35,37,39,41,43,45,47,49,51,53,55,57,59,6@@L,4',678910111+314 5,z6 7 348D,249}; !/s.0,3 `3sxCS2W-p#Pn,>Pb`^ t?Bt4W"G|A*0i,i[/*b,*bcmp,*x,erb=dvector(%P#x&NP;i+xx&.b 1 nb[1]F=Y[NPS-0&4(NP,b,x, ,ITMAX,&,&!$215e+"Estimated` r:"06 d Iations needed#$:GG^%ii_iP/5GP0=5*!-(1)+$< iig0f",c@ [ ?Vvۅ1 % 5)}!g)+0Gdsprsax(sy0jar "1  _is a / -0'2X!Xtest.  w(X7a*x^i8bO|?3&xt""`vg 19=&? &    min&`1 @  0%p! * m SGTZMT&AfB`& 9$քloat f33;#f += ( )* p retu`rn f;m CQ` ,sr2*%iDp=tDI(xi%[\nM@inimuma 3-d w dc cen ekY(, .f CP('a adia ls.\nK .ы |=01e=PIO2*i/1 E=s.) xi*cos(xP20sin0  M h|FL>v3UppspE*3(p,xi~!,&!D]*3: ",p}Z Je_WFOqZg*  1d&&   xlocZZZ31   %Zpw e ZMn: ns<0GJN;\2xGxxkEcreZyto be search|ed-#'e@xp(i/2 )x-74'sP>O: j=0 indis x too Þ-0+  u3 0 6 FA j xx(j)@+1)3/perP m QY019(0 +>2#k"(xHx,N&jd-if ((j < N) && > 0) .4flu 1  Y ~xq  ,j,j] ! . eL j ==[%/A" uBp' lim'V%q;5low5@'Vg1? &j&Pxlubksb?VVV71 % Vp. 䀃Tnb %!f~6& j,k,l,m,xn,*'G.,*L*a? *cL(:@<6< gb= rixPic b HK ~ PPX=n;k:x`r P #",&b[k][l6Save Ga l; r Fi`vCc>0=aF0o@ LU 0 ldudG (c,+,$&pj`olko,each right-hand J )Vt)v#(amGD1'xbLRp8eT5s 8 G^!|i side ;}Q *\n%s4"LfppliedD"L sol'n 4w  ^l ,(9%P*aj]*I03d z8N G^ 9 (BVc,|LX  2C,:P4 8"$:hB5g1& &>B BBen1B`NeBB1 P% Bp7 B>BDDc#AAAAn,dumE5,$*jK5B5xl=u HHE2=igp3fps\h!\pw!BB RR`9Y  TR12.6gV ! D3 ax 1 }gA 0) = -y[ENTER N IM,XOFF,DITH,NTpRIESKO hp %f tnH,&xj,& &0) == | SMWr Tgw'gn}2*Q >av=d!(J(nt=1 ;nt<=Ant T5 R @wP+V  =4,%!n1&&) += SQR( -+P sd[%fabs~(31*c07"/vA09/= db[m0FracprL: L,iDcat % ym_*} XR eVUW1&M&$WX[xm ,%E Nex / MWX% ׊0"W4Zn S tr]Vrr (VARqpmHT@OT 0.5S- ~'<@BD5b1,b2,b3,b4,xf=X1+I,*yout,*dydxMyOs?#3+y[1]=bessjP0(X102@1E`3#@(2,$P4P3@derivbsD,y,b1[Pxf 2YP@v3W` @4U`10#cirstlur 4^%$i=5@;i<=505.cX[_ ~ hd(0x!,!i,!K1J>v  k!V> !,b}!2/)3)3>4>4$ yPr  to Y"/?. 7rIg"Rr[BWyg4Z/\1}&,&%/\`\]xmnbrakXXKXK;1 [`\0%pL/\]b Y˿o CKԧbx,cx,fa,fb,fcax=i*\zbx=(i+P `S%14s a Zb cF8k3"x",8ax,z ""0f"`lf`\C^1=M&'&C^ oȅew llll N0 ] %_l@C^ ]%fC^1c R`9Y 0@ ` mnewt */ |zTvx { f@jac[1] = -2.0*xU;p2231314]=1.0B] 2][i]=Z0iZ`3s(@Pk03]=0$^4F 2W!0FpvePSQR() @2 `3])+x/P{b,`+,` @,J04J@e]-IQy-XD! K~ ʀ$$$r P0  0}""#define NTRIAL 5nX Ze-6p 4MF@jW",kk\x,*],**f;~"q"=matrix(1,N,)Ab=tor p2;k k++) X=3; `xx2001*k*(2*kk-3Jprintf("Starting %2d\n",k"04;iI`=xx+O*iC "%1d%s %5.2f9( "x[",i,"0",s0}3 b"0for (j=1;j<=F1\;jmp#xT(OLXF0usrfun(>D!BXpC@%5s j8"i vf@FNF!16pd 5qiG*! 2a |!N@QDG;Rree_5B'6:R ̷gK1,& ''8ȉxmoment.cIfThen(IsMark("C"),`CopyTopic();0Else(0File($Next()'@,`Goto< `C'));EB("cp1 o8%  `Rp8p\ +++ $6 %%f\5tPTS 5000tBIN 1HPNB (!+)  i=0,k,nlimRadev,ave,@curt,s skew,vrnce *data'D8P[$Kx=PI/w;x< 8;x+P4c=() (0.5+siC)*4?,0F W$r[+>+#Spi 0~ R g1! '')D4rove  :1 {D% pfVr c xт0~!j !!~IN5.,j,*indP 4-d*a @ ${ , ,34 5n$Z *"PGP?Y}tc float b[N+T{V/.na=cont\&aini0t[0]aa'].l.b *~ 4 )@:ludcmp(aa#'O,&d+_D4Z Wo=lubks*brxb- Y<nV`*n 6f Onow phoney up x glet`"fix i,#q) *= (@ /ran3(&idum)0 noXadQ3(a,WqbPrecrby@?񐪞Nb2~gV̔1''*̔xmrqcofmm>1 4%p̔k o4N>!~N0A 6nSPREAD B 291P,Tmfit=MA=4chiRsj be *|:s,ig<a *alph$#a[MAilTCgues:4t.9-1103.1Tia=r J,MA=  t9P 8First try ?two gaus*s s3d0.1*it (a d|y@P+= a8 *J(@-SQR((-a9 )/a[3])T(+p4+[5+ 6+@%<2*j~8i=1 !% nyk4\n4 %"OeMA4!mZu4ZU"'6)bE([< WMнEp ua:O\n v,"EN-% "lgi0H Y +63 !1pw@ZG]zxy+lllldddCK#cT o{FN$1` p#{g(71''+7hqjminjjeEj,j(`Cj1 h% jr@-7l ?jj-+jkgkkk61,lfi`,iteristxkzV>@alamda3,o0*xz*zzGzz:4.5:2>8B59 z_ffffahvGOhhh&D%(jjB ;':/,"k++!3=chisq; pif (Bc > o )itst=0( Xfabs(0-#0 < By)p++R L84) falamda=0.L0u0printf("\nUncertaies:\n") 6;i++) )P%9.4f",sqrt(covar[i]).0 b7@XpExpected result[ %7.2f v, ,2.0,35 005}`er == 1) { constr`holding a[2] ga[5] 4 a2`] 1R`9Y w ` Pfor ma[j] += "=1 1=P " free_matrix(alpha,1,MA  j)0 Se;19'',;jrxnewt.cIfThen(IsMark("C"),`CopyTo@pic();0Else(0File($Next()',`Goto!< `C'));@EB("cpU/ j%  RXPt;rh xA Q P11  */ |zT@vx void funcv(l n,fl@oat 0f[])f[1]=SQR(x)+ 02])-2"fexp -1U +*'} #define N$ 2 aǀi,checkv*x,*f; =vor(1,N7B85(x,N,&I , *0N,x,f94k9tConver gehMoblems.hD #%3s IndePx","f$N5d  i,xz,fK| ̲gj 1_''- ;ixode" `1 r;% Œ`)h dq rb" 1ےؒer4"xsav,*xp,**yp; /*  sc ##rhscounts 1evaluatisKS ,&<@B DB2Wi,nbadH,no2y)rtpr20U&yp=?E1,10>P? bessj0(x1 13-@(2,u.4P3@'k@max=10dAC=(x2-j/27 rkqs%rd220s (%3d." 7" ~;iM hfVFSF6 8tl6(i=1;i<\=k( %16.6Wxpyp`0(yp{&DR1$vgd1'O'.2xorthog?61 i2% pN{ Ā7ԆA`xT!#fI63 .0/,+xB n}&am$u06,xa,D*b8,*w nu(*betaFP (ȃ*NP -#J6Te. w[x@] = -lxyX H G+` 7W #C2#2*n-,>*:0i:`;0/(4.0*C/((i*= )\;kp2dhz w + =  $,i+1A! ]*i0/( r+2* v3(n,:,,'ZQgaucof+,b,@"x,w, Яwv8,Dn<h w u 8, e Yuse of OR THOG an  3Integral >4: xY}Actu! :  #]?4-[}I OK"r( I4N9p Bh<(|edC1''/Crxpade?88;x=(<)*0.2L6b$kgAk> k--}Fb *x= xI! bk[Q]d=rat Tn1T7!9P P n(x)f5cc,Zr }g1O'>'0Axp:cbnnen4Elnen1 %n݌`)` b I}^ `CHECK 15}@FEW 13FNY 17W\5$c=^ =(-PI),b=PI,Nf,sumPe,py2^$d,*eeddc9de)/* put0Scos(PI@*y) }%$,)e[0]=ew S=D0!ti=j & 3cky way to perm j % 4 *if 1 || 3) e[jjP[0@4$0Z |r¿gW~pp  *= O 8pcshft((-a -b-a ,Ke(NYAi.e., inv8ers9)F@...) we do belowR+3(e,cIpUY@Index, %E+=2yY 5.6eS@j,,e]&/pc(c,d>,u pnew%coefficied&ios\0+jL,d/(!+9 e-3: Al #fO6` P  t ed, d1shCsCzF|Df j4|py=a+ I2()#@ 2=py*py >=A.Ss[[a ? f*=( >e~ @"4h4Xf=(py5,:C'Q$e-$-f?Fw>(N2W>{g01'(1  &?&&&&71 A % &pR  ڀp&[9Jv;W4`+d ܇Kr{iim6 g!GO2),#O2,poly,vf+c[N8VAL !Ga[ JLj'tg2`T shifH ø. n 8* )=d[^[T 2;j>7$ *x+ec <~  Ag 1i>';(2xpearsn.cIfThen(IsMark("C"),`CopyTopic();0Else(0File($Next()', `Goto< `C'));EB("cpb")1 %  Rp3WZ 1R`9Y }00e 0 */ |T(v 0< {float prob,r,z;static ose[N+1]={0.0,56.1,64766.6,8291.3,9"99.7,115113}Pph0sporVp11,0.4R037 87566 1,1(.200'95Oprintf("\nEffect of Gamma Rays on Man-in-the-Mo rigolds\n")AP%16s %23,"CountCte (cpm)Pollen@ Index9 N;i++) .2f=5E@d4i],0i6]i "(0,N ,&r,&s!&z b%30s ބ PEARS NEcted > J|22B'B9 28915f@rr. Coeff. "d069586#8*pxQy,*yC "NP@px=vor(1,2*@y|N@P+10;nc if (n != 3 && 4 `6`21ի+08,`5-@.78p .`8[p93v0x[++j]=ny[ A*cos(*x)+gasdev(&idum&2(x,y,j,4<, ,&?,&L! $b5d I `xCp E Bresults for Qsignal (@x) + noise):ť !!=%d 12.6g/!~-|P.n,\"[n]Pfree_B6rx0'g1;( (4 xpiksr2?'''41 % p%h  'x9D %LJ8+!K~KJJ6T lZ*a,*bS4Px:f<"OP;P ,4/* generb-array)bd=i*sort a gmix b( 1R(ga,Y# |=0;i<=9l0Y Y |%%j  /...OHʌpb@ab,a  r D V"d 8Q܀؇g  1 ((5 I @ _3t?sss71 I % sps  x s_UczYFCtFw6I#uwFC??Uo iz15#3BV_edCB?;gI T1 ((6Txplgndr91 `%p)nT} ȀՊ}I wM!ŀiEmval$c, ,x`5 Ledre ynomials",20)9(x4 %17P4sP-ST >"m[ x_ a`ctualh 1(Rnx)V=fscanf(fpN,=o_ f"/ ,p&m,&, pfac= mP > 0(j=n-m+1;j<=n+m41 *= j=@ /(*n+cW "%sq ck h4 13.6I09.6e@?oK? Ne!!$F`sg1((7Sxpoi  ``e`,`N ex``1 %`p)u `_wWX! ,( > R00* *S`CAL 2 .]L LEN 5txDt[+1] 4/,klim,dist[@\d"My(Rc dox= <=UZ + j`@-ributAd, m%5.2f%6d" &nts`3DSSc #ULDNPTS_!Q%58&$p(,"@graph:k10=N;-*D.Edk k<=:;k0k]=' R'b. 1X=8)*)0iR ;\0<0 8.T4f%(!j`,1:2mg1((8 5lcoe5552=1 S0%p8 Ԁ5Tbp3CDCI4\,funcloat f,s u*dff,*x7 y $ =(OJ0) xayIQSsi10#PI\n$d ]]$ik(i+1)*PI/(NP "wrQ($ E0}( cɤewnentF|p1{{ m* |=X|WpJ (3 BKR%M#4h,yaf,!! 8Uцd12-|"50vQ Ƌ>&A ް1f1$AQx = 05+i/1Y+PT!Pq >=l0NP%4j(-a >Vj--{)*pj]+*b 8x,"h" z***VRpress  VSfree_B0S0r(N33SC87 ><:_M|gJ%1((9%V @95fooo ?1 V%p%r9999R9f99999M9Ky99I9999999997pV9b)-gODGH^ VGbbLA = 1+j|L!fEAAQ=!>3\a,yapNB@&y,&dy'0 mE )f+"@mA ("**0 sE($5B8B BFtgFH1((<HIxMF4t::F:FF41 GHI%:pH(Ku ::EMI\d{c$LttLSh@*i,n,nfuncoL4H$GyAT}Wgenerlon   Jm)=P...3) 0Tr ue [x 1is -^_A?5]BK0+}gdPQ1(N(>QQTxqidic enElsx1 ,QQ0%p&QTd -msͶ  PTS 500HOLES 10;}FUT 2?=tC(+n, 0pts)-(n)/ *si n(3 *n/5-f +(0(2(ַum,*dP,*fuSe at]40g ޾ :,9memcof(U_  wd[ ixrts(d@nwh24P,@Pc6='| Im Actualv PREDIRQTC TX*3K;D $ i,+@@I%Ad1@qp|gT_U1(Е(?_UU@ XobksNN31 TU`%Np2U_UWt gNG.bZC{,1*SCAL 40 kAL1~=A!@0}T e ?0=--Aw(,k=i; k<R += q!i]*@!/= 2@\ <1u *lUlUl8BG= y0rEJ7y9TtMA`}q 5Q!i]/:A!q(#1&.B -f@"3 |F.BCurx,;jvPP0jx]*r0#;REzProduct ofD D:h1:ԇTZOQ GK YA&Ōr 70\D{CK{pC z*J*-Q ++x1&6fr3[6PQ@ @̜f=\1@))D\ om~b;0 %``\] kk9g:`+J JL i6 a%b=PI O2,s;: NROMB*,D F=v!:a,b,XI& i s޼f21U))E2b!oqq<0 b0%`-2e WUѱaoݼd|3  INF ZE%r\*- *jl( f:x)"(sqrt(x)/sinm. u.. PI0 1nci/* updated Gwe'll use lr P :v@au#1 =W@+3!1]*s8[2]f qrdcmp(a@,n,c,d[i$ng |0find Y0@w if (l > k@d #@0.00} el?0=-- Bw(con1,k=i;k<S! += >"i]*@E"/= 2_eA\ <1u lUlUlp:MA`~q[j~Pi]/A ?p#1-B -'f@Sa3 ` F.Üx!t,;jo$!0q C #l}2PZ1j]*rb1$/Rprintf("\nProdu ct ofnD D:\nE4k AkOpQlK YzCAp,AtDQ transpoDbq3Uv'=,&4_3H#lar0. B)51)P {dda6%6W&qrt(r,qtu,v8& SD,jXj? iZtkjaRUVH?mFnewNH "t2?!w z**ZCYqX ~}}@ <(R #(9 free_Ix)i Iv u+%JsFaPra|Pp6SP@|a0+p  fz1;"))Izxqsimp.cIfThen(IsMark("C"),`CopyTopic();0En(0 File($Next()',`Goto< `C'));EB("cp 0 % l R  ` [z] yZ  "P8r$2 f |zTv0` w P   @"ac(b=PI O2,s;X NSIMP\nQF D(q!(func,a,b X& is s( afK1;)T)JK{xq1 `0 {%` [K]1qTRAq&!g{1X))KNuxquad3d31 N%ӌPlig ͱ ?q#3!3#dek e PI 3.1415927 W10#static \max3float / y, 0z)return x*x+y*y+z*z;C%@1(:080 -sqrt(x\*-=-=^U:2:9-9yyuPxssp5pP5p'4`4. \m ind&[Integral%r^2 ovBa sp hericvolumed NuN@ jLz'g[%13"%11s ,"radiusQUAD3DActualc(/1*iix = -y\#5aMt2.2f  -G,s,4.0*PI*pow!,5.0)/ wdi 1T)z)L 8x 7. u8%É04 lX 9s#s 0,1 2 3G\ 5long twsj[16]=0x40`L,0x8NQfncFS1Cx*2P3P4,1*x1+x2*x2+x3*x3+x 4*$Tvoid HegD(*$)( *)U$ 4),iy[4],Bj,er,k 2j1,}x4,yprob$7H Calcul; s pi $sally p3unit n-#=3;i}vib^66 , y3, 4N"_# po,s@(4/3)B*0(1/2 ^2h 8l kŽ #t.M15= .$k=&Bj-k>k--Ox1=AQ&idum`iee>19120(0 49246T 375290457334> 6do3N4;%@4 gep : 8>P4y5`.6f",N`,cIEEE >s==`` @; VAX;;; aw@i Cw7 ><j?sec1z)Ǡ)Nc@Wk?Nex/ %P=c} Ȁ(Y(s&7G+ @ck@~jIxA}9J06FH lSsl}i,j,k,l,*pindx`$*[1&8"=lvector(1,NP$S1 P f LNP;%( M exx(NP,a,|?q Ƙorigin y | i<=9sW0)'Btabl1)>s )SV 9)k=00)h)l l<=ljH)1l] == k) b=aӯX;%7q "C4TĊ,DR}RR;wg1)5*O`x t"=]'""(`"1 %={@p k~Q$JWvXw Z]D#define NPT 6 flo at f(0 eps){return x*exp(-x)/(SQR(x-1.0)+$*(H;}D 2yy,Pxx,y6, * x,*y;i _x[i]=i*P2.0/;f(,EPSZ[printf("\nDiagonal rati 1 \n") b%5s x","4erp. accuracBy tual/  x=0.2*Fi{Unt(, &&dyyU=xP 12.6fB %11f3s y,9!@I59 BjR`9Y TZm:gm1zǠ)*Pmx4lsq.cIfThen(IsMark("C"),`CopyTopic();0Else(0File($Next()', `Goto< `C'));EB("cpb")1 %@  RpJma A !#%*@ 09D 0 */"|zT`vx#cM@AX 100#/fn(double tatan(t¥ j, kk,mm/a,b,*cof,dev,eee,fit,xsC=dvector(0,v"yRe GmmXBif (scdan%lud",&a,&b,&-&kk) == 2(fn,M`,&"for (j=0;j<=mm+kk;j++ ) {S(%3d)=%27.15ejA[j]#Smaximum absolute i#= mP x6:s @exC3U x ((SA `2C#Ld-- ` kQA15xs=a+(b-a)*(j%/49.0=val(xsWg!!E$ =Vx#9 .595.7e@@$s.-6:$  R1rtc{15**Q{(xrc -$ ` -%  Ԉ{(r # DTAT5c!~6ކ l03',64` Elliptic Degenee RC",31)J2("6x$16sT8sM"P,"rc)6J$,&t6(8.2f |&8@ZGRc1* *R xrdNN@N@N6-(%@0. r@~]@J@@@bd@@@@,zBH BKind RD>2>>8 P%20?zCd(z)E#%LP2zSUzW2LPY g 1*}*S K xrealft81 K `%p _ o ȫ &8 !t3I32hWIDTH@ \=NP/2,nli;big,p er,scsm@all,*d, *sizeKVP=H1! /2+1Period of sinusoid in channels (2-%2d)#NU z('qj+ NP;in,cos(. *PI*(i-1)/2PE02( NP, E 7tsqrt,X -1])+]"SmI50 >0)5=H@ &K  ވ5: 01]=~f 0Cj01)1n+<2<3Al="/f:)=( ) (0.5+|o" +[]m%4d ",i<98{F g I Gb O9Tz |GP" ifree_K>,%L7_ 9 n#}ce1 **Te/xrf=-%0-e/@r [.fE? First 7FU"fz;,L`c1}**Uxrj]]]]]-/`%G0IrG G]GGGlj]GG}'p+!h KKTlhiv :JK %+Zpj9,p@p0X|nd:1V**V:hxrk4?vvvv2. h%Tk+:s wӄ$ʾ5>k4ZN 4 *   ) || (0/pmPif (++ <= In bd d CA]Fm  R1 r&21r7 @A,!r$?4Dreturn ;SF#define NX D32 pY 8pZ 16V"00$08a" 23 B,i,j,k,l,nn1=NX2=NY 3=NZ8loat fnorm,dat/@2`speq1=B% =(2 )O* `2 p3/2K%1=@f3tens1~} 2G!!| =ma'xC<<1$or (i<=% jj2;jBX%3;kB" [i][kd]=!*(!p2*ran1(&i dum)-v DkHW | cBb`d7bMQ%0,/w!5!3, /* Gwould be any processH in spaceNN0/T"",21EPS,qeP7VC$ison sOtole7 7@fTota@l ofors is&W6W^D ;Es OK_b'w0BB162`6ٱr 068Gg]FI1**ZI4IKxrofunco99Y'9`991 kH4I%h99׌PIIKq %:: RDU>7 !?:Gx=~Ix |8 `~0= R xt=xY yt=?0jxv@=0.1*i~M* ,9s  "b"ROFUNCABDEVT"'}= - <=܊ b {+0.0"2X0rf=l2(b* .2f %9 11 x=b&)1wJ[P4IK; FNꤓT  (Q2QqzfIK;L1_*9*[;LkLMxrtbis?qq7q7730 KkL% q`.;LMmq I6quZHH9o%S1q  1 8<0@pru:, ZH "8 \acc,roo"xbxb%Z ! Q! @D E =!(xfx,9AH,&xRP- - fgkL1N1a**\1NbNOfls~pgg-g--51 MbN%8g -P01NOmh M-h!јgbN*P19**]*P[PQnewt``&`&&71 O[P%p*PQu a& sic void ~d; *dfn.dfE.=bP j0(xX 1 IIII{QB( MMMg[PR1* *^RR 0257k0.^20j`$jVJ]@4) 2PTB0\ 6 9/00/ P$10> y&[V z/v̶7:528 705!1551 @0'@2z142:0C02@!4B 28I0~3G!  &020?0"#(c1p;EM nl nr \tSample Savitzky-Golay Coefficients6@C(i=1;i<=%";fm=2i]1Enl=B@r= B@p]Z+nr+1;savgol(c,np,nl,nr,0,m)for (sum=0.0,j=1;j<=np;j++) ?+= c[j]Bprintf("%1d  1d\n" ,mO0Kpj=nlD5B0 ""," "j]K dR`9Y @ &kj>--) `7.3f",0nr0*np--@ b `Sum = S -Compare answer:\n%s[i~ }ސNMAXq gB1*+bBsxscrsho.cIfThen(IsMark"),`CopyTopic();0Else(0File($Next()'@,`Goto< `C'));EB("cp1 s%  `RpBI `A !!1 0 */ |Tv ,{͝P1(fx\gs1+ +cЃ}xselect\\|!\`\\1 Ѐ%\p;}} w6\[a7#@CGS[jc0pQ ~ Ax16J0 l slong i,k*a,@*b,q,s"!P,f &@NP;ij,8ydInput k|$,3pbs=a x$=Gip(k,NP,a$q+Z0b3F͓ross-check SELIP %6.23US+Rғf1 + +dDuiptt30 }D%t  ssVfu아T>jO2R |Ai<=9j2y/v}2i,100,~" E1/'Oy"tFfD1 + +ebxshellssss60 %`|bx L|N 5}Y\nOriginapl z!(TFpSortedDhg1 ++f+xsimplxZZ81 b+%pbFc Z_Lj78p =G#define N 41I /* NP >=0 N+1 %PMP| 6 ##M+2/01 k01+M2+M3 M02 1 3p`M1M2 ((N+, )Rcase3*izrovposvG &[MP][PNP]=T {21 0,3> -0.574L- 2@ e7P5+0OP4 9IP0 `K`.0}j8]#@ txt[ +10 ,"x12 34 y"yy3"D*+pg jԶLL 0#e!=iv or(1,Ns!Ma=convert_matrix@(&c[0],e PNPo3(a,M,N,M;2,M3,&i!G1!g f ( == 1)\nunbound'obj fuRnonIec C-Dno satisfy !straJs &gFPW b%11s1n )g0T <)x /P½ܞ rp[1>ys@==/0Bqj0D7O an 04$B~fp01 +k+g0`м6&r>0 `%`#)0_ S4n 0fr//VAR *3>fX(LfHTOT ӕքa1=976,a2=1.4023,a30,*yout,*d`fdx,*dydx;}/y=t|g0@O~=DA02Pf^yA=y[2]0 3]cerivs(X1,y,jacobn@ P?^Test ProbleDm:Dfor=55 +=5;m"(b0S,{g,i,7!0}9`W |["d'$s v  .bessj? ,a1U22)3)3Nfree_F q nF"<<g6]";rDB"tfS1+^+hS"nft"""GNe""0 %>`S Ѐ˜7<dat =(E *PI*()/2P!(&XP Ig < )=Z@?'0> b@ig) F JDn =()d (l*{ -small)+E8PS+ 7:h4d z iT} Ȁt/g1r>8ח NN q~|,,,ma,7,>*Zxg1k++ixsncndn8[[[o(1 %8Pћx \9^`H|-N!X~ 46R( lԧ m,emmc,uu,val,sn, cn,dn Y<8`Z Jian ",26)F)`#g*  x 8s %15s %18s"m c( u, actuHal"-"ss`n^2+cI ( mc)*()+d$$em,&&5,j-e$"( &&&dnc,l57 X.5f@2 04s$*sn*cn),(em dn*cGI+9 BV7o_\+l {gћ1e^+~+jxsobseq^%^71 %%p4^W |r_~z  J; i,n1=(,n2d=3*'[nt)F1(&n1,*32Sv`20 %1 IT5dxxx?S&ɽy0}}d1o+ +kڀ?{XX{{E. ڞ%4X y-\k 9Vڞ   P @& sor */ |zTvx #define NSTEP 4/33\. {int i,j,midl;/**bP,**cde fu,rjac;i a=dmatrix(1,JMAX,0)AbPc55PdPmPPekkPfPuP;i++)[i][j]=*b@c@d@1.0'@(-4.0:@uB@0*0(}T=/2+1] ڞs R`9Y  `K0E#f[]0=2.0/((-1)*P=cos(PI/Q](a,b,c,d,e,f,u'1 pr>f("SOR :(\n"_=v") `k b T d H~jT*GAn ""," U I &.4f",oA|!QpeBdc)b>HaS BeX1~++lXxt.cIfThen(IsMark("C"),`CopyTopic();0Else(0 File($Next()',`Goto< `C'));EB("cph/ % k R BPOXx B  Td2$tŔ~Ŵ6J0 lЯ*aI4Pf NP# ,|=0;i<=90(NP,a!62 2fm1 ++mm1"274"`0 %4 "dm .b2//V/,*b266/* generate b-arrayw`9=iC*"a gmix Nb( !R",b>$~3 |1H0;j WH...Eʋpb@abB~9r1D VV6 eZӗf1+M+nn%3ooZoZo50 1%Z` d pp[45-3]ŀ))ZLE0N 64!f@dummy[] ,amsg +1],b cMm3 ,*7 ea=vectX1,l3:c%(void) strcpy(,"I'd her Ea bottle i n fro of(9at9@ me Ua(0al lo<omy.(X\norigin L%s!read yofndo`m s$ff`gets(?! ,fp:j*5c ;j3 cyycT`d =1- Tya whŕ ingh$O0t#( B*0Ascramb Maccord5to POb]=gb];  null t(ermtlac j+ѡ"i-1P@j :qPdAu!` ;1bjW,S!P=`mir8ror`exf = JHH <zSfree_CS zg5E1+N+oEvxspctrm?:1 v%4 ڌP8Ek [و?!z116oTRUE 1oFALSE j,k,o vrlapi5p,T*q pfuMq k=8I0=y!(fp,p,Mg`%.ewindk=16;p 0 %=` kd7-S?dddGDAT 20xMON 12gprobd",rs,zd,*ave,*a102,*zlat,** svexQP@@'O=matrix=@if  = fop"t2aS2.9r")) == nreG("Dc J& (Ofscanf"%*15ncA, ;+ 8@e N#0HH[^01234@56789]i ty$ S$Ta 58Rn@[16]='\0'v D-!+3#%f_& ,&@Ɣ:txt6s$912B1sd4mon AMH#ap9& 'Check  mpure reions sth :zA)sunn y >mG places also@e0?v0jsamplM PU.S. lradi (july 0)\!P Z  k29 29s ј%11TT&!!\d""st. dev.n $vh%man-r@rs1<TR -/-;$'vj*%(_4^4#&nd4& rs" 12.2+.6'fd48p *dDi#S$t `Pt;zg1N+מ+ql; hbeNs&Elex;1 %;p8q :j?sOrj@ l%:i,n,nvallosj,sy,sjpp,x,x>x`!6 Spheric,",26)4@H.x}; h b p_n,&x,&&=p/y4s z14%17M#"xէjy p   0po$ n(n&! 8st@.6e HCiHml> L;󆵍~p᫆}g1Ԛ+ğ+r5 fp~tXXX=1 l5%pC TYʏ[Auxiliary 0iSm,n;c2,dx,gmma;- edydx=y[2>@3]=0.0;g5v1zמ+,sv0lie20?1 %0pfv`l ͍.O?91O.0<\1x x *y21`x1=vector(1,N);x2y=matrix M,P2M;i++) x1[i]=0.2*i N@2-0{x1{; **j]}Jc x2*!}splie2(x1,x2,y!N,y2printf("\nsecond SPLIE2\n"!nat ural Jne assumed1$@50for (j=1;j`<=5;jfP%12.6f"|0B(Q p5R`9Y  P # b pactvu@ 2.0Kh!A`free_Ay2aGB`B ̿g` 1Nğ+,t Qnx!2.cIfThen(IsMark("C"),`CopyTopic();0 Else(0File($Next()',`GotBo< `C'));EB("cpg1 Q%  Rp' xs A  B "  1 */ |zTvx0110"< eloat f,ff,r,xDE^*yiV!2!!!!!C#N#2*exp(-&"),M,d ,12s x1","x2Yn^3 4(1$ x1*=50d'7eZQ&fZQnK d?t 1 %ff Q(Sgx1 ,,u7 3e$(`C1 n70%p-d h !Fses>\ C#yp1,ypn,yS SW4W-derivatives sin(x) 0 to piJG/* Generate dy& 2 0>wxi*PI/NM xFEcalculFF2}p q=cos;1h'@Nx'82(xA8 Qre0sultJ X%23Ce'` 11($)0angl(` F7 C TYh 7U.2f %16.6PZ{8<,-Ua') gd  1, ,v  Л7t71   %p   ր{ 0 wg" 3J-i,nfxuncfGsagaP'̛# kq+m1ӛ'P{usP+v!$770 aCa[NPy:} conenti `11 i `B   k BW p @g%q@+%@N%qW&-c^A6Callg4et lea,y;NPB Lsk%%9# P%17s&%x) f 0 H erpoio1B*9aR ;'2f#2W2ax = 05+i/10.0+P!?+@r4@ x,&y2 x 0ay z**R]P!s  R*c = J~ƫ]g#~a'p}g 31A,,w3d t rsax,,=1 d0%p3t ΀&i4,A2oI5F slongj,msize,*ijaU*s~aQ bf $=z2 4.st8 c \+1]T={,,v, 3 45.0}`MaxT L =-1(+b0+Hw(a})j=1;j<= ;j +=f M *xR=ftReference\tMAC9ICTUY]xcgd 1R ,,x =@^"i~n?1 t=%p'E dv  ~bin*aN>s̒baa=oKbB5tXindeHx\tc\t]a RL"Iklu\t012JiXC䏹CH) RstructedHI/A7#飘gd1,,y'#pm CenEle1 ^'%p'lNm .aFfpmk&b tJ&sssc,'* ІZ,0.50`  05P`-0?PH06)WLng1,,z @+tXN1 `%p(o l ߿nYgytD#define THRESH L9';p>8=,$7&"g Mkgm-cc(b] )MF$(og)3,", ||!||g %p w}xxD8xxKxoff-diag. Qof mag >): 4~%.~ ~iG~e~"~cBc~ 02~;ZT" @;~~~% @g%@1I,,{@@Cxsprstp.cIfThen(IsMark("C"),`CopyTopic();0Else(0File($Next()', `Goto< `C'));EB("cpb")1 @@%  RpR@By 1R`9Y 0@ P`#/P 1 */ |T@vx0I5F { slong i,j,*ija t;**at,*ss $0z2 4.0;n A=lvector(1,NMAX)Q G=-matrdix,P,/L3!( tQNP;i++) at[i][j]x=0.0i]=&fo`r (j=j< @+1]-1;NjT5@!j];0j;}printf("Orig@inal M \n"/a0N@CU xBqb9 Transpose0'0A>ree_A Aiq=%"19gBD1<,,|DDF3x$`1 CD0%p DF ΀Ds*sx msize#Ss ax,*bstatic@ \[NP+=R{o,123 45.0};tax3S [~2f!qSx,b0;Hw(axɂj=<= C += T* x3pC\tReference\tHAresultYS #" xdӲgDYG1,;,}YGG Ixstifbs21 FG`%pYG Ik _2ಾ!36/*`  ( тps,h rt,x1"x2=5y[4 nbad,no2kByREn`ter eG`Eif %f",&&d0) =@= k&mgy=y[2]=03V bsP r220s %3d&," 7,",#0^Z& R^fGI1,,~II{K^"f11150 II@% ] I{Kk\>[\\e\ff[[[[[[En[[&x2[J2[[fZdZZGgIL1;,,LDLOoermnnn71 {KDL%npXLbNq 𰀱n7@TτwT ~zi#define @NVAR 4`X1 (`HTOT 1.570796+2y1(float x) in(x)+x;y "P2"return cdos( *xC,0 Bdydxx-S  X+a[P <a1,a2,xf,*yout,*d2yGyNj6"2*"; = -/>5"J# 4[derivs(X1, y,xf=X1+? a1=H1(x#a2 2 @ADLOW |[MyLXS"er's R0ule:L`,i=@5;i<=4+=10c a u Ju10=a908@decompos e Ga; )<lPTqHyH*dFDZ$1(u,bnw,vP;d e imum  X3 (w >!)!=`&"smk"*1=*( e-6SQzero Y,P~[r`<`inrX[ backsub tute each right-hasideh 1sw}nV$ %2(l+ co B w4KGO!c,x40] UA^%12.6 xC`k0 c IRV~ q(rp?pP(3)*(sol'np )VVx!wN!\J,E/  I@#j]N_,I 4 w0? ("N*Б] ]˚ OFDu~$Ρ4SRޗ4_඘gTW1,,WMW\5en0`Nexd1 VMW% p&WsY ڀ5OF &*aavMvNuFreinput E@if =p"x3.datr")) 6Fp fscanf(fp,0"%d m,&ni% 'V *GĖmww3#33perhm  'P8]]VFMW[ .Y *writesults0VDGition , Dd#VM( u$T5a4;+N`U Hw`iagonaPl ofw]nOhT{\n@v-tr eIv?bCheckoduct againsh H2TA SrsY\v $$d wP@u*w*(2vCI *w[!æzJ @6u+v tƘg[]1$Z,-]€]tfittUtttU=1 \]`%Up]_m O4UU}<[f[z$N"mSPREAD 1 2 HOL 5, 2$916/)]chisq"-y,*sig,qxcvmk)}p6# =MOOLS 0s86OL"-#0NPTv2V@B-x[i)2*i +*(2 `3`4P5.0)) H>y8)1[ i2(xX,y,a0uX w,&&1fpo ly?var(2v0w,,V~]^ hhf?nhV<$*|no ;i-squaredx !@fleg`_\printf("\nLegendre fit:\n\n");NPOL;i++) 3pChi-squared chisq2free_matrix(v,1,@@u T< cvm>@ }g_1,-4xsvdvar.cIfThen(IsMark("C"),`CopyTo@pic();0Else(0File($Next()',`Goto!< `C'));EB("cpb")1 % R p8Km 1R`9Y 0@ @ p(  1 */ |T@vx0I60A 3 {}****v9static float vtemp[NP]=I{1.0, `0en2 `0x35 `10<4N `J0,5h `d 6 +` }w+1 0s]2tru[MA]S@25575 7U ] 1)t=!EC1,MAHMAv=convertcS&\10]n#s#Ng 77R(6R<; V21Gt3 v ><$ #",v[i][j]Y[ c}Tvector w@T%12.6f",wHD@3p*w,:tcoiancGS3dMApf}mmЋexp jFbb@6i-1S%[5a94e643 6IITğ1%--̆xtoeplzIIi%I`II1 4%IxtP`̆k I`HZ8c34 x0 G #define N 5 `TWON (2*N)YP,r[,x[ y ,Df30.1*ior (i=1;iD# 9u6.D2f 4.4206 7@3?`XC1s `C}eX1D--Xxtqli=/ Ž% ؊0XaMM8} zJh)Ze-6э i,j,k d,*Pe,*f a (] 4.3, yoZ,-xM 5.1py7p,--]o$$`i#H O #= l v &yn#0(pxJ0+🠄t0-.~Qt kĵ`+`ն+Ge2fNٍa==c|`red2(ad,e-( aEi$geMs a real GE5MF%fJtX=pk:0h(cT-[k^ *a[ k];Ne% 23dZ *0X*e alue"d2Pz%9(8>;*.HraF c /P~aE < (0 &4HT,,"div. by 0K/Z g#ӅhV0ꃰ]/PV&\Press ENTER to ք /왎oIen >ug21== -j-2coxtrapzd eNe1 c%p 2oh a+otb! eMAX 14`A|.return (x0*x)*)*sin(x }-02 /*x/07/p-(powH(x,)-0!Q )+28Sco>sSN1 ,bp=PIO NE~I`ntegr Ifunc 2^(n-1) po%sD CjiɓVt(b)-) a)6 24I=,"apu xp. ^4ˉ=1(,a,b,"iu. 27Ti,s}fc1--6580 o6%0!Wd XH(B2͒;m*af($HlJOn +#$$(#.6zp ]T 5r`0,"f=matrix Zfe#(VdiagonyPw2/",hif ((i % 5) == 0)  $2W-`BN2B.jj`ejj/* Check ion G.I y>fk]@i.jll l(`>mm mcYBP g a[lj*c[l  [m *a[ma WW ||?"b& 8N.0How does it look?h.OaYY*}qi7.2f:5a(Bf(x gz-1j-Ƀ--^idag&o&&1 ^%p- v ))p_#t^I :~AI20 slong k,nN,*supDersubr hs,*u:8$'80.bTduuifP = p"x2.","Hr")a$;p  Pfscanf(fp,"%ld ",&n(! 4 n4#" 1 $kk free_vector(u,1,NP{Zr20"Kr("dP fI$1-І-$Txttest.cIfn(IsMark("C"),`CopyTopic();0E (0 File($Next()',`Goto< `C'));EB("cp 0 T%  R `$f` GGGD 02kT2  |Tvx0R24#define MPTS 512 02`NS@HFT 10? Da 25oB loatob,t,*dat$a102;p U2=6B1,jGenerate gaussian 'ud6s @%8s 7,"shiftxability$1[i]=gasdev@(&idum ;i6 $( /2.0)*EPS+4for (i=1;i<=!^+ xeP"(0N 9, ,&t,&#510.2f (i-1m /"`+= _YT= JXXVR#\QzA7sgf]1Ƀ-؊-]pxtu888T888c1 %88ӌP]_ '99CS<iM h`i7OY}2}@ $16s#\\u#]Ǣ]]%11Aaa"Zg1І-- rx<ff?[["[[[G1 % "p%&v M\]GTl9kqr7!99 3h2 (2*N)gPER 8\'voLid t(4unsigned long n3 s 0G 13:>  0 C? & 0p gn=3;n<=nn Pn+=2q; Q(( )/2)mE0nM@*]vc02*;2-P 3 l: ޮ qx@i i r,*w~x{(*xN$W |+& 1lN?xAUloH 0.5+cos(i* PI/)-h(psin(? 3H/4!,NJFourier efun~cS]fRL77Psecond <=0.0,*w,*term  !x[]={1 5,z5,3.0}! q!!yw=d{tf_1(x,w,q3 R=T"%1d%2 1X Fw[",i,"]=",6w 5T D p%14>18mtrx*sol'`originalu<]d9| ? @q{C929-3}]1(G;L f>Ch|eWPj] *= x0@/' %1/33-w P5}fS16-F-x 0) gyM]ENT^ NDIM,XOFF,NCALL@,ITMAXp RN Gr usHmRrd %  ,&0 S!&b1&[) =1 b=sd=e!md5[!˃T@+j]=T#X 5Nu mb7  per med:E!=P!!-CX@WAddia:lX YYfrxee_JOk=2 R˔g_1--_xvoltraTT41 0%Tp!C_` Tm/]ݤG8 OGCą=g(kCuDs4 (k1Ucosh(t)+t*t\$l @A(SQR(0)+<k^@mldPDslPm@) ?(lzP-O -s- $t+$0t*&$`08iH <h12nA0!F9t,**Et{+=matrix M~Wk2(N t0,H,,g,akGLexacoln f"=%t), 2] =2dAg7.I `]ڝ4 absci`ssa, BQwer1, re P>M,4*2*2kLT?n=MVN9 _t[n_K 0)20 `" -tX;$$vAf xaxd}1F-.}xwt1rr8. %r r0X}e oq|mg,cO 5*tl$CEK33|WID slong i,nusedVt ,k/8u,*vfrac,thresh,tmpiLuh[W,w%!n6 k (4, -120) gfrac (0.0 to Z):\n");d %f",&k,&$) == 04=FMIN(1.0,FMAXA,& < itest=(k3-4 ? 1 H: 00f  NCEN-NWIZDi+ ?.((floa t)(i-`)*P-`-i))/(MH*! "*z!V!@!) pwtset(k!wt1(v,,1,a!Xdaub4\)!) ufab s(!thresh=selec`t((in-U!*e)b0u"n@used=0Y{Y <=~ Y0;+!SGLV!I ++Z} ̰-Pfor (@ai=1;i <= P2(tmpp-))@@=%F Z??b9"I0"pr?f("k1+1 %7;H,U#2Pdiscrepancy= '`2) ?\( ":"pin@ IN`%0@)0P@0) <'`"P "@M1,CA Pl@8PQOFOqNMLKKJlQ2SARFRqQPONMoQB1lPR@PLPr%PP")PP2@PP"DPP"pP"`pPB@Pb%P@P@PP"DP"/NWi@E?2??dȀi`C/iS@*sP#"P39P#=P"p"`zpC@z0cPz@9P#=PzЍ"`4eIGSf >5*: -fafbtBD .Mlong nl, 0*iPi@| u*cvector(long nl, 0h); s -*laP/*d==P{B= H R`9Y **matrix@r`TrhPc`c@*d444**iiiisub@float C!oldu` P` h,t1ewpewcl_@convert_9d*aa***f3tensaWRd bd v@oid 0vg%R."0n Ri@7CA P"" R; ZPdo0uble2 \U,T0X4^8P1<V #endif /* _NR_UTILS_H_ */b{BC1./CCnr.hIfThen(IsMark("C"),`CopyTopic();0Else(0File($Next()'@,`Goto< `C'));EB("cpb"),7CC% _ RH 0C&FX ~zѓS`##ifndef2!H_# inePV!!@H oFCOMPLEX {53r,i;} ;9`&qI}D_ARITHCODE_DECLA RE_T_W{$} tMp//OT!tHUFss0s|Hs.rMq`R|" ~ʂjyb+d4fto[]), iter, Rtr$amotrByDT*p, 4 4psum[], i CD | u*acodeS2*lcd@sign, #3nwk, sFa/ Pu MQjUYr'indxxC6  dR2 * `\1u2 2 1d!ansy`1` 26/*gammi6bes8si( \&FUJS tE҇7;tl0IG ւ1p !(rkpjU,0y,kҠ}-}qyCO0-CetRzSwxtacfUHAPaicoQkpnldtevHpA#'8SD *xminWbrPoydnQBT wpszd.$erfUfT 6E0@xp/ϴ` f}oAJS0TJ3Vpctln' rRl P 8lZIjm* 5:6 < > @)*4O9 0B Dhi8qB1113NRP n 3qd>elL4&`D b+Z'Q7 ,(ZHgas dHgauhe@U LK+P'U[ f2ͬl= fhj:lnK5WI p r^Ihpso rt(unQed6 VOa7 v+>7(xLn I*hL z kW/02~Xhypgeo(fcomplex%Ic  *serieQ%*d v!s@ icrcp  u*bufptrMle: 8 jhjr eD1EuoneN'-]gray5=+/3\.8rbiea isleeL`2]+RRWh ]zF5¦f7R;-.jul>du$ /{^yy) z.#P:-dnn0>:>P:Zm:!Fm5kvar*i(EO?t &*ite./X8,3s;stp5@#P| *maG kneg @i~ `ax#>e04lLaxUfjnr' m( PXmcy^ 'UkYu #(`NB p_Jxmgle:li"$ *(*R?ith-avL:nF ›5ط!$B *skewh4,m E H/,Cf ,I]k- 4  KT Y  Y@ \B`jE]b[z?l$#._ b 0[ f +L%PVLw@ P47x8 `3bJofun^U  :at$bi_Es\ ac;%Pflsp&&`D  @F UN s @ZKs0crsh Bfx7] LNJ H+b8 t })zrovDVipos P$d!u0$in3e =O RTVi /snrm4%F9oDA0obseq **/,] 7C ]t 'R`9Y 0 00@! 0 `@8 X Z/**f, /int jmax rjac);T \^` bd1*probd4*rs rs0f4h8j\1, \2( yMlQ nUpYr slong | t `ija[ ]zvAJc[], ` xfloat thresh `n 4UN z|s~ ]m p tot, ns tep, r0 -1P0)@ma%$*v4P void PEl)`dh4 ; `  R r42T0@tred2(J1 r1V 0R2 DD`ncallU1itm3i_!prwQgrFa`sd,c cPhi2ar(*g)(A)0(*ak@ kG0m!wt1@S&R@signfT @;!zbracAx2$b2*nb,f ; #endif /* _NR_H_ */g1.G/Ʉ}complex.hIfThen(IsMark("C"),`CopyTopic();0Else(0File($Next()', `Goto< `C'));EB("cpb")1 Ʉ%@  R<p}H ^<9rR p#ifndef&!COMPLEX.#ineZ!1@H oF 3@ {4r,i;} ;A`&q Iadd(f_A `sub/m
      ~REND 1`FREE_ARG *#% r_tuNumeri standard sh ler{$prf(xerr,"4run-time r.`..\n"0%js,;o|0#,"=now exiti~to symUp(1}%3*vect8or(f7o7h)aG =range v[nleh]G@A5v=qV((nh-nl+1+S1)*sizeof6)=(!v) in () ڜ@}i@)DX ~|^Kg YYn(p_o`( P u*cq+u'q?un ed a%p c s -*lB :DFj-KKbbJJPO2Nk`t ([?wyadjTbr fdOO/KK/KdoubleLLs!0MMPRûmatrixCrc.rm Idc GIt =4 .1**RmDm T**@ row E * 4Y1  F Cm += d-=^P5\[]a``p*ncolppd <0]P(׏h r]–KwPcP3A$return FIb*d/AcBd*Mc`B??? |*i)+` )kʏ._sICIGRwEqIa GeЛ@ LJD^W.oldd oTd hD8eBwtewcl)poa e` [( h..]ca[p ..k ] a X.i,j,= - +1,p1cl-| 0׏2T v*/RAzBbyof Vsy. :YF XqI.IsVeGf i lH,j=.0i<0;i++,j++) m[j]=a[xi]+rU convert_* = W!s Y Fdeclar,DYkC mann as where-+1g !-$ +1. + beZ l YTress&a[0]] Yarg nt.5e12c` !SY {//bԥ4'%bt̕(7a,7"133K16-13R8*f3tensl\dldmYI@2_@`}J0J*߲G>3l0dZSK#j= )(r=-/1 nr+KdQ"( r*)N/I0("i-rPvWRPrRA R0niR c RP*R*RpCabs\,y,an s,temx=f%y Pi0*-=ye# y = Pxx > y)1`=y/'0*sqrt(1.0+{*Q/ s r!w,1k@!+&& jM1^2Cc.r=0.0;@c.i P } W{x=fabs(Pz.r)%yPi if (x > = y) -r=y/xNw=sqrt(x)* 0.5*(1. 0+ r*r))T kP=x/y=y=r;@+ w /(2.0*wn0) ? w : -7Pr7pl`dB TR`9Y F} RCmul(float x, a)zcAx*a.r i ihCf133/Ղ/fbda tes1.IfThen(IsMark("C"),`CopyTopic();0 Else(0File($Next()',`GotBo< `C'));EB("cpb")2 % " R 0fCTUUAT!0_!UList of for ting in 116 entries12 31@-1 End7millenniu`m01 1 OneQy l<r10 04 1582 Dbefe Gregorian caBda( 15(0 adoptedg1706 @BenjamF ranklbornmp865 Abraham Lincoln shot 8 419AS<cisco earthquake0(5 0e9Si nk& YLusitania2923 P!@ho V a assin85 1934 Bo'e gClyde eli$0I2$0John DTer`0C runo @Hauptm9electrocuj@j7 Hindenburg difb6` <̄. V5,Andrea D01976 TeHtonOm plapsK!!68 Jul2440000Jh1Ld/.0i[lo`* b%(,EA PY4-Special i*nm$F o ry ,y)Daws_ 4 ,4 :99573606B6B5729709 201. 0.3999398943i <02538471Ordinary ɿ nu,x,jdnu,y0 p@rmy[.149034849E--r50682607E+00 2.102436 15!0520152392!J0N38340286J06.1740 810429P238907791J05[375672C2 0 46@5116282q[676 03.46205184J@7.979t904*4630313705.868083 -7.45X331pk3 014E+: BW' t971208007e9.579t873 -120!0<06273953+22.49757730T@4 -2.6508666+1.227850h50910BJ7.0396 k5 9.93>5f1!64.5!029= +11 461-4.536948225!521.30814F"R55 "Bl284B85403047AX 25722-0351+It8077Cc7.8513~"U90H18Z03232>6!l#s!B124E-$216180+08086350J!9!0J9H+E:DDw137 PK5!3429b 6.6Z15<$^1<780264ZYK10!"38#7C]34.24~3<70! ]3 8610{C?14C8.:34886H /d7+71"4.1g45;$2s 43.VoE-25175E+,737^!87r4D23LP$97199E+_ !f70N4@06I5r8B17P&#351$935H2Z746]42!{ 29R25G"6); DS9"1#!1T%0173! 33B1D$K0163S6\6UC6832sP07nEs66i6k6 g&&28;0. 16B;9292$ 38j% (540 @4f˦ 0289 ' 637V8k2,' g6.mSoT3470=8wGg56N3S3.2q6we6S#[%4x95505d3I+Q:#o6 w'452q(t4(Z&46U01634iA$(n45$mV71K86r8 93 W288 R10b",%6/0p (m :31:O%7>%w 2&k6(7 8438G7E =19394\(: !J0% 5J 6.47\38I 95083!0}?Z &%@7)H181k'|2E+: H w{D75hjT725?j4s 5]&u~ 5 0I;t(6!72V  55N7 6 77c 8!U7R6=*9p*09YUY3797F3 sUt9.6 O*9_ } 8C,6683~ wU1& 7~ K3 *7H '#4.7N{)UIJ8 s$_'54= X 58FF: 2";U)\ *t!4tQ2 &g t!329t!C+Q:P I1}34 'S3w!)7!9!2UI38+524ZUI <U)X | a; U J!8&Z p WM35Ty} T14255@ <42E[54  )T9K 395[" Z ?3 858iR) 8 R Y d RY11E { u R4LPw1  TR  RS21 R9W [R- ;: 'yك%35*4 + kQ;/ >R2U99A487e= 7811 I 2' 8RY00Q  Ϲ8/H 57 s !1Spherical 0[9Z sjnKsy0jnZ)Z) Z CU34: /5 J,q?MgT)D  147D@ 2.T~{/ & O) ju!1 8KN67/9p & ? b$0: BR`9Y 0  -5.2474971E-03 -1.929932!2 40 42 -4.8@615107/1!C 3.3300012%@1.0049875E+E 233X393e3200250E@[E0116868%03817733E5391336Ep223244 0 -9.508E0804383U05309e`289077u  !`47132 6A493786!2\E7j795,26\3.2395922E+2l\@50580524l6.7948"3F+24E0 H 5.721!9.26T14M\8L!14-13.7715819|9-  ]> JA##'215785030b375953RE20411G"4702296!Airy 8 -T 05 BM5338rB6893984I4343 69328-<07407 P4123N9F18!78( 73 53556086B03 99739|01@016057! 9b263f3@576161[00m6588011D896 7. 502 492661.194s.2883.9] 24EF!962]P77]0E031 6J5002491H 44P5725ZBqc924023(1591dLE3i0{H ^,P3^$First Kind RF3 8,.4@ 03.6A ) K mg211P78100!`@1n j0DjjP\1.jdp01}78210jjP61A Third@Jtn0w40#B429750Degenerate RC5^Z6#F|5>B00V 0!Qy82]I `|eJX!L!dre =9/:"'!!8660 p941r3* 88^A, 3 0(AP52366@P'4287Q?5e2.9232195@0b857)P `4.{71727谷2@303M!15ɤ19173@031 79PP46741);{ G \w_2h-q258xs Q15DE E636TGA1Pq4A"+ApM7^012?mnp1${@q81q4PV"J13845pFp# L2114P{@]1%Q@pp76Z bl4305€mp2 0989QQ1762Fresnel s6s3 ,@927DC07Z34345,#D4526124O I=[\&'8L%D9917Q 3DS Expo@nentiaEnXn,x,En(x)1&T &6^4k͵FZ ukUTkRR  97f() <p_6q>P,P! 5 g`>3458q$`x:10vC 96469&0")F j5U778p2C Cosine0 gS6177bK ; 9.9944l 2_*4: 6$P 9 \ @ N*B2 , $ LR +QqDT &L"2 # E u751 F 17,,74\577 -4 98,G@ G0  H2r$P4869$ 5 gIP8l@ oW  4}106{$ 8FM% 7f$  4!Y }$9 IP\(Q 5=I2CI`K58 $p "iAk.54564!64O"  (Q pH21>35 @f.oF4J "p @Qi21NUa #8U i5-02 9L B 04768[D} 26G0%ZK-o`q025.7 r>600067)^13p.9258~ 540VC 9 U x65.)e7.WQ . 27."* 9 0866.=m'235.Gamma TdseEiy#Lt0qY,J4<S tx6@ d09351Q4L3<P449s_ AK89 <^0q%499/7:1F#@69$27385D40E05We510EM>+80EN-factor1e ? kRu?2./7L%c04%u:39?w <<g0R]016 % 4790s$ &0202 ?Q7 #0.3076755Eq 329bE% (aN jJM1+E253=225E32Binom]Coe fficils|rVQM^FAnA "6WQu dqP:P5Q*4 P +AA j?0`A!EQQ36p1H}V^F ` 5`P}7%pP2 9 WQuB445S`P5jA -pB1BetS40/R$)S<~G !8NC]@ :p Dp,V*(/$0n4P2p*66@0$i4P:7.9(`%9]2J jLw=99==O0991c0?J_:B 0g3|@P72N:|0B[)s5O1)Incomplete Ifs  :1M7T 42OyLD7R2aC T%U\  8!EB8989 kL-7 7`X 9 79 :- TL35533SL9O 2B<~P@56CLP>F -C28`L9O21E;4nZ;,z747[`>P5.244 6^03 1J 3Z69 }QQD]S 2Oa145,c49!U:3KC 2S 4Lq3 Q ^8gM2X %~O l+_Vt32 9F5`863E 4044987[V359709`Error S' B62e)-u6J,8)}$D283~9NXDF0n c]F7780u#) 2 08)J4 08YbJ85iY0? < % 9 ZL5h / 'LG?09L76M 4=L83rHYx8900(?4?XMVq5>n3 ;B/048N#3O@D Vg$p}Z5CzV1S<131_5RVPoPuay460A 0>*J6@cI987<73`)+14660LjGKN[s O@bG J979414 i0.72241297pK07586405fBP nR`9Y 0 0404.0207001783J0r-5* 1775968-4@@3971493!0600520-2UP22389021g`651976 )Z000[7m@ w`"  60B50645P3 7P3p7 98"P7165a9@090333645935810$11 1`04h768Q110692611(1c 07351JQ(0145e!Y0 ,C q)534610`88257#151037567O@DP  f!%5 ia016940i!30851i188194h1/2594gQ "5215hAa49932<12iq68847ia2523mB0782Efq271xCfA!5474B1͂ 275791B >60433R339059b576724b4:40brD`A=@ca^@bq60bQ@ba766839b04682bq346364 fBFP/A//9531181347 678rq3447 q0318n75104}G6.450895127812115 ^24r24674CO2"`47863fq50ar3026R5806RdB8142420154R637,05IR0999U10081D1664jr02Cn, n>$=2k:% 1.0348489E-C 3.528340286 eDHG \MMDKzB 651X628zk& 2.537P΋ Q928/0@2.35777r,@39Z6$5z@2.611#4610\'61I z 8%00247700gz`0124E-1g>A15383Wg@1.ZZ842gP0`748611g03@qAh3.802qa9189^t0591P3}5' Jp!5>1I zP672wD%rFJG``"wU61B1d7404A@R3.622A@2z86808@23!7@r{y06 {X2y09.989);R5*482-!;bI8354$;7.85^13!;r 216183EO:R45E9B f911gE 2"9B!82 5.7G71o" 8B 1O5E2 7B8nx9E16Bw65l 52r98E^0d!4426L2$/HLS t_CDIe* 4+RZ25 E,*4zQZ920,+Y 4#HL6I0937$25.4-555S .6>5781.8O5/5 *2.27958V5289cV44.8<Y{o43 JC 302A 17.04811Z&2798+J6c6J4"564sA 28O 8 KD1@ C27 Eau53F'1>4  22wv_ 6 J1rDx24 JAC 19 82:K!365 "JOO l#QB8}47!Ϸ 1B5uA6 763.N 9 &Ad&QW 7/a699857C<910&tL >4) fL+47|07 o<06 I*HszBf0`6 A`/ CD348A![Q 67 SJ8609 oaZ  s3 I 310j n9 S$ 68j19?]K S! L9-94i]c5.|2]34q <a641]S1]0y K1]" 4{7D4>2.>|!J6]&!#,F0S Tp24Z~3 46z3= Sf230 3D8T12D 6D' 9DM k s4 3< 3  y   (uOTSI `Ā  \K)[28bkYF 49437@Ki9[ h OKE] g[4 < ϑJK08 "Jk;$561 kv2G bD2-uY;7.(8u8 73f 92zu;8qD';u_p@ :u +3XG w T+J, 09 89D9. >0 f;+k273$+5497" };o b o{Kpe>1 4% #5.?  Legendre Polynomials191" '? @\  g K= 7A&A93wUYF ZBBI@Jt p@74a:sh 7> 9% k:kpD5`q(L /= uL4bC JJR"5] @/g#0wqp *06#u%U[Jacobian g~1 @ Wi[G4uoT{eB 078Dr : +"J%@?L092@`7p*)a `c`0% ?Pe@0|S`g@, -QF3\`fGl6B6Ng#O {zOP6,Nr9so"p ]@"*4\`-1;]`-2P9_ hY[1Ղ/1[$\ JIfThen(IsMark("C"),`CopyTo@pic();0Else(0File($Next()',`Goto!< `C');EB("cpb")* i[$\%  R[_ x :MATRICES FOR INPUT TO TEST ROUTINES3 2Matri$\i[x A:[P)(m0)vSolution vect(ors&p[/Z3 2MatriHPm:F wHo SA -@:I5I\Ew4.0 m P[l `l 0*0@Rj:1.4 2.1E 7 9.66 1.51 0.7 3.8 8 528.8624 E28@2.9 C'7,.7Gp1\6 4X9xBI$\݁4 8.R`9Y !9.3~@4.1hv1.01v@mx2.datIfThen(IsMark("C"),`CopyTopic();0Else(0 File($Next()',`Goto< `C'));EB("cpb")2 ݁%  0Rtv@a a0 ( FILE OF TRIDIAGONAL MA CES FOR PROGRAM '!AG'@3R&$@֒,5,@2Z0 b502; 27`\`@"`0߂p069Z"52 3 1 6p&22w93M7m G38hل1&1{1ل ݆b"3bbbbbbR2 @ %bل݆Q pwbmRFSVDCMP:Number of Rows, Cdmns3FEC$b 5 ߪ:RRP5R`L%}hrW @s*a`6 6i`w555m6*52w7K9c2837H%g7o"4L5w2[241"3t%U 69.vh v1V?12v&spctrlT2 ݆%sp=)v? LS @7911 0.367270 0500363"D25597.@<87949383898A 81167 @52240[ 5 40416\0077375P F09527[ L49625@L3453A.@54758h 0>518 r43 53064523499060539aqP0118@79s1957647C 3`02282180G0D9607A0J73211L 20654CAF393D18680#534*1847283A75784s04199 W04W!n1293A1{4AA3 9XQ6493P@8812A3469n1D87A9!4(> JQ<1<_RB8634C34880)2D7761\@81PC765237483056(O>3p3b2BCoD92150L9720ZSJ7# R7e383AF00069}#l13Pc6"4l123)8C+01#B418432ÆD<673AL)0Jt53L2368"UF79-533$ 800050:D |@43r568e10;427"08242B26&6=D59R74SA0.2BD3~%DOR@223F542uA6~583661tc`D66F65L708647(p>iiJ6716DD:75P320U30b30322B860%c5 T91 D3fF6Y67V4]E5FJdAL12tV1h6@3f44=0681546(Wyb316L'53 DQD89224A29A5B4 mW5@)5Qè5BD351!71Of28k B[Z B88.588moQ5*887F60165L9ٓRL4G5H>409'677(O>l/6 (08YCTVV%D1W3@8{(gDs1 rV735@2H k$D685XH8-9(W(1"@411E37ra8D81 565$$09B7%= 14vq0 h Y3}H2q`1VD9H16ej7@I162Lx9RJ821')"|858% l)6dW062a$ ]37P}8(>ˣV 8m$1C>3=' \ de:0oD3[4:L[AL|62 H [2}U5 R&A 4`Dr0;@1 Bd' )#m9Bx714S dIB|40K 614?Jc `781e;30p;Y 9\a9 b098~S968!IL"cnJ;8 ':664&|2U\398M 93,G1=6@5^g&$,2187gdW1*L2QJWF^"EZAO) >[7s:7P1m|DD Y`D C17&H24nL@5W b VShGkX 4}"F$JA7f AZ8 8y]677: 7;F )+yTJ9;[" G0i*I 4I] 0*" {Df<W@ 64A312yY741H}L65 _ I422A'+ Z02B:(e>Em5564%AC b R98J8 __ p7VW $Bv2g7$1 3jQB-;t cZ !63 6Q<JOQKJ 6_7HIF74Eu A!d47JJD8?:B 1b b$ 1F :_gwC*7%^{Jk0`W S >D9mB0~Z XFq =@Au gN8 <(+>K8b =5 8>< O4H]4 7,"5:L1 Hd CT/&S ?DMee150rW/q0/9<4Ve1?` ?GF"7(ew> ;QD`5\8J4/!+,X:5 V62kO3QD c@L yK752 +HW d0W@69ZsoU>L0L 5W1B8 y 6<Hq˥^ 7-=l0AM> W6,<469LI cN1"VmC7 HLDJC 8g;,<4C4sw݆ 8970798 780356 408528:393 0D24251, 0.502A 0376329 B76091"0045445<(> JQR`9Y 0p0B6453c o561 516B0@6136/@68985047627007413059@5592\081337!90180L36487@J56904A3004#Q9252A93-0K1264V!09519x!0960<114+P5H!2'c@04n 790Q894B3P2015t! L2405 Ld31 98'10728695f6V!21/@4247?A1029SA93A3K4CnA0704A30V0B<2Y4329A@9!(w>8;;;<7s224y B9 37Q5679a0>19&! "8931L;02 R4818R1573075iB140dC34915%"42s2078814S54C0S26549!]B5514130#R@65`75229254112Z0"5S<5573503483673R16728343HC048002d09QD9d9T27K4B02<766SB0808 J3283V$D6ad7yyy"772CP0820MAFd01x4L48Q96F92129tc3\276Q3D805738!R733:3"$y!97$R68KD1y1E678330B8B7489SF; E@3839E7-)VN")Z1~5>E05 R8QS25 (626304<=QBlT36613} 0:%m&24f6#"g46&6l10O#6P49957 15 F5>L%6%3@1i$V7a5͛50.S32B-5813194sD734]BQ<290'7f0L94WF06e455 341663E64W98}o33X1'3572d6''S8d7975RG$ j}7GD8282v85f07671H225E6RC7d531G 41v#4G538B@*t36a76E 747((>pS199LD3<77011h U47_44 !B6+S82T +%XDX98AYC;j4 b97E7""#>26".(jR66U:@8i606Y815{$/(65 v58*2GJ1068G s6<027 [ ;L53[WL0H950;D<|&7s7W59Iz:0 qD@W76(b>!! * h:08#,j<:2EJN:60UL601/pl59, D7-H04<:4X]1R-C25i96Z d7%W49J L483 b54] T۸V1~V2Y{S1F I0.4iY-3L<64WteDZ8[JE2+7I9+Ip{f 0KEFn6\b1e+ 1?9JG,l>( >WWW*4Ry LJ. 8 0Ux65+7Fm8'7 y=445S QnL3 Wk \ 6>60UNqL387L-YD849 15I 2 = H_Fg 5 7o_s 4E\n 8 ?9h3]375P~bs<B9 W?o1OgB #E4 L 6N ]]\ 4-#  TL912O 7cC5 $ 0JE09( Y> PrS2>5<͒ 2I\60A B='>>o XQ5(EZ WN3fx7huZj#,_ 7H9A_11B B FGd4BZM$j \?9V &ym_3 (1 d58T87xM0d:69]LXK/Jk2'$1 4&in E~>Eq +0%H;( >8KgA 7%U.&= Yc ^8)^[ 0l@6uV2Bj139\[ XN86$g-vD844| R1_8F s OJ6RB@K>AJ8:B8 QhJ@N NeD=9/9CJ13Y ~<"&DT (^>7<_'Z1L0[M0dFO643499^2909M5? ?j 9;(Y>skD8g\ .:>Ml6W?{6J475#GD0BO.H@ F85Cz43 ?*68F8IL7M!3z06)10U O 488(>¨B39?DRVZN AD0{;R>7Js3:78b>+22_> 7^C:VYKlNb Oxb5kZ 2T/ 9`B@UIC/Zf B[ {k|07*X2/5ם F)7P5jLL9081'xQJ~78@G Skd8 2!a/ s A" 4Z 4,Q W*}64< A 1O_G] F97JL lD$/ 3@518 -W "U7?eY90F:FI_D 2NJ}O6z beY2(+(9x653P6LG 9(=>wQdeJ 4 38:Q ;7؁MJ>w2r݆ 051111 0.040176  46009#22313- 41506-344722, >5446D0521380PJ96Q) L9Z8-@F72997" :1288Z08868839813@7476r@4e05Z 6332 D31151A@D9874! 0.359902 `B4735f262@195P 357630D6830P68227@6797 00572563)!826551,9890 !Z755@F10720L9925PJ4949.@5BB1P!:04r0798(r> JQR`9Y 0A394409V04100F7 R818P09088J1x375B!B8384 2E8 BP7423 2L2%1L&45 R5370!514g 5!9.0 724B91@GA36528<29B010B9S1B5512@412=RB80B5Q3678aR5&3aF74R@058B!@7"-C]N8B-136# R413A2180OSL27193P04P#>825#6846q1a80830y2b4312901729(4>777V$5k!43916 09  b7}A56417811S686cF4871qO\f456D2479\S86808"337C0D4b484#F $106D26#B2771RB3-`;D51^T{6GT<5B,5 43B71167R83Y%$45O29 b66\`J66`5712k$Ws:%9.U3403253\P503|Y1@20+`08R68U7#A7&8 >ppj48BD6v3LD&9f0v2 ":5629V8B6365818b14R31C_K668h41{1}2  J1.datIfThen(IsMark("C"),`CopyTopic();0Else(A0File($Next()',`Goto< `C'));EB("cpb")/ &%  `RP["F = HE''Contingency Table for CNTAB1 g 2Accidental Deaths by M:h#Type (1979) :-(0jan feb mar apmayujulug sep oct nov d,ecOtVeHhic 8 3304 4241959I 4919[|480QF0allsP0 1Z106611/ 09 "o9 81Drown7Lp F1 58F * 4 "2} 21ire  7BJ6U5"38 327S 27= 5Chok j67[A 26k 02S2k3 8g-armmao1181016@ "30Poison13$/'1%2y22i,41GaXs-pO Q6y9{ P1&y7 5?' 3OtheMrdM\51? i141 0 81P4ihF G 1252G v  J~2b$`C/ v %PG < F<ډ}tuse chaptb Average solGradiati(watts/sq.m.)$selected cities?srqpode~c$$ 4avzlAtla , GAa3D57V6 2 1? }"23 #& 34. 0BarH, AKC" 5^ 0: O 4K# 71Kisbk, NDCs9}*7P-2m292c) Hte, II0x42 m D 81 43.5Pv : B- stonX, Mj1#2W6k%(g % ':#42CaribouLEK@Z 1#y, !1Y2g 2+$!Cleved, OHGDD$!2$B41DodCity, KS2"O0\ wc! 323 *2 6OEl Paso, TXal! 7e%4 I%3s,0%32՛FnJC{A~2* u1 h&3V+0OGreensborNC5/4v[3#~, 363P-:8OHo nolulHI" o42D 3 /C@7oLitt. RocsAROQ~2-W0  1F 1"E35Miami, FLf"kL_$g2p C!H'SNew Yo$Y4/0"?S#$P1@0OmahN13{/i&!+@RapidBS2[$SpO"#22/^I47SelWE'/7KB?)(56 :7O|TucZ#E 28 !U##3 3CHg!Wash $D#7W$_cHO)a 39h-1+}22 ~LGGG* %F =t Ce`st >X8:H 29.}&D3.87. 5D3., 63.b 8D9.B 25.9q 27. ^'; 48.1 b6f1 8U+.66.52.91 c015.1u76.179. 24C73.2=1 K 2_938@=1I=@+992{94.|6.5 :[.6/~W5A!3.U49I7SO! 831. WPa  5 5 4.X.74 g 4{'6H 495 Г'( 6J4``T!ht> yw D8dMZ5_ 68Y9jt 5i 8.27fJ1]o5204JzKtextw+enENA`()',`c0 z%tP, JAH ^ LsThis a of c,linst4 s.AVisiCacters zAon Ytypewriter keyboard:~!@#$%^&*()_+`1234567890-=QWERTYUIOP{}|qwertyuiop[]\ASDFGHJKL:"asdfghjkl;'ZXCVBNM<>?zxcvbnm,./ Several blocks of text:IT nearly midnight 0&St. Thomas's, X est day iy;. A desolating wind wandered Ynorth o hil0l whOak ha.tchC-Pllow?gBg8gitc@cupantr0s@unshin a fews !ier.Norcombe Hk-- far loneToller-DownzC= HR`9Y L ] NVSpo sugg'to a passnby Whe is:1presencf!a shape approtacglImr@uctibls A any^ bth. Itatureless convexity chalkVsoi!anordinary sp@ecimen"hose smoothly-outlrd tub`er+aI" Yglol m!remaun(disb3onsome gr:"onfusion, n Dgr5" hesgdizzyO :|piwt(oppd.+T" ccq  7w"ern side b6n ieJ[ecay beew$AE=-u ppsge form9a ASct, fr1#4ar cur{agFi(ky,;k mHaneo-# [tresh|elZ0loQkeenblastmoO Ywoobddflo@0`iCɑs- grumbg, oup crIbough"a weakvd moan. +dbleavesdimm!gbb3a0bzAtongu*3iJra;alferrey$n, f\Gmin a rgrouptwo3d am{ !demultitud#;4C!H> Ji::;.3Xt _m%-E,t5twigs bor6l ratt<6r6Dnk0sm taps:Betwen; _Df-ed,lf nd ?Rgvass hPorizW >m%inct>q+O mysiou"eWfXm$C"nds9eqWwh/+cea N$]ucFoDMFt*X iE66tou#*B4difmpogalmvon@{r8ubbl0*4+EUJ>:Wuu:GilanQTrakRpcbr !KDsoftboomli{c!hun+Xd%Ystle׸ :nwp"'B (regul{iphoni36a c edchoit !" d bC lla$ :, AldebabNelux 7f d.Toson;&caj% duP$Lks4 ^r b:wohrld s!M =,UJN= YMTlpe5vn enNs bes"U oramic b ;" t:]objyy( *(minuvyp&+r n%belook DupV spa> WI1afj d3ωAp ' ;#\/d,i Yim(A s vivi3 { b poet@ V W + hcMqin6W ntjoae *<,Wa tifiB t) nee sec:rh# hG~X.-vex; 9-6+")nLP? LS,;#Y.c !an<S+ pd mwrap~+isfu"5" cee _-gquiek..  ro\ ss axEJrEC c /  noi8 - h\ gbackM-AbeW  WL scǝ"majB Ld zi P' .Sudden-` 9bn8+_pl? #bLa& '%.v!u,gqu.+4FNS> !" 90'e';!Fa r Oakfl)  lIunߞ<  :aG0muff=Ll.wa5 g lto o]tag\)Y#hw/T. Kc #/ d 4X (P/pg\h 6??9$  "iix b1& @Dpuzz `ei)mer ?8imau% ho~ W@Noa`h'sA ArJ o tra ^?]gBdYG pqf 8+toyU*P+U=73F k6]9[ q} i~.iq v%fixeb U+> pPxG pX M\(}sD%0RelS/ra$O&afoo!jnd. Sy&Rs'& dvDl lam?,s j ? OqxBhis-g"Q(j$nd). o Wpeop |u| )!3'. D8el-on Du?% L@ en]$"s .49S>Ds])~f { gce n{rK, p2 i (Hp{ %g tw:o n p. PrevZ  m`aN f  6g2/a1g c% dht_xsI >Ivek& pr-o/olds-& a ,a *. h,* )s+Uas man, an advance ofsheep yet paid for%a critical juncture Oak, ghe recognised his pos0on clearly.7*+U> JUR`9Y` 0+movement ine new pro gress Ylambingof ewes0hav bee=0speciality "youth,J wlyfraindeputA-- @ YtaskgtendV Xm at _seaBsto a r$eltor no vice.wi@nd conNu1+beat-ab[corne rsVhut, b flut@e-playcAied. A}tangularacelightapp3 YsidU gXope:n Y# Fa rmer 's fig. He carrieda lanternQhandclM dobehhim, cameUward8busI mf @_nook@0= H966f8iel"+ tw?y mxt30.! .1+)`gdis?18Gg Xre\br\4!9mdxarkE1bstoodqG` ait.V1mo%thoughE yd:quiet-egy, wereslobwn XinXberaac4d}welloccupa . Fit' beq1bas'xutanobodycould-*Jean W,#t@eady sgFsns"& f-QockI Qgr, Yet,alq@if ~deAy do+t1k agercurCVdashac Y)towns= / f/who q iXan b1t,morallphys g0 sBtc, o7ktl"no0%mou2"a rul!A7osep exa!3gHrou:F*$, evenby-wmr2on%ralowqporI@wq!E%u:l2a:spe7%Mroptw#td#pure _$. Detachurdles V s`traw0uY@ `Rv~obucatnap*oSsSmg h m>%meek6)6@=GS~GIv`grusxN+$O%;'-b}, h&sild$bseo, cedr,Btoh im U?'CRWqcfe%wth+sur"wool. Tgi dr;agC~6*Fn-g{W- zz,W%'f@our le0 en$a full+t , uniSBa seegQ ab9mem+0bra+7ha6ubi8rcoctivctit@YanimalNjpPf6l@>??(Ck&lifNe h#dsp"aye+& (Y <vlwh milsim&.~#exu Wb6 itqn p?Z%nuffcotF8(!c[. %m!t w(athBcD g f  sacks!Heslyd}=v#AM7 _S95_biQo fG Y? k`4NXlong, Eq ava)i%:eyes. I 9Xt9 y unf9oTdi$ lrNUDB(6@=Qcd u2p? )M ligyo sl Oi##؉ itp "-td sy/ $T(Y_rl #inxadd;'2^fa#t gG % { jr'7  "lu asso )enjoy+  Vlw(1&[d9yUcr< !LhZ* i6Dg~oLvK) mp para+ t G S`urgerO8;Y i/ 0 1 a < aS mag ia, SL . r-oil,lڏ=h 3,Ag;efdt; !\1)bFb ba s*yup58 upp#hlag b .< Bs vi}s8 , ?dR tw, ?((wa?& 7S ed&H m+P A  ! XtwoR C9ho, kOn,-q-1ip cl$/K: s+&[ Z)|rmts. P9 #7molkeC>G>XXXX| MHMmp#+'Fr %o |%k'W,  W[+  Of/n(- !1># k-mbO\X3j.bPrD>YK ɑ] </=3t~y\K (skc sc3n.$ ? Im sDog-z0Aldeb/?KC3Pl8eiaI=(-w] YS  g X6m1 (O goo( "B #pea G%g\gm!XpeofHw; b a\uitry]g' , vdis,J my!f@-tu&+,7&s*Goran ggimon b lity, induction -- every k ofevidence# Ylogician's list.Eunited to persuade con+sciousness Wit is qu*Jisolaq. Farmer Oak wentHward4Y gpushed a$ittow)boughsp Ywy s. A dim mapunder Yslope remh Wa R occupia plaF,;< F5R`9Y 6pbeingVcuttI  PofEh@ill, sWatback partcro$ almoall Ygro. In0fro'R s gco tar as apreservv6ThYgh crces1 $gYs0ad( stkSspolight,ombin!1 mraFd/? WhBa`ttrac..A!stepp?u p7h,whA,leanGdown`pXAhSeyolosea hole, hulee~!interior*earl2yw+1tainwo women6 cow`s. By!T<!rag bran-"h_oodha @bucket ne700 pavmiddle agH:|p+17p+IHly ggs`eful;q7 no dectpi@g!~joksHrIi$B2beneath Qe sawA 0ird'sB-view*s@ MiltoCSatan 1Pa*sSworebonnet hegbut Fenerielf71  ak,h cl~f\lu  h "Tv"w'll gBoNme,"irdelV3+,Xs( ;|> J557yq!kn2 irpgQ$XLir_s-a sa w. "I*Daisy wg fetch ;$0E Dn ifr"tmyfIrXn'wb+$ ifQfk$8s."\{"Man,seli pbinclfawtogLet# cprovoc`dsa,yaw9s2yth wiMPwHkrien$ay!2 ZtxgsS"idA q e mu.Xm ou2rtve2 2 ;" ) @help m8f!stay5+T= HW]c]^"We9h Ogon#inu YertW'"}edg!I k.aS!u)G%=ndpcl1andWc&Dev!"reed 7asN2a tT0" !IJ'$abut0elyW$7'lo Y1mal$"diiF&indjWcol4 -f'7meicpf.+ ,grey@whee%%no?@(G tLfo3fol Sid~i0p C$o6sd** |@>\4aZ&2)|ph 7[7gof tur a)la: =m $J moin*inhav )s yg,Ati0c orH~by exF isstw! heep Ya Lucm $bu Norb H4"02'se s oatmeal!eX"Y aPunt;H Ir"Gs %is). '" B XreG. j-sa.=I- #[ : trcm , Va [ arbecaZ h6#= QGQcue uK+ob2fMu$ q7 _|sp* 7Mw $f*Gg a} JX)felim'hdra gF+ f6 y\"deu Ia' orizl߬ %4 m*or$@, N"ike \4mo eem{.seGm!Y5unk=lr6RaO SDld sm ,!Ygirly*dr6o-Bsfh tumud p k  $1E jK: @R ; =rB N W87P? LofwagFr -gl: X*. & p%*y? !Xb70ˍ1:, ok (uu (lF+wP}"&t#I/ i Ua neb0ula.re<7$lock.A GIRL ON HORSEBACK -- CONVERSATIONTHE1M uggbegu:D+. EbT,dQQT#.z ,gq rJ $as sa Wo"sn)ox'*%<  . L{"-Au#Fa/d!q= ?7 p"ǼV 4fooJFfN I;g<6B1beK\s[c P Nߐ 9lEnd;sib4@% onH?u@ YDdiga r݈l.>*y[ lo+, 0|am7 ?)7Xhu #en 7#p `ANP>X7 !"Fp-1#a(]Groach.) 3?3> X8h)O+\2  .Ao advyigwE iunc +&= +uA.&uA n *6;Xpf ': isg CIy  le-"mm ` I4ni tr#@ ghCy?yr C9- 3Usj)feb X!@, ma% benO h8bPwZwT %habv)q9=5/a Gu&ss {* W huD? ?9dexs* WN> Yfi + s4{ l2>N& 3^9 Ysky. *rapidity of her glide  _position Wakingfis&-- its noiselessn &0 hawk. 'seyesd scarcely been able to followw+tall lankpony seemed us+such dos, gamCdalong unconcerned.@ Thus pas;und Ylevel boughs.+performi@quite at homnyweP= H/R`9Y  orse' e g9tail Ynec@ _abnaltit"uhavy cea  Xage Y , beganAWadoptot,n iobvious-ient U Y. fS0ni-@saddleiitvery appar4 Wa firmse.Fu_smoo lHben T"@ un+a in!bwaysywprUa ccustdpendicular likwsapl satisfy! WnobHodyinght#1U' !MmanndeedsbyAt&h2rdexpecA<49? Li3!wo{tr$otof0Y#TewnellMill.HOakam,B hapsplittPa6nAfhaW1uphhiJu wag amBeweEA&our>C,9girl reLtu`xro;ly!now,ɚagFbrufro`W4. O\ncld# metv$Ba m$ilv-p/#wh $ldreins2.$whilst!HTN( an,R#I#ilSYI!!.Sosoft spir8alt^im lou0camecreg"#8 !1 YC?:P> JuRRSso as#'A~cow}tooklosg@waeDwou`E<+aYa)# >g0nfhoq E&raB[Wv' air`4a0 2 G4&imp#XdLra biPgexis c4X! be jes[ed; _r35saucAfssumpz'1ensive,*1 ?:zc>belcaWMefel!tbE7!rue.Laexce emphasR$|Q&a g[u V N2EmaWiocrorvnon8recog-pI ssur4$ W%awl( fad+,&,in3g+hadjdmA'fɕeraz'@E`mol$rtr;0Im&m3esThi1  dimin^N Ua |)starR-pkJ [6judg .)he#}R1 gC Z(X @='/@tz;" #l$ r r8com%iZ82yC Uvt0t2 cho=|%Zstfiu^ seBT{e E/yqPobserv7u/5sJ&g* #Q sdhi^ ɳ*beautyWBdEn sh' cl\ ic y-E*1~_ dom 0ungfig9s6 Mr[ghKi7p5Rerm6 o **mQ WrT;)gr ful*  `' 9= 51s u go!^f@ i cfuv WiNfhHrow6NyFei k E d,l&  WGBicism t)gKXpl &l5 qa ,Kc,: f i. Fr k(AV ut+r_J t]MAiek ~w sinfyM *m. HB+e= p  : dqs(gUrunN$? Wd&* if˺/irC:pinkrr'ct;+9A PW*'.?jch?fr>e II]. m<9uAUEtiQ *$*4. . YXbl !x&E" Ict,'4  W ߑP , _dz /u,kA  s 5nc9l+F?#g : "flew<t n).'O'cloc _mor)"? WI -B-#.'  ƳMY " HR<  ^85?1 Fi Youp qF8)Dqp k0#XreB+I'mtS$+ _%d? L:NN" A^Pinqu+c+rA,{ sba23i8 bEk/ )-w.m#5lBc[{ sunHr"6J: 7 d co`" Xw" No , '(Ipe)>sord "ac9'osbJa og_h   sG / .')' "I  m uR(d+SKnTewnMTrYu p"o ? >p JXI&,!"We?!psg rBVycM}Wq)k$ %t"/"H:-g La Y <6 IHTBpic vpt aCmA*_d 5gaz8aN mo d</X#n% nY $#deq OIloCst"G.A@MB< 'G[&zudden)[&8GaP Xf Rlo 0/;t n kic7'IA=- q6du|lgA[At"ceec>!1i nealp 'zV'S#(V )N< IAto reddening s a rule; a point in Ymilkmaid but of Ydeepest rose-colour. From YMaiden's Blush, aall varieties of YProvencedown to YCrimson Tuscany, Ycountenance of Oak'sacquaintance quickly graduated ; whereupon he, in con+siderateness, turned away his head.+sympathetic man still looked Y way, f&oC? L%R`9Y wondered when she would recover coolness sufficient tojustify him in facing her again. He heard what seemedto be Yflitting of adead leaf upon Ybreeze, flooked. She had gone away.With an air  Wof Tragedy gComedy !returned to his work.Five mornings gevenings passed. +ngwoman came regularly to milk Yhealthy cow or toattend to Ysick one, but never allowed her vision tostray in Y#of Oak's person. His want oftact had deeply offended her -- by seeing what he!IAE= HCR`9Y could help, but by letting her know Whe hadseen it. For, as law Xre is no sin, eyes Xre is no indecorum; gshe appeared to feel W's espial had made her an indecorous woman her own connivance. It food for great regret him; it also a contretemps touched life a latent heat he had experienced in W".+acquaintanceship might, however, Ehed ina slow forgetting, but for an incident occurred at Yiof Ysame week. One afternoon it began to*oCG= H3R`9Y freeze, g Yfrost increased evening, drewon like a stealthy tightening of bonds. It a timewhen in cottages Ybreath of Ysleepers freezes to Ysheets; when round Ydrawing-room fire of athick-walled mansion Ysitters' backs qcold, evenwhilst Xir faces qall aglow. Many a bird wentto bed supperless Wnight among Ybare boughs.As Ymilking-hour drew near, Oak kept his usualwatch upon Ycowshed. At last he felt cold, fshaking an extra quantity of bedding round Yyeaning'5EI> JkR`9Y ewes he entered Yhut gheaped ifuel upon Ystove. +wind came in at Ybottom of Ydoor,gto prevent it Oak laid a sack Xre gwheeled Xcot round a little ito Ysouth. *n Ywindspouted in at a ventilating hole -- of Xre oneon each side of Yhut.had always known Wwhen Yfire lighted g Ydoor closed one of [must be keptopen -- Wchosen being always on Yside away  Ywind. Closing Yslide to windward, he turned toopen Y ; on second -- -thoughts Yfarmer con+GK= H_R`9Y sidered Whe would sit down leaving bothclosed for a minute or two, till Ytemperature of Xhut a little raised. He sat down.His head began to ache in an unwonted manner, f,fancying himself weary by reason of Ybroken rests of Ypreceding nights, Oak decided to get up, open Xslide, g Xn allow himself to fall asleep. He fellasleep, however, having performed Ynecessarypreliminary.IfL12rfLLMbccbug.cIfThen(IsMark("C"),`CopyTopic();IfThenElse(CopyToFile(), `IfThenElse(IsMark(`G'),`Next()',`GotoMark(`C')')',`GotoMark(`C')')');EB("cpb")0 KL%  Rbccbug.c_hfLM? LR`9Y /* +following 1is ded by Borland Technical Support to "fix" Ys"Floating Point Formats Not Linked". To use _, it along  own on Ycommand line. You do need to call it, just it along  . */ void LinkFloat(void){ a=0, *b=&a; a=*b;}1L 1Y 4M M(M4"  par 1 1ul Helv) 7printf("%sMS Sans Serif10.4f Courier4f %10.4f\n"Arial2d %10.4f Courier New%3s %Times New Romann", Arial Narrowi,xb1[iHelvetica ", rooLucida Sans Typewri  %ZZnksk%[k77Zn%[k/&;)i24 0 $Book,9t9.DAT Files.H filesANSI CBook, Listing of Chapters Book, New in This Second EditionBook, Numerical RecipesBook, Order Forms$Book, Reviewer Comments On(Book, Using This File With No,Borland C0Bugs, How to Report8Cambridge University Press<Compiler Hints@COMPLEX.CDCOMPLEX.HHCopyright NoticeLDisclaimer of WarrantyPDistributing ProgramsTEmail AddressesXExample Programs\Files, MiscellaneousdFloating Point Formats Not LinkedhFrequently Asked QuestionslGopher AddresspHeader FilestHow do I compile and run the Numerical Recipes Example programs?xHypertext, If You Hate It|K&R CLicense InformationLicenses, Ordering AdditionalMemory Model, RecommendedMicrosoft CMiscellaneous FilesNR.HNRUTIL.CNRUTIL.HNumerical Recipes (book)Numerical Recipes Book Order FormsNumerical Recipes Software, ContactingNumerical Recipes, Listed by ChapterOther InformationPrinting Program FilesPrograms, Listed by Book ChapterRedistributing Numerical RecipesReviewer Comments on Numerical RecipesSave All Programs to DiskSave All Programs, DisadvantagesSaving Program Files to DiskSecond Edition, What's New in ThisStart HereTech SupportThis version is ANSI C.. Is there a version in old K&R C?Trademark InformationUNIX LicensesViewing Program FilesWhat is this "nrutil" that my compiler is not finding?World Wide Web 17BA74 CH18 1 CH18 main.rtf 18 $ 17BA75 CH19 1 CH19 main.rtf 18 $ 17BAA1 CH20 1 CH20 main.rtf 18 <2B21118D ReviewerComments 0 ReviewerComments main.rtf 19 & 595FC9A KandR 0 KandR main.rtf 20 246AEA1B2 NROrderForm 1 NROrderForm main.rtf 20 4BB0ED3FE about_nrutil 0 about_nrutil main.rtf 21 " E60B OTH 1 OTH main.rtf 21 6BA230A9E SecondEdition 0 Second/8&8;)Lz2CNumerical RecipesCan I Use This Hypertext Version Without Buying the Book?Compiler HintsDistributing Programs Containing Numerical RecipesFloating Point Formats Not LinkedFrequently Asked QuestionsHow Do I Compile and Run the Numerical Recipes Example Programs?kHow Do I Contact Numerical Recipes Software?[How To Order Additional LicensesHow to Use This Hypertext FileG I hate hypertext!nIs Tech Support Offered for the Numerical Recipes?License and Disclaimer of Warranty InformationNumerical Recipes Book OrdersNumerical Recipes Miscellaneous Files\Numerical Recipes Order Form (North America)zNumerical Recipes Order Form (outside North America)Numerical Recipes by ChapterReviewer Comments on Numerical Recipes%What Version of C is UsedWhat is this "nrutil" that my compiler is not finding?ZWhat's New in the Second Edition of Numerical Recipes?7Why Not Save All the Files to Disk?[]RTF_TOPIC_817009001_RTF_TOPIC_817009001_1aNumerical Recipes Routines and FunctionsqsNumerical Recipes Example ProgramsߣRTF_TOPIC_817009800Chapter 1. PreliminariesChapter 2. Solution of Linear Algebraic EquationsChapter 3. Interpolation and Extrapolation Chapter 4. Integration of Functions Chapter 5. Evaluation of FunctionsdChapter 6. Special Functions'Chapter 7. Random NumbersChapter 8. SortingChapter 9. Root Finding and Nonlinear Sets of Equations Chapter 10. Minimization or Maximization of FunctionsTChapter 11. Eigensystems!Chapter 12. Fast Fourier TransformChapter 13. Fourier and Spectral ApplicationsChapter 14. Statistical Description of DataChapter 15. Modeling of Data Chapter 16. Integration of Ordinary Differential Equations Chapter 17. Two Point Boundary Value Problems Chapter 18. Integral Equations and Inverse Theory&Chapter 19. Partial Differential Equations&Chapter 20. Less-Numerical AlgorithmsRTF_TOPIC_817009696addint.cairy.camebsa.c]amoeba.camotry.c̔amotsa.c̗anneal.canorm2.carcmak.carcode.carcsum.c>asolve.catimes.cavevar.cbadluk.cbalanc.c5banbks.cWbandec.cbanmul.cbcucof.cHbcuint.cbeschb.cbessi.cbessi0.cbessi1.cbessik.c bessj.cbessj0.cUbessj1.cbessjy.cbessk.cbessk0.cbessk1.cbessy.cӓbessy0.c bessy1.c beta.c betacf.c betai.c bico.cJ bksub.c bnldev.c brent.c broydn.c! bsstep.cӜ caldat.c chder.c chebev.c chebft.c chebpc.c chint.c chixy.cF choldc.c cholsl.c chsone.c chstwo.c* cisi.c cntab1.c cntab2.c convlv.cV copy.c correl.cT cosft1.c cosft2.c covsrt.cƘ crank.c3 cyclic.c. daub4.c  dawson.c dbrent.c ddpoly.c  decchk.c df1dim.c dfour1.c dfpmin.c dfridr.c dftcor.cj dftint.cy difeq.c dlinmin.c dpythag.c  drealft.c& dsprsax.cz dsprstx.c dsvbksb.c dsvdcmp.c eclass.cЌ eclazz.c ei.c eigsrt.c9 elle.c ellf.cq ellpi.c elmhes.c erfcc.c> erff.c erffc.c] eulsum.cN evlmem.c expdev.cz expint.co f1dim.c factln.c factrl.c\ fasper.c fdjac.c fgauss.c8 fill0.c fit.c1 fitexy.cΓ fixrts.c fleg.cflmoon.cfmin.cfour1.cfourew.cfourfs.cfourn.c9fpoly.cfred2.cofredex.c1fredin.c(frenel.ccfrprmn.cftest.cדgamdev.cgammln.cgammp.cgammq.cHgasdev.cgaucof.cgauher.c gaujac.cgaulag.cgauleg.cgaussj.c(gcf.cgolden.cgser.chpsel.crhpsort.c=hqr.cfhufapp.chufdec.chufenc.c hufmak.cFhunt.chypdrv.chypgeo.c+hypser.cBicrc.cicrc1.cigray.ciindexx.cՋindexx.cinterp.c@irbit1.c!irbit2.cjacobi.cjacobn.c(julday.c kendl1.cx kendl2.cfkermom.cks2d1s.ckks2d2s.c&ksone.ckstwo.c3laguer.clfit.clinbcg.clinmin.cܚlnsrch.c#locate.colop.clubksb.c ludcmp.c=machar.crmatadd.cmatsub.cmedfit.cAmemcof.cmetrop.cmgfas.cmglin.c&midexp.cFmidinf.cmidpnt.c midsql.c6midsqu.c`miser.cOmmid.cmnbrak.c#mnewt.cmoment.cmp2dfr.c-mpdiv.cmpinv.cԋmpmul.cɏmpops.cmppi.cmprove.cmpsqrt.cmrqcof.c'mrqmin.c newt.codeint.c'orthog.cpade.c0pccheb.cUpcshft.c_pearsn.cperiod.cWpiksr2.c[piksrt.c"pinvs.cplgndr.cpoidev.cpolcoe.cpolcof.cr poldiv.c polin2.cRpolint.cpowell.c/predic.cprobks.cpsdes.cpwt.cpwtset.cpythag.c#pzextr.c qgaus.cqrdcmp.cqromb.c7qromo.cqroot.c qrsolv.c qrupdt.c qsimp.cqtrap.cquad3d.c[quadct.cquadmx.cquadvl.chran0.cran1.cJran2.cӇran3.cran4.c[rank.cranpt.cratint.c ratlsq.cratval.ctrc.cbrd.c realft.c'rebin.c`red.crelax.cHrelax2.cresid.crevcst.creverse.c'rf.c!rj.crk4.cJrkck.crkdumb.cfrkqs.crlft3.c rlftfrag.cLrofunc.c+rotate.crsolv.carstrct.crtbis.crtflsp.cنrtnewt.cЈrtsafe.crtsec.c4rzextr.c8savgol.cscrsho.cqselect.cselip.c sfroid.cshell.cshoot.cshootf.casimp1.csimp2.csimp3.c}simplx.csimpr.cϒsinft.c(slvsm2.cslvsml.csncndn.csnrm.casobseq.c:solvde.csor.cPsort.cosort2.csort3.cmspctrm.cspear.c+sphbes.cFsphfpt.csphoot.cØsplie2.csplin2.cspline.c'splint.cspread.csprsax.csprsin.c sprspm.csprstm.c.c sprstp.csprstx.cstifbs.cstiff.cstoerm.csvbksb.csvdcmp.csvdfit.cEsvdvar.ctoeplz.cAtptest.cVtqli.cJtrapzd.ctred2.ctridag.c9trncst.ctrnspt.cGttest.c1tutest.cUtwofft.cvander.cOvegas.cvoltra.cwt1.cwtn.cwwghts.cڅzbrac.cÇzbrak.czbrent.cnzrhqr.ctzriddr.czroots.clrxairy.cMxamebsa.c xamoeba.c,xanneal.cxarcode.cfxavevar.căxbalanc.cxbandec.cxbanmul.cbxbcucof.cixbcuint.cxbeschb.c xbessi.c)xbessi0.cxbessi1.c xbessik.cxbessj.c1 xbessj0.c3 xbessj1.c4xbessjy.cDxbessk.cdxbessk0.cnxbessk1.cxxbessy.c xbessy0.c#xbessy1.c&xbeta.c)xbetai.c,xbico.c/xbnldev.cTxbrent.cxbroydn.cxbsstep.cuxcaldat.cxchder.cxchebev.cxchebft.cԚxchebpc.c6xchint.c xcholsl.c xchsone.c xchstwo.c xcisi.c xcntab1.c\ xcntab2.c xconvlv.c xcorrel.c) xcosft1.c* xcosft2.c. xcovsrt.c xcrank.c xcyclic.c xdawson.c xdbrent.c xddpoly.c!xdecchk.cc!xdf1dim.ck !xdfpmin.c6!xdfridr.c!xdftint.cU!xdlinmin.c!xeclass.c!xeclazz.cˆ!xei.c!xeigsrt.c!xelle.cT!xellf.c !xellpi.c!xelmhes.c!xerfcc.c!xerff.c!xerffc.cϧ!xeulsum.cS"xevlmem.c5"xexpdev.c_ "xexpint.c "xf1dim.c~"xfactln.c"xfactrl.c"xfasper.c"xfgauss.c"xfit.c"xfitexy.c["xfixrts.c"xfleg.c7"xflmoon.c"xfour1.c#xfourfs.cy#xfourn.c0#xfpoly.ck#xfred2.c)#xfredin.c.#xfrenel.c#xfrprmn.c#xftest.cg#xgamdev.cU#xgammln.c#xgammp.c#xgammq.c #xgasdev.c#xgaucof.c#xgauher.c$xgaujac.c$xgaulag.c$xgauleg.c2 $xgaussj.cY$xgcf.c$xgolden.c$xgser.c$xhpsel.c"$xhpsort.c$xhqr.c'$xhuffman.cnj$xhunt.c$xhypgeo.c$xicrc.c$xigray.cz%xindexx.c%xirbit1.c%xirbit2.cstm.c.cO %xjacobi.c%xjulday.c%xkendl1.c`%xkendl2.c%xks2d1s.c%xks2d2s.c%xksone.c%xkstwo.c%xlaguer.cb%xlfit.c=&xlinbcg.c&xlinmin.c? &xlocate.c&xlubksb.cj&xludcmp.c &xmachar.cŀ&xmedfit.cP&xmemcof.c&xmgfas.cы&xmglin.c&xmidpnt.c&xmiser.c&xmmid.cM&xmnbrak.c,&xmnewt.c'xmoment.c 'xmppi.c'xmprove.c'xmrqcof.c'xmrqmin.c'xnewt.c'xodeint.c'xorthog.cO'xpade.c'xpccheb.c>'xpcshft.c(xpearsn.c;(xperiod.c (xpiksr2.c (xpiksrt.c(xplgndr.c(xpoidev.c(xpolcoe.c(xpolcof.c(xpoldiv.c(xpolin2.c(xpolint.c(xpowell.c(xpredic.cN(xprobks.cЕ(xpsdes.c (xpzextr.c)xqgaus.c)xqrdcmp.c)xqromb.c)xqromo.c)xqroot.c)xqrsolv.c")xqrupdt.c)xqsimp.c)xqtrap.cT)xquad3d.c)xran.cz)xran4.c)xrank.cǠ)xratint.c5*xratlsq.c*xrc.c*xrd.c *xrealft.c}*xrf.c*xrj.c*xrk4.c*xrkdumb.c*xrkqs.c*xrlft3.c*xrofunc.c*xrtbis.c9*xrtflsp.c*xrtnewt.c*xrtsafe.c *xrtsec.c*xrzextr.c*xsavgol.c+xscrsho.c+xselect.c +xselip.c +xshell.c +xsimplx.c+xsimpr.ck+xsinft.c^+xsncndn.c+xsobseq.c~+xsor.c +xsort.c+xsort2.c+xsort3.cM+xspctrm.cN+xspear.cԚ+xsphbes.cמ+xsphfpt.cğ+xsplie2.c,xsplin2.c,xspline.c,xsplint.c ,xsprsax.c,xsprsin.c,xsprspm.c,xsprstm.c,xsprstp.c,xsprstx.c,xstifbs.c;,xstiff.c,xstoerm.c,xsvbksb.cZ,xsvdcmp.c,xsvdfit.c-xsvdvar.c-xtoeplz.c-xtptest.c= -xtqli.c-xtrapzd.cj-xtred2.c-xtridag.cɃ-xttest.cІ-xtutest.c؊-xtwofft.c-xvander.c-xvegas.cF-xvoltra.cÜ-xwt1.c.xwtn.c.xzbrac.c.xzbrak.c .xzbrent.c8.xzrhqr.c.xzriddr.cO.xzroots.c}..nrutil.h.nr.h/complex.hG/nrutil.c33/complex.cd/dates1.datՂ/fncval.dat.0matrx1.dat1matrx2.dat1matrx3.dat{1spctrl.dat2table1.dat}2table2.dat52tarray.dat2text.dat04bccbug.c45l2.c%xks2d1s.c%xks2d2s.c%xksone.c%xkstwo.c%xlaguer.cb%xlfit.c=&xlinbcg.c&xlinmin.c? &xlocate.c&xlubksb.cj&xludcmp.c &xmachar.cŀ&xmedfit.cP&xmemcof.c&xmgfas.cы&xmglin.c&xmidpnt.c&xmiser.c&xmmid.cM&xmnbrak.c,&xmnewt.c'xmoment.c 'xmppi.c'xmprove.c'xmrqcof.c'xmrqmin.c'xnewt.c'xodeint.c'xorthog.cO'xpade.c'xpccheb.c>'xpcshft.c(xpearsn.c;(xperiod.c (xpiksr2.c (xpiksrt.c(xplgndr.c(xpoidev.c(xpolcoe.c(xpolcof.c(xpoldiv.c(xpolin2.c(xpolint.c(xpowell.c(xpredic.cN(xprobks.cЕ(xpsdes.c (xpzextr.c)xqgaus.c)xqrdcmp.c)xqromb.c)xqromo.c)xqroot.c)xqrsolv.c")xqrupdt.c)xqsimp.c)xqtrap.cT)xquad3d.c)xran.cz)xran4.c)xrank.cǠ)xratint.c5*xratlsq.c*xrc.c*xrd.c *xrealft.c}*xrf.c*xrj.c*xrk4.c*xrkdumb.c*xrkqs.c*xrlft3.c*xrofunc.c*xrtbis.c9*xrtflsp.c*xrtnewt.c*xrtsafe.c *xrtsec.c*xrzextr.c*xsavgol.c+xscrsho.c+xselect.c +xselip.c +xshell.c +xsimplx.c+xsimpr.ck+xsinft.c^+xsncndn.c+xsobseq.c~+xsor.c +xsort.c+xsort2.c+xsort3.cM+xspctrm.cN+xspear.cԚ+xsphbes.cמ+xsphfpt.cğ+xsplie2.c,xsplin2.c,xspline.c,xsplint.c ,xsprsax.c,xsprsin.c,xsprspm.c,xsprstm.c,xsprstp.c,xsprstx.c,xstifbs.c;,xstiff.c,xstoerm.c,xsvbksb.cZ,xsvdcmp.c,xsvdfit.c-xsvdvar.c-xtoeplz.c-xtptest.c= -xtqli.c-xtrapzd.cj-xtred2.c-xtridag.cɃ-xttest.cІ-xtutest.c؊-xtwofft.c-xvander.c-xvegas.cF-xvoltra.cÜ-xwt1.c.xwtn.c.xzbrac.c.xzbrak.c .xzbrent.c8.xzrhqr.c.xzriddr.cO.xzroots.c}..nrutil.h.nr.h/complex.hG/nrutil.c33/complex.cd/dates1.datՂ/fncval.dat.0matrx1.dat1matrx2.dat1matrx3.dat{1spctrl.dat2table1.dat}2table2.dat&@O %52~>1׿ڿPF2`nt(float xx[], unsigned long n, float x, unsigned long *jlo) 3void hypdrv(float s, float yy[], float dyyds[]) ?void hypser(fcomplex a, fcomplex b, fcomplex c, fcomplex z, Cvoid iindexx(unsigned long n, long arr[], unsigned long indx[]) Cvoid indexx(unsigned long n, float arr[], unsigned long indx[]) 2void interp(double **uf, double **uc, int nf); Bvoid jacobi(float **a, int n, float d[], float **v, int *nrot) Fvoid jacobn(float x, float y[], float dfdx[], float **dfdy, int n) Jvoid kendl1(float data1[], float data2[], unsigned long n, float *tau, ݟEMvoid kendl2(float **tab, int i, int j, float *tau, float *z, float *prob) ,void kermom(double w[], double y, int m) 9void ks2d1s(float x1[], float y1[], unsigned long n1, Qvoid ks2d2s(float x1[], float y1[], unsigned long n1, float x2[], float y2[], Mvoid ksone(float data[], unsigned long n, float (*func)(float), float *d, Pvoid kstwo(float data1[], unsigned long n1, float data2[], unsigned long n2, ;void laguer(fcomplex a[], int m, fcomplex *x, int *its) Ovoid lfit(float x[], float y[], float sig[], int ndat, float a[], int ia[], Nvoid linbcg(unsigned long n, double b[], double x[], int itol, double tol, :void linmin(float p[], float xi[], int n, float *fret, Qvoid lnsrch(int n, float xold[], float fold, float g[], float p[], float x[], -void load(float x1, float v[], float y[]) /void load1(float x1, float v1[], float y[]) /void load2(float x2, float v2[], float y[]) Gvoid locate(float xx[], unsigned long n, float x, unsigned long *j) -void lop(double **out, double **u, int n) 7void lubksb(float **a, int n, int *indx, float b[]) 6void ludcmp(float **a, int n, int *indx, float *d) :void machar(int *ibeta, int *it, int *irnd, int *ngrd, :void matadd(double **a, double **b, double **c, int n) :void matsub(double **a, double **b, double **c, int n) Rvoid medfit(float x[], float y[], int ndata, float *a, float *b, f/(&(;)L4!^9i!HyU#z&R8.6,ߣʜ]>܂Γ V w le , *qp '(#Sg ՋZ,ߋOm,Hs%[dQa(9 m-aӎf<Ux-.-[`"%Q"`%r_(dU\ Ǥj-zl\T!!or|8Ԛ .*=G)Uy(X6r{'!,'T!cY! (G& rb]7, #碌V-颷 n񢛞z;c l"=Eד~֥`⥚".`x Ʀ]A sހ+gQ(X(o(*(Q(]Hɩ2-驜:̔uy*O떿* n j-fV ");؊-qB: $@:'h`ݱM+g&|ϲNJ. #'Qg[fA-9EB {\ [  p2귲%9% )x 鲸 ڀInj$XY_# #Zed+ +K,_G x=&w%ٽ9 ٽ A#Ƀ- f$^+x > %w ^wwDExx&)TԽ&vSЦ4Šsp477@ & ož%L + EĀeđ#p#33//~$#"P$nU$ۃh'LNaQHԡ5U/&40F@!mAb%uarF_ Π6K(HU܂ Ife _ Sf )H@!>;BE5"6F ^ߺ ~"_ ""} &$}u=q Er䞎73`syqz%w{宖,恗*h(>! &0? JFO\,C? "=&N ]qg-)#\X0LW.M[E{$2.#xF=#v#Vƽ kf" 6i7Z} -Ќ "qЈZ",y#7<*/a H7tɝk FÏ,b&DQnDEFG H IdJ'KLvs mTn!opqr 8s t u&v &<0 ы&\%.)t)b)'g)!oMd/Ta+\MJkF_#0#O H"#Oɞ_  ̓(WXă4 =%`0o/*O % NC2`m3}2iH Ÿz ޠ 6hA]8`<c!_@ˆ!J(vP*}P*+P}*P*U]= *V < . Q2~ Ջ4 z)S )& '*z!O.R'vt Ɓ}j&P1G$=k#1"$ 5+&H(=*f) ̗R  od<n s!)1 %S")4h")nѩ")dd3)#ۥ3) ϊs)){1 )'$.d*6!$x*!+=+N(0+t, +,-g,!#-$-!-Z-J!-Ӈ(-"T-h·-[.T8C6/ C/!/JVW/f 0+z0L1? &\c2*\u5 , 5,X5,25,}H5,E5,x5$R6L6'Bw6 s,6%c6%x7l8"a8k*9PY9 9r99 ::S ?S  "TXT f(U8+U 4gVWaݡX#P#Y4O]Y4tZZ46[\^\ \U \C\:'\`]\m9\K]#]k-v^_~^^8 _ _ԚdO\_+D_1 ~a Vbj vhcUJ dk[ daddddϒ \h8Vjffuk 5lwm 9m nH|B-no noܚ p9qJ irv';t}tuujuڅuÇ81vӜ Yx*xݢyLyrϷz{ L|] ;|4|>.~Bi~c@ sԕ;S|fu-# I_1J}6}l -#on I-#JO"~1b{-# P{ -#R` S~{J1 yPRP~1173%-#-# EԀQ|C else nrerror("No skew/kurtosis when variance = 0 (in moment)"); R`9Yam6!S?cQ  R| R`9YKOvR  R GOLDEN.Ca!find minimum of a function by E GOLDEN.Cp section search [10.-#BRENJ-#fL -#P P} nctiR ueriv1149 %atiomini n N-hypgeo.cs-#wnhi<8Q.C-##PNQ-#:FZRV~ RYs%1196% cmp2dfr.c-#FSԀ-#NGSZss-#NGS  R RSSR-#DK-#~Mr10 Rivh1077%nm# dftcor.c-#qNԂs -#Ns-#-#P4-#QV% gr-#R`BKDu/ else if (*f <= fold+ALF*alam*slope) return; C R`9Yng-#G .Q-#<5G*TR RR`9YtfPd-# SЈ else a-R`9YUdPS Sa Rgram using HPSEL XHPSORT.CSample program using HPSORT r XHQR.CtSample-#am uK\ԕ;!ɑ'e=e= e==Df=%= . =5>W???O@ :A3A* B8 UNB0DwBAC CFD)qFD).ID)D. ;JE]EbF;,1~F FGiH HՂ/7Iq^K K)ttL-LULҿIMzNVN 7NT >N ` 8Ou,CLOy WrjO O vOPPLxPPU4PP)PjP%-P f-PӓKmP iAzP6]Q R:S ?S  "TXT f(U8+U &6SU"ZV)4gVWajoW#ݡX#P#Y4O]Y4tZZ8[5246[\^\ \U \C\:'\`]\m9\K]#]k-v^_^["~^^8 _ _ԚdO\_+D_1 `'~a Lb'Vbj c"YFcY$vhcUl֋c$Pbd9*J dk[ daddddϒdF-Be)ۇeT)6ae*>e !>e~++ fÜ-ݝf.4g7" \h8Vjffuk k"5lwm 9m nH|B-no noܚ p9qJ irv';t}tuujuڅuÇ81vӜ yXx%Yx*xݢychy%Lyrcz'Ϸz{ {,L|] ;|4|>.~Bi~ce~g#@ C#-#-#L#LEDA R9R`9Y13032%c -#ar-Q>FMA! -R`9Y D-#-#ZMF:D   R RYR`9Y6] tibe-#-J-#-P(GDB 70 R`9YQE-# KGGC R`9Y-#-#-# MbMG~C R`R`9YEC-#2] QwQ9by -ƪ 4ƀ,?ƸxPGU!2 $ghU& bz Aɇ bl- :J-e9ˊ*U U9%S" +.ԋ6ŀ&R (VS (pX͠ \wɏ?h ̅t ?|αx|Gpr  04J[ *YMنRό )HR5ТЕ(6s!mӂ!J*_{ӫ' QHԡR(5U/&40FS%ؖ-=؝.@!mAb%ua|Ԛ+rF_ Π6K(H:\ڮ-ʪמ+Gv, +U܂ Ife _ Sf )H@!>;BE5"6F ^ߺ ~"_ "" )} &$}q㖖&u=q  'Er䞎73`syqz%w{宖,+,恗k+,Ǡ)=5**FVІ-h(WǤ'>! &0? JFO\,C? "!'=&N ]qg-)#\X0LW.M[E{$z3.0g1pϛ12.#xF=#v#Vol.7.G/.ƽ kf" 6i7Z} -Ќ "qЈZ",y#7<qN,BO'*/a rf#M&kğ+wv,Lw,lw,=&H7tɝk FÏ,b&DQnDEFG H IdJ'KLvs mTn!opqr 3131%ș aDxlinbcg.ct-#F^t-#4FB-#9F| pi.c RN#-#4Nؚ|#-#HN# M-#bJNژR d R`9YrP R`9Y9R1351%  zriddr.c-#L*Q l-#қ-#D. % lPX \0 (:L^p9K]o/#5Gk}_ 1CUgy -?Qcu'');_qW%7I[m!3EWi{ /Sew0 (:L𙙘@/@Rdv'_`rGY&8G_y'4FXjw WfxMŻ5𛻻 @ !'0*V `0>`'u=s/U//<0ցa1< (0Q/_JBQ_/p!/42c/Qrb/9/Q—/s5}ЊS'/.ԗ =YG/WE<4ῤ/fmVŗ?/a_W`///W_p/a/W_/rg'8xAOO,W\W ʺWw kW /AS0/ASew/PO_s_'9K$'5GYk}Vhz»*C?M0'&v+0R+b0q*f :W.O &FoYS D VI<><6;8454.21,-,()'$&$!!*/'(/9) 9'  0 (:L^p$6HZl~ 2DVhzB p!3EWi{0u:,0u*:J@6 .@Rdv2uKO@,*A9BY@2 `9 ȼA92@JC9757,7LK= J:6:D:725&@J:.E 7!7IWJA990M6 PNC"^2`JKJ&7_[og`gކlݓP@ih`o`q:&8V?3HM8;;0&p%35 P/3 %a'k; '\ ᚘҋٖաC@2ґٗ|q* 7:AJNP@6&o| g^,0 E$K-!ħ,"J0V @ Ӵ1BFhO10  ľ7@,d9Pį".97?***+wzz̺zzCBxzz2#i C M/PC(38N=ӃA B#;@.P*:>51NĪۗ6LJ`F` }KK y9je=,Y{&AN, D U(!J#MꆥN$fK[E Ŀ: !A #@ sr~ޘڕP'{ۜڛ؄^$Y2s:jv81 ǠC.@b@mU9ī9@0K?#Ī0C  !:.Zefb]1wjdoh0jtqPsPJ U53!JPJ瀰AA'ȾWC"c·@JE 1 J!D@ Bg?xa؝ۃ K:_}Wޝfق~ƭ9ǧ4 =DH6ʁL F= Cjdv1Z快68NJ1Cp ;<P"m簒k_֒KCG~~{kˡd *VJA)LL4 2bouME#o%|[{to%@:Ө1@ØE)Bld~[cH΄ՠb` ]cF?cV)P^L7JW@ſ6W&5f(ɾE?'q7~"6D60D0B]fcbΗ-Yb]g̟o#J~e?5L<9o5?;= sVMp