{ 2015-05-08 修改
}
MAA5:=MA(C,5);
MAA5_T:= ( (C+ C + REF(C,1) + REF(C,2) + REF(C,3) ) / 5 );
MAA10:=MA(C,10);
MAA20:=MA(C,20);
MAA30:=MA(C,30);
KS:=IF(MAA10>MAA30,MAA10,MAA30),COLORBLUE;
A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
A4:=SMA(A3,3,1);
A5:=SMA(A4,3,1);
A6:=3*A4-2*A5;
A7:=C-REF(C,1);
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
A9:=( (C-REF(C,1)) / REF(C,1) ) > 0.02; {涨幅要大于2%}
买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2)) AND A9;
DRAWTEXT(FILTER(买=1,5),LOW*0.93,'买'),COLORMAGENTA;
STICKLINE(买,OPEN,CLOSE,2,0),COLORMAGENTA;
{如果涨幅大于5%,显示黄s}
涨幅5 := ( (C /REF(C,1)) > 1.05 ) AND ( (C /REF(C,1)) < 1.09 ) ;
STICKLINE(涨幅5, CLOSE, OPEN, 1, 0), COLOR8000FF;
{如果涨停显示黄芯,如果跌停显示绿芯}
涨停 := (C /REF(C,1)) > 1.09;
STICKLINE(涨停, HIGH, OPEN, 0.9, 0), COLORYELLOW;
{如果涨幅大于5%,显示黄s}
跌幅5 := ( (C / REF(C,1)) < 0.95 ) ;
{STICKLINE(跌幅5, OPEN, CLOSE, 1, 0), COLOR400000;}
跌停 := C/REF(C,1) < 0.9 ;
STICKLINE(跌停, HIGH, LOW, 1, 0), COLORBLUE;
M5:MA(CLOSE,5), LINETHICK1, COLORRED; {COLORWHITE;}
MAA5_T, NODRAW;
M10:MA(CLOSE,10), NODRAW, COLORLIRED, LINETHICK2;
M20:MA(CLOSE,20), NODRAW, COLORFF00FF; {, LINETHICK2;}
M30:MA(CLOSE,30), NODRAW, COLORGREEN; {, LINETHICK2;}
T:=5;
MM:=MA(CLOSE,T);
上升:IF(MM>REF(MM,1), MM, DRAWNULL) ,COLORRED,LINETHICK2;
下降:IF(MM<REF(MM,1), MM, DRAWNULL), COLORGREEN,LINETHICK2;
{显示当日价咯线}
DRAWLINE(CURRBARSCOUNT=60, CONST(C), CURRBARSCOUNT=1, C, 3),COLORBLUE,LINETHICK1;
{显示20日线}
{M20DAYS:=MA(CLOSE,20);}
{DRAWLINE(CURRBARSCOUNT=TOTALBARSCOUNT,CONST(C),CURRBARSCOUNT=1,M20DAYS,3),COLORFF00FF, DOTLINE,LINETHICK1;}
{M60:MA(CLOSE,60); POINTDOT}
{M89:MA(CLOSE,89),LINETHICK2,COLORFF9966;}
{//一二零日:=MA(C,120),LINETHICK1,COLOR000099;
//一四四日:MA(C,144),LINETHICK1,COLORFF3300; //BLUE
}
{M90:MA(CLOSE,90);}
{M120:MA(CLOSE,120);}
{M250:MA(CLOSE,250);};
{//顶部显示}
{//顶部显示}
SBL1 := STRCAT('1地区:', DYBLOCK);
SBL2 := ' ';{STRCAT(' 2行业:', HYBLOCK);}
SBL3 := STRCAT(' 3主题投资:', EXTERNSTR(0,1));
SBL4 := STRCAT(' ', ZDBLOCK);
SBL41 := STRCAT(STRCAT(' 4.概念: ', GNBLOCK), STRCAT(' 55.自定义:', ZDBLOCK) );
SBL43 := STRCAT(' 5.风格:', FGBLOCK);
{SBL4 := STRCAT(STRCAT(SBL1, SBL2), SBL3);}
SBL5 := STRCAT(STRCAT(STRCAT(STRCAT(SBL1, SBL2), SBL4), SBL41), SBL43);
DRAWTEXT_FIX(1, 0.0, 0.0.1, 0, SBL5),COLORFF6000;
{底部显示}
SBL:= STRCAT(' ', STRCAT(STRCAT(STRCAT(HYBLOCK,DYBLOCK),GNBLOCK),ZDBLOCK) );
{DRAWTEXT_FIX(1,0,70,0,SBL),COLORFF6000;}
DRAWTEXT_FIX(ISLASTBAR,0,70,0,SBL3),COLORFF6000;
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
{流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');}
全流通:=STRCAT(' 流通比: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));
流通值:=(CAPITAL/1000000)*C;
市值:=STRCAT(STRCAT(' 流通: ',CON2STR(流通值,2)),'亿');
股本市值:=STRCAT('市值: ',STRCAT(STRCAT(STRCAT(总股本,全流通),市值),''));
{DRAWTEXT_FIX(ISLASTBAR,0.005,0.115,0,股本市值),COLORBLUE;}
DRAWTEXT_FIX(流通值>100,0,0.12,0,股本市值),COLORGREEN; {大于100亿显示绿色}
DRAWTEXT_FIX(流通值>=160,0,0.12,0,股本市值),COLORBLUE; {小于100亿显示蓝色}
DRAWTEXT_FIX(流通值>=150,0.60,0.12,0,'XXXXXXXXXXXXXXXXXXXX'),COLORBLUE; {小于100亿显示蓝色}
DRAWTEXT_FIX(流通值<=100,0,0.12,0,股本市值),COLORRED; {小于100亿显示红色}
{显示向上的跳空缺口}
GAPUP:=LOW>REF(HIGH,1);
COND1:=LLV(LOW,BARSLAST(GAPUP))>=REF(HIGH,BARSLAST(GAPUP)+1);
COND2:=BACKSET(COND1,3);
COND22:=COND2>REF(COND2,1);
COND222:=LLV(LOW,BARSLAST(COND22))>=REF(HIGH,BARSLAST(COND22));
COND2222:=LOW<REF(HIGH,BARSLAST(COND22));
STICKLINE(COND222 AND BARSLAST(COND22)>=2, REF(HIGH,BARSLAST(COND22)), REF(HIGH,BARSLAST(COND22))+0.02, 20,0),COLORRED;
{十字线为跳空缺口当日的最高价或最低价,空心晶红色线为向上缺口,灰色实体线为向下缺口。由此产生支撑与压力。}
{缺口:=(L>REF(H,1));
不破:=(ALL(L>REF(H,BARSLAST(缺口)+1),BARSLAST(缺口)+1));
STICKLINE(不破,REF(H,BARSLAST(缺口)+1),REF(L,BARSLAST(缺口)),10,1),COLORMAGENTA;
下缺口:=(H<REF(L,1));
不补:=(ALL(H<REF(L,BARSLAST(下缺口)+1),BARSLAST(下缺口)+1));
STICKLINE(不补,REF(L,BARSLAST(下缺口)+1),REF(H,BARSLAST(下缺口)),10,0),COLORGRAY;
N:=25;
缺口低:REF(L,BARSLAST(H<REF(L,1))),COLORGRAY,LINETHICK;
PARTLINE(BARSLAST(H<REF(L,1))+1<N,缺口低),COLORGRAY,LINETHICK1,CROSSDOT;
缺口高:REF(H,BARSLAST(L>REF(H,1))),COLORMAGENTA,LINETHICK;
PARTLINE(BARSLAST(L>REF(H,1))+1<N,缺口高),COLORMAGENTA,LINETHICK1,CROSSDOT;
};
Q2:=REF(O,2)>REF(C,2);{2日前的开盘价>2日前的收盘价}
Q1:=REF(O,1)>REF(C,1) AND REF(C,1)<REF(C,2); {1日前的开盘价>1日前的收盘价 AND 1日前的收盘价<2日前的收盘价}
YBY:=C>O AND C>REF(H,1); {目前是阳线 AND 当前价>1日前的最高价}
YZ:=YBY AND Q1 AND Q2 AND REF(C,1)<REF(C,2); {连跌2天,今天收阳了}
DRAWICON(YZ AND C<55 AND DYNAINFO(4)>0,L*0.95,9);
XG:DRAWTEXT(YZ AND C<55 AND DYNAINFO(4)>0,L*0.90,'逆转');
STICKLINE(XG,OPEN,CLOSE,2,0),COLORMAGENTA;
{显示1 到 10的数字}
ZT:=BARSLAST(C/REF(C,1)-1>=0.1-0.01/REF(C,1) AND C=H);
AQ:=EVERY(C>=REF(L,ZT),ZT);
BQ:=IF(REF(AQ,ZT+1) AND REF(ZT,ZT+1)<13,REF(ZT,ZT+1)+ZT+1,ZT);
DRAWTEXT(ZT<=10 AND AQ, REF(L,ZT)*0.96, VAR2STR(ZT,0)),COLOR008000;
DRAWTEXT(ZT>=6 AND ZT<=8 AND AQ, REF(L,ZT)*0.96, VAR2STR(ZT,0)),COLORRED;
DRAWTEXT(BQ>0 AND BQ<=10 AND BQ!=AQ, REF(L,BQ)*0.96, VAR2STR(BQ,0)),COLOR008000;
DRAWTEXT(BQ>=6 AND BQ<=8 AND BQ!=AQ, REF(L,BQ)*0.96, VAR2STR(BQ,0)),COLORRED;
{大宗交易, 大宗交易的价咯超过收盘价,叫溢价,低于收盘价叫折价}
大宗交易 := SIGNALS_USER(298, 0), NODRAW;
减持金額 := VARCAT(VAR2STR(大宗交易/10000.0 , 2),'亿'); {单位是 |
评论内容只代表网友观点,与本站立场无关!
本网提供的公式文件说明:
* alg格式飞狐股票公式,可以用飞狐交易师或者交易师软件导入;
* fnc格式大智慧新一代公式指标,可以用大智慧股票软件使用,少部分可以用分析家股票软件引入使用;
* exp格式大智慧经典版股票公式,仅可以用大智慧经典版股票软件引入使用;
* tni和tnc格式通达信股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
* tne,tn6格式通达信公式,可以用通达信公式编辑器5.0版导入,推荐通达信金融终端版本;
* hxf格式同花顺股票公式,仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!
* 关于股票公式时间限制,如果在引入大智慧公式,交易师公式或者飞狐公式的时候,发现公式名称栏是空白的,这时候调整电脑时间到1997年,又能出现公式名称,并且能正常显示,可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式,通达信公式,同花顺公式,操盘手公式,飞狐公式,博易大师公式,金字塔公式,文华公式和交易师公式等等公式的密码,本网可帮恢复源码,有.偿.服.务无意勿扰,点击在线咨询联系我。
* 关于股票公式源码编辑
本网提供的源码,一般都可以编辑成公式,如果不明白公式的编辑,在本页右侧教程录像可参考,或者找公式教程资料学习,请搜索:教程
* 如果您发现软件内容或者链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含源码均是由网上搜集,若侵犯了你的版权利益,请联系通知我们!