Subversion Repositories svn.mios32

Rev

Rev 1449 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1449 Rev 1960
Line 1... Line 1...
1
#!/usr/bin/perl -w
1
#!/usr/bin/perl -w
2
# $Id: curve_c_charge.pl 1449 2012-03-20 23:08:56Z tk $
2
# $Id: curve_c_charge.pl 1960 2014-02-09 20:21:24Z tk $
3
#
3
#
4
# Calculates capacitor charge curve and generates a gnuplot for visual check
4
# Calculates capacitor charge curve and generates a gnuplot for visual check
5
# -> output in c_charge.inc
5
# -> output in c_charge.inc
6
#
6
#
7
# Thorsten Klose (2007-08-05)
7
# Thorsten Klose (2007-08-05)
8
#
8
#
9
9
10
10
11
my $tau = 100.0;
11
my $tau = 100.0; # exp1
-
 
12
#my $tau = 500.0; # exp2
12
my $steps = 1024;
13
my $steps = 1024;
13
my $y_max = 65535.0;
14
my $y_max = 65535.0;
14
my $x_offset = 15.0;
15
my $x_offset = 15.0;
15
16
16
####################################################################################################
17
####################################################################################################