林志颖的音乐:飞狐的分时副图指标

1：坚决支持原码，方便学习与交流，向原码作者致敬。
2：进入管理--系统选项---图形,实时图成交量叠加量比取消。
3：按小键盘上的*号键，让分时显示两个副图，本公式在第二个副图上显示。
(公式要选择主图叠加)


{分时副图RSI，KDJ}
r:=DYNAINFO(3);q:=datacount;
hh:=DYNAINFO(5);
LL:=DYNAINFO(6);
f:=max(hh-r,r-LL);
q1:=r-f*1.01;//主图下边线
q2:=r-2*f*1.0125;//副图1下边线(0位线)
q3:=r-3*f*1.014;//副图2下边线(0位线)
{有了Q1、Q2、Q3，叠加副图指标也就容易了}
//在副图1叠加RSI
r:="rsi.rsi1";
rh:=hhv(r,0);
rL:=LLv(r,0);
rb:=(q1-q2)/(rh-rL);
ry:=(q1+q2-rb*(rh+rL))/2;
r*rb[q]+ry[q];
//在副图2叠加kd

FILLRGN(1,q2,q3),colorblack;
cz:=(q2-q3)/6;
q3,POINTDOT,,COLORWHITE;
q3+cz,POINTDOT,color0000cc;
q3+2*cz,POINTDOT,color0000cc;
q3+3*cz,POINTDOT,color0000cc;
q3+4*cz,POINTDOT,color0000cc;
q3+5*cz,POINTDOT,color0000cc;

k:="kdj.k";
d:="kdj.d";
kh:=hhv(max(d,k),0);
kL:=LLv(min(k,d),0);
kb:=(q2-q3)/(kh-kL);
ky:=(q2+q3-kb*(kh+kL))/2;
k*kb[q]+ky[q];
d*kb[q]+ky[q];





{分时副图大盘，MACD}

if datatype>=0 then exit;
////////****** 计算指标变换所需的公共数据 *******
rc:=DYNAINFO(3);//前收
q:=datacount;
hh:=DYNAINFO(5);//最高
LL:=DYNAINFO(6);//最低
f:=max(hh-rc,rc-LL);
ff:=f/rc*100;//最大半振幅
////////////////////////////////////////////////////////////////
////////******　㈠副图1叠加大盘分时线******（共3个步骤完成指标变换）
//副图1变换所需数据
q1h:=if(ff<1,0.9898*rc,rc-f*1.02);//分时副图1最高位置
q1l:=if(ff<1,0.9798*rc,rc-2*f*1.016);//分时副图1最低位置，同时也是分时副图2最高位置

//①以下计算大盘分时线的最大、最小值
R:=INDEXC;
Rh:=hhv(r,0);//最大值
RL:=LLv(r,0);//最小值
//②计算缩放比例、平移值
Rb:=(q1h-q1l)/(RH[q]-RL[q]);//缩放比例
Ry:=(q1h+q1l-rb*(RH[q]+RL[q]))/2;//平移值
//③变换原来的大盘分时到分时副图1
r*rb+ry,COLORRED;//在分时副图1，显示变换后的大盘分时

/////////////////////////////////////////////////////////////////

////////********　㈡在副图2叠加macd　********
//副图2变换所需数据
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

公式原码(设为主图)
rc:=DYNAINFO( 3);
s2:=sma(c,2,1);
s6:=sma(c,6,1);
dk:=2*(s2-s6);
STICKLINE(dk>0,rc,rc+dk,0,1),COLORRED;
STICKLINE(dk<0,rc,rc+dk,0,1),COLORCYAN;