colorFluctuations.pl

#!/usr/bin/perl

$in = open(IN,"< 2GK1A_NGTdeleted_fluctuationsplot.dat");

while (<IN>){

@line=split;
if($line[0]< 75){
$res=$line[0]+22;
}
if($line[0]> 74){
$res=$line[0]+22+14;
}

if($line[1]< 0.1){
print "color blue, resi $res\n";
}

elsif($line[1]< 0.5 && $line[1]>= 0.1){

print "color green,  resi $res\n";
}
elsif($line[1]< 1 && $line[1]>= 0.5){
print "color yellow,  resi $res\n";
}
elsif($line[1]< 2 && $line[1]>= 1){
print "color orange,  resi $res\n";
}
elsif($line[1]=> 2){
print "color red,  resi $res\n";
}
}