遗传密码子翻译程序

《遗传密码子翻译程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、遗传密码子翻译程序遗传密码子翻译程序(图片选自http://hi.baidu.com/%E8%A4%E6%C3/album/item/48fbbfec1a1c616e279791ca.html#以及http://www.pep.com.cn/gzsw/jshzhx/tbziy/kbshy/jsjb/bixe/201009/t20100913_890042.htm)制作人：山东省聊城第一中学张凯第13页遗传密码子翻译程序【实践背景】随着人类基因组计划的进展，以及多种生物基因组测序工作的完成，人类跨入了

2、后基因组和蛋白质组时代。虽然DNA是主要的遗传物质，控制着生物蛋白质的合成以及生物性状的表达，但是，如果要想由DNA的序列推测生物的性状，还需要对DNA与蛋白质之间的关系进行研究。而要完成这一研究，首先最基本的就是将DNA序列所代表的蛋白质表示出来。由于DNA上的基因众多，如果仅仅靠人工翻译的话效率很低。因此，在学习了相关的生物知识以后，我想到了使用计算机程序对DNA所代表的蛋白质进行高效，大批量的转换。关键词：计算机程序遗传密码子翻译蛋白质【实践目的】通过编写计算机程序实现将遗传密码子转换为其表达

3、的蛋白质。【实践步骤】1．如下图为人教版高中生物必修2课本中的记录遗传密码子与蛋白质一一对应关系的表格。由于其格式不方便编写程序，因此我将其整理成为了另一种形式（见下图）。第13页遗传密码子翻译程序(图片选自http://www.pep.com.cn/gzsw/jshzhx/tbziy/kbshy/jsjb/bixe/201009/t20100913_890043.htm)整理后的形式：蛋白质遗传密码子苯丙氨酸UUU,UUC亮氨酸UUA,UUG,CUU,CUC,CUA,CUG丝氨酸UCU,UCC,U

4、CA,UCG,AGU,AGC酪氨酸UAU,UAC半胱氨酸UGU,UGC脯氨酸CCU,CCC,CCA,CCG组氨酸CAU,CAC谷氨酰胺CAA,CAG第13页遗传密码子翻译程序精氨酸CGU,CGC,CGA,CGG,AGA,AGG异亮氨酸AUU,AUC,AUA甲硫氨酸AUG苏氨酸ACU,ACC,ACA,ACG天冬酰胺AAU,AAC天冬氨酸GAU,GAC赖氨酸AAA,AAG缬氨酸GUU,GUC,GUA,GUG丙氨酸GCU,GCC,GCA,GCG谷氨酸GAA,GAG甘氨酸GGU,GGC,GGA,GGG色氨酸

5、UGG终止UAA,UAG,UGA1．接下来就是用计算机程序解决问题。由于C++语言代码的简洁性以及运行的高效性，我决定使用DevC++进行工程设计。程序的核心代码见附录。2．用计算机程序制作大规模输入文件，测试程序性能。制作输入文件的程序如下：#includecharans[5];intmain(){freopen("juage.txt","w",stdout);第13页遗传密码子翻译程序ans[1]='U';ans[2]='A';ans[3]='C';ans[4]='G';for

6、(shorti=1;i<=10000;i++)for(shortj=1;j<=4;j++)for(shortk=1;k<=4;k++)for(shortl=1;l<=4;l++){if(ans[j]=='U'&&ans[k]=='A'&&ans[l]=='A')continue;if(ans[j]=='U'&&ans[k]=='A'&&ans[l]=='G')continue;if(ans[j]=='U'&&ans[k]=='G'&&ans[l]=='A')continue;printf("%c%c

7、%c",ans[j],ans[k],ans[l]);}}【实践总结】经过初步测试之后，程序运行情况良好。虽然目前输入文件仍然是随机制作的，但如果将其应用于实践中，如果通过DNA测序仪可以测出一种生物的DNA序列，进而可以将其转换为遗传密码子的形式，应用这个程序就可以快速的将其转换为蛋白质的形式，从而为研究蛋白质与生物性状之间的关系提供方便。第13页遗传密码子翻译程序【附录】#includeusingnamespacestd;charf='0';chars[255];FILE*

8、f1,*f2,*f3;boolend(){if(strcmp(s,"UAA")==0

9、

10、strcmp(s,"UAG")==0

11、

12、strcmp(s,"UGA")==0)return(true);return(false);}voidjuage(){if(end()){if(f=='1')printf("%s","（终止）");elsefprintf(f1,"%s","（终止）");return;}if(strcmp(s,"UUU")==0

13、

14、strcmp(s,"