This page is under development. Comments are welcome, but please load any comments in the comments section at the middle of the page. Please include your wiki MONIKER in your comment with the same courtesy that I will give you. Its very hard to reply intelligibly without some background of the correspondent. Thanks,gold
# gold Here is an eTCL script on Sanskrit Number Words. The Indian astronomy texts of 620 CE. used multiple Sanskrit words for zero (and numbers 1-9). The Sanskrit aternate words for zero were kha,ambara,akasa,antariksa,gagana,abhra,viyat,nabhas,sunya,bindu.The Sanskirt word sunya (void) is more common in the online wordlists. In transliterated Sanskrit , the decimal number 1000 could be expressed as left to right (0001) viyad(sky or zero)/ambar(atmosphere or zero)/akasa(space or zero)/eka(1).
#Trying to find some earlier estimates of atomic theory from other cultures. The Svetasvatara Upanisad of Vedic literature indicated an atman was one ten thousanth of the diameter of a human hair, expressed as (1/00)*(1/100), or 10-4.
Testcase 1.
figure 1.
Comments Section
Please place any comments here, Thanks.
# pretty print from autoindent and ased editor
# Sanskrit transliteration of integers
# written on Windowws XP on eTCL
# working under TCL version 8.5.6 and eTCL 1.0.1
# gold on TCL WIKI , 9jul2013
package require Tk
console show
set xzeroes { kha ambara akasa antariksa gagana abhra viyat nabhas sunya bindu }
proc lpick L {lindex $L [expr int(rand()*[llength $L])] }
proc average L {expr ([join $L +])/[llength $L].}
proc plainsub {text item replacewith} {
set text [string map [list $item $replacewith] $text]
}
proc subword { sanskritword } {
set xzeroes { kha ambara akasa antariksa gagana abhra viyat nabhas sunya bindu }
set sanskritword [ plainsub $sanskritword 1 eka ]
set sanskritword [ plainsub $sanskritword 2 dvi ]
set sanskritword [ plainsub $sanskritword 3 tri ]
set sanskritword [ plainsub $sanskritword 4 catur ]
set sanskritword [ plainsub $sanskritword 5 panca ]
set sanskritword [ plainsub $sanskritword 6 sat ]
set sanskritword [ plainsub $sanskritword 7 sapta ]
set sanskritword [ plainsub $sanskritword 8 asta ]
set sanskritword [ plainsub $sanskritword 9 nava ]
set sanskritword [ plainsub $sanskritword 0 [lpick $xzeroes ]]
return $sanskritword }
foreach item { 1 2 3 4 5 6 7 8 9} {
set sanskritword [expr {int(rand()*1000000000.)}]
puts " $sanskritword "
puts "[ subword [split $sanskritword "" ]]"
}
output:
619882413
sat eka nava asta asta dvi catur eka tri
228549526
dvi dvi asta panca catur nava panca dvi sat
316376463
tri eka sat tri sapta sat catur sat tri
349369262
tri catur nava tri sat nava dvi sat dvi
419843652
catur eka nava asta catur tri sat panca dvi
407217392
catur ambara sapta dvi eka sapta tri nava dvi
321505340
tri dvi eka panca abhra panca tri catur abhra
93242173
nava tri dvi catur dvi eka sapta tri
71222137
sapta eka dvi dvi dvi eka tri sapta
string map { 1 eka\/ 2 dvi\/ 3 tri\/ 4 catur\/ 5 panca\/ 6 sat\/ 7 sapta\/ 8 asta\/ 9 nava\/ 0 sunya\/ } 759002679