From octave-sources-request at bevo dot che dot wisc dot edu Wed Nov 17 13:53:49 1999 Subject: Plotting of surfaces with superficie From: Peter Hopfgartner To: "octave-sources at bevo dot che dot wisc dot edu" Date: Mon, 15 Nov 1999 09:16:18 +0000 This is a multi-part message in MIME format. --------------7FC50AD5F9EC4CCBD5746C65 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: base64 SSd2ZSBtYWRlIGEgc21hbGwgc2NyaXB0IHRoYXQgYWxsb3dzIHRvIHBsb3Qgc3VyZmFjZXMg d2l0aCBzdXBlcmZpY2llLg0Kc3VwZXJmaWNpZSBpcyBhIHNtYWxsIE9wZW5HTCBhcHBsaWNh dGlvbiwgcnVubmluZyB1bmRlciBHbm9tZSwgRkxUSyBvcg0KR1RLLg0KDQpzdXBlcmZpY2ll IG11c3QgYmUgaW4geW91ciBQQVRILg0KDQpVc2FnZSBpcyB0aGUgc2FtZSBhcyBtZXNoLCB3 aXRoIHRoZSBvbmx5IGRpZmZlcmVuY2UgdGhhdCB3aXRoIDINCmFyZ3VtZW50cyBhIG9ubHkg dGhlIG1lc2ggaXMgcGxvdHRlZC4NCg0KVGVzdGVkIHdpdGggT2N0YXZlLTIuMS4yMS4NCg0K WW91IGNhbiBmaW5kIHN1cGVyZmljaWUgYXQ6DQoNCmh0dHA6Ly93d3cubGludXhzdXBwb3J0 bGluZS5jb20vfnN1cGVyZmljaWUvDQoNCnBldGVyDQo= --------------7FC50AD5F9EC4CCBD5746C65 Content-Type: application/octet-stream; name="superficie.m" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="superficie.m" IyMgQ29weXJpZ2h0IChDKSAxOTk5IFBldGVyIEhvcGZnYXJ0bmVyCiMjCiMjIFRoaXMgZmls ZSBpcyBmcmVlIHNvZnR3YXJlOyB5b3UgY2FuIHJlZGlzdHJpYnV0ZSBpdCBhbmQvb3IgbW9k aWZ5IGl0CiMjIHVuZGVyIHRoZSB0ZXJtcyBvZiB0aGUgR05VIEdlbmVyYWwgUHVibGljIExp Y2Vuc2UgYXMgcHVibGlzaGVkIGJ5CiMjIHRoZSBGcmVlIFNvZnR3YXJlIEZvdW5kYXRpb247 IGVpdGhlciB2ZXJzaW9uIDIsIG9yIChhdCB5b3VyIG9wdGlvbikKIyMgYW55IGxhdGVyIHZl cnNpb24uCiMjCiMjIFRoaXMgZmlsZSBpcyBkaXN0cmlidXRlZCBpbiB0aGUgaG9wZSB0aGF0 IGl0IHdpbGwgYmUgdXNlZnVsLCBidXQKIyMgV0lUSE9VVCBBTlkgV0FSUkFOVFk7IHdpdGhv dXQgZXZlbiB0aGUgaW1wbGllZCB3YXJyYW50eSBvZgojIyBNRVJDSEFOVEFCSUxJVFkgb3Ig RklUTkVTUyBGT1IgQSBQQVJUSUNVTEFSIFBVUlBPU0UuICBTZWUgdGhlIEdOVQojIyBHZW5l cmFsIFB1YmxpYyBMaWNlbnNlIGZvciBtb3JlIGRldGFpbHMuCiMjCiMjIFlvdSBzaG91bGQg aGF2ZSByZWNlaXZlZCBhIGNvcHkgb2YgdGhlIEdOVSBHZW5lcmFsIFB1YmxpYyBMaWNlbnNl CiMjIGFsb25nIHdpdGggT2N0YXZlOyBzZWUgdGhlIGZpbGUgQ09QWUlORy4gIElmIG5vdCwg d3JpdGUgdG8gdGhlIEZyZWUKIyMgU29mdHdhcmUgRm91bmRhdGlvbiwgNTkgVGVtcGxlIFBs YWNlIC0gU3VpdGUgMzMwLCBCb3N0b24sIE1BCiMjIDAyMTExLTEzMDcsIFVTQS4KCiMjIEF1 dGhvcjogUGV0ZXIgSG9wZmdhcnRuZXIgPGhvcGZnYXJ0bmVyQHJvbG1haWwubmV0PgojIyBD cmVhdGVkOiBOb3ZlbWJlciAxOTk5CgpmdW5jdGlvbiBzdXBlcmZpY2llIChYWCwgWVksIFpa KQoKICBpZiAobmFyZ2luID09IDEpCiAgICAjIyBQbG90IG9uIHVuaWZvcm0gZ3JpZAogICAg IyMgYXNzdW1lIHRoYXQgdGhlIG9ubHkgYXJndW1lbnQgaXMgdGhlIGVsZXZhdGlvbgogICAg WlogPSBYWDsKICAgIHhyb3cgPSByb3dzIChaWik7CiAgICB4Y29sID0gY29sdW1ucyAoWlop OwogICAgaWYgKGlzX21hdHJpeChaWikpCiAgICAgICMjIFNldCBVcCBzdXBlcmZpY2llCiAg ICAgICMjIEdpdmUgcGxvdHRpbmcgaW5zdHJ1Y3Rpb24KICAgICAgdG1wX2luX2ZpbGUgPSB0 bXBuYW0oKQogICAgICBbZmlkLCBtc2ddID0gZm9wZW4odG1wX2luX2ZpbGUsICJ3Iik7CiAg ICAgIGlmIChmaWQgPT0gLTEpCgllcnJvcigid2hpbGUgb3BlbmluZyBzdXBlcmZpY2llIGlu cHV0IGZpbGUgJXM6IFxuXHQlcyIsIFwKCSAgICAgIHRtcF9pbl9maWxlLCBtc2cpOwogICAg ICBlbmRpZgoKICAgICAgZnByaW50ZiAoIGZpZCwgIlxuUVVBRFMiKTsKICAgICAgZnByaW50 ZiAoIGZpZCwgIlxudmVydGV4Iik7ICAgICAgCiAgICAgIGZwcmludGYgKCBmaWQsICJcbiVk IiwgMyAqIHhyb3cgKiB4Y29sKTsKICAgICAgZnByaW50ZiAoIGZpZCwgIlxuICB7Iik7CiAg ICAgIGZvciBpID0gMTp4cm93Cglmb3IgaiA9IDE6eGNvbAoJICBmcHJpbnRmICggZmlkLCAi XG4gICAgICVmLCAlZiwgJWYiLCBpIC0gMSwgaiAtIDEsIFhYKGksIGopKTsKCSAgaWYgKGkg IT0geHJvdyB8fCBqICE9IHhjb2wpCgkgICAgZnByaW50ZiAoIGZpZCwgIiwiKTsKCSAgZW5k aWYKCWVuZGZvcgogICAgICBlbmRmb3IKICAgICAgZnByaW50ZiAoIGZpZCwgIlxuICB9Iik7 CgogICAgICBmcHJpbnRmICggZmlkLCAiXG5pbmRleCIpOwogICAgICBmcHJpbnRmICggZmlk LCAiXG4lZCIsIDQgKiAoeHJvdy0xKSAqICh4Y29sLTEpKTsKICAgICAgZnByaW50ZiAoIGZp ZCwgIlxuICB7Iik7CiAgICAgIGZvciBpPTE6eHJvdy0xCglmb3Igaj0xOnhjb2wtMQoJICBp MSA9IChpIC0gMSkgKiB4Y29sICsgaiAtIDE7CgkgIGkyID0gKGkgLSAxKSAqIHhjb2wgKyBq OwoJICBpMyA9IGkgKiB4Y29sICsgajsKCSAgaTQgPSBpICogeGNvbCArIGogLSAxOwoJICBm cHJpbnRmICggZmlkLCAiXG4gICAgICAlZCwgJWQsICVkLCAlZCIsIGkxLCBpMiwgaTMsIGk0 KTsKCSAgaWYgKGkgIT0geHJvdyAtIDEgfHwgaiAhPSB4Y29sIC0gMSkKCSAgICBmcHJpbnRm ICggZmlkLCAiLCIpOwoJICBlbmRpZgoJZW5kZm9yCiAgICAgIGVuZGZvcgogICAgICBmcHJp bnRmIChmaWQsICJcbiAgfSIpOwogICAgICBmZmx1c2ggKGZpZCk7CiAgICAgIGZjbG9zZShm aWQpOwogICAgICBjb21tYW5kX3N0cmluZyA9IHNwcmludGYoJ3N1cGVyZmljaWUgICVzID4g c3VwZXJmaWNpZS5sb2cnLHRtcF9pbl9maWxlKQogICAgICBzeXN0ZW0gKGNvbW1hbmRfc3Ry aW5nLCAnc3luYycpOwogICAgICBjb21tYW5kX3N0cmluZyA9IHNwcmludGYoInJtICVzIiwg dG1wX2luX2ZpbGUpOwogICAgICBzeXN0ZW0oY29tbWFuZF9zdHJpbmcpOwogICAgZWxzZQog ICAgICBlcnJvciAoImFyZ3VtZW50IG11c3QgYmUgYSBtYXRyaXgiKTsKICAgIGVuZGlmCgog IGVsc2VpZiAobmFyZ2luID09IDIpCiAgICAjIyBQbG90IG1lc2ggb25seSwgYXNzdW1lIHRo YXQgdGhlIHR3byBhcmd1bWVudHMgYXJlIHRoZSBjb29yZGluYXRlcwogICAgIyMgb2YgdGhl IG1lc2gKICAgIHhyb3cgPSByb3dzIChYWCk7CiAgICB4Y29sID0gY29sdW1ucyAoWFgpOwog ICAgaWYgKHhyb3cgPT0gcm93cyAoWVkpICYmIHhjb2wgPT0gY29sdW1ucyAoWVkpKQogICAg ICB0bXBfaW5fZmlsZSA9IHRtcG5hbSgpCiAgICAgIFtmaWQsIG1zZ10gPSBmb3Blbih0bXBf aW5fZmlsZSwgInciKTsKICAgICAgaWYgKGZpZCA9PSAtMSkKCWVycm9yKCJ3aGlsZSBvcGVu aW5nIHNwbGluZSBpbnB1dCBmaWxlIGluIHNwbGluZV9pbnQ6IFxuXHQlcyIsIG1zZyk7CiAg ICAgIGVuZGlmCgogICAgICBmcHJpbnRmICggZmlkLCAiXG5RVUFEUyIpOwogICAgICBmcHJp bnRmICggZmlkLCAiXG52ZXJ0ZXgiKTsgICAgICAKICAgICAgZnByaW50ZiAoIGZpZCwgIlxu JWQiLCAzICogeHJvdyAqIHhjb2wpOwogICAgICBmcHJpbnRmICggZmlkLCAiXG4gIHsiKTsK ICAgICAgZm9yIGkgPSAxOnhyb3cKCWZvciBqID0gMTp4Y29sCgkgIGZwcmludGYgKCBmaWQs ICJcbiAgICAgJWYsICVmLCAlZiIsIFhYKGksIGopLCBZWShpLCBqKSwgMC4pOwoJICBpZiAo aSAhPSB4cm93IHx8IGogIT0geGNvbCkKCSAgICBmcHJpbnRmICggZmlkLCAiLCIpOwoJICBl bmRpZgoJZW5kZm9yCiAgICAgIGVuZGZvcgogICAgICBmcHJpbnRmICggZmlkLCAiXG4gIH0i KTsKCiAgICAgIGZwcmludGYgKCBmaWQsICJcbmluZGV4Iik7CiAgICAgIGZwcmludGYgKCBm aWQsICJcbiVkIiwgNCAqICh4cm93LTEpICogKHhjb2wtMSkpOwogICAgICBmcHJpbnRmICgg ZmlkLCAiXG4gIHsiKTsKICAgICAgZm9yIGk9MTp4cm93LTEKCWZvciBqPTE6eGNvbC0xCgkg IGkxID0gKGkgLSAxKSAqIHhjb2wgKyBqIC0gMTsKCSAgaTIgPSAoaSAtIDEpICogeGNvbCAr IGo7CgkgIGkzID0gaSAqIHhjb2wgKyBqOwoJICBpNCA9IGkgKiB4Y29sICsgaiAtIDE7Cgkg IGZwcmludGYgKCBmaWQsICJcbiAgICAgICVkLCAlZCwgJWQsICVkIiwgaTEsIGkyLCBpMywg aTQpOwoJICBpZiAoaSAhPSB4cm93IC0gMSB8fCBqICE9IHhjb2wgLSAxKQoJICAgIGZwcmlu dGYgKCBmaWQsICIsIik7CgkgIGVuZGlmCgllbmRmb3IKICAgICAgZW5kZm9yCiAgICAgIGZw cmludGYgKGZpZCwgIlxuICB9Iik7CiAgICAgIGZmbHVzaCAoZmlkKTsKICAgICAgZmNsb3Nl KGZpZCk7CiAgICAgIGNvbW1hbmRfc3RyaW5nID0gc3ByaW50Zignc3VwZXJmaWNpZSAgJXMg PiBzdXBlcmZpY2llLmxvZycsdG1wX2luX2ZpbGUpCiAgICAgIHN5c3RlbSAoY29tbWFuZF9z dHJpbmcsICdzeW5jJyk7CiAgICAgIGNvbW1hbmRfc3RyaW5nID0gc3ByaW50Zigicm0gJXMi LCB0bXBfaW5fZmlsZSk7CiAgICAgIHN5c3RlbShjb21tYW5kX3N0cmluZyk7CiAgICBlbHNl CiAgICAgIGVycm9yICgiZGltZW5zaW9uIG9mIG1hdHJpY2VzIG11c3QgbWF0Y2giKTsKICAg IGVuZGlmCiAgZWxzZWlmIChuYXJnaW4gPT0gMykKICAgICMjIFBsb3QgbWVzaCBhbmQgZWxl dmF0aW9uLCBhc3N1bWUgdGhhdCB0aGUgZmlyc3QgdHdvIGFyZ3VtZW50cwogICAgIyMgYXJl IHRoZSBjb29yZGluYXRlcyBvZiB0aGUgbWVzaCBhbmQgdGhlIHRoaXJkIGlzIHRoZSBlbGV2 YXRpb24KICAgIHhyb3cgPSByb3dzIChYWCk7CiAgICB4Y29sID0gY29sdW1ucyAoWFgpOwog ICAgaWYgKHhyb3cgPT0gcm93cyAoWVkpICYmIHhjb2wgPT0gY29sdW1ucyAoWVkpICYmXAoJ eHJvdyA9PSByb3dzIChaWikgJiYgeGNvbCA9PSBjb2x1bW5zIChaWikpCgogICAgICB0bXBf aW5fZmlsZSA9IHRtcG5hbSgpCiAgICAgIFtmaWQsIG1zZ10gPSBmb3Blbih0bXBfaW5fZmls ZSwgInciKTsKICAgICAgaWYgKGZpZCA9PSAtMSkKCWVycm9yKCJ3aGlsZSBvcGVuaW5nIHNw bGluZSBpbnB1dCBmaWxlIGluIHNwbGluZV9pbnQ6IFxuXHQlcyIsIG1zZyk7CiAgICAgIGVu ZGlmCgogICAgICBmcHJpbnRmICggZmlkLCAiXG5RVUFEUyIpOwogICAgICBmcHJpbnRmICgg ZmlkLCAiXG52ZXJ0ZXgiKTsgICAgICAKICAgICAgZnByaW50ZiAoIGZpZCwgIlxuJWQiLCAz ICogeHJvdyAqIHhjb2wpOwogICAgICBmcHJpbnRmICggZmlkLCAiXG4gIHsiKTsKICAgICAg Zm9yIGkgPSAxOnhyb3cKCWZvciBqID0gMTp4Y29sCgkgIGZwcmludGYgKCBmaWQsICJcbiAg ICAgJWYsICVmLCAlZiIsIFhYKGksIGopLCBZWShpLCBqKSwgWlooaSwgaikpOwoJICBpZiAo aSAhPSB4cm93IHx8IGogIT0geGNvbCkKCSAgICBmcHJpbnRmICggZmlkLCAiLCIpOwoJICBl bmRpZgoJZW5kZm9yCiAgICAgIGVuZGZvcgogICAgICBmcHJpbnRmICggZmlkLCAiXG4gIH0i KTsKCiAgICAgIGZwcmludGYgKCBmaWQsICJcbmluZGV4Iik7CiAgICAgIGZwcmludGYgKCBm aWQsICJcbiVkIiwgNCAqICh4cm93LTEpICogKHhjb2wtMSkpOwogICAgICBmcHJpbnRmICgg ZmlkLCAiXG4gIHsiKTsKICAgICAgZm9yIGk9MTp4cm93LTEKCWZvciBqPTE6eGNvbC0xCgkg IGkxID0gKGkgLSAxKSAqIHhjb2wgKyBqIC0gMTsKCSAgaTIgPSAoaSAtIDEpICogeGNvbCAr IGo7CgkgIGkzID0gaSAqIHhjb2wgKyBqOwoJICBpNCA9IGkgKiB4Y29sICsgaiAtIDE7Cgkg IGZwcmludGYgKCBmaWQsICJcbiAgICAgICVkLCAlZCwgJWQsICVkIiwgaTEsIGkyLCBpMywg aTQpOwoJICBpZiAoaSAhPSB4cm93IC0gMSB8fCBqICE9IHhjb2wgLSAxKQoJICAgIGZwcmlu dGYgKCBmaWQsICIsIik7CgkgIGVuZGlmCgllbmRmb3IKICAgICAgZW5kZm9yCiAgICAgIGZw cmludGYgKGZpZCwgIlxuICB9Iik7CiAgICAgIGZmbHVzaCAoZmlkKTsKICAgICAgZmNsb3Nl KGZpZCk7CiAgICAgIGNvbW1hbmRfc3RyaW5nID0gc3ByaW50Zignc3VwZXJmaWNpZSAgJXMg PiBzdXBlcmZpY2llLmxvZycsdG1wX2luX2ZpbGUpCiAgICAgIHN5c3RlbSAoY29tbWFuZF9z dHJpbmcsICdzeW5jJyk7CiAgICAgIGNvbW1hbmRfc3RyaW5nID0gc3ByaW50Zigicm0gJXMi LCB0bXBfaW5fZmlsZSk7CiAgICAgIHN5c3RlbShjb21tYW5kX3N0cmluZyk7CiAgICBlbHNl CiAgICAgIGVycm9yICgiZGltZW5zaW9uIG9mIG1hdHJpY2VzIG11c3QgbWF0Y2giKTsKICAg IGVuZGlmCiAgZWxzZQogICAgZXJyb3IgKCIxLCAyIG9yIDMgYXJndW1lbnRzIHJlcXVpcmVk Iik7CiAgZW5kaWYKZW5kZnVuY3Rpb24= --------------7FC50AD5F9EC4CCBD5746C65--