From octave-sources-request at bevo dot che dot wisc dot edu Sat May 16 11:27:44 1998 Subject: Hilbert transform m-file contribution From: William D Kirby To: octave-sources Date: Sat, 16 May 1998 12:26:24 -0400 This is a multi-part message in MIME format. --------------3D237FB3EF2B12022FF4891F Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit I have attached an m-file for computing the Hilbert transform of a matrix using the FFT. It should be compatible with Matlab hilbert.m -- William D. Kirby Voice: (703) 273-0005 Consultant Email: wdkirby at ix dot netcom dot com 3527 Cornell Road Fairfax, VA 22030-1813 --------------3D237FB3EF2B12022FF4891F Content-Type: application/x-unknown-content-type-m_auto_file; name="hilbert1.m" Content-Transfer-Encoding: base64 Content-Disposition: inline; filename="hilbert1.m" IyMgQ29weXJpZ2h0IChDKSAxOTk4IEpvaG4gVy4gRWF0b24NCiMjDQojIyBUaGlzIGZpbGUg aXMgcGFydCBvZiBPY3RhdmUuDQojIw0KIyMgT2N0YXZlIGlzIGZyZWUgc29mdHdhcmU7IHlv dSBjYW4gcmVkaXN0cmlidXRlIGl0IGFuZC9vciBtb2RpZnkgaXQNCiMjIHVuZGVyIHRoZSB0 ZXJtcyBvZiB0aGUgR05VIEdlbmVyYWwgUHVibGljIExpY2Vuc2UgYXMgcHVibGlzaGVkIGJ5 DQojIyB0aGUgRnJlZSBTb2Z0d2FyZSBGb3VuZGF0aW9uOyBlaXRoZXIgdmVyc2lvbiAyLCBv ciAoYXQgeW91ciBvcHRpb24pDQojIyBhbnkgbGF0ZXIgdmVyc2lvbi4NCiMjDQojIyBPY3Rh dmUgaXMgZGlzdHJpYnV0ZWQgaW4gdGhlIGhvcGUgdGhhdCBpdCB3aWxsIGJlIHVzZWZ1bCwg YnV0DQojIyBXSVRIT1VUIEFOWSBXQVJSQU5UWTsgd2l0aG91dCBldmVuIHRoZSBpbXBsaWVk IHdhcnJhbnR5IG9mDQojIyBNRVJDSEFOVEFCSUxJVFkgb3IgRklUTkVTUyBGT1IgQSBQQVJU SUNVTEFSIFBVUlBPU0UuICBTZWUgdGhlIEdOVQ0KIyMgR2VuZXJhbCBQdWJsaWMgTGljZW5z ZSBmb3IgbW9yZSBkZXRhaWxzLg0KIyMNCiMjIFlvdSBzaG91bGQgaGF2ZSByZWNlaXZlZCBh IGNvcHkgb2YgdGhlIEdOVSBHZW5lcmFsIFB1YmxpYyBMaWNlbnNlDQojIyBhbG9uZyB3aXRo IE9jdGF2ZTsgc2VlIHRoZSBmaWxlIENPUFlJTkcuICBJZiBub3QsIHdyaXRlIHRvIHRoZSBG cmVlDQojIyBTb2Z0d2FyZSBGb3VuZGF0aW9uLCA1OSBUZW1wbGUgUGxhY2UgLSBTdWl0ZSAz MzAsIEJvc3RvbiwgTUENCiMjIDAyMTExLTEzMDcsIFVTQS4NCg0KIyBSb3V0aW5lIGZvciBj b21wdXRpbmcgdGhlIEhpbGJlcnQgdHJhbXNmb3JtIG9mIGEgbWF0cml4IHVzaW5nIHRoZSBG RlQuDQojDQojIHVzYWdlOiB6ID0gaGlsYmVydCh4KQ0KIw0KIyB4ID0gaW5wdXQgbWF0cml4 IHdpdGggZWFjaCBjb2x1bW4gYmVpbmcgYSByZWFsIHNhbXBsZSBzZXJpZXMNCiMgeSA9IG91 dHB1dCBtYXRyaXggd2l0aCBlYWNoIGNvbHVtbiBiZWluZyBhbiBhbmFseXRpYyB0aW1lIHNl cmllcw0KIw0KIyBUaGUgYW5hbHl0aWMgdGltZSBzZXJpZXMgYXJlIGNvbXBsZXggd2l0aCB0 aGUgb3JpZ2luYWwgdGltZSBzZXJpZXMgYXMgDQojIHRoZSByZWFsIHBhcnQsIGFuZCB0aGUg aW1hZ2luYXJ5IHBhcnQgYmVpbmcgdGhlIEhpbGJlcnQgdHJhbnNmb3JtLg0KDQojIEF1dGhv cjogVy4gRC4gS2lyYnksIDI5IEFwcmlsIDk4LiB3ZGtpcmJ5QGl4Lm5ldGNvbS5jb20NCiMj IEFkYXB0ZWQtQnk6IGp3ZQ0KDQpmdW5jdGlvbiB6ID0gaGlsYmVydCh4KQ0KDQogIGlmIChu YXJnaW4gPCAxIHx8IG5hcmdpbiA+IDEpDQogICAgdXNhZ2UgKCIgeiA9IGhpbGJlcnQoeCki KTsNCiAgZW5kaWYNCg0KICBbcl94LCBjX3hdID0gc2l6ZSAoeCk7DQoNCglpZiByX3ggPT0g MQ0KCQl4ID0geC4nOyAgICMgY2hhbmdlIHRvIGNvbHVtbiB2ZWN0b3INCgllbmRpZg0KDQoJ W3JfeCwgY194XSA9IHNpemUgKHgpOw0KCW49cl94Ow0KCWlmKGdjZChyX3gsMik9PTEpICAj IG9kZCBudW1iZXIgb2Ygcm93cw0KCQluPXJfeCArIDE7ICMgRkZUIHNpemUgbWFkZSBldmVu DQoJZW5kaWYNCg0KCSMgUGVmb3JtIEZGVCB0byBnZXQgY29tcGxleCBmb3JtDQoJeiA9IGZm dChyZWFsKHgpLG4pOw0KCSMgQ3JlYXRlIG1hdHJpeCB0byBzZWxlY3QgY29tcG9uZW50cw0K CXcgPSBbMTsgMipvbmVzKGZpeCgobi0xKS8yKSwxKTsgMTsgemVyb3MoZml4KChuLTEpLzIp LDEpXTsNCgl6ID0gei4qdyg6LCBvbmVzKDEsY194KSApOw0KCSMgUGVyZm9ybSBJRkZUIHRv IGdldCBhbmFseXRpYyBmb3JtIG9mIHRpbWUgc2VyaWVzDQoJeiA9IGlmZnQoeik7DQoJej16 KDE6cl94LDopOyAjIHJlc3RvcmUgbGVuZ3RoDQplbmRmdW5jdGlvbg0KDQoNCg== --------------3D237FB3EF2B12022FF4891F--