圆弧的弧长公式通达信指标——投机七剑(主图)

2020年9月22日发(作者：卢锦梭)

{七剑出鞘}
EMA5:=EMA(C,5);
EMA10:=EMA(C,10);
EMA30:=EMA(C,30);
EMA60:=EMA(C,60);
EMA120:=EMA(C,120);
ZDF:=(C-REF(C,1))REF(C,1)*100;
STICKLINE(ZDF> 9.8,O,C,1,0),COLORRED;
STICKLINE(ZDF< -9.8,O,C,1,0),COLORBLUE;


GJTJ1:=100*(C-LLV(L,5))(HHV(C,5)-LLV(L,5));
GJTJ2:=100*(C-LLV(L,10))(HHV(C,10)-LLV(L,10));
GJTJ3:=100*(C-LLV(L,20))(HHV(C,20)-LLV(L,20));
GJTJ4:=100*(C-LLV(L,30))(HHV(C,30)-LLV(L,30));

{山东操盘手白金版公式
条件选股
名称：白金星星点灯
描述：20T 10% 100%}
A1:=BARSLAST(CROSS(30,GJTJ1))< 2 AND BARSLAST(CROSS(GJTJ1,50))< 2;
B1:=BARSLAST(CROSS(GJTJ4,GJTJ1))< 2 AND GJTJ1> GJTJ4;
E1:=GJTJ1> 60 AND GJTJ4> 70;
白金:=A1 AND B1 AND E1;
DRAWTEXT(白金,(L * 0.95),'白金'),COLORGREEN;
STICKLINE(白金,C,O,6,0),COLORGREEN;

{竞星
启动金三角 （捉中线牛股起涨点）}
A:=GJTJ1=GJTJ2 AND GJTJ2=GJTJ3 AND GJTJ1=100 AND GJTJ4> 96;
B:=COUNT(A,2)=1;
D:=GJTJ1< 95;
YH:=INDEXCREF(INDEXC,1)*REF(C,1);
YH1:=REF(C,1)+C-INDEXCREF(INDEXC,1)*REF(C,1);
X1:=EMA(YH1,7);
X2:=EMA(YH1,14);
X3:=EMA(X1,14);
E:=X1> X2 AND X2> X3;
竟星:=B AND D AND E;
DRAWTEXT(竟星,(L * 0.95),'竟星'),COLORWHITE;

{天瀑
启动金三角 （捉中线牛股起涨点）}
XG:=BARSLAST(CROSS(GJTJ4,GJTJ1))< 5 AND GJTJ1> GJTJ4;
天瀑:=COUNT(XG,3)=1 AND XG;
DRAWTEXT(天瀑,(L * 0.95),'天瀑'),COLORYELLOW;
STICKLINE(天瀑,C,O,6,0),COLORYELLOW;
STICKLINE(天瀑,H,L,1,0),COLORYELLOW;


{日月
短线追涨 （高位横盘突破）}
A2:=BARSLAST(CROSS(97,GJTJ1))<= 1 AND BARSLAST(CROSS(GJTJ1,85))<= 1;
B2:=BARSLAST(CROSS(97,GJTJ2))<= 1 AND BARSLAST(CROSS(GJTJ2,85))<= 1;
A3:=A2 AND B2;
AA:=BARSLAST(CROSS(97,GJTJ1))<= 2 AND BARSLAST(CROSS(GJTJ1,85))<= 1;
BA:=BARSLAST(CROSS(97,GJTJ2))<= 2 AND BARSLAST(CROSS(GJTJ2,85))<= 1;
A4:=AA AND BA
AAA:=BARSLAST(CROSS(97,GJTJ1))<= 3 AND BARSLAST(CROSS(GJTJ1,85))<= 1;
BAA:=BARSLAST(CROSS(97,GJTJ2))<= 3 AND BARSLAST(CROSS(GJTJ2,85))<= 1;
A8:=AAA AND BAA ;
B21:=REF(A3,1);
B3:=REF(A4,1);
B4:=REF(A8,1);
D2:=GJTJ1= 100 AND GJTJ2= 100 AND A3
D3:=GJTJ1= 100 AND GJTJ2= 100 AND A4
D4:=GJTJ1= 100 AND GJTJ2= 100 AND A8 ;
日月:=D2 OR D3 OR D3;
DRAWTEXT(日月,(L * 0.95),'日月'),COLORF00FF0;

