大智慧《射线+黄金分割》主图源码

以下是大智慧《射线+黄金分割》主图源码

{射线加黄金分割}

STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),LOW,HIGH,0.1,0),COLORRED;

STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),OPEN,CLOSE,8,0),COLORRED;

STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),LOW,HIGH,0.1,0),COLORCYAN;

STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),OPEN,CLOSE,8,0),COLORCYAN;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00;

STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLOR000066;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000088;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR0000AA;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR0000BB;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR0000CC;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000DD;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000EE;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000FF;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLOR0000FF;

LC:=REF(C,1);

卖黄金:((SMA(MAX((C - LC),0),3,1) / SMA(ABS((C - LC)),3,1)) * 100),LINETHICK0;

STICKLINE(CROSS(80,卖黄金) AND C<O,H,L,2,0),COLOR00FFFF,LAYER0;

STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,12,0 ),COLOR007777,LAYER0;

STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,8,0 ),COLOR009999,LAYER0;

STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,6,0 ),COLOR00BBBB,LAYER0;

STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,4,0 ),COLOR00DDDD,LAYER0;

STICKLINE(CROSS(80,卖黄金) AND C<O,C,O,2 ,0 ),COLOR00FFFF,LAYER0;

X:=BARSLAST(DISPSTATUS=1)+1;

AH:=HHVALL(HHV(H,X));

AL:=LLVALL(LLV(L,X));

NNL:=DISPSTATUS=2;

DRAWLINE(H>=AH,AH,AH,AH,1),COLOR0000FF,LINETHICK1;

DRAWLINE(H>=AH,AH,AL>=L,AL,1),COLOR9999FF,LINETHICK1;

DRAWLINE(H>=AH,AH,AH,AH*0.999,1);

DRAWLINE(H>=AH,AH,AH,AH*0.997,1);

DRAWLINE(H>=AH,AH,AH,AH*0.995,1);

DRAWLINE(H>=AH,AH,AH,AH*0.993,1);

DRAWLINE(H>=AH,AH,AH,AH*0.991,1);

DRAWLINE(H>=AH,AH,AH,AH*0.989,1);

DRAWLINE(H>=AH,AH,AH,AH*0.987,1);

DRAWLINE(H>=AH,AH,AH,AH*0.984,1);

DRAWLINE(H>=AH,AH,AH,AH*0.981,1);

DRAWLINE(H>=AH,AH,AH,AH*0.976,1);

DRAWLINE( AL>=L,AL,AL , AL,1),COLOR00FF00,LINETHICK1;

DRAWLINE(AL>=L,AL,NNL ,AH,1),COLOR00FFFF,LINETHICK1;

DRAWLINE( AL>=L,AL,AL ,AL*1.15,1);

DRAWLINE( AL>=L,AL,AL ,AL*1.09,1);

DRAWLINE( AL>=L,AL,AL ,AL*1.06,1);

DRAWLINE( AL>=L,AL,AL ,AL*1.04,1);

DRAWLINE( AL>=L,AL,AL ,AL*1.03,1);

DRAWLINE( AL>=L,AL,AL ,AL*1.025,1);

DRAWLINE( AL>=L,AL,AL ,AL*1.02,1);

DRAWLINE( AL>=L,AL,AL ,AL*1.015,1);

DRAWLINE( AL>=L,AL,AL ,AL*1.011,1);

DRAWLINE( AL>=L,AL,AL ,AL*1.007,1);

DRAWLINE( AL>=L,AL,AL ,AL*1.003,1);

AHL:=AH-AL;

Q191:=AL+AHL*0.191;

Q382:=AL+AHL*0.382;

Q500:=AL+AHL*0.500;

Q618:=AL+AHL*0.618;

Q809:=AL+AHL*0.809;

DRAWTEXT(NNL,AH,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR0000FF;

DRAWTEXT(NNL,Q809,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORDDAA00;

DRAWTEXT(NNL,Q618,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORDDAA00;

DRAWTEXT(NNL,Q500,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORFF00FF;

DRAWTEXT(NNL,Q382,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORDDAA00;

DRAWTEXT(NNL,Q191,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLORDDAA00;

DRAWTEXT(NNL,AL,'￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣'),ALIGN1,COLOR00FF00;

DRAWTEXT(NNL,AH*0.998,'最高价：'+AH+'元'),ALIGN0,COLOR0047FF,LINETHICK2;

DRAWTEXT(NNL,Q809,'80.9%：' +Q809+'元'),ALIGN0,COLOR00FFFF,LINETHICK2;

DRAWTEXT(NNL,Q618,'61.8%：'+Q618+'元'),ALIGN0,COLOR0047FF,LINETHICK2;

DRAWTEXT(NNL,Q500,'50%：'+Q500+'元'),ALIGN0,COLOR00FFFF,LINETHICK2;

DRAWTEXT(NNL,Q382,'38.2%：'+Q382+'元'),ALIGN0,COLOR0047FF,LINETHICK2;

DRAWTEXT(NNL,Q191,'19.1%：'+Q191+'元'),ALIGN0,COLOR00FFFF,LINETHICK2;

DRAWTEXT(NNL,AL*1.01,'最低价：'+AL+'元'),ALIGN0,VALIGN2,COLOR0047FF,LINETHICK2;

BBI:=(2*C+H+L+O/2)/4.5;

心:EMA(((SLOPE(BBI,18)*27)+BBI),45),COLOR00FFFF,DOTLINE;

PARTLINE(心,心>REF(心,1),RGB(255,0,0)),LINETHICK4,LAYER0;

诚:(8*BBI+7*REF(BBI,1)+6*REF(BBI,2)+5*REF(BBI,3)+4*REF(BBI,4)+3*REF(BBI,5)+2*REF(BBI,6)+1*REF(BBI,7))/36,COLORFF00FF,LINETHICK2;

PARTLINE(诚,诚<REF(诚,1),RGB(0,255,0)),LINETHICK3,LAYER0;

DRAWGBK(心>REF(心,1),STRIP(RGB(0,0,255),RGB(120,0,80),0)),LAYER0;