/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / misc / volume05 / awkstats

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 64 65 63 | 77 72 6c 21 6c 61 62 72 |From dec|wrl!labr|
|00000010| 65 61 21 72 75 74 67 65 | 72 73 21 75 6b 6d 61 21 |ea!rutge|rs!ukma!|
|00000020| 63 77 6a 63 63 21 68 61 | 6c 21 6e 63 6f 61 73 74 |cwjcc!ha|l!ncoast|
|00000030| 21 61 6c 6c 62 65 72 79 | 20 53 75 6e 20 4f 63 74 |!allbery| Sun Oct|
|00000040| 20 33 30 20 31 35 3a 30 | 36 3a 32 30 20 50 53 54 | 30 15:0|6:20 PST|
|00000050| 20 31 39 38 38 0a 41 72 | 74 69 63 6c 65 20 36 39 | 1988.Ar|ticle 69|
|00000060| 30 20 6f 66 20 63 6f 6d | 70 2e 73 6f 75 72 63 65 |0 of com|p.source|
|00000070| 73 2e 6d 69 73 63 3a 0a | 50 61 74 68 3a 20 67 72 |s.misc:.|Path: gr|
|00000080| 61 6e 69 74 65 21 64 65 | 63 77 72 6c 21 6c 61 62 |anite!de|cwrl!lab|
|00000090| 72 65 61 21 72 75 74 67 | 65 72 73 21 75 6b 6d 61 |rea!rutg|ers!ukma|
|000000a0| 21 63 77 6a 63 63 21 68 | 61 6c 21 6e 63 6f 61 73 |!cwjcc!h|al!ncoas|
|000000b0| 74 21 61 6c 6c 62 65 72 | 79 0a 46 72 6f 6d 3a 20 |t!allber|y.From: |
|000000c0| 74 72 40 77 69 6e 64 2e | 62 65 6c 6c 63 6f 72 65 |tr@wind.|bellcore|
|000000d0| 2e 63 6f 6d 20 28 74 6f | 6d 20 72 65 69 6e 67 6f |.com (to|m reingo|
|000000e0| 6c 64 29 0a 4e 65 77 73 | 67 72 6f 75 70 73 3a 20 |ld).News|groups: |
|000000f0| 63 6f 6d 70 2e 73 6f 75 | 72 63 65 73 2e 6d 69 73 |comp.sou|rces.mis|
|00000100| 63 0a 53 75 62 6a 65 63 | 74 3a 20 76 30 35 69 30 |c.Subjec|t: v05i0|
|00000110| 31 33 3a 20 53 74 61 74 | 69 73 74 69 63 61 6c 20 |13: Stat|istical |
|00000120| 61 77 6b 20 73 63 72 69 | 70 74 73 0a 4d 65 73 73 |awk scri|pts.Mess|
|00000130| 61 67 65 2d 49 44 3a 20 | 3c 38 38 31 30 32 32 31 |age-ID: |<8810221|
|00000140| 34 33 30 2e 41 41 31 38 | 33 34 35 40 77 69 6e 64 |430.AA18|345@wind|
|00000150| 2e 62 65 6c 6c 63 6f 72 | 65 2e 63 6f 6d 3e 0a 44 |.bellcor|e.com>.D|
|00000160| 61 74 65 3a 20 32 38 20 | 4f 63 74 20 38 38 20 30 |ate: 28 |Oct 88 0|
|00000170| 32 3a 34 34 3a 32 36 20 | 47 4d 54 0a 53 65 6e 64 |2:44:26 |GMT.Send|
|00000180| 65 72 3a 20 61 6c 6c 62 | 65 72 79 40 6e 63 6f 61 |er: allb|ery@ncoa|
|00000190| 73 74 2e 55 55 43 50 0a | 52 65 70 6c 79 2d 54 6f |st.UUCP.|Reply-To|
|000001a0| 3a 20 74 72 40 77 69 6e | 64 2e 62 65 6c 6c 63 6f |: tr@win|d.bellco|
|000001b0| 72 65 2e 63 6f 6d 20 28 | 74 6f 6d 20 72 65 69 6e |re.com (|tom rein|
|000001c0| 67 6f 6c 64 29 0a 4c 69 | 6e 65 73 3a 20 31 30 35 |gold).Li|nes: 105|
|000001d0| 0a 41 70 70 72 6f 76 65 | 64 3a 20 61 6c 6c 62 65 |.Approve|d: allbe|
|000001e0| 72 79 40 6e 63 6f 61 73 | 74 2e 55 55 43 50 0a 0a |ry@ncoas|t.UUCP..|
|000001f0| 50 6f 73 74 69 6e 67 2d | 6e 75 6d 62 65 72 3a 20 |Posting-|number: |
|00000200| 56 6f 6c 75 6d 65 20 35 | 2c 20 49 73 73 75 65 20 |Volume 5|, Issue |
|00000210| 31 33 0a 53 75 62 6d 69 | 74 74 65 64 2d 62 79 3a |13.Submi|tted-by:|
|00000220| 20 22 74 6f 6d 20 72 65 | 69 6e 67 6f 6c 64 22 20 | "tom re|ingold" |
|00000230| 3c 74 72 40 77 69 6e 64 | 2e 62 65 6c 6c 63 6f 72 |<tr@wind|.bellcor|
|00000240| 65 2e 63 6f 6d 3e 0a 41 | 72 63 68 69 76 65 2d 6e |e.com>.A|rchive-n|
|00000250| 61 6d 65 3a 20 61 77 6b | 73 74 61 74 73 0a 0a 5b |ame: awk|stats..[|
|00000260| 54 68 69 73 20 77 61 73 | 20 64 65 66 65 72 72 65 |This was| deferre|
|00000270| 64 20 66 6f 72 20 61 20 | 62 69 74 20 69 6e 20 6d |d for a |bit in m|
|00000280| 65 6d 6f 72 79 20 6f 66 | 20 74 68 65 20 58 65 6e |emory of| the Xen|
|00000290| 69 78 20 73 6d 61 69 6c | 20 6d 6f 64 73 20 70 6f |ix smail| mods po|
|000002a0| 73 74 69 6e 67 20 74 68 | 61 74 0a 68 61 64 20 74 |sting th|at.had t|
|000002b0| 6f 20 62 65 20 73 75 70 | 65 72 73 65 64 65 64 20 |o be sup|erseded |
|000002c0| 74 69 6d 65 20 61 66 74 | 65 72 20 74 69 6d 65 20 |time aft|er time |
|000002d0| 61 66 74 65 72 2e 2e 2e | 20 79 6f 75 20 67 65 74 |after...| you get|
|000002e0| 20 74 68 65 20 69 64 65 | 61 2e 20 20 49 20 70 72 | the ide|a.  I pr|
|000002f0| 65 66 65 72 0a 6d 61 6b | 69 6e 67 20 73 75 72 65 |efer.mak|ing sure|
|00000300| 20 74 68 65 20 70 6f 73 | 74 69 6e 67 20 69 73 20 | the pos|ting is |
|00000310| 73 74 61 62 6c 65 20 66 | 69 72 73 74 2e 2e 2e 2e |stable f|irst....|
|00000320| 20 20 2b 2b 62 73 61 5d | 0a 0a 59 6f 75 20 6b 6e |  ++bsa]|..You kn|
|00000330| 6f 77 20 68 6f 77 20 69 | 74 20 67 6f 65 73 2e 20 |ow how i|t goes. |
|00000340| 20 59 6f 75 20 63 6c 65 | 61 6e 20 79 6f 75 72 20 | You cle|an your |
|00000350| 63 6f 64 65 20 75 70 20 | 6a 75 73 74 20 74 6f 20 |code up |just to |
|00000360| 6d 61 6b 65 20 69 74 20 | 6c 6f 6f 6b 0a 70 72 65 |make it |look.pre|
|00000370| 74 74 79 20 61 6e 64 20 | 79 6f 75 20 62 72 65 61 |tty and |you brea|
|00000380| 6b 20 69 74 2e 20 20 4f | 6b 2c 20 73 6f 20 74 68 |k it.  O|k, so th|
|00000390| 69 73 20 76 65 72 73 69 | 6f 6e 20 77 6f 72 6b 73 |is versi|on works|
|000003a0| 2e 20 20 49 20 68 6f 70 | 65 20 79 6f 75 0a 68 61 |.  I hop|e you.ha|
|000003b0| 76 65 6e 27 74 20 70 6f | 73 74 65 64 20 79 65 73 |ven't po|sted yes|
|000003c0| 74 65 72 64 61 79 27 73 | 20 76 65 72 73 69 6f 6e |terday's| version|
|000003d0| 2e 0a 0a 54 68 61 6e 6b | 73 21 0a 0a 23 21 20 2f |...Thank|s!..#! /|
|000003e0| 62 69 6e 2f 73 68 0a 23 | 20 54 68 69 73 20 69 73 |bin/sh.#| This is|
|000003f0| 20 61 20 73 68 65 6c 6c | 20 61 72 63 68 69 76 65 | a shell| archive|
|00000400| 2c 20 6d 65 61 6e 69 6e | 67 3a 0a 23 20 31 2e 20 |, meanin|g:.# 1. |
|00000410| 52 65 6d 6f 76 65 20 65 | 76 65 72 79 74 68 69 6e |Remove e|verythin|
|00000420| 67 20 61 62 6f 76 65 20 | 74 68 65 20 23 21 20 2f |g above |the #! /|
|00000430| 62 69 6e 2f 73 68 20 6c | 69 6e 65 2e 0a 23 20 32 |bin/sh l|ine..# 2|
|00000440| 2e 20 53 61 76 65 20 74 | 68 65 20 72 65 73 75 6c |. Save t|he resul|
|00000450| 74 69 6e 67 20 74 65 78 | 74 20 69 6e 20 61 20 66 |ting tex|t in a f|
|00000460| 69 6c 65 2e 0a 23 20 33 | 2e 20 45 78 65 63 75 74 |ile..# 3|. Execut|
|00000470| 65 20 74 68 65 20 66 69 | 6c 65 20 77 69 74 68 20 |e the fi|le with |
|00000480| 2f 62 69 6e 2f 73 68 20 | 28 6e 6f 74 20 63 73 68 |/bin/sh |(not csh|
|00000490| 29 20 74 6f 20 63 72 65 | 61 74 65 20 74 68 65 20 |) to cre|ate the |
|000004a0| 66 69 6c 65 73 3a 0a 23 | 09 52 45 41 44 4d 45 0a |files:.#|.README.|
|000004b0| 23 09 73 74 61 74 73 31 | 2e 61 77 6b 0a 23 09 73 |#.stats1|.awk.#.s|
|000004c0| 74 61 74 73 32 2e 61 77 | 6b 0a 23 20 54 68 69 73 |tats2.aw|k.# This|
|000004d0| 20 61 72 63 68 69 76 65 | 20 63 72 65 61 74 65 64 | archive| created|
|000004e0| 3a 20 53 61 74 20 4f 63 | 74 20 32 32 20 31 30 3a |: Sat Oc|t 22 10:|
|000004f0| 32 37 3a 33 35 20 31 39 | 38 38 0a 23 20 42 79 3a |27:35 19|88.# By:|
|00000500| 09 74 6f 6d 20 72 65 69 | 6e 67 6f 6c 64 20 28 42 |.tom rei|ngold (B|
|00000510| 65 6c 6c 63 6f 72 65 2c | 20 4d 6f 72 72 69 73 74 |ellcore,| Morrist|
|00000520| 6f 77 6e 2c 20 4e 6f 6f | 20 4a 6f 69 7a 79 29 0a |own, Noo| Joizy).|
|00000530| 65 78 70 6f 72 74 20 50 | 41 54 48 3b 20 50 41 54 |export P|ATH; PAT|
|00000540| 48 3d 2f 62 69 6e 3a 24 | 50 41 54 48 0a 69 66 20 |H=/bin:$|PATH.if |
|00000550| 74 65 73 74 20 2d 66 20 | 27 52 45 41 44 4d 45 27 |test -f |'README'|
|00000560| 0a 74 68 65 6e 0a 09 65 | 63 68 6f 20 73 68 61 72 |.then..e|cho shar|
|00000570| 3a 20 77 69 6c 6c 20 6e | 6f 74 20 6f 76 65 72 2d |: will n|ot over-|
|00000580| 77 72 69 74 65 20 65 78 | 69 73 74 69 6e 67 20 66 |write ex|isting f|
|00000590| 69 6c 65 20 22 27 52 45 | 41 44 4d 45 27 22 0a 65 |ile "'RE|ADME'".e|
|000005a0| 6c 73 65 0a 63 61 74 20 | 3c 3c 20 5c 53 48 41 52 |lse.cat |<< \SHAR|
|000005b0| 5f 45 4f 46 20 3e 20 27 | 52 45 41 44 4d 45 27 0a |_EOF > '|README'.|
|000005c0| 0a 48 65 72 65 20 69 73 | 20 61 6e 20 61 77 6b 20 |.Here is| an awk |
|000005d0| 73 63 72 69 70 74 20 49 | 20 77 72 6f 74 65 20 66 |script I| wrote f|
|000005e0| 6f 72 20 74 68 65 20 68 | 65 6c 6c 20 6f 66 20 69 |or the h|ell of i|
|000005f0| 74 20 62 65 63 61 75 73 | 65 20 49 20 61 6d 20 68 |t becaus|e I am h|
|00000600| 6f 6d 65 0a 73 69 63 6b | 20 74 6f 64 61 79 2e 20 |ome.sick| today. |
|00000610| 20 49 74 20 63 6f 6d 70 | 75 74 65 73 20 74 68 65 | It comp|utes the|
|00000620| 20 73 74 61 6e 64 61 72 | 64 20 62 6f 72 69 6e 67 | standar|d boring|
|00000630| 20 75 6e 69 76 61 72 69 | 61 74 65 20 73 74 61 74 | univari|ate stat|
|00000640| 69 73 74 69 63 73 2e 0a | 49 20 68 61 76 65 20 65 |istics..|I have e|
|00000650| 6e 63 6c 6f 73 65 64 20 | 74 77 6f 20 76 65 72 73 |nclosed |two vers|
|00000660| 69 6f 6e 73 2e 20 20 22 | 73 74 61 74 73 31 2e 61 |ions.  "|stats1.a|
|00000670| 77 6b 22 20 72 65 71 75 | 69 72 65 73 20 74 68 65 |wk" requ|ires the|
|00000680| 20 6e 65 77 20 6e 65 77 | 0a 76 65 72 73 69 6f 6e | new new|.version|
|00000690| 20 6f 66 20 61 77 6b 2c | 20 77 68 69 63 68 20 68 | of awk,| which h|
|000006a0| 61 73 20 75 73 65 72 2d | 64 65 66 69 6e 61 62 6c |as user-|definabl|
|000006b0| 65 20 66 75 6e 63 74 69 | 6f 6e 73 2e 20 20 28 4d |e functi|ons.  (M|
|000006c0| 4b 53 20 61 77 6b 20 61 | 6c 6c 6f 77 73 0a 74 68 |KS awk a|llows.th|
|000006d0| 69 73 20 74 6f 6f 21 29 | 20 20 49 6e 20 73 74 61 |is too!)|  In sta|
|000006e0| 74 73 31 2e 61 77 6b 2c | 20 49 20 64 65 66 69 6e |ts1.awk,| I defin|
|000006f0| 65 20 61 20 66 75 6e 63 | 74 69 6f 6e 20 63 61 6c |e a func|tion cal|
|00000700| 6c 65 64 20 70 6f 77 2c | 20 77 68 69 63 68 0a 69 |led pow,| which.i|
|00000710| 6e 20 61 6e 64 20 6f 66 | 20 69 74 73 65 6c 66 2c |n and of| itself,|
|00000720| 20 69 73 20 75 73 65 66 | 75 6c 2e 20 20 22 73 74 | is usef|ul.  "st|
|00000730| 61 74 73 32 2e 61 77 6b | 22 20 64 6f 65 73 6e 27 |ats2.awk|" doesn'|
|00000740| 74 20 72 65 71 75 69 72 | 65 20 74 68 65 20 6e 65 |t requir|e the ne|
|00000750| 77 0a 61 77 6b 2e 20 20 | 49 74 20 6d 61 79 20 61 |w.awk.  |It may a|
|00000760| 63 74 75 61 6c 6c 79 20 | 62 65 20 66 61 73 74 65 |ctually |be faste|
|00000770| 72 20 74 6f 6f 20 73 69 | 6e 63 65 20 69 74 20 64 |r too si|nce it d|
|00000780| 6f 65 73 6e 27 74 20 64 | 6f 20 61 6e 20 69 6e 74 |oesn't d|o an int|
|00000790| 65 72 70 72 65 74 65 64 | 0a 66 75 6e 63 74 69 6f |erpreted|.functio|
|000007a0| 6e 20 63 61 6c 6c 2e 20 | 20 42 75 74 20 69 74 27 |n call. | But it'|
|000007b0| 73 20 6e 6f 74 20 61 73 | 20 63 6f 6f 6c 2e 0a 0a |s not as| cool...|
|000007c0| 54 6f 6d 20 52 65 69 6e | 67 6f 6c 64 0a 50 41 50 |Tom Rein|gold.PAP|
|000007d0| 45 52 4e 45 54 3a 20 20 | 20 20 20 20 20 20 20 20 |ERNET:  |        |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 7c 49 4e 54 |        |    |INT|
|000007f0| 45 52 4e 45 54 3a 20 20 | 20 20 20 20 20 74 72 40 |ERNET:  |     tr@|
|00000800| 62 65 6c 6c 63 6f 72 65 | 2e 62 65 6c 6c 63 6f 72 |bellcore|.bellcor|
|00000810| 65 2e 63 6f 6d 0a 42 65 | 6c 6c 20 43 6f 6d 6d 75 |e.com.Be|ll Commu|
|00000820| 6e 69 63 61 74 69 6f 6e | 73 20 52 65 73 65 61 72 |nication|s Resear|
|00000830| 63 68 20 20 20 7c 55 55 | 43 50 2d 4e 45 54 3a 20 |ch   |UU|CP-NET: |
|00000840| 20 20 20 20 20 20 62 65 | 6c 6c 63 6f 72 65 21 74 |      be|llcore!t|
|00000850| 72 0a 34 34 35 20 53 6f | 75 74 68 20 53 74 20 72 |r.445 So|uth St r|
|00000860| 6f 6f 6d 20 32 4c 33 35 | 30 20 20 20 20 20 20 20 |oom 2L35|0       |
|00000870| 20 7c 53 4f 55 4e 44 4e | 45 54 3a 20 20 20 20 20 | |SOUNDN|ET:     |
|00000880| 20 20 28 32 30 31 29 20 | 38 32 39 2d 34 36 32 32 |  (201) |829-4622|
|00000890| 20 5b 77 6f 72 6b 5d 2c | 0a 4d 6f 72 72 69 73 74 | [work],|.Morrist|
|000008a0| 6f 77 6e 2c 20 4e 4a 20 | 30 37 39 36 30 2d 31 39 |own, NJ |07960-19|
|000008b0| 31 30 20 20 20 20 20 20 | 7c 20 20 20 20 20 20 20 |10      ||       |
|000008c0| 20 20 20 20 20 20 20 20 | 20 28 32 30 31 29 20 32 |        | (201) 2|
|000008d0| 38 37 2d 32 33 34 35 20 | 5b 68 6f 6d 65 5d 0a 53 |87-2345 |[home].S|
|000008e0| 48 41 52 5f 45 4f 46 0a | 69 66 20 74 65 73 74 20 |HAR_EOF.|if test |
|000008f0| 37 39 39 20 2d 6e 65 20 | 22 60 77 63 20 2d 63 20 |799 -ne |"`wc -c |
|00000900| 3c 20 27 52 45 41 44 4d | 45 27 60 22 0a 74 68 65 |< 'READM|E'`".the|
|00000910| 6e 0a 09 65 63 68 6f 20 | 73 68 61 72 3a 20 65 72 |n..echo |shar: er|
|00000920| 72 6f 72 20 74 72 61 6e | 73 6d 69 74 74 69 6e 67 |ror tran|smitting|
|00000930| 20 22 27 52 45 41 44 4d | 45 27 22 20 27 28 73 68 | "'READM|E'" '(sh|
|00000940| 6f 75 6c 64 20 68 61 76 | 65 20 62 65 65 6e 20 37 |ould hav|e been 7|
|00000950| 39 39 20 63 68 61 72 61 | 63 74 65 72 73 29 27 0a |99 chara|cters)'.|
|00000960| 66 69 0a 66 69 20 23 20 | 65 6e 64 20 6f 66 20 6f |fi.fi # |end of o|
|00000970| 76 65 72 77 72 69 74 69 | 6e 67 20 63 68 65 63 6b |verwriti|ng check|
|00000980| 0a 69 66 20 74 65 73 74 | 20 2d 66 20 27 73 74 61 |.if test| -f 'sta|
|00000990| 74 73 31 2e 61 77 6b 27 | 0a 74 68 65 6e 0a 09 65 |ts1.awk'|.then..e|
|000009a0| 63 68 6f 20 73 68 61 72 | 3a 20 77 69 6c 6c 20 6e |cho shar|: will n|
|000009b0| 6f 74 20 6f 76 65 72 2d | 77 72 69 74 65 20 65 78 |ot over-|write ex|
|000009c0| 69 73 74 69 6e 67 20 66 | 69 6c 65 20 22 27 73 74 |isting f|ile "'st|
|000009d0| 61 74 73 31 2e 61 77 6b | 27 22 0a 65 6c 73 65 0a |ats1.awk|'".else.|
|000009e0| 63 61 74 20 3c 3c 20 5c | 53 48 41 52 5f 45 4f 46 |cat << \|SHAR_EOF|
|000009f0| 20 3e 20 27 73 74 61 74 | 73 31 2e 61 77 6b 27 0a | > 'stat|s1.awk'.|
|00000a00| 7b 0a 09 61 5b 4e 52 5d | 20 3d 20 24 31 0a 09 73 |{..a[NR]| = $1..s|
|00000a10| 75 6d 20 2b 3d 20 61 5b | 4e 52 5d 0a 09 73 75 6d |um += a[|NR]..sum|
|00000a20| 73 71 20 2b 3d 20 70 6f | 77 28 61 5b 4e 52 5d 2c |sq += po|w(a[NR],|
|00000a30| 20 32 2e 30 29 0a 7d 0a | 45 4e 44 20 7b 0a 09 6d | 2.0).}.|END {..m|
|00000a40| 65 61 6e 20 3d 20 28 73 | 75 6d 20 2f 20 4e 52 29 |ean = (s|um / NR)|
|00000a50| 0a 09 73 74 64 64 65 76 | 20 3d 20 73 71 72 74 28 |..stddev| = sqrt(|
|00000a60| 28 73 75 6d 73 71 20 2f | 20 4e 52 29 20 2d 20 70 |(sumsq /| NR) - p|
|00000a70| 6f 77 28 6d 65 61 6e 2c | 20 32 2e 30 29 29 0a 09 |ow(mean,| 2.0))..|
|00000a80| 70 72 69 6e 74 66 20 22 | 73 75 6d 20 69 73 20 25 |printf "|sum is %|
|00000a90| 31 2e 32 66 2c 20 6d 65 | 61 6e 20 69 73 20 25 31 |1.2f, me|an is %1|
|00000aa0| 2e 32 66 2c 20 6e 20 69 | 73 20 25 64 2c 20 73 74 |.2f, n i|s %d, st|
|00000ab0| 64 64 65 76 20 69 73 20 | 25 31 2e 33 66 5c 6e 22 |ddev is |%1.3f\n"|
|00000ac0| 2c 20 5c 0a 09 09 73 75 | 6d 2c 20 6d 65 61 6e 2c |, \...su|m, mean,|
|00000ad0| 20 4e 52 2c 20 73 74 64 | 64 65 76 0a 7d 0a 66 75 | NR, std|dev.}.fu|
|00000ae0| 6e 63 20 70 6f 77 28 6d | 61 6e 74 69 73 73 61 2c |nc pow(m|antissa,|
|00000af0| 20 65 78 70 6f 6e 65 6e | 74 29 0a 7b 0a 09 69 66 | exponen|t).{..if|
|00000b00| 20 28 65 78 70 6f 6e 65 | 6e 74 20 3d 3d 20 30 29 | (expone|nt == 0)|
|00000b10| 0a 09 09 72 65 74 75 72 | 6e 28 31 29 0a 09 69 66 |...retur|n(1)..if|
|00000b20| 20 28 6d 61 6e 74 69 73 | 73 61 20 3d 3d 20 30 29 | (mantis|sa == 0)|
|00000b30| 0a 09 09 72 65 74 75 72 | 6e 28 30 29 0a 09 72 65 |...retur|n(0)..re|
|00000b40| 74 75 72 6e 28 65 78 70 | 28 65 78 70 6f 6e 65 6e |turn(exp|(exponen|
|00000b50| 74 20 2a 20 6c 6f 67 28 | 6d 61 6e 74 69 73 73 61 |t * log(|mantissa|
|00000b60| 29 29 29 0a 7d 0a 53 48 | 41 52 5f 45 4f 46 0a 69 |))).}.SH|AR_EOF.i|
|00000b70| 66 20 74 65 73 74 20 33 | 35 38 20 2d 6e 65 20 22 |f test 3|58 -ne "|
|00000b80| 60 77 63 20 2d 63 20 3c | 20 27 73 74 61 74 73 31 |`wc -c <| 'stats1|
|00000b90| 2e 61 77 6b 27 60 22 0a | 74 68 65 6e 0a 09 65 63 |.awk'`".|then..ec|
|00000ba0| 68 6f 20 73 68 61 72 3a | 20 65 72 72 6f 72 20 74 |ho shar:| error t|
|00000bb0| 72 61 6e 73 6d 69 74 74 | 69 6e 67 20 22 27 73 74 |ransmitt|ing "'st|
|00000bc0| 61 74 73 31 2e 61 77 6b | 27 22 20 27 28 73 68 6f |ats1.awk|'" '(sho|
|00000bd0| 75 6c 64 20 68 61 76 65 | 20 62 65 65 6e 20 33 35 |uld have| been 35|
|00000be0| 38 20 63 68 61 72 61 63 | 74 65 72 73 29 27 0a 66 |8 charac|ters)'.f|
|00000bf0| 69 0a 66 69 20 23 20 65 | 6e 64 20 6f 66 20 6f 76 |i.fi # e|nd of ov|
|00000c00| 65 72 77 72 69 74 69 6e | 67 20 63 68 65 63 6b 0a |erwritin|g check.|
|00000c10| 69 66 20 74 65 73 74 20 | 2d 66 20 27 73 74 61 74 |if test |-f 'stat|
|00000c20| 73 32 2e 61 77 6b 27 0a | 74 68 65 6e 0a 09 65 63 |s2.awk'.|then..ec|
|00000c30| 68 6f 20 73 68 61 72 3a | 20 77 69 6c 6c 20 6e 6f |ho shar:| will no|
|00000c40| 74 20 6f 76 65 72 2d 77 | 72 69 74 65 20 65 78 69 |t over-w|rite exi|
|00000c50| 73 74 69 6e 67 20 66 69 | 6c 65 20 22 27 73 74 61 |sting fi|le "'sta|
|00000c60| 74 73 32 2e 61 77 6b 27 | 22 0a 65 6c 73 65 0a 63 |ts2.awk'|".else.c|
|00000c70| 61 74 20 3c 3c 20 5c 53 | 48 41 52 5f 45 4f 46 20 |at << \S|HAR_EOF |
|00000c80| 3e 20 27 73 74 61 74 73 | 32 2e 61 77 6b 27 0a 7b |> 'stats|2.awk'.{|
|00000c90| 0a 09 61 5b 4e 52 5d 20 | 3d 20 24 31 0a 09 73 75 |..a[NR] |= $1..su|
|00000ca0| 6d 20 2b 3d 20 61 5b 4e | 52 5d 0a 09 73 75 6d 73 |m += a[N|R]..sums|
|00000cb0| 71 20 2b 3d 20 28 61 5b | 4e 52 5d 20 2a 20 61 5b |q += (a[|NR] * a[|
|00000cc0| 4e 52 5d 29 0a 7d 0a 45 | 4e 44 20 7b 0a 09 6d 65 |NR]).}.E|ND {..me|
|00000cd0| 61 6e 20 3d 20 28 73 75 | 6d 20 2f 20 4e 52 29 0a |an = (su|m / NR).|
|00000ce0| 09 73 74 64 64 65 76 20 | 3d 20 73 71 72 74 28 28 |.stddev |= sqrt((|
|00000cf0| 73 75 6d 73 71 20 2f 20 | 4e 52 29 20 2d 20 28 6d |sumsq / |NR) - (m|
|00000d00| 65 61 6e 20 2a 20 6d 65 | 61 6e 29 29 0a 09 70 72 |ean * me|an))..pr|
|00000d10| 69 6e 74 66 20 22 73 75 | 6d 20 69 73 20 25 31 2e |intf "su|m is %1.|
|00000d20| 32 66 2c 20 6d 65 61 6e | 20 69 73 20 25 31 2e 32 |2f, mean| is %1.2|
|00000d30| 66 2c 20 6e 20 69 73 20 | 25 64 2c 20 73 74 64 64 |f, n is |%d, stdd|
|00000d40| 65 76 20 69 73 20 25 31 | 2e 33 66 5c 6e 22 2c 20 |ev is %1|.3f\n", |
|00000d50| 5c 0a 09 09 73 75 6d 2c | 20 6d 65 61 6e 2c 20 4e |\...sum,| mean, N|
|00000d60| 52 2c 20 73 74 64 64 65 | 76 0a 7d 0a 53 48 41 52 |R, stdde|v.}.SHAR|
|00000d70| 5f 45 4f 46 0a 69 66 20 | 74 65 73 74 20 32 32 31 |_EOF.if |test 221|
|00000d80| 20 2d 6e 65 20 22 60 77 | 63 20 2d 63 20 3c 20 27 | -ne "`w|c -c < '|
|00000d90| 73 74 61 74 73 32 2e 61 | 77 6b 27 60 22 0a 74 68 |stats2.a|wk'`".th|
|00000da0| 65 6e 0a 09 65 63 68 6f | 20 73 68 61 72 3a 20 65 |en..echo| shar: e|
|00000db0| 72 72 6f 72 20 74 72 61 | 6e 73 6d 69 74 74 69 6e |rror tra|nsmittin|
|00000dc0| 67 20 22 27 73 74 61 74 | 73 32 2e 61 77 6b 27 22 |g "'stat|s2.awk'"|
|00000dd0| 20 27 28 73 68 6f 75 6c | 64 20 68 61 76 65 20 62 | '(shoul|d have b|
|00000de0| 65 65 6e 20 32 32 31 20 | 63 68 61 72 61 63 74 65 |een 221 |characte|
|00000df0| 72 73 29 27 0a 66 69 0a | 66 69 20 23 20 65 6e 64 |rs)'.fi.|fi # end|
|00000e00| 20 6f 66 20 6f 76 65 72 | 77 72 69 74 69 6e 67 20 | of over|writing |
|00000e10| 63 68 65 63 6b 0a 23 09 | 45 6e 64 20 6f 66 20 73 |check.#.|End of s|
|00000e20| 68 65 6c 6c 20 61 72 63 | 68 69 76 65 0a 65 78 69 |hell arc|hive.exi|
|00000e30| 74 20 30 0a 0a 0a       |                         |t 0...  |        |
+--------+-------------------------+-------------------------+--------+--------+