通达信捉妖记主升浪指标公式源码

操作线:MA(CLOSE,5)DOTLINE;
{输出操作线:收盘价的5日简单移动平均画虚线;}

趋势线:MA(CLOSE,10);
{输出趋势线:收盘价的10日简单移动平均;}

VAR0:=MA(C,3);
{VAR0赋值:收盘价的3日简单移动平均;}

AA:=C>MA(C,10);
{AA赋值:收盘价>收盘价的10日简单移动平均;}

VAR1:=VAR0>REF(VAR0,1) AND VAR0>REF(VAR0,2) AND V>0;
{VAR1赋值:VAR0>1日前的VAR0 和 VAR0>2日前的VAR0 和 成交量(手)>0;}

VAR2:=REF(VAR1,1) AND VAR0<=REF(VAR0,1) AND VAR0>=REF(VAR0,2);
{VAR2赋值:1日前的VAR1 和 VAR0<=1日前的VAR0 和 VAR0>=2日前的VAR0;}

VAR3:=REF(VAR2,1) AND VAR0>=REF(VAR0,1) AND VAR0<=REF(VAR0,2);
{VAR3赋值:1日前的VAR2 和 VAR0>=1日前的VAR0 和 VAR0<=2日前的VAR0;}

VAR4:=REF(VAR3,1) AND VAR0<=REF(VAR0,1) AND VAR0>=REF(VAR0,2);
{VAR4赋值:1日前的VAR3 和 VAR0<=1日前的VAR0 和 VAR0>=2日前的VAR0;}

VAR5:=REF(VAR4,1) AND VAR0>=REF(VAR0,1) AND VAR0<=REF(VAR0,2);
{VAR5赋值:1日前的VAR4 和 VAR0>=1日前的VAR0 和 VAR0<=2日前的VAR0;}

VAR6:=REF(VAR5,1) AND VAR0<=REF(VAR0,1) AND VAR0>=REF(VAR0,2);
{VAR6赋值:1日前的VAR5 和 VAR0<=1日前的VAR0 和 VAR0>=2日前的VAR0;}

VAR7:=REF(VAR6,1) AND VAR0>=REF(VAR0,1) AND VAR0<=REF(VAR0,2);
{VAR7赋值:1日前的VAR6 和 VAR0>=1日前的VAR0 和 VAR0<=2日前的VAR0;}

VAR8:=REF(VAR7,1) AND VAR0<=REF(VAR0,1) AND VAR0>=REF(VAR0,2);
{VAR8赋值:1日前的VAR7 和 VAR0<=1日前的VAR0 和 VAR0>=2日前的VAR0;}

VAR9:=REF(VAR8,1) AND VAR0>=REF(VAR0,1) AND VAR0<=REF(VAR0,2);
{VAR9赋值:1日前的VAR8 和 VAR0>=1日前的VAR0 和 VAR0<=2日前的VAR0;}

VARA:=REF(VAR9,1) AND VAR0<=REF(VAR0,1) AND VAR0>=REF(VAR0,2);
{VARA赋值:1日前的VAR9 和 VAR0<=1日前的VAR0 和 VAR0>=2日前的VAR0;}

VARB:=REF(VARA,1) AND VAR0>=REF(VAR0,1) AND VAR0<=REF(VAR0,2);
{VARB赋值:1日前的VARA 和 VAR0>=1日前的VAR0 和 VAR0<=2日前的VAR0;}

VARC:=REF(VARB,1) AND VAR0<=REF(VAR0,1) AND VAR0>=REF(VAR0,2);
{VARC赋值:1日前的VARB 和 VAR0<=1日前的VAR0 和 VAR0>=2日前的VAR0;}

VARD:=VAR0< REF(VAR0,1) AND VAR0< REF(VAR0,2);
{VARD赋值:VAR0<1日前的VAR0 和 VAR0<2日前的VAR0;}

VARE:=REF(VARD,1) AND VAR0>=REF(VAR0,1) AND VAR0<=REF(VAR0,2);
{VARE赋值:1日前的VARD 和 VAR0>=1日前的VAR0 和 VAR0<=2日前的VAR0;}

VARF:=REF(VARE,1) AND VAR0<=REF(VAR0,1) AND VAR0>=REF(VAR0,2);
{VARF赋值:1日前的VARE 和 VAR0<=1日前的VAR0 和 VAR0>=2日前的VAR0;}

VAR10:=REF(VARF,1) AND VAR0>=REF(VAR0,1) AND VAR0<=REF(VAR0,2);
{VAR10赋值:1日前的VARF 和 VAR0>=1日前的VAR0 和 VAR0<=2日前的VAR0;}

VAR11:=REF(VAR10,1) AND VAR0<=REF(VAR0,1) AND VAR0>=REF(VAR0,2);
{VAR11赋值:1日前的VAR10 和 VAR0<=1日前的VAR0 和 VAR0>=2日前的VAR0;}

VAR12:=REF(VAR11,1) AND VAR0>=REF(VAR0,1) AND VAR0<=REF(VAR0,2);
{VAR12赋值:1日前的VAR11 和 VAR0>=1日前的VAR0 和 VAR0<=2日前的VAR0;}

