 |
简单实用才能说好，都是坛友的指标，谢分享的坛友。
应大家要求，发原码上来，主付—齐上。
准备启动
A1:=IF(DATE>=11208015,0,1);{这是时间限制}
A2:=(5);
A3:=(((2*CLOSE)+HIGH)+LOW)/4;
A4:=LLV(LOW,20);
A5:=HHV(HIGH,20);
A6:=EMA((((A3-A4)/(A5-A4))*100),10);
A7:=(EMA(((0.667*(REF(A6,1)))+(0.333*A6)),2))*A1;
庄家轨迹:(EMA(A7,A2))*A1,COLORCACA00,LINETHICK2;
IF(庄家轨迹>REF(庄家轨迹,1),庄家轨迹,DRAWNULL),COLOR0000FF,DOTLINE,LINETHICK2;
A8:=(HHV(HIGH,10))-(LLV(LOW,10));
A9:=(HHV(HIGH,5))-CLOSE;
A10:=CLOSE-(LLV(LOW,5));
A11:=((A9/A8)*100)-70;
A12:=((CLOSE-(LLV(LOW,60)))/((HHV(HIGH,60))-(LLV(LOW,60))))*100;
A13:=SMA(((A10/A8)*100),5,1);
A14:=(SMA(A13,5,1))-(SMA(A11,5,1));
A15:=IF((A14>100),(A14-100),0);
A16:=(EMA((((A3-A4)/(A5-A4))*100),5))*A1;
A17:=(EMA(A16,5))*A1;
STICKLINE(((A16-A17)>0 AND A1),A16,A17,4,1),COLOR0000FF;
STICKLINE(((A16-A17)<0 AND A1),A16,A17,4,0),COLORGREEN;
A18:=(EMA(CLOSE,2))*A1;
A19:=(EMA((((SLOPE(CLOSE,20))*20)+CLOSE),60))*A1;
A20:=(HHV((MA(HIGH,10)),10))*A1;
A21:=(LLV((MA(HIGH,10)),1))*A1;
A22:=(EMA(CLOSE,4))*A1;
A23:=((((A18>=A19) AND (A21=A20)) AND (A18>A22)) AND (CLOSE>A21)) AND ((REF(A21,1))<(REF(A20,1)));
A24:=BARSLAST(A23)+1;
A25:=(LLV(LOW,A24))*1.3;
A26:=(LLV(LOW,10))*1.418;
A27:=(((((A18>=A19) AND (A21=A20)) AND ((CLOSE/(REF(CLOSE,1)))>=1.07)) AND (A24<=30)) AND (CLOSE<=A25)) AND (CLOSE<=A26);
A28:=A27 AND (FILTER(A27,A24));
{A29:=(STRFIND(STKNAME,'ST',1)) > 0;}
A30:=((((((A18>=A19) AND (A21=A20)) AND ((CLOSE/(REF(CLOSE,1)))>=1.035)) AND (A24<=30)) AND (CLOSE<=A25)) AND (CLOSE<=A26)) ;
A31:=A30 AND (FILTER(A30,20));
{DRAWICON((A28 OR A31),庄家轨迹,26);
DRAWTEXT((A28 OR A31),庄家轨迹,'←准备启动'),COLORRED;}
A32:=CROSS(((A16-A17)>0 AND A1),(庄家轨迹>REF(庄家轨迹,1)));
DRAWTEXT(A32,庄家轨迹,'←准备启动'),COLORYELLOW;
VAR1:=(CLOSE*2+HIGH+LOW)/4;
VAR2:=EMA(VAR1,10)-EMA(VAR1,20);
VAR3:=EMA(VAR2,5);
散资线:=(-2)*(VAR2-VAR3)*1503.8,COLORGREEN,LINETHICK2;
主资线:=2*(VAR2-VAR3)*1503.8,COLORYELLOW,LINETHICK2;
ZC_1:=IF(L<DYNAINFO(7),0,IF(H>DYNAINFO(7),DYNAINFO(7)-(DYNAINFO(7)-H+0.02)/(H-L+0.02),0));
ZC_2:=DMA(ZC_1,V/CAPITAL)*100;
出货:=IF(ZC_2>0 AND ZC_2>REF(ZC_2,1),ZC_2/20,0);
轴:=0,COLOR00FF00;
PJJ:=DMA((H + L + C * 2) / 4,0.9);
JJ:=REF(EMA(PJJ,3),1);
QJJ:=VOL / ((H - L) * 2 - ABS(C - O));
XVL:=IF(C > O,QJJ * (H - L),IF(C < O,QJJ * (H - O + (C - L)),VOL / 2)) + IF(C > O,0 - QJJ * (H - C + (O - L)),IF(C < O,0 - QJJ * (H - L),0 - VOL / 2));
ZLL:=VOL / CAPITAL;
HSL1:=IF(ZLL > 10,10,ZLL);
HSL:=XVL / 21 / 1.15;
攻击流量:=HSL * 0.66 + REF(HSL,1) * 0.33 + REF(HSL,2) * 0.22;
GJJ:=EMA(攻击流量,7);
LLJX:=EMA(攻击流量,3);
流量:=LLJX,COLORC875B7,COLORRED,NODRAW;
{STICKLINE(流量 > 0,流量,0,2.3,0)COLOR0000FF;
STICKLINE(流量 < 0,流量,0,2.3,0),COLORFF4242;}
{流量基线:=GJJ,COLOR00BBBB,COLORGREEN;
STICKLINE(HSL * 0.4 >= 0,HSL * 0.4 * 1.5,0,0,1)COLORYELLOW;
STICKLINE(HSL * 0.4 < 0,HSL * 0.4 * 1.5,0,0,1)COLORGREEN;}
ZJLL:=REF(LLJX,1);
QZJJ:=(((LLJX - ZJLL) / ZJLL) * 100);
流量幅%:IF(((LLJX > 0) AND (ZJLL < 0)),ABS(QZJJ),IF((((LLJX < 0) AND (ZJLL < 0)) AND (LLJX < ZJLL)),(0 - QZJJ),QZJJ))COLORMAGENTA,NODRAW;
力度:HSL / 1000,COLOR9B37FF,COLORRED,NODRAW;
周流量:SUM(LLJX,5),COLORFFBFDF,COLORMAGENTA,NODRAW;
BB:=REF(周流量,1);
ZQZJJ:=(周流量-BB)/BB*100;
周幅%:IF(周流量>0 AND BB<0,ABS(ZQZJJ),IF(周流量<0 AND BB<0 AND 周流量<BB,-ZQZJJ,ZQZJJ))COLORMAGENTA,NODRAW;
VARQ1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VARQ2:=SMA(ABS(LOW-VARQ1),13,1)/SMA(MAX(LOW-VARQ1,0),10,1);
VARQ3:=EMA(VARQ2,10);
VARQ4:=LLV(LOW,33);
VARQ5:=EMA(IF(LOW<=VARQ4,VARQ3,0),3)*100;
主力进场:=STICKLINE(VARQ5>REF(VARQ5,1) AND 出货<=0,0,VARQ5,7,0 ),COLORYELLOW;
主力吸筹:=VARQ5,COLORYELLOW;
买点出现:=CROSS(主资线,散资线);
{DRAWICON(买点出现,-500,1);}
DIF:=EMA(CLOSE,5)-EMA(CLOSE,10);
DEA:=EMA(DIF,5);
XG:=(流量<0)<REF((流量<0),1)/1.15 AND CROSS(DIF,DEA);
DRAWICON(XG,22,1);
STICKLINE(XG,0,20,2.3,0)COLOR0000FF;
==============================
短线决策主图
JJ:=(CLOSE+HIGH+LOW)/3;
A1:=EMA(JJ,13);
B1:=REF(A1,1);
持股:IF(A1>B1,A1,DRAWNULL),LINETHICK2,COLORYELLOW;
持币:IF(A1<B1,A1,DRAWNULL),LINETHICK2,COLORGRAY;