Xenharmonic Wiki

Basic abstract temperament translation code: Difference between revisions

Newer edit →
VisualWikitext
Wikispaces>genewardsmith
**Imported revision 237481247 - Original comment: **
 
Wikispaces>genewardsmith
**Imported revision 237496955 - Original comment: **
Line 1: Line 1:
<h2>IMPORTED REVISION FROM WIKISPACES</h2>
<h2>IMPORTED REVISION FROM WIKISPACES</h2>
This is an imported revision from Wikispaces. The revision metadata is included below for reference:<br>
This is an imported revision from Wikispaces. The revision metadata is included below for reference:<br>
: This revision was by author [[User:genewardsmith|genewardsmith]] and made on <tt>2011-06-18 18:04:39 UTC</tt>.<br>
: This revision was by author [[User:genewardsmith|genewardsmith]] and made on <tt>2011-06-18 21:05:50 UTC</tt>.<br>
: The original revision id was <tt>237481247</tt>.<br>
: The original revision id was <tt>237496955</tt>.<br>
: The revision comment was: <tt></tt><br>
: The revision comment was: <tt></tt><br>
The revision contents are below, presented both in the original Wikispaces Wikitext format, and in HTML exactly as Wikispaces rendered it.<br>
The revision contents are below, presented both in the original Wikispaces Wikitext format, and in HTML exactly as Wikispaces rendered it.<br>
Line 117: Line 117:
dualproj := proc(w)
dualproj := proc(w)
# dual projection map
# dual projection map
convert(LinearAlgebra[IdentityMatrix](nops(w[1])), listlist)-w end:</pre></div>
convert(LinearAlgebra[IdentityMatrix](nops(w[1])), listlist)-w end:
 
norc2e := proc(l)
# normal comma list to rref
local M, N;
M := Matrix(l);
N := LinearAlgebra[NullSpace](M);
N := convert(N, list);
N := Matrix(N);
N := LinearAlgebra[Transpose](N);
ech(convert(N, listlist)) end:
</pre></div>
<h4>Original HTML content:</h4>
<h4>Original HTML content:</h4>
<div style="width:100%; max-height:400pt; overflow:auto; background-color:#f8f9fa; border: 1px solid #eaecf0; padding:0em"><pre style="margin:0px;border:none;background:none;word-wrap:break-word;width:200%;white-space: pre-wrap ! important" class="old-revision-html">&lt;html&gt;&lt;head&gt;&lt;title&gt;Basic abstract temperament translation code&lt;/title&gt;&lt;/head&gt;&lt;body&gt;&lt;br /&gt;
<div style="width:100%; max-height:400pt; overflow:auto; background-color:#f8f9fa; border: 1px solid #eaecf0; padding:0em"><pre style="margin:0px;border:none;background:none;word-wrap:break-word;width:200%;white-space: pre-wrap ! important" class="old-revision-html">&lt;html&gt;&lt;head&gt;&lt;title&gt;Basic abstract temperament translation code&lt;/title&gt;&lt;/head&gt;&lt;body&gt;&lt;br /&gt;
Line 219: Line 230:
&lt;br /&gt;
&lt;br /&gt;
dualproj := proc(w)&lt;br /&gt;
dualproj := proc(w)&lt;br /&gt;
&lt;ol&gt;&lt;li&gt;dual projection map&lt;/li&gt;&lt;/ol&gt;convert(LinearAlgebra[IdentityMatrix](nops(w[1])), listlist)-w end:&lt;/body&gt;&lt;/html&gt;</pre></div>
&lt;ol&gt;&lt;li&gt;dual projection map&lt;/li&gt;&lt;/ol&gt;convert(LinearAlgebra[IdentityMatrix](nops(w[1])), listlist)-w end:&lt;br /&gt;
&lt;br /&gt;
norc2e := proc(l)&lt;br /&gt;
&lt;ol&gt;&lt;li&gt;normal comma list to rref&lt;/li&gt;&lt;/ol&gt;local M, N;&lt;br /&gt;
M := Matrix(l);&lt;br /&gt;
N := LinearAlgebra[NullSpace](M);&lt;br /&gt;
N := convert(N, list);&lt;br /&gt;
N := Matrix(N);&lt;br /&gt;
N := LinearAlgebra[Transpose](N);&lt;br /&gt;
ech(convert(N, listlist)) end:&lt;/body&gt;&lt;/html&gt;</pre></div>
Retrieved from "https://en.xen.wiki/w/Basic_abstract_temperament_translation_code"