同花顺和主力同步副图源码 EA-万能指标公式

使用说明:
r买入：1 当黄金底出现时《只能“在第二天和第三天买入”》因黄金底公式有未来函数。
r2 当红色的铁买出现时买入80％，KD交金叉时全部买入。
r3 在蓝色柱的上面《出现黄色柱》“为铁买”
r卖出：1`当绿色柱在（55％）中位线以上出现，有白色柱出现，KD交死叉前卖出。
r2`当绿色柱在（55％）中位线以上出现，有白色柱出现，KD交死叉后(三个条件都满足了)必须卖出。

同花顺和主力同步副图源码
rmp0:0,color00fffF;mp100:100,color0000fF;
r资金1:=EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),1),POINTDOT,color00fffF;//资金1线大>50 <20 >昨天[为买],资金1线>50 下穿50线 <昨天 [为卖]
r资金3:EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3),color00fffF;
r DRAWTEXT_FIX(CURRBARSCOUNT=1 ,0.5,0.3,1,’1日资金线’),colorfffffF;
r DRAWTEXT_FIX(CURRBARSCOUNT=1 ,0.57,0.35,0,’3日资金线’),color00fffF;
r X1:=100*(HHV(HIGH,N1)-CLOSE)/(HHV(HIGH,N1)-LLV(LOW,N1));//X1>50>VAR1 VAR1=VAR2<昨天VAR1<昨天X1[为买]
rVar1:=100*(HHV(HIGH,N2)-CLOSE)/(HHV(HIGH,N2)-LLV(LOW,N2));//VAR1>VAR2 VAR2<30,VAR2>昨天 [为调整],VAR1<VAR2 VAR2<30,VAR2>昨天[为出货]
rVar2:=100*(HHV(HIGH,N3)-CLOSE)/(HHV(HIGH,N3)-LLV(LOW,N3));//VAR1=VAR2>70,<昨天VAR1(为买)
rVar3:=Var1-X1;
r Var4:=X1-Var1;//大于0[买]AND,昨天<=0
r Var5:=EMA(EMA(CLOSE,13),13);
r {
r DRAWGBK(资金1>资金3),color000033;DRAWGBK(资金1<资金3),color332200;
r条件:=x1<REF(x1,1); 条件1:=Var1<REF(Var1,1); 条件2:=Var2<REF(Var2,1);
r条件3:=Var1<=Var2; 条件4:=Var1=Var2; 条件5:=(x1=(Var1+Var2)/2);xds:=BETWEEN(VAR4,-10,10);
r条件6:=x1>75; 条件7:=x1<20; 买条件:=2*(条件6 AND 条件 AND 条件1 AND 条件2);
r卖条件:=x1<20 AND 条件<1 AND 条件1<1 AND 条件2<1;fgh:=CROSS(VAR4,1);
r指导:=条件+条件1+条件2+条件6+条件7;
r }
r LOWV:=LLV(LOW,10);
r HIGHV:=HHV(HIGH,13);
r RSV=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100;
r k:=EMA(RSV,3,1),LINETHICK1;
r D:=SMA(K,3,1),LINETHICK1;
r J:=3*K-2*D,POINTDOT;
r //DRAWNUMBER(REF(j,1)>REF(j,2) AND REF(j,1)>100 AND REF(j,1)>j,j,’↖▼’);
r DRAWTEXT(j<REF(j,1)AND 资金1<REF(资金1,1)AND 资金3<REF(资金3,1)AND REF(资金1,1)>REF(资金3,1) AND REF(j,1)>100,REF(j,1),’↖▼’),COLOR00FF00;
r D线小于20:IF(d<20,50,DRAWNULL),COLOR9955ff,LINETHICK4;
r J线上升:IF(J>REF(J,1),J,DRAWNULL),COLOR00FFff,LINETHICK1;
r J线下降:IF(J<REF(J,1),J,DRAWNULL),COLORffFF00,LINETHICK1;
r资金1上升:IF(资金1>REF(资金1,1),资金1,DRAWNULL),COLOR0000ff,LINETHICK1;
r资金1下降:IF(资金1<REF(资金1,1),资金1,DRAWNULL),COLOR00fF00,LINETHICK1;
r MM:=(2*CLOSE+HIGH+LOW+OPEN)/5;
r mpc1:=EMA(mm,2.78)*1.028;
r mpc2:=MA(OPEN,3.2)*1.028;
r资金1线:=IF(资金1>REF(资金1,1),1,0);// 资金1>80 资金1<20
r K大D:=IF(K>d,1,0);//K大D=1[上升趋势],{但K线不能小于昨日K线}
rK大昨:=IF(K>REF(K,1),1,0);//K大昨=1 AND J大昨=1[买] 二项=0[卖]
rJ小KD:=IF(J<K AND J<D,1,0);//判断J线高低度
rJ大昨:=IF(J>REF(J,1),1,0);//J大昨=1 J线小于20 K大昨=1[买]
r主力1:=EMA( (CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*800,2);
r主力2:=MA(主力1,2);
r VAR1:=(CLOSE-MA(CLOSE,21))/MA(CLOSE,21)*100;
r VAR2:=(CLOSE-LLV(LOW,43))/(HHV(HIGH,43)-LLV(LOW,43))*100;
r VAR3:=SMA(VAR2,2,1);
r顶:=100+(-ABS(VAR1)),colorred;
r股价:=SMA(VAR3,2,1);
r底:=ABS(VAR1),colorgreen;
r DRAWTEXT(ISNULL(REFX(&CLOSE,1)),资金1,’↖资金1′),COLOR0000FF;
r DRAWTEXT(ISNULL(REFX(&CLOSE,1)),资金3,’↖资金3′),COLOR00ffFF;
r DRAWTEXT(ISNULL(REFX(&CLOSE,1)),j,’↖J线’+j),COLORffffFF;
r MPC12:=IF(MPC1>REF(MPC1,1),1,0);
r mpckD:=IF(k>REF(k,1),1,0);
r STICKLINE(mpckd>=1AND k<30AND x1<REF(x1,1),50,-20,10,1),COLOR0505ff,LINETHICK1;//红色柱框、买入
rDRAWTEXT((CROSS(0,Var4)AND x1<15),50,’↖明后天卖’),color00ff00,,LINETHICK4;
r asw:=资金1线=0 AND J大昨=0 AND K大昨=0 AND 主力1<主力2 AND mpckd<=0 AND REF(x1,1)<=10 AND
r X1<=15 AND mpckd<=0 AND k>50AND x1>REF(x1,1);
r STICKLINE(X1<=15AND 资金1线<1,125,117,8,0),color999999;//第五排白色,白色点高位要变盘了卖点;
rSTICKLINE(asw ,117,109,8,0),color009900;//浅绿色［有蓝色小卖、无蓝色、有绿色为大卖］
rSTICKLINE(mpckd<=0 AND mpckD=0,15,7.5,8,0),COLOR09ff00,LINETHICK2;//第一排绿色;
rSTICKLINE(Var4>0AND mpc12>0,7.5,0,8,0),colorf000ff,LINETHICK1;//第二排的粉红色,粉红色点持股点;
rSTICKLINE(X1<=10,-7.5,-0,8,0),colorff0000,LINETHICK2;//第三排蓝色,蓝色点加白色点为卖;
rSTICKLINE(X1<REF(X1,1),-7.5,-15,8,0),color0000FF,LINETHICK2;//第四排的红色,红色点加粉红色点加黄色点为持股点;
rSTICKLINE(VAR4>=0AND k>REF(k,1)AND k<35,-17,-25,8,0),color00fffF,LINETHICK2;//第五排的黄色,黄色点加红色点为买;
r卖号:=mpckd<=0 AND mpckD=0;卖号1:=X1<=10 AND asw;
r STICKLINE(卖号 AND REF(卖号,1)=0 AND 卖号1,50,100,6,1),colorff000F,LINETHICK4;
r VARF:=TROUGHBARS(3,15,1)<1;
r VAR11:=IF(VARF=1,50,0);
r EE:=FILTER(VARF=1,5);
r STICKLINE(EE>=1,125,117,8,0),coloryellow;//↖明天买
rDRAWTEXT(FILTER(VARF=1,3),116,’↖明天买’),coloryellow,低位;
rPARTLINE(j,j>REF(j,1),RGB(255,0,150),j<REF(j,1),RGB(0,255,200),1),LINETHICK1;
r控盘:=(Var5-REF(Var5,1))/REF(Var1,1)*500,colorffcccc;
r控盘1:=REF(控盘,1); 控盘2:=IF(CROSS(控盘1,控盘),4,0)AND(D-K)>2;
r PARTLINE(资金1,资金1>REF(资金1,1),RGB(250,0,0),资金1<REF(资金1,1),RGB(0,205,200),1),LINETHICK1;
r bb13:=ATAN(EMA(VR,3)-REF(EMA(VR,3),1))*3.1416*10;