Lưu đồ thuật toán chương trình :
Bắt đầu Thông số đầu vào Thực hiện Xuất kết quả Kết thúc Đ Thông số không tồn tại S
Hình 3.3. Giao diện chính
Hình 3.5. Kết quả tính toán tuyến lên
Hình 3.7. Kết quả tính toán tuyến xuống điều kiện có mưa
3.5. Kết luận chương
Thông tin vệ tinh là kỹ thuật truyền dẫn mà trong đó môi trường truyền dẫn là không gian vũ trụ rất phức tạp với khoảng cách lớn. Môi trường có thể là không gian tự do hoặc khí quyển bao quanh trái đất bao gồm những hợp chất khí bụi, hơi nước...chúng làm suy hao tín hiệu khi truyền qua nó. Khi thiết kế hệ thống chúng ta cần phải thận trọng để hạn chế hoặc khắc phục những tác động này, đặc biệt lưu ý đến suy hao do mưa. Và đối với băng tần Ku thì ảnh hưởng do mưa là rất đáng kể. Do đó khi thiết kế chúng ta cần xem xét kỹ các vấn đề liên quan đến suy hao của hệ thống để từ đó đưa ra khoảng dự phòng công suất hợp lý tránh được sự lãng phí công suất và đảm bảo việc liên lạc thông tin trong mọi điều kiện thời tiết.
Bài toán trên đã nêu rõ các bước tính toán một tuyến thông tin vệ tinh. Bằng cách sử dụng phần mềm tính toán thì chúng ta có thể tính toán bài toán bất kỳ dựa vào các thông số đầu vào của tuyến vệ tinh đó.
KẾT LUẬN ĐỀ TÀI
Với những vấn đề được trình bày trong đồ án, ta thấy rằng thông tin vệ tinh là hệ thống vô cùng quan trọng trong thông tin liên lạc hiện nay, có rất nhiều ứng dụng trong cuộc sống chúng ta về chính trị, kinh tế, văn hoá....
Nhu cầu thông tin của con người ngày càng tăng do đó đòi hỏi kỹ thuật vệ tinh cũng phải phát triển không ngừng, nhằm phát huy tính năng ưu việt của suy hao đường truyền lớn, tạp âm cao và giới hạn quỹ đạo địa tĩnh. Bằng cách tăng công suất máy phát trạm vệ tinh, sử dụng các hệ thống vệ tinh có quỹ đạo thấp...
Với đề tài này cho thấy mức độ của các loại suy hao, các nguyên nhân sinh ra tạp âm và cách tính toán một tuyến thông tin từ trạm đến trạm thông qua vệ tinh, từ đó thiết lập một tuyến thông tin vệ tinh sao cho đạt chất lượng và phù hợp với nhu cầu thông tin, tính kinh tế cao.
Tuy nhiên đây chỉ là bài toán thiết kế trên lý thuyết, trong thực tế khi thiết kế sẽ có rất nhiều yếu tố suy hao dẫn đến kết quả có nhiều sai số. Mặc dù vậy bài toán thiết kế trên cũng làm nền tảng, cơ sở các bước tính toán một bài toán thiết kế tuyến vệ tinh bất kỳ nào.
TÀI LIỆU THAM KHẢO
[1] Nguyễn Phạm Anh Dũng, Thông tin vệ tinh, Học viện Công Nghệ Bưu Chính Viễn Thông, 2007.
[2] Nguyễn Trung Tấn, Bài giảng Thông tin vệ tinh, Trung tâm kỹ thuật viễn thông.
[3] Nguyễn Văn Tuấn, Thông tin vi ba-vệ tinh, Đại học Bách khoa Đà Nẵng, 2009.
[4] Thái Hồng Nhị, Hệ thống thông tin vệ tinh tập 1, Nhà xuất bản bưu điện [5] Thái Hồng Nhị, Hệ thống thông tin vệ tinh tập 2, Nhà xuất bản bưu điện [6] John Wiley & Son Ltd, Satellite communications systems engineering, ITT Advanced Engineering & Sciences, USA, and The George Washington University, Washington, DC, USA
[7] http://vntelecom.org/ truy cập cuối cùng ngày 28/12/2011 [8] http://4tech.com.vn/ truy cập cuối cùng ngày 25/12/2011 [9] http://vi.wikipedia.org/ truy cập cuối cùng ngày 26/12/2011
PHỤ LỤC
Public Class frmMain
Private Sub TUYẾNLÊNToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles TUYẾNLÊNToolStripMenuItem.Click
frmTuyenLen.Show() End Sub
Private Sub TUYẾNXUỐNGToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles
TUYẾNXUỐNGToolStripMenuItem.Click frmTuyenXuong.Show()
End Sub
Private Sub AboutToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AboutToolStripMenuItem.Click
frmAbout.Show() End Sub
End Class ‘Tuyên lên
Public Class frmTuyenLen
Private Sub btnXoa_Click(sender As System.Object, e As System.EventArgs) Handles btnXoa.Click txtVidobacU.Text = "" txtKinhdodongU.Text = "" txtBangtanU.Text = "" txtBangthongU.Text = "" txtC_N0u.Text = "" txtCongsuatU.Text = "" txtCrs.Text = "" txtCulyU.Text = "" txtDuongkinhU.Text = "" txtEb_N0u.Text = "" txtEIRPu.Text = "" txtGocngangU.Text = "" txtGocphuongviU.Text = "" (adsbygoogle = window.adsbygoogle || []).push({});
txtHesoU.Text = "" txtHieusuatU.Text = "" txtLu.Text = "" txtSHkhacU.Text = "" txtSHomuaU.Text = "" txtSHphidoU.Text = "" txtTapamU.Text = "" txtVitriU.Text = "" End Sub Dim Re As Double = 6378 Dim r As Double = 42146
Dim K As Double = 1.38 * Math.Pow(10, -23)
Private Sub btnTinhToan_Click(sender As System.Object, e As System.EventArgs) Handles btnTinhToan.Click
If (txtBangtanU.Text = "" Or txtBangthongU.Text = "" Or txtKinhdodongU.Text = "" Or txtVidobacU.Text = "" Or
txtDuongkinhU.Text = "" Or txtHieusuatU.Text = "" Or txtHesoU.Text = "" Or
txtVitriU.Text = "" Or txtCongsuatU.Text = "" Or txtTapamU.Text = "" Or txtSHomuaU.Text = "" Or
txtSHphidoU.Text = "" Or txtSHkhacU.Text = "") Then MsgBox("XIN MỜI NHẬP TOÀN BỘ CÁC THÔNG SỐ", MsgBoxStyle.OkOnly)
Else
Dim vdb As Double = (Double.Parse(txtVidobacU.Text) * Math.PI) / 180 Dim kdd As Double = (Double.Parse(txtKinhdodongU.Text) * Math.PI) /180 Dim bt As Double = Double.Parse(txtBangtanU.Text)
Dim dkat As Double = Double.Parse(txtDuongkinhU.Text) Dim hs As Double = Double.Parse(txtHieusuatU.Text) Dim cs As Double = Double.Parse(txtCongsuatU.Text)
Dim vt As Double = (Double.Parse(txtVitriU.Text) * Math.PI) / 180 Dim hspc As Double = Double.Parse(txtHesoU.Text)
Dim btkt As Double = Double.Parse(txtBangthongU.Text) Dim tan As Double = Double.Parse(txtTapamU.Text)
Dim shm As Double = Double.Parse(txtSHomuaU.Text) Dim shfd As Double = Double.Parse(txtSHphidoU.Text) Dim shk As Double = Double.Parse(txtSHkhacU.Text) Dim cosa As Double
Dim tanb As Double Dim culyU As Double Dim EIRPu, Lu As Double Dim cssm, c_n0 As Double
cosa = Math.Cos(vdb) * Math.Cos(vt - kdd)
txtCulyU.Text = Math.Sqrt(Math.Pow(Re, 2) + Math.Pow(r, 2) - 2 * Re * r*cosa) txtGocngangU.Text = Math.Atan((cosa - Re / r) / (Math.Sqrt(1 -
Math.Pow(cosa, 2)))) * (180 / Math.PI)
tanb = Math.Atan(Math.Tan(vt - kdd) / (-Math.Sin(vdb))) txtGocphuongviU.Text = 180 + tanb * (180 / Math.PI)
txtEIRPu.Text = 10 * Math.Log10(cs) - shfd + 10 * Math.Log10(hs / 100) + 20 * Math.Log10(dkat) + 20 * Math.Log10(14) + 20.4
' Tinh suy hao tuyen len
culyU = Double.Parse(txtCulyU.Text)
txtLu.Text = 20 * Math.Log10(4 * Math.PI) + 20 * Math.Log10(culyU * Math.Pow(10, 3)) + 20 * Math.Log10(bt * Math.Pow(10, 9)) - 20 * Math.Log10(3 * Math.Pow(10, 8)) + shfd + 0.5 + shm + shk
' Tinh cong suat song mang tai may thu ve tinh
EIRPu = Double.Parse(txtEIRPu.Text) Lu = Double.Parse(txtLu.Text)
txtCrs.Text = EIRPu - Lu
' Tinh ty so C/N0 tai ve tinh
cssm = Double.Parse(txtCrs.Text)
txtC_N0u.Text = cssm + hspc - 10 * Math.Log10(K)
' Tinh ty so nang luong bit tren cong suat tap am tuyen len
c_n0 = Double.Parse(txtC_N0u.Text) (adsbygoogle = window.adsbygoogle || []).push({});
txtEb_N0u.Text = c_n0 - 10 * Math.Log10(btkt * Math.Pow(10, 6)) End If
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnNext.Click frmTuyenXuong.Show() Me.Dispose(False) End Sub End Class Tuyen xuong
Public Class frmTuyenXuong
Private Sub btnXoa_Click(sender As System.Object, e As System.EventArgs) Handles btnXoa.Click txtVidobacU.Text = "" txtKinhdodongU.Text = "" txtBangtanU.Text = "" txtBangthongU.Text = "" txtC_N0u.Text = "" txtCrs.Text = "" txtCulyU.Text = "" txtDuongkinhU.Text = "" txtEb_N0u.Text = "" txtGocngangU.Text = "" txtGocphuongviU.Text = "" txtHesoU.Text = "" txtHSkd.Text = "" txtLu.Text = "" txtSHkhacU.Text = "" txtSHomuaU.Text = "" txtSHphidoU.Text = "" txtTapamU.Text = "" txtVitriU.Text = "" End Sub Dim Re As Double = 6378 Dim r As Double = 42146
Private Sub btnTinhToan_Click(sender As System.Object, e As System.EventArgs) Handles btnTinhToan.Click
If (txtBangtanU.Text = "" Or txtBangthongU.Text = "" Or txtKinhdodongU.Text = "" Or txtVidobacU.Text = "" Or
txtDuongkinhU.Text = "" Or txtHesoU.Text = "" Or
txtVitriU.Text = "" Or txtHSkd.Text = "" Or txtTapamU.Text = "" Or txtSHomuaU.Text = "" Or
txtSHphidoU.Text = "" Or txtSHkhacU.Text = "") Then MsgBox("XIN MỜI NHẬP TOÀN BỘ CÁC THÔNG SỐ", MsgBoxStyle.OkOnly)
Else
Dim vdb As Double = (Double.Parse(txtVidobacU.Text) * Math.PI) / 180 Dim kdd As Double = (Double.Parse(txtKinhdodongU.Text) * Math.PI) /180 Dim bt As Double = Double.Parse(txtBangtanU.Text)
Dim dkat As Double = Double.Parse(txtDuongkinhU.Text) Dim hs As Double = Double.Parse(txtHSkd.Text)
Dim vt As Double = (Double.Parse(txtVitriU.Text) * Math.PI) / 180 Dim hspc As Double = Double.Parse(txtHesoU.Text)
Dim btkt As Double = Double.Parse(txtBangthongU.Text) Dim tan As Double = Double.Parse(txtTapamU.Text) Dim shm As Double = Double.Parse(txtSHomuaU.Text) Dim shfd As Double = Double.Parse(txtSHphidoU.Text) Dim shk As Double = Double.Parse(txtSHkhacU.Text) Dim csbx As Double = Double.Parse(txtCongsuatbxU.Text) Dim cosa As Double
Dim tanb As Double Dim culyU As Double
Dim Lu, cre, C_N0, EbN0 As Double 'Dim cssm, c_n0 As Double
' Tinh cu ly tuyen xuong
cosa = Math.Cos(vdb) * Math.Cos(vt - kdd)
' tinh va hien thi cu ly thong tin
txtGocngangU.Text = Math.Atan((cosa - Re / r) / (Math.Sqrt(1 - Math.Pow(cosa, 2)))) * (180 / Math.PI) '
'Tinh goc phuong vi
tanb = Math.Atan(Math.Tan(vt - kdd) / (-Math.Sin(vdb))) txtGocphuongviU.Text = 180 + tanb * (180 / Math.PI)
'Tinh suy hao tuyen xuong
culyU = Double.Parse(txtCulyU.Text)
txtLu.Text = shm + shk + shfd + 0.5 + 20 * Math.Log10(4 * Math.PI) + 20 * Math.Log10(bt * Math.Pow(10, 9)) - 20 * Math.Log10(3 * Math.Pow(10, 8)) + 20 * Math.Log10(culyU * Math.Pow(10, 3))
'Tinh cong suat song mang
Lu = Double.Parse(txtLu.Text) txtCrs.Text = csbx - Lu
'Tinh ty so E/N0 tai tram mat dat
cre = Double.Parse(txtCrs.Text)
txtC_N0u.Text = cre - 10 * Math.Log10(K) - 10 * Math.Log10(tan) + hs (adsbygoogle = window.adsbygoogle || []).push({});
' Tinh ty so nang luong bit tren cong suat tap am tuyen xuong
C_N0 = Double.Parse(txtC_N0u.Text)
txtEb_N0u.Text = C_N0 - 10 * Math.Log10(btkt * Math.Pow(10, 6) EbN0 = Double.Parse(txtEb_N0u.Text)
If EbN0 > 10.0 Then
lblThongbao.Text = "Máy thu được tín hiệu"
MsgBox("Máy thu được tín hiệu", MsgBoxStyle.OkOnly) Else
lblThongbao.Text = "Máy không thu được tín hiệu"
MsgBox("Máy không thu được tín hiệu", MsgBoxStyle.OkOnly) End If
End If End Sub
Private Sub btnNext_Click(sender As System.Object, e As System.EventArgs) Handles btnThoat.Click
Me.Close() End Sub End Class