飞狐加密牵牛索(长阳真人)主图公式

{加密牵牛索}
{DRAWBKBMP(c>0,'牛月.bmp');}
{主图成交量+主力吸筹洗盘}
hh:=SYSPARAM(4);
ll:=SYSPARAM(5);
x:=ll-(hh-ll+MINDIFF)/3;
y:=HHV(VOL,SYSPARAM(3)-SYSPARAM(2)+1);
yvb:=y[SYSPARAM(3)]/(ll-x+MINDIFF);
z:=VOL/yvb+x;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,8,0),Color110086;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,7.5,0),Color12008a;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,7,0),Color000099;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,6.5,0),ColorA3;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,6,0),Color0000AA;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,5.5,0),ColorB7;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,5,0),Color0000BB;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,4.5,0),ColorCD;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,4,0),Color0000CC;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,3.5,0),ColorE9;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,3,0),Color0000DD;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,2.5,0),Color714E9;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,2,0),Color0000EE;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,1.5,0),Color70EF3;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,1,0),Color1625FF;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,0.1,0),Color4a77Ff;

STICKLINE(CLOSE<=REF(CLOSE,1),x,z,8,0),color008800;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,7,0),color009900;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,6,0),color00AA00;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,5,0),color00BB00;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,4,0),color00CC00;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,3,0),color00DD00;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,2,0),color00EE00;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,1,0),color00FF00;
五日量:MA(z,5);
十日量:MA(z,10);
VAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),10,1);
VAR3:=EMA(VAR2,10);
VAR4:=LLV(LOW,33);
VAR5:=EMA(IF(LOW<=VAR4,VAR3,0),3);
主力进场:IF(VAR5>REF(VAR5,1),VAR5,0),COLORFF9C00,LINETHICK0;
主力洗盘:IF(VAR5 ay:=HHV(VAR5,SYSPARAM(3)-SYSPARAM(2)+1);//图上可见的指标最大值
amin:=LLV(VAR5,SYSPARAM(3)-SYSPARAM(2)+1);//图上可见的指标最小值
ayvb:=ay[SYSPARAM(3)]/(ll-x+MINDIFF)*3;
az:=VAR5/ayvb+x;
{VAR5z:=VAR5/ayvb+x;ayvb:=(ay[SYSPARAM(3)]/(ll-x+MINDIFF))*5; }
{az:=(VAR5z/(VAR5z+z))/ayvb+x;}
{kkkk:=(x-VAR5)*0.005+x;}
{kkkk:=(z-x)*0.5+x;}
{kkkk:=x-(x-VAR5)*0.005;}
STICKLINE(VAR5>REF(VAR5,1),x,az,8,0 ),COLOR3af9;
STICKLINE(VAR5>REF(VAR5,1),x,az,7,0),COLOR5afb;

STICKLINE(VAR5>REF(VAR5,1),x,az,6,0 ),COLOR7afc;

STICKLINE(VAR5>REF(VAR5,1),x,az,5,0),COLOR9afd;

STICKLINE(VAR5>REF(VAR5,1),x,az,4,0),COLORaafe;

STICKLINE(VAR5>REF(VAR5,1),x,az,3,0 ),COLOR3bbff;

STICKLINE(VAR5>REF(VAR5,1),x,az,2,0 ),COLOR9ccff;

STICKLINE(VAR5>REF(VAR5,1),x,az,1,0),COLOR15ddff;
STICKLINE(VAR5 STICKLINE(VAR5 STICKLINE(VAR5 STICKLINE(VAR5 STICKLINE(VAR5 STICKLINE(VAR5 STICKLINE(VAR5 STICKLINE(VAR5 VarE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
Var10:=(HIGH+LOW+CLOSE)/3;
Var11:=(Var10-MA(Var10,14))/(0.015*AVEDEV(Var10,14));
Var12:=(Var10-MA(Var10,70))/(0.015*AVEDEV(Var10,70));
Var13:=IF(Var11>=150 AND Var11<200 AND Var12>=150 AND Var12<200,10,0);
Var14:=IF(Var11<=-150 AND Var11>-200 AND Var12<=-150 AND Var12>-200,-10,Var13);
Var15:=(CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*100;
Var16:=100-ABS(Var15);
Var17:=IF(Var16<90,Var16,100);
Var1A:=IF(VarE>0,VarE,0);
Var1B:=IF(Var12>=200 AND Var11>=150,15,IF(Var12<=-200 AND Var11<=-150,-15,Var14))+60;
Var1C:=Var1A>48 AND Var1B>60 AND Var17<100;
STICKLINE(Var1C AND COUNT(Var1C,30)=1,x,x+(z-x)*2/3,8,0),COLOR888888;
STICKLINE(Var1C AND COUNT(Var1C,30)=1,x,x+(z-x)*2/3,7,0),COLOR999999;
STICKLINE(Var1C AND COUNT(Var1C,30)=1,x,x+(z-x)*2/3,6,0),COLORaaaaaa;
STICKLINE(Var1C AND COUNT(Var1C,30)=1,x,x+(z-x)*2/3,5,0),COLORbbbbbb;
STICKLINE(Var1C AND COUNT(Var1C,30)=1,x,x+(z-x)*2/3,4,0),COLORcccccc;
STICKLINE(Var1C AND COUNT(Var1C,30)=1,x,x+(z-x)*2/3,3,0),COLORdddddd;
STICKLINE(Var1C AND COUNT(Var1C,30)=1,x,x+(z-x)*2/3,2,0),COLOReeeeee;
STICKLINE(Var1C AND COUNT(Var1C,30)=1,x,x+(z-x)*2/3,1,0),COLORffffff;
{STICKLINE(Var1C AND COUNT(Var1C,30)=1 and c>o,o,c+(o-c)*2/3,8,0),COLORMAGENTA;}
{DRAWTEXT(Var1C AND COUNT(Var1C,30)=1,l*0.98,'大\n笔\n出\n货'),linethick1,COLORffcc66;}
{AA:=IF(CURRENTDATE=DATE,STKINDI('','机构.机构',0,0),EXTDATA(9));//
BB:=IF(CURRENTDATE=DATE,STKINDI('','券商.券商',0,0),EXTDATA(10));//
DD:=IF(CURRENTDATE=DATE,STKINDI('','大户.大户',0,0),EXTDATA(11));//
EE:=IF(CURRENTDATE=DATE,STKINDI('','中户.中户',0,0),EXTDATA(12));//
FF:=IF(CURRENTDATE=DATE,STKINDI('','散户.散户',0,0),EXTDATA(13));//
P:=SYSPARAM(1);
主力:=(AA+BB+DD)*100*CLOSE/10000;
中散:=(EE+FF)*100*CLOSE/10000;
资金:=(AA+BB+DD+EE+FF)*100*CLOSE/10000;
五日:=SUM(主力,5);
十日:=SUM(主力,10);
十五日:=SUM(主力,15);
GG:=(AA+BB+DD);
WR:=SUM(GG,5);
SR:=SUM(GG,10);
SW:=SUM(GG,15);
机:=SUM(AA,90);
机1:=SUM(BB,90);
机2:=SUM(DD,90);
P3:=(机+机1+机2)*100/10000;
DRAWTEXTEX(CLOSE,1,10,820,'机构净买:'+NUMTOSTR(AA[p],0)+' 手'),ColorFFB060;
DRAWTEXTEX(CLOSE,1,10,860,'券商净买:'+NUMTOSTR(BB[p],0)+' 手'),ColorFFB060;
DRAWTEXTEX(CLOSE,1,180,820,'大户净买:'+NUMTOSTR(DD[p],0)+' 手'),Color00FF00;
DRAWTEXTEX(CLOSE,1,180,860,'中户净买:'+NUMTOSTR(EE[p],0)+' 手'),Color00FF00;
DRAWTEXTEX(CLOSE,1,340,820,'散户净买:'+NUMTOSTR(FF[p],0)+' 手'),ColorFFB060;
DRAWTEXTEX(CLOSE,1,340,860,'中散资金:'+NUMTOSTR(中散[p],2)+' 万元'),ColorFFB060;}
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,9,0),colorFF5B00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,8,0),colorFF6C00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,7,0),colorFF7B00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,6,0),colorFF9C00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,5,0),colorFFBE00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,3.5,0),colorFFCC00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,1.5,0),colorFFFF00;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,9,0),color070084;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,8,0),color0000A3;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,7,0),color0000B7;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,6,0),color0000CD;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,5,0),color0000E9;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,3,0),color0754E9;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,1.5,0),color076fF3;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,1,0),color079BF3;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLORFFBBFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLORFF00FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLORFF22FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLORFF44FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLORFF66FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLORFF88FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLORFF99FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLORFFAAFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLORFFBBFF;
STICKLINE((CLOSE > OPEN),OPEN,LOW,1,0),color0726CA;
STICKLINE((CLOSE > OPEN),CLOSE,HIGH,1,0),color0726CA;
STICKLINE((OPEN > CLOSE),CLOSE,LOW,1,0),colorDE9100;
STICKLINE((OPEN > CLOSE),OPEN,HIGH,1,0),colorDE9100;
{牵牛索}

