/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (ppc).sea / pro Fit 5.0 demo (ppc) / Functions & Programs / •Gadgets / Covar. Matrix -> Data Window

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 1c 43 6f 76 61 72 2e | 20 4d 61 74 72 69 78 20 |..Covar.| Matrix |
|00000010| 2d 3e 20 44 61 74 61 20 | 57 69 6e 64 6f 77 00 00 |-> Data |Window..|
|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 02 fd 00 | 00 03 2f ad d7 96 e4 ad |........|../.....|
|00000060| d7 96 e4 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 ac 93 00 00 |........|........|
|00000080| 7b 0d 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 73 |{. this |programs|
|00000090| 20 77 72 69 74 65 73 20 | 74 68 65 20 63 6f 76 61 | writes |the cova|
|000000a0| 72 69 61 6e 63 65 20 6d | 61 74 72 69 78 20 6f 66 |riance m|atrix of|
|000000b0| 20 74 68 65 20 6c 61 73 | 74 0d 20 66 69 74 20 69 | the las|t. fit i|
|000000c0| 6e 20 74 68 65 20 74 6f | 70 20 6c 65 66 74 20 63 |n the to|p left c|
|000000d0| 6f 72 6e 65 72 20 6f 66 | 20 74 68 65 20 66 72 6f |orner of| the fro|
|000000e0| 6e 74 6d 6f 73 74 20 64 | 61 74 61 20 77 69 6e 64 |ntmost d|ata wind|
|000000f0| 6f 77 2e 0d 20 28 52 6f | 77 20 61 6e 64 20 63 6f |ow.. (Ro|w and co|
|00000100| 6c 75 6d 6e 20 6e 75 6d | 62 65 72 73 20 63 6f 72 |lumn num|bers cor|
|00000110| 72 65 73 70 6f 6e 64 20 | 74 6f 20 70 61 72 61 6d |respond |to param|
|00000120| 65 74 65 72 20 69 6e 64 | 69 63 65 73 2e 29 0d 20 |eter ind|ices.). |
|00000130| 49 74 20 61 6c 73 6f 20 | 77 72 69 74 65 73 20 74 |It also |writes t|
|00000140| 68 65 20 70 61 72 61 6d | 65 74 65 72 20 76 61 6c |he param|eter val|
|00000150| 75 65 73 20 72 65 73 75 | 6c 74 69 6e 67 20 66 72 |ues resu|lting fr|
|00000160| 6f 6d 20 74 68 65 20 66 | 69 74 20 61 6e 64 0d 20 |om the f|it and. |
|00000170| 74 68 65 69 72 20 73 74 | 61 6e 64 61 72 64 20 64 |their st|andard d|
|00000180| 65 76 69 61 74 69 6f 6e | 20 69 6e 20 74 77 6f 20 |eviation| in two |
|00000190| 6c 69 6e 65 73 20 62 65 | 6c 6f 77 20 74 68 65 20 |lines be|low the |
|000001a0| 63 6f 76 61 72 69 61 6e | 63 65 20 6d 61 74 72 69 |covarian|ce matri|
|000001b0| 78 2c 0d 20 77 69 74 68 | 20 61 6e 20 65 6d 70 74 |x,. with| an empt|
|000001c0| 79 20 6c 69 6e 65 20 61 | 73 20 61 20 73 65 70 61 |y line a|s a sepa|
|000001d0| 72 61 74 69 6f 6e 2e 0d | 20 4f 6e 20 74 68 65 20 |ration..| On the |
|000001e0| 6c 61 73 74 20 6c 69 6e | 65 20 69 74 20 77 72 69 |last lin|e it wri|
|000001f0| 74 65 73 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |tes the |value of|
|00000200| 20 63 68 69 2d 73 71 75 | 61 72 65 64 2e 0d 7d 0d | chi-squ|ared..}.|
|00000210| 0d 70 72 6f 67 72 61 6d | 20 46 69 74 49 6e 66 6f |.program| FitInfo|
|00000220| 72 6d 61 74 69 6f 6e 54 | 6f 44 61 74 61 57 69 6e |rmationT|oDataWin|
|00000230| 64 6f 77 3b 0d 76 61 72 | 20 69 2c 6a 2c 6b 3a 69 |dow;.var| i,j,k:i|
|00000240| 6e 74 65 67 65 72 3b 0d | 62 65 67 69 6e 0d 20 4e |nteger;.|begin. N|
|00000250| 65 77 57 69 6e 64 6f 77 | 28 64 61 74 61 54 79 70 |ewWindow|(dataTyp|
|00000260| 65 29 3b 0d 20 6b 3a 3d | 6e 75 6d 46 69 74 50 61 |e);. k:=|numFitPa|
|00000270| 72 61 6d 73 3b 0d 20 69 | 66 20 6b 3e 30 20 74 68 |rams;. i|f k>0 th|
|00000280| 65 6e 0d 20 62 65 67 69 | 6e 0d 09 09 66 6f 72 20 |en. begi|n...for |
|00000290| 69 3a 3d 31 20 74 6f 20 | 20 6b 20 64 6f 0d 20 09 |i:=1 to | k do. .|
|000002a0| 09 66 6f 72 20 6a 3a 3d | 31 20 74 6f 20 20 6b 20 |.for j:=|1 to  k |
|000002b0| 64 6f 0d 09 09 09 09 64 | 61 74 61 5b 69 2c 6a 5d |do.....d|ata[i,j]|
|000002c0| 3a 3d 20 43 6f 76 61 72 | 4d 61 74 72 69 78 28 69 |:= Covar|Matrix(i|
|000002d0| 2c 6a 29 3b 0d 09 09 66 | 6f 72 20 69 3a 3d 31 20 |,j);...f|or i:=1 |
|000002e0| 74 6f 20 6b 20 64 6f 09 | 43 6c 65 61 72 44 61 74 |to k do.|ClearDat|
|000002f0| 61 28 6b 2b 31 2c 69 29 | 3b 0d 09 09 66 6f 72 20 |a(k+1,i)|;...for |
|00000300| 69 3a 3d 31 20 74 6f 20 | 6b 20 64 6f 20 64 61 74 |i:=1 to |k do dat|
|00000310| 61 5b 6b 2b 32 2c 69 5d | 3a 3d 46 69 74 74 65 64 |a[k+2,i]|:=Fitted|
|00000320| 50 61 72 61 6d 73 28 69 | 29 3b 0d 09 09 66 6f 72 |Params(i|);...for|
|00000330| 20 69 3a 3d 31 20 74 6f | 20 6b 20 64 6f 20 64 61 | i:=1 to| k do da|
|00000340| 74 61 5b 6b 2b 33 2c 69 | 5d 3a 3d 50 61 72 61 6d |ta[k+3,i|]:=Param|
|00000350| 53 44 28 69 29 3b 20 0d | 09 09 64 61 74 61 5b 6b |SD(i); .|..data[k|
|00000360| 2b 34 2c 31 5d 3a 3d 63 | 68 69 53 71 75 61 72 65 |+4,1]:=c|hiSquare|
|00000370| 64 3b 0d 20 65 6e 64 3b | 0d 65 6e 64 3b 00 00 00 |d;. end;|.end;...|
|00000380| 00 00 01 00 00 00 02 b9 | 00 00 01 b9 00 00 00 76 |........|.......v|
|00000390| 2e ff fc a8 a8 48 6e ff | c0 a9 28 70 00 10 2c 00 |.....Hn.|..(p..,.|
|000003a0| 0c c0 bc 00 00 00 7f 3d | 40 ff ea 42 67 1f 2c 00 |.......=|@..Bg.,.|
|000003b0| 1c 43 6f 76 61 72 2e 20 | 4d 61 74 72 69 78 20 2d |.Covar. |Matrix -|
|000003c0| 3e 20 44 61 74 61 20 57 | 69 6e 64 6f 77 57 02 00 |> Data W|indowW..|
|000003d0| 00 00 66 74 46 43 4e 4c | 66 74 01 00 ff ff ff ff |..ftFCNL|ft......|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|000003f0| 00 00 aa af 36 de 00 00 | 02 fd 00 00 03 2f 50 ff |....6...|...../P.|
|00000400| d6 70 08 b0 6e ff d6 66 | 00 01 2a 41 ec 00 12 2d |.p..n..f|..*A...-|
|00000410| 48 ff d2 30 2e ff e8 53 | 40 20 6e ff d2 30 80 60 |H..0...S|@ n..0.`|
|00000420| 00 01 12 42 a7 2f 0b 48 | 6e ff c0 41 ec 00 0d 2f |...B./.H|n..A.../|
|00000430| 08 1f 3c 00 01 42 a7 3f | 3c 00 01 70 00 30 2e ff |..<..B.?|<..p.0..|
|00000440| ea c0 bc 00 00 00 03 3f | 00 42 a7 a9 54 28 9f 67 |.......?|.B..T(.g|
|00000450| 00 00 e2 20 54 20 50 43 | ee ff c0 50 88 22 d8 22 |... T PC|...P."."|
|00000460| d8 48 6e ff c0 a9 28 60 | 00 00 ca 42 a7 2f 3c 43 |.Hn...(`|...B./<C|
|00000470| 4e 54 4c 41 ec 00 0e 3f | 10 a9 a0 28 9f 67 10 48 |NTLA...?|...(.g.H|
|00000480| 00 00 00 08 00 29 00 02 | 01 82 01 be 00 00 01 06 |.....)..|........|
|00000490| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 9a 40 82 |.......M|onaco.@.|
|000004a0| c6 08 00 00 01 1a 5e cc | 01 04 a9 58 01 04 a9 54 |......^.|...X...T|
|000004b0| 01 05 5f aa 00 08 01 1a | 51 94 40 82 c5 02 00 00 |.._.....|Q.@.....|
|000004c0| 01 1a 5e cc 01 04 a9 58 | 01 04 a9 54 01 05 5f 90 |..^....X|...T.._.|
|000004d0| 00 08 01 1a 4e 60 01 1a | 4e 68 01 1a 4e 70 01 05 |....N`..|Nh..Np..|
|000004e0| 5f 72 00 00 00 00 01 05 | 5f 72 01 1a 51 f0 40 82 |_r......|_r..Q.@.|
|000004f0| c1 d2 01 05 5f 90 00 08 | 01 1a 53 1c 40 82 c3 90 |...._...|..S.@...|
|00000500| 01 1a 51 d4 00 00 00 00 | 00 00 00 00 00 48 00 ff |..Q.....|.....H..|
|00000510| 00 00 00 04 00 01 00 04 | 01 08 7d 8f ff 00 00 81 |........|..}.....|
|00000520| 00 08 00 00 ff ff ff ff | 00 00 67 06 30 03 01 1a |........|..g.0...|
|00000530| 53 1c 40 82 c1 90 01 1a | 52 02 40 82 00 08 ff 82 |S.@.....|R.@.....|
|00000540| 01 04 a5 0e 01 1a 53 24 | 40 83 19 82 00 86 01 f4 |......S$|@.......|
|00000550| 00 00 00 00 01 04 a9 54 | 00 fb 4b 68 00 fb 4b 68 |.......T|..Kh..Kh|
|00000560| 01 1a 52 1c 01 1a 53 1c | 00 01 00 00 00 81 ff ff |..R...S.|........|
|00000570| 00 08 00 00 00 00 00 12 | 00 29 ff fd 00 0c ff 76 |........|.).....v|
|00000580| 01 00 00 00 ff 00 00 02 | 00 01 52 ff 00 00 00 00 |........|..R.....|
|00000590| 00 06 9a 0a 80 00 00 00 | 00 10 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 04 00 00 |........|........|
|000005b0| 00 01 00 00 00 78 00 03 | 00 00 00 48 00 48 00 00 |.....x..|...H.H..|
|000005c0| 00 00 02 da 02 28 ff e1 | ff e1 02 f9 02 45 03 47 |.....(..|.....E.G|
|000005d0| 05 28 03 fc 00 02 00 00 | 00 48 00 48 00 00 00 00 |.(......|.H.H....|
|000005e0| 02 da 02 28 00 01 00 00 | 00 64 00 00 00 01 00 01 |...(....|.d......|
|000005f0| 01 01 00 00 00 01 27 0f | 00 01 00 01 00 00 00 00 |......'.|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 02 00 19 01 90 00 00 |........|........|
|00000610| 00 00 00 40 00 00 00 00 | 00 00 00 00 00 01 00 00 |...@....|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 07 06 70 72 6f 46 69 | 74 00 00 01 00 00 00 02 |...proFi|t.......|
|00000640| b9 00 00 01 b9 00 00 00 | 76 01 04 af cc 15 ac 00 |........|v.......|
|00000650| 00 00 1c 00 76 00 01 66 | 49 4e 46 00 04 00 12 53 |....v..f|INF....S|
|00000660| 54 52 20 00 00 00 4e 00 | 81 ff ff 00 00 00 00 01 |TR ...N.|........|
|00000670| 04 a5 e0 00 82 ff ff 00 | 00 00 0c 01 04 a5 a4 00 |........|........|
|00000680| 83 ff ff 00 00 01 16 01 | 04 a5 98 00 85 ff ff 00 |........|........|
|00000690| 00 01 2a 01 04 a5 a0 00 | 84 ff ff 00 00 01 32 01 |..*.....|......2.|
|000006a0| 04 a5 90 bf f4 ff ff 00 | 00 01 ae 01 04 a5 74 00 |........|......t.|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+