{AAAAA 引用公式}
{控}
T_0:=IF(C>REF(C,1),0.9,-0.9); T_1:=IF(C<REF(C,1),-0.9,0.9); T_2:=T_0+T_1;
TT1:=BARSLAST(CROSS(T_2,0)); TT2:=BARSLAST(CROSS(0,T_2));
TT:=IF(T_2=1.8,1,IF(T_2=-1.8,-1,0));
正:=IF(TT=1 OR (TT=0 AND TT1>TT2),AMOUNT*1000,0)/10000000;
负:=IF(TT=-1 OR (TT=0 AND TT1<TT2),AMOUNT*1000,0)/10000000;
D1:=(ASKVOL(1)+ASKVOL(2)+ASKVOL(3))=0 AND REF((ASKVOL(1)+ASKVOL(2)+ASKVOL(3)),1 )=0 and REF(BIDVOL(1),1)>0;
E1:=(BIDVOL(1)+BIDVOL(2)+BIDVOL(3))=0 AND REF((BIDVOL(1)+BIDVOL(2)+BIDVOL(3)),1 )=0 and REF(ASKVOL(1),1)>0;
买:=IF(E1,SELLVOL,IF(D1=0,BUYVOL,0));
卖:=IF(D1,BUYVOL,IF(E1=0,SELLVOL,0));
K_J:=IF(CATEGORY,买,正);
K_C:=IF(CATEGORY,卖,负);
{分档}
五万_1:=SUM(IF(AMOUNT<=50000,K_J,0),0);
五万_2:=SUM(IF(AMOUNT<=50000,K_C,0),0);
五万以下:(五万_1-五万_2),LINETHICK,COLORGRAY;{五万以下增减}
{}
二十万_1:=SUM(IF(AMOUNT<=200000 and AMOUNT>50000,K_J,0),0);
二十万_2:=SUM(IF(AMOUNT<=200000 and AMOUNT>50000,K_C,0),0);
五至二十万:(二十万_1-二十万_2),LINETHICK1,COLORCYAN;{5-20万以下增减}
{}
五十_1:=SUM(IF(AMOUNT<=500000 and AMOUNT>200000,K_J,0),0);
五十_2:=SUM(IF(AMOUNT<=500000 and AMOUNT>200000,K_C,0),0);
二十至五十万:(五十_1-五十_2),LINETHICK1,COLORGREEN;{20-50万增减}
{}
百万_1:=SUM(IF(AMOUNT<=1000000 and AMOUNT>500000,K_J,0),0);
百万_2:=SUM(IF(AMOUNT<=1000000 and AMOUNT>500000,K_C,0),0);
五十至百万:(百万_1-百万_2),LINETHICK1,COLORMAGENTA;{50-100万增减}
{}
机构_1:=SUM(IF(AMOUNT>1000000,K_J,0),0);
机构_2:=SUM(IF(AMOUNT>1000000,K_C,0),0);
百万以上:(机构_1-机构_2),LINETHICK,COLORGRAY;{100万以上增减}//
{二合一}
DRAWGBK((DATE > 0),COLORRGB(0,33,0),COLORRGB(0,33,0),1);
{模拟}
qj0:=V/IF(H=L,4,H-L);
qj1:=IF(CAPITAL=0,qj0*((H+L+C)/3-MIN(C,O)),qj0*IF(H=L,1,MIN(O,C)-L));
qj2:=IF(CAPITAL=0,qj0*(MIN(O,C)-L),qj0*IF(H=L,1,(H+L+C)/3-MIN(C,O)));
qj3:=IF(CAPITAL=0,qj0*(H-MAX(O,C)),qj0*IF(H=L,1,H-MAX(O,C)));
qj4:=IF(CAPITAL=0,qj0*(MAX(C,O)-(H+L+C)/3),qj0*IF(H=L,1,(MAX(C,O)-(H+L+C)/3)));
{增减仓}
X:=2008; p:=SYSPARAM(1);
总1:=(qj1+qj2)-(qj3+qj4); ZJ:=REF(总1,1); w1:=(qj1+qj2);
周仓:=SUM(总1,5); 月仓:=SUM(总1,25);
年仓:=SUM(总1,240); 上周:=REF(周仓,1);
上月:=REF(月仓,1); 上年:=REF(年仓,BARSLAST(YEAR=x));
周增:=周仓-上周; 月增:=月仓-上月; 年增:=年仓-上年;
{}
DDX:((qj1+qj2)-(qj3+qj4))/if(CAPITAL=0,ESTDATA(8),CAPITAL),LINETHICK,COLORGRAY;
DX:=ma(ddx,5)*20;
DLX1:sma(DX,3,1),LINETHICK,COLORWHITE;
DLX2:sma(DLX1,3,1),LINETHICK,COLORYELLOW;
DLX3:wma(DLX2,5),LINETHICK,COLORMAGENTA;
{控制}
p:=sysparam(1); W:=SYSPARAM(2); Q:=SYSPARAM(3); XV_1:=BARSLAST(BARPOS=W+28);
ZZ:=(Q-W)+1; hh:=hhv(DLX1,ZZ); ll:=llv(DLX1,ZZ); zhh:=hh[Q]; zll:=ll[Q];
{}
W1:=EXTDATA(9);{散} W2:=EXTDATA(10);{中} W3:=EXTDATA(11);{大} W4:=EXTDATA(12);{特} W5:=EXTDATA(13);{机构}
{分档}
散户:=STKINDI('','AAAAA.五万以下',0,0);{引用} 小户:=STKINDI('','AAAAA.五至二十万',0,0);{引用}
中户:=STKINDI('','AAAAA.二十至五十万',0,0);{引用} 大户:=STKINDI('','AAAAA.五十至百万',0,0);{引用}
机构:=STKINDI('','AAAAA.百万以上',0,0);{引用}
{波段转向}{5天3%}
RSV:=((C-LLV(L,6))/(HHV(H,6)-LLV(L,6)))*100; K:=POW(SMA(RSV,2,1),5)/POW(10,8);
D:=POW(SMA(RSV,2,1),5)/POW(10,10); j:=(K+ D)/2; 短买入:=if(CROSS(j,1),1,0) and DLX1>ref(DLX1,1);{-----------------【图解模板】-------------------}
VERTLINE(短买入&&XV_1),LINEDOT,ColorFF5BFF;{}
STICKLINE(BARPOS=W,zll,zhh,530,0),Color003300;
STICKLINE(DDX>0&&XV_1,0,DDX*2,7,0),COLORRED;
STICKLINE(DDX<0&&XV_1,0,DDX*2,7,0),COLORCYAN;
{}
DRAWTEXT(BARPOS=W,0,'----------------------------- '),PXUP90,ALIGN5,COLORYELLOW;
PARTLINE(XV_1,DLX1),COLORWHITE;
PARTLINE(XV_1,DLX2),COLORYELLOW;
PARTLINE(XV_1,DLX3),COLORMAGENTA;
{}
DRAWTEXT(BARPOS=W,0,' \n分 '),ALIGN4,COLORYELLOW;
DRAWTEXT(BARPOS=W,0,' \n \n \n \n \n档 '),ALIGN4,COLORYELLOW;
DRAWTEXT(BARPOS=W+3,0,'散户(5万 - 以下)： '+NUMTOSTR(散户,0)),PXDN8,ALIGN4,ColorFFF0FF;
DRAWTEXT(BARPOS=W+3,0,' \n小户(5 -- 20 万)： '+NUMTOSTR(小户,0)),PXDN20,ALIGN4,ColorFFCCFF;
DRAWTEXT(BARPOS=W+3,0,' \n \n \n中户(20 -- 50万)： '+NUMTOSTR(中户,0)),PXDN8,ALIGN4,ColorFF68FF;
DRAWTEXT(BARPOS=W+3,0,' \n \n \n \n大户(50--100 万)： '+NUMTOSTR(大户,0)),PXDN16,ALIGN4,Color0098FF;
DRAWTEXT(BARPOS=W+3,0,' \n \n \n \n \n \n机构(100-万以上)： '+NUMTOSTR(机构,0)),PXUP42,ALIGN4,COLORRED;
DRAWTEXT(BARPOS=W,zll,'★ 今日增减:'+NUMTOSTR((总1[p]*100)/10000,2)+' 万股'),PXUP60,ALIGN5,COLORGREEN;
DRAWTEXT(BARPOS=W,zll,'★ 昨日增减:'+NUMTOSTR(zj[p]*100/10000,2)+' 万股'),PXUP22,ALIGN5,COLORYELLOW;
{解盘}
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(1,'周仓:'+NUMTOSTR(周仓[p]*100/10000,2)+' 万股'),COLORred;
EXPLAIN(1,'上周:'+NUMTOSTR(上周[p]*100/10000,2)+' 万股'),COLORred;
EXPLAIN(1,'增减:'+NUMTOSTR(周增[p]*100/10000,2)+' 万股'),COLORred;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(1,'月仓:'+NUMTOSTR(月仓[p]*100/10000,2)+' 万股'),COLORFF00FF;
EXPLAIN(1,'上月:'+NUMTOSTR(上月[p]*100/10000,2)+' 万股'),COLORFF00FF;
EXPLAIN(1,'增减:'+NUMTOSTR(月增[p]*100/10000,2)+' 万股'),COLORFF00FF;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(1,'年仓:'+NUMTOSTR(年仓[p]*100/10000,2)+' 万股'),COLOR00EE00;
EXPLAIN(1,'上年:'+NUMTOSTR(上年[p]*100/10000,2)+' 万股'),COLOR00EE00;
EXPLAIN(1,'增减:'+NUMTOSTR(年增[p]*100/10000,2)+' 万股'),COLOR00EE00;
EXPLAIN(1,'==================================='),colorwhite;//
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
