波神八线
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,'--⑹---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorff9963,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*4.4,'--⑺---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00ff,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*5.0,'--⑻---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF00FF,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*0.5,'--◇----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF9963,pxup15;
DRAWTEXT(xx2 ,z22-(z11-z22)*5.8,'--◇----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'),colorFF9963,pxup15;
DRAWTEXT(SYSPARAM(2)=BARPOS,H1,'上升八线：㈠'+NUMTOSTR(z1+(z1-z2)*1,2)+'㈡'+NUMTOSTR(z1+(z1-z2)*1.4,2)+'㈢'+NUMTOSTR(z1+(z1-z2)*2.1,2)+'㈣'+NUMTOSTR(z1+(z1-z2)*2.7,2)+'㈤'+NUMTOSTR(z1+(z1-z2)*3.1,2)+'㈥'+NUMTOSTR(z1+(z1-z2)*3.7,2)+'㈦'+NUMTOSTR(z1+(z1-z2)*4.4,2)+'㈧'+NUMTOSTR(z1+(z1-z2)*5,2)),COLORFFAAAA,ALIGN4;
DRAWTEXT(SYSPARAM(2)=BARPOS,L1,'下降八线：㈠'+NUMTOSTR(z22-(z11-z22)*1,2)+'㈡'+NUMTOSTR(z22-(z11-z22)*1.4,2)+'㈢'+NUMTOSTR(z22-(z11-z22)*2.1,2)+'㈣'+NUMTOSTR(z22-(z11-z22)*2.7,2)+'㈤'+NUMTOSTR(z22-(z11-z22)*3.1,2)+'㈥'+NUMTOSTR(z22-(z11-z22)*3.7,2)+'㈦'+NUMTOSTR(z22-(z11-z22)*4.4,2)+'㈧'+NUMTOSTR(z22-(z11-z22)*5,2)),COLORFFAAAA,ALIGN5;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
