YS=fna(X,Y)=X/2+exp(2)/(X+Y) icon

YS=fna(X,Y)=X/2+exp(2)/(X+Y)



НазваниеYS=fna(X,Y)=X/2+exp(2)/(X+Y)
Дата конвертации07.12.2012
Размер29.12 Kb.
ТипДокументы
1. /BASIC_~1/DIFUR.TXT
2. /BASIC_~1/INF-KA~1.DOC
3. /BASIC_~1/INF-KA~2.DOC
4. /BASIC_~1/~$F-KA~1.DOC
5. /BASIC_~1/~$F-KA~2.DOC
Программа процедура S2=0, S4=0, X=A+H, Z=X+h s4=S4+fna(X) S2=S2+fna(Z) X=X+2 h z=Z+h i1=(2*S2+4*S4+fna(A)-fna(B))*H/3
YS=fna(X,Y)=X/2+exp(2)/(X+Y)

Главный модуль







X=A,

H=(B-A)/N,

XP=X+DX,

YS=FNA(X,Y)=X/2+EXP(2)/(X+Y)






YS=FNA(X,Y)

XP=XP+DX
























REM"ГЛАВНЫЙ МОДУЛЬ"

REM"ПРОГРАММА ПО ВЫЧИСЛЕНИЮ ДИФФЕРЕНЦИАЛЬНЫХ УРАВНЕНИЙ"

REM" ИСПРАВЛЕННЫЙ МЕТОД ЭЙЛЕРА"

$INCLUDE "DIF.BAS"

INPUT "НАЧАЛО ИНТЕГРИРОВАНИЯ A=";A

INPUT "КОНЕЦ ИНТЕГРИРОВАНИЯ B=";B

INPUT "КОЛ-ВО ОТРЕЗКОВ РАЗБИЕНИЙ N=";N

INPUT "ШАГ ПЕЧАТИ DX=";DX

INPUT "НАЧАЛЬНЫЕ УСЛОВИЯ Y0=";Y0

X=A

H=(B-A)/N

XP=X+DX

DEF FNA(X,Y)=X/2+EXP(2)/(X+Y)

YS=FNA(X,Y)

OPEN "DIFUR.TXT" FOR APPEND AS#1

?#1," X Y YS"

DO

CALL DIF(XP,X,Y,H)

YS=FNA(X,Y)

? X,Y,YS

?#1,X,Y,YS

XP=XP+DX

LOOP WHILE XP-B<=0

?"РЕЗУЛЬТАТЫ ВЫЧИСЛЕНИЙ"

?"X=";X

?"Y=";Y

?"YS=";YS

?#1," OTVET:"

?#1,"_________________________________________________________________________"

?#1,"X=";X

?#1,"Y=";Y

?#1,"YS=";YS

END



YP=FNF(X,Y)

Y=Y+H/2*(YP+FNA(X+H,Y+H*YP))

X=X+H


















REM

SUB DIF(XP,X,Y,H)

DO

YP=FNA(X,Y)

Y=Y+H/2*(YP+FNA(X+H,Y+H*YP))

X=X+H

LOOP WHILE X-XP<=0

END SUB


РАСПЕЧАТКА ФАЙЛА DIFUR.TXT

ДЛЯ ДАННЫХ

A=1.8

B=4.6

N=70

DX=0.2

Y0=4.5

X Y YS

2.039999723434448 .9744482636451721 3.471213579177856

2.239999532699585 1.619788289070129 3.034368276596069

2.439999341964722 2.202167272567749 2.811725378036499

2.639999151229858 2.751211881637573 2.690573930740356

2.839998960494995 3.282244682312012 2.626919031143188

3.039998769760132 3.804422378540039 2.599572896957397

3.239998579025269 4.32374095916748 2.596904516220093

3.439998388290405 4.844382286071777 2.611925363540649

3.639998197555542 5.369407176971436 2.640148162841797

3.839998006820679 5.901133060455322 2.678540945053101

4.039998054504395 6.441370964050293 2.724969625473022

4.239997863769531 6.99156379699707 2.777882099151611

4.439997673034668 7.552887916564941 2.836118698120117

4.639997482299805 8.126315116882324 2.898792028427124

OTVET:

______________________________________________________________________________

X= 4.639997482299805

Y= 8.126315116882324

YS= 2.898792028427124






Рис.1 График y=F(x)






Рис.2 График функции y=F’(x)



Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©lib.podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы