修改的博弈水平面(通达信)

修改的博弈水平面(通达信)

源码正文：

股票买卖操作是一种方法，方法得当，自然能够赚钱。
本人将原来的博弈111的公式进行了下面的修改，分成了水平面和停损线。当股价突破水平面，以水平面的价格购入，当然跌破水平面，可以出局或者减仓，当跌破停损线坚决出局。当收益达到预期收入，可以设定3.4%，或者5%，也可以出局。

公式没有进行优化和美化，当时大家都可以导入使用。

【博弈水平面】
B1:=ma(C,1){XG51};
B2:=SMA(SMA(SMA(B1,2,1),2,1),2,1){XG51};
SMA2:=MA(B2,3){XG51};
停损下限:=IF(LLV(MA(B2,8),3)<B2,LLV(MA(B2,8),3),B2),COLORRED,LINETHICK1,POINTDOT{XG51};
SNAKEA1:=HHV(MA(B2,1),13),COLORBLUE{XG51};
X1:=SNAKEA1{XG51};
X2:=IF(SNAKEA1<=B2,SNAKEA1,IF(B2>SMA2,B2,B2)){XG51};
DRAWBAND(SNAKEA1,RGB(64,64,196),MIN(停损下限,L),RGB(64,64,64)){XG51};
MIN(停损下限,L),COLORRED,LINETHICK1{XG51};
停损:停损下限,COLORCYAN,LINETHICK1;

SNAKEA:=SNAKEA1{XG51};
水平面:SNAKEA,COLORBLUE,LINETHICK1{XG51};
IF (SNAKEA1<=B2,B2,DRAWNULL),COLORBLUE,LINETHICK2;

stICKLINE(C>=O,C,O,3,0),COLOR000045{XG51};
STICKLINE(C>=O,C,O,2.5,0),COLOR000065{XG51};
STICKLINE(C>=O,C,O,2,0),COLOR000085{XG51};
STICKLINE(C>=O,C,O,1.5,0),COLOR0000A5{XG51};
STICKLINE(C>=O,C,O,1,0),COLOR0000C5{XG51};
STICKLINE(C>=O,C,O,0.5,0),COLOR0000E5{XG51};
STICKLINE(C>=O,H,L,0,0),COLOR0000F5{XG51};
STICKLINE(C<O,C,O,3,0),COLOR353500{XG51};
STICKLINE(C<O,C,O,2.5,0),COLOR454500{XG51};
STICKLINE(C<O,C,O,2,0),COLOR555500{XG51};
STICKLINE(C<O,C,O,1.5,0),COLOR656500{XG51};
STICKLINE(C<O,C,O,1,0),COLOR757500{XG51};
STICKLINE(C<O,C,O,0.5,0),COLOR858500{XG51};
STICKLINE(C<O,H,L,0,0),COLOR959500;

VAR1A:=(2*CLOSE+HIGH+LOW)/4{XG51};
VAR2A:=MA(VAR1A,7){XG51};
VAR3A:=VAR2A-MA(VAR1A,7/2)<0{XG51};
VAR4A:=VAR2A-MA(VAR1A,7/2)>0{XG51};
VAR5A:=BArslAST(VAR3A){XG51};
VAR6A:=0-BARSLAST(VAR4A){XG51};
VAR7A:=IF(VAR3A<=0,VAR5A,VAR6A){XG51};

