飞狐缠论笔段正反角（主图源码）

要使用必须要用到悟多撰写的DLL文件，解压后放到飞狐的根目录，文件会报毒，信任即可。

input:笔段(1,0,1);{1段,0笔}

if DATAPERIOD=0 then minbi:="fbase.var2#min1";
 if DATAPERIOD=1 then minbi:="fbase.var2#min5";
 if DATAPERIOD=2 then minbi:="fbase.var2#min30";
 if DATAPERIOD=3 then minbi:="fbase.var2#min60";
 if DATAPERIOD=4 then minbi:="fbase.var2#day";
 if DATAPERIOD=5 then minbi:="fbase.var2#day";
 if DATAPERIOD=6 then minbi:="fbase.var2#week";
 if DATAPERIOD=7 then minbi:="fbase.var2#month";
 if DATAPERIOD=8 then minbi:="fbase.var2#year";

var1:="chzhshch@kxian";
 var2:="chzhshch@bi";

var3:="chzhshch@tongji"(minbi);
 zg:="chzhshch@zg"(var3);
 zd:="chzhshch@zd"(var3);

光标:=SYSPARAM(1);

KLINE(OPEN,HIGH,LOW,CLOSE,0);

VAR99:=IF(笔段=0,var2,var3);
谷位:=BARSLAST(var99=-1);
峰位:=BARSLAST(var99=1);

光标前谷位:=谷位[光标];
光标前峰位:=峰位[光标];
谷位序列:=光标-光标前谷位;
 峰位序列:=光标-光标前峰位;
周期:=IF(谷位序列>峰位序列,峰位,谷位),LINETHICK;
转折点:=IF(谷位序列>峰位序列,谷位序列,峰位序列);
谷峰斜率:=(REF(HIGH,峰位)-REF(LOW,谷位))/(谷位-峰位),LINETHICK;
 KK:=IF(谷位序列<峰位序列,HIGH,LOW);
 KP:=IF(谷位序列>峰位序列,HIGH,LOW);
参考振幅%:ABS(KK[转折点]-KP[转折点-ABS(谷位序列-峰位序列)])/KP[转折点-ABS(谷位序列-峰位序列)]*100,LINETHICK;
 {画线}
DRAWSL(BARPOS=转折点,KK,-谷峰斜率,0,0),COLORFFFFFF,LINEDASHDOT;//近趋势线
DRAWSL(BARPOS=转折点,KK,0,0,0),COLORFF99AA,LINEDASHDOT;//近水平线
DRAWSL(BARPOS=转折点,KK,-谷峰斜率[光标]/0.618,0,0),COLORAAAAFF,LINEDASHDOT;//分角1
 DRAWSL(BARPOS=转折点,KK,-谷峰斜率[光标]*0.618,0,0),COLORAAAAFF,LINEDASHDOT;//分角2

参考线:=LINEVALUE(BARPOS=转折点-ABS(谷位序列-峰位序列),KP,
 BARPOS=转折点,KK,0,0),LINETHICK,COLOR00FFFF;

反转线:=LINEVALUE(BARPOS=转折点,KK,
 BARPOS=转折点+ABS(谷位序列-峰位序列),KP[转折点-ABS(谷位序列-峰位序列)],0,0),LINETHICK0,COLORFFAAFF;
指导线1:ABS(KK[转折点]-KP[转折点-ABS(谷位序列-峰位序列)])*0.382+MIN(KK[转折点],KP[转折点-ABS(谷位序列-峰位序列)]),LINETHICK0,COLOR00FF00;
 指导线2:ABS(KK[转折点]-KP[转折点-ABS(谷位序列-峰位序列)])*0.618+MIN(KK[转折点],KP[转折点-ABS(谷位序列-峰位序列)]),LINETHICK0,,COLORFFFFFF;
 DRAWSL(BARPOS=转折点 ,指导线1,0,0,0),LINETHICK1,COLOR00FF00;
 DRAWSL(BARPOS=转折点 ,指导线2,0,0,0),LINETHICK1,COLORFFFFFF;
 STICKLINE(BARPOS=转折点,KK,KP[转折点-ABS(谷位序列-峰位序列)],0.5,0),COLORFFFF00,LINETHICK2;

PARTLINE(BARPOS>转折点-ABS(谷位序列-峰位序列) and BARPOS<=转折点,参考线),LINETHICK2,COLOR00FFFF;
 PARTLINE(BARPOS<=转折点+ABS(谷位序列-峰位序列) and BARPOS>转折点,反转线),LINETHICK2,COLORFFAAFF;
 PARTLINE(BARPOS<=转折点+ABS(谷位序列-峰位序列) and BARPOS>转折点-ABS(谷位序列-峰位序列),KP[转折点-ABS(谷位序列-峰位序列)]),
LINETHICK2,COLORDDFFDD;

DRAWSL(BARPOS=转折点-ABS(谷位序列-峰位序列),KP,TAN(0.618*ATAN(谷峰斜率[光标])),0,0),COLOR99FFAA,LINEDASHDOT;//远趋势线分角1
 DRAWSL(BARPOS=转折点-ABS(谷位序列-峰位序列),KP,TAN(0.382*ATAN(谷峰斜率[光标])),0,0),COLOR99FFAA,LINEDASHDOT;//远趋势线分角2
 DRAWSL(BARPOS=转折点-ABS(谷位序列-峰位序列),KP,0,0,0),COLORFF99AA,LINEDASHDOT;//远水平线
 DRAWSL(BARPOS=转折点,KP[转折点-ABS(谷位序列-峰位序列)],谷峰斜率[光标],0,0),COLOR00FFFF,LINEDASHDOT;//远趋势平行线

IF 画竖线不=1 THEN BEGIN
 VERTLINE(BARPOS=转折点),COLOR555555,LINEDASHDOT;//转折线
 VERTLINE(BARPOS=转折点+ABS(谷位序列-峰位序列)),COLOR666666,LINEDASHDOT;//转折线
VERTLINE(BARPOS=转折点+ABS(谷位序列-峰位序列)*2),COLOR666666,LINEDASHDOT;//转折线
VERTLINE(BARPOS=转折点+ABS(谷位序列-峰位序列)*3),COLOR666666,LINEDASHDOT;//转折线
VERTLINE(BARPOS=转折点+ABS(谷位序列-峰位序列)*5),COLOR666666,LINEDASHDOT;//转折线
VERTLINE(BARPOS=转折点+ABS(谷位序列-峰位序列)*8),COLOR666666,LINEDASHDOT;//转折线
VERTLINE(BARPOS=转折点+ABS(谷位序列-峰位序列)*13),COLOR666666,LINEDASHDOT;//转折线
 VERTLINE(BARPOS=转折点+ABS(谷位序列-峰位序列)*21),COLOR666666,LINEDASHDOT;//转折线
END;

{将下面的文字复制到参数精灵里

是否画竖线:Param#2 0---不画 , 1---画
}