** Sumerian Pottery Vessel Mass & Clay and eTCL Slot Calculator Demo Example , numerical analysis** This page is under development. Comments are welcome, but please load any comments in the comments section at the bottom of the page. Please include your wiki MONIKER in your comment with the same courtesy that I will give you. Its very hard to reply understandably without some background of the correspondent. Thanks,[gold] ---- <> [gold] Here is some eTCL starter code for calculating the clay mass of Sumerian pottery vessels. The impetus for these calculations was checking daily quotas as N1 pots per day in the CDLI Equivalency list. Most of the testcases involve replicas or models, using assumptions and rules of thumb. ***Clay mass and capacity*** The following relations between pot capacity and clay mass was developed from modern potter lore. For 1liter>pots< 2 liters, the constant is 1.00308 kilograms green clay/wet liters, 2.0154 manas/sila, almost 1:1 kg green clay to wet liters. For pots > 2.5 liters, the constant is 0.8503 kilograms green clay/wet liters or 1.7086 manas per sila. Larger pots have proportionally less waste. Also, some large storage pots have been found intact under the ancient floors but were designed without bottoms, apparently to allow complete drainage of contents. Green clay mass here includes the unfired green pot, plus the potter's trim waste, rim cuts, bottom cuts, and kiln stands. Capacity refers to vessel wet capacity after firing (no heaped grain above rim). Clay loses about 5 percent weight in moisture from drying and firing. Tentatively from the quotas in CDLI Equivalency list, the potter molded between 1 to 25 pieces using 4.25, 12.75, and 25.5 kg of green clay in a day. ***Clay mass and applied heat*** The potters report in MW124 showed 2000 vessels fired with 1800 kilograms of reed fuel (usually Su. gi bar) . The average fuel rate was 1800 kg /2000 vessels, 0.9 kilograms fuel per vessel. The British clamp kiln of 1880's used 1135 kg of wood for 3800 kg of green brick clay for soft fired bricks (1000 bricks*3.8 kg). Setting proportions, green clay in MW124 was 3800*1800/1135, 6026.4 kg of green clay. Average green piece in MW124 was 6026.4 kg / 2000 vessels, 3.01 kg. Averages can be deceptive, but the average vessel in MW124 would be about 3/0.8503 or 3.53 liters capacity. The applied heat can be estimated from the potters report MW124 and modern kilns. From study of traditional kilns and the British clamp kilns, the applied heat in the Sumerian kilns was about 4.2 MegaJoules per kilogram for a soft firing. The thermal estimate from burning reeds is about 0.9 kg*17MJ/kg=15.3 MJ per (3kg) vessel and in order of magnitude agreement with 3 kg*4.2MJ/kg=12.6 MJ, applied heat estimate. Since a good bit of heat is lost up the chimney, the thermal estimate from burning reeds should be higher than the applied heat to the clay. The gist is that pot and brick quotas in CDLI Equivalency list imply an energy use quota also. The potters quota of 4 1_sila_bowls, 3 5_sila_bowl, and 3_ban_jar per day convert to 16.85 MJ, 63.19 MJ, and 107.1 MJ per day. Time period, number of kilns, and firings is uncertain in MW124. For tentative planning, the most common small kiln (from the Ubaid era excavations only) of 0.5 meter diameter would take 85 kg of fuel. Using the cited reed fuel of 1800 kgs for 2000 pieces, the number of firings would be 1800 kgs fuel over kgs kiln fuel, 1800/85, rounding 21 firings. The eTCL calculator returned 6000 kg of green clay and total applied heat of 25204.2 MegaJoules for the 2000 pieces. The average loading of green clay pieces would be 2000/21, rounding 95 pieces and 6000/21, average 285.71 kgs of green clay. The nominal number of potters or potters daily quotas in the kiln would be 285 kg over tentative 25 kg daily clay molded, 285/25, 11.4, rounded up 12 potters. Most of the Sumerian work crews employed 20 to 30 persons. It is clear that only one or two of the larger known 30-sila jars would fit in the small 0.5 meter kiln, if not stacking or placing small pieces inside the jar during firing. The bevel rim bowls are open faced and very stackable in a kiln, stackable into a lower vertical profile than a closed vessel or bottle, and that is a considerable advantage to the bevel rim bowl. The inference is that the 0.5 meter kiln could support 1 to 12 potters on the smaller vessels. The 21 firings would suggest a monthly report. Ref. Sumerian Pottery factory on this wiki. *** Testcases*** As a an experiment for the eTCL calculator, the entered capacity in liters is used to rescale a beveled rim bowl or cereal bowl of 1 liter. The outer dimensions of the bevel rim bowl are bowl rim diameter = 180 mm, bowl base diameter =90 mm, and bowl height = 100 mm. Using the outer dimensions, the bowl volume is 1484 milliliters. If the walls or sides of the bowl are somewhat less than 10 mm thick, the inner volume is about 1000 ml. The rescaled vessel dimensions in rim,base, and height are included in the report. The grain bowl of 1 sila capacity should weigh 1*1.00308, 1 kg of green clay. The fired bowl should weigh about 1kg*0.95, 0.95 kg of fired clay. The CDLI quota at Umma of 4 bowls of 1 sila a day would effectively be 4*1 kg of green clay and 4*0.95 or 3.8 kg of fired clay. The grain bowl of 5 sila capacity should weigh 5*0.85, 4.25 kg of green clay and 5*0.85*95, 4.03 kg of fired clay. The CDLI quota at Umma of 3 bowls of 5 sila a day would effectively be 3*4.25 or 12.75 kg of green clay and 3*4.03 or 12.09 kg of fired clay. The 3 ban or 30 sila storage? jar at Umma might weigh about 30*0.8503, 25.5 kg green clay, as one per day quota. Tentatively, the potter molded between 4.25, 12.75, and 25.5 kg of green clay in a day. *** Beer and Jar Types *** Oops and double oops! After selecting the examples for a wide range of capacity sizes, it was found that all vessel sizes of 1,5, and 30 liters have been associated with beer in the cuneiform texts. The 1-liter is both the size of a common grain ration and the common beer ration, although a beer ration of 2-liters is also cited in the texts. The 5 sila, 20, and 25 sila jars were the standard beer bottles or beer jars in modern terms. The 20 and 25 sila jars were used to deliver beer, but were also used as fermenting containers or mixing containers. What is sometimes called a storage jar of 30 silas was also used as a beer brewing vat or beer keg. Cane straws or drinking tubes were used to sip the beer. The potters made a sort of ceramic drinking tube. The ceramic tubes or cane straws are occasionally mentioned in the texts and illustrated on the clay seals. Note that the 30 sila or 30 liter capacity in beer would weigh 30 liters*1 spg. or 30 kilograms and match the full manload (60 manas). This brings us to Gold's correlary; any three items in a Babylonian trash bin will most likely be associated with beer. Some beer types or beverages were made by mixing a beer concentrate with 1/3 water in a mixing jar, ref. Peter Damerow in Sumerian Beer Technology. The beer concentrate was called dida saga or didabin saga, { lit. small barley_flour? good}. Similar beer and jar coproducts are found in the CDLI Equivalency list. A full 20-sila jar would weigh at least 20*1 spg or 20 kg, converting to 20/.4977, 40 manas. The 2/3 full jar would weigh 40*(2/3), 26.66 manas. Including the clay jar , the package of 2/3 full concentrate would weigh roughly 30 manas, the half manload in URIII (circa 2300 BCE). Its possible this dida saga beverage concentrate was shipped to a ration distribution site and diluted with local water. The procedure with the dida beverage may be similar to the much later Romans mixing wine with water (circa 40 BCE). Lets make some trial calculations from measure quotas for beer beverages and clay pots, used in CDLI Equivalency list ( mostly Neo-Sumerian, 2300 BCE) . The calculations will keep extra significant figures for checking a future eTCL calculator, but the calculations are really order of magnitude. The key phrases are 1) kasz 2 ban2, 2) kasz 3 ban2, and 3) kasz 4 ban2, which relate the quality of beer or more properly ale to the volume unit (ban2). A ban is 10 sila units or 10 liters, so a paraphrased translation would be beer of 20 liters quality , beer of 30 liters quality, and beer of 40 liters quality. The ban, sila, and modern liter are volume quantities, which were used to measure beer, barley, wheat, malt, and other grain products. Most of the beer products, beer ingredients, and jars use volume units in the cuneiform texts. necessarily the calculations and rules of thumb will start out in volume units. All the philological problems have not been solved, but some trial calculations can be made based on beer quality in silas, various volumes of beer jars, and rules of thumb from modern amateur brewers. Rules of thumb from modern amateur brewers. The simplest product for study is cane sugar wine, which is based on 4 lbs or 1.8 kgs sugar to 1 quart of water. For a short brew time of 24 hours, bread yeast or even wild yeast will produce an alcohol content of 12 to 14 percent. For a longer brew time of 2 to 4 weeks, wine yeast will produce an alcohol content of 17 percent. The gist is that 10 kgs of sugar will turn into 0.733 to 0.887 liters of alcohol. If the brewing is incomplete or deliberately stopped (eg, boiling, freezing, or cooking), the sugar wine will have some residual sugar and taste sweet to some extent. The volume ratio of sugar to original water would be {granulated sugar volume}/{water volume}, be {4*.453592*(1000 liters/850 kg)}/{1*.946326}, 2.2556, rounded 2.25 or fraction 136/60. Some portion of the original water volume (~1/5) is usually lost in evaporation, spillage, or boiling. Similar rules of thumb can be developed for malt sugar (maltose) and spent malt in its various forms: damp, dried, and dried ground malt. The densities are maltose (481 to 561 kg/1000 liters), spent damp malt (1041 kg/1000 liters), spent dry malt (160 kg/1000 liters), and dried ground malt (320 kg/1000 liters). The volume ratio of maltose to original water would be {powered sugar volume}/{water volume}, be {4*.453592*(1000 liters/560 kg)}/{1*.946326}, 3.417, rounded 3.4 or fraction 205/60. The volume ratio of dried ground malt to original water would be {dried ground malt volume}/{water volume}, be {4*.453592*(1000 liters/320 kg)}/{1*.946326}, 5.991, rounded 6.0 or fraction 60/6. The ratio of dried malt over damp malt would be {dried malt}/ { damp malt }, 160/1041 kg, 0.153698, rounded 0.15, or fraction 1/6. The ratio of dried malt over damp malt would be { dried malt }/ {ground dried malt}, 160/320 kg, 0.5, or fraction 30/60. The various malt products can be expressed as fractions of the original barley grain volume from modern metric standards. One figure for kernel barley was 641 kg per 1000 liters. Depending on particle size, ground barley ranges from 400 kgs for cracked or groats barley to barley flour at 481 kgs per 1000 liters. The ratio of spent damp malt over barley grain would be { spent damp malt }/ {dry kernel barley }, 1041/641 kg, decimal 1.62402 , fraction 98/60, or rounded 3/2. The ratio of dried ground malt over barley grain would be { dried ground malt }/ {dry kernel barley }, 320/641 kg, decimal 0.4992 , or fraction 30/60. In most of the ancient texts on beer, it is difficult to determine absolutely that the original starting ingredient is kernel barley, coarse barley, or some malt stage. From the ranges of barley flour, the error could be as high {(481/400-1)}, decimal 0.20249, or 20 percent Returning to the sugar wine calculations, the ground dried malt can be substituted for the cane sugar. The ground dried malt is between 57 to 66 percent sugar. The conversion would be (4 lb*100)/66, 6.06 lb, or 2.749 kg ground malt. The volume ratio of malt to original water would be {dried ground malt volume}/{water volume}, be {6.06*.453592*(1000 liters/320 kg)}/{1*.946326}, roughly 9*malt volume. For order of magnitude calculations, the brewing vat would be about 9 times the ground malt. The beer qualities (20,30,40 sila) are thought consistent in adding malt ingredient to a certain size vat of water. The main candidate vat size is 60 sila or 60 liters. The 300 liter vat is another possibility. In the CDLI Equivalency list, there is a dug lahtan (collector vat) of one gur size or 300 liters, which took the potter about 10 days to produce. The beer qualities of 20,30,40 liters are thought to be stages of alcohol, possibly 0.6%,0.9%,1.25% from a 60 liter vat. The malt rules of thumb can be used to estimate the equivalent dried malt, malt sugar, and alcohol content. The malt for the 20 liters quality would be 20 liters*(320/1000), 6.4 kg malt or 4.2 kg maltose. The conversion to alcohol is 4.2 kg*(.887/10), 0.37 liters alcohol. For a vat of 60 liters, 0.37/60 liter vat is 0.6 percent alcohol. The malt for the 30 liters quality would be 30*(320/1000), 9.6 kg malt or 6.3 maltose. The conversion to alcohol is 6.3 kg*(.887/10), 0.55 liters alcohol. For a vat of 60 liters, 0.75/60 liter vat is 0.9 percent alcohol. The malt for the 40 liters quality would be 40*(320/1000), 12.8 kg malt or 8.5 kg maltose. The conversion to alcohol is 8.5 kg*(.887/10), 0.75 liters alcohol. For a vat of 60 liters, 0.75/60 liter vat is 1.25 percent alcohol. Some of the accounts appear to add amounts of coarse ground barley or ground wheat as unmalted ingredients to the mix, which may have increased the alcoholic content and thickness of the brew. *** Uses of the eTCL calculator*** As a example of using the eTCL calculator, the potter should enter the capacity and daily quota for the vessel. The applied heat is normally 4.2 MJ/kg from the Sumerian kiln, but can be changed. The answers are total mass of green clay for the day, total mass of fired pottery, and total applied heat. Estimated bowl dimensions are rescaled from the bevel rim bowl of 1 sila capacity. The rescaled bowl dimensions seemed reasonable between 0.5 to 4 liters capacity, but seemed questionable beyond 4 liters. Not all bowls (dug) in CDLI Equivalency list have a cited capacity, so proportions using the CDLI daily quotas have some potential. For example, the spice or spice-dough bowl known as dug-kur-KU.DU or dug sila ku-du had a quota of 15 bowls per day. The dug sila gal (lit. pot bowl great, 1 sila) had a quota of 10 bowls per day. Perhaps the spice bowl and sila gal are inversely proportional to labor in the daily quotas, 1 sila : unknown silas = 15 bowls per day:10 bowls per day. Resolving the proportions, the spice bowl would be (1*10) /15, decimal 0.666 liter or 2/3 sila. After loading the eTCL calculator as 0.666/15/1.003 for the 15 bowl quota, the calculator reported total green clay mass as 10 kg for the daily quota, total fired pottery as 9.5 kg, and total applied heat as 42 MJ (for the daily quota of one potter). The individual pot weighed 0.66 kg of green clay and fired to 0.63 kg of fired soft pottery. The eTCL calculator returned experimental dimensions as rim diameter of 14.68 cm, height of 6.66 cm, and base diameter of 7.34 cm. After loading the eTCL calculator as 0.666/1/1.003 for 1 bowl, the calculator reported green clay mass as 0.667 kg for one bowl, fired pottery as 0.63 kg, and applied heat as 2.8 MJ. There were bevel rim bowls very close to these specs (0.647 to 0.72 liter) in the Ubaid period, but this posting can not confirm these bowls in the Neo-Sumerian period. *** Push Button Operation *** For the push buttons in the eTCL calculator, the 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. For testcases in a computer session, the eTCL calculator increments a new testcase number internally, eg. TC(1), TC(2) , TC(3) , TC(N). The testcase number is internal to the calculator and will not be printed until the report button is pushed for the current result numbers. The current result numbers will be cleared on the next solve button. Aside from the TCL calculator display, when one presses the report button on the calculator, one will have console show access to the functions (subroutines). ---- *** Pseudocode and Equations *** ====== #pseudocode can be developed from rules of thumb. #pseudocode: some problems can be solved by proportions (rule of three), to some order of magnitude #pseudocode: enter quantity1, quantity2, quantity3 and expected output (quantity4) for testcases. #pseudocode: enter time in years, number of remaining items #pseudocode: output fraction of (remaining items) over (items at time zero) #pseudocode: ouput remaining items as fraction or percent #pseudocode: output fraction of (quantity4 ) over ( quantity1 at time zero) #pseudocode: output fraction of (quantity2) * (quantity3 ) over (quantity1 at time zero) #pseudocode: outputs should be in compatible units. #pseudocode: rules of thumb can be 3 to 15 percent off, partly since g..in g..out. #pseudocode: need test cases > small,medium, giant #pseudocode: need testcases within range of expected operation. #pseudocode: are there any cases too small or large to be solved? ====== ---- ***Testcases Section*** **** Testcase 1 **** %|table 1|printed in| tcl wiki format|% &| quantity| value| comment, if any|& &| testcase number:|1 | |& &| 1.0 :|pottery vessel volume liters (sila=liter)| |& &| 1.0 :|constant2 green clay per vessel capacity kg/liter (optional) | |& &| 1.003 :|applied thermal rating megajoules per kg (optional)| |& &| 4.2 :|convert applied megajoules routine MJ (supersedes if not zero) | |& &| 10.0 :|answers: proportional vessel height to sila bowl cm | |& &| 18.0 :|proportional vessel rim diameter to sila bowl cm | |& &| 9.0 :|proportional vessel base diameter to sila bowl cm | |& &| 1.003 :|green clay mass | |& &| 0.952 :|soft fired pottery mass | |& ---- **** Testcase 2 **** %|table 2|printed in| tcl wiki format|% &| quantity| value| comment, if any|& &| testcase number:|2 | |& &| 2.0 :|pottery vessel volume liters (sila=liter)| |& &| 1.0 :|constant2 green clay per vessel capacity kg/liter (optional) | |& &| 1.003 :|applied thermal rating megajoules per kg (optional)| |& &| 4.2 :|convert applied megajoules routine MJ (supersedes if not zero) | |& &| 20.0 :|answers: proportional vessel height to sila bowl cm | |& &| 25.455 :|proportional vessel rim diameter to sila bowl cm | |& &| 12.727 :|proportional vessel base diameter to sila bowl cm | |& &| 2.006 :|green clay mass | |& &| 1.9056 :|soft fired pottery mass | |& ---- **** Testcase 3 **** %|table 3|printed in| tcl wiki format|% &| quantity| value| comment, if any|& &| testcase number:|3 | |& &| 30.0 :|pottery vessel volume liters (sila=liter)| |& &| 1.0 :|constant2 green clay per vessel capacity kg/liter (optional) | |& &| 0.85 :|applied thermal rating megajoules per kg (optional)| |& &| 4.2 :|convert applied megajoules routine MJ (supersedes if not zero) | |& &| 300.0 :|answers: proportional vessel height to sila bowl cm | |& &| 98.590 :|proportional vessel rim diameter to sila bowl cm | |& &| 49.295 :|proportional vessel base diameter to sila bowl cm | |& &| 25.5 :|green clay mass | |& &| 24.224 :|soft fired pottery mass | |& ---- **** Testcase 3 **** %|table 4|printed in| tcl wiki format|% &| quantity| value| comment, if any|& &| testcase number:|4 | |& &| 3.53 :|pottery vessel volume liters (sila=liter)| |& &| 2000.0 :| number of vessels, uncertain time? and multiple kilns?| |& &| 0.85 :| constant2 green clay per vessel capacity kg/liter (optional) | |& &| 4.2 :|convert applied megajoules routine MJ (supersedes if not zero) | |& &| 35.300 :|answers:proportional vessel height to sila bowl cm | |& &| 33.818 :|proportional vessel rim diameter to sila bowl cm | |& &| 16.909 :|proportional vessel base diameter to sila bowl cm | |& &| 6000.999 :|green clay mass | |& &| 5700.949 :|soft fired pottery mass | |& &| 25204.2 :|total applied heat from 6000.999 kg unfired clay | |& ---- ***References:*** * Kenyan Ceramic Jiko cooking stove, by Hugh Allen * DELCROIX, G. et HUOT, J.L., 1972, « Les fours dits « de potier » dans l’Orient ancien * Michio: Anagama: Building Kilns and Firing * Saraswati, B. and N.B. Behura. 1966. Pottery Techniques of Peasant India. * Traditional Potters of India, [http://xww.penn.museum ] * Planting and Growing Miscanthus Reed [http://www.naturalengland.org.uk] * Brick and Ceramic Sectors [http://www.faculty.ait.ac.th] * Energy Measurements and Conversions [http://www.agmrc.org] * Mani Kiln (google >> mani kiln efficient) * Village-Level Brickmaking [http://practicalaction.org] * Technical problems of brick production, prepared by Kelvin Mason (June 1998) [http://practicalaction.org] * Energy Used to Fire Clay Bricks, prepared by Kelvin Mason, June1998 [http://practicalaction.org] * Energy Used ... good simple math for bricks, much used [http://practicalaction.org] * Building the Mani Kiln, Drawings by Manny Hernandez (google >> mani kiln efficient) * Ten Rules for Brick Firing,prepared by Theo Schilderman (June 1998) [http://practicalaction.org] * CFD Simulation of Flue Gas Flow in Traditional Pottery , Cecilia Schotte, thesis * CFD Simulation of Flue Gas Flow in Pottery Furnace, Kristina Nilenius, thesis * Equivalency values of the UR III period, Robert K. Englund, CDLI Library[http://www.cdli.ucla.edu/cdlisearch] * Equivalency values page & CDLI MySQL search engine , CDLI Library [http://www.cdli.ucla.edu/cdlisearch] ---- **Appendix Code** ***appendix TCL programs and scripts *** ====== # pretty print from autoindent and ased editor # Sumerian Pottery Vessel Mass Calculator # written on Windows XP on eTCL # working under TCL version 8.6.x and eTCL 1.0.1 # gold on TCL WIKI, 10nov 2014 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 {{} {pottery vessel volume liters (sila=liter) :} } lappend names {quota of N1 vessels per day (optional):} lappend names {constant2 green clay per vessel capacity kg/liter (optional):} lappend names {applied thermal rating megajoules per kg (optional, supersedes if not zero):} lappend names {answers: proportional vessel height to sila bowl cm:} lappend names {proportional vessel rim diameter to sila bowl cm: } lappend names {green clay mass kg: } lappend names {soft fired pottery mass kg:} 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 Sumerian Pottery Vessel Mass from TCL WIKI, written on eTCL " tk_messageBox -title "About" -message $msg } proc break_flag_routine { } { global side1 side2 side3 side4 side5 global side6 side7 side8 global spares global testcase_number set t9 $testcase_number set product_entries [* $side1 $side2 $side3 $side4 $side5 $side6 $side7 $side8] if { $product_entries < 0.0 } { puts " warning flag! negative numbers detected in product entries ref. tc$t9" } foreach item { 1 2 3 4 5 6 7 8 9 10 } { set error$item 0 } if { $side1 < 0.0 } { set side1 .000001 ; set error1 1 } if { $side2 < 0.0 } { set side2 .000001 ; set error1 1 } if { $side3 < 0.0 } { set side3 .000001 ; set error1 1 } if { $side4 < 0.0 } { set side4 .000001 ; set error1 1 } if { $side5 < 0.0 } { set side5 .000001 ; set error1 1 } if { $side6 < 0.0 } { set side6 .000001 ; set error1 1 } if { $side7 < 0.0 } { set side7 .000001 ; set error1 1 } if { $side8 < 0.0 } { set side8 .000001 ; set error1 1 } if { $error1 == 1 } { puts " warning flag! negative numbers detected, defaulted to positive entries ref. tc$t9" } foreach item { 1 2 3 4 5 6 7 8 9 10 } { set error$item 0 } return 1 } proc experimental_dimensions {} { global proportional_height proportional_mouth proportional_base global liter_capacity set bevel_bowl_height 100.0 set bevel_mouth_diameter 180.0 set bevel_base_diameter 90.0 set beveled_bowl_volume 1484.0 set beveled_bowl_volume 1000.0 set liter_capacityx 1. set liter_capacityx [* $liter_capacity 1000.0] set proportional_height [/ [* $bevel_bowl_height $liter_capacityx ] $beveled_bowl_volume ] set proportional_mouth [/ [* $bevel_mouth_diameter $bevel_mouth_diameter $liter_capacityx ] $beveled_bowl_volume ] set proportional_mouth [sqrt $proportional_mouth ] set proportional_base [/ [* $bevel_base_diameter $bevel_base_diameter $liter_capacityx ] $beveled_bowl_volume ] set proportional_base [* [sqrt $proportional_base ] 0.1 ] set proportional_height [* $proportional_height .1 ] set proportional_mouth [* $proportional_mouth .1 ] set proportional_base [* $proportional_base .1 ] if { $liter_capacity < 4.1 } { return 1 } if { $liter_capacity > 4.0 } { set exponent [/ 1. 3. ] set term1 [/ [* $liter_capacityx 4. ] [ pi ] ] set diameterx [* [pow $term1 $exponent ] 1. ] set proportional_height $diameterx set proportional_mouth $diameterx set proportional_base $diameterx } return 1 } proc calculate { } { global answer2 global side1 side2 side3 side4 side5 global side6 side7 side8 global proportional_height proportional_mouth proportional_base global liter_capacity 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. ] break_flag_routine set constant2_kg_liter 1.00308 set constant3_kg_liter 0.8503 set constant4_mana_sila 2.0154 set constant5_mana_sila 1.7086 set megajoles_per_kg 4.2 set total_green_clay 1.0 set total_fired_clay 1.0 set proportional_height 1.0 set proportional_width 1.0 set liter_capacity $side1 set daily_quota $side2 set clay_kg_per_liter 1. set clay_kg_per_liter $side3 set moisture_shrinkage 0.95 experimental_dimensions set side5 $proportional_height set side6 $proportional_mouth set total_green_clay [* $liter_capacity $clay_kg_per_liter $daily_quota] set side7 $total_green_clay set total_fired_clay [* $liter_capacity $clay_kg_per_liter $daily_quota $moisture_shrinkage] set side8 $total_fired_clay set conversion 0.0 if { $side4 > 0. } { set conversion [* $total_green_clay $side4 1. ] ; puts " conversion of green clay (if not zero) $side7 unfired kg to $conversion megajoules"; } } 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 proportional_height proportional_mouth proportional_base global testcase_number console show; puts "%|table $testcase_number|printed in| tcl wiki format|% " puts "&| quantity| value| comment, if any|& " puts "&| testcase number:|$testcase_number | |&" puts "&| $side1 :|pottery vessel volume liters (sila=liter)| |&" puts "&| $side2 :|constant2 green clay per vessel capacity kg/liter (optional) | |& " puts "&| $side3 :|applied thermal rating megajoules per kg (optional)| |& " puts "&| $side4 :|convert applied megajoules routine MJ (supersedes if not zero) | |&" puts "&| $side5 :|answers:proportional vessel height to sila bowl cm | |&" puts "&| $side6 :|proportional vessel rim diameter to sila bowl cm | |&" puts "&| $proportional_base :|proportional vessel base diameter to sila bowl cm | |&" puts "&| $side7 :|green clay mass | |&" puts "&| $side8 :|soft fired pottery mass | |&" } frame .buttons -bg aquamarine4 ::ttk::button .calculator -text "Solve" -command { calculate } ::ttk::button .test2 -text "Testcase1" -command {clearx;fillup 1.0 1. 1.003 4.2 10.0 18.0 1.0 0.95} ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 2.0 1. 1.003 4.2 20.0 25.48 2.0 1.9 } ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 30.0 1. 0.85 4.2 33.1 33.1 25.5 24.2 } ::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 Pottery Vessel Mass Calculator" ====== ---- [gold] This page is copyrighted under the TCL/TK license terms, [http://tcl.tk/software/tcltk/license.html%|%this license]. **Comments Section** <> Please place any comments here, Thanks. <> Numerical Analysis | Toys | Calculator | Mathematics| Example