飞狐最新缠论公式源码（便捷版）

源码如下（可直接粘帖到飞狐软件上使用，使用前提必须正确安装了飞狐软件以及悟多学长编写的飞狐版chzhshch.dll文档）：

// 新笔段公式：日线以下周期图可看到日线均线，并可根据需要在不同周期中选择笔段以及点位、周期、力度、振幅

{调节参数:x=0-7(默认值0）用来选择是否显示点位、周期、力度、振幅，以及需要显示哪几个；
  TIM:0-12（默认值4）用来决定在哪些周期以下的图上显示段，以上周期的显示笔}

var1:="chzhshch@kxian"; // 处理K线关系
var2:="chzhshch@bi";   // 处理笔关系
var3:="chzhshch@duan"; // 处理段关系

varx:=if(dataperiod>=tim,var2,var3); // tim周期调整参数（0－12）决定笔段分别用在哪个周期图上

// 画笔段
drawline(varx=1,h,varx=-1,l,0),LINEDOT,COLORGRAY;
drawline(varx=-1,l,varx=1,h,0),LINEDOT,COLORGRAY;

if x>=1 then begin
pre:=2; // 设置小数点位数
if STKTYPE=3 or stktype=4 or stktype=5 or stktype=11 then  pre:=3;

a1:=barslast(varx<>0);
a2:=ref(varx,a1);
aa1:=ref(a1+1,1);
aa2:=ref(a2,1);
a3:=if (aa2>0,l-ref(h,aa1),h-ref(l,aa1));  //计算点位差
a4:=if (aa2>0,(l-ref(h,aa1))/l*100,(h-ref(l,aa1))/ref(l,aa1)*100);
aa9:=hhv(h,a1);
aa11:=llv(l,a1);

//显示点位
drawnumber(varx=1,h,h,pre),pxup20,color3300ff,align0;
drawnumber(varx=-1,l,l,pre),pxdn5,colorffff00,align0;
//显示最后没完成的点位
drawnumber(  islastbar and a2=-1,aa9,aa9,pre),align2,color3300ff,pxup20;
drawnumber(  islastbar and a2=1,aa11,aa11,pre),align2,colorffff00,pxdn5;

if x=2 or x=5 or x=6 or x=7 then begin
//显示周期数
drawtext(varx=1,h,'T'),pxup45,coloryellow,align1;
drawnumber(varx=1,h,aa1,0),coloryellow,pxup45,align2;
drawtext(varx=-1,l,'T'),pxdn25,coloryellow,align1;
drawnumber(varx=-1,l,aa1,0),coloryellow,pxdn25,align2;
//显示最后没完成的周期
drawtext(  islastbar and a2=-1,  aa9,'T'),coloryellow,align1,pxup45;
drawnumber(islastbar and a2=-1,  aa9,aa1,0),coloryellow,align2,pxup45;
drawtext(  islastbar and a2=1, aa11,'T'),coloryellow,align1,pxdn25;
drawnumber(islastbar and a2=1, aa11,aa1,0),coloryellow,align2,pxdn25;
end;

if x=3 or x=5 or x=7 then begin

//显示幅度
drawtext(varx=1,h,'%')colormagenta,pxup65,align1;
drawnumber(varx=1,h,a4,pre),colorgreen,pxup65,align2;
drawtext(varx=-1,l,'%')colormagenta,pxdny45,align1;
drawnumber(varx=-1,l,a4,pre),colorblue,pxdn45,align2;
//显示最后没完成的幅度
drawtext(   islastbar and a2=-1, aa9,'%'),align1,colormagenta,pxup65;
drawnumber( islastbar and a2=-1, aa9,a4,pre),align2,colorgreen,pxup65;
drawtext(   islastbar and a2=1, aa11,'%'),align1,colormagenta,pxdn45;
drawnumber( islastbar and a2=1, aa11,a4,pre),align2,colorblue,pxdn45;
end;

if x=4 or x=6  or x=7 then begin
//显示力度
drawtext(varx=1,h,'+')colormagenta,pxup85,align2;
drawnumber(varx=1,h,a3,pre),colormagenta,pxup85,align1;
drawnumber(varx=-1,l,a3,pre),colorgreen,pxdn65,align0;
//显示最后没完成的力度
drawtext( islastbar and a2=-1, aa9,'+'),align2,colormagenta,pxup85;
drawnumber( islastbar and a2=-1, aa9,a3,pre),align1,colormagenta,pxup85;
drawnumber( islastbar and a2=1, aa11,a3,pre),align0,colorgreen,pxdn65;
end;

end;

// 均线
if DATAPERIOD=1 then begin ma241:ma(c,240);ma1200:ma(c,1200); end; // 1日均线与5日均线
if DATAPERIOD=2 then begin ma48:ma(c,48);ma240:ma(c,240); end;     // 1日均线与5日均线
if DATAPERIOD=3 then begin ma16:ma(c,16);ma81:ma(c,80); end;       // 1日均线与5日均线
if DATAPERIOD=4 then begin ma41:ma(c,40);ma80:ma(c,80); end;       // 5日均线与10日均线
if DATAPERIOD=5 then begin ma20:ma(c,20);ma40:ma(c,40); end;       // 5日均线与10日均线
if DATAPERIOD>=6 then begin ma5:ma(c,5);ma10:ma(c,10); end;        // 本周期M5与M10均线

效果图：

http://s2/middle/648a9f5bg76207fd8b351&690

http://s5/middle/648a9f5bh9d4d82f50734&690

指标缺陷：目前使用的缠论公式都是基于悟多公式编写的，因目前能找到的悟多公式，在笔、段上都存在缺陷，导致公式画的笔段与实际笔段有差异。