飞狐涨跌互现公式

涨跌互现（源码）
DRAWGBK(1,COLORRGB(100,100,100),COLORRGB(50,50,50),1);
{涨跌互现}
hh:=SYSPARAM(4); ll:=SYSPARAM(5);//对应画面空间
DC:=INDEXC,LINETHICK;
GGS:=BARSCOUNT(C);
Var1:=ZIG(4,15);//个股
GS1:=PEAKBARS(4,15,1);
Var2:=FLATZIG(DC,15);//大盘
PS1:=PEAKBARS(DC,15,1);
XX:=Var1 YY:=Var2 FILLRGN(XX,hh,ll),COLOR08683C,color4400;
FILLRGN(NOT(XX),hh,ll),COLORE3C3F3;
{涨跌互现}
股峰:PEAK(4,15,1),LINETHICK;F1:=STRTONUM(NUMTOSTR(GGS-BARSSINCE(股峰),0));
股谷:TROUGH(4,15,1),LINETHICK;G1:=STRTONUM(NUMTOSTR(GGS-BARSSINCE(股谷),0));
大盘峰:PEAK(DC,15,1),LINETHICK;DF:=STRTONUM(NUMTOSTR(GGS-BARSSINCE(大盘峰),0));
大盘谷:TROUGH(DC,15,1),LINETHICK;DG:=STRTONUM(NUMTOSTR(GGS-BARSSINCE(大盘谷),0));
个股:Var1,COLOR00DDFF,LINETHICK2,COLORYELLOW;
大盘:LL+Var2*(HH-LL),COLORFFAF00,LINEDOT;

WF:=GGS0;WGS:=COUNT(WG,0)>0;
WDF:=GGS0;WDGS:=COUNT(WDG,0)>0;

IF WGS[SYSPARAM(1)] AND WFS[SYSPARAM(1)] AND WF[SYSPARAM(1)]=0 AND WG[SYSPARAM(1)]=0 THEN
DRAWTEXT(SYSPARAM(2)=BARPOS,LL,'个股涨幅(%)：'+ NUMTOSTR((个股[SYSPARAM(1)]/IF(NOT(XX[SYSPARAM(1)]),股谷[SYSPARAM(1)],IF(BARSCOUNT(C) ELSE
DRAWTEXT(SYSPARAM(2)=BARPOS,LL,'个股涨幅(%)：'+NUMTOSTR((个股[SYSPARAM(1)]/个股[1]-1)*100,2)),COLOR0000FF,PXUP30;

IF WDGS[SYSPARAM(1)] AND WDFS[SYSPARAM(1)] AND WDF[SYSPARAM(1)]=0 AND WDG[SYSPARAM(1)]=0 THEN
DRAWTEXT(SYSPARAM(2)=BARPOS,LL,'大盘涨幅(%)：'+NUMTOSTR((DC[SYSPARAM(1)]/IF(NOT(YY[SYSPARAM(1)]),大盘谷[SYSPARAM(1)],大盘峰[SYSPARAM(1)])-1)*100,2)),COLOR3595FF;
ELSE
DRAWTEXT(SYSPARAM(2)=BARPOS,LL,'大盘涨幅(%)：'+NUMTOSTR((DC[SYSPARAM(1)]/DC[1]-1)*100,2)),COLOR3595FF;

IF WGS[SYSPARAM(1)] AND WFS[SYSPARAM(1)] AND WF[SYSPARAM(1)]=0 AND WG[SYSPARAM(1)]=0 THEN
DRAWNUMBER(GS1=0,HH,(股峰/股谷-1)*100,2),COLOR0033FF;
ELSE
DRAWNUMBER(GS1=0,HH,(股峰/个股[1]-1)*100,2),COLOR0033FF;

IF WDGS[SYSPARAM(1)] AND WDFS[SYSPARAM(1)] AND WDF[SYSPARAM(1)]=0 AND WDG[SYSPARAM(1)]=0 THEN
DRAWNUMBER(PS1=0,HH,(大盘峰/大盘谷-1)*100,2),COLOR3595FF,PXDN25;
ELSE
DRAWNUMBER(PS1=0,HH,(DC/DC[1]-1)*100,2),COLOR3595FF,PXDN25;

DRAWNUMBER(ISLASTBAR AND NOT(XX),HH,(CLOSE/股谷-1)*100,2),COLORFF00FF;

KLINE(O,H,L,C,0);

{数浪公式}
GET:=ZIG(4,10),COLORYELLOW;
PL5:=ZIG(3,5);
EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);
EX1:=ZIG(3,5)=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);
PL10:=ZIG(3,10);
EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);
EX2:=ZIG(3,10)=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);
PL20:=ZIG(3,20);
EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND RE