//////////////////////////////////////////////////////////////////////////////

///   BAGIAN INPUT (Formulir untuk memasuk-kan Data Untaian DNA:

///   nama file script ini:  nutfa01.html  ————  Duisburg 19 Juli 2009

//////////////////////////////////////////////////////////////////////////////

<html>
<head> </head>
<body bgcolor=#ffff99>
<font align=center size=14 face=arial color=blue>Analisis Data Untaian DNA</font><br><br>
<font align=center color=black>Masuk-kan data untaian DNA pada formulir di bawah ini (boleh huruf besar/kecil)</font><br>
<font align=center color=black>Contoh data untaian DNA diberikan di bawah (bisa di <i>copy-paste</i>)</font>
<br><br><br><br>
<form action=”nutfa01.php” method=”post”>
<table width=”50%” align=center color=#ffcc00 cellpadding=20>
<tr>
<td bgcolor=#ffffff>
<textarea name=’dna0′ rows=’8′ cols=’80’><?php print $dna0 ?></textarea>
<br>
<input type=”submit” value=”kirim” />
</td>
</tr>
</body>
</table>
</form>
<br>
<?php
echo “<b><u>Contoh Data Untaian DNA:</u></b><br>”;
echo “GATCACAGGTCTATCACCCTATTAACCACTCACGGGAGCTCTCCATGCAT<br>”;
echo “TTGGTATTTTCGTCTGGGGGGTGTGCACGCGATAGCATTGCGAGACGCT<br>”;
echo “GAGCCGGAGCACCCTATGTCGCAGTATCTGTCTTTGATTCCTGCCTCATT<br>”;
echo “CTATTATTTATCGCACCTACGTTCAATATT<br>”;
?>
</body>
</html>

//////////////////////////////////////////////////////////////////////////////

///   BAGIAN KELUARAN (Script PHP untuk mengolah data Untaian DNA)

///   nama file script ini:  nutfa01.php    —   Duisburg 19 Juli 2009

//////////////////////////////////////////////////////////////////////////////

<?php

$dna0         = $_POST[‘dna0’];
$panjang_dna0 = strlen($dna0);

$dna0     = str_replace(“a”,”A”,$dna0);
$dna0     = str_replace(“c”,”C”,$dna0);
$dna0     = str_replace(“g”,”G”,$dna0);
$dna0     = str_replace(“t”,”T”,$dna0);

for ($i = 1; $i <= $panjang_dna0; $i += 1)
{
$aksara = substr($dna0,$i-1,1);
if (($aksara == “A”)||($aksara == “C”)||($aksara == “G”)||($aksara == “T”))
{
$dna = $dna . $aksara;
}
}

$panjang_dna = strlen($dna);
echo “<br><h2 align=center> Data Untaian DNA: </h2><br><br>”;
echo “<table width=90% align=center bgcolor=#ffcc00 cellpadding=20><tbody><tr>”;
echo “<td bgcolor=#ffffff>”;
for ($i = 1; $i <= $panjang_dna; $i += 1)
{
$aksara = substr($dna,$i-1,1);
$dna2 .= $aksara;
$hitung += 1;
if (($hitung == 50)||($i == $panjang_dna))
{
print $dna2.”<br>”;
$dna2 = “”;
$hitung = 0;
}
}
echo “</td></tr></tbody></table><br><br>”;

echo “<br><h3>Panjang Untaian :</h3> ” . $panjang_dna . “<br><br>”;

