![Rank: 1](static/image/common/star_level1.gif)
等级: 新手上路
- 注册:
- 2024-10-2
- 曾用名:
|
![](static/image/common/ico_lz.png)
楼主 |
发表于 2024-10-5 17:33
|
显示全部楼层
hh:=h;//定义数组型变量hh为每日的最高价
ll:=LOW;//定义数组型变量ll为每日的最低价
Kcount:=DATACOUNT;
for i=1 to Kcount do//i从1到最后一天作循环计算
begin
//gd1[i]:=0;gd2[i]:=0;
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;
gd1[i]:=j;//上一个最高价高于今日最高价的日子,到今天的天数
gb1[i]:=gd1[i]+gd1[i-gd1[i]];//第三根重要蜡烛线到今天的天数
for j=1 to i-1 do//j从1到i-1作循环计算
begin
IF ll[i]>ll[i-j] then break;//如果第i天的最低价低于i-j天的最低价,则跳出此次循环,j值赋给本日的gd
end;
gd2[i]:=j;//上一个最低价低于今日最低价的日子,到今天的天数
gb2[i]:=gd2[i]+gd2[i-gd2[i]];//第三根重要蜡烛线到今天的天数
end;
gbds1:valuewhen(llvbars(l,gb1+1)=0,ref(h,gb1)),COLORWHITE;
gbds2:valuewhen(hhvbars(h,gb2+1)=0,ref(l,gb2)),ColorYellow; |
|