 |
yhcheng
中級會員
註冊日期: Dec 2004
來 自:
文章數量: 43 |
原碼:
// FoxFunc.H
#ifndef __FOXFUNC_H_INCLUDE
#define __FOXFUNC_H_INCLUDE
/*
///////////////////////
飛狐交易師“C語言介面”擴展程式調用介面規範V3.0
1.本規範適用於飛狐交易師V3.x公式系統.
2.擴展函數用於實現系統函數不能實現的特殊演算法.
3.擴展函數用windows 32位元動態連接庫實現,建議使用Microsoft Visual C++編程.
4.調用時在公式編輯器中寫"動態庫名稱@函數名稱"(參數表)即可,例如下面函數可以寫為"FOXFUNC@MYMACLOSE"(5)
5.動態連接庫名稱和函數名稱可以自己定義.
6.使用時必須將動態庫拷貝到飛狐交易師安裝目錄下的FmlDLL子目錄下使用.
*/
#ifdef __cplusplus
extern "C"
{
#endif //__cplusplus
///////////
//分析週期
enum DATA_TYPE
{
TICK_DATA=2, //分筆成交
MIN1_DATA, //1分鐘線
MIN5_DATA, //5分鐘線
MIN15_DATA, //15分鐘線
MIN30_DATA, //30分鐘線
MIN60_DATA, //60分鐘線
DAY_DATA, //日線
WEEK_DATA, //周線
MONTH_DATA, //月線
YEAR_DATA, //年線
MULTIDAY_DATA, //多日線
MULTIMIN_DATA //多分鐘線
};
///////////////
//基本資料
typedef struct tagSTKDATA
{
time_t m_time; //時間,UCT
float m_fOpen; //開盤
float m_fHigh; //最高
float m_fLow; //最低
float m_fClose; //收盤
float m_fVolume; //成交量
float m_fAmount; //成交額
WORD m_wAdvance; //上漲家數 僅大盤有效
WORD m_wDecline; //下跌家數 僅大盤有效
} STKDATA;
///////////擴展資料,用於描述分筆成交資料的買賣盤
typedef union tagSTKDATAEx
{
struct
{
float m_fBuyPrice[3]; //買1--買3價
float m_fBuyVol[3]; //買1--買3量
float m_fSellPrice[3]; //賣1--賣3價
float m_fSellVol[3]; //賣1--賣3量
};
float m_fDataEx[12];
} STKDATAEx;
//////////
//除權數據
typedef struct tagSPLITDATA
{
time_t m_time; //時間,UCT
float m_fHg; //紅股
float m_fPg; //配股
float m_fPgj; //配股價
float m_fHl; //紅利
} SPLITDATA;
/////////
/*財務資料順序(m_pfFinData內容)
序號 內容
0 總股本(萬股),
1 國家股,
2 發起人法人股,
3 法人股,
4 B股,
5 H股,
6 流通A股,
7 職工股,
8 A2轉配股,
9 總資產(千元),
10 流動資產,
11 固定資產,
12 無形資產,
13 長期投資,
14 流動負債,
15 長期負債,
16 資本公積金,
17 每股公積金,
18 股東權益,
19 主營收入,
20 主營利潤,
21 其他利潤,
22 營業利潤,
23 投資收益,
24 補貼收入,
25 營業外收支,
26 上年損益調整,
27 利潤總額,
28 稅後利潤,
29 淨利潤,
30 未分配利潤,
31 每股未分配,
32 每股收益,
33 每股淨資產,
34 調整每股淨資,
35 股東權益比,
36 淨資收益率
*/
///////////
//調用參數項結構
typedef struct tagCALCPARAM
{
union
{
const float* m_pfParam; //序列參數，指向一個浮點型陣列
const float m_fParam; //數值參數
};
const int m_nParamStart; //序列參數有效起始位置
}CALCPARAM;
/////////////////////
//調用介面資訊資料結構
typedef struct tagCALCINFO
{
const DWORD m_dwSize; //結構大小
const DWORD m_dwVersion; //調用軟體版本(V2.10 : 0x210)
const DWORD m_dwSerial; //調用軟體序列號
const char* m_strStkLabel; //股票代碼
const BOOL m_bIndex; //大盤
const int m_nNumData; //資料數量(pData,pDataEx,pResultBuf資料數量)
const STKDATA* m_pData; //常規資料,注意:當m_nNumData==0時可能為 NULL
const STKDATAEx* m_pDataEx; //擴展資料,分筆成交買賣盤,注意:可能為 NULL
const int m_nParam1Start; //參數1有效起始位置
const float* m_pfParam1; //調用參數1
const float* m_pfParam2; //調用參數2
const float* m_pfParam3; //調用參數3
const float* m_pfParam4; //調用參數3
float* m_pResultBuf; //結果緩衝區
const DWORD m_dataType; //資料類型
const float* m_pfFinData; //財務資料
//以上與分析家相容，所以沿用其結構和名稱
//以下為飛狐交易師擴展
const DWORD m_dwReserved; // 保留
const int m_nNumParam; // 調用參數數量
const CALCPARAM* m_pCalcParam; // 調用參數陣列
const DWORD m_dwReservedEx[4]; // 保留
char* m_strStkName; //股票名稱
SPLITDATA* m_pSplitData; //除權數據
int m_nNumSplitData; //除權次數
} CALCINFO;
/*
注1: (與分析家相容)
1.函數調用參數由m_pfParam1--m_pfParam4帶入,若為NULL則表示該參數無效.
2.當一個參數無效時,則其後的所有參數均無效.
如:m_pfParam2為NULL,則m_pfParam3,m_pfParam4一定為NULL.
3.參數1可以是常數參數或序列數參數,其餘參數只能為常數參數.
4.若m_nParam1Start<0, 則參數1為常數參數,參數等於*m_pfParam1;
5.若m_nParam1Start>=0,則參數1為序列數參數,m_pfParam1指向一個浮點型陣列,
陣列大小為m_nNumData,資料有效範圍為 m_nParam1Start 至 m_nNumData-1.
在時間上m_pData[x] 與 m_pfParam1[x]是一致的
注2: (飛狐交易師擴展)
1.該擴展結構使調用參數在技術上可以是無限數目的，且每個參數都可為數值或序列，由公式中實際的調用參數決定。
2.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[i].m_fParam.
5.若 i位置的參數為序列，取用m_pCalcParam[i].m_pfParam，陣列大小為m_nNumData,資料有效範圍為m_pCalcParam[i].m_nParamStart 至 m_nNumData-1. 若m_pCalcParam[i].m_nParamStart<0, 則此陣列中無有效資料。
6.由於可以調用多個序列，許多序列的計算可以先在公式中進行，然後作為調用的參數即可。
7.經此擴展，對分析家的DLL依然可以調用、相容。
*/
////////////
/* 函數輸出
__declspec(dllexport) int xxxxxxxx(CALCINFO* pData);
1.函數名稱需全部大寫.
2.函數必須以上述形式聲明,請用實際函數名稱替代xxxxxxxx;
對於C++程式還需包括在 extern "C" { } 括弧中.
3.函數計算結果用pData->m_pResultBuf帶回.
4.函數返回-1表示錯誤或全部資料無效,否則返回第一個有效值位置,即:
m_pResultBuf[返回值] -- m_pResultBuf[m_nNumData-1]間為有效值.
5.函數名稱長度不能超過15位元組,動態連接庫檔案名不能超過9位元組(不包括副檔名),動態庫名稱不能叫SYSTEM,EXPLORER
*/
//示例函數,使用時用實際名稱替換
__declspec(dllexport) int WINAPI MYMACLOSE(CALCINFO* pData);
__declspec(dllexport) int WINAPI MYMAVAR(CALCINFO* pData);
__declspec(dllexport) int WINAPI MYBBI(CALCINFO* pData);
#ifdef __cplusplus
}
#endif //__cplusplus
#endif //__FOXFUNC_H_INCLUDE
|
|
向版主報告此篇 |  |
|
2006-03-07 08:43 |
|
|
| |
|
yhcheng
中級會員
註冊日期: Dec 2004
來 自:
文章數量: 43 |
原碼:
// FoxFunc.cpp : Defines the entry point for the DLL application.
//
#include <string.h>
#include <stdio.h>
#include <io.h>
#include <math.h>
#include <iostream.h>
#include "stdafx.h"
#include "FoxFunc.h"
BOOL APIENTRY DllMain( HANDLE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved
)
{
switch (ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
case DLL_THREAD_ATTACH:
case DLL_THREAD_DETACH:
case DLL_PROCESS_DETACH:
break;
}
return TRUE;
}
//計算收盤價的均價,一個常數參數,表示計算週期
//調用方法:
// "FOXFUNC@MYMACLOSE"(5)
extern "C" double ppow10(double,double);
// !!!!!!!! use "C" for Microsoft visual C++ compiler
// !!!!!!!! use "C" for Microsoft visual C++ compiler
__declspec(dllexport) int WINAPI MYMACLOSE(CALCINFO* pData)
{
if ( pData->m_pfParam1 && //參數1有效
pData->m_nParam1Start<0 && //參數1為常數
pData->m_pfParam2==NULL ) //僅有一個參數
{
float fParam = *pData->m_pfParam1;
int nPeriod = (int)fParam; //參數1
if(nPeriod>0)
{
float fTotal;
int i, j;
int ndata = pData->m_nNumData;
float yy[5000][1];
for ( i = nPeriod-1; i < pData->m_nNumData; i++ )//計算nPeriod週期的均線,資料從nPeriod-1開始有效
{
fTotal = 0.0f;
double lngth=2.0;
float yy1[5000][1];
for ( j = 0; j < nPeriod; j++ ) //累加
fTotal += pData->m_pData[i-j].m_fClose;
pData->m_pResultBuf[i] = fTotal/nPeriod; //平均
pData->m_pResultBuf[i]=ppow10(pData->m_pResultBuf[i],lngth);
}
return nPeriod-1;
}
}
return -1;
}
//計算均價,2個參數,參數1為待求均線的資料,參數2表示計算週期
//調用方法:
// "FOXFUNC@MYMAVAR"(CLOSE-OPEN,5)
__declspec(dllexport) int WINAPI MYMAVAR(CALCINFO* pData)
{
if(pData->m_pfParam1 && pData->m_pfParam2 && //參數1,2有效
pData->m_nParam1Start>=0 && //參數1為序列數
pData->m_pfParam3==NULL) //有2個參數
{
const float* pValue = pData->m_pfParam1; //參數1
int nFirst = pData->m_nParam1Start; //有效值起始位
float fParam = *pData->m_pfParam2; //參數2
int nPeriod = (int)fParam;
if( nFirst >= 0 && nPeriod > 0 )
{
float fTotal;
int i, j;
for ( i = nFirst+nPeriod-1; i < pData->m_nNumData; i++ )
{
fTotal = 0.0f;
for ( j=0; j < nPeriod; j++ ) //累加
fTotal += pValue[i-j];
pData->m_pResultBuf[i] = fTotal/nPeriod;//平均
pData->m_pResultBuf[i] = ppow10(pData->m_pResultBuf[i],2.0);
}
return nFirst+nPeriod-1;
}
}
return -1;
}
//計算多個序列的均值,5個參數,參數1-4為待求多個序列,參數5用於舉例說明數值參數的用法，實際在此例中無需該參數
/*
調用方法:
MA1:=MA(CLOSE,3);
MA2:=MA(CLOSE,6);
MA3:=MA(CLOSE,12);
MA4:=MA(CLOSE,24);
MYBBI: "FOXFUNC@MYBBI"(MA1, MA2, MA3, MA4, 4);
*/
__declspec(dllexport) int WINAPI MYBBI(CALCINFO* pData)
{
if ( pData->m_pCalcParam[0].m_nParamStart >= 0 &&
pData->m_pCalcParam[1].m_nParamStart >= 0 &&
pData->m_pCalcParam[2].m_nParamStart >= 0 &&
pData->m_pCalcParam[3].m_nParamStart >= 0 ) //4個序列都含有效數值
{
//計算返回的序列的第一個有效值位置
int nFirst = pData->m_pCalcParam[3].m_nParamStart; //已知返回的序列的第一個有效值位置與第4個序列一致
//若不知，則
/*
int nFirst = pData->m_pCalcParam[0].m_nParamStart;
if ( nFirst < pData->m_pCalcParam[1].m_nParamStart )
nFirst = pData->m_pCalcParam[1].m_nParamStart;
if ( 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;
*/
const float* pValue1 = pData->m_pCalcParam[0].m_pfParam;
const float* pValue2 = pData->m_pCalcParam[1].m_pfParam;
const float* pValue3 = pData->m_pCalcParam[2].m_pfParam;
const float* pValue4 = pData->m_pCalcParam[3].m_pfParam;
int nNum = (int)(pData->m_pCalcParam[4].m_fParam); //實際上該例中已知nNum=4，在此用於說明數值參數的用法
for( int i = nFirst; i < pData->m_nNumData; i++ )
{
pData->m_pResultBuf[i] =
(pValue1[i] + pValue2[i] + pValue3[i] + pValue4[i])/nNum;
}
return nFirst;
}
return -1;
}
原碼:
; *******************************************************
; * *
; * Delphi Runtime Library *
; * *
; * Copyright (c) 1996,98 Inprise Corporation *
;*--------------------------------------------------------------------------
; * To compile,give "tasm32 /ml ow10.asm" *
;*--------------------------------------------------------------------------
; *******************************************************
; INCLUDE SE.ASM
.386
.MODEL flat
PUBLIC _ppow10
.CODE
; FUNCTION _Ppow10( double val, double pow: ) : Extended;
_ppow10 PROC near
fp_power EQU QWORD PTR [ebp+16]
fp_val EQU QWORD PTR [ebp+8]
val EQU QWORD PTR [eBP-8] ; USE STACK
power EQU QWORD PTR [eBP-16] ; USE STACK
pow10 EQU QWORD PTR [eBP-24] ; USE STACK
FPower10:
push ebp
mov ebp,esp
sub esp,24
MOV EAX,8
MOV EDX,8
; fldpi
fld fp_val ;st(0)=val
fstp val
fld fp_power ;st(0)=power
fstp power
fld val ;st(0)=val
fmul power ;st(0)=val*power
fmul power ;st(0)=val*power*power
; fadd st,st(0)
; fmul qword ptr [ebp+16] ;st(0)=power
; fadd st,st(0)
mov esp,ebp
pop ebp
RET ;return value = st(0)
_ppow10 ENDP
END
原碼:
oooq:"MY1@MYMAVAR"(c,5),linethick2;
|
|
向版主報告此篇 | |
|
|
2006-03-07 08:44 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|
