Обороты двигателя?

[Валенок]

impulse : bool;
fix : r_trig;
freq : real; //Гц
t,p : time;


1. fix(clk:=impulse);
2. p:=sel(fix.q,p,time()-t);
3. freq:=1000/time_to_real(max(p,time()-t));
4. t:=sel(fix.Q,t,time());