for ($i = 1; $i <= $panjang_dna; $i += 1)
{
$aksara = substr($dna,$i-1,1);
switch ($aksara)
{
case “A”: $nA += 1; break;
case “C”: $nC += 1; break;
case “G”: $nG += 1; break;
case “T”: $nT += 1; break;
}
}
$pA = ($nA/$panjang_dna) * 100;
$pC = ($nC/$panjang_dna) * 100;
$pG = ($nG/$panjang_dna) * 100;
$pT = ($nT/$panjang_dna) * 100;
echo “<br><h2 align=center>Jumlah Unsur Nucleotida</h2><br>”;
echo “<table width=40% align=center bgcolor=#ffcc00><tbody>”;
echo “<tr><td><font color=white><b>A</b></font></td><td bgcolor=#ffffff>”.$nA.”</td><td bgcolor=#ffffff>”.number_format($pA,2).”%</td></tr>”;
echo “<tr><td><font color=white><b>C</b></font></td><td bgcolor=#ffffff>”.$nC.”</td><td bgcolor=#ffffff>”.number_format($pC,2).”%</td></tr>”;
echo “<tr><td><font color=white><b>G</b></font></td><td bgcolor=#ffffff>”.$nG.”</td><td bgcolor=#ffffff>”.number_format($pG,2).”%</td></tr>”;
echo “<tr><td><font color=white><b>T</b></font></td><td bgcolor=#ffffff>”.$nT.”</td><td bgcolor=#ffffff>”.number_format($pT,2).”%</td></tr>”;
echo “</tbody></table><br><br>”;

$jumlah_codon = $panjang_dna/3;

for ($i = 1; $i <= $jumlah_codon; $i += 1)
{
$j = 3 * ($i – 1);
$codon = substr($dna,$j,3);
//print “codon[“.$i.”] : “.$codon.”<br>”;

switch ($codon)
{
//**A codons
case “AAA”: $nAAA += 1; break;
case “ACA”: $nACA += 1; break;
case “AGA”: $nAGA += 1; break;
case “ATA”: $nATA += 1; break;

case “CAA”: $nCAA += 1; break;
case “CCA”: $nCCA += 1; break;
case “CGA”: $nCGA += 1; break;
case “CTA”: $nCTA += 1; break;

case “GAA”: $nGAA += 1; break;
case “GCA”: $nGCA += 1; break;
case “GGA”: $nGGA += 1; break;
case “GTA”: $nGTA += 1; break;

case “TAA”: $nTAA += 1; break;
case “TCA”: $nTCA += 1; break;
case “TGA”: $nTGA += 1; break;
case “TTA”: $nTTA += 1; break;

//**C codons
case “AAC”: $nAAC += 1; break;
case “ACC”: $nACC += 1; break;
case “AGC”: $nAGC += 1; break;
case “ATC”: $nATC += 1; break;

case “CAC”: $nCAC += 1; break;
case “CCC”: $nCCC += 1; break;
case “CGC”: $nCGC += 1; break;
case “CTC”: $nCTC += 1; break;

case “GAC”: $nGAC += 1; break;
case “GCC”: $nGCC += 1; break;
case “GGC”: $nGGC += 1; break;
case “GTC”: $nGTC += 1; break;

case “TAC”: $nTAC += 1; break;
case “TCC”: $nTCC += 1; break;
case “TGC”: $nTGC += 1; break;
case “TTC”: $nTTC += 1; break;

//**G codons
case “AAG”: $nAAG += 1; break;
case “ACG”: $nACG += 1; break;
case “AGG”: $nAGG += 1; break;
case “ATG”: $nATG += 1; break;

case “CAG”: $nCAG += 1; break;
case “CCG”: $nCCG += 1; break;
case “CGG”: $nCGG += 1; break;
case “CTG”: $nCTG += 1; break;

case “GAG”: $nGAG += 1; break;
case “GCG”: $nGCG += 1; break;
case “GGG”: $nGGG += 1; break;
case “GTG”: $nGTG += 1; break;

case “TAG”: $nTAG += 1; break;
case “TCG”: $nTCG += 1; break;
case “TGG”: $nTGG += 1; break;
case “TTG”: $nTTG += 1; break;

//**T
case “AAT”: $nAAT += 1; break;
case “ACT”: $nACT += 1; break;
case “AGT”: $nAGT += 1; break;
case “ATT”: $nATT += 1; break;

case “CAT”: $nCAT += 1; break;
case “CCT”: $nCCT += 1; break;
case “CGT”: $nCGT += 1; break;
case “CTT”: $nCTT += 1; break;

case “GAT”: $nGAT += 1; break;
case “GCT”: $nGCT += 1; break;
case “GGT”: $nGGT += 1; break;
case “GTT”: $nGTT += 1; break;

case “TAT”: $nTAT += 1; break;
case “TCT”: $nTCT += 1; break;
case “TGT”: $nTGT += 1; break;
case “TTT”: $nTTT += 1; break;

}
}
print “<br>”;

