[Bio] / FigKernelPackages / FileIOFunctions.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FileIOFunctions.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6, Fri Mar 6 23:34:24 2009 UTC revision 1.7, Fri Mar 20 19:11:03 2009 UTC
# Line 1313  Line 1313 
1313          return @OriginalArray;          return @OriginalArray;
1314  }  }
1315    
1316    sub FormatCoefficient {
1317            my ($Original) = @_;
1318    
1319            #Converting scientific notation to normal notation
1320            if ($Original =~ m/[eE]/) {
1321                    my $Coefficient = "";
1322                    my @Temp = split(/[eE]/,$Original);
1323                    my @TempTwo = split(/\./,$Temp[0]);
1324                    if ($Temp[1] > 0) {
1325                            my $Index = $Temp[1];
1326                            if (defined($TempTwo[1]) && $TempTwo[1] != 0) {
1327                                    $Index = $Index - length($TempTwo[1]);
1328                                    if ($Index < 0) {
1329                                            $TempTwo[1] = substr($TempTwo[1],0,(-$Index)).".".substr($TempTwo[1],(-$Index))
1330                                    }
1331                            }
1332                            for (my $j=0; $j < $Index; $j++) {
1333                                    $Coefficient .= "0";
1334                            }
1335                            if ($TempTwo[0] == 0) {
1336                                    $TempTwo[0] = "";
1337                            }
1338                            if (defined($TempTwo[1])) {
1339                                    $Coefficient = $TempTwo[0].$TempTwo[1].$Coefficient;
1340                            } else {
1341                                    $Coefficient = $TempTwo[0].$Coefficient;
1342                            }
1343                    } elsif ($Temp[1] < 0) {
1344                            my $Index = -$Temp[1];
1345                            $Index = $Index - length($TempTwo[0]);
1346                            if ($Index < 0) {
1347                                    $TempTwo[0] = substr($TempTwo[0],0,(-$Index)).".".substr($TempTwo[0],(-$Index))
1348                            }
1349                            if ($Index > 0) {
1350                                    $Coefficient = "0.";
1351                            }
1352                            for (my $j=0; $j < $Index; $j++) {
1353                                    $Coefficient .= "0";
1354                            }
1355                            $Coefficient .= $TempTwo[0];
1356                            if (defined($TempTwo[1])) {
1357                                    $Coefficient .= $TempTwo[1];
1358                            }
1359                    }
1360                    $Original = $Coefficient;
1361            }
1362            #Removing trailing zeros
1363            if ($Original =~ m/(.+\..+)0+$/) {
1364                    $Original = $1;
1365            }
1366            $Original =~ s/\.0$//;
1367    
1368            return $Original;
1369    }
1370    
1371  1;  1;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3