gas / doc / OP2

.TXT

Скачиваний:

Добавлен:

15.06.2014

Размер:

13.31 Кб

Скачать

☆

ЉЋЊЏ‹…Љ‘ “—…ЃЌЋ-‹ЂЃЋђЂ’ЋђЌ›• ЏЋ„ЏђЋѓђЂЊЊ

„‹џ –€”ђЋ‚ЋѓЋ ЊЋ„…‹€ђЋ‚ЂЌ€џ

‘€‘’…Њ› Љ‚ЂЌ’Ћ‚ЂЌ€џ

Ќ…Џђ…ђ›‚Ќ›• ‘ЋЋЃ™…Ќ€‰ ЏЋ “ђЋ‚Ќћ

‘ Ћ „ … ђ † Ђ Ќ € …
-------------------

1. ЋЎйЁҐ бўҐ¤ҐЁп
2. ”гЄжЁ® «м®Ґ § зҐЁҐ Є®¬Ї«ҐЄб
3. ЋЇЁб ЁҐ ЇаЁ¬ҐҐЁп Є®¬Ї«ҐЄб
4. ‚е®¤лҐ Ё ўле®¤лҐ ¤ лҐ
5. ‘ЇЁб®Є Ї®¤Їа®Ја ¬¬ Є®¬Ї«ҐЄб
1. Function GAUSS
2. Function MIN
3. Function MAX
4. Procedure GKLF
5. Procedure SAG
6. Procedure KVN
7. Procedure PV
8. Procedure GRA

1. ЋЎйЁҐ бўҐ¤ҐЁп.

‚ ¤ ®¬ вҐЄбвҐ ЇаЁў®¤Ёвбп ®ЇЁб ЁҐ Є®¬Ї«ҐЄб гзҐЎ®-« Ў®а в®але Ї®¤Їа®-
Ја ¬¬ "–Ёда®ў®Ґ ¬®¤Ґ«Ёа®ў ЁҐ бЁбвҐ¬л Єў в®ў Ёп ҐЇаҐалўле б®®ЎйҐЁ© Ї®
га®ўо".Љ®¬Ї«ҐЄб б®бв®Ёв Ё§ Ї®¤Їа®Ја ¬¬, ЇЁб ле «Ј®аЁ¬ЁзҐбЄ®¬ п§лЄҐ
"Turbo Pascal 7.0" Ё Ї®¬ҐйҐле ў ¬®¤г«м GNK.

2. ”гЄжЁ® «м®Ґ § зҐЁҐ Є®¬Ї«ҐЄб .

Љ®¬Ї«ҐЄб Ї®¤Їа®Ја ¬¬ ЇаҐ¤ § зҐ ¤«п ¬®¤Ґ«Ёа®ў Ёп бЁбвҐ¬л а ў®¬Ґа®Ј®
Єў в®ў Ёп ҐЇаҐалўле б®®ЎйҐЁ© Ї® га®ўо ЇгвҐ¬ ЇаҐ¤бв ў«ҐЁп бд®а¬Ёа®ў ®©
дгЄжЁЁ "ҐЇаҐалў®Ј®" аЈг¬Ґв ў ўЁ¤Ґ Єў в®ў ®© дгЄжЁЁ в®Ј® ¦Ґ
аЈг¬Ґв .ЏаЁ нв®¬ Єў в®ў ЁҐ ®бгйҐбвў«пҐвбп ¬Ґв®¤®¬ б®®вҐбҐЁп Ёбе®¤®Ј®
бЁЈ « б Ў«Ё¦ ©иЁ¬ § зҐЁҐ¬ га®ўп.
‚®§¬®¦® Ја дЁзҐбЄ®Ґ ЇаҐ¤бв ў«ҐЁҐ Ёбе®¤®© Ё ўбҐе ЇаҐ®Ўа §®ў ле дгЄжЁ©.

3. ЋЇЁб ЁҐ ЇаЁ¬ҐҐЁп Є®¬Ї«ҐЄб .

