moved reference propagation scripts

src/buildings/test/reference/buildings_pathloss.m

@@ -2,7 +2,11 @@ clear all;
 close all;
 
 %% BuildingsPropagationLossModel pathloss test reference script
-%% ITU1411, ITU1238, COST231, OH, etc.
+
+
+%% ITU1411, COST231, OH, etc. scripts are in the propagation module
+addpath ("../../../propagation/test/reference/");
+
 
 %f = 2114e6;  % carrier freq Hz, EARFCN = 500 (downlink)
 %f = 1900e6;  % carrier freq Hz, EARFCN = 500 (downlink)

src/lte/test/reference/loss_ITU1411_NLOS_street_canyons.m

@@ -1,37 +0,0 @@
-function g = loss_ITU1411_NLOS_street_canyons (d, f, w1, w2, x1, x2, alpha)
-
-  %%
-  %% function g = loss_ITU1411_NLOS_street_canyons(d, c)
-  %%
-  %% returns the loss at d meters for f frequency and mobile height m and
-  %% base station height of hb
-  
-  assert(isscalar(f));
-  assert(f > 0);
-
-
-  lambda = 300000000.0 / f;
-
-
-  if (alpha <= 0.33)
-    f_alpha = -41+110*alpha;
-  elseif (alpha <=0.42)
-    f_alpha = -13.94+28*alpha;
-  elseif (alpha <=0.71)
-    f_alpha = -5.33+7.51*alpha;
-  else
-    f_alpha = 0;
-  endif
-
-  Lr = -20*log10(x1+x2) + (x1*x2*(f_alpha/(w1*w2))) - 20*log10((4*pi)/lambda);
-
-  Da = -1*(40/(2*pi))*(atan(x2/w2)+atan(x1/w1)-(pi/2));
-
-  Ld = -10*log10(x2*x1*(x1+x2))+ 2*Da + 0.1*(90-(alpha*(180/pi))) -20*log10((4*pi)/lambda);
-
-  
-  
-  g(find(d > 0)) = -10*log10(10^(Lr/10)+10^(Ld/10));
-
-  g(find(d <= 0)) = 1;
-  

src/lte/test/reference/lte_pathloss.m

@@ -2,8 +2,12 @@ clear all;
 close all;
 
 %% LTE pathloss model
-%% ITU1411, ITU1238, COST231, OH, etc.
 
+%% ITU1411, COST231, OH, etc. scripts are in the propagation module
+addpath ("../../../propagation/test/reference/");
+
+%% ITU1238 script is in the buildings module
+addpath ("../../../buildings/test/reference/");
 
 
 d = 104.12;