指標源碼:
{JH99壓力主圖}
{波峰}
TY:=H;
A1:=REF(TY,10)=HHV(TY,2*10+1);
B1:=FILTER(A1,10);
C1:=BACKSET(B1,10+1);
HD:=FILTER(C1,10);
A2:=REF(TY,10)=LLV(TY,2*10+1);
B2:=FILTER(A2,10);
C002:=BACKSET(B2,10+1);
LD:=FILTER(C002,10);
波峰:REF(H,BARSLAST(HD)),COLOR00808F,POINTDOT,LINETHICK4;
STICKLINE(H,波峰,波峰,8,0),COLOR00808F,LINETHICK4;
{彩色K線}
VAR3:=MA(REF(HHV((C+L+O+H)/4,30),1),3);
VAR4:=MA((C+L+O+H)/4,13);
VAR5:=EMA((C+L+O+H)/4,21);
{空心紅}
STICKLINE(C<VAR5 AND C>O,H,L,0,0),COLORRED;
STICKLINE(C<VAR5 AND C>O,C,O,3,1),COLORRED;
{深綠}
STICKLINE(C<VAR5 AND C<O,H,L,0,0),COLOR007700;
STICKLINE(C<VAR5 AND C<O,C,O,3,0),COLOR005500;
STICKLINE(C<VAR5 AND C<O,C,O,2,0),COLOR006600;
STICKLINE(C<VAR5 AND C<O,C,O,1,0),COLOR007700;
{藍}
STICKLINE(C>VAR5 AND C<O,H,L,0,0),COLORFFDD44;
STICKLINE(C>VAR5 AND C<O,C,O,3,0 ),COLORFF7700;
STICKLINE(C>VAR5 AND C<O,C,O,2,0 ),COLORFFAA22;
STICKLINE(C>VAR5 AND C<O,C,O,1 ,0 ),COLORFFDD44;
{黃}
STICKLINE(C>VAR5 AND C>O,H,L,0,0 ),COLOR00EEFF;
STICKLINE(C>VAR5 AND C>O,C,O,3,0 ),COLOR00AAFF;
STICKLINE(C>VAR5 AND C>O,C,O,2,0 ),COLOR00CCFF;
STICKLINE(C>VAR5 AND C>O,C,O,1,0 ),COLOR00EEFF;
{粉紅}
STICKLINE(C>VAR4 AND C>O,H,L,0,0),COLORFF66AA;
STICKLINE(C>VAR4 AND C>O,C,O,3,0 ),COLORFF11FF;
STICKLINE(C>VAR4 AND C>O,C,O,2,0 ),COLORFF44FF;
STICKLINE(C>VAR4 AND C>O,C,O,1,0 ),COLORFF66FF;
{亮灰}
STICKLINE(C>VAR4 AND C<O,H,L,0,0),COLOR999999;
STICKLINE(C>VAR4 AND C<O,C,O,3,0),COLOR555555;
STICKLINE(C>VAR4 AND C<O,C,O,2,0),COLOR777777;
STICKLINE(C>VAR4 AND C<O,C,O,1,0),COLOR999999;
{深紅}
STICKLINE(C>VAR3 AND C>O,H,L,0,0),COLOR0000DD;
STICKLINE(C>VAR3 AND C>O,C,O,3,0),COLOR000099;
STICKLINE(C>VAR3 AND C>O,C,O,2,0),COLOR0000BB;
STICKLINE(C>VAR3 AND C>O,C,O,1,0),COLOR0000DD;
{漲跌停K線}
STICKLINE((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),OPEN,CLOSE,1,0),COLORYELLOW;
STICKLINE((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)),OPEN,CLOSE,1,0),COLORWHITE;
{突破}
STICKLINE(REF(COUNT(C<VAR3,5)=5,1) AND C>VAR3 AND C>O,C,O,1,0),COLOR00CCFF;
STICKLINE(REF(COUNT(C<VAR3,5)=5,1) AND C>VAR3 AND C>O,C,O,1,0),COLOR00CCFF;
MA05:=MA(C,5);
MA5角度: ATAN((MA05/REF(MA05,1)-1)*100)*180/3.1416,NODRAW;
T01:=CONST(LLVBARS(LOW,10));
T1HIGH:=CONST(REF(HIGH,T01));
MM:=CONST(CURRBARSCOUNT);
T02:=CONST(BARSLAST(CURRBARSCOUNT>MM+T01 AND H>T1HIGH));
T2HIGH:=CONST(REF(HIGH,T02));
T03:=CONST(BARSLAST(CURRBARSCOUNT>MM+T02 AND HIGH>T2HIGH));
T3HIGH:=CONST(REF(HIGH,T03));
攻擊線:DRAWLINE(CURRBARSCOUNT=T03+1, T3HIGH, ISLASTBAR, T3HIGH,1),LINETHICK3,COLOR8080FF;
DRAWTEXT(ISLASTBAR, T3HIGH, '必殺攻擊線')LINETHICK2,COLORCYAN;
{趨勢線}
A6A:=REF(HIGH,6)=HHV(HIGH,2*6+1);
B6A:=FILTER(A6A,6);
C6A:=BACKSET(B6A,6+1);
D6A:=FILTER(C6A,6);
A7A:=REF(LOW,6)=LLV(LOW,2*6+1);
B7A:=FILTER(A7A,6);
C7A:=BACKSET(B7A,6+1);
D7A:=FILTER(C7A,6);
E6A:=(REF(LLV(LOW,2*6),1)+REF(HHV(HIGH,2*6),1))/2;
E7A:=(HIGH+LOW)/2;
H6A:=(D6A AND NOT(D7A AND E6A>=E7A)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
H7A:=D6A AND NOT(D7A AND E6A>=E7A);
L6A:=D7A AND NOT(D6A AND E6A=E7A);
X6A:=REF(BARSLAST(H6A),1)+1;
F6A:=BACKSET(H6A AND COUNT(L6A,X6A)>0,LLVBARS(IF(L6A,LOW,10000),X6A));
G6A:=F6A>REF(F6A,1);
I6A:=BACKSET(G6A,2);
LD2A:=I6A>REF(I6A,1);
L7A:=LD2A OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
X7A:=REF(BARSLAST(L7A),1)+1;
F7A:=BACKSET(L7A AND COUNT(H7A,X7A)>0,HHVBARS(IF(H7A,HIGH,0),X7A));
G7A:=F7A>REF(F7A,1);
I7A:=BACKSET(G7A,2);
HD2A:=I7A>REF(I7A,1);
UU3A:=BACKSET(BARSTATUS=2,BARSLAST(LD2A)+1);
VV3A:=UU3A>REF(UU3A,1);
WW3A:=BACKSET(VV3A,REF(BARSLAST(LD2A),1)+2);
XX3A:=WW3A>REF(WW3A,1);
{下支撐線}
DRAWLINE(XX3A,L,VV3A,L,1),COLORCYAN,LINETHICK2;
UU4A:=BACKSET(BARSTATUS=2,BARSLAST(HD2A)+1);
VV4A:=UU4A>REF(UU4A,1);
WW4A:=BACKSET(VV4A,REF(BARSLAST(HD2A),1)+2);
XX4A:=WW4A>REF(WW4A,1);
{上支撐線}
DRAWLINE(XX4A,H,VV4A,H,1),COLOR8000F0,LINETHICK2;
{完}
指標效果圖:
聯(lián)系客服