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. 120 degree sector: .5 .25 0.866 120. 0.153 0.3
Testcase 2. 90 degree sector: .5 .353553391 .707 90. 0.071 0.14
Testcase 3. 168 degree sector 10. 1. 19.89 168.52 137.11301 274.2
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 , 20jan2012
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 $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