[Bio] / FigKernelPackages / NCBI_genetic_code.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/NCBI_genetic_code.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4, Sun Mar 4 00:51:51 2012 UTC revision 1.5, Wed Apr 22 16:54:56 2015 UTC
# Line 4  Line 4 
4  #  #
5    
6  #  #
7  # Copyright (c) 2003-2007 University of Chicago and Fellowship  # Copyright (c) 2003-2014 University of Chicago and Fellowship
8  # for Interpretations of Genomes. All Rights Reserved.  # for Interpretations of Genomes. All Rights Reserved.
9  #  #
10  # This file is part of the SEED Toolkit.  # This file is part of the SEED Toolkit.
# Line 40  Line 40 
40  #   \%is_stop_codon = $NCBI_genetic_code::is_stop_codon{ $n };  #   \%is_stop_codon = $NCBI_genetic_code::is_stop_codon{ $n };
41  #   \%is_stop_codon =  NCBI_genetic_code::is_stop_codon( $n );  #   \%is_stop_codon =  NCBI_genetic_code::is_stop_codon( $n );
42  #  #
43  #  The only difference in behaviour is that the subroutine defaults to code  #  The only difference in behaviour is that when no parameter is supplied the
44  #  number 1 when no parameter is supplied:  #  subroutine defaults to code number 11, but with only the three most common
45    #  bacterial and archaeal initiator codons:
46  #  #
47  #   \%genetic_code_1 =  NCBI_genetic_code::genetic_code();  #   \%genetic_code = NCBI_genetic_code::genetic_code();
48  #  #
49  #  All other invalid numbers return an undefined value.  #  All other invalid code numbers return an undefined value.
50  #  #
51    
52  use strict;  use strict;
# Line 105  Line 106 
106      }      }
107  }  }
108    
109  sub genetic_code      { $genetic_code{ $_[0]      || '1' } }  sub genetic_code      { $genetic_code{ $_[0]      || '0' } }
110  sub genetic_code_name { $genetic_code_name{ $_[0] || '1' } }  sub genetic_code_name { $genetic_code_name{ $_[0] || '0' } }
111  sub is_start_codon    { $is_start_codon{ $_[0]    || '1' } }  sub is_start_codon    { $is_start_codon{ $_[0]    || '0' } }
112  sub is_stop_codon     { $is_stop_codon{ $_[0]     || '1' } }  sub is_stop_codon     { $is_stop_codon{ $_[0]     || '0' } }
113    
114  1;  1;
115    
116  __DATA__  __DATA__
117    
118    0. The Standard Code with the most common bacterial and archaeal initiators (transl_table=0)
119    
120        AAs  = FFLLSSSSYY**CC*WLLLLPPPPHHQQRRRRIIIMTTTTNNKKSSRRVVVVAAAADDEEGGGG
121      Starts = ---M-------------------------------M---------------M------------
122      Base1  = TTTTTTTTTTTTTTTTCCCCCCCCCCCCCCCCAAAAAAAAAAAAAAAAGGGGGGGGGGGGGGGG
123      Base2  = TTTTCCCCAAAAGGGGTTTTCCCCAAAAGGGGTTTTCCCCAAAAGGGGTTTTCCCCAAAAGGGG
124      Base3  = TCAGTCAGTCAGTCAGTCAGTCAGTCAGTCAGTCAGTCAGTCAGTCAGTCAGTCAGTCAGTCAG
125    
126  1. The Standard Code (transl_table=1)  1. The Standard Code (transl_table=1)
127    
128      AAs  = FFLLSSSSYY**CC*WLLLLPPPPHHQQRRRRIIIMTTTTNNKKSSRRVVVVAAAADDEEGGGG      AAs  = FFLLSSSSYY**CC*WLLLLPPPPHHQQRRRRIIIMTTTTNNKKSSRRVVVVAAAADDEEGGGG

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3