예제: 특수한 유형의 행렬

<region id="ID0EAG2OB" top="912" left="48" xml:lang="ko" height="261.645333912969" width="347.389333318472" xmlns="http://schemas.mathsoft.com/worksheet50">
  <math xml:lang="ko">
    <define xml:lang="ko" xmlns="http://schemas.mathsoft.com/math50">
      <function xml:lang="ko">
        <id xml:lang="ko" label="Variable">upptriang</id>
        <boundVars xml:lang="ko">
          <id xml:lang="ko" label="Variable">v</id>
        </boundVars>
      </function>
      <program xml:lang="ko">
        <localDefine xml:lang="ko">
          <id xml:lang="ko" label="Variable">n</id>
          <apply xml:lang="ko">
            <id xml:lang="ko">ceil</id>
            <apply xml:lang="ko">
              <div xml:lang="ko" />
              <apply xml:lang="ko">
                <plus xml:lang="ko" />
                <real xml:lang="ko">-1</real>
                <apply xml:lang="ko">
                  <nthRoot xml:lang="ko" />
                  <placeholder xml:lang="ko" />
                  <apply xml:lang="ko">
                    <plus xml:lang="ko" />
                    <real xml:lang="ko">1</real>
                    <apply xml:lang="ko">
                      <mult xml:lang="ko" />
                      <real xml:lang="ko">8</real>
                      <apply xml:lang="ko">
                        <id xml:lang="ko">rows</id>
                        <id xml:lang="ko">v</id>
                      </apply>
                    </apply>
                  </apply>
                </apply>
              </apply>
              <real xml:lang="ko">2</real>
            </apply>
          </apply>
        </localDefine>
        <program xml:lang="ko">
          <localDefine xml:lang="ko">
            <apply xml:lang="ko">
              <indexer xml:lang="ko" />
              <id xml:lang="ko" label="Variable">M</id>
              <sequence xml:lang="ko">
                <apply xml:lang="ko">
                  <minus xml:lang="ko" />
                  <id xml:lang="ko" label="None">n</id>
                  <real xml:lang="ko">1</real>
                </apply>
                <apply xml:lang="ko">
                  <minus xml:lang="ko" />
                  <id xml:lang="ko" label="None">n</id>
                  <real xml:lang="ko">1</real>
                </apply>
              </sequence>
            </apply>
            <real xml:lang="ko">0</real>
          </localDefine>
          <localDefine xml:lang="ko">
            <id xml:lang="ko" label="Variable">k</id>
            <real xml:lang="ko">0</real>
          </localDefine>
          <for xml:lang="ko">
            <id xml:lang="ko">i</id>
            <range xml:lang="ko">
              <sequence xml:lang="ko">
                <real xml:lang="ko">0</real>
                <real xml:lang="ko">1</real>
              </sequence>
              <apply xml:lang="ko">
                <minus xml:lang="ko" />
                <id xml:lang="ko">n</id>
                <real xml:lang="ko">1</real>
              </apply>
            </range>
            <program xml:lang="ko">
              <for xml:lang="ko">
                <id xml:lang="ko">j</id>
                <range xml:lang="ko">
                  <sequence xml:lang="ko">
                    <id xml:lang="ko">i</id>
                    <apply xml:lang="ko">
                      <plus xml:lang="ko" />
                      <id xml:lang="ko">i</id>
                      <real xml:lang="ko">1</real>
                    </apply>
                  </sequence>
                  <apply xml:lang="ko">
                    <minus xml:lang="ko" />
                    <id xml:lang="ko">n</id>
                    <real xml:lang="ko">1</real>
                  </apply>
                </range>
                <program xml:lang="ko">
                  <if xml:lang="ko">
                    <test xml:lang="ko">
                      <apply xml:lang="ko">
                        <lessOrEqual xml:lang="ko" />
                        <id xml:lang="ko">k</id>
                        <apply xml:lang="ko">
                          <minus xml:lang="ko" />
                          <apply xml:lang="ko">
                            <id xml:lang="ko">rows</id>
                            <id xml:lang="ko">v</id>
                          </apply>
                          <real xml:lang="ko">1</real>
                        </apply>
                      </apply>
                    </test>
                    <then xml:lang="ko">
                      <program xml:lang="ko">
                        <localDefine xml:lang="ko">
                          <apply xml:lang="ko">
                            <indexer xml:lang="ko" />
                            <id xml:lang="ko" label="Variable">M</id>
                            <sequence xml:lang="ko">
                              <id xml:lang="ko" label="None">i</id>
                              <id xml:lang="ko" label="None">j</id>
                            </sequence>
                          </apply>
                          <apply xml:lang="ko">
                            <indexer xml:lang="ko" />
                            <id xml:lang="ko">v</id>
                            <id xml:lang="ko">k</id>
                          </apply>
                        </localDefine>
                        <localDefine xml:lang="ko">
                          <id xml:lang="ko" label="Variable">k</id>
                          <apply xml:lang="ko">
                            <plus xml:lang="ko" />
                            <id xml:lang="ko">k</id>
                            <real xml:lang="ko">1</real>
                          </apply>
                        </localDefine>
                      </program>
                    </then>
                  </if>
                </program>
              </for>
            </program>
          </for>
        </program>
        <id xml:lang="ko">M</id>
      </program>
    </define>
  </math>
