R
rimon
Мозг не работает, не могу подставить свои значения и решить...(((
На выходе должны получаться 2 файла:
Вот пример подобной задачи:
link removed
file1.BAS
file2.BAS
Мне же нужно сделать тоже самое для следующих значений:
link removed
На выходе должны получаться 2 файла:
Вот пример подобной задачи:
file1.BAS
Код:
cls
Def FnA(x)=1/sqr(9+x^2)
sub Trap (A,B,n,S)
Local x,h,i
x=A:S=FnA(A)+FnA(B)
h=(B-A)/n
for i=1 to n-1
x=x+h: S=S+2*FnA(x)
next i
S=S*h/2
end sub
b=2
x=b:Y=ln(x+sqr(x^2+9))-ln3
eps=1E-5
n=208
call Trap(0,2,n,s1)
Do
n=2*n: call Trap(0,2,n,s2)
if Abs(s2)<=1 then R=1 else R=s2
Del=Abs((s2-s1)/R)
s1=s2
Loop until Del<eps
? using "n=###.####### F=###.#######";n,s2
end
file2.BAS
Код:
Def FnA(x)=1/sqr(9+x^2)
sub simpson (A,B,n,d,S)
local x,h,i
x=A:S=FnA(A)+FnA(B)
h=(B-A)/n
for i=1 to n-1
x=x+h: S=S+(3+d)*FnA(x)
d=-d
next i
S=S*h/3
end sub
eps=1E-5
n=208
d=0
call simpson (0,2,n,d,S)
do
n=n*2: call simpson (0,2,n,d,s2)
if Abs(s2)<=1 then r=1 else R=s2
del=Abs((s2-s1)/R)
s1=s2
loop until del<eps
print using "S=###.####### ";S
end
Мне же нужно сделать тоже самое для следующих значений: