节节髙源码
N{1 100 5} M{1 100 10}
AAA:=MAX(DYNAINFO(3),DYNAINFO(5))*1.215;
BBB:=MIN(DYNAINFO(3),DYNAINFO(6))/1.215;
CCC:=AAA-BBB;
BB:=BBB+CCC*9.2/8,COLORRED;
A1:=IF(BB<HHV(H,10),BB,DRAWNULL);
AA:=BBB+CCC*8.01/8,COLORRED;
B1:=IF(AA<HHV(H,10),AA,DRAWNULL);
A8:=BBB+CCC*6.6/8,COLORRED;
C1:=IF(A8<HHV(H,10),A8,DRAWNULL);
B8:=BBB+CCC*1.5/8,COLORYELLOW;
D1:=IF(B8<HHV(H,10),B8,DRAWNULL);
D:=(AAA+BBB)/2,COLORWHITE;
E1:=IF(D<HHV(H,10),D,DRAWNULL);
E:=BBB+CCC*2/3,COLORMAGENTA;
F1:=IF(E<HHV(H,10),E,DRAWNULL);
F:=BBB+CCC/3,COLOR999900;
G1:=IF(F<HHV(H,10),F,DRAWNULL);
DRAWBAND(A1,RGB(81,31,144),B1,RGB(162,0,124));
DRAWBAND(B1,RGB(162,0,124),C1,RGB(0,174,114));
DRAWBAND(C1,RGB(0,174,114),E1,RGB(245,117,109));
DRAWBAND(G1,RGB(162,0,124),D1,RGB(81,31,144));
DRAWBAND(E1,RGB(241,175,0),G1,RGB(245,117,109));
DRAWBAND(F1,RGB(0,160,107),E1,RGB(245,117,109));
G:=(BBB+CCC)/1.6,COLORGREEN;
H1:=IF(G<HHV(H,10),G,DRAWNULL);
I:=(BBB+CCC)/1.8,COLORBLUE;
I1:=IF(I>LLV(L,60),I,DRAWNULL);
J:=(BBB+CCC)/2.1,COLORBLUE;
J1:=IF(J>LLV(L,60),J,DRAWNULL);
K:=(BBB+CCC)/2.5,COLORBLUE;
K1:=IF(K>LLV(L,60),K,DRAWNULL);
DRAWBAND(H1,RGB(238,124,107),J1,RGB(236,135,14));
DRAWBAND(K1,RGB(0,80,80),I1,RGB(236,135,14));
DRAWBAND(J1,RGB(0,0,128),K1,RGB(0,160,107));
DRAWBAND(H1,RGB(229,70,70),I1,RGB(91,189,43));
DRAWBAND(D1,RGB(208,119,11),H1,RGB(229,70,70));
M:=(BBB+CCC)/3,COLORBLUE;
L1:=IF(M>LLV(L,60),M,DRAWNULL);
N:=(BBB+CCC)/3.8,COLORBLUE;
M1:=IF(N>LLV(L,60),N,DRAWNULL);
U:=(BBB+CCC)/5.2,COLORBLUE;
N1:=IF(U>LLV(L,60),U,DRAWNULL);
DRAWBAND(L1,RGB(199,195,0),M1,RGB(91,189,43));
DRAWBAND(M1,RGB(91,189,43),N1,RGB(0,132,137));
AA10:=MA(C,N);
BB10:=ATAN((AA10-REF(AA10,1)))*180/3.1416;
STICKLINE(BB10>1 AND AA10>REF(AA10,1), AA10,REF(AA10,1),3,1),COLOR000066;
STICKLINE(BB10>1 AND AA10>REF(AA10,1), AA10,REF(AA10,1),2.6,1),COLOR000099;
STICKLINE(BB10>1 AND AA10>REF(AA10,1), AA10,REF(AA10,1),2,1),COLOR0000CC;
STICKLINE(BB10>1 AND AA10>REF(AA10,1), AA10,REF(AA10,1),1.2,1),COLOR0000FF;
STICKLINE(BB10>1 AND AA10>REF(AA10,1), AA10,REF(AA10,1),0.4,1),COLORCC66FF;
STICKLINE(BB10<1 AND AA10< REF(AA10,1), AA10,REF(AA10,1),3,1),COLOR007700;
STICKLINE(BB10<1 AND AA10< REF(AA10,1), AA10,REF(AA10,1),2.6,1),COLOR009900;
STICKLINE(BB10<1 AND AA10< REF(AA10,1), AA10,REF(AA10,1),2,1),COLOR00BB00;
AA20:=MA(C,M);
BB20:=ATAN((AA20-REF(AA20,1)))*180/3.1416;
STICKLINE(BB20>1,AA20,REF(AA20,1),3,1),COLOR00AAFF;
STICKLINE(BB20>1,AA20,REF(AA20,1),2.6,1),COLOR00CCFF;
STICKLINE(BB20>1,AA20,REF(AA20,1),2,1),COLOR22FFFF;
STICKLINE(BB20>1,AA20,REF(AA20,1),1.2,1),COLOR66FFFF;
STICKLINE(BB20>1,AA20,REF(AA20,1),0.4,1),COLOR99FFFF;
STICKLINE(BB20<1,AA20,REF(AA20,1),3,1),COLOR777777;
STICKLINE(BB20<1,AA20,REF(AA20,1),2.6,1),COLOR999999;
STICKLINE(BB20<1,AA20,REF(AA20,1),2,1),COLORBBBBBB;
VAR1:=AMOUNT/VOL;
A:=SMA(VAR1,5,1)-SMA(VAR1,55,1);
B:=SMA((A-SMA(A,5,1)),5,1);
STICKLINE(C,H,L,0,1),COLORGREEN;
STICKLINE(C>=O,O,C,4,1),COLORGREEN;
STICKLINE(C<O,O,C,4,0),COLORGREEN;
STICKLINE(CLOSE>MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1),H,L,0,1),COLORRED;
STICKLINE(CLOSE>MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1) AND C>=O,O,C,4,1),COLORRED;
STICKLINE(CLOSE>MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1) AND C<O,O,C,4,0),COLORRED;
STICKLINE(CLOSE<MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1),H,L,0,1),COLORWHITE;
STICKLINE(CLOSE<MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1) AND C>=O,O,C,4,1),COLORWHITE;
STICKLINE(CLOSE<MA(CLOSE,5) AND A>REF(A,1) AND B>REF(B,1) AND C<O,O,C,4,0),COLORWHITE;
STICKLINE(A<REF(A,3) AND B<REF(B,3),H,L,0,1),COLORGREEN;
STICKLINE(A<REF(A,3) AND B<REF(B,3) AND C>=O,O,C,4,1),COLORGREEN;
STICKLINE(A<REF(A,3) AND B<REF(B,3) AND C<O,O,C,4,0),COLORGREEN;
STICKLINE(A>REF(A,1) AND B<REF(B,1),H,L,0,1),COLORBLUE ;
STICKLINE(A>REF(A,1) AND B<REF(B,1) AND C>=O,O,C,4,1),COLORBLUE;
STICKLINE(A>REF(A,1) AND B<REF(B,1) AND C<O,O,C,4,0),COLORBLUE;
STICKLINE((A<REF(A,1) AND B>REF(B,1)),H,L,0,1),COLORFF00FF;
STICKLINE((A<REF(A,1) AND B>REF(B,1)) AND C>=O,O,C,4,1),COLORFF00FF;
STICKLINE((A<REF(A,1) AND B>REF(B,1)) AND C<O,O,C,4,0),COLORFF00FF;
STICKLINE(C/REF(C,1)>1.095,C,O,3,0),COLORYELLOW;
Y:=(H+L)/2;
AO:=MA(Y ,5 )-MA(Y ,34 );
DU0:=CROSS(AO,0);
UD0:=CROSS(0,AO);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
西电决策线:IF(TDU3<TUD3,REF(HHV(H,2),TDU3),REF(LLV(L,2),TUD3)),COLORYELLOW;
DRAWTEXT(ISLASTBAR,西电决策线,'西电决策线'),COLORYELLOW;
