more than one formula for 1) tables and 2) calculator shell
   

        # TCL source code follows        
        # pretty print from autoindent and ased editor
        # Capsule Volume calculator V2
        # written on Windows XP on TCL
        # working under TCL version 8.6
        # gold on TCL Club, 25nov2018
        package require Tk
        package require math::numtheory
        namespace path {::tcl::mathop ::tcl::mathfunc math::numtheory }
        set tcl_precision 17
        frame .frame -relief flat -bg aquamarine4
        pack .frame -side top -fill y -anchor center
        set names {{} {radius  meters :} }
        lappend names {side length  meters:}
        lappend names {optional: }
        lappend names {optional: }
        lappend names {optional:}
        lappend names {answers: capsule circumference meters : }
        lappend names {capsule surface area meters squared  : }
        lappend names {capsule volume meters cubed:}
        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 "Capsule Volume Calculator V2
            from TCL "
            tk_messageBox -title "About" -message $msg }
        proc self_help {} {
            set msg "Calculator for Capsule Volume V2
            from TCL ,
            # self help listing
            # problem is calculating capsule area and volume
            # 2 givens follows.
            1) radius meters
            2) side length meters
            # >>>>  Copyright Notice  <<<<<
            # This posting, screenshots, and TCL source code is
            # copyrighted under the TCL/TK 8.6 license terms.
            # Editorial rights retained under the TCL/TK license terms
            # and will be defended as necessary in court.
            # >>>>   Push Button Operation <<<<
            # Recommended procedure is push testcase and fill frame,
            # change first three entries etc, push solve,
            # and then push report. Report allows copy and paste
            # from console to conventional texteditor. For testcases,
            # the testcase number is internal to the calculator and
            # will not be printed until the report button is pushed
            # for the current result numbers.
            # Where the program defaults are recalled,
            # canvas colors/features/variables/globals/calculations/clear displays
            # are reset prior to calculation  ( in push button list) .
            # Buttons on the calculator are not limited to a single action procedure
            # or single shot. A button command may call multiple statements and procs,
            # effectively a separate program or subprogram installed as
            # a list of procedures in a button. Alternately, the list of procedures
            # need not be installed in a button, but in a separate procedure.
            Conventional text editor formulas or  grabbed from internet
            screens can be pasted into green console.
            Try copy and paste following into green screen console
            set answer [* 1. 2. 3. 4. 5. ]
            returns  120
            # gold on  TCL Club, 15nov2018 "
            tk_messageBox -title "Self_Help" -message $msg }
        proc calculate {     } {
            global answer2
            global side1 side2 side3 side4 side5
            global side6 side7 side8
            global testcase_number
            incr testcase_number
            set side1 [* $side1 1. ]
            set side2 [* $side2 1. ]
            set side3 [* $side3 1. ]
            set side4 [* $side4 1. ]
            set side5 [* $side5 1. ]
            set side6 [* $side6 1. ]
            set side7 [* $side7 1. ]
            set side8 [* $side8 1. ]
            proc pi {} {expr acos(-1)}
            set radius $side1
            set side_length $side2
            set capsule_circumference [* 2. [pi] $radius ]
            set capsule_surface_area [* 2. [pi] $radius [+ [* 2. $radius ]  $side_length   ]]
            set capsule_vol [* [pi] $radius $radius [+ [* [/ 4. 3. ] $radius] $side_length  ]]
            set side6 $capsule_circumference
            set side7 $capsule_surface_area
            set side8 $capsule_vol
        }
        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
            global side6 side7 side8
            global testcase_number
            console show;
            console eval {.console config -bg palegreen}
            console eval {.console config -font {fixed 20 bold}}
            console eval {wm geometry . 40x20}
            console eval {wm title . " Capsule Volume Calculator Report   , screen grab and paste from console 2 to texteditor"}
            console eval {. configure -background orange -highlightcolor brown -relief raised -border 30}
            puts "%|table $testcase_number|printed in| tcl format|% "
            puts "&| quantity| value| comment, if any|& "
            puts "&| $testcase_number:|testcase_number | |&"
            puts "&| $side1 :|radius  meters|   |&"
            puts "&| $side2 :|side length meters   | |& "
            puts "&| $side3 :|optional | |& "
            puts "&| $side4 :|optional | |&"
            puts "&| $side5 :|optional | |&"
            puts "&| $side6 :|answers: capsule circumference meters |  |&"
            puts "&| $side7 :|capsule surface area meters squared  |  |&"
            puts "&| $side8 :|capsule volume meters cubed|  |&"
        }
        frame .buttons -bg aquamarine4
        ::ttk::button .calculator -text "Solve" -command { calculate   }
        ::ttk::button .test2 -text "Testcase1" -command {clearx;fillup 1.0 1.  1.0 1.0  1.0  6.283 18.849 7.330}
        ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 2.0 2.0 1.0 1.0  1.0  12.566 75.398 58.643}
        ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 3.0 3.  1.0 1.0  1.0  18.849 169.646 197.920 }
        ::ttk::button .clearallx -text clear -command {clearx }
        ::ttk::button .self_help -text self_help -command {self_help}
        ::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 .self_help .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 . "Capsule Volume Calculator V2"