Kase Osc
Per1:=Input("Length",5,100,30); 
Kup:=If(Mov(ATR(1),Per1,S)>0,((Ref(H,-Per1)/L))/((Mov(V,Per1,S)*Sqrt(Per1))),PREV); 
Kdn:=If(Mov(ATR(1),Per1,S)>0,((H/Ref(L,-Per1)))/((Mov(V,Per1,S)*Sqrt(Per1))),PREV); 
A:=(Kdn-Kup)*10000; 
A;