六、参考文献 I 11 Brain Hayes(30). The Invention of the Genetic Code American Scientist--Computing Science, Jan.-Feb. 1998 2|萧树铁主编.数学实验,北京:高等教育出版社,1999 3丨复旦大学.概率论第二册数理统计,北京:高等教育出版社,1985 I4| William h. Lucas主编.生命科学模型。长沙:国防科技大学出版社,19 5徐光煇主编.运筹学基础手册.北京:科学出版社,1999 I6|姜启源主编.数学模型.北京:高等教育出版社,1993 七、附录 附录-1个字符出现频率的计算程序 CHARACTERI2I LINE(40) integer a, c, t,g, at READ*LINE DO20I=1,40 iiii+20 DO10I=1,121 IF(LINE(D)(: D).EQ a)THEN A=A+1 else if(line(ii)(: ).eq e)then c=c+1 else if(line(i(: I).eq 't')then else if(line(ii(: I).eq. g)then END IF 10 continue actg=a+c+t+g六、参考文献 [１] Brain Hayes(美)．The Invention of the Genetic Code． American Scientist—Computing Science，Jan.-Feb., 1998 [２] 萧树铁 主编．数学实验．北京：高等教育出版社，1999 [３] 复旦大学．概率论第二册—数理统计．北京：高等教育出版社，1985 [４] William F. Lucas 主编．生命科学模型。长沙：国防科技大学出版社，1996 [５] 徐光煇 主编．运筹学基础手册．北京：科学出版社，1999 [６] 姜启源 主编．数学模型．北京：高等教育出版社，1993 七、附录 附录一 1 个字符出现频率的计算程序] CHARACTER*121 LINE(40) integer a,c,t,g,at READ*,LINE DO 20 II=1,40 iii=ii+20 A=0 C=0 T=0 G=0 DO 10 I=1,121 IF(LINE(ii)(I:I).EQ.’a’)THEN A=A+1 else if(line(ii)(I:I).eq.’c’)then c=c+1 else if(line(ii)(I:I).eq.’t’)then t=t+1 else if(line(ii)(I:I).eq.’g’)then g=g+1 END IF 10 continue at=a+t actg=a+c+t+g aa=a/actg*100