VAR11A:=(CLOSE*2+HIGH+LOW)/4{XG51};
VAR21A:=ema(VAR11A,13)-EMA(VAR11A,34){XG51};
VAR31A:=EMA(VAR21A,5){XG51};
VAR2:=((CLOSE > REF(CLOSE,1)) AND (CLOSE > REF(CLOSE,2))){XG51};
VAR3:=((REF(VAR2,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR4:=((REF(VAR3,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR5:=((REF(VAR4,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR6:=((REF(VAR5,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR7:=((REF(VAR6,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR8:=((REF(VAR7,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR9:=((REF(VAR8,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VARA:=((REF(VAR9,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VARB:=((REF(VARA,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VARC:=((REF(VARB,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VARD:=((REF(VARC,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VARE:=((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,2))){XG51};
VARF:=((REF(VARE,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR10:=((REF(VARF,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR11:=((REF(VAR10,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR12:=((REF(VAR11,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR13:=((REF(VAR12,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR14:=((REF(VAR13,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR15:=((REF(VAR14,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR16:=((REF(VAR15,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR17:=((REF(VAR16,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR18:=((REF(VAR17,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))){XG51};
VAR19:=((REF(VAR18,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))){XG51};
VAR1B:=(REF((((((((((((VARE OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18) OR VAR19),1) AND VAR2){XG51};
STICKLINE(VAR1B,O,O+(C-O)/3,3,0),COLOR005555{XG51};
STICKLINE(VAR1B,O,O+(C-O)/3,2.5,0),COLOR006565{XG51};
STICKLINE(VAR1B,O,O+(C-O)/3,2,0),COLOR007575{XG51};
STICKLINE(VAR1B,O,O+(C-O)/3,1.5,0),COLOR008585{XG51};
STICKLINE(VAR1B,O,O+(C-O)/3,1,0),COLOR009595{XG51};
STICKLINE(VAR1B,O,O+(C-O)/3,0.5,0),COLOR00A5A5{XG51};
STICKLINE(VAR1B,O,O+(C-O)/3,0,0),COLOR00B5B5;

AA:=(REF((((((((((((VAR2 OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC) OR VARD),1) AND VARE);

STICKLINE(AA,O,O+(C-O)/3,3,0),COLOR005500{XG51};
STICKLINE(AA,O,O+(C-O)/3,2.5,0),COLOR006500{XG51};
STICKLINE(AA,O,O+(C-O)/3,2,0),COLOR007500{XG51};
STICKLINE(AA,O,O+(C-O)/3,1.5,0),COLOR008500{XG51};
STICKLINE(AA,O,O+(C-O)/3,1,0),COLOR009500{XG51};
STICKLINE(AA,O,O+(C-O)/3,0.5,0),COLOR00A500{XG51};
STICKLINE(AA,O,O+(C-O)/3,0,0),COLOR00B500;

A13:=EMA(CLOSE,55){XG51};
A14:=MA(CLOSE,75){XG51};
A15:=EMA(A14,3){XG51};
A16:=EMA(A15,3){XG51};
A17:=(HIGH + LOW) / 5{XG51};
A18:=(MA(A17,4)) - (MA(A17,34)){XG51};
A19:=crOSS(A18,0){XG51};
A20:=CROSS(0,A18){XG51};
A21:=BARSLAST(A19){XG51};
A22:=BARSLAST(A20){XG51};
A23:=REF(A19,1){XG51};
A24:=REF(A20,1){XG51};
A25:=BARSLAST(A23){XG51};
A26:=BARSLAST(A24){XG51};
A27:=IF((A25 < A26),(REF((HHV(HIGH,2)),A25)),(REF((LLV(LOW,2)),A26))){XG51};
A28:=(((REF(CLOSE,1)) <= (REF(A27,1))) AND (CLOSE > A27)) AND (A21 < A22){XG51};
A29:=(((REF(CLOSE,1)) >= (REF(A27,1))) AND (CLOSE < A27)) AND (A22 < A21){XG51};
A30:=A28 AND ((COUNT(A28,A21)) = 1){XG51};
A31:=A29 AND ((COUNT(A29,A22)) = 1){XG51};
A32:=A30 AND ((REF(BARSLAST(A31),1)) < (REF(BARSLAST(A30),1))){XG51};
A33:=A31 AND ((REF(BARSLAST(A31),1)) > (REF(BARSLAST(A30),1))){XG51};
DRAWTEXT(A32,SMA2*0.99,'←═≒∝'),COLORBLUE{XG51};
ac:=AMOUNT/(vol){XG51};
YY:=MA(AC,13){XG51};
LLL:=(C-YY)/YY*100{XG51};
MIDC := MA(CLOSE,22){XG51};
UPPERC:= MIDC + 2*STD(C,22){XG51};
LOWERC:= MIDC - 2*STD(C,22){XG51};
BBA:=(C-LOWERC)/(UPPERC-LOWERC){XG51};
BBC:=FORCAST(BBA,3){XG51};
LIFENGcyc:=(REF(LLL,1)<-15 AND REF(BBA,1)<0 AND LLL>REF(LLL,1)){XG51};
IF (LIFENGCYC,L*0.95,DRAWNULL),POINTDOT,LINETHICK4,COLORRED{XG51};
;

----------------------------------
欢迎大家对操作方法进行讨论。

{X!G=5+1!C!N!{}

极品变色MACD(通达信)

源码正文：

difF:ema(CLOSE,12)-Ema(CLOSE,27){XG51};
DEA:EMA(DIFF,9){XG51};
macd:=2*(DIFF-DEA){XG51};
stICKLINE(MacD>=0,MACD,0,2,1),COLORF00FF0{XG51};
STICKLINE(MACD<0,MACD,0,2,1),COLORRED{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00AAFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00BBFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00CCFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00ddfF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00EEFF{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR00FFFF{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0000AA{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0011BB{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0022CC{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0033DD{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0044EE{XG51};
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2,0 ),COLOR0055FF{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORAA00BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORBB11BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORCC22BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORDD33BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLOREE44BB{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFF55BB{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFAA00{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFBB11{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFCC22{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFDD33{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFEE44{XG51};
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2,0 ),COLORFFFF55{XG51};
IF(DIFF<0,DIFF,0),COLORWHITE,LINETHICK1{XG51};
IF(DIFF<0,0,DIFF),COLORBLUE,LINETHICK1{XG51};
IF(DIFF<DEA,DIFF,DEA),COLOR00FF00,LINETHICK1{XG51};
IF(DIFF>DEA,DEA,DEA),COLORRED,LINETHICK1{XG51};
低位金叉:=crOSS(DIFF,DEA) AND DIFF<-0.1{XG51};
STICKLINE(低位金叉,0,-0.18,2,0),COLORBLUE{XG51};
DRAWTEXT(低位金叉,-0.1,' 低位金叉'),COLORBLUE{XG51};
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BArslAST(DEA>=0)){XG51};
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
STICKLINE(二次金叉,0,-0.18,2,0),COLORFF00FF{XG51};
DRAWICON(二次金叉,DEA*1.04,13) {XG51};
DRAWTEXT(二次金叉,-0.1,' 二次金叉'),COLORFF00FF{XG51};
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA){XG51};
STICKLINE(底背离,0,0.13,2,0),COLOR00FF00{XG51};
DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORWHITE,LINETHICK2{XG51};
DRAWTEXT(底背离,0.1,' 底背离'),COLOR00FF00{XG51};
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF){XG51};
DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORCYAN,LINETHICK2{X_G_5_1_C_N_{};