分时MACD

股市中没有一定的技术是不可以的，但技术不是万能的。运用之妙在于领悟。支持理想，愿飞狐能为大家带来快乐！　

rc:=DYNAINFO(3);//前收
q:=datacount;
hh:=DYNAINFO(5);//最高
LL:=DYNAINFO(6);//最低
f:=max(hh-rc,rc-LL);
ff:=f/rc*100;//最大半振幅
q2h:=if(ff<1,0.9797*rc,rc-2*f*1.016);//分时副图2最高位置
q2l:=if(ff<1,0.9697*rc,rc-3*f*1.011);//分时副图2最低位置
//以下清除原始的指标线，并画横坐标线
FILLRGN(1,q2h,q2l),colorblack;
cz:=(q2h-q2l)/6;
q2l,POINTDOT,,COLORWHITE;
q2l+cz,POINTDOT,color0000cc;
q2l+2*cz,POINTDOT,color0000cc;
q2l+3*cz,POINTDOT,color0000cc;
q2l+4*cz,POINTDOT,color0000cc;
q2l+5*cz,POINTDOT,color0000cc;
a1:="macd.diff";
a2:="macd.dea";
a3:="macd.macd";
a4:="rsi.rsi1";
a5:="rsi.rsi2";
mh:=hhv(max(a1,a3),0);
mL:=LLv(min(a3,a1),0);
ch:=hhv(max(a4,a5),0);
cL:=LLv(min(a5,a4),0);
mc:=(q2h-q2l)/(cH[q]-cL[q]);
md:=(q2h+q2l-mc*(cH[q]+cL[q]))/2;
mb:=(q2h-q2l)/(mH[q]-mL[q]);//缩放比例,选macd或diff来计算缩放比例
my:=(q2h+q2l-mb*(mH[q]+mL[q]))/2;//平移值
diff:a1*mb+my,COLORWHITE;//副图2显示原来的diff指标线
dea:a2*mb+my,COLORYELLOW;//副图2显示原来的dea指标线
macd:=a3*mb+my;//副图2显示原来的macd指标线
STICKLINE(macd>my,my,macd,1,1),COLORRED;
STICKLINE(macd<my,my,macd,1,1),COLOR00FF00;
obv:a4*mc+md,COLORFFEE00;
k1:=hhv(h,0);
k2:=llv(l,0);
k3:=barslast(OPENMINUTES(TIME)<=240);
t1:=barslast(OPENMINUTES(TIME)<=60);
DRAWSL(OPENMINUTES(TIME)>=60,ref(k1,t1),0,k3,2),LINEDOT;
DRAWSL(OPENMINUTES(TIME)>=60,ref(k2,t1),0,k3,2),LINEDOT;
DRAWICON(OPENMINUTES(TIME)>60 and cross(c,ref(k1,t1)+0.001),ref(k1,t1),1);
PK:=VOL*(OPEN+CLOSE+HIGH+LOW)/4;
PK1:=IF(VOL>0,PK/VOL,(OPEN+CLOSE+HIGH+LOW)/4);
C11:=PK1;
A01:=(C11-LLV(C11,75))/(HHV(C11,75)-LLV(C11,75));
A11:=SMA(A01,13,1);
A21:=SMA(A11,13,1);
A31:=3*A11-2*A21;
A41:=2*A31-0.5;
ZS:=DYNAINFO(3)*0.95;
选1:=C11*(1-(A41-A21)/40);
选2:=CROSS(C11,选1) AND CLOSE/REF(CLOSE,1)<1.03;
选3:IF(选2,ZS*1.03,ZS),colorFF00;