●穿越火线－－★发现价值专用系列指标★

//●穿越火线
input:r(40,0,99),k(7,1,99);
DRAWTEXTEX(CLOSE,1,600,80,'★发现价值专用系列指标★'),COLORFF00FF;
p:=SYSPARAM(1);n:=SYSPARAM(6);
bx:=230/(SYSPARAM(3)-SYSPARAM(2));
by:=100/(SYSPARAM(4)-SYSPARAM(5));
x:=if(BARPOS<p,p-BARPOS,BARPOS-p)*bx;
y:=if(x<r,SQRT(r*r-x*x),0)/by;
n+y,COLORYELLOW;
n-y,COLORYELLOW;
y2:=if(x<r*k/10,SQRT(r*r*k*k/100-x*x),0)/by;
n+y2,COLORgreen;
n-y2,COLORgreen;
DRAWTEXT(BARPOS=SYSPARAM(2),SYSPARAM(4),'穿越火线'),colorFF;
FO:=OPEN;
FH:=HIGH;
FL:=LOW;
FC:=CLOSE;
KK:=IF(FC>=FO AND (FC>=REF(FC,1) OR REF(FC,1)>=REF(FO,1)),1,IF(FC<FO AND (FC<REF(FO,1) OR REF(FC,1)<REF(FO,1)),-1,0));
FCFO:=FC-FO;
KKS1:=KK=1 AND FC>=FO OR KK=1 AND FC<FO;
FOFC:=FO-FC;
KKS2:=KK<=0 AND FC>=FO OR KK<=0 AND FC<FO;
STDS:=STD(CLOSE,21);
D:=(FO+FC)/2;
今转:=IF(KK=1,MIN(FC,FO),IF(KK=-1,MAX(FC,FO),IF(REF(KK,1)=1,MIN(FC,FO),IF(REF(KK,1)=-1,MAX(FC,FO),(FC+FO)/2))));
HL:=EMA(HIGH,5);
LL:=EMA(LOW,5);
CH:=CROSS(CLOSE,HL);
CL:=-CROSS(LL,CLOSE);
TF:=IF(CH,CH,IF(CROSS(LL,CLOSE),CL,0));
UD:=REF(TF,BARSLAST(TF));
僵尸扫描线:=IF(UD>0,LL,HL);
PARTLINE(1,僵尸扫描线),LINETHICK2,colorFFFF;
PARTLINE(UD=1 AND REF(UD,1)=1,LL),LINETHICK4,colorFF;
PARTLINE(UD=-1 AND REF(UD,1)=-1 ,HL),LINETHICK4,colorFF00;

GDFZ0:=c;
GDFZ1:=h;
GDFZ2:=l;
TYA:=((((((((((GDFZ2 + GDFZ1) + GDFZ0) + REF(GDFZ0,1)) + REF(GDFZ2,1)) + REF(GDFZ1,1)) + REF(GDFZ0,2)) + REF(GDFZ2,2)) + REF(GDFZ1,2)) / 9));
HDA:=(((((HHV(TYA,(17 * 2)) + REF(HHV(TYA,(17 * 2)),1)) + REF(HHV(TYA,(17 * 2)),2)) + REF(HHV(TYA,(17 * 2)),3)) + REF(HHV(TYA,(17 * 2)),4)) / 5);
LDA:=(((((LLV(TYA,(17 * 2)) + REF(LLV(TYA,(17 * 2)),1)) + REF(LLV(TYA,(17 * 2)),2)) + REF(LLV(TYA,(17 * 2)),3)) + REF(LLV(TYA,(17 * 2)),4)) / 5);
A1:=(REF(HDA,1) = (HHV(TYA,((2 * 21) + 0))));
B1:=(FILTER(A1,21));
HD:=(FILTER(B1,21));
A2:=(REF(LDA,1) = (LLV(TYA,((2 * 21) + 0))));

B2:=(FILTER(A2,21) );
LD:=(FILTER(B2,21));

A:=(REF(HDA,BARSLAST(HD)));

B:=(REF(LDA,BARSLAST(LD)));

T1:=((BARSLAST(HD) < BARSLAST(LD)) AND (NOT(HD)));

T2:=((BARSLAST(HD) > BARSLAST(LD)) AND (NOT(LD)));

