波神八线 INPUT:最近天(30,1,360),k(1,1,2); M5:MA(CLOSE,5),linethick0; M10:MA(CLOSE,10),linethick0; m20:MA(CLOSE,20),linethick0; m30:MA(CLOSE,30),linethick0; M60:MA(CLOSE,60),linethick0; M120:MA(CLOSE,120),linethick0; kDB1:=filter(backset(BARSCOUNT(C)=SYSPARAM(1) ,5),5); KDB2:=filter(backset(BARSCOUNT(C)=SYSPARAM(1) ,10),10); KDB3:=filter(backset(BARSCOUNT(C)=SYSPARAM(1) ,20),20); KDB4:=filter(backset(BARSCOUNT(C)=SYSPARAM(1) ,30),30); KDB5:=filter(backset(BARSCOUNT(C)=SYSPARAM(1) ,60),60); KDB6:=filter(backset(BARSCOUNT(C)=SYSPARAM(1) ,120),120); {以上公式寫法在找出均線扣抵之位置} vertline(KDB1),colorCYAN,POINTDOT; vertline(KDB2),colorCYAN,POINTDOT; vertline(KDB3),colorCYAN,POINTDOT; vertline(KDB4),colorCYAN,POINTDOT; vertline(KDB5),colorCYAN,POINTDOT; vertline(KDB6),colorCYAN,POINTDOT; {以上公式部分在標記均線扣抵位置} N:=IF(SYSPARAM(1)=DATACOUNT,最近天,0); HH:=hhv(H,n); LL:=llv(l,n); VN:=n; {LAST1:=DATACOUNT;} IF VN>DATACOUNT THEN VN:=DATACOUNT+1; FOR I=DATACOUNT DOWNTO DATACOUNT-VN+1 DO BEGIN HH[I]:=HH[DATACOUNT]; LL[I]:=LL[DATACOUNT]; END; KKH:=BARSLAST(HIGH=HH); KKL:=BARSLAST(LOW=LL); N低日:=STRTONUM(NUMTOSTR(REF(BARPOS,KKL),0)),LINETHICK; N高日:=STRTONUM(NUMTOSTR(REF(BARPOS,KKH),0)),LINETHICK; 多空:=IF(N低日>N高日,2,1); DATE1:=IF(多空=1,N低日,N高日);{} hh0:=if(REF(HIGH,BARSLAST(DATE1=BARPOS)+k-1)>REF(HIGH,BARSLAST(DATE1=BARPOS)),REF(HIGH,BARSLAST(DATE1=BARPOS)+k-1),REF(HIGH,BARSLAST(DATE1=BARPOS))); hhh00:=REF(HIGH,BARSLAST(DATE1=BARPOS)); ll0:=REF(LOW,BARSLAST(DATE1=BARPOS)); H1:=STRTONUM(NUMTOSTR(Hh0,3)),POINTDOT; Hhh0:=STRTONUM(NUMTOSTR(Hhh00,3)),POINTDOT; L1:=STRTONUM(NUMTOSTR(Ll0,3)),POINTDOT; hh00:=REF(HIGH,BARSLAST(DATE1=BARPOS)); ll00:=if(REF(LOW,BARSLAST(DATE1=BARPOS)+k-1)<REF(LOW,BARSLAST(DATE1=BARPOS)),REF(LOW,BARSLAST(DATE1=BARPOS)+k-1),REF(LOW,BARSLAST(DATE1=BARPOS))); H11:=STRTONUM(NUMTOSTR(Hh00,3)),POINTDOT; L11:=STRTONUM(NUMTOSTR(Ll00,3)),POINTDOT; NN:=SYSPARAM(1); if NN<1 or NN>datacount then exit; x1:=SYSPARAM(1)=BARPOS; tz1:=if(ref(h,k-1)>h,ref(h,k-1),h); tm1:=h; tz2:=l; zt1:=tz1[NN]; zm1:=tm1[NN]; zt2:=tz2[NN]; z1:=IF(SYSPARAM(1)=DATACOUNT,H1,zt1); tm:=IF(SYSPARAM(1)=DATACOUNT,hhh0,zm1); Z2:=IF(SYSPARAM(1)=DATACOUNT,L1,ZT2); tz11:=h; tz22:=if(ref(l,k-1)<l,ref(l,k-1),l); zt11:=tz11[NN]; zt22:=tz22[NN]; Z11:=IF(SYSPARAM(1)=DATACOUNT,h11,ZT11); Z22:=IF(SYSPARAM(1)=DATACOUNT,L11,ZT22); PARTLINE(SYSPARAM(1)=DATACOUNT,tm),,POINTDOT,linethick0,color999999; PARTLINE(SYSPARAM(1)=DATACOUNT,z2),,POINTDOT,linethick0,color999999; xxx1:=x1 and l1<=REF(LOW,BARSLAST(DATE1=BARPOS)+1); xxxx1:=x1 and l<=ref(l,1) and l<ref(l,2) and l<refx(l,1); xx1:=if(SYSPARAM(1)=DATACOUNT,xxx1,xxxx1); xxx2:=x1 and h11>=REF(HIGH,BARSLAST(DATE1=BARPOS)+1); xxxx2:=X1 and h>=ref(h,1) and h>=ref(h,2) and h>refx(h,1); xx2:=if(SYSPARAM(1)=DATACOUNT,xxx2,xxxx2); DRAWTEXT(xx1 ,z1+(z1-z2)*1.0,'--⑴----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15; DRAWTEXT(xx1 ,z1+(z1-z2)*1.4,'--⑵----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15; DRAWTEXT(xx1 ,z1+(z1-z2)*2.1,'--⑶----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorff9963,pxup15; DRAWTEXT(xx1 ,z1+(z1-z2)*2.7,'--⑷----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15; DRAWTEXT(xx1 ,z1+(z1-z2)*3.1,'--⑸----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15; DRAWTEXT(xx1 ,z1+(z1-z2)*3.7,'--⑹----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorff9963,pxup15; DRAWTEXT(xx1 ,z1+(z1-z2)*4.4,'--⑺----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15; DRAWTEXT(xx1 ,z1+(z1-z2)*5.0,'--⑻----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15; DRAWTEXT(xx1 ,z1+(z1-z2)*0.5,'--◇-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF9963,pxup15; DRAWTEXT(xx1 ,z1+(z1-z2)*5.8,'--◇-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorff9963,pxup15; DRAWTEXT(xx2 ,z22-(z11-z22)*1.0,'--⑴-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15; DRAWTEXT(xx2 ,z22-(z11-z22)*1.4,'--⑵----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15; DRAWTEXT(xx2 ,z22-(z11-z22)*2.1,'--⑶---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorff9963,pxup15; DRAWTEXT(xx2 ,z22-(z11-z22)*2.7,'--⑷---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15; DRAWTEXT(xx2 ,z22-(z11-z22)*3.1,'--⑸---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15; DRAWTEXT(xx2 ,z22-(z11-z22)*3.7,'--⑹--------------------------------------------------------------------------------------------- |
