Version 88 of Sumerian Coefficients in the Pottery Factory and Calculator Demo Example

Sumerian Coefficients in the Pottery Factory and Calculator Demo Example

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 intelligibly without some background of the correspondent. Thanks,gold

• Sumerian Coefficients in the Pottery Factory and Calculator Demo Example
  • Heat budget of a circular kiln
  • Common sizes or ranges of circular kilns, burning chamber
  • Sumerian coefficients at the pottery factory
  • Testcases Section
    • Testcase 1
    • Testcase 4
    • Testcase 5
    • Testcase 6
  • Screenshots Section
  • References:
• Appendix Code
  • appendix TCL programs and scripts
  • initial console program
• Comments Section

gold Here is some starter code for calculating fuel and dimensions of ancient pottery kilns. The impetus for these calculations was checking rated kiln capacity in some excavation reports and modern replicas. Most of the testcases involve replicas or models, using assumptions and rules of thumb .

In the Sumerian coefficient lists, there are coefficients which were used in determining the fuel capacity of a Sumerian kiln and the daily work rates of the pottery workers. One coefficient is called "sa esir had ina kiriti" (coefficient pitch in kiln) which has a value of ~10. Culled from different lists, the kiln coefficients range 10/20 in base 60, and possibly represent different style kilns. The math problem is how this kiln coefficient was used in estimating kiln capacity and work rates. One difficulty is determining the effective power of the coefficient in base 60. For example, 20 could represent either 20*3600,20,20/60, 20/3600, or even 1/20. A complete math problem or explanation on kiln dimensions (L,W,H) is lacking.

However, the Sumerian coefficient lists show the Sumerians busy with coefficients for computing the horizontal area of kiln figures or the volumes of possible kilns.. In general terms, some coefficients were used to convert a surface area sar (eg. square nindans in Sumerian usage) into a volume sar with units of gurs. A nindan equals 6 meters, a surface area sar about 36 square meters, and a volume gar about 0.3 cubic meters. The generic formula would be surface sars in nindan*nindan times coefficient equals volume sar in units of gurs. After a considerable amount of scratch paper, the Sumerians appear to be using daily fuel packing rate in volume gars. A complete and period text available on the dimensions of the various Sumerian kilns is lacking, but the various coefficients have been examined based on modeling the traditional native kilns and scaling available replicas.

While the Sumerians usually measured horizontal areas in square nindans for the kilns and grain bins, the problem is essentially the same: fitting circles or volume units into a fixed area or geometric figure. In modern terms, this is called a circle packing problem. One nindan equals 6 meters and a square nindan equals 36 square meters. A volume gur equals 0.3 cubic meters. One common size of kiln in the excavations was diameter 0.5 meters and height 0.5 meters, figures for below ground combustion chamber. The volume would be (1/4)*PI*D*D*H,.25*3.14*.5*.5*.5 or 0.098 cubic meters. In Sumerian terms, the volume would be 0.098/.3, decimal 0.3266 or 20/60 + 36/3600 volume gurs in base 60. The estimated coefficient 20:36 is within range of the 0;20:48:06 (in base 60) number on the clay tablets. One possibility is that the pitch and reed kiln coefficients represent the fraction of (fuel volume) / (burning chamber volume). At least some kilns had support pillars or walls within the burning chamber which would subtract from the total volume. Other kilns were single chamber kilns which filled up some of their volume with support shelves, wares, and ware props. In other words, the total volume of the chamber was not occupied with fuel. Also, it was found that coefficient*circumference* circumference* circumference equals nearly the amount of gurs in the burning chamber. The circumference cubed is not a likely formula, since use of cubed value has not been associated with a coefficient before. From other coefficients on the tablets, the daily work rate of excavations was 10/60 gurs and if the kiln fuel loading problem is analogous, the number of man work days to load the kiln fuel was (20.8/60)/ (10/60) or roughly 2 work days.

