-
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
- A Szwajcarzy kombinują tak: FinalSpark grows human neurons from stem cells and connects them to electrode arrays
- Re: Najgorszy język programowania
- NOWY: 2025-09-29 Alg., Strukt. Danych i Tech. Prog. - komentarz.pdf
- Na grupie comp.os.linux.advocacy CrudeSausage twierdzi, że Micro$lop używa SI do szyfrowania formatu dok. XML
- Błąd w Sofcie Powodem Wymiany 3 Duńskich Fregat Typu Iver Huitfeldt
- Grok zaczął nadużywać wulgaryzmów i wprost obrażać niektóre znane osoby
- 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
Najnowsze wątki
- 2025-12-25 Finlandia przywraca swastykę
- 2025-12-25 Skuteczność wymiaru sprawiedliwości
- 2025-12-24 Felgi
- 2025-12-24 2,5 x więcej niż Li-Ion
- 2025-12-24 No i kolejny ograniczony
- 2025-12-24 Warszawa => Młodszy Specjalista ds. wsparcia sprzedaży <=
- 2025-12-24 New York Times zagrożeniem bezpieczeństwa narodowego USA - POTUS D. Trump
- 2025-12-24 Podżeganie?
- 2025-12-24 => Senior Algorithm Developer (Java/Kotlin) <=
- 2025-12-24 otwarcie drugiej obwodnicy Trójmiasta
- 2025-12-24 Tfu! Przeklety prostokąt (czyli UPS i "sinus modyfikowany")
- 2025-12-23 Prezent dla kierowców od prezydenta Nawrockiego
- 2025-12-23 Warszawa => Asystent ds. Sprzedaży i Rozwoju Klienta <=
- 2025-12-23 Warszawa => Senior IT Recruitment Consultant <=
- 2025-12-22 czy wiedziałeś że?




7 pułapek i okazji - zobacz co cię czeka podczas kupna mieszkania na wynajem