Open main menu

Biolecture.org β

Changes

Perl code-CSH

9 bytes added, 22:11, 16 June 2016
no edit summary
use warnings;<br />
my @Base = (&quot;T&quot;,&quot;C&quot;,&quot;A&quot;,&quot;G&quot;);<br />
my @Prot = (&nbsp; &nbsp;&quot;F&quot;,&quot;F&quot;,&quot;L&quot;,&quot;L&quot;,&quot;LS&quot;,&quot;LS&quot;,&quot;LS&quot;,&quot;LS&quot;,<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;IY&quot;,&quot;IY&quot;,&quot;I*&quot;,&quot;M*&quot;,&quot;VC&quot;,&quot;VC&quot;,&quot;V*&quot;,&quot;VW&quot;,<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;SL&quot;,&quot;SL&quot;,&quot;SL&quot;,&quot;SL&quot;,&quot;P&quot;,&quot;P&quot;,&quot;P&quot;,&quot;P&quot;,<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;TH&quot;,&quot;TH&quot;,&quot;TQ&quot;,&quot;TQ&quot;,&quot;AR&quot;,&quot;AR&quot;,&quot;AR&quot;,&quot;AR&quot;,<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;YI&quot;,&quot;YI&quot;,&quot;*I&quot;,&quot;*M&quot;,&quot;HT&quot;,&quot;HT&quot;,&quot;QT&quot;,&quot;QT&quot;,<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;N&quot;,&quot;N&quot;,&quot;K&quot;,&quot;K&quot;,&quot;DS&quot;,&quot;DS&quot;,&quot;ER&quot;,&quot;ER&quot;,<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;CV&quot;,&quot;CV&quot;,&quot;*V&quot;,&quot;WV&quot;,&quot;RA&quot;,&quot;RA&quot;,&quot;RA&quot;,&quot;RA&quot;,<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;SD&quot;,&quot;SD&quot;,&quot;RE&quot;,&quot;RE&quot;,&quot;G&quot;,&quot;G&quot;,&quot;G&quot;,&quot;G&quot;);</p>
<p>for (my $A = 0; $A &lt;=3; $A++){<br />
<p>$ perl triplet_code.pl<br />
TTT=F &nbsp; TTC=F &nbsp; TTA=L &nbsp; TTG=L &nbsp; TCT=L S &nbsp; TCC=L S &nbsp; TCA=L S &nbsp; TCG=L S &nbsp; TAT=I Y &nbsp; TAC=I &nbsp; TAAYTAA=I * &nbsp; TAG=M * &nbsp; TGT=V C &nbsp; TGC=V C &nbsp; TGA=V * &nbsp; TGG=V W &nbsp; CTT=S L &nbsp; CTC=S L &nbsp; CTA=S L &nbsp; CTG=S &nbsp; CCTLCCT=P &nbsp; CCC=P &nbsp; CCA=P &nbsp; CCG=P &nbsp;CAT=T H &nbsp;CAC=T H &nbsp;CAA=T Q &nbsp; CAG=T Q &nbsp;CGT=A R &nbsp;CGC=A &nbsp;CGARCGA=A R &nbsp;CGG=A R &nbsp;ATT=Y I &nbsp;ATC=Y I &nbsp;ATA=* &nbsp; I &nbsp;ATG=* M &nbsp; ACT=H T &nbsp; ACC=H T &nbsp; ACA=Q T &nbsp;ACG=Q &nbsp;AATTAAT=N &nbsp;AAC=N &nbsp;AAA=K &nbsp;AAG=K &nbsp; AGT=D S &nbsp;AGC=D S &nbsp; AGA=E R &nbsp;AGG=R &nbsp;AGG=E GTT=C V &nbsp;GTC=C &nbsp;GTAVGTA=* V &nbsp; GTG=W V &nbsp;GCT=R A &nbsp;GCC=R A &nbsp;GCA=R A &nbsp;GCG=R A &nbsp; GAT=S D &nbsp;GAC=S D &nbsp; GAA=R E &nbsp;GAG=R &nbsp;GGTEGGT=G &nbsp; GGC=G &nbsp; GGA=G &nbsp;GGG=G<br /><img alt="" src="/ckfinder/userfiles/images/triplet%EC%BA%A1%EC%B2%98(3).PNG" style="height:137px158px; width:854px775px" /></p>