飞狐感动生命副图指标

源码

N:=4;

K1:=PEAK(4,N,1);
K2:=TROUGH(4,N,1);
C1:=CROSS(CLOSE,K1);
C2:=CROSS(K2,CLOSE);
K3:=BARSLAST(C1);
K4:=BARSLAST(C2);
PARTLINE(K3<K4,K2),LINETHICK2,colorFFFF;
PARTLINE(K3>K4,K1),LINETHICK2,colorFFFFFF;
K0:=K3<K4;
STICKLINE(K0,HIGH,LOW,0.1,1),colorFF;
STICKLINE(K0,CLOSE,OPEN,8,1),colorFF;
STICKLINE(NOT(K0),HIGH,LOW,0.1,0),colorFF00;
STICKLINE(NOT(K0),CLOSE,OPEN,8,0),colorFF00;
DRAWICON(K2>REF(K2,1) AND K3<K4,K2*1.007,10);
DRAWICON(C1 AND SUM(C1,K4)=1,K1*1.01,1);
DRAWICON(C2 AND SUM(C2,K3)=1,K2,2);
力:=CLOSE*2.5/100+CLOSE;
HD:=CLOSE-CLOSE*2.5/100;
VG:=MA(REF(HIGH,1)/REF(CLOSE,2),27)*REF(CLOSE,1);
VD:=MA(REF(LOW,1)/REF(CLOSE,2),27)*REF(CLOSE,1);
A5:=VD[SYSPARAM(1)];
RA5:=VD[SYSPARAM(1)-1];
A10:=VG[SYSPARAM(1)];
RA10:=VG[SYSPARAM(1)-1];
JT5:=IF(A5>RA5,'↑','↓');
JT10:=IF(A10>RA10,'↑','↓');
阻力位:=IF(CLOSE>200,CLOSE*1.01,CLOSE*1.07);
阻力位1:=IF(CLOSE<10,CLOSE*1.05,阻力位);
止损位:=IF(CLOSE>200,CLOSE*0.99,CLOSE*0.93);
止损位1:=IF(CLOSE<10,CLOSE*0.95,止损位);
AA1:=STRFIND(STKNAME,'ST',0)=0;
K0:=IF(AA1,10,20);
A1:=REF(CLOSE,1)/K0+REF(CLOSE,1);
A2:=-REF(CLOSE,1)/K0-REF(CLOSE,1);
SZ1:='阻力位：'+NUMTOSTR(阻力位,2)+'元';
SZ2:='                  止损位：'+NUMTOSTR(止损位,2)+'元';
SZ3:='开测高：'+NUMTOSTR(VG[SYSPARAM(1)],2)+JT10;
SZ4:='                  开测低：'+NUMTOSTR(VD[SYSPARAM(1)],2)+JT5;
SZ5:='涨停价：'+NUMTOSTR(A1,2)+'元';
SZ6:='                  跌停价：'+NUMTOSTR(A2,2)+'元';
SZ7:='买入价：'+NUMTOSTR(HD,2)+'元';
SZ8:='                  卖出价：'+NUMTOSTR(TR,2)+'元';
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ1),ALIGN5,PXUP50,colorFF;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ2),ALIGN5,PXUP50,colorFF00;
DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ3),ALIGN5,PXUP25,colorFF;
DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ4),ALIGN5,PXUP25,colorFF00;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ5),ALIGN5,PXUP75,colorFF;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ6),ALIGN5,PXUP75,colorFF00;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ7),ALIGN5,PXUP100,colorFF;
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ8),ALIGN5,PXUP100,colorFF00;
F:=COST(5);
J:=COST(95);
M:=COST(15);
B:=COST(85);
F1:=(J-F)/(F+J)*100;
M1:=(B-M)/(B+M)*100;
成本集中度90:=F1;
成本集中度70:=M1;
获利盘:=WINNER(CLOSE)*100;
套牢盘:=100*(1-WINNER(CLOSE));
日换手率:=VOL/CAPITAL*100;
浮筹筹码:=(WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))/WINNER(HHV(HIGH,0))*100;
DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'获利盘:'+NUMTOSTR(获利盘,2)+' \n'+'套牢盘:'+NUMTOSTR(套牢盘,2)+' \n'+'浮筹筹码:'+NUMTOSTR(浮筹筹码,2)+' \n'+'成本集中度70:'+NUMTOSTR(成本集中度70,2)+' \n'+'成本集中度90:'+NUMTOSTR(成本集中度90,2)+' \n'+'市场平均成本:'+NUMTOSTR(COST(50),2)+' \n'+'主力平均成本:'+NUMTOSTR(COST(4),2)+' \n'+'控盘平均成本:'+NUMTOSTR(COST(30),2)+' \n'+'拉升平均成本:'+NUMTOSTR(COST(75),2)+' \n'+'顶部平均成本:'+NUMTOSTR(COST(95),2)+' \n'+'底部平均成本:'+NUMTOSTR(COST(0.05),2)+' \n'),ALIGN4,colorCCFFCC;
X:=OPEN*0.25+CLOSE*0.45+LOW*0.15+HIGH*0.15;
Y:=MA(X,3)*0.105+MA(X,5)*0.215+MA(X,10)*0.315+MA(X,15)*0.365;
PARTLINE(Y>REF(Y,1),Y),LINETHICK2,colorFFFF;
PARTLINE(Y<REF(Y,1),Y),LINETHICK2,colorFF0000;
KS:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*(-100);
RKS:=REF(KS,1);
MLS:=RKS/KS>=1.23 AND RKS>=8 AND CLOSE/REF(CLOSE,1)>=1.02;
超跌:STICKLINE(KS>=8,HIGH,LOW,0,1),LINETHICK1,colorFFFFFF;
STICKLINE(KS>=8,OPEN,CLOSE,7,1),LINETHICK1,colorFFFFFF;
反弹:STICKLINE(MLS=1,HIGH,LOW,0,1),LINETHICK1,colorFF00FF;
STICKLINE(MLS=1,OPEN,CLOSE,7,1),LINETHICK1,colorFF00FF;