飞狐交易师 (foxtrader) 连结 DLL 的方法

ycng

许多年以前,我曾经在
- P' o1 t% y# i: F# c( O) }7 {理想公式区发布了
2 X' H9 w: ]4 a/ C7 ~"
, A% j# T7 X! c, X- I. ]如何用 Foxtrader(飞狐)连结 C++动态程式库 DLL及 80x86Macro Assembly (组合语言)
6 p# }7 O- H' j4 J"

现在更新foxtrader(飞狐交易师)
9 [/ A: M: l" X3 h0 n! M2 }连结 DLL的方法

# K' W  N0 f1 ]  t. ~- b0 Lfoxtrader- - > DLL (C++ and assembly) = ( foxfunc.h + foxfunc.cpp +pow10.asm )
gauss- - > DLL (C++ and assembly) = ( foxfunc.cpp + meigj.asm )
gauss只用到函数参数传递,所以使用新的 c++compiler, 不受影响
0 ?/ H- j3 M/ c: t: h. wfoxtrader的 foxfunc.h宣告的结构型态 (struct)在 2004vc++ 6.0 全部有效

4 e+ u2 J6 d2 `& Y1 D- M" P) w* L也就是这五个结构都能用
typedefstruct tagSTKDATA
% x9 j( u: a" S. F  N0 z; H' Ytypedefunion tagSTKDATAEx
typedefstruct tagSPLITDATA
8 K: L9 o% M5 w. L& L% o  ?* wtypedefstruct tagCALCPARAM
' n' Z# J' q" ttypedefstruct tagCALCINFO

7 V; u; w- j  E. N  u" ]) w7 Q% q自2008年起,vc++ 2008, vc++ 2010, vc++2017 对struct的编译,已经完全 c++化,不再相容于 C
也就是这五个结构中
typedefstruct tagSTKDATA
typedefunion tagSTKDATAEx
( t) E$ o& c; o$ O$ \; X6 X0 w) Ptypedefstruct tagSPLITDATA
typedefstruct tagCALCPARAM
% C% m" P$ x: \5 l$ o6 Ctypedefstruct tagCALCINFO
4 T8 b0 v) s6 U只有这两个可以用
typedefstruct tagCALCPARAM
typedefstruct tagCALCINFO
/ c  P5 I$ k; W! I8 {值得庆幸的是,下面这个结构的函数参数传递个数可以有无数个
typedefstruct tagCALCPARAM
  Z. y4 r0 @9 d' p' y6 G例如:在 foxtrader中
MA1:=MA(CLOSE,3);
MA2:=MA(CLOSE,6);
8 t- N7 U' F5 g7 }MA3:=MA(CLOSE,12);
# M' h2 W) T# e; n0 _. g. t$ H3 g8 JMA4:=MA(CLOSE,24);
: \# x( Y4 Y7 _) rMYBBI1:"MYFUNC2017@MYBBI"(MA1, MA2,MA3,MA4,MA3,MA4,5)*0.95,colorff00ff,linethick3; {2017 vc++ 15.0}
其中MYFUNC2017=MYFUNC2017.dll, MYBBI = MYFUNC2017.dll 中的MYBBI函数,这里 MYBBI函数传递的参数共有 7个
下面这两式计算结果相同
& g5 L! O& ?. R8 t' ?/ W/ w/ ~4 Oxx:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12),MA(CLOSE,24),MA(CLOSE,12),),MA(CLOSE,24)/6*0.95,color0000ff,linethick2;{foxtrader 自行计算}
MYBBI1:"MYFUNC2017@MYBBI"(MA1, MA2,MA3,MA4,MA3,MA4,6)*0.95,colorff00ff,linethick3; {2017 vc++ 15.0 , dll计算}
) d. }; x$ [% o: N, {4 y其他例子
7 E" u; J# a! K. v- Q+ U) [oooq:="MYFUNC2008good@MYMACLOSE"(c,,c,c,6),colorffffff,linethick5;(---> pow10.asm)
& _; }# b. d2 B( w& u6 ]- woooq1:"MYFUNC2010@MYMAVAR"(ma(c,5),5),colorgreen,linethick5;
其中pow10.asm里面有很多不同定义或宣告被注解不用,那是因为后来在逐步侦测法修改语码中才发现在foxfunc.cpp主程式中,下面这行错误,也就是新的 compiler不再相容于 C,因此在pow10.asm里面被注解不用的定义或宣告中,有些应该是可以用的
fTotal= pData->m_pData.m_fClose; // @@@@@@@ vc++ 2010 cl.exe 使pData->m_pData[i-j].m_fClose错误
. S8 g5 r! h& i8 S. i
+ W/ C% c1 T7 ~# ~
  h* s( Z% g: ?: t////////////////////////////////////////////////////////foxfunc.h
#ifndef__FOXFUNC_H_INCLUDE
; I8 W% W8 d' @' @& H3 K#define__FOXFUNC_H_INCLUDE
& e$ ]1 Y& ^6 C4 G$ X3 J6 k$ \/*
. @4 [- ~$ H2 U+ i飞狐交易师“C语言接口”扩展程序调用接口规范V3.0
5 G, G" E( k" ?( G! U1.本规范适用于飞狐交易师V3.x公式系统.
2.扩展函数用于实现系统函数不能实现的特殊算法.
3.扩展函数用windows32位动态连接库实现,建议使用MicrosoftVisual C++编程.
( h7 x8 z& Y6 e" W& g  N( R: K' K4.调用时在公式编辑器中写"动态库名称@函数名称"(参数表)即可,例如下面函数可以写为"FOXFUNC@MYMACLOSE"(5)
1 `( E- q4 E; N/ x, U5.动态连接库名称和函数名称可以自己定义.
6.使用时必须将动态库拷贝到飞狐交易师安装目录下的FmlDLL子目录下使用.
' A$ Y- H3 O  R" T( D) L1 F*/
#ifdef__cplusplus
extern"C"
{
#endif//__cplusplus
: W' n0 X; ]5 B: ^( k" I- e/ u/ i///////////////////////////////////////////////////////////////////////////
, k* N1 e3 y( I) j" k+ c//分析周期
enumDATA_TYPE
5 Z2 k9 k( g8 q8 c+ l2 m1 d5 ?{
TICK_DATA=2,//分笔成交
( {' h1 l/ [" r* W: aMIN1_DATA,//1分钟线
* l) o; L4 t$ X! h5 l2 SMIN5_DATA,//5分钟线
MIN15_DATA,//15分钟线
MIN30_DATA,//30分钟线
MIN60_DATA,//60分钟线
. q! i3 V- f- ]; k& i, iDAY_DATA,//日线
WEEK_DATA,//周线
MONTH_DATA,//月线
YEAR_DATA,//年线
( a$ v$ N. Q  |" BMULTIDAY_DATA,//多日线
& U+ L9 y) U3 E! _5 L) A7 i: WMULTIMIN_DATA//多分钟线
! g" Q8 i6 A; x3 G/ k, T" |" U};
# H% {6 z: W! M. n" N5 [& `- m///////////////////////////////////////////////////////////////////////////
. |2 L7 J/ E$ T' H. V$ x' B7 A//定义取用股票基本数据的结构 只有 VC++ 6.0 能compile成功使用
typedefstruct tagSTKDATA
% U( [& }4 b% [8 M{
$ U5 r4 u; A/ z* O$ u7 r_tm_; //时间,UCT
  t- B4 E8 i: `6 Kfloatm_fOpen; //开盘 open
floatm_fHigh; //最高 high
3 R# g5 Q1 L# L& U. sfloatm_fLow; //最低 low
4 s* H% N" g; D& x; x5 ifloatm_fClose; //收盘 close
8 C2 p& K4 {0 @floatm_fVolume; //成交量 Volume
floatm_fAmount; //成交额 amount
8 z  r! D" n. ]0 J" L: vWORDm_wAdvance; //上涨家数 仅大盘有效
WORDm_wDecline; //下跌家数 仅大盘有效
6 L4 ^' D3 V. a- D}STKDATA;
定义STKDATA为 tagSTKDATA的简单别名,STKDATA
2 J2 M! l3 D& F为真正方便使用名称,tagSTKDATA 为定目的的过水名称
1 h  }5 [3 V8 k2 ^' a5 C1 F  [. I////////////////////////////////////////////////////////////////////////////
1 J' x/ ?/ k2 r. H//扩展数据,用于定义取用分笔成交数据的买卖盘 的结构
) G8 q0 [1 V! [( Wtypedefunion tagSTKDATAEx
' Y6 M9 b, p3 j{
2 p+ H8 E. }' L+ W0 fstruct
{
floatm_fBuyPrice[3]; //买1--买3价floatm_fOpen; //开盘 open
" j4 Q8 M: V; X0 l5 a# s  x. Ofloatm_fHigh; //最高 high
6 V& d8 A) W5 Y6 j5 }floatm_fLow; //最低 low
floatm_fClose; //收盘 close
9 m) e" \8 H% c1 S9 y$ `. \floatm_fVolume; //成交量 Volume
floatm_fAmount; //成交额 amount
floatm_fBuyVol[3]; //买1--买3量
floatm_fSellPrice[3]; //卖1--卖3价
0 U4 }. f1 h3 N' R# _9 o% Wfloatm_fSellVol[3]; //卖1--卖3量
3 ~) X. h5 d* Q. B. A: F};
floatm_fDataEx[12];
9 e+ o- a/ b# b% |. S}STKDATAEx;
////////////////////////////////////////////////////////////////////////////
1 b6 j! u4 \1 B$ I" \& G0 Z8 x8 z* F//定义取用除权数据的结构
typedefstruct tagSPLITDATA
0 b4 @! I# B8 v% m  }{
: g4 k, `- E$ F4 i. |time_tm_time; //时间,UCT
floatm_fHg; //红股
# d0 F6 D( p! e# _- d6 K; j$ Afloatm_fPg; //配股
+ o& U+ `8 h' D8 u- Y# |, Q+ ?; dfloatm_fPgj; //配股价
floatm_fHl; //红利
6 H2 ]" _1 k8 b2 O4 F' H) e}SPLITDATA;
: n2 s2 b. v% s/////////////////////////////////////////////////////////////////////////////
/*财务数据顺序(m_pfFinData内容)
序号内容
: ]- |6 n9 V* ]0 y8 c0总股本(万股),
1国家股,
8 V+ ]$ k4 ^: H! x; H' c! B7 Z2发起人法人股,
3法人股,
4B股,
5H股,
6流通A股,
7职工股,
8A2转配股,
9总资产(千元),
5 G# k8 Y1 \3 T+ M10流动资产,
11固定资产,
12无形资产,
0 U" V! O2 ~: C13长期投资,
: ^3 O) p2 n: g14流动负债,
/ K; c# L/ |; g. A15长期负债,
16资本公积金,
17每股公积金,
3 I& N0 M. l* A4 X7 M% Y18股东权益,
- M2 m6 H& D5 A# [- L19主营收入,
20主营利润,
21其他利润,
( c# t: H$ }. y5 o; g9 W2 d22营业利润,
* Q3 M+ }" k1 V2 s9 H' p23投资收益,
' g3 W/ J; J* u! r24补贴收入,
% Y' Z0 D& j9 @9 i+ A25营业外收支,
26上年损益调整,
. g/ M6 i) n* t27利润总额,
# t7 I) b, b, L7 p/ ~" T28税后利润,
29净利润,
( {* A* P2 w, C. A7 Y8 N) T+ l30未分配利润,
31每股未分配,
32每股收益,
* e5 ?% g! |: v$ ~8 H! b( S33每股净资产,
3 J) U1 a+ P- I9 j8 s6 t9 k# z34调整每股净资,
! O) e9 v$ N( [  y; j9 d35股东权益比,
36净资收益率
*/
/////////////////////////////////////////////////////////////
//定义取用caller函数传递参数项 的结构
) O5 e5 F1 _' g+ }" }1 ctypedefstruct tagCALCPARAM
{
% s3 N9 d- p+ \union
9 w5 T" d' G5 b: s! K{
constfloat* m_pfParam; //指向序列参数的址标，指向一个浮点型数组pointertofloat variable parameter / ex. c,h,l,o, co2...co2=(c+o)/2
constfloat m_fParam; //数值参数 valueof parameter
};
' M" u6 Q- V/ v3 B. Econstint m_nParamStart; //序列参数有效起始位置thestart address of variable parameter / ex. c,h,l,o,co2.....
}CALCPARAM;
" n% }' |' s: E, r, J# r  F/////////////////////////////////////////////////////////////////////////////
//定义全部取用址标 的总结构 (各指标指向前述各结构以便取的各结构的数据,接口信息数据的结构 )
: v& N0 V/ w8 j# Utypedefstruct tagCALCINFO
4 ]  b* B& I5 i7 u1 z4 y4 W{
constDWORD m_dwSize; //结构大小
. I4 G0 V9 ~) HconstDWORD m_dwVersion; //调用软件版本(V2.10: 0x210)
$ C3 B; c) b- K) L5 rconstDWORD m_dwSerial; //调用软件序列号
$ \8 B3 v; w1 V% y3 Oconstchar* m_strStkLabel; //股票代码
5 j, N3 I+ @) @2 i" w6 p' u6 o5 {7 nconstBOOL m_bIndex; //大盘
8 X" T* t) M4 C5 I( }4 Zconstint m_nNumData; //数据数量(pData,pDataEx,pResultBuf数据数量)数据长度
constSTKDATA* m_pData; //常规数据,注意:当m_nNumData==0时可能为NULL
, l1 S  t9 y$ `3 ?% c& XconstSTKDATAEx* m_pDataEx; //扩展数据,分笔成交买卖盘,注意:可能为NULL
; B; {& b3 }' a) pconstint m_nParam1Start; //参数1有效起始位置<0/ constant parameter >0 /variable parameter
: _! q& L" k2 T8 @- O. R: o" zconstfloat* m_pfParam1; //调用参数1/pointer to variable parameter 1
constfloat* m_pfParam2; //调用参数2/pointer to variable parameter 2
  H* C6 b, Y- \# N8 t2 Aconstfloat* m_pfParam3; //调用参数3/pointer to variable parameter 3
constfloat* m_pfParam4; //调用参数4/pointer to variable parameter 4
float*m_pResultBuf; //结果缓冲区
constDWORD m_dataType; //数据类型
constfloat* m_pfFinData; //财务数据
//以上与分析家兼容，所以沿用其结构和名称
2 |- |* t6 W0 l  ], V& r//以下为飞狐交易师扩展(fortagSTKDATAEx)
2 V/ c) e9 J' ]1 b5 QconstDWORD m_dwReserved; // 保留
constint m_nNumParam; // 调用参数数量
6 W" J. x3 g1 |9 wconstCALCPARAM* m_pCalcParam; // 调用参数数组
0 {. R4 [8 g2 pconstDWORD m_dwReservedEx[4]; // 保留
char*m_strStkName; //股票名称
  M/ a% b8 K& l2 ^5 R0 D- O2 jSPLITDATA*m_pSplitData; //除权数据
intm_nNumSplitData; //除权次数
5 F* C. E- z, @, u% I}CALCINFO;
/*
; s& M6 m0 j6 D% L" y$ f$ p$ h注1:(与分析家兼容)
! F3 H/ n+ L* a+ ?, [) Z) U1.函数调用参数由m_pfParam1--m_pfParam4带入,若为NULL则表示该参数无效.
3 T5 a! ~" W! P1 ]6 n2.当一个参数无效时,则其后的所有参数均无效.
" u( V/ c( X+ W; [" P如:m_pfParam2为NULL,则m_pfParam3,m_pfParam4一定为NULL.
3.参数1可以是常数参数或序列数参数,其馀参数只能为常数参数.
4.若m_nParam1Start<0,则参数1为常数参数,参数等于*m_pfParam1;
% u* r1 y* q$ c5.若m_nParam1Start>=0,则参数1为序列数参数,m_pfParam1指向一个浮点型数组,
# c- {8 l% [/ x, J数组大小为m_nNumData,数据有效范围为m_nParam1Start至 m_nNumData-1.
在时间上m_pData[x]与 m_pfParam1[x]是一致的
  t9 c3 Y+ Y+ ]1 _9 H. Y: H注2:(飞狐交易师扩展)
1.该扩展结构使调用参数在技术上可以是无限数目的，且每个参数都可为数值或序列，由公式中实际的调用参数决定。
7 {2 y. `! v5 G) ~. q  @2.CALCPARAM结构用于带入参数信息和实际数据，m_pCalcParam数组大小为m_nNumParam，数据有效范围为0 至m_nNumParam-1.
# ]+ e) d$ s/ R2 [6 N+ h: L3.按参数的顺序，m_pCalcParam[0]为第一个参数的数据，m_pCalcParam[1]为第二个参数的数据...，为了保持兼容，原m_nParam1Start、m_pfParam1等5个属性依然有赋值。
4.若i位置的参数为数值，取用m_pCalcParam.m_fParam.
5.若i位置的参数为序列，取用m_pCalcParam.m_pfParam，数组大小为m_nNumData,数据有效范围为m_pCalcParam.m_nParamStart至 m_nNumData-1.若m_pCalcParam.m_nParamStart<0,则此数组中无有效数据。
6.由于可以调用多个序列，许多序列的计算可以先在公式中进行，然后作为调用的参数即可。
# l- f( Y6 o  n% |7.经此扩展，对分析家的DLL依然可以调用、兼容。
; G! l6 R3 i" f1 a: P  _, E3 l*/
5 U5 s8 v; @! D9 A( f6 }- Q///////////////////////////////////////////////////////////////////////////////////
/*函数输出
8 u6 ~: [1 t. U5 e__declspec(dllexport)int xxxxxxxx(CALCINFO* pData);
0 F1 {# G  E# `3 N1.函数名称需全部大写.
) ?  y( U: I0 z/ c9 D) q' Y1 H+ {2.函数必须以上述形式声明,请用实际函数名称替代xxxxxxxx;
  o# z4 @8 B: x8 b对于C++程序还需包括在extern"C" { } 括号中.
: `+ s5 O" _0 R* x  K) E" m, B. c3.函数计算结果用pData->m_pResultBuf带回.
4 A* f' T" W8 A: w8 g- Y  P& R8 k6 r, t4.函数返回-1表示错误或全部数据无效,否则返回第一个有效值位置,即:
9 F0 {+ T3 k# S8 U$ F! mm_pResultBuf[返回值]-- m_pResultBuf[m_nNumData-1]间为有效值.
5.函数名称长度不能超过15字节,动态连接库文件名不能超过9字节(不包括扩展名),动态库名称不能叫SYSTEM,EXPLORER
' C. i7 T! I+ i2 w5 r0 t! P6 n*/
//示例函数,使用时用实际名称替换
, ^/ F' l7 P. x2 a+ G__declspec(dllexport)int WINAPI MYMACLOSE(CALCINFO* pData);
0 L3 D2 i) S0 D" y$ u9 L/ V" _/ P__declspec(dllexport)int WINAPI SMOOTH(CALCINFO* pData);
//__declspec(dllexport) int WINAPI MYMAVAR(CALCINFO* pData);
__declspec(dllexport)int WINAPI MYBBI(CALCINFO* pData);
6 k# K/ H" B6 ]0 ~9 O: n//WINAPI = _stdcall
; W& O, _* m) _#ifdef__cplusplus
" d* E  K8 A  v. ]# m/ `0 ~  s& _}
; _! ?3 }( T) j! e( M! i* c#endif//__cplusplus
8 @; q+ \) ]0 Z% a: X, ?#endif//__FOXFUNC_H_INCLUDE

