mirror of
https://github.com/oliverschmidt/contiki.git
synced 2024-12-22 10:30:13 +00:00
32 lines
734 B
Plaintext
32 lines
734 B
Plaintext
import graph;
|
|
size(350,250,IgnoreAspect);
|
|
|
|
file fin=input("./1000pkt-64len.csv");
|
|
real[][] A=dimension(csv(fin),0,2);
|
|
real[][] pdr=transpose(A);
|
|
|
|
int[] lqi = sequence(100);
|
|
|
|
int f (int lqi)
|
|
{
|
|
if(lqi <= 6) {
|
|
return (int)((real)lqi*.8);
|
|
} 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 LQI",BottomTop,LeftTicks("$%.1f$",10,begin=false,end=false,extend=true,pTick=dotted));
|
|
yaxis("\rm Packet Deliver Ratio (\%)",LeftRight,RightTicks("$%#.1f$",8,begin=false,end=false,extend=true,pTick=dotted, ptick=dotted));
|