%----------------------------------------------------------------%
% 高等工程數(shù)學(xué)作業(yè)：習(xí)題二（用公式A、B、C、D計(jì)算隸屬度并做比較）%
%----------------------------------------------------------------%
% 程序主要功能描述：                                             %
%     主函數(shù)：根據(jù)用不同公式的計(jì)算結(jié)果來(lái)做比較，分析其異同。     %
%----------------------------------------------------------------%
%           作者：許  東       學(xué)號(hào)：B0202102                    %
%           版本：Xudong.B0202102.0410                           %
%           修改時(shí)間：2004年10月25日                          %
%----------------------------------------------------------------%
clear;
clc;
%---------------------輸入模糊集-------------------------%
A=[0.3 1 0.3  ;
    1  2  3  ];%“近似于2”
B=[0.2 1 0.2  ;
    2  3  4  ];%“近似于3”
%---------------------------------------------------------%
close1A=BlurSub_PlusMul(B,A);%“近似于1”
close5A=BlurAdd_PlusMul(A,B);%“近似于5”
close6A=BlurMul_PlusMul(A,B);%“近似于6”
close8A=BlurAdd_PlusMul(A,close6A);%“近似于8”
close13A=BlurAdd_PlusMul(close5A,close8A);%“近似于13”
%---------------------------------------------------------%
close1B=BlurSub_MaxMul(B,A);%“近似于1”
close5B=BlurAdd_MaxMul(A,B);%“近似于5”
close6B=BlurMul_MaxMul(A,B);%“近似于6”
close8B=BlurAdd_MaxMul(A,close6B);%“近似于8”
close13B=BlurAdd_MaxMul(close5B,close8B);%“近似于13”
%---------------------------------------------------------%
close1C=BlurSub_PlusMin(B,A);%“近似于1”
close5C=BlurAdd_PlusMin(A,B);%“近似于5”
close6C=BlurMul_PlusMin(A,B);%“近似于6”
close8C=BlurAdd_PlusMin(A,close6C);%“近似于8”
close13C=BlurAdd_PlusMin(close5C,close8C);%“近似于13”
%---------------------------------------------------------%
close1D=BlurSub_MaxMin(B,A);%“近似于1”
close5D=BlurAdd_MaxMin(A,B);%“近似于5”
close6D=BlurMul_MaxMin(A,B);%“近似于6”
close8D=BlurAdd_MaxMin(A,close6D);%“近似于8”
close13D=BlurAdd_MaxMin(close5D,close8D);%“近似于13”
%---------------------------------------------------------%
subplot(2,2,1);%圖形化輸出
plot(close1A(2,:),close1A(1,:),'-r+',close1B(2,:),close1B(1,:),...
'-go',close1C(2,:),close1C(1,:),'-b*',close1D(2,:),close1D(1,:),'-k.');
title('“近似于1”');
subplot(2,2,2);
plot(close6A(2,:),close6A(1,:),'-r+',close6B(2,:),close6B(1,:),...
'-go',close6C(2,:),close6C(1,:),'-b*',close6D(2,:),close6D(1,:),'-k.');
title('“近似于6”');
subplot(2,2,3);
plot(close8A(2,:),close8A(1,:),'-r+',close8B(2,:),close8B(1,:),...
'-go',close8C(2,:),close8C(1,:),'-b*',close8D(2,:),close8D(1,:),'-k.');
title('“近似于8”');
subplot(2,2,4);
plot(close13A(2,:),close13A(1,:),'-r+',close13B(2,:),close13B(1,:),...
'-go',close13C(2,:),close13C(1,:),'-b*',close13D(2,:),close13D(1,:),'-k.');
title('“近似于13”');
%-------------------------程序結(jié)束--------------------------%