1 /* -*- Mode:C++; c-file-style:"gnu"; indent-tabs-mode:nil; -*- */
2 /*
3 * Copyright (c) 2009 University of Washington
4 *
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License version 2 as
7 * published by the Free Software Foundation;
8 *
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
13 *
14 * You should have received a copy of the GNU General Public License
15 * along with this program; if not, write to the Free Software
16 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17 *
18 * Author: Leonard Tracy <lentracy@gmail.com>
19 */
20 #include "uan-prop-model-thorp.h"
21 #include "uan-tx-mode.h"
22 #include "ns3/double.h"
23 #include "ns3/log.h"
24
25 namespace ns3 {
26
27 NS_LOG_COMPONENT_DEFINE ("UanPropModelThorp");
28
29 NS_OBJECT_ENSURE_REGISTERED (UanPropModelThorp);
30
UanPropModelThorp()31 UanPropModelThorp::UanPropModelThorp ()
32 {
33 }
34
~UanPropModelThorp()35 UanPropModelThorp::~UanPropModelThorp ()
36 {
37 }
38
39 TypeId
GetTypeId(void)40 UanPropModelThorp::GetTypeId (void)
41 {
42 static TypeId tid = TypeId ("ns3::UanPropModelThorp")
43 .SetParent<UanPropModel> ()
44 .SetGroupName ("Uan")
45 .AddConstructor<UanPropModelThorp> ()
46 .AddAttribute ("SpreadCoef",
47 "Spreading coefficient used in calculation of Thorp's approximation.",
48 DoubleValue (1.5),
49 MakeDoubleAccessor (&UanPropModelThorp::m_SpreadCoef),
50 MakeDoubleChecker<double> ())
51 ;
52 return tid;
53 }
54
55 double
GetPathLossDb(Ptr<MobilityModel> a,Ptr<MobilityModel> b,UanTxMode mode)56 UanPropModelThorp::GetPathLossDb (Ptr<MobilityModel> a, Ptr<MobilityModel> b, UanTxMode mode)
57 {
58 double dist = a->GetDistanceFrom (b);
59
60 return m_SpreadCoef * 10.0 * std::log10 (dist)
61 + (dist / 1000.0) * GetAttenDbKm (mode.GetCenterFreqHz () / 1000.0);
62 }
63
64 UanPdp
GetPdp(Ptr<MobilityModel> a,Ptr<MobilityModel> b,UanTxMode mode)65 UanPropModelThorp::GetPdp (Ptr<MobilityModel> a, Ptr<MobilityModel> b, UanTxMode mode)
66 {
67 return UanPdp::CreateImpulsePdp ();
68 }
69
70 Time
GetDelay(Ptr<MobilityModel> a,Ptr<MobilityModel> b,UanTxMode mode)71 UanPropModelThorp::GetDelay (Ptr<MobilityModel> a, Ptr<MobilityModel> b, UanTxMode mode)
72 {
73 return Seconds (a->GetDistanceFrom (b) / 1500.0);
74 }
75
76 double
GetAttenDbKyd(double freqKhz)77 UanPropModelThorp::GetAttenDbKyd (double freqKhz)
78 {
79
80 return GetAttenDbKm (freqKhz) / 1.093613298;
81 }
82
83 double
GetAttenDbKm(double freqKhz)84 UanPropModelThorp::GetAttenDbKm (double freqKhz)
85 {
86
87 double fsq = freqKhz * freqKhz;
88 double atten;
89
90 if (freqKhz >= 0.4)
91 {
92 atten = 0.11 * fsq / (1 + fsq) + 44 * fsq / (4100 + fsq)
93 + 2.75 * 0.0001 * fsq + 0.003;
94 }
95 else
96 {
97 atten = 0.002 + 0.11 * (freqKhz / (1 + freqKhz)) + 0.011 * freqKhz;
98 }
99
100 return atten;
101 }
102
103 } // namespace ns3
104