There is more than one theory on the kiln used by the reed workers. The reed workers cooked the reeds with lime to soften and bleach the reeds before weaving mats. In some cases, the reed workers may have dried their baskets in an oven to assure a dry and insect free product. Possibly, the reed workers made a sort of charcoal briquet or cooking fuel, baking green reeds in a special oven (eg. a charcoal kiln). Lets return to the original Sumarian phrase, "20_48_06 sa gir4 ad kup4". As others have remarked, the Sumerian/Akkadian script on the tablets is the most homonym filled language on earth. The Sumerian word "ad" could either be associated with reed (addatu, reed pith) or day's work (adu, sun come), or village (aduru, wall of reeds). Since the jobs as diverse as potters, ditch diggers, and basket weavers have their daily rate of work in the coefficient lists, there is at least some possiblity that "ad" modifies "kupru" and refers to a daily task on the construction liquid asphalt. Also, its easier and closer to the meaning of a Sumerian noun-phrase to develop a full sentence, sic. "20_48_06 sa gir4 ad kup4" could mean: The 20_48_06 coefficient of? (kiln that burns reeds) is? a? (day's work) on? (construction liquid asphalt pitch). There are traditional kilns and replicas which still use the Sumerian and Greek designs, so the calculator empirical formulas are based on the known wood fuel/volume ratios.

From the contemporary and traditional kilns, the amount of heat energy needed to fire the known dimensions of Sumerian kilns can be estimated. Also from modern tests, the heat constants of burning wood/reeds/asphalt are 13.5/17/40 megajoules per (dry) kilogram. The 13.5 MJ/kg for wood is an average number based on scrap wood and uncovered woodlots, not completely dry wood. Rounding the Sumerian coefficient for burning reeds is 20/60 and the Sumerian coefficient for burning asphalt is 10/60. The Sumerians are probably multiplying the volume of the kiln burning chamber times the coefficient fraction to estimate the needed volume of fuel. Since the ratio of the heat constants (17/40 or 0.425) indicates that reeds supply roughly half the heat of asphalt, the mass of reeds to fire a kiln should be twice <(20/60)/(10/60)> that of asphalt. While there is more current documentation about burning wood in kilns than reeds or asphalt, some tentative calculations can be made with the Sumerian coefficients for reeds and asphalt. A kiln of 3 cubic meters volume would be roughly 3/.3 or 10 volume gurs. Using the asphalt coefficient, the needed asphalt fuel would be 10 gurs * (10/60) or 1.66 gurs. Assuming the specific gravity of 1 for asphalt, this would be 1.66*.3*1.*300. , 149.39 kilograms of asphalt. In Sumerian mass units, this would be 149.9/.4977 or 301 mannas. For the fuel reeds, the calculation would be 10 gurs * (20/60), 300 kilograms, or 600 mannas of reeds. From other tablets, the Sumerians counted a bundle of reeds or manload of reeds as 20 manas, so the mount of reeds would be 600 manas/20 or 30 bundles.

One topic of interest is the efficiency of kilns, Sumerian or otherwise. For example, one tenth of the energy used in contemporary China is burned making bricks in kilns and similar proportions in other industrial countries. The efficiency of a kiln is measured by the applied heat on the clay mass over the total heat used, usually in percent of applied heat over total heat or in megajoules per 1000 kilograms of pottery. While the numbers are not complete in the Sumerian case, one can look at the features of the Sumerian cylindrical kilns and estimate an ideal heat budget. Starting with an equal diameter and height burning chamber, then find the ideal proportion of heat sharing in a cylinder. As in a Sumerian math problem, the clay mass will be a central pillar with a radius and diameter at 1/4 that of the surrounding kiln. The diameter and height of the kiln are both 1. The height of the clay mass will be 1/2 the diameter of the kiln. In an ideal heat engine, 1/2 the total heat will remain in the kiln and 1/2 will leave up the chimney. The next math problem is finding the proportions of the heat that remains in the kiln.

