卫星广播 有线电视技术
霪 收天线 ∞ 一 往翻 瘫
栾 枯 北京重型电机厂
有线电视技术中经常要用到卫星接收天线，而卫
星接收天线的寻星精确度则是影响电视信号强弱好
坏的重要指标。工作中要计算接收地对地球赤道同步
卫星的仰角和方位角，以利于正确调整卫星接收天线
的方向(利用指南针确定方位时，还要考虑当地的磁
偏角来修正最后结果)。而手工计算费时费力、容易出
错 ，所以笔者根据公式利用 VB6．0编制了一个小程
序，经使用检验发现速度快、精确度高，使用方便 、快
捷，大大提高了工作效率，不敢独享，现奉上程序的窗
体布局及源代码，并附编译后的可执行程序(wxjslO．
exe)一份，但愿能给同行带来些许便利。
计算公式如下：
仰角 ~=tg- [(cost,一0．1 5 1 3)／sina1
cosoL：cosecos(‘p2一‘p 1)
方位角 ~／=tg [tg(‘P2一‘P 1)／sin0】
其中：‘P1——赤道同步卫星轨道经度；
‘P2——接收地地理经度；
0——接收地地理纬度。
程序的窗体布局：
程序的源代码如下：
Dim phi1，phi2，t，e，d，r’eoj，nr，pi As Single
Pfiv~e Sub Command 1
— ．Click0
phi l=Val(Text3．Text)
phi2=Val(Text 1．Text)
t=Val(Text2．Text)
cpj=vaVrext6．Text)
c=Cos(t p~／18o) Cos((phi2-phil) pi／180、
d=Atn((c-0．15 13)／Sqr(1-c c)) 180／pi
r=Atn(Tan ((phi2一phi l) pi／180)／Sin(t pi／180))
18O／pi
nr=r+cpj
Text4．Text=Format(d,"0．0000 ，1
Text5．Text=Format(r, 0．oooo'1
Text7．Text=Format(nr Q．0000'1
End Sub
Priv~e Sub Command2
_ Click0
End
End Sub
Priv~e Sub Form
— ．Load0
pi=3．14159
End Sub
(注：Command1和 Command2分别为窗体中的计
算和退出按钮控件)A
2003年第 i 2期(总第 132期)
维普资讯 http://www.cqvip.com
本文档为【卫星地面站接收天线仰角、方位角的计算程序】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483