生命線:EMA(C,24),COLORWHITE,LINETHICK2;
A:=REF(生命線,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;
多頭線:EMA(C,1),COLORYELLOW;
空頭線:EMA(C,5),COLOR00FF00;
均衡線:EMA(空頭線,5),COLORWHITE;
VARF1:=COUNT(CROSS(多頭線,均衡線),2)=1;
VARF2:=COUNT(CROSS(空頭線,均衡線),2)=1;
ZAI:=FILTER(VARF1 AND VARF2,2);
DRAWTEXT(ZAI,均衡線*0.98,' 主升行情'),COLOR00FF00;
STICKLINE(生命線>=A,HIGH,LOW,0,0),COLORFF00FF;
STICKLINE(生命線>=A,OPEN,CLOSE,4,0),COLORFF00FF;
STICKLINE(CROSS(生命線,A),HIGH,LOW,0,0),COLORRED;
STICKLINE(CROSS(生命線,A),OPEN,CLOSE,4,0),COLORRED;
DRAWTEXT(CROSS(生命線,A),LOW*0.98,'▲'),COLORRED;
DRAWTEXT(CROSS(生命線,A),LOW*0.975,'∣'),COLORRED;
DRAWTEXT(CROSS(生命線,A),LOW*0.975,'‖'),COLORRED;
DRAWTEXT(CROSS(生命線,A),LOW*0.97,'∣'),COLORRED;
DRAWTEXT(CROSS(生命線,A),LOW*0.97,'‖'),COLORRED;
DRAWTEXT(CROSS(生命線,A),LOW*0.965,'∣'),COLORRED;
DRAWTEXT(CROSS(生命線,A),LOW*0.965,'‖'),COLORRED;
STICKLINE(生命線<A,HIGH,LOW,0,0),COLORCCCCCC;
STICKLINE(生命線<A,OPEN,CLOSE,4,0),COLORCCCCCC;
STICKLINE(CROSS(A,生命線),HIGH,LOW,0,0),COLOR00FF00;
STICKLINE(CROSS(A,生命線),OPEN,CLOSE,4,0),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線),HIGH*1.02,'▼'),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線),HIGH*1.025,'∣'),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線),HIGH*1.025,'‖'),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線),HIGH*1.03,'∣'),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線),HIGH*1.03,'‖'),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線),HIGH*1.035,'∣'),COLOR00FF00;
DRAWTEXT(CROSS(A,生命線),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;
上線:=SMA(C,6.5,1);
下線:=SMA(C,13.5,1);
上線1:=SMA(C,3,1);
下線1:=SMA(C,8,1);
STICKLINE(上線>下線,上線,下線,2.5,0),COLORRED,LINETHICK2;
STICKLINE(下線>上線,上線,下線,2.5,0),COLORYELLOW,LINETHICK2;
DRAWTEXT( CROSS(上線,下線),LOW*0.98,'▲全倉買' ),COLOR00FF00;
DRAWTEXT(CROSS(下線1,上線1),H*1.02,'▼清倉'),COLORYELLOW;
減倉:=FILTER(CROSS(80,RSI) OR DY,5);
DRAWTEXT(減倉 AND 生命線>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,'●全倉賣'),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,'●加倉'),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,'●加倉'),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;