飞狐分时源码 - 股民大家庭

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";
mh:=hhv(max(a1,a3),0);
mL:=LLv(min(a3,a1),0);

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),COLORCYAN;
//----------( )----------
SZ:=(3*收盘价+2*开盘价+最低价+最高价)/7;
趋势:=指数平滑移动平均(3*SZ-2*移动平均(SZ,2,1),10),COLORYELLOW;

aA1:=趋势;
aA2:=趋势;
aA3:=趋势;
mhA:=最高值(最大值(aA1,aA3),0);
mLA:=最低值(最小值(aA3,aA1),0);

mbA:=(q2h-q2l)/(mHA[q]-mLA[q]);//缩放比例,选macd或diff来计算缩放比例
myA:=(q2h+q2l-mbA*(mHA[q]+mLA[q]))/2;//平移值

diff2:aA1*mbA+myA,Color40FF00{,COLORWHITE};//副图2显示原来的diff指标线