**Rectangular Radio Antenna and eTCL Slot 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] ---- <> [gold] Here is some eTCL starter code for calculating efficiency of heat engines from source temperature, fuel, and combustion chamber dimensions. The Novikov efficiency rating can be compared with a process fraction of useful work in an eTCL calculator, developed from some code on a firebox. The impetus for these calculations was checking rated efficiency in some heat engines. Most of the testcases involve modeled data, using assumptions and rules of thumb . ====== ---- ***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 **** Pizza is baked for 20 minutes ---- %| testcases | T1| T2|Carnot Nu | Endoreversible Nu| Endo fraction process K2*Nu|% &| 1 |300 |900 |0.666 |0.422 | 0.166 |& &| 2 | 300| 1200|0.75 | 0.5| 0.187 |& &| 3 |300 | 1400|0.785 | 0.537| 0.196 |& &|4 |300 | 700|0.57 | 0.345| 0.142 |& ---- ====== namespace path {::tcl::mathop ::tcl::mathfunc} set Nu_Carnot [ - 1. [/ 300. 900. ] ] set Nu_Carnot [ - 1. [/ 300. 1200. ] ] ====== **** Testcase 4 **** ****Rating small gas stoves boiling water**** %|name|water boiled|measured Nu|Novikov Nu|Carnot Nu | Th| Tl|% &|stove 1|1 liter|49.4|42.414|66.839|96.5| 32.|& &|stove 2|1 liter|43.8|49.349 |74.345 |95.5 |24.5|& &|stove 3|0.5 liter|32.4|50.129 |75.1|96.5| 24.|& ---- ====== set Nu_Carnot [ - 1. [/ 32. 96.5 ] ] set Nu_Carnot [ - 1. [/ 24.5 95.5 ] ] set Nu_Carnot [ - 1. [/ 24. 96.5 ] ] set Nu_Novikov [ - 1. [sqrt [/ 32. 96.5 ] ]] set Nu_Novikov [ - 1. [sqrt [/ 24.5 95.5 ] ]] set Nu_Novikov [ - 1. [sqrt [/ 24.5 96.5 ] ]] ====== **** Testcase 5 **** ****Rating kilns**** %|name|measured Nu|Carnot Nu|Novikov Nu | Th| Tl|fuel|% &|kiln 1 | .60 | C 0.781| N 0.532 |1370k |300 k |coal|& &|kiln 2 | .62 |C. 0.785| N.0.537| 1400k| 300 k |coal|& #Not sure formulas work on kilns? ====== set Nu_Carnot [ - 1. [/ 300. 1370. ] ] set Nu_Carnot [ - 1. [/ 300. 1400. ] ] set Nu_Novikov [ - 1. [sqrt [/ 300. 1370. ] ]] set Nu_Novikov [ - 1. [sqrt [/ 300. 1400. ] ]] ====== ---- **** Testcase 5 **** The fuel used was wood at 237 kg in 135 min or 135*60 or 8100 seconds. The average heat flux was 237*16 MJ/kg over 8100 seconds, 237*16/8100, or 0.468 MJ/S. A WATT is a joule per second, so the heat power is 0.468 E6 J/S, or 4.68E5 watts.Using electrical analog model, Q in watts equals (TH-TL)/(R1+R2+R3+R4) or (TH-TL)/(SUM of R) , where TH=1200 deg K and TL=300 deg K. From the eTCL calculator, Nu(1200,300)returns Carnot Nu 0.75 and Novikov Nu 0.5. The thermaI current is estimated as I=4.68E5 watts Many statements below can be pasted into eTCL console window. ====== set current 4.5E5 R= delta T/ power or(1200K-300K) /4.68E5 watts delta 1200K-300K = 900K (SUM of delta T’s of each R) set R_overall [/ 900 4.65e5] SUM R =0.00190 OR 1.9e-3 R2 is largest component of SUM R For each R step, R= delta T/ power R1 is delta 100K / 4.5E5 =0.000222 R2 is delta 700K / 4.5E5 =0.001555 R3 is delta 50K / 4.5E5 =0.0001111 R4 is delta 50K / 4.5E5 =0.0001111 2% set R1 [/ 100 4.5E5] 0.000222 3% set R2 [/ 700 4.5E5] 0.001555 4% set R3 [/ 50 4.5E5] 0.001111 5% set R4 [/ 50 4.5E5] 0.001111 6% set sumR [+ 0.000222 0.001555 0.000111 0.000111 ] 0.00199 P=VOLTS*CURRENT>> (T1-T2)*I set R2_power [* [- 800 100] 500] 350000 set efficiency [/ 3.5E5 4.5E5 ] 0.77777 set process_heat [/ [* [- 100 50] 500] 4.5E5 ] 0.0555 or 5.55 percent. Only small portion of heat cooks pizza ====== ---- ***Screenshots Section*** ****figure 1.**** [http://imageshack.us/a/img90/8319/nob.gif] ****figure 2.**** [http://imageshack.us/a/img853/6803/9wzj.png] ****figure 3.**** [http://imageshack.us/a/img842/2710/m8p6.png] ****figure 4.**** [http://imageshack.us/a/img713/7162/5px.png] ****figure 5.**** ---- ***References:*** * Kenyan Ceramic Jiko cooking stove, by Hugh Allen * Endoreversible Thermodynamics, Katharina Wagner, ---- **Appendix Code** ***appendix TCL programs and scripts *** ====== 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 . "Heat Engine Combustion Calculator " ====== *** Pushbutton Operation*** ---- 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 # Novikov efficiency of small gas stoves # written on Windows XP on eTCL # working under TCL version 8.5.6 and eTCL 1.0.1 # gold on TCL WIKI , 8aug2013 ====== ---- **Comments Section** <> Please place any comments here, Thanks. <> Numerical Analysis | Toys | Calculator | Mathematics| Example