要使用必须要用到悟多撰写的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---画
}
|
