Sheep and Herd Animal Calculator and eTCL Slot Calculator Demo Example, numerical analysis  edit

Page contents

 Sheep and Herd Animal Calculator and eTCL Slot Calculator Demo Example, numerical analysis 

 Introduction

 Ratios and  increases

  Pseudocode and Equations 

 Testcases Section

  Testcase 1 

  Testcase 2 

  Testcase 3 

  Testcase 4 

 References:

 Screenshots Section

 Figure 1

 Appendix Code

 appendix TCL programs and scripts 

  Pushbutton Operation

 Comments Section

Introduction edit

Ratios and increases

Pseudocode and Equations

  set increase1 {/ $lambs1 $sheep1 }
  set increase2 {/ $lambs2 $sheep2 }
  set percent {* {/ $lambs $sheep } 100.}
  set delta {abs {- $increase2  $increase1}}
  set scaleupx1  {*  {/ $lambs1 $sheep1 } 1000.}}
  set scaleupx2  {*  {/ $lambs2 $sheep2 } 1000.}}
  text substitute { and } to eTCL expressions
  fattening barley feed = sheep*days*feed_rate, 
  set taxinkind1 {* $sheep1 {/ 1. 10. } }
  Sumerian price in silver = [/ liters 300.]
  Sumerian price in liters grain = [* silver 300.] 
  # 1 silver piece = 1 gur = 300 liters of grain
  liters = [* volume_in_cubic_cm .001]
  price? = raw materials + labor  +  profit
  price? = raw materials + heat process
  price? = raw materials + labor 
  average price per unit  = revenue  / units sold

Testcases Section

Testcase 1

Testcase 2

Testcase 3

Testcase 4

References:

• Growth of a
• Herd of Cattle in Ten Years Ignace Gelb, JCS 21 (1967): 64-69
• On Dairy Productivity at Ur in the Late
• Ur III Period, JESHO 23 (1980): 1-42. Tohru Gomi
• Birmingham Cuneiform Texts - Translations
• Part 1: Neo-Sumerian,Phil Watson
• Late Uruk Pigs and other Herded Animals, Robert K. Englund,1995
• Late Uruk Period Cattle and Dairy Products, Robert K. Englund,1995
• Relating Dairy Productivity in the UrIII Period, Robert K. Englund,1995
• Robert Englund, UCLA [1]
• Ur III Tablets in the Valdosta State University, search on cdli
• Cuneiform Digital Library Journal, search on Equivalency Values
• Ur III Equivalency Values[2]
• Especially, the Ur III Equivalency Values and library texts for sheep (udu) keyword.
• The Sumerian keywords search on the cdli
• are very effective, but major size files to download

Screenshots Section edit

Figure 1 edit

Appendix Code edit

