yanzhengshuangzifu.m

数学建模竞赛：DNA序列的分析

a2=[9.00900900900901E-02 .036036036036036 9.00900900900901E-02 8.10810810810811E-02 .045045045045045 .036036036036036 9.00900900900901E-03 .045045045045045 .036036036036036 .036036036036036 .018018018018018 8.10810810810811E-02 .117117117117117 .027027027027027 5.40540540540541E-02 .189189189189189 
9.90990990990991E-02 .036036036036036 7.20720720720721E-02 5.40540540540541E-02 .027027027027027 5.40540540540541E-02 .018018018018018 5.40540540540541E-02 .045045045045045 .018018018018018 9.00900900900901E-03 9.00900900900901E-02 9.90990990990991E-02 .045045045045045 5.40540540540541E-02 .216216216216216 
5.40540540540541E-02 .036036036036036 .117117117117117 5.40540540540541E-02 .027027027027027 9.00900900900901E-03 .018018018018018 9.00900900900901E-03 5.40540540540541E-02 9.00900900900901E-03 9.00900900900901E-03 .144144144144144 .135135135135135 9.00900900900901E-03 7.20720720720721E-02 .234234234234234 
.189189189189189 .117117117117117 5.40540540540541E-02 5.40540540540541E-02 .108108108108108 .108108108108108 .018018018018018 5.40540540540541E-02 5.40540540540541E-02 .018018018018018 9.00900900900901E-03 .027027027027027 6.30630630630631E-02 .045045045045045 .027027027027027 .045045045045045 
6.30630630630631E-02 .018018018018018 8.10810810810811E-02 7.20720720720721E-02 .018018018018018 .036036036036036 .027027027027027 .027027027027027 5.40540540540541E-02 .045045045045045 .027027027027027 .108108108108108 9.90990990990991E-02 9.00900900900901E-03 9.00900900900901E-02 .216216216216216 
.153153153153153 6.30630630630631E-02 .027027027027027 9.90990990990991E-02 .036036036036036 5.40540540540541E-02 .018018018018018 .018018018018018 .045045045045045 0 0 8.10810810810811E-02 .108108108108108 9.00900900900901E-03 8.10810810810811E-02 .198198198198198 
.153153153153153 .108108108108108 .018018018018018 7.20720720720721E-02 .045045045045045 5.40540540540541E-02 .027027027027027 6.30630630630631E-02 9.00900900900901E-03 .018018018018018 9.00900900900901E-03 6.30630630630631E-02 .135135135135135 9.00900900900901E-03 .045045045045045 .162162162162162 
8.10810810810811E-02 6.30630630630631E-02 .036036036036036 9.90990990990991E-02 5.40540540540541E-02 7.20720720720721E-02 .036036036036036 .027027027027027 .027027027027027 .036036036036036 .018018018018018 8.10810810810811E-02 .108108108108108 .018018018018018 7.20720720720721E-02 .162162162162162 
9.00900900900901E-02 .045045045045045 9.00900900900901E-03 6.30630630630631E-02 0 .045045045045045 .036036036036036 7.20720720720721E-02 .036036036036036 .027027027027027 .027027027027027 .117117117117117 7.20720720720721E-02 .036036036036036 .135135135135135 .18018018018018 
6.36363636363636E-02 1.81818181818182E-02 3.63636363636364E-02 6.36363636363636E-02 1.81818181818182E-02 3.63636363636364E-02 5.45454545454545E-02 2.72727272727273E-02 5.45454545454545E-02 3.63636363636364E-02 4.54545454545455E-02 .136363636363636 4.54545454545455E-02 3.63636363636364E-02 .136363636363636 .181818181818182]
b2=[.154545454545455 .145454545454545 2.72727272727273E-02 2.72727272727273E-02 .163636363636364 .3 9.09090909090909E-03 1.81818181818182E-02 9.09090909090909E-03 9.09090909090909E-03 9.09090909090909E-03 1.81818181818182E-02 2.72727272727273E-02 4.54545454545455E-02 0 2.72727272727273E-02 
.136363636363636 .109090909090909 9.09090909090909E-03 6.36363636363636E-02 .154545454545455 .309090909090909 1.81818181818182E-02 1.81818181818182E-02 9.09090909090909E-03 9.09090909090909E-03 0 9.09090909090909E-03 2.72727272727273E-02 7.27272727272727E-02 0 4.54545454545455E-02 
6.36363636363636E-02 .1 4.54545454545455E-02 4.54545454545455E-02 .127272727272727 .345454545454545 1.81818181818182E-02 2.72727272727273E-02 2.72727272727273E-02 2.72727272727273E-02 1.81818181818182E-02 1.81818181818182E-02 3.63636363636364E-02 4.54545454545455E-02 1.81818181818182E-02 2.72727272727273E-02 
8.18181818181818E-02 .127272727272727 9.09090909090909E-03 7.27272727272727E-02 .136363636363636 .281818181818182 6.36363636363636E-02 1.81818181818182E-02 2.72727272727273E-02 4.54545454545455E-02 0 9.09090909090909E-03 5.45454545454545E-02 4.54545454545455E-02 9.09090909090909E-03 9.09090909090909E-03 
.136363636363636 .127272727272727 0 1.81818181818182E-02 .136363636363636 .481818181818182 0 2.72727272727273E-02 0 0 0 0 1.81818181818182E-02 3.63636363636364E-02 0 9.09090909090909E-03 
.163636363636364 .154545454545455 3.63636363636364E-02 9.09090909090909E-03 .136363636363636 .227272727272727 4.54545454545455E-02 4.54545454545455E-02 1.81818181818182E-02 5.45454545454545E-02 0 9.09090909090909E-03 4.54545454545455E-02 2.72727272727273E-02 0 1.81818181818182E-02 
.172727272727273 .109090909090909 5.45454545454545E-02 1.81818181818182E-02 .1 5.45454545454545E-02 6.36363636363636E-02 4.54545454545455E-02 4.54545454545455E-02 7.27272727272727E-02 9.09090909090909E-02 2.72727272727273E-02 3.63636363636364E-02 2.72727272727273E-02 3.63636363636364E-02 3.63636363636364E-02 
8.18181818181818E-02 .118181818181818 7.27272727272727E-02 1.81818181818182E-02 .154545454545455 .309090909090909 1.81818181818182E-02 9.09090909090909E-03 3.63636363636364E-02 3.63636363636364E-02 1.81818181818182E-02 2.72727272727273E-02 1.81818181818182E-02 3.63636363636364E-02 9.09090909090909E-03 2.72727272727273E-02 
2.72727272727273E-02 .136363636363636 2.72727272727273E-02 1.81818181818182E-02 .145454545454545 .318181818181818 9.09090909090909E-02 9.09090909090909E-03 1.81818181818182E-02 8.18181818181818E-02 1.81818181818182E-02 2.72727272727273E-02 2.72727272727273E-02 2.72727272727273E-02 9.09090909090909E-03 9.09090909090909E-03 
6.36363636363636E-02 6.36363636363636E-02 6.36363636363636E-02 9.09090909090909E-03 9.09090909090909E-02 .327272727272727 .1 3.63636363636364E-02 2.72727272727273E-02 .136363636363636 9.09090909090909E-03 0 1.81818181818182E-02 3.63636363636364E-02 0 9.09090909090909E-03]
c2=[9.00900900900901E-02 .036036036036036 9.00900900900901E-02 8.10810810810811E-02 .045045045045045 .036036036036036 9.00900900900901E-03 .045045045045045 .036036036036036 .036036036036036 .018018018018018 8.10810810810811E-02 .117117117117117 .027027027027027 5.40540540540541E-02 .189189189189189 
9.90990990990991E-02 .036036036036036 7.20720720720721E-02 5.40540540540541E-02 .027027027027027 5.40540540540541E-02 .018018018018018 5.40540540540541E-02 .045045045045045 .018018018018018 9.00900900900901E-03 9.00900900900901E-02 9.90990990990991E-02 .045045045045045 5.40540540540541E-02 .216216216216216 
5.40540540540541E-02 .036036036036036 .117117117117117 5.40540540540541E-02 .027027027027027 9.00900900900901E-03 .018018018018018 9.00900900900901E-03 5.40540540540541E-02 9.00900900900901E-03 9.00900900900901E-03 .144144144144144 .135135135135135 9.00900900900901E-03 7.20720720720721E-02 .234234234234234 
.189189189189189 .117117117117117 5.40540540540541E-02 5.40540540540541E-02 .108108108108108 .108108108108108 .018018018018018 5.40540540540541E-02 5.40540540540541E-02 .018018018018018 9.00900900900901E-03 .027027027027027 6.30630630630631E-02 .045045045045045 .027027027027027 .045045045045045 
6.30630630630631E-02 .018018018018018 8.10810810810811E-02 7.20720720720721E-02 .018018018018018 .036036036036036 .027027027027027 .027027027027027 5.40540540540541E-02 .045045045045045 .027027027027027 .108108108108108 9.90990990990991E-02 9.00900900900901E-03 9.00900900900901E-02 .216216216216216 
.153153153153153 6.30630630630631E-02 .027027027027027 9.90990990990991E-02 .036036036036036 5.40540540540541E-02 .018018018018018 .018018018018018 .045045045045045 0 0 8.10810810810811E-02 .108108108108108 9.00900900900901E-03 8.10810810810811E-02 .198198198198198 
.153153153153153 .108108108108108 .018018018018018 7.20720720720721E-02 .045045045045045 5.40540540540541E-02 .027027027027027 6.30630630630631E-02 9.00900900900901E-03 .018018018018018 9.00900900900901E-03 6.30630630630631E-02 .135135135135135 9.00900900900901E-03 .045045045045045 .162162162162162 
8.10810810810811E-02 6.30630630630631E-02 .036036036036036 9.90990990990991E-02 5.40540540540541E-02 7.20720720720721E-02 .036036036036036 .027027027027027 .027027027027027 .036036036036036 .018018018018018 8.10810810810811E-02 .108108108108108 .018018018018018 7.20720720720721E-02 .162162162162162 
9.00900900900901E-02 .045045045045045 9.00900900900901E-03 6.30630630630631E-02 0 .045045045045045 .036036036036036 7.20720720720721E-02 .036036036036036 .027027027027027 .027027027027027 .117117117117117 7.20720720720721E-02 .036036036036036 .135135135135135 .18018018018018 
6.36363636363636E-02 1.81818181818182E-02 3.63636363636364E-02 6.36363636363636E-02 1.81818181818182E-02 3.63636363636364E-02 5.45454545454545E-02 2.72727272727273E-02 5.45454545454545E-02 3.63636363636364E-02 4.54545454545455E-02 .136363636363636 4.54545454545455E-02 3.63636363636364E-02 .136363636363636 .181818181818182
.154545454545455 .145454545454545 2.72727272727273E-02 2.72727272727273E-02 .163636363636364 .3 9.09090909090909E-03 1.81818181818182E-02 9.09090909090909E-03 9.09090909090909E-03 9.09090909090909E-03 1.81818181818182E-02 2.72727272727273E-02 4.54545454545455E-02 0 2.72727272727273E-02 
.136363636363636 .109090909090909 9.09090909090909E-03 6.36363636363636E-02 .154545454545455 .309090909090909 1.81818181818182E-02 1.81818181818182E-02 9.09090909090909E-03 9.09090909090909E-03 0 9.09090909090909E-03 2.72727272727273E-02 7.27272727272727E-02 0 4.54545454545455E-02 
6.36363636363636E-02 .1 4.54545454545455E-02 4.54545454545455E-02 .127272727272727 .345454545454545 1.81818181818182E-02 2.72727272727273E-02 2.72727272727273E-02 2.72727272727273E-02 1.81818181818182E-02 1.81818181818182E-02 3.63636363636364E-02 4.54545454545455E-02 1.81818181818182E-02 2.72727272727273E-02 
8.18181818181818E-02 .127272727272727 9.09090909090909E-03 7.27272727272727E-02 .136363636363636 .281818181818182 6.36363636363636E-02 1.81818181818182E-02 2.72727272727273E-02 4.54545454545455E-02 0 9.09090909090909E-03 5.45454545454545E-02 4.54545454545455E-02 9.09090909090909E-03 9.09090909090909E-03 
.136363636363636 .127272727272727 0 1.81818181818182E-02 .136363636363636 .481818181818182 0 2.72727272727273E-02 0 0 0 0 1.81818181818182E-02 3.63636363636364E-02 0 9.09090909090909E-03 
.163636363636364 .154545454545455 3.63636363636364E-02 9.09090909090909E-03 .136363636363636 .227272727272727 4.54545454545455E-02 4.54545454545455E-02 1.81818181818182E-02 5.45454545454545E-02 0 9.09090909090909E-03 4.54545454545455E-02 2.72727272727273E-02 0 1.81818181818182E-02 
.172727272727273 .109090909090909 5.45454545454545E-02 1.81818181818182E-02 .1 5.45454545454545E-02 6.36363636363636E-02 4.54545454545455E-02 4.54545454545455E-02 7.27272727272727E-02 9.09090909090909E-02 2.72727272727273E-02 3.63636363636364E-02 2.72727272727273E-02 3.63636363636364E-02 3.63636363636364E-02 
8.18181818181818E-02 .118181818181818 7.27272727272727E-02 1.81818181818182E-02 .154545454545455 .309090909090909 1.81818181818182E-02 9.09090909090909E-03 3.63636363636364E-02 3.63636363636364E-02 1.81818181818182E-02 2.72727272727273E-02 1.81818181818182E-02 3.63636363636364E-02 9.09090909090909E-03 2.72727272727273E-02 
2.72727272727273E-02 .136363636363636 2.72727272727273E-02 1.81818181818182E-02 .145454545454545 .318181818181818 9.09090909090909E-02 9.09090909090909E-03 1.81818181818182E-02 8.18181818181818E-02 1.81818181818182E-02 2.72727272727273E-02 2.72727272727273E-02 2.72727272727273E-02 9.09090909090909E-03 9.09090909090909E-03 
6.36363636363636E-02 6.36363636363636E-02 6.36363636363636E-02 9.09090909090909E-03 9.09090909090909E-02 .327272727272727 .1 3.63636363636364E-02 2.72727272727273E-02 .136363636363636 9.09090909090909E-03 0 1.81818181818182E-02 3.63636363636364E-02 0 9.09090909090909E-03]



juna2=mean(a2)
junb2=mean(b2)
for m=1:20
sb2=c2(m,:)-junb2
sa2=c2(m,:)-juna2
   if (sum(sb2.*sb2)/4)^(1/2)>(sum(sa2.*sa2)/4)^(1/2)
 
         out='A'
   else
         out='B'
   end
end