奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 請求協助變更起點後的空停損與多停損 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=19271)

請求協助變更起點後的空停損與多停損

S:=WMA(C,111);
X:=WMA(C,223);
多空:IF(BARSLAST(CROSS(S,X))<BARSLAST(CROSS(X,S)),1,-1);
DD:REF(H,BARSLAST(CROSS(0.8,H=HHV(H,5)))+1)+4.25,COLORBLUE,LINEDOT;
UU:REF(L,BARSLAST(CROSS(0.8,L=LLV(L,5)))+1)-4.25,COLORRED,LINEDOT;
/////////////////////////////////////////

CC:=C;
StDD:=lbound(DD);
空停損:=DD*0 linethick0 colorblue;
空停損[StDD]:=DD[StDD]; DDF:=0;
DDSNo:=空停損;
for i=StDD+1 to datacount do begin
空停損[i]:=空停損[i-1]; DDSNo[i]:=DDSNo[i-1];
if CC[i]>空停損[i-1] then DDF:=1;
if DD[i]<DD[i-1] then begin
if DD[i]<空停損[i-1] then begin
空停損[i]:=DD[i]; DDF:=0;
end else if DD[i]<DD[i-1] and DDF=1 then begin
空停損[i]:=DD[i]; DDF:=0; DDSNo[i]:=DDSNo[i]+1;
end;
end;
end;

StUU:=lbound(UU);
多停損:=UU*0 linethick0 colorRED;
多停損[StUU]:=UU[StUU]; UUF:=0;
UUSNo:=多停損;
for i=StUU+1 to datacount do begin
多停損[i]:=多停損[i-1]; UUSNo[i]:=UUSNo[i-1];
if CC[i]<多停損[i-1] then UUF:=1;
if UU[i]>UU[i-1] then begin
if UU[i]>多停損[i-1] then begin
多停損[i]:=UU[i]; UUF:=0;
end else if UU[i]>UU[i-1] and UUF=1 then begin
多停損[i]:=UU[i]; UUF:=0; UUSNo[i]:=UUSNo[i]+1;
end;
end;
end;
PARTLINE(DDSNo=ref(DDSNo,1),空停損) colorblue linethick2;
PARTLINE(UUSNo=ref(UUSNo,1),多停損) colorRED linethick2;

以上源碼請求協助變更起點後的空停損與多停損!
做空起點:CROSS(空,0.8);
做多起點:CROSS(多,0.8);

感恩!

回覆: 請求協助變更起點後的空停損與多停損

引用:

---

最初由 Markchu7 發表
S:=WMA(C,111);
X:=WMA(C,223);
多空:IF(BARSLAST(CROSS(S,X))<BARSLAST(CROSS(X,S)),1,-1);
DD:REF(H,BARSLAST(CROSS(0.8,H=HHV(H,5)))+1)+4.25,COLORBLUE,LINEDOT;
UU:REF(L,BARSLAST(CROSS(0.8,L=LLV(L,5)))+1)-4.25,COLORRED,LINEDOT;
/////////////////////////////////////////

CC:=C;
StDD:=lbound(DD);
空停損:=DD*0 linethick0 colorblue;
空停損[StDD]:=DD[StDD]; DDF:=0;
DDSNo:=空停損;
for i=StDD+1 to datacount do begin
空停損[i]:=空停損[i-1]; DDSNo[i]:=DDSNo[i-1];
if CC[i]>空停損[i-1] then DDF:=1;
if DD[i]<DD[i-1] then begin
if DD[i]<空停損[i-1] then begin
空停損[i]:=DD[i]; DDF:=0;
end else if DD[i]<DD[i-1] and DDF=1 then begin
空停損[i]:=DD[i]; DDF:=0; DDSNo[i]:=DDSNo[i]+1;
end;
end;
end;

StUU:=lbound(UU);
多停損:=UU*0 linethick0 colorRED;
多停損[StUU]:=UU[StUU]; UUF:=0;
UUSNo:=多停損;
for i=StUU+1 to datacount do begin
多停損[i]:=多停損[i-1]; UUSNo[i]:=UUSNo[i-1];
if CC[i]<多停損[i-1] then UUF:=1;
if UU[i]>UU[i-1] then begin
if UU[i]>多停損[i-1] then begin
多停損[i]:=UU[i]; UUF:=0;
end else if UU[i]>UU[i-1] and UUF=1 then begin
多停損[i]:=UU[i]; UUF:=0; UUSNo[i]:=UUSNo[i]+1;
end;
end;
end;
PARTLINE(DDSNo=ref(DDSNo,1),空停損) colorblue linethick2;
PARTLINE(UUSNo=ref(UUSNo,1),多停損) colorRED linethick2;

以上源碼請求協助變更起點後的空停損與多停損!
做空起點:CROSS(空,0.8);
做多起點:CROSS(多,0.8);

感恩!

---

已找到方法解決!感謝!