生命線(xiàn):EMA(C,24),COLORWHITE,LINETHICK2;
A:=REF(生命線(xiàn),24);
MTM:=CLOSE-REF(CLOSE,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
DY:=HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX);
LC:=REF(CLOSE,1);{程序化指標(biāo) WWW.HONGHAIE.COM}
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
多頭線(xiàn):EMA(C,1),COLORYELLOW;
空頭線(xiàn):EMA(C,5),COLOR00FF00;
均衡線(xiàn):EMA(空頭線(xiàn),5),COLORWHITE;
VARF1:=COUNT(CROSS(多頭線(xiàn),均衡線(xiàn)),2)=1;
VARF2:=COUNT(CROSS(空頭線(xiàn),均衡線(xiàn)),2)=1;
ZAI:=FILTER(VARF1 AND VARF2,2);
DRAWTEXT(ZAI,均衡線(xiàn)*0.98,' 主升行情'),COLOR00FF00;
STICKLINE(生命線(xiàn)>=A,HIGH,LOW,0,0),COLORFF00FF;
STICKLINE(生命線(xiàn)>=A,OPEN,CLOSE,4,0),COLORFF00FF;
STICKLINE(CROSS(生命線(xiàn),A),HIGH,LOW,0,0),COLORRED;
STICKLINE(CROSS(生命線(xiàn),A),OPEN,CLOSE,4,0),COLORRED;
DRAWTEXT(CROSS(生命線(xiàn),A),LOW*0.98,'▲'),COLORRED;
DRAWTEXT(CROSS(生命線(xiàn),A),LOW*0.975,'∣'),COLORRED;
DRAWTEXT(CROSS(生命線(xiàn),A),LOW*0.975,'‖'),COLORRED;
DRAWTEXT(CROSS(生命線(xiàn),A),LOW*0.97,'∣'),COLORRED;
DRAWTEXT(CROSS(生命線(xiàn),A),LOW*0.97,'‖'),COLORRED;
DRAWTEXT(CROSS(生命線(xiàn),A),LOW*0.965,'∣'),COLORRED;
DRAWTEXT(CROSS(生命線(xiàn),A),LOW*0.965,'‖'),COLORRED;
STICKLINE(生命線(xiàn)<A,HIGH,LOW,0,0),COLORCCCCCC;
STICKLINE(生命線(xiàn)<A,OPEN,CLOSE,4,0),COLORCCCCCC;
STICKLINE(CROSS(A,生命線(xiàn)),HIGH,LOW,0,0),COLOR00FF00;
STICKLINE(CROSS(A,生命線(xiàn)),OPEN,CLOSE,4,0),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線(xiàn)),HIGH*1.02,'▼'),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線(xiàn)),HIGH*1.025,'∣'),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線(xiàn)),HIGH*1.025,'‖'),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線(xiàn)),HIGH*1.03,'∣'),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線(xiàn)),HIGH*1.03,'‖'),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線(xiàn)),HIGH*1.035,'∣'),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線(xiàn)),HIGH*1.035,'‖'),COLOR00FF00;
VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.998),7);
DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.013),8);
DP:=IF(C=INDEXC,0,1);GJ:=AMOUNT/V/100;
上線(xiàn):=SMA(C,6.5,1);
下線(xiàn):=SMA(C,13.5,1);
上線(xiàn)1:=SMA(C,3,1);
下線(xiàn)1:=SMA(C,8,1);
STICKLINE(上線(xiàn)>下線(xiàn),上線(xiàn),下線(xiàn),2.5,0),COLORRED,LINETHICK2;
STICKLINE(下線(xiàn)>上線(xiàn),上線(xiàn),下線(xiàn),2.5,0),COLORYELLOW,LINETHICK2;
DRAWTEXT( CROSS(上線(xiàn),下線(xiàn)),LOW*0.98,'▲全倉(cāng)買(mǎi)' ),COLOR00FF00;
DRAWTEXT(CROSS(下線(xiàn)1,上線(xiàn)1),H*1.02,'▼清倉(cāng)'),COLORYELLOW;
減倉(cāng):=FILTER(CROSS(80,RSI) OR DY,5);
DRAWTEXT(減倉(cāng) AND 生命線(xiàn)>A,HIGH*1.03,'○'),COLORBLUE;
D:=MA(CLOSE,80)-MA(CLOSE,10)/3;
DRAWTEXT(IF(CLOSE<D AND VOL/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08 AND CLOSE<MA(CLOSE,13)*1.3,1,0),LOW*0.98,'▲抄底'),COLORYELLOW;
VA1:=EMA(C,8);
VA2:=EMA(C,28);
DRAWTEXT(CROSS(VA2,VA1),VA1*1.10,'●全倉(cāng)賣(mài)'),COLORYELLOW;
X1:=(3*C+H+L+O)/6;
X2:=EMA(X1,10);
X3:=REF(X2,1);
XL4:=SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1);
DRAWTEXT(IF(CROSS(3*XL4-2*SMA(XL4,3,1),8),87,0) AND X2>X3,L-0.1,'●反彈'),COLORGREEN;
DRAWTEXT(IF(CROSS(2*(EMA((CLOSE*2+HIGH+LOW)/4,12)-EMA((CLOSE*2+HIGH+LOW)/4,26)-EMA(EMA((CLOSE*2+HIGH+LOW)/
4,12)-EMA((CLOSE*2+HIGH+LOW)/4,26),2))*5.8,0.47),LOW,0) AND X2>X3,L-0.4,'●加倉(cāng)'),COLORFF5ED8;
DRAWTEXT(IF(CROSS(2*(EMA((CLOSE*2+HIGH+LOW)/4,12)-EMA((CLOSE*2+HIGH+LOW)/4,26)-EMA(EMA((CLOSE*2+HIGH+LOW)/
4,12)-EMA((CLOSE*2+HIGH+LOW)/4,26),2))*5.8,0.47),LOW,0) AND X2>X3,L-0.4,'●加倉(cāng)'),COLORFF5ED8;
V1:=EMA(CLOSE,5);
V2:=EMA(EMA(CLOSE,29)*1.01,10);
DRAWICON(CROSS(V1,V2),V2,1);
V3:=EMA(CLOSE,10);
V4:=EMA(EMA(CLOSE,60)*0.99,10);
DRAWICON(CROSS(V3,V4),V4,1);
VAR34:=(INDEXC-REF(INDEXC,1))/REF(INDEXC,1);
VAR35:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1);
VAR36:=IF(VAR34>0.010,0.900,1) AND IF(VAR34>(-0.025),1,1.200);
VAR37:=VAR36*(VAR35-VAR34)*100;
VAR38:=SUM(VAR37,10);
VAR310:=VAR38>20;
VAR326:=IF(CLOSE AND MA(VOL, 5)/240 AND CLOSE>REF(CLOSE,1)*1.0 AND CLOSE,88,0);
VAR327:=IF(CLOSE/REF(CLOSE, 1)>1.050 AND VOL/CAPITAL*100<10 AND CLOSE<17 AND HIGH/CLOSE<1.010 AND VAR326>0,91,0);
DRAWICON(VAR310>0 AND VAR327=0,HIGH*1.01,5);
STICKLINE(VAR327>90,LOW*0.99,LOW*0.95,2,0),COLORYELLOW;
STICKLINE(C<=O,C,O,3,0),COLORFF2020;
DRAWTEXT(VAR327>90,LOW*0.95,'出擊'),COLORYELLOW;