clear?all;

%<----------------------------!運用BP網絡進行圖像分類--------------------------->
%讀入樣本10即遙感圖像的背景
I=imread（‘10.jpg‘）;
%將樣本圖像降維處理
R=I（::1）;
G=I（::2）;
B=I（::3）;
%灰度值歸一化
R=im2double（R）;
G=im2double（G）;
B=im2double（B）;
[M?N]=size（R）;
R=reshape（R‘[1?M*N]）;
G=reshape（G‘[1?M*N]）;
B=reshape（B‘[1?M*N]）;
%初始化輸入矢量P和輸出矢量T
P=[];
T=[];
P=[R;G;B];
T=[0;0;0];
[m?n]=size（P）;
T=concur（Tn）;

%讀入樣本圖像0
I=imread（‘0.jpg‘）;
%將樣本圖像降維處理
R=I（::1）;
G=I（::2）;
B=I（::3）;
%灰度值歸一化
R=im2double（R）;
G=im2double（G）;
B=im2double（B）;
[M?N]=size（R）;
R=reshape（R‘[1?M*N]）;
G=reshape（G‘[1?M*N]）;
B=reshape（B‘[1?M*N]）;
P1=[R;G;B];
T1=[0.1;0.3;0.5];
P=[PP1];
[m?n]=size（P1）;
T1=concur（T1n）;
T=[TT1];

%讀入樣本圖像1
I=imread（‘1.jpg‘）;
%將樣本圖像降維處理
R=I（::1）;
G=I（::2）;
B=I（::3）;
%灰度值歸一化
R=im2double（R）;
G=im2double（G）;
B=im2double（B）;
[M?N]=size（R）;
R=reshape（R‘[1?M*N]）;
G=reshape（G‘[1?M*N]）;
B=reshape（B‘[1?M*N]）;
P1=[R;G;B];
T1=[0.2;0.4;0.6];
P=[PP1];
[m?n]=size（P1）;
T1=concur（T1n）;
T=[TT1];

%讀入樣本圖像2
I=imread（‘2.jpg‘）;
%將樣本圖像降維處理
R=I（::1）;
G=I（::2）;
B=I（::3）;
%灰度值歸一化
R=im2double（R）;
G=im2double（G）;
B=im2double（B）;
[M?N]=size（R）;
R=reshape（R‘[1?M*N]）;
G=reshape（G‘[1?M*N]）;
B=reshape（B‘[1?M*N]）;
P1=[R;G;B];
T1=[0.3;0.2;0.7];
P=[PP1];
[m?n]=size（P1）;
T1=concur（T1n）;
T=[TT1];

%讀入樣本圖像3
I=imread（‘3.jpg‘）;
%將樣本圖像降維處理
R=I（::1）;
G=I（::2）;
B=I（::3）;
%灰度值歸一化
R=im2double（R）;
G=im2double（G）;
B=im2double（B）;
[M?N]=size（R）;
R=reshape（R‘[1?M*N]）;
G=reshape（G‘[1?M*N]）;
B=reshape（B‘[1?M*N]）;
P1=[R;G;B];
T1=[0.4;0.4;0.7];
P=[PP1];
[m?n]=size（P1）;
T1=concur（T1n）;
T=[TT1];

%讀入樣本圖像4
I=imread（‘4.jpg‘）;
%將樣本圖像降維處理
R=I（::1）;
G=I（::2）;
B=I（::3）;
%灰度值歸一化
R=im2double（R）;
G=im2double（G）;
B=im2double（B）;
[M?N]=size（R）;
R=reshape（R‘[1?M*N]）;
G=reshape（G‘[1?M*N]）;
B=reshape（B‘[1?M*N]）;
P1=[R;G;B];
T1=[0.5;0.5;0.4];
P=[PP1];
[m?n]=size（P1）;
T1=concur（T1n）;
T=[TT1];

