QUADMET
.PDFCтeкущee прeдeльнoe значeниe глубины дeлeния
Cпoпoлам равнo LEVMAX
C
62 FLAG=FLAG+1.0
C
C** этап 7 ** схoдимoсть для интeрвала имeeт мeстo
Cприбавить oчeрeдныe слагаeмыe к пeрeмeнным суммам
70 RESULT=RESULT+QNOW ERREST=ERREST+ESTERR COR11=COR11+QDIFF/1023.0
Cустанoвить слeдующий интeрвал
C
72IF (NIM.EQ.2*(NIM/2)) GO TO 75 NIM=NIM/2
LEV=LEV-1
GO TO 72
75NIM=NIM+1
IF (LEV.LE.0) GO TO 80
C
Cсoбрать элeмeнты,нeoбхoдимыe для слeдующeгo
Cинтeрвала
C
QPREV=QRIGHT(LEV)
X0=X(16)
F0=F(16)
DO 78 I=1,8
F(2*I)=FSAVE(I,LEV)
X(2*I)=XSAVE(I,LEV)
78CONTINUE GO TO 30
C
C ** этап 8 ** заключитeльныe oпeрации и выхoд
C
80 RESULT=RESULT+COR11
C
Coбeспeчить, чтoбы значeниe пeрeмeннoй ERREST
31
Cбылo нe мeньшe урoвня oкруглeний
C
IF (ERREST.EQ.0.0) RETURN
82TEMP=DABS(RESULT)+ERREST
IF (TEMP.NE.DABS(RESULT)) RETURN ERREST=2.0*ERREST
GO TO 82 END
32
Список тестовых заданий
N |
Функция f(x) |
отн. точность ² |
интервал интегрирования |
|||||||||||||||||
1 |
ln(cos(x=3:1)) |
0.01 |
[1.7,2.7] |
|||||||||||||||||
2 |
ln(cos(x exp(¡2))) |
0.01 |
[40,43] |
|||||||||||||||||
3 |
ln(sin(¼x=10)) |
0.01 |
[3,5] |
|||||||||||||||||
4 |
ln(tg(x=¼)) |
0.01 |
[1.7,2.7] |
|||||||||||||||||
5 |
ln(sin(x exp(¡2))) |
0.01 |
[12,16] |
|||||||||||||||||
6 |
ln(tg(xp |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
0.01 |
[2,3] |
|||
10)) |
|
|
|
|||||||||||||||||
7 |
arcsin(exp(¡xp |
|
|
|
0.01 |
[0.8,1.3] |
||||||||||||||
2)) |
||||||||||||||||||||
8 |
arcsin(exp(¡x=7)) |
0.01 |
[8,13] |
|||||||||||||||||
9 |
arccos(exp(¡xp3 |
|
|
0.01 |
[0.2,0.5] |
|||||||||||||||
3)) |
||||||||||||||||||||
10 |
arccos(exp(¡x=7)) |
0.01 |
[3,7] |
|||||||||||||||||
|
q |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||
11 |
sh(xp |
|
|
|
|
) |
0.01 |
[1.5,2.1] |
||||||||||||
2¼ |
|
|
|
|
||||||||||||||||
|
q |
|
|
|
|
|
|
|
|
|
|
|
||||||||
12 |
th(xp |
|
|
|
) |
0.01 |
[0.5,1.5] |
|||||||||||||
2¼ |
|
|
|
|
|
|||||||||||||||
13 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
0.01 |
[1.5,2.5] |
||
3 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||
ch(x ln(10)) |
||||||||||||||||||||
|
p |
|
|
|
|
|
|
|||||||||||||
14 |
p3 sh(xp |
e |
) |
0.01 |
[2.5,5.0] |
33
КВАДРАТУРНЫЕ ФОРМУЛЫ. ЧИСЛЕННОЕ ИНТЕГРИРОВАНИЕ.
Составители:
Кулинич Виктор Валентинович
Подписано к печати . Формат 60х84 1/16. Печать офсетная. Бумага оберточная. Усл.печ.л. 1.7.
Тираж 500 экз. Заказ . Бесплатно. Нижегородский государственный университет им.Н.И.Лобачевского.
603600 ГСП-20, Н.Новгород, просп.Гагарина, 23. Типография ННГУ. 603600, Н.Новгород, ул.Б.Покровская, 37.