„«п ЁбЇ®«м§®ў Ёп Є®¬Ї«ҐЄб ў ‚ иҐ© Їа®Ја ¬¬Ґ Ґ®Ўе®¤Ё¬® б ¬л¬ ЇҐаўл¬
®ЇҐа в®а®¬ Їа®Ја ¬¬л Ї®бв ўЁвм USES gnk.ЏаЁ §в®¬ Ґ®Ўе®¤Ё¬® «ЁзЁҐ д ©«
gnk.tpu ў вҐЄгйҐ¬ Є в «®ЈҐ Ё«Ё ў Є в «®ЈҐ,гЄ § ®¬ ў ¬Ґо
Options|Directories...|Unit directories.„«п ®а¬ «м®© а Ў®вл Їа®жҐ¤гал
Ї®бва®ҐЁп Ја дЁЄ®ў GRA Ґ®Ўе®¤Ё¬® «ЁзЁҐ д ©« egavga.bgi ў
Є в «®ЈҐ D:/TP/BGI.
"ЌҐЇаҐалў п" дгЄжЁп Ё¬ЁвЁагҐвбп ¬®¦Ґбвў®¬ § зҐЁ© Єгб®з®-«ЁҐ©®©
дгЄжЁЁ,ЈҐҐаЁагҐ¬л¬ Їа®жҐ¤га®© GKLF.‘ Ї®¬®ймо Їа®жҐ¤гал SAG ®бгйҐбвў«пҐвбп
бва®©Є "Єў в®ў вҐ«п" б гзҐв®¬ в®з®бвЁ ®в®Ўа ¦ҐЁп Ёбе®¤®© (ҐЇаҐалў®©)
дгЄжЁЁ Ё ЁвҐбЁўбвЁ Ї®¬Ґе,ў®§¤Ґ©бвўгойЁе Єў в®ў л© Ї® га®ўо бЁЈ «.
‘®ЎлвЁп ў Є «Ґ бўп§Ё ‚ ¬ ЇаЁ¤Ґвбп Ё¬ЁвЁа®ў вм б ¬®бв®пвҐ«м®.„«п нв®Ј® ¤®
®аЈ Ё§®ў вм жЁЄ«,ў вҐ«Ґ Є®в®а®Ј® ¤«п Є ¦¤®Ј® § зҐЁп Ёбе®¤®© дгЄжЁЁ
Їа®Ё§ўҐбвЁ б«Ґ¤гойЁҐ ¤Ґ©бвўЁп:
1 - Їа®Єў в®ў вм б Ї®¬®ймо Ї®¤Їа®Ја ¬¬л KVN;
2 - Ё¬ЁвЁа®ў вм ЁбЄ ¦ҐЁҐ Єў в®ў ®Ј® бЁЈ « б«гз ©®© Ї®¬Ґе®© б Ї®¬®ймо
дгЄжЁЁ GAUSS;
3 - Їа®Єў в®ў вм ЁбЄ ¦Ґ®Ґ б®®ЎйҐЁҐ б Ї®¬®ймо Ї®¤Їа®Ја ¬¬л KVN;
4 - Їа®ўҐаЁвм Їа ўЁ«м®бвм ЇҐаҐ¤ зЁ б Ї®¬®ймо Ї®¤Їа®Ја ¬¬л PV.
„«п Ј«п¤®бвЁ ў®бЇаЁпвЁп ЇаҐ®Ўа §®ў Ё© бЁЈ « ¬®¦® Ї®бва®Ёвм Ја дЁЄЁ
Ёбе®¤®©,Єў в®ў ®©,ЁбЄ ¦Ґ®© Ё Ї®ўв®а® Єў в®ў ®© дгЄжЁ© ў¬ҐбвҐ б
дгЄжЁп¬Ё ®иЁЎ®Є Ё иг¬®ў Єў в®ў Ёп б Ї®¬®ймо Їа®жҐ¤гал GRA.

4. ‚е®¤лҐ Ё ўле®¤лҐ ¤ лҐ.

4.1 ‚е®¤лҐ Ї а ¬Ґвал жЁда®ў®© ¬®¤Ґ«Ё бЁбвҐ¬л Єў в®ў Ёп ҐЇаҐалўле
б®®ЎйҐЁ© Ї® га®ўо:

