 | |  |  |
飞狐主图叠加源码公式:
DIR1:=ABS(CLOSE-REF(CLOSE,5));
VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);
ER1:=DIR1/VIR1;
CS1:=ER1*(0.8-2/8)+2/8;
CQ1:=CS1*CS1;
AMA20:EMA(DMA(CLOSE,CQ1),20),color8987,LINEDOT;
DIR2:=ABS(CLOSE-REF(CLOSE,5));
VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);
ER2:=DIR2/VIR2;
CS2:=ER2*(0.8-2/24)+2/24;
CQ2:=CS2*CS2;
AMA2:EMA(DMA(CLOSE,CQ2),2),COLORBLUE,LINETHICK2;
AMA3:PARTLINE(AMA2/REF(AMA2,1)>0.997,AMA2),COLORYELLOW,LINETHICK2;
AMA4:PARTLINE(AMA2/REF(AMA2,1)>1.001,AMA2),colormagenta,LINETHICK4;
w:=BARSSINCE(BACKSET(BARSTATUS=2,n));{定义叠加区间(从最后周期往前N天}
{w:=barslast(BARPOS=SYSPARAM(2));N:=SYSPARAM(3)-SYSPARAM(2);}
j:=w*0;{叠加区间的显示参数，规定了只在叠加区间才显示图象}
{以下为要叠加的指标(MACD)。只显示数值，不画曲线；颜色和后面的叠加线对应}
diff:"macd.diff",linethick0,COLORWHITE;
dea:"macd.dea",linethick0,COLORBLUE;
macd:"macd.macd",linethick0,COLORMAGENTA;
{以下求叠加比和叠加位移量}
hh:=REFX(HHV(HIGH,n),n);{K线在叠加区间内的最大值}
LL:=REFX(LLV(LOW,N),n);{K线在叠加区间内的最小值}
hf:=REFX(HHV(MAX(MAX(diff,dea),macd),n),n);{叠加指标在叠加区间内的最大值}
Lf:=REFX(LLV(MIN(MIN(diff,dea),macd),n),n);{叠加指标在叠加区间内的最小值}
b:=(hh-LL)/(hf-Lf);{叠加比}
fc:=((hh+LL)-(hf+Lf)*b)/2;{叠加位移量}
{以下为叠加指标在叠加后的曲线数值}
df:=diff*b+fc+j;
da:=dea*b+fc+j;
u:=macd*b+fc+j;
{画叠加后的MACD竖线}
STICKLINE(w>=0 and u>fc,u,fc,0.01,1),color0099ff,POINTDOT;
STICKLINE(w>=0 and u<fc,u,fc,0.01,1),colorff9933,COLORGREEN ,POINTDOT;
{以下画分段线，目的是不显示叠加后曲线数值}
PARTLINE(w>=0,fc),COLORCYAN,POINTDOT;
均5:MA(CLOSE,5),COLOREE8400,COLORFF99FF,LINEDOT; |
| |  | |  |
|
