自動角度線
n: 3 , 2 ,999
sk1: 0.03,0,1
sk:=if(c>800,sk1,0.02);
A1:=REF(H,N)=HHV(H,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);

A2:=REF(L,N)=LLV(L,2*N+1);
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);
D2:=FILTER(C2,N);

E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2;
E2:=(H+L)/2;

H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
L1:=(D2 AND NOT(D1 AND E1<E2));
H2:=D1 AND NOT(D2 AND E1>=E2);
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1));
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);

L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2));
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);

xa:IF(HD,H,REF(H,BARSLAST(HD))),LINETHICK0;
xb:IF(LD,L,REF(L,BARSLAST(LD))),LINETHICK0;

UL:=IF(REF(HD,N)=1 AND SUM(HD,N-1)=0,REF(H,N),REF(H,N+BARSLAST(REF(HD,N)=1 AND SUM(HD,N-1)=0)));
DL:=IF(REF(LD,N)=1 AND SUM(LD,N-1)=0,REF(L,N),REF(L,N+BARSLAST(REF(LD,N)=1 AND SUM(LD,N-1)=0)));

JHH:=H>UL AND REF(H,1)<=REF(UL,1) AND SUM(H>UL AND REF(H,1)<=REF(UL,1),BARSLAST(HD))=1;
JLL:=L<DL AND REF(L,1)>=REF(DL,1) AND SUM(L<DL AND REF(L,1)>=REF(DL,1),BARSLAST(HD))=1;

DRAWICON(JHH,H,4),ALIGN0;
DRAWICON(JLL,L,5);

DRAWLINE(LD,L,HD,H,0),COLORCYAN linedot;
DRAWLINE(HD,H,LD,L,0),COLORCYAN linedot;

SX1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
SX2:=SX1>REF(SX1,1);
SY1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
SY2:=SY1>REF(SY1,1);
SZ1:=IF(BARSLAST(SX2)<BARSLAST(SY2),SX2,SY2);
SZ2:=IF(BARSLAST(SX2)<BARSLAST(SY2),L,H);
DRAWLINE(SZ1,SZ2,ISLASTBAR,C,0),COLORFF9900,POINTDOT;
DRAWNUMBER(HD,H*(1+sk),H,2),COLORGRAY,align0;

tjh:=BARSLAST(hd);
tjl:=BARSLAST(ld);
jgl:=if(tjh>tjl,ref(l,tjl+ref(tjl,tjl+1)+1),ref(l,tjl));
jgh:=if(tjh<tjl,ref(h,tjh+ref(tjh,tjh+1)+1),ref(h,tjh));
jgc:=if(tjh>tjl,jgh-jgl,jgl-jgh);
zqc:=if(tjh>tjl,tjl+ref(tjl,tjl+1)+1-tjh,tjh+ref(tjh,tjh+1)+1-tjl);
kk:=jgc/zqc;
DRAWSL(SZ1,SZ2,kk,0,0),linethick2,colorred;


以上請參考

快刀手 附帶上了此圖片:

大家好像不喜歡用

大家好像不喜歡用,都沒看到有任何的回應...........

不能導入 !!

DRAWLINE(LD,L,HD,H,0),COLORCYAN linedot; 行43:語句缺少分號
:
DRAWSL(SZ1,SZ2,kk,0,0),linethick2,colorred; 行60:未定義的標識符

因為我是用4.0的所以無法用匯出的給您們

期待 4.0 版早日問世 - 太多優秀公式 (股票箱..) 無法匯入 !!

3.5可用了

附件: 角度.alg
此文件已被下載 770 次。

謝謝

3q3q

__________________
JOHN

A1:=REF(H,N)=HHV(H,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);

A2:=REF(L,N)=LLV(L,2*N+1);
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);
D2:=FILTER(C2,N);

E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2;
E2:=(H+L)/2;

H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
L1:=(D2 AND NOT(D1 AND E1<E2));
H2:=D1 AND NOT(D2 AND E1>=E2);
X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1));
G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);

L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2));
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);

UL:=IF(REF(HD,N)=1 AND SUM(HD,N-1)=0,REF(H,N),REF(H,N+BARSLAST(REF(HD,N)=1 AND SUM(HD,N-1)=0)));
DL:=IF(REF(LD,N)=1 AND SUM(LD,N-1)=0,REF(L,N),REF(L,N+BARSLAST(REF(LD,N)=1 AND SUM(LD,N-1)=0)));

JHH:=H>UL AND REF(H,1)<=REF(UL,1) AND SUM(H>UL AND REF(H,1)<=REF(UL,1),BARSLAST(HD))=1;
JLL:=L<DL AND REF(L,1)>=REF(DL,1) AND SUM(L<DL AND REF(L,1)>=REF(DL,1),BARSLAST(HD))=1;

DRAWICON(JHH,H,4),ALIGN0;
DRAWICON(JLL,L,5);
DRAWLINE(LD,L,HD,H,0),COLORGREEN,POINTDOT;
DRAWLINE(HD,H,LD,L,0),COLORGREEN,POINTDOT;

SX1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
SX2:=SX1>REF(SX1,1);
SY1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
SY2:=SY1>REF(SY1,1);
SZ1:=IF(BARSLAST(SX2)<BARSLAST(SY2),SX2,SY2);
SZ2:=IF(BARSLAST(SX2)<BARSLAST(SY2),L,H);
DRAWLINE(SZ1,SZ2,ISLASTBAR,C,0),COLORBLUE,POINTDOT;

DRAWNUMBER(HD,H*(1+sk),H,2),COLORGREEN,align0;
DRAWNUMBER(LD,L*(1.001-sk),L,2),COLORGREEN,align0;

最近１次碎型高:IF(HD,H,REF(H,BARSLAST(HD))),LINETHICK0;
最近１次碎型低:IF(LD,L,REF(L,BARSLAST(LD))),LINETHICK0;

抱歉上一篇貼錯ㄌ
謝謝大大

引用:

---

最初由 快刀手 發表
大家好像不喜歡用,都沒看到有任何的回應...........

---

謝謝

[有勞您了，感謝您！]

謝謝分享

老大，有未来函数