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

ycng

许多年以前,我曾经在
8 T; }1 M) b) O6 p5 K3 X理想公式区发布了
8 T5 T6 r$ y. T"
/ P0 r8 X( W- e4 V% s' u) w如何用 Foxtrader(飞狐)连结 C++动态程式库 DLL及 80x86Macro Assembly (组合语言)
"

  x. p8 ^  u7 N8 n+ T6 F现在更新foxtrader(飞狐交易师)
连结 DLL的方法

/ k& B1 @0 d6 S4 S1 a: Efoxtrader- - > DLL (C++ and assembly) = ( foxfunc.h + foxfunc.cpp +pow10.asm )
- m1 Z& P3 R6 X9 e8 J1 vgauss- - > DLL (C++ and assembly) = ( foxfunc.cpp + meigj.asm )
$ |( H  M* C/ \4 e4 F! Tgauss只用到函数参数传递,所以使用新的 c++compiler, 不受影响
* s, l" n! w! f% |. M9 ~0 i  k# pfoxtrader的 foxfunc.h宣告的结构型态 (struct)在 2004vc++ 6.0 全部有效
( T( d! M3 `9 P4 n& {
也就是这五个结构都能用
' ^' ]2 c) r7 w6 _" w6 H& d, {typedefstruct tagSTKDATA
typedefunion tagSTKDATAEx
. |  ^, G* g' @# htypedefstruct tagSPLITDATA
typedefstruct tagCALCPARAM
typedefstruct tagCALCINFO
+ y0 e! Z- J6 L8 W9 h, r
9 Z: l! Y: O, c, p* m4 h9 h自2008年起,vc++ 2008, vc++ 2010, vc++2017 对struct的编译,已经完全 c++化,不再相容于 C
# s: Y1 ~; H! }  d8 {1 O" |$ k也就是这五个结构中
typedefstruct tagSTKDATA
  s" O! }' i) j7 [7 p8 wtypedefunion tagSTKDATAEx
8 S1 {( _0 ?4 i7 I' x- f2 s( dtypedefstruct tagSPLITDATA
typedefstruct tagCALCPARAM
  ~  @! i" f# o8 htypedefstruct tagCALCINFO
只有这两个可以用
, f$ t5 [/ Q( o2 Ktypedefstruct tagCALCPARAM
typedefstruct tagCALCINFO
值得庆幸的是,下面这个结构的函数参数传递个数可以有无数个
typedefstruct tagCALCPARAM
例如:在 foxtrader中
MA1:=MA(CLOSE,3);
- U+ J6 h3 B6 u  RMA2:=MA(CLOSE,6);
! G0 M# E( \4 q9 i* NMA3:=MA(CLOSE,12);
, Z; e- N' T: U/ f/ F9 V7 x3 Z* MMA4:=MA(CLOSE,24);
MYBBI1:"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个
: L" V2 V9 c& c: r/ y+ \) ~下面这两式计算结果相同
xx:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12),MA(CLOSE,24),MA(CLOSE,12),),MA(CLOSE,24)/6*0.95,color0000ff,linethick2;{foxtrader 自行计算}
9 E  F9 W4 z& J6 W, G" FMYBBI1:"MYFUNC2017@MYBBI"(MA1, MA2,MA3,MA4,MA3,MA4,6)*0.95,colorff00ff,linethick3; {2017 vc++ 15.0 , dll计算}
其他例子
' e/ {& H9 R' D  Y3 ?! E# ioooq:="MYFUNC2008good@MYMACLOSE"(c,,c,c,6),colorffffff,linethick5;(---> pow10.asm)
oooq1:"MYFUNC2010@MYMAVAR"(ma(c,5),5),colorgreen,linethick5;
& i4 l' x! O: ~) T. {- [+ h% Y/ Y其中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错误
6 b* e6 z: T: k* ~3 [; x- O. Z

////////////////////////////////////////////////////////foxfunc.h
#ifndef__FOXFUNC_H_INCLUDE
& C7 v8 k: V8 l5 n( A+ a. H6 }- J#define__FOXFUNC_H_INCLUDE
/*
飞狐交易师“C语言接口”扩展程序调用接口规范V3.0
4 ?: j+ ]9 M$ V9 U1.本规范适用于飞狐交易师V3.x公式系统.
2.扩展函数用于实现系统函数不能实现的特殊算法.
3.扩展函数用windows32位动态连接库实现,建议使用MicrosoftVisual C++编程.
" n) L; J+ [0 N. o% @9 H4.调用时在公式编辑器中写"动态库名称@函数名称"(参数表)即可,例如下面函数可以写为"FOXFUNC@MYMACLOSE"(5)
5.动态连接库名称和函数名称可以自己定义.
( \7 o' j2 `2 `5 a0 q; @6.使用时必须将动态库拷贝到飞狐交易师安装目录下的FmlDLL子目录下使用.
  m0 I+ I, V/ V% t* _  m*/
#ifdef__cplusplus
extern"C"
" |- q+ ^3 B1 w  [; }* h+ g{
#endif//__cplusplus
) L% t8 d* K  Y% C///////////////////////////////////////////////////////////////////////////
2 F2 j( @5 s3 P//分析周期
enumDATA_TYPE
{
3 M; _4 K& m& k6 f. L4 Z7 r- CTICK_DATA=2,//分笔成交
" D) p8 p$ R  g" G5 e# qMIN1_DATA,//1分钟线
MIN5_DATA,//5分钟线
MIN15_DATA,//15分钟线
7 ^' v0 w, w; d) nMIN30_DATA,//30分钟线
3 C9 v7 j- F* t, q1 F. W4 BMIN60_DATA,//60分钟线
DAY_DATA,//日线
WEEK_DATA,//周线
MONTH_DATA,//月线
YEAR_DATA,//年线
MULTIDAY_DATA,//多日线
- _; U3 b: y: v) {3 sMULTIMIN_DATA//多分钟线
% ?+ k- E0 I: W( g+ k};
% e/ S. }) o  y$ e" j///////////////////////////////////////////////////////////////////////////
% X" d6 S8 D2 K+ P: y9 V//定义取用股票基本数据的结构 只有 VC++ 6.0 能compile成功使用
typedefstruct tagSTKDATA
& a8 X) ^4 k* F; Z# P4 P8 s" f{
6 {5 S- r6 X- t7 L_tm_; //时间,UCT
: V4 \* e# N0 Y4 C  w" I1 |; dfloatm_fOpen; //开盘 open
7 z& l7 z* M* m3 O- G0 X% `5 Z9 afloatm_fHigh; //最高 high
4 M! |1 H1 O  k9 B$ w, P3 [+ Vfloatm_fLow; //最低 low
floatm_fClose; //收盘 close
% M' {1 F  [, I" }floatm_fVolume; //成交量 Volume
floatm_fAmount; //成交额 amount
" x9 w* Z/ o) C1 r! gWORDm_wAdvance; //上涨家数 仅大盘有效
7 Z! G4 J( k# j( ~( V# m& y; E3 bWORDm_wDecline; //下跌家数 仅大盘有效
}STKDATA;
- w$ l, j0 }$ j/ c1 f定义STKDATA为 tagSTKDATA的简单别名,STKDATA
为真正方便使用名称,tagSTKDATA 为定目的的过水名称
0 \3 C/ a$ x0 S2 R////////////////////////////////////////////////////////////////////////////
5 h: h- l0 C" K//扩展数据,用于定义取用分笔成交数据的买卖盘 的结构
typedefunion tagSTKDATAEx
0 H% n: t7 R8 ^$ J{
$ [  i' c$ E( E3 X) F& mstruct
{
+ `0 j! d( k) Dfloatm_fBuyPrice[3]; //买1--买3价floatm_fOpen; //开盘 open
floatm_fHigh; //最高 high
floatm_fLow; //最低 low
. X3 h0 a6 a+ d# }5 pfloatm_fClose; //收盘 close
floatm_fVolume; //成交量 Volume
floatm_fAmount; //成交额 amount
floatm_fBuyVol[3]; //买1--买3量
floatm_fSellPrice[3]; //卖1--卖3价
0 s5 U# A( y) S/ L0 G7 X( z+ Kfloatm_fSellVol[3]; //卖1--卖3量
* v- t2 q) O. J, n* I};
: K" ^* w1 Z9 F/ k! m' ufloatm_fDataEx[12];
8 M, Z0 ?. Q! g& h8 v" l}STKDATAEx;
////////////////////////////////////////////////////////////////////////////
//定义取用除权数据的结构
3 c# `0 F/ p/ p- T2 z% V+ t9 ztypedefstruct tagSPLITDATA
# E4 z$ C- m8 @( G0 W5 ~{
time_tm_time; //时间,UCT
floatm_fHg; //红股
floatm_fPg; //配股
5 H, ?$ F- Y4 Zfloatm_fPgj; //配股价
7 q9 t# M; s" i# wfloatm_fHl; //红利
% U9 @/ X! @! p5 f0 A$ c( o}SPLITDATA;
% @: |! `3 r& l% l# a0 ~/////////////////////////////////////////////////////////////////////////////
/*财务数据顺序(m_pfFinData内容)
序号内容
0总股本(万股),
- Y* m: M/ G" ~1国家股,
3 @& r2 z7 _8 f* S) U2发起人法人股,
3法人股,
* ^; J1 W; y4 r5 ~3 r, P; Y. u4B股,
: g$ y: C$ P2 A5H股,
6流通A股,
% v, ]$ n- v+ x5 ^. y: I7职工股,
" a8 d+ D8 m- _+ ?8A2转配股,
2 t) Q* K% v$ R+ I( n, P4 }, D9总资产(千元),
10流动资产,
& e& g0 d8 {. G+ S& r# [11固定资产,
12无形资产,
: @, H4 Q& M9 ?4 k13长期投资,
14流动负债,
15长期负债,
16资本公积金,
17每股公积金,
18股东权益,
/ T5 ]0 a8 c6 u19主营收入,
20主营利润,
21其他利润,
22营业利润,
5 Z' d% }. S3 x  m4 F& O9 F23投资收益,
24补贴收入,
25营业外收支,
26上年损益调整,
6 f/ i3 w& x  ^7 L8 U27利润总额,
9 h0 {( U$ b1 _2 E' M% I# W" R28税后利润,
6 w5 ~  q& T: w) {29净利润,
  [2 {# E- K6 ?, J' W30未分配利润,
) D: y, ~) {# o- o9 {31每股未分配,
32每股收益,
33每股净资产,
34调整每股净资,
35股东权益比,
36净资收益率
1 p* [; f% p( R4 [! M*/
; _- H& L3 {8 r4 H; C4 e/////////////////////////////////////////////////////////////
//定义取用caller函数传递参数项 的结构
typedefstruct tagCALCPARAM
{
union
{
constfloat* m_pfParam; //指向序列参数的址标，指向一个浮点型数组pointertofloat variable parameter / ex. c,h,l,o, co2...co2=(c+o)/2
' m8 Y: W4 U3 x% `. N$ l! Cconstfloat m_fParam; //数值参数 valueof parameter
3 Q# G9 d& M5 h& Z+ `% p" p/ H};
constint m_nParamStart; //序列参数有效起始位置thestart address of variable parameter / ex. c,h,l,o,co2.....
}CALCPARAM;
3 _' T9 v7 k* }: J. v% E2 |( B; x; f5 V* |: S/////////////////////////////////////////////////////////////////////////////
* `) B6 K# w2 q- A. ~! T//定义全部取用址标 的总结构 (各指标指向前述各结构以便取的各结构的数据,接口信息数据的结构 )
' \( s' p  |7 M8 y: N9 mtypedefstruct tagCALCINFO
{
" N0 W: c4 j+ pconstDWORD m_dwSize; //结构大小
constDWORD m_dwVersion; //调用软件版本(V2.10: 0x210)
, R* f- e' b6 oconstDWORD m_dwSerial; //调用软件序列号
constchar* m_strStkLabel; //股票代码
constBOOL m_bIndex; //大盘
) H1 U% S! V0 c) {constint m_nNumData; //数据数量(pData,pDataEx,pResultBuf数据数量)数据长度
/ z) {( b0 v) X/ M, m; @1 d, ]! oconstSTKDATA* m_pData; //常规数据,注意:当m_nNumData==0时可能为NULL
7 f5 R+ R: m8 ^constSTKDATAEx* m_pDataEx; //扩展数据,分笔成交买卖盘,注意:可能为NULL
1 g9 U; b4 }& l6 xconstint m_nParam1Start; //参数1有效起始位置<0/ constant parameter >0 /variable parameter
constfloat* m_pfParam1; //调用参数1/pointer to variable parameter 1
constfloat* m_pfParam2; //调用参数2/pointer to variable parameter 2
7 Z! a8 U  s4 `& n2 f- u/ o& Oconstfloat* m_pfParam3; //调用参数3/pointer to variable parameter 3
constfloat* m_pfParam4; //调用参数4/pointer to variable parameter 4
float*m_pResultBuf; //结果缓冲区
8 {2 z: f% L2 A7 }% mconstDWORD m_dataType; //数据类型
constfloat* m_pfFinData; //财务数据
, Z$ Z( m* Z! X' |( G( V//以上与分析家兼容，所以沿用其结构和名称
* w% P  f7 [* U9 }: c//以下为飞狐交易师扩展(fortagSTKDATAEx)
2 H/ L% x9 X1 PconstDWORD m_dwReserved; // 保留
constint m_nNumParam; // 调用参数数量
constCALCPARAM* m_pCalcParam; // 调用参数数组
+ j4 i/ a( P6 e& V; h" E! \0 XconstDWORD m_dwReservedEx[4]; // 保留
9 ^4 y" U- l5 w6 ?  z7 z- w3 V7 ^char*m_strStkName; //股票名称
SPLITDATA*m_pSplitData; //除权数据
9 t! E5 i& F$ ?2 z% w% ?- b2 Aintm_nNumSplitData; //除权次数
}CALCINFO;
/*
注1:(与分析家兼容)
0 x- q* k* s+ W, @1.函数调用参数由m_pfParam1--m_pfParam4带入,若为NULL则表示该参数无效.
: m5 l* J; B9 U6 n2.当一个参数无效时,则其后的所有参数均无效.
) Q2 j8 {3 a, |7 m9 t' w% e: _如:m_pfParam2为NULL,则m_pfParam3,m_pfParam4一定为NULL.
3.参数1可以是常数参数或序列数参数,其馀参数只能为常数参数.
. ]% J0 O5 P* _; B4.若m_nParam1Start<0,则参数1为常数参数,参数等于*m_pfParam1;
! X) d% j! L4 y5 o5.若m_nParam1Start>=0,则参数1为序列数参数,m_pfParam1指向一个浮点型数组,
6 C+ b8 x4 k6 a* E6 L; n数组大小为m_nNumData,数据有效范围为m_nParam1Start至 m_nNumData-1.
1 K; p; G! f* B8 Z0 O' G1 |, Q在时间上m_pData[x]与 m_pfParam1[x]是一致的
" q3 \. s1 [0 m, B/ r# b' _注2:(飞狐交易师扩展)
1.该扩展结构使调用参数在技术上可以是无限数目的，且每个参数都可为数值或序列，由公式中实际的调用参数决定。
3 h2 _* R: O, v3 m% R; l2.CALCPARAM结构用于带入参数信息和实际数据，m_pCalcParam数组大小为m_nNumParam，数据有效范围为0 至m_nNumParam-1.
3.按参数的顺序，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.由于可以调用多个序列，许多序列的计算可以先在公式中进行，然后作为调用的参数即可。
3 |4 |# g* w( D: v0 g9 y. R- D7.经此扩展，对分析家的DLL依然可以调用、兼容。
' r& E8 X" g+ j4 D6 I*/
( m* ?; _" V0 O, G- G' b///////////////////////////////////////////////////////////////////////////////////
/*函数输出
) K7 H5 B& ]; {__declspec(dllexport)int xxxxxxxx(CALCINFO* pData);
- V; ~; E0 [4 M% w! G1.函数名称需全部大写.
+ l5 l* [: ?& [5 f. z# F4 i: ?2.函数必须以上述形式声明,请用实际函数名称替代xxxxxxxx;
对于C++程序还需包括在extern"C" { } 括号中.
! U& N8 p/ o  w  b1 C- n: p3 Y3.函数计算结果用pData->m_pResultBuf带回.
7 q2 y9 @2 B9 M# ]7 l4.函数返回-1表示错误或全部数据无效,否则返回第一个有效值位置,即:
1 t6 x: B$ a8 c9 ^m_pResultBuf[返回值]-- m_pResultBuf[m_nNumData-1]间为有效值.
5.函数名称长度不能超过15字节,动态连接库文件名不能超过9字节(不包括扩展名),动态库名称不能叫SYSTEM,EXPLORER
+ Z( c( F' x3 J* W& w*/
/ w5 h, g6 x) i6 I$ }//示例函数,使用时用实际名称替换
3 O8 s! C; e* l5 F( O__declspec(dllexport)int WINAPI MYMACLOSE(CALCINFO* pData);
* i6 y6 ]" `9 h3 s& Q( I__declspec(dllexport)int WINAPI SMOOTH(CALCINFO* pData);
//__declspec(dllexport) int WINAPI MYMAVAR(CALCINFO* pData);
( m. b( M2 I) ~. x__declspec(dllexport)int WINAPI MYBBI(CALCINFO* pData);
! g. O7 o, Z3 n; f  M* t( b) X//WINAPI = _stdcall
#ifdef__cplusplus
, I6 ?: l: M) b6 i. ]; o2 W1 I}
#endif//__cplusplus
" }! E4 ~7 O( B' X; u" B#endif//__FOXFUNC_H_INCLUDE

, a% P" P' J+ q//////////////////////////////////////////comment 注解
7 t6 L- G! Z3 @: C__declspec(dllexport)int WINAPI MYMAVAR(CALCINFO* pData)
! ~* L' U' v- t% c6 apData是指向 址标总结构 CALCINFO的 总址标
2 b8 l* R' R3 p8 y) G取用第二个参数数值floatfParam = *pData→m_pfParam2
1 d7 {. m- I' ?, A0 d! p: `' [取用第一个序列参数的址标constfloat* pValue = pData->m_pfParam1;
取用股票数据长度intndata = pData→m_nNumData;
! X- ?) U+ E8 A" O第一个参数存在且为数值pData->m_pfParam1&& pData→m_nParam1Start<0
& D7 |$ f! \* L+ ?! t第一个参数存在且为序列pData->m_pfParam1&& pData→m_nParam1Start>=0
第一个及第二个参数存在且为序列,第三个参数不存在pData->m_pfParam1&& pData->m_pfParam2 && pData->m_nParam1Start>=0&& pData->m_pfParam3==NULL
constfloat* cpParam = pData->m_pfParam1; 定义cpParam为第一个序列参数的址标
" Y$ d6 \6 ?; v8 o2 G% z取用股票数据结构
# S: M, L4 Y" M' S4 R: |' IpData→m_nNumData= 变数数据长度
8 C. f; @; q0 ?* RpData→m_pData= pointer to struc STKDATA 的址标
pData→m_pData[x]数据结构的第x个数据
pData→m_pData[x].m_fHigh数据结构的第x个数据中的 High
取用结果缓冲序列
pData->m_pResultBuf
# r2 B2 K+ @6 Q6 b7 U1 P0 \取得第一个序列参数的起始序位,如 2,...5 , . 7...
intnFirst = pData->m_nParam1Start;
for( i = nFirst+nPeriod-1; i < pData->m_nNumData; i++ )
取得第二个数值参数的数值
9 i! N  y( w* f2 B& c+ S( UfloatfParam = *pData->m_pfParam2;
intnPeriod = (int)fParam;
取用第一个序列参数的址标constfloat* pValue = pData→m_pfParam1;
取用序列参数的单个直pValue
取用缓冲序列的单个值pData->m_pResultBuf
constCALCPARAM* m_pCalcParam; // 调用参数数组
5 X9 j, @' q% e( p. c8 }m_pCalcParam为序列址标,指向各序列参数的指标
1 o* X$ @  X+ X$ N$ U7 r- O- L9 J第一个序列参数pData→m_pCalcParam[0]
5 H: e3 @( H& r( [; {% U7 m# }constfloat* m_pfParam; //指向序列参数的址标
第一个序列参数的起始序位pData->m_pCalcParam[0].m_nParamStart
& D0 s" Q& m( v' Y$ @' E  i+ b* `第一个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[0].m_pfParam;
取用第一个序列参数的单个直pValue1
) J. n1 _) Y$ G! j( E5 Y9 `第二个序列参数pData→m_pCalcParam[1]
第二个序列参数的起始序位pData->m_pCalcParam[1].m_nParamStart
2 T3 B# ]* ^8 K: g3 W- b. `9 G6 T第二个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[1].m_pfParam;
取用第二个序列参数的单个直pValue2
第三个序列参数pData→m_pCalcParam[2]
第三个序列参数的起始序位pData->m_pCalcParam[2].m_nParamStart
: `& I% U! g% G) T& a, @* B第三个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[2].m_pfParam;
取用第三个序列参数的单个直pValue3
第四个序列参数pData→m_pCalcParam[3]
2 t2 w$ h- d0 M& S5 B4 A第四个序列参数的起始序位pData->m_pCalcParam[3].m_nParamStart
1 j0 z6 |, J# v第四个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[3].m_pfParam;
取用第四个序列参数的单个直pValue4
1 b( L/ ], Y$ i: K8 G+ R! u$ K如果有四个序列参数,则取用序位最高的那一个序位
if( pData->m_pCalcParam[0].m_nParamStart >= 0 &&
; w2 p7 H* [  p6 V' C' |; @pData->m_pCalcParam[1].m_nParamStart>= 0 &&
pData->m_pCalcParam[2].m_nParamStart>= 0 &&
pData->m_pCalcParam[3].m_nParamStart>= 0 ) //4个序列都含有效数值
{
//计算返回的序列的第一个有效值位置
4 F9 e0 d/ V# j; J( w: zintnFirst = pData->m_pCalcParam[3].m_nParamStart;//已知返回的序列的第一个有效值位置与第4个序列一致
6 A4 [$ W) O  P2 h2 v1 d' q//若不知，则
4 y2 B" K  j" c- E  ]1 m/*
intnFirst = pData->m_pCalcParam[0].m_nParamStart;
9 Z  k! q5 ]- _if( nFirst < pData->m_pCalcParam[1].m_nParamStart )
nFirst= pData->m_pCalcParam[1].m_nParamStart;
7 v% }/ d0 Y- s. c7 rif( nFirst < pData->m_pCalcParam[2].m_nParamStart )
4 s' f* H# z: A" j2 u% DnFirst= pData->m_pCalcParam[2].m_nParamStart;
if( nFirst < pData->m_pCalcParam[3].m_nParamStart )
nFirst= pData→m_pCalcParam[3].m_nParamStart;
* [) q1 S! X& |constfloat* pValue1 = pData->m_pCalcParam[0].m_pfParam;
constfloat* pValue2 = pData->m_pCalcParam[1].m_pfParam;
constfloat* pValue3 = pData->m_pCalcParam[2].m_pfParam;
% h/ b, |* z8 v8 ]* x" nconstfloat* pValue4 = pData->m_pCalcParam[3].m_pfParam;
//-------------------
" d5 \% [; y" F/ r0 T9 o: Nfloatm_fOpen; //开盘 open
floatm_fHigh; //最高 high
floatm_fLow; //最低 low
floatm_fClose; //收盘 close
floatm_fVolume; //成交量 Volume
) s9 g5 p) d( b' A- H5 ?floatm_fAmount; //成交额 amount
% f7 ^' p" J3 F调用收盘据
pData→m_nNumData= 变数数据长度
pData→m_pData= pointer to struc STKDATA
, X8 h! x2 {. e( cpData→m_pData[x]第x个数据
; V1 I4 e; z: ?9 s% epData→m_pData[x].m_fHigh第x个数据中的 High
@@@@@@@@@@@important !!!!!!!
sinceVC++ 2008, cl.exe will make ‘pData→m_pData[i-j].m_fClose’ anerror
so,pass the high,low,open and close just from the function parameter ,that is use ‘ CALCPARAM’ struct
pData->m_pData[i-j].m_fOpen// to use open , there is no way in using a varable for calculationoutside foxtrader
pData→m_pData[i-j].m_fHighto use high
5 P& a) B( f* b- r0 ]/ ^pData->m_pData[i-j].m_fLow
% }5 s: w2 w% H4 g& fpData->m_pData[i-j].m_fClose
' R0 D/ ]; G! G! w: s4 a2 d4 |# }7 \9 ym_pData= pointer to struc STKDATA
incalling C++ dll function
/ O+ C+ J( X2 V6 V3 k6 bm_pDatais passed to pData (CALCINFO* pData . A CALCINFO* type pointer)
8 o! ]- K$ z6 i+ U& |8 v; btouse a single value in variable ‘High’
- r  D8 B. b+ `$ g! n: {" @pData→m_pData[i-j].m_fHighto use high
constfloat* m_pfParam1; //调用参数1/pointer to variable parameter 1
, L$ l/ Q& F$ {/ `7 Gconstfloat* m_pfParam2; //调用参数2/pointer to variable parameter 2
constfloat* m_pfParam3; //调用参数3/pointer to variable parameter 3
% E' w. m- [8 E* H* jconstfloat* m_pfParam4;
m_pfParam1,m_pfParam2, m_pfParam3, m_pfParam4 = pointer to caller function 的参数
; V8 w# B" H  ?7 D( P/ bpData→m_pfParam1= pointer to 第一个(序列)参数
pData→m_pfParam1[x]= 取用第一个(序列)参数的第x 个值
: B) E# M" g8 W# B8 vconstfloat* cpParam = pData→m_pfParam1; ＝定义 cpParam为 pointerto 第一个(序列)参数
cpParam[x] = 取用第一个(序列)参数的第x 个值
m_pResultBuf＝ 结果缓冲列
0 P& B6 M8 @- W. z6 T- MpData→m_pResultBuf= pointer to 结果缓冲列
. c4 I3 j" \. e. x2 g( F+ l$ UpData→m_pResultBuf[x] = 取用结果缓冲列的第 x个值
//////////////////////////////////////////comment
//////////////////////////////////////////comment 注解
/ X( y8 M5 ~  x5 g& Xconstint m_nParam1Start; //统杅1衄虴宎弇离
8 T" l0 o$ b: F2 e* U. R/ `constfloat* m_pfParam1; //覃蚚统杅1
constfloat* m_pfParam2; //覃蚚统杅2
- ^: \+ o* N* X/ D1 V6 y9 ?" m, Bconstfloat* m_pfParam3; //覃蚚统杅3
constfloat* m_pfParam4; //覃蚚统杅4,parameters must be <= 4
//const float* m_pfParam5; // parameters must be <= 4
//const float* m_pfParam6;
9 ^' W4 }7 m$ C% @0 P+ W0 L% R//const float* m_pfParam7;
* a6 l+ W+ K. c) D6 [//const float* m_pfParam8;
; ]+ \6 N- {; t% u6 {//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
&&pData->m_pCalcParam[2].m_nParamStart>=0)
{
- Y3 l( B  Z3 W! W% L. b% qfloatfParam = *pData->m_pfParam4; //pointer ,pData->m_pCalcParam[3].m_nParamStart >= 0
intnPeriod = (int)fParam; //统杅1
//const float* cpParam = pData->m_pfParam2; // cpParam = pointer to第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
constfloat* cpParam1 =pData->m_pCalcParam[0].m_pfParam; // cpParam =pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
constfloat* cpParam2 =pData->m_pCalcParam[1].m_pfParam; // cpParam =pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
$ X$ b, N4 Q) R+ x& g4 U# r/ j9 lconstfloat* cpParam3 =pData->m_pCalcParam[2].m_pfParam; // cpParam =pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值//parameters must be <= 4
# B; k3 j0 b7 \: h//const float* cpParam4 =pData->m_pCalcParam[3].m_pfParam; //cpParam = pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
( W/ Q' K: U2 s. k//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 ,
7 a/ k6 F* \' a5 _9 {touse pData→m_pData[x].m_fClose
3 p  ^" W6 S8 T$ epData→m_pData[x]= | 1,2,3 , … , m_nNumParam | time_t m_time;
. c6 U3 I8 Y* h; f|1,2,3 , … , m_nNumParam | float m_fOime_t
|1,2,3 , … , m_nNumParam | float m_fHigh;
0 k7 N- L' ?) @.. .
3 K+ J: e9 T9 I5 w: }$ m3 p|1,2,3 , … , m_nNumParam | WORD m_wDecline;
. V; y) i1 J/ n" H8 W- H; B+ U& N3 Rm_nNumParam= 数据high,close,open,low的长度
touse high:
pData→m_pData[x].m_fHigh
$ H3 D* H6 k( ]$ l2 tcontentof struct STKDATA
time_tm_time; //时间,UCT
4 N# S) o3 V2 H( ofloatm_fOpen; //开盘 open
8 [) ]% {' }5 z# b4 Afloatm_fHigh; //最高 high
4 N% ?, ^' u, z3 k# ?floatm_fLow; //最低 low
/ ]2 f2 a% |+ q4 q4 z' x/ Dfloatm_fClose; //收盘 close
! j- D: ?* o+ b; K& p: o5 Ffloatm_fVolume; //成交量 Volume
# T1 F0 [, v; h! Jfloatm_fAmount; //成交额 amount
WORDm_wAdvance; //上涨家数 仅大盘有效
WORDm_wDecline; //下跌家数 仅大盘有效
# O4 s, n$ |4 ^1 C$ @6 ~1 W3 m调用传递参数及传回结果
0 a& w5 j7 S$ @& E3 N调用传递参数
(pData->m_pfParam1 && //参数1有效Param1exists
pData->m_nParam1Start<0&& //参数1为常数
pData->m_pfParam2==NULL) //
5 [. r% {' `# v2 Llocalprocedure 定义使用变数
! B5 }9 Q' g  B8 X6 e; A' sonstfloat* pValue = pData→m_pfParam1; //use constant参数1
, k  i2 q9 K" R' n1 N( Z% g: mintnFirst = pData->m_nParam1Start; //use 参数1效值起始位
* S1 |: D7 `* T. {* {$ J6 l7 wfloatfParam = *pData->m_pfParam2; //use 参数2
intnPeriod = (int)fParam;
传回结果
fTotal+= pValue[i-j];
pData->m_pResultBuf
9 [# n7 n; N" y1 b/ p+ H  c//////////////////////////////////////////comment