/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (68k).sea / pro Fit 5.0 demo (68k) / Functions & Programs / •Gadgets / Data Reduction for log scale

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 1c 44 61 74 61 20 52 | 65 64 75 63 74 69 6f 6e |..Data R|eduction|
|00000010| 20 66 6f 72 20 6c 6f 67 | 20 73 63 61 6c 65 00 00 | for log| scale..|
|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 66 74 46 43 4e 4c 66 | 74 01 00 00 00 00 00 00 |.ftFCNLf|t.......|
|00000050| 00 00 00 00 00 06 6c 00 | 00 03 2f ad d6 1f ed ad |......l.|../.....|
|00000060| d6 1f ed 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 a4 a6 00 00 |........|........|
|00000080| 7b 0d 20 74 68 69 73 20 | 69 73 20 61 20 64 61 74 |{. this |is a dat|
|00000090| 61 20 72 65 64 75 63 74 | 69 6f 6e 20 70 72 6f 67 |a reduct|ion prog|
|000000a0| 72 61 6d 20 74 68 61 74 | 20 74 61 6b 65 73 20 61 |ram that| takes a|
|000000b0| 20 28 78 2c 79 29 20 64 | 61 74 61 0d 20 73 65 74 | (x,y) d|ata. set|
|000000c0| 20 61 6e 64 20 72 65 70 | 6c 61 63 65 73 20 69 74 | and rep|laces it|
|000000d0| 20 77 69 74 68 20 61 20 | 64 61 74 61 20 73 65 74 | with a |data set|
|000000e0| 20 77 68 6f 73 65 20 70 | 6f 69 6e 74 73 20 61 72 | whose p|oints ar|
|000000f0| 65 0d 20 65 71 75 61 6c | 6c 79 20 73 70 61 63 65 |e. equal|ly space|
|00000100| 64 20 69 6e 20 74 68 65 | 20 78 2d 63 6f 6f 72 64 |d in the| x-coord|
|00000110| 69 6e 61 74 65 20 77 68 | 65 6e 20 70 6c 6f 74 74 |inate wh|en plott|
|00000120| 65 64 20 6f 6e 20 61 20 | 6c 6f 67 61 72 69 74 68 |ed on a |logarith|
|00000130| 6d 69 63 0d 20 78 2d 61 | 78 69 73 2e 0d 20 54 68 |mic. x-a|xis.. Th|
|00000140| 69 73 20 70 72 6f 67 72 | 61 6d 20 6b 65 65 70 73 |is progr|am keeps|
|00000150| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 70 | the num|ber of p|
|00000160| 6f 69 6e 74 73 20 69 6e | 20 65 61 63 68 20 64 65 |oints in| each de|
|00000170| 63 61 64 65 20 0d 20 63 | 6f 6e 73 74 61 6e 74 20 |cade . c|onstant |
|00000180| 62 79 20 61 76 65 72 61 | 67 69 6e 67 20 6f 76 65 |by avera|ging ove|
|00000190| 72 20 61 6c 6c 20 74 68 | 65 20 70 6f 69 6e 74 73 |r all th|e points|
|000001a0| 20 66 6f 75 6e 64 20 69 | 6e 20 74 68 65 20 69 6e | found i|n the in|
|000001b0| 74 65 72 76 61 6c 0d 20 | 5b 78 2c 20 78 2a 61 5d |terval. |[x, x*a]|
|000001c0| 2c 20 77 68 65 72 65 20 | 61 3e 31 20 69 73 20 61 |, where |a>1 is a|
|000001d0| 6e 20 69 6e 70 75 74 20 | 70 61 72 61 6d 65 74 65 |n input |paramete|
|000001e0| 72 2e 0d 20 0d 20 54 6f | 20 75 73 65 20 74 68 69 |r.. . To| use thi|
|000001f0| 73 20 70 72 6f 67 72 61 | 6d 2c 20 63 68 6f 6f 73 |s progra|m, choos|
|00000200| 65 20 22 41 64 64 20 54 | 6f 20 4d 65 6e 75 22 20 |e "Add T|o Menu" |
|00000210| 66 72 6f 6d 20 74 68 65 | 20 4d 69 73 63 20 6d 65 |from the| Misc me|
|00000220| 6e 75 0d 20 28 6f 72 20 | 63 6c 69 63 6b 20 74 68 |nu. (or |click th|
|00000230| 65 20 41 64 64 20 62 75 | 74 74 6f 6e 29 2e 0d 20 |e Add bu|tton).. |
|00000240| 54 68 65 6e 20 63 68 6f | 6f 73 65 20 74 68 65 20 |Then cho|ose the |
|00000250| 70 72 6f 67 72 61 6d 27 | 73 20 6e 61 6d 65 20 66 |program'|s name f|
|00000260| 72 6f 6d 20 74 68 65 20 | 4d 69 73 63 20 6d 65 6e |rom the |Misc men|
|00000270| 75 2e 0d 0d 7d 0d 0d 70 | 72 6f 67 72 61 6d 20 6c |u...}..p|rogram l|
|00000280| 6f 67 72 65 64 75 63 74 | 69 6f 6e 3b 0d 0d 76 61 |ogreduct|ion;..va|
|00000290| 72 20 43 78 2c 43 79 2c | 63 6f 75 6e 74 2c 63 6f |r Cx,Cy,|count,co|
|000002a0| 75 6e 74 31 2c 63 6f 75 | 6e 74 32 2c 4c 69 6d 69 |unt1,cou|nt2,Limi|
|000002b0| 74 2c 78 78 2c 79 79 2c | 73 75 6d 78 2c 73 75 6d |t,xx,yy,|sumx,sum|
|000002c0| 79 2c 62 75 66 2c 61 3a | 65 78 74 65 6e 64 65 64 |y,buf,a:|extended|
|000002d0| 3b 0d 09 09 09 09 0d 70 | 72 6f 63 65 64 75 72 65 |;......p|rocedure|
|000002e0| 20 69 6e 69 74 69 61 6c | 69 7a 65 3b 0d 62 65 67 | initial|ize;.beg|
|000002f0| 69 6e 0d 09 61 3a 3d 31 | 2e 32 3b 0d 65 6e 64 3b |in..a:=1|.2;.end;|
|00000300| 0d 0d 62 65 67 69 6e 0d | 20 43 78 3a 3d 78 43 6f |..begin.| Cx:=xCo|
|00000310| 6c 75 6d 6e 3b 0d 20 43 | 79 3a 3d 79 43 6f 6c 75 |lumn;. C|y:=yColu|
|00000320| 6d 6e 3b 0d 20 53 65 74 | 42 6f 78 54 69 74 6c 65 |mn;. Set|BoxTitle|
|00000330| 28 27 4c 6f 67 20 73 63 | 61 6c 65 20 64 61 74 61 |('Log sc|ale data|
|00000340| 20 72 65 64 75 63 74 69 | 6f 6e 27 29 3b 0d 20 69 | reducti|on');. i|
|00000350| 6e 70 75 74 28 27 24 43 | 58 20 43 6f 6c 75 6d 6e |nput('$C|X Column|
|00000360| 27 2c 43 78 2c 27 24 43 | 59 20 43 6f 6c 75 6d 6e |',Cx,'$C|Y Column|
|00000370| 27 2c 20 43 79 2c 20 27 | 6d 75 6c 74 69 70 6c 69 |', Cy, '|multipli|
|00000380| 63 61 74 69 6f 6e 20 66 | 61 63 74 6f 72 27 2c 20 |cation f|actor', |
|00000390| 61 29 3b 0d 20 69 66 20 | 43 6f 6c 45 6d 70 74 79 |a);. if |ColEmpty|
|000003a0| 28 43 78 29 20 6f 72 20 | 43 6f 6c 45 6d 70 74 79 |(Cx) or |ColEmpty|
|000003b0| 28 43 79 29 20 74 68 65 | 6e 0d 20 62 65 67 69 6e |(Cy) the|n. begin|
|000003c0| 0d 20 09 62 65 65 70 3b | 0d 09 20 65 78 69 74 3b |. .beep;|.. exit;|
|000003d0| 0d 20 65 6e 64 3b 0d 09 | 63 6f 75 6e 74 31 3a 3d |. end;..|count1:=|
|000003e0| 31 3b 0d 09 77 68 69 6c | 65 20 6e 6f 74 20 20 64 |1;..whil|e not  d|
|000003f0| 61 74 61 6f 6b 28 63 6f | 75 6e 74 31 2c 43 78 29 |ataok(co|unt1,Cx)|
|00000400| 20 61 6e 64 20 64 61 74 | 61 6f 6b 28 63 6f 75 6e | and dat|aok(coun|
|00000410| 74 31 2c 43 79 29 20 64 | 6f 20 63 6f 75 6e 74 31 |t1,Cy) d|o count1|
|00000420| 3a 3d 63 6f 75 6e 74 31 | 2b 31 3b 0d 09 63 6f 75 |:=count1|+1;..cou|
|00000430| 6e 74 32 3a 3d 31 3b 0d | 20 78 78 3a 3d 64 61 74 |nt2:=1;.| xx:=dat|
|00000440| 61 5b 63 6f 75 6e 74 31 | 2c 43 78 5d 3b 0d 20 79 |a[count1|,Cx];. y|
|00000450| 79 3a 3d 64 61 74 61 5b | 63 6f 75 6e 74 31 2c 43 |y:=data[|count1,C|
|00000460| 79 5d 3b 0d 20 72 65 70 | 65 61 74 20 0d 20 20 4c |y];. rep|eat .  L|
|00000470| 69 6d 69 74 3a 3d 78 78 | 2a 61 3b 63 6f 75 6e 74 |imit:=xx|*a;count|
|00000480| 3a 3d 30 3b 73 75 6d 78 | 3a 3d 30 3b 73 75 6d 79 |:=0;sumx|:=0;sumy|
|00000490| 3a 3d 30 3b 0d 20 20 72 | 65 70 65 61 74 0d 20 20 |:=0;.  r|epeat.  |
|000004a0| 09 69 66 20 64 61 74 61 | 6f 6b 28 63 6f 75 6e 74 |.if data|ok(count|
|000004b0| 31 2b 63 6f 75 6e 74 2b | 31 2c 43 78 29 20 74 68 |1+count+|1,Cx) th|
|000004c0| 65 6e 0d 09 20 20 62 65 | 67 69 6e 0d 20 20 09 09 |en..  be|gin.  ..|
|000004d0| 73 75 6d 78 3a 3d 73 75 | 6d 78 2b 78 78 3b 73 75 |sumx:=su|mx+xx;su|
|000004e0| 6d 79 3a 3d 73 75 6d 79 | 2b 79 79 3b 0d 09 20 20 |my:=sumy|+yy;..  |
|000004f0| 09 63 6f 75 6e 74 3a 3d | 63 6f 75 6e 74 2b 31 3b |.count:=|count+1;|
|00000500| 62 75 66 3a 3d 63 6f 75 | 6e 74 2b 63 6f 75 6e 74 |buf:=cou|nt+count|
|00000510| 31 3b 0d 20 20 09 09 78 | 78 3a 3d 64 61 74 61 5b |1;.  ..x|x:=data[|
|00000520| 62 75 66 2c 43 78 5d 3b | 7b 74 68 69 73 20 64 61 |buf,Cx];|{this da|
|00000530| 74 61 20 69 73 20 61 6c | 77 61 79 73 20 67 6f 6f |ta is al|ways goo|
|00000540| 64 7d 0d 20 20 09 09 79 | 79 3a 3d 64 61 74 61 5b |d}.  ..y|y:=data[|
|00000550| 62 75 66 2c 43 79 5d 3b | 0d 09 09 20 65 6e 64 20 |buf,Cy];|... end |
|00000560| 65 6c 73 65 20 62 65 67 | 69 6e 20 63 6f 75 6e 74 |else beg|in count|
|00000570| 31 3a 3d 63 6f 75 6e 74 | 31 2b 31 3b 62 75 66 3a |1:=count|1+1;buf:|
|00000580| 3d 63 6f 75 6e 74 2b 63 | 6f 75 6e 74 31 20 65 6e |=count+c|ount1 en|
|00000590| 64 3b 0d 09 20 75 6e 74 | 69 6c 20 28 78 78 3e 4c |d;.. unt|il (xx>L|
|000005a0| 69 6d 69 74 29 20 6f 72 | 20 28 62 75 66 2b 31 3e |imit) or| (buf+1>|
|000005b0| 4e 72 52 6f 77 73 29 3b | 0d 09 20 63 6f 75 6e 74 |NrRows);|.. count|
|000005c0| 31 3a 3d 62 75 66 3b 0d | 09 20 69 66 20 63 6f 75 |1:=buf;.|. if cou|
|000005d0| 6e 74 3e 30 20 74 68 65 | 6e 20 62 65 67 69 6e 20 |nt>0 the|n begin |
|000005e0| 64 61 74 61 5b 63 6f 75 | 6e 74 32 2c 43 78 5d 3a |data[cou|nt2,Cx]:|
|000005f0| 3d 73 75 6d 78 2f 63 6f | 75 6e 74 3b 64 61 74 61 |=sumx/co|unt;data|
|00000600| 5b 63 6f 75 6e 74 32 2c | 43 79 5d 3a 3d 73 75 6d |[count2,|Cy]:=sum|
|00000610| 79 2f 63 6f 75 6e 74 20 | 65 6e 64 0d 09 09 65 6c |y/count |end...el|
|00000620| 73 65 20 62 65 67 69 6e | 20 64 61 74 61 5b 63 6f |se begin| data[co|
|00000630| 75 6e 74 32 2c 43 78 5d | 3a 3d 78 78 3b 64 61 74 |unt2,Cx]|:=xx;dat|
|00000640| 61 5b 63 6f 75 6e 74 32 | 2c 43 79 5d 3a 3d 79 79 |a[count2|,Cy]:=yy|
|00000650| 20 65 6e 64 3b 0d 09 20 | 63 6f 75 6e 74 32 3a 3d | end;.. |count2:=|
|00000660| 63 6f 75 6e 74 32 2b 31 | 3b 0d 20 75 6e 74 69 6c |count2+1|;. until|
|00000670| 20 63 6f 75 6e 74 31 2b | 31 3e 4e 72 52 6f 77 73 | count1+|1>NrRows|
|00000680| 3b 0d 20 66 6f 72 20 62 | 75 66 3a 3d 63 6f 75 6e |;. for b|uf:=coun|
|00000690| 74 32 20 74 6f 20 4e 72 | 52 6f 77 73 20 64 6f 0d |t2 to Nr|Rows do.|
|000006a0| 09 69 66 20 64 61 74 61 | 6f 6b 28 62 75 66 2c 43 |.if data|ok(buf,C|
|000006b0| 78 29 20 74 68 65 6e 20 | 62 65 67 69 6e 20 43 6c |x) then |begin Cl|
|000006c0| 65 61 72 64 61 74 61 28 | 62 75 66 2c 43 78 29 3b |eardata(|buf,Cx);|
|000006d0| 43 6c 65 61 72 64 61 74 | 61 28 62 75 66 2c 43 79 |Cleardat|a(buf,Cy|
|000006e0| 29 20 65 6e 64 3b 0d 65 | 6e 64 3b 0d 00 00 00 00 |) end;.e|nd;.....|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 01 00 00 00 02 b9 | 00 00 01 b9 00 00 00 76 |........|.......v|
|00000710| 45 6e 68 61 6e 63 65 6d | 65 6e 74 03 4f 66 66 05 |Enhancem|ent.Off.|
|00000720| 4c 69 67 68 74 06 4d 65 | 64 69 75 6d 04 44 61 72 |Light.Me|dium.Dar|
|00000730| 1c 44 61 74 61 20 52 65 | 64 75 63 74 69 6f 6e 20 |.Data Re|duction |
|00000740| 66 6f 72 20 6c 6f 67 20 | 73 63 61 6c 65 20 02 00 |for log |scale ..|
|00000750| 00 00 66 74 46 43 4e 4c | 66 74 01 00 ff ff ff ff |..ftFCNL|ft......|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 ad d5 14 c8 00 00 | 06 6c 00 00 03 2f 20 34 |........|.l.../ 4|
|00000780| 20 50 6c 75 73 00 00 00 | 00 00 1c 48 50 20 4c 61 | Plus...|...HP La|
|00000790| 73 65 72 4a 65 74 20 34 | 20 50 6c 75 73 20 76 32 |serJet 4| Plus v2|
|000007a0| 30 31 33 2e 31 31 31 00 | 00 00 01 32 00 00 00 00 |013.111.|...2....|
|000007b0| 00 00 03 50 4a 4c 00 00 | 00 00 05 46 61 6c 73 65 |...PJL..|...False|
|000007c0| 00 00 00 00 00 00 06 54 | 79 70 65 34 32 00 00 00 |.......T|ype42...|
|000007d0| 00 00 05 46 61 6c 73 65 | 35 00 00 00 00 00 02 31 |...False|5......1|
|000007e0| 32 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |2.......|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 00 08 00 29 00 02 | 01 bc 02 17 00 00 01 06 |.....)..|........|
|00000810| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 2a 40 82 |.......M|onaco*@.|
|00000820| c6 08 00 00 00 e6 b0 b6 | 00 d4 33 80 00 d4 33 7c |........|..3...3||
|00000830| 00 d4 e9 86 00 08 00 e6 | a9 24 40 82 c5 02 00 00 |........|.$@.....|
|00000840| 00 e6 b0 b6 00 d4 33 80 | 00 d4 33 7c 00 d4 e9 6c |......3.|..3|...l|
|00000850| 00 08 00 e6 a5 f0 00 e6 | a5 f8 00 e6 a6 00 00 d4 |........|........|
|00000860| e9 4e 00 00 00 00 00 d4 | e9 4e 00 e6 a9 80 40 82 |.N......|.N....@.|
|00000870| c1 d2 00 d4 e9 6c 00 08 | 00 e6 aa ac 40 82 c3 90 |.....l..|....@...|
|00000880| 00 e6 a9 64 00 00 00 00 | 00 00 00 00 00 48 00 ff |...d....|.....H..|
|00000890| 00 00 00 08 00 01 00 08 | 00 d7 78 27 ff 00 00 81 |........|..x'....|
|000008a0| 00 08 00 00 ff ff ff ff | 00 00 00 00 00 00 00 e6 |........|........|
|000008b0| aa ac 40 82 c1 90 00 e6 | a9 92 40 82 00 00 00 00 |..@.....|..@.....|
|000008c0| 00 d4 2e 8e 00 e6 aa b4 | 40 83 19 82 00 ab 01 f4 |........|@.......|
|000008d0| 00 00 00 00 00 d4 33 7c | 00 c8 c3 6c 00 c8 c3 6c |......3||...l...l|
|000008e0| 00 e6 a9 ac 00 e6 aa ac | 00 01 00 00 00 81 ff ff |........|........|
|000008f0| 00 08 00 00 00 00 00 12 | 00 29 ff fd 00 0c ff 08 |........|.)......|
|00000900| 00 00 00 00 ff 00 00 03 | 00 01 21 ff 00 00 00 00 |........|..!.....|
|00000910| 00 06 00 0b 80 00 00 00 | 00 10 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 04 00 00 |........|........|
|00000930| 00 01 00 00 00 78 00 03 | 00 00 00 48 00 48 00 00 |.....x..|...H.H..|
|00000940| 00 00 03 00 02 4c ff f4 | ff f4 03 0c 02 58 03 47 |.....L..|.....X.G|
|00000950| 05 28 03 fc 00 02 00 00 | 00 48 00 48 00 00 00 00 |.(......|.H.H....|
|00000960| 02 da 02 28 00 01 00 00 | 00 64 00 00 00 01 00 01 |...(....|.d......|
|00000970| 01 01 00 00 00 01 27 0f | 00 01 00 01 00 00 00 00 |......'.|........|
|00000980| 00 00 00 00 00 00 00 00 | 68 08 00 19 01 90 00 00 |........|h.......|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009b0| 00 07 06 70 72 6f 46 69 | 74 00 00 01 00 00 00 02 |...proFi|t.......|
|000009c0| b9 00 00 01 b9 00 00 00 | 76 00 d4 3a 0c 10 88 00 |........|v..:....|
|000009d0| 00 00 1c 00 76 00 01 66 | 49 4e 46 00 04 00 12 53 |....v..f|INF....S|
|000009e0| 54 52 20 00 00 00 4e 00 | 81 ff ff 00 00 00 00 00 |TR ...N.|........|
|000009f0| d4 2c 94 00 82 ff ff 00 | 00 00 0c 00 d4 2c f0 00 |.,......|.....,..|
|00000a00| 83 ff ff 00 00 01 16 00 | d4 31 74 00 85 ff ff 00 |........|.1t.....|
|00000a10| 00 01 2a 00 d4 2c d8 00 | 84 ff ff 00 00 01 32 00 |..*..,..|......2.|
|00000a20| d4 30 98 bf f4 ff ff 00 | 00 01 ae 00 d4 39 f0 00 |.0......|.....9..|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+