当前位置:分析家公式网 → 股票公式 → 通达信公式 → 一键转帖:擒妖排序幅图和选股 源码
软件名称:[B]擒妖排序幅图和选股 源码[/B]
软件类型:国产软件
运行环境:Win9X/Win2000/WinXP/Win2003/Win7/
软件语言:简体中文
授权方式:免费版
软件大小:7.00 KB
官方主页:Home Page
更新时间:2018-12-22 11:04:09
软件简介:
{公式名称: 擒妖排序幅图
公式描述:
参数数量: 2
参数1: 流通盘小于亿, 最小: 1, 最大: 5000, 缺省: 20
参数2: 震荡过滤, 最小: 0, 最大: 1, 缺省: 0
公式类型: 技术指标公式-鬼系
画线方法: 副图
公式版本: 0
显示小数: 缺省位数
坐标线位置: 自动
额外Y轴分界: 无
参数精灵:
请设置计算参数:
流通盘小于亿: Param#0 (1.00--5000.00)
震荡过滤: Param#1 (0.00--1.00)
用法注释:无
公式源码:}
流通盘小于亿:=20;
震荡过滤:=0;
VAR1:=(EMA(CLOSE,12)/EMA(CLOSE,26)-1)*1000;
VAR2:=EMA(VAR1,5);
VAR3:=(EMA(INDEXC,12)/EMA(INDEXC,26)-1)*1000;
VAR4:=EMA(VAR3,5);
VAR5:=VAR2-REF(VAR2,1);
VAR6:=VAR4-REF(VAR4,1);
VAR7:=IF(VAR5-VAR6>0,(VAR5-VAR6)*5,0);
VAR8:=VAR7-REF(VAR7,1);
VAR9:=SMA((CLOSE-REF(CLOSE,1))*VOL,3,1)/10000;
VAR10:=1;{分析家公式网www.70822.com}
VAR11:=EMA(VAR9,12)-EMA(VAR9,26);
VAR12:=EMA(VAR11,9);
VAR13:=(VAR11-VAR12)*2;
VAR14:=HHVBARS(VAR13,BARSLAST(VAR13<0)+1);
VAR15:=CROSS(BACKSET(CROSS(0,VAR13),REF(VAR14,1)+2),0.5);
VAR16:=DRAWLINE(VAR15,VAR13,REF(VAR15,1),REF(VAR13,1),1);
VAR17:=VAR13>VAR16 AND VAR13>=REF(VAR13,1);
VAR18:=CLOSE>=ZTPRICE(REF(CLOSE,1),0.1) AND LOW=HIGH;
VAR19:=BARSSINCE(CLOSE)<1 OR BARSSINCE(CLOSE)<34 AND CLOSE>=ZTPRICE(REF(CLOSE,1),0.1) AND LOW=HIGH;
VAR20:=CLOSE>=ZTPRICE(REF(CLOSE,1),0.1) AND LOW<HIGH;
VAR21:=HIGH>=ZTPRICE(REF(CLOSE,1),0.1) AND CLOSE<HIGH;
VAR22:=1+3*VAR20+1*VAR18+0.2*VAR21;
VAR23:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
VAR24:=VAR23*VAR22;{分析家公式网www.70822.com}
VAR25:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
VAR26:=IF(CLOSE>OPEN,VAR25*(HIGH-LOW),IF(CLOSE<OPEN,VAR25*(HIGH-OPEN+(CLOSE-LOW)),IF(CLOSE=OPEN AND CLOSE>REF(CLOSE,1),VOL*0.7,VOL*0.3)));
VAR27:=IF(CLOSE>OPEN,VAR25*(HIGH-CLOSE+(OPEN-LOW)),IF(CLOSE<OPEN,VAR25*(HIGH-LOW),IF(CLOSE=OPEN AND CLOSE<REF(CLOSE,1),VOL*0.7,VOL*0.3)));
VAR28:=IF(VAR10!=1,0,SUM((VAR26-VAR27)/CAPITAL,1)*1000);
VAR29:=VOL/10000;
VAR30:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,TOTALFZNUM,1)))));
VAR31:=MOD(FROMOPEN,VAR30);
VAR32:=IF(VAR31<0.5,VAR30,VAR31);
VAR33:=IF(CURRBARSCOUNT=1 AND PERIOD<=5 AND DYNAINFO(8)>1,VOL*VAR30/VAR32/10000,DRAWNULL);
VAR34:=IF(CURRBARSCOUNT=1 AND PERIOD<=5,VAR33,VAR29);
VAR35:=VAR34/REF(MA(VAR34,5),1);
VAR36:=IF(CLOSE>=REF(CLOSE,1) AND VAR35>3,33,IF(CLOSE<REF(CLOSE,1) AND VAR35>3,0,IF(CLOSE>=REF(CLOSE,1) AND VAR35<=3,VAR35*10,VAR35)));
VAR37:=IF(CLOSE>0,EMA(MAX(CLOSE-REF(CLOSE,1),0),83)/EMA(ABS(CLOSE-REF(CLOSE,1)),83)*101,0);
VAR38:=DMA(EMA(CLOSE,12),SUM(VOL,5)/3/CAPITAL);
VAR39:=VAR13-REF(VAR13,1);
VAR40:=DYNAINFO(4)>0;{分析家公式网www.70822.com}
VAR41:=EXIST(ABS(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>0.052,20) AND EXIST(CLOSE/REF(CLOSE,1)>1.15,2)!=1;
VAR42:=FINANCE(40)<300*100000000 AND FINANCE(7)<=流通盘小于亿*100000000;
VAR43:=VAR41 AND VAR40 AND VAR19=0 AND AMOUNT/10000>1000;
VAR44:=COUNT(HIGH/REF(CLOSE,1)>=1.081,5)>=2 AND CLOSE>=OPEN;
VAR45:=INDEXADV/(INDEXADV+INDEXDEC);
VAR46:=VAR10;
VAR47:=IF(VAR46=1,VAR45*100,0);
VAR48:=VAR47>85 OR REF(VAR47,1)>85;
VAR49:=IF(震荡过滤=1,VAR48,0);
VAR50:=VAR37>53 AND CLOSE>=OPEN;
VAR51:=(CLOSE-VAR38)/VAR38*200;
VAR52:=IF(VAR49=0 AND VAR43 AND VAR42 AND VAR44 AND VAR50 AND VAR17=1,(VAR28+VAR8*3+VAR24+VAR36+VAR39*5+VAR51)*1.1,0);
擒妖:CROSS(VAR52,5),NODRAW,COLORLIBLUE;
STICKLINE(擒妖,0,1,2,0),COLORLIBLUE;
{公式名称: 擒妖排序选股
公式描述:
参数数量: 2
参数1: 流通盘小于亿, 最小: 1, 最大: 5000, 缺省: 20
参数2: 震荡过滤, 最小: 0, 最大: 1, 缺省: 0
公式类型: 条件选股公式-其他类型
公式版本: 0
参数精灵:
请设置计算参数:
流通盘小于亿: Param#0 (1.00--5000.00)
用法注释:无
公式源码:}
流通盘小于亿:=20;
震荡过滤:=0;
VAR1:=(EMA(CLOSE,12)/EMA(CLOSE,26)-1)*1000;
VAR2:=EMA(VAR1,5);
VAR3:=(EMA(INDEXC,12)/EMA(INDEXC,26)-1)*1000;
VAR4:=EMA(VAR3,5);
VAR5:=VAR2-REF(VAR2,1);
VAR6:=VAR4-REF(VAR4,1);
VAR7:=IF(VAR5-VAR6>0,(VAR5-VAR6)*5,0);
VAR8:=VAR7-REF(VAR7,1);
VAR9:=SMA((CLOSE-REF(CLOSE,1))*VOL,3,1)/10000;
VAR10:=1;{分析家公式网www.70822.com}
VAR11:=EMA(VAR9,12)-EMA(VAR9,26);
VAR12:=EMA(VAR11,9);
VAR13:=(VAR11-VAR12)*2;
VAR14:=HHVBARS(VAR13,BARSLAST(VAR13<0)+1);
VAR15:=CROSS(BACKSET(CROSS(0,VAR13),REF(VAR14,1)+2),0.5);
VAR16:=DRAWLINE(VAR15,VAR13,REF(VAR15,1),REF(VAR13,1),1);
VAR17:=VAR13>VAR16 AND VAR13>=REF(VAR13,1);
VAR18:=CLOSE>=ZTPRICE(REF(CLOSE,1),0.1) AND LOW=HIGH;
VAR19:=BARSSINCE(CLOSE)<1 OR BARSSINCE(CLOSE)<34 AND CLOSE>=ZTPRICE(REF(CLOSE,1),0.1) AND LOW=HIGH;
VAR20:=CLOSE>=ZTPRICE(REF(CLOSE,1),0.1) AND LOW<HIGH;
VAR21:=HIGH>=ZTPRICE(REF(CLOSE,1),0.1) AND CLOSE<HIGH;
VAR22:=1+3*VAR20+1*VAR18+0.2*VAR21;
VAR23:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
VAR24:=VAR23*VAR22;{分析家公式网www.70822.com}
VAR25:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
VAR26:=IF(CLOSE>OPEN,VAR25*(HIGH-LOW),IF(CLOSE<OPEN,VAR25*(HIGH-OPEN+(CLOSE-LOW)),IF(CLOSE=OPEN AND CLOSE>REF(CLOSE,1),VOL*0.7,VOL*0.3)));
VAR27:=IF(CLOSE>OPEN,VAR25*(HIGH-CLOSE+(OPEN-LOW)),IF(CLOSE<OPEN,VAR25*(HIGH-LOW),IF(CLOSE=OPEN AND CLOSE<REF(CLOSE,1),VOL*0.7,VOL*0.3)));
VAR28:=IF(VAR10!=1,0,SUM((VAR26-VAR27)/CAPITAL,1)*1000);
VAR29:=VOL/10000;
VAR30:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,TOTALFZNUM,1)))));
VAR31:=MOD(FROMOPEN,VAR30);
VAR32:=IF(VAR31<0.5,VAR30,VAR31);
VAR33:=IF(CURRBARSCOUNT=1 AND PERIOD<=5 AND DYNAINFO(8)>1,VOL*VAR30/VAR32/10000,DRAWNULL);
VAR34:=IF(CURRBARSCOUNT=1 AND PERIOD<=5,VAR33,VAR29);
VAR35:=VAR34/REF(MA(VAR34,5),1);
VAR36:=IF(CLOSE>=REF(CLOSE,1) AND VAR35>3,33,IF(CLOSE<REF(CLOSE,1) AND VAR35>3,0,IF(CLOSE>=REF(CLOSE,1) AND VAR35<=3,VAR35*10,VAR35)));
VAR37:=IF(CLOSE>0,EMA(MAX(CLOSE-REF(CLOSE,1),0),83)/EMA(ABS(CLOSE-REF(CLOSE,1)),83)*101,0);
VAR38:=DMA(EMA(CLOSE,12),SUM(VOL,5)/3/CAPITAL);
VAR39:=VAR13-REF(VAR13,1);
VAR40:=DYNAINFO(4)>0;
VAR41:=EXIST(ABS(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>0.052,20) AND EXIST(CLOSE/REF(CLOSE,1)>1.15,2)!=1;
VAR42:=FINANCE(40)<300*100000000 AND FINANCE(7)<=流通盘小于亿*100000000;
VAR43:=VAR41 AND VAR40 AND VAR19=0 AND AMOUNT/10000>1000;
VAR44:=COUNT(HIGH/REF(CLOSE,1)>=1.081,5)>=2 AND CLOSE>=OPEN;
VAR45:=INDEXADV/(INDEXADV+INDEXDEC);
VAR46:=VAR10;
VAR47:=IF(VAR46=1,VAR45*100,0);