大智慧黄金分割位及标示公式主图源码

常用黄金分割位及标示

{立体K线}

{红K}

STICKLINE(C>O,C,O,8,0),COLOR000038;

STICKLINE(C>O,C,O,7,0),COLOR000048;

STICKLINE(C>O,C,O,6,0),COLOR000058;

STICKLINE(C>O,C,O,5,0),COLOR000068;

STICKLINE(C>O,C,O,4,0),COLOR000078;

STICKLINE(C>O,C,O,3,0),COLOR000088;

STICKLINE(C>O,C,O,2,0),COLOR000098;

STICKLINE(C>O,C,O,1,0),COLOR0000A8;

STICKLINE(C>O,H,L,0,0),COLOR0008A8;

{绿K}

STICKLINE(C

STICKLINE(C

STICKLINE(C

STICKLINE(C

STICKLINE(C

STICKLINE(C

STICKLINE(C

STICKLINE(C

STICKLINE(C

{涨停跌停标示}

C3:=REF(C,1);

涨停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0) or ((STRCMP(STRLEFT(STKNAME,2),'ST')=0 or STRCMP( STRLEFT(STKNAME,3),'*ST')=0) and c>=INTPART(REF(c ,1 )*1.05*100+0.5)/100);

STICKLINE(涨停,OPEN,CLOSE,2.0,0),color00D8D8;

跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0) or ((STRCMP(STRLEFT(STKNAME,2),'ST')=0 or STRCMP( STRLEFT(STKNAME,3),'*ST')=0) and (C3-C)*100/C3>=INTPART(REF(c ,1 )*1.05*100+0.5)/100);

STICKLINE(跌停,OPEN,CLOSE,2.0,0),COLOR00EE00;

{涨停跌停标示}

C3:=REF(C,1);

涨停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0) or ((STRCMP(STRLEFT(STKNAME,2),'ST')=0 or STRCMP( STRLEFT(STKNAME,3),'*ST')=0) and c>=INTPART(REF(c ,1 )*1.05*100+0.5)/100);

STICKLINE(涨停,OPEN,CLOSE,2.0,0),color00D8D8;

:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0) or ((STRCMP(STRLEFT(STKNAME,2),'ST')=0 or STRCMP( STRLEFT(STKNAME,3),'*ST')=0) and (C3-C)*100/C3>=INTPART(REF(c ,1 )*1.05*100+0.5)/100);

STICKLINE(跌停,OPEN,CLOSE,2.0,0),COLOR00EE00;

{星}

STICKLINE(C=O,C,O,8,0),COLOR888888;

STICKLINE(C=O,H,L,0,0),COLOR888888;

{黄金分割线}

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

nnl:=DISPSTATUS=2;

Al:=BACKSET(nnl,hhvBARS(h,lhnh)+1);

Bl:=Al>REF(Al,1);

Al2:=BACKSET(nnl,LLVBARS(L,lhnh)+1);

Bl2:=Al2>REF(Al2,1);

前高:REF(H,BARSLAST(bl)),PRECIS2,COLOR00A800,LINETHICK1;

DRAWTEXT(nnl,前高*0.995,'前高:'+NUMTOSTRN(前高,2)),ALIGN2,COLOR00A800,PRECIS2;

前低:REF(L,BARSLAST(Bl2)),PRECIS2,COLOR580058,LINETHICK1;

DRAWTEXT(nnl,前低*1.010,'前低： '+NUMTOSTRN(前低,2)),ALIGN2,COLOR380088,PRECIS2;

Fl1:((前高-前低)*0.191)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2;

DRAWTEXT(nnl,Fl1,'191(809)： '+NUMTOSTRN(Fl1,2)),ALIGN2,Color282828;

Fl2:((前高-前低)*0.236)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2;

DRAWTEXT(nnl,Fl2,'236(764)： '+NUMTOSTRN(Fl2,2)),ALIGN2,Color383838;

Fl3:((前高-前低)*0.382)+前低,DOTLINE,Color003838,LINETHICK1,PRECIS2;

DRAWTEXT(nnl,Fl3,'382(618)： '+NUMTOSTRN(Fl3,2)),ALIGN2,COLOR003838;

Fl4:((前高-前低)*0.5)+前低,DOTLINE,COLOR383800,LINETHICK1,PRECIS2;

DRAWTEXT(nnl,Fl4,'0.50： '+NUMTOSTRN(Fl4,2)),ALIGN2,Color000058;

Fl5:((前高-前低)*0.618)+前低,DOTLINE,Color003838,LINETHICK1,PRECIS2;

DRAWTEXT(nnl,Fl5,'618(382)： '+NUMTOSTRN(Fl5,2)),ALIGN2,COLOR003838;

Fl6:((前高-前低)*0.764)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2;

DRAWTEXT(nnl,Fl6,'764(236)： '+NUMTOSTRN(Fl6,2)),ALIGN2,COLOR383838;

Fl7:((前高-前低)*0.809)+前低,DOTLINE,Color282828,LINETHICK1,PRECIS2;

DRAWTEXT(nnl,Fl7,'809(191)： '+NUMTOSTRN(Fl7,2)),ALIGN2,COLOR282828;

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

HH:=HHV(H,A);

LL:=LLV(L,A);

上涨:=BARSSINCE(BACKSET(DISPSTATUS=2,BARSLAST(L=LL)+1));

↑空间％:=(C/REF(L,上涨)-1)*100;

最高％:=(HHVALL(HH)/REF(L,上涨)-1)*100;

下跌:=BARSSINCE(BACKSET(DISPSTATUS=2,BARSLAST(H=HH)+1));

↓空