PHP Classes

File: prueba.php

Recommend this page to a friend!
  Classes of Gaston Silva   PHP Fuzzy Logic Library   prueba.php   Download  
File: prueba.php
Role: Example script
Content type: text/plain
Description: ejemplo de prueba de un problema con logica difusa
Class: PHP Fuzzy Logic Library
Analyze variable based on fuzzy logic rules
Author: By
Last change: modificacion del include de la clase motorde inferencia.php
Date: 8 years ago
Size: 5,947 bytes
 

Contents

Class file image Download
<?php

/**
 * @author Gaston
 * @copyright 2014
 */

include_once 'reglaInferencia.php';
include_once
'variableLinguistica.php';
include_once
'etiquetaLinguistica.php';
include_once
'pertenencia.php';
include_once
'baseConocimiento.php';
include_once
'motordeinferencia.php';
include_once
'defuzificador.php';
include_once
'OperadorDifuso.php';
include_once
'implicacion.php';

//Definicion Temperatura

//Funciones de Pertenencia de las etiquetas linguisticas
$TempPert1 = new PertenenciaTriangular(0,15,10);
$TempPert2 = new PertenenciaTriangular(10,20,15);
$TempPert3 = new PertenenciaTriangular(18,22,20);
$TempPert4 = new PertenenciaTriangular(20,30,25);
$TempPert5 = new PertenenciaTriangular(25,35,30);

//5 etiquetas Linguisticas
$MBTemp = new EtiquetaLinguistica('muy baja',0,15,$TempPert1);
$BTemp = new EtiquetaLinguistica('baja',10,20,$TempPert2);
$NTemp = new EtiquetaLinguistica('normal',18,22,$TempPert3);
$ATemp = new EtiquetaLinguistica('alta',20,30,$TempPert4);
$MATemp = new EtiquetaLinguistica('muy alta',25,35,$TempPert5);

$Temperatura=new VariableLinguistica('temperatura',0,40,array($MBTemp,$BTemp,$NTemp,$ATemp,$MATemp),1);
// Fin definicion Variable Temperatura


//Definicion Humedad

//Funciones de Pertenencia de las etiquetas linguisticas
$HumPert1 = new PertenenciaTriangular(0,20,10);
$HumPert2 = new PertenenciaTriangular(10,40,25);
$HumPert3 = new PertenenciaTriangular(30,50,40);
$HumPert4 = new PertenenciaTriangular(40,70,55);
$HumPert5 = new PertenenciaTriangular(60,100,70);

//5 etiquetas Linguisticas
$MBHum = new EtiquetaLinguistica('muy baja',0,15,$HumPert1);
$BHum = new EtiquetaLinguistica('baja',10,20,$HumPert2);
$NHum = new EtiquetaLinguistica('normal',18,22,$HumPert3);
$AHum = new EtiquetaLinguistica('alta',20,30,$HumPert4);
$MAHum = new EtiquetaLinguistica('muy alta',25,35,$HumPert5);

$Humedad=new VariableLinguistica('humedad',0,100,array($MBHum,$BHum,$NHum,$AHum,$MAHum),1);
// Fin definicion Variable Humedad



//Definicion Variacion Temperatura

//Funciones de Pertenencia de las etiquetas linguisticas
$VarPert1 = new PertenenciaTriangular(-15,-7.5,-10);
$VarPert2 = new PertenenciaTriangular(-10,-2.5,-5);
$VarPert3 = new PertenenciaTriangular(-7.5,0,-2);
$VarPert4 = new PertenenciaTriangular(-1,1,0);
$VarPert5 = new PertenenciaTriangular(0,7.5,2.5);
$VarPert6 = new PertenenciaTriangular(2.5,10,5.5);
$VarPert7 = new PertenenciaTriangular(7.5,15,10);


