ship length meters: 17. 
ship beam meters: 5.2 
ship depth meters: 6.4    
answer segment (bow area): 30.01, half ship horizontal area   
double segment (seed area): 60.02, total ship horizontal area    

  #  pseudocode can be developed from rules of thumb.
  pseudocode: enter ship length,ship beam,ship depth
  modern tonnage rating = (0.2+0.02*log(L*B*D))*L*B*D
  cargo =  3/5 * modern tonnage rating 
  hull & equipment  =  2/5 * modern tonnage rating 
  displacement = (5/3) * cargo
  pseudocode: rules of thumb can be 3 to 15 percent off, partly since waterline varies & g..in g..out. 
  pseudocode: set ship_length_beam_ratio =  evaluate ( ship_length / ship_beam )
  pseudocode: sumerian ship coefficients  of 5/60, 6/60, & 7/60 fractions
  pseudocode: answers are ship tonnage volume, cargo volume, in metric tons
  pseudocode: go/ no_go condition 

   set modern_tonnage  [ expr { (0.2+0.02*log(18.3*3.96*1.82))*(18.3*3.96*1.82)} ] ;# generic TCL
   answer% 39.256:     # ship tonnage volume in metric tons          
   set modern_cargo_rating [ expr {(3./5.) * 39.256} ]
   answer%   23.5537     # cargo volume in metric tons          
   set   hull&equipment  [ expr {(2./5.) * 39.256} ]
   answer%   15.7024     # hull&equipment volume in metric tons, based on rule of thumb          
   set possible_ship_displacement [ expr {(5./3.) *$modern_tonnage } ]
   answer%  65.426       # ship displacement volume in metric tons, rule of thumb used
                         # when dimensions are uncertain like ancient ships
   set ship_length_beam_ratio  [ expr { 18.3/3.96} ]   ;# answer is 4.62, units cancel out
    Report from calculator for testcase 1
    ship length meters: 18.3 
    ship beam meters: 3.96 
    ship depth meters: 1.82    
    tonnage cubic meters: 39.25 
    cargo cubic meters: 23.55   
    ship length / beam ratio: 4.62   

  set modern_tonnage  [ expr { (0.2+0.02*log(18.3*4.9*2.))*(18.3*4.9*2.)} ]  ;# answer is  54.48
  set modern_cargo_rating [ expr {(3./5.) * $modern_tonnage} ] ; # answer is 32.68 metric tons, rule of thumb
  set   hull&equipment  [ expr {(2./5.) * $modern_tonnage} ]   ;# answer is 21.79 metric tons, rule of thumb
  set possible_ship_displacement [ expr {(5./3.) *$modern_cargo_rating  } ]  ;# answer is 54.4 metric tons, rule of  thumb
  set ship_length_beam_ratio  [ expr { 18.3/4.9} ]   ;# answer is 3.734, units cancel out

  Report from calculator for testcase 2
    ship length meters: 18.3 
    ship beam meters: 4.9 
    ship depth meters: 2.    
    tonnage cubic meters: 54.48 
    cargo cubic meters: 32.68    
    ship length /beam  ratio: 3.73 

    set modern_tonnage  [ expr { (0.2+0.02*log(38.3*7.93*3.89))*(38.3*7.93*3.89)} ] ; # answer is 403.45 
    set modern_cargo_rating [ expr {(3./5.) * $modern_tonnage} ] ; # answer is 242.075  metric tons, rule of thumb
    set   hull&equipment  [ expr {(2./5.) * $modern_tonnage} ]   ;# answer is 161.38 metric tons, rule of thumb
    set possible_ship_displacement [ expr {(5./3.) *$modern_cargo_rating  } ]   ;# answer is 403.45 metric tons, rule of  thumb
    set ship_length_beam_ratio  [ expr { 38.3/7.93  } ]    ;# answer is 4.829, units cancel out
      Report tape from calculator for testcase 3
      ship length meters: 38.3 
      ship beam meters: 7.93 
      ship depth meters: 3.89    
      tonnage cubic meters: 403.4 
      cargo cubic meters: 242.0  
      ship length /beam ratio: 4.82    

   set modern_tonnage  [ expr { (0.2+0.02*log(29.2*9.7*3.96))*(29.2*9.7*3.96)} ] ; # answer is 381.859 
   set modern_cargo_rating [ expr {(3./5.) * $modern_tonnage} ] ; # answer is 229.115  metric tons, rule of thumb
   set possible_ship_displacement [ expr {(5./3.) *$modern_cargo_rating  } ]   ;# answer is 381.859 metric tons, rule of  thumb
   set ship_length_beam_ratio  [ expr { 29.2/9.7} ]    ;# answer is 3.01, units cancel out

 set modern_tonnage  [ expr { (0.2+0.02*log(133.5*19.2*8.68))*(133.5*19.2*8.68)} ] ; # answer is 8903.8 
 set modern_cargo_rating [ expr {(3./5.) * $modern_tonnage} ] ; # answer is 5342.3  metric tons, rule of thumb
 
 set possible_ship_displacement [ expr {(5./3.) *$modern_tonnage  } ]   ;# answer is 14839.82 metric tons, rule of  thumb                                                                                                                                                                          ;# about 3 percent short of textbook 
 set ship_length_beam_ratio  [ expr { 133.5/19.2} ]    ;# answer is 6.9, units cancel out

        # TCL source code follows
        # pretty print from autoindent and ased editor
        # Ship Tonnage and Cargo Volume V2
        # written on Windows XP on TCL
        # working under TCL version 8.6
        # gold on TCL Club, 12Dec2018
        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 {{} {ship length meters:} }
        lappend names {ship beam meters:}
        lappend names {ship depth meters:}
        lappend names {approximate hull_&_equipment metric tons: }
        lappend names {approximate ship_draft meters:}
        lappend names {modern tonnage metric tons}
        lappend names {modern cargo rating cubic meters: }
        lappend names {length to beam ratio , no units: }
        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 pi {} {expr acos(-1)}
        proc about {} {
            set msg "Calculator for Ship Tonnage and Cargo Volume V2
            from TCL
            # gold on TCL Club, 12Dec2018 "
            tk_messageBox -title "About" -message $msg }
        proc self_help {} {
            set msg " Ship Tonnage and Cargo Volume V2
            from TCL ,
            # self help listing
            # problem, Ship Tonnage and Cargo Volume V2
            # 3 givens follow.
            1) ship length meters:
            2) ship beam meters:
            3) ship depth meters:
            # modern tonnage is specific formula fm intl. std.
            # ship_length_beam_ratio has no units
            # following rules of thumb can
            # be 3 to 15 percent off,
            # depending on waterline,hull,superstructure etc.
            # rules of thumb mostly from modern metal hulls.
            # m_cargo_rating is (3./5.)*modern_tonnage,m. tons
            # hull&equipment=(2./5.)*modern_tonnage,m. tons
            # ship_displacement is (2./5.)*modern_tonnage,m. tons
            # Sumerian gur = 300 liters = 0.3 cubic meters
            # gur_cargo_rating is m_cargo_rating c.m./0.3
            # 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, testcase number is internal
            # to the calculator and will not be printed
            # until the report button is pushed
            # for the current result numbers.
            # >>> copyright notice <<<
            # This posting, screenshots, and TCL source code is
            # copyrighted under the TCL/TK license terms.
            # Editorial rights and disclaimers
            # retained under the TCL/TK license terms
            # and will be defended as necessary in court.
            Conventional text editor formulas
            or  formulas grabbed from internet
            screens can be pasted into green console.
            # gold on  TCL Club, 12Dec2018 "
            tk_messageBox -title "Self_Help" -message $msg }
        proc tonnage_formula { l  b  d } {
            set t1 [ expr { 1.*$l*$b*$d } ]
            set modern_tonnage [ expr { (0.2+0.02*log($t1))*($t1)}]
            return $modern_tonnage
        }
        proc calculate {     } {
            global side1 side2 side3 side4 side5
            global side6 side7 side8
            global testcase_number
            global possible_ship_displacement gur_cargo_rating
            global ship_length_nindas ship_beam_nindas ship_depth_nindas
            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. ]
            set ship_length $side1
            set ship_beam $side2
            set ship_depth $side3
            set ship_tonnage [ tonnage_formula $ship_length $ship_beam $ship_depth ]
            set ship_cargo [ expr { (3./5.)*$ship_tonnage} ]
            # following rules of thumb possibly 3 t0 15 percent off.
            set length_beam_ratio [ expr { (1.*$ship_length)/$ship_beam } ]
            set modern_cargo_rating [ expr {(3./5.) * $ship_tonnage} ]
            set hull_equipment  [ expr {(2./5.) * $ship_tonnage} ]
            set ship_length_nindas [ expr { $side1 / 6.} ]
            set ship_beam_nindas [ expr { $side2 / 6. } ]
            set ship_depth_nindas [ expr { $side3 / 6. } ]
            # approximate ship_draft formula for full loaded ship, normal working
            set ship_draft [ expr {(2./3.) * $ship_depth } ]
            set gur_cargo_rating [ expr {$modern_cargo_rating / .3} ]
            # redundant formulas , used for check and comparison cases
            set possible_ship_displacement [ expr {(5./3.) *$modern_cargo_rating  } ]
            set side4 $hull_equipment
            set side5 $ship_draft
            set side6 $ship_tonnage
            set side7 $ship_cargo
            set side8 $length_beam_ratio
        }
        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 answer2
            global side1 side2 side3 side4 side5
            global side6 side7 side8
            global testcase_number
            global possible_ship_displacement gur_cargo_rating
            global ship_length_nindas ship_beam_nindas ship_depth_nindas
            console eval {.console config -bg palegreen}
            console eval {.console config -font {fixed 20 bold}}
            console eval {wm geometry . 40x20}
            console eval {wm title . " Ship Tonnage and Cargo Volume V2, screen grab and paste from console 2 to texteditor"}
            console eval {. configure -background orange -highlightcolor brown -relief raised -border 30}
            console show;
            puts "%|table $testcase_number |printed in| tcl format|% "
            puts "&| quantity| value| comment, if any|& "
            puts "&| $testcase_number :|testcase_number | |&"
            puts "&| $side1 :|ship length meters:  |   |&"
            puts "&| $side2 :|ship beam meters:   | |& "
            puts "&| $side3 :|ship depth meters: | |& "
            puts "&| $ship_length_nindas :|ship_length_nindas: | |& "
            puts "&| $ship_beam_nindas :|ship_beam_nindas: | |& "
            puts "&| $ship_depth_nindas :|ship_depth_nindas: | |& "
            puts "&| $side4 :|approximate hull_&_equipment metric tons: | |&"
            puts "&| $possible_ship_displacement :|check on possible_ship_displacement: metric tons | |&"
            puts "&| $gur_cargo_rating :|gur_cargo_rating: Sumerian gur volume units  | |&"
            puts "&| $side5 :|approximate ship_draft meters:  | |&"
            puts "&| $side6 :|answer: modern tonnage metric tons:|  |&"
            puts "&| $side7 :|modern cargo rating cubic meters: |  |&"
            puts "&| $side8 :|length to beam ratio , no units: |  |&"
        }
        frame .buttons -bg aquamarine4
        ::ttk::button .calculator -text "Solve" -command { set side8 0 ; calculate   }
        #::ttk::button .test2 -text "Testcase1" -command {clearx;fillup 18.3 3.96 1.82 39.2  23.5 4.6 }
        #::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 18.3 4.9 2. 54.5  32.68 3.7 }
        #::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 38.3 7.93 3.89 403.  242. 4.8 }
        ::ttk::button .test2 -text "Testcase1" -command {clearx;fillup 18.3 3.96 1.82  15.7 1.2  39.2  23.5 4.6 }
        ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 18.3 4.9 2. 21.8 1.3 54.5  32.68 3.7  }
        ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 38.3 7.93 3.89 161. 2.6 403.  242. 4.8}
        ::ttk::button .clearallx -text clear -command {clearx }
        ::ttk::button .about -text about -command {about}
        ::ttk::button .self_help -text self_help -command { self_help }
        ::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 . "Ship Tonnage and Cargo Volume V2"

  puts " %| testcase $testcase_number | value| units |comment |%"
  puts " &| ship tonnage| $ship_tonnage| meters |based on length $side1 and width $side2   |&"