Продолжение приложения а

786. //*************** Proverka *************************

787. printf("Proverka\n");

788. for(i=0;i<m;i++)

789. {

790. for(j=0;j<n;j++)

791. {

792. printf("%5d",*(matr+i*n+j));

793. }

794. printf("\n");

795. }

796. fprintf(fil,"matrix\n");

797. for(i=0;i<m;i++)

798. {

799. for(j=0;j<n;j++)

800. {

801. fprintf(fil,"%5d",*(matr+i*n+j));

802. }

803. fprintf(fil,"\n");

804. }

805. fprintf(fil,"*****************\n");

806. return;

807. }

808. //******** opplan1

809. //************** SOZDANIE OPORNOGO PLANA ********************

810. //*************** METHOD NORD-WEST YGOL *********************

811. void opplan2(void)

812. {

813. int i,j,k_i,k_j=0, min = 32767, *kontr,fl;

814. if((matr=(int*)calloc(m*n,sizeof(int))) == NULL) abort();

815. if((kontr=(int*)calloc(m*n,sizeof(int))) == NULL) abort();

816. for(i=0;i<m;i++){

817. for(j=0;j<n;j++){

818. *(kontr+i*n+j) = 0;

819. }

820. }

821. for(i=0;i<m;i++){

822. fl = 0;

823. while(!fl){

824. for(j=0;j<n;j++){

825. if(*(st+i*n+j)<min){

826. if(*(kontr+i*n+j) == 0) {

827. min = *(st+i*n+j);

828. k_i = i; k_j = j;

829. }

830. }

831. }

832. *(kontr+k_i*n+k_j) = 1;

833. if(*(po+k_i)<*(pn+k_j)) {

834. min = 32767;

835. *(matr+k_i*n+k_j)=*(po+k_i);

Продолжение приложения а

836. *(pn+k_j)=*(po+k_i);

837. *(po+k_i)=0;

838. break;

839. }

840. else {

841. *(matr+k_i*n+k_j)=*(pn+k_j);

842. *(po+k_i)-=*(pn+k_j);

843. *(pn+k_j)=0;

844. min = 32767;

845. if(*(po+k_i) == 0) fl = 1;

846. }

847. }

848. }

849. printf("Proverka\n"); // proverka

850. for(i=0;i<m;i++){

851. for(j=0;j<n;j++){

852. printf("%5d",*(matr+i*n+j));

853. }

854. printf("\n");

855. }

856. fprintf(fil," matr\n");

857. for(i=0;i<m;i++){

858. for(j=0;j<n;j++){

859. fprintf(fil,"%5d",*(matr+i*n+j));

860. }

861. fprintf(fil,"\n");

862. }

863. fprintf(fil,"*********************************\n");

864. return;

865. }

866. // opplan2

867. void main()

868. {

869. int i,j,met;

870. int flagok;

871. fil = fopen("otchet.txt","w");

872. clrscr();

873. gotoxy(1,3);

874. printf("WARNING USERS ---->\n\n\n");

875. printf("Решение закрытой трансп.задачи\n\n");

876. printf("Базисные переменные,равные нулю, помечаются -2;\n");

877. printf("Графоклетка, относительно которой строится цепь\n");

878. printf("помечается -1\n");

879. gotoxy(1,22);

880. printf("press anykey to contunio...\n");

881. getch();

882. clrscr();

883. data();

884. printf("press anykey to contunio...\n");

885. getch();

Продолжение приложения а

886. clrscr();

887. gotoxy(1,3);

888. printf("\n YOU selest method building first plan:\n");

889. printf("1-method NORD-WEST ygol\n");

890. printf("2-method NORD-EST ygol\n");

891. printf("3-method minimum element to string\n");

892. scanf("%d",&met);

893. gotoxy(1,22);

894. printf("press anykey, to contunie...\n");

895. getch();

896. //void opplan(void);

897. //void opplan1(void);

898. //void opplan2(void);

899. clrscr();

900. switch(met)

901. {

902. case 1: opplan();

903. break;

904. case 2: opplan1();

905. break;

906. case 3: opplan2();

907. break;

908. default: printf("неверно выбран МЕТОД\n"); exit(-1);

909. }

910. basper = 0;

911. Bas();

912. flagok = 0;

913. if(basper<m+n-1)

914. {

915. //Если в первоначальном плане количество базисных

916. //переменных, отличных от нуля, меньше, чем M+N-1

917. while(!flagok)

918. {

919. for(i=0;i<m;i++)

920. {

921. for(j=0;j<n;j++)

922. {

923. if(*(matr+i*n+j)==0)

924. {

925. *(matr+i*n+j) = -2;

926. flagok = 1;

927. basper++;

928. break;

929. } //if

930. }

931. if(flagok) break;

932. }

933. if(basper<m+n-1) flagok = 0;

934. }//while

935. }//if