btxc1:=CLOSE;btxo1:=OPEN;
ss1:=MAX(btxc1,btxo1),LINETHICK0;
xx1:=MIN(btxc1,btxo1),LINETHICK0;
zz1:=0*CLOSE,LINETHICK0;
btxy:=IF(CLOSE>OPEN,1,0)+IF(CLOSE<OPEN,4,0),LINETHICK0;
for btxi=2 to DATACOUNT do begin
IF btxy[btxi-1]=1 or btxy[btxi-1]=0 then begin
IF btxc1[btxi]>ss1[btxi-1] then begin
ss1[btxi]:=btxc1[btxi];
xx1[btxi]:=ss1[btxi-1];
zz1[btxi]:=0;
btxy[btxi]:=1;
end;else
IF btxc1[btxi]<xx1[btxi-1] then begin//=
ss1[btxi]:=xx1[btxi-1];
xx1[btxi]:=btxc1[btxi];
zz1[btxi]:=ss1[btxi-1];
btxy[btxi]:=4;
end;else begin
ss1[btxi]:=ss1[btxi-1];
xx1[btxi]:=btxc1[btxi];
zz1[btxi]:=0;
btxy[btxi]:=1;
end;end;
IF btxy[btxi-1]=4 or btxy[btxi-1]=0 then begin
IF btxc1[btxi]<xx1[btxi-1] then begin
ss1[btxi]:=xx1[btxi-1];
xx1[btxi]:=btxc1[btxi];
zz1[btxi]:=0;
btxy[btxi]:=4;
end;else
IF btxc1[btxi]>ss1[btxi-1] then begin//=
ss1[btxi]:=btxc1[btxi];
xx1[btxi]:=ss1[btxi-1];
zz1[btxi]:=xx1[btxi-1];
btxy[btxi]:=1;
end;else begin
ss1[btxi]:=btxc1[btxi];
xx1[btxi]:=xx1[btxi-1];
zz1[btxi]:=0;
btxy[btxi]:=4;
end;
end;
end;
btxk1:=(btxy=1 and REF(btxy=1,1) and CLOSE>REF(ss1,1))*1;
btxk2:=(btxy=1 and REF(btxy=1,1) and CLOSE<=REF(ss1,1) and CLOSE>=REF(xx1,1))*2;
btxk3:=(btxy=4 and REF(btxy=1,1) and CLOSE<REF(xx1,1))*3;
btxk4:=(btxy=4 and REF(btxy=4,1) and CLOSE<REF(xx1,1))*4;
btxk5:=(btxy=4 and REF(btxy=4,1) and CLOSE<=REF(ss1,1) and CLOSE>=REF(xx1,1))*5;
btxk6:=(btxy=1 and REF(btxy=4,1) and CLOSE>REF(ss1,1))*6;
btxk7:=(btxy=1 and REF(btxy=0,1))*1;//6
btxk8:=(btxy=4 and REF(btxy=0,1))*4;
btxkk:=IF(BARPOS=1,btxy,btxk1+btxk2+btxk3+btxk4+btxk5+btxk6+btxk7+btxk8),LINETHICK0;//显示
maxg:=MAX(MAX(ss1,xx1),zz1);ming:=MIN(MIN(ss1,xx1),zz1);
zxng:=(ss1<>maxg and ss1<>ming)*ss1+(xx1<>maxg and xx1<>ming)*xx1+(zz1<>maxg and zz1<>ming)*zz1;
btxp1:=(ss1=xx1)*ss1;btxp2:=(ss1=zz1)*zz1;btxp3:=(xx1=zz1)*xx1;
btxpp:=IF(btxp1=0 and btxp2=0,btxp3,IF(btxp1,btxp1,btxp2));
STICKLINE(zz1=0 and btxy=1,ss1,xx1,8,0),COLORAA;//yellow
STICKLINE(zz1=0 and btxy=1,ss1,xx1,7,0),COLORBB;
STICKLINE(zz1=0 and btxy=1,ss1,xx1,6,0),COLORBB;
STICKLINE(zz1=0 and btxy=1,ss1,xx1,5,0),COLORCC;
STICKLINE(zz1=0 and btxy=1,ss1,xx1,4,0),COLORDD;
STICKLINE(zz1=0 and btxy=1,ss1,xx1,3,0),COLOREE;
STICKLINE(zz1=0 and btxy=1,ss1,xx1,2,0),COLORFF;
STICKLINE(zz1=0 and btxy=1,ss1,xx1,1,0),COLORFF;
STICKLINE(zz1=0 and btxy=4,ss1,xx1,8,0),COLOR8800;//blue
STICKLINE(zz1=0 and btxy=4,ss1,xx1,7,0),COLOR9900;
STICKLINE(zz1=0 and btxy=4,ss1,xx1,6,0),COLORAA00;
STICKLINE(zz1=0 and btxy=4,ss1,xx1,5,0),COLORBB00;
STICKLINE(zz1=0 and btxy=4,ss1,xx1,4,0),COLORCC00;
STICKLINE(zz1=0 and btxy=4,ss1,xx1,3,0),COLORDD00;
STICKLINE(zz1=0 and btxy=4,ss1,xx1,2,0),COLOREE00;
STICKLINE(zz1=0 and btxy=4,ss1,xx1,1,0),COLORFF00;
STICKLINE(zz1>0 and btxpp=0,maxg,zxng,8,0),COLORAA;//YELLOW
STICKLINE(zz1>0 and btxpp=0,maxg,zxng,7,0),COLORBB;
STICKLINE(zz1>0 and btxpp=0,maxg,zxng,6,0),COLORBB;
STICKLINE(zz1>0 and btxpp=0,maxg,zxng,5,0),COLORCC;
STICKLINE(zz1>0 and btxpp=0,maxg,zxng,4,0),COLORDD;
STICKLINE(zz1>0 and btxpp=0,maxg,zxng,3,0),COLOREE;
STICKLINE(zz1>0 and btxpp=0,maxg,zxng,2,0),COLORFF;
STICKLINE(zz1>0 and btxpp=0,maxg,zxng,1,0),COLORFF;
STICKLINE(zz1>0 and btxpp=0,ming,zxng,8,0),COLOR8800;//BLUE
STICKLINE(zz1>0 and btxpp=0,ming,zxng,7,0),COLOR9900;
STICKLINE(zz1>0 and btxpp=0,ming,zxng,6,0),COLORAA00;
STICKLINE(zz1>0 and btxpp=0,ming,zxng,5,0),COLORBB00;
STICKLINE(zz1>0 and btxpp=0,ming,zxng,4,0),COLORCC00;
STICKLINE(zz1>0 and btxpp=0,ming,zxng,3,0),COLORDD00;
STICKLINE(zz1>0 and btxpp=0,ming,zxng,2,0),COLOREE00;
STICKLINE(zz1>0 and btxpp=0,ming,zxng,1,0),COLORFF00;
STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,8,0),COLORAA;//YELLOW
STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,7,0),COLORBB;
STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,6,0),COLORBB;
STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,5,0),COLORCC;
STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,4,0),COLORDD;
STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,3,0),COLOREE;
STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,2,0),COLORFF;
STICKLINE(zz1>0 and btxpp and btxy=1,maxg,ming,1,0),COLORFF;
STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,8,0),COLOR8800;//BLUE
STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,7,0),COLOR9900;
STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,6,0),COLORAA00;
STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,5,0),COLORBB00;
STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,4,0),COLORCC00;
STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,3,0),COLORDD00;
STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,2,0),COLOREE00;
STICKLINE(zz1>0 and btxpp and btxy=4,maxg,ming,1,0),COLORFF00;
STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,8,0),COLORAA;//YELLOW
STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,7,0),COLORBB;
STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,6,0),COLORBB;
STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,5,0),COLORCC;
STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,4,0),COLORDD;
STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,3,0),COLOREE;
STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,2,0),COLORFF;
STICKLINE(zz1>0 and btxpp and (btxy=1 or (REF(btxy,1)=1 and btxy=4)),btxpp,btxpp,1,0),COLORFF;
STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,8,0),COLOR8800;//BLUE
STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,7,0),COLOR9900;
STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,6,0),COLORAA00;
STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,5,0),COLORBB00;
STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,4,0),COLORCC00;
STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,3,0),COLORDD00;
STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,2,0),COLOREE00;
STICKLINE(zz1>0 and btxpp and (btxy=4 or (REF(btxy,1)=4 and btxy=1)),btxpp,btxpp,1,0),COLORFF00;
STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,8,0),COLOR88CC;
STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,7,0),COLOR99CC;
STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,6,0),COLORAACC;
STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,5,0),COLORBBCC;
STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,4,0),COLORCCCC;
STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,3,0),COLORDDCC;
STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,2,0),COLOREECC;
STICKLINE((zz1>0 and btxpp=0) AND (zz1>0 and btxpp=0) AND REF((zz1=0 and btxy=4),1),ming,zxng,1,0),COLORFFCC;
{www.88gs.com 分析家公式网_最新股票指标公式}
STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,8,0),colorAAAA00;
STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,7,0),colorBBBB00;
STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,6,0),colorCCCC00;
STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,5,0),colorDDDD00;
STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,4,0),colorEEEE50;
STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,3,0),colorEEEE00;
STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,2,0),colorFFFF50;
STICKLINE((REF((zz1=0 and btxy=1),1) and (zz1>0 and btxpp=0) and (zz1>0 and btxpp=0)),maxg,zxng,1,0),colorFFFF00;
AA05:=MA(CLOSE,5),color0099cc;
五日乖离率:=(CLOSE-AA05)/AA05*100;
BB05:=ATAN((aa05/REF(aa05,1)-1)*100)*180/3.1416;
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);
加速度5:=EMA((速度5-REF(速度5,1)),3),linethick0;
AA10:=MA(CLOSE,10);AA20:=MA(CLOSE,20);
BB10:=ATAN((aa10/REF(aa10,1)-1)*100)*180/3.1416;AA30:=MA(CLOSE,30);
三拾日乖离率:(CLOSE-AA30)/AA30*100,linethick0;
Var1:=(AA20-AA30)>REF((AA20-AA30),1) and AA20>REF(aa20,1) and AA30>REF(AA30,1);
Var2:=(AA30-AA20)<REF((AA30-AA20),1) and AA20<REF(aa20,1) and AA30<REF(AA30,1);
BB30:=ATAN((aa30/REF(aa30,1)-1)*100)*180/3.1416;
STICKLINE(BB30>15 and AA30>REF(AA30,1), AA30,REF(AA30,1),8,1);
强势狙击:=FILTER(BB30>30 and BB10>45 and CROSS(BB05,60),10);
加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 and AA05>REF(aa05,1) and 三拾日乖离率>REF(三拾日乖离率,1) and AA10>REF(AA10,1)
and 加速度5>REF(加速度5,1) and 速度5>REF(速度5,1) ,10) ;
清仓:=FILTER(COUNT(CROSS(30,BB05),5)>=1 and (CLOSE>AA30 or OPEN>AA30) and AA05<REF(aa05,1) and 三拾日乖离率<REF(三拾日乖离率,1) and AA10<REF(AA10,1),10);
DRAWTEXT(加仓 ,LOW*0.98,'←加仓'),colorred;
JC:=CROSS(0,五日乖离率) and 三拾日乖离率<REF(三拾日乖离率,1) and AA10>REF(AA10,1) ;
减仓:=FILTER(JC,10);
MR:=COUNT(CROSS(五日乖离率,0),3)>=1 and 三拾日乖离率>REF(三拾日乖离率,1) and AA05>REF(AA05,1) and (CLOSE/REF(CLOSE,1)-1)*100>5 and REF(CLOSE,1)<AA30;
买入:=FILTER(MR,10);
DRAWTEXT(减仓,HIGH*1.02,'←减仓'),colorcyan;
DRAWTEXT(买入,LOW*0.98,'←买入'),coloryellow;
DRAWTEXT(清仓 ,HIGH*1.02,'←清仓'),colorgreen;
DRAWTEXT(强势狙击,LOW*0.98,'←强势狙击'),coloryellow;
Var21:=MAX(ABS(HIGH-AMOUNT/VOL/100),ABS(AMOUNT/VOL/100-LOW));
Var3:=ABS((OPEN+CLOSE)/2-AMOUNT/VOL/100);
MV:=(Var21+Var3)/AMOUNT*VOL*100*50;
DRAWTEXT(MV>6 and LOW<=LLV(LOW,10),LOW*0.95,'←异动'),colorcyan;
input: N(5,1,100);
主筹估算:=指数平滑移动平均(获利盘比例(收盘价)*70,3);
散筹估算:=指数平滑移动平均((获利盘比例((收盘价)*1.1)-获利盘比例((收盘价)*0.9))*70,3);
筹码锁定:=散筹估算-主筹估算 ;
动态底部:=指数平滑移动平均(条件函数(最低价<= 最低值(最低价,60),移动平均(绝对值(最低价-向前引用(最低价,1)),60,1)/移动平均(最大值(最低价-向前引用(最低价,1),0),99,1),0)*5,3);
涨:=交叉函数(主筹估算,筹码锁定);
强:=交叉函数(主筹估算,散筹估算);
画柱线(涨,开盘价,收盘价,8,0),COLORYELLOW;
画柱线(涨,开盘价,最高价,0,0),COLORYELLOW;
画柱线(涨,最低价,收盘价,0,0),COLORYELLOW;
画柱线(强, 开盘价,收盘价,8,0),colormagenta;
画柱线(强,开盘价,最高价,0,0),colormagenta;
画柱线(强,最低价,收盘价,0,0),colormagenta;
画柱线(筹码锁定<-50,开盘价,收盘价,8,0),COLORred;
画柱线(筹码锁定<-50,开盘价,最高价,0,0),COLORred;
画柱线(筹码锁定<-50,最低价,收盘价,0,0),COLORred;
A1:=向前引用(最高价,N)=最高值(最高价,2*N+1);
B1:=信号过滤(A1,N);
C1:=向前赋值(B1,N+1);
D1:=信号过滤(C1,n);{高点}
A2:=向前引用(最低价,N)=最低值(最低价,2*N+1);
B2:=信号过滤(A2,N);
C2:=向前赋值(B2,N+1);
D2:=信号过滤(C2,N);{低点}
E1:=(向前引用(最低值(最低价,2*N),1)+向前引用(最高值(最高价,2*N),1))/2; E2:=(最高价+最低价)/2;{高低点出现在同一K线上时可作取舍}
H1:=(D1 AND 求逻辑非(D2 AND E1>=E2)) OR 数据位置状态=2 OR 有效值周期数(收盘价)=1;
L1:=(D2 AND 求逻辑非(D1 AND E1<E2)); H2:=D1 AND 求逻辑非(D2 AND E1>=E2);
X1:=向前引用(上一次条件成立位置(H1),1)+1; F1:=向前赋值(H1 AND 统计总数(L1,X1)>0,上一低点位置
(条件函数(L1,最低价,10000),X1));
G1:=F1>向前引用(F1,1); I1:=向前赋值(G1,2); LD:=I1>向前引用(I1,1);{过滤后低点}
L2:=LD OR 数据位置状态=2 OR 有效值周期数(收盘价)=1;
X2:=向前引用(上一次条件成立位置(L2),1)+1; F2:=向前赋值(L2 AND 统计总数(H2,X2)>0,上一高点位置
(条件函数(H2,最高价,0),X2));
G2:=F2>向前引用(F2,1); I2:=向前赋值(G2,2); HD:=I2>向前引用(I2,1);{过滤后高点}
R1:=向前赋值(数据位置状态=2,上一次条件成立位置(HD)+1); S1:=R1>向前引用(R1,1); {前一高}
T1:=向前赋值(数据位置状态=2,上一次条件成立位置(LD)+1); U1:=T1>向前引用(T1,1); {前一低}
R2:=向前赋值(S1,向前引用(上一次条件成立位置(HD),1)+2); S2:=R2>向前引用(R2,1); {前二高}
T2:=向前赋值(U1,向前引用(上一次条件成立位置(LD),1)+2); U2:=T2>向前引用(T2,1); {前二低}
T3:=向前赋值(U2,向前引用(上一次条件成立位置(LD),1)+2); U3:=T3>向前引用(T3,1); {前三低}
T4:=向前赋值(U3,向前引用(上一次条件成立位置(LD),1)+2); U4:=T4>向前引用(T4,1); {前四低}
R3:=向前赋值(S2,向前引用(上一次条件成立位置(HD),1)+2); S3:=R3>向前引用(R3,1); {前三高}
R4:=向前赋值(S3,向前引用(上一次条件成立位置(HD),1)+2); S4:=R4>向前引用(R4,1); {前四高}
AA30:=MA(C,30);
As30:=MA(C,10);
M47:MA(CLOSE,47),COLORGREEN;
M48:EMA(M47,3),COLORGREEN,LINETHICK1;
M49:EMA(M48,3),COLORMAGENTA;
M50:EMA(M49,2),COLORMAGENTA; |
