Changeset 665 for trunk/examples/app-fermi/perl
- Timestamp:
- Apr 6, 2007, 6:06:24 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/examples/app-fermi/perl/fermi.pl
r555 r665 41 41 while( $E < $Emax ) { 42 42 $f = 1.0 / ( 1.0 + exp(($E - $Ef) / $kT)); 43 Rappture::Utils::progress((($E-$Emin)/($Emax-$Emin)*100),"Iterating"); 43 44 $driver->put("output.curve(f12).component.xy", "$f $E\n", 1); 44 45 $E = $E + $dE;
Note: See TracChangeset
for help on using the changeset viewer.