/*****************************************************************
* Ovo delo zaštićeno je licencom Creative Commons CC BY-NC-ND 4.0
* (Attribution-NonCommercial-NoDerivatives 4.0 International License).
* Za detalje pogledati LICENSE.TXT
* Autori: Milena Vujosevic Janicic, Jelena Graovac, Nina Radojicic,
*             Ana Spasic, Mirko Spasic, Andjelka Zecevic
******************************************************************/

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <string.h>

/* Funkcija tabela() prihvata granice intervala a i b, broj
   ekvidistantnih tacaka n, kao i pokazivac f koji pokazuje na
   funkciju koja prihvata double argument i vraca double vrednost.
   Za tako datu funkciju ispisuju se njene vrednosti u intervalu
   [a,b] u n ekvidistantnih tacaka intervala */
void tabela(double a, double b, int n, double (*fp) (double))
{
  int i;
  double x;

  printf("-----------------------\n");
  for (i = 0; i < n; i++) {
    x = a + i * (b - a) / (n - 1);
    printf("| %8.5f | %8.5f |\n", x, (*fp) (x));
  }
  printf("-----------------------\n");
}

double sqr(double a)
{
  return a * a;
}

int main(int argc, char *argv[])
{
  double a, b;
  int n;

  char ime_funkcije[6];

  /* Pokazivac na funkciju koja ima jedan argument tipa double i
     povratnu vrednost istog tipa */
  double (*fp) (double);

  /* Ukoliko korisnik nije uneo trazene argumente, prijavljuje se
     greska */
  if (argc < 2) {
    fprintf(stderr, "Greska: ");
    fprintf(stderr,
            "Nedovoljan broj argumenata komandne linije.\n");
    fprintf(stderr,
            "Program se poziva sa %s ime_funkcije iz math.h.\n",
            argv[0]);
    exit(EXIT_FAILURE);
  }

  /* Niska ime_funkcije sadrzi ime trazene funkcije koja je
     navedena u komandnoj liniji */
  strcpy(ime_funkcije, argv[1]);

  /* Inicijalizuje se pokazivac na funkciju koja se tabelira */
  if (strcmp(ime_funkcije, "sin") == 0)
    fp = &sin;
  else if (strcmp(ime_funkcije, "cos") == 0)
    fp = &cos;
  else if (strcmp(ime_funkcije, "tan") == 0)
    fp = &tan;
  else if (strcmp(ime_funkcije, "atan") == 0)
    fp = &atan;
  else if (strcmp(ime_funkcije, "acos") == 0)
    fp = &acos;
  else if (strcmp(ime_funkcije, "asin") == 0)
    fp = &asin;
  else if (strcmp(ime_funkcije, "exp") == 0)
    fp = &exp;
  else if (strcmp(ime_funkcije, "log") == 0)
    fp = &log;
  else if (strcmp(ime_funkcije, "log10") == 0)
    fp = &log10;
  else if (strcmp(ime_funkcije, "sqrt") == 0)
    fp = &sqrt;
  else if (strcmp(ime_funkcije, "floor") == 0)
    fp = &floor;
  else if (strcmp(ime_funkcije, "ceil") == 0)
    fp = &ceil;
  else if (strcmp(ime_funkcije, "sqr") == 0)
    fp = &sqr;
  else {
    fprintf(stderr, "Greska");
    fprintf(stderr,
            "Program jos uvek ne podrzava trazenu funkciju!\n");
    exit(EXIT_FAILURE);
  }

  printf("Unesite krajeve intervala:\n");
  scanf("%lf %lf", &a, &b);

  printf("Koliko tacaka ima na ekvidistantnoj mrezi ");
  printf("(ukljucujuci krajeve intervala)?\n");
  scanf("%d", &n);

  /* Mreza mora da ukljucuje bar krajeve intervala, tako da se mora
     uneti broj veci od 2 */
  if (n < 2) {
    fprintf(stderr, "Greska: Broj tacaka mreze mora biti bar 2!\n");
    exit(EXIT_FAILURE);
  }

  /* Ispisuje se ime funkcije */
  printf("     x %10s(x)\n", ime_funkcije);

  /* Funkciji tabela() se prosledjuje funkcija koja je zadata kao
     argument komandne linije */
  tabela(a, b, n, fp);

  exit(EXIT_SUCCESS);
}