公式一源码(公式名自己可以起):
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2,COLORSTICK;
W1:STICKLINE(MACD>0,MACD,0,2,1),COLORRED;
W2:STICKLINE(MACD<0,MACD,0,2,0),COLORCYAN;
VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1);
VA2:=CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5);
前高:DRAWLINE(VA2,MACD,REF(VA2,1),REF(MACD,1),1),COLORWHITE;
VA3:=LLVBARS(MACD,BARSLAST(MACD>0)+1);
VA4:=CROSS(BACKSET(CROSS(MACD,0) OR (ISLASTBAR AND MACD<0),REF(VA3,1)+2),0.5);
前低:DRAWLINE(VA4,MACD,REF(VA4,1),REF(MACD,1),1),COLORWHITE;
W3:STICKLINE(MACD>0 AND MACD>前高 AND 前高>0,MACD,前高,2,0),COLORYELLOW;
W4:STICKLINE(MACD<0 AND MACD<前低 AND 前低<0,MACD,前低,2,0),COLORGREEN;
AK: EMA(前高,5),COLORRED;
强势拉升: EMA(前低,10),COLORYELLOW;
AD1: EMA(AK,5),COLORGREEN;
W5:DRAWTEXT(REFX(VA2,1),AK*0.98,'临界高点'),COLORWHITE;
W6:DRAWTEXT(REFX(VA4,1),MACD,'临界低点'),COLORYELLOW;
OBV高:=REF(OBV,BARSLAST(FILTER(BACKSET(FILTER(REF(OBV,5)=HHV(OBV,2*5+1),5),5+1),5)));
公式源码二:
MOBV:=OBV-MA(OBV,30);
STICKLINE(MOBV>0,0,MOBV,1,0),COLORRED;
STICKLINE(MOBV<0,0,MOBV,1,0),COLORCYAN;
OBV高:=REF(OBV,BARSLAST(FILTER(BACKSET(FILTER(REF(OBV,5)=HHV(OBV,2*5+1),5),5+1),5)));
C高:REF(C,BARSLAST(FILTER(BACKSET(FILTER(REF(C,5)=HHV(C,2*5+1),5),5+1),5))),NODRAW;
量入为主:CROSS(OBV,OBV高) AND H
AK: EMA(MOBV,3)*1.22,COLORRED;
AD1: EMA(AK,5),COLORGREEN;
公式源码三:
A1:=CAPITAL;
A2:=(((H + L) + O) + C) / 4;
A3:=(((INDEXH + INDEXL) + INDEXO) + INDEXC) / 4;
A4:=(A2 - (REF(A2,1))) / (REF(A2,1));
A5:=(A3 - (REF(A3,1))) / (REF(A3,1));
A6:=(((SUM(A4,10)) + (SUM(A5,10))) / 10) * 1000;
A7:=IF(((A6 > 0) AND (A6 < 75)),A6,(IF((A6 > 75),75,0)));
A8:=IF(((A6 < 0) AND (A6 > -75)),REVERSE(A6),(IF((A6 < -75),75,0)));
STICKLINE(A8,150,(150 - A8),2,0),COLORCYAN;
STICKLINE(A7,150,(150 - A7),2,0),COLORMAGENTA;
A9:=(VOL * (((A2 * 2) - HIGH) - LOW)) / (HIGH - LOW);
A10:=IF(((HIGH = LOW) AND (A2 < (REF(A2,1)))),(-1 * VOL),VOL);
A11:=IF((HIGH = LOW),A10,A9);
A12:=SUM(A11,11);
A13:=(A12 / (A1 * 11)) * 10000;
A14:=IF(((A13 < 150) AND (A13 > -150)),A13,150);
A15:=IF((A14 > 0),A14,0);
A16:=IF((A14 < 0),REVERSE(A14),0);
STICKLINE((A14 > 0),0,A15,2,0),COLORYELLOW;
STICKLINE((A14 < 0),0,A16,2,0),COLORGREEN;
买方能量:(A15),COLORYELLOW,LINETHICK0;
A17:=(SUM((A2 * VOL),16)) / (SUM(VOL,16));
A18:=(SUM((A2 * VOL),11)) / (SUM(VOL,11));
A19:=(SUM((A2 * VOL),6)) / (SUM(VOL,6));
A20:=((SUM((A2 * VOL),7)) - (A2 * VOL)) / ((SUM(VOL,7)) - VOL);
A21:=((A18 - A17) / A2) * 1000;
A22:=IF((A21 > 50),50,(IF((A21 < -50),-50,A21)));
A23:=((A19 - A18) / A2) * 1000;
A24:=IF((A23 > 50),50,(IF((A23 < -50),-50,A23)));
A25:=((((A19 - A20) / A20) * 5) / 4) * 1000;
A26:=IF((A25 > 50),50,(IF((A25 < -50),-50,A25)));
A27:=(A22 + A24) + A26;
红柱线:IF((A27 > 0),A27,0),COLORRED,LINETHICK0;
兰柱线:IF((A27 < 0),REVERSE(A27),0),COLORFF0000,LINETHICK0;
A28:=IF((兰柱线 < 150),兰柱线,(IF((兰柱线 = 150),65,0)));
A29:=IF((兰柱线 = 150),60,0);
A30:=IF((红柱线 < 150),红柱线,(IF((红柱线 = 150),65,0)));
A31:=IF((红柱线 = 150),60,0);
A32:=(((红柱线 > (REF(红柱线,1))) AND (红柱线 > 49)) AND (CLOSE
< (REF(CLOSE,1)))) AND ((OPEN < (REF(CLOSE,1))) OR ((OPEN = (REF(CLOSE,1)))
AND ((HIGH / (REF(CLOSE,1))) < 1.02)));
超跌短线买点:(兰柱线 = 150) AND ((CLOSE < OPEN) OR (CLOSE > OPEN)),COLORRED;
DRAWICON(超跌短线买点,(兰柱线 - 10),4),COLORRED;
A33:=SUMBARS(VOL,(A1 * 0.8));
A34:=IF((A33 < 9),9,A33);
A35:=HHV(A2,A34);
A36:=LLV(A2,A34);
A37:=IF((A35 = A36),0,((100 * (A2 - A36)) / (A35 - A36)));
中趋势线:(1.5 * (SUM(A37,6))) / 6,LINETHICK3,COLORRED;
长趋势线:(SUM(中趋势线,6)) / 6,LINETHICK3,COLORGREEN;
A38:=((HIGH - A2) > (A2 - LOW)) OR ((HIGH = LOW) AND (LOW < (REF(CLOSE,1))));
A39:=FILTER(A38,5);
DRAWICON(((中趋势线 < 1) AND (长趋势线 < 1)),20,5);
马上休息:(130),LINETHICK1,COLORGREEN;
强弱分界:(70),LINETHICK2,COLORRED;
买入机会:(25),LINETHICK1,COLORYELLOW;
A40:=EMA((((CLOSE - (LLV(LOW,25))) / ((HHV(HIGH,25)) - (LLV(LOW,25)))) * 4),4);
DRAWTEXT((FILTER((A40 < 0.25),5)),30,'考虑买入'),COLORRED;
DRAWTEXT((FILTER((A40 > 3.6),10)),155,'考虑出货'),COLORGREEN;
A42:=(EMA((((CLOSE - (LLV(LOW,33))) / ((HHV(HIGH,21)) - (LLV(LOW,33)))) * 100),20)) * 0.998;
A43:=EMA(((0.667 * (REF(A42,1))) + (0.333 * A42)),1);
STICKLINE((A43 < 20),20,(20 + 20),4,0),COLORMAGENTA;
DRAWTEXT((超跌短线买点 = 1),60,'超跌短线买点');
DRAWTEXT((A32 = 1),60,'超强短线买点'),COLORWHITE;
STICKLINE(A30,0,A30,2,0),COLORRED;
STICKLINE(A31,105,150,2,0),COLORRED;
STICKLINE(A31,65,105,2,0),COLORFF0000;
STICKLINE(A28,0,A28,2,0),COLORFF0000;
STICKLINE(A29,105,150,2,0),COLORFF0000;
STICKLINE(A29,65,105,2,0),COLORRED;