换手蜡烛公式
去掉趋势线后的光k线公式，看换手比较直观。
不知能否改成通达信使用（去掉解盘），请高手们帮忙！先谢了！
源码：
EXPLAINICON(CLOSE>0,'zwbsdnjp'),ALIGN1;
EXPLAINICON(CLOSE>0,'sfcb'),ALIGN1;
EXPLAINICON(CLOSE>0,'dpjsbj'),ALIGN1;
QQQ:=(INDEXH+INDEXL)/2;
DD:=FFT(QQQ,26);
DDD:=FFT((HIGH+LOW)/2,26);
EXPLAIN(DD>=REF(DD,1),'解盘：大盘多头攻击、获利机会出现、寻机买进！'),colorFF;
EXPLAIN(DD<=REF(DD,1),'解盘：大盘空头攻击、无明显操作机会、坚决出局！'),colorFF00;
VK:=VOL/CAPITAL*100;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),colorFF00FF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,VK+3,1),colorFF00FF;
STICKLINE(CLOSE<OPEN,HIGH,LOW,0,1),colorFF00;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,VK+3,0),colorFF00;
BJ:=CLOSE/INDEXC*1000;
QS:=BJ>REF(BJ,1);
RS:=BJ<=REF(BJ,1);
EXPLAIN(QS,'解盘：个股走势：强于大盘'),colorFF;
EXPLAIN(RS,'解盘：个股走势：弱于大盘'),colorFF00;
EXPLAINICON(CLOSE>0,'ggjszt'),ALIGN1;
日K:="KDJ.K#day"(20,5,5);
日D:="KDJ.D#day"(20,5,5);
周K:="KDJ.K#week"(9,3,3);
周D:="KDJ.D#week"(9,3,3);
EXPLAINEX(日K>0,'解盘：日K=',日K,2,0),colorFF0000;
EXPLAIN(日K<=20,'解盘：日线KD指标位置：低位'),colorFF;
EXPLAIN(日K>20 AND 日K<50,'解盘：日线KD指标位置：中低'),colorFF;
EXPLAIN(日K>50 AND 日K<80,'解盘：日线KD指标位置：中高'),colorFF00;
EXPLAIN(日K>=80,'解盘：日线KD指标位置：高位'),colorFF00;
EXPLAINEX(周K>0,'解盘：周K=',周K,2,0),colorFF;
EXPLAIN(周K<=20,'解盘：周线KD指标位置：低位'),colorFF;
EXPLAIN(周K>20 AND 周K<50,'解盘：周线KD指标位置：中低'),colorFF;
EXPLAIN(周K>50 AND 周K<80,'解盘：周线KD指标位置：中高'),colorFF00;
EXPLAIN(周K>=80,'解盘：周线KD指标位置：高位');
EXPLAIN(CROSS(日K,日D),'解盘：日K与日D今日金叉'),colorFF;
EXPLAIN(CROSS(日D,日K),'解盘：日K与日D今日死叉'),colorFF00;
EXPLAIN(CROSS(周K,周D),'解盘：周K与周D今日金叉'),colorFF;
EXPLAIN(CROSS(周D,周K),'解盘：周K与周D今日死叉'),colorFF00;
EXPLAINICON(CLOSE>0,'szczzy'),ALIGN1;
R:=REF(CLOSE,1)/CLOSE;
QY:=VOL;
QTT:=QY*R;
TL:=FILTER(VOL=HHV(VOL,20),20);
DL:=FILTER(VOL=LLV(VOL,20),20);
XD:=FILTER(LOW=LLV(LOW,20),20);
XG:=FILTER(HIGH=HHV(HIGH,20),20);
AQ标准攻击量:=QTT*1.15;
HQ危险成交量:=QTT*1.5;
LQ防守量:=QTT*0.75;
AHQ平均高量:=(AQ标准攻击量+HQ危险成交量)/2;
ALQ平均低量:=(AQ标准攻击量+LQ防守量)/2;
市场实际量能:=QY;
EXPLAINEX(HQ危险成交量,'解盘：次日攻击危险量=',HQ危险成交量,0,0),colorFF;
EXPLAINEX(AQ标准攻击量,'解盘：次日攻击标准量=',AQ标准攻击量,0,0),colorFF0000;
EXPLAINEX(LQ防守量,'解盘：次日攻击防守量=',LQ防守量,0,0),colorFF00;
EXPLAINEX(TL,'解盘：今日为20日最大量=',VOL,0,0),colorFF;
EXPLAINEX(DL,'解盘：今日为20日最小量=',VOL,0,0),colorFF00;
EXPLAINEX(XD,'解盘：今日为20日最低价格=',LOW,2,0),colorFF00;
EXPLAINEX(XG,'解盘：今日为20日最高价格=',LOW,2,0),colorFF;
PT:=REF(HIGH,1)-REF(LOW,1);
CDP:=(HIGH+LOW+2*CLOSE)/4;
AH:=CDP+PT;
AL:=CDP-PT;
NH敏感阻力:=2*CDP-LOW;
NL:=2*CDP-HIGH;
EXPLAINEX(AH,'解盘：次日重大阻力价位=',AH,2,0),colorFF00;
EXPLAINEX(NH敏感阻力,'解盘：次日敏感阻力区域=',NH敏感阻力,2,0),colorFFFF;
EXPLAINEX(CDP,'解盘：次日关键均衡价位=',CDP,2,0),colorFFFFFF;
EXPLAINEX(NL,'解盘：次日重要支撑区域=',NL,2,0),colorFF0000;
EXPLAINEX(AL,'解盘：次日关键支撑价位=',AL,2,0),colorFF;
EXPLAINICON(CLOSE>0,'szczxh'),ALIGN1;
VAR0:=REF(CLOSE,1)-REF(OPEN,1);
VAR1:=REF(OPEN,1);
VAR2:=CLOSE>=VAR1*1.05;
VAR3:=CLOSE>=2*VAR0/3+VAR1 AND CLOSE<=VAR1*1.05;
VAR4:=CLOSE<VAR0*2/3+VAR1;
EXPLAINEX(VAR2,'解盘：个股目前态势：超级强势。涨幅 %f %',(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF00FF;
EXPLAINEX(VAR3,'解盘：个股目前态势：强势。涨幅 %f %',(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF;
EXPLAINEX(VAR4,'解盘：个股目前态势：弱势。涨幅 %f %',(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,1,0),colorFF00;
B1:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100<-12;
B3:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100>15;
B:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100;
EXPLAINEX(B<-18 AND CLOSE/OPEN>1.06,'解盘：抢反弹!负乖离偏大,小单进场。此刻30日乖离率=',B,2,1),colorFF;
EXPLAINEX(B>40 AND CLOSE/REF(CLOSE,1)<1.08,'解盘：高抛!正乖离偏大,按照短线技术系统高抛:',B,2,0),colorFF00;
EXPLAINEX(NOT(B<-18 AND CLOSE/OPEN>1.06) OR NOT(B>40 AND CLOSE/REF(CLOSE,1)<1.08),'解盘：此刻30日乖离率=',B,2,0),colorFFFF;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
