testprog1.c

/*
 * testprog1.c
 * 
 * Copyright 2011 Fernando Pujaico Rivera <fernando.pujaico.rivera@gmail.com>
 * 
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
 * MA 02110-1301, USA.
 * 
 */

#include <stdlib.h>
#include <pds/pdssn.h>

int main(int argc, char** argv)
{
        PdsNeuron *Neuron=NULL;
        PdsSnReal m;
        PdsNInput *A[4];


        Neuron=pds_neuron_new(4);
        if(Neuron==NULL)        printf("ERROR: La neurona no ha podido crearse.\n");
        else
        {
                A[0]=pds_ninput_new();  pds_ninput_set_input(A[0], 1.0);
                A[1]=pds_ninput_new();  pds_ninput_set_input(A[1], 0.5);
                A[2]=pds_ninput_new();  pds_ninput_set_input(A[2],-0.3);
                A[3]=pds_ninput_new();  pds_ninput_set_input(A[3],-1.7);

                pds_neuron_connect_input_with_ninput(Neuron,0,A[0]);
                pds_neuron_connect_input_with_ninput(Neuron,1,A[1]);
                pds_neuron_connect_input_with_ninput(Neuron,2,A[2]);
                pds_neuron_connect_input_with_ninput(Neuron,3,A[3]);
                printf("X{:}=\n%f\t%f\t%f\t%f\n\n",*(Neuron->X[0]),*(Neuron->X[1]),*(Neuron->X[2]),*(Neuron->X[3]));

                pds_neuron_set_weight(Neuron,0,1.3);
                pds_neuron_set_weight(Neuron,1,-3.2);
                pds_neuron_set_weight(Neuron,2,0.1);
                pds_neuron_set_weight(Neuron,3,4.5);
                printf("W{:}=\n%f\t%f\t%f\t%f\n\n",Neuron->W[0],Neuron->W[1],Neuron->W[2],Neuron->W[3]);

                pds_neuron_set_u(Neuron,0.0);

                pds_neuron_iterate(Neuron);

                pds_neuron_get_output(Neuron,&m);
                printf("Y=%f\n",m);

                pds_ninput_destroy(&A[0]);
                pds_ninput_destroy(&A[1]);
                pds_ninput_destroy(&A[2]);
                pds_ninput_destroy(&A[3]);

                pds_neuron_destroy(&Neuron);
                if(Neuron==NULL) printf("\nLa neurona Neuron ha sido liberado y limpiada.\n");
        }

        printf("\n");

        return EXIT_SUCCESS;
}