none
casi lo tengo RRS feed

  • Pregunta

  • necesito que este programa use metodo simpson y trapecio ayuda y grafique en exel

    #include "stdafx.h"

    #include <stdlib.h>
    #include <conio.h>
    #include <stdio.h>

    #include <math.h>
    #include <locale.h>
    #include <process.h>
    #pragma warning( disable : 4996) // para poder usar scanf() 

    void main()
            {
    int formula;
                 float ecuacion,a, b, Constante, Potencia, Intervalo,INTEGRAL,DerivadaX,DerivadaE,ConstanteE,ConstanteSeno,ConstanteCoseno,Constantetan,Constantecotan,Constantesec,Constantecosec,Constantesec2;
                 float e=2.7182;
                float UniCuadradas,divisore;
                printf("\nFORMULAS DE INTEGRACION");
                printf("\n\nElige la formula que desees usar: ");
                printf("\n 1.- X^\n 2.-e^\n 3. sen(x)\n 4.-cos(x)\n 5.-tan(x)\n 6.-cota(x)\n 7.-Sec(x)\n8.-Cosec(x)\n9.- Sec^2(x)\n10.-sec(x)*tan(x)\n");
                scanf("%d",&formula);
            if (formula == 1)
            {
            printf("Ingresa la Constante de X:\t");
            scanf("%f",&Constante);
            printf("Ingresa la Potencia de X:\t");
            scanf("%f",&Potencia );
            printf("Ingresa el Limite b de la ecuacion:t");
            scanf("%f",&b);
            printf("Ingresa el Limite a de la ecuacion:t");
            scanf("%f",&a );
            printf("Ingresa el Intervalo de la ecuacion:t");
           scanf("%f",&Intervalo);
      
    Potencia = (Potencia + 1);
    FILE* txt = fopen("datos.txt", "w+");
    fprintf(txt,"   X \t   Y\n");
    for(float x=a;x<b;x++)
                    {
                     DerivadaX=pow(x , Potencia);
    DerivadaX=((DerivadaX*Constante)/Potencia);
     
                    fprintf(txt,"%.2f\t%.2f\n",x,DerivadaX);

    }
    UniCuadradas=pow(b,Potencia)*(Constante)/Potencia;
    fprintf(txt,"A=:\t%.2f\n",UniCuadradas);
    fclose(txt);


    _execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    system("pause");
    }//FIN ECUACION AX^n
    else if(formula==2)
            {
                printf("Ingresa la Constante de e:\t");
                scanf("%f",&ConstanteE );
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b );
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a );
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo );
                FILE* txt = fopen("datos.txt", "w+");
    fprintf(txt,"   X \t   Y\n");
                   for (float x=a;x<b;x++)
                {
                    float exponente = Potencia;
                      
                    divisore = (Constante * Potencia);
                    divisore = (divisore * x);
                    Potencia = Potencia - 1;
                       DerivadaX = pow(x, Potencia) ;
                       DerivadaX = (DerivadaX * Constante);
                       DerivadaE=(e*ConstanteE);
                       DerivadaE = pow(DerivadaE, DerivadaX);
                       DerivadaE = (DerivadaE / divisore);
                        fprintf(txt,"%.2f\t%.2f\n",x,DerivadaE);
                       }
      UniCuadradas=pow(b,Potencia);
      UniCuadradas=UniCuadradas*ConstanteE;
      UniCuadradas=UniCuadradas/divisore;
      fprintf(txt,"A=:\t%.2f\n",UniCuadradas);
    fclose(txt);
       _execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    system("pause");
           }//FIN ECUACION e^n
    else if(formula==3)
            {
                printf("Ingresa la Constante de seno:\t");
                scanf("%f",&ConstanteSeno);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);

                FILE* txt = fopen("datos.txt", "w+");
    fprintf(txt,"   X \t   Y\n");
                   for (float x=a;x<b;x++)
                   {
                       float DerivadaSeno;
      float divisorsen = (Constante * Potencia);
                       divisorsen = (divisorsen * x);

                       DerivadaX = pow(x, Potencia);
                       DerivadaX = (DerivadaX * Constante);
                       
                       DerivadaSeno = cos(DerivadaX);
                       DerivadaSeno = (DerivadaSeno * ConstanteSeno) ;
                       DerivadaSeno = (DerivadaSeno / divisorsen);
                       fprintf(txt,"%.2f\t%.2f\n",x,DerivadaSeno);                   
                   }

      fclose(txt);
       _execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    system("pause");

            }//FIN ECUACION SENO
    else if(formula==4)
            {
                printf("Ingresa la Constante de coseno:\t");
                scanf("%f",&ConstanteCoseno);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);

                FILE* txt = fopen("datos.txt", "w+");
    fprintf(txt,"   X \t   Y\n");
                   for (float x=a;x<b;x+=Intervalo)
                   {
                       float DerivadaCoseno;
                       float divisorcos = (Constante * Potencia);
                       divisorcos = (divisorcos * x);

                       DerivadaX = pow(x, Potencia);
                       DerivadaX = (DerivadaX * Constante);
                       
                       DerivadaCoseno = sin(DerivadaX);
                       DerivadaCoseno = (DerivadaCoseno * ConstanteCoseno) ;
                       DerivadaCoseno = (DerivadaCoseno / divisorcos);
                       fprintf(txt,"%.2f\t%.2f\n",x,DerivadaCoseno);                   
                   }
      fclose(txt);
       _execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    system("pause");
    }//FIN ECUACION COSENO
    else if(formula==5)
            {
                printf("Ingresa la Constante de tangente:\t");
                scanf("%f",&Constantetan);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);

                FILE* txt = fopen("datos.txt", "w+");
    fprintf(txt,"   X \t   Y\n");
                   for (float x=a;x<b;x++)
                   {
                       float Derivadatan;
                       float divisortan = (Constante * Potencia);
                       divisortan = (divisortan * x);

                       DerivadaX = pow(x, Potencia);
                       DerivadaX = (DerivadaX * Constante);
                       
                       Derivadatan = cos(DerivadaX);
      Derivadatan=log(Derivadatan);
                       Derivadatan = (Derivadatan * Constantetan) ;
                       Derivadatan = (Derivadatan / divisortan);
                       fprintf(txt,"%.2f\t%.2f\n",x,Derivadatan);                  
                   }
      fclose(txt);
       _execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    system("pause");
    }//FIN ECUACION SUSTITUCION TANGENTE
    else if(formula==6)
            {
                printf("Ingresa la Constante de contangente:\t");
                scanf("%f",&Constantecotan);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);

                FILE* txt = fopen("datos.txt", "w+");
    fprintf(txt,"   X \t   Y\n");
                   for (float x=a;x<b;x++)
                   {
                       float Derivadacota;
                       float divisorcotan = (Constante * Potencia);
                       divisorcotan = (divisorcotan * x);

                       DerivadaX = pow(x, Potencia);
                       DerivadaX = (DerivadaX * Constante);
                       
                       Derivadacota = log(sin(DerivadaX));
      
                       Derivadacota = (Derivadacota * Constantecotan) ;
                       Derivadacota = (Derivadacota / divisorcotan);
                       fprintf(txt,"%.2f\t%.2f\n",x,Derivadacota);                  
                   }
      fclose(txt);
       _execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    system("pause");
    }//FIN ECUACION CONTAGENTE
    else if(formula==7)
            {
                printf("Ingresa la Constante de Secante:\t");
                scanf("%f",&Constantesec);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);

                FILE* txt = fopen("datos.txt", "w+");
    fprintf(txt,"   X \t   Y\n");
                   for (float x=a;x<b;x++)
                   {
                       float DerivadaSec;
                       float divisorsec = (Constante * Potencia);
                       divisorsec = (divisorsec * x);

                       DerivadaX = pow(x, Potencia);
                       DerivadaX = (DerivadaX * Constante);
                       
                       DerivadaSec = log((1/cos(DerivadaX))+tan(DerivadaX));
      
                       DerivadaSec = (DerivadaSec * Constantesec) ;
                       DerivadaSec = (DerivadaSec / divisorsec);
                       fprintf(txt,"%.2f\t%.2f\n",x,DerivadaSec);                  
                   }
      fclose(txt);
       _execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    system("pause");
    }//FIN ECUACION SECANTE

    else if(formula==8)
            {
                printf("Ingresa la Constante de Cosecante:\t");
                scanf("%f",&Constantecosec);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);

                FILE* txt = fopen("datos.txt", "w+");
    fprintf(txt,"   X \t   Y\n");
                   for (float x=a;x<b;x++)
                   {
                       float DerivadaCosec;
                       float divisorcosec = (Constante * Potencia);
                       divisorcosec = (divisorcosec * x);

                       DerivadaX = pow(x, Potencia);
                       DerivadaX = (DerivadaX * Constante);
                       
                       DerivadaCosec =(1/sin(DerivadaX));
      DerivadaCosec=DerivadaCosec+(tan(DerivadaX));
      DerivadaCosec=log(DerivadaCosec);
      
                       DerivadaCosec = (DerivadaCosec * Constantecosec) ;
                       DerivadaCosec = (DerivadaCosec / divisorcosec);
                       fprintf(txt,"%.2f\t%.2f\n",x,DerivadaCosec);                  
                   }
      fclose(txt);
       _execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    system("pause");
    }//FIN ECUACION COSECANTE
    else if(formula==9)
            {
                printf("Ingresa la Constante de Secacante^2:\t");
                scanf("%f",&Constantesec2);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);

                FILE* txt = fopen("datos.txt", "w+");
    fprintf(txt,"   X \t   Y\n");
                   for (float x=a;x<b;x++)
                   {
                       float Derivadasec2;
                       float divisorsec2 = (Constante * Potencia);
                       divisorsec2 = (divisorsec2 * x);

                       DerivadaX = pow(x, Potencia);
                       DerivadaX = (DerivadaX * Constante);
                       
                       Derivadasec2 = tan(DerivadaX);
      
                       Derivadasec2 = (Derivadasec2 * Constantesec2) ;
                       Derivadasec2 = (Derivadasec2 / divisorsec2);
                       fprintf(txt,"%.2f\t%.2f\n",x,Derivadasec2);                  
                   }
      fclose(txt);
       _execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    system("pause");
    }//FIN ECUACION SECANTE CUADRADA
            
    else if(formula==10)
            {
                printf("Ingresa la Constante de la ecuacion:\t");
                scanf("%f",&ecuacion);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);

                FILE* txt = fopen("datos.txt", "w+");
    fprintf(txt,"   X \t   Y\n");
                   for (float x=a;x<b;x++)
                   {
                       float Derivadasectan;
                       float divisorsectan = (Constante * Potencia);
                       divisorsectan = (divisorsectan * x);

                       DerivadaX = pow(x, Potencia);
                       DerivadaX = (DerivadaX * Constante);
                       
                       Derivadasectan = (1/cos(DerivadaX));
      
                       Derivadasectan = (Derivadasectan * ecuacion) ;
                       Derivadasectan = (Derivadasectan / divisorsectan);
                       fprintf(txt,"%.2f\t%.2f\n",x,Derivadasectan);                  
                   }
      fclose(txt);
       _execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    system("pause");
    }//FIN ECUACION SECANTEv * tanv

    }

    domingo, 22 de noviembre de 2015 21:55

