From octave-sources-request at bevo dot che dot wisc dot edu  Thu Jun 13 01:57:13 2002
Subject: mat2str   handling complex matrices
From: Rolf Fabian <fabian at tu-cottbus dot de>
To: "'octave-sources UWISC'" <octave-sources at bevo dot che dot wisc dot edu>
Date: Fri, 7 Jun 2002 12:19:32 +0200


------ =_NextPart_000_01C20E1D.990E8020
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit

 

------ =_NextPart_000_01C20E1D.990E8020
Content-Type: application/octet-stream; name="MAT2STR.M"
Content-Transfer-Encoding: base64

IyNVU0FHRQlzID0gbWF0MnN0ciggeCwgbiwgUExVUyApDQojIwlmb3JtYXQgcmVhbC9jb21wbGV4
IG51bWVyaWNhbCBtYXRyaXggeCBhcyBzdHJpbmcgcw0KIyMJc3VpdGFibGUgZm9yIHVzYWdlIGJ5
ICdldmFsJyAtZnVuY3Rpb24NCiMjDQojI24JZGlnaXRzIG9mIHByZWNpc2lvbiAgICAgKGRlZmF1
bHQgbj0xNykNCiMjCW4oMSkgOiBwcmVjaXNpb24gb2YgIHJlYWwgcGFydHMgZm9ybWF0DQojIwlu
KDIpIDogcHJlY2lzaW9uIG9mICBpbWFnIHBhcnRzIGZvcm1hdA0KIyNQTFVTCSAgMSAgOiBwcmlu
dCAnKycgZm9yIHBvcy4gcmVhbCBwYXJ0cyAoMCBieSBkZWYuKQ0KIyNOT1RFCSogc2NhbGFyIG4g
c2V0cyAgbigyKSA9IG4oMSkgPSBuDQojIwkqIGZvciByZWFsIHggYW55IG4oMikgaXMgaWdub3Jl
ZA0KIyMJKiBtYXkgZmFpbCBmb3IgT2N0YXZlIFYyLjAuWCBhbmQgY29tcGxleCBpbnB1dA0KIyNF
WEEJbWF0MnN0ciggWyAtMS8zICsgaS83OyAxLzMgLSBpLzcgXSwgWzQgMl0gKQ0KIyMJfC0gICAg
ICAgWy0wLjMzMzMrMC4xNGk7MC4zMzMzLTAuMTRpXQ0KIyMJbWF0MnN0ciggWyAtMS8zICtpLzc7
IDEvMyAtaS83IF0sIFs0IDJdICkNCiMjCXwtICAgICAgIFstMC4zMzMzKzBpLDArMC4xNGk7MC4z
MzMzKzBpLC0wLTAuMTRpXQ0KIyMJbWF0MnN0ciggWzEtaSAtMStpXSxbXSwxICkgICB8LSAgICBb
KzEtMWksLTErMWldDQojI0hJTlQJYmV0dGVyIHVzZSBjb21tYXMgdG8gc2VwZXJhdGUgcm93LWVs
ZW1lbnRzIG9mIHgNCiMjQVNTT0MJc3ByaW50ZiwgaW50MnN0cg0KIyNBVVRIT1IgIChDKSAyMDAy
IFJvbGYgRmFiaWFuIDxmYWJpYW5AdHUtY290dGJ1cy5kZT4gMDIwNTMxDQojIwlwdWJsaXNoZWQg
dW5kZXIgY3VycmVudCBHTlUgR0VORVJBTCBQVUJMSUMgTElDRU5TRQ0KDQpmdW5jdGlvbiBzPW1h
dDJzdHIoeCxuLFBMVVMpDQoNCmlmICggbmFyZ2luPDJ8fGlzZW1wdHkobikgKQ0KICAgbj0xNzsJ
CSAgICMgZGVmYXVsdCBwcmVjaXNpb24NCmVuZGlmDQoNCmlmICggbmFyZ2luPDN8fGlzZW1wdHko
UExVUykgKQ0KICAgUExVUz0wOwkJICAgIyBkZWYuIFBMVVMgOiBETyBOT1QgcHJpbnQgbGVhZGlu
ZyAnKycNCgkJCSAgICMJCSBmb3IgcG9zaXRpdmUgcmVhbCBlbGVtZW50cw0KZW5kaWYNCg0KaWYg
KCBuYXJnaW48MXx8bmFyZ2luPjN8fGlzc3RyKHgpfHxpc19zdHJ1Y3QoeCl8fFwNCiAgICAgaXNz
dHIobil8fGlzX3N0cnVjdChuKXx8aXNzdHIoUExVUyl8fGlzX3N0cnVjdChQTFVTKSApDQogICB1
c2FnZSAoIm1hdDJzdHIoIE5VTUVSSUMgeCwgTlVNRVJJQyBuLCBQTFVTIDB8MSAgKSIpOw0KZW5k
aWYNCg0KaWYgKCAhKENPTVBMRVg9aXNfY29tcGxleCh4KSkgKQ0KICAgaWYgKCAhUExVUyApDQog
ICAgICBGTVQ9c3ByaW50ZigiJSUuJWRnIiwgbigxKSk7DQogICBlbHNlDQogICAgICBGTVQ9c3By
aW50ZigiJSUrLiVkZyIsbigxKSk7DQogICBlbmRpZg0KZWxzZQ0KICAgaWYgKCBsZW5ndGgobik9
PTEgKQ0KICAgICAgbj1bbixuXTsNCiAgIGVuZGlmDQogICBpZiAoICFQTFVTICkNCiAgICAgIEZN
VD1zcHJpbnRmKCIlJS4lZGclJSsuJWRnaSIsIG4oMSksbigyKSk7DQogICBlbHNlDQogICAgICBG
TVQ9c3ByaW50ZigiJSUrLiVkZyUlKy4lZGdpIixuKDEpLG4oMikpOw0KICAgZW5kaWYNCmVuZGlm
DQoNCltucixuY10gPSBzaXplKHgpOw0KDQppZiAoIG5yKm5jPT0xICkJCSMgc2NhbGFyIHggLi4g
ZG9uJ3QgcHJpbnQgYnJhY2tldHMNCiAgIGlmICggIUNPTVBMRVggKQ0KICAgICAgcyA9IHNwcmlu
dGYoIEZNVCwgeCApOw0KICAgZWxzZQ0KICAgICAgcyA9IHNwcmludGYoIEZNVCwgcmVhbCh4KSwg
aW1hZyh4KSApOw0KICAgZW5kaWYNCg0KZWxzZQkJCSMgbm9uLXNjYWxhciB4IC4uIHByaW50IGJy
YWNrZXRzDQogICBGTVQ9W0ZNVCwnLCddOw0KDQogICBpZiAoICFDT01QTEVYICkNCg0KICAgICAg
cyA9IHNwcmludGYoIEZNVCwgeC4nICk7DQoNCiAgIGVsc2UNCg0KICAgICAgeCA9IHguJzsNCg0K
ICAgICAgQkFLPWRvX2ZvcnRyYW5faW5kZXhpbmc7DQogICAgICBkb19mb3J0cmFuX2luZGV4aW5n
PTE7DQogICAgICB1bndpbmRfcHJvdGVjdA0KCSMgVVNFIE9jdGF2ZSBWMi4xLlggZmVhdHVyZXMg
KCBoZW5jZSAgVjIuMC5YIG1heSBmYWlsICkNCiAgICAgICAgcyA9IHNwcmludGYoIEZNVCwgW3Jl
YWwoeCkoOikuJztpbWFnKHgpKDopLiddKDopICk7DQogICAgICB1bndpbmRfcHJvdGVjdF9jbGVh
bnVwDQogICAgICAgIGRvX2ZvcnRyYW5faW5kZXhpbmc9QkFLOw0KICAgICAgZW5kX3Vud2luZF9w
cm90ZWN0DQoNCiAgIGVuZGlmDQoNCiAgIHM9WyJbIiBzXTsNCiAgIHMobGVuZ3RoKHMpKT0gIl0i
Ow0KICAgSU5EPSBmaW5kKHMgPT0gIiwiKTsNCiAgIHMoIElORChuYzpuYzpsZW5ndGgoSU5EKSkg
KT0gIjsiOw0KDQplbmRpZg0KDQplbmRmdW5jdGlvbg0K

------ =_NextPart_000_01C20E1D.990E8020--