T - ЇҐаЁ®¤ дгЄжЁЁ;
N - зЁб«® ўбҐе ®вбзҐв®ў аЈг¬Ґв ЁвҐаў «Ґ ®ЇаҐ¤Ґ«ҐЁп дгЄжЁЁ;
K,E - Є«озЁ Їа®жҐ¤гал GRA,®ЇаҐ¤Ґ«пойЁҐ аҐ¦Ё¬л ўлў®¤ Ја дЁЄ®ў дгЄжЁ©;
Na - зЁб«® в®зҐЄ ЇҐаҐЈЁЎ дгЄжЁЁ;
Ax - ўҐйҐбвўҐл© ®¤®¬Ґал© ¬ ббЁў ¤«Ё®© Na, б®¤Ґа¦ йЁ© § зҐЁп
аЈг¬Ґв дгЄжЁЁ ў в®зЄ е ЇҐаҐЈЁЎ ;
Ay - ўҐйҐбвўҐл© ®¤®¬Ґал© ¬ ббЁў ¤«Ё®© Na, б®¤Ґа¦ йЁ© § зҐЁп
дгЄжЁЁ ў в®зЄ е ЇҐаҐЈЁЎ ;
V1 - ЇаҐ¤Ї®« Ј Ґ¬ п ўҐа®пв®бвм Їа ўЁ«м®© ЇҐаҐ¤ зЁ б®®ЎйҐЁп;
dY - ўҐ«ЁзЁ ¤®ЇгбвЁ¬®Ј® Ё§¬ҐҐЁп б®®ЎйҐЁп.

4.2 ‚ле®¤лҐ ўҐ«ЁзЁл

X - ўҐйҐбвўҐл© ®¤®¬Ґал© ¬ ббЁў ¤«Ё®© N, б®¤Ґа¦ йЁ© § зҐЁп
аЈг¬Ґв дгЄжЁЁ;
Y - ўҐйҐбвўҐл© ®¤®¬Ґал© ¬ ббЁў ¤«Ё®© N, б®¤Ґа¦ йЁ© § зҐЁп
бЈҐҐаЁа®ў ®© "ҐЇаҐалў®©" дгЄжЁЁ;
YK - ўҐйҐбвўҐл© ®¤®¬Ґал© ¬ ббЁў ¤«Ё®© N, б®¤Ґа¦ йЁ© § зҐЁп
Єў в®ў ®© дгЄжЁЁ;
YP - ўҐйҐбвўҐл© ®¤®¬Ґал© ¬ ббЁў ¤«Ё®© N, б®¤Ґа¦ йЁ© § зҐЁп
ЁбЄ ¦Ґ®© Єў в®ў ®© дгЄжЁЁ;
YPK - ўҐйҐбвўҐл© ®¤®¬Ґал© ¬ ббЁў ¤«Ё®© N, б®¤Ґа¦ йЁ© § зҐЁп
Ї®ўв®а® Єў в®ў ®© дгЄжЁЁ;
KU - Є®«ЁзҐбвў® га®ўҐ© Єў в®ў Ёп;
NUK - ®¬Ґа ®зҐаҐ¤®Ј® га®ўп Єў в®ў Ёп;
C - зЁб«® Їа ўЁ«м® ЇҐаҐ¤ ле б®®ЎйҐЁ©;
V2 - з бв®в Їа ўЁ«м®© ЇҐаҐ¤ зЁ б®®ЎйҐЁ© (аҐ «м п бв вЁбвЁзҐбЄ п
ўҐа®пв®бвм).

5. ‘ЇЁб®Є Їа®жҐ¤га Є®¬Ї«ҐЄб

1. FUNCTION GAUSS

Ќ § зҐЁҐ
ѓҐҐа жЁп ЇбҐў¤®б«гз ©ле зЁбҐ« б ®а¬ «мл¬ (Ј гбб®ўл¬) а бЇаҐ¤Ґ«ҐЁҐ¬.

Њ вҐ¬ вЁзҐбЄ®Ґ ®ЇЁб ЁҐ
”гЄжЁп ЈҐҐаЁагҐв ўҐйҐбвўҐ®Ґ ЇбҐў¤®б«гз ©®Ґ зЁб«® б ®а¬ «мл¬
а бЇаҐ¤Ґ«ҐЁҐ¬ б ¬ вҐ¬ вЁзҐбЄЁ¬ ®¦Ё¤ ЁҐ¬ M Ё баҐ¤ҐЄў ¤а вЁзҐбЄЁ¬
®вЄ«®ҐЁҐ¬ S.

