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 seked numbers and ratios
| 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 |
Due size of following jpgs, leaving pictures as point and click.
Comments Section
Please place any comments here, Thanks.
# 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 radianstodegconst {} {return [ expr {180./[pi]} ]}
proc deg {} {return [ expr {[pi]/180.} ]}
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