WWW.NAUKA.X-PDF.RU
- , ,
 


Pages:     | 1 | 2 ||

KzSt-3 ii . i i ii , ...

-- [ 3 ] --

, , . , . Control Center 7,5 5 2,5 , En = 1,2, IV () , 12,6 2.

, (OSRM LUMILUX DE LUXE, DULUX L 4 0 W).

, . , S=37,5 2, h=2,5 , 3 4 , , , , . ( ) MICO, c SU - 0501.

, , 83 , .

, : , , ; . . 1371047436 . 4 .

   

1 KzSt 3 // [ ]. URL:htt://www.rcsc.kz/index.

h?otion=com_content&view=ctegory&lyout=blog&id=64&Itemid=286&lng =ru ( 13.03.2015).

2 . // [ ]. URL:htt://www.stv.ru/link3.h?lin=22&z=1 ( 07.02.2015).

3 .. .- 1, .

- .: .., 2005.

4 .., .. :

- // . .: , 2007.

5 .. - // . 2010. - 12. - .7-8.

6 C. -? - -: htt://telesutnik.ru/rchive/df/185/34.df 7 .. : . .:

, 1990.

8 .. .- 2, . - .: .., 2005.

9 .., .. // . .: , 2006.

10 .. : . .: ,1997.

11 .. . .: , 2006.

12 . ., .. . : , 2009.

13 2.04 - 05 - 2002 .

, .

14 .., . . . . : , 2009.

15 / . . . . .: , 1976.

16 . . . . . : , 2002.

17 .. , .. . : , 2008.

18 .., .., .. . : , 2009.

19 . ., . . : . .: , 2000.

20 .. / .., ..// : . - .

. . , , 2008, . 137-139.

Delhi 7 unit Unit1;

interfce uses Windows, Messges, SysUtils, Vrints, Clsses, Grhics, Controls, Forms, Dilogs,ExtCtrls, StdCtrls, XMn,Mth;

tye TForm1 = clss(TForm)

Lbel1: TLbel; Lbel2: TLbel; Lbel3: TLbel; Lbel4: TLbel; Lbel5:

TLbel;

Lbel6: TLbel; Lbel7: TLbel; Lbel8: TLbel; Lbel9: TLbel; Lbel10:

TLbel; Lbel11: TLbel; Lbel12: TLbel; Lbel13: TLbel; Lbel14: TLbel;

Lbel15: TLbel; Button1: TButton; Lbel16: TLbel; Lbel17: TLbel; Lbel18:

TLbel; Lbel19: TLbel; Lbel20: TLbel; Lbel21: TLbel; Lbel22: TLbel;

Lbel23: TLbel; Lbel24: TLbel; Lbel25: TLbel; Lbel26: TLbel; Lbel27:

TLbel; Lbel28: TLbel; Lbel29: TLbel; Lbel30: TLbel; Lbel31: TLbel;

Lbel32: TLbel; Lbel33: TLbel; Lbel34: TLbel; Lbel35: TLbel; Lbel36:

TLbel; Button2: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit;

Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Edit10: TEdit;

Edit11: TEdit; Edit12: TEdit; Edit13: TEdit; Edit14: TEdit; Edit15: TEdit; Edit16:

TEdit; Edit17: TEdit; Edit18: TEdit; Edit19: TEdit; Edit20: TEdit; Edit21: TEdit;

Edit22: TEdit; Edit23: TEdit; Edit24: TEdit;Lbel37: TLbel; Lbel38: TLbel;

Lbel39: TLbel; Lbel40: TLbel; Lbel41: TLbel; Lbel42: TLbel; Lbel43:

TLbel; Lbel44: TLbel; Lbel45: TLbel; Lbel46: TLbel; Lbel47: TLbel;

Lbel48: TLbel; Lbel49: TLbel; Lbel50: TLbel; Lbel51: TLbel; Lbel52:

TLbel; Lbel53: TLbel; Lbel54: TLbel; Lbel55: TLbel; Lbel56: TLbel;

Lbel57: TLbel; Lbel58: TLbel; Lbel59: TLbel; Lbel60: TLbel;

rocedure button1Click(Sender: TObject);

rocedure button2Click(Sender: TObject);

rivte { rivte declrtions } ublic { ublic declrtions } end;

vr Form1: TForm1;

imlementtion {$R *.dfm} rocedure TForm1.button1Click(Sender: TObject);

vr f,D,W,bett_kc,EIR,fi_zc,hs,R001,d_bett, bett_zc,ksi,d,Rk,Re,Thet,lmbd,Ldn,LtmClerSky,hr,Ls,

Lg,r,kH,kV,tu,k,H,V,,gmmR,LtmRin001,Kr,,LtmRin,LtmDN, g,Grm,GrmvdB,Se,rm,rmvrzh,w220,w220vdB,w1: rel;

begin Form1.Ction:=(Sender s TButton).Ction;