{青干
蓝三角启动 （精确定位起涨第一日）}
A5:=BARSLAST(CROSS(95,GJTJ1))<= 2;
B5:=BARSLAST(CROSS(95,GJTJ2))<= 2;
WE:= GJTJ4 < GJTJ1 AND GJTJ1 < GJTJ2 AND GJTJ1< GJTJ3;
F1:=GJTJ2> 50 AND GJTJ3> 50;
G1:=GJTJ1= 100 AND GJTJ2= 100;
TX:=COUNT(G1,2)= 1;
青干:=A5 AND B5 AND E5 AND F1 AND TX;
DRAWTEXT(青干,(L * 0.95),'青干'),COLORRED;
STICKLINE(青干,C,O,6,0),COLORRED;
STICKLINE(青干,H,L,1,0),COLORRED;

{莫问
银边启动 （波段启动前兆）}
A6:=GJTJ3= 100;
B6:=GJTJ4< 90;
莫问:=COUNT(A6,2) = 2 AND B6;
DRAWTEXT(莫问,(L * 0.95),'莫问'),COLORBLUE;

{黄金星星点灯
20T 10% 94.05%}
A7:=BARSLAST(CROSS(50,GJTJ1))< 3 AND BARSLAST(CROSS(GJTJ1,50))< 3;
B7:=BARSLAST(CROSS(GJTJ4,GJTJ1))< 2 AND GJTJ1> GJTJ4;
黄金:=A7 AND B7;
DRAWTEXT(黄金,(L * 0.95),'黄金'),COLORFFBB00;

{舍神
阶段震仓启动点（黄金坑）}
YA:=BARSLAST(CROSS(GJTJ4,GJTJ1))> 3 AND BARSLAST(CROSS(GJTJ1,GJTJ4))< 3;
YB:=BARSLAST(CROSS(GJTJ4,GJTJ2));
YD:=GJTJ3 < GJTJ4 AND GJTJ2 < GJTJ4;
YE:=BARSLAST(CROSS(GJTJ4,GJTJ3))> 3 AND BARSLAST(CROSS(GJTJ1,GJTJ4))< 3;
YF:=GJTJ2 < GJTJ3 AND GJTJ2 < GJTJ4 AND GJTJ2 < GJTJ1 AND GJTJ1= 100;
YB1:=YA> 0 AND REF(YA,1)= 0 AND REF(YA,2)> 0;
舍神:={ENTERLONG:}YA AND YB AND YD AND YE AND YF{ AND YB1};
DRAWTEXT(舍神,(L * 0.95),'舍神');

{注意买入}
VAR1:=(HIGH+LOW+OPEN+2*CLOSE)5;
VAR2:=REF(VAR1,1);
VAR3:=SMA(MAX(VAR1-VAR2 ,0),10,1)SMA(ABS(VAR1-VAR2),10,1)*100;
HY3:=IF(COUNT(VAR3< 20,5)>= 1 AND COUNT(VAR1=LLV(VAR1,10),10)>= 1 AND
CLOSE>= OPEN*1.038 AND VOL> MA(VOL,5)*1.2,1,0);
DRAWTEXT(HY3,LOW*0.96,' 注意买入'),COLORYELLOW;
VF1:=MA(CLOSE,60)-MA(CLOSE,5)3.2;
DRAWTEXT(IF(CLOSE< VF1 AND VOL240> MA(VOL,5)240 AND CLOSE>=
REF(CLOSE,1)*1.08 AND CLOSE< MA(CLOSE,13)*1.3,1,0),LOW,'☆'),COLORRED;
VARA:=(CLOSE-REF(OPEN,29))REF(OPEN,29)*100;
VARB:=EMA(0.667*REF(VARA,1)+0.333*VARA,5);
DRAWTEXT(IF(VOL>= 1.3*MA(VOL,5) AND COUNT(VARA>= VARB AND VARA<-17,3)
AND REF(LOW,1)= LLV(LOW,120),1,0),LOW,'★注意买入');
S:=MA(VOL,5)MA(VOL,60),COLORRED,,LINETHICK2;
BIAS:=(CLOSE-MA(CLOSE,5))MA(CLOSE,5)*100;
F:=MA(S,121);
RSV:=(CLOSE- LLV(LOW,45))(HHV(HIGH,45)-LLV(LOW,45))*100;
K:=SMA(RSV,15,1);
D:=SMA(K,15,1);
J:=3*K-2*D;
S1:=IF((J< 11 AND BIAS> -11 AND CROSS( S,F) AND (S-F)> 0.010),2,0);
DRAWTEXT(S1=2,LOW,'关注!'),COLORGREEN;

三十:MA(C,30),COLORRED,LINETHICK2;
十三:EMA(C,13),LINETHICK1;
八九:EMA(C,89),LINETHICK2;
跌:IF(MA(CLOSE,30)<=
REF(MA(CLOSE,30),1),MA (CLOSE,30),DRAWNULL),COLORGREEN,LINETHICK2;