package TFT
@ISA = qw()

sub new
my ($module, $app) = @_;
return $this;

sub DESTROY
my $this = shift;

sub PrepareForCalculation
my ($this) = @_;

sub PinchoffVds
my ($this, $Vgs) = @_;
return $Vpinch;

sub Ids
my ($this, $Vgs, $Vds) = @_;
return $Ids;

sub PinchoffVdsAtSmallVds
my ($this, $Vgs) = @_;
return $Vpinch;

sub IdsAtSmallVds
my ($this, $Vgs, $Vds) = @_;
return $Ids;

sub FermiDiracFunction
my ($E, $T, $EF, $C0, $Wa) = @_;
return $C0 / (1.0 + exp(($E-$EF)/($kB*$T/$e+$Wa)));