奇狐社區論壇 - [分享][問題]亞當理論

奇狐社區論壇 (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=20785)

由 Markchu7 在 2017-04-07 13:10 發表:

[分享][問題]亞當理論

在網路上找到亞當理論的源碼如下!
HH:=H;
LL:=L;
OO:=O;
CC:=C;
<%
VH=FFL.VarData("HH")
VL=FFL.VarData("LL")
VO=FFL.VarData("OO")
VC=FFL.VarData("CC")
LAST=UBOUND(VH)
IF LAST<101 THEN
B=LAST+1
ELSE
B=0
FOR I=LAST-101 TO LAST-51
VH(I)=VH(I+51)
VL(I)=VL(I+51)
VO(I)=VO(I+51)
VC(I)=VC(I+51)
NEXT
A=(VH(LAST-51)+VL(LAST-51))/2
J=1
FOR I=LAST-49 TO LAST
J=J+2
VH(I)=2*A-VL(I-J)
VL(I)=2*A-VH(I-J)
VO(I)=2*A-VC(I-J)
VC(I)=2*A-VO(I-J)
NEXT
END IF
FFL.VarData("HH")=VH
FFL.VarData("LL")=VL
FFL.VarData("OO")=VO
FFL.VarData("CC")=VC
FFL.VarStartIndex("HH")=B
FFL.VarStartIndex("LL")=B
FFL.VarStartIndex("OO")=B
FFL.VarStartIndex("CC")=B
%>
A:=BACKSET(ISLASTBAR,50);
STICKLINE(A AND CC>=OO,OO,CC,6,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND CC>=OO,LL,OO,0.1,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND CC>=OO,CC,HH,0.1,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND CC<OO,OO,CC,6,0),COLORGREEN,SHIFT50;
STICKLINE(A AND CC<OO,LL,HH,0.1,0),COLORGREEN,SHIFT50;
VERTLINE(ISLASTBAR),COLORBLACK,POINTDOT;

該源碼是向後畫50根K棒!想將50根K棒改為15根K棒,但個人能力有限不會改,可否請總版主協助修改!感謝!

由 cgjj 在 2017-04-07 15:12 發表:

回覆: [分享][問題]亞當理論

引用:
最初由 Markchu7 發表
在網路上找到亞當理論的源碼如下!
HH:=H;
LL:=L;
OO:=O;
CC:=C;
<%
VH=FFL.VarData("HH")
VL=FFL.VarData("LL")
VO=FFL.VarData("OO")
VC=FFL.VarData("CC")
LAST=UBOUND(VH)
IF LAST<101 THEN
B=LAST+1
ELSE
B=0
FOR I=LAST-101 TO LAST-51
VH(I)=VH(I+51)
VL(I)=VL(I+51)
VO(I)=VO(I+51)
VC(I)=VC(I+51)
NEXT
A=(VH(LAST-51)+VL(LAST-51))/2
J=1
FOR I=LAST-49 TO LAST
J=J+2
VH(I)=2*A-VL(I-J)
VL(I)=2*A-VH(I-J)
VO(I)=2*A-VC(I-J)
VC(I)=2*A-VO(I-J)
NEXT
END IF
FFL.VarData("HH")=VH
FFL.VarData("LL")=VL
FFL.VarData("OO")=VO
FFL.VarData("CC")=VC
FFL.VarStartIndex("HH")=B
FFL.VarStartIndex("LL")=B
FFL.VarStartIndex("OO")=B
FFL.VarStartIndex("CC")=B
%>
A:=BACKSET(ISLASTBAR,50);
STICKLINE(A AND CC>=OO,OO,CC,6,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND CC>=OO,LL,OO,0.1,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND CC>=OO,CC,HH,0.1,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND CC<OO,OO,CC,6,0),COLORGREEN,SHIFT50;
STICKLINE(A AND CC<OO,LL,HH,0.1,0),COLORGREEN,SHIFT50;
VERTLINE(ISLASTBAR),COLORBLACK,POINTDOT;

該源碼是向後畫50根K棒!想將50根K棒改為15根K棒,但個人能力有限不會改,可否請總版主協助修改!感謝!

就是鏡像K線而已!!!!!!!!!

N:=15; //值可調整範圍為 0-99
PP:=datacount-N;
MM:=(H+L)/2; MM:=MM[datacount];
KO:refx(O,N) linethick0 coloryellow;
KH:refx(H,N) linethick0 coloryellow;
KL:refx(L,N) linethick0 coloryellow;
KC:refx(C,N) linethick0 coloryellow;
PPSP:=barslast(barpos=PP);
KO:=if(barpos>PP,MM+(MM-ref(KO,PPSP*2)),KO);
KH:=if(barpos>PP,MM+(MM-ref(KH,PPSP*2)),KH);
KL:=if(barpos>PP,MM+(MM-ref(KL,PPSP*2)),KL);
KC:=if(barpos>PP,MM+(MM-ref(KC,PPSP*2)),KC);
RN:=99-N;
KO:=refx(KO,RN); KH:=refx(KH,RN); KL:=refx(KL,RN); KC:=refx(KC,RN);
DW:=barpos<datacount-RN+1;
STICKLINE(DW and KC>KO,KH,KL,0.1,1) colorred SHIFT99;
STICKLINE(DW and KC<=KO,KH,KL,0.1,0) colorcyan SHIFT99;
STICKLINE(DW and KC>KO,KO,KC,8,1) colorred SHIFT99;
STICKLINE(DW and KC<=KO,KO,KC,8,0) colorcyan SHIFT99;
VERTLINE(islastbar) coloryellow linedot;

由 Markchu7 在 2017-04-07 16:59 發表:

感謝協助!

全部時間均為台灣時間, 現在時間為03:53

在這個頁面顯示本主題全部的 3 個文章