Of the heat that remains in the kiln, the transfer of heat to the pottery is ideally proportional to the surface area of the clay mass over the internal surface area of the cylindrical kiln. So estimate the ratio clay surface area over ( top + bottom + wall), 2*pi*r2*h2/ ((pi*r1*r1)+(pi*r1*r1)+ (2*pi*r1*r1)),substituting r2= r1/2 and h2=h1/2, leading to 2*pi*(r1/2)*(h1/2) over 2*pi*r1*(r1+h1), reducing to (1/4+h1/2)/(r1+h1). Since h1=2r1, the ratio is (1/4+(2r1/2))/(r1+2r1), (1+4r1)/12r1 evaluated at r1=.5 or 3/6. We can fraction with 3*x+6*x = 1/2 total heat or x=1/18, so we can develop fractions 6/18, 3/18, 9/18 for the terms of total heat. For heat budgeting, the total heat equals 6/18 (walls+top+bottom) +3/18(clay mass) + 9/18 (outlet air). Similarly, the (top + bottom) over inner wall surface are (pi*r1*r1+pi*r1*r1)/(2*pi*r1*h1), where h1=1,(r1*r1/r1) where r1 evals at .5, and leads to a 1:2 ratio for cylinder ends to inner wall. Accounting for the walls and top, total heat = 4/18 (walls) + top(1/18) + bottom(1/18) +3/18(clay mass) + 9/18 (outlet air). The proportion 3/18, decimal 0.166 or 17 percent is the maximum efficiency expected from a circular batch kiln. Most of the circular kilns fall short of this ideal because the clay mass or wares do not receive the best exposure to the hot air flow. Still, any more sophisticated analysis or suggested improvements will have account for heat budget or reduce the terms and losses. ( The heat flux and budget of the kiln has nonlinear terms over time. )

The price of fired brick in Sumerian times might also be indicative of energy costs per brick. In Ur III, 1 gur of barley brought 288 bricks from the brickmaker. In the equivalence texts, the brickmaker was paid 1 ban or (1/4) gur of barley a day and daily work quota was 288 bricks a day. So some equations can be set up. 1 gur barley = (1/4 gur)payday + ( price of fuel for 288 bricks), 1 gur = price of 600 manas of asphalt, and 1 mana = 0.4977 kg. Subtraction gives 3/4 gur = price of fuel for 288 bricks. Substituting , 3/4 gur will buy (3/4)*600 or 450 mannas of asphalt = 288 * bricks. So, 1 brick = 450/288 or 1.56 manas of asphalt per brick or 1.56*.4977, 0.776 kilograms of asphalt per brick. 0.776 kilograms * 40 MJ/kg fuel gives 31.04 MJ per brick. A brick weighed 7.4 kilograms, so the applied heat of the brick was 31.4/7.4 or 4.3 MJ/kg.

