practica4_5.cpp

Topics Practices: Programming and Numerical Methods Practice 1: Introduction to C Practice 2

/*PRACTICA 4 EJERCICIO 5
En estudios sobre recolecci髇 de energ韆 solar al enfocar un campo de espejos 
planos en un colector central, se obtiene la siguiente ecuaci髇 para el factor 
de concentraci髇 geom閠rica C:
                 
      C = ((Pi*(h/cos(A))^2)*F)/(0.5*Pi*D^2(1 + sen(A) - 0.5*cos(A))
      
donde A es el 醤gulo del anillo del campo, F es la cobertura fraccionaria del 
campo con los espejos, D es el di醡etro del colector y h es la altura del mismo. 
Encontrar el valor de A, si h = 300, C = 1200, F = 0.8 y D = 14.*/


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

float f(float a)
{
      float c,h,f,d,Pi;
      c=1200;
      h=300;
      f=0.8;
      d=14;
      Pi=M_PI;
      return (Pi*((h/cos(a))*(h/cos(a)))*f)/(0.5*(d*d)*(1+sin(a)-0.5*cos(a)))-c;
}
main()
{
      float n,b,k;
      printf("ingrese el extremo izquierdo del intervalo= ");
      scanf("%f", &n);
      printf("ingrese el extremo derecho del intervalo= ");
      scanf("%f", &b);
      printf("f(%f) = %f\n", n, f(n));
      printf("f(%f) = %f\n", b, f(b));
      if(f(n)<0 && f(b)>0)
      {
                while(b-n>=1e-5)
                {
                      k=(n+b)/2;
                      if(f(k)>0)
                         b=k;
                      else
                         n=k;
                 }
      printf("la raiz es %f \n", k);
      }
      else 
      {
      printf("no cumple la hipotesis!!\n");
      }
printf("PRESIONE CUALQUIER TECLA PARA TERMINAR!!!!"); 
getch();      
}