////////**** 计算指标变换所需的公共数据 ****
rc:=DYNAINFO(3);//前收
q:=datacount;
hh:=DYNAINFO(5);//最高
LL:=DYNAINFO(6);//最低
f:=max(hh-rc,rc-LL);
ff:=f/rc*100;//最大半振幅
////////**** ㈡在副图2叠加其他指标 ****
//副图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:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
a2:=10;
a3:=90;
mh:=hhv(max(a1,a2),0);
mL:=LLv(min(a2,a1),0);
mb:=(q2h-q2l)/(mH[q]-mL[q]);//缩放比例,选macd或diff来计算缩放比例
my:=(q2h+q2l-mb*(mH[q]+mL[q]))/2;//平移值
趋势线:a1*mb+my,COLORgreen;//副图2显示原来的diff指标线
见底信号:a2*mb+my,COLORYELLOW;//副图2显示原来的dea指标线
顶部: a3*mb+my,COLORYELLOW;
b1:="macd.diff";
b2:="macd.dea";
b3:="macd.macd";
mh:=hhv(max(b1,b3),0);
mL:=LLv(min(b3,b1),0);
mb:=(q2h-q2l)/(mH[q]-mL[q]);//缩放比例,选macd或diff来计算缩放比例
my:=(q2h+q2l-mb*(mH[q]+mL[q]))/2;//平移值
diff:b1*mb+my,COLORWHITE;//副图2显示原来的diff指标线
dea:b2*mb+my,COLORYELLOW;//副图2显示原来的dea指标线
macd:=b3*mb+my;//副图2显示原来的macd指标线
STICKLINE(macd>my,my,macd,1,1),COLORRED;
STICKLINE(macd<my,my,macd,1,1),COLORCYAN;
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
