From 64564003c44da11b39180560232aac306c6742e1 Mon Sep 17 00:00:00 2001
From: Mariano Alvira <mar@devl.org>
Date: Mon, 25 Oct 2010 17:29:25 -0400
Subject: [PATCH] lqi to pdr map and model

---
 doc/lqi-pdr/plot.asy | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/doc/lqi-pdr/plot.asy b/doc/lqi-pdr/plot.asy
index 7c2bef059..b73626b3a 100644
--- a/doc/lqi-pdr/plot.asy
+++ b/doc/lqi-pdr/plot.asy
@@ -5,9 +5,27 @@ file fin=input("./1000pkt-64len.csv");
 real[][] A=dimension(csv(fin),0,2);
 real[][] pdr=transpose(A);
 
-draw(graph(pdr[1],pdr[0]));
+int[] lqi = sequence(100);
 
-ylimits(0,1000);
+int f (int lqi)
+{
+	if(lqi < 6) {
+		return 0;
+	} else if(lqi < 11) {
+		return (lqi-6)*18;
+	} else if (lqi < 30) {
+		return (int)((real)(lqi-11) * 0.5 + 90);
+	} else {
+		return 100;
+	}
+}
+
+int[] f_lqi = map(f,lqi);
+
+draw(graph(pdr[1],pdr[0]/10));
+draw(graph(lqi,f_lqi), red);
+
+ylimits(0,100);
 xlimits(0,100);
 xaxis("\rm Output Current (A)",BottomTop,LeftTicks("$%.1f$",10,begin=false,end=false,extend=true,pTick=dotted));
 yaxis("\rm Output Power (W)",LeftRight,RightTicks("$%#.1f$",8,begin=false,end=false,extend=true,pTick=dotted, ptick=dotted));