VAR13:=REF(VAR12,1) AND VAR0<=REF(VAR0,1) AND VAR0>=REF(VAR0,2);
{VAR13赋值:1日前的VAR12 和 VAR0<=1日前的VAR0 和 VAR0>=2日前的VAR0;}

VAR14:=REF(VAR13,1) AND VAR0>=REF(VAR0,1) AND VAR0<=REF(VAR0,2);
{VAR14赋值:1日前的VAR13 和 VAR0>=1日前的VAR0 和 VAR0<=2日前的VAR0;}

VAR15:=REF(VAR14,1) AND VAR0<=REF(VAR0,1) AND VAR0>=REF(VAR0,2);
{VAR15赋值:1日前的VAR14 和 VAR0<=1日前的VAR0 和 VAR0>=2日前的VAR0;}

VAR16:=REF(VAR15,1) AND VAR0>=REF(VAR0,1) AND VAR0<=REF(VAR0,2);
{VAR16赋值:1日前的VAR15 和 VAR0>=1日前的VAR0 和 VAR0<=2日前的VAR0;}

VAR17:=REF(VAR16,1) AND VAR0<=REF(VAR0,1) AND VAR0>=REF(VAR0,2);
{VAR17赋值:1日前的VAR16 和 VAR0<=1日前的VAR0 和 VAR0>=2日前的VAR0;}

VAR18:=REF(VAR17,1) AND VAR0>=REF(VAR0,1) AND VAR0<=REF(VAR0,2);
{VAR18赋值:1日前的VAR17 和 VAR0>=1日前的VAR0 和 VAR0<=2日前的VAR0;}

VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;
{VAR19赋值:1日前的VARD或VARE或VARF或VAR10或VAR11或VAR12或VAR13或VAR14或VAR15或VAR16或VAR17或VAR18 和 VAR1;}

STICKLINE(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,CLOSE,O,1,0),COLORRED;
{当满足条件VAR1或VAR2或VAR3或VAR4或VAR5或VAR6或VAR7或VAR8或VAR9或VARA或VARB或VARC时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,画红色;}

VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD;
{VAR1A赋值:1日前的VAR1或VAR2或VAR3或VAR4或VAR5或VAR6或VAR7或VAR8或VAR9或VARA或VARB或VARC 和 VARD;}

STICKLINE(VAR1A,MAX(C,O),(H+L)/2,1,0),COLORFF00FF;
{当满足条件VAR1A时,在收盘价和开盘价的较大值和(最高价+最低价)/2位置之间画柱状线,宽度为1,0不为0则画空心柱.,颜色:FF00FF;}

STICKLINE(VAR1A,MAX(C,O),(H+L)/2,1,0),COLORFF00FF;
{当满足条件VAR1A时,在收盘价和开盘价的较大值和(最高价+最低价)/2位置之间画柱状线,宽度为1,0不为0则画空心柱.,颜色:FF00FF;}

STICKLINE(VAR1A,MAX(C,O),(H+L)/2,1,0),COLORFF00FF;
{当满足条件VAR1A时,在收盘价和开盘价的较大值和(最高价+最低价)/2位置之间画柱状线,宽度为1,0不为0则画空心柱.,颜色:FF00FF;}

STICKLINE(VAR1A,MAX(C,O),(H+L)/2,1,0),COLORFF00FF;
{当满足条件VAR1A时,在收盘价和开盘价的较大值和(最高价+最低价)/2位置之间画柱状线,宽度为1,0不为0则画空心柱.,颜色:FF00FF;}

STICKLINE(VAR1A,MAX(C,O),(H+L)/2,1,0),COLORFF00FF;
{当满足条件VAR1A时,在收盘价和开盘价的较大值和(最高价+最低价)/2位置之间画柱状线,宽度为1,0不为0则画空心柱.,颜色:FF00FF;}

STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,O,C,1,0);
{当满足条件VARD或VARE或VARF或VAR10或VAR11或VAR12或VAR13或VAR14或VAR15或VAR16或VAR17或VAR18时,在开盘价和收盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.;}

STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,O,C,1,0);
{当满足条件VARD或VARE或VARF或VAR10或VAR11或VAR12或VAR13或VAR14或VAR15或VAR16或VAR17或VAR18时,在开盘价和收盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.;}

STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,O,C,1,0);
{当满足条件VARD或VARE或VARF或VAR10或VAR11或VAR12或VAR13或VAR14或VAR15或VAR16或VAR17或VAR18时,在开盘价和收盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.;}

STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,O,C,1,0);
{当满足条件VARD或VARE或VARF或VAR10或VAR11或VAR12或VAR13或VAR14或VAR15或VAR16或VAR17或VAR18时,在开盘价和收盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.;}

STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,O,C,1,0);
{当满足条件VARD或VARE或VARF或VAR10或VAR11或VAR12或VAR13或VAR14或VAR15或VAR16或VAR17或VAR18时,在开盘价和收盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.;}

STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,O,C,1,0),COLORC0C0C0;
{当满足条件VARD或VARE或VARF或VAR10或VAR11或VAR12或VAR13或VAR14或VAR15或VAR16或VAR17或VAR18时,在开盘价和收盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,颜色:C0C0C0;}

