KGAODIAN:=HIGH;
KDIDIAN:=LOW;
YIJIBIAOZHI:=CLOSE;
<%
k_gaodian_1 = ffl.vardata("KGAODIAN")'原始K线高点
k_didian_1 = ffl.vardata("KDIDIAN")'原始K线低点
yiji_gaodidian_biaozhi = ffl.vardata("YIJIBIAOZHI")
DIM k_gaodian_baohan(65535)
DIM k_didian_baohan(65535)
DIM k_zhenshi_weizhi(65535)
k_baohan_count = 1
k_gaodian_baohan(0) = k_gaodian_1(0)
k_didian_baohan(0) = k_didian_1(0)
k_zhenshi_weizhi(0) = 0
For i = 1 to ubound(k_gaodian_1)
If (k_gaodian_1(i)>= k_gaodian_baohan(k_baohan_count-1)) AND (k_didian_1(i) <= k_didian_baohan(k_baohan_count-1)) Then
'后面包含前面
k_gaodian_baohan(k_baohan_count-1) = k_gaodian_1(i)
k_didian_baohan(k_baohan_count-1) = k_didian_1(i)
k_zhenshi_weizhi(k_baohan_count-1) = i
Else
If (k_gaodian_1(i)<= k_gaodian_baohan(k_baohan_count-1)) AND (k_didian_1(i) >= k_didian_baohan(k_baohan_count-1)) Then
Else
k_baohan_count = k_baohan_count + 1
k_gaodian_baohan(k_baohan_count-1) = k_gaodian_1(i)
k_didian_baohan(k_baohan_count-1) = k_didian_1(i)
k_zhenshi_weizhi(k_baohan_count-1) = i
End If
End If
Next
For i = 1 to k_baohan_count-1
If (k_didian_baohan(i)< k_didian_baohan(i+1)) AND (k_didian_baohan(i)< k_didian_baohan(i-1)) Then
start_yiji = i
Exit For
End If
Next
DIM yiji_didian_zhenshi_weizhi(65535)
DIM yiji_gaodian_zhenshi_weizhi(65535)
yiji_didian_count = 0
yiji_gaodian_count = 0
For i = 0 to ubound(k_gaodian_1)
yiji_gaodidian_biaozhi(i) = 0
Next
For i = start_yiji to k_baohan_count-1
If (k_didian_baohan(i) < k_didian_baohan(i+1)) AND (k_didian_baohan(i) < k_didian_baohan(i-1)) Then
yiji_didian_count = yiji_didian_count + 1
yiji_didian_zhenshi_weizhi(yiji_didian_count-1) = k_zhenshi_weizhi(i)
yiji_gaodidian_biaozhi(k_zhenshi_weizhi(i)) = -1
Else
If (k_gaodian_baohan(i) > k_gaodian_baohan(i+1)) AND (k_gaodian_baohan(i) > k_gaodian_baohan(i-1)) Then
yiji_gaodian_count = yiji_gaodian_count + 1
yiji_gaodian_zhenshi_weizhi(yiji_gaodian_count - 1) = k_zhenshi_weizhi(i)
yiji_gaodidian_biaozhi(k_zhenshi_weizhi(i)) = 1
End If
End If
Next
ffl.vardata("YIJIBIAOZHI") = yiji_gaodidian_biaozhi
%>
DRAWLINE((YIJIBIAOZHI=-1),LOW,(YIJIBIAOZHI=1),HIGH,0),LINEDOT,COLORDEC4B0;
DRAWLINE((YIJIBIAOZHI=1),HIGH,(YIJIBIAOZHI=-1),LOW,0),LINEDOT,COLORDEC4B0;