SetDirectory["/home/alex/Programming/esp/uas-ugv"]

data=Import["ugv2_moving.csv",HeaderLines->1];
acceldata=data[[All,1;;3]];

plotdata[data_]:=ListPlot[{data[[All,1;;2]],data[[All,2;;3]],Transpose[{data[[All,3]],data[[All,1]]}]},AspectRatio->1]

plotdata[acceldata]

avgs=Mean[acceldata]

meds=Median[acceldata]

halfs=((Max[#]+Min[#])/2)&/@Transpose[acceldata]

acceldata2=#-halfs&/@acceldata;
plotdata[acceldata2]

Norm/@acceldata2;
Histogram[%]

Histogram[Transpose[acceldata2]]

accelranges=((Max[#]-Min[#])/2)&/@Transpose[acceldata2]
1/accelranges

acceldata3=#/accelranges&/@acceldata2;
plotdata[acceldata3]

Norm/@magdata3;
Histogram[%]

Graphics3D[Point/@magdata3]