原厂的例子是C语言的,我C实在是不行,改成 purebasic
PrototypeC tdxCallFunc(dlen,*co,*c1,*c2,*c3)
Structure tagPluginTCalcFuncInfo
nFuncMark.u
pCallFunc.tdxCallFunc
EndStructure
ProcedureC test1(dlen,*pout,*pc1,*pc2,*pc3)
For i=0 To dlen-1
PokeF(*pout+i*4,1.5)
Next
EndProcedure
ProcedureC test2(dlen,*pout,*pc1,*pc2,*pc3)
For i=0 To dlen-1
PokeF(*pout+i*4,1.5)
Next
EndProcedure
Global Dim g_CalcFuncSets.tagPluginTCalcFuncInfo(3)
g_CalcFuncSets(0)\nFuncMark=1
g_CalcFuncSets(0)\pCallFunc=@test1()
g_CalcFuncSets(1)\nFuncMark=2
g_CalcFuncSets(1)\pCallFunc=@test2()
g_CalcFuncSets(2)\nFuncMark=0
g_CalcFuncSets(2)\pCallFunc=0
ProcedureCDLL.b RegisterTdxFunc(*pFun)
PokeI(*pFun,@g_CalcFuncSets(0))
ProcedureReturn #True
EndProcedure
用这个为起点写了个评测买卖指标获利比例的小插件
奉劝炒股的朋友,没有万能的技术指标,有些指标在某只股票上表现好,在另一只股票上就可能让你倾家荡产。