CTA1:=DATACOUNT-BARPOS 1;CTA3:REFX1(HHV(H,CTA2),10000);CTA4:REFX1(LLV(L,CTA2),10000);CTA5:=CTA3-(CTA3-CTA4)*1.000;CTA6:=CTA3-(CTA3-CTA4)*0.875;CTA7:=CTA3-(CTA3-CTA4)*0.750;CTA8:=CTA3-(CTA3-CTA4)*0.666;CTA9:=CTA3-(CTA3-CTA4)*0.625;CTA10:=CTA3-(CTA3-CTA4)*0.500;CTA11:=CTA3-(CTA3-CTA4)*0.375;CTA12:=CTA3-(CTA3-CTA4)*0.333;CTA13:=CTA3-(CTA3-CTA4)*0.250;CTA14:=CTA3-(CTA3-CTA4)*0.125;CTA15:=CTA3-(CTA3-CTA4)*0.000;STICKLINE1(CTA1=15,CTA3,CTA3,100,1),COLORGREEN;STICKLINE1(CTA1=15,CTA5,CTA5,100,1),COLORCYAN;STICKLINE1(CTA1=15,CTA6,CTA6,100,1),COLORRED;DRAWTEXT(CTA1=2,CTA5,' 1.000'),COLORCYAN;DRAWTEXT(CTA1=2,CTA6,' 0.125 ┄ 1/8'),COLORMAGENTA;DRAWTEXT(CTA1=2,CTA7,' 0.25 ┄ 1/4'),COLORGREEN;DRAWTEXT(CTA1=2,CTA8,' 0.333┄ 1/3'),COLOR808080;DRAWTEXT(CTA1=2,CTA9,' 0.375┄ 3/8'),COLOR808080;DRAWTEXT(CTA1=2,CTA10,' 0.50┄ 1/2'),COLORMAGENTA;DRAWTEXT(CTA1=2,CTA11,' 0.625┄ 5/8'),COLOR808080;DRAWTEXT(CTA1=2,CTA12,' 0.666┄2/3'),COLOR808080;DRAWTEXT(CTA1=2,CTA13,' 0.75┄ 3/4'),COLORGREEN;DRAWTEXT(CTA1=2,CTA14,' 0.875┄ 7/8'),COLORMAGENTA;DRAWTEXT(CTA1=2,CTA15,' 1.000'),COLORGREEN;STICKLINE1(CTA1=15,CTA7,CTA7,100,1),COLORGREEN;STICKLINE1(CTA1=15,CTA8,CTA8,100,1),COLOR808080;STICKLINE1(CTA1=15,CTA10,CTA10,100,1),COLORGREEN;STICKLINE1(CTA1=15,CTA9,CTA9,100,1),COLOR808080;STICKLINE1(CTA1=15,CTA4,CTA4,100,1),COLORRED;STICKLINE1(CTA1=15,CTA11,CTA11,100,1),COLOR808080;STICKLINE1(CTA1=15,CTA12,CTA12,100,1),COLOR808080;STICKLINE1(CTA1=15,CTA13,CTA13,100,1),COLORGREEN;STICKLINE1(CTA1=15,CTA14,CTA14,100,1),COLORRED;DRAWNUMBER1(CTA1=30,CTA3*0.997,CTA3,2),COLORGREEN;DRAWNUMBER1(CTA1=30,CTA14,CTA14,2),COLORRED;DRAWNUMBER1(CTA1=30,CTA13,CTA13,2),COLORMAGENTA;DRAWNUMBER1(CTA1=30,CTA12,CTA12,2),COLORRED;DRAWNUMBER1(CTA1=30,CTA5,CTA5,2),COLORCYAN;DRAWNUMBER1(CTA1=30,CTA6,CTA6,2),COLORRED;DRAWNUMBER1(CTA1=30,CTA7,CTA7,2),COLORYELLOW;DRAWNUMBER1(CTA1=30,CTA10,CTA10,2),COLORGREEN;DRAWNUMBER1(CTA1=30,CTA8,CTA8,2),COLORRED;DRAWNUMBER1(CTA1=30,CTA9,CTA9,2),COLORMAGENTA;DRAWNUMBER1(CTA1=30,CTA11,CTA11,2),COLORRED;DRAWNUMBER1(CTA1=30,CTA4*1.00,CTA4,2),COLORGREEN;A1:=REF(HIGH,10)=HHV(HIGH,2*10 1);A2:=REF(LOW,10)=LLV(LOW,2*10 1);E1:=(REF(LLV(LOW,2*10),1) REF(HHV(HIGH,2*10),1))/2;H1:=(D1 AND NOT((D2 AND E1>=E2))) OR ISLASTBAR OR BARSCOUNT(CLOSE)=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,LOW,1000000),X1) 1);LD:=I1>REF(I1,1);//{過濾后低點}L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;X2:=REF(BARSLAST(L2),1) 1;F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2) 1);HD:=I2>REF(I2,1);//{過濾后高點}DRAWLINE1(LD,L,HD,H,0),COLOR00FFFF,LINETHICK1;DRAWLINE1(HD,H,LD,L,0),COLOR00FFFF,LINETHICK1;J1:=BACKSET(ISLASTBAR ,MIN(BARSLAST(HD),BARSLAST(LD)) 1);DRAWLINE1(J2,IF(HD,H,L),ISLASTBAR ,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLOR00FF00;UU:=BACKSET(ISLASTBAR,BARSLAST(LD) 1);WW:=BACKSET(VV,REF(BARSLAST(LD),1) 2);DRAWLINE1(XX,L,VV,L,1),COLORFFFFFF,LINETHICK2,NODRAW;UU2:=BACKSET(ISLASTBAR,BARSLAST(HD) 1);WW2:=BACKSET(VV2,REF(BARSLAST(HD),1) 2);DRAWLINE1(XX2,H,VV2,H,1),COLORFFFF00,LINETHICK1,NODRAW;CURRBARSCOUNT:=DATACOUNT-BARPOS 1;AA:=REF(H,N)=HHV(H,2*N 1);AA1:=REF(L,N)=LLV(L,2*N 1);CC:=FILTER(QY,N) AND H=HHV(H,N 1);CC1:=FILTER(QY1,N) AND L=LLV(L,N 1);GDTS:=IF(CC,CURRBARSCOUNT,0);DDTS:=IF(CC1,CURRBARSCOUNT,0);DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);GDCS1:=REFX1(DINGBUTS,10000);DDCS1:=REFX1(DDTS1,10000);GDCS13:=REFX1(REF(HIGH,GDCS1-1),10000);DDCS13:=REFX1(REF(L,DDCS1-1),10000);DINGBUTS1:=REF(DINGBUTS,DDD 1);GDCS2:=REFX1(DINGBUTS1,10000);DDCS2:=REFX1(DDTS2,10000);GDCS23:=REFX1(REF(HIGH,DINGBUTS1-1),10000);DDCS23:=REFX1(REF(L,DDTS2-1),10000);XG1:=BACKSET(ISLASTBAR,GDCS1);XD1:=BACKSET(ISLASTBAR,DDCS1);XG2:=BACKSET(ISLASTBAR,DINGBUTS1);XD2:=BACKSET(ISLASTBAR,DDTS2);EXP1:=EMA(CLOSE, 12), COLORYELLOW, LINETHICK1;EXP2:=EMA(CLOSE, 47), COLORGREEN, LINETHICK1;STICKLINE1(XG2,GDCS23,GDCS23,2,0),COLORFF8000;STICKLINE1(XG1,GDCS13,GDCS13,2,0),COLORYELLOW;STICKLINE1(XD2,DDCS23,DDCS23,2,0),COLORGRAY;STICKLINE1(XD1,DDCS13,DDCS13,2,0),COLORCYAN;
|