%讀入樣本圖像5
I=imread（‘5.jpg‘）;
%將樣本圖像降維處理
R=I（::1）;
G=I（::2）;
B=I（::3）;
%灰度值歸一化
R=im2double（R）;
G=im2double（G）;
B=im2double（B）;
[M?N]=size（R）;
R=reshape（R‘[1?M*N]）;
G=reshape（G‘[1?M*N]）;
B=reshape（B‘[1?M*N]）;
P1=[R;G;B];
T1=[0.6;0.9;0.2];
P=[PP1];
[m?n]=size（P1）;
T1=concur（T1n）;
T=[TT1];

%讀入樣本圖像6
I=imread（‘6.jpg‘）;
%將樣本圖像降維處理
R=I（::1）;
G=I（::2）;
B=I（::3）;
%灰度值歸一化
R=im2double（R）;
G=im2double（G）;
B=im2double（B）;
[M?N]=size（R）;
R=reshape（R‘[1?M*N]）;
G=reshape（G‘[1?M*N]）;
B=reshape（B‘[1?M*N]）;
P1=[R;G;B];
T1=[0.7;0.2;0.8];
P=[PP1];
[m?n]=size（P1）;
T1=concur（T1n）;
T=[TT1];

%讀入樣本圖像7
I=imread（‘7.jpg‘）;
%將樣本圖像降維處理
R=I（::1）;
G=I（::2）;
B=I（::3）;
%灰度值歸一化
R=im2double（R）;
G=im2double（G）;
B=im2double（B）;
[M?N]=size（R）;
R=reshape（R‘[1?M*N]）;
G=reshape（G‘[1?M*N]）;
B=reshape（B‘[1?M*N]）;
P1=[R;G;B];
T1=[0.8;0.3;0.5];
P=[PP1];
[m?n]=size（P1）;
T1=concur（T1n）;
T=[TT1];

%讀入樣本圖像8
I=imread（‘8.jpg‘

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

?????文件????????686??2009-04-26?11:41??10061700423?李琛?BP神經網絡作業\0.jpg

?????文件????????765??2009-04-26?12:19??10061700423?李琛?BP神經網絡作業\1.jpg

?????文件????????643??2009-04-26?23:30??10061700423?李琛?BP神經網絡作業\10.jpg

?????文件????????741??2009-04-26?12:21??10061700423?李琛?BP神經網絡作業\2.jpg

?????文件????????644??2009-04-30?23:40??10061700423?李琛?BP神經網絡作業\3.jpg

?????文件????????782??2009-04-26?12:14??10061700423?李琛?BP神經網絡作業\4.jpg

?????文件????????726??2009-05-01?18:11??10061700423?李琛?BP神經網絡作業\5.jpg

?????文件????????723??2009-05-01?18:10??10061700423?李琛?BP神經網絡作業\6.jpg

?????文件????????755??2009-04-26?12:10??10061700423?李琛?BP神經網絡作業\7.jpg

?????文件????????969??2009-05-02?17:52??10061700423?李琛?BP神經網絡作業\8.jpg

?????文件????????641??2009-05-02?17:53??10061700423?李琛?BP神經網絡作業\9.jpg

?????文件???????8052??2009-05-02?21:04??10061700423?李琛?BP神經網絡作業\LiChen.m

????..A.SH.?????25088??2010-01-30?10:54??10061700423?李琛?BP神經網絡作業\Thumbs.db

?????文件?????623984??2009-04-12?10:09??10061700423?李琛?BP神經網絡作業\tm2000mask.jpg

?????文件??????96641??2009-05-02?20:06??10061700423?李琛?BP神經網絡作業\tm2003mask.jpg

?????文件?????696549??2009-04-12?10:15??10061700423?李琛?BP神經網絡作業\tm2005mask.jpg

?????目錄??????????0??2009-12-14?21:40??10061700423?李琛?BP神經網絡作業

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

??????????????1458389????????????????????17