{线性回归买卖线}

input:n(21,1,100),m(42,1,250),t(2,1,24);
买线:=EMA(CLOSE,t+1),colorred,linethick1;
卖线:EMA(SLOPE(CLOSE,n+1)*20+CLOSE,M),COLORCYAN,linethick3;
{PARTLINE(卖线>ref(dma(卖线,2),1),卖线),coloryellow,linethick2;}
牵牛索:PARTLINE(卖线<买线,卖线),coloryellow,linethick3;//AND 卖线>REF(卖线,2)

DRAWICON(卖线>EMA(卖线,5) and FILTERX(卖线>EMA(卖线,5),1) and CLOSE DRAWTEXT(卖线>EMA(卖线,5) and FILTERX(卖线>EMA(卖线,5),1) and CLOSE DRAWTEXTEX(CLOSE,1,10,0,'代码：'+STKLABEL+' 名称：'+STKNAME),Color0000ff;
{DRAWTEXTEX(c,1,10,420,'总股本:'+FINANCE( 1)+'万股' +' 流通A股:'+CAPITAL+'手'),COLORffffff;}
{抄底}
Var2:=IF(MONTH<12,1,1);
Var3:=(2*CLOSE+HIGH+LOW)/4;
Var4:=LLV(LOW,34);
Var5:=HHV(HIGH,34);
主力:=EMA((Var3-Var4)/(Var5-Var4)*100,13)*Var2,linethick4,colorred;
散户:=EMA(0.667*REF(主力,1)+0.333*主力,2),LINETHICK0,colorff9933;
小心被套:=IF(CROSS(主力,75) AND 散户<主力,75,62),STICK,LINETHICK2,colorgreen;
{62,stick,LINETHICK0,color000000;}
冲顶:=IF(CROSS(主力,65) AND 散户<主力,61,49),STICK,LINETHICK2,colorf00ff0;
{49,stick,LINETHICK0,color000000;}
上扬:=IF(CROSS(主力,30) AND 散户<主力,48,35),STICK,LINETHICK2,coloryellow;
{35,stick,LINETHICK0,color000000;}
{强弱分界线: 50, pointdot, LINETHICK2, COLORFFFF00;}
DRAWTEXT(CROSS(主力,散户) AND 主力<22,CLOSE*0.990,'赶\n牛'),LINETHICK2,COLOR0099ff;
DRAWICON(CROSS(主力,散户) AND 主力<22,CLOSE,14);
DRAWTEXT(CROSS(主力,30) AND 散户<主力,CLOSE*0.99,'上\n坡 '),LINETHICK5,color00ccff;
DRAWICON(CROSS(主力,30) AND 散户<主力,CLOSE,14);
DRAWTEXT(CROSS(主力,65) AND 散户<主力,CLOSE*0.99,'冲\n顶 '),LINETHICK2,COLOR9933ff;
DRAWICON(CROSS(主力,65) AND 散户<主力,CLOSE,14);
DRAWTEXT(CROSS(主力,75) AND 散户<主力,CLOSE*0.99,'小\n心'),LINETHICK2,color009900;
DRAWICON(CROSS(主力,75) AND 散户<主力,CLOSE,14);
DRAWTEXT(CROSS(散户,主力) AND 散户>75,CLOSE*0.99,'山\n顶'), COLORYELLOW;
DRAWICON(CROSS(散户,主力) AND 散户>75,CLOSE,14);
买入脉冲:=IF(CROSS(主力,散户) AND 主力<35,1,0),LINETHICK4,COLORGREEN;
卖出脉冲:=IF(CROSS(散户,主力) AND 散户>75,1,0),LINETHICK4,COLORRED;
{画图标(买入脉冲,收盘价,10);
画图标(卖出脉冲,收盘价,11);}
{引用鹏博F10}
wa:=F10FIND('最新业绩预披露时间:',1000);
IF wa<0 THEN EXIT;//没找到退出
u1:=F10TEXT(wa,52);
DRAWTEXTEX(CLOSE,1,10,130,u1),ColoraaFF;
wc:=F10FIND('业绩预告:',wa);
IF wc<0 THEN EXIT;//没找到退出
u2:=F10TEXT(F10FIND('业绩预告:',wc),53);
DRAWTEXTEX(CLOSE,1,10,300,u2),ColoraaFF;
wd:=F10FIND('业绩快报:',wa);
IF wd<0 THEN EXIT;//没找到退出
u3:=F10TEXT(F10FIND('业绩快报:',wd),135);
DRAWTEXTEX(CLOSE,1,10,440,u3),ColoraaFF;
{凤翔蓝筹排序}{排序指标}{说明：取每股收益和市盈率的倒数的加权平均值作为蓝筹系数，越大越好。可用于分行业。
凤翔/2005-08-26}
正收益率:=IF(FINANCE(33)>0.01 and FINANCE(34)>0,FINANCE(33)*6,0);
正市盈率:=IF(FINANCE(33)>0.01 and FINANCE(34)>0,FINANCE(34)*4,0);
蓝筹系