Possible ratios and fractions for the unfired pottery clay mass in Sumerian circular kilns can be developed from the traditional kilns and rules of thumb. One style of clamp kilns uses a formula ratio of fuel to clay mass as 400 kilograms of coal to 1000 green bricks, each green brick weighing 3.6 kilograms. So the ratio of fuel is 400/(1000*3.6), 0.11 coal kilograms per clay mass. The coal has a heating value of 25 Megajoules per kilogram, so the process heat per kilogram is (400*25)/(1000*3.6) or 2.7 MJ/kg. The finished brick has lost moisture and weighs about 3 kg. Most of the traditional kilns have a range of 4 to 6 MJ/kg. Actually, the MJ/kg per brick is the most consistent parameter reported on traditional kilns, since the fuels, ceramic shapes, and brick weights vary so much. The traditional circular kilns usually fire from 500 to 1200 kilograms of green clay for a kiln of 3 cubic meters. Figuring the volume of the green clay as 2500 kilograms per cubic meter, the traditional fractions of clay volume to kiln volume would be from (500/2500)/3 to (1200/2500)/3, decimal 0.066 to 0.16, or 4/60 to 10/60 in base sixty. Another approach is (fuel & energy) /clay ratio. Previously it was found that the reed burning kiln (gir4) of 3 cubic meters would need 300 kilograms of reeds, which has a heat equivalent of 17 MJ/kg * 300 kg or 5100 MJ. The asphalt kiln (kirim) would need 149.4 kilograms of asphalt fuel, which is 40MJ/kg *149.4 or 5976 MJ. Taking the clay heat ratio and the 6 MJ/kg from the traditional kilns, the reed kiln would need (5100 MJ)/(6 MJ per kg) or 850 kg of green clay. The asphalt kiln would need (5976 MJ) / (6 MJ per kg) or 1000 kg of green clay. Returning to volume equivalents, the volume fraction of clay over kiln volume would range from (850/2500)/3 to (1000/2500)/3, decimal 0.111 to 0.133, or 6.6/60 (reeds) to 8/60 (asphalt). Of course, these brick calculations are really order of magnitude calculations. But we realized that the coefficients "20_48_06 sa gir4 ad kup4" for the reed kiln and "10_45_06 esir2 had5 a sa in-na ki-ri-im" for the asphalt kiln share a common 06 digit. Possibly 06 is really a separate coefficient and represents the fraction of clay volume over the kiln volume as 6/60. If the kiln coefficient lines are three separate numbers, then possibly coefficient values 45/48 refers to the top end area of a cylindrical kiln (3 for pi, (45/60) *D*D, in area sars) or the volume calculations for the cylindrical kiln (3 for pi, (45/60)*D*D*H, in volume gurs).

Probably the greatest improvements that the Ubaidians, Sumerians, and Greeks made was the buried combustion chamber for better insulation and the separate burning chamber and grate to force the hot air past the wares. The buried combustion chamber and separate burning chamber was rated at 7 percent efficiency over the original pit kilns (1-2%). Although difficult to interpret, some Ubaidian and Sumerian kilns had interior support walls, interior baffles, concave prism support bricks, and brick floor channels, which moderated the air flow inside the kiln (possibly efficiency of 9%, downdraft flow over the wares?). At least, the Greeks had some manual chokes or obstructions in the kiln chimney to dampen the air during preburn and moderate the air flow from the kiln exit (probably a 2 percent gain, if present). Some of the Sumerian kilns had extended or roofed stoking channels (1-2 meters long), which may have been to improve air draft at the entry and reduce wind eddies at the stoking chamber door. Some of the roofed stoking channels are sloping downwards to a below ground combustion chamber, which could be interpreted as gravity feed of fuel. Rarely, air flues of pebble beds under a raised kiln subfloor have been found at Tell Ziyada. The pebble beds in the Tell Ziyada kiln may have preheated the air and distributed air to the rear of the kiln ( 4700 BCE?, Ubaid culture). Its not uncommon on the contemporary traditional kilns to see flaming backdrafts and smoke at the stoking door, which surely indicates poor draft and a heat loss. Some of the tablets fired in Sumeria had pinholes or firing holes in the tablets, possibly for improving the evenness of fired clay. There are a number of Sumerian fired vessels and unfired vessels that were coated with pitch for waterproofing, which may have saved on fuel. Some of the traditional Indian and Mexican kilns have blackened pottery or black core pottery from added carbon or organics, but this is uncommonly reported in Sumerian pottery or difficult to interpret as an improvement. Most of the Sumerian above ground structure and kiln roofs have not survived, but some traditional Indian kilns have roofs of layered mudplaster, shards, and straw, which would serve for insulation. The use of renewable reeds for fuel probably has some lessons in the modern era. One reason for studing the Sumerian kilns is the improvement of contemporary design in that the Sumerians faced and solved many of the same problems in kiln design.

Heat budget of a circular kiln

Common sizes or ranges of circular kilns, burning chamber

Sumerian coefficients at the pottery factory

Testcases Section

In planning any software, it is advisable to gather a number of testcases to check the results of the program. The math for the testcases can be checked by pasting statements in the TCL console. Aside from the TCL calculator display, when one presses the report button on the calculator, one will have console show access to the capacity functions (subroutines).

Testcase 1

Testcase 4

Testcase 5

