['GCT', 'ALA'], 'B' => ['GCA', 'ALA'], 'C' => ['TGC', 'CYS'], 'D' => ['GAT', 'ASP'],
'E' => ['GAG', 'GLU'], 'F' => ['TTT', 'PHE'], 'G' => ['GGG', 'GLY'], 'H' => ['CAT', 'HIS'],
'I' => ['ATA', 'ILE'], 'J' => ['ATC', 'ILE'], 'K' => ['AAG', 'LYS'], 'L' => ['CTC', 'LEU'],
'M' => ['ATG', 'MET'], 'N' => ['GAC', 'ASN'], 'O' => ['GAT', 'ASN'], 'P' => ['CCC', 'PRO'],
'Q' => ['GAG', 'GLN'], 'R' => ['CGT', 'ARG'], 'S' => ['TCA', 'SER'], 'T' => ['ACT', 'THR'],
'U' => ['ACG', 'THR'], 'V' => ['GTC', 'VAL'], 'W' => ['TGG', 'TRP'], 'X' => ['GTA', 'VAL'],
'Y' => ['TAC', 'TYR'], 'Z' => ['TAT', 'TYR']
];
$codons = [];
$aminoAcids = [];
foreach ($initials as $letter) {
$letter = strtoupper($letter);
if (isset($codonMap[$letter])) {
$codons[] = $codonMap[$letter][0];
$aminoAcids[] = $codonMap[$letter][1];
} else {
$codons[] = '---';
$aminoAcids[] = 'Unknown';
}
}
return [$codons, $aminoAcids];
}
// Variables for later display
$displayCodons = [];
$displayAminoAcids = [];
$codonVerticalText = '';
$initials = isset($_POST['initials']) ? implode('', $_POST['initials']) : '';
if (!empty($initials)) {
// Map initials
list($codons, $aminoAcids) = mapInitialsToCodonsAndAminoAcids(str_split($initials));
// Save codons vertically (each letter per line)
foreach ($codons as $codon) {
$codonVerticalText .= implode("\n", str_split($codon)) . "\n";
}
file_put_contents("$sessionDir/codons.txt", $codonVerticalText);
// Save amino acids list
file_put_contents("$sessionDir/amino_acids.txt", implode(" ", $aminoAcids));
// Set display variables
$displayCodons = $codons;
$displayAminoAcids = $aminoAcids;
$escapedSessionDir = escapeshellarg($sessionDir);
$command = "tcsh utils/mk-dna.tcsh $escapedSessionDir > $escapedSessionDir/dna_output.log 2>&1 &";
shell_exec($command);
$command2 = "tcsh utils/mk-pep.tcsh $escapedSessionDir > $escapedSessionDir/pep_output.log 2>&1 &";
shell_exec($command2);
$dnaprmFile = "$sessionDir/bdna.parm7"; // AMBER parm7 file
$dnapdbFile = "$sessionDir/bdna.pdb"; // AMBER parm7 file
$dnancFile = "$sessionDir/dna.crd"; // mdcrd file
$pepprmFile = "$sessionDir/pep.parm7"; // AMBER parm7 file
$peppdbFile = "$sessionDir/pep.pdb"; // AMBER parm7 file
$pepncFile = "$sessionDir/pep.crd"; // mdcrdfile
}
?>
Central Dogma of Biology
Central Dogma of Biology
Please Explain
Enter 3 Initials Below