! X& D2 r9 m+ I+ N1 n& ?+ y, H//////////////////////////////////////////comment 注解
__declspec(dllexport)int WINAPI MYMAVAR(CALCINFO* pData)
pData是指向 址标总结构 CALCINFO的 总址标
( Z! O3 @4 }" H取用第二个参数数值floatfParam = *pData→m_pfParam2
取用第一个序列参数的址标constfloat* pValue = pData->m_pfParam1;
取用股票数据长度intndata = pData→m_nNumData;
第一个参数存在且为数值pData->m_pfParam1&& pData→m_nParam1Start<0
第一个参数存在且为序列pData->m_pfParam1&& pData→m_nParam1Start>=0
  n4 S1 \" y* a  K2 k1 X/ U第一个及第二个参数存在且为序列,第三个参数不存在pData->m_pfParam1&& pData->m_pfParam2 && pData->m_nParam1Start>=0&& pData->m_pfParam3==NULL
  p2 d" Q9 A' o2 Zconstfloat* cpParam = pData->m_pfParam1; 定义cpParam为第一个序列参数的址标
+ s+ f6 S  n4 E' w' O0 B取用股票数据结构
8 n7 y7 h( t) k( zpData→m_nNumData= 变数数据长度
pData→m_pData= pointer to struc STKDATA 的址标
. J) e5 g& V! N4 d; p( HpData→m_pData[x]数据结构的第x个数据
- _8 ~* V7 E, I* r, _+ }pData→m_pData[x].m_fHigh数据结构的第x个数据中的 High
5 `" s/ i$ m9 v- f' E4 G7 h5 n4 n$ H取用结果缓冲序列
0 x" o2 x+ X6 a6 I7 U' x" x; k/ JpData->m_pResultBuf
/ }" }1 v6 q7 r9 M( F! }) p, ~取得第一个序列参数的起始序位,如 2,...5 , . 7...
; K& c% ^! U& UintnFirst = pData->m_nParam1Start;
* }+ a& I/ F/ A. ?for( i = nFirst+nPeriod-1; i < pData->m_nNumData; i++ )
; }0 _4 b5 l) i取得第二个数值参数的数值
floatfParam = *pData->m_pfParam2;
) Q  n$ C8 A& y4 IintnPeriod = (int)fParam;
取用第一个序列参数的址标constfloat* pValue = pData→m_pfParam1;
$ Q& A7 u/ ]/ j" p% K取用序列参数的单个直pValue
$ T6 U# {! _& v6 N( f; f取用缓冲序列的单个值pData->m_pResultBuf
constCALCPARAM* m_pCalcParam; // 调用参数数组
+ y$ O( [6 D4 K4 J  Ym_pCalcParam为序列址标,指向各序列参数的指标
第一个序列参数pData→m_pCalcParam[0]
) O  w2 J* X* p0 O: Bconstfloat* m_pfParam; //指向序列参数的址标
6 p' O: @+ F$ j1 x: @' N+ q第一个序列参数的起始序位pData->m_pCalcParam[0].m_nParamStart
' J) p0 k3 F6 ?2 x* z, v8 Z0 S第一个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[0].m_pfParam;
取用第一个序列参数的单个直pValue1
- T9 _9 I0 X9 W$ X  m+ m第二个序列参数pData→m_pCalcParam[1]
第二个序列参数的起始序位pData->m_pCalcParam[1].m_nParamStart
第二个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[1].m_pfParam;
取用第二个序列参数的单个直pValue2
第三个序列参数pData→m_pCalcParam[2]
. \, g/ g7 ?) X# z; R& V- a1 N% s. k  T第三个序列参数的起始序位pData->m_pCalcParam[2].m_nParamStart
第三个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[2].m_pfParam;
取用第三个序列参数的单个直pValue3
2 @# k, l5 f- q: @3 s第四个序列参数pData→m_pCalcParam[3]
1 p) c4 B! M7 C$ |1 l7 H; R第四个序列参数的起始序位pData->m_pCalcParam[3].m_nParamStart
第四个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[3].m_pfParam;
取用第四个序列参数的单个直pValue4
如果有四个序列参数,则取用序位最高的那一个序位
/ N" y" e& q' U# e2 H2 Oif( pData->m_pCalcParam[0].m_nParamStart >= 0 &&
0 N, x( A* j. p  }' wpData->m_pCalcParam[1].m_nParamStart>= 0 &&
pData->m_pCalcParam[2].m_nParamStart>= 0 &&
pData->m_pCalcParam[3].m_nParamStart>= 0 ) //4个序列都含有效数值
{
* W$ |2 g6 J! g. t//计算返回的序列的第一个有效值位置
intnFirst = pData->m_pCalcParam[3].m_nParamStart;//已知返回的序列的第一个有效值位置与第4个序列一致
- G; ?8 l* s* {# r! P% H, H5 U' O8 c//若不知，则
. j, B0 n7 U7 Y% z# @6 H/*
intnFirst = pData->m_pCalcParam[0].m_nParamStart;
if( nFirst < pData->m_pCalcParam[1].m_nParamStart )
5 t9 l0 f2 N2 e' w2 W5 D! xnFirst= pData->m_pCalcParam[1].m_nParamStart;
if( nFirst < pData->m_pCalcParam[2].m_nParamStart )
& L) i. m8 L! i+ G" `& P8 CnFirst= pData->m_pCalcParam[2].m_nParamStart;
; _8 @- a7 n2 x# gif( nFirst < pData->m_pCalcParam[3].m_nParamStart )
nFirst= pData→m_pCalcParam[3].m_nParamStart;
constfloat* pValue1 = pData->m_pCalcParam[0].m_pfParam;
constfloat* pValue2 = pData->m_pCalcParam[1].m_pfParam;
constfloat* pValue3 = pData->m_pCalcParam[2].m_pfParam;
1 p1 O5 H6 R6 e7 i2 hconstfloat* pValue4 = pData->m_pCalcParam[3].m_pfParam;
! O- J9 r1 }% ]7 `5 R! H//-------------------
0 `. l5 a* X, Z0 Q8 l3 S' c1 lfloatm_fOpen; //开盘 open
& s* e  d! _# j; x" t9 P7 j3 Hfloatm_fHigh; //最高 high
" l! y& A' h- v# B& @. [floatm_fLow; //最低 low
floatm_fClose; //收盘 close
, J- z% S1 e, g& a4 Hfloatm_fVolume; //成交量 Volume
" f* g& A; \" u6 O" E6 _0 x$ c% F, Hfloatm_fAmount; //成交额 amount
9 K* F) r1 d3 _9 ~调用收盘据
$ t! c9 ^0 R+ _. ^) K7 RpData→m_nNumData= 变数数据长度
( i1 k/ h; U2 Z9 ~pData→m_pData= pointer to struc STKDATA
- c0 a# M$ w* U$ upData→m_pData[x]第x个数据
pData→m_pData[x].m_fHigh第x个数据中的 High
$ ?2 f+ R9 O' C2 c@@@@@@@@@@@important !!!!!!!
sinceVC++ 2008, cl.exe will make ‘pData→m_pData[i-j].m_fClose’ anerror
2 Q+ u- Y. Y; P" i% s2 Eso,pass the high,low,open and close just from the function parameter ,that is use ‘ CALCPARAM’ struct
' J( L9 y6 k" L+ W9 A+ opData->m_pData[i-j].m_fOpen// to use open , there is no way in using a varable for calculationoutside foxtrader
9 b8 v( k, t. g" spData→m_pData[i-j].m_fHighto use high
/ D/ e  v% j& j9 ^0 N. C+ R6 x* epData->m_pData[i-j].m_fLow
pData->m_pData[i-j].m_fClose
. f& F  m% ~( ^0 ~" w  em_pData= pointer to struc STKDATA
incalling C++ dll function
- E6 \7 B+ l. b7 z5 R: Sm_pDatais passed to pData (CALCINFO* pData . A CALCINFO* type pointer)
# s, E' d1 _( k6 \! Vtouse a single value in variable ‘High’
pData→m_pData[i-j].m_fHighto use high
constfloat* m_pfParam1; //调用参数1/pointer to variable parameter 1
8 J5 A& N% X0 Mconstfloat* m_pfParam2; //调用参数2/pointer to variable parameter 2
constfloat* m_pfParam3; //调用参数3/pointer to variable parameter 3
constfloat* m_pfParam4;
m_pfParam1,m_pfParam2, m_pfParam3, m_pfParam4 = pointer to caller function 的参数
3 p( h3 D1 R9 R4 _7 s( qpData→m_pfParam1= pointer to 第一个(序列)参数
' T9 }1 E) A5 j9 J+ u4 p9 Z2 H, _% QpData→m_pfParam1[x]= 取用第一个(序列)参数的第x 个值
constfloat* cpParam = pData→m_pfParam1; ＝定义 cpParam为 pointerto 第一个(序列)参数
1 a7 F9 M- d2 w, K- e- UcpParam[x] = 取用第一个(序列)参数的第x 个值
8 I. g8 C# O) Z$ ?0 S! b7 b& um_pResultBuf＝ 结果缓冲列
pData→m_pResultBuf= pointer to 结果缓冲列
4 ?% S1 k- P- M7 j3 y* T8 ppData→m_pResultBuf[x] = 取用结果缓冲列的第 x个值
; G: e. a! s8 G# e! ?! F//////////////////////////////////////////comment
//////////////////////////////////////////comment 注解
# o+ {& I+ N) h; Hconstint m_nParam1Start; //统杅1衄虴宎弇离
- M% c5 G) s0 M/ m" |  Kconstfloat* m_pfParam1; //覃蚚统杅1
6 {9 c3 P1 o5 ]+ Y* j1 o" D- |constfloat* m_pfParam2; //覃蚚统杅2
* C% c; x3 ~1 jconstfloat* m_pfParam3; //覃蚚统杅3
; j; t4 C# q* _' p1 {8 U1 Sconstfloat* m_pfParam4; //覃蚚统杅4,parameters must be <= 4
//const float* m_pfParam5; // parameters must be <= 4
8 m1 n' x! U. b9 r4 G5 E//const float* m_pfParam6;
//const float* m_pfParam7;
//const float* m_pfParam8;
//pData->m_pfParam1 && pData->m_pfParam2 &&pData->m_pfParam3 && pData->m_nParam1Start>=0 &&
pData->m_pCalcParam[0].m_nParamStart>=0&& pData->m_pCalcParam[1].m_nParamStart>=0
* w: E% {/ c% s4 ]: w& i* L3 @, R$ R&&pData->m_pCalcParam[2].m_nParamStart>=0)
{
floatfParam = *pData->m_pfParam4; //pointer ,pData->m_pCalcParam[3].m_nParamStart >= 0
intnPeriod = (int)fParam; //统杅1
4 c1 I3 x, g8 [$ A( `1 v2 p; N) B//const float* cpParam = pData->m_pfParam2; // cpParam = pointer to第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
: i( c7 A7 _) N# V$ O( C7 O( ^constfloat* cpParam1 =pData->m_pCalcParam[0].m_pfParam; // cpParam =pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
! j: X3 s/ l2 v& c' c2 F, }constfloat* cpParam2 =pData->m_pCalcParam[1].m_pfParam; // cpParam =pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
constfloat* cpParam3 =pData->m_pCalcParam[2].m_pfParam; // cpParam =pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值//parameters must be <= 4
//const float* cpParam4 =pData->m_pCalcParam[3].m_pfParam; //cpParam = pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
//const float* cpParam5 =pData->m_pCalcParam[4].m_pfParam; //cpParam = pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
//m_pData = const struct pointer to struct STKDATA , pointer to structSTKDATA ,
touse pData→m_pData[x].m_fClose
pData→m_pData[x]= | 1,2,3 , … , m_nNumParam | time_t m_time;
|1,2,3 , … , m_nNumParam | float m_fOime_t
|1,2,3 , … , m_nNumParam | float m_fHigh;
( A! e; J; _! ~; v/ @8 p.. .
|1,2,3 , … , m_nNumParam | WORD m_wDecline;
( M$ F) U& }: v. c8 h: Xm_nNumParam= 数据high,close,open,low的长度
touse high:
pData→m_pData[x].m_fHigh
contentof struct STKDATA
& l2 {# X. e0 _! Utime_tm_time; //时间,UCT
floatm_fOpen; //开盘 open
floatm_fHigh; //最高 high
floatm_fLow; //最低 low
floatm_fClose; //收盘 close
- \! q$ {3 i* lfloatm_fVolume; //成交量 Volume
; m8 }- h7 t/ O9 w2 Tfloatm_fAmount; //成交额 amount
9 B2 X" ~2 ?& u1 [# W0 n8 GWORDm_wAdvance; //上涨家数 仅大盘有效
) z+ N3 _5 P3 p3 O& [( U/ C* xWORDm_wDecline; //下跌家数 仅大盘有效
调用传递参数及传回结果
调用传递参数
0 k3 M) f" h& ?, _5 @: l* T2 ~$ w: p7 u(pData->m_pfParam1 && //参数1有效Param1exists
/ Z2 p1 L2 i7 l7 [pData->m_nParam1Start<0&& //参数1为常数
pData->m_pfParam2==NULL) //
) }' c- F8 {4 v* @% Ulocalprocedure 定义使用变数
4 e' P* }+ F! {onstfloat* pValue = pData→m_pfParam1; //use constant参数1
intnFirst = pData->m_nParam1Start; //use 参数1效值起始位
( w5 h* x3 u2 ?1 G+ CfloatfParam = *pData->m_pfParam2; //use 参数2
intnPeriod = (int)fParam;
" }9 z! `$ D' j7 m" R! `3 `传回结果
fTotal+= pValue[i-j];
3 o, ?& _- I" |7 z2 HpData->m_pResultBuf
//////////////////////////////////////////comment