function?main（）
clear?all
close?all
clc
%定義全局變量
global?chrom?oldpop?fitness?lchrom??popsize?cross_rate?mutation_rate?yuzhisum
global?maxgen??m?n?fit?gen?yuzhi?A?B?C?oldpop1?popsize1?b?b1?fitness1?yuzhi1
%讀入道路圖像
A=imread（‘road1.jpg‘）;?????
A=imresize（A0.4）;
B=rgb2gray（A）;??????%將RGB圖像轉化成灰度圖像
C=imresize（B0.1）;????%將讀入的圖像縮小
lchrom=8;??????%染色體長度
popsize=10;????%種群大小
cross_rate=0.7;??????%雜交概率
mutation_rate=0.4;????%變異概率
%最大代數
maxgen=150;????????????
[mn]=size（C）;
‘計算中請稍等...‘
%初始種群
initpop;???
%遺傳操作
for?gen=1:maxgen
????generation;??
end
findresult;?%圖像分割結果
%%%%%%輸出進化各曲線%%%%%%
figure;
gen=1:maxgen;
plot（genfit（1gen））;?
title（‘最佳適應度值進化曲線‘）;
figure;
plot（genyuzhi（1gen））;
title（‘每一代的最佳閾值進化曲線‘）;
%%%%%%初始化種群%%%%%%
function?initpop（）
global?lchrom?oldpop?

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????8087??2012-02-14?21:55??3.7?基于最大類間方差閾值與遺傳算法的道路分割\main.m

?????文件?????251936??2000-01-06?22:43??3.7?基于最大類間方差閾值與遺傳算法的道路分割\road1.JPG

?????文件?????493775??2005-10-25?15:56??3.7?基于最大類間方差閾值與遺傳算法的道路分割\road2.JPG

?????文件??????24064??2011-09-26?19:49??3.7?基于最大類間方差閾值與遺傳算法的道路分割\程序運行說明：.doc

?????目錄??????????0??2011-09-26?19:49??3.7?基于最大類間方差閾值與遺傳算法的道路分割

-----------?---------??----------?-----??----

???????????????777862????????????????????5