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

ycng

许多年以前,我曾经在
理想公式区发布了
"
" O8 F, M$ j7 E) ]如何用 Foxtrader(飞狐)连结 C++动态程式库 DLL及 80x86Macro Assembly (组合语言)
- m3 u! U9 \4 w: [( T3 }"
& u6 p, g0 I; N$ s0 `" r; A$ H
$ C1 U/ |" X* O' Y6 L现在更新foxtrader(飞狐交易师)
6 u: |* Q: s1 B9 D4 k" y/ ?' J连结 DLL的方法

& ?, {1 e! Q! s" k" ~+ I. b0 mfoxtrader- - > DLL (C++ and assembly) = ( foxfunc.h + foxfunc.cpp +pow10.asm )
% \% E9 s: c* K8 l2 T, L7 Lgauss- - > DLL (C++ and assembly) = ( foxfunc.cpp + meigj.asm )
" N6 {7 B5 B: }. w, Wgauss只用到函数参数传递,所以使用新的 c++compiler, 不受影响
foxtrader的 foxfunc.h宣告的结构型态 (struct)在 2004vc++ 6.0 全部有效
+ l0 I% \4 C* z7 u
5 X& f; V& r6 ?7 \也就是这五个结构都能用
, `0 z9 w$ T+ e! vtypedefstruct tagSTKDATA
$ M3 |4 x: N5 p0 O- ?typedefunion tagSTKDATAEx
typedefstruct tagSPLITDATA
0 U2 w/ K6 j1 T( t; ytypedefstruct tagCALCPARAM
; Z/ E- E- S6 H3 _) ttypedefstruct tagCALCINFO
, O3 |3 j8 a- k4 y5 l
. Q. i- O. Y" b! {( P自2008年起,vc++ 2008, vc++ 2010, vc++2017 对struct的编译,已经完全 c++化,不再相容于 C
也就是这五个结构中
typedefstruct tagSTKDATA
" b& r& @2 q" f  a# U, ktypedefunion tagSTKDATAEx
typedefstruct tagSPLITDATA
typedefstruct tagCALCPARAM
- d' e; q/ \% r4 Y; Jtypedefstruct tagCALCINFO
只有这两个可以用
6 v8 f8 [" E1 K1 S) I2 ~/ E" Atypedefstruct tagCALCPARAM
/ x) I" R- {1 M% ftypedefstruct tagCALCINFO
7 r, W4 I" ^: K5 O6 f; `1 l4 r5 [值得庆幸的是,下面这个结构的函数参数传递个数可以有无数个
1 _3 L5 T9 |+ M# R% ^3 p* t" s) ktypedefstruct tagCALCPARAM
例如:在 foxtrader中
MA1:=MA(CLOSE,3);
; I2 x5 z, f8 U4 t* l$ P0 F; EMA2:=MA(CLOSE,6);
# n+ A2 j7 T& n$ P% `. e* AMA3:=MA(CLOSE,12);
MA4:=MA(CLOSE,24);
MYBBI1:"MYFUNC2017@MYBBI"(MA1, MA2,MA3,MA4,MA3,MA4,5)*0.95,colorff00ff,linethick3; {2017 vc++ 15.0}
- l0 Z: f! l% N4 W) |4 a其中MYFUNC2017=MYFUNC2017.dll, MYBBI = MYFUNC2017.dll 中的MYBBI函数,这里 MYBBI函数传递的参数共有 7个
下面这两式计算结果相同
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 自行计算}
$ G' r3 G0 D6 R+ wMYBBI1:"MYFUNC2017@MYBBI"(MA1, MA2,MA3,MA4,MA3,MA4,6)*0.95,colorff00ff,linethick3; {2017 vc++ 15.0 , dll计算}
其他例子
oooq:="MYFUNC2008good@MYMACLOSE"(c,,c,c,6),colorffffff,linethick5;(---> pow10.asm)
oooq1:"MYFUNC2010@MYMAVAR"(ma(c,5),5),colorgreen,linethick5;
# W) N7 o$ u9 z: W: D其中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错误

