今天真高心，038002让我提前布局，今天下午计划全部卖出，落袋为安，赚得盘满钵满成定局。

人一高兴，就喜欢弄点什么的，发点台湾公式吧，这样没人会有意见了。

顶底通道（主图）
ND0:=EMA(EMA(EMA(CLOSE,4),4),4);
ND1:=((ND0 - REF(ND0,1)) + ND0);
ND2:=MA(ND1,25);
STICKLINE((ND1 > ND2),OPEN,CLOSE,6,0),colorFF;
STICKLINE((ND1 > ND2),IF((CLOSE > OPEN),CLOSE,OPEN),IF((CLOSE >= OPEN),(OPEN + ((CLOSE - OPEN) * 0.25)),(CLOSE + ((OPEN - CLOSE) * 0.2))),6,0),color66FF;
STICKLINE((ND1 > ND2),IF((CLOSE > OPEN),CLOSE,OPEN),IF((CLOSE >= OPEN),(OPEN + ((CLOSE - OPEN) * 0.5)),(CLOSE + ((OPEN - CLOSE) * 0.4))),6,0),color99FF;
STICKLINE((ND1 > ND2),IF((CLOSE > OPEN),CLOSE,OPEN),IF((CLOSE >= OPEN),(OPEN + ((CLOSE - OPEN) * 0.75)),(CLOSE + ((OPEN - CLOSE) * 0.6))),6,0),colorCCFF;
STICKLINE((ND1 < ND2),OPEN,CLOSE,6,0),colorFF00;
STICKLINE((ND1 < ND2),IF((CLOSE > OPEN),CLOSE,OPEN),IF((CLOSE >= OPEN),(OPEN + ((CLOSE - OPEN) * 0.25)),(CLOSE + ((OPEN - CLOSE) * 0.2))),6,0),colorCC33;
STICKLINE((ND1 < ND2),IF((CLOSE > OPEN),CLOSE,OPEN),IF((CLOSE >= OPEN),(OPEN + ((CLOSE - OPEN) * 0.5)),(CLOSE + ((OPEN - CLOSE) * 0.4))),6,0),color9933;
STICKLINE((ND1 < ND2),IF((CLOSE > OPEN),CLOSE,OPEN),IF((CLOSE >= OPEN),(OPEN + ((CLOSE - OPEN) * 0.75)),(CLOSE + ((OPEN - CLOSE) * 0.6))),6,0),color7733;
STICKLINE((ND1 > ND2),HIGH,IF((CLOSE >= OPEN),CLOSE,OPEN),0.5,0),colorFF;
STICKLINE((ND2 > ND1),LOW,IF((CLOSE < OPEN),CLOSE,OPEN),0.5,0),colorFF00;
STICKLINE((ND1 > ND2),LOW,IF((CLOSE >= OPEN),OPEN,CLOSE),0.5,0),colorFF;
STICKLINE((ND2 > ND1),HIGH,IF((CLOSE > OPEN),CLOSE,OPEN),0.5,0),colorFF00;
ND3:=(((CLOSE - LLV(LOW,64)) / (HHV(HIGH,64) - LLV(LOW,64))) * 100);
ND4:=((SMA(MAX((CLOSE - REF(CLOSE,1)),0),18,1) / SMA(ABS((CLOSE - REF(CLOSE,1))),18,1)) * 100);
ND5:=((ND3 / ND4) > 1.39);
ND6:=(ND4 > 65);
DRAWTEXT((ND5 AND ND6),HIGH,'头');
顶部:SMA((MA(CLOSE,26) + (2.191 * STD(CLOSE,26))),3,1),colorFF00;
中线:MA(CLOSE,26),POINTDOT,LINETHICK2,colorFFFF;
底部:SMA((中线 - (2.191 * STD(CLOSE,26))),3,1),colorFF;
DRAWTEXT(CROSS(顶部,CLOSE),HIGH,'□'),colorFFFF;
DRAWTEXT(CROSS(CLOSE,底部),LOW,'◆'),colorFFFF;
ND10:=(((((((MA(CLOSE,27) / CLOSE) > 1.169) AND ((MA(CLOSE,17) / CLOSE) > 1.158)) AND (CLOSE < MA(CLOSE,120))) AND (MA(CLOSE,60) < MA(CLOSE,120))) AND (MA(CLOSE,60) > MA(CLOSE,30))) AND ("CCI" > (0 - 210)));
DRAWTEXT(ND10,LOW,'┏');

