通达信插件模板 Purebasic版

原厂的例子是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

用这个为起点写了个评测买卖指标获利比例的小插件

奉劝炒股的朋友，没有万能的技术指标，有些指标在某只股票上表现好，在另一只股票上就可能让你倾家荡产。