以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  图表改成后台程序  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=164255)
--  作者：shensane
--  发布时间：2018/7/3 14:18:42
--  图表改成后台程序
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);
--  作者：FireScript
--  发布时间：2018/7/3 14:24:41
--  
 基本不需要改的。
kd2:h> ref(hhv(h,todaybar),1)  and zd2=max_fzd   and zd2>0  and  ma5>ma60    AND H>ma300    AND ma10>ma60    AND   tholding=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   tholding=0 ;

这里用的holding改成Tholding就可以了。
另外 除了tholding 以及tholding2之外，还有
TBUYHOLDINGex
TSELLHOLDINGEX
这2个函数可以更精确的函数返回持仓情况，建议替换成这2个函数去使用。