kjyhao 2004-10-10 09:38
<机构K线>公式原码
我在南客老师<鬼变脸>公式原码的基础上加入了<机构K线>公式原码,我个人感觉这样能在盘中抓住变盘点(看下面图例),望大家喜欢并斧正!!!
谢谢<版主>热情的服务!!!
机构K线: (鬼变脸)原码;
[code]sensitivy:=-c*10000/indexc;
direction:=c*10000/indexc;
towero:=o*10000/indexo;
towerc:=c*10000/indexc;
fc:=c*10000/indexc;
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;
tj:=between(sensitivy,towero,towerc);
stickline(tj,max(towero,towerc),sensitivy,10,0), colorred;
stickline(tj,min(towero,towerc),sensitivy,10,0), colorgreen;
stickline(sensitivy<towerc and not(tj),towero,towerc,10,0), colorred;
stickline(sensitivy>towerc and not(tj),towero,towerc,10,0), colorgreen;
stickline((towerc=towero or sensitivy=towerc) and direction=1,towero,towerc,10,0),colorred;
stickline((towerc=towero or sensitivy=towerc) and direction=0,towero,towerc,10,0),colorgreen;[/code]
wtm316316 2005-4-30 14:11
分析家5.0能用吗？？请指教
谢谢!!!
清风斜阳 2005-4-30 16:33
快速回复主题
机构K线鬼变脸)原码;
sensitivy:=-c*10000/indexc;
direction:=c*10000/indexc;
towero:=o*10000/indexo;
towerc:=c*10000/indexc;
fc:=c*10000/indexc;
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;
tj:=between(sensitivy,towero,towerc);
stickline(tj,max(towero,towerc),sensitivy,10,0), colorred;
stickline(tj,min(towero,towerc),sensitivy,10,0), colorgreen;
stickline(sensitivy<towerc and not(tj),towero,towerc,10,0), colorred;
stickline(sensitivy>towerc and not(tj),towero,towerc,10,0), colorgreen;
stickline((towerc=towero or sensitivy=towerc) and direction=1,towero,towerc,10,0),colorred;
stickline((towerc=towero or sensitivy=towerc) and direction=0,towero,towerc,10,0),colorgreen;