Добавил:
Kurume
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:ОНИ / Гуменюк А.С / Цифровое моделирование систем передачи данных / GAS / GAS / doc_1 / OP2
.TXT ЉЋЊЏ‹…Љ‘ “—…ЃЌЋ-‹ЂЃЋђЂ’ЋђЌ›• ЏЋ„ЏђЋѓђЂЊЊ
„‹џ –€”ђЋ‚ЋѓЋ ЊЋ„…‹€ђЋ‚ЂЌ€џ
‘€‘’…Њ› Љ‚ЂЌ’Ћ‚ЂЌ€џ
Ќ…Џђ…ђ›‚Ќ›• ‘ЋЋЃ™…Ќ€‰ ЏЋ “ђЋ‚Ќћ
‘ Ћ „ … ђ † Ђ Ќ € …
-------------------
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.
„‹џ –€”ђЋ‚ЋѓЋ ЊЋ„…‹€ђЋ‚ЂЌ€џ
‘€‘’…Њ› Љ‚ЂЌ’Ћ‚ЂЌ€џ
Ќ…Џђ…ђ›‚Ќ›• ‘ЋЋЃ™…Ќ€‰ ЏЋ “ђЋ‚Ќћ
‘ Ћ „ … ђ † Ђ Ќ € …
-------------------
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_1