通达信黄金分割主图选股指标公式源码

通达信黄金分割主图选股指标公式源码

源码正文：

GJ:=(C+H+L+O)/4{XG51};
明日阻力:=L+(GJ-L)+(C-L){XG51};
明日支撑:=L+(C-GJ){XG51};
下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100){XG51};
RRRSV:=SMA(下档线,3,1){XG51};
KKK:=Sma(RRRSV,3,1){XG51};
DDDDD:=((3 * RRRSV) - (2 * KKK)){XG51};
JJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100){XG51};
RSV24:=SMA(JJ12,3,1){XG51};
K24:=SMA(RSV24,3,1){XG51};
D24:=((3 * RSV24) - (2 * K24)){XG51};
压力 2:=IF(crOSS(D24,DDDDD),HIGH,REF(HIGH,BArslAst(CROSS(D24,DDDDD)))),COLORFFFFFF{XG51};
底部:=LLV(HIGH,30),COLOR00FF00{XG51};
今日阻力:REF(明日阻力 , 1),NODRAW{XG51};
今日支撑:REF(明日支撑 , 1),NODRAW{XG51};
压力位:IF(ISLASTBAR,压力2,DRAWNULL),NODRAW{XG51};
底部位:IF(ISLASTBAR,底部,DRAWNULL),NODRAW;

高:=REF(HHV(H,80),3){XG51};
低:=REF(LLV(L,80),3){XG51};
H19:=高-(高-低)*0.191{XG51};
H38:=高-(高-低)*0.382{XG51};
H中:=高-(高-低)*0.5{XG51};
H61:=高-(高-低)*0.618{XG51};
H80:=高-(高-低)*0.809{XG51};
顶点:REFDATE(高,DATE),POINTDOT,COLORRED{XG51};
疯牛19.8:REFDATE(H19,DATE),POINTDOT,COLORBLUE{XG51};
突破38.2:REFDATE(H38,DATE),POINTDOT,COLORLIMAGENTA{XG51};
平衡50:REFDATE(H中,DATE),POINTDOT,COLORWHITE{XG51};
回落61.8:REFDATE(H61,DATE),POINTDOT,COLORCYAN{XG51};
安全80.9:REFDATE(H80,DATE),POINTDOT,COLORYELLOW{XG51};
低点:REFDATE(低,DATE),POINTDOT,COLORRED{XG51};
DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORRED{XG51};
DRAWTEXT(ISLASTBAR,疯牛19.8,'疯牛'),COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,突破38.2,'突破'),COLORLIMAGENTA{XG51};
DRAWTEXT(ISLASTBAR,平衡50,'平衡'),COLORWHITE{XG51};
DRAWTEXT(ISLASTBAR,回落61.8,'回落'),COLORLIMAGENTA{XG51};
;

VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2){XG51};
VAR2:=REF(VAR1,1) AND 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:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2){XG51};
VARE:=REF(VARD,1) AND 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(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{XG51};
DRAWICON(VAR19,L*0.98,1);

DRAWICON(CROSS(LLV(AMOUNT/V/100,3),L) AND V>REF(V,3) AND C<O,O*1.1,2);

MA6:ema(C,6),LINETHICK2,COLORFFFF00{XG51};
MA18:EMA(C,18),LINETHICK2,COLOR00FF00{XG51};
DRAWBAND(MA6,RGB(155,50,50),MA18,RGB(0,100,50)){XG51};

中:STICKLINE(MA6<MA18 AND MA6>REF(MA6,1) AND MA18<=REF(MA18,1),MA6,MA18,0.3,0),COLORGREEN{XG51};
长:STICKLINE(MA6>MA18 AND MA6>REF(MA6,1) AND MA18<=REF(MA18,1),MA6,MA18,0.3,0),COLORLIMAGENTA{XG51};
线:STICKLINE(MA6<MA18 AND MA6<REF(MA6,1) AND MA18>=REF(MA18,1),MA6,MA18,0.3,0),COLORYELLOW{XG51};
买进:=CROSS(MA6,MA18) AND MA18>=REF(MA18,1){XG51};
DRAWICON(买进,L*0.95,9);

DRAWTEXT(CROSS(85,rsi),(HIGH * 1.02),'落袋'),COLORGREEN;

STICKLINE(CLOSE> REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORWHITE{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR000055{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR000077{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR000099{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLOR0000BB{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLOR0000DD{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLOR0000FF{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORRED{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR555555{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR777777{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR999999{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORBBBBBB{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORDDDDDD{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORFFFFFF{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORGREEN{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR990000{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLORCC0000{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLORFF4400{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORFF8800{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORFFCC00{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORGREEN{X=G_5_1=C=N={};