***Estimating Mountain Height Using Look Angles, Etcl Console 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 estimating mountain height for the etcl console.
---- 
In planning any software, there is 
a need to develop testcases. With back of envelope calculations,
we can develop a number of peg points to check output of
program.    
----
 
 Testcases
   
%|quantity|units|ratio |angle| units|method|%
&|8.0 |palms |  7/8  |  41.1|degrees|ti30 hand calculation|&
&|9.0  |palms|  7/9  |   37.87|degrees|ti30 hand calculation|&
&|10.0 |palms|  7/10  | 34.9|degrees|ti30 hand calculation|&
&|11.0|palms |   7/11  | 32.47|degrees|ti30 hand calculation|&

----
***Screenshots Section***
----

Due size of following jpgs, leaving pictures
as point and click.
   * http://commons.wikimedia.org/wiki/File:Rhind_Mathematical_Papyrus.jpg
----
'''Comments Section'''

Please place any comments here, Thanks.

----
***References:***
   * http://www.kch42.dial.pipex.com/sekes.htm
   * http://www.math.washington.edu/~greenber/pyressay.html
   * http://www.google.com/intl/en/help/features.html#calculator
   * [Oneliner's Pie in the Sky]
----
     
****Appendix TCL programs and scripts ****

**** Pretty Print Version*** 

======
        # Pretty print version from autoindent
        # and ased editor
        # written on Windows XP on eTCL
        # code from TCL WIKI, eTCL console script
        # 8jun2011, [gold]  
        console show 
        proc deg {} {return [ expr {180./[pi]}  ]}        
        proc pi {} {expr acos(-1)}
        set counter 1
        proc mountain { aa bb cc } {
            global counter past
            set aa [ expr { [deg]*$aa } ]
            set bb [ expr { [deg]*$bb } ]
            set nom [ expr { $cc*sin($aa)*sin($bb) } ]
            set denom [ expr { sin($aa)*sin($aa)-sin($bb)*sin($bb)  } ]
            set denom [ expr { sqrt($denom)  } ]            
            set xheight [ expr { $nom/$denom } ]
            puts "$counter  $aa   $bb distance $cc moun $xheight  "
            incr counter
            wm title . "estimating mountain height"
        }
        mountain 30 20 10
======
*** Code scraps***
<<categories>> Testing | Toys | Physics | Games |Statistics| Example | Mathematics