BF:=IF(T1,A,A);
HH:=MA(BF,1);
BG:=IF(T2,B,B);
LL:=MA(BG,1);HH1:=(BARSLAST((GDFZ0 > (REF(HH,1) * 1.003))));

LL1:=(BARSLAST((GDFZ0 < (REF(LL,1) * 0.997))));

PARTLINE((HH1 < LL1),LL),,colorFFFF;
PARTLINE((HH1 > LL1),HH),,colorFFFFFF;
DRAWICON(CROSS(HH1,LL1),HH,2);
DRAWICON(CROSS(LL1,HH1),LL,1);
STICKLINE((HH1 < LL1),OPEN,CLOSE,8,0),colorFF;
STICKLINE((HH1 < LL1),HIGH,LOW,0,0),colorFF;
STICKLINE((HH1 > LL1),OPEN,CLOSE,8,0),colorFF00;
STICKLINE((HH1 > LL1),HIGH,LOW,0,0),colorFF00;

{STICKLINE(c>=0,175,0,10,0),Color2B5516;主图背影}
MA3:MA(C,3),COLORF4E202,LINETHICK1;
MA13:MA(C,13),colorred;
平衡:EMA(C,30),CIRCLEDOT,COLORwhite;
上轨:平衡 + 2*STD(C,30),LINETHICK2,COLORFF00FF;
下轨:平衡 - 2*STD(C,30),LINETHICK2,COLOR00ff00;

Y1:=REF(EMA(DMA((((HIGH + LOW) + (CLOSE * 2)) / 4.15),0.9),3),1);

VAR1w:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR2w:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3w:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
Var3p:=IF(CLOSE/REF(CLOSE,1)>1.050 AND HIGH/CLOSE<1.010 AND IF(CLOSE>REF(CLOSE,1),88,0)>0, 91, 0);
STICKLINE(Var3p>90,L,L*0.92,1,0),COLORff00ff;
DRAWTEXT(Var3p>90,LOW*0.92,'追杀'),COLORFF00FF;
Ss:=MA((LOW+HIGH+CLOSE)/3,5)>REF(MA((LOW+HIGH+CLOSE)/3,5),1) AND REF(MA((LOW+HIGH+CLOSE)/3,5),1)<REF(MA((LOW+HIGH+CLOSE)/3,5),2);
SC:=L<HHV(MA((LOW+HIGH+CLOSE)/3,5),13) AND H>HHV(MA((LOW+HIGH+CLOSE)/3,5),13) AND C>REF(C,1) AND C>O;
MR:=SC AND COUNT(Ss,2);
买:=MR AND NOT(REF(MR,1)),coloryellow;
STICKLINE(买,L,L*0.95,1,0),COLORred;
DRAWTEXT(买,L*0.95, '任务'),COLORred;

多方:=7*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)
-3*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1),3,1)
-SMA(SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*30,4,1)
,3,1),2,1);
STICKLINE(CROSS(78.89,多方),h+1.5,h,1,0),COLOR00FF00;
DRAWTEXT(CROSS(78.89,多方),H+1.5,'黄金爆头'),COLOR00FF00;

Var1:=(CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*1;
Var2:=SMA(Var1,3,1)*100;
趋势线:=SMA((SMA(Var2,3,1)*var1),3,1)*1;
Var9:=CROSS(趋势线,(SMA(Var2,3,1)*var1)) AND (SMA(Var2,3,1)*var1)>8;
DRAWTEXT(Var9 AND COUNT(Var9,1)=1,h+0.6,'躲闪'), linethick2,COLORYELLOW;

AAx:=AMOUNT/VOL;
BBx:=L<AAx*0.9;
CCx:=(C-REF(C,1))/REF(C,1)*100>1.2;
DDx:=L<MA(C,5)*0.921;
EEx:=VOL<MA(V,5)*1.5;
FFx:BBx AND CCx AND DDx AND EEx,LINETHICK0;
DRAWTEXT(FFx,L*0.99,'隐蔽'),COLOR00FF00;
STICKLINE(FFx,H,L,0.5,0),COLOR00FF00;
STICKLINE(FFx,O,C,6,1),LINETHICK2,COLOR00FF00;