多空线1
JH:=BARSLAST(MOD(BARPOS,21)=1);
江:=IF(JH>REF(JH,1),1,0);
QH:=IF(BACKSET(JH=0,JH+2) AND JH>0,CLOSE,IF(BARSTATUS=2,CLOSE,0));
海:=REF(JH,1);
期:=0*CLOSE;
FOR I=DATACOUNT DOWNTO 2 DO BEGIN
IF JH[I]>海[I] THEN
期[I-1]:=期[I]+江[I];
I:=I-1;
END;
HH:=REFX(HHV(HIGH,JH+1),期);
LL:=REFX(LLV(LOW,JH+1),期);
货:=REFX(QH,期);
交:=MA(HH,3);
易:=MA(LL,3);
FOR I=21+1 TO DATACOUNT DO BEGIN
IF 货[I]>交[I-1] THEN
HL[I]:=1;ELSE
IF 货[I]<易[I-1] THEN
HL[I]:=-1;ELSE
HL[I]:=HL[I-1];
I:=I+1;
END;
PARTLINE(HL=1 AND REF(HL,1)=1,MA(LL,3)),LINETHICK2,colorFFFF;
PARTLINE(HL=-1 AND REF(HL,1)=-1,MA(HH,3)),LINETHICK2,colorFFFFFF;
STICKLINE(HL=1,OPEN,CLOSE,8,0),colorFF;
STICKLINE(HL=1,HIGH,LOW,1,0),colorFF;
STICKLINE(HL=-1,OPEN,CLOSE,8,0),colorFF0000;
STICKLINE(HL=-1,LOW,HIGH,1,0),colorFF0000;
DRAWICON(CROSS(HL=-1 AND REF(HL,1)=-1,0.5),HH,11);
DRAWICON(CROSS(HL=1 AND REF(HL,1)=1,0.5),LL,12);
DRAWTEXT(CROSS(HL=1 AND REF(HL,1)=1,0.5),MA(LL,3),'开多平空'),colorFF00;
DRAWTEXT(CROSS(HL=-1 AND REF(HL,1)=-1,0.5),MA(HH,3),'开空平多'),colorFF00FF;
DRAWTEXT(HL=-1 AND REF(HL,1)=-1 AND HIGH>=MA(HH,3),HIGH,'♀加空'),colorFF00FF;
DRAWTEXT(HL=1 AND REF(HL,1)=1 AND LOW<=MA(LL,3),LOW,'♂加多'),colorFF00;
多空线2（日线以下周期）
IF DATATYPE>5 THEN
EXIT;
VAR1:=MA(CLOSE,S1);
VAR2:=HHV(HIGH,P1)/2+LLV(LOW,P1)/2;
TJ:=FILTER(CROSS(CLOSE,LLV(HIGH,3)) OR CROSS(HHV(LOW,3),CLOSE),13);
VAR3:=REF(VAR2,BARSLAST(TJ));
PARTLINE(VAR1>VAR2 AND CLOSE>VAR2,VAR3),LINETHICK3,color1B8800;
PARTLINE(VAR1<VAR2 AND CLOSE<VAR2,VAR3),LINETHICK3,colorBB0066;
STICKLINE(CLOSE/2+VAR1/2>VAR3,OPEN,CLOSE,8,0),colorFF00FF;
STICKLINE(CLOSE/2+VAR1/2>VAR3,HIGH,LOW,1,0),colorFF00FF;
STICKLINE(CLOSE/2+VAR1/2<VAR3,OPEN,CLOSE,8,0),colorFF00;
STICKLINE(CLOSE/2+VAR1/2<VAR3,LOW,HIGH,1,0),colorFF00;
DRAWICON(CROSS(VAR3,VAR1),HIGH,11);
DRAWICON(CROSS(VAR1,VAR3),LOW,12);
DRAWTEXT(CROSS(VAR1,VAR3),LOW,'开多平空'),colorFF;
DRAWTEXT(CROSS(VAR3,VAR1),HIGH,'开空平多'),colorFF0000;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
