文华短线多空指标公式源码

N:=1;
N1:=1;
Q:=0;
Q1:=0;
HHHHH:=HHV(HIGH,N);//HH
LLLLH:=LLV(LOW,N);//LH
HHHH1:=IFELSE(HHHHH<REF(HHHHH,1)&&LLLLH<REF(LLLLH,1)&&REF(OPEN,1)>CLOSE&&OPEN>CLOSE&&(HHV(OPEN,Q)-CLOSE)>Q1,REF(HHHHH,N1),0);//H1
LLLL1:=IFELSE(LLLLH>REF(LLLLH,1)&&HHHHH>REF(HHHHH,1)&&REF(OPEN,1)<CLOSE&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,Q))>Q1,REF(LLLLH,N1),0);//L1
HHHH2:=VALUEWHEN(HHHH1>0,HHHH1);//H2
LLLL2:=VALUEWHEN(LLLL1>0,LLLL1);//L2
KKKK1:=IFELSE(CLOSE>HHHH2,-3,IFELSE(CLOSE<LLLL2,1,0));//K1
KKKK2:=VALUEWHEN(KKKK1<>0,KKKK1);//K2
GGGG:=IFELSE(KKKK2=1,HHHH2,LLLL2);//G
GGGG1:=VALUEWHEN(ISLASTBAR,GGGG);//G1
//DRAWNUMBER(LH>0,G1,G1,0,COLORCYAN),ALIGN0;//

TTTTMP:=KKKK2;//TMP
WWWW1:=KKKK2;//W1
WWWW2:=OPEN-CLOSE;//W2
HHHHT:=IFELSE(OPEN>CLOSE,OPEN,CLOSE);//HT
LLLLT:=IFELSE(OPEN<CLOSE,OPEN,CLOSE);//LT

//DRAWLINE(W1=1,HIGH,W1=1,HT,COLORCYAN);
//DRAWLINE(W1=1,LOW,W1=1,LT,COLORCYAN);
//DRAWLINE(W1=-3,HIGH,W1=-3,HT,COLORRED);
//DRAWLINE(W1=-3,LOW,W1=-3,LT,COLORRED);

//STICKLINE(W1>0,OPEN,CLOSE,COLORCYAN,1);
//STICKLINE(W1<=0,OPEN,CLOSE,COLORRED,1);
//STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,COLORRED,0);
//STICKLINE(W2>0&&W1>0,OPEN,CLOSE,COLORCYAN,0);

DRAWLINE(TTTTMP=1&&REF(TTTTMP,1)=1,GGGG,TTTTMP=1&&REF(TTTTMP,1)=1,REF(GGGG,1),COLORGREEN);
DRAWLINE(TTTTMP=-3&&REF(TTTTMP,1)=-3,GGGG,TTTTMP=-3&&REF(TTTTMP,1)=-3,REF(GGGG,1),COLORRED);
DRAWSL(KKKK2=1,GGGG,0,1,0,COLORGREEN);
DRAWSL(KKKK2=-3,GGGG,0,1,0,COLORRED);

DRAWTEXT(CROSS(TTTTMP,0),GGGG, '空 2'),COLORGREEN,FONTSIZE20,ALIGN0;
DRAWTEXT(CROSS(0,TTTTMP),GGGG, '多 2'),COLORRED,FONTSIZE20,VALIGN0,ALIGN0;
MA55:=MA(CLOSE,55);
DRAWTEXT(CROSS(TTTTMP,0)&&CLOSE<=MA55,GGGG, '空 2'),COLORGREEN,FONTSIZE20,ALIGN0;
DRAWTEXT(CROSS(0,TTTTMP)&&CLOSE>=MA55,GGGG, '多 2'),COLORRED,FONTSIZE20,VALIGN0,ALIGN0;