★多空博弈 通达信版本 顶:82,COLORFFFF00,LINETHICK1; 顶A:90,COLORFF0000,LINETHICK9; 低:18,COLOR208FFF,LINETHICK1; VAR2:=(C-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100; VAR3:=SMA(VAR2,13,8); 多方: SMA(VAR3,13,8),COLORRED,LINETHICK2; IF(多方<50,多方,DRAWNULL),LINETHICK2,COLORFF0000; LSG:=多方-45; STICKLINE(LSG >=0,(多方- LSG *0.05),(多方- LSG *0.15),0,0) ,COLOR00FFFF; STICKLINE(LSG >=0,(多方- LSG *0.2),(多方- LSG *0.35),0,0) ,COLOR00CCFF; STICKLINE(LSG >=0,(多方- LSG *0.4),(多方- LSG *0.55),0,0) ,COLOR0099FF; STICKLINE(LSG >=0,(多方- LSG *0.6),(多方- LSG *0.75),0,0) ,COLOR0066FF; STICKLINE(LSG >=0,(多方- LSG *0.8),(多方- LSG *0.95),0,0) ,COLOR0000CC; STICKLINE(LSG <0,(45+ LSG *0.05),(45+ LSG *0.15),0,0) ,COLOR006600; STICKLINE(LSG <0,(45+ LSG *0.2),(45+ LSG *0.35),0,0) ,COLOR009900; STICKLINE(LSG <0,(45+ LSG *0.4),(45+ LSG *0.55),0,0) ,COLOR00CC00; STICKLINE(LSG <0,(45+ LSG *0.6),(45+ LSG *0.75),0,0) ,COLOR00FF00; STICKLINE(LSG <0,(45+ LSG *0.8),(45+ LSG *0.95),0,0) ,COLOR66FF00; 中轴:45,COLORFFFFCC; B:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)); CS:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100; YJD: (EMA(CS,3)),COLOR00FFFF,LINETHICK1; 短期线:B+100,COLOREEEEEE,LINETHICK2; DRAWTEXT(ISLASTBAR AND YJD>REF(YJD,1),YJD,'↑'),COLOR00FFFF; DRAWTEXT(ISLASTBAR AND YJD<REF(YJD,1),YJD,'↓'),COLOR00FFFF; DRAWTEXT(ISLASTBAR,顶,' 顶'),COLORFFFF00; DRAWTEXT(ISLASTBAR,低,' 低'),COLOR208FFF; R2:=TROUGHBARS(3,15,1)<10; R3:=PEAKBARS(3,15,1)<10; R4:=IF(R2=1,50,0); R5:=IF(R3=1,50,0); 底部:=IF(R4=50,10,0); 买入:IF(底部=10 AND REF(底部,1)=10 AND REF(底部,2)=0,7,0),COLOR0000FF,LINETHICK3; DRAWICON(底部=10 AND REF(底部,1)=10 AND REF(底部,2)=0,10,11); 买入延迟线:IF(底部=10 AND REF(底部,1)=10,5,0),COLOR00CCFF,LINETHICK1; STICKLINE(底部=10 AND REF(底部,1)=10 AND REF(底部,2)=0,0,3,2,0),COLOR00FFFF; VA:=(C*2+H+L)/4; SK:=EMA(VA,13)-EMA(VA,21); SD:=EMA(SK,2); SF:=SD>REF(SD,1); 缘:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100; 中:=SMA(缘,3,1); 慢:=SMA(中,3,1); 快:=3*中-2*慢; DRAWICON(CROSS(快,中) AND SF,2,15); DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA:=EMA(DIFF,9); DRAWICON(CROSS(DIFF,DEA),10,23); DRAWTEXT(CROSS(DIFF,DEA),12,' MACD金叉'); DRAWTEXT(CROSS(快,中) AND SF,3,' KD金叉'); OK:=SMA((C-LLV(L,8))/(HHV(H,8)-LLV(L,8))*100,2.5,1); BY:=OK>REF(OK,1) AND CROSS(OK,SMA(OK,2.5,1)) AND OK<50; DRAWICON(BY,低,26); ******************************************* 感谢版主提议！！此指标结合MACD决策【已改通达信】 MACD的精华就8个字：买小卖小，缩头缩脚。小指的是，红绿柱的堆而言，缩头缩脚是指红绿柱的长短而言。当股价一波比一波高时，反而红柱的堆，一堆比一堆小，证明产生了顶背离现象，应该及时卖出；当股价一波比一波低时，反而绿柱的堆一堆比一堆小，证明产生了底背离，应该买进。买点在绿堆小时，一根比一根短买进，也就是说缩脚时买进。当红堆小时，红柱一根比一根短时，叫缩头，卖出。这里的“大”和“小”是指MACD中的大绿柱，小绿柱，和大红柱，小红柱。我们只注重红绿柱的变化。 ***************************************************** {飞狐版本已改动} 顶:82,COLORFFFF00,LINETHICK1; 顶A:90,COLORFF0000,LINETHICK9; 低:18,COLOR208FFF,LINETHICK1; Var2:=(C-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100; Var3:=SMA(Var2,13,8); 0; 多方: SMA(Var3,13,8),COLORRED,linethick2; PARTLINE(多方<45,多方),color00ff00,linethick2; LSG:=多方-45; STICKLINE(LSG >=0,(多方- LSG *0.05),(多方- LSG *0.15),0,0) ,COLOR00FFFF; STICKLINE(LSG >=0,(多方- LSG *0.2),(多方- LSG *0.35),0,0) ,COLOR00CCFF; STICKLINE(LSG >=0,(多方- LSG *0.4),(多方- LSG *0.55),0,0) ,COLOR0099FF; STICKLINE(LSG >=0,(多方- LSG *0.6),(多方- LSG *0.75),0,0) ,COLOR0066FF; STICKLINE(LSG >=0,(多方- LSG *0.8),(多方- LSG *0.95),0,0) ,COLOR0000CC; STICKLINE(LSG <0,(45+ LSG *0.05),(45+ LSG *0.15),0,0) ,COLOR006600; STICKLINE(LSG <0,(45+ LSG *0.2),(45+ LSG *0.35),0,0) ,COLOR009900; STICKLINE(LSG <0,(45+ LSG *0.4),(45+ LSG *0.55),0,0) ,COLOR00CC00; STICKLINE(LSG <0,(45+ LSG *0.6),(45+ LSG *0.75),0,0) ,COLOR00FF00; STICKLINE(LSG <0,(45+ LSG *0.8),(45+ LSG *0.95),0,0) ,COLOR66FF00; 中轴:45,Colorffffcc; B:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)); CS:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100; YJD: (EMA(CS,3)),COLOR00FFFF,LINETHICK1; 短期线:B+100,coloreeeeee,LINETHICK2; DRAWTEXT(ISLASTBAR AND YJD>REF(YJD,1),YJD,'↑'),COLOR00FFFF; DRAWTEXT(ISLASTBAR AND YJD<REF(YJD,1),YJD,'↓'),COLOR00FFFF; DRAWTEXT(ISLASTBAR,顶,' 顶'),COLORFFFF00; DRAWTEXT(ISLASTBAR,低,' 低'),COLOR208FFF; DIFF:=EMA(CLOSE,5) - EMA(CLOSE,35); DEA:=EMA(DIFF,5); MACD:=2*(DIFF-DEA),; G:=IF((SYSPARAM(1) = (BARSSINCE((C > 0)) + 1)),1,0); DRAWTEXT(((G > 0) AND CROSS(DIff,DEa) AND MACD>0),20,'MACD金叉 '),colorFFEE00,pxdn20,ALIGN2; DRAWICON(CROSS(DIff,DEa),20,12){,pxdn25},ALIGN0; RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100; K:=SMA(RSV,3,1); D:=SMA(K,3,1); DRAWICON(CROSS(K,D) AND K>20 AND D<50,20,8); DRAWTEXT(((G > 0) AND CROSS(k,d) AND k>20 and d<50),20,' KD金叉'),colorFFEE00,pxUP15,ALIGN1; OK:=SMA((C-LLV(L,8))/(HHV(H,8)-LLV(L,8))*100,2.5,1); BY:=OK>REF(OK,1) AND CROSS(OK,SMA(OK,2.5,1)) AND OK<50; DRAWICON(BY,低,1); R2:=TROUGHBARS(3,15,1)<10; R4:=IF(R2=1,50,0); R6:=IF(R4=50,10,0); 买入:IF(R6=10 AND REF(R6,1)=10 AND REF(R6,2)=0,4,0),COLOR0000ff,LINETHICK3; 买入延迟线:IF(R6=10 AND REF(R6,1)=10,2,0),COLOR00FFff,LINETHICK1; STICKLINE(买入,0,3,6,0)COLOR00ffEE; DRAWICON(买入>0,5,8),pxup0,align0; DRAWTEXT(((G > 0) AND 买入>2),8,'研判进场'),colorffFFEE,pxdn10,ALIGN2; |