Respuestas

  • Aquí esta el código espero te sirva
    #include <stdlib.h>
    #include <conio.h>
    #include <stdio.h>
    #include <math.h>
    #include <locale.h>
    #include <process.h>
    #pragma warning( disable : 4996) // para poder usar scanf() 
    
    void main()
            {
    		int formula;
    		int x;
            float ecuacion,a, b, Constante, Potencia, Intervalo,INTEGRAL,DerivadaX,DerivadaE,ConstanteE,ConstanteSeno,ConstanteCoseno,Constantetan,Constantecotan,Constantesec,Constantecosec,Constantesec2;
            float e=2.7182;
    		float AreaTrap,Trapeciox,AreaCurvaTrap,Simson,AreaCurvaSimson1,AreaCurvaSimson2,AreaCurvaSimsonTotal,autosumasim1=0,autosumasim2=0;
            float UniCuadradas,divisore,divisorcos,divisorsen,divisortan,divisorcotan,divisorsec,divisorsectan,Derivadasectan,divisorcosec,divisorsec2,DerivadaCosec,Derivadasec2,DerivadaSec,Derivadacota,DerivadaCoseno,DerivadaSeno,Derivadatan;		
                printf("\nFORMULAS DE INTEGRACION");
                printf("\n 1.- X^\n 2.-e^\n 3. sen(x)\n 4.-cos(x)\n 5.-tan(x)\n 6.-cota(x)\n 7.-Sec(x)\n8.-Cosec(x)\n9.- Sec^2(x)\n10.-sec(x)*tan(x)\n11.-cosex(x)*cotan(x)");
                printf("\n\nElige la formula que desees usar:\t");
    			scanf("%d",&formula);
            if (formula == 1)
            {system("CLS");
            printf("Ingresa la Constante de X:\t");
            scanf("%f",&Constante);
            printf("Ingresa la Potencia de X:\t");
            scanf("%f",&Potencia );
            printf("Ingresa el Limite b de la ecuacion:\t");
            scanf("%f",&b);
            printf("Ingresa el Limite a de la ecuacion:\t");
            scanf("%f",&a );
            printf("Ingresa el Intervalo de la ecuacion:\t");
            scanf("%f",&Intervalo);
    	   
    		FILE* txt = fopen("datos.txt", "w+");
    		fprintf(txt,"   X \t   Y\n");
    		for( x=a;x<b;x++)
                    {	
                    INTEGRAL=pow(x , (Potencia+1));
    				 DerivadaX=((INTEGRAL*Constante)/(Potencia+1));
    				 
                    fprintf(txt,"%.2d\t%.2f\n",x,DerivadaX);		
    				}	
    				UniCuadradas=pow(b,(Potencia+1))*(Constante)/(Potencia+1);
    				fprintf(txt,"A=:\t%.2f\n\n",UniCuadradas);//FIN METODO SUSTITUCION
    				//METODO TRAPECIO
    				fprintf(txt,"   X \t   Y\n");
    					for( x=a;x<b;x++)
    			{
    				 AreaTrap=pow(x ,Potencia)*Constante;
    				 
    				 	fprintf(txt,"%.2d\t%.2f\n",x,AreaTrap);
    			autosumasim1+=AreaTrap;
    			}
    			UniCuadradas=pow(b,(Potencia))/2;
    				fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    			
    			AreaCurvaTrap=(autosumasim1+UniCuadradas)*Intervalo;
    			fprintf(txt,"A=\t%.2f\n\n",AreaCurvaTrap);//FIN METODO TRAPECIO
    			//METODO HOMERO
    			fprintf(txt,"   X \t   Y\n");
    			Simson=(a*DerivadaX);
    			fprintf(txt,"%.2f\t%.2f\n",a,Simson);
    			for( x=(a+=1);x<b;x++)
    			{
    			
    				if((x%2)==0)
    				{
    				AreaCurvaSimson1=pow(x,Potencia);
    				AreaCurvaSimson1=(AreaCurvaSimson1*Constante);
    				AreaCurvaSimson1=(AreaCurvaSimson1*2);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson1);
    				autosumasim1+=AreaCurvaSimson1;
    				}
    				else 
    				{
    				AreaCurvaSimson2=pow(x,Potencia);
    				AreaCurvaSimson2=(AreaCurvaSimson2*Constante);
    				AreaCurvaSimson2=(AreaCurvaSimson2*4);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson2);
    				autosumasim2+=AreaCurvaSimson2;
    				}
    				
    			}UniCuadradas=pow(b,Potencia);
    			fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    			
    			AreaCurvaSimsonTotal=((autosumasim1+autosumasim2)+UniCuadradas);
    			AreaCurvaSimsonTotal=((AreaCurvaSimsonTotal)*(Intervalo/3));
    			fprintf(txt,"A=:\t%.2f\n\n",AreaCurvaSimsonTotal);//FIN METODO HOMERO
    				fclose(txt);			
    				_execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    				system("pause");				
    	}//FIN FORMULA 1
    			else if(formula==2)
            {system("CLS");
                printf("Ingresa la Constante de e:\t");
                scanf("%f",&ConstanteE );
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b );
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a );
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo );
                FILE* txt = fopen("datos.txt", "w+");
    		    fprintf(txt,"   X \t   Y\n");
                   for ( x=a;x<b;x++)
                {
                    divisore = (Constante * Potencia);
                    divisore = (divisore * x);    
                       DerivadaX = pow(x, Potencia) ;
                       DerivadaX = (DerivadaX * Constante);
    					INTEGRAL=(e*ConstanteE);
    					INTEGRAL = pow(INTEGRAL, DerivadaX);
    						DerivadaE = (INTEGRAL / divisore);
                        fprintf(txt,"%.2f\t%.2f\n",x,DerivadaE);
                       }
    				   UniCuadradas=pow(b,Potencia);
    				   UniCuadradas=UniCuadradas*ConstanteE;
    				   UniCuadradas=UniCuadradas/divisore;//FIN METODO SUSTITUCION
    				   fprintf(txt,"A=:\t%.2f\n\n",UniCuadradas);
    				   //METODO TRAPECIO
    				   fprintf(txt,"   X \t   Y\n");
    				   Trapeciox=pow(a,Potencia);
    				   Trapeciox=pow(e,Trapeciox)*(ConstanteE)/2;
    				   fprintf(txt,"%.2f\t%.2f\n",a,Trapeciox);
    				   autosumasim1+=Trapeciox;
    					for( x=(a+=1);x<b;x++)
    			{
    				 AreaTrap=pow(x ,Potencia)*Constante;
    				 AreaTrap=pow(e,AreaTrap)*ConstanteE;
    				 	fprintf(txt,"%.2f\t%.2f\n",x,AreaTrap);
    					autosumasim2+=AreaTrap;
    			}
    			UniCuadradas=pow(e,Trapeciox)*(ConstanteE)/2;
    				fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    				
    			AreaCurvaTrap=((autosumasim1+UniCuadradas)+autosumasim2)*Intervalo;
    				
    				fprintf(txt,"A=\t%.2f\n\n",AreaCurvaTrap);//FIN METODO TRAPECIO
    				//METODO HOMERO
    			fprintf(txt,"   X \t   Y\n");
    			Simson=((a*DerivadaX)*e);
    			Simson=Simson*ConstanteE;
    			fprintf(txt,"%.2f\t%.2f\n",a,Simson);
    			for(x=a+1;x<b;x=x+1)
    			{
    			
    				if((x%2)==0)
    				{
    				AreaCurvaSimson1=pow(x,Potencia);
    				AreaCurvaSimson1=pow(e,AreaCurvaSimson1);
    				AreaCurvaSimson1=AreaCurvaSimson1*ConstanteE;			
    				AreaCurvaSimson1=(AreaCurvaSimson1*2);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson1);
    				autosumasim1+=AreaCurvaSimson1;
    				}
    				else 
    				{
    				AreaCurvaSimson2=pow(x,Potencia);
    				AreaCurvaSimson1=pow(e,AreaCurvaSimson1);
    				AreaCurvaSimson2=(AreaCurvaSimson2*ConstanteE);
    				AreaCurvaSimson2=(AreaCurvaSimson2*4);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson2);
    				autosumasim2+=AreaCurvaSimson2;
    				}
    				
    			}UniCuadradas=pow(b,Potencia);
    			UniCuadradas=pow(e,UniCuadradas);
    			UniCuadradas=UniCuadradas*ConstanteE;
    			fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    			
    			AreaCurvaSimsonTotal=((autosumasim1+autosumasim2)+UniCuadradas);
    			AreaCurvaSimsonTotal=((AreaCurvaSimsonTotal)*(Intervalo/3));
    			fprintf(txt,"A=:\t%.2f\n\n",AreaCurvaSimsonTotal);//FIN METODO HOMERO
    				fclose(txt);
    		       _execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    				system("pause");
           }//FIN ECUACION e^n	
    				else if(formula==3)
            {system("CLS");
                printf("Ingresa la Constante de seno:\t");
                scanf("%f",&ConstanteSeno);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);
    				FILE* txt = fopen("datos.txt", "w+");
    				fprintf(txt,"   X \t   Y\n");
                   for ( x=a;x<b;x++)
                   {
    				    divisorsen = (Constante * Potencia);
                        divisorsen = (divisorsen * x);
    						DerivadaX = pow(x, Potencia);
    						DerivadaX = (DerivadaX * Constante);
    							INTEGRAL = cos(DerivadaX);
    							INTEGRAL = (INTEGRAL * ConstanteSeno) ;
    								DerivadaSeno = INTEGRAL/pow(divisorsen,(Potencia-1));
                       fprintf(txt,"%.2d\t%.2f\n",x,DerivadaSeno);                   
                   }  
    				   UniCuadradas=pow(b,Potencia);
    				   UniCuadradas=cos(UniCuadradas)*ConstanteSeno;
    				   UniCuadradas=UniCuadradas/pow(divisorsen,(Potencia-1));
    				      fprintf(txt,"A=:\t%.2f\n\n",UniCuadradas);
    				   //METODO TRAPECIO
    				   fprintf(txt,"   X \t   Y\n");
    				   Trapeciox=pow(a,Potencia);
    				   Trapeciox=cos(Trapeciox)*(ConstanteSeno)/2;
    				   fprintf(txt,"%.2f\t%.2f\n",a,Trapeciox);
    				   autosumasim1+=Trapeciox;
    					for( x=(a+=1);x<b;x++)
    			{
    				 AreaTrap=pow(x ,Potencia)*Constante;
    				 AreaTrap=cos(AreaTrap)*ConstanteE;
    				 fprintf(txt,"%.2f\t%.2f\n",x,AreaTrap);
    				 autosumasim2+=AreaTrap;
    			}		
    			UniCuadradas=cos(Trapeciox)*(ConstanteSeno)/2;
    				fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    				
    			AreaCurvaTrap=((autosumasim1+UniCuadradas)+autosumasim2)*Intervalo;
    			fprintf(txt,"A=\t%.2f\n\n",AreaCurvaTrap);//FIN METODO TRAPECIO
    			//METODO HOMERO
    			fprintf(txt,"   X \t   Y\n");
    			Simson=(a*DerivadaX);
    			Simson=cos(Simson);
    			Simson=(Simson*ConstanteSeno)/pow(divisorsen,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",a,Simson);
    			for(x=a+1;x<b;x=x+1)
    			{
    			
    				if((x%2)==0)
    				{
    				AreaCurvaSimson1=pow(x,Potencia);
    				AreaCurvaSimson1=cos(AreaCurvaSimson1);
    				AreaCurvaSimson1=(AreaCurvaSimson1*ConstanteSeno)/pow(divisorsen,(Potencia-1));
    				AreaCurvaSimson1=(AreaCurvaSimson1*2);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson1);
    				autosumasim1+=AreaCurvaSimson1;
    				}
    				else 
    				{
    				AreaCurvaSimson2=pow(x,Potencia);
    				AreaCurvaSimson2=cos(AreaCurvaSimson2);
    				AreaCurvaSimson2=(AreaCurvaSimson2*ConstanteSeno)/pow(divisorsen,(Potencia-1));
    				AreaCurvaSimson2=(AreaCurvaSimson2*4);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson2);
    				autosumasim2+=AreaCurvaSimson2;
    				}
    				
    			}UniCuadradas=pow(b,Potencia);
    			UniCuadradas=cos(UniCuadradas);
    			UniCuadradas=(UniCuadradas*ConstanteSeno)/pow(divisorsen,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    			
    			AreaCurvaSimsonTotal=((autosumasim1+autosumasim2)+UniCuadradas);
    			AreaCurvaSimsonTotal=((AreaCurvaSimsonTotal)*(Intervalo/3));
    			fprintf(txt,"A=:\t%.2f\n\n",AreaCurvaSimsonTotal);//FIN METODO HOMERO
    				 fclose(txt);
    				_execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    				system("pause");
            }//FIN ECUACION SENO
    				else if(formula==4)
            {system("CLS");
                printf("Ingresa la Constante de coseno:\t");
                scanf("%f",&ConstanteCoseno);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);
    				FILE* txt = fopen("datos.txt", "w+");
    				fprintf(txt,"   X \t   Y\n");
                   for ( x=a;x<b;x+=Intervalo)
                   {
    				   divisorcos = (Constante * Potencia);
                       divisorcos = (divisorcos * x);
    						DerivadaX = pow(x, Potencia);
    						DerivadaX = (DerivadaX * Constante);
    							INTEGRAL = sin(DerivadaX);
    							INTEGRAL = (INTEGRAL * ConstanteCoseno) ;
    								DerivadaCoseno = INTEGRAL / pow(divisorcos,(Potencia-1));
                       fprintf(txt,"%.2d\t%.2f\n",x,DerivadaCoseno);                   
                   }
    				   UniCuadradas=pow(b,Potencia);
    				   UniCuadradas=sin(UniCuadradas)*ConstanteCoseno;
    				   UniCuadradas=UniCuadradas/pow(divisorcos,(Potencia-1));
    				      fprintf(txt,"A=:\t%.2f\n\n",UniCuadradas);
    				   //METODO TRAPECIO
    				   fprintf(txt,"   X \t   Y\n");
    				   Trapeciox=pow(a,Potencia);
    				   Trapeciox=sin(Trapeciox)*(ConstanteCoseno)/2;
    				   fprintf(txt,"%.2f\t%.2f\n",a,Trapeciox);
    					autosumasim1+=Trapeciox;
    				   for( x=(a+=1);x<b;x++)
    			{
    				 AreaTrap=pow(x ,Potencia)*Constante;
    				 AreaTrap=sin(AreaTrap)*ConstanteCoseno;
    				 	fprintf(txt,"%.2d\t%.2f\n",x,AreaTrap);
    					autosumasim2+=AreaTrap;
    			}
    			UniCuadradas=pow(b,Potencia);
    				   UniCuadradas=sin(UniCuadradas)*(ConstanteCoseno)/2;
    				
    			AreaCurvaTrap=((autosumasim1+UniCuadradas)+autosumasim2)*Intervalo;
    			fprintf(txt,"A=\t%.2f\n\n",AreaCurvaTrap);//FIN METODO TRAPECIO
    			//METODO HOMERO
    			fprintf(txt,"   X \t   Y\n");
    			Simson=(a*DerivadaX);
    			Simson=sin(Simson);
    			Simson=(Simson*ConstanteSeno)/pow(divisorcos,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",a,Simson);
    			for(x=a+1;x<b;x=x+1)
    			{
    			
    				if((x%2)==0)
    				{
    				AreaCurvaSimson1=pow(x,Potencia);
    				AreaCurvaSimson1=sin(AreaCurvaSimson1);
    				AreaCurvaSimson1=(AreaCurvaSimson1*ConstanteCoseno)/pow(divisorcos,(Potencia-1));
    				AreaCurvaSimson1=(AreaCurvaSimson1*2);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson1);
    				autosumasim1+=AreaCurvaSimson1;
    				}
    				else 
    				{
    				AreaCurvaSimson2=pow(x,Potencia);
    				AreaCurvaSimson2=sin(AreaCurvaSimson2);
    				AreaCurvaSimson2=(AreaCurvaSimson2*ConstanteCoseno)/pow(divisorcos,(Potencia-1));
    				AreaCurvaSimson2=(AreaCurvaSimson2*4);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson2);
    				autosumasim2+=AreaCurvaSimson2;
    				}
    				
    			}UniCuadradas=pow(b,Potencia);
    			UniCuadradas=sin(UniCuadradas);
    			UniCuadradas=(UniCuadradas*ConstanteCoseno)/pow(divisorcos,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    			
    			AreaCurvaSimsonTotal=((autosumasim1+autosumasim2)+UniCuadradas);
    			AreaCurvaSimsonTotal=((AreaCurvaSimsonTotal)*(Intervalo/3));
    			fprintf(txt,"A=:\t%.2f\n\n",AreaCurvaSimsonTotal);//FIN METODO HOMERO
    				 fclose(txt);
    				_execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    				system("pause");
    			}//FIN ECUACION COSENO
    			else if(formula==5)
            {system("CLS");
                printf("Ingresa la Constante de tangente:\t");
                scanf("%f",&Constantetan);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);
    				FILE* txt = fopen("datos.txt", "w+");
    				fprintf(txt,"   X \t   Y\n");
                   for (x=a;x<b;x++)
                   {
    			    	divisortan = (Constante * Potencia);
                        divisortan = (divisortan * x);
    						DerivadaX = pow(x, Potencia);
    						DerivadaX = (DerivadaX * Constante);
    							INTEGRAL = cos(DerivadaX);
    							INTEGRAL=log(INTEGRAL);
    							INTEGRAL = (INTEGRAL * Constantetan) ;
    								Derivadatan = INTEGRAL / pow(divisortan,(Potencia-1));
                       fprintf(txt,"%.2d\t%.2f\n",x,Derivadatan);                  
                   }
    					UniCuadradas=pow(b,Potencia);
    				    UniCuadradas=log(UniCuadradas)*Constantetan;
    				    UniCuadradas=UniCuadradas/pow(divisortan,(Potencia-1));
    				      fprintf(txt,"A=:\t%.2f\n\n",UniCuadradas);
    				   //METODO TRAPECIO
    				   fprintf(txt,"   X \t   Y\n");
    				   Trapeciox=pow(a,Potencia);
    				   Trapeciox=log(Trapeciox)*(Constantetan)/2;
    				   fprintf(txt,"%.2f\t%.2f\n",a,Trapeciox);
    				   autosumasim1+=Trapeciox;
    					for( x=(a+=1);x<b;x++)
    			{
    				 AreaTrap=pow(x ,Potencia)*Constante;
    				 AreaTrap=log(AreaTrap)*Constantetan;
    				 	fprintf(txt,"%.2d\t%.2f\n",x,AreaTrap);
    					autosumasim2+=AreaTrap;
    			}
    			UniCuadradas=pow(b,Potencia);
    				   UniCuadradas=log(UniCuadradas)*(ConstanteCoseno)/2;
    				fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    				
    			AreaCurvaTrap=((autosumasim1+UniCuadradas)+autosumasim2)*Intervalo;
    			fprintf(txt,"A=\t%.2f\n\n",AreaCurvaTrap);//FIN METODO TRAPECIO
    			//METODO HOMERO
    			fprintf(txt,"   X \t   Y\n");
    			Simson=(a*DerivadaX);
    			Simson=log(Simson);
    			Simson=(Simson*Constantetan)/pow(divisortan,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",a,Simson);
    			for(x=a+1;x<b;x=x+1)
    			{
    			
    				if((x%2)==0)
    				{
    				AreaCurvaSimson1=pow(x,Potencia);
    				AreaCurvaSimson1=log(AreaCurvaSimson1);
    				AreaCurvaSimson1=(AreaCurvaSimson1*Constantetan)/pow(divisortan,(Potencia-1));
    				AreaCurvaSimson1=(AreaCurvaSimson1*2);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson1);
    				autosumasim1+=AreaCurvaSimson1;
    				}
    				else 
    				{
    				AreaCurvaSimson2=pow(x,Potencia);
    				AreaCurvaSimson2=log(AreaCurvaSimson2);
    				AreaCurvaSimson2=(AreaCurvaSimson2*Constantetan)/pow(divisortan,(Potencia-1));
    				AreaCurvaSimson2=(AreaCurvaSimson2*4);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson2);
    				autosumasim2+=AreaCurvaSimson2;
    				}
    				
    			}UniCuadradas=pow(b,Potencia);
    			UniCuadradas=log(UniCuadradas);
    			UniCuadradas=(UniCuadradas*Constantetan)/pow(divisortan,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    			
    			AreaCurvaSimsonTotal=((autosumasim1+autosumasim2)+UniCuadradas);
    			AreaCurvaSimsonTotal=((AreaCurvaSimsonTotal)*(Intervalo/3));
    			fprintf(txt,"A=:\t%.2f\n\n",AreaCurvaSimsonTotal);//FIN METODO HOMERO
    				fclose(txt);
    				_execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    				system("pause");
    }//FIN ECUACION SUSTITUCION TANGENTE
    else if(formula==6)
            {system("CLS");
                printf("Ingresa la Constante de contangente:\t");
                scanf("%f",&Constantecotan);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);
    				FILE* txt = fopen("datos.txt", "w+");
    				fprintf(txt,"   X \t   Y\n");
                   for ( x=a;x<b;x++)
                   {
                       divisorcotan = (Constante * Potencia);
                       divisorcotan = (divisorcotan * x);
    						DerivadaX = pow(x, Potencia);
    						DerivadaX = (DerivadaX * Constante);           
    							INTEGRAL = log(sin(DerivadaX));
    							INTEGRAL = (INTEGRAL * Constantecotan) ;
    								Derivadacota = INTEGRAL / pow(divisorcotan,(Potencia-1));
                       fprintf(txt,"%.2d\t%.2f\n",x,Derivadacota);                  
                   }
    					UniCuadradas=pow(b,Potencia);
    				    UniCuadradas=log(sin(UniCuadradas))*Constantecotan;
    				    UniCuadradas=UniCuadradas/pow(divisorcotan,(Potencia-1));
    				      fprintf(txt,"A=:\t%.2f\n\n",UniCuadradas);
    				   //METODO TRAPECIO
    				   fprintf(txt,"   X \t   Y\n");
    				   Trapeciox=pow(a,Potencia);
    				   Trapeciox=log(sin(Trapeciox))*(Constantecotan)/2;
    				   fprintf(txt,"%.2f\t%.2f\n",a,Trapeciox);
    				   autosumasim1=+Trapeciox;
    					for( x=(a+=1);x<b;x++)
    			{
    				 AreaTrap=pow(x ,Potencia)*Constante;
    				 AreaTrap=log(sin(AreaTrap))*Constantecotan;
    				 	fprintf(txt,"%.2d\t%.2f\n",x,AreaTrap);
    					autosumasim2+=AreaTrap;
    			}
    			UniCuadradas=pow(b,Potencia);
    				   UniCuadradas=log(sin(UniCuadradas))*(Constantecotan)/2;
    				fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    				
    			AreaCurvaTrap=((autosumasim1+UniCuadradas)+autosumasim2)*Intervalo;
    			fprintf(txt,"A=\t%.2f\n\n",AreaCurvaTrap);//FIN METODO TRAPECIO
    				//METODO HOMERO
    			fprintf(txt,"   X \t   Y\n");
    			Simson=(a*DerivadaX);
    			Simson=log(sin(Simson));
    			Simson=(Simson*Constantecotan)/pow(divisorcotan,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",a,Simson);
    			for(x=a+1;x<b;x=x+1)
    			{
    			
    				if((x%2)==0)
    				{
    				AreaCurvaSimson1=pow(x,Potencia);
    				AreaCurvaSimson1=log(sin(AreaCurvaSimson1));
    				AreaCurvaSimson1=(AreaCurvaSimson1*Constantecotan)/pow(divisorcotan,(Potencia-1));			
    				AreaCurvaSimson1=(AreaCurvaSimson1*2);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson1);
    				autosumasim1+=AreaCurvaSimson1;
    				}
    				else 
    				{
    				AreaCurvaSimson2=pow(x,Potencia);
    				AreaCurvaSimson2=log(sin(AreaCurvaSimson2));
    				AreaCurvaSimson2=(AreaCurvaSimson2*Constantecotan)/pow(divisorcotan,(Potencia-1));
    				AreaCurvaSimson2=(AreaCurvaSimson2*4);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson2);
    				autosumasim2+=AreaCurvaSimson2;
    				}
    				
    			}UniCuadradas=pow(b,Potencia);
    			UniCuadradas=log(sin(UniCuadradas));
    			UniCuadradas=(UniCuadradas*Constantecotan)/pow(divisorcotan,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    			
    			AreaCurvaSimsonTotal=((autosumasim1+autosumasim2)+UniCuadradas);
    			AreaCurvaSimsonTotal=((AreaCurvaSimsonTotal)*(Intervalo/3));
    			fprintf(txt,"A=:\t%.2f\n\n",AreaCurvaSimsonTotal);//FIN METODO HOMERO
    				fclose(txt);
    				_execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    				system("pause");
    }//FIN ECUACION CONTAGENTE
    				else if(formula==7)
            {system("CLS");
                printf("Ingresa la Constante de Secante:\t");
                scanf("%f",&Constantesec);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);
    				FILE* txt = fopen("datos.txt", "w+");
    				fprintf(txt,"   X \t   Y\n");
                   for ( x=a;x<b;x++)
                   {
    				divisorsec = (Constante * Potencia);
                    divisorsec = (divisorsec * x);
    					DerivadaX = pow(x, Potencia);
    					DerivadaX = (DerivadaX * Constante);
    						INTEGRAL = log((1/cos(DerivadaX))+tan(DerivadaX));
    						INTEGRAL = (INTEGRAL * Constantesec) ;
    							DerivadaSec = INTEGRAL / pow(divisorsec,(Potencia-1));
                       fprintf(txt,"%.2d\t%.2f\n",x,DerivadaSec);                  
                   }   UniCuadradas=pow(b,Potencia);
    				   UniCuadradas=log(1/cos(UniCuadradas))*Constantesec;
    				   UniCuadradas=UniCuadradas/pow(divisorsec,(Potencia-1));
    				      fprintf(txt,"A=:\t%.2f\n\n",UniCuadradas);
    				   //METODO TRAPECIO
    				   fprintf(txt,"   X \t   Y\n");
    				   Trapeciox=pow(a,Potencia);
    				   Trapeciox=log(1/cos(Trapeciox))*(Constantesec)/2;
    				   fprintf(txt,"%.2f\t%.2f\n",a,Trapeciox);
    				   autosumasim1+=Trapeciox;
    					for( x=(a+=1);x<b;x++)
    			{
    				 AreaTrap=pow(x ,Potencia)*Constante;
    				 AreaTrap=log(1/cos(AreaTrap))*Constantesec;
    				 	fprintf(txt,"%.2d\t%.2f\n",x,AreaTrap);
    				autosumasim2+=AreaTrap;
    			}
    			UniCuadradas=pow(b,Potencia);
    				   UniCuadradas=log(1/cos(UniCuadradas))*(Constantesec)/2;
    				fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    				
    			AreaCurvaTrap=((autosumasim1+UniCuadradas)+autosumasim2)*Intervalo;
    			fprintf(txt,"A=\t%.2f\n\n",AreaCurvaTrap);//FIN METODO TRAPECIO
    			//METODO HOMERO
    			fprintf(txt,"   X \t   Y\n");
    			Simson=(a*DerivadaX);
    			Simson=log(1/cos(Simson));
    			Simson=(Simson*Constantesec)/pow(divisorsec,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",a,Simson);
    			for(x=a+1;x<b;x=x+1)
    			{
    			
    				if((x%2)==0)
    				{
    				AreaCurvaSimson1=pow(x,Potencia);
    				AreaCurvaSimson1=log(1/cos(AreaCurvaSimson1));
    				AreaCurvaSimson1=(AreaCurvaSimson1*Constantesec)/pow(divisorsec,(Potencia-1));
    				AreaCurvaSimson1=(AreaCurvaSimson1*2);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson1);
    				autosumasim1+=AreaCurvaSimson1;
    				}
    				else 
    				{
    				AreaCurvaSimson2=pow(x,Potencia);
    				AreaCurvaSimson2=log(1/cos(AreaCurvaSimson2));
    				AreaCurvaSimson2=(AreaCurvaSimson2*Constantesec)/pow(divisorsec,(Potencia-1));
    				AreaCurvaSimson2=(AreaCurvaSimson2*4);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson2);
    				autosumasim2+=AreaCurvaSimson2;
    				}
    				
    			}UniCuadradas=pow(b,Potencia);
    			UniCuadradas=log(1/cos(UniCuadradas));
    			UniCuadradas=(UniCuadradas*Constantesec)/pow(divisorsec,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    			
    			AreaCurvaSimsonTotal=((autosumasim1+autosumasim2)+UniCuadradas);
    			AreaCurvaSimsonTotal=((AreaCurvaSimsonTotal)*(Intervalo/3));
    			fprintf(txt,"A=:\t%.2f\n\n",AreaCurvaSimsonTotal);//FIN METODO HOMERO
    				fclose(txt);
    				_execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    				system("pause");
    }//FIN ECUACION SECANTE
    
    else if(formula==8)
            {system("CLS");
                printf("Ingresa la Constante de Cosecante:\t");
                scanf("%f",&Constantecosec);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);
    					FILE* txt = fopen("datos.txt", "w+");
    					fprintf(txt,"   X \t   Y\n");
                   for ( x=a;x<b;x++)
                   {
                       divisorcosec = (Constante * Potencia);
                       divisorcosec = (divisorcosec * x);
    						DerivadaX = pow(x, Potencia);
    						DerivadaX = (DerivadaX * Constante);
    							INTEGRAL =(1/sin(DerivadaX));
    							INTEGRAL=INTEGRAL*(tan(DerivadaX));
    							INTEGRAL=log(INTEGRAL);
    							INTEGRAL = (INTEGRAL * Constantecosec) ;
    								DerivadaCosec = INTEGRAL / pow(divisorcosec,(Potencia-1));
    								fprintf(txt,"%.2d\t%.2f\n",x,DerivadaCosec);                  
                   }	UniCuadradas=pow(b,Potencia);
    					UniCuadradas=log(1/sin(UniCuadradas))*Constantecosec;
    					UniCuadradas=UniCuadradas/pow(divisorcosec,(Potencia-1));
    				      fprintf(txt,"A=:\t%.2f\n\n",UniCuadradas);
    				   //METODO TRAPECIO
    				   fprintf(txt,"   X \t   Y\n");
    				   Trapeciox=pow(a,Potencia);
    				   Trapeciox=log(1/sin(Trapeciox))*(Constantecosec)/2;
    				   fprintf(txt,"%.2f\t%.2f\n",a,Trapeciox);
    				   autosumasim1+=Trapeciox;
    					for( x=(a+=1);x<b;x++)
    			{
    				 AreaTrap=pow(x ,Potencia)*Constante;
    				 AreaTrap=log(1/sin(AreaTrap))*Constantecosec;
    				 	fprintf(txt,"%.2d\t%.2f\n",x,AreaTrap);
    					autosumasim2+=AreaTrap;
    			}
    			UniCuadradas=pow(b,Potencia);
    				   UniCuadradas=log(1/sin(UniCuadradas))*(Constantecosec)/2;
    				fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    				
    			AreaCurvaTrap=((autosumasim1+UniCuadradas)+autosumasim2)*Intervalo;
    			fprintf(txt,"A=\t%.2f\n\n",AreaCurvaTrap);//FIN METODO TRAPECIO
    			//METODO HOMERO
    			fprintf(txt,"   X \t   Y\n");
    			Simson=(a*DerivadaX);
    			Simson=log(1/sin(Simson));
    			Simson=(Simson*Constantecosec)/pow(divisorcosec,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",a,Simson);
    			for(x=a+1;x<b;x=x+1)
    			{
    			
    				if((x%2)==0)
    				{
    				AreaCurvaSimson1=pow(x,Potencia);
    				AreaCurvaSimson1=log(1/sin(AreaCurvaSimson1));
    				AreaCurvaSimson1=(AreaCurvaSimson1*Constantecosec)/pow(divisorcosec,(Potencia-1));
    				AreaCurvaSimson1=(AreaCurvaSimson1*2);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson1);
    				autosumasim1+=AreaCurvaSimson1;
    				}
    				else 
    				{
    				AreaCurvaSimson2=pow(x,Potencia);
    				AreaCurvaSimson2=log(1/sin(AreaCurvaSimson2));
    				AreaCurvaSimson2=(AreaCurvaSimson2*Constantecosec)/pow(divisorcosec,(Potencia-1));
    				AreaCurvaSimson2=(AreaCurvaSimson2*4);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson2);
    				autosumasim2+=AreaCurvaSimson2;
    				}
    				
    			}UniCuadradas=pow(b,Potencia);
    			UniCuadradas=log(1/sin(UniCuadradas));
    			UniCuadradas=(UniCuadradas*Constantecosec)/pow(divisorcosec,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    			
    			AreaCurvaSimsonTotal=((autosumasim1+autosumasim2)+UniCuadradas);
    			AreaCurvaSimsonTotal=((AreaCurvaSimsonTotal)*(Intervalo/3));
    			fprintf(txt,"A=:\t%.2f\n\n",AreaCurvaSimsonTotal);//FIN METODO HOMERO
    				fclose(txt);
    				_execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    				system("pause");
    }//FIN ECUACION COSECANTE
    else if(formula==9)
            {system("CLS");
                printf("Ingresa la Constante de Secante^2:\t");
                scanf("%f",&Constantesec2);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);
    				FILE* txt = fopen("datos.txt", "w+");
    				fprintf(txt,"   X \t   Y\n");
                   for ( x=a;x<b;x++)
                   {
                    divisorsec2 = (Constante * Potencia);
                    divisorsec2 = (divisorsec2 * x);
                       DerivadaX = pow(x, Potencia);
                       DerivadaX = (DerivadaX * Constante);
    						INTEGRAL = tan(DerivadaX);
    						INTEGRAL = (INTEGRAL * Constantesec2) ;
    							Derivadasec2 = INTEGRAL / pow(divisorsec2,(Potencia-1));
                       fprintf(txt,"%.2d\t%.2f\n",x,Derivadasec2);                  
                   }	UniCuadradas=pow(b,Potencia);
    				    UniCuadradas=tan(UniCuadradas)*Constantesec2;
    				    UniCuadradas=UniCuadradas/pow(divisorsec2,(Potencia-1));
    				      fprintf(txt,"A=:\t%.2f\n\n",UniCuadradas);
    				   //METODO TRAPECIO
    				   fprintf(txt,"   X \t   Y\n");
    				   Trapeciox=pow(a,Potencia);
    				   Trapeciox=tan(Trapeciox)*(Constantesec2)/2;
    				   fprintf(txt,"%.2f\t%.2f\n",a,Trapeciox);
    				   autosumasim1+=Trapeciox;
    					for( x=(a+=1);x<b;x++)
    			{
    				 AreaTrap=pow(x ,Potencia)*Constante;
    				 AreaTrap=tan(AreaTrap)*Constantesec2;
    				 	fprintf(txt,"%.2d\t%.2f\n",x,AreaTrap);
    					autosumasim2+=AreaTrap;
    			}
    			UniCuadradas=pow(b,Potencia);
    				   UniCuadradas=tan(UniCuadradas)*(Constantesec2)/2;
    				fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    				
    			AreaCurvaTrap=((autosumasim1+UniCuadradas)+autosumasim2)*Intervalo;
    			fprintf(txt,"A=\t%.2f\n\n",AreaCurvaTrap);//FIN METODO TRAPECIO
    			//METODO HOMERO
    			fprintf(txt,"   X \t   Y\n");
    			Simson=(a*DerivadaX);
    			Simson=tan(Simson);
    			Simson=(Simson*Constantesec2)/pow(divisorsec2,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",a,Simson);
    			for(x=a+1;x<b;x=x+1)
    			{
    			
    				if((x%2)==0)
    				{
    				AreaCurvaSimson1=pow(x,Potencia);
    				AreaCurvaSimson1=tan(AreaCurvaSimson1);
    				AreaCurvaSimson1=(AreaCurvaSimson1*Constantesec2)/pow(divisorsec2,(Potencia-1));
    				AreaCurvaSimson1=(AreaCurvaSimson1*2);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson1);
    				autosumasim1+=AreaCurvaSimson1;
    				}
    				else 
    				{
    				AreaCurvaSimson2=pow(x,Potencia);
    				AreaCurvaSimson2=tan(AreaCurvaSimson2);
    				AreaCurvaSimson2=(AreaCurvaSimson2*Constantesec2)/pow(divisorsec2,(Potencia-1));
    				AreaCurvaSimson2=(AreaCurvaSimson2*4);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson2);
    				autosumasim2+=AreaCurvaSimson2;
    				}
    				
    			}UniCuadradas=pow(b,Potencia);
    			UniCuadradas=tan(UniCuadradas);
    			UniCuadradas=(UniCuadradas*Constantesec2)/pow(divisorsec2,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    			
    			AreaCurvaSimsonTotal=((autosumasim1+autosumasim2)+UniCuadradas);
    			AreaCurvaSimsonTotal=((AreaCurvaSimsonTotal)*(Intervalo/3));
    			fprintf(txt,"A=:\t%.2f\n\n",AreaCurvaSimsonTotal);//FIN METODO HOMERO
    				fclose(txt);
    				_execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    				system("pause");
    }//FIN ECUACION SECANTE CUADRADA
            
    else if(formula==10)
            {system("CLS");
                printf("Ingresa la Constante de la ecuacion:\t");
                scanf("%f",&ecuacion);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);
    				FILE* txt = fopen("datos.txt", "w+");
    				fprintf(txt,"   X \t   Y\n");
                   for (x=a;x<b;x++)
                   {
                    divisorsectan = (Constante * Potencia);
                    divisorsectan = (divisorsectan * x);
                       DerivadaX = pow(x, Potencia);
                       DerivadaX = (DerivadaX * Constante);
    						INTEGRAL = (1/cos(DerivadaX));
    						INTEGRAL = (INTEGRAL * ecuacion) ;
    							Derivadasectan = INTEGRAL / pow(divisorsectan,(Potencia-1));
                       fprintf(txt,"%.2d\t%.2f\n",x,Derivadasectan);                  
                   }	UniCuadradas=pow(b,Potencia);
    				    UniCuadradas=log(1/cos(UniCuadradas))*ecuacion;
    				    UniCuadradas=UniCuadradas/pow(divisorsectan,(Potencia-1));
    				      fprintf(txt,"A=:\t%.2f\n\n",UniCuadradas);
    				   //METODO TRAPECIO
    				   fprintf(txt,"   X \t   Y\n");
    				   Trapeciox=pow(a,Potencia);
    				   Trapeciox=log(1/cos(Trapeciox))*(ecuacion)/2;
    				   fprintf(txt,"%.2f\t%.2f\n",a,Trapeciox);
    				   autosumasim1+=Trapeciox;
    					for( x=(a+=1);x<b;x++)
    			{
    				 AreaTrap=pow(x ,Potencia)*Constante;
    				 AreaTrap=log(1/cos(AreaTrap))*ecuacion;
    				 	fprintf(txt,"%.2d\t%.2f\n",x,AreaTrap);
    					autosumasim2+=AreaTrap;
    			}
    			UniCuadradas=pow(b,Potencia);
    				   UniCuadradas=log(1/cos(UniCuadradas))*(ecuacion)/2;
    				fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    				
    			AreaCurvaTrap=((autosumasim1+UniCuadradas)+autosumasim2)*Intervalo;
    			fprintf(txt,"A=\t%.2f\n\n",AreaCurvaTrap);//FIN METODO TRAPECIO
    			//METODO HOMERO
    			fprintf(txt,"   X \t   Y\n");
    			Simson=(a*DerivadaX);
    			Simson=log(1/cos(Simson));
    			Simson=(Simson*ecuacion)/pow(divisorsectan,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",a,Simson);
    			for(x=a+1;x<b;x=x+1)
    			{
    			
    				if((x%2)==0)
    				{
    				AreaCurvaSimson1=pow(x,Potencia);
    				AreaCurvaSimson1=log(1/cos(AreaCurvaSimson1));
    				AreaCurvaSimson1=(AreaCurvaSimson1*ecuacion)/pow(divisorsectan,(Potencia-1));
    				AreaCurvaSimson1=(AreaCurvaSimson1*2);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson1);
    				autosumasim1+=AreaCurvaSimson1;
    				}
    				else 
    				{
    				AreaCurvaSimson2=pow(x,Potencia);
    				AreaCurvaSimson2=log(1/cos(AreaCurvaSimson2));
    				AreaCurvaSimson2=(AreaCurvaSimson2*ecuacion)/pow(divisorsectan,(Potencia-1));
    				AreaCurvaSimson2=(AreaCurvaSimson2*4);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson2);
    				autosumasim2+=AreaCurvaSimson2;
    				}
    				
    			}UniCuadradas=pow(b,Potencia);
    			UniCuadradas=log(1/cos(UniCuadradas));
    			UniCuadradas=(UniCuadradas*ecuacion)/pow(divisorsectan,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    			
    			AreaCurvaSimsonTotal=((autosumasim1+autosumasim2)+UniCuadradas);
    			AreaCurvaSimsonTotal=((AreaCurvaSimsonTotal)*(Intervalo/3));
    			fprintf(txt,"A=:\t%.2f\n\n",AreaCurvaSimsonTotal);//FIN METODO HOMERO
    				fclose(txt);
    				_execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    				system("pause");
    }//FIN ECUACION SECANTEv * tanv
    else if(formula==11)
            {system("CLS");
                printf("Ingresa la Constante de la ecuacion:\t");
                scanf("%f",&ecuacion);
                printf("Ingresa la constante de x:\t");
                scanf("%f",&Constante);
                printf("Ingresa la Potencia de x:\t");
                scanf("%f",&Potencia);
                printf("Ingresa el Limite b de la ecuacion:\t");
                scanf("%f",&b);
                printf("Ingresa el Limite a de la ecuacion:\t");
                scanf("%f",&a);
                printf("Ingresa el Intervalo de la ecuacion:\t");
                scanf("%f",&Intervalo);
    				FILE* txt = fopen("datos.txt", "w+");
    				fprintf(txt,"   X \t   Y\n");
                   for ( x=a;x<b;x++)
                   {
    				divisorsectan = (Constante * Potencia);
                    divisorsectan = (divisorsectan * x);
                       DerivadaX = pow(x, Potencia);
                       DerivadaX = (DerivadaX * Constante);
    						INTEGRAL= (1/sin(DerivadaX));
    						INTEGRAL = (INTEGRAL* ecuacion) ;
    							Derivadasectan = INTEGRAL / pow(divisorsectan,(Potencia-1));
                       fprintf(txt,"%.2f\t%.2f\n",x,Derivadasectan);                  
                   }UniCuadradas=pow(b,Potencia);
    				   UniCuadradas=log(1/cos(UniCuadradas))*ecuacion;
    				   UniCuadradas=UniCuadradas/pow(divisorsectan,(Potencia-1));
    				      fprintf(txt,"A=:\t%.2f\n\n",UniCuadradas);
    				   //METODO TRAPECIO
    				   fprintf(txt,"   X \t   Y\n");
    				   Trapeciox=pow(a,Potencia);
    				   Trapeciox=log(1/sin(Trapeciox))*(ecuacion)/2;
    				   fprintf(txt,"%.2f\t%.2f\n",a,Trapeciox);
    				   autosumasim1+=Trapeciox;
    					for( x=(a+=1);x<b;x++)
    			{
    				 AreaTrap=pow(x ,Potencia)*Constante;
    				 AreaTrap=log(1/sin(AreaTrap))*ecuacion;
    				 	fprintf(txt,"%.2f\t%.2f\n",x,AreaTrap);
    					autosumasim2+=AreaTrap;
    			}
    			UniCuadradas=pow(b,Potencia);
    				   UniCuadradas=log(1/sin(UniCuadradas))*(ecuacion)/2;
    				fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    				
    			AreaCurvaTrap=((autosumasim1+UniCuadradas)+autosumasim2)*Intervalo;
    			fprintf(txt,"A=\t%.2f\n\n",AreaCurvaTrap);//FIN METODO TRAPECIO
    			//METODO HOMERO
    			fprintf(txt,"   X \t   Y\n");
    			Simson=(a*DerivadaX);
    			Simson=(1/sin(Simson));
    			Simson=(Simson*ecuacion)/pow(divisorsectan,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",a,Simson);
    			for(x=a+1;x<b;x=x+1)
    			{
    			
    				if((x%2)==0)
    				{
    				AreaCurvaSimson1=pow(x,Potencia);
    				AreaCurvaSimson1=(1/sin(AreaCurvaSimson1));
    				AreaCurvaSimson1=(AreaCurvaSimson1*ecuacion)/pow(divisorsectan,(Potencia-1));		
    				AreaCurvaSimson1=(AreaCurvaSimson1*2);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson1);
    				autosumasim1+=AreaCurvaSimson1;
    				}
    				else 
    				{
    				AreaCurvaSimson2=pow(x,Potencia);
    				AreaCurvaSimson2=(1/sin(AreaCurvaSimson2));
    				AreaCurvaSimson2=(AreaCurvaSimson2*ecuacion)/pow(divisorsectan,(Potencia-1));
    				AreaCurvaSimson2=(AreaCurvaSimson2*4);
    				fprintf(txt,"%.2d\t%.2f\n",x,AreaCurvaSimson2);
    				autosumasim2+=AreaCurvaSimson2;
    				}
    				
    			}UniCuadradas=pow(b,Potencia);
    			UniCuadradas=(1/sin(UniCuadradas));
    			UniCuadradas=(UniCuadradas*ecuacion)/pow(divisorsectan,(Potencia-1));
    			fprintf(txt,"%.2f\t%.2f\n",b,UniCuadradas);
    			
    			AreaCurvaSimsonTotal=((autosumasim1+autosumasim2)+UniCuadradas);
    			AreaCurvaSimsonTotal=((AreaCurvaSimsonTotal)*(Intervalo/3));
    			fprintf(txt,"A=:\t%.2f\n\n",AreaCurvaSimsonTotal);//FIN METODO HOMERO
    				fclose(txt);
    				_execl("C:\\Program Files\\Microsoft Office 15\\root\\office15\\excel.exe", "/e datos.txt");
    				system("pause");
    //FIN ECUACION COSECANTEV*COTANGENTEV
    		}//TRAPECIO
    }//FIN CODIGO		

    miércoles, 25 de noviembre de 2015 22:57