威廉K线（主图）
input:N(19,1,999);
WR:=(100 + ((100 * (CLOSE - HHV(HIGH,N))) / (HHV(HIGH,N) - LLV(LOW,N))));
WR24:=(100 + ((100 * (CLOSE - HHV(HIGH,(N * 2)))) / (HHV(HIGH,(N * 2)) - LLV(LOW,(N * 2)))));
上档:HHV(HIGH,N),colorFF00FF;
强势:(((HHV(HIGH,N) - LLV(LOW,N)) * 0.8) + LLV(LOW,N)),color808080;
上防:(((HHV(HIGH,N) - LLV(LOW,N)) * 0.618) + LLV(LOW,N)),color80;
中线:((HHV(HIGH,N) + LLV(LOW,N)) / 2),colorFFFFFF;
下防:(((HHV(HIGH,N) - LLV(LOW,N)) * 0.382) + LLV(LOW,N)),color80;
弱势:(((HHV(HIGH,N) - LLV(LOW,N)) * 0.2) + LLV(LOW,N)),color808080;
下档:LLV(LOW,N),colorFF00;
多空线:MA(CLOSE,13),LINETHICK2,colorFFFF;
振幅:=((HHV(HIGH,N) - LLV(LOW,N)) / LLV(LOW,N));
STICKLINE(((WR >= 80) AND (CLOSE >= OPEN)),OPEN,CLOSE,8,1),colorFF00FF;
STICKLINE(((WR >= 80) AND (CLOSE < OPEN)),OPEN,CLOSE,8,0),colorFF00FF;
STICKLINE((((WR >= 50) AND (WR < 80)) AND (CLOSE >= OPEN)),OPEN,CLOSE,8,1),colorFF;
STICKLINE((CLOSE > OPEN),HIGH,CLOSE,0.4,0),colorFF;
STICKLINE((CLOSE > OPEN),OPEN,LOW,0.4,0),colorFF;
STICKLINE((((WR >= 50) AND (WR < 80)) AND (CLOSE < OPEN)),OPEN,CLOSE,8,0),colorFF;
STICKLINE(((WR <= 50) AND (CLOSE >= OPEN)),OPEN,CLOSE,8,1),colorFF00;
STICKLINE(((WR <= 20) AND (CLOSE < OPEN)),OPEN,CLOSE,8,0),colorFF00;
STICKLINE((((WR > 20) AND (WR < 50)) AND (CLOSE >= OPEN)),OPEN,CLOSE,8,1),colorFFFF00;
STICKLINE((OPEN > CLOSE),HIGH,OPEN,0.4,0),colorFFFF00;
STICKLINE((OPEN > CLOSE),CLOSE,LOW,0.4,0),colorFFFF00;
STICKLINE((((WR > 20) AND (WR < 50)) AND (CLOSE < OPEN)),OPEN,CLOSE,8,0),colorFFFF00;

控盘力道（副图）
CC:=(((CLOSE + HIGH) + LOW) / 3);
DD:=EMA(EMA(EMA(CC,1),13),21);
主力控盘度:=(((DD - REF(DD,1)) / REF(DD,1)) * 100);
STICKLINE(((((DD - REF(DD,1)) / REF(DD,1)) * 100) > 1),1,(((((DD - REF(DD,1)) / REF(DD,1)) * 100) * 1000) + 1),6,0),,colorFF00FF;
STICKLINE(((((DD - REF(DD,1)) / REF(DD,1)) * 100) < 1),1,(((((DD - REF(DD,1)) / REF(DD,1)) * 100) * 1000) + 1),6,0),,colorFFFF00;
STICKLINE((主力控盘度< REF(主力控盘度,1)),1,(((((DD - REF(DD,1)) / REF(DD,1)) * 100) * 1000) + 1),6,0),,colorFFFF00;
STICKLINE((主力控盘度> REF(主力控盘度,1)),1,(((((DD - REF(DD,1)) / REF(DD,1)) * 100) * 1000) + 1),6,0),,colorFF00FF;

本帖最后由 唐稳正 于 2006-3-27 12:33 编辑 ]