蛟龙出海

阅读作者：股海网时间 2009-06-13 飞狐公式

C/C++ Code复制内容到剪贴板

{蛟龙出海}{YNGS仿制}
DRAWGBK(CLOSE,COLORRGB(100,0,0),COLORRGB(255,255,0),0);
GA:=(3*CLOSE+LOW+OPEN+HIGH)/6;
GB:=(20*GA+19*REF(GA,1)+18*REF(GA,2)+17*REF(GA,3)+16*REF(GA,4)+15*REF(GA,5)+14*REF(GA,6)+13*REF(GA,7)+12*REF(GA,8)+11*REF(GA,9)+10*REF(GA,10)+9*REF(GA,11)+8*REF(GA,12)+7*REF(GA,13)+6*REF(GA,14)+5*REF(GA,15)+4*REF(GA,16)+3*REF(GA,17)+2*REF(GA,18)+REF(GA,20))/210;
D1:MA(GB,3);
D2:MA(GB,5);
D3:MA(GB,21);
D4:MA(GB,34);
FILLRGN(D3>D4,D3,D4),color8000FF;
FILLRGN(D3<D4,D3,D4),colorFF80;
FILLRGN(D1>D2,D1,D2),color80FF;
FILLRGN(D1<D2,D1,D2),colorFF8000;
TJ:=CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1);
STICKLINE(TJ,LOW,HIGH,0.8,0),colorFF;
STICKLINE(TJ,OPEN,CLOSE,8,0),colorFF;
STICKLINE(TJ,OPEN,CLOSE,6,0),color8B6AFD;
STICKLINE(TJ,OPEN,CLOSE,2,0),colorC6B6FE;
STICKLINE(TJ,OPEN,CLOSE,1,0),colorF9F7FF;
STICKLINE(NOT(TJ),LOW,HIGH,0.1,0),colorFF0000;
STICKLINE(NOT(TJ),OPEN,CLOSE,8,0),colorFF0000;
STICKLINE(NOT(TJ),OPEN,CLOSE,6,0),colorFF7578;
STICKLINE(NOT(TJ),OPEN,CLOSE,2,0),colorFFBFC1;
STICKLINE(NOT(TJ),OPEN,CLOSE,0.5,0),colorFFFFF7;
DRAWBKBMP(CLOSE,'cpw'),ALIGN4;
RSI1:=(SMA(MAX(INDEXC-REF(INDEXC,1),0),6,1))/(SMA(ABS(INDEXC-REF(INDEXC,1)),6,1))*100;
DA1:=(3*INDEXC+INDEXL+INDEXO+INDEXH)/6;
DB:=(20*DA1+19*REF(DA1,1)+18*REF(DA1,2)+17*REF(DA1,3)+16*REF(DA1,4)+15*REF(DA1,5)+14*REF(DA1,6)+13*REF(DA1,7)+12*REF(DA1,8)+11*REF(DA1,9)+10*REF(DA1,10)+9*REF(DA1,11)+8*REF(DA1,12)+7*REF(DA1,13)+6*REF(DA1,14)+5*REF(DA1,15)+4*REF(DA1,16)+3*REF(DA1,17)+2*REF(DA1,18)+REF(DA1,20))/210;
B1:=MA(DB,3);
B2:=MA(DB,5);
B3:=MA(DB,21);
B4:=MA(DB,34);
S:=IF(DATE>960101,1,0);
VARQS12:=LLV(INDEXC,24)*1.056;
VARQS13:=(COUNT(MA(INDEXC,5)>REF(MA(INDEXC,5),1),17))/17*100;
DRAWTEXT(CROSS(INDEXC,VARQS12) AND LLV(INDEXC,24)=LLV(INDEXC,60) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 AND B3<B4 OR CROSS(INDEXC,VARQS12) AND LLV(INDEXC,24)=LLV(INDEXC,60) AND INDEXC<MIN(B1,MIN(B2,MIN(B3,B4))) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>REF(INDEXC,1)*1.056 AND INDEXC<MIN(B1,MIN(B2,MIN(B3,B4))) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>MAX(B1,MAX(B2,MAX(B3,B4))) AND MAX(B1,B2)<MAX(B3,B4) AND B3<B4 AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>MAX(B1,MAX(B2,MAX(B3,B4))) AND MAX(B1,B2)<MIN(B3,B4) AND B3>B4 AND COUNT(CROSS(INDEXC,VARQS12),13)<=1,LOW*0.98,'大盘见底啦!');
DRAWTEXT(CROSS(B4,INDEXC) AND B3<B4 AND INDEXC>MIN(B1,MIN(B2,MIN(B3,B4))) AND B1<B4 AND COUNT(CROSS(B4,B3),BARSLAST(CROSS(INDEXC,VARQS12) AND LLV(INDEXC,24)=LLV(INDEXC,60) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 AND B3<B4 OR CROSS(INDEXC,VARQS12) AND LLV(INDEXC,24)=LLV(INDEXC,60) AND INDEXC<MIN(B1,MIN(B2,MIN(B3,B4))) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>REF(INDEXC,1)*1.056 AND INDEXC<MIN(B1,MIN(B2,MIN(B3,B4))) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>MAX(B1,MAX(B2,MAX(B3,B4))) AND MAX(B1,B2)<MAX(B3,B4) AND B3<B4 AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>MAX(B1,MAX(B2,MAX(B3,B4))) AND MAX(B1,B2)<MIN(B3,B4) AND B3>B4 AND COUNT(CROSS(INDEXC,VARQS12),13)<=1))=1 AND COUNT(CROSS(B4,INDEXC) AND B3<B4,BARSLAST(CROSS(INDEXC,VARQS12) AND LLV(INDEXC,24)=LLV(INDEXC,60) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 AND B3<B4 OR CROSS(INDEXC,VARQS12) AND LLV(INDEXC,24)=LLV(INDEXC,60) AND INDEXC<MIN(B1,MIN(B2,MIN(B3,B4))) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>REF(INDEXC,1)*1.056 AND INDEXC<MIN(B1,MIN(B2,MIN(B3,B4))) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>MAX(B1,MAX(B2,MAX(B3,B4))) AND MAX(B1,B2)<MAX(B3,B4) AND B3<B4 AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>MAX(B1,MAX(B2,MAX(B3,B4))) AND MAX(B1,B2)<MIN(B3,B4) AND B3>B4 AND COUNT(CROSS(INDEXC,VARQS12),13)<=1))=1,HIGH*1.02,'准备清仓逃顶!'),colorFFFF;
DRAWTEXT(CROSS(RSI1,80) AND B2>B3 AND COUNT(INDEXC<B4,BARSLAST(CROSS(INDEXC,VARQS12) AND LLV(INDEXC,24)=LLV(INDEXC,60) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 AND B3<B4 OR CROSS(INDEXC,VARQS12) AND LLV(INDEXC,24)=LLV(INDEXC,60) AND INDEXC<MIN(B1,MIN(B2,MIN(B3,B4))) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>REF(INDEXC,1)*1.056 AND INDEXC<MIN(B1,MIN(B2,MIN(B3,B4))) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>MAX(B1,MAX(B2,MAX(B3,B4))) AND MAX(B1,B2)<MAX(B3,B4) AND B3<B4 AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>MAX(B1,MAX(B2,MAX(B3,B4))) AND MAX(B1,B2)<MIN(B3,B4) AND B3>B4 AND COUNT(CROSS(INDEXC,VARQS12),13)<=1))>=5,HIGH*1.02,'准备清仓逃顶!'),colorFFFF;
DRAWTEXT(CROSS(RSI1,80) AND COUNT(INDEXC>INDEXO,8)=8,HIGH*1.02,'准备清仓逃顶!'),colorFFFF;
DRAWTEXT(CROSS(VARQS13,75) AND COUNT(CROSS(75,VARQS13),BARSLAST(CROSS(INDEXC,VARQS12) AND LLV(INDEXC,24)=LLV(INDEXC,60) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 AND B3<B4 OR CROSS(INDEXC,VARQS12) AND LLV(INDEXC,24)=LLV(INDEXC,60) AND INDEXC<MIN(B1,MIN(B2,MIN(B3,B4))) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>REF(INDEXC,1)*1.056 AND INDEXC<MIN(B1,MIN(B2,MIN(B3,B4))) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>MAX(B1,MAX(B2,MAX(B3,B4))) AND MAX(B1,B2)<MAX(B3,B4) AND B3<B4 AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>MAX(B1,MAX(B2,MAX(B3,B4))) AND MAX(B1,B2)<MIN(B3,B4) AND B3>B4 AND COUNT(CROSS(INDEXC,VARQS12),13)<=1))=1,HIGH*1.02,'准备清仓逃顶!'),colorFFFF;
DRAWTEXT(CROSS(99,VARQS13) AND COUNT(VARQS13=100,BARSLAST(CROSS(INDEXC,VARQS12) AND LLV(INDEXC,24)=LLV(INDEXC,60) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 AND B3<B4 OR CROSS(INDEXC,VARQS12) AND LLV(INDEXC,24)=LLV(INDEXC,60) AND INDEXC<MIN(B1,MIN(B2,MIN(B3,B4))) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>REF(INDEXC,1)*1.056 AND INDEXC<MIN(B1,MIN(B2,MIN(B3,B4))) AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>MAX(B1,MAX(B2,MAX(B3,B4))) AND MAX(B1,B2)<MAX(B3,B4) AND B3<B4 AND COUNT(CROSS(INDEXC,VARQS12),13)<=1 OR CROSS(INDEXC,VARQS12) AND INDEXC>MAX(B1,MAX(B2,MAX(B3,B4))) AND MAX(B1,B2)<MIN(B3,B4) AND B3>B4 AND COUNT(CROSS(INDEXC,VARQS12),13)<=1))>21,HIGH*1.02,'准备清仓逃顶!'),colorFFFF;