Курсовая работа: курсовые
Название: курсовые Раздел: Рефераты по математике Тип: курсовая работа |
Асимптотические методы исследования интегралов с параметром Курсовая работа Выполнил: ст-т 4 курса Бутаев Г.Н. Дагестанский государственный университет Махачкала 2006 Введение Многочисленные задачи математики, математической физики,механики,техники приводят к необходимости исследовать интегралы вида при больших значениях параметра Можно по пальцам пересчитать те случаи,когда такие интегралы явно вычисляются. С другой стороны,при больших значениях параметра вычисление значений таких интегралов не под силу даже самым современным ЭВМ.Единственное,что остается – это попытаться воспользоваться асимптотическими методами. Асимптотические методы, к сожалению, также имеют свои границы. Не следует думать, что асимптотику любого интеграла вышеприведенного вида можно вычислить. Но в ряде случаев получающиеся асимптотические формулы настолько просты,что сомневаться в применении именно этих методов не приходится. 1.Основные формулы Интегралами Лапласа называются интегралы вида
где
случай рис.1 Пусть Пусть
где
Следовательно,
Заметим,что
так как
Итак,мы получили асимптотическую формулу
Пример 1.Вычислим интеграл
Здесь функция
Получили формулу:
Пример 2.Получим асимптотическое разложение гамма-функции Эйлера Метод Лапласа непосредственно неприменим к этому интегралу, так как функция Представим подинтегральную функцию в виде и сделаем замену переменной, положив
Наш интеграл примет вид:
Это интеграл Лапласа: здесь Получили формулу: Из этой формулы непосредственно следует формула Стирлинга так как Пусть теперь
Заметим,что
Пример 3.Вычислим интеграл Здесь функция
Получили формулу: По существу эти две формулы являются основными асимптотическими формулами для интегралов Лапласа.Нам удалось получить простые асимптотические формулы по двум следующим причинам: 1).Подытегральная функция имеет при больших 2).В окрестности точки максимума подынтегральную функцию можно заменить более простой (например,такой,что интеграл от нее берется или его асимптотика легко вычисляется). 2.Простейшие оценки Лемма 1.1. Пусть и при некотором
Тогда имеет место оценка
3.Лемма Ватсона Рассмотрим интеграл Лапласа,в котором S-степенная функция
где Получим асимптотические оценки для
Главный член асимптотики имеет вид
Пример 4.Вычислим интеграл
Здесь Получили формулу:
4.Вклад от граничной точки максимума (основной случай) Рассмотрим интеграл Лапласа Теорема 1.1. Пусть 1º. 2º. 3º. Тогда при
Коэффициенты
Главный член асимптотики имеет вид
Рассмотрим интеграл
Пусть при
Пример 5.Вычислим интеграл Функция Пусть [a,b]- конечный отрезок максимума только в точке
справедлива формула где Пример 6. Найдем асимптотику при где В данном случае
находим, что Пример 7.Покажем, что при Здесь получим 5.Вклад от внутренней невырожденной точки максимума Теорема 1.2. Пусть 1º. 2º. 3º. Тогда при
Коэффициенты
Главный член асимптотики (1.9) имеет вид
Теорема 1.3. Пусть все условия теоремы 1.2 выполнены, за исключением одного: Тогда при
Главный член асимптотики имеет вид
Пример 8.Покажем, что при
Имеем где Интеграл выяисляется по формуле (1.12): Получили формулу: Пример 9. Покажем, что при Воспользуемся тождеством
Тогда сумма примет вид
В данном случае 6.Программа и численные результаты Следующая программа вычисляет интеграл по формуле Симпсона и методом Лапласа: unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) GroupBox1: TGroupBox; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Label5: TLabel; StatusBar1: TStatusBar; Button1: TButton; Button2: TButton; GroupBox2: TGroupBox; Panel1: TPanel; Panel2: TPanel; Label6: TLabel; Label7: TLabel; procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Edit2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Edit3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Edit4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; x,v,a,b,r,r2,h,eps,lam,lap: extended; n: integer; implementation {$R *.dfm} procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText:='Введитенижнююграницу'; end; procedure TForm1.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText:='Введитеверхнююграницу'; end; procedure TForm1.Edit3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText:='ВведитеточностьдляметодаСимпсона'; end; procedure TForm1.Edit4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText:='ВведитепараметрвинтегралеЛапласа'; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText:=''; end; function f(x,lam:extended):extended; //Подинтегральнаяфункция begin f:=(sin(x)+4)*exp(-2*lam*x); end; function simpson(a,b:extended;n:integer):extended; var s,h:extended; m,mn:integer; begin h:=(b-a)/n; s:=f(a,lam)+f(b,lam); mn:=4; for m:=1 to n-1 do begin s:=s+mn*f(a+h*m,lam); if (mn=4) then mn:=2 else mn:=4; end; simpson:=s*h/3; end; procedure TForm1.Button1Click(Sender: TObject); begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); eps:=StrToFloat(Edit3.Text); lam:=StrToFloat(Edit4.Text); n:=3; r:=simpson(a,b,n); repeat r2:=r; n:=n+2; r:=simpson(a,b,n); h:=(b-a)/n; until (abs(r-r2)<eps); Panel1.Caption:=FloatToStr(r); lap:=2/lam; Panel2.Caption:=FloatToStr(lap); end; procedure TForm1.Button2Click(Sender: TObject); begin Close; end; procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText:='Вычислениеинтеграла'; end; procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.SimpleText:='Выходизпрограммы'; end; end. Пример 3.Для интеграла при Пример 1.Для интеграла получены результаты: Пример 4.Для интеграла получены результаты: Список литературы Федорюк М.В. «Асимптотика: интегралы и ряды». М.:Наука, 1977. |