求老师帮忙把飞狐交易师指标改为通达信指标，非常感谢！
宝塔线：INPUT:n(5,1,999),k(1,0,1);//n为均线参数；k=0取消画图标和均线，m-默认26，n1默认2，s默认3；
sensitivy:=o; towero:=o; towerc:=c; fc:=c;
i:=2;
while i<=datacount do begin
towero:=towerc;
towerc:=fc;
sensitivy:=towero;
if (towerc-towero)*(towerc-sensitivy)<=0 then
begin
towero:=towero;
sensitivy:=towerc;
end
else if between(sensitivy,towero,towerc) then sensitivy:=sensitivy;
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), COLORGREEN;
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), COLORGREEN;
三平底翻红: 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,COLORGREEN;
if k=0 then exit;
DRAWICON(三平底翻红,min(towero,towerc)*0.98,4);DRAWICON(三平顶翻绿,max(towero,towerc)*1.02,5);
五日均线:ma(c,N),COLORMAGENTA;PARTLINE(五日均线<=ref(五日均线,1),五日均线),COLORGREEN;
今开盘:TOWERO,LINETHICK0;
今收盘:TOWERC,LINETHICK0;
今敏感:sensitivy,LINETHICK0;
{BOLL}
{MID :MA(CLOSE,M);
{UPPER: MID + N1*STD(CLOSE,M);}
{LOWER: MID - N1*STD(CLOSE,M);}
怎么不行啊 :o:( 通达信软件上不行。
页:
[1]