Var: VELNUM,MEDIA1,MEDIA2,VELOCITA, ACCELERAZIONE,TREND,ZONA1,ZONA2;
Input: p(15);
MEDIA1 = Mov(C,p*3,E);
VELNUM = op(c,MEDIA1,sub);
VELOCITA = op(VELNUM,MEDIA1,divis);
MEDIA2 = Mov(VELOCITA,p,E);
ACCELERAZIONE = op(VELOCITA,MEDIA2,sub);
TREND = op(VELOCITA,ACCELERAZIONE,sub);
if VELOCITA>ACCELERAZIONE
and
VELOCITA>VELOCITA[1]
and
ACCELERAZIONE>ACCELERAZIONE[1]
and
VELOCITA>0
and
ACCELERAZIONE>0
and
TREND>TREND[1]
and
TREND>0 then colorbar (black);
endif;
if VELOCITA<ACCELERAZIONE
and
VELOCITA<VELOCITA[1]
and
ACCELERAZIONE<ACCELERAZIONE[1]
and
VELOCITA<0
and
ACCELERAZIONE<0
and
TREND<TREND[1]
and
TREND<0 then colorbar (fuchsia);
endif;
ZONA1 = Createviewport (200, true, true);
Plotchart (VELOCITA, zona1, red, solid, 1);
Plotchart (ACCELERAZIONE, zona1, navy, solid, 1);
Plotchart (TREND, zona1, lime, solid, 1);