仅作参考，计算量比较大，最好盘后分析使用
{顾比倒数}
{顾比倒数}
INPUT:N(5,1,100);
KLINE(O,H,L,C,0);
VARIABLE:hh:=h;//定义数组型变量hh为每日的最高价
for i=1 to datacount do//i从1到最后一天作循环计算
begin
for j=1 to i-1 do//j从1到i-1作循环计算
begin
if hh[i]<hh[i-j] then break;//如果第i天的最高价低于i-j天的最高价，则跳出此次循环，j值赋给本日的gd
end;
gd[i]:=j;//上一个最高价高于今日最高价的日子,到今天的天数
gbG[i]:=gd[i]+gd[i-gd[i]];//第三根重要蜡烛线到今天的天数
end;/////////////////////////////////////////////////VARIABLE:LL:=L;//定义数组型变量LL为每日的最低价
for i=1 to datacount do//i从1到最后一天作循环计算
begin
for j=1 to i-1 do//j从1到i-1作循环计算
begin
if LL[i]>LL[i-j] then break;//如果第i天的最低价高于i-j天的最低价，则跳出此次循环，j值赋给本日的gG
end;
gG[i]:=j;//上一个最低价低于今日最低价的日子,到今天的天数
gbD[i]:=gG[i]+gG[i-gG[i]];//第三根重要蜡烛线到今天的天数
end;
//////////////////////////////下跌压力:valuewhen(llvbars(l,gbG+1)=0,ref(h,gbG));
上升支撑:valuewhen(HHvbars(H,gbD+1)=0,ref(L,gbD));
A:=CROSS(C,下跌压力),LINETHICK;
B:=CROSS(上升支撑,H),LINETHICK;
E:=CROSS(下跌压力,C),LINETHICK;
F:=CROSS(L,上升支撑),LINETHICK;
DRAWICON(A OR B,L*0.995,4);
DRAWICON(E OR F,H*1.01,5);
买:LONGCROSS(C,下跌压力,N),LINETHICK;
卖:LONGCROSS(上升支撑,C,N),LINETHICK;
DRAWICON(买,L*0.99,1);
DRAWICON(卖,H*1.02,2);
 |