hs:=strToflot(edit1.Text);

bett_zc:=strToflot(edit2.Text);

fi_zc:=strToflot(edit3.Text);

R001:=strToflot(edit4.Text);

f:=strToflot(edit5.Text);

D:=strToflot(edit6.Text);

W:=strToflot(edit7.Text);

bett_kc:=strToflot(edit8.Text);

EIR:=strToflot(edit9.Text);

d_bett:=bs(bett_kc-bett_zc);

ksi:=cos(fi_zc*I/180)*cos(d_bett*I/180);

d:=RoundTo(42645*sqrt(1-0.2954*ksi),0);

Rk:=42165;

Re:=6371;

Thet:=RoundTo((rcsin((sqr(Rk)-sqr(Re)-sqr(d))/(2*Re*d)))*180/I,-3);

lmbd:=RoundTo(3*ower(10,8)/(f*ower(10,9)),-4);

Ldn:=RoundTo(184.04+10*log10(1-0.2954*ksi)+20*log10(f),-3);

LtmClerSky:= ((ower(f/9,2.5))*0.04+0.046)/sin(Thet*I/180);

hr:=5-0.075*(fi_zc-23);

if Thet=5 then begin Ls:=RoundTo((hr-hs)/sin(Thet*I/180),-3) end else begin Ls:=RoundTo(2*(hr-hs)/(Sqrt(Sqr(sin(Thet*I/180))+(2*(hrhs))/Re)+sin(Thet*I/180)),-3);

end;

Lg:=RoundTo(Ls*cos(Thet*I/180),-3);

r:=RoundTo(1/(1+(Lg/(35*ex(-0.015*R001)))),-3);

if f=20 then begin kH:=0.0751; kV:=0.0691; tu:=45; H:=1.099; V:=1.065;

end else begin kH:=0.0188; kV:=0.0168; tu:=45; H:=1.217; V:=1.2; end;

k:=(kH+kV+(kH-kV)*sqr(cos(Thet*I/180))*cos(2*tu*I/180))/2;

:=RoundTo((kH*H+kV*V+(kH*HkV*V)*sqr(cos(Thet*I/180))*cos(2*tu*I/180))/(2*k),-3);

gmmR:=RoundTo(k*ower(R001,),-3);

LtmRin001:=RoundTo(gmmR*Ls*r,-3);

Kr:=99.98;

:=(1-(Kr/100))*100;

LtmRin:=RoundTo(LtmRin001*0.12*(ower(,-(0.546+0.043*log10()))),LtmDN:=LtmClerSky+LtmRin;

g:=0.7;

Grm:=(10*g*sqr(D))/sqr(lmbd);

GrmvdB:=RoundTo(10*log10(Grm),-3);

Se:=RoundTo(g*I*sqr(D)/4,-3);

rm:=RoundTo(EIR-Ldn+GrmvdB,-3);

rmvrzh:=ower(10,rm/10);

w220:=rmvrzh/Se;

w220vdB:=10*log10(w220);

if f=20 then begin w1:=RoundTo(w220vdB-10*log10(W*ower(10,3)/1000),-3);

end else begin w1:=RoundTo(w220vdB-10*log10(W*ower(10,3)/4),-3);

end;

Edit10.Text:=flottostr(d);

Edit11.Text:=flottostr(Thet);

Edit12.Text:=flottostr(Ldn);

Edit13.Text:=flottostr(LtmClerSky);

Edit14.Text:=flottostr(hr);

Edit15.Text:=flottostr(Ls);

Edit16.Text:=flottostr(Lg);

Edit17.Text:=flottostr(gmmR);

Edit18.Text:=flottostr(LtmRin001);

Edit19.Text:=flottostr(LtmRin);

Edit20.Text:=flottostr(LtmDN);

Edit21.Text:=flottostr(GrmvdB);

Edit22.Text:=flottostr(Se);

Edit23.Text:=flottostr(rm);

Edit24.Text:=flottostr(w1);

end;

   

rocedure TForm1.button2Click(Sender: TObject);

begin close;

end;

end.



Pages:     | 1 | 2 ||
 

:

/ -, , 1. . . 2. , , - , , ., , , , , , ,...

( ) 2011 . 2011 . ...

. , . 14, . , 454080, ./: (8-351) 266-54-40, e-mail: edu@cheladmin.ru 1220- 14.09.2015 , (), , , 25.08.2015 1092- ...

. _/ ../ _2015. _/ ../ _ 2015. _/ ../ _2015. . . 2015 . . .. .. - ...

(3...5.2) 40.05.01 . , , , , , . ...

7.5. 2012 . () () () , . ( ...

. , . 14, . , 454080, ./: (8-351) 266-54-40, e-mail: edu@cheladmin.ru , ( ), , , 25.08.2015 1092- ...








 
<<     |    
2016 www.nauka.x-pdf.ru - - , ,

, .
, , , , 1-2 .