3.10 More tests and 360 min_west fix

suitest.cc

@@ -0,0 +1,64 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+
+
+// use call with log/ln as this may be faster
+// use constant of value 20.0/log(10.0)
+static __inline float _20log10f(float x)
+{
+  return(8.685889f*logf(x));
+}
+
+double SUIpathLoss(double f, double TxH, double RxH, double d, int mode)
+{
+        /*
+           f = Frequency (MHz) 1900 to 11000
+           TxH =  Transmitter height (m)
+           RxH = Receiver height (m)
+           d = distance (km)
+           mode A1 = URBAN / OBSTRUCTED
+           mode B2 = SUBURBAN / PARTIALLY OBSTRUCTED
+           mode C3 = RURAL / OPEN
+           http://www.cl.cam.ac.uk/research/dtg/lce-pub/public/vsa23/VTC05_Empirical.pdf
+         */
+	//f /=1e3;
+        d *= 1e3;               // km to m
+
+        // Urban (A1) is default
+        float a = 4.6;
+        float b = 0.0075;
+        float c = 12.6;
+        float s = 10.6; // Optional fading value. Max 10.6dB
+        float XhCF = -10.8;
+
+        if (mode == 2) { // Suburban
+                a = 4.0;
+                b = 0.0065;
+                c = 17.1;
+        }
+        if (mode == 3) { // Rural
+                a = 3.6;
+                b = 0.005;
+                c = 20;
+                XhCF = -20;
+        }
+        float d0 = 100;
+        float A = _20log10f((4 * M_PI * d0) / (300.0 / f));
+        float y = a - (b * TxH) + (c / TxH);
+        //Correction factors
+        float Xf = 6.0 * log10(f / 2000.0);
+        float Xh = XhCF * log10(RxH / 2000.0);
+	Xh *=-1;
+	fprintf(stdout,"A %lf y %lf Xf %lf Xh %lf\n",A,y,Xf,Xh);
+        return A + (10 * y * log10(d / d0)) + Xf + Xh + s;
+
+
+}
+
+int main(){
+
+	fprintf(stdout,"%lf\n",SUIpathLoss(3500.0,15.0,10.0,1,1));
+	fprintf(stdout,"%lf\n",SUIpathLoss(3500.0,15.0,10.0,1,2));
+	fprintf(stdout,"%lf\n",SUIpathLoss(3500.0,15.0,10.0,1,3));
+}