玩了同花顺多年，感觉同花顺的分时公式一直都很少见，以下分享下本人多年来收藏的多个实用性强的同花顺分时公式指标，都是前辈和老师们的作品，感谢他们了！
指标镶入步骤：
工具→公式管理→常用→技术指标→自定指标→新建→名称和描述→粘贴指标源码（点选分时）→确定
公式：
Tj0 分时
用法：分析日线分时走势 详可见图
源码：无未来
MA30:EMA(NEW,30);//曲线属性--数字输出方案--成交价格
强弱:EMA(NEW,900);//曲线属性--数字输出方案--成交价格
STICKLINE((MA30>强弱),MA30,强弱,1,0),COLOR0000FF;
STICKLINE((MA30<强弱),MA30,强弱,1,0),COLOR00FF00;
H1:=MAX(PRE,HHV(NEW,0));
L1:=MIN(PRE,LLV(NEW,0));
P1:=H1-L1;
阻力:L1+P1*7/8,COLOR00DD00;//曲线属性--数字输出方案--成交价格
支撑:L1+P1*0.5/8,COLOR00DD00;//曲线属性--数字输出方案--成交价格
现价:NEW,colorwhite,LINETHICK1;//曲线属性--数字输出方案--成交价格
STICKLINE(CROSS(支撑,现价),支撑,阻力,1,0),coloryellow;
DRAWTEXT(LONGCROSS(支撑,现价,2),支撑*1.001,'★B'),coloryellow;
DRAWTEXT(LONGCROSS(现价,阻力,2),现价,'★'),colorred;
高度控盘分时
用法：分析日线分时走势 详可见图
源码：含未来，谨慎！
VAR1:=EMA(EMA(NEW,13),13);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盘<0,控盘,0,1,1),COLOR00FF00;
STICKLINE(控盘>REF(控盘,1) AND 控盘<0,控盘,0,1,1),COLORFF00FF;
无庄控盘:=控盘<0;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLOR0000FF;
有庄控盘:=控盘>REF(控盘,1) AND 控盘>0;
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLORFFFF00;
主力出货:=控盘<REF(控盘,1) AND 控盘>0;
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,1,1),COLOR00FFFF;
高度控盘: VAR2>50 AND COST(85)<CLOSE AND 控盘>0,COLOR00FFFF,LINETHICK2;
A10:=CROSS(控盘,0);
控盘B:=FILTER(IF(A10,1,0),5);
JJ:=MONEY/VOL;
P:=55;S:=8;M1:=3;
财:(EMA(NEW,S)-EMA(NEW,P))*10,colorred,LINETHICK1;
神:EMA(财,M1),colorgreen,LINETHICK1;
FILLRGN(财,神,财>神,RGB(255,0,0),神>财,RGB(0,255,255));
BTJ1:=(NEW-JJ)/JJ<-0.005;
BTJ11:=(NEW-JJ)/JJ<-0.03;
BTJ12:=BARSLAST(JJ<REF(JJ,1)) AND (NEW-JJ)/JJ<0.005;
STJ1:=(NEW-JJ)/JJ>0.005;
STJ01:=控盘<REF(控盘,1) AND 控盘>0.5;
STJ02:=控盘>0;
BTJ2:=控盘>REF(控盘,1) AND 控盘<-0.2;
BTJ22:=控盘>REF(控盘,1) AND 控盘<0 ;
BTJ3:=CROSS(财,神) AND 财<-0.3;
BTJ32:=CROSS(财,神) AND 财<-0.1;
STJ31:=CROSS(神,财);
STJ32:=CROSS(神,财) AND 财>1.618;
BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,13);
BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,13);
BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,13);
STJ81:=FILTER(STJ1 AND STJ01 AND STJ31,13);
STJ82:=FILTER(STJ02 AND STJ32 ,13);
STJ83:=STJ81 AND STJ82;
DRAWTEXT(BTJ81,神,'△'),COLOR00FFFF;
DRAWTEXT(BTJ82,神,'▲'),COLOR009FFF;
DRAWTEXT(BTJ811,神*1.2,'买'),COLOR0000FF;
DRAWTEXT(STJ81,神,'▽'),COLOR00FFff;
DRAWTEXT(STJ82,神,'▼'),COLORffFF00;
DRAWTEXT(STJ83,神,'卖'),COLOR00FF00;
极品分时指标
用法：分析日线分时走势 详可见图
源码：无未来
QZS:=(EMA(NEW,10)+EMA(NEW,32))/2;
VAR1:=(EMA(NEW,30)+EMA(NEW,72))/2;
VAR2:=(EMA(VOL,10)+EMA(VOL,32))/2;
VAR3:=(VAR1+VAR2)/2;
VAR4:=EMA(VAR3,30);
VAR5:=EMA(VAR3,60);
VAR6:=IF(VAR1>REF(VAR1,1),5,0) AND IF(VAR4>REF(VAR4,1),5,0);
FILLRGN( VAR1,EMA(VAR1,60), VAR1>EMA(VAR1,60),RGB(150,30,30),EMA(VAR1,60)>VAR1,RGB(0,110,30));
牵引线:VAR1,colorwhite;
趋势关注:IF(CROSS(VAR1,EMA(VAR1,60)) AND VAR6=5,1,0);
量价关注:IF(CROSS(VAR3,VAR5) AND VAR6=5,1,0);
冲击量:IF(VAR3>VAR5 AND VAR6,1,0);
STICKLINE(QZS>VAR1,QZS,VAR1,1,0),Colorf0ff00;
STICKLINE(冲击量=1,QZS,VAR1,1,0),colorf000ff;
DRAWICON(趋势关注=1,EMA(VAR1,60),1);
DRAWTEXT(量价关注=1,EMA(VAR1,60),"量"),colorwhite;
王氏分时指标
用法:分析日线分时走势 详可见图 如果是下午2点半以后的信号就比较稳定了
源码：无未来
V1:=NEW*10;
V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5); V4:=2*(V2-V3)*5.5;
主力撤: IF(V4<=0,V4,0),colorblue;
主力进: IF(V4>=0,V4,0),colorff00ff;
V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;
V6:=EMA(3*V5-2*SMA(V5,18,1),5);
V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;
V8:=(INDEXC*2+INDEXH+INDEXL)/4;
V9:=EMA(V8,13)-EMA(V8,34);
VA:=EMA(V9,3);
VB:=(V9-VA)/2;
大盘资金进场:IF(VB>=0,VB,0),colorred;
大盘资金撤走:IF(VB<=0,VB,0),colorgreen;
V11:=3*SMA((NEW-LLV(NEW,55))/(HHV(NEW,55)-LLV(NEW,55))*100,5,1)-2*SMA(SMA((NEW-LLV(NEW,55))/(HHV(NEW,55)-LLV(NEW,55))*100,5,1),3,1);
趋势线: EMA(V11,3);
V12:=(趋势线-REF(趋势线,1))/REF(趋势线,1)*100;
准备现金: STICKLINE(趋势线<=-1,0,20,3,0),colorcc9900;
aa:=(趋势线<=-1) AND FILTER((趋势线<=-1),15);
DRAWTEXT (aa,70,'准备现金'),colorcc9900;
买入股票: STICKLINE(趋势线<0 AND V12>13,0,50,3,0),color0099ff;
bb:= (趋势线<=0 AND V12>13) AND FILTER((趋势线<=0 AND V12>13),10) ;
DRAWTEXT (bb,60,'买入股票'),color0099ff;
卖临界: STICKLINE(趋势线>90 AND 趋势线>REF(趋势线,1),100,95,3,1),COLORFFFF00;
见顶清仓:FILTER(趋势线>101 AND 趋势线<REF(趋势线,1) AND 主力进<REF(主力进,1),8);
DRAWTEXT( 见顶清仓,90,'逃顶'),coloryellow;
cc:=(趋势线>=90 AND V12) AND FILTER((趋势线>=90 AND V12),10);
STICKLINE(大盘资金进场 AND 趋势线<13,0,30,3,0),colorred;
STICKLINE(大盘资金撤走 AND 趋势线>90,0,30,3,0),colorgreen;
STICKLINE(主力进 AND 趋势线<13,0,40,3,0),colorff00ff;
STICKLINE(主力撤 AND 趋势线>90,0,40,3,0),colorblue;
买卖建议分时
用法：分析日线分时走势 详可见图 中线以上，见红一路高，转绿前是高点 中线以下，见绿一路低，转红前是低点
源码：无未来
DRAWTEXT(FILTER(ISNULL(REFX(&CLOSE,230)),0),0.20,'★ 中线以上，见红一路高，转绿前是高点(出现第一黄柱是卖点)。★ '),COLORFFFFFF,LINETHICK1;
DRAWTEXT(FILTER(ISNULL(REFX(&CLOSE,230)),0),-0.20,'★ 中线以下，见绿一路低，转红前是低点(出现第一紫柱是买点)。★ '),colorgreen,LINETHICK1;
DIFF:=EMA(NEW,6) - EMA(NEW,21);
DIF:=EMA(DIFF,6);
DEA:=EMA(DIF,6);
PARTLINE(DIF,DIF>=REF(DIF,1),RGB(255,0,0),DIF<REF(DIF,1),RGB(0,255,0)),LINETHICK2;
MACD :=2*(DIF-DEA);
ZERO:0,COLORFFFFFF,LINETHICK1;
STICKLINE(((MACD<REF(MACD,1)) AND (MACD>0)),0,MACD,1,0),coloryellow;
STICKLINE(((MACD>REF(MACD,1)) AND (MACD<0)),0,MACD,1,0),colormagenta;
STICKLINE(((MACD>REF(MACD,1)) AND (MACD>0)),0,MACD,1,0),colorred;
STICKLINE(((MACD<REF(MACD,1)) AND (MACD<0)),0,MACD,1,0),colorgreen;
资金正负分时
用法：分析日线分时资金走势 详可见图
源码：无未来
a:=SUBSAMEDAY(&MONEY);
b:=SUBSAMEDAY(&NEW);
主卖:SUM(IF(b<0,a,0),0),COLOR00FF00;
主买:SUM(IF(b>0,a,0),0),COLOR0000FF;
不明:SUM(IF(b=0,a,0),0),COLORFFFFFF;
净:IF((主买-主卖)<0,主买-主卖,(主买-主卖));
和:主买+主卖+不明;
资金流分时
用法：分析日线分时资金走势 详可见图
源码：无未来
a:=SUBSAMEDAY(&MONEY);
IF(FORMATTIME(1)< 1)
RETURN;
b:=SUBSAMEDAY(&NEW);
资金流出:-SUM(IF(b< 0,a,0),0),COLOR00FF00;
资金流入:SUM(IF(b> 0,a,0),0),COLOR0000FF;
资金差:资金流入+资金流出,COLOR00FFFF;
[
本帖最后由 小散h168 于 2013-10-30 23:34 编辑 ]
股票论坛 www.55188.com
