Changeset 665 for trunk/examples/app-fermi/tcl
- Timestamp:
- Apr 6, 2007, 6:06:24 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/examples/app-fermi/tcl/fermi.tcl
r555 r665 6 6 # ====================================================================== 7 7 # AUTHOR: Michael McLennan, Purdue University 8 # Copyright (c) 2004-200 5Purdue Research Foundation8 # Copyright (c) 2004-2007 Purdue Research Foundation 9 9 # 10 10 # See the file "license.terms" for information on usage and … … 37 37 while {$E < $Emax} { 38 38 set f [expr {1.0/(1.0 + exp(($E - $Ef)/$kT))}] 39 set progress [expr {(($E - $Emin)/($Emax - $Emin)*100)}] 40 Rappture::Utils::progress $progress -mesg "Iterating" 39 41 $driver put -append yes output.curve(f12).component.xy "$f $E\n" 40 42 set E [expr {$E + $dE}]
Note: See TracChangeset
for help on using the changeset viewer.