通达信《波浪尺》指标公式源码

Qa:=10;
Kb:=10;
Rc:=1;
Wd:=1;
Ye:=0;
Pf:=1;
Qg:=CONST(FINDHIGH(H,0,Qa*10,Rc));
Zh:=CONST(BARSLAST(Qg=H))+1;
Xi:=CONST(IF(Zh=1,H,REF(H,Zh-1)));
Vj:=CONST(FINDLOW(L,0,Kb*10,Wd));
Mk:=CONST(BARSLAST(Vj=L))+1;
Nl:=CONST(IF(Mk=1,L,REF(L,Mk-1)));
DRAWKLINE(H,O,L,C);
顶位:Xi,COLORRED;
底位:Nl,COLORRED;
波动速率:=100*((顶位-底位)/(IF(Mk>Zh,底位,顶位)))/(Mk-Zh),NODRAW,COLORMAGENTA;
波动幅度:=((顶位-底位)/(IF(Mk>Zh,底位,顶位)))*100;
波动价差:=(顶位-底位)*(IF(Mk>Zh,1,-1));
Ao:=CONST(FINDHIGH(H,0,(IF(Ye>0,Ye,IF(Zh<Mk,Qa,Kb)))*5,Pf));
Bp:=CONST(BARSLAST(Ao=H))+1;
Cq:=CONST(FINDLOW(L,0,(IF(Ye>0,Ye,IF(Zh<Mk,Qa,Kb)))*5,Pf));
Dr:=CONST(BARSLAST(Cq=L))+1;
Es:=CONST(FINDHIGH(H,0,(IF(Ye>0,Ye,IF(Zh<Mk,Qa,Kb)))*5,Pf));
Ft:=CONST(BARSLAST(Ao=H))+1;
Gu:=CONST(IF(Bp=1,H,REF(H,Bp-1)));
Hv:=CONST(FINDLOW(L,0,(IF(Ye>0,Ye,IF(Zh<Mk,Qa,Kb)))*5,Pf));
Iw:=CONST(BARSLAST(Cq=L))+1;
Jx:=CONST(IF(Dr=1,L,REF(L,Dr-1)));
基准值:=IF(波动速率<0,Gu,Jx)COLORRED;
Ky:=IF(波动速率<0,-1,1);
Lz:=(顶位-底位)*(IF(Mk>Zh,1,-1));
分位618:=基准值+(Lz*0.618)COLORRED,DOTLINE;
分位382:=基准值+(Lz*0.382)COLORRED,DOTLINE;
分位500:=基准值+(Lz*0.5)COLORRED,DOTLINE;
分位809:=基准值+(Lz*0.809)COLORRED,DOTLINE;
分位191:=基准值+(Lz*0.191)COLORRED,DOTLINE;
分位100:=基准值+(Lz*1)COLORRED;
分位200:=基准值+(Lz*2)COLORRED;
分位1191:=基准值+(Lz*1.191)COLORRED;
分位1382:=基准值+(Lz*1.382)COLORRED;
分位1500:=基准值+(Lz*1.5)COLORRED;
分位1618:=基准值+(Lz*1.618)COLORRED;
分位1809:=基准值+(Lz*1.809)COLORRED;
分位0236:=基准值+(Lz*0.236)COLORRED;
分位1236:=基准值+(Lz*1.236)COLORRED;
分位2236:=基准值+(Lz*2.236)COLORRED;
分位2191:=基准值+(Lz*2.191)COLORRED;
分位2382:=基准值+(Lz*2.382)COLORRED;
分位2500:=基准值+(Lz*2.5)COLORRED;
分位2618:=基准值+(Lz*2.618)COLORRED;
分位2809:=基准值+(Lz*2.809)COLORRED;
分位300:=基准值+(Lz*3)COLORRED;
Mz:=IF(Mk>Zh,Dr,Bp);
STICKLINE(CURRBARSCOUNT=Mz,基准值,分位300,0,0),COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位500,'---------0.500')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,基准值,'---------BASE')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位618,'---------0.618')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位809,'---------0.809')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位382,'---------0.382')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位191,'---------0.191')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位100,'---------1.000')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位1191,'---------1.191')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位1382,'---------1.382')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位1500,'---------1.500')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位1618,'---------1.618')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位1809,'---------1.809')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位200,'---------2.000')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位2191,'---------2.191')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位2382,'---------2.382')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位2500,'---------2.500')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位2618,'---------2.618')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位2809,'---------2.809')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位300,'---------3.000')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位0236,'---------0.236')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位1236,'---------1.236')COLORRED;
DRAWTEXT(CURRBARSCOUNT=Mz,分位2236,'---------2.236')COLORRED;
Nz:=IF(Mk>Zh,Mk,Zh);
Oq:=IF(Mk>Zh,Zh,Mk);
Pw:=IF(Mk>Zh,L,H);
Qz:=IF(Mk>Zh,H,L);
DRAWLINE(CURRBARSCOUNT=Nz,Pw,CURRBARSCOUNT=Oq,Qz,0)COLORRED;
DRAWLINE(CURRBARSCOUNT=Oq,Qz,CURRBARSCOUNT=Mz,Pw,0)COLORRED;