|
路：以均線相交的情況作為分筆頂點的依據。（是否有道理，還需檢驗?。?/div> 同時以價格乘以時間間隔的開方作為動能。以此作為依據，與前筆比較判定是否背馳。有背馳為細線，無背馳為粗線。 該指標是飛狐指標，簡單修改后可以在通達信和東財上使用。但無法在大智慧上使用，因為使用了反向過濾filterx函數。 MD6:MA(C,3); MD5:MA(C,8); MD4:MA(C,21); MD3:MA(C,55); MD2:MA(C,144); MD1:MA(C,377); L1:=IF(MD2>=MD1,1,0); L2:=IF(MD3>MD2 OR MD3=MD2 AND L1=0,1,0); L3:=IF(MD4>MD3 OR MD4=MD3 AND L2=0,1,0); L4:=IF(MD5>MD4 OR MD5=MD4 AND L3=0,1,0); L5:=IF(MD6>MD5 OR MD6=MD5 AND L4=0,1,0); L6:=IF(C>MD6 OR C=MD6 AND L5=0,1,0); LL1:=L1+L2*2+L3*4; LL2:=L4+L5*2+L6*4; GG:=IF(LL2=7 OR LL2=3,H,0.5*L); GD:=IF(LL2=0 OR LL2=4,L,1.5*H); 均線頂0:=(LL2=7 OR LL2=3 AND (REF(LL2,1)=7 OR REF(LL2,1)=3) AND (H>REF(H,1) )) ; 均線底0:=(LL2=0 OR LL2=4 AND (REF(LL2,1)=0 OR REF(LL2,1)=4) AND (L<REF(L,1))) ; GG2:=IF(均線頂0,H,0.9*H); GD2:=IF(均線底0,L,1.1*L); 均線頂A:=FILTERX(均線頂0 AND GG2=HHV(GG2,BARSLAST(均線底0)),BARSLAST(均線底0)); 均線底A:=FILTERX(均線底0 AND GD2=LLV(GD2,BARSLAST(均線頂0)),BARSLAST(均線頂0)); 修正頂:=均線頂A; 修正底:=均線底A; 最后底:=filterx(修正底,100000); x1:=if(修正底,barslast(修正頂),if(修正頂,barslast(修正底),0)); erea:=if(修正底,sqrt(x1)*(ref(h,x1)-l),if(修正頂,(h-ref(l,x1))*sqrt(x1),0)); y1:=ref(x1,x1)+x1; erea2:=ref(erea,y1); v1:=if(修正底 or 修正頂, sum(v,x1)/10000,0); v2:=ref(v1,y1); e2:=ref(erea,y1); vv1:=v2/e2*erea; drawnumber(修正底 ,l*0.97,v1,2),coloryellow; drawnumber(修正底 ,l*0.98,erea,2),colorred; drawnumber(修正底 ,l*0.99,l,2),colorgreen; drawnumber(最后底 ,l*0.96,vv1,2),COLORMAGENTA; drawnumber( 修正頂,h*1.03,v1,2),coloryellow; drawnumber( 修正頂,h*1.02,erea,2),colorred; drawnumber( 修正頂,h*1.01,h,2),COLORMAGENTA; DRAWLINE(修正底,LOW,修正頂 and erea > erea2, HIGH,0),COLORMAGENTA,LINETHICK3; DRAWLINE(修正底,LOW,修正頂 and erea <= erea2 , HIGH,0),COLORMAGENTA,LINETHICK1; DRAWLINE(修正頂,HIGH,修正底 and erea > erea2 , LOW,0),COLORGREEN,LINETHICK3; DRAWLINE(修正頂,HIGH,修正底 and erea <= erea2 , LOW,0),COLORGREEN,LINETHICK1; { 原文鏈接：http://www./soft/sort013/sort02/down-83762.html }再上傳一個通達信可用直接使用的源碼。 MD6:MA(C,3); MD5:MA(C,8); MD4:MA(C,21); MD3:MA(C,55); MD2:MA(C,144); MD1:MA(C,377); L1:=IF(MD2>=MD1,1,0); L2:=IF(MD3>MD2 OR (MD3=MD2 AND L1=0),1,0); L3:=IF(MD4>MD3 OR (MD4=MD3 AND L2=0),1,0); L4:=IF(MD5>MD4 OR (MD5=MD4 AND L3=0),1,0); L5:=IF(MD6>MD5 OR (MD6=MD5 AND L4=0),1,0); L6:=IF(C>MD6 OR (C=MD6 AND L5=0),1,0); LL1:=L1+L2*2+L3*4; LL2:=L4+L5*2+L6*4; GG:=IF(LL2=7 OR LL2=3,H,0.5*L); GD:=IF(LL2=0 OR LL2=4,L,1.5*H); 均線頂0:=LL2=7 OR (LL2=3 AND (REF(LL2,1)=7 OR REF(LL2,1)=3) AND (H>REF(H,1) )) ; 均線底0:=LL2=0 OR (LL2=4 AND (REF(LL2,1)=0 OR REF(LL2,1)=4) AND (L<REF(L,1))) ; GG2:=IF(均線頂0,H,0.9*H); GD2:=IF(均線底0,L,1.1*L); 均線頂A:=FILTERX(均線頂0 AND GG2=HHV(GG2,BARSLAST(均線底0)),BARSLAST(均線底0)); 均線底A:=FILTERX(均線底0 AND GD2=LLV(GD2,BARSLAST(均線頂0)),BARSLAST(均線頂0)); 均線頂:=FILTERX(均線頂A AND GG2=HHV(GG2,BARSLAST(均線底A)),BARSLAST(均線底A)); 均線底:=FILTERX(均線底A AND GD2=LLV(GD2,BARSLAST(均線頂A)),BARSLAST(均線頂A)); 頂高:=REF(H,BARSLAST(均線頂)); 底底:=REF(L,BARSLAST(均線底)); { 修正頂A:=均線頂 OR ((LL2=1 OR LL2=3 OR LL2=5) AND BARSLAST(均線頂)<BARSLAST(均線底) AND H=HHV(H,BARSLAST(均線頂)+1)); 修正底A:= 均線底 OR ((LL2=2 OR LL2=4 OR LL2=6) AND BARSLAST(均線底)<BARSLAST(均線頂) AND L=LLV(L,BARSLAST(均線底)+1)); GG3:=IF(修正頂A,H,0.9*H); GD3:=IF(修正底A,L,1.1*L); 修正頂:=FILTERX(修正頂A AND GG3=HHV(GG3,BARSLAST(修正底A)),BARSLAST(修正底A)); 修正底:=FILTERX(修正底A AND GD2=LLV(GD3,BARSLAST(修正頂A)),BARSLAST(修正頂A));} 修正頂:=均線頂; 修正底:=均線底; X1:=IF(修正底,BARSLAST(修正頂),IF(修正頂,BARSLAST(修正底),0)); EREA:=IF(修正底,SQRT(X1)*(REF(H,X1)-L),IF(修正頂,(H-REF(L,X1))*SQRT(X1),0)); Y1:=REF(X1,X1)+X1; EREA2:=REF(EREA,Y1); V1:=IF(修正底 OR 修正頂, SUM(V,X1)/10000,0); DRAWNUMBER(修正底 ,L*0.97,V1),COLORYELLOW; DRAWNUMBER(修正底 ,L*0.98,EREA),COLORRED; DRAWTEXT(修正底 ,L*0.99,CON2STR(L,2)),COLORGREEN; DRAWNUMBER( 修正頂,H*1.03,V1),COLORYELLOW; DRAWNUMBER( 修正頂,H*1.02,EREA),COLORRED; DRAWTEXT( 修正頂,H*1.01,CON2STR(H,2)),COLORLIRED; DRAWLINE(修正底,LOW,修正頂 AND EREA > EREA2, HIGH,0),COLORMAGENTA,LINETHICK3; DRAWLINE(修正底,LOW,修正頂 AND EREA <= EREA2 , HIGH,0),COLORMAGENTA,LINETHICK1; DRAWLINE(修正頂,HIGH,修正底 AND EREA > EREA2 , LOW,0),COLORGREEN,LINETHICK3; DRAWLINE(修正頂,HIGH,修正底 AND EREA <= EREA2 , LOW,0),COLORGREEN,LINETHICK1; { 原文鏈接：http://www./soft/sort013/sort02/down-83762.html }   |
|
|