One MMBtu = 1,000,000 Btu
mass_flow_rate = burning_area* fuel_burn_rate*fuel_density
   where fuel_burn_rate= initial_rate +  (e**+c*kelvin)

Testcase 6

testcase number: 6
max room fuel kg 2705.181
estimated fuel,oak kg 369.708
total heat megajoules 4991.059
kiln style  single chamber, circular                                         

Screenshots Section

figure 1.

figure 2. figure 3.

figure 4. figure 5. figure 6. figure 7.

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, [L1 ]
• Planting and Growing Miscanthus Reed [L2 ]
• Brick and Ceramic Sectors [L3 ]
• Energy Measurements and Conversions [L4 ]
• Mani Kiln (google >> mani kiln efficient)
• Village-Level Brickmaking [L5 ]
• Technical problems of brick production, prepared by Kelvin Mason (June 1998) [L6 ]
• Energy Used to Fire Clay Bricks, prepared by Kelvin Mason, June1998 [L7 ]
• Energy Used ... good simple math for bricks, much used [L8 ]
• Building the Mani Kiln, Drawings by Manny Hernandez (google >> mani kiln efficient)
• Ten Rules for Brick Firing,prepared by Theo Schilderman (June 1998) [L9 ]
• 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[L10 ]
• Equivalency values page & CDLI MySQL search engine , CDLI Library [L11 ]

Appendix Code

