通达信获利盘比例副图指标-通达信指标公式

以下是通达信获利盘比例副图指标源码和截图

通达信获利盘比例副图指标源码：

   STICKLINE(C>0.1,0,350,4.8,0),COLOR781816;

   STICKLINE(C>0.1,-5,-350,4.8,0),COLOR781816;

   VAR22:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;

   获利盘:=WINNER(CLOSE)*100;

   VAR33:=SMA(VAR22,3,1);

   VAR44:=SMA(VAR33,9,1);

   VAR55:=3*VAR33-2*VAR44;

   VAR66:=VOL;

   量比:VOL/MA(VOL,5);

   涨跌:(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;

   角度:(CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;

   换手:VOL/CAPITAL*100;

   VAR77:=SUM(换手,30);

   VAR88:=LLV(INDEXL,5);

   VAR99:=HHV(INDEXH,5);

   VARAA:=EMA((INDEXC-VAR88)/(VAR99-VAR88)*100,4);

   VARBB:=MA(EMA(0.667*REF(VARAA,1)+0.333*VARAA,2),9);

   VARCC:=MA(VARBB,30);

   VARDD:=EMA(获利盘,4);

   本盘亿股:CAPITAL/1000000,;

   获利盘比例:WINNER(CLOSE)*100,LINETHICK0;

   获利盘比例差:获利盘比例-REF(获利盘比例,1);

   RSV:=SUM(获利盘比例差,3);

   K:=SMA(RSV,5,1);

   D:=SMA(K,9,1);

   VAR1:=3*K-2*D;

   {PARTLINE(VAR1,(VAR1>REF(VAR1,1))-1,RGB(0,255,0),1,RGB(255,0,0)),LINETHICK0;}

   IF(VAR1>REF(VAR1,1),VAR1,DRAWNULL),COLORRED,LINETHICK0;

   {DRAWTEXTREL(5,10,'■现实获利盘比例:'+NUMTOSTRN(WINNER(CLOSE)*100,2)+'%'),COLOR00FFFF,LINETHICK3;}

   LLJX:=VAR1;

   0,POINTDOT,COLORWHITE;

   B1:SUM(LLJX,1),COLORCYAN,LINETHICK2;

   B2:SUM(LLJX,2),COLORCYAN;

   B3:SUM(LLJX,3),COLORCYAN;

   B4:SUM(LLJX,4),COLORCYAN;

   B5:SUM(LLJX,5),COLORCYAN;

   B6:SUM(LLJX,6),COLORCYAN;

   B7:SUM(LLJX,7),COLORCYAN;

   B8:SUM(LLJX,8),COLORCYAN;

   B9:SUM(LLJX,9),COLORCYAN;

   B10:SUM(LLJX,10),COLORCYAN,LINETHICK3;

   {PARTLINE(B1,B1>REF(B1,1),RGB(255,0,0)),LINETHICK2;}

   IF(B1>REF(B1,1),B1,DRAWNULL),COLORRED,LINETHICK2;

   {PARTLINE(B2,B2>REF(B2,1),RGB(255,0,0));}

   IF(B2>REF(B2,1),B2,DRAWNULL),COLORRED;

   {PARTLINE(B3,B3>REF(B3,1),RGB(255,0,0));}

   ;IF(B3>REF(B3,1),B3,DRAWNULL),COLORRED;

   {PARTLINE(B4,B4>REF(B4,1),RGB(255,0,0));}

   IF(B4>REF(B4,1),B4,DRAWNULL),COLORRED;

   {PARTLINE(B5,B5>REF(B5,1),RGB(255,0,0));}

   IF(B5>REF(B5,1),B5,DRAWNULL),COLORRED;

   {PARTLINE(B6,B6>REF(B6,1),RGB(255,0,0));}

   IF(B6>REF(B6,1),B6,DRAWNULL),COLORRED;

   {PARTLINE(B7,B7>REF(B7,1),RGB(255,0,0));}

   IF(B7>REF(B7,1),B7,DRAWNULL),COLORRED;

   {PARTLINE(B8,B8>REF(B8,1),RGB(255,0,0));}

   IF(B8>REF(B8,1),B8,DRAWNULL),COLORRED;

   {PARTLINE(B9,B9>REF(B9,1),RGB(255,0,0));}

   IF(B9>REF(B9,1),B9,DRAWNULL),COLORRED;

   {PARTLINE(B10,B10>REF(B10,1),RGB(255,0,0)),LINETHICK3;}

   IF(B10>REF(B10,1),B10,DRAWNULL),COLORRED,LINETHICK3;

   快线:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

   慢线:=SMA(快线,3,1);

   AA:=IF(BARSLAST(CROSS(快线,慢线))>=4ANDCROSS(慢线,快线)AND快线>50,20,0);

   N:=74;

   M:=3;

   PC:(C+REF(C,1)+O)/3;

   高:=REF(HHV(H,N),M);

   低:=REF(LLV(L,N),M);

   H19:=高-(高-低)*0.191;

   H38:=高-(高-低)*0.382;

   H中:=高-(高-低)*0.5;

   H61:=高-(高-低)*0.618;

   H80:=高-(高-低)*0.809;

   顶点:REFDATE(高,DATE),COLORWHITEDOTLINE;

   %19.8:REFDATE(H19,DATE),COLORYELLOWDOTLINE;

   %38.2:REFDATE(H38,DATE),COLORmaGENTADOTLINE;

   %50:REFDATE(H中,DATE),COLORRED;

   %61.8:REFDATE(H61,DATE),COLORMAGENTADOTLINE;

   %80.9:REFDATE(H80,DATE),COLORYELLOWDOTLINE;

   低点:REFDATE(低,DATE),COLORWHITEDOTLINE;

   DRAWTEXT(ISLAstBAR,顶点,'顶点'),COLORWHITE;

   DRAWTEXT(ISLASTBAR,%19.8,'％19.8安全'),COLORYELLOW;

   DRAWTEXT(ISLASTBAR,%38.2,'％38.2'),COLORMAGENTA;

   DRAWTEXT(ISLASTBAR,%50,'％50'),COLORRED;

   DRAWTEXT(ISLASTBAR,%61.8,'％61.8'),COLORMAGENTA;

   DRAWTEXT(ISLASTBAR,%80.9,'％80.9'),COLORYELLOW;

   DRAWTEXT(ISLASTBAR,低点,'低点'),COLORWHITE;

   AAA:=(3*C+H+L+O)/6;

   VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36;

   VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3;

   VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3;

   VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3;

   VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3;

   VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;

   STICKLINE(VAR1>VAR6,VAR1,VAR6,0.5,0),COLORFF00FF;

   STICKLINE(C>=O,C,O,3,0),COLOR000045;

   STICKLINE(C>=O,C,O,2,0),COLOR000085;

   STICKLINE(C>=O,C,O,1,0),COLOR0000E5;

   STICKLINE(C>=O,H,L,0,0),COLOR0000F5;

   STICKLINE(C<O,C,O,3,0),COLOR353500;

   STICKLINE(C<O,C,O,2,0),COLOR555500;

   STICKLINE(C<O,C,O,1,0),COLOR858500;

   STICKLINE(C<O,H,L,0,0),COLOR959500;

   短线:VAR1,COLORWHITE;

   中线:VAR6,COLORYELLOW;

   下跌:IF(VAR1=VAR6,VAR6,DRAWNULL),COLORGREEN;

通达信获利盘比例副图指标截图