悟多公式DLL部分源码

悟多公式DLL部分源码 这个已经超出了证券软件自带编程函数外的东东 如果这里有计算机软件 编程专业的 应该一看就懂 但如果会计算机编程 如果对缠师的文章理解不了 或着说千人千缠 用计算机编程语言去写 也就不一定是原味了  处理 kxian 顶底的源代码   function kxian(pData:pTagCALCINFO):integer;stdcall;export;  const quekou:single=0.005;  var  i,j,k,m,n:integer;  h,h1,h2,h3,h4,h5,h6,h7:single;  tj1,tj2,tj3,tj4:boolean;  begin   if (@pData.m_pfParam1 <> nil) and (@pData.m_pfParam2 <> nil) then  begin  adjustkline(pdata); //处理包含关系;  firstduan:=true;  prtype:=pdata^.m_dataType;   case prtype of  MIN1_DATA: //1  biquekou:=quekou;  MIN5_DATA: //5  biquekou:=quekou*3;  MIN15_DATA: //15  biquekou:=Quekou*6 ;  MIN30_DATA: //30  biquekou:=quekou*9;  MIN60_DATA:// 60  biquekou:=quekou*18;  DAY_DATA: //day  biquekou:=quekou*30;  WEEK_DATA: //周线  biquekou:=quekou*90;  MONTH_DATA:  biquekou:=quekou*250;  YEAR_DATA:  biquekou:=quekou*1000;  MULTIday_DATA:  biquekou:=quekou*500;  MULTmin_DATA:  biquekou:=quekou*20;  else  biquekou:=quekou*500;   end;  //标出顶和底  pr[0].flag:=0;  pr[prnum-1].flag:=0;  for i:=1 to prnum-2 do  begin   h:=pr.hprice;  j:=i-1;  h1:=pr[j].hprice;  w hile (h=h1) and (j>0) do//取前一个不同的高值  begin  j:=j-1;  h1:=pr[j].hprice;  end;  m:=j;  if j>0 then j:=j-1;  h2:=pr[j].hprice;   w hile (h1=h2) and (j>0) do//最前2个不同的值  begin  j:=j-1;  h2:=pr[j].hprice;  end;  if j>0 then j:=j-1;  h3:=pr[j].hprice;  w hile (h2=h3) and (j>0) do//取前3个不同的值  begin  j:=j-1;  h3:=pr[j].hprice;  end;  ...