/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / maths1 / Brian / J_Greening / ReadFFT

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 3e 52 65 | 61 64 46 46 54 0d 00 14 |.....>Re|adFFT...|
|00000010| 06 eb 30 0d 00 1e 07 ef | 31 34 0d 00 28 ec c8 99 |..0.....|14..(...|
|00000020| 20 22 4f 53 5f 50 72 65 | 74 74 79 50 72 69 6e 74 | "OS_Pre|ttyPrint|
|00000030| 22 2c 22 41 20 73 6d 61 | 6c 6c 20 73 75 69 74 65 |","A sma|ll suite|
|00000040| 20 6f 66 20 70 72 6f 67 | 72 61 6d 73 20 69 73 20 | of prog|rams is |
|00000050| 75 73 65 64 20 74 6f 20 | 63 61 72 72 79 20 6f 75 |used to |carry ou|
|00000060| 74 20 61 20 46 61 73 74 | 20 46 6f 75 72 69 65 72 |t a Fast| Fourier|
|00000070| 20 54 72 61 6e 73 66 6f | 72 6d 2e 20 41 73 20 61 | Transfo|rm. As a|
|00000080| 74 20 70 72 65 73 65 6e | 74 20 73 65 74 20 75 70 |t presen|t set up|
|00000090| 20 74 68 65 20 70 72 6f | 67 72 61 6d 73 20 72 75 | the pro|grams ru|
|000000a0| 6e 20 61 20 35 31 32 20 | 70 6f 69 6e 74 20 74 72 |n a 512 |point tr|
|000000b0| 61 6e 73 66 6f 72 6d 2c | 20 62 75 74 20 74 68 65 |ansform,| but the|
|000000c0| 20 73 75 62 73 69 64 69 | 61 72 79 20 70 72 6f 67 | subsidi|ary prog|
|000000d0| 72 61 6d 73 20 6d 61 6b | 65 20 69 74 20 70 6f 73 |rams mak|e it pos|
|000000e0| 73 69 62 6c 65 20 74 6f | 20 63 68 61 6e 67 65 20 |sible to| change |
|000000f0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 70 6f |the numb|er of po|
|00000100| 69 6e 74 73 2e 22 0d 00 | 32 07 f1 3a f1 0d 00 3c |ints."..|2..:...<|
|00000110| bd c8 99 20 22 4f 53 5f | 50 72 65 74 74 79 50 72 |... "OS_|PrettyPr|
|00000120| 69 6e 74 22 2c 22 54 68 | 65 20 70 72 6f 67 72 61 |int","Th|e progra|
|00000130| 6d 20 44 61 74 61 65 6e | 74 72 79 20 74 61 6b 65 |m Dataen|try take|
|00000140| 73 20 69 6e 20 74 68 65 | 20 72 61 77 20 64 61 74 |s in the| raw dat|
|00000150| 61 2c 20 63 6f 6d 62 69 | 6e 65 73 20 74 68 65 6d |a, combi|nes them|
|00000160| 20 77 69 74 68 20 48 61 | 6d 6d 69 6e 67 20 63 6f | with Ha|mming co|
|00000170| 6e 73 74 61 6e 74 73 20 | 28 69 66 20 64 65 73 69 |nstants |(if desi|
|00000180| 72 65 64 29 20 61 6e 64 | 20 6e 6f 72 6d 61 6c 69 |red) and| normali|
|00000190| 73 65 73 20 74 68 65 20 | 64 61 74 61 2e 20 49 74 |ses the |data. It|
|000001a0| 20 74 68 65 6e 20 43 48 | 41 49 4e 73 20 74 68 65 | then CH|AINs the|
|000001b0| 20 6d 61 69 6e 20 70 72 | 6f 67 72 61 6d 20 46 73 | main pr|ogram Fs|
|000001c0| 74 46 6f 75 72 69 65 72 | 2e 22 0d 00 46 07 f1 3a |tFourier|."..F..:|
|000001d0| f1 0d 00 50 84 c8 99 20 | 22 4f 53 5f 50 72 65 74 |...P... |"OS_Pret|
|000001e0| 74 79 50 72 69 6e 74 22 | 2c 22 54 68 65 20 70 72 |tyPrint"|,"The pr|
|000001f0| 6f 67 72 61 6d 20 46 73 | 74 46 6f 75 72 69 65 72 |ogram Fs|tFourier|
|00000200| 20 63 61 72 72 69 65 73 | 20 6f 75 74 20 74 68 65 | carries| out the|
|00000210| 20 74 72 61 6e 73 66 6f | 72 6d 20 61 6e 64 20 73 | transfo|rm and s|
|00000220| 61 76 65 73 20 74 68 65 | 20 73 69 67 6e 61 6c 20 |aves the| signal |
|00000230| 70 6f 77 65 72 20 64 61 | 74 61 2e 20 49 74 20 74 |power da|ta. It t|
|00000240| 68 65 6e 20 43 48 41 49 | 4e 73 20 53 70 65 63 74 |hen CHAI|Ns Spect|
|00000250| 72 75 6d 2e 22 0d 00 5a | 07 f1 3a f1 0d 00 64 d5 |rum."..Z|..:...d.|
|00000260| c8 99 20 22 4f 53 5f 50 | 72 65 74 74 79 50 72 69 |.. "OS_P|rettyPri|
|00000270| 6e 74 22 2c 22 54 68 65 | 20 70 72 6f 67 72 61 6d |nt","The| program|
|00000280| 20 53 70 65 63 74 72 75 | 6d 20 64 69 73 70 6c 61 | Spectru|m displa|
|00000290| 79 73 20 74 68 65 20 70 | 6f 77 65 72 20 73 70 65 |ys the p|ower spe|
|000002a0| 63 74 72 75 6d 2c 20 61 | 6e 64 20 79 6f 75 20 6d |ctrum, a|nd you m|
|000002b0| 61 79 20 62 65 20 61 62 | 6c 65 20 74 6f 20 75 73 |ay be ab|le to us|
|000002c0| 65 20 69 74 20 74 6f 20 | 64 65 74 65 72 6d 69 6e |e it to |determin|
|000002d0| 65 20 74 68 65 20 73 69 | 67 6e 61 6c 20 74 6f 20 |e the si|gnal to |
|000002e0| 6e 6f 69 73 65 20 72 61 | 74 69 6f 2c 20 73 75 6d |noise ra|tio, sum|
|000002f0| 6d 69 6e 67 20 74 68 65 | 20 70 6f 77 65 72 20 6f |ming the| power o|
|00000300| 76 65 72 20 74 68 65 20 | 73 69 67 6e 61 6c 20 61 |ver the |signal a|
|00000310| 6e 64 20 6e 6f 69 73 65 | 20 66 72 65 71 75 65 6e |nd noise| frequen|
|00000320| 63 69 65 73 20 73 65 70 | 61 72 61 74 65 6c 79 2e |cies sep|arately.|
|00000330| 22 0d 00 6e 07 f1 3a f1 | 0d 00 78 a6 c8 99 20 22 |"..n..:.|..x... "|
|00000340| 4f 53 5f 50 72 65 74 74 | 79 50 72 69 6e 74 22 2c |OS_Prett|yPrint",|
|00000350| 22 54 68 65 72 65 20 61 | 72 65 20 73 6f 6d 65 20 |"There a|re some |
|00000360| 73 75 62 73 69 64 69 61 | 72 79 20 70 72 6f 67 72 |subsidia|ry progr|
|00000370| 61 6d 73 2e 20 48 61 6d | 6d 69 6e 67 43 6f 6e 20 |ams. Ham|mingCon |
|00000380| 68 61 73 20 62 65 65 6e | 20 75 73 65 64 20 74 6f |has been| used to|
|00000390| 20 67 65 6e 65 72 61 74 | 65 20 74 68 65 20 48 61 | generat|e the Ha|
|000003a0| 6d 6d 69 6e 67 20 63 6f | 6e 73 74 61 6e 74 73 20 |mming co|nstants |
|000003b0| 73 74 6f 72 65 64 20 69 | 6e 20 48 43 35 31 32 46 |stored i|n HC512F|
|000003c0| 46 20 74 68 61 74 20 61 | 72 65 20 75 73 65 64 20 |F that a|re used |
|000003d0| 62 79 20 44 61 74 61 65 | 6e 74 72 79 2e 22 0d 00 |by Datae|ntry."..|
|000003e0| 82 07 f1 3a f1 0d 00 8c | 6e c8 99 20 22 4f 53 5f |...:....|n.. "OS_|
|000003f0| 50 72 65 74 74 79 50 72 | 69 6e 74 22 2c 22 43 6f |PrettyPr|int","Co|
|00000400| 6d 70 6c 65 78 43 6f 6e | 20 67 65 6e 65 72 61 74 |mplexCon| generat|
|00000410| 65 73 20 74 68 65 20 63 | 6f 6d 70 6c 65 78 20 63 |es the c|omplex c|
|00000420| 6f 6e 73 74 61 6e 74 73 | 20 73 74 6f 72 65 64 20 |onstants| stored |
|00000430| 69 6e 20 43 43 46 46 35 | 31 32 20 61 6e 64 20 75 |in CCFF5|12 and u|
|00000440| 73 65 64 20 62 79 20 46 | 73 74 46 6f 75 72 69 65 |sed by F|stFourie|
|00000450| 72 2e 22 0d 00 96 07 f1 | 3a f1 0d 00 a0 62 c8 99 |r.".....|:....b..|
|00000460| 20 22 4f 53 5f 50 72 65 | 74 74 79 50 72 69 6e 74 | "OS_Pre|ttyPrint|
|00000470| 22 2c 22 41 20 74 65 73 | 74 20 70 72 6f 63 65 64 |","A tes|t proced|
|00000480| 75 72 65 20 68 61 73 20 | 62 65 65 6e 20 73 65 74 |ure has |been set|
|00000490| 20 75 70 20 74 6f 20 64 | 65 6d 6f 6e 73 74 72 61 | up to d|emonstra|
|000004a0| 74 65 20 74 68 65 20 75 | 73 65 20 6f 66 20 74 68 |te the u|se of th|
|000004b0| 65 20 70 72 6f 67 72 61 | 6d 73 2e 22 0d 00 aa 7b |e progra|ms."...{|
|000004c0| c8 99 20 22 4f 53 5f 50 | 72 65 74 74 79 50 72 69 |.. "OS_P|rettyPri|
|000004d0| 6e 74 22 2c 22 54 68 65 | 20 70 72 6f 67 72 61 6d |nt","The| program|
|000004e0| 20 43 61 6c 63 73 69 6e | 65 73 20 67 65 6e 65 72 | Calcsin|es gener|
|000004f0| 61 74 65 73 20 35 31 32 | 20 76 61 6c 75 65 73 20 |ates 512| values |
|00000500| 6f 66 20 74 68 65 20 73 | 75 6d 20 6f 66 20 74 77 |of the s|um of tw|
|00000510| 6f 20 73 69 6e 65 73 20 | 61 6e 64 20 73 74 6f 72 |o sines |and stor|
|00000520| 65 73 20 74 68 65 6d 20 | 69 6e 20 73 69 6e 32 30 |es them |in sin20|
|00000530| 73 69 6e 35 30 2e 22 0d | 00 b4 07 f1 3a f1 0d 00 |sin50.".|....:...|
|00000540| be a7 c8 99 20 22 4f 53 | 5f 50 72 65 74 74 79 50 |.... "OS|_PrettyP|
|00000550| 72 69 6e 74 22 2c 22 52 | 55 4e 20 74 68 65 20 70 |rint","R|UN the p|
|00000560| 72 6f 67 72 61 6d 20 44 | 61 74 61 65 6e 74 72 79 |rogram D|ataentry|
|00000570| 2e 20 57 68 65 6e 20 61 | 73 6b 65 64 20 66 6f 72 |. When a|sked for|
|00000580| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 65 | the nam|e of the|
|00000590| 20 66 69 6c 65 20 63 6f | 6e 74 61 69 6e 69 6e 67 | file co|ntaining|
|000005a0| 20 72 61 77 20 64 61 74 | 61 20 65 6e 74 65 72 20 | raw dat|a enter |
|000005b0| 73 69 6e 32 30 73 69 6e | 35 30 2e 20 53 61 79 20 |sin20sin|50. Say |
|000005c0| 59 20 74 6f 20 74 68 65 | 20 6f 66 66 65 72 20 6f |Y to the| offer o|
|000005d0| 66 20 48 61 6d 6d 69 6e | 67 20 63 6f 6e 73 74 61 |f Hammin|g consta|
|000005e0| 6e 74 73 2e 22 0d 00 c8 | 07 f1 3a f1 0d 00 d2 65 |nts."...|..:....e|
|000005f0| c8 99 20 22 4f 53 5f 50 | 72 65 74 74 79 50 72 69 |.. "OS_P|rettyPri|
|00000600| 6e 74 22 2c 22 57 68 65 | 6e 20 61 73 6b 65 64 20 |nt","Whe|n asked |
|00000610| 66 6f 72 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |for the |name of |
|00000620| 74 68 65 20 66 69 6c 65 | 20 73 74 6f 72 69 6e 67 |the file| storing|
|00000630| 20 6e 6f 72 6d 61 6c 69 | 73 65 64 20 64 61 74 61 | normali|sed data|
|00000640| 20 65 6e 74 65 72 20 6e | 6f 72 6d 64 61 74 61 2e | enter n|ormdata.|
|00000650| 22 0d 00 dc 07 f1 3a f1 | 0d 00 e6 2f c8 99 20 22 |".....:.|.../.. "|
|00000660| 4f 53 5f 50 72 65 74 74 | 79 50 72 69 6e 74 22 2c |OS_Prett|yPrint",|
|00000670| 22 50 52 45 53 53 20 53 | 48 49 46 54 20 46 4f 52 |"PRESS S|HIFT FOR|
|00000680| 20 4d 4f 52 45 2e 22 0d | 00 f0 07 f1 3a f1 0d 00 | MORE.".|....:...|
|00000690| fa c1 c8 99 20 22 4f 53 | 5f 50 72 65 74 74 79 50 |.... "OS|_PrettyP|
|000006a0| 72 69 6e 74 22 2c 22 41 | 74 20 61 6c 6c 20 74 69 |rint","A|t all ti|
|000006b0| 6d 65 73 20 64 65 63 6c | 69 6e 65 20 74 68 65 20 |mes decl|ine the |
|000006c0| 6f 66 66 65 72 20 6f 66 | 20 54 72 61 63 65 66 6c |offer of| Tracefl|
|000006d0| 61 67 73 2e 20 28 54 68 | 65 73 65 20 6d 61 79 20 |ags. (Th|ese may |
|000006e0| 62 65 20 75 73 65 66 75 | 6c 20 6c 61 74 65 72 20 |be usefu|l later |
|000006f0| 6f 6e 20 69 66 20 79 6f | 75 20 72 75 6e 20 69 6e |on if yo|u run in|
|00000700| 74 6f 20 61 6e 79 20 64 | 69 66 66 69 63 75 6c 74 |to any d|ifficult|
|00000710| 69 65 73 29 2e 20 54 68 | 65 20 61 63 74 75 61 6c |ies). Th|e actual|
|00000720| 20 74 72 61 6e 73 66 6f | 72 6d 20 63 61 6c 63 75 | transfo|rm calcu|
|00000730| 6c 61 74 69 6f 6e 73 20 | 74 61 6b 65 20 61 62 6f |lations |take abo|
|00000740| 75 74 20 31 38 20 73 65 | 63 6f 6e 64 73 2e 22 0d |ut 18 se|conds.".|
|00000750| 01 04 07 f1 3a f1 0d 01 | 0e 5e c8 99 20 22 4f 53 |....:...|.^.. "OS|
|00000760| 5f 50 72 65 74 74 79 50 | 72 69 6e 74 22 2c 22 57 |_PrettyP|rint","W|
|00000770| 68 65 6e 20 61 73 6b 65 | 64 20 66 6f 72 20 74 68 |hen aske|d for th|
|00000780| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 66 69 |e name o|f the fi|
|00000790| 6c 65 20 66 6f 72 20 73 | 69 67 6e 61 6c 20 70 6f |le for s|ignal po|
|000007a0| 77 65 72 20 65 6e 74 65 | 72 20 73 69 67 70 6f 77 |wer ente|r sigpow|
|000007b0| 65 72 2e 22 0d 01 18 07 | f1 3a f1 0d 01 22 7e c8 |er."....|.:..."~.|
|000007c0| 99 20 22 4f 53 5f 50 72 | 65 74 74 79 50 72 69 6e |. "OS_Pr|ettyPrin|
|000007d0| 74 22 2c 22 59 6f 75 20 | 73 68 6f 75 6c 64 20 66 |t","You |should f|
|000007e0| 69 6e 61 6c 6c 79 20 62 | 65 20 72 65 77 61 72 64 |inally b|e reward|
|000007f0| 65 64 20 77 69 74 68 20 | 61 20 67 72 61 70 68 20 |ed with |a graph |
|00000800| 73 68 6f 77 69 6e 67 20 | 74 77 6f 20 65 71 75 61 |showing |two equa|
|00000810| 6c 20 70 6f 77 65 72 20 | 70 65 61 6b 73 20 63 65 |l power |peaks ce|
|00000820| 6e 74 72 65 64 20 6f 6e | 20 32 30 20 61 6e 64 20 |ntred on| 20 and |
|00000830| 35 30 20 48 65 72 7a 2e | 22 0d 01 2c 07 f1 3a f1 |50 Herz.|"..,..:.|
|00000840| 0d 01 36 c5 c8 99 20 22 | 4f 53 5f 50 72 65 74 74 |..6... "|OS_Prett|
|00000850| 79 50 72 69 6e 74 22 2c | 22 59 6f 75 20 77 69 6c |yPrint",|"You wil|
|00000860| 6c 20 6e 6f 77 20 68 61 | 76 65 20 74 6f 20 70 72 |l now ha|ve to pr|
|00000870| 6f 76 69 64 65 20 79 6f | 75 72 20 6f 77 6e 20 72 |ovide yo|ur own r|
|00000880| 61 77 20 64 61 74 61 20 | 66 69 6c 65 20 74 6f 20 |aw data |file to |
|00000890| 62 65 20 75 73 65 64 20 | 69 6e 20 70 6c 61 63 65 |be used |in place|
|000008a0| 20 6f 66 20 73 69 6e 32 | 30 73 69 6e 35 30 2e 20 | of sin2|0sin50. |
|000008b0| 49 74 20 6d 61 79 20 61 | 6c 73 6f 20 62 65 20 62 |It may a|lso be b|
|000008c0| 65 74 74 65 72 20 69 66 | 20 79 6f 75 20 63 68 6f |etter if| you cho|
|000008d0| 6f 73 65 20 6f 74 68 65 | 72 20 6e 61 6d 65 73 20 |ose othe|r names |
|000008e0| 66 6f 72 20 74 68 65 20 | 66 69 6c 65 73 20 6e 6f |for the |files no|
|000008f0| 72 6d 64 61 74 61 20 61 | 6e 64 20 73 69 67 70 6f |rmdata a|nd sigpo|
|00000900| 77 65 72 2e 22 0d 01 40 | 07 f1 3a f1 0d 01 4a c1 |wer."..@|..:...J.|
|00000910| c8 99 20 22 4f 53 5f 50 | 72 65 74 74 79 50 72 69 |.. "OS_P|rettyPri|
|00000920| 6e 74 22 2c 22 41 6c 74 | 68 6f 75 67 68 20 74 68 |nt","Alt|hough th|
|00000930| 65 20 70 72 6f 67 72 61 | 6d 20 66 6f 72 20 64 69 |e progra|m for di|
|00000940| 73 70 6c 61 79 69 6e 67 | 20 74 68 65 20 70 6f 77 |splaying| the pow|
|00000950| 65 72 20 73 70 65 63 74 | 72 75 6d 20 69 73 20 73 |er spect|rum is s|
|00000960| 75 69 74 61 62 6c 65 20 | 66 6f 72 20 74 68 65 20 |uitable |for the |
|00000970| 65 78 61 6d 70 6c 65 20 | 64 61 74 61 20 69 74 20 |example |data it |
|00000980| 69 73 20 6c 69 6b 65 6c | 79 20 74 6f 20 6e 65 65 |is likel|y to nee|
|00000990| 64 20 73 6d 61 6c 6c 20 | 6d 6f 64 69 66 69 63 61 |d small |modifica|
|000009a0| 74 69 6f 6e 73 20 66 6f | 72 20 6f 74 68 65 72 20 |tions fo|r other |
|000009b0| 66 72 65 71 75 65 6e 63 | 69 65 73 20 6f 72 20 70 |frequenc|ies or p|
|000009c0| 6f 77 65 72 20 6c 65 76 | 65 6c 73 2e 22 0d 01 54 |ower lev|els."..T|
|000009d0| 07 f1 3a f1 0d 01 5e e2 | c8 99 20 22 4f 53 5f 50 |..:...^.|.. "OS_P|
|000009e0| 72 65 74 74 79 50 72 69 | 6e 74 22 2c 22 54 68 65 |rettyPri|nt","The|
|000009f0| 20 70 72 6f 67 72 61 6d | 73 20 77 65 72 65 20 6f | program|s were o|
|00000a00| 72 69 67 69 6e 61 6c 6c | 79 20 70 75 74 20 74 6f |riginall|y put to|
|00000a10| 67 65 74 68 65 72 20 66 | 6f 72 20 75 73 65 20 6f |gether f|or use o|
|00000a20| 6e 20 74 68 65 20 6f 6c | 64 20 42 42 43 20 6d 69 |n the ol|d BBC mi|
|00000a30| 63 72 6f 20 77 68 65 72 | 65 20 6d 65 6d 6f 72 79 |cro wher|e memory|
|00000a40| 20 63 6f 6e 73 69 64 65 | 72 61 74 69 6f 6e 73 20 | conside|rations |
|00000a50| 72 65 71 75 69 72 65 64 | 20 74 68 65 6d 20 74 6f |required| them to|
|00000a60| 20 62 65 20 73 70 6c 69 | 74 20 69 6e 74 6f 20 73 | be spli|t into s|
|00000a70| 6d 61 6c 6c 20 73 65 63 | 74 69 6f 6e 73 2e 20 41 |mall sec|tions. A|
|00000a80| 74 20 61 20 6c 61 74 65 | 72 20 73 74 61 67 65 20 |t a late|r stage |
|00000a90| 79 6f 75 20 6d 61 79 20 | 77 69 73 68 20 74 6f 20 |you may |wish to |
|00000aa0| 63 6f 6d 62 69 6e 65 20 | 73 6f 6d 65 20 6f 66 20 |combine |some of |
|00000ab0| 74 68 65 6d 2e 22 0d 01 | 68 07 f1 3a f1 0d 01 72 |them."..|h..:...r|
|00000ac0| 3e c8 99 20 22 4f 53 5f | 50 72 65 74 74 79 50 72 |>.. "OS_|PrettyPr|
|00000ad0| 69 6e 74 22 2c 22 49 20 | 68 6f 70 65 20 79 6f 75 |int","I |hope you|
|00000ae0| 20 66 69 6e 64 20 74 68 | 65 20 70 72 6f 67 72 61 | find th|e progra|
|00000af0| 6d 73 20 75 73 65 66 75 | 6c 2e 22 0d 01 7c 07 f1 |ms usefu|l."..|..|
|00000b00| 3a f1 0d 01 86 27 c8 99 | 20 22 4f 53 5f 50 72 65 |:....'..| "OS_Pre|
|00000b10| 74 74 79 50 72 69 6e 74 | 22 2c 22 4a 6f 68 6e 20 |ttyPrint|","John |
|00000b20| 47 72 65 65 6e 69 6e 67 | 22 0d 01 90 05 f1 0d 01 |Greening|".......|
|00000b30| 9a 05 e0 0d ff          |                         |.....   |        |
+--------+-------------------------+-------------------------+--------+--------+