ѓ«®Ў «млҐ ЇҐаҐ¬ҐлҐ
M - ¬ вҐ¬ вЁзҐбЄ®Ґ ®¦Ё¤ ЁҐ б«гз ©®© ўҐ«ЁзЁл;
S - баҐ¤ҐҐ Єў ¤а вЁз®Ґ ®вЄ«®ҐЁҐ б«гз ©®© ўҐ«ЁзЁл.

’ҐЄбв дгЄжЁЁ

FUNCTION GAUSS(M,S:real):real;
VAR
a,b,c,d:real;
BEGIN
repeat
a:=2*random-1;
b:=2*random-1;
c:=sqr(a)+sqr(b)
until c<1;
d:=sqrt((-2)*ln(c)/c);
GAUSS:=M+S*a*d
END;

2. FUNCTION MIN

Ќ § зҐЁҐ
ЋЇаҐ¤Ґ«ҐЁҐ ¬ЁЁ¬ «м®Ј® § зҐЁп дгЄжЁЁ.

Њ вҐ¬ вЁзҐбЄ®Ґ ®ЇЁб ЁҐ
Џ®¤Їа®Ја ¬¬ ®ЇаҐ¤Ґ«пҐв ¬ЁЁ¬ «м®Ґ § зҐЁҐ дгЄжЁЁ ЇгвҐ¬ Їа®бв®Ј®
ЇҐаҐЎ®а ўбҐе ҐҐ § зҐЁ©.

ѓ«®Ў «млҐ ЇҐаҐ¬ҐлҐ
Y - ®¤®¬Ґал© ¬ ббЁў, б®¤Ґа¦ йЁ© § зҐЁп дгЄжЁЁ.

’ҐЄбв дгЄжЁЁ

FUNCTION Min(var Y:array of real):real;
VAR
i:word;
m:real;
BEGIN
m:=Y[0];
for i:=1 to High(Y) do if Y[i]<m then m:=Y[i];
Min:=m
END;

3. FUNCTION MAX

Ќ § зҐЁҐ
ЋЇаҐ¤Ґ«ҐЁҐ ¬ ЄбЁ¬ «м®Ј® § зҐЁп дгЄжЁЁ.

Њ вҐ¬ вЁзҐбЄ®Ґ ®ЇЁб ЁҐ
Џ®¤Їа®Ја ¬¬ ®ЇаҐ¤Ґ«пҐв ¬ ЄбЁ¬ «м®Ґ § зҐЁҐ дгЄжЁЁ ЇгвҐ¬ Їа®бв®Ј®
ЇҐаҐЎ®а ўбҐе ҐҐ § зҐЁ©.

ѓ«®Ў «млҐ ЇҐаҐ¬ҐлҐ
Y - ®¤®¬Ґал© ¬ ббЁў, б®¤Ґа¦ йЁ© § зҐЁп дгЄжЁЁ.

’ҐЄбв дгЄжЁЁ

FUNCTION Max(var Y:array of real):real;
VAR
i:word;
m:real;
BEGIN
m:=Y[0];
for i:=1 to High(Y) do if Y[i]>m then m:=Y[i];
Min:=m
END;

4.PROCEDURE GKLF

Ќ § зҐЁҐ
ѓҐҐа жЁп Єгб®з®-«ЁҐ©®© дгЄжЁЁ.

Њ вҐ¬ вЁзҐбЄ®Ґ ®ЇЁб ЁҐ
Џа®жҐ¤га ЈҐҐаЁагҐв ЇҐаЁ®¤ЁзҐбЄго Єгб®з®-«ЁҐ©го дгЄжЁо Yo.„«п нв®Ј®
Ї® д®а¬г«Ґ y=k*x+b ўлзЁб«пҐвбп § зҐЁп «ЁҐ©ле гз бвЄ®ў дгЄжЁЁ
ЁвҐаў «Ґ ®в Ax[1] ¤® Ax[1]+T б и Ј®¬ T/(N-1).„«п ®ЇаҐ¤Ґ«ҐЁп Є®нддЁжЁҐв®ў
k Ё b «ЁҐ©ле гз бвЄ®ў ЁбЇ®«м§говбп Є®®а¤Ё вл Na в®зЄҐЄ ЇҐаҐЈЁЎ
(ў ¬ ббЁўҐ Ax) Ё § зҐЁп дгЄжЁЁ ў нвЁе в®зЄ е (ў ¬ ббЁўҐ Ay).

