数学建模b题完整程序.docx
《数学建模b题完整程序.docx》由会员分享，可在线阅读，更多相关《数学建模b题完整程序.docx（20页珍藏版）》请在冰豆网上搜索。
数学建模b题完整程序
[num,data]=xlsread（'F:
\建模\cumcm2011Problems中文版\B\cumcm2011B附件2_全市六区交通网路和平台设置的数据表.xlsx'）
x=num（:
2）
y=num（:
3）
plot（x,y,'r.'）
[num1,data1]=xlsread（'F:
\建模\cumcm2011Problems中文版\B\cumcm2011B附件2_全市六区交通网路和平台设置的数据表.xlsx'）
[num2,data2]=xlsread（'F:
\建模\cumcm2011Problems中文版\B\cumcm2011B附件2_全市六区交通网路和平台设置的数据表.xlsx','全市交通路口的路线'）
x
y
z
n
path
num
z=data[:
4]
data
z=data[:
4]
data[:
4]
date
data
z=data（:
4）
holdon
fori=1:
length（x）
if（strcmp（z
（1）,'A'））
plot（x（i）,y（i）,'.'）
end
end
holdon
fori=1:
length（x）
if（strcmp（z
（1）,'A'））
plot（x（i）,y（i）,'.'）
end
end
holdon
fori=1:
length（x）
if（strcmp（z（i）,'A'））
plot（x（i）,y（i）,'.'）
end
end
z=z（2:
end）
holdon
fori=1:
length（x）
if（strcmp（z（i）,'A'））
plot（x（i）,y（i）,'.'）
end
end
holdon
fori=1:
length（x）
if（strcmp（z（i）,'A'））
plot（x（i）,y（i）,'.'）
end
end
[num1,data1]=xlsread（'C:
\Users\yaokaiqian\Desktop\cumcm2011Problems中文版\B\cumcm2011B附件2_全市六区交通网路和平台设置的数据表.xls'）
[num2,data2]=xlsread（'C:
\Users\yaokaiqian\Desktop\cumcm2011Problems中文版\B\cumcm2011B附件2_全市六区交通网路和平台设置的数据表.xls','全市交通路口的路线'）
m=num1（:
6）
m=num（:
6）
[num1,data1]=xlsread（'C:
\Users\yaokaiqian\Desktop\cumcm2011Problems中文版\B\cumcm2011B附件2_全市六区交通网路和平台设置的数据表.xls'）
m=num1（:
6）
n=num1（:
7）
holdon
fori=1:
length（x）
if（strcmp（z（i）,'A'））
plot（x（i）,y（i）,'.'）;
if（m（i）==1）
plot（x（i）,y（i）,'ro'）;
end
if（n（i）==1）
plot（x（i）,y（i）,'r*'）;
end
end
end
line1=num2（:
1）
line2=num2（:
2）
holdon
fori=1:
length（x）
if（strcmp（z（i）,'A'））
plot（x（i）,y（i）,'.'）;
if（m（i）==1）
plot（x（i）,y（i）,'ro'）;
end
if（n（i）==1）
plot（x（i）,y（i）,'r*'）;
end
end
end
fori=1:
length（line1）
if（line1（i）<=92）
if（line2（i）<=92）
line（[x（line1（i））,x（line2（i））],[y（line1（i））,y（line2（i））]）;
end
end
end
holdon
fori=1:
length（x）
if（strcmp（z（i）,'A'））
plot（x（i）,y（i）,'.'）;
if（m（i）==1）
plot（x（i）,y（i）,'ro'）;
end
if（n（i）==1）
plot（x（i）,y（i）,'r*'）;
end
text（x（i）,y（i）,num2str（i））;
end
end%%%%%%差一个点就OK了
fori=1:
length（line1）
if（line1（i）<=92）
if（line2（i）<=92）
line（[x（line1（i））,x（line2（i））],[y（line1（i））,y（line2（i））]）;
end
end
end----------------------
holdon
fori=1:
length（x）
plot（x（i）,y（i）,'.'）;
if（m（i）==1）
plot（x（i）,y（i）,'ro'）;
end
if（n（i）==1）
plot（x（i）,y（i）,'r*'）;
end
end
fori=1:
length（line1）
line（[x（line1（i））,x（line2（i））],[y（line1（i））,y（line2（i））]）;
end
end
holdon
fori=1:
length（x）
plot（x（i）,y（i）,'.'）;
if（m（i）==1）
plot（x（i）,y（i）,'ro'）;
end
if（n（i）==1）
plot（x（i）,y（i）,'r*'）;
end
end
fori=1:
length（line1）
line（[x（line1（i））,x（line2（i））],[y（line1（i））,y（line2（i））]）;
end
holdon
fori=1:
length（x）
plot（x（i）,y（i）,'.'）;
if（m（i）==1）
plot（x（i）,y（i）,'ro'）;
end
if（n（i）==1）
plot（x（i）,y（i）,'r*'）;
end
end
fori=1:
length（line1）
line（[x（line1（i））,x（line2（i））],[y（line1（i））,y（line2（i））]）;
end
holdon
fori=1:
length（x）
if（strcmp（z（i）,'A'））
plot（x（i）,y（i）,'.'）;
if（m（i）==1）
plot（x（i）,y（i）,'ro'）;
end
if（n（i）==1）
plot（x（i）,y（i）,'r*'）;
end
text（x（i）,y（i）,num2str（i））;
end
end
fori=1:
length（line1）
if（line1（i）<=92）
if（line2（i）<=92）
line（[x（line1（i））,x（line2（i））],[y（line1（i））,y（line2（i））]）;
end
end
end
holdon
fori=1:
length（x）
if（strcmp（z（i）,'A'））
plot（x（i）,y（i）,'.'）;
if（m（i）==1）
plot（x（i）,y（i）,'ro'）;
end
if（n（i）==1）
plot（x（i）,y（i）,'r*'）;
end
text（x（i）,y（i）,num2str（i））;
end
end
fori=1:
length（line1）
if（line1（i）<=92）
if（line2（i）<=92）
line（[x（line1（i））,x（line2（i））],[y（line1（i））,y（line2（i））]）;
end
end
end
holdon
fori=1:
length（x）
if（strcmp（z（i）,'A'））
plot（x（i）,y（i）,'.'）;
if（m（i）==1）
plot（x（i）,y（i）,'ro'）;
end
if（n（i）==1）
plot（x（i）,y（i）,'r*'）;
end
text（x（i）,y（i）,num2str（i））;
end
end
fori=1:
length（line1）
if（line1（i）<=92）
if（line2（i）<=92）
line（[x（line1（i））,x（line2（i））],[y（line1（i））,y（line2（i））]）;
end
end
end
fori=1:
length（line1）
line（[x（line1（i））,x（line2（i））],[y（line1（i））,y（line2（i））]）;
end
holdon
fori=1:
length（x）
plot（x（i）,y（i）,'.'）;
if（m（i）==1）
plot（x（i）,y（i）,'ro'）;
end
if（n（i）==1）
plot（x（i）,y（i）,'r*'）;
end
text（x（i）,y（i）,num2str（i））;end
end
fori=1:
length（line1）
line（[x（line1（i））,x（line2（i））],[y（line1（i））,y（line2（i））]）;
end---------------------全图
holdon
fori=1:
length（x）
plot（x（i）,y（i）,'.'）;
if（m（i）==1）
plot（x（i）,y（i）,'ro'）;
end
if（n（i）==1）
plot（x（i）,y（i）,'r*'）;
end
end
fori=1:
length（line1）
line（[x（line1（i））,x（line2（i））],[y（line1（i））,y（line2（i））]）;
end
tmp=cat
（2）
tmp1=1;
fori=1:
length（line1）
if（line1（i）<=92）
if（line2（i）<=92）
tmp（tmp1,1）=line1（i）
tmp（tmp1,2）=line2（i）
end
end
end
xlswrite（'tmp.xls',tmp）
holdon
fori=1:
length（x）
if（strcmp（z（i）,'A'））
plot（x（i）,y（i）,'.'）;
if（m（i）==1）
plot（x（i）,y（i）,'ro'）;
end
if（n（i）==1）
plot（x（i）,y（i）,'r*'）;
end
text（x（i）,y（i）,num2str（i））;
end
end
-----
fori=1:
length（line1）
if（line1（i）<=92）
if（line2（i）<=92）连线
line（[x（line1（i））,x（line2（i））],[y（line1（i））,y（line2（i））]）;
end
end
end
------
holdon
fori=1:
length（x）
plot（x（i）,y（i）,'.'）;
if（m（i）==1）
plot（x（i）,y（i）,'ro'）;描点
end
if（n（i）==1）
plot（x（i）,y（i）,'r*
升级会员 