hotsanic

Subversion Repositories:

[/] [trunk/] [modules/] [fiber-100g/] [platform/] [a.pl] - Rev 32

Compare with Previous - Blame - Download

#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;

my $var=19876*0.0000001;
print "$var\n";

my $power = 10* log(1000*$var)/log(10);

print $power;