ѓ«®Ў «млҐ ЇҐаҐ¬ҐлҐ
T - ЇҐаЁ®¤ дгЄжЁЁ;
Ax - ўҐйҐбвўҐл© ®¤®¬Ґал© ¬ ббЁў ¤«Ё®© Na,б®¤Ґа¦ йЁ© Є®®а¤Ё вл
в®зЄҐЄ ЇҐаҐЈЁЎ ;
Ay - ўҐйҐбвўҐл© ®¤®¬Ґал© ¬ ббЁў ¤«Ё®© Na,б®¤Ґа¦ йЁ© § зҐЁп
дгЄжЁЁ ў в®зЄ е ЇҐаҐЈЁЎ ;
X - ўҐйҐбвўҐл© ®¤®¬Ґал© ¬ ббЁў ¤«Ё®© N, б®¤Ґа¦ йЁ© § зҐЁп
аЈг¬Ґв дгЄжЁЁ;
Y - ўҐйҐбвўҐл© ®¤®¬Ґал© ¬ ббЁў ¤«Ё®© N, б®¤Ґа¦ йЁ© § зҐЁп
бЈҐҐаЁа®ў ®© Єгб®з®-«ЁҐ©®© дгЄжЁЁ.

‹®Є «млҐ ЇҐаҐ¬ҐлҐ
i - ®¬Ґа ®зҐаҐ¤®Ј® ®вбзҐв ;
j - ®¬Ґа ®зҐаҐ¤®© в®зЄЁ ЇҐаҐЈЁЎ Єгб®з®-«ЁҐ©®© дгЄжЁЁ;
k - Є®нддЁжЁҐв Є«® ®зҐаҐ¤®Ј® гз бвЄ Єгб®з®-«ЁҐ©®© дгЄжЁЁ;
b - Ї®бв®пл© Є®нддЁжЁҐв ®зҐаҐ¤®Ј® гз бвЄ Єгб®з®-«ЁҐ©®© дгЄжЁЁ;
dx - ЁвҐаў « ¬Ґ¦¤г б®бҐ¤Ё¬Ё ®вбзҐв ¬Ё аЈг¬Ґв .

’ҐЄбв Їа®жҐ¤гал

PROCEDURE GKLF(T:real;var Ax,Ay,X,Y:array of real);
VAR
i,j:word;
k,b,dx:real;
BEGIN
dx:=T/High(X);
X[0]:=Ax[0];
Y[0]:=Ay[0];
j:=0;
for i:=1 to High(X) do
begin
X[i]:=X[i-1]+dx;
if (j<High(Ax)) and (X[i]>=Ax[j+1]) then inc(j);
if j<High(Ax)
then k:=(Ay[j+1]-Ay[j])/(Ax[j+1]-Ax[j])
else k:=(Ay[0]-Ay[j])/(Ax[0]+T-Ax[j]);
b:=Ay[j]-k*Ax[j];
Y[i]:=k*X[i]+b
end
END;

5.PROCEDURE SAG

Ќ § зҐЁҐ
ЋЇаҐ¤Ґ«ҐЁҐ Є®«ЁзҐбвў га®ўҐ© Єў в®ў Ёп Ё Ї®«ги Ј Єў в®ў Ёп
б®®ЎйҐЁ© Ї® га®ўо.