appendix TCL programs and scripts

        # pretty print from autoindent and ased editor
        # Sumerian Sheep and Herd animals calculator
        # written on Windows XP on eTCL
        # working under TCL version 8.5.6 and eTCL 1.0.1
        # gold on TCL WIKI, 7oct2014
        package require Tk
        namespace path {::tcl::mathop ::tcl::mathfunc}
        frame .frame -relief flat -bg aquamarine4
        pack .frame -side top -fill y -anchor center
        set names {{} {sheep1:} }
        lappend names {lambs2:}
        lappend names {sheep2: }
        lappend names {lambs2:}
        lappend names {accounting period days (typical 60 days) :}
        lappend names {percentage 1: }
        lappend names {percentage 2 : }
        lappend names {total lambs in silver pieces:}
        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 Sumerian Sheep and Herd Animals from TCL WIKI,
            written on eTCL "
            tk_messageBox -title "About" -message $msg }       
        proc calculate {     } {
            global answer2
            global side1 side2 side3 side4 side5
            global side6 side7 side8 
            global testcase_number
            global scaleupx1 scaleupx2 delta1
            global sheepbarley1 sheepbarley2
            global taxinkind1 taxinkind2 combined_percent
            global animals_withdrawn un_inspected
            global total_herd inspected_herd 
            global total_herd_withdrawn
            incr testcase_number
            set side1 [* $side1 1. ]
            set side2 [* $side2 1. ]
            set side3 [* $side3 1. ]
            set side4 [* $side4 1. ]
            set side5 [* $side5 1. ]
            set sheep1 [* $side1 1. ]
            set lambs1 [* $side2 1. ]
            set sheep2 [* $side3 1. ]
            set lambs2 [* $side4 1. ]
            set workdays2 [* $side5 1. ]
            set fraction1 [/ $lambs1 $sheep1 ]
            set fraction2 [/ $lambs2 $sheep2 ]
            set percent1 [* [/ $lambs1 $sheep1 ] 100.]
            set percent2 [* [/ $lambs2 $sheep2 ] 100.]
            set delta1 [abs [- $lambs2 $lambs1] ]
            set scaleupx1  [*  [/ $lambs1 $sheep1 ] 1000. ] 
            set scaleupx2  [*  [/ $lambs2 $sheep2 ] 1000. ]
            set sheepbarley1 [* $sheep1 $workdays2 2. ] 
            set sheepbarley2 [* $sheep2 $workdays2 2. ] 
            set taxinkind1 [* $sheep1 [/ 1. 10. ] ]
            set taxinkind2 [* $sheep2 [/ 1. 10. ] ]
            set sheep_add [+ $sheep1 $sheep2 ]
            set lambs_add [+ $lambs1 $lambs2 ]
            set combined_percent [* [/ $lambs_add $sheep_add ] 100. ]
            set animals_withdrawn 3.
            set un_inspected 30.
            set total_herd [+ $sheep1 $lambs1 $sheep2 $lambs2 ]
            set total_herd_withdrawn [- $total_herd $animals_withdrawn ]
            set inspected_herd [- $total_herd_withdrawn $un_inspected ]     
            set side5 [* $side5 1. ]
            set side6 $percent1 
            set side7 $percent2   
            set side8  [* [+ $lambs1 $lambs2 ] [/ 1. 2.] ]   }
        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
            global scaleupx1 scaleupx2 delta1
            global sheepbarley1 sheepbarley2 
            global taxinkind1 taxinkind2 combined_percent
            global animals_withdrawn un_inspected
            global total_herd inspected_herd 
            global total_herd_withdrawn
            console show;
            puts "%|table $testcase_number|printed in| tcl wiki format|% "
            puts "&| quantity| value| comment, if any|& "
            puts "&| testcase number:| $testcase_number| |&"
            puts "&| $side1 :|sheep1|includes rams and ewes   |&"
            puts "&| $side2 :|lambs1| all immature |& "
            puts "&| $side3 :|sheep2|includes rams and ewes |& "
            puts "&| $side4 :|lambs2 | all immature  |&"
            puts "&| $side5 :|days time period|typical 1 month |&"
            puts "&| $side6 :|percent1|100.*lambs1/sheep1, not used by ancients |&"
            puts "&| $side7 :|percent2 |100.*lambs2/sheep2,not used by ancients |&"
            puts "&| $sheepbarley1 :| liters  fattening barley feed 1st flock    |1 sila vol = 1 liter |&"
            puts "&| $sheepbarley2 :| liters fattening  barley feed 2nd flock   |1 sila vol = 1 liter |&"
            puts "&| $taxinkind1 :|tax1 in kind| on 1st herd |&"
            puts "&| $taxinkind2 :|tax2 in kind|on 2nd herd |&"
            puts "&| $side8 :|total lambs in silver pieces|shekles or gin  |&"
            puts "&| $combined_percent :|combined percentage for 2 herds | 100.*lambs/sheep percentage |&"     
            puts "&| below are test formulas |for |>balanced accounts<  |&"
            puts "&| assumes |1st herd is prior year | 2nd herd is current year |&"
            puts "&| $scaleupx1 :|scale up 1 |test factor, 1st herd  |&"
            puts "&| $scaleupx2 :|scale up 2 |test factor, 2nd herd   |&"
            puts "&| $delta1 :|delta lambs in abs |abs(lambs1-lambs2)   |&"
            puts "&| $animals_withdrawn :|animals withdrawn in current year | sold or given to priests |& "
            puts "&| $un_inspected :|animals not inspected |possible far pasture   |&" 
            puts "&| $total_herd :|total herd maximum |includes 1st and 2nd years, after 2nd spring lambs  |&"
            puts "&| $total_herd_withdrawn :|total herd less withdrawn in 2nd year|withdrawn, sold, gifted  |&"
            puts "&| $inspected_herd :|total herd inspected 2nd year |  less uninspected animals and withdrawn|&"
   
        }
        frame .buttons -bg aquamarine4
        ::ttk::button .calculator -text "Solve" -command { calculate   }
        ::ttk::button .test2 -text "Testcase1" -command {clearx;fillup 100.0 80. 100.0 70.  15. 80. 70. 75.}
        ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 100.0 70. 100.0 60.  30. 70. 60. 65. }
        ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 100.0 80 100.0 40.   60.0 80. 40. 60. }
        ::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 . "Sumerian Sheep and Herd Animals Calculator "

Pushbutton Operation

  puts " %| testcase $testcase_number | value| units |comment |%"
  puts " &| volume| $volume| cubic meters |based on length $side1 and width $side2   |&"  

this license

Comments Section edit

• Home
• Recent changes
• Help
• WhoAmI/Logout
• Create new page
• Random page
• Previous page
• Next page
• 
  
• Add comments
• Edit
• History
• Edit summary
• References