ma5:=ma(c,5);
ma10:=ma(c,10);
ma50:=ma(c,50);
ma60:=ma(c,60);
ma100:=ma(c,100);
ma300:=ma(c,300);
ma180:=ma(c,180);
n10:=todaybar;
dm:=4-INTPART(LOG(C));
N:=barslast(date<>ref(date,1))+1;
JSJ:=ROUNDS(IF(sum(vol,n10)=0,C,sum(C*vol,n10)/sum(vol,n10)),2+dm),colorred;
KD:H>ref(hhv(h,todaybar),1)&&H>PRVSETTLEMENT&&(TIME>0103&&TIME<=1859);
KK:L<ref(llv(l,todaybar),1)&&L<PRVSETTLEMENT&&(TIME>0103&&TIME<=1859);
T:=BARSLAST(L<(JSJ))+1;
T1:=BARSLAST(H>(JSJ))+1;
ZD1:=COUNT(KD,T);
ZK1:=COUNT(KK,T1);
ZD2:COUNT(zd1>0,T);
ZK2:COUNT(zk1>0,T1);
FZD1:=stkindi('sqag12','A.dk',0,1);
FZD2:=stkindi('sqaL08','A.DK',0,1);
FZD3:=stkindi('sqaU12','A.DK',0,1);
FZD4:=stkindi('sqBUX12','A.DK',0,1);
;
FZD5:=stkindi('sqCU08','A.DK',0,1);
FZD6:=stkindi('sqHC10','A.DK',0,1);
FZD7:=stkindi('sqNI09','A.DK',0,1);
FZD8:=stkindi('sqRB10','A.dk',0,1);
FZD9:=stkindi('sqRU09','A.DK',0,1);
FZD10:=stkindi('sqZN08','A.DK',0,1);
FZD11:=stkindi('DQY09','A.DK',0,1);
FZD12:=stkindi('DQP09','A.DK',0,1);
FZD13:=stkindi('DQM09','A.DK',0,1);
FZD14:=stkindi('DQJM09','A.DK',0,1);
;
FZD15:=stkindi('DQJ09','A.DK',0,1);
FZD16:=stkindi('DQAX09','A.DK',0,1);
FZD17:=stkindi('ZQCF09','A.DK',0,1);
FZD18:=stkindi('ZQMA09','A.DK',0,1);
FZD19:=stkindi('ZQOI09','A.DK',0,1);
FZD20:=stkindi('ZQRM09','A.DK',0,1);
FZD21:=stkindi('ZQSRY09','A.DK2',0,1);
FZD22:=stkindi('ZQTA09','A.DK',0,1);
max_fzd:max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(max(FZD1,FZD2),FZD3),FZD4),FZD5),FZD6),FZD7),FZD8),FZD9),FZD10),FZD11),FZD12),FZD13),FZD14),FZD15),FZD16),FZD17),FZD18),FZD19),FZD20),FZD21),FZD22);;
mIN_fzk:MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(MIN(FZD1,FZD2),FZD3),FZD4),FZD5),FZD6),FZD7),FZD8),FZD9),FZD10),FZD11),FZD12),FZD13),FZD14),FZD15),FZD16),FZD17),FZD18),FZD19),FZD20),FZD21),FZD22);;
kd2:h> ref(hhv(h,todaybar),1) and zd2=max_fzd and zd2>0 and ma5>ma60 AND H>ma300 AND ma10>ma60 AND holding=0 ;
;
kk2:l< ref(llv(l,todaybar),1) and -zk2=min_fzk and -zk2<0 and ma5<ma60 AND L<ma300 AND ma10<ma60 AND holding=0 ;
tbuy( kd2 and tholding=0 and (TIME>0103 AND TIME<1856 ) ,3,mkt);
tsell(c<JSJ OR TIME=1900 and tholding>0,3,mkt);
tbuyshort( kk2 and tholding=0 and (TIME>0103 AND TIME<1856 ) ,3,mkt);
tsellshort(c>JSJ OR TIME=1900 and tholding<0,3,mkt);