← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/primer3/intrepid

« back to all changes in this revision

Viewing changes to test/long_seq_tm_test.pl

  • Committer: Bazaar Package Importer
  • Author(s): Charles Plessy
  • Date: 2006-09-28 20:18:54 UTC
  • Revision ID: james.westby@ubuntu.com-20060928201854-45pwapz5e3a6d684
Tags: upstream-1.0b
Import upstream version 1.0b

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/long_seq_tm_test.pl
 
1
#!/usr/local/bin/perl
 
2
 
 
3
# Script for checking output of executable src/long_seq_tm_test
 
4
# To make long_seq_tm_test go to ../src, and do
 
5
# make long_seq_tm_test
 
6
 
 
7
my ($seq, $start, $len) = @ARGV;
 
8
my $s = substr($seq, $start, $len);
 
9
my $GC_count = $s =~ tr/gGcC/gGcC/;
 
10
 
 
11
$r = log(50/1000.0)/log(10);
 
12
$tm = 81.5 + 16.6*$r + 41*$GC_count/$len - 600./$len;
 
13
print "tm = $tm\n";