This is an empty page. Enter page contents here, upload content using the button above, or click cancel to leave it empty. <>Enter Category Here ***Biruni Estimate of Earth Diameter Slot Calculator Example*** ---- This page is under development. Comments are welcome, but please load any comments in the comments section at the middle of the page. Thanks,[gold] ---- [gold] Here is an eTCL script on . aroung the world to estimate latitude and the size of the earth. ---- In planning any software, height waS 652+1/20 cubits radius was 12851359cubits circumference was 80780039 cubits arabic cubit ~ 4,933 mm circumference ~ 25000+2/7 english miles dip reportly 34 minutes testcase was height 479 meters, 479 meters is modern survey of Nandian Mountian. Persian cubit of about 500.1 mm, dip angle was 30 or 34 minutes, 30/60 degree or 34/60 degrees. (652.05 cubits * cos (.56666) / (1 - cos(.56666) = ? Very sensitive equation, cosine would have to be known to 5th position. ---- ---- reverse on Biruni's angle constant 652.05/(1-x)=r 652.05*x=r(1-x) x= r(652.05+r)= 0.99949265 radians or 0.577156 degrees. Loading 0.577156 degrees and 652.05 cubits, calculator is getting 12851427 cubits, close to Biruni's answer. For meters, the Nandian survey height as 479 meters? ... Anyway. Loading 652.05 cubits *.5 or 326.025 meters and 0.577156 degrees is returning 6425.714 meters Modern estimate of earth radius at equator is 6356.75 km. Biruni overage is about 1.08 percent. ---- ---- on ---- ---- ---- ---- ---- ***Screenshots Section*** ---- '''Comments Section''' Please place any comments here, Thanks. ---- ***References:*** ---- ---- ****Appendix Code**** ****appendix TCL programs and scripts **** ---- ---- ---- ---- ********************* ****FIRST VERSION *** #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck #start of deck # Biruni Estimate of Earth Diameter # written on Windowws XP on eTCL # working under TCL version 8.5.6 and eTCL 1.0.1 # gold on TCL WIKI , 8aug2010 frame .frame -relief flat -bg aquamarine4 pack .frame -side top -fill y -anchor center set names {{} {not_used:} {not_used:} {not_used:} {dip angle:} {height:} {answer km:} { km/1000:}} foreach i {1 2 3 4 5 6 7} { label .frame.label$i -text [lindex $names $i] -anchor e entry .frame.entry$i -width 35 -textvariable side$i grid .frame.label$i .frame.entry$i -sticky ew -pady 2 -padx 1 } proc about {} { set msg "Calculator for Biruni Earth Diameter. from TCL WIKI, written on eTCL " tk_messageBox -title "About" -message $msg } proc pi {} {expr acos(-1)} proc interlinear { xx1 yy1 xx3 yy3 xx2 } { return [expr { ((($xx2-$xx1)*($yy3-$yy1))/($xx3-$xx1))+ $yy1 } ] ;} proc pol { xx1 yy1 xx3 yy3 xx2 } { return [expr { ((($xx2-$xx1)*($yy3-$yy1))/($xx3-$xx1))+ $yy1 } ] ;} proc errorx {aa bb} {expr { $aa > $bb ? (($aa*1.)/$bb -1.)*100. : (($bb*1.)/$aa -1.)*100.}} proc strat5 { xx1 } { global side1 side2 side3 global side4 side5 side6 side7 set ss side1 set tt $side2 set xxx [ expr { $side4*[pi]/180. } ] # set side4 [ expr { $side5*cos($side4)/(1.-cos($side4))} ] # set side5 [ expr { $side5*cos($side4)/(1.-cos($side4))} ] set side6 [ expr { 1.*$side5*cos($xxx)/(1.-1.*cos($xxx))} ] set side7 [ expr { 1.*$side5*cos($xxx)/(1.-1.*cos($xxx))} ] set side7 [ expr { (1.*$side7)*.001 } ] return $side7 } proc calculate { } { global colorwarning global colorback global answer2 answer3 global side1 side2 side3 side4 side5 side6 side7 set answer2 5 set answer2 [ strat5 $side1 ] set side7 $answer2 } proc fillup {aa bb cc dd ee ff gg} { .frame.entry1 insert 0 "$aa" .frame.entry2 insert 0 "$bb" .frame.entry3 insert 0 "$cc" .frame.entry4 insert 0 "$dd" .frame.entry5 insert 0 "$ee" .frame.entry6 insert 0 "$ff " .frame.entry7 insert 0 "$gg " } proc clearx {} { foreach i {1 2 3 4 5 6 7} { .frame.entry$i delete 0 end } } proc reportx {} { console show; puts " The interpolation function takes two know points on a line and solves for an intermediate point. The points are xx1,yy1 xx2,yy2 and xx3,?yy3? The input order of the five items is xx1 yy1 xx2 yy2 xx3 and solving for ?yy3?. The interpolation function loaded as proc pol. User should be able to write pol 50. 1000. 200. 1200. 150. and save answer (1133.3) on console." } frame .buttons -bg aquamarine4 ::ttk::button .calculator -text "Solve" -command { calculate } ::ttk::button .test2 -text "Testcase1" -command {clearx;fillup 10. 1. 1. .577156 652.05 12.85E6 12.85E4} ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 100. 1. 1. .577156 479 9.44E5 9.44E3} ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 1000. 1. 2. .56666 652.05 13.33E6 13.33E4} ::ttk::button .clearallx -text clear -command {clearx } ::ttk::button .about -text about -command about ::ttk::button .cons -text report -command { reportx } ::ttk::button .exit -text exit -command {exit} pack .calculator -in .buttons -side top -padx 10 -pady 5 pack .clearallx .cons .about .exit .test4 .test3 .test2 -side bottom -in .buttons grid .frame .buttons -sticky ns -pady {0 10} . configure -background aquamarine4 -highlightcolor brown -relief raised -border 30 bind . {wm title . "Biruni Earth Diameter"} #end of deck #end of deck #end of deck #end of deck #end of deck #end of deck ---- <> Numerical Analysis | Toys | Calculator | Example | Mathematics+