tzwxlj1 2008-1-9 20:18
初始指标-比较准
{会变的主图指标公式源码}
{初始指标-比较准}
TJ:=(((WEEKDAY - REF(WEEKDAY,1)) <> DATEDIFF(REF(DATE,1),DATE)) OR (BARPOS = 1));//周初交易日
IF (DATACOUNT > 1) THEN
FOR I=1 to (DATACOUNT - 1 ) DO
TJ1[I]:=TJ[(I + 1)];//周末交易日
TJ1[DATACOUNT]:=1;
FC:=CLOSE;
FH:=HIGH;
FL:=LOW;
FO:=OPEN;
POS:=(0 * CLOSE);
FOR I=1 to DATACOUNT DO BEGIN
IF TJ[I] THEN BEGIN
HH:=FH[I];
LL:=FL[I];
OO:=FO[I];
P:=I;
END ELSE BEGIN
FO[I]:=OO;
HH:=MAX(HH,FH[I]);
LL:=MIN(LL,FL[I]);
END;
IF TJ1[I] THEN
POS[((I + P) / 2)]:=1;//周中位日
IF (I > 1) THEN
FOR J=I downto p DO begin
FC[J]:=FC[I];
FH[J]:=HH;
FL[J]:=LL;
// IF TJ[J] THEN TJ2:=(FC > FO);
end;
end;
开:=FO;
高:=FH;
低:=FL;
收:=FC;
RSV:=(((收 - LLV(低,21)) / (HHV(高,21) - LLV(低,21))) * 100);
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=((3 * K) - (2 * D));
A:IF(CROSS(K,J),C,REF(C,BARSLAST(CROSS(K,J)))),LINETHICK2,colorFF;
B:IF(CROSS(J,K),L,REF(L,BARSLAST(CROSS(J,K)))),LINETHICK2,colorFFFF;
买选股:IF(CROSS(K,D),88,0),LINETHICK0,colorFF;
卖选股:IF(REF(CROSS(D,K),1),99,0),LINETHICK0,colorFFFF;
DRAWTEXT(CROSS(K,D),L,'▲'),ALIGN,Color0089FF;
DRAWTEXT(REF(CROSS(D,K),1),H*1.02,'▼'),ALIGN,COLORGREEN;
//
{注：飞狐用的，加于主图公式上，则可以在顶行见到内盘和外盘数据了。}
内盘: DYNAINFO(22) LINETHICK0;
外盘: DYNAINFO(23) LINETHICK0;
//以下定位光标位置
aa:=sysparam(1);
cc:=sysparam(3);
dd:=cc-aa;
if dd=1 then begin {光标位于右起第二个K线,激活第一个隐藏指标}
DRAWGBK(dd=1, COLORRGB(0,0,0), COLORRGB(0,0,0),1);
{三线合一}
DRAWGBK(1, COLORRGB(60,60,60),COLORRGB(50,50,50),1);
{三合一}
Var1:=V*(O+C*3+H+L)/6;
势:=EMA(Var1,21)/EMA(V,21);
压:=6*HHV(势,2)-5*势;
托:=2*势-压;
{快枪}
猎手: EMA(SLOPE(C,21)*15+C,5),LINETHICK,PRECISION2,COLOR009900;
快枪: SLOPE(EMA(C,2),21)*15+C,LINETHICK,PRECISION2,ColorA6E9E9;
{K线}
STICKLINE(O>=C,C,O,7,1),ColorFFFF50;
STICKLINE(O>=C,H,O,0,0),ColorFFFF50;
STICKLINE(O>=C,C,L,0,0),ColorFFFF50;
STICKLINE(C>=O,C,O,7,1),Color5050FF;
STICKLINE(C>=O,C,H,0,0),Color5050FF;
STICKLINE(C>=O,L,O,0,0),Color5050FF;
{三合一}
PARTLINE(势>=托,势),ColorFFD4A6;
PARTLINE(压>=托,压),LINETHICK2,ColorF8782B;
PARTLINE(托<=压,托),LINETHICK2,ColorFFA174;
PARTLINE(托>=压,托),LINETHICK2,COLORRED;
{快枪}
PARTLINE(1,快枪),LINEDOT,ColorA6E9E9;
PARTLINE(1,猎手),LINETHICK2,COLOR009900;
//
P:=势<REF(压,1) AND 势>REF(托,1);
买入参考1:=CROSS(C,压);
买入参考2:=CROSS(C,压) AND P;
drawicon(买入参考1,托*0.98,12);
drawicon(买入参考2,托*0.96,6);
end;
if dd=2 then begin {光标位于右起第三个K线,激活第二个隐藏指标}
DRAWGBK(dd=2, COLORRGB(0,0,0), COLORRGB(0,0,0),1);
{＊操盘手＊操盘线买卖点BS，有箭头标志．}
买线:EMA(C,2),colorred;
卖线:EMA(SLOPE(C,21)*20+C,42),coloryellow;
BUY:=cross(买线,卖线);
SEL:=cross(卖线,买线);
drawtext(buy,(LOW * 0.988),'↑'),colorred,linethick5;
drawtext(buy,(LOW * 0.958),'B'),colorred,linethick5;
drawtext(sel,(HIGH * 1.028),'↓'),colorwhite,linethick5;
drawtext(sel,(HIGH * 1.058),'S'),colorwhite,linethick5;
stickline(买线>=卖线,low,high,0.1,1),colorred;
stickline(买线>=卖线,close,open,8,1),colorred;
stickline(买线>=卖线,close,open,10,1),colorred;
stickline(买线<卖线,close,open,10,0),colorblue;
stickline(买线<卖线,close,open,8,0),colorblue;
stickline(买线<卖线,low,high,0.1,1),colorblue;
stickline(cross(买线,卖线) or cross(卖线,买线),open,close,6,0),coloryellow;
end;
if dd=3 then begin {光标位于右起第三个K线,激活第3个隐藏指标}
DRAWGBK(dd=2, COLORRGB(0,0,0), COLORRGB(0,0,0),1);
{出紫阳后}
E10:EMA(CLOSE,10);
E40:EMA(CLOSE,40);
M5:MA(CLOSE,5);
M3:MA(CLOSE,3),color00ff00;
F:=100*(C-REF(C,1))/REF(C,1);
{涨跌幅}
今小昨:=IF(C<REF(O,1) AND f<0,1,0);
{如果今天收盘价小于昨天开盘价 同时今天股价以下跌状态收盘 赋值为1 否则为0}
p1:=今小昨;
今小前:=IF(C<REF(O,2) AND f<0,1,0);
{如果今天收盘价小于前天开盘价 同时今天股价以下跌状态收盘 赋值为1 否则为0}
p2:=今小前;
stickline(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,open,CLOSE,3,0),colormagenta;
{如果昨天同时符合今小昨和今小前两个条件而今天又都不符合，K线为紫阳线!}
stickline(P1=1 AND REF(P1,1)=0 AND P2=1 AND REF(P2,1)=0,open,CLOSE,3,0),colorAAAAAA;
{1 MACD底背离或KDJ的J向上（在我的指标上都为翻红）第二天打低2分进。
2 赚到5%出即出
3 没有赚到5%，止价破或3MA向下或价下3MA过多第二天打高2分出。
4 CCI小于－128不进货。
以上的指标都是标准参数的常用指标。}
{从源码的写法看，紫阳的意义如下：
连续(至少)两天下跌后出现的上涨阳线。
这样的阳线代表短线趋势有可能改变，是否真的改变需要通过其他条件配合判断。 }
{第一个条件
1 MACD底背离或KDJ的J向上（在我的指标上都为翻红）第二天打低2分进。
MACD底背离我已经在MACD指标剖析中分析过了，背离的意义为股价以较缓的速度向下创新低，是趋势扭转的前兆信号
KDJ的J值是用3*K-2*D算出来的，KD本身是用股价相对位置算对来的，在低位出现J值向上，说明K值开始回升，D值是用K值SMA算来的，这里也是用了一个止跌的信号来表示短期下跌走势有可能中止!
}
{第二个条件 赚到5%出即出
从这一点可以看出这个方法对操作纪律要求较高!
同时也是一个短线快进快出的方法。 }
{ 3 没有赚到5%，止价破或3MA向下或价下3MA过多第二天打高2分出。
4 CCI小于－128不进货。
第三个条件对股价短期是否维持强势要求较严
第四个条件是对超底的股票的一个底线的规定 这个数值如何得来，还不清楚 从CCI的算法来看，其最终值是除以0.015得来了，这个指标本身的算法就比较怪，所以实战的市场意义较难推敲
}
{通过紫阳+MACD+KDJ+CCI的组合来对短线机会做把握的，我认为，不能说只能有5%的机会，就得去抓，而应该是尽量保证每次出手都能赚5%回来，因此，必须在条件上下功夫。
实战中很重要的一点就是顺势而为，所以趋势类指标应该在这个方法里更突出一些! }
F:=100*(C-REF(C,1))/REF(C,1); {未来函数有趣试验---规律是可以发现并被利}
今小昨:=IF(C<REF(O,1) AND f<0,1,0);
s1:=今小昨;
今小前:=IF(C<REF(O,2) AND f<0,1,0),linethick0;
s2:=今小前;
a1:=s1=0 AND REF(s1,1)=1 AND s2=0 AND REF(s2,1)=1and CROSS(ZIG(3,3) ,REF(ZIG(3 ,3),1));
a2:=s1=0 AND REF(s1,1)=1 AND s2=0 AND REF(s2,1)=1and CROSS(ZIG(3,5) ,REF(ZIG(3 ,5),1));
STICKLINE(TROUGHBARS(3,3,1)=0 AND HIGH>LOW{+0.001},H*1.03,C+2,3,0),COLORFFBB00;
STICKLINE(a1 and a2 ,H*1.03,C+1.5,3,0)colorgreen;
STICKLINE(a1 and a2 ,H*1.03,C+1,4,0)coloryellow;
STICKLINE(a1 and a2 ,H*1.03,C+2,2,0)colorred;
STICKLINE(a1 and a2 ,H*1.03,C+1.5,3,0)colorgreen;
STICKLINE(a1 and a2 ,H*1.03,C+1,4,0)coloryellow;
VERTLINE(HOUR=15),COLOR4900,POINTDOT;
end;
[[i] 本帖最后由 tzwxlj1 于 2008-1-9 20:19 编辑 [/i]]