一致性獲利MACD(5/34/5) 改成大智慧
2019/12/14 18:48:41
公式編寫說明：
input:cur2(120,1,5000),cur3(61,1.5000),day1(60,1,5000);cur1:SYSPARAM(1),linethick0;cur:cur2-cur3+1,linethick0; //cursor 光標(biāo)BWMFI:(HIGH-LOW)*10000/VOL,linethick0;//市場促進(jìn)指數(shù)n1:=day1;k:=day1/60;day2:=round(5*k);day3:=round(34*k);TS:=BARSCOUNT(C);V1:=(H+L)/2;m5:=IF(TS<6,SUM(V1,0)/TS,MA(v1,day2));m34:=IF(TS<35,SUM(V1,0)/TS,MA(v1,day3));diff:m5-m34,colorstick;DEA:IF(TS<6,SUM(DIFF,0)/TS,MA(DIFF,5));今日中間價:(h+l)/2,linethick0;昨日最低價:ref(l,1),linethick0;昨日最高價:ref(h,1),linethick0;k:=(h-l)/3;a1:=h-k;b1:=l+k;if(a1<=o and o<=h and a1<=c and c<=h,11,0)linethick0;if(l<=l and o<=b1 and l<=c and c<=b1,33,0),linethick0;if(b1<=o and o<=a1 and b1<=c and c<=a1,22,0),linethick0;if(l<=o and o<=b1 and a1<=c and c<=h,31,0),linethick0;if(l<=o and o<=b1 and b1<=c and c<=a1,32,0),linethick0;if(b1<=o and o<=a1 and a1<=c and c<=h,21,0),linethick0;if(a1<=o and o<=h and l<=c and c<=b1,13,0),linethick0;if(a1<=o and o<=h and b1<=c and c<=a1,12,0),linethick0;if(b1<=o and o<=a1 and l<=c and c<=b1,23,0),linethick0;
公式源碼示例：
input:cur2(120,1,5000),cur3(61,1.5000),day1(60,1,5000);
cur1:barpos,linethick0;
cur:cur2-cur3+1,linethick0; {cursor 光標(biāo)}
BWMFI:(HIGH-LOW)*10000/VOL,linethick0;{市場促進(jìn)指數(shù)}
n1:=day1;
k:=day1/60;
day2:=INTPART(5*k+0.5);
day3:=INTPART(34*k+0.5);
TS:=BARSCOUNT(C);
V1:=(H+L)/2;
m5:=IF(TS<6,SUM(V1,0)/TS,MA(v1,day2));
m34:=IF(TS<35,SUM(V1,0)/TS,MA(v1,day3));
diff:m5-m34,colorstick;
DEA:IF(TS<6,SUM(DIFF,0)/TS,MA(DIFF,5));
今日中間價:(h+l)/2,linethick0;
昨日最低價:ref(l,1),linethick0;
昨日最高價:ref(h,1),linethick0;
k:=(h-l)/3;
a1:=h-k;
b1:=l+k;
if(a1<=o and o<=h and a1<=c and c<=h,11,0),linethick0;
if(l<=l and o<=b1 and l<=c and c<=b1,33,0),linethick0;
if(b1<=o and o<=a1 and b1<=c and c<=a1,22,0),linethick0;
if(l<=o and o<=b1 and a1<=c and c<=h,31,0),linethick0;
if(l<=o and o<=b1 and b1<=c and c<=a1,32,0),linethick0;
if(b1<=o and o<=a1 and a1<=c and c<=h,21,0),linethick0;
if(a1<=o and o<=h and l<=c and c<=b1,13,0),linethick0;
if(a1<=o and o<=h and b1<=c and c<=a1,12,0),linethick0;
if(b1<=o and o<=a1 and l<=c and c<=b1,23,0),linethick0;
看股吧公 式 www.kanguba.co m
其它股票公式列表
