Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 4 vistas

    Codigo Fuenteg

    Cargado por

    Reyes Cepeda Victor Manuel
    Matlab

    Copyright:

    © All Rights Reserved
    Descargue como PDF, TXT o lea en línea desde Scribd

    Codigo Fuenteg

    Cargado por

    Reyes Cepeda Victor Manuel
    4 vistas6 páginas
    Matlab

    Título original

    codigo fuenteG

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    Matlab

    Copyright:

    © All Rights Reserved
    Descargue como PDF, TXT o lea en línea desde Scribd
    Descargar como pdf o txt
    4 vistas6 páginas

    Codigo Fuenteg

    Cargado por

    Reyes Cepeda Victor Manuel
    Matlab

    Copyright:

    © All Rights Reserved
    Descargue como PDF, TXT o lea en línea desde Scribd
    Descargar como pdf o txt
    de 6

    clear old

    clc

    A=[0 1 0.5 0.3 0.2]


    B=[0 0.5 0.7 0.2 0.4]
    y=[1 2 3 4 5];
    %parametro clase yager
    w1=1;
    w2=2;
    w3=3;
    w4=4;
    w5=5;
    [m, n] = size(A);
    [p, q] = size(B);
    % conjunto A
    figure(1)
    plot(y,A)
    grid on
    title('conjunto A')
    xlabel('muestreo')
    ylabel('valores de membresia')

    % conjunto B
    figure(2)
    plot(y,B)
    grid on
    title('conjunto B')
    xlabel('muestreo')
    ylabel('valores de membresia')

    %COMPLEMENTO de amos A' y B'


    %FUNCION MuA'(x)=1-MuA(x)
    %FUNCION MuB'(x)=1-MuB(x)
    for i=1:n

    MuA(i)=1-(A(i));

    end

    for j=1:q
    MuB(j)=1-(B(j));
    end
    %funcion MuA'
    figure(3)
    plot(y)
    plot(MuA)
    grid on
    title('complemento MuA, MuB')
    xlabel('muestreo')
    ylabel('valores de membresia')
    %funcion MuB'
    figure(4)
    plot(y,MuB)
    title('complemento MuB, MuA')
    xlabel('muestreo')
    ylabel('valores de membresia')
    %UNION
    %FUNCION MAuB(x)= max[Ay,By]
    for i=1:n
    MAuB(i)=max(A(1,i),B(1,i));
    end
    figure(5)
    plot(MAuB)
    grid on
    title('UNION MAuB')
    xlabel('muestreo')
    ylabel('valores de membresia')

    %INTERSECCION
    %FUNCION MAnB(x)= min[Ay,By]
    for i=1:n
    for j=1:q
    MAnB(i,j)=min(A(1,(i)),B(1,j));
    end
    end
    figure(6)
    plot(MAnB)
    grid on
    title('Interseccion MAnB')
    xlabel('muestreo')
    ylabel('valores de membresia')
    Interseccion=[MAnB]

    %DIFERENCIA DE A|B=AnB' y B|A=BnA'


    for i=1:n
    for j=1:q
    AnB(i,j)=min(A(1,i),MuB(1,j));
    BnA(j,i)=min(B(1,j),MuA(1,i));
    end
    end
    % A|B=AnB'
    figure(7)
    plot(AnB)
    grid on
    title('Diferencia A|B')
    xlabel('muestreo')
    ylabel('valores de membresia')
    % B|A=BnA'
    figure(8)
    plot(BnA)
    grid on
    title('Diferencia B|A')
    xlabel('muestreo')
    ylabel('valores de membresia')

    %PRINCIPIOS DE MORGAN
    %COMPLEMENTO AuB=MuAnMuB
    for i=1:n
    for j=1:q
    UAuB(i,j)=min(MuA(1,i),MuB(1,j));
    end
    end
    figure(9)
    plot(UAuB)
    grid on
    title('Principos de Morgan AuB=UAuB')
    xlabel('muestreo')
    ylabel('valores de membresia')
    UAuB=[UAuB]

    %COMPLEMENTO AnB=MuAuMuB
    for i=1:n
    for j=1:q
    UAnB(i,j)=max(MuA(1,i),MuB(1,j));
    end
    end
    figure(10)
    plot(UAnB)
    grid on
    title('Principo de morgan AnB=UAnB')
    xlabel('muestreo')
    ylabel('valores de membresia')

    for i=1:n
    c(i)=(1-A(i))/(1+(1*A(i)));
    c1(i)=(1-A(i))/(1+(2*A(i)));
    c2(i)=(1-A(i))/(1+(3*A(i)));
    c3(i)=(1-A(i))/(1+(4*A(i)));
    c4(i)=(1-A(i))/(1+(5*A(i)));
    end
    figure(11)
    plot(y)
    plot(A)
    hold on
    plot(y)
    plot(c)
    hold on
    plot(y)
    plot(c1)
    hold on
    plot(y)
    plot(c2)
    hold on
    plot(y)
    plot(c3)
    hold on
    plot(y)
    plot(c4)
    title('complemento Sugeno')
    xlabel('Funciones ')
    ylabel('valor de membresia')
    for i=1:m
    for j=1:n;
    A1 = A(i, j);
    B1 = B(i, j);
    % clase yaer
    cy1(i,j)=min(1,A1.^w1 + B1.^w1.^(1/w1))
    cy2(i,j)=min(1,A1.^w2 + B1.^w2.^(1/w2))
    cy3(i,j)=min(1,A1.^w3 + B1.^w3.^(1/w3))
    cy4(i,j)=min(1,A1.^w4 + B1.^w4.^(1/w4))
    cy5(i,j)=min(1,A1.^w5 + B1.^w5.^(1/w5))

    % suma drastico
    for i = 1:m
    for j = 1:n
    if B(i, j) == 0
    sd(i, j) = A(i, j);
    elseif A(i, j) == 0
    sd(i, j) = B(i, j);
    else
    sd(i, j) = 1;
    end
    end
    end

    %Suma Einstein
    Se(i,j)=(A1+B1)/(1+(A1*B1))

    %Suna Algebraica
    sa(i,j)=A1+B1-(A1*B1);

    % prodcuto drastico
    for i = 1:m
    for j = 1:n
    if B(i, j) == 1
    sdi(i, j) = A(i, j);
    elseif A(i, j) == 1
    sdi(i, j) = B(i, j);
    else
    sdi(i, j) = 0;
    end
    end
    end

    % producto Einiste
    Sei(i,j)=(A1*B1)/(2-((A1+B1)-(A1*B1)))
    %producto algebraico
    sai(i,j)=(A1*B1);
    end
    end
    % Clase Yager
    figure(12)
    plot(y)
    plot(cy1)
    hold on
    plot(cy2)
    hold on
    plot(cy3)
    hold on
    plot(cy4)
    hold on
    plot(cy5)
    title('Union Clase Yager')
    xlabel('Funciones ')
    ylabel('valor de membresia')

    %suma drastica
    figure(13)
    plot(y)
    plot(sd)
    title('Union Suma Drastica')
    xlabel('Funciones ')
    ylabel('valor de membresia')

    %suma Einstein
    figure(14)
    plot(y)
    plot(Se)
    title('Union Suma de Einstein')
    xlabel('Funciones ')
    ylabel('valor de membresia')

    %suma Algebraica
    figure(15)
    plot(y)
    plot(sa)
    title('Union Suma Algebraica')
    xlabel('Funciones ')
    ylabel('valor de membresia')

    %producto drastico
    figure(16)
    plot(y)
    plot(sdi)
    title('producto drastico')
    xlabel('Funciones ')
    ylabel('valor de membresia')

    %Producto Einstein
    figure(17)
    plot(y)
    plot(Sei)
    title('producto Einstein')
    xlabel('Funciones ')
    ylabel('valor de membresia')

    %producto Algebraico
    figure(18)
    plot(y)
    plot(sai)
    title('producto Algebraica')
    xlabel('Funciones ')
    ylabel('valor de membresia')

    %funciones traslapadas
    figure(19)
    plot(y,A)
    hold on
    plot(y,B)
    hold on
    plot(y)
    plot(MuA)
    hold on
    plot(y,MuB)
    hold on
    plot(MAuB)
    hold on
    plot(MAnB)
    hold on
    plot(AnB)
    hold on
    plot(BnA)
    hold on
    plot(UAuB)
    hold on
    plot(UAnB)
    title('funciones traslapadas')
    xlabel('Funciones ')
    ylabel('valor de membresia')

    También podría gustarte