Open main menu

Biolecture.org β

Changes

Perl change codon to AA

398 bytes removed, 18:57, 23 May 2016
no edit summary
&nbsp;&nbsp;&quot;V&quot;,&quot;V&quot;,&quot;V&quot;,&quot;V&quot;,&quot;A&quot;,&quot;A&quot;,&quot;A&quot;,&quot;A&quot;,&quot;D&quot;,&quot;D&quot;,&quot;E&quot;,&quot;E&quot;,&quot;G&quot;,&quot;G&quot;,&quot;G&quot;,&quot;G&quot;);</p>
<p>my %codon;<br />my $var;<br />my %result;</p> <p>for (my $i=0;$i&lt;4;$i++) {<br />
for (my $j=0;$j&lt;4;$j++) {<br />
for (my $k=0;$k&lt;4;$k++) {<br />&nbsp;$var=$bases[$i]. $bases[$j]. $bases[$k];<br />&nbsp;$codon{$var} = $AA[16*($i)+4*($j)+($k)];</p> <p>}}}</p>
<p><br />
&nbsp;print $bases[$i], $bases[$j], $bases[$k], &quot; &quot;,&nbsp; $AA[16*($i)+4*($j)+($k)]%codon , &quot;&nbsp; \n&quot;;<br /p>}}<br /p>print $codon{&quot;\nuuu&quot;};}</p>
<p>&nbsp;</p>
<hr />
<p>uuu F&nbsp; uuc F&nbsp; uua L&nbsp; uug L&nbsp; ucu S&nbsp; ucc S&nbsp; uca S&nbsp; ucg S&nbsp; uau Y&nbsp; uac Y&nbsp; uaa .&nbsp; uag gggGuucFgguGaugMccaPauuIaacNccuPggaGacuTucuSgcuAcuuLcguRuuuFguuVgccAcuaLaucIggcGgagE</p> <p>aauNcugLgauDaccTaagKuga.&nbsp; ugu C&nbsp; ugc C&nbsp; uga cgaRgcgAuuaLuaa.&nbsp; ugg WacgTgugVcauHuguCgcaAgucVuccSuacYagcSuauYucaS<br /p>cuu L&nbsp; cuc L&nbsp; cua L&nbsp; cug L&nbsp; ccu P&nbsp; ccc P&nbsp; cca P&nbsp; ccg P&nbsp; cau H&nbsp; cac H&nbsp; caa Q&nbsp; cag Q&nbsp; cgu R&nbsp; cgc R&nbsp; cga R&nbsp; cgg R<p>acaTuugLauaIccgPcacHgaaEgacDcagQcggRcccPaggRaguSuag.cgcRguaVuggWugcCucgSagaRcucLaaaKcaaQ<br /p>auu I&nbsp; auc I&nbsp; aua I&nbsp; aug M&nbsp; acu T&nbsp; acc T&nbsp; aca T&nbsp; acg T&nbsp; aau N&nbsp; aac N&nbsp; aaa K&nbsp; aag K&nbsp; agu S&nbsp; agc S&nbsp; aga R&nbsp; agg R<br /p>guu V&nbsp; guc V&nbsp; gua V&nbsp; gug V&nbsp; gcu A&nbsp; gcc A&nbsp; gca A&nbsp; gcg A&nbsp; gau D&nbsp; gac D&nbsp; gaa E&nbsp; gag E&nbsp; ggu G&nbsp; ggc G&nbsp; gga G&nbsp; ggg GF</p>
<p>&nbsp;</p>
Retrieved from "https://Biolecture.org/Special:MobileDiff/8871"