-
Data: 2012-11-11 00:28:01
Temat: Simpson vs. Niski Cotes
Od: "slawek" <s...@h...pl> szukaj wiadomości tego autora
[ pokaż wszystkie nagłówki ]W kontekście rozmaitych forumowych "specjalistów" od metod numerycznych -
zabawne, jak tym razem będą wyjaśniać trywialny w istocie rezultat...
exact 0.5022749400837604
tapez 0.5022749194207212
simpson 0.5022738634614975
/*
* tq.c
* 2012 (C) slawek
*/
#include <stdio.h>
#include <math.h>
#define NPTS 10000 /* NPTS must be even! */
double x[NPTS+1];
double y[NPTS+1];
double f(double x)
{
return sin(x)*exp(-x);
}
double integrate_exact(double a, double b)
{
return ((cos(a) + sin(a))*exp(-a) - (cos(b) + sin(b))*exp(-b))/2.0;
}
double generate_points(double x[], double y[], double a, double b, int n)
{
int i;
for(i = 1; i <= n; i++)
{
x[i] = a + (i-1) * (b - a)/(n - 1);
y[i] = f(x[i]);
}
}
double integrate_trapez(double x[], double y[], int n)
{
int i;
double s = 0.;
for(i = 2; i <= n; i++)
s += (y[i] + y[i-1]) * (x[i] - x[i-1]) * 0.5; // an naive approach
return s;
}
double integrate_simpson(double x[], double y[], int n)
{
int i;
double odd = 0., even = 0.;
for(i = 1 ; i < n ; i+=2) odd += y[i];
for(i = 2 ; i <= n ; i+=2) even += y[i];
return (2.0*odd-y[1]-y[n] + 4.0*even)*(x[3]-x[1])/6.0;
}
int main(int argc, char* argv[])
{
const double a = 0.;
const double b = 5.;
generate_points(x,y,a,b,NPTS);
printf("exact %.16lg\n", integrate_exact(a,b));
printf("tapez %.16lg\n", integrate_trapez(x,y,NPTS));
printf("simpson %.16lg\n", integrate_simpson(x,y,NPTS));
puts("press enter...");
getchar();
return 0;
}
Następne wpisy z tego wątku
- 11.11.12 14:33 slawek
- 11.11.12 16:42 e...@g...com
- 11.11.12 16:45 kenobi
- 11.11.12 17:29 s
- 11.11.12 17:58 Baranosiu
- 11.11.12 18:33 AK
- 11.11.12 18:44 AK
- 12.11.12 05:11 slawek
- 12.11.12 06:01 slawek
- 12.11.12 06:08 slawek
- 12.11.12 10:46 AK
- 12.11.12 10:48 AK
- 12.11.12 12:53 slawek
- 12.11.12 13:07 slawek
- 12.11.12 13:32 Michoo
Najnowsze wątki z tej grupy
- Can you activate BMW 48V 10Ah Li-Ion battery, connecting to CAN-USB laptop interface ?
- We Wrocławiu ruszyła Odra 5, pierwszy w Polsce komputer kwantowy z nadprzewodzącymi kubitami
- Ada-Europe - AEiC 2025 early registration deadline imminent
- John Carmack twierdzi, że gdyby gry były optymalizowane, to wystarczyły by stare kompy
- Ada-Europe Int.Conf. Reliable Software Technologies, AEiC 2025
- Linuks od wer. 6.15 przestanie wspierać procesory 486 i będzie wymagać min. Pentium
- ,,Polski przemysł jest w stanie agonalnym" - podkreślił dobitnie, wskazując na brak zamówień.
- Rewolucja w debugowaniu!!! SI analizuje zrzuty pamięci systemu M$ Windows!!!
- Brednie w wiki - hasło Dehomag
- Perfidne ataki krakerów z KRLD na skrypciarzy JS i Pajton
- Instytut IDEAS może zacząć działać: "Ma to być unikalny w europejskiej skali ośrodek badań nad sztuczną inteligencją."
- Instytut IDEAS może zacząć działać: "Ma to być unikalny w europejskiej skali ośrodek badań nad sztuczną inteligencją."
- Instytut IDEAS może zacząć działać: "Ma to być unikalny w europejskiej skali ośrodek badań nad sztuczną inteligencją."
- U nas propagują modę na SI, a w Chinach naukowcy SI po kolei umierają w wieku 40-50lat
- C++. Podróż Po Języku - komentarz
Najnowsze wątki
- 2025-07-03 Trybik
- 2025-07-04 Renault Symbioz
- 2025-07-04 Architektura IIIRP: Wyjątkowa, a prymitywniejsza niż stodoła pod zaborami
- 2025-07-04 Warszawa => International Freight Forwarder <=
- 2025-07-04 Wrocław => SAP ABAP Developer <=
- 2025-07-04 Warszawa => Mid/Senior IT Recruiter <=
- 2025-07-04 Białystok => Kotlin Developer <=
- 2025-07-04 Bieruń => Spedytor Międzynarodowy (handel ładunkami/prowadzenie flo
- 2025-07-04 Warszawa => Specjalista wsparcia IT - analiza techniczna sprzętu IT <
- 2025-07-04 Zakrzewo => Konsultant SAP HCM <=
- 2025-07-04 Łódź => Programista Mainframe (z/OS, Assembler) <=
- 2025-07-04 Szczecin => Key Account Manager IT <=
- 2025-07-04 Warszawa => Technik IT - Konfiguracja i Wsparcie Sprzętowe <=
- 2025-07-04 Warszawa => Technique IT - Hardware Configuration and Support <=
- 2025-07-04 Warszawa => Specjalista ds. Sprzętu IT i Wsparcia Technicznego <=