源码
指数:=INDEXC,NODRAW,Color1A1AFF ;
ED1:=(-2*REF(C,2)+REF(C,1)+2*C);
ED2:=(-0.4*REF(C,4)-0.4*REF(C,3)-1.1*REF(C,2)+0.9*REF(C,1)+2*C);
ED3:=(-0.8*REF(C,4)-0.8*REF(C,3)-0.2*REF(C,2)+0.8*REF(C,1)+2*C);
CC:=(-2*REF(C,3)+3*REF(C,2)+6*REF(C,1)+7*C)/14;
JF1:=SMA(SMA(ED1,3,1),3,1);
JF2:=SMA(SMA(ED2,4,1),3,1);
JF3:=SMA(SMA(ED3,4,1),4,1);
趋势线:=EMA(JF2,7,2);
工作线:EMA(JF1,14,2),ColorFF28FF;
生命线:EMA(JF2,25,2),Color28FFFF;
牛熊线:EMA(JF3,40,2),ColorFFFFFF;
半年线:EMA(JF3,118,2),Color7100E1;
PARTLINE(趋势线,趋势线>REF(趋势线,1),RGB(255,36,36),趋势线<=REF(趋势线,1),RGB(40,250,40)),LINETHICK2;
var9Q:=C= HHV(C,4)AND (REF(C,1)>=REF(C,2) OR REF(C,1)>=REF(C,3)) OR REF(C,1)=HHV(C,4) AND CLOSE>=REF(C,2) OR REF(C,2)=HHV(C,4) AND REF(C,3)=LLV(C,4) AND C>=REF(C,1) OR REF(C,3)=HHV(C,4) AND C>=REF(C,1) AND C>=REF(C,2);
varaQ:=C=HHV(C,4) AND REF(C,1)=LLV(C,4);
varbQ:=C=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3)) OR REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<>HHV(C,4) AND C<REF(C,1) OR REF(C,3)=LLV(C,4) AND C<REF(C,1) AND C<REF(C,2);
varcQ:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1);
vardQ:=REF(C,1)=HHV(C,4) AND C<REF(C,2) OR (REF(C,2)=HHV(C,4) AND REF(C,1)>REF(C,3) OR REF(C,3)=HHV(C,4) AND REF(C,1)>REF(C,2)) AND REF(C,2)>=REF(C,4) AND C<REF(C,1);
A:=(3*C+L+O+H)/6;
VAR4:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,10,0 ),COLORD50000;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,10,0 ),COLORF20000;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLORFF2626;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLORFF4D4D;//绿蓝空
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,10,0) ,ColorB7005B;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,10,0) ,ColorD5006A;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,ColorF9007C;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,ColorFF2894;//紫红跟
红持:var9Q,Color2D2DFF;
STICKLINE(var9Q,C,(O+C)/2,10,0),Color0000B7;
STICKLINE(var9Q,C,(O+C)/2,10,0),Color0000D5;
STICKLINE(var9Q,C,(O+C)/2,8,0),Color0000FF;
STICKLINE(var9Q,C,(O+C)/2,4,0),Color2D2DFF;
紫加:varaQ,ColorFF2894;
STICKLINE(varaQ,C,(O+C)/2,10,0),ColorB700B7;
STICKLINE(varaQ,C,(O+C)/2,10,0),ColorD500D5;
STICKLINE(varaQ,C,(O+C)/2,8,0),ColorF900F9;
STICKLINE(varaQ,C,(O+C)/2,4,0),ColorFF2DFF;
白减:varbQ,ColorFFFFFF;
STICKLINE(varbQ,C,(O+C)/2,10,0),ColorAAAAAA;
STICKLINE(varbQ,C,(O+C)/2,10,0),ColorCECECE;
STICKLINE(varbQ,C,(O+C)/2,8,0),ColorF2F2F2;
STICKLINE(varbQ,C,(O+C)/2,4,0),ColorFFFFFF;
兰抛:vardQ,ColorFFFF33;
STICKLINE(vardQ,O,(O+C)/2,10,0),Color00B700;
STICKLINE(vardQ,O,(O+C)/2,10,0),Color00D500;
STICKLINE(vardQ,O,(O+C)/2,8,0),Color00F900;
STICKLINE(vardQ,O,(O+C)/2,4,0),Color2DFF2D;
黄买:varcQ,Color33FFFF;
STICKLINE(varcQ,O,(O+C)/2,10,0),Color00B7B7;
STICKLINE(varcQ,O,(O+C)/2,10,0),Color00D5D5;
STICKLINE(varcQ,O,(O+C)/2,8,0),Color00FBFB;
STICKLINE(varcQ,O,(O+C)/2,4,0),Color33FFFF;
二炮:=(-0.4*REF(C,4)-0.4*REF(C,3)-1.1*REF(C,2)+0.9*REF(C,1)+2*C);
攻击线:=SMA(二炮,4,2),colorred,LINETHICK2;
PARTLINE(攻击线,攻击线>REF(攻击线,1),RGB(250,30,250),攻击线<=REF(攻击线,1),RGB(30,250,250)),LINETHICK2;
VAR1:=4*SMA((CLOSE-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100,4,1)-
3*SMA(SMA((CLOSE-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100,4,1),3.2,1);
VAR2:=7;
CC:=CROSS(VAR1,VAR2);
DRAWTEXT(CC,L*0.98,'★'),Color00FFFF;
卖出:=CROSS(72,SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100);
DRAWTEXT(卖出,H*1.08,'◆'),colorgreen;F:=100*(C-REF(C,1))/REF(C,1);
p1:=IF(C<REF(O,1) AND f<0,1,0);
p2:=IF(C<REF(O,2) AND f<0,1,0);
STICKLINE(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,OPEN,CLOSE,10,0),Color00B7B7;
STICKLINE(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,OPEN,CLOSE,10,0),Color00D5D5;
STICKLINE(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,OPEN,CLOSE,8,0),Color00FBFB;
STICKLINE(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,OPEN,CLOSE,4,0),Color33FFFF;//黄进
STICKLINE(P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0,OPEN,CLOSE,10,0),ColorBDBD00;
STICKLINE(P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0,OPEN,CLOSE,10,0),ColorDDDD00;
STICKLINE(P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0,OPEN,CLOSE,8,0),ColorFFFF0F;
STICKLINE(P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0,OPEN,CLOSE,4,0),ColorFFFF33;//兰顶
BDGD:=CROSS(0.8,H=HHV(H,6));
GDSJ:=BARSLAST(BDGD)+1;
波峰:=REF(H,GDSJ),Color1EFF1E;
BDDD:=CROSS(0.8,L=LLV(L,6));
DDSJ:=BARSLAST(BDDD)+1;
波谷:=REF(L,DDSJ),Color7400E8;
STICKLINE(GDSJ<=8,波峰,波峰,8,0),Color1EFF1E,LINETHICK02;
STICKLINE(DDSJ<=8,波谷,波谷,8,0),Color00FFFF,LINETHICK02;
AAA:=(3*C+H+L+O)/6;
VAR:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36;
TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR;
立桩量:=FILTER(TJ1,5);
TJ2:=IF(BARSLAST(立桩量)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(立桩量)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(立桩量)=3 AND CLOSE>REF(HIGH,3),1,0)));
突破:=TJ2=1;
LB:='___________';
DRAWTEXT(立桩量,REF(HIGH,BARSLAST(立桩量)),LB),PXUP8,coloryellow;
DRAWTEXT(立桩量,REF(LOW,BARSLAST(立桩量)),LB),PXUP8,coloryellow;
TJ3:=IF(BARSLAST(立桩量)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(立桩量)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(立桩量)=3 AND CLOSE>REF(LOW,3),1,0)));
三天法则:=TJ3=1;
成立:=三天法则 AND 突破;
条件成立:=FILTER(成立,3);
DRAWTEXT(条件成立,L*0.93,'立桩成'),coloryellow;
立桩显:=IF(BARPOS=BARSCOUNT(C),VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1);
STICKLINE(立桩显>=1,O,C,10,0),Color00A8A8;
STICKLINE(立桩显>=1,O,C,8,0),Color00C6C6;
STICKLINE(立桩显>=1,O,C,6,0),Color00E3E3;
STICKLINE(立桩显>=1,O,C,4,0),Color09FFFF;//黄
A1:=MIN(O,C);
B1:=ABS(O-C);
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
紫底背:88,ColorFF1E8E;
STICKLINE(CROSS(FF,MA15),A1,A1+B1/2,10,0),ColorB5005A;
STICKLINE(CROSS(FF,MA15),A1,A1+B1/2,8,0),ColorDB006D;
STICKLINE(CROSS(FF,MA15),A1,A1+B1/2,4,0),ColorF9007C;
STICKLINE(CROSS(FF,MA15),A1,A1+B1/2,2,0),ColorFF1E8E;//紫底背
白顶背:88,RSI,ColorFFFFFF;
STICKLINE(CROSS(88,RSI),A1+B1,A1+B1/2,10,0),ColorA5A5A5;
STICKLINE(CROSS(88,RSI),A1+B1,A1+B1/2,8,0),ColorD2D2D2;
STICKLINE(CROSS(88,RSI),A1+B1,A1+B1/2,4,0),ColorF0F0F0;
STICKLINE(CROSS(88,RSI),A1+B1,A1+B1/2,2,0),ColorFFFFFF;//白顶背
