*** Drake Intelligent Life Equation 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 
  to estimate drake equation. 
  For the push buttons, the reccomended
  procedure is push testcase and fill frame,
  change  entries , push solve, and
  then push report. Report allows 
 copy and paste from console, but
 takes away from computer "efficiency".
---- 
 In planning any software, there is 
 a need to develop testcases.  
 
 Testcase 1. 
   star formation rate per year    10.
   stars with planets              .5
   potential life                  2. 
   actual life                     1. 
   fraction develop civilization  .01 
   fraction technology            .01
   years available                10000.
   number of civilations equal 10.* .5 * 2. * 1. * .01 * .01 * 10000.
   answer: 10.  


  


  

 
 
     
----
---- 
      
    
    


  



----
---- 

----
----
----
     ***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
     # cumulative crater equation  
     # written on Windowws XP on eTCL 
     # working under TCL version 8.5.6 and eTCL 1.0.1 
     # gold on TCL WIKI , 24aug2010
      frame .frame -relief flat -bg aquamarine4
      pack .frame -side top -fill y -anchor center

 set names {{} {crater diameter:} { log factor:} {alpha constant :} {not used:} {not used:} {not used:} {not used:} { 

answer:} }
   foreach i {1 2 3 4 5 6 7 8} {
    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 cumulative crater Equation.
          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 height5 { aa bb cc } {
        set bb [ expr { $cc*[pi]/180.  } ]
        set cc [ expr { $cc*[pi]/180.  } ]
        set dd  [ expr { 1.*$aa*tan($bb)*tan($cc)/( tan($cc)-tan($bb))} ]       
       return $dd
       }



        proc intelligent5 { xx1   } {
       global side1 side2 side3
       global side4 side5 side6 side7 side8    
       set side8  [ expr {  1*$side1*$side2*$side3*$side4*$side5*$side6*$side7 } ]
       set side8  [ expr {  1*$side3*pow($side1,$side2)  } ]
       return $side8
       }

    proc calculate {     } {
    global colorwarning
    global colorback
    global answer2   answer3
    global side1 side2 side3 side4 side5 side6 side7 side8
       set answer2 5
   
      set answer2  [ intelligent5  $side8     ] 
    
   
   set side8 $answer2  

   
  


      }
      proc fillup {aa bb cc dd ee ff gg hh} {
    
    .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 "
    .frame.entry8 insert 0 "$hh "
   
     }

 

      proc clearx {} {
    foreach i {1 2 3 4 5 6 7 8} {
        .frame.entry$i delete 0 end
    }
    }

   proc reportx {} { 
   global side1 side2 side3 side4 side5 side6 side7 side8
   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."
   puts " $side1     "
   puts " $side2    "
   puts " $side3    "
   puts " $side4     "
   puts " $side5     "
   puts " $side6    "
   puts " $side7    "
   puts " $side1    "
   puts " $side2    "
   puts " $side3    "
   puts " $side4    "
   puts " $side5    "
   puts " $side6    "
   puts " $side7    "
   puts " $side8    "
   puts "answer   $side8 "
   }


  frame .buttons -bg aquamarine4

    
    ::ttk::button .calculator -text "Solve" -command { calculate   }

 ::ttk::button .test2 -text "Testcase1" -command {clearx;fillup 100. -2.5 .1  1.  1. 1. 1. 1E-6}
    ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 10. -2. .1 1.  1. 1. 1. .001 }
  ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 1000. -2.5 .1 1.  1. 1. 1. 3E-9  }
    ::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 . <Motion> {wm title . "Cumulative Crater Equation Calculator "}

   #end of deck
    #end of deck
      #end of deck
      #end of deck      
      #end of deck
    #end of deck


----
   





----
  
<<categories>> Numerical Analysis | Toys | Calculator | Example | Mathematics+