#!/bin/bash
#CH1 pixel clock
#CH3 video line looks like:  |    |                  |      |
#CH4 hsync

for i in 1 3 4; do
tr ',' '\n' < ch$i.dat > ch$i.txt
done

awk '{c+=$1} END {print c/NR}' < ch1.txt
awk '{c+=$1} END {print c/NR}' < ch3.txt
awk '{c+=$1} END {print c/NR}' < ch4.txt




#14879.4
#23161.1

awk 'BEGIN { q=13500; n=0; }; {a=b; b=c; c=$1;  if ((a<q) && ( b<q) &&(c>=q)) { n++;} ; print n }' < ch1.txt > ch1.up
awk 'BEGIN { q=10500; n=0; }; {a=b; b=c; c=$1;  if ((a<q) && ( b<q) &&(c>=q)) { n++;} ; print n }' < ch3.txt > ch3.up 
awk 'BEGIN { q=6400; n=0; }; {a=b; b=c; c=$1;  if ((a<q) && ( b<q) &&(c>=q)) { n++;} ; print n }' < ch4.txt > ch4.up

awk 'BEGIN { q=13500; n=0; }; {a=b; b=c; c=$1;  if ((a>q) && ( b>q) &&(c<=q)) { n++;} ; print n }' < ch1.txt > ch1.down
awk 'BEGIN { q=10500; n=0; }; {a=b; b=c; c=$1;  if ((a>q) && ( b>q) &&(c<=q)) { n++;} ; print n }' < ch3.txt > ch3.down 
awk 'BEGIN { q=19500; n=0; }; {a=b; b=c; c=$1;  if ((a>q) && ( b>q) &&(c<=q)) { n++;} ; print n }' < ch4.txt > ch4.down

paste ch1.up ch1.down  ch3.up ch4.up ch4.down > cnt

awk 'BEGIN {op=0;}; {p=$3; if (p!=op) { print "V+ ",$1, " " p; op=p;}}' < cnt
awk 'BEGIN {op=0;}; {p=$4; if (p!=op) { print "S+ ",$1, " " p; op=p;}}' < cnt
awk 'BEGIN {op=0;}; {p=$5; if (p!=op) { print "S- ",$1, " " p; op=p;}}' < cnt