老师麻烦改成金字塔可用的代码

股市封神斗罗

麻烦老师给修改成金字塔能用的
N:=1;
M:=1;
KK:=HV(H,N);
DD:=LV(L,N);
HH:=REF(H>HV(H,N),M)&&HHV(H,M)<REF(H,M);
LL:=REF(L<LV(L,N),M)&&LLV(L,M)>REF(L,M);
COND1:=HH&&REF(H,M)<REF(REF(H,M),SUMBARS(HH,2)-1) && REF(REF(H,M),SUMBARS(HH,2)-1)>REF(REF(H,M),SUMBARS(HH,3)-1);
KTEXT(COND1,-SUMBARS(HH,2)-REF(M,SUMBARS(HH,2))+1,REF(H,SUMBARS(HH,2)+REF(M,SUMBARS(HH,2))-1),1,COLORGREEN,'次高点'),COLORWHITE;
COND2:=LL&&REF(L,M)>REF(REF(L,M),SUMBARS(LL,2)-1) && REF(REF(L,M),SUMBARS(LL,2)-1)<REF(REF(L,M),SUMBARS(LL,3)-1);
KTEXT(COND2,-SUMBARS(LL,2)-REF(M,SUMBARS(LL,2))+1,REF(L,SUMBARS(LL,2)+REF(M,SUMBARS(LL,2))-1),1,COLORGREEN,'次低点'),VALIGN0,COLORWHITE;

H1:=VALUEWHEN(COND1,REF(REF(H,M),SUMBARS(HH,2)-1));
H2:=VALUEWHEN(COND1,REF(H1,1));
H3:=VALUEWHEN(COND1,REF(H2,1));

L1:=VALUEWHEN(COND2,REF(REF(L,M),SUMBARS(LL,2)-1));
L2:=VALUEWHEN(COND2,REF(L1,1));
L3:=VALUEWHEN(COND2,REF(L2,1));

T1:=COND1&&H1<=H2&&H2>=H3;
KTEXT(T1,-SUMBARS(COND1,2)-REF(SUMBARS(HH,2)-1,SUMBARS(COND1,2)-1),H2,1,COLORGREEN,'主要高点'),COLORYELLOW;
T2:=COND2&&L1>=L2&&L2<=L3;
KTEXT(T2,-SUMBARS(COND2,2)-REF(SUMBARS(LL,2)-1,SUMBARS(COND2,2)-1),L2,1,COLORGREEN,'主要低点'),VALIGN0,COLORYELLOW;

Q:=CROSS(BACKSET(T1,SUMBARS(COND1,2)+REF(SUMBARS(HH,2)-1,SUMBARS(COND1,2)-1)+1),0.5)||(BACKSET(T1,SUMBARS(COND1,2)+REF(SUMBARS(HH,2)-1,SUMBARS(COND1,2)-1)+1)&&REF(T1,1));
W:=CROSS(BACKSET(T2,SUMBARS(COND2,2)+REF(SUMBARS(LL,2)-1,SUMBARS(COND2,2)-1)+1),0.5)||(BACKSET(T2,SUMBARS(COND2,2)+REF(SUMBARS(LL,2)-1,SUMBARS(COND2,2)-1)+1)&&REF(T2,1));

DRAWLINE3(Q&&H<REF(H,SUMBARS(Q,2)-1),H,0,1,REF(H,SUMBARS(Q,2)-1),SUMBARS(Q,2)-1,0);
DRAWLINE3(W&&L>REF(L,SUMBARS(W,2)-1),L,0,1,REF(L,SUMBARS(W,2)-1),SUMBARS(W,2)-1,0);

技术009

大体上替换若干个函数即可：

KK:=HV(H,N);  HV换成hhv,改完 KK:=ref(hhv(H,N),1);

其他使用lv地方类似。

KTEXT使用DRAWTEXT进行替换。

DRAWLINE3 换成DRAWLINE即可。