File:Shapes in the Vedic Square.png

原始檔案(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

授權條款

我,本作品的著作權持有者,決定用以下授權條款發佈本作品:
w:zh:共享創意
姓名標示 相同方式分享
您可以自由:
  • 分享 – 複製、發佈和傳播本作品
  • 重新修改 – 創作演繹作品
惟需遵照下列條件:
  • 姓名標示 – 您必須指名出正確的製作者,和提供授權條款的連結,以及表示是否有對內容上做出變更。您可以用任何合理的方式來行動,但不得以任何方式表明授權條款是對您許可或是由您所使用。
  • 相同方式分享 – 如果您利用本素材進行再混合、轉換或創作,您必須基於如同原先的相同或兼容的條款,來分布您的貢獻成品。
GNU head 已授權您依據自由軟體基金會發行的無固定段落、封面文字和封底文字GNU自由文件授權條款1.2版或任意後續版本,對本檔進行複製、傳播和/或修改。該協議的副本列在GNU自由文件授權條款中。
您可以選擇您需要的授權條款。

說明

添加單行說明來描述出檔案所代表的內容

在此檔案描寫的項目

描繪內容

創作作者 Chinese (Hong Kong) (已轉換拼寫)

沒有維基數據項目的某些值

作者姓名字串 繁體中文 (已轉換拼寫):​Paul Carpenter
維基媒體使用者名稱 繁體中文 (已轉換拼寫):​Paul Carpenter

著作權狀態 繁體中文 (已轉換拼寫)

有著作權 繁體中文 (已轉換拼寫)

共享創意署名-相同方式共享3.0Unported Chinese (Hong Kong) (已轉換拼寫)

GNU自由文檔許可證1.2或更高版本 繁體中文 (已轉換拼寫)

檔案來源 Chinese (Taiwan) (已轉換拼寫)

上傳者的原創作品 繁體中文 (已轉換拼寫)

檔案歷史

點選日期/時間以檢視該時間的檔案版本。

日期/時間縮⁠圖尺寸用戶備⁠註
目前2009年9月25日 (五) 11:16於 2009年9月25日 (五) 11:16 版本的縮圖1,200 × 1,200(8 KB)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 #

下列頁面有用到此檔案:

全域檔案使用狀況

以下其他 wiki 使用了這個檔案: