咨詢內容： 老師幫忙看看，這指標改博易大師 N:=20;P:=8;
GJ:=(C+H+L+O)/4;阻:=L+(GJ-L)+(C-L);支:=L+(C-GJ);
壓力:REF(阻 , 1),NODRAW,COLOR00FF00;
支撐:REF(支 , 1),NODRAW,COLORYELLOW;
STICKLINE(ISLASTBAR,壓力,壓力,30,1),LINETHICK1,COLOR00FF00;
STICKLINE(ISLASTBAR,支撐,支撐,30,1),LINETHICK1,COLORYELLOW;
下檔線:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
RRRSV:=SMA(下檔線,3,1);KKK:=SMA(RRRSV,3,1);DDD:=((3 * RRRSV) - (2 * KKK));
JJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
RSV24:=SMA(JJ12,3,1);K24:=SMA(RSV24,3,1);D24:=((3 * RSV24) - (2 * K24));
頂部:=IF(CROSS(D24,DDD),HIGH,REF(HIGH,BARSLAST(CROSS(D24,DDD)))),COLORFFFFFF;
決策:IF(ISLASTBAR,頂部,DRAWNULL),COLORMAGENTA;
STICKLINE(ISLASTBAR ,決策,決策,60,1),LINETHICK2,COLORMAGENTA;
底部:=LLV(HIGH,30),COLOR00FF00;
超跌:IF(ISLASTBAR,底部,DRAWNULL),COLORRED;
STICKLINE(ISLASTBAR ,超跌,超跌,60,1),LINETHICK2,COLORRED;
風險參數:MA((MA(C,13)-MA(C,55))/MA(C,13)*100,1),NODRAW,COLORFFFF00;
波:=ZIG(3,P),COLORWHITE;
漲天:BARSLASTCOUNT(波>REF(波,1)),NODRAW,COLORRED;
VAR1:=(C-REF(C,漲天))/REF(C,漲天)*100;
漲幅%:IF(漲天>0,VAR1, DRAWNULL),NODRAW;
跌天:BARSLASTCOUNT(波<REF(波,1)),NODRAW,COLOR00FF00;
VAR2:=(C-REF(C,跌天))/REF(C,跌天)*100;
跌幅%:IF(跌天>0,VAR2, DRAWNULL),NODRAW;
{紅}
{STICKLINE(C>O,C,O,3,0),COLOR000077;
STICKLINE(C>O,C,O,2,0),COLOR000099;
STICKLINE(C>O,C,O,1,0),COLOR0000BB;
STICKLINE(C>O,H,L,0,0),COLOR0000FF;}
{綠}
{STICKLINE(C<O,C,O,3,0),COLOR007700;
STICKLINE(C<O,C,O,2,0),COLOR009900;
STICKLINE(C<O,C,O,1,0),COLOR00BB00;
STICKLINE(C<O,H,L,0,0),COLOR00FF00;}
{浪}
{浪線6:DRAWLINE(H=HHV(H,6),H,L=LLV(L,6),L,0),LINETHICK2,COLORRED;
浪線6X:DRAWLINE(L=LLV(L,6),L,H=HHV(H,6),H,0),LINETHICK2,COLORRED;}
浪線7:DRAWLINE(H=HHV(H,7),H,L=LLV(L,7),L,0),LINETHICK1,COLORYELLOW;
浪線7X:DRAWLINE(L=LLV(L,7),L,H=HHV(H,7),H,0),LINETHICK1,COLORYELLOW;
{浪線21:DRAWLINE(H=HHV(H,21),H,L=LLV(L,21),L,0),LINETHICK2,COLORFF7F00;
浪線21X:DRAWLINE(L=LLV(L,21),L,H=HHV(H,21),H,0),LINETHICK2,COLORFF7F00;}
浪線35:DRAWLINE(H=HHV(H,35),H,L=LLV(L,35),L,0),LINETHICK1,COLORMAGENTA;
浪線35X:DRAWLINE(L=LLV(L,35),L,H=HHV(H,35),H,0),LINETHICK1,COLORMAGENTA;
{浪線49:DRAWLINE(H=HHV(H,49),H,L=LLV(L,49),L,0),LINETHICK2,COLORGREEN;
浪線49X:DRAWLINE(L=LLV(L,49),L,H=HHV(H,49),H,0),LINETHICK2,COLORGREEN; };
{趨勢}
A1:=REF(H,N)=HHV(H,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);
R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1); S11:=R11>REF(R11,1);
DRAWLINE(D1,H,S11,H,1),COLORGREEN,CROSSDOT;
A2:=REF(L,N)=LLV(L,2*N+1);
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);
D2:=FILTER(C2,N);
T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);
U11:=T11>REF(T11,1);
DRAWLINE(D2,L,U11,L,1),COLORRED,CIRCLEDOT;
M:=INTPART(3*N/5);
A12:=REF(H,M)=HHV(H,2*M+1);
B12:=FILTER(A12,M);
C12:=BACKSET(B12,M+1);
D12:=FILTER(C12,M);
R112:=BACKSET(ISLASTBAR,BARSLAST(D12)+1);
S112:=R112>REF(R112,1);
DRAWLINE(D12,H,S112,H,1),COLORGREEN,POINTDOT;
A22:=REF(L,M)=LLV(L,2*M+1);
B22:=FILTER(A22,M);
C22:=BACKSET(B22,M+1);
D22:=FILTER(C22,M);{低點}
T112:=BACKSET(ISLASTBAR,BARSLAST(D22)+1);
U112:=T112>REF(T112,1);
DRAWLINE(D22,L,U112,L,1),COLORRED,POINTDOT;
AAA2:=SUM(IF( CLOSE>REF(CLOSE,1),VOL*C,0),0);
AAA3:=SUM(IF( CLOSE<REF(CLOSE,1),VOL*C,0),0);
AAA4:=SUM(IF( CLOSE=REF(CLOSE,1),VOL*C,0),0);
BB1:=0;
B1萬元:=DVOL*DCLOSE/100;
B1差:=B1萬元-REF(B1萬元,1);
B2萬元:=DVOL*DCLOSE/100;
B2比:=B2萬元/REF(B2萬元,1);
凈流入萬元:=(AAA2-AAA3-0.5*AAA4);
PM:=MA(凈流入萬元,1);
PMA:=PM/REF(PM,1)>1;
PMB:=REF(PMA,1)<1 AND PMA;
密碼:(EMA(MA(B1萬元,2),2))/100000,COLORYELLOW,NODRAW;
二日比:=密碼/REF(密碼,1);
選股:PMB AND 密碼>REF(密碼,1) AND 二日比>1,COLORRED,NODRAW;
{MA5:MA(C,5);MA10:MA(C,10);MA30:MA(C,30);}
DRAWNUMBER(選股=1 ,L,密碼),COLORYELLOW;
{ DRAWICON(選股,L*0.975,1);}
DRAWTEXT_FIX(ISLASTBAR,0.25,0.99,0,STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(HYBLOCK,FGBLOCK),DYBLOCK),GNBLOCK),'股東數:'),CON2STR(FINANCE(8),0))),COLORYELLOW;

