咱们独出心裁看看把K线四要素【C.O.H.L】用在MDCD上编辑它的【K线+BOLL和BTX】是不是会产生奇特的效果. ============================================================================== {MACD+K线+BOLL} CC:=FORCAST(C,3); OO:=FORCAST(O,3); HH:=FORCAST(H,3); LL:=FORCAST(L,3); SHORT:=12; LONG:=26; M:=9; {1.MACD} DIFF:=EMA(CC,SHORT) - EMA(CC,LONG); DEA:=EMA(DIFF,M); MACD:WMA((DIFF-DEA),3)*4,COLOR00FF00,LINETHICK2; IF(MACD>REF(MACD,1),MACD,DRAWNULL),COLOR0000FF,LINETHICK2; {2.MACD的线} {差可能是正,是负-----相当与DIFF} DC:=WMA(CC,SHORT/2)-WMA(CC,LONG/2); {收盘价的DIFF} DK:=WMA(OO,SHORT/2)-WMA(OO,LONG/2); {开盘价的DIFF} DH:=(WMA(HH,SHORT/2)-WMA(HH,LONG/2))*1.25; {最高价的DIFF} DL:=(WMA(LL,SHORT/2)-WMA(LL,LONG/2))*1.25; {最低价的DIFF} {另类:收阳K线 -------收盘的DIFF>开盘的DIFF--------} STICKLINE(DC>=DK,DH,DC,0,0),COLOR0099FF; STICKLINE(DC>=DK,DL,DK,0,0),COLOR0099FF; STICKLINE(DC>=DK,DC,DK,4,0),COLOR0F33AA; STICKLINE(DC>=DK,DC,DK,3,0),COLOR0F55AA; STICKLINE(DC>=DK,DC,DK,2,0),COLOR0F77CC; STICKLINE(DC>=DK,DC,DK,1,0),COLOR0F99DD; {另类:收阴K线 --------收盘的DIFF<开盘的DIFF-------} STICKLINE(DC<DK,DH,DK,0,0),COLOR00FF99; STICKLINE(DC<DK,DL,DC,0,0),COLOR00FF99; STICKLINE(DC<DK,DC,DK,4,0),COLOR003300; STICKLINE(DC<DK,DC,DK,3,0),COLOR006600; STICKLINE(DC<DK,DC,DK,2,0),COLOR009900; STICKLINE(DC<DK,DC,DK,1,0),COLOR00BB00; {3.MACD的BOLL} MID:MA(DC,LONG/2),COLOR00FF00,LINETHICK1; UPPER:MID+2*STD(DC,LONG/2),COLOR0068FF; LOWER:MID-2*STD(DC,LONG/2),COLORFF9900; IF(MID>REF(MID,1),MID,DRAWNULL),COLOR0000FF,LINETHICK1; {卖} TYP:=FORCAST(((2*C+H+L)/4*0.618+C*0.382),3),LINETHICK0; AAX:=(TYP-MA(TYP,9))/MA(TYP,9)*100; VARM:=MIN(EXIST(TYP,55),9); AAX1:=EMA(AAX,VARM) *VARM; AAX2:=MA(AAX1,3); AAX3:=MA(AAX1,5); 卖:AAX3>10 AND AAX1<REF(AAX1,1) AND CROSS(AAX2,AAX1),COLOR00FFFF,LINETHICK0; DRAWTEXT(卖 ,MACD*0.95,'◆卖'),COLOR00FFFF,LINETHICK1; ============================================================================= {MACD+BTX+BOLL} CC:=FORCAST(C,3); OO:=FORCAST(O,3); HH:=FORCAST(H,3); LL:=FORCAST(L,3); SHORT:=12; LONG:=26; M:=9; {1.MACD} DIFF:=EMA(CC,SHORT) - EMA(CC,LONG); DEA:=EMA(DIFF,M); MACD:WMA((DIFF-DEA),3)*4,COLOR00FF00,LINETHICK2; IF(MACD>REF(MACD,1),MACD,DRAWNULL),COLOR0000FF,LINETHICK2; {2.MACD的BTX} {差可能是正,是负-----相当与DIFF} DC:=WMA(CC,SHORT/2)-WMA(CC,LONG/2); {收盘价的DIFF} DK:=WMA(OO,SHORT/2)-WMA(OO,LONG/2); {开盘价的DIFF} DH:=(WMA(HH,SHORT/2)-WMA(HH,LONG/2))*1.8; {最高价的DIFF} DL:=(WMA(LL,SHORT/2)-WMA(LL,LONG/2))*1.8; {最低价的DIFF} VAR1:=DC>REF(DC,1) AND DC>REF(DC,2); VAR2:=REF(VAR1,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2); VAR3:=REF(VAR2,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2); VAR4:=REF(VAR3,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2); VAR5:=REF(VAR4,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2); VAR6:=REF(VAR5,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2); VAR7:=REF(VAR6,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2); VAR8:=REF(VAR7,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2); VAR9:=REF(VAR8,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2); VARA:=REF(VAR9,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2); VARB:=REF(VARA,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2); VARC:=REF(VARB,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2); STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,DC,REF(DC,1),3,0),COLOR0F33AA; STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,DC,REF(DC,1),2,0),COLOR0F66CC; STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,DC,REF(DC,1),1,0),COLOR0F99DD; VARD:=DC<REF(DC,1) AND DC<REF(DC,2); VARE:=REF(VARD,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2); VARF:=REF(VARE,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2); VAR10:=REF(VARF,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2); VAR11:=REF(VAR10,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2); VAR12:=REF(VAR11,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2); VAR13:=REF(VAR12,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2); VAR14:=REF(VAR13,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2); VAR15:=REF(VAR14,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2); VAR16:=REF(VAR15,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2); VAR17:=REF(VAR16,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2); VAR18:=REF(VAR17,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2); STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,DC,REF(DC,1),3,0),COLORFF3322; STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,DC,REF(DC,1),2,0),COLORFF6622; STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,DC,REF(DC,1),1,0),COLORFF9922; VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1; STICKLINE(VAR19,REF(DC,1),REF(DH,2),0.1,0),COLOR0000FF; STICKLINE(VAR19,REF(DC,1),REF(DC,2),4,0),COLOR0000FF; VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD; STICKLINE(VAR1A,REF(DC,1),REF(DL,2),0.1,0),COLOR00FF00; STICKLINE(VAR1A,REF(DC,1),REF(DC,2),4,0),COLOR00FF00; AA:=DC>REF(DC,1) AND REF(DC,1)>REF(DC,2) AND REF(DC,1)<REF(DC,3) AND IF(REF(DC,3)<REF(DC,4),1,IF(REF(DC,4)<REF(DC,5),REF(DC,1)<REF(DC,4) OR (REF(DC,2)<REF(DC,4) AND REF(DC,3)>=REF(DC,5)),IF(REF(DC,5)<REF(DC,6),1,REF(DC,6)<REF(DC,7)))); BB:=DC<REF(DC,1) AND REF(DC,1)<REF(DC,2) AND REF(DC,1)>REF(DC,3) AND IF(REF(DC,3)>REF(DC,4),1,IF(REF(DC,4)>REF(DC,5),REF(DC,1)>REF(DC,4) OR (REF(DC,2)>REF(DC,4) AND REF(DC,3)<=REF(DC,5)),IF(REF(DC,5)>REF(DC,6),1,REF(DC,6)>REF(DC,7)))); DRAWTEXT(AA AND DC>REF(DK,2),DL*0.92,'三平头翻红'),COLOR0044FF; DRAWTEXT(BB AND DC<REF(DC,2),DH*1.08,'三平头翻绿'),COLOR00FF00; {3.MACD的BOLL} MID:MA(DC,LONG/2); UPPER:MID+2*STD(DC,LONG/2),COLOR0068FF; LOWER:MID-2*STD(DC,LONG/2),COLORFF9900; IF(MID>REF(MID,1),MID,DRAWNULL),COLOR0000FF,LINETHICK1; ========================================================================== |
![](/soft/UploadPic/2014-1/2014119012133300.jpg)