</region>

<region id="ID0E4M2OB" top="1464" left="48" xml:lang="ko" height="261.645333912969" width="345.295999985139" xmlns="http://schemas.mathsoft.com/worksheet50">
  <math xml:lang="ko">
    <define xml:lang="ko" xmlns="http://schemas.mathsoft.com/math50">
      <function xml:lang="ko">
        <id xml:lang="ko" label="Variable">lowtriang</id>
        <boundVars xml:lang="ko">
          <id xml:lang="ko" label="Variable">v</id>
        </boundVars>
      </function>
      <program xml:lang="ko">
        <localDefine xml:lang="ko">
          <id xml:lang="ko" label="Variable">n</id>
          <apply xml:lang="ko">
            <id xml:lang="ko">ceil</id>
            <apply xml:lang="ko">
              <div xml:lang="ko" />
              <apply xml:lang="ko">
                <plus xml:lang="ko" />
                <real xml:lang="ko">-1</real>
                <apply xml:lang="ko">
                  <nthRoot xml:lang="ko" />
                  <placeholder xml:lang="ko" />
                  <apply xml:lang="ko">
                    <plus xml:lang="ko" />
                    <real xml:lang="ko">1</real>
                    <apply xml:lang="ko">
                      <mult xml:lang="ko" />
                      <real xml:lang="ko">8</real>
                      <apply xml:lang="ko">
                        <id xml:lang="ko">rows</id>
                        <id xml:lang="ko">v</id>
                      </apply>
                    </apply>
                  </apply>
                </apply>
              </apply>
              <real xml:lang="ko">2</real>
            </apply>
          </apply>
        </localDefine>
        <program xml:lang="ko">
          <localDefine xml:lang="ko">
            <apply xml:lang="ko">
              <indexer xml:lang="ko" />
              <id xml:lang="ko" label="Variable">M</id>
              <sequence xml:lang="ko">
                <apply xml:lang="ko">
                  <minus xml:lang="ko" />
                  <id xml:lang="ko" label="None">n</id>
                  <real xml:lang="ko">1</real>
                </apply>
                <apply xml:lang="ko">
                  <minus xml:lang="ko" />
                  <id xml:lang="ko" label="None">n</id>
                  <real xml:lang="ko">1</real>
                </apply>
              </sequence>
            </apply>
            <real xml:lang="ko">0</real>
          </localDefine>
          <localDefine xml:lang="ko">
            <id xml:lang="ko" label="Variable">k</id>
            <real xml:lang="ko">0</real>
          </localDefine>
          <for xml:lang="ko">
            <id xml:lang="ko">i</id>
            <range xml:lang="ko">
              <sequence xml:lang="ko">
                <real xml:lang="ko">0</real>
                <real xml:lang="ko">1</real>
              </sequence>
              <apply xml:lang="ko">
                <minus xml:lang="ko" />
                <id xml:lang="ko">n</id>
                <real xml:lang="ko">1</real>
              </apply>
            </range>
            <program xml:lang="ko">
              <for xml:lang="ko">
                <id xml:lang="ko">j</id>
                <range xml:lang="ko">
                  <sequence xml:lang="ko">
                    <real xml:lang="ko">0</real>
                    <real xml:lang="ko">1</real>
                  </sequence>
                  <id xml:lang="ko">i</id>
                </range>
                <program xml:lang="ko">
                  <if xml:lang="ko">
                    <test xml:lang="ko">
                      <apply xml:lang="ko">
                        <lessOrEqual xml:lang="ko" />
                        <id xml:lang="ko">k</id>
                        <apply xml:lang="ko">
                          <minus xml:lang="ko" />
                          <apply xml:lang="ko">
                            <id xml:lang="ko">rows</id>
                            <id xml:lang="ko">v</id>
                          </apply>
                          <real xml:lang="ko">1</real>
                        </apply>
                      </apply>
                    </test>
                    <then xml:lang="ko">
                      <program xml:lang="ko">
                        <localDefine xml:lang="ko">
                          <apply xml:lang="ko">
                            <indexer xml:lang="ko" />
                            <id xml:lang="ko" label="Variable">M</id>
                            <sequence xml:lang="ko">
                              <id xml:lang="ko" label="None">i</id>
                              <id xml:lang="ko" label="None">j</id>
                            </sequence>
                          </apply>
                          <apply xml:lang="ko">
                            <indexer xml:lang="ko" />
                            <id xml:lang="ko">v</id>
                            <id xml:lang="ko">k</id>
                          </apply>
                        </localDefine>
                        <localDefine xml:lang="ko">
                          <id xml:lang="ko" label="Variable">k</id>
                          <apply xml:lang="ko">
                            <plus xml:lang="ko" />
                            <id xml:lang="ko">k</id>
                            <real xml:lang="ko">1</real>
                          </apply>
                        </localDefine>
                      </program>
                    </then>
                  </if>
                </program>
              </for>
            </program>
          </for>
        </program>
        <id xml:lang="ko">M</id>
      </program>
    </define>
  </math>
</region>