?

?來源:程序化99網（ www.kzuj.com.cn ）

博易技術人員： N:=20;P:=8;
GJ:=(C+H+L+O)/4;阻:=L+(GJ-L)+(C-L);支:=L+(C-GJ);
壓力:REF(阻 , 1),NODRAW,COLOR00FF00;
支撐:REF(支 , 1),NODRAW,COLORYELLOW;
STICKLINE(ISLASTBAR,壓力,壓力,30,1),LINETHICK1,COLOR00FF00;
STICKLINE(ISLASTBAR,支撐,支撐,30,1),LINETHICK1,COLORYELLOW;
下檔線:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
RRRSV:=SMA(下檔線,3,1);KKK:=SMA(RRRSV,3,1);DDD:=((3 * RRRSV) - (2 * KKK));
JJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
RSV24:=SMA(JJ12,3,1);K24:=SMA(RSV24,3,1);D24:=((3 * RSV24) - (2 * K24));
頂部:=IF(CROSS(D24,DDD),HIGH,REF(HIGH,BARSLAST(CROSS(D24,DDD)))),COLORFFFFFF;
決策:IF(ISLASTBAR,頂部,DRAWNULL),COLORMAGENTA;
STICKLINE(ISLASTBAR ,決策,決策,60,1),LINETHICK2,COLORMAGENTA;
底部:=LLV(HIGH,30),COLOR00FF00;
超跌:IF(ISLASTBAR,底部,DRAWNULL),COLORRED;
STICKLINE(ISLASTBAR ,超跌,超跌,60,1),LINETHICK2,COLORRED;
風險參數:MA((MA(C,13)-MA(C,55))/MA(C,13)*100,1),NODRAW,COLORFFFF00;
波:=ZIG(3,P),COLORWHITE;
漲天:BARSLAST(波>REF(波,1)),NODRAW,COLORRED;
VAR1:=(C-REF(C,漲天))/REF(C,漲天)*100;
漲幅%:IF(漲天>0,VAR1, DRAWNULL),NODRAW;
跌天:BARSLAST(波<REF(波,1)),NODRAW,COLOR00FF00;
VAR2:=(C-REF(C,跌天))/REF(C,跌天)*100;
跌幅%:IF(跌天>0,VAR2, DRAWNULL),NODRAW;
{紅}
{STICKLINE(C>O,C,O,3,0),COLOR000077;
STICKLINE(C>O,C,O,2,0),COLOR000099;
STICKLINE(C>O,C,O,1,0),COLOR0000BB;
STICKLINE(C>O,H,L,0,0),COLOR0000FF;}
{綠}
{STICKLINE(C<O,C,O,3,0),COLOR007700;
STICKLINE(C<O,C,O,2,0),COLOR009900;
STICKLINE(C<O,C,O,1,0),COLOR00BB00;
STICKLINE(C<O,H,L,0,0),COLOR00FF00;}
{浪}
{浪線6:DRAWLINE(H=HHV(H,6),H,L=LLV(L,6),L,0),LINETHICK2,COLORRED;
浪線6X:DRAWLINE(L=LLV(L,6),L,H=HHV(H,6),H,0),LINETHICK2,COLORRED;}
DRAWLINE(H=HHV(H,7),H,L=LLV(L,7),L,0),LINETHICK1,COLORYELLOW;?
DRAWLINE(L=LLV(L,7),L,H=HHV(H,7),H,0),LINETHICK1,COLORYELLOW;
{浪線21:DRAWLINE(H=HHV(H,21),H,L=LLV(L,21),L,0),LINETHICK2,COLORFF7F00;
浪線21X:DRAWLINE(L=LLV(L,21),L,H=HHV(H,21),H,0),LINETHICK2,COLORFF7F00;}
DRAWLINE(H=HHV(H,35),H,L=LLV(L,35),L,0),LINETHICK1,COLORMAGENTA;
DRAWLINE(L=LLV(L,35),L,H=HHV(H,35),H,0),LINETHICK1,COLORMAGENTA;
{浪線49:DRAWLINE(H=HHV(H,49),H,L=LLV(L,49),L,0),LINETHICK2,COLORGREEN;
浪線49X:DRAWLINE(L=LLV(L,49),L,H=HHV(H,49),H,0),LINETHICK2,COLORGREEN; };
{趨勢}
A1:=REF(H,N)=HHV(H,2*N+1);?
B1:=FILTER(A1,N);?
C1:=BACKSET(B1,N+1);?
D1:=FILTER(C1,N);
R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1); S11:=R11>REF(R11,1);
DRAWLINE(D1,H,S11,H,1),COLORGREEN,CROSSDOT;
A2:=REF(L,N)=LLV(L,2*N+1);?
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);?
D2:=FILTER(C2,N);
T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);?
U11:=T11>REF(T11,1);
DRAWLINE(D2,L,U11,L,1),COLORRED,CIRCLEDOT;
M:=INTPART(3*N/5);
A12:=REF(H,M)=HHV(H,2*M+1);?
B12:=FILTER(A12,M);?
C12:=BACKSET(B12,M+1);?
D12:=FILTER(C12,M);
R112:=BACKSET(ISLASTBAR,BARSLAST(D12)+1);
S112:=R112>REF(R112,1);
DRAWLINE(D12,H,S112,H,1),COLORGREEN,POINTDOT;
A22:=REF(L,M)=LLV(L,2*M+1);?
B22:=FILTER(A22,M);
C22:=BACKSET(B22,M+1);?
D22:=FILTER(C22,M);{低點}
T112:=BACKSET(ISLASTBAR,BARSLAST(D22)+1);?
U112:=T112>REF(T112,1);
DRAWLINE(D22,L,U112,L,1),COLORRED,POINTDOT;
AAA2:=SUM(IF( CLOSE>REF(CLOSE,1),VOL*C,0),0);
AAA3:=SUM(IF( CLOSE<REF(CLOSE,1),VOL*C,0),0);
AAA4:=SUM(IF( CLOSE=REF(CLOSE,1),VOL*C,0),0);
BB1:=0;
B1萬元:=VOL*CLOSE/100;
B1差:=B1萬元-REF(B1萬元,1);
B2萬元:=VOL*CLOSE/100;
B2比:=B2萬元/REF(B2萬元,1);
凈流入萬元:=(AAA2-AAA3-0.5*AAA4);
PM:=MA(凈流入萬元,1);
PMA:=PM/REF(PM,1)>1;
PMB:=REF(PMA,1)<1 AND PMA;?
密碼:(EMA(MA(B1萬元,2),2))/100000,COLORYELLOW,NODRAW;
二日比:=密碼/REF(密碼,1);
選股:PMB AND 密碼>REF(密碼,1) AND 二日比>1,COLORRED,NODRAW;
{MA5:MA(C,5);MA10:MA(C,10);MA30:MA(C,30);}
DRAWNUMBER(選股=1 ,L,密碼,2),COLORYELLOW;
{ DRAWICON(選股,L*0.975,1);} 來源 程序化久久網