appendix TCL programs and scripts

        # pretty print from autoindent and ased editor
        # circular kiln calculator
        # written on Windows XP on eTCL
        # working under TCL version 8.5.6 and eTCL 1.0.1
        # gold on TCL WIKI , 27jul2013
        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 {{} {kiln diameter meters:} }
        lappend names {burning chamber height:}
        lappend names {firing time seconds: }
        lappend names {answer: volume cubic meters}
        lappend names {total heat units, megajoules:}
        lappend names {firing max temperature centigrade: }
        foreach i {1 2 3 4 5 6} {
            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 Circular Kiln
            from TCL WIKI,
            written on eTCL "
            tk_messageBox -title "About" -message $msg }
        proc pi {} {expr acos(-1)}
        proc kilnvolumex { d h } {
            set  kilnvolumexxx [* .25 [pi] $d $d $h ]
            return $kilnvolumexxx
        }
        proc heatx { vol density } {
            set fuel_mass [* $vol $density]
            set total_heat [* $fuel_mass 13.54]
            return $total_heat
            }
        proc firingtempxx { total_heat burn_time cross_section temp_ambient temp_flame} {
            set d $cross_section
            set firing_temp 1
            set heat_flux [/ $total_heat $burn_time]
            set heat_flux_persec [/ $heat_flux $burn_time]
            set cross_section [ / [* [pi] $d $d ] 4.]
            set item 25
            set temp_ambient 25
            set temp_flame 1488.
            set tx  $temp_ambient
            set taxx $temp_flame
            set t 25
            set h [/ $heat_flux_persec $cross_section]
            while {$item <= 4000} {
                incr item
                set t [+ $t 1 ]
                set term1 [* 1. $t $t $t $t]
                set term2 [* 1. $tx $tx $tx $tx]
                set term1 [* .000000000056703 [ - $term1 $term2]]
                set term2 [* $h  1.1 [/ [- $taxx $t]  [ - $taxx $tx ]]]
                set difference  [abs [- $term1 $term2]]
                if {$difference < 2.} { set temp_answer $t }
            }
            return $temp_answer
        }
        proc calculate {     } {
            global answer2
            global side1 side2 side3 side4 side5
            global side6 testcase_number fuel
            global kiln_volume kiln_temperature_exp
            global workdays total_heat massfromvolume
            global total_heat firing_temp
            incr testcase_number
            set kiln_diameter $side1
            set kiln_height $side2
            set kiln_firing_time $side3
            set ktime $side3
            set kiln_volume 1
            set kiln_volume [kilnvolumex $kiln_diameter $kiln_height]
            set fuel_density 850
            set massfromvolume [* $kiln_volume $fuel_density]
            set fuel [* [ /  8.2 60.   ] $massfromvolume]
            set total_heat [* 13.5 $fuel]
            set kiln_temperature_exp [+ 300.  [ exp [* 1.  .001 $ktime]]]
            set temp_amb 25.
            set temp_flame 1488.
            set total_heat_joules [* $total_heat 1.0E6]
         set firing_temp [firingtempxx $total_heat_joules $kiln_firing_time $kiln_diameter $temp_amb $temp_flame]
            if  {$kiln_temperature_exp > 900.}{set kiln_temperature_exp 900}
            set workdays [/ $kiln_volume 3. ]
            set side4 $kiln_volume
            set side5 $total_heat
            set side6 $firing_temp }
        proc fillup {aa bb cc dd ee ff} {
            .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" }
        proc clearx {} {
            foreach i {1 2 3 4 5 6 } {
                .frame.entry$i delete 0 end } }
        proc reportx {} {
            global side1 side2 side3 side4 side5
            global side6 testcase_number fuel
            global kiln_temperature massfromvolume
            global kiln_volume workdays 
            global total_heat firing_temp
            global kiln_temperature_exp
            console show;
            puts "testcase number: $testcase_number"
            puts "kiln diameter meters: $side1 "
            puts "kiln height meters: $side2 "
            puts "kiln firing seconds: $side3 "
            puts "volume cubic meters: $side4 "
            puts "total energy MJ: $side5 "
            puts "kiln volume m*m*m: $kiln_volume "
            puts "kiln temperature. degrees. centigrade,"
            puts "exp. model temp. $kiln_temperature_exp"
            puts "max room fuel kg $massfromvolume"
            puts "estimated fuel,oak kg $fuel"
            puts "total heat megajoules $total_heat"
            puts "firing max temperature  $firing_temp "
            puts "man workdays to load fuel  $workdays"
            }
        frame .buttons -bg aquamarine4
        ::ttk::button .calculator -text "Solve" -command { calculate   }
        ::ttk::button .test2 -text "Testcase1" -command {clearx;fillup .5 .5 6000. 0.0981  153.9 700. }
        ::ttk::button .test3 -text "Testcase2" -command {clearx;fillup 1.5 1.5 6000. 2.65  4156. 870. }
        ::ttk::button .test4 -text "Testcase3" -command {clearx;fillup 2. 2. 6000. 6.28  9853. 900. }
        ::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 . "Circular Kiln Volume and Fuel Calculator "
        

For the push buttons, 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, but takes away from computer "efficiency". While the testcases are in meters, the units either cancel out or are carried through in the calculator equations. So the units could be entered as English feet, Egyptian royal cubits, Sumerian gars, or Chinese inches and the outputs of volume will in the same (cubic) units. This is an advantage since the units in the ancient Sumerian, Indian, and Chinese texts are open to question. In some benign quarters of the globe, feet and cubic feet were still being used for design in the 1970's.

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 (which numbers will be cleared on the next solve button.) The command { calculate; reportx } or { calculate ; reportx; clearx } can be added or changed to report automatically, but is not recommended as computer efficiency is impaired. Another wrinkle would be to print out the current text, delimiters, and numbers in a TCL wiki style table as

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

initial console program

        # pretty print from autoindent and ased editor
        # volume of Sumerian kiln combustion chamber
        # written on Windows XP on eTCL
        # working under TCL version 8.5.6 and eTCL 1.0.1
        # gold on TCL WIKI , 24jul2013
        package require Tk
        namespace path {::tcl::mathop ::tcl::mathfunc}
        console show
        set diameter .5
        set height .5
        set kiln_volume [ * .25 3.14 $diameter $diameter $height]
        set kiln_volume_gurs [ / $kiln_volume .3 ]
        set workdays [ / [* $kiln_volume_gurs 60]   10 ]
        puts "kiln_volume $kiln_volume"
        puts "kiln_volume_gurs $kiln_volume_gurs"
        puts "man workdays   $workdays"

Comments Section