版主您好:
請教一下，如何編寫當{Pivot Point Channe,PPC,基準點通道}程式中，上軌GG連續3次上升時，第3次上升那一段顏色改變(下軌TT連續3次下降時，第3次下降那一段顏色改變)，請問這要如何寫，感恩啊。

引用:

---

最初由 ckcpp 發表
版主您好:
請教一下，如何編寫當{Pivot Point Channe,PPC,基準點通道}程式中，上軌GG連續3次上升時，第3次上升那一段顏色改變(下軌TT連續3次下降時，第3次下降那一段顏色改變)，請問這要如何寫，感恩啊。

---

原碼:
GDIR:=SGN(GG-ref(GG,1)); StNo:=lbound(GDIR);
ZGG:GG*0 linethick; ZGG[StNo]:=GDIR[StNo]; UDIR:=GDIR[StNo];
for i=StNo+1 to datacount do begin
  if GDIR[i]=UDIR or GDIR[i]=0 then ZGG[i]:=ZGG[i-1] else UDIR:=GDIR[i];
  ZGG[i]:=ZGG[i]+GDIR[i];
end;
PARTLINE(ZGG>=3,GG) colorFF9900 linethick2;

TDIR:=SGN(TT-ref(TT,1)); StNo:=lbound(TDIR);
ZTT:TT*0 linethick; ZTT[StNo]:=TDIR[StNo]; UDIR:=TDIR[StNo];
for i=StNo+1 to datacount do begin
  if TDIR[i]=UDIR or TDIR[i]=0 then ZTT[i]:=ZTT[i-1] else UDIR:=TDIR[i];
  ZTT[i]:=ZTT[i]+TDIR[i];
end;
PARTLINE(ZTT<=-3,TT) colorFF99FF linethick2;