飞狐公式源码 机构K线(鬼变脸)原码

　　南方财富网带来飞狐公式源码 机构K线（鬼变脸）原码：

　　sensitivy：=-c;

　　direction：=c;

　　towero：=o;

　　towerc：=c;

　　fc：=c;

　　i：=2;

　　while i《=datacount do begin

　　if towerc［i］》towero［i］ and not（between（sensitivy［i］，towero［i］，towerc［i］）） then

　　direction［i］：=1;

　　else if towerc［i］《towero［i］ and not（between（sensitivy［i］，towero［i］，towerc［i］）） then

　　direction［i］：=0;

　　else direction［i］：=direction［i-1］;

　　if not（between（sensitivy［i-1］，towero［i-1］，towerc［i-1］）） then begin

　　towero［i］：=towerc［i-1］;towerc［i］：=fc［i］;

　　sensitivy［i］：=towero［i-1］;

　　end else begin

　　towero［i］：=towerc［i-1］;towerc［i］：=fc［i］;

　　sensitivy［i］：=sensitivy［i-1］;

　　end;

　　i：=i+1;

　　end;

　　今开盘：TOWERO，LINETHICK0;

　　今收盘：TOWERC，LINETHICK0;

　　敏感位：sensitivy，LINETHICK0;{上面的三句是我加的朋友们不喜欢可以自己删除}

　　tj：=between（sensitivy，towero，towerc）;

　　stickline（tj，max（towero，towerc），sensitivy，7，0）， colorred;

　　stickline（tj，min（towero，towerc），sensitivy，7，0）， colorgreen;

　　stickline（sensitivy《towerc and not（tj），towero，towerc，7，0）， colorred;

　　stickline（sensitivy》towerc and not（tj），towero，towerc，7，0）， colorgreen;

　　stickline（（towerc=towero or sensitivy=towerc） and direction=0，towero，towerc，7，0），colorgreen;

　　stickline（（towerc=towero or sensitivy=towerc） and direction=1，towero，towerc，7，0），colorred;