相關標簽:分時的量比指標公式 、 量比買賣指標公式 、 通達信分時量比指標 、 分時量比指標 大智慧 、 分時量比突破指標 、 分時量比放大指標 、 分時量比指標 、 macd指標詳解 、 macd指標使用技巧 、 macd是什么意思 、

 

VAR1:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),25);
VAR2:=HIGH-REF(HIGH,1);
VAR3:=REF(LOW,1)-LOW;
VAR4:=SUM(IF(VAR2>0 AND VAR2>VAR3,VAR2,0),25);
VAR5:=SUM(IF(VAR3>0 AND VAR3>VAR2,VAR3,0),25);
VAR6:=VAR4*100/VAR1;
VAR7:=VAR5*100/VAR1;
VAR8:=MA(ABS(VAR7-VAR6)/(VAR7+VAR6)*100,115);
VAR9:=(VAR8+REF(VAR8,15))/2;
A:=(VAR7>VAR6 AND VAR7>25 AND VAR6<25);
B:ZIG(3,7.5/5),COLOR00FF00;
G:MA(B,2),COLORYELLOW;
D:=CROSS(B,G),COLORRED;
W:=CROSS(G,B),COLOR00FF00;
E:=REF(INDEXC,1);
F:=SMA(MAX(INDEXC-E,0),3,1)/SMA(ABS(INDEXC-E),3,1);
VAR10:=F AND F<8;
VAR11:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR12:=SMA(VAR11,3,1);
VAR13:=SMA(VAR12,3,1);
VAR14:=VAR13 AND VAR13<20;
MM:=A AND D AND VAR10 AND VAR14 ;
DRAWTEXT(W,HIGH*1.005,'賣' ),COLOR00FF00;
DRAWTEXT(D,LOW*0.998,'買'),COLORWHITE;A1:=REF(DYNAINFO( 7),1);
B1:=SMA(MAX(DYNAINFO( 7)-A1,0),9,1)/SMA(ABS(DYNAINFO( 7)-A1),9,1)*100;
DRAWICON(CROSS(20,B1),L,4);
DRAWICON(CROSS(B1,80),H,5);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,COLOR00FF00;//在分時副圖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<my,my,macd,1,1),COLORCYAN;{程序化交易 www.kzuj.com.cn }