';
echo "
\n";
$genopar->abreBanco();
#Start Codons
$startcodons["atg"]= "atg";
$startcodons["ttg"]= "ttg";
$startcodons["ctg"]= "ctg";
$startcodons["gtg"]= "gtg";
#Stop Codons
$stopcodons["taa"]= "taa";
$stopcodons["tag"]= "tag";
$stopcodons["tga"]= "tga";
#########################################################
echo "
';
// $genopar->fechaPagina();
################################
## complement_strand (sequencia)
################################
function complement_strand ($seq)
{
$comprev{"g"}= "c"; $comprev{"c"}= "g";
$comprev{"a"}= "t"; $comprev{"t"}= "a";
$comprev{"n"}= "n";
$rev_seq="";
for ($i=strlen($seq) - 1; $i>=0; $i--)
{
$base=substr($seq,$i,1);
#echo "$base{".$comprev[$base]."}";
if ($comprev[$base]!='')
{
$rev_seq.=$comprev[$base];
}
else
{
$rev_seq.="x";
}
}
return $rev_seq;
}
################################
################################
?>