從MACD的紅色起點做個選股源碼
2020/4/22 18:22:45
公式編寫說明:
請老師從MACD的紅色起點和紫線上穿白線和趨勢為先白線上穿黃線時做一個選股源碼MACD源碼如下:CD:="MACD.MACD"(6,13,4);CD1:="MACD.MACD"(12,26,9);標(biāo)準(zhǔn)MACD:CD1,LINESTICK;綜合MACD:CD+CD1;紅34天統(tǒng)計:SUM(IF(CD >0 ,CD,0),34),COLORRED,NODRAW;綠34天統(tǒng)計:SUM(IF(CD <=0 ,CD,0),34),COLORGREEN,NODRAW;STICKLINE(CD1 > REF(CD1,1),0,CD1,0,0),COLORRED;STICKLINE(CD1 < REF(CD1,1),0,CD1,0,0),COLORGREEN;STICKLINE(CD > 0,CD1,CD+CD1,2.3,0),COLORRED;STICKLINE(CD <=0,CD1,CD+CD1,2.3,0),COLORGREEN;DIF標(biāo)準(zhǔn):"MACD.DIF"(12,26,9),COLORMAGENTA,LINETHICK3,NODRAW;DEA標(biāo)準(zhǔn):"MACD.DEA"(12,26,9),COLORWHITE,LINETHICK2,NODRAW;DIF6_13短:="MACD.DIF"(6,13,4);DEA6_13短:="MACD.DEA"(6,13,4);BL1:=0.618;DIF綜合:(DIF標(biāo)準(zhǔn)+DIF6_13短)*BL1,COLORMAGENTA,LINETHICK3{NODRAW};DEA綜合:(DEA標(biāo)準(zhǔn)+DEA6_13短)*BL1,COLORWHITE,LINETHICK2{NODRAW};BL2:=HHV(ABS(綜合MACD),250);STICKLINE(CD > 0,0,0.02*BL2,4,0),COLORRED;STICKLINE(CD <=0,0,0.02*BL2,4,0),COLORGREEN;{以下屬附加的,可去掉};TYP:= AMOUNT/VOL/100;V1:=SUM(IF(TYP>REF(TYP,1),TYP*VOL,0),21)/SUM(IF(TYP<REF(TYP,1),TYP*VOL,0),21);MFI:=100-(100/(1+V1));資金相對流向:=EMA(MFI,5)/50,COLORLIRED,LINETHICK1;{副圖圖名 F.MACD_JIP , TDX 通過};{針狀線為標(biāo)準(zhǔn)MACD(12,26,9),柱狀紅綠帽子是疊加的半周期MACD(6,13,4)};{本式一定程度克服了標(biāo)準(zhǔn)MACD的滯后性。見紅暈可考慮加倉,見綠暈可考慮減倉};{連續(xù)暴跌后,還須看DIF與DEA金叉后的穩(wěn)定性。橫標(biāo)尺色與暈色同步};{DIF標(biāo)準(zhǔn)、DEA標(biāo)準(zhǔn)的顯、閉,只要將 NODRAW 函數(shù) 去或留或?qū)ⅰ?”去留即可};趨勢為先源碼:N:=5;QJ0:=(HIGH+LOW+CLOSE)/3;QJ1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));QJ2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-QJ0);QJ3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);QJ4:=IF(HIGH=LOW,1,QJ0-MIN(CLOSE,OPEN));QJ5:=VOL/(IF(HIGH=LOW,4,HIGH-LOW));QJ6:="MACD.DIF">"MACD.DEA" AND "MACD.DEA"<0;QJ7:="KDJ.K">"KDJ.D" AND "KDJ.D"<30;QJ8:="MACD.DIF"<"MACD.DEA";QJ9:="KDJ.K"<"KDJ.D" AND "KDJ.K">80;特大:QJ4*QJ5,NODRAW;大單:QJ3*QJ5,NODRAW;中單:QJ1*QJ5,NODRAW;小單:QJ2*QJ5,NODRAW;W1:=SUM(大單,N)+SUM(特大,N);W2:=SUM(小單,N)+SUM(中單,N);量振1:=特大>大單 AND 大單>小單;量振2:=特大<小單 AND 大單<小單;標(biāo)振1:=QJ6 AND QJ7;標(biāo)振2:=QJ8 AND QJ9;A:=W1-W2;A0:=IF(A>0,A,0);B0:=IF(A<0,A,0);STICKLINE(A0,0,A0,3,0),COLOR000044;STICKLINE(A0,0,A0,2.5,0),COLOR000088;STICKLINE(A0,0,A0,1.5,0),COLOR0000AA;STICKLINE(A0,0,A0,1,0),COLOR0000CC;STICKLINE(B0,0,-B0,3,0),COLOR004400;STICKLINE(B0,0,-B0,2.5,0),COLOR008800;STICKLINE(B0,0,-B0,1.5,0),COLOR00AA00;STICKLINE(B0,0,-B0,1,0),COLOR00CC00;周趨勢:MA(A,5),COLORFFFFFF;平滑值:EMA(周趨勢,5),COLOR00FFFF;STICKLINE(標(biāo)振1 AND 量振1 AND 周趨勢>平滑值,0,A0,3,0),COLORYELLOW; DRAWTEXT(標(biāo)振1 AND 量振1 AND 周趨勢>平滑值,A0,'振'),COLORYELLOW;
公式源碼示例:
紅柱在0位置, 這個沒看懂樓主的意思, 是否指第一根跨越0軸的紅柱子? 或者樓主用圖來指示
CD:="MACD.MACD"(6,13,4);
CD1:="MACD.MACD"(12,26,9);
CD>0 and max(cd1,cd+cd1)>0;
紫上穿白
DIF標(biāo)準(zhǔn):="MACD.DIF"(12,26,9);
DEA標(biāo)準(zhǔn):="MACD.DEA"(12,26,9);
DIF6_13短:="MACD.DIF"(6,13,4);
DEA6_13短:="MACD.DEA"(6,13,4);
DIF綜合:=(DIF標(biāo)準(zhǔn)+DIF6_13短)*0.618;
DEA綜合:=(DEA標(biāo)準(zhǔn)+DEA6_13短)*0.618;
cross(DIF綜合,DEA綜合);
白上穿黃
cross(MA(A,5),EMA(MA(A,5),5));
看 股吧公式 www. kanguba.com
其它股票公式列表