图片
打开今日头条查看图片详情
{SHORT,LONG,MID,K}
N1:=K*SHORT;
N2:=K*LONG;
N3:=K*MID;
X:=C;
{MACD}
DIF:=EMA(C,SHORT)-EMA(C,LONG);
DEA:=EMA(DIF,MID);
MACD:=(DIF-DEA)*2;
{变量}
A1:=(N1-1)/(N1+1);
B1:=2/(N1+1);
A2:=(N2-1)/(N2+1);
B2:=2/(N2+1);
A3:=(N3-1)/(N3+1);
B3:=2/(N3+1);
RES:=REF(EMA(X,N1),1);
REL:=REF(EMA(X,N2),1);
RDIF:=REF(DIF,1);
RMACD:=REF(MACD,1);
RDEA:=REF(DEA,1);
{参数公式：Y=EMA(X,N)=(2*X+Y'*(N-1))/(N+1)=X*2/(N+1)+Y'*(N-1)/(N+1)}
{DIF拐头}
{
计算过程
EMA(X,N1)=B1*X+A1*RES;
EMA(X,N2)=B2*X+A2*REL;
DIF=EMA(X,N1)-EMA(X,N2)=B1*X+A1*RES-B2*X-A2*REL=(B1-B2)*X+A1*RES-A2*REL
DIF=RDIF
X*(B1-B2)+A1*RES-A2*REL=RDIF
X=(RDIF-A1*RES+A2*REL)/(B1-B2)
}
DIFP:(RDIF-A1*RES+A2*REL)/(B1-B2);
{MACD柱子拐头}
{参数公式：Y=EMA(X,N)=(2*X+Y'*(N-1))/(N+1)=X*2/(N+1)+Y'*(N-1)/(N+1)}
{
计算过程
DEA=EMA(DIF,MID)=DIF*B3+RDEA*A3=((B1-B2)*X+A1*RES-A2*REL)*B3+RDEA*A3=X*(B1-B2)*B3+A1*RES*B3-A2*REL*B3+RDEA*A3
MACD=(DIF-DEA)*2
DIF-DEA=(B1-B2)*X+A1*RES-A2*REL-X*(B1-B2)*B3-A1*RES*B3+A2*REL*B3-RDEA*A3
=X*(B1-B2)*(1-B3)+A1*RES-A2*REL-A1*RES*B3+A2*REL*B3-RDEA*A3
MACD=(DIF-DEA)*2=RMACD
X*(B1-B2)*(1-B3)+A1*RES-A2*REL-A1*RES*B3+A2*REL*B3-RDEA*A3=RMACD/2
X=(RMACD/2-A1*RES+A2*REL+A1*RES*B3-A2*REL*B3+RDEA*A3)/((B1-B2)*(1-B3))
}
MACDP:(RMACD/2-A1*RES+A2*REL+A1*RES*B3-A2*REL*B3+RDEA*A3)/((B1-B2)*(1-B3));
{双线交叉}
{
计算过程
DIF=DEA
(B1-B2)*X+A1*RES-A2*REL=X*(B1-B2)*B3+A1*RES*B3-A2*REL*B3+RDEA*A3
(B1-B2)*X-X*(B1-B2)*B3=A1*RES*B3-A2*REL*B3+RDEA*A3-A1*RES+A2*REL
X*(B1-B2)*(1-B3)=A1*RES*B3-A2*REL*B3+RDEA*A3-A1*RES+A2*REL
X=(A1*RES*B3-A2*REL*B3+RDEA*A3-A1*RES+A2*REL)/((B1-B2)*(1-B3))
}
CROSSP:(A1*RES*B3-A2*REL*B3+RDEA*A3-A1*RES+A2*REL)/((B1-B2)*(1-B3));
{DIF穿越0轴}
{
计算过程
DIF=0
(B1-B2)*X+A1*RES-A2*REL=0
X=(A2*REL-A1*RES)/(B1-B2)
}
ZEROP:(A2*REL-A1*RES)/(B1-B2);
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。信钰证券提示：文章来自网络，不代表本站观点。