echo “<br><h2 align=center>Jumlah Codon</h2><br>”;

echo “<table width=70% align=center cellpadding=10 bgcolor=#ffff99><tbody><tr>”;
echo “<td><table width=80% align=center bgcolor=#ffcc00><tbody>”;
echo “<tr><th><font color=white><b>Codon</b></font></th><th><font color=white><b>Jumlah</b></font></th></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>AAA</td><td align=right bgcolor=#ffffff>”.$nAAA.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>ACA</td><td align=right bgcolor=#ffffff>”.$nACA.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>AGA</td><td align=right bgcolor=#ffffff>”.$nAGA.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>ATA</td><td align=right bgcolor=#ffffff>”.$nATA.”</td></tr>”;

echo “<tr><td align=center bgcolor=#ffffff>CAA</td><td align=right bgcolor=#ffffff>”.$nCAA.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>CCA</td><td align=right bgcolor=#ffffff>”.$nCCA.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>CGA</td><td align=right bgcolor=#ffffff>”.$nCGA.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>CTA</td><td align=right bgcolor=#ffffff>”.$nCTA.”</td></tr>”;

echo “<tr><td align=center bgcolor=#ffffff>GAA</td><td align=right bgcolor=#ffffff>”.$nGAA.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>GCA</td><td align=right bgcolor=#ffffff>”.$nGCA.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>GGA</td><td align=right bgcolor=#ffffff>”.$nGGA.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>GTA</td><td align=right bgcolor=#ffffff>”.$nGTA.”</td></tr>”;

echo “<tr><td align=center bgcolor=#ffffff>TAA</td><td align=right bgcolor=#ffffff>”.$nTAA.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>TCA</td><td align=right bgcolor=#ffffff>”.$nTCA.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>TGA</td><td align=right bgcolor=#ffffff>”.$nTGA.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>TTA</td><td align=right bgcolor=#ffffff>”.$nTTA.”</td></tr>”;
echo “</tr></tbody></table></td>”;

echo “<td><table width=80% align=center bgcolor=#ffcc00><tbody>”;
echo “<tr><th><font color=white><b>Codon</b></font></th><th><font color=white><b>Jumlah</b></font></th></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>AAC</td><td align=right bgcolor=#ffffff>”.$nAAC.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>ACC</td><td align=right bgcolor=#ffffff>”.$nACC.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>AGC</td><td align=right bgcolor=#ffffff>”.$nAGC.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>ATC</td><td align=right bgcolor=#ffffff>”.$nATC.”</td></tr>”;

echo “<tr><td align=center bgcolor=#ffffff>CAC</td><td align=right bgcolor=#ffffff>”.$nCAC.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>CCC</td><td align=right bgcolor=#ffffff>”.$nCCC.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>CGC</td><td align=right bgcolor=#ffffff>”.$nCGC.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>CTC</td><td align=right bgcolor=#ffffff>”.$nCTC.”</td></tr>”;

echo “<tr><td align=center bgcolor=#ffffff>GAC</td><td align=right bgcolor=#ffffff>”.$nGAC.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>GCC</td><td align=right bgcolor=#ffffff>”.$nGCC.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>GGC</td><td align=right bgcolor=#ffffff>”.$nGGC.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>GTC</td><td align=right bgcolor=#ffffff>”.$nGTC.”</td></tr>”;

