File:Shapes in the Vedic Square.png
跳转到导航
跳转到搜索
本预览的尺寸：600 × 600像素。 其他分辨率：240 × 240像素 | 480 × 480像素 | 768 × 768像素 | 1,200 × 1,200像素。
原始文件 （1,200 × 1,200像素，文件大小：8 KB，MIME类型：image/png）
摘要
| 描述 |
English: Distinct shapes formed by highlighting respective numbers in a Vedic Square.
Created using the following Maple code, run on Maple 13: # Load Packages #
with(LinearAlgebra):with(plots):
# Set up procedure for Digital Root #
DigRot := proc(n) description "base 10 digital root"; if irem(n,9) = 0 then return 9 else return irem(n,9); end if; end proc;
# Generate Vedic Square #
VS := Matrix(9): for i from 1 to 9 do for j from 1 to 9 do VS(i,j) := DigRot(i*j); end do: end do: VS;
# Create Matrix for highlighted plot
HighVS := proc(M::Matrix,n::integer) local i,j,tempM; tempM := Matrix(9): for i from 1 to 9 do for j from 1 to 9 do if M(i,j)=n then tempM(i,j):=0 else tempM(i,j) := 1 end if; end do: end do: tempM; end proc;
# Highlighted Plots #
for k from 1 to 9 do: k; matrixplot(HighVS(VS,k),heights=histogram,orientation=[0,0],axes=none,labels=["","",""],gap=0.2,shading=zgrayscale); end do;
|
| 日期 | |
| 来源 | 自己的作品 |
| 作者 | Paul Carpenter |
许可协议
我，本作品著作权人，特此采用以下许可协议发表本作品：
本文件采用知识共享署名-相同方式共享 3.0 未本地化版本许可协议授权。
- 您可以自由地：
- 共享 – 复制、发行并传播本作品
- 修改 – 改编作品
- 惟须遵守下列条件：
- 署名 – 您必须对作品进行署名，提供授权条款的链接，并说明是否对原始内容进行了更改。您可以用任何合理的方式来署名，但不得以任何方式表明许可人认可您或您的使用。
- 相同方式共享 – 如果您再混合、转换或者基于本作品进行创作，您必须以与原先许可协议相同或相兼容的许可协议分发您贡献的作品。
|
已授权您依据自由软件基金会发行的无固定段落及封面封底文字（Invariant Sections, Front-Cover Texts, and Back-Cover Texts）的GNU自由文件许可协议1.2版或任意后续版本的条款，复制、传播和／或修改本文件。该协议的副本请见“GNU Free Documentation License”。 |
您可以选择您需要的许可协议。
文件历史
点击某个日期/时间查看对应时刻的文件。
| 日期/时间 | 缩略图 | 大小 | 用户 | 备注 | |
|---|---|---|---|---|---|
| 当前 | 2009年9月25日 (五) 12:16 | | 1,200 × 1,200（8 KB） | wikimediacommons>Paul Carpenter | {{Information |Description={{en|1=Distinct shapes formed by highlighting respective numbers in a Vedic Square. Created using the following Maple code, run on Maple 13: <source lang="pascal"># Load Packages # |
文件用途
以下页面使用本文件：
