|
|

楼主 |
发表于 2023-12-18 08:35
来自手机
|
显示全部楼层
{MACD起飞 副图公式 源码}
N1:=6;N2:=12;
Q1:=(CLOSE*VOL)/SUM(VOL,100);
A1:=MA(Q1,N1);
ZM1:=SMA(A1,N1,1);
ZM2:=SMA(A1,N2,1);
ZMF:(ZM1-ZM2)*10000,COLORSTICK,LINETHICK2;
FM:SMA(ZMF,3,1);
T1:=IF(C>MA(CLOSE,13),1,0);
T2:=IF(C<MA(CLOSE,13),1,0);
T3:=COUNT(IF(ZMF>0 AND ZMF>REF(ZMF,1),1,0),4)>=4;
T4:=COUNT(IF(ZMF<0,1,0),5)>=5;
T5:=FILTER(T1 AND T4,20);
T6:=FILTER(T2 AND T3,20);
DRAWTEXT(FILTER(T5,4),ZMF-3,'整理坑'),COLORBLUE;
STICKLINE(FILTER(T5,4),0,FM,1,0),COLORBLUE;
起飞线:SUM(EMA((C+L)/2,2),5)/10.158,COLORRED;
均H线:LLV(SUM( EMA((C+L)/2,2),5)/10.158,4),COLORFF00FF;
水平线:LLV(SUM( EMA((C+L)/2,2),5)/10.158,10),COLORFFFFFF;
QRX:EMA(起飞线,21),COLORBLUE;
STICKLINE(水平线<起飞线,起飞线,水平线,0.1,0),COLORFFCCAA;
STICKLINE(均H线<起飞线,起飞线,均H线,0.1,0),COLORRED;
VAR1:=2*MA(LLV((C+L)/2,8)*1.1,13)-EMA((C+L)/2,3)-((C+L)/2)*0.1;
VAR2:=IF((EMA((C+L)/2,3)-VAR1)*5>0,POW((EMA((C+L)/2,3)-VAR1)*5,2)/10,-1*POW((EMA((C+L)/2,3)-VAR1)*5,2)/10);
VAR3:=IF(VAR2>0,VAR2-0,0);
STICKLINE(VAR3>0 AND REF(VAR3,1)=0 AND (C+L)/2>MA((C+L)/2,8),
QRX,QRX+0.2,4,0),COLORFFAACC;
DRAWTEXT(VAR3>0 AND REF(VAR3,1)=0 AND (C+L)/2>MA((C+L)/2,8),
QRX+0.35,'起飞'),LINETHICK3,COLORMAGENTA;
{DRAWICON(VAR3>0 AND REF(VAR3,1)=0 AND (C+L)/2>MA((C+L)/2,8),QRX+1,1);}; |
|
|