Battery Graph

Yoo, Kyunghwan

Low Data

Data

T = LD[[All, 1]] ;

V = LD[[All, 2]] ;

A = LD[[All, 3]] ;

P = LD[[All, 4]] ;

X = N[(T - Min[T]) * 100/(Max[T] - Min[T])] ;

GV = Transpose[{X, N[(V - Min[V]) * 100/(Max[V] - Min[V])]}] ;

GA = Transpose[{X, N[(A - Min[A]) * 100/(Max[A] - Min[A])]}] ;

GP = Transpose[{X, P}] ; <br />

HA[x_] := Round[(x * 0.1 * (Max[A] - Min[A]) + Min[A]) * 1000]/1000. ;

HV[x_] := Round[(x * 0.1 * (Max[V] - Min[V]) + Min[V]) * 1000]/1000. ;

HT[x_] := Round[(x * 600 - Min[T]) * 100/(Max[T] - Min[T]) * 1000]/1000. ;

H[x_, D_] := Round[(x * (Max[D] - Min[D]) + Min[D]) * 1000]/1000. ; <br />

hBt2 = -10 ; <br />

For[i = 0 ; As = {} ;, i≤10, i ++, As = Insert[As, {Text[StyleForm[HA[i], FontSize→10], {-1, i * 10}, {1, 0}], Line[{{-1, i * 10}, {0, i * 10}}]}, Length[As] + 1] ;] ;

For[i = 0 ; Vs = {} ;, i≤10, i ++, Vs = Insert[Vs, {Text[StyleForm[HV[i], FontSize→10], {102, i * 10}, {-1, 0}], Line[{{100, i * 10}, {101, i * 10}}]}, Length[Vs] + 1] ;] ;

For[i = 0, i≤14, i ++, Ts = Insert[Ts, {Line[{{HT[i], hBt2}, {HT[i], hBt2 - 0.5}}]}, Length[Ts] + 1] ;] ;

For[i = 1 ; j = 0 ; Bs = {} ;, i<Length[GP], i ++, If[GP[[i, 2]] == j, Bs = Insert[Bs, {Line[{{GP[[i, 1]], 0}, {GP[[i, 1]], hBt2}}]}, Length[Bs] + 1] ; j += 1 ;]] ; <br />

[Graphics:HTMLFiles/index_22.gif]