飞狐帝式OP自动测涨跌主图选股指标公式源码

飞狐帝式OP自动测涨跌主图选股指标公式源码

源码正文：

KG1:=20;F1:=10;P:=10{XG51};
D3X3:ma(c,3),SHIFT3,COLORLIMAGENTA{XG51};
KG:=IF(DATATYPE<=1,1,IF(DATATYPE<=3,5,IF(DATATYPE<=5,10,KG1))){XG51};
F:=IF(DATATYPE<=3,1,IF(DATATYPE=4,3,IF(DATATYPE=5,5,F1))){XG51};
ZX:=zig(4,KG){XG51};
CCH:=PEAK(4,KG,1){XG51};
CCY:=TROUGH(4,KG,1){XG51};
CC:IF(ZX<REF(ZX,1),CCH,CCY),LINETHICK0{XG51};
W1:=crOSS(CCH-0.02,ZX){XG51};
W2:=CROSS(ZX,CCY+0.02){XG51};
FD:=F/100{XG51};
YS:=IF(ZX<REF(ZX,1),FD,-FD){XG51};
W:=IF(ZX<REF(ZX,1),W1,W2){XG51};
H1:REF(CC*(1-YS*1),BArslAst(W)),LINETHICK0{XG51};
H2:REF(CC*(1-YS*2),BARSLAST(W)),LINETHICK0{XG51};
H3:REF(CC*(1-YS*3),BARSLAST(W)),LINETHICK0{XG51};
H4:REF(CC*(1-YS*4),BARSLAST(W)),LINETHICK0{XG51};
H5:REF(CC*(1-YS*5),BARSLAST(W)),LINETHICK0{XG51};
H6:REF(CC*(1-YS*6),BARSLAST(W)),LINETHICK0{XG51};
H7:REF(CC*(1-YS*7),BARSLAST(W)),LINETHICK0{XG51};
H8:REF(CC*(1-YS*8),BARSLAST(W)),LINETHICK0{XG51};
H9:REF(CC*(1-YS*9),BARSLAST(W)),LINETHICK0{XG51};
H10:REF(CC*(1-YS*10),BARSLAST(W)),LINETHICK0{XG51};
H11:REF(CC*(1-YS*11),BARSLAST(W)),LINETHICK0{XG51};
H12:REF(CC*(1-YS*12),BARSLAST(W)),LINETHICK0{XG51};
H13:REF(CC*(1-YS*13),BARSLAST(W)),LINETHICK0{XG51};
H14:REF(CC*(1-YS*14),BARSLAST(W)),LINETHICK0{XG51};
H15:REF(CC*(1-YS*15),BARSLAST(W)),LINETHICK0{XG51};
HHD:=SYSPARAM(4){XG51};
LLD:=SYSPARAM(5){XG51};
系数:=IF(DATATYPE=2,1.00005,IF(DATATYPE<6,1.0005,1.002)){XG51};
STICKLINE(CC>=LLD AND CC<=HHD,CC,CC*系数,20,0),colorFF{XG51};
STICKLINE(CC>=LLD AND CC<=HHD,H1,H1,5,0),colorA0A0A0{XG51};
STICKLINE(H1>LLD AND H1<HHD,H2,H2,5,0),colorA0A0A0{XG51};
STICKLINE(H2>LLD AND H2<HHD,H3,H3,5,0),colorA0A0A0{XG51};
STICKLINE(H3>LLD AND H3<HHD,H4,H4,5,0),colorA0A0A0{XG51};
STICKLINE(H4>LLD AND H4<HHD,H5,H5,5,0),colorA0A0A0{XG51};
STICKLINE(H5>LLD AND H5<HHD,H6,H6,5,0),colorA0A0A0{XG51};
STICKLINE(H6>LLD AND H6<HHD,H7,H7,5,0),colorA0A0A0{XG51};
STICKLINE(H7>LLD AND H7<HHD,H8,H8,5,0),colorA0A0A0{XG51};
STICKLINE(H8>LLD AND H8<HHD,H9,H9,5,0),colorA0A0A0{XG51};
STICKLINE(H9>LLD AND H9<HHD,H10,H10,5,0),colorA0A0A0{XG51};
STICKLINE(H10>LLD AND H10<HHD,H11,H11,5,0),colorA0A0A0{XG51};
STICKLINE(H11>LLD AND H11<HHD,H12,H12,5,0),colorA0A0A0{XG51};
STICKLINE(H12>LLD AND H12<HHD,H13,H13,5,0),colorA0A0A0{XG51};
STICKLINE(H13>LLD AND H13<HHD,H14,H14,5,0),colorA0A0A0{XG51};
STICKLINE(H14>LLD AND H14<HHD,H15,H15,5,0),colorA0A0A0{XG51};
DRAWTEXT(W AND CC>=LLD AND CC<=HHD,H1,''+NUMTOSTR(F*1,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H1>LLD AND H1<HHD,H2,''+NUMTOSTR(F*2,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H2>LLD AND H2<HHD,H3,''+NUMTOSTR(F*3,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H3>LLD AND H3<HHD,H4,''+NUMTOSTR(F*4,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H4>LLD AND H4<HHD,H5,''+NUMTOSTR(F*5,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H5>LLD AND H5<HHD,H6,''+NUMTOSTR(F*6,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H6>LLD AND H6<HHD,H7,''+NUMTOSTR(F*7,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H7>LLD AND H7<HHD,H8,''+NUMTOSTR(F*8,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H8>LLD AND H8<HHD,H9,''+NUMTOSTR(F*9,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H9>LLD AND H9<HHD,H10,''+NUMTOSTR(F*10,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H10>LLD AND H10<HHD,H11,''+NUMTOSTR(F*11,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H11>LLD AND H11<HHD,H12,''+NUMTOSTR(F*12,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H12>LLD AND H12<HHD,H13,''+NUMTOSTR(F*13,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H13>LLD AND H13<HHD,H14,''+NUMTOSTR(F*14,0)+'%'),PXDN5,colorA0A0A0{XG51};
DRAWTEXT(W AND H14>LLD AND H14<HHD,H15,''+NUMTOSTR(F*15,0)+'%'),PXDN5,colorA0A0A0{XG51};
AK1:=BARSLAST(W1)+1{XG51};
BK1:=BARSLAST(W2)+1{XG51};
目前:=IF(BK1>AK1,AK1,BK1){XG51};
DRAWNUMBER(W1,CC,REF(目前,1),0),ALIGN2,PXUP30,colorFF00FF{XG51};
DRAWNUMBER(W2,CC,REF(目前,1),0),ALIGN2,PXDN10,colorFF00{XG51};
方向:=IF(CC=CCH,'下行 ','上升 '){XG51};
周期:=IF(DATATYPE=6,'天 ',IF(DATATYPE=7,'周 ',IF(DATATYPE=8,'月 ','单位'))){XG51};
DRAWTEXTEX(CLOSE>0,0,2,5,'目前波段'+方向+NUMTOSTR(目前,0)+周期){XG51};
DRAWTEXT(W1,CC,''+周期),PXUP30,colorFF00FF{XG51};
DRAWTEXT(W2,CC,''+周期),PXDN10,colorFF00{XG51};
X1:=TROUGH(4,P,1){XG51};
X8:=TROUGHBARS(4,P,1)=0{XG51};
X11:=TROUGHBARS(4,P,2){XG51};
X18:=TROUGHBARS(4,P,1){XG51};
X13:=TROUGHBARS(4,P,1){XG51};
X3:=PEAK(4,P,1){XG51};
X31:=PEAKBARS(4,P,2){XG51};
X38:=PEAKBARS(4,P,1){XG51};
X33:=PEAKBARS(4,P,1){XG51};
X5:=PEAKBARS(4,P,1)=0{XG51};
光标位置:=SYSPARAM(1){XG51};
CLDIS:=X13[SYSPARAM(1)]{XG51};
CHDIS:=X33[SYSPARAM(1)]{XG51};
TCL:=光标位置-CLDIS{XG51};
TCH:=光标位置-CHDIS{XG51};
BLDIS:=X18[SYSPARAM(1)]{XG51};
BHDIS:=X38[SYSPARAM(1)]{XG51};
TBL:=光标位置-BLDIS{XG51};
TBH:=光标位置-BHDIS{XG51};
ALDIS:=X11[SYSPARAM(1)]{XG51};
AHDIS:=X31[SYSPARAM(1)]{XG51};
TAL:=光标位置-ALDIS{XG51};
TAH:=光标位置-AHDIS{XG51};
K一浪A:=IF(TCL>TCH,TAL,TAH){XG51};
K二浪B:=IF(TCL>TCH,TBH,TBL){XG51};
K三浪C:=IF(TCL>TCH,TCL,TCH){XG51};
PH:=HIGH{XG51};
PL:=LOW{XG51};
P一浪A:IF(TCL>TCH,PL[TAL+0],PH[TAH+0]),LINETHICK0{XG51};
P二浪B:IF(TCL>TCH,PH[TBH+0],PL[TBL+0]),LINETHICK0{XG51};
P三浪C:IF(TCL>TCH,PL[TCL+0],PH[TCH+0]),LINETHICK0{XG51};
DRAWLINE(BARPOS=K一浪A,P一浪A,BARPOS=K二浪B,P二浪B,0),LINEDOT,color77FFFF{XG51};
DRAWLINE(BARPOS=K二浪B,P二浪B,BARPOS=K三浪C,P三浪C,0),LINEDOT,color77FFFF{XG51};
一浪长:=P二浪B-P一浪A{XG51};
Y1:=一浪长{XG51};
P1:=P三浪C+Y1{XG51};
VERTLINE(BARPOS=K三浪C),LINEDOT,colorFFFF{XG51};
DRAWTEXT(BARPOS=K三浪C,SYSPARAM(4)*0.95,'转\n \n\n折\n \n点'),colorFFFF{XG51};
Y0618:=一浪长*0.618{XG51};
P0618:=P三浪C+Y0618{XG51};
PARTLINE(BARPOS>K三浪C,P0618),colorCCFF{XG51};
DRAWTEXT(BARPOS=K三浪C,P0618,'  '+NUMTOSTR(P0618,3)+' cop'),colorCCFF{XG51};
Y1000:=一浪长*1{XG51};
P1000:=P三浪C+Y1000{XG51};
PARTLINE(BARPOS>K三浪C,P1000),colorCCFF{XG51};
DRAWTEXT(BARPOS=K三浪C,P1000,'  '+NUMTOSTR(P1000,3)+'  op'),colorCCFF{XG51};
Y1618:=一浪长*1.618{XG51};
P1618:=P三浪C+Y1618{XG51};
PARTLINE(BARPOS>K三浪C,P1618),colorCCFF{XG51};
DRAWTEXT(BARPOS=K三浪C,P1618,'  '+NUMTOSTR(P1618,3)+' xop'),colorCCFF{XG51};
DK:=MA(CLOSE,7){XG51};
STICKLINE(DK<=CLOSE AND CLOSE>=OPEN,HIGH,LOW,0.1,1),colorFF{XG51};
STICKLINE(DK<=CLOSE AND CLOSE>=OPEN,CLOSE,OPEN,8,1),colorFF{XG51};
STICKLINE(DK<=CLOSE AND CLOSE<OPEN,HIGH,LOW,0.1,0),colorFF{XG51};
STICKLINE(DK<=CLOSE AND CLOSE<OPEN,CLOSE,OPEN,8,0),colorFF{XG51};
STICKLINE(DK>CLOSE AND CLOSE>=OPEN,HIGH,LOW,0.1,1),colorFF00{XG51};
STICKLINE(DK>CLOSE AND CLOSE>=OPEN,CLOSE,OPEN,8,1),colorFF00{XG51};
STICKLINE(DK>CLOSE AND CLOSE<OPEN,HIGH,LOW,0.1,0),colorFF00{XG51};
STICKLINE(DK>CLOSE AND CLOSE<OPEN,CLOSE,OPEN,8,0),colorFF00{XG51};
当前月:=FRacPART(ROUND(CURRENTDATE/100)/100)*100{XG51};
月:=MONTH{XG51};
日:=DAY{XG51};
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='1',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:5(小寒)、6、15、20(大寒)、21、*25\n \n \n \n '),ALIGN5,colorFFFF{XG51};
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='2',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:4(立春)、6、15、18(雨水)21\n \n \n \n \n \n '),ALIGN5,colorFFFF{XG51};
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='3',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:5(惊蛰)、6、15、*20(春分)、21\n \n \n \n \n '),ALIGN5,colorFFFF{XG51};
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='4',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:4(清明)、6、15、20(谷雨)21\n \n \n \n \n \n '),ALIGN5,colorFFFF{XG51};
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='5',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:5(立夏)、6、*12、15、21(小满)\n \n \n \n \n'),ALIGN5,colorFFFF{XG51};
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='6',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:5(芒种)、6、*14、21(夏至)\n \n \n \n \n '),ALIGN5,colorFFFF{XG51};
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='7',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:7(小暑)、8、15、*19、23(大暑)\n \n \n \n \n '),ALIGN5,colorFFFF{XG51};
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='8',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:*6、7(立秋)、8、18、23(处暑)\n \n \n \n \n \n '),ALIGN5,colorFFFF{XG51};
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='9',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:7(白露)、8、15、*18、23(秋分)\n \n \n \n \n '),ALIGN5,colorFFFF{XG51};
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='10',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:8(寒露)、15、23(霜降)、*31\n \n \n \n  \n '),ALIGN5,colorFFFF{XG51};
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='11',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:7(立冬)、8、15、22(小雪)23、*28\n \n \n \n \n \n '),ALIGN5,colorFFFF{XG51};
DRAWTEXT(SYSPARAM(2)=BARPOS AND NUMTOSTR(当前月,0)='12',CLOSE,NUMTOSTR(当前月,0)+'月时间之窗:7(大雪)、8、15、22(冬至)23、*31\n \n \n \n \n \n '),ALIGN5,colorFFFF{XG51};
DRAWTEXTEX(CLOSE,1,1,10,'板块:'+BLKNAME),colorFFFF{X^G*5_1^C^N^{};