软件名称：[B]一线天 发一个自用多年的指标！[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：5.00 KB
官方主页：Home Page
更新时间：2013-01-07 05:23:39
软件简介:

抄月殳光看指标不行，可没指标也不好办。指标太复杂又让人看得眼发晕，不知所措。因此我借鉴飞狐指标编了个通达信指标，就一条线，简单明了！
一线天（主图、源码）
说明；1、上穿买，下穿卖。
2、线上持股，线下持币

JJ:=(H+L+3*C)/5;
VAR021:=EMA(JJ,5);VAR022:=EMA(JJ,13);VAR023:=EMA(JJ,21);VAR024:=EMA(JJ,34);H1A:=(VAR021+VAR022+VAR023+VAR024)/4;
成本和谐:MA(H1A,5),COLORWHITE,LINETHICK1;
IF(成本和谐>REF(成本和谐,1),成本和谐,DRAWNULL),COLORRED,LINETHICK3;
IF(成本和谐<REF(成本和谐,1),成本和谐,DRAWNULL),COLORGREEN,LINETHICK3;

{ZF:=(EMA(SUM(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)),3),49) * 10)+EMA(C,20);
★强势线★:IF(PERIOD!=0 ,EMA(ZF,34),DRAWNULL),LINETHICK2,COLOR00FFFF;
IF(★强势线★>REF(★强势线★,1),★强势线★,DRAWNULL),COLORFF00FF,LINETHICK2;
MA120:MA(C,120),DOTLINE,COLORWHITE;}


N:=30;
T1:=CONST(HHVBARS(V,N));
T0:IF(CURRBARSCOUNT<=N+7,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL),LINETHICK3,COLORYELLOW;
IF(CURRBARSCOUNT=T1+1,T0,DRAWNULL),CIRCLEDOT;
DRAWTEXT(ISLASTBAR,T0,' 量能评台');
N5:=10;
T011:=CONST(LLVBARS(LOW,N5));
T11HIGH:=CONST(REF(HIGH,T011));
CC01:=CONST(CURRBARSCOUNT);
T12:=CONST(BARSLAST((CURRBARSCOUNT >(CC01+T011)) AND (HIGH>T11HIGH)));
T12HIGH:=CONST(REF(HIGH,T12));
T13:=CONST(BARSLAST((CURRBARSCOUNT >(CC01+T12)) AND (HIGH>T12HIGH)));
T13HIGH:=CONST(REF(HIGH,T13));
洗盘杀入线:DRAWLINE(CURRBARSCOUNT=T13+1, T13HIGH, ISLASTBAR, T13HIGH, 1),LINETHICK2,COLORWHITE;
DRAWTEXT(ISLASTBAR, T13HIGH, '洗盘杀入线')LINETHICK2,COLORWHITE;


VARA1:=IF(CLOSE>150,91.3,0.913);
箱体下沿:INTPART(CLOSE/VARA1 )*VARA1,POINTDOT,LINETHICK4,COLORGREEN;
箱体上沿:箱体下沿+VARA1,POINTDOT,LINETHICK4,COLORYELLOW ;
箱体中线: (箱体下沿+箱体上沿)/2,POINTDOT,COLORWHITE,LINETHICK3;


N2:=75;P:=5;P01:=10;
{N2为多少天内的高低值参数，我以自已的初始K线根数定义。P1、P2为短、长支撑压力取点参数}
A11:=REF(H,P)=HHV(H,2*P+1);
B11:=FILTER(A11,P);
C11:=BACKSET(B11,P+1);
D1:=FILTER(C11,P);
E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
F1:=E1>REF(E1,1);
短压:DRAWLINE(D1,H,F1,H,1),COLORCYAN;
A22:=REF(L,P)=LLV(L,2*P+1);
B22:=FILTER(A22,P);
C22:=BACKSET(B22,P+1);
D2:=FILTER(C22,P);
E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);
F2:=E2>REF(E2,1);
短支:DRAWLINE(D2,L,F2,L,1),COLORLIRED;
AA1:=REF(H,P01)=HHV(H,2*P01+1);
BB1:=FILTER(AA1,P01);
CC1:=BACKSET(BB1,P01+1);
DD1:=FILTER(CC1,P01);
EE1:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
FF1:=EE1>REF(EE1,1);
长压:DRAWLINE(DD1,H,FF1,H,1),COLORGREEN;
AA2:=REF(L,P01)=LLV(L,2*P01+1);
BB2:=FILTER(AA2,P01);
CC2:=BACKSET(BB2,P01+1);
DD2:=FILTER(CC2,P01);
EE2:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
FF2:=EE2>REF(EE2,1);
长支:DRAWLINE(DD2,L,FF2,L,1),COLORRED;


DRAWTEXT_FIX(1,0.00,0,0,HYBLOCK)COLOR0080FF;
DRAWTEXT_FIX(1,0.14,0,0,DYBLOCK)COLOR00FFFF;
DRAWTEXT_FIX(1,0.00,0.06,0,EXTERNSTR(0,1))COLOR0000FF;
DRAWTEXT_FIX(1,0.00,0.12,0,EXTERNSTR(0,2))COLORFF00FF;
DRAWTEXT_FIX(1,0.00,0.18,0,EXTERNSTR(0,3))COLORFF88FF;
DRAWTEXT_FIX(1,0.00,0.24,0,EXTERNSTR(0,5)),COLORCYAN;
{新增证监会行业}
DRAWTEXT_FIX(1,0.00,0.30,0,EXTERNSTR(0,6)),COLOR0080FF;


涨停:=IF(REF(C,1)*1.095-C<0.01 ,1,0);
STICKLINE(涨停,OPEN,CLOSE,4,0),COLORRED;
STICKLINE(涨停,OPEN,CLOSE,3,0),COLORRED;
DRAWTEXT(涨停,L-0.1,'涨停'),COLORYELLOW;

C3:=REF(C,1);
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0);
STICKLINE(跌停,OPEN,CLOSE,4,0),COLORBLUE;
STICKLINE(跌停,OPEN,CLOSE,3,0),COLORGREEN;
DRAWTEXT(跌停,H+0.3,'跌停'),COLORGREEN;




DRAWICON(CROSS(ZIG(3,10) ,REF(ZIG(3 ,10),1)) ,LOW*0.98,1);

DRAWICON(CROSS(REF(ZIG(3,10),1),ZIG(3,10)) ,HIGH*1.02,2);

DRAWTEXT(CROSS(ZIG(3,10),REF(ZIG(3,10),1)),LOW*0.99,'买') , COLORRED,LINETHICK1;

DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.008,'卖') , COLORGREEN,LINETHICK1;

[url=http://www.70822.com/soft/sort013/sort05/down-56987.html]一线天 发一个自用多年的指标！[/url]