VAR20:=VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC;
{VAR20赋值:VAR1 或 VAR2 或 VAR3 或 VAR4 或 VAR5 或 VAR6 或 VAR7 或 VAR8 或 VAR9 或 VARA 或 VARB 或 VARC;}

VAR21:=BARSLASTCOUNT(VAR20 AND AA)=1;
{VAR21赋值:条件连续成立次数=1;}

STICKLINE(VAR19 AND AA,O,(H+L)/2,1,0),COLORYELLOW;
{当满足条件VAR19和AA时,在开盘价和(最高价+最低价)/2位置之间画柱状线,宽度为1,0不为0则画空心柱.,画黄色;}

STICKLINE(VAR19 AND AA,O,(H+L)/2,1,0),COLORYELLOW;
{当满足条件VAR19和AA时,在开盘价和(最高价+最低价)/2位置之间画柱状线,宽度为1,0不为0则画空心柱.,画黄色;}

STICKLINE(VAR19 AND AA,O,(H+L)/2,1,0),COLORYELLOW;
{当满足条件VAR19和AA时,在开盘价和(最高价+最低价)/2位置之间画柱状线,宽度为1,0不为0则画空心柱.,画黄色;}

STICKLINE(VAR19 AND AA,O,(H+L)/2,1,0),COLORYELLOW;
{当满足条件VAR19和AA时,在开盘价和(最高价+最低价)/2位置之间画柱状线,宽度为1,0不为0则画空心柱.,画黄色;}

STICKLINE(VAR19 AND AA,O,(H+L)/2,1,0),COLORYELLOW;
{当满足条件VAR19和AA时,在开盘价和(最高价+最低价)/2位置之间画柱状线,宽度为1,0不为0则画空心柱.,画黄色;}

DRAWTEXT(VAR19 AND AA,L*1.00,’←捉’),COLORYELLOW;
{当满足条件VAR19和AA时,在最低价*1.00位置书写文字,画黄色;}

DRAWICON(VAR19 AND AA ,L*1.002,25);
{当满足条件VAR19和AA时,在最低价*1.002位置画25号图标;}

DRAWICON(VAR21 ,L*0.98,27);
{当满足条件VAR21时,在最低价*0.98位置画27号图标;}

E:=(HIGH+LOW+OPEN+2*CLOSE)/5;
{E赋值:(最高价+最低价+开盘价+2*收盘价)/5;}

阻力:=2*E-LOW;
{阻力赋值:2*E-最低价;}

支撑:=2*E-HIGH;
{支撑赋值:2*E-最高价;}

DRAWTEXT_FIX(C!=0,0.90,0.90,0,STRCAT(‘参考阻力：’,STRCAT(CON2STR(阻力,2),’ ‘))),COLORFFFF00;
{当满足条件收盘价不等于0时,在横轴0.90纵轴0.90位置书写文字,颜色:FFFF00;}

DRAWTEXT_FIX(C!=0,0.90,0.96,0,STRCAT(‘参考支撑：’,STRCAT(CON2STR(支撑,2),’ ‘))),COLOR8E8EFF;
{当满足条件收盘价不等于0时,在横轴0.90纵轴0.96位置书写文字,颜色:8E8EFF;}

X1:=IF(MA(C,5)>MA(C,10),20,0);
{X1赋值:如果收盘价的5日简单移动平均>收盘价的10日简单移动平均,返回20,否则返回0;}

X2:=IF(MA(C,20)>MA(C,60),10,0);
{X2赋值:如果收盘价的20日简单移动平均>收盘价的60日简单移动平均,返回10,否则返回0;}

X3:=IF(KDJ.J>KDJ.K,10,0);
{X3赋值:如果KDJ的J>KDJ的K,返回10,否则返回0;}

X4:=IF(MACD.DIF>MACD.DEA,10,0);
{X4赋值:如果平滑异同平均线的DIF>平滑异同平均线的DEA,返回10,否则返回0;}

X5:=IF(MACD.MACD>0,10,0);
{X5赋值:如果平滑异同平均线的MACD>0,返回10,否则返回0;}

X6:=IF(V>MA(V,60),10,0);
{X6赋值:如果成交量(手)>成交量(手)的60日简单移动平均,返回10,否则返回0;}

X7:=IF(WINNER(C)>0.5,10,0);
{X7赋值:如果以收盘价计算的获利盘比例>0.5,返回10,否则返回0;}

X8:=IF(C/REF(C,1)>1.03,10,0);
{X8赋值:如果收盘价/1日前的收盘价>1.03,返回10,否则返回0;}

XX:=X1+X2+X3+X4+X5+X6+X7+X8;
{XX赋值:X1+X2+X3+X4+X5+X6+X7+X8;}

DRAWTEXT_FIX(V>O,0.80,0.02,0,STRCAT(‘捉妖评分：’,STRCAT(CON2STR(XX,2),’ ‘))),COLORLIRED;
{当满足条件成交量(手)>开盘价时,在横轴0.80纵轴0.02位置书写文字,画淡红色;}