飞狐鬼变脸宝塔线指标公式源码[其他软件公式]

相关标签: 鬼变脸 、 鬼变脸下载 、 童牧野鬼变脸 、 鬼变脸mp4下载 、 鬼变脸 百度影音 、 童牧野鬼变脸实战 、 鬼变脸高清 、 鬼变脸快播 、 韩国电影《鬼变脸》 、

十一的时候看了童牧野的宝塔线,四处找源码,南客大师的跟童牧野的画法有点出入,就自己在他的基础了改了改,还整合其它一些源码里东西.虽然飞狐本身带了鬼变脸主图,但自己思考后再画出来理解的深刻,其实按杨新宇博士的话说就是收盘价的一种非线性变换,现在发出来在大家参考参考吧.

飞狐鬼变脸宝塔线指标公式源码

sensitivy:=o; towero:=o; towerc:=c; fc:=c;
i:=2;
while i<=datacount do begin
towero[i]:=towerc[i-1];
towerc[i]:=fc[i];
sensitivy[i]:=towero[i-1];
if (towerc[i-1]-towero[i-1])*(towerc[i-1]-sensitivy[i-1])<=0 then
begin
towero[i]:=towero[i-1];
sensitivy[i]:=towerc[i-1];
end
else if between(sensitivy[i-1],towero[i-1],towerc[i-1]) then sensitivy[i]:=sensitivy[i-1];
i:=i+1;
end;

tj:=(sensitivy-towero)*(sensitivy-towerc)<=0 and sensitivy<>towerc;
stickline(tj,max(towero,towerc),sensitivy,7,1), colorred;
stickline(tj,min(towero,towerc),sensitivy,7,0), color006600;
stickline(sensitivy<=min(towero,towerc) and not(tj),towero,towerc,7,1), colorred;
stickline(sensitivy>=max(towero,towerc) and not(tj),towero,towerc,7,0), color006600;

今开盘:TOWERO,LINETHICK0;{程序化交易 www.cxh99.com }
今收盘:TOWERC,LINETHICK0;
今敏感:sensitivy,LINETHICK0; {本文来至程序化交易网 cxh99.com}

三平底翻红: min(towero,towerc)=ref(min(towero,towerc),1) and min(towero,towerc)=ref(min(towero,towerc),2) and max(towero,towerc)>sensitivy,LINETHICK,COLORRED;
三平顶翻绿: max(towero,towerc)=ref(max(towero,towerc),1) and max(towero,towerc)=ref(max(towero,towerc),2) and min(towero,towerc)<SENSITIVY,LINETHICK,COLOR006600;
if k=0 then exit;
DRAWICON(三平底翻红,min(towero,towerc)*0.98,4);DRAWICON(三平顶翻绿,max(towero,towerc)*1.02,5);