echo “<tr><td align=center bgcolor=#ffffff>TAC</td><td align=right bgcolor=#ffffff>”.$nTAC.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>TCC</td><td align=right bgcolor=#ffffff>”.$nTCC.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>TGC</td><td align=right bgcolor=#ffffff>”.$nTGC.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>TTC</td><td align=right bgcolor=#ffffff>”.$nTTC.”</td></tr>”;
echo “</tbody></table></td>”;

echo “<td><table width=80% align=center bgcolor=#ffcc00><tbody>”;
echo “<tr><th><font color=white><b>Codon</b></font></th><th><font color=white><b>Jumlah</b></font></th></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>AAG</td><td align=right bgcolor=#ffffff>”.$nAAG.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>ACG</td><td align=right bgcolor=#ffffff>”.$nACG.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>AGG</td><td align=right bgcolor=#ffffff>”.$nAGG.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>ATG</td><td align=right bgcolor=#ffffff>”.$nATG.”</td></tr>”;

echo “<tr><td align=center bgcolor=#ffffff>CAG</td><td align=right bgcolor=#ffffff>”.$nCAG.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>CCG</td><td align=right bgcolor=#ffffff>”.$nCCG.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>CGG</td><td align=right bgcolor=#ffffff>”.$nCGG.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>CTG</td><td align=right bgcolor=#ffffff>”.$nCTG.”</td></tr>”;

echo “<tr><td align=center bgcolor=#ffffff>GAG</td><td align=right bgcolor=#ffffff>”.$nGAG.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>GCG</td><td align=right bgcolor=#ffffff>”.$nGCG.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>GGG</td><td align=right bgcolor=#ffffff>”.$nGGG.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>GTG</td><td align=right bgcolor=#ffffff>”.$nGTG.”</td></tr>”;

echo “<tr><td align=center bgcolor=#ffffff>TAG</td><td align=right bgcolor=#ffffff>”.$nTAG.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>TCG</td><td align=right bgcolor=#ffffff>”.$nTCG.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>TGG</td><td align=right bgcolor=#ffffff>”.$nTGG.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>TTG</td><td align=right bgcolor=#ffffff>”.$nTTG.”</td></tr>”;
echo “</tbody></table></td>”;

echo “<td><table width=80% align=center bgcolor=#ffcc00><tbody>”;
echo “<tr><th><font color=white><b>Codon</b></font></th><th><font color=white><b>Jumlah</b></font></th></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>AAT</td><td align=right bgcolor=#ffffff>”.$nAAT.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>ACT</td><td align=right bgcolor=#ffffff>”.$nACT.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>AGT</td><td align=right bgcolor=#ffffff>”.$nAGT.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>ATT</td><td align=right bgcolor=#ffffff>”.$nATT.”</td></tr>”;

echo “<tr><td align=center bgcolor=#ffffff>CAT</td><td align=right bgcolor=#ffffff>”.$nCAT.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>CCT</td><td align=right bgcolor=#ffffff>”.$nCCT.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>CGT</td><td align=right bgcolor=#ffffff>”.$nCGT.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>CTT</td><td align=right bgcolor=#ffffff>”.$nCTT.”</td></tr>”;

echo “<tr><td align=center bgcolor=#ffffff>GAT</td><td align=right bgcolor=#ffffff>”.$nGAT.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>GCT</td><td align=right bgcolor=#ffffff>”.$nGCT.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>GGT</td><td align=right bgcolor=#ffffff>”.$nGGT.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>GTT</td><td align=right bgcolor=#ffffff>”.$nGTT.”</td></tr>”;

echo “<tr><td align=center bgcolor=#ffffff>TAT</td><td align=right bgcolor=#ffffff>”.$nTAT.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>TCT</td><td align=right bgcolor=#ffffff>”.$nTCT.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>TGT</td><td align=right bgcolor=#ffffff>”.$nTGT.”</td></tr>”;
echo “<tr><td align=center bgcolor=#ffffff>TTT</td><td align=right bgcolor=#ffffff>”.$nTTT.”</td></tr>”;
echo “</tbody></table></td>”;

echo “</tr></tbody></table><br><br>”;

?>