Њ вҐ¬ вЁзҐбЄ®Ґ ®ЇЁб ЁҐ
Џа®жҐ¤га ўлЇ®«пҐв ®ЇҐа жЁЁ ў § ўЁбЁ¬®бвЁ ®в § зҐЁп Є«оз K:
K=0 - Ї®«ги Ј Єў в®ў Ёп ®ЇаҐ¤Ґ«пҐвбп б Ї®¬®ймо Ї®¤Їа®Ја ¬¬л OERFC,
Є®«ЁзҐбвў® га®ўҐ© Єў в®ў Ёп ®ЇаҐ¤Ґ«пҐвбп ¤Ґ«ҐЁҐ¬ а §®бвЁ
¬Ґ¦¤г ¬ ЄбЁ¬ «мл¬ Ё ¬ЁЁ¬ «мл¬ § зҐЁп¬Ё дгЄжЁЁ и Ј
Єў в®ў Ёп;
K<>0 - Ї®«ги Ј Єў в®ў Ёп ®ЇаҐ¤Ґ«пҐвбп ¤Ґ«ҐЁҐ¬ а §®бвЁ ¬Ґ¦¤г
¬ ЄбЁ¬ «мл¬ Ё ¬ЁЁ¬ «мл¬ § зҐЁп¬Ё дгЄжЁЁ Є®«ЁзҐбвў®
га®ўҐ© Єў в®ў Ёп.

ѓ«®Ў «млҐ ЇҐаҐ¬ҐлҐ
K - Є«оз,®ЇаҐ¤Ґ«пойЁ© бЇ®б®Ў ўлзЁб«ҐЁп Ї®«ги Ј Єў в®ў Ёп;
V1 - ЇаҐ¤Ї®« Ј Ґ¬ п ўҐа®пв®бвм Їа ўЁ«м®© ЇҐаҐ¤ зЁ б®®ЎйҐЁп ЇаЁ
"Ј гбб®ўле" б«гз ©ле Ї®¬Ґе е ў Є «Ґ бўп§Ё;
M - ЇаҐ¤Ї®« Ј Ґ¬®Ґ ¬ вҐ¬ вЁзҐбЄ®Ґ ®¦Ё¤ ЁҐ ¬Ї«Ёвг¤л "Ј гбб®ў®©"
Ї®¬ҐеЁ;
S - ЇаҐ¤Ї®« Ј Ґ¬®Ґ баҐ¤ҐҐ Єў ¤а вЁз®Ґ ®вЄ«®ҐЁҐ ¬Ї«Ёвг¤л
"Ј гбб®ў®©" Ї®¬ҐеЁ;
Ymin - ¬ЁЁ¬ «м®Ґ § зҐЁҐ дгЄжЁЁ;
Ymax - ¬ ЄбЁ¬ «м®Ґ § зҐЁҐ дгЄжЁЁ;
KU - Є®«ЁзҐбвў® га®ўҐ© Єў в®ў Ёп;
Q - Ї®«ги Ј Єў в®ў Ёп.

’ҐЄбв Їа®жҐ¤гал

PROCEDURE SAG(K:word;V,M,S,Ymin,Ymax:real;var KU:word;var Q:real);
BEGIN
if K=0
then begin
Q:=OERFC(V1,M,S);
KU:=round((Ymax-Ymin)/(2*Q))
end
else if KU=0 then Q:=0 else Q:=((Ymax-Ymin)/KU)/2
END;

6.PROCEDURE KVN

Ќ § зҐЁҐ
Љў в®ў ЁҐ б®®ЎйҐЁ© Ї® га®ўо.

Њ вҐ¬ вЁзҐбЄ®Ґ ®ЇЁб ЁҐ
Џа®жҐ¤га ®бгйҐбвў«пҐв Єў в®ў ЁҐ б®®ЎйҐЁ© Ї® га®ўо.‡ зҐЁҐ
®зҐаҐ¤®Ј® га®ўп Єў в®ў Ёп ўлзЁб«пҐвбп Є Є бг¬¬ ¬ЁЁ¬ «м®Ј®
§ зҐЁп дгЄжЁЁ,Ї®«ги Ј Єў в®ў Ёп Ё Їа®Ё§ўҐ¤ҐЁп и Ј Єў в®ў Ёп
®¬Ґа га®ўп."‚ҐаеЁ©" Ї®а®Ј ¤ ®Ј® га®ўп ®ЇаҐ¤Ґ«пҐвбп Є Є бг¬¬
§ зҐЁ© га®ўп Єў в®ў Ёп Ё Ї®«ги Ј Єў в®ў Ёп (ЇаЁ а ў®¬Ґа®¬
Єў в®ў ЁЁ ЇгвҐ¬ б®®вҐбҐЁп Ёбе®¤®Ј® бЁЈ « б Ў«Ё¦ ©иЁ¬ § зҐЁҐ¬
га®ўп "Ё¦Ё©" Ї®а®Ј ¤ ®Ј® га®ўп б®ўЇ ¤ Ґв б "ўҐаеЁ¬" Ї®а®Ј®¬
Ў«Ё¦ ©иҐЈ® "бЁ§г" га®ўп).

