通达信插件开发

library tdxdlltest;

{通达信dll公式函数规范 delphi版 2016.03.05 } uses

SysUtils,Windows;

{$R *.res} type

ArraySingle=array of single; type

pPluginFUNC = procedure(p1: Integer; var p2, p3, p4, p5: ArraySingle); cdecl;//不要修改

tagPluginTCalcFuncInfo = packed record nFuncMark: Word; pCallFunc: pPluginFUNC; end;

PluginTCalcFuncInfo = tagPluginTCalcFuncInfo; PPluginTCalcFuncInfo = ^PluginTCalcFuncInfo; PPPluginTCalcFuncInfo = ^PPluginTCalcFuncInfo;

pRegisterPluginFUNC = function(pFun: PPPluginTCalcF

通达信选股公式去除ST和停盘，大盘股 AA:= AND MA(C,5)>REF(MA(C,5),1); BB:= AND MA(C,10)>REF(MA(C,10),1); 30日内有停板公式

N:=30; ZT:=C/REF(C,1)>=1.099 AND C=H AND DYNAINFO(4)>0;COUNT(ZT,N)>=1 ; 老乐26日中9%的涨幅统计

去除ST:=EXIST(C/REF(C,1)>1.055,60);

放在前面有效 去除停牌:=DYNAINFO(4)>0; XG:去除ST AND 去除停牌;

选股公式中去除ST和停牌股的方法： 15，选出10天内出现了涨停的个股 count(c/ref(c,1)>1.1,10)>0; 老乐30日放大量地位放大量 HHV(V,3)>REF(HHV(V,30),4);

放量 V>REF(V,1)*2 AND C>REF(C,1);

附加条件:=NOT(NAMELIKE('S') OR NAMELIKE('*S')) AND VOL>1;

仙人路

H/REF(C,1)>1.04 AND C/REF(C,1)>1.01 AND C/REF(C,1)<1.03

VARV:=(2*C+H+L)/4; VARU:=LLV(LOW,30); VARA1:=HHV(HIGH,30);

B:=EMA((VARV-VARU)/(VARA1-VARU)*100,8); B1:=EMA(B,5);

STICKLINE(B-B1>0,B,B1,8,1),COLORRED; STICKLINE(B-B1<0,B,B1,8,1),COLOR00FF00; LC:=REF(CLOSE,1);

RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100; 低吸:IF(CROSS(RSI,11),70,0),COLORWHITE,POINTDOT; STICKLINE(低吸,70,0,4,0),COLORWHITE;

VAR7:=EMA(AMOUNT/VOL/100,3); VAR8:=EMA(VAR7,88);

VAR9:=EMA(VAR7,88)*0.85; VARA:=VAR9*0.87;

VARB:=LOWREF(CLOSE,1)*1.02; STICKLINE(FILTER(VARB,6),65,0,4,0),COLORFF00FF;

建仓3层:IF(FILTER(VARB,6),65,0),COLORFF00FF,POINTDOT;

VARF:=(

深圳市财富趋势科技有限责任公司 第 1 页 共 61 页

通达信网上交易版本讲义

一、行情部分.................................................................................................................................................................................................................................................................... 3

（一）行情报价界面 .................................................................................................

VARV:=(2*C+H+L)/4; VARU:=LLV(LOW,30); VARA1:=HHV(HIGH,30);

B:=EMA((VARV-VARU)/(VARA1-VARU)*100,8); B1:=EMA(B,5);

STICKLINE(B-B1>0,B,B1,8,1),COLORRED; STICKLINE(B-B1<0,B,B1,8,1),COLOR00FF00; LC:=REF(CLOSE,1);

RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100; 低吸:IF(CROSS(RSI,11),70,0),COLORWHITE,POINTDOT; STICKLINE(低吸,70,0,4,0),COLORWHITE;

VAR7:=EMA(AMOUNT/VOL/100,3); VAR8:=EMA(VAR7,88);

VAR9:=EMA(VAR7,88)*0.85; VARA:=VAR9*0.87;

VARB:=LOWREF(CLOSE,1)*1.02; STICKLINE(FILTER(VARB,6),65,0,4,0),COLORFF00FF;

建仓3层:IF(FILTER(VARB,6),65,0),COLORFF00FF,POINTDOT;

VARF:=(

通达信公式

{INPUT:M(60,3,100),N(30,3,100);}

散户线: 100*(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M)); RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100; K:=SMA(RSV,5,1); D:=SMA(K,3,1); J:=3*K-2*D;

在通达信日均线主图中做涨停标记

方法1:

ZF:=(C-REF(C,1))/REF(C,1)*100>9.8; DRAWTEXT(ZF,L-0.05,'▲'),COLORRED;

方法2:

涨跌:=REF(C,1);

涨停:=IF((C-涨跌)*100/涨跌>=(10-0.01*100/涨跌),1,0); STICKLINE(涨停,OPEN,CLOSE,2,0),COLORRED; STICKLINE(涨停,H,L,0,0),COLORRED;

跌停:=IF((涨跌-C)*100/涨跌>=(10-0.01*100/涨跌),1,0); STICKLINE(跌停,OPEN,CLOSE,2,0),COLORWHITE; STICKLINE(跌停,H,L,0,1

通达信公式教程

供初学者操作指南

公式入门

我们大多数的用户并不是完全了解“公式编辑器”的意义，简单地，我们可以从以下几个角度进行理解：

一、指标分析：

“公式编辑器”好比是一个工作母床，通过这个工作母床可以制造出所需要的各式各样的零件，同样，在指标分析的工作中，利用编辑器可以编写出相应的分析条件，这种方法是在技术分析当中最为常用的方法之一。例如，指标KD、指标MA等等，通过对这些指标的观察、分析，找出一些合适的条件作为买入卖出点。当然，我们也许需要的是一些自己的指标，一些自己的准确的指标，更多的MB、MC、MD等等，这一切我们通过“公式编辑器”可以实现。

二、条件选股：

编写公式都要用到什么东西？

我们留下了许多问题--都是公式编写的基础问题，所以我们这节课来解决这些基础的问题。 什么是技术指标？

MA均线就是一种技术指标，我们在炒股的时候，经常会将一些行情数据进行数学计算得出一些曲线等等，方便我们掌握股市的变动情况。

什么是条件选股？

简单讲，就是按照您的设定的条件用电脑帮助您完成一些太多太复杂的挑选--比如您有一些好的心得和方法，可使有1000多只股票，您就是有100双眼睛有时也不一定可以看得过来，这时电脑就派上用场了！

什么是参数？

比如讲：10日均线，您可以

MA1:MA(CLOSE,5),LINETHICK1,COLORWHITE; MA2:MA(CLOSE,10),LINETHICK1,COLORYELLOW; MA3:MA(CLOSE,20),LINETHICK3,COLORMAGENTA; MA4:MA(CLOSE,60),LINETHICK1,COLORGREEN; 买线:=EMA(C,4);

卖线:=EMA(SLOPE(C,20)*10+C,35);

DRAWTEXT(CROSS(买线,卖线),LOW*1.00,'↖买'),COLORRED,LINETHICK2; DRAWTEXT(CROSS(卖线,买线),HIGH*1.01,'↙卖'),COLORGREEN; LC:=REF(CLOSE,1);

RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;

DRAWTEXT(CROSS(90,RSI) , HIGH*1.01,'↙逢高出局!'),COLOR00FF00 ;

A:=(3*C+L+O+H)/6;

X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*RE

SZ3天地人

天: IF(HHVBARS(V ,60) ,REF(C ,HHVBARS(V ,60) ) ,C ),COLORLIBLUE,POINTDOT; 地: IF(LLVBARS(V,5), REF (C,LLVBARS(V,5)),C),COLORYELLOW,POINTDOT; 人: IF(LLVBARS(V,13), REF (C,LLVBARS(V,13)),C),COLORMAGENTA,POINTDOT;

MA3:MA(C,3); MA13:MA(C,13);

主力成本:COST(5),POINTDOT; 获利了结: COST(98),POINTDOT; ZLX:STICKLINE(CREF(O,1),REF(C,1),REF(C,1)*0.995,4,0),COLOR00FF00;

SZ1交易量

WOL:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;

STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,WOL,0,3,-1),COLORBLUE; VOLUME:VOL,VOLSTICK; V5:MA(VOL

VAR1:=SAR(10,2,20);

S:IF(VAR1>C,VAR1,DRAWNULL),COLORRED,CIRCLEDOT; X:IF(VAR1REF(C,1) AND REF(C,1)>=REF(C,2),1,IF(CREF(C,2) AND REF(C,2)>REF(C,1),2,IF(C0 OR REF(SS,1)<0,REF(SS,1),IF(REF(SS,2)>0 OR REF(SS,2)<0,REF(SS,2),IF(REF(SS,3)>0 OR REF(SS,3)<0,REF(SS,3),IF(REF(SS,4)>0 OR REF(SS,4)<0,REF(SS,4),IF(REF(SS,5)>0 OR REF(SS,5)<0,REF(SS,5),IF(REF(SS,6)>0 OR REF(SS,6)<0,REF(SS,6),IF(REF(SS,7)>0 OR REF(SS,7)<0,REF(SS,7),0))))))); MC:IF(REF(SS,1)>0 OR REF(SS,1)<0,B2,IF(SM>0,MIN(B1,B2),MAX(B1,B2))),COLORFF00FF; STICKLINE(SS=1 OR SM>=1 AND SS=0,B1,C,0.8,1),COLORRED; STICKLINE(SS=-1 OR SM

STICKLINE((SS=-1 OR SS=-2) AND SM>0,B2,B1,0.8,1),COLORRED; STICKLINE((SS=1 OR SS=2) AND SM<0,B2,B1,0.8,0),COLORFF9000;