Mac Power 1997 January

home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 January / macpower199701.bin / AMUG / Programming_10 / Videotoolbox 96-08-22-c.sit / VideoToolbox / VideoToolboxSources / Mean.c < prev next >
MacBinary | 1995-05-27 | 4.5 KB | [TEXT/CWIE]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Mean.c
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat May 27 01:26:43 1995, modified Sat May 27 01:26:43 1995, creator 'CWIE', type ASCII, 3867 bytes "Mean.c" , at 0xf9b 410 bytes resource	default (weak)
`99%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-4K)	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CWIE]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 4d 65 61 6e 2e 63 | 00 00 00 00 00 00 00 00 |..Mean.c|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 57 49 | 45 01 00 00 00 00 00 00 |.TEXTCWI|E.......|
|00000050| 00 00 00 00 00 0f 1b 00 | 00 01 9a ab ec 68 93 ab |........|.....h..|
|00000060| ec 68 93 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.h......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 57 08 00 00 |........|....W...|
|00000080| 2f 2a 0d 4d 65 61 6e 2e | 63 0d 09 6d 65 61 6e 3d |/*.Mean.|c..mean=|
|00000090| 4d 65 61 6e 28 78 2c 6e | 2c 26 73 64 29 3b 0d 09 |Mean(x,n|,&sd);..|
|000000a0| 6d 65 61 6e 3d 4d 65 61 | 6e 46 28 78 2c 6e 2c 26 |mean=Mea|nF(x,n,&|
|000000b0| 73 64 29 3b 0d 09 6d 65 | 61 6e 3d 4d 65 61 6e 42 |sd);..me|an=MeanB|
|000000c0| 28 78 2c 6e 2c 26 73 64 | 29 3b 0d 09 6d 65 61 6e |(x,n,&sd|);..mean|
|000000d0| 3d 4d 65 61 6e 55 42 28 | 78 2c 6e 2c 26 73 64 29 |=MeanUB(|x,n,&sd)|
|000000e0| 3b 0d 09 6d 65 61 6e 3d | 4d 65 61 6e 57 28 78 2c |;..mean=|MeanW(x,|
|000000f0| 6e 2c 26 73 64 29 3b 0d | 09 6d 65 61 6e 3d 4d 65 |n,&sd);.|.mean=Me|
|00000100| 61 6e 55 57 28 78 2c 6e | 2c 26 73 64 29 3b 0d 09 |anUW(x,n|,&sd);..|
|00000110| 6d 65 61 6e 3d 4d 65 61 | 6e 4c 28 78 2c 6e 2c 26 |mean=Mea|nL(x,n,&|
|00000120| 73 64 29 3b 0d 09 6d 65 | 61 6e 3d 4d 65 61 6e 55 |sd);..me|an=MeanU|
|00000130| 4c 28 78 2c 6e 2c 26 73 | 64 29 3b 0d 51 75 69 63 |L(x,n,&s|d);.Quic|
|00000140| 6b 6c 79 20 63 6f 6d 70 | 75 74 65 20 6d 65 61 6e |kly comp|ute mean|
|00000150| 20 28 61 6e 64 20 6f 70 | 74 69 6f 6e 61 6c 6c 79 | (and op|tionally|
|00000160| 20 74 68 65 20 73 74 61 | 6e 64 61 72 64 20 64 65 | the sta|ndard de|
|00000170| 76 69 61 74 69 6f 6e 29 | 20 6f 66 20 61 6e 20 61 |viation)| of an a|
|00000180| 72 72 61 79 20 78 5b 5d | 20 6f 66 0d 6e 20 73 61 |rray x[]| of.n sa|
|00000190| 6d 70 6c 65 73 2e 20 54 | 68 65 20 76 61 72 69 6f |mples. T|he vario|
|000001a0| 75 73 20 72 6f 75 74 69 | 6e 65 73 20 64 69 66 66 |us routi|nes diff|
|000001b0| 65 72 20 6f 6e 6c 79 20 | 69 6e 20 74 68 65 20 61 |er only |in the a|
|000001c0| 73 73 75 6d 65 64 20 74 | 79 70 65 20 6f 66 20 78 |ssumed t|ype of x|
|000001d0| 5b 5d 3a 20 64 6f 75 62 | 6c 65 2c 0d 63 68 61 72 |[]: doub|le,.char|
|000001e0| 2c 20 73 68 6f 72 74 2c | 20 6f 72 20 6c 6f 6e 67 |, short,| or long|
|000001f0| 2c 20 65 69 74 68 65 72 | 20 73 69 67 6e 65 64 20 |, either| signed |
|00000200| 6f 72 20 75 6e 73 69 67 | 6e 65 64 2e 20 54 68 65 |or unsig|ned. The|
|00000210| 20 73 74 61 6e 64 61 72 | 64 20 64 65 76 69 61 74 | standar|d deviat|
|00000220| 69 6f 6e 20 69 73 20 63 | 6f 6d 70 75 74 65 64 0d |ion is c|omputed.|
|00000230| 6f 6e 6c 79 20 69 66 20 | 74 68 65 20 6c 61 73 74 |only if |the last|
|00000240| 20 61 72 67 75 6d 65 6e | 74 20 69 73 20 6e 6f 74 | argumen|t is not|
|00000250| 20 4e 55 4c 4c 2e 20 54 | 68 65 20 6c 6f 6f 70 73 | NULL. T|he loops|
|00000260| 20 68 61 76 65 20 62 65 | 65 6e 20 6f 70 74 69 6d | have be|en optim|
|00000270| 69 7a 65 64 0d 74 6f 20 | 64 6f 20 6f 6e 6c 79 20 |ized.to |do only |
|00000280| 6f 6e 65 20 6d 65 6d 6f | 72 79 20 61 63 63 65 73 |one memo|ry acces|
|00000290| 73 20 70 65 72 20 69 74 | 65 72 61 74 69 6f 6e 2e |s per it|eration.|
|000002a0| 0d 0d 48 49 53 54 4f 52 | 59 3a 0d 39 2f 31 36 2f |..HISTOR|Y:.9/16/|
|000002b0| 39 30 09 64 67 70 09 77 | 72 6f 74 65 20 69 74 2e |90.dgp.w|rote it.|
|000002c0| 0d 31 2f 31 30 2f 39 34 | 09 64 67 70 20 61 64 64 |.1/10/94|.dgp add|
|000002d0| 65 64 20 4d 65 61 6e 42 | 20 61 6e 64 20 4d 65 61 |ed MeanB| and Mea|
|000002e0| 6e 55 42 20 74 68 61 74 | 20 6f 70 65 72 61 74 65 |nUB that| operate|
|000002f0| 20 6f 6e 20 61 72 72 61 | 79 73 20 6f 66 20 73 69 | on arra|ys of si|
|00000300| 67 6e 65 64 20 63 68 61 | 72 20 61 6e 64 20 0d 09 |gned cha|r and ..|
|00000310| 09 09 75 6e 73 69 67 6e | 65 64 20 63 68 61 72 2e |..unsign|ed char.|
|00000320| 0d 09 09 09 4f 70 74 69 | 6d 69 7a 65 64 20 74 6f |....Opti|mized to|
|00000330| 20 6d 69 6e 69 6d 69 7a | 65 20 6d 65 6d 6f 72 79 | minimiz|e memory|
|00000340| 20 61 63 63 65 73 73 65 | 73 20 77 68 65 6e 20 63 | accesse|s when c|
|00000350| 6f 6d 70 69 6c 65 64 20 | 62 79 20 54 48 49 4e 4b |ompiled |by THINK|
|00000360| 20 43 20 36 2e 30 31 2e | 0d 31 2f 32 35 2f 39 34 | C 6.01.|.1/25/94|
|00000370| 09 64 67 70 20 61 64 64 | 65 64 20 4d 65 61 6e 57 |.dgp add|ed MeanW|
|00000380| 2c 20 4d 65 61 6e 55 57 | 2c 20 4d 65 61 6e 4c 2c |, MeanUW|, MeanL,|
|00000390| 20 61 6e 64 20 4d 65 61 | 6e 55 4c 2e 0d 2a 2f 0d | and Mea|nUL..*/.|
|000003a0| 23 69 6e 63 6c 75 64 65 | 20 22 56 69 64 65 6f 54 |#include| "VideoT|
|000003b0| 6f 6f 6c 62 6f 78 2e 68 | 22 0d 64 6f 75 62 6c 65 |oolbox.h|".double|
|000003c0| 20 4d 65 61 6e 46 28 66 | 6c 6f 61 74 20 78 5b 5d | MeanF(f|loat x[]|
|000003d0| 2c 6c 6f 6e 67 20 6e 2c | 64 6f 75 62 6c 65 20 2a |,long n,|double *|
|000003e0| 73 64 50 74 72 29 3b 0d | 0d 64 6f 75 62 6c 65 20 |sdPtr);.|.double |
|000003f0| 4d 65 61 6e 28 64 6f 75 | 62 6c 65 20 78 5b 5d 2c |Mean(dou|ble x[],|
|00000400| 6c 6f 6e 67 20 6e 2c 64 | 6f 75 62 6c 65 20 2a 73 |long n,d|ouble *s|
|00000410| 64 50 74 72 29 0d 7b 0d | 09 72 65 67 69 73 74 65 |dPtr).{.|.registe|
|00000420| 72 20 64 6f 75 62 6c 65 | 20 73 3b 0d 09 72 65 67 |r double| s;..reg|
|00000430| 69 73 74 65 72 20 6c 6f | 6e 67 20 69 3b 0d 09 64 |ister lo|ng i;..d|
|00000440| 6f 75 62 6c 65 20 2a 70 | 3b 0d 0d 09 70 3d 78 3b |ouble *p|;...p=x;|
|00000450| 0d 09 69 66 28 73 64 50 | 74 72 21 3d 4e 55 4c 4c |..if(sdP|tr!=NULL|
|00000460| 29 7b 0d 09 09 72 65 67 | 69 73 74 65 72 20 64 6f |){...reg|ister do|
|00000470| 75 62 6c 65 20 73 73 3b | 0d 09 09 72 65 67 69 73 |uble ss;|...regis|
|00000480| 74 65 72 20 64 6f 75 62 | 6c 65 20 78 78 3b 0d 0d |ter doub|le xx;..|
|00000490| 09 09 73 3d 73 73 3d 30 | 2e 30 3b 0d 09 09 66 6f |..s=ss=0|.0;...fo|
|000004a0| 72 28 69 3d 6e 3b 69 3e | 30 3b 69 2d 2d 29 7b 0d |r(i=n;i>|0;i--){.|
|000004b0| 09 09 09 73 2b 3d 78 78 | 3d 2a 70 2b 2b 3b 0d 09 |...s+=xx|=*p++;..|
|000004c0| 09 09 73 73 2b 3d 78 78 | 2a 78 78 3b 0d 09 09 7d |..ss+=xx|*xx;...}|
|000004d0| 0d 09 09 73 2f 3d 6e 3b | 0d 09 09 69 66 28 6e 3e |...s/=n;|...if(n>|
|000004e0| 31 29 2a 73 64 50 74 72 | 3d 73 71 72 74 28 28 73 |1)*sdPtr|=sqrt((s|
|000004f0| 73 2d 6e 2a 73 2a 73 29 | 2f 28 6e 2d 31 29 29 3b |s-n*s*s)|/(n-1));|
|00000500| 0d 09 09 65 6c 73 65 20 | 2a 73 64 50 74 72 3d 30 |...else |*sdPtr=0|
|00000510| 3b 0d 09 7d 65 6c 73 65 | 7b 0d 09 09 73 3d 30 2e |;..}else|{...s=0.|
|00000520| 30 3b 0d 09 09 66 6f 72 | 28 69 3d 6e 3b 69 3e 30 |0;...for|(i=n;i>0|
|00000530| 3b 69 2d 2d 29 20 73 2b | 3d 2a 70 2b 2b 3b 0d 09 |;i--) s+|=*p++;..|
|00000540| 09 73 2f 3d 6e 3b 0d 09 | 7d 0d 09 72 65 74 75 72 |.s/=n;..|}..retur|
|00000550| 6e 20 73 3b 0d 7d 0d 0d | 64 6f 75 62 6c 65 20 4d |n s;.}..|double M|
|00000560| 65 61 6e 46 28 66 6c 6f | 61 74 20 78 5b 5d 2c 6c |eanF(flo|at x[],l|
|00000570| 6f 6e 67 20 6e 2c 64 6f | 75 62 6c 65 20 2a 73 64 |ong n,do|uble *sd|
|00000580| 50 74 72 29 0d 7b 0d 09 | 72 65 67 69 73 74 65 72 |Ptr).{..|register|
|00000590| 20 64 6f 75 62 6c 65 20 | 73 3b 0d 09 72 65 67 69 | double |s;..regi|
|000005a0| 73 74 65 72 20 6c 6f 6e | 67 20 69 3b 0d 09 66 6c |ster lon|g i;..fl|
|000005b0| 6f 61 74 20 2a 70 3b 0d | 0d 09 70 3d 78 3b 0d 09 |oat *p;.|..p=x;..|
|000005c0| 69 66 28 73 64 50 74 72 | 21 3d 4e 55 4c 4c 29 7b |if(sdPtr|!=NULL){|
|000005d0| 0d 09 09 72 65 67 69 73 | 74 65 72 20 64 6f 75 62 |...regis|ter doub|
|000005e0| 6c 65 20 73 73 3b 0d 09 | 09 72 65 67 69 73 74 65 |le ss;..|.registe|
|000005f0| 72 20 64 6f 75 62 6c 65 | 20 78 78 3b 0d 0d 09 09 |r double| xx;....|
|00000600| 73 3d 73 73 3d 30 2e 30 | 3b 0d 09 09 66 6f 72 28 |s=ss=0.0|;...for(|
|00000610| 69 3d 6e 3b 69 3e 30 3b | 69 2d 2d 29 7b 0d 09 09 |i=n;i>0;|i--){...|
|00000620| 09 73 2b 3d 78 78 3d 2a | 70 2b 2b 3b 0d 09 09 09 |.s+=xx=*|p++;....|
|00000630| 73 73 2b 3d 78 78 2a 78 | 78 3b 0d 09 09 7d 0d 09 |ss+=xx*x|x;...}..|
|00000640| 09 73 2f 3d 6e 3b 0d 09 | 09 69 66 28 6e 3e 31 29 |.s/=n;..|.if(n>1)|
|00000650| 2a 73 64 50 74 72 3d 73 | 71 72 74 28 28 73 73 2d |*sdPtr=s|qrt((ss-|
|00000660| 6e 2a 73 2a 73 29 2f 28 | 6e 2d 31 29 29 3b 0d 09 |n*s*s)/(|n-1));..|
|00000670| 09 65 6c 73 65 20 2a 73 | 64 50 74 72 3d 30 3b 0d |.else *s|dPtr=0;.|
|00000680| 09 7d 65 6c 73 65 7b 0d | 09 09 73 3d 30 2e 30 3b |.}else{.|..s=0.0;|
|00000690| 0d 09 09 66 6f 72 28 69 | 3d 6e 3b 69 3e 30 3b 69 |...for(i|=n;i>0;i|
|000006a0| 2d 2d 29 20 73 2b 3d 2a | 70 2b 2b 3b 0d 09 09 73 |--) s+=*|p++;...s|
|000006b0| 2f 3d 6e 3b 0d 09 7d 0d | 09 72 65 74 75 72 6e 20 |/=n;..}.|.return |
|000006c0| 73 3b 0d 7d 0d 0d 64 6f | 75 62 6c 65 20 4d 65 61 |s;.}..do|uble Mea|
|000006d0| 6e 42 28 63 68 61 72 20 | 78 5b 5d 2c 6c 6f 6e 67 |nB(char |x[],long|
|000006e0| 20 6e 2c 64 6f 75 62 6c | 65 20 2a 73 64 50 74 72 | n,doubl|e *sdPtr|
|000006f0| 29 0d 7b 0d 09 72 65 67 | 69 73 74 65 72 20 64 6f |).{..reg|ister do|
|00000700| 75 62 6c 65 20 73 3b 0d | 09 72 65 67 69 73 74 65 |uble s;.|.registe|
|00000710| 72 20 6c 6f 6e 67 20 69 | 3b 0d 09 72 65 67 69 73 |r long i|;..regis|
|00000720| 74 65 72 20 63 68 61 72 | 20 2a 70 3b 0d 0d 09 70 |ter char| *p;...p|
|00000730| 3d 78 3b 0d 09 69 66 28 | 73 64 50 74 72 21 3d 4e |=x;..if(|sdPtr!=N|
|00000740| 55 4c 4c 29 7b 0d 09 09 | 72 65 67 69 73 74 65 72 |ULL){...|register|
|00000750| 20 64 6f 75 62 6c 65 20 | 73 73 3b 0d 09 09 72 65 | double |ss;...re|
|00000760| 67 69 73 74 65 72 20 6c | 6f 6e 67 20 78 78 3b 0d |gister l|ong xx;.|
|00000770| 0d 09 09 73 3d 73 73 3d | 30 2e 30 3b 0d 09 09 66 |...s=ss=|0.0;...f|
|00000780| 6f 72 28 69 3d 6e 3b 69 | 3e 30 3b 69 2d 2d 29 7b |or(i=n;i|>0;i--){|
|00000790| 0d 09 09 09 73 2b 3d 78 | 78 3d 2a 70 2b 2b 3b 0d |....s+=x|x=*p++;.|
|000007a0| 09 09 09 73 73 2b 3d 78 | 78 2a 78 78 3b 0d 09 09 |...ss+=x|x*xx;...|
|000007b0| 7d 0d 09 09 73 2f 3d 6e | 3b 0d 09 09 69 66 28 6e |}...s/=n|;...if(n|
|000007c0| 3e 31 29 2a 73 64 50 74 | 72 3d 73 71 72 74 28 28 |>1)*sdPt|r=sqrt((|
|000007d0| 73 73 2d 6e 2a 73 2a 73 | 29 2f 28 6e 2d 31 29 29 |ss-n*s*s|)/(n-1))|
|000007e0| 3b 0d 09 09 65 6c 73 65 | 20 2a 73 64 50 74 72 3d |;...else| *sdPtr=|
|000007f0| 30 3b 0d 09 7d 65 6c 73 | 65 7b 0d 09 09 73 3d 30 |0;..}els|e{...s=0|
|00000800| 2e 30 3b 0d 09 09 66 6f | 72 28 69 3d 6e 3b 69 3e |.0;...fo|r(i=n;i>|
|00000810| 30 3b 69 2d 2d 29 20 73 | 2b 3d 2a 70 2b 2b 3b 0d |0;i--) s|+=*p++;.|
|00000820| 09 09 73 2f 3d 6e 3b 0d | 09 7d 0d 09 72 65 74 75 |..s/=n;.|.}..retu|
|00000830| 72 6e 20 73 3b 0d 7d 0d | 0d 64 6f 75 62 6c 65 20 |rn s;.}.|.double |
|00000840| 4d 65 61 6e 55 42 28 75 | 6e 73 69 67 6e 65 64 20 |MeanUB(u|nsigned |
|00000850| 63 68 61 72 20 78 5b 5d | 2c 6c 6f 6e 67 20 6e 2c |char x[]|,long n,|
|00000860| 64 6f 75 62 6c 65 20 2a | 73 64 50 74 72 29 0d 7b |double *|sdPtr).{|
|00000870| 0d 09 72 65 67 69 73 74 | 65 72 20 64 6f 75 62 6c |..regist|er doubl|
|00000880| 65 20 73 3b 0d 09 72 65 | 67 69 73 74 65 72 20 6c |e s;..re|gister l|
|00000890| 6f 6e 67 20 69 3b 0d 09 | 72 65 67 69 73 74 65 72 |ong i;..|register|
|000008a0| 20 75 6e 73 69 67 6e 65 | 64 20 63 68 61 72 20 2a | unsigne|d char *|
|000008b0| 70 3b 0d 0d 09 70 3d 78 | 3b 0d 09 69 66 28 73 64 |p;...p=x|;..if(sd|
|000008c0| 50 74 72 21 3d 4e 55 4c | 4c 29 7b 0d 09 09 72 65 |Ptr!=NUL|L){...re|
|000008d0| 67 69 73 74 65 72 20 64 | 6f 75 62 6c 65 20 73 73 |gister d|ouble ss|
|000008e0| 3b 0d 09 09 72 65 67 69 | 73 74 65 72 20 6c 6f 6e |;...regi|ster lon|
|000008f0| 67 20 78 78 3b 0d 0d 09 | 09 73 3d 73 73 3d 30 2e |g xx;...|.s=ss=0.|
|00000900| 30 3b 0d 09 09 66 6f 72 | 28 69 3d 6e 3b 69 3e 30 |0;...for|(i=n;i>0|
|00000910| 3b 69 2d 2d 29 7b 0d 09 | 09 09 73 2b 3d 78 78 3d |;i--){..|..s+=xx=|
|00000920| 2a 70 2b 2b 3b 0d 09 09 | 09 73 73 2b 3d 78 78 2a |*p++;...|.ss+=xx*|
|00000930| 78 78 3b 0d 09 09 7d 0d | 09 09 73 2f 3d 6e 3b 0d |xx;...}.|..s/=n;.|
|00000940| 09 09 69 66 28 6e 3e 31 | 29 2a 73 64 50 74 72 3d |..if(n>1|)*sdPtr=|
|00000950| 73 71 72 74 28 28 73 73 | 2d 6e 2a 73 2a 73 29 2f |sqrt((ss|-n*s*s)/|
|00000960| 28 6e 2d 31 29 29 3b 0d | 09 09 65 6c 73 65 20 2a |(n-1));.|..else *|
|00000970| 73 64 50 74 72 3d 30 3b | 0d 09 7d 65 6c 73 65 7b |sdPtr=0;|..}else{|
|00000980| 0d 09 09 73 3d 30 2e 30 | 3b 0d 09 09 66 6f 72 28 |...s=0.0|;...for(|
|00000990| 69 3d 6e 3b 69 3e 30 3b | 69 2d 2d 29 20 73 2b 3d |i=n;i>0;|i--) s+=|
|000009a0| 2a 70 2b 2b 3b 0d 09 09 | 73 2f 3d 6e 3b 0d 09 7d |*p++;...|s/=n;..}|
|000009b0| 0d 09 72 65 74 75 72 6e | 20 73 3b 0d 7d 0d 0d 64 |..return| s;.}..d|
|000009c0| 6f 75 62 6c 65 20 4d 65 | 61 6e 57 28 73 68 6f 72 |ouble Me|anW(shor|
|000009d0| 74 20 78 5b 5d 2c 6c 6f | 6e 67 20 6e 2c 64 6f 75 |t x[],lo|ng n,dou|
|000009e0| 62 6c 65 20 2a 73 64 50 | 74 72 29 0d 7b 0d 09 72 |ble *sdP|tr).{..r|
|000009f0| 65 67 69 73 74 65 72 20 | 64 6f 75 62 6c 65 20 73 |egister |double s|
|00000a00| 3b 0d 09 72 65 67 69 73 | 74 65 72 20 6c 6f 6e 67 |;..regis|ter long|
|00000a10| 20 69 3b 0d 09 72 65 67 | 69 73 74 65 72 20 73 68 | i;..reg|ister sh|
|00000a20| 6f 72 74 20 2a 70 3b 0d | 0d 09 70 3d 78 3b 0d 09 |ort *p;.|..p=x;..|
|00000a30| 69 66 28 73 64 50 74 72 | 21 3d 4e 55 4c 4c 29 7b |if(sdPtr|!=NULL){|
|00000a40| 0d 09 09 72 65 67 69 73 | 74 65 72 20 64 6f 75 62 |...regis|ter doub|
|00000a50| 6c 65 20 73 73 3b 0d 09 | 09 72 65 67 69 73 74 65 |le ss;..|.registe|
|00000a60| 72 20 6c 6f 6e 67 20 78 | 78 3b 0d 0d 09 09 73 3d |r long x|x;....s=|
|00000a70| 73 73 3d 30 2e 30 3b 0d | 09 09 66 6f 72 28 69 3d |ss=0.0;.|..for(i=|
|00000a80| 6e 3b 69 3e 30 3b 69 2d | 2d 29 7b 0d 09 09 09 73 |n;i>0;i-|-){....s|
|00000a90| 2b 3d 78 78 3d 2a 70 2b | 2b 3b 0d 09 09 09 73 73 |+=xx=*p+|+;....ss|
|00000aa0| 2b 3d 78 78 2a 78 78 3b | 0d 09 09 7d 0d 09 09 73 |+=xx*xx;|...}...s|
|00000ab0| 2f 3d 6e 3b 0d 09 09 69 | 66 28 6e 3e 31 29 2a 73 |/=n;...i|f(n>1)*s|
|00000ac0| 64 50 74 72 3d 73 71 72 | 74 28 28 73 73 2d 6e 2a |dPtr=sqr|t((ss-n*|
|00000ad0| 73 2a 73 29 2f 28 6e 2d | 31 29 29 3b 0d 09 09 65 |s*s)/(n-|1));...e|
|00000ae0| 6c 73 65 20 2a 73 64 50 | 74 72 3d 30 3b 0d 09 7d |lse *sdP|tr=0;..}|
|00000af0| 65 6c 73 65 7b 0d 09 09 | 73 3d 30 2e 30 3b 0d 09 |else{...|s=0.0;..|
|00000b00| 09 66 6f 72 28 69 3d 6e | 3b 69 3e 30 3b 69 2d 2d |.for(i=n|;i>0;i--|
|00000b10| 29 20 73 2b 3d 2a 70 2b | 2b 3b 0d 09 09 73 2f 3d |) s+=*p+|+;...s/=|
|00000b20| 6e 3b 0d 09 7d 0d 09 72 | 65 74 75 72 6e 20 73 3b |n;..}..r|eturn s;|
|00000b30| 0d 7d 0d 0d 64 6f 75 62 | 6c 65 20 4d 65 61 6e 55 |.}..doub|le MeanU|
|00000b40| 57 28 75 6e 73 69 67 6e | 65 64 20 73 68 6f 72 74 |W(unsign|ed short|
|00000b50| 20 78 5b 5d 2c 6c 6f 6e | 67 20 6e 2c 64 6f 75 62 | x[],lon|g n,doub|
|00000b60| 6c 65 20 2a 73 64 50 74 | 72 29 0d 7b 0d 09 72 65 |le *sdPt|r).{..re|
|00000b70| 67 69 73 74 65 72 20 64 | 6f 75 62 6c 65 20 73 3b |gister d|ouble s;|
|00000b80| 0d 09 72 65 67 69 73 74 | 65 72 20 6c 6f 6e 67 20 |..regist|er long |
|00000b90| 69 3b 0d 09 72 65 67 69 | 73 74 65 72 20 75 6e 73 |i;..regi|ster uns|
|00000ba0| 69 67 6e 65 64 20 73 68 | 6f 72 74 20 2a 70 3b 0d |igned sh|ort *p;.|
|00000bb0| 0d 09 70 3d 78 3b 0d 09 | 69 66 28 73 64 50 74 72 |..p=x;..|if(sdPtr|
|00000bc0| 21 3d 4e 55 4c 4c 29 7b | 0d 09 09 72 65 67 69 73 |!=NULL){|...regis|
|00000bd0| 74 65 72 20 64 6f 75 62 | 6c 65 20 73 73 3b 0d 09 |ter doub|le ss;..|
|00000be0| 09 72 65 67 69 73 74 65 | 72 20 75 6e 73 69 67 6e |.registe|r unsign|
|00000bf0| 65 64 20 6c 6f 6e 67 20 | 78 78 3b 0d 0d 09 09 73 |ed long |xx;....s|
|00000c00| 3d 73 73 3d 30 2e 30 3b | 0d 09 09 66 6f 72 28 69 |=ss=0.0;|...for(i|
|00000c10| 3d 6e 3b 69 3e 30 3b 69 | 2d 2d 29 7b 0d 09 09 09 |=n;i>0;i|--){....|
|00000c20| 73 2b 3d 78 78 3d 2a 70 | 2b 2b 3b 0d 09 09 09 73 |s+=xx=*p|++;....s|
|00000c30| 73 2b 3d 78 78 2a 78 78 | 3b 0d 09 09 7d 0d 09 09 |s+=xx*xx|;...}...|
|00000c40| 73 2f 3d 6e 3b 0d 09 09 | 69 66 28 6e 3e 31 29 2a |s/=n;...|if(n>1)*|
|00000c50| 73 64 50 74 72 3d 73 71 | 72 74 28 28 73 73 2d 6e |sdPtr=sq|rt((ss-n|
|00000c60| 2a 73 2a 73 29 2f 28 6e | 2d 31 29 29 3b 0d 09 09 |*s*s)/(n|-1));...|
|00000c70| 65 6c 73 65 20 2a 73 64 | 50 74 72 3d 30 3b 0d 09 |else *sd|Ptr=0;..|
|00000c80| 7d 65 6c 73 65 7b 0d 09 | 09 73 3d 30 2e 30 3b 0d |}else{..|.s=0.0;.|
|00000c90| 09 09 66 6f 72 28 69 3d | 6e 3b 69 3e 30 3b 69 2d |..for(i=|n;i>0;i-|
|00000ca0| 2d 29 20 73 2b 3d 2a 70 | 2b 2b 3b 0d 09 09 73 2f |-) s+=*p|++;...s/|
|00000cb0| 3d 6e 3b 0d 09 7d 0d 09 | 72 65 74 75 72 6e 20 73 |=n;..}..|return s|
|00000cc0| 3b 0d 7d 0d 0d 64 6f 75 | 62 6c 65 20 4d 65 61 6e |;.}..dou|ble Mean|
|00000cd0| 4c 28 6c 6f 6e 67 20 78 | 5b 5d 2c 6c 6f 6e 67 20 |L(long x|[],long |
|00000ce0| 6e 2c 64 6f 75 62 6c 65 | 20 2a 73 64 50 74 72 29 |n,double| *sdPtr)|
|00000cf0| 0d 7b 0d 09 72 65 67 69 | 73 74 65 72 20 64 6f 75 |.{..regi|ster dou|
|00000d00| 62 6c 65 20 73 3b 0d 09 | 72 65 67 69 73 74 65 72 |ble s;..|register|
|00000d10| 20 6c 6f 6e 67 20 69 3b | 0d 09 72 65 67 69 73 74 | long i;|..regist|
|00000d20| 65 72 20 6c 6f 6e 67 20 | 2a 70 3b 0d 0d 09 70 3d |er long |*p;...p=|
|00000d30| 78 3b 0d 09 69 66 28 73 | 64 50 74 72 21 3d 4e 55 |x;..if(s|dPtr!=NU|
|00000d40| 4c 4c 29 7b 0d 09 09 72 | 65 67 69 73 74 65 72 20 |LL){...r|egister |
|00000d50| 64 6f 75 62 6c 65 20 73 | 73 2c 78 78 3b 0d 0d 09 |double s|s,xx;...|
|00000d60| 09 73 3d 73 73 3d 30 2e | 30 3b 0d 09 09 66 6f 72 |.s=ss=0.|0;...for|
|00000d70| 28 69 3d 6e 3b 69 3e 30 | 3b 69 2d 2d 29 7b 0d 09 |(i=n;i>0|;i--){..|
|00000d80| 09 09 73 2b 3d 78 78 3d | 2a 70 2b 2b 3b 0d 09 09 |..s+=xx=|*p++;...|
|00000d90| 09 73 73 2b 3d 78 78 2a | 78 78 3b 0d 09 09 7d 0d |.ss+=xx*|xx;...}.|
|00000da0| 09 09 73 2f 3d 6e 3b 0d | 09 09 69 66 28 6e 3e 31 |..s/=n;.|..if(n>1|
|00000db0| 29 2a 73 64 50 74 72 3d | 73 71 72 74 28 28 73 73 |)*sdPtr=|sqrt((ss|
|00000dc0| 2d 6e 2a 73 2a 73 29 2f | 28 6e 2d 31 29 29 3b 0d |-n*s*s)/|(n-1));.|
|00000dd0| 09 09 65 6c 73 65 20 2a | 73 64 50 74 72 3d 30 3b |..else *|sdPtr=0;|
|00000de0| 0d 09 7d 65 6c 73 65 7b | 0d 09 09 73 3d 30 2e 30 |..}else{|...s=0.0|
|00000df0| 3b 0d 09 09 66 6f 72 28 | 69 3d 6e 3b 69 3e 30 3b |;...for(|i=n;i>0;|
|00000e00| 69 2d 2d 29 20 73 2b 3d | 2a 70 2b 2b 3b 0d 09 09 |i--) s+=|*p++;...|
|00000e10| 73 2f 3d 6e 3b 0d 09 7d | 0d 09 72 65 74 75 72 6e |s/=n;..}|..return|
|00000e20| 20 73 3b 0d 7d 0d 0d 64 | 6f 75 62 6c 65 20 4d 65 | s;.}..d|ouble Me|
|00000e30| 61 6e 55 4c 28 75 6e 73 | 69 67 6e 65 64 20 6c 6f |anUL(uns|igned lo|
|00000e40| 6e 67 20 78 5b 5d 2c 6c | 6f 6e 67 20 6e 2c 64 6f |ng x[],l|ong n,do|
|00000e50| 75 62 6c 65 20 2a 73 64 | 50 74 72 29 0d 7b 0d 09 |uble *sd|Ptr).{..|
|00000e60| 72 65 67 69 73 74 65 72 | 20 64 6f 75 62 6c 65 20 |register| double |
|00000e70| 73 3b 0d 09 72 65 67 69 | 73 74 65 72 20 6c 6f 6e |s;..regi|ster lon|
|00000e80| 67 20 69 3b 0d 09 72 65 | 67 69 73 74 65 72 20 75 |g i;..re|gister u|
|00000e90| 6e 73 69 67 6e 65 64 20 | 6c 6f 6e 67 20 2a 70 3b |nsigned |long *p;|
|00000ea0| 0d 0d 09 70 3d 78 3b 0d | 09 69 66 28 73 64 50 74 |...p=x;.|.if(sdPt|
|00000eb0| 72 21 3d 4e 55 4c 4c 29 | 7b 0d 09 09 72 65 67 69 |r!=NULL)|{...regi|
|00000ec0| 73 74 65 72 20 64 6f 75 | 62 6c 65 20 73 73 2c 78 |ster dou|ble ss,x|
|00000ed0| 78 3b 0d 0d 09 09 73 3d | 73 73 3d 30 2e 30 3b 0d |x;....s=|ss=0.0;.|
|00000ee0| 09 09 66 6f 72 28 69 3d | 6e 3b 69 3e 30 3b 69 2d |..for(i=|n;i>0;i-|
|00000ef0| 2d 29 7b 0d 09 09 09 73 | 2b 3d 78 78 3d 2a 70 2b |-){....s|+=xx=*p+|
|00000f00| 2b 3b 0d 09 09 09 73 73 | 2b 3d 78 78 2a 78 78 3b |+;....ss|+=xx*xx;|
|00000f10| 0d 09 09 7d 0d 09 09 73 | 2f 3d 6e 3b 0d 09 09 69 |...}...s|/=n;...i|
|00000f20| 66 28 6e 3e 31 29 2a 73 | 64 50 74 72 3d 73 71 72 |f(n>1)*s|dPtr=sqr|
|00000f30| 74 28 28 73 73 2d 6e 2a | 73 2a 73 29 2f 28 6e 2d |t((ss-n*|s*s)/(n-|
|00000f40| 31 29 29 3b 0d 09 09 65 | 6c 73 65 20 2a 73 64 50 |1));...e|lse *sdP|
|00000f50| 74 72 3d 30 3b 0d 09 7d | 65 6c 73 65 7b 0d 09 09 |tr=0;..}|else{...|
|00000f60| 73 3d 30 2e 30 3b 0d 09 | 09 66 6f 72 28 69 3d 6e |s=0.0;..|.for(i=n|
|00000f70| 3b 69 3e 30 3b 69 2d 2d | 29 20 73 2b 3d 2a 70 2b |;i>0;i--|) s+=*p+|
|00000f80| 2b 3b 0d 09 09 73 2f 3d | 6e 3b 0d 09 7d 0d 09 72 |+;...s/=|n;..}..r|
|00000f90| 65 74 75 72 6e 20 73 3b | 0d 7d 0d 00 00 00 00 00 |eturn s;|.}......|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00001010| 00 00 11 86 07 54 72 61 | 70 73 2e 68 02 00 02 00 |.....Tra|ps.h....|
|00001020| 54 45 58 54 4b 41 48 4c | 01 00 00 64 04 20 00 00 |TEXTKAHL|...d. ..|
|00001030| 06 4d 65 61 6e 2e 63 4d | 02 00 00 00 54 45 58 54 |.Mean.cM|....TEXT|
|00001040| 43 57 49 45 01 00 00 78 | 03 60 00 00 00 00 ad 86 |CWIE...x|.`......|
|00001050| 00 00 54 45 58 54 43 57 | 49 45 01 00 00 78 03 60 |..TEXTCW|IE...x.`|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 00 00 a3 19 a4 37 00 00 | 0f 1b 00 00 01 9a 00 00 |.....7..|........|
|00001080| 00 00 0d 00 00 00 11 86 | 07 54 79 70 65 73 2e 68 |........|.Types.h|
|00001090| 02 00 02 00 54 45 58 54 | 4b 41 48 4c 01 00 00 78 |....TEXT|KAHL...x|
|000010a0| 04 20 00 00 00 00 14 17 | 00 00 00 00 0a b1 00 00 |. ......|........|
|000010b0| 0c 00 00 00 00 00 00 00 | 00 00 00 00 a4 16 39 c0 |........|......9.|
|000010c0| a4 69 8a 91 00 00 00 00 | 00 00 00 00 00 00 00 00 |.i......|........|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 48 0d 00 02 00 00 |........|..H.....|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 00 00 00 00 0e 00 | 00 00 11 86 08 56 61 6c |........|.....Val|
|00001100| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001120| 00 00 00 00 00 00 00 03 | 00 04 00 3d 00 03 01 a0 |........|...=....|
|00001130| 02 7d 00 3d 00 03 01 a0 | 02 7d ab ec 30 d0 00 00 |.}.=....|.}..0...|
|00001140| 03 3a 00 00 03 3a 00 00 | 00 00 00 00 00 00 00 04 |.:...:..|........|
|00001150| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|00001160| 00 00 00 46 00 e9 a7 f8 | 1c a6 00 00 00 1c 00 46 |...F....|.......F|
|00001170| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00001180| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00001190| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|000011a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+