//7 etiquetas Linguisticas
$BGVar = new EtiquetaLinguistica('bajada grande',-15,-7.5,$VarPert1);
$BNVar = new EtiquetaLinguistica('bajada normal',-10,-2.5,$VarPert2);
$BPVar = new EtiquetaLinguistica('bajada pequeña',-7.5,0,$VarPert3);
$MVar = new EtiquetaLinguistica('mantener',-1,1,$VarPert4);
$SPVar = new EtiquetaLinguistica('subida pequeña',0,7.5,$VarPert5);
$SNVar = new EtiquetaLinguistica('subida normal',2.5,10,$VarPert6);
$SGVar = new EtiquetaLinguistica('subida grande',7.5,15,$VarPert7);

$Variacion=new VariableLinguistica('variacion temperatura',-15,15,array($BGVar,$BNVar,$BPVar,$MVar,$SPVar,$SNVar,

$SGVar),0.2);
// Fin definicion Variable Variacion Temperatura


$BaseConocimiento = new BaseConocimiento();

try {
// ( ( ( not( (alto,normal) and (bajo,mucho) )

or (alto,poco) ) and (bajo,mucho) )
  
//si la temperatura es baja y la humedad es alta entonces la variacion es subida pequeña
  
$regla1 = new ReglaInferencia(1,array( array($Temperatura, 'baja') ,array($Humedad, 'alta') ), array($Variacion, 'subida

pequeña'
));
  
$BaseConocimiento->add_regla($regla1);
  
//si la temperatura es baja y la humedad es muy alta entonces la variacion es subida normal
  
$regla2 = new ReglaInferencia(2,array( array($Temperatura, 'baja') ,array($Humedad, 'muy alta') ), array($Variacion,

'subida normal'));
  
$BaseConocimiento->add_regla($regla2);
  
$regla3 = new ReglaInferencia(3,array( array($Temperatura, 'normal') ,array($Humedad, 'alta') ), array($Variacion,

'mantener'));
  
$BaseConocimiento->add_regla($regla3);
  
$regla4 = new ReglaInferencia(4,array( array($Temperatura, 'normal') ,array($Humedad, 'muy alta') ), array($Variacion,

'bajada pequeña'));
  
$BaseConocimiento->add_regla($regla4);
}
catch(
ReglaInferenciaException $e){
    echo
'error: '.$e->getMessage();
};

$conjuncion = new minimo('Min');
$disyuncion = new maximo('Max');
$implicacion = new Mamdani('Mamdani');
$agregacion = new maximo('agregacion Max');

$motor = new MotorInferenciaMamdani($BaseConocimiento, $conjuncion, $disyuncion, $implicacion, $agregacion);
$Temperatura->fuzificar(19.5);
$Humedad->fuzificar(65);

$resultados = $motor->inferir(array($Temperatura, $Humedad));


$min = new DefuzificadorMinOfMax();
$max = new DefuzificadorMaxOfMax();
$med = new DefuzificadorMedOfMax();
$cog = new DefuzificadorCOG();

echo
'defuzificador Min Of Max: ';
print_r($min->defuzificar($resultados));
echo
'</br>'.'</br>';

echo
'defuzificador Max Of Max: ';
print_r($max->defuzificar($resultados));
echo
'</br>'.'</br>';


echo
'defuzificador Med Of Max: ';
print_r($med->defuzificar($resultados));
echo
'</br>'.'</br>';

//$r = Array('variacion temperatura'=>array(array(-30, 0.1), array(-20, 0.1), array(-10, 0.1), array(0, 0.2), array(10,

0.2), array(20, 0.2), array(30, 0.2), array(40, 0.5), array(50, 0.5), array(60, 0.5), array(70, 0.5) ));


echo
'defuzificador Centroide: ';
print_r($cog->defuzificar($resultados));
echo
'</br>'.'</br>';

// echo 'defuzificador Min Of Max: '.$min->defuzificar($resultados).'</br>'.'</br>';
// echo 'defuzificador Max Of Max: '.$max->defuzificar($resultado).'</br>'.'</br>';
// echo 'defuzificador Med Of Max: '.$med->defuzificar($resultado).'</br>'.'</br>';
// echo 'defuzificador COS: '.$cos->defuzificar($resultado).'</br>'.'</br>';


?>