Cálculo de áreas.

12

El código más pequeño que da el área entre la curva p (x) = a ₀ + a ₁ * x + a ₂ * x ² + ..., la línea y = 0, la línea x = 0 y la línea x = C

(es decir, algo como esto:

área deseada )

Puede suponer que p (x)> = 0 para x <C (puntos de bonificación si su código funciona para valores negativos de p (x)).

Entrada

C, a ₀ , a ₁ , ...

Salida

un número real - el área

Ejemplo 1:

input: 2, 0, 1
output: 2.0

Examen 2:

input: 3.0, 0, 0.0, 2
output: 18

ACTUALIZAR:

C> 0 también se supone
el área está entre la curva, y = 0, x = C yx = 0
la entrada puede ser una lista de cualquier forma; no necesariamente separados por comas.
la salida puede ser real de cualquier forma (por lo tanto, '18' es una salida válida, al igual que '18 .0 ')

code-golf

— Eelvex
fuente

1

Dado que la respuesta va a ser "infinita" para casi cualquier entrada, creo que ha expresado mal el problema.

— Peter Taylor

¿Debería leerse la entrada de la entrada estándar como una cadena separada por comas? ¿O podemos escribir una función que tome una lista de flotantes como argumento?

— sepp2k

¿Quieres decir entre x = 0, x = C, y = 0 y la curva?

— Keith Randall

2

@Peter: No lo creo. Se muestra una imagen de una inversa (la integral de los cuales se divergen), pero la función que especifica es un polinomio. La integral definida sobre [0, C) debe estar bien definida y ser finita para coeficientes finitos.

— dmckee --- ex gatito moderador

1

@dmckee, lo había notado, pero mi punto era más que él estaba integrando un polinomio de - \ infty a C, y para cualquier polinomio no trivial que diverge. La pregunta ahora se ha modificado para solucionar esto.

— Peter Taylor

3

Mathematica: 48 caracteres

.

Sum[#[[i+1]]#[[1]]^i/i,{i,Length@#-1}]&@Input[]

— Dr. belisario
fuente

-1 byte: Length@#-> Tr[1^#]. Además, puede omitir @Input[]y hacer una función.

— JungHwan Min

5

Python - 71 63 caracteres:

a=input()
print sum(1.*a[i]*a[0]**i/i for i in range(1,len(a)))

Es una integración simple de una función polinómica entre 0y C. Y no lo he probado, pero estoy bastante seguro de que funciona para valores negativos.

— Juan
fuente

Aprendí algo nuevo sobre input()hoy :)

— st0le

3

Haskell, 85 personajes

f(c:l)=sum.map(\(i,x)->x*c**i/i)$zip[1..]l
main=getLine>>=print.f.read.('[':).(++"]")

— sepp2k
fuente

1

La pregunta no es tan estricta como la tratas. Definitivamente, podría simplificar el código de entrada y posiblemente eliminar por completo las E / S explícitas.

— JB

3

J, 26 caracteres

f=:3 :'((1}.y)&p.d._1)0{y'

p.ej

— Eelvex
fuente

¡Ordenado! No puedo encontrar una manera de hacerlo más tácito. El hecho de d.ser una conjunción no hace que sea muy fácil para mis habilidades de principiante J.

— JB

@JB: Sí, eso d. También es un "problema" para mí. :)

— Eelvex

2

Ruby, 65 caracteres

i=s=0
c=gets(q=",").to_f
$<.each(q){|a|s+=a.to_f*c**(i+=1)/i}
p s

El código se lee hasta el final de la entrada, no al final de la línea. Por lo tanto, debe presionar Ctrl+ Dpara terminar la entrada. (Canalice la entrada usando echoo desde un archivo).

— sepp2k
fuente

1

Creo que la asignación de "" a una variable ayudará ... ¿qué tal esto c=gets(q=",").to_fy $<.each(q){|a|s+=a.to_f*c**(i+=1)/i}, salva una Char ....

— st0le

@ st0le: Muy bien. Gracias.

— sepp2k

Asignar ","(o ?,, que es aún más corto) a le $/permite omitir el argumento $<.each. Y $<.mapes un personaje más corto que $<.each. ;)

— Ventero

2

C GCC 186182 bytes

f(){i=0,l=1;float *d,s=0.0;d=malloc(sizeof(float)*50);scanf("%f",&d[0]);while(getchar()!='\n'){scanf("%f",&d[l]);l++;}for(i=0;i<l;i++)s+=d[i+1]*pow(d[0],(i+1))/(i+1);printf("%f",s);}

Este programa proporciona una salida (área) para cualquier curva entre la curva, y = 0, x = C yx = 0. Puede tomar coeficientes ( floattambién) de un ₀ a un ₄₈ . La primera entrada aceptada es Cseguida por coeficientes. Presione Ènterdespués del último coeficiente.

void f()
{
  int i=0,l=1;
  float *d,s=0.0;
  const int sz=100;
  d=malloc(sizeof(float)*sz);

  scanf("%f",&d[0]);
  while(getchar()!='\n')
  {
    scanf("%f",&d[l]);
    l++;
  }

  for(i=0;i<l;i++)
    s+=d[i+1]*pow(d[0],(i+1))/(i+1);

   printf("%f",s);
}

— Abel Tom
fuente