1 D/ T7 c3 P9 G2 q5 w7 a9 p
8 J) B. S1 e# n' @////////////////////////////////////////////////////////foxfunc.h
#ifndef__FOXFUNC_H_INCLUDE
#define__FOXFUNC_H_INCLUDE
+ u; E' i2 m* F2 u  I/*
3 x0 i/ u/ F& K. A# z, N飞狐交易师“C语言接口”扩展程序调用接口规范V3.0
1.本规范适用于飞狐交易师V3.x公式系统.
; v6 Y7 T- g/ t2 F5 {& W2.扩展函数用于实现系统函数不能实现的特殊算法.
3.扩展函数用windows32位动态连接库实现,建议使用MicrosoftVisual C++编程.
4.调用时在公式编辑器中写"动态库名称@函数名称"(参数表)即可,例如下面函数可以写为"FOXFUNC@MYMACLOSE"(5)
4 _' R, q4 q4 u8 C6 x5.动态连接库名称和函数名称可以自己定义.
6.使用时必须将动态库拷贝到飞狐交易师安装目录下的FmlDLL子目录下使用.
; ]4 u3 Q# c8 S4 @*/
- h0 }7 j; O1 I* }#ifdef__cplusplus
# Y6 @4 C3 e& C- F2 c. S8 `* N$ Yextern"C"
3 \7 v- N# U2 Q{
#endif//__cplusplus
///////////////////////////////////////////////////////////////////////////
//分析周期
: q. d) b) e" c# u% J" QenumDATA_TYPE
0 N+ o8 J. p# A! D{
TICK_DATA=2,//分笔成交
MIN1_DATA,//1分钟线
MIN5_DATA,//5分钟线
/ T  }9 m, I! {% t% u! PMIN15_DATA,//15分钟线
MIN30_DATA,//30分钟线
MIN60_DATA,//60分钟线
8 e- R& T1 L) f/ pDAY_DATA,//日线
WEEK_DATA,//周线
MONTH_DATA,//月线
9 {" D  O% M+ uYEAR_DATA,//年线
! |, T: O/ l" W& z4 N7 ^# W' xMULTIDAY_DATA,//多日线
MULTIMIN_DATA//多分钟线
* N0 _7 O+ I7 w6 h* t};
5 E1 C' x* z! W! x' l. a$ ?/ o///////////////////////////////////////////////////////////////////////////
//定义取用股票基本数据的结构 只有 VC++ 6.0 能compile成功使用
# I+ \1 w) t4 @0 j1 t! }! qtypedefstruct tagSTKDATA
! }3 R4 x4 z+ E9 a{
_tm_; //时间,UCT
7 N  O: t: v2 d: l3 s9 q5 l/ Sfloatm_fOpen; //开盘 open
4 x% S7 g8 |# r! t* B$ jfloatm_fHigh; //最高 high
floatm_fLow; //最低 low
floatm_fClose; //收盘 close
floatm_fVolume; //成交量 Volume
floatm_fAmount; //成交额 amount
0 R7 Q) j7 C. @9 D  r3 f& hWORDm_wAdvance; //上涨家数 仅大盘有效
2 w) c2 u1 e* {. iWORDm_wDecline; //下跌家数 仅大盘有效
5 o2 D  R1 c# L. Z; v/ y% d}STKDATA;
8 R* E2 `- b  O- V% L+ P. N: e定义STKDATA为 tagSTKDATA的简单别名,STKDATA
为真正方便使用名称,tagSTKDATA 为定目的的过水名称
////////////////////////////////////////////////////////////////////////////
9 ~# }, d, _1 ]  u  G//扩展数据,用于定义取用分笔成交数据的买卖盘 的结构
3 P+ ?( q2 d: l- o. ztypedefunion tagSTKDATAEx
{
struct
8 n' a. H; m1 N- H3 b2 \3 I{
* ?6 u! a4 S8 p' z9 @# lfloatm_fBuyPrice[3]; //买1--买3价floatm_fOpen; //开盘 open
& L, D- W: o$ Hfloatm_fHigh; //最高 high
floatm_fLow; //最低 low
floatm_fClose; //收盘 close
floatm_fVolume; //成交量 Volume
floatm_fAmount; //成交额 amount
' T; U: s0 [+ p+ }) h( J* s5 [floatm_fBuyVol[3]; //买1--买3量
floatm_fSellPrice[3]; //卖1--卖3价
floatm_fSellVol[3]; //卖1--卖3量
};
8 X  Z- T% e1 b7 f& cfloatm_fDataEx[12];
}STKDATAEx;
. C  q% N9 \4 R2 ?////////////////////////////////////////////////////////////////////////////
//定义取用除权数据的结构
; x$ s7 L, @) `% `8 s3 A' Mtypedefstruct tagSPLITDATA
* A8 @7 a& l" i{
" x1 m. D, U. g2 K5 t! f* ?* Mtime_tm_time; //时间,UCT
3 z1 g4 @- ?: P( X% |floatm_fHg; //红股
floatm_fPg; //配股
floatm_fPgj; //配股价
floatm_fHl; //红利
}SPLITDATA;
9 |- _: L" i7 U# ~: V8 ^- t4 p/////////////////////////////////////////////////////////////////////////////
/*财务数据顺序(m_pfFinData内容)
序号内容
0总股本(万股),
( @& u- r9 o' p% ^1国家股,
/ [' L) Z' b0 Z# m5 R$ ]/ A; x2发起人法人股,
( E+ p( s. r* p0 ?, x4 B3法人股,
4B股,
5H股,
0 i" N% e0 d' ]6 d4 i6流通A股,
$ I7 ]6 P$ z# \! a: L/ ^5 |4 z; \7职工股,
8A2转配股,
9总资产(千元),
10流动资产,
11固定资产,
8 u/ G' S( \9 C* i2 P12无形资产,
13长期投资,
  L6 n3 c0 ~8 k" x; T& i' n14流动负债,
, `" @# h7 j4 K" F2 C( F& M15长期负债,
1 D- |* t  ^2 O* r# B- U16资本公积金,
) H! I0 X2 X+ K7 |: U; O17每股公积金,
; G0 X0 W4 Y8 I& _1 R18股东权益,
. n- r$ G: S1 N1 Q4 P19主营收入,
20主营利润,
21其他利润,
22营业利润,
23投资收益,
24补贴收入,
25营业外收支,
. C: {+ S3 A/ }; T3 D& i6 Q4 Y26上年损益调整,
27利润总额,
6 v7 @5 o: D8 @: [& }$ R  A! \% y28税后利润,
29净利润,
30未分配利润,
' _- y/ b7 l) T8 e; X9 q31每股未分配,
32每股收益,
, w: a4 R, {2 ^2 \+ A33每股净资产,
5 a9 _5 F/ {( b+ _' X34调整每股净资,
: {3 s1 G; B" a( Y, |35股东权益比,
36净资收益率
*/
/////////////////////////////////////////////////////////////
//定义取用caller函数传递参数项 的结构
typedefstruct tagCALCPARAM
{
; Q2 y1 R7 g( w$ e0 a/ E) cunion
{
constfloat* m_pfParam; //指向序列参数的址标，指向一个浮点型数组pointertofloat variable parameter / ex. c,h,l,o, co2...co2=(c+o)/2
constfloat m_fParam; //数值参数 valueof parameter
};
7 T+ {2 D9 L' ?- P, o% Tconstint m_nParamStart; //序列参数有效起始位置thestart address of variable parameter / ex. c,h,l,o,co2.....
}CALCPARAM;
5 W- f0 ?3 Q/ i1 M/ e5 v/////////////////////////////////////////////////////////////////////////////
//定义全部取用址标 的总结构 (各指标指向前述各结构以便取的各结构的数据,接口信息数据的结构 )
typedefstruct tagCALCINFO
) u( @' ]# z, \$ q! Z/ J{
constDWORD m_dwSize; //结构大小
constDWORD m_dwVersion; //调用软件版本(V2.10: 0x210)
( b5 Y6 _5 H* ~; ?4 KconstDWORD m_dwSerial; //调用软件序列号
% H$ e% N8 j. N1 iconstchar* m_strStkLabel; //股票代码
8 j  {$ U& i. YconstBOOL m_bIndex; //大盘
  P% |* P, D# ^% U$ K( R, iconstint m_nNumData; //数据数量(pData,pDataEx,pResultBuf数据数量)数据长度
constSTKDATA* m_pData; //常规数据,注意:当m_nNumData==0时可能为NULL
, O. ^% n, B* r' |; Z3 u  a7 jconstSTKDATAEx* m_pDataEx; //扩展数据,分笔成交买卖盘,注意:可能为NULL
& y, L" z/ P3 B# ^constint m_nParam1Start; //参数1有效起始位置<0/ constant parameter >0 /variable parameter
  h' e. b2 }* h4 k2 w, O# Nconstfloat* m_pfParam1; //调用参数1/pointer to variable parameter 1
; Y: Z  l" H' a; f% X, e5 r$ Cconstfloat* m_pfParam2; //调用参数2/pointer to variable parameter 2
constfloat* m_pfParam3; //调用参数3/pointer to variable parameter 3
. G9 Q: c1 k" h% Hconstfloat* m_pfParam4; //调用参数4/pointer to variable parameter 4
2 J2 C% a7 U, k9 g; ?float*m_pResultBuf; //结果缓冲区
( n* b  Q4 o" Z8 p! UconstDWORD m_dataType; //数据类型
1 K; r0 q8 V4 z; V& mconstfloat* m_pfFinData; //财务数据
//以上与分析家兼容，所以沿用其结构和名称
# g5 r3 b4 e( V- \& |  f% v//以下为飞狐交易师扩展(fortagSTKDATAEx)
constDWORD m_dwReserved; // 保留
constint m_nNumParam; // 调用参数数量
constCALCPARAM* m_pCalcParam; // 调用参数数组
# `; u9 G2 \4 G4 M2 UconstDWORD m_dwReservedEx[4]; // 保留
char*m_strStkName; //股票名称
2 @) N  E( F9 W: E& qSPLITDATA*m_pSplitData; //除权数据
intm_nNumSplitData; //除权次数
}CALCINFO;
/*
注1:(与分析家兼容)
+ Y6 n- ~, A- y9 {, j9 J1.函数调用参数由m_pfParam1--m_pfParam4带入,若为NULL则表示该参数无效.
2.当一个参数无效时,则其后的所有参数均无效.
如:m_pfParam2为NULL,则m_pfParam3,m_pfParam4一定为NULL.
, n5 I1 C5 P: M& m3.参数1可以是常数参数或序列数参数,其馀参数只能为常数参数.
: `/ o. g) T- B; a  z4.若m_nParam1Start<0,则参数1为常数参数,参数等于*m_pfParam1;
8 P" F' W# e8 k3 h. Y+ X# P( X5.若m_nParam1Start>=0,则参数1为序列数参数,m_pfParam1指向一个浮点型数组,
数组大小为m_nNumData,数据有效范围为m_nParam1Start至 m_nNumData-1.
0 ^! [5 W+ [: w在时间上m_pData[x]与 m_pfParam1[x]是一致的
1 U/ S3 B% u3 [" F, j注2:(飞狐交易师扩展)
7 i5 D9 J5 Q$ t3 L. l# ]1.该扩展结构使调用参数在技术上可以是无限数目的，且每个参数都可为数值或序列，由公式中实际的调用参数决定。
2.CALCPARAM结构用于带入参数信息和实际数据，m_pCalcParam数组大小为m_nNumParam，数据有效范围为0 至m_nNumParam-1.
4 m$ v+ b. w5 ~; h7 {3.按参数的顺序，m_pCalcParam[0]为第一个参数的数据，m_pCalcParam[1]为第二个参数的数据...，为了保持兼容，原m_nParam1Start、m_pfParam1等5个属性依然有赋值。
. b* V$ L, f) w1 A! t! X$ w4.若i位置的参数为数值，取用m_pCalcParam.m_fParam.
3 x/ ]6 z7 G1 d( W! E6 Q  z0 Y5.若i位置的参数为序列，取用m_pCalcParam.m_pfParam，数组大小为m_nNumData,数据有效范围为m_pCalcParam.m_nParamStart至 m_nNumData-1.若m_pCalcParam.m_nParamStart<0,则此数组中无有效数据。
6.由于可以调用多个序列，许多序列的计算可以先在公式中进行，然后作为调用的参数即可。
7.经此扩展，对分析家的DLL依然可以调用、兼容。
*/
///////////////////////////////////////////////////////////////////////////////////
/*函数输出
  o! H6 p& @- K, i1 v/ S__declspec(dllexport)int xxxxxxxx(CALCINFO* pData);
8 k" q9 x) v* p0 ?( u) h1.函数名称需全部大写.
2.函数必须以上述形式声明,请用实际函数名称替代xxxxxxxx;
对于C++程序还需包括在extern"C" { } 括号中.
+ h, s9 t4 z" \7 A+ ^. S3.函数计算结果用pData->m_pResultBuf带回.
. J* O8 M4 N' u6 ^5 c8 Q4.函数返回-1表示错误或全部数据无效,否则返回第一个有效值位置,即:
m_pResultBuf[返回值]-- m_pResultBuf[m_nNumData-1]间为有效值.
4 S; |+ i/ R0 ]6 I5.函数名称长度不能超过15字节,动态连接库文件名不能超过9字节(不包括扩展名),动态库名称不能叫SYSTEM,EXPLORER
*/
2 Q3 T* o: |- K//示例函数,使用时用实际名称替换
. _2 S' d- k/ r8 q! D' s# l( s. N/ y__declspec(dllexport)int WINAPI MYMACLOSE(CALCINFO* pData);
% a( {4 k5 i( L__declspec(dllexport)int WINAPI SMOOTH(CALCINFO* pData);
//__declspec(dllexport) int WINAPI MYMAVAR(CALCINFO* pData);
__declspec(dllexport)int WINAPI MYBBI(CALCINFO* pData);
5 C+ }$ a, v1 b8 }. [//WINAPI = _stdcall
2 @. D' F8 u7 |" A8 S2 K# S* `2 f#ifdef__cplusplus
- g% l( f/ U3 V! J+ Z$ p  t9 x}
#endif//__cplusplus
#endif//__FOXFUNC_H_INCLUDE
. Q9 ]5 i- l) V0 |* j% X, k$ M
//////////////////////////////////////////comment 注解
6 D" B$ T7 m6 W* ~$ B$ ^' a__declspec(dllexport)int WINAPI MYMAVAR(CALCINFO* pData)
pData是指向 址标总结构 CALCINFO的 总址标
' X% k  u  y+ r% i2 e: L) e3 x取用第二个参数数值floatfParam = *pData→m_pfParam2
* \7 I* l1 L6 b- v取用第一个序列参数的址标constfloat* pValue = pData->m_pfParam1;
2 x, I1 h. K- t# W' J1 V2 Y, u5 N取用股票数据长度intndata = pData→m_nNumData;
, c, ~! ?1 V5 w+ b第一个参数存在且为数值pData->m_pfParam1&& pData→m_nParam1Start<0
/ O4 j; k, ^1 l7 M$ h1 s6 [. W" }第一个参数存在且为序列pData->m_pfParam1&& pData→m_nParam1Start>=0
5 s" m7 c' [  x' i5 g第一个及第二个参数存在且为序列,第三个参数不存在pData->m_pfParam1&& pData->m_pfParam2 && pData->m_nParam1Start>=0&& pData->m_pfParam3==NULL
constfloat* cpParam = pData->m_pfParam1; 定义cpParam为第一个序列参数的址标
取用股票数据结构
pData→m_nNumData= 变数数据长度
pData→m_pData= pointer to struc STKDATA 的址标
8 r/ ~. \7 ?' P. V; A* t1 ipData→m_pData[x]数据结构的第x个数据
3 e) y  Y" ^# l7 S( u' y! a0 ^  opData→m_pData[x].m_fHigh数据结构的第x个数据中的 High
$ @1 H) n$ E' O取用结果缓冲序列
pData->m_pResultBuf
6 u- t$ C7 G3 ~$ E2 m( e$ l取得第一个序列参数的起始序位,如 2,...5 , . 7...
intnFirst = pData->m_nParam1Start;
8 [$ ^* y7 O; Cfor( i = nFirst+nPeriod-1; i < pData->m_nNumData; i++ )
取得第二个数值参数的数值
floatfParam = *pData->m_pfParam2;
; G( g! f1 W. W! d: ~7 yintnPeriod = (int)fParam;
取用第一个序列参数的址标constfloat* pValue = pData→m_pfParam1;
+ B8 i# x! X# @# I取用序列参数的单个直pValue
$ H% ^% v3 M. \' r; K/ u取用缓冲序列的单个值pData->m_pResultBuf
constCALCPARAM* m_pCalcParam; // 调用参数数组
m_pCalcParam为序列址标,指向各序列参数的指标
第一个序列参数pData→m_pCalcParam[0]
5 }  G. ^" C) m- Y! o+ ^constfloat* m_pfParam; //指向序列参数的址标
, U$ H. R* [; ?8 j$ J! Q/ G. u第一个序列参数的起始序位pData->m_pCalcParam[0].m_nParamStart
第一个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[0].m_pfParam;
取用第一个序列参数的单个直pValue1
1 l4 q# c) c7 [; W第二个序列参数pData→m_pCalcParam[1]
) w! x5 ~* H5 |8 J: I1 n第二个序列参数的起始序位pData->m_pCalcParam[1].m_nParamStart
' t" e# y+ m  y2 u$ m第二个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[1].m_pfParam;
取用第二个序列参数的单个直pValue2
3 N% C% x5 D5 t第三个序列参数pData→m_pCalcParam[2]
第三个序列参数的起始序位pData->m_pCalcParam[2].m_nParamStart
第三个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[2].m_pfParam;
取用第三个序列参数的单个直pValue3
0 |1 S- i  D0 f. Q/ F4 b6 m& j2 T第四个序列参数pData→m_pCalcParam[3]
第四个序列参数的起始序位pData->m_pCalcParam[3].m_nParamStart
! d' ]9 D5 m( q' e$ I  `第四个序列参数的址标constfloat* pValue1 = pData→m_pCalcParam[3].m_pfParam;
取用第四个序列参数的单个直pValue4
如果有四个序列参数,则取用序位最高的那一个序位
& |5 Y9 D+ x8 F, @1 }if( pData->m_pCalcParam[0].m_nParamStart >= 0 &&
' o* }3 ~7 w0 [5 u( BpData->m_pCalcParam[1].m_nParamStart>= 0 &&
, B4 v8 c8 J2 \- s0 ?( \pData->m_pCalcParam[2].m_nParamStart>= 0 &&
pData->m_pCalcParam[3].m_nParamStart>= 0 ) //4个序列都含有效数值
' F4 s2 \  P/ Z{
//计算返回的序列的第一个有效值位置
2 U4 C' K% x3 z# a* fintnFirst = pData->m_pCalcParam[3].m_nParamStart;//已知返回的序列的第一个有效值位置与第4个序列一致
//若不知，则
/*
intnFirst = pData->m_pCalcParam[0].m_nParamStart;
if( nFirst < pData->m_pCalcParam[1].m_nParamStart )
nFirst= pData->m_pCalcParam[1].m_nParamStart;
3 r3 ~" d2 i  V; C9 c8 Xif( nFirst < pData->m_pCalcParam[2].m_nParamStart )
nFirst= pData->m_pCalcParam[2].m_nParamStart;
if( 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;
. {1 V# C$ D3 p) H- zconstfloat* pValue3 = pData->m_pCalcParam[2].m_pfParam;
constfloat* pValue4 = pData->m_pCalcParam[3].m_pfParam;
//-------------------
floatm_fOpen; //开盘 open
4 p' P" q9 d+ `' v6 gfloatm_fHigh; //最高 high
floatm_fLow; //最低 low
/ f+ Q, c5 |$ F' {) lfloatm_fClose; //收盘 close
% r" k; r# D' D$ [* Y' e/ ^floatm_fVolume; //成交量 Volume
0 i9 w1 M1 v: j! \4 g3 F( ~$ ^6 ofloatm_fAmount; //成交额 amount
调用收盘据
9 R. ~# t. J/ p% BpData→m_nNumData= 变数数据长度
pData→m_pData= pointer to struc STKDATA
' s0 C7 J4 e" `pData→m_pData[x]第x个数据
+ H( w3 i: X& Y/ u* ^" bpData→m_pData[x].m_fHigh第x个数据中的 High
@@@@@@@@@@@important !!!!!!!
sinceVC++ 2008, cl.exe will make ‘pData→m_pData[i-j].m_fClose’ anerror
7 ^& a( m) U9 ]4 tso,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
pData->m_pData[i-j].m_fLow
pData->m_pData[i-j].m_fClose
' O2 n) F; S3 O( H$ p6 Tm_pData= pointer to struc STKDATA
7 x* \# b. y* w( R; x* Y- Q. J( sincalling C++ dll function
4 Y8 x% H0 q$ V3 A  u( h7 Em_pDatais passed to pData (CALCINFO* pData . A CALCINFO* type pointer)
7 Z) @$ {* Q) @" f$ Ztouse a single value in variable ‘High’
pData→m_pData[i-j].m_fHighto use high
) X+ {& U& q6 [% n3 iconstfloat* m_pfParam1; //调用参数1/pointer to variable parameter 1
constfloat* 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 的参数
pData→m_pfParam1= pointer to 第一个(序列)参数
+ O; h+ _  _: F, lpData→m_pfParam1[x]= 取用第一个(序列)参数的第x 个值
constfloat* cpParam = pData→m_pfParam1; ＝定义 cpParam为 pointerto 第一个(序列)参数
( h" ?- e: Z% qcpParam[x] = 取用第一个(序列)参数的第x 个值
m_pResultBuf＝ 结果缓冲列
pData→m_pResultBuf= pointer to 结果缓冲列
8 l. U# W6 p$ V/ S3 J* I. n5 upData→m_pResultBuf[x] = 取用结果缓冲列的第 x个值
//////////////////////////////////////////comment
//////////////////////////////////////////comment 注解
! g' @% \8 p- ^4 Z' Yconstint m_nParam1Start; //统杅1衄虴宎弇离
$ S# K! w' T5 D' i0 H$ w. mconstfloat* m_pfParam1; //覃蚚统杅1
constfloat* m_pfParam2; //覃蚚统杅2
$ R3 i" A% L  X3 a2 n: }8 X9 Mconstfloat* m_pfParam3; //覃蚚统杅3
constfloat* m_pfParam4; //覃蚚统杅4,parameters must be <= 4
; X: C# ]- J  \; X//const float* m_pfParam5; // parameters must be <= 4
9 C6 b" G2 h4 R- g: P* L. N//const float* m_pfParam6;
. i, e6 R- A6 j& x//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
&&pData->m_pCalcParam[2].m_nParamStart>=0)
{
) b( a8 ~0 c, ~' T; U/ `* rfloatfParam = *pData->m_pfParam4; //pointer ,pData->m_pCalcParam[3].m_nParamStart >= 0
6 ^7 O3 D( \: J" jintnPeriod = (int)fParam; //统杅1
" U* ]: V+ a3 b- z( w  n8 \5 q//const float* cpParam = pData->m_pfParam2; // cpParam = pointer to第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
7 ?! p3 Y1 B' y9 O+ g  Sconstfloat* 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 个值
& E0 p$ e; c! j! I0 |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 个值
( n- R* i7 c' D+ A4 }8 f//const float* cpParam5 =pData->m_pCalcParam[4].m_pfParam; //cpParam = pointer to 第一个序列参数,cpParam = 取用第一个序列参数的第i 个值
3 k. |0 q2 _+ q1 d9 h3 m//m_pData = const struct pointer to struct STKDATA , pointer to structSTKDATA ,
) p. a! x8 [: w0 j0 Q8 x1 p, ktouse pData→m_pData[x].m_fClose
! u" {# T4 z4 f3 SpData→m_pData[x]= | 1,2,3 , … , m_nNumParam | time_t m_time;
|1,2,3 , … , m_nNumParam | float m_fOime_t
. T0 ^6 W& g: J  ^; }. L|1,2,3 , … , m_nNumParam | float m_fHigh;
.. .
5 ~# |- \& h: T8 B" e" S|1,2,3 , … , m_nNumParam | WORD m_wDecline;
m_nNumParam= 数据high,close,open,low的长度
touse high:
pData→m_pData[x].m_fHigh
+ r+ Z- x+ Y4 j8 q( X6 ^% |( P! Jcontentof struct STKDATA
% p6 Q: `) z2 _/ y1 f' e( \0 }time_tm_time; //时间,UCT
1 S* i7 G: F& t# }; c$ q) X$ gfloatm_fOpen; //开盘 open
floatm_fHigh; //最高 high
+ Z/ i/ K9 b0 l. s4 [floatm_fLow; //最低 low
floatm_fClose; //收盘 close
. M% h& M) x1 C+ n5 h# jfloatm_fVolume; //成交量 Volume
floatm_fAmount; //成交额 amount
WORDm_wAdvance; //上涨家数 仅大盘有效
8 i# I% ~& O! u+ a! TWORDm_wDecline; //下跌家数 仅大盘有效
调用传递参数及传回结果
调用传递参数
(pData->m_pfParam1 && //参数1有效Param1exists
+ s9 p: G5 E/ ~; ]  u% q, E8 IpData->m_nParam1Start<0&& //参数1为常数
9 Z2 a5 r6 a% B% F$ G6 [/ k) PpData->m_pfParam2==NULL) //
4 @3 g2 x; l" ]: q" Q& y7 h9 Jlocalprocedure 定义使用变数
2 q, q+ i8 A% Q* N) ronstfloat* pValue = pData→m_pfParam1; //use constant参数1
intnFirst = pData->m_nParam1Start; //use 参数1效值起始位
floatfParam = *pData->m_pfParam2; //use 参数2
" H$ r' U0 H$ [0 ^; x3 H( uintnPeriod = (int)fParam;
传回结果
fTotal+= pValue[i-j];
pData->m_pResultBuf
! S9 e9 Z. S8 E% S, v//////////////////////////////////////////comment