/ Mac Power 1997 January / macpower199701.bin / AMUG / Programming_10 / Videotoolbox 96-08-22-c.sit / VideoToolbox / (Utilities) / Quick3 / SortAndMergeContrasts.c

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 17 53 6f 72 74 41 6e | 64 4d 65 72 67 65 43 6f |..SortAn|dMergeCo|
|00000010| 6e 74 72 61 73 74 73 2e | 63 00 00 00 00 00 00 00 |ntrasts.|c.......|
|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 05 e9 00 | 00 02 d6 aa dc a9 40 aa |........|......@.|
|00000060| dc a9 40 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..@.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 87 99 00 00 |........|........|
|00000080| 2f 2a 0d 53 6f 72 74 41 | 6e 64 4d 65 72 67 65 43 |/*.SortA|ndMergeC|
|00000090| 6f 6e 74 72 61 73 74 73 | 2e 63 0d 48 49 53 54 4f |ontrasts|.c.HISTO|
|000000a0| 52 59 3a 0d 38 2f 32 34 | 2f 39 31 09 64 67 70 09 |RY:.8/24|/91.dgp.|
|000000b0| 41 64 64 65 64 20 74 79 | 70 65 64 65 66 20 61 6e |Added ty|pedef an|
|000000c0| 64 20 63 61 73 74 20 74 | 6f 20 6d 61 6b 65 20 69 |d cast t|o make i|
|000000d0| 74 20 63 6f 6d 70 61 74 | 69 62 6c 65 20 77 69 74 |t compat|ible wit|
|000000e0| 68 20 54 48 49 4e 4b 20 | 43 20 35 2e 30 2e 0d 31 |h THINK |C 5.0..1|
|000000f0| 2f 32 35 2f 39 33 20 64 | 67 70 20 72 65 6d 6f 76 |/25/93 d|gp remov|
|00000100| 65 64 20 6f 62 73 6f 6c | 65 74 65 20 73 75 70 70 |ed obsol|ete supp|
|00000110| 6f 72 74 20 66 6f 72 20 | 54 48 49 4e 4b 20 43 20 |ort for |THINK C |
|00000120| 34 2e 0d 31 31 2f 31 2f | 39 34 20 64 67 70 20 66 |4..11/1/|94 dgp f|
|00000130| 69 78 65 64 20 6d 69 6e | 6f 72 20 62 75 67 20 69 |ixed min|or bug i|
|00000140| 6e 20 53 6f 72 74 41 6e | 64 4d 65 72 67 65 43 6f |n SortAn|dMergeCo|
|00000150| 6e 74 72 61 73 74 73 20 | 72 65 70 6f 72 74 65 64 |ntrasts |reported|
|00000160| 20 62 79 20 42 61 72 74 | 20 46 61 72 65 6c 6c 2e | by Bart| Farell.|
|00000170| 20 49 66 20 74 68 65 72 | 65 0d 77 65 72 65 20 6d | If ther|e.were m|
|00000180| 6f 72 65 20 74 68 61 6e | 20 32 20 69 64 65 6e 74 |ore than| 2 ident|
|00000190| 69 63 61 6c 20 63 6f 6e | 74 72 61 73 74 73 2c 20 |ical con|trasts, |
|000001a0| 74 68 65 20 33 72 64 20 | 77 6f 75 6c 64 20 6e 6f |the 3rd |would no|
|000001b0| 74 20 62 65 20 6d 65 72 | 67 65 64 2e 20 54 68 69 |t be mer|ged. Thi|
|000001c0| 73 20 64 69 64 20 6e 6f | 74 20 63 6f 72 72 75 70 |s did no|t corrup|
|000001d0| 74 0d 61 6e 79 20 64 61 | 74 61 2c 20 69 74 20 6a |t.any da|ta, it j|
|000001e0| 75 73 74 20 70 72 6f 64 | 75 63 65 64 20 61 20 6c |ust prod|uced a l|
|000001f0| 65 73 73 20 63 6f 6d 70 | 61 63 74 20 70 72 69 6e |ess comp|act prin|
|00000200| 74 6f 75 74 20 74 68 61 | 6e 20 69 74 20 73 68 6f |tout tha|n it sho|
|00000210| 75 6c 64 2e 20 49 74 20 | 68 61 64 20 6e 6f 20 65 |uld. It |had no e|
|00000220| 66 66 65 63 74 0d 6f 6e | 20 57 65 69 62 75 6c 6c |ffect.on| Weibull|
|00000230| 20 66 69 74 73 20 73 69 | 6e 63 65 20 74 68 65 79 | fits si|nce they|
|00000240| 20 65 66 66 65 63 74 69 | 76 65 6c 79 20 74 72 65 | effecti|vely tre|
|00000250| 61 74 20 65 61 63 68 20 | 74 72 69 61 6c 20 69 6e |at each |trial in|
|00000260| 64 65 70 65 6e 64 65 6e | 74 6c 79 2c 20 62 75 74 |dependen|tly, but|
|00000270| 20 69 74 20 64 69 64 0d | 61 6c 6c 6f 77 20 61 6e | it did.|allow an|
|00000280| 20 65 78 74 72 61 20 64 | 65 67 72 65 65 20 6f 66 | extra d|egree of|
|00000290| 20 66 72 65 65 64 6f 6d | 20 70 65 72 20 75 6e 6d | freedom| per unm|
|000002a0| 65 72 67 65 64 20 63 6f | 6e 74 72 61 73 74 20 74 |erged co|ntrast t|
|000002b0| 6f 20 74 68 65 20 6d 6f | 6e 6f 74 6f 6e 69 63 20 |o the mo|notonic |
|000002c0| 66 69 74 2e 0d 2a 2f 0d | 23 69 6e 63 6c 75 64 65 |fit..*/.|#include|
|000002d0| 20 22 51 75 69 63 6b 33 | 2e 68 22 0d 0d 74 79 70 | "Quick3|.h"..typ|
|000002e0| 65 64 65 66 20 69 6e 74 | 20 28 2a 71 73 6f 72 74 |edef int| (*qsort|
|000002f0| 5f 63 6d 70 5f 66 75 6e | 63 29 28 63 6f 6e 73 74 |_cmp_fun|c)(const|
|00000300| 20 76 6f 69 64 20 2a 2c | 63 6f 6e 73 74 20 76 6f | void *,|const vo|
|00000310| 69 64 20 2a 29 3b 0d 0d | 73 74 61 74 69 63 20 69 |id *);..|static i|
|00000320| 6e 74 20 43 6f 6d 70 61 | 72 65 43 6f 6e 74 72 61 |nt Compa|reContra|
|00000330| 73 74 73 28 63 6f 6e 74 | 72 61 73 74 52 65 63 6f |sts(cont|rastReco|
|00000340| 72 64 20 2a 63 31 2c 63 | 6f 6e 74 72 61 73 74 52 |rd *c1,c|ontrastR|
|00000350| 65 63 6f 72 64 20 2a 63 | 32 29 3b 0d 0d 76 6f 69 |ecord *c|2);..voi|
|00000360| 64 20 53 6f 72 74 41 6e | 64 4d 65 72 67 65 43 6f |d SortAn|dMergeCo|
|00000370| 6e 74 72 61 73 74 73 28 | 64 61 74 61 52 65 63 6f |ntrasts(|dataReco|
|00000380| 72 64 20 2a 64 61 74 61 | 50 74 72 29 0d 7b 0d 09 |rd *data|Ptr).{..|
|00000390| 69 6e 74 20 69 2c 6a 3b | 0d 09 0d 09 2f 2a 20 53 |int i,j;|..../* S|
|000003a0| 6f 72 74 20 74 68 65 20 | 63 6f 6e 74 72 61 73 74 |ort the |contrast|
|000003b0| 52 65 63 6f 72 64 73 20 | 69 6e 20 6f 72 64 65 72 |Records |in order|
|000003c0| 20 6f 66 20 69 6e 63 72 | 65 61 73 69 6e 67 20 63 | of incr|easing c|
|000003d0| 6f 6e 74 72 61 73 74 2e | 20 2a 2f 0d 09 71 73 6f |ontrast.| */..qso|
|000003e0| 72 74 28 64 61 74 61 50 | 74 72 2d 3e 63 2c 64 61 |rt(dataP|tr->c,da|
|000003f0| 74 61 50 74 72 2d 3e 63 | 6f 6e 74 72 61 73 74 73 |taPtr->c|ontrasts|
|00000400| 2c 73 69 7a 65 6f 66 28 | 63 6f 6e 74 72 61 73 74 |,sizeof(|contrast|
|00000410| 52 65 63 6f 72 64 29 0d | 09 09 2c 28 71 73 6f 72 |Record).|..,(qsor|
|00000420| 74 5f 63 6d 70 5f 66 75 | 6e 63 29 26 43 6f 6d 70 |t_cmp_fu|nc)&Comp|
|00000430| 61 72 65 43 6f 6e 74 72 | 61 73 74 73 29 3b 0d 09 |areContr|asts);..|
|00000440| 0d 09 2f 2a 20 4d 65 72 | 67 65 20 72 65 63 6f 72 |../* Mer|ge recor|
|00000450| 64 73 20 61 74 20 65 71 | 75 61 6c 20 63 6f 6e 74 |ds at eq|ual cont|
|00000460| 72 61 73 74 2e 20 2a 2f | 0d 09 69 3d 6a 3d 30 3b |rast. */|..i=j=0;|
|00000470| 0d 09 66 6f 72 28 69 3d | 30 3b 69 2b 31 3c 64 61 |..for(i=|0;i+1<da|
|00000480| 74 61 50 74 72 2d 3e 63 | 6f 6e 74 72 61 73 74 73 |taPtr->c|ontrasts|
|00000490| 3b 69 2b 2b 29 7b 0d 09 | 09 77 68 69 6c 65 28 69 |;i++){..|.while(i|
|000004a0| 2b 31 3c 64 61 74 61 50 | 74 72 2d 3e 63 6f 6e 74 |+1<dataP|tr->cont|
|000004b0| 72 61 73 74 73 20 26 26 | 20 64 61 74 61 50 74 72 |rasts &&| dataPtr|
|000004c0| 2d 3e 63 5b 69 5d 2e 63 | 6f 6e 74 72 61 73 74 3d |->c[i].c|ontrast=|
|000004d0| 3d 64 61 74 61 50 74 72 | 2d 3e 63 5b 69 2b 31 5d |=dataPtr|->c[i+1]|
|000004e0| 2e 63 6f 6e 74 72 61 73 | 74 29 7b 0d 09 09 09 64 |.contras|t){....d|
|000004f0| 61 74 61 50 74 72 2d 3e | 63 5b 69 5d 2e 74 72 69 |ataPtr->|c[i].tri|
|00000500| 61 6c 73 20 2b 3d 20 64 | 61 74 61 50 74 72 2d 3e |als += d|ataPtr->|
|00000510| 63 5b 69 2b 31 5d 2e 74 | 72 69 61 6c 73 3b 0d 09 |c[i+1].t|rials;..|
|00000520| 09 09 64 61 74 61 50 74 | 72 2d 3e 63 5b 69 5d 2e |..dataPt|r->c[i].|
|00000530| 63 6f 72 72 65 63 74 20 | 2b 3d 20 64 61 74 61 50 |correct |+= dataP|
|00000540| 74 72 2d 3e 63 5b 69 2b | 31 5d 2e 63 6f 72 72 65 |tr->c[i+|1].corre|
|00000550| 63 74 3b 0d 09 09 09 66 | 6f 72 28 6a 3d 69 2b 31 |ct;....f|or(j=i+1|
|00000560| 3b 6a 3c 64 61 74 61 50 | 74 72 2d 3e 63 6f 6e 74 |;j<dataP|tr->cont|
|00000570| 72 61 73 74 73 2d 31 3b | 6a 2b 2b 29 20 64 61 74 |rasts-1;|j++) dat|
|00000580| 61 50 74 72 2d 3e 63 5b | 6a 5d 3d 64 61 74 61 50 |aPtr->c[|j]=dataP|
|00000590| 74 72 2d 3e 63 5b 6a 2b | 31 5d 3b 0d 09 09 09 64 |tr->c[j+|1];....d|
|000005a0| 61 74 61 50 74 72 2d 3e | 63 6f 6e 74 72 61 73 74 |ataPtr->|contrast|
|000005b0| 73 2d 2d 3b 0d 09 09 7d | 0d 09 7d 0d 7d 0d 0d 73 |s--;...}|..}.}..s|
|000005c0| 74 61 74 69 63 20 69 6e | 74 20 43 6f 6d 70 61 72 |tatic in|t Compar|
|000005d0| 65 43 6f 6e 74 72 61 73 | 74 73 28 63 6f 6e 74 72 |eContras|ts(contr|
|000005e0| 61 73 74 52 65 63 6f 72 | 64 20 2a 63 31 2c 63 6f |astRecor|d *c1,co|
|000005f0| 6e 74 72 61 73 74 52 65 | 63 6f 72 64 20 2a 63 32 |ntrastRe|cord *c2|
|00000600| 29 0d 7b 0d 09 69 66 28 | 63 31 2d 3e 63 6f 6e 74 |).{..if(|c1->cont|
|00000610| 72 61 73 74 20 3e 20 20 | 63 32 2d 3e 63 6f 6e 74 |rast >  |c2->cont|
|00000620| 72 61 73 74 29 20 72 65 | 74 75 72 6e 20 31 3b 0d |rast) re|turn 1;.|
|00000630| 09 69 66 28 63 31 2d 3e | 63 6f 6e 74 72 61 73 74 |.if(c1->|contrast|
|00000640| 20 3d 3d 20 63 32 2d 3e | 63 6f 6e 74 72 61 73 74 | == c2->|contrast|
|00000650| 29 20 72 65 74 75 72 6e | 20 30 3b 0d 09 72 65 74 |) return| 0;..ret|
|00000660| 75 72 6e 20 2d 31 3b 0d | 7d 00 00 00 00 00 00 00 |urn -1;.|}.......|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 01 00 00 00 02 84 | 00 00 01 84 00 00 00 52 |........|.......R|
|00000690| 00 08 70 00 28 40 4a 6e | 00 0e 66 5a 30 2e 00 16 |..p.(@Jn|..fZ0...|
|000006a0| 48 c0 2f 00 30 2e 00 12 | 48 c0 2f 00 4e ba 00 54 |H./.0...|H./.N..T|
|000006b0| 17 53 6f 72 74 41 6e 64 | 4d 65 72 67 65 43 6f 6e |.SortAnd|MergeCon|
|000006c0| 74 72 61 73 74 73 2e 63 | 02 00 00 00 54 45 58 54 |trasts.c|....TEXT|
|000006d0| 00 00 54 45 58 54 43 57 | 49 45 01 00 00 f0 00 00 |..TEXTCW|IE......|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 a3 52 32 38 00 00 | 05 e9 00 00 02 d6 4e 5e |...R28..|......N^|
|00000700| 4e 75 4e 56 00 00 48 e7 | 03 00 3e 2e 00 0a 30 2e |NuNV..H.|..>...0.|
|00000710| 00 0e 53 40 67 0a 57 40 | 67 2c 59 40 67 40 60 54 |..S@g.W@|g,Y@g@`T|
|00000720| 0c 47 00 02 66 08 20 3c | 53 49 43 4e 60 14 0c 47 |.G..f. <|SICN`..G|
|00000730| 00 01 66 08 20 3c 69 63 | 73 23 60 06 20 3c 49 43 |..f. <ic|s#`. <IC|
|00000740| 4e 23 2c 00 60 2e 0c 47 | 00 01 66 08 20 3c 69 63 |N#,.`..G|..f. <ic|
|00000750| 73 34 60 06 20 3c 69 63 | 6c 34 2c 00 60 16 0c 47 |s4`. <ic|l4,.`..G|
|00000760| 00 01 66 08 20 3c 69 63 | 73 38 60 06 20 3c 69 63 |..f. <ic|s8`. <ic|
|00000770| 6c 38 2c 00 20 06 4c ee | 00 c0 ff f8 4e 5e 4e 75 |l8,. .L.|....N^Nu|
|00000780| 00 00 00 f6 00 06 00 2e | 00 00 03 5c 00 16 00 2a |........|...\...*|
|00000790| 33 f8 80 00 00 34 00 1c | 00 9b 01 22 94 20 00 00 |3....4..|...". ..|
|000007a0| 00 00 00 00 0f 28 2a 64 | 61 74 61 50 74 72 29 2e |.....(*d|ataPtr).|
|000007b0| 63 5b 30 5d 00 2e 00 00 | 03 5c 00 16 00 2a 33 98 |c[0]....|.\...*3.|
|000007c0| 80 00 00 68 01 35 00 cf | 02 5b 94 20 00 00 00 00 |...h.5..|.[. ....|
|000007d0| 00 00 0f 28 2a 64 61 74 | 61 50 74 72 29 2e 63 5b |...(*dat|aPtr).c[|
|000007e0| 31 5d 00 2e 00 00 03 5c | 00 16 00 2a 34 c0 80 00 |1].....\|...*4...|
|000007f0| 00 54 01 31 00 fd 02 60 | 94 20 00 00 00 00 00 00 |.T.1...`|. ......|
|00000800| 0f 28 2a 64 61 74 61 50 | 74 72 29 2e 63 5b 32 5d |.(*dataP|tr).c[2]|
|00000810| 00 2c 00 00 03 5c 00 16 | 00 2a 34 7c 40 00 00 37 |.,...\..|.*4|@..7|
|00000820| 01 22 00 e0 02 51 94 20 | 00 00 00 00 00 20 0d 28 |."...Q. |..... .(|
|00000830| 2a 64 61 74 61 50 74 72 | 29 2e 63 20 00 28 00 00 |*dataPtr|).c .(..|
|00000840| 03 5c 00 16 00 2a 34 dc | 80 00 00 a4 01 41 01 4d |.\...*4.|.....A.M|
|00000850| 02 70 94 20 00 00 00 00 | 00 00 09 2a 64 61 74 61 |.p. ....|...*data|
|00000860| 50 74 72 20 00 16 00 00 | 03 5c 00 16 00 2a 34 e8 |Ptr ....|.\...*4.|
|00000870| 00 00 07 64 61 74 61 50 | 74 72 00 00 00 3a 00 02 |...dataP|tr...:..|
|00000880| 00 00 05 4a 00 00 05 5a | 11 43 6f 6d 70 61 72 65 |...J...Z|.Compare|
|00000890| 43 6f 6e 74 72 61 73 74 | 73 00 00 00 02 e2 00 00 |Contrast|s.......|
|000008a0| 02 f7 15 53 6f 72 74 41 | 6e 64 4d 65 72 67 65 43 |...SortA|ndMergeC|
|000008b0| 6f 6e 74 72 61 73 74 73 | 00 00 00 48 00 09 4d 6f |ontrasts|...H..Mo|
|000008c0| 6e 61 63 6f 00 00 00 00 | 00 00 00 00 00 00 00 00 |naco....|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 06 |........|........|
|000008e0| 00 04 00 2a 00 03 01 8d | 02 7d 00 38 00 14 01 86 |...*....|.}.8....|
|000008f0| 02 40 aa dc 71 01 00 00 | 02 44 00 00 02 44 00 00 |.@..q...|.D...D..|
|00000900| 00 00 00 00 00 00 01 00 | 00 00 02 84 00 00 01 84 |........|........|
|00000910| 00 00 00 52 00 2e da 2c | 1b 8c 00 00 00 1c 00 52 |...R...,|.......R|
|00000920| 00 01 44 54 56 55 00 00 | 00 12 4d 50 53 52 00 01 |..DTVU..|..MPSR..|
|00000930| 00 1e 23 be ff ff 00 00 | 00 00 00 00 00 00 03 ef |..#.....|........|
|00000940| ff ff 00 00 00 fa 00 00 | 00 00 03 ed ff ff 00 00 |........|........|
|00000950| 01 38 00 2e d8 e8 00 00 | 00 00 00 00 00 00 00 00 |.8......|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+