# autoindent from ased editor
        # Estimate of Reliability
        # written on Windowws XP on eTCL
        # working under TCL version 8.5.6 and eTCL 1.0.1
        # gold on TCL WIKI , 1jun2011
        frame .frame -relief flat -bg aquamarine4
        pack .frame -side top -fill y -anchor center
            set names {{} {hours: } {r. coefficient: } {population:} { reliability:} {2x. redundacy:} {3x. redundacy:} { 0:}}   
        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 Reliability .
            from TCL WIKI,
            written on eTCL "
            tk_messageBox -title "About" -message $msg
        }
        proc pi {} {expr acos(-1)}
        proc strat5 { xx1   } {
            global side1 side2 side3
            global side4 side5 side6 side7
            set ss side1
            set tt $side2
            set xxx [ expr { $side1*[pi]/180.  } ]
            set tt  [ expr { -1.*$side1*$side2*$side3*.00001} ]
            set side4  [ expr { exp($tt) } ] 
            set side5  [ expr { 1.-(1.-$side4)*(1.-$side4) } ] 
            set side6  [ expr { $side4*$side4*$side4+3.*$side4*$side4*(1.-$side4)} ] 
            set side7  [ expr { exp($tt) } ] 
            return $side4
        }
        proc calculate {     } {
            global colorwarning
            global colorback
            global answer2   answer3
            global side1 side2 side3 side4 side5 side6 side7
            set answer2 5
            set answer2  [ strat5  $side3     ]
            set side4 $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;
            global side1 side2 side3
            global side4 side5 side6 side7
            puts "hours: $side1 "
            puts "r. coefficient:   $side2 "
            puts "population $side3  "
            puts " reliability : $side4 "
            puts " 0:  $side5 "
            puts "0: $side6 "
            puts "0: $side7 "
         
        }
        frame .buttons -bg aquamarine4
        ::ttk::button .calculator -text "Solve" -command { calculate   }
        ::ttk::button .test2 -text "Testcase1" -command {clearx;fillup  8760.  .059 400. .12 .23 .04 1.}
        ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup  8760.  .059 700. .026 .05 .002 1.}
        ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup  8760.  .050 1000. .0125 .024 .0004 1.}
        ::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
        wm title . "Reliability"