ѓ«®Ў «млҐ ЇҐаҐ¬ҐлҐ
KU - Є®«ЁзҐбвў® га®ўҐ© Єў в®ў Ёп;
Q - Ї®«гиЈ Єў в®ў Ёп;
Ymin - ¬ЁЁ¬ «м®Ґ § зҐЁҐ дгЄжЁЁ;
Yi - Єў вгҐ¬¬®Ґ § зҐЁҐ дгЄжЁЁ;
NUK - ®¬Ґа га®ўп Єў в®ў Ёп;
YK - Їа®Єў в®ў ®Ґ § зҐЁҐ дгЄжЁЁ.

’ҐЄбв Їа®жҐ¤гал

PROCEDURE KVN(KU:word;Q,Ymin,Yi:real;var NUK:word;var YK:real);
VAR
k:word;
BEGIN
k:=0;
repeat
YK:=Ymin+Q+2*Q*k;
k:=k+1
until (Yi<=YK+Q) or (k>=KU);
NUK:=k-1
END;

7.PROCEDURE PV

Ќ § зҐЁҐ
Џ®¤бзҐв Їа ўЁ«м® ЇҐаҐ¤ ле б®®ЎйҐЁ©.

Њ вҐ¬ вЁзҐбЄ®Ґ ®ЇЁб ЁҐ
Џа®жҐ¤га ®бгйҐбвў«пҐв Ї®¤бзҐв Їа ўЁ«м® ЇҐаҐ¤ ле б®®ЎйҐЁ©.‘®®ЎйҐЁҐ
бзЁв Ґвбп Їа ўЁ«м® ЇҐаҐ¤ л¬,Ґб«Ё ҐЈ® ЁбЄ ¦ҐЁҐ Ґ Ў®«ҐҐ ўҐ«ЁзЁл
¤®ЇгбвЁ¬®Ј® Ё§¬ҐҐЁп б®®ЎйҐЁп dY.Џ®б«Ґ ЇаЁҐ¬ ўбҐе б®®ЎйҐЁ©
®ЇаҐ¤Ґ«пҐвбп з бв®в Ёе Їа ўЁ«м®© ЇҐаҐ¤ зЁ V2.

ѓ«®Ў «млҐ ЇҐаҐ¬ҐлҐ
i - ®¬Ґа ®зҐаҐ¤®Ј® б®®ЎйҐЁп;
N - ®ЎйҐҐ зЁб«® б®®ЎйҐЁ©;
YK - ЇҐаҐ¤ ®Ґ Єў в®ў ®Ґ б®®ЎйҐЁҐ;
YKP - ЇаЁпв®Ґ Єў в®ў ®Ґ б®®ЎйҐЁҐ;
C - бзҐвзЁЄ Їа ўЁ«м® ЇҐаҐ¤ ле б®®ЎйҐЁ©;
dY - ўҐ«ЁзЁ ¤®ЇгбвЁ¬®Ј® Ё§¬ҐҐЁп б®®ЎйҐЁп;
V2 - з бв®в Їа ўЁ«м®© ЇҐаҐ¤ зЁ б®®ЎйҐЁ© (аҐ «м п бв вЁбвЁзҐбЄ п
ўҐа®пв®бвм).

’ҐЄбв Їа®жҐ¤гал

PROCEDURE PV(i,N:word;YK,YPK,dY:real;var C:word;var V2:real);
CONST
dY=1e-5;
BEGIN
if i=1 then C:=0;
if abs(YPK-YK)<=dY then inc(C);
if i=N then V2:=C/i
END;

8.PROCEDURE GRA

Ќ § зҐЁҐ
ѓа дЁзҐбЄ®Ґ ®в®Ўа ¦ҐЁп Ја дЁЄ®ў дгЄжЁ©.

Њ вҐ¬ вЁзҐбЄ®Ґ ®ЇЁб ЁҐ
Џа®жҐ¤га гбв ў«Ёў Ґв Ја дЁзҐбЄЁ© аҐ¦Ё¬ а Ў®вл Ё б Ї®¬®ймо
Їа®жҐ¤гал ShowGra ўлў®¤Ёв ¤ЁбЇ«Ґ© Ја дЁЄЁ дгЄжЁ©.ЏҐаҐ¤
§ ўҐаиҐЁҐ¬ бў®Ґ© а Ў®вл Їа®жҐ¤га § Єалў Ґв Ја дЁзҐбЄЁ© аҐ¦Ё¬.

ѓ«®Ў «млҐ ЇҐаҐ¬ҐлҐ
K - Є«оз,®ЇаҐ¤Ґ«пойЁ© аҐ¦Ё¬ ўлў®¤ Ја дЁЄ®ў дгЄжЁ©:
K=1 - F1 Ё F2 ўлў®¤пвбп Є Є "ҐЇаҐалўлҐ" дгЄжЁЁ;
K=2 - дгЄжЁЁ ўлў®¤пвбп ў ўЁ¤Ґ F1-"ҐЇаҐалў п",F2-"аҐиҐвз в п";
K=3 - дгЄжЁЁ ўлў®¤пвбп ў ўЁ¤Ґ F1-"ҐЇаҐалў п",F2-"Єў в®ў п";
K=4 - F1 Ё F2 ўлў®¤пвбп Є Є "аҐиҐвз влҐ" дгЄжЁЁ;
K=5 - дгЄжЁЁ ўлў®¤пвбп ў ўЁ¤Ґ F1-"ҐЇаҐалў п",F2-"Єў в®ў п";
K=6 - F1 Ё F2 ўлў®¤пвбп Є Є "Єў в®ў лҐ" дгЄжЁЁ;
E - Є«оз,®ЇаҐ¤Ґ«пойЁ© Ґ®Ў¤Ё¬®бвм ўлў®¤ Ја дЁЄ а §®бвЁ дгЄжЁ© F2-F1
(в®«мЄ® ў аҐ¦Ё¬ е K=1,K=3,K=6):
E=0 - Ја дЁЄ а §®бвЁ дгЄжЁ© F2-F1 Ґ ўлў®¤Ёвбп;
E<>0 - Ја дЁЄ а §®бвЁ дгЄжЁ© F2-F1 ўлў®¤Ёвбп;
T1 - ¬ ббЁў аЈг¬Ґв®ў дгЄжЁЁ F1;
F1 - ¬ ббЁў § зҐЁ© ЇҐаў®© дгЄжЁЁ;
S1 - §ў ЁҐ ЇҐаў®© дгЄжЁЁ;
T2 - ¬ ббЁў аЈг¬Ґв®ў дгЄжЁЁ F2;
F2 - ¬ ббЁў § зҐЁ© ўв®а®© дгЄжЁЁ;
S2 - §ў ЁҐ ўв®а®© дгЄжЁЁ;
S3 - §ў ЁҐ а §®бвЁ дгЄжЁ© F2-F1;

’ҐЄбв Їа®жҐ¤гал

TYPE S_60 =string[60];
PROCEDURE GRA(K,E:byte;var T1,F1,T2,F2:array of real;S1,S2,S3:S_60);
VAR
Xo,Yo:word;
dT,dF:real;
Gd,Gm:integer;
BEGIN
Gd:=0;InitGraph(Gd,Gm,F_bgi);
ShowGra(K,E,T1,F1,T2,F2,S1,S2,S3);
CloseGraph
END.

Соседние файлы в папке doc

#
15.06.2014506.88 Кб18DISKR.DOC
#
15.06.201416.74 Кб17GNK4.TXT
#
15.06.2014372.22 Кб17KVANT.DOC
#
15.06.201416.92 Кб16OP1.TXT
#
15.06.201413.31 Кб16OP2.TXT
#
15.06.2014253.44 Кб17OPISANIE.DOC
#
15.06.2014208.38 Кб18OPISANIE1.DOC
#
15.06.2014238.08 Кб19OPTIMAL.DOC
#
15.06.2014233.98 Кб18POMEX.DOC