Do obliczenia wartości całki, choć przybliżonej, jest piękny metoda, nazwany na cześć jego twórcy, – metoda Simpsona. Jest również nazywany sposób парабол, ponieważ zastosowano w nim rysowanie paraboli. Ta postać jest zbudowany jak najbliżej funkcji. Właściwie, tak jak wykreślić parabolę, której punkty dokładnie pokrywają się z punktami funkcji, nie można, całka i jest w przybliżeniu. Formuła znalezienie go z granicami a i b wygląda tak: 1/h*(y0+4y1+2y2+4y3+…+4yN-1+yN). Tutaj musimy po prostu obliczać każdy y od 0 do n, gdzie n określamy sami – im więcej, tym lepiej, bo im więcej będzie y-ów, tym bardziej zbliżone do prawdziwego mamy wartość uda. Co do h, to jest to krok i jest obliczana według następującego wzoru: (b-a)/(n-1).
W teorii wszystko jest bardzo proste, ale trzeba było by zrealizować to w praktyce. Dla wielu programistów nie ma lepszego sposobu, aby rozwiązać takiego zadania, jak metoda Simpsona ó Pascal lub Delphi. W tym środowisku można bardzo łatwo nie tylko obliczyć całki, a i zbudować do niego wykres funkcji i nawet выстроенную do niej trapez. Więc zobaczymy, jak można szybko zaimplementować metodę Simpsona i w razie potrzeby nawet przez wyjaśnić, jak tutaj i że zorganizowane, wszystkim zainteresowanym.
Ale zanim to przypomnijmy sobie, jak wygląda całka. To postać, która jest ograniczona linii zaczynających się na osi иксов, czyli a i b.
Tak Więc, na początek w programie należy utworzyć funkcję zintegrowanej funkcji (przepraszam za tautologię), w której po prostu trzeba napisać f:= i to, do czego będziemy znajdować całka. Tutaj bardzo ważne jest, aby nie pomylić się przy wpisywaniu funkcji w języku Pascal. Ale to osobny temat do rozmowy. Otrzymany kod będzie wyglądał mniej więcej tak:
Bardziej:
Siódma wersja systemu Windows od momentu jej wyjścia przedstawił użytkownikom wiele niespodzianek. Tak, wielu odkryli w systemie (a dokładniej w «Menedżerze urządzeń») sterownik do karty tunelowania Teredo firmy Microsoft. Co to jest jasn...
Co to jest Ethernet – główne zalety internetu-sieci
O tym, co to jest Ethernet, okazało się w latach siedemdziesiątych XX wieku. Wynalazł ten typ sieci lokalnej Robert Metcalfe, który pracował w tym czasie na firmy Xerox. W latach 70-tych Metcalf otworzył własną firmę 3com, gdzie zakończyła się opraco...
UAC: wyłączyć lub ułaskawienie
W odległej już od nas w 2006 roku światowa komputerowa opinia publiczna była wstrząsa wyjściem SYSTEMU Windows Vista. Na nowy system od razu runął niesamowity lawinę negatywnych, powód dla którego nadal zostały.Jednym z nich była opcja UAC, wyłączyć ...
Function f(x:real):real;
Treść
Begin
F:=25*ln(x)+sin(10); {tutaj i trzeba napisać zawartość swojej funkcji}
End;
Dalej napiszemy funkcję do realizacji metody Simpsona. Początek będzie mniej więcej tak:
Function simpsonmetod(a,b:real;n:integer):real;
Dalej ogłaszać zmienne:
Var
S:real; { Pośrednie kwoty (dalej zrozumiesz) }
H:real; { Krok }
My:integer; { po Prostu licznik }
Mno:integer; { Kolejne mnożniki }
A teraz, w rzeczywistości, sam program:
Begin
H:=(b-a)/(n-1); { Liczymy krok w standardowej formule. Czasami w zadaniu jest napisane krok, w takim przypadku formuła ta nie ma zastosowania }
S:= f(b)+ f(a); { Ustawia początkową wartość kroku }
Mno:=4; { Pamięta formułę - 1/h*(y0+4y1… to jest ta 4 tu i pisze, drugi mnożnik będzie 2, ale o tym dalej }
Teraz ta podstawowa formuła:
For my:=1 to n-2 do begin
S:=s+mno*f(a+h*moo); { Do kwoty dodajemy kolejny mnożnik, pomnożona przez 4*yN lub 2* yN }
If (mno=4) then mno:=2 else mno:=4;{ Tu i zmienia się mnożnik - jeśli teraz równa 4, to zmienia się na 2 i odwrotnie}
End;
Simpsonmetod:=s*h/3; { Dalej otrzymaną w wyniku cyklu kwotę множим na h/3 według wzoru}
End.
To wszystko – wykonujemy wszystkie czynności według wzoru. Jeśli jeszcze nie zrozumieli, jak zastosować w programie głównym metoda Simpsona, na przykład ci w tym pomoże.
Więc po napisaniu wszystkich funkcji piszemy
Begin
N:=3; { Zadajemy n }
Q:=simpsonmetod(a,b,n); { Ponieważ metoda Simpsona polega na tym, aby obliczać całka od a do b, będzie kilka kroków obliczeń, dlatego organizujemy cykl }
Repeat
Q2:=q; { Pamięta poprzedni krok }
N:=n+2;
Q:=simpsonmetod(a,b,n); { I jest obliczany w następujący wartość }
Until (abs(q-q2)<0.001);{ W zadaniu jest napisane dokładność, więc na razie nie dosięga wymaganej dokładności, trzeba powtarzać te same czynności }
Oto on – metoda Simpsona. Właściwie nic skomplikowanego, pisze się bardzo szybko! A teraz otwórzcie swoje Turbo Pascal i zacznij pisać program.
Article in other languages:
KK: https://tostpost.com/kk/komp-yuterler/12332-nede-d-s-simpson-zh-ne-ony-paskal.html
Alin Trodden - autor artykułu, redaktor
"Cześć, jestem Alin Trodden. Piszę teksty, czytam książki, Szukam wrażeń. I nie jestem zły w opowiadaniu ci o tym. Zawsze chętnie biorę udział w ciekawych projektach."
Nowości
Gra Portal: przejście do drugiej części
Na samym początku gry Portal wydaje się mylące. Pierwsze wrażenie od tego, co dzieje się bardzo niewyraźne. Najpierw trzeba się rozejrzeć i słuchać słów sztucznej inteligencji, sterującego systemem. W trybie nauki przechodzi w pom...
Gry kody "Na tyłach wroga 2: Szturm"
W wielu strategiach istnieje możliwość wpisywania kodów, co znacznie ułatwia rozgrywkę. Mogą bardzo się różnić i oferują wiele możliwości, o których można było wcześniej tylko marzyć, począwszy od małego przyrostu zasobów w celu u...
Szybkość pracy komputera zależy od ilości przetwarzanych informacji
Komputer dla wielu stał się integralną częścią codziennego życia. Niektórzy widzą w nim narzędzie do rozrywki, inne z nim zarabiają. I pierwszy, i drugi bardzo ważny wskaźnik wydajności. Szybkość pracy komputera zależy od wielu cz...
Jak скрафтить зельеварку w "Майнкрафте": instrukcja
Jednym z najważniejszych aspektów "w Ciemności" jest tworzenie mikstur. Sama gra jest już dawno stała się kultowa wszechświata, co zrodziło wiele klonów, a użytkownicy wolą albo zajmować się twórczością, albo przechodzić fabuły ka...
Jak zrobić arkusz w programie Publisher? Tworzenie i opis
Wydanie broszury ó jest to skuteczny sposób prezentowania informacji o produkcie, firmie lub usługach. Do ich tworzenia dobrze nadaje się program Microsoft Publisher. Opanować jej nie jest trudne. Dalej w artykule podamy in...
Jaką криптовалюту teraz opłaca майнить na komputerze?
Obecnie na świecie obserwuje się prawdziwy криптовалютный boom. Po tym jak btc pobił rekord kosztów na światowej giełdzie, wszyscy nagle chcieli go майнить. Jednak to nie jest takie proste. Rzecz w tym, że właśnie w tej kryptowalu...
Uwaga (0)
Ten artykuł nie ma komentarzy, bądź pierwszy!