print_format.c

很好的一个约束遗传算法优化程序

#include "genocop.h"


/********************************************************************************/
/*                                                                              */
/*           FUNCTION NAME     :   print_equalities()                           */
/*                                                                              */
/*           SYNOPSIS          :   void print_equalities(equal,t_var,t_equ,     */
/*                                                                   coeff,rhs) */
/*                                                                              */
/*           DESCRIPTION       :   This function prints the matrix passed, on to*/
/*                                  the standard output, in the format of       */
/*                                  equalities.                                 */
/*                                                                              */
/*           FUNCTIONS CALLED  :   None                                         */
/*                                                                              */
/*           CALLING FUNCITONS :   main()                                       */
/*                                                                              */
/*           AUTHOR            :   Swarnalatha Swaminathan                      */
/*                                                                              */
/*           DATE              :   1/17/92                                      */
/*                                                                              */
/*                                                                              */
/*           REV            DATE            BY           DESCRIPTION            */
/*           ---            ----            --           -----------            */
/*                                                                              */
/*                                                                              */
/********************************************************************************/


void 
print_equalities(equal, t_var, t_equ, coeff, rhs)
    MATRIX          equal;		    /* the equalities matrix */
    VECTOR          rhs;		    /* the right hand side of the
					     * equalities */
    int             t_var,		    /* the total number of variables */
                    t_equ;		    /* the total number of equalities */
    IVECTOR         coeff;		    /* the coefficient vector */
{
    int             i, j, flag = 0;

/*    fprintf(output, "\n\nEqualities :\n");  */

    for (i = 1; i <= t_equ; i++)
    {
	flag = 0;
	for (j = 1; j <= t_var + 1; j++)
	{
	    if ((flag == 0) && (equal[i][j] != 0.0))
	    {
		fprintf(output, " %3.2fX%d", equal[i][j], coeff[j]);
		flag = 1;
	    } else if (j == t_var + 1)
		fprintf(output, "  =  %3.2f\n", rhs[i]);
	    else if (equal[i][j] < 0.0)
		fprintf(output, " - %3.2fX%d", fabs(equal[i][j]), coeff[j]);
	    else if (equal[i][j] > 0.0)
		fprintf(output, " + %3.2fX%d", fabs(equal[i][j]), coeff[j]);
	}
    }
}

/********************************************************************************/
/*                                                                              */
/*           FUNCTION NAME     :   print_inequalities()                         */
/*                                                                              */
/*           SYNOPSIS          :   void print_inequalities(equal,t_var,t_equ,   */
/*                                                              coeff,ineq_rhs) */
/*                                                                              */
/*           DESCRIPTION       :   This function prints the matrix passed, on to*/
/*                                  the standard output, in the format of       */
/*                                  inequalities.                               */
/*                                                                              */
/*           FUNCTIONS CALLED  :   None                                         */
/*                                                                              */
/*           CALLING FUNCITONS :   main()                                       */
/*                                                                              */
/*           AUTHOR            :   Swarnalatha Swaminathan                      */
/*                                                                              */
/*           DATE              :   1/17/92                                      */
/*                                                                              */
/*                                                                              */
/*           REV            DATE            BY           DESCRIPTION            */
/*           ---            ----            --           -----------            */
/*                                                                              */
/*                                                                              */
/********************************************************************************/




void 
print_inequalities(equal, t_var, t_equ, coeff, ineq_rhs)
    MATRIX          equal;		    /* the inequalities matrix */
    VECTOR          ineq_rhs;		    /* the right hand side of the
					     * inequalities */
    int             t_var,		    /* the total number of variables */
                    t_equ;		    /* the total number of
					     * inequalites */
    IVECTOR         coeff;		    /* the coefficient vector of
					     * ineqaulites */
{
    int             i, j, flag = 0;

    fprintf(output, "\n\nLinear inequalities :\n");

    for (i = 1; i <= t_equ; i++)
    {
	flag = 0;
	for (j = 1; j <= t_var + 1; j++)
	{
	    if ((flag == 0) && (equal[i][j] != 0.0))
	    {
		fprintf(output, " %3.2fX%d", equal[i][j], coeff[j]);
		flag = 1;
	    } else if (j == t_var + 1)
		fprintf(output, " <=  %3.2f\n", ineq_rhs[i]);
	    else if (equal[i][j] < 0.0)
		fprintf(output, " - %3.2fX%d", fabs(equal[i][j]), coeff[j]);
	    else if (equal[i][j] > 0.0)
		fprintf(output, " + %3.2fX%d", fabs(equal[i][j]), coeff[j]);
	}
    }
}

/********************************************************************************/
/*                                                                              */
/*           FUNCTION NAME     :   print_domains()                              */
/*                                                                              */
/*           SYNOPSIS          :   void print_domains(equal,t_equ)              */
/*                                                                              */
/*           DESCRIPTION       :   This function prints the matrix passed, on to*/
/*                                  the standard output, in the format of       */
/*                                  domains.                                    */
/*                                                                              */
/*           FUNCTIONS CALLED  :   None                                         */
/*                                                                              */
/*           CALLING FUNCITONS :   main()                                       */
/*                                                                              */
/*           AUTHOR            :   Swarnalatha Swaminathan                      */
/*                                                                              */
/*           DATE              :   1/17/92                                      */
/*                                                                              */
/*                                                                              */
/*           REV            DATE            BY           DESCRIPTION            */
/*           ---            ----            --           -----------            */
/*                                                                              */
/*                                                                              */
/********************************************************************************/




void 
print_domains(equal, t_equ)
    MATRIX          equal;		    /* the domains matrix, with the
					     * upper and lower limits */
    int             t_equ;		    /* the total number of domains */
{
    int             i, j, temp;

    fprintf(output, "\n\nDomains :\n");

    for (i = 1; i <= t_equ; i++)
    {
	for (j = 1; j <= 3; j++)
	{
	    if (j == 2)
		fprintf(output, "  <=  X%-2d  <=   ", (int) equal[i][j]);
	    else
		fprintf(output, " %3.2f ", equal[i][j]);
	}
	fprintf(output, "\n");
    }
}

/********************************************************************************/