编程思路破译
N赋值:2
OK赋值:开盘价的60日指数移动平均
CG赋值:收盘价的60日指数移动平均
PDU赋值:如果OK>1日前的OKANDCG>1日前的CG,返回1,否则返回0
Z1赋值:收盘价的13日简单移动平均
ZX赋值:13/2+1日前的Z1
LIFE赋值:(收盘价的60日指数移动平均+收盘价的90日指数移动平均)/2
VAR1赋值:(2*收盘价+最高价+最低价)/4
SNOOK赋值:VAR1的99日指数移动平均*0.91
A1赋值:(收盘价-1日前的收盘价)/1日前的收盘价*100
MA5赋值:上次A1>3距今天数
MA20赋值:如果MA5>0,返回1,否则返回0
当满足条件收盘价上穿ZX时,在最低价*0.99位置画1号图标
当满足条件ZX上穿收盘价时,在最高价*1.01位置画5号图标
BY20赋值:收盘价的5日简单移动平均
招财猫赋值:收盘价的20日简单移动平均,线宽为2,COLOR00FFFF
鼠变异赋值:如果BY20>招财猫,返回招财猫,否则返回BY20,线宽为2,COLOR808080
选股赋值:收盘价上穿ZX AND 收盘价>ZX AND MA20=0 ,线宽为0
RB赋值:收盘价的有效数据周期数=是否最后一个周期
RD赋值:上次RB距今天数
K2赋值:50日内最高价的最高值
K1赋值:50日内最低价的最低值
T1赋值:收盘价>ZX AND 收盘价>=LIFE
T2赋值:收盘价>ZX AND 收盘价>SNOOK AND 收盘价<LIFE
T3赋值:收盘价>ZX AND 收盘价<=SNOOK
T4赋值:收盘价<=ZX
T5赋值:鼠变异>1日前的鼠变异 AND 鼠变异不等于招财猫
T6赋值:鼠变异>1日前的鼠变异 AND 鼠变异=招财猫 AND PDU不等于1
T7赋值:鼠变异>1日前的鼠变异 AND 鼠变异=招财猫 AND PDU=1
T8赋值:收盘价>ZX AND MA20=0
EEE赋值:T1+T2+T3+T4+T5+T6+T7+T8
E赋值:(K2-K1)/(EEE+8)
当满足条件收盘价>0ANDT1>0ANDISLASTBAR时,在K2-E位置书写文字,COLOR0000FF
当满足条件收盘价>0ANDT2>0ANDISLASTBAR时,在K2-E位置书写文字,COLORFF7700
当满足条件收盘价>0ANDT3>0ANDISLASTBAR时,在K2-E位置书写文字,COLOR00FF00
当满足条件收盘价>0ANDT4>0ANDISLASTBAR时,在K2-E位置书写文字,COLOR808080
当满足条件收盘价>0ANDT5>0ANDISLASTBAR时,在K2-E*2位置书写文字,COLOR00FF00
当满足条件收盘价>0ANDT6>0ANDISLASTBAR时,在K2-E*2位置书写文字,COLORFF66FF
当满足条件收盘价>0ANDT7>0ANDISLASTBAR时,在K2-E*2位置书写文字,COLOR0000FF
输出开:N-1日前的开盘价NODRAW
输出收:N-1日前的收盘价NODRAW,画黄色
输出高:N-1日前的最高价NODRAW,画白色
输出低:N-1日前的最低价NODRAW,画黄色
K线
程序源码
N:=2;
OK:=EMA(O,60);
CG:=EMA(C,60);
PDU:=IF(OK>REF(OK,1) AND CG>REF(CG,1),1,0);
Z1:=MA(C,13);
ZX:=REF(Z1,13/2+1);
LIFE:=(EMA(C,60)+EMA(C,90))/2;
VAR1:=(2*C+H+L)/4;
SNOOK:=EMA(VAR1,99)*0.91;
A1:=(C-REF(C,1))/REF(C,1)*100;
MA5:=BARSLAST(A1>3);
MA20:=IF(MA5>0,1,0);{
STICKLINE(C>ZX AND C>=LIFE,O,C,3,0),COLOR0000FF;
STICKLINE(C>ZX AND C<=SNOOK,O,C,3,0),COLOR00FF00;
STICKLINE(C>ZX AND C>SNOOK AND C<LIFE,O,C,3,0),COLORFF0000;
STICKLINE(C>ZX AND MA20=0,O,C,3,0),COLOR00FFFF;
STICKLINE(C>ZX,O,C,1,0),COLORFFFFFF;}
DRAWICON(CROSS(C,ZX),L*0.99,1);
DRAWICON(CROSS(ZX,C),H*1.01,5);
BY20:=MA(C,5);
招财猫:=MA(C,20),LINETHICK2,COLOR00FFFF;
鼠变异:=IF(BY20>招财猫,招财猫,BY20),LINETHICK2,COLOR808080;
选股:=CROSS(C,ZX) AND C>ZX AND MA20=0 ,LINETHICK0;
RB:=BARSCOUNT(C)=ISLASTBAR;
RD:=BARSLAST(RB);
K2:=HHV(H,50);
K1:=LLV(L,50);
T1:=C>ZX AND C>=LIFE;
T2:=C>ZX AND C>SNOOK AND C<LIFE;
T3:=C>ZX AND C<=SNOOK;
T4:=C<=ZX;
T5:=鼠变异>REF(鼠变异,1) AND 鼠变异!=招财猫 ;
T6:=鼠变异>REF(鼠变异,1) AND 鼠变异=招财猫 AND PDU!=1;
T7:=鼠变异>REF(鼠变异,1) AND 鼠变异=招财猫 AND PDU=1;
T8:=C>ZX AND MA20=0 ;
EEE:=T1+T2+T3+T4+T5+T6+T7+T8 ;
E:=(K2-K1)/(EEE+8) ;
DRAWTEXT(C>0 AND T1>0 AND ISLASTBAR,K2-E,'出洞了逮住它!'),COLOR0000FF;
DRAWTEXT(C>0 AND T2>0 AND ISLASTBAR,K2-E,'鼠玩猫守着它!,'),COLORFF7700;
DRAWTEXT(C>0 AND T3>0 AND ISLASTBAR,K2-E,'露尾巴动作快!,'),COLOR00FF00;
DRAWTEXT(C>0 AND T4>0 AND ISLASTBAR,K2-E,'没有了打个盹!,'),COLOR808080;
DRAWTEXT(C>0 AND T5>0 AND ISLASTBAR,K2-E*2,'发现鼠迹!'),COLOR00FF00;
DRAWTEXT(C>0 AND T6>0 AND ISLASTBAR,K2-E*2,'瞬间鼠影!'),COLORFF66FF;
DRAWTEXT(C>0 AND T7>0 AND ISLASTBAR,K2-E*2,'恶鼠难遁!'),COLOR0000FF;
开:REF(OPEN,N-1)NODRAW;
收:REF(CLOSE,N-1)NODRAW,COLORYELLOW;
高:REF(HIGH,N-1)NODRAW,COLORWHITE;
低:REF(LOW,N-1)NODRAW,COLORYELLOW;
DRAWKLINE(高,开,低,收);
注:
馆内各种公式为学习编程而保存,实战使用前一定要看其中是否有未来函数并自己亲自测试成功率,决不能依据公式名称的描述和形容去投资,据此入市造成投资损失由投资者自己承担。
发文不易,如获益,欢迎赞赏,赞赏必复!
联系客服