大智慧顺意操盘指标公式源码[大智慧公式]
[p=30, 2, left][b]大智慧顺意操盘公式源码：[/b][/p][p=30, 2, left]{参数:N:5,250,14;}
[/p][p=30, 2, left][b]源码：[/b][/p]
[p=30, 2, left][b][code]
X:=(CLOSE+HIGH+LOW)/3;
A:=EMA(X,10);
B:=ref(A,1);
if(A>B,A,0),pointdot,LINETHICK5,COLOR0000FF;
if(B>A,B,0),pointdot,LINETHICK5,COLOR00FF00;
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
MTM:=C-ref(C,1);{追加用}
DY:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);{买、追加用}
DIFF:=( EMA(CLOSE,7) - EMA(CLOSE,19)),COLORwhite;
DEA:=EMA(DIFF,9),COLORf00ff0 ;
MACD:=0.90*(DIFF-DEA), COLORSTICK;
tj:=(diff>=dea);
tj1:=(diff>=0);
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.cxh99.com',CURRENTTIME>180000 and (CXH=4 OR CXH=9));
STICKline(tj,h,l,0.5,0),COLORyelLOW;
STICKline(tj,o,c,4,0),COLORyelLOW;
STICKline(tj1 and tj,h,l,0.5,0),colorf00ff0;
STICKline(tj1 and tj,o,c,5,1),colorf00ff0;
STICKline(diff<dea,h,l,0.5,0),colorf0f000;
STICKline(diff<dea,o,c,3,0),colorf0f000;
{买}
DX:=LLV(J,2)=LLV(J,8);
买:IF(CROSS(J,ref(J+0.01,1)) AND DX AND J<20,1,0),COLORRED;
买1:=IF(LLV(DY,2)=LLV(DY,7) AND COUNT(DY<0,2) AND CROSS(DY,MA(DY,2)),1,0);
DRAWTEXT(买=1,LOW-0.02,'买'),COLORRED;
STICKLINE(买=1,H,L,0,1),COLORRED,LINETHICK2;
STICKLINE(买=1,O,C,4,1),COLORRED,LINETHICK2;
DRAWICON(买=1 AND 买1=1,LOW*0.97,1);
DRAWTEXT(买=1 AND 买1=1,LOW*0.968,'●'),COLORWHITE;
DRAWTEXT(买=1 AND 买1=1,LOW*0.968,'优'),COLOR3300FF,LINETHICK2; {本文来至CXH99.COM}
{卖}
卖:IF(HHV(DY,2)=HHV(DY,7) AND COUNT(DY>50,2) AND CROSS(MA(DY,2),DY),1,0),COLORBLUE;
DRAWTEXT(卖=1,HIGH*1.02,'卖'),COLORBLUE;
STICKLINE(卖=1,H,L,0,1),COLORBLUE,LINETHICK2;
STICKLINE(卖=1,O,C,4,1),COLORBLUE,LINETHICK2;
{减仓}
DZ:=HHV(J,2)=HHV(J,8) AND J>80;
注意:IF(CROSS(ref(J-0.01,1),J) AND ref(DZ,1),1,0),COLORYELLOW;
DRAWTEXT(注意=1 AND CLOSE<OPEN,HIGH*1.02,'减'),COLORYELLOW;
STICKLINE(注意=1,H,L,0,1),COLORYELLOW,LINETHICK2;
STICKLINE(注意=1,O,C,4,1),COLORYELLOW,LINETHICK2;
{买跌}
{N:5,250,14;}
KA:=N/2;
DTPL:=MA(C,N)>MA(C,N*1.5) AND MA(C,N*1.5)>MA(C,N*3) AND MA(C,3)>MA(C,N*6);
连续走强:=COUNT(C>MA(C,N),KA)=KA;
ZQSJ:=BARSLAST(连续走强);
下穿:=CROSS(MA(C,N),C);
GL:=MA(C,N/2)/MA(C,N*2)>=1.05;
买跌A:=(下穿 AND ZQSJ<=3 AND DTPL AND GL)*N;
DRAWTEXT(买跌A>0 AND 卖=0,LOW-0.04,'跌'),COLOR00FF00;
买跌:IF((下穿 AND ZQSJ<=3 AND DTPL AND GL)*N,1,0),COLOR00FF00;
STICKLINE(买跌A>0 AND 卖=0,HIGH,LOW,0,1),COLOR00FF00,LINETHICK2;
STICKLINE(买跌A>0 AND 卖=0,OPEN,CLOSE,4,1),COLOR00FF00,LINETHICK2;
{老鼠仓}
AA1:=AMOUNT/V;
BB1:=LOW<AA1*0.9;
CC1:=(CLOSE-ref(CLOSE,1))/ref(CLOSE,1)*100>1.2;
DD1:=LOW<MA(CLOSE,5)*0.921;
EE1:=V<MA(V,5)*1.5;
老鼠仓:IF(BB1 AND CC1 AND DD1 AND EE1,1,0),COLOR0099FF;
DRAWTEXT(老鼠仓,l*0.96,'鼠'),COLOR0099FF;
STICKLINE(老鼠仓,H,L,0,1),COLOR0099FF,LINETHICK2;
STICKLINE(老鼠仓,O,C,4,1),COLOR0099FF,LINETHICK2; {本文来至CXH99.COM}
{加仓}
多:=EMA(CLOSE,3);
空:=EMA(CLOSE,5);
均衡:=EMA(空,5);
VARF1:=COUNT(CROSS(多,均衡),2)=1;
VARF2:=COUNT(CROSS(空,均衡),2)=1;
ADD:=FILTER(VARF1 AND VARF2,2);
X1:=IF(CLOSE>=ref(CLOSE,1) AND ref(CLOSE,1)>ref(OPEN,1),1,0);
X2:=IF(CLOSE>=ref(OPEN,1) AND ref(CLOSE,1)<ref(OPEN,1),1,0);
DRAWTEXT(ADD AND A>=ref(B,1) AND (X1=1 OR X2=1) AND 买<>1,LOW-0.03,'加'),COLORFF00FF;
STICKLINE(ADD AND 买<>1,HIGH,LOW,0,1),COLORFF00FF,LINETHICK2;
STICKLINE(ADD AND 买<>1,OPEN,CLOSE,4,1),COLORFF00FF,LINETHICK2;
加仓1:IF(ADD AND 买<>1,1,0),COLORFF00FF;
{追加} {本文来至CXH99.COM}
ZX:=100*EMA(EMA(MTM,12),12)/EMA(EMA(ABS(MTM),12),12);
DXGD:=LLV(DY,2)=LLV(DY,5) AND CROSS(DY,MA(DY,2));
加仓2:IF(DXGD AND BETWEEN(DY,0,60) AND ZX>0 AND 加仓1<>1 AND (X1=1 OR X2=1) AND 买<>1,1,0),COLORFFFFFF;
DRAWTEXT(FILTER(加仓2 AND A>=ref(B,1) AND ZX>ref(ZX,1),5) AND 买<>1,LOW-0.03,'加'),COLORFFFFFF;
STICKLINE(加仓2 AND 买<>1,H,L,0,1),COLORFFFFFF,LINETHICK2;
STICKLINE(加仓2 AND 买<>1,O,C,4,1),COLORFFFFFF,LINETHICK2; {内容来至程序化交易网 CXH99.COM}
{完美分割}
Z:INTPART(c/0.913 )*0.913,pointdot,LINETHICK2,colorgreen;
Z+(0.913),pointdot,LINETHICK2,colorgreen ;
Y:INTPART(c/3.652 )*3.652,pointdot,LINETHICK2,colorred;
Y+(3.652),pointdot,LINETHICK2,colorred;
{画线}
mj:=ZIG(3,10)>ref(ZIG(3,10),1) AND ref(ZIG(3,10),1)>ref(ZIG(3,10),2) AND ref(ZIG(3,10),2)<ref(ZIG(3,10),3) AND ZIG(3,5)>ref(ZIG(3,5),1) AND ref(ZIG(3,5),1)>ref(ZIG(3,5),2) AND ref(ZIG(3,5),2)<ref(ZIG(3,5),3)*48;
mc:=ZIG(3,10)<ref(ZIG(3,10),1) AND ref(ZIG(3,10),1)<ref(ZIG(3,10),2) AND ref(ZIG(3,10),2)>ref(ZIG(3,10),3) AND ZIG(3,5)<ref(ZIG(3,5),1) AND ref(ZIG(3,5),1)<ref(ZIG(3,5),2) AND ref(ZIG(3,5),2)>ref(ZIG(3,5),3)*(-47);
va1:=FILTER(llv(c,5)=llv(c,110) and mj,20);
va2:=FILTER(HHV(c,5)=HHV(c,110) and mc,20);
DRAWLINE(va2,HHV(h,5),va1,HHV(h,5),1),colorwhite;
DRAWLINE(va2,llv(l,5),va1,llv(l,5),1),color00ff00;
DRAWLINE(c=HHV(c,60),HHV(h,3),c=HHV(c,30) and c<HHV(c,45),HHV(HIGH,3),1),coloryelLOW;
DRAWLINE(c=LLV(c,60),LOW,c=LLV(c,30) and c>llv(c,45),LLV(LOW,3),1),colorffcc66;
DRAWLINE(HIGH>=HHV(HIGH,60),HIGH,LOW<=LLV(LOW,60),HHV(HIGH,6),1),colorffcccc;
DRAWLINE(LOW<=LLV(LOW,60),LOW,HHV(c,6)>=HHV(h,60),LLV(LOW,6),1),colorblue;
va11:=HIGH>=HHV(HIGH,60);
v1:=(ref(va11,1)>0 and va11<1);
va12:=LOW<=LLV(LOW,60);
v2:=ref(va12,1)>0 and va12<1;
DRAWLINE(v1,HIGH,v2,HHV(HIGH,6),1),colorffff33;
DRAWLINE(v2,LOW,v1,LLV(LOW,6),1),color0099ff;
[/code]
[/b][/p][p=30, 2, left][b][attach]5847[/attach]
[/b][/p] 感謝分享、版主辛苦了
页:
[1]