Re^2: Keeping one colmun fixed and second column changed at different intervals to print the output

Question is we have three columns first one column is 0 or 1 second column are some values of A and third column are some values of B

for a given condtion for 0.01 interval of A values and B values interval of -9 to +9 say at A threshold =0.01 and B at threshold =-9 if value in the second column of A > A (threshold) and value in the third column B > B value (threshold) then for that output value is 1

or if either of them is greater than threshold and then output value is 1 if both of them less than threshold then 0 .

Likewise at different thresholds keeping one threshold fixed other say gab changes from -9 to -8 . then do calculation.

Comment on Re^2: Keeping one colmun fixed and second column changed at different intervals to print the output

Replies are listed 'Best First'.
Re^3: Keeping one colmun fixed and second column changed at different intervals to print the output by vis1982 (Acolyte) on Dec 01, 2010 at 10:02 UTC
`#!/usr/bin/perl -w use strict; use warnings; open (FILE,"$ARGV[0]") or die; #open (WRITE,">aa"); #close (FILE); while( my $line = <FILE> ) { my($index, $key, $data, @rest) = split("\t",$line); for my ( $x=0.01,$x<=1;$x++) { for my ( $y=-9;$y<=9;$y++) { if (($key >$x) \|\| ($data >$y)) { print "1","\n"; $x++; $y++; } else { print "0","\n +"; } } } } close (FILE);` [download] what is the error in the code	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Keeping one colmun fixed and second column changed at different intervals to print the output
by vis1982 (Acolyte) on Dec 01, 2010 at 10:02 UTC


#!/usr/bin/perl -w

use strict;
use warnings;

open (FILE,"$ARGV[0]") or die;
#open (WRITE,">aa");
#close (FILE);
while( my $line = <FILE> )
{
     my($index, $key, $data, @rest) = split("\t",$line);

                  for my (  $x=0.01,$x<=1;$x++)
                        {
                          for my ( $y=-9;$y<=9;$y++)
                                {
                                if (($key >$x) || ($data >$y))
                                        {
                                         print   "1","\n";
                                         $x++;
                                         $y++;
                                         }
                                         else
                                                {
                                                        print  "0","\n
+";
                                                }
                                 }
                          }
}
close (FILE);
[download]

[reply]
[d/l]