發(fā)表于 2011-5-20 21:17 | 只看該作者
黃金柱攻防線z (主圖源碼)
黃金谷自編指標(biāo)
{黃金柱攻防線主圖源碼:}
AMOV:=VOL*(OPEN+CLOSE)/2;
AMV5:SUM(AMOV,5)/SUM(VOL,5)COLORWHITE LINETHICK1;
STICKLINE(IF(DYNAINFO(8)>0,DYNAINFO(7),DRAWNULL),IF(DYNAINFO(8)>0,DYNAINFO(7),DRAWNULL),IF(DYNAINFO(8)>0,DYNAINFO(7),DRAWNULL),1,-1),COLORWHITE;
YX:=C>O;
SD1:=IF(YX,C,O);
SD2:=IF(YX,O,C);
{黃金谷編輯}
SRZDJ:=MIN(MIN(L,REF(L,1)),REF(L,2));
SRBP:=MIN(MIN(L,REF(L,1)),REF(L,2))>=REF(L,3);
SRLS:=MAX(MAX(V,REF(V,1)),REF(V,2))<REF(V,3);
SRLZ:=MAX(MAX(V,REF(V,1)),REF(V,2))>REF(V,3);
SRQGLZ:=REF(VOL,3)>=REF(VOL,4) AND REF(VOL,3)<1.9*REF(VOL,4);
SRQBLZ:=REF(VOL,3)>1.9*REF(VOL,4);
黃金谷編輯:=SRBP AND SRLS AND SRQBLZ;
黃金谷:=SRBP AND SRLS AND SRQGLZ;
JJZ:=SRBP AND SRQBLZ AND SRLZ;
BLHJZ1:=黃金谷編輯 AND SRZDJ>REF(SD1,3);
BLHJZ2:=黃金谷編輯 AND SRZDJ<=REF(SD1,3) AND SRZDJ>REF(SD2,3);
BLHJZ3:=黃金谷編輯 AND SRZDJ<=REF(SD2,3) AND SRZDJ>=REF(L,3);
HJZ1:=黃金谷 AND SRZDJ>REF(SD1,3);
HJZ2:=黃金谷 AND SRZDJ<=REF(SD1,3) AND SRZDJ>REF(SD2,3);
HJZ3:=黃金谷 AND SRZDJ<=REF(SD2,3) AND SRZDJ>=REF(L,3);
JJZ4:=JJZ AND SRZDJ>REF(SD1,3);
JJZ5:=JJZ AND SRZDJ<=REF(SD1,3) AND SRZDJ>REF(SD2,3);
JJZ6:=JJZ AND SRZDJ<=REF(SD2,3) AND SRZDJ>=REF(L,3);
BACKSET001:=BACKSET(黃金谷編輯,4);
BACKSET002:=BACKSET(黃金谷,4);
BACKSET003:=BACKSET(JJZ,4);
BACKSET01:=BACKSET(BLHJZ1,4);
BACKSET02:=BACKSET(BLHJZ2,4);
BACKSET03:=BACKSET(BLHJZ3,4);
BACKSET1:=BACKSET(HJZ1,4);
BACKSET2:=BACKSET(HJZ2,4);
BACKSET3:=BACKSET(HJZ3,4);
BACKSET4:=BACKSET(JJZ4,4);
BACKSET5:=BACKSET(JJZ5,4);
BACKSET6:=BACKSET(JJZ6,4);
FILTER001:=FILTER(BACKSET001,3),NODRAW;
FILTER002:=FILTER(BACKSET002,3),NODRAW;
FILTER003:=FILTER(BACKSET003,3),NODRAW;
FILTER01:=FILTER(BACKSET01,3),NODRAW;
FILTER02:=FILTER(BACKSET02,3),NODRAW;
FILTER03:=FILTER(BACKSET03,3),NODRAW;
FILTER1:=FILTER(BACKSET1,3),NODRAW;
FILTER2:=FILTER(BACKSET2,3),NODRAW;
FILTER3:=FILTER(BACKSET3,3),NODRAW;
FILTER4:=FILTER(BACKSET4,3),NODRAW;
FILTER5:=FILTER(BACKSET5,3),NODRAW;
FILTER6:=FILTER(BACKSET6,3),NODRAW;
K001:=SUMBARS(FILTER001,1);
K002:=SUMBARS(FILTER002,1);
K003:=SUMBARS(FILTER003,1);
K01:=SUMBARS(FILTER01,1);
K02:=SUMBARS(FILTER02,1);
K03:=SUMBARS(FILTER03,1);
K1:=SUMBARS(FILTER1,1);
K2:=SUMBARS(FILTER2,1);
K3:=SUMBARS(FILTER3,1);
K4:=SUMBARS(FILTER4,1);
K5:=SUMBARS(FILTER5,1);
K6:=SUMBARS(FILTER6,1);
STICKLINE(K01,REF(SD1,K01-1),REF(SD1,K01-1),1,0),COLORYELLOW;
STICKLINE(K02,REF(SD2,K02-1),REF(SD2,K02-1),1,0),COLORYELLOW;
STICKLINE(K03,REF(L,K03-1),REF(L,K03-1),1,0),COLORYELLOW;
STICKLINE(K1,REF(SD1,K1-1),REF(SD1,K1-1),1,-1),COLORRED;
STICKLINE(K2,REF(SD2,K2-1),REF(SD2,K2-1),1,-1),COLORRED;
STICKLINE(K3,REF(L,K3-1),REF(L,K3-1),1,-1),COLORRED;
STICKLINE(K4,REF(SD1,K4-1),REF(SD1,K4-1),1,-1),COLORGREEN;
STICKLINE(K5,REF(SD2,K5-1),REF(SD2,K5-1),1,-1),COLORGREEN;
STICKLINE(K6,REF(L,K6-1),REF(L,K6-1),1,-1),COLORGREEN;
STICKLINE(FILTER01 OR FILTER02 OR FILTER03,L,H,0.01,0),COLORCYAN;
STICKLINE(FILTER01 OR FILTER02 OR FILTER03,OPEN,CLOSE,3,0),COLORYELLOW;
STICKLINE(FILTER01 OR FILTER02 OR FILTER03,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(FILTER1 OR FILTER2 OR FILTER3,L,H,0.01,0),COLORCYAN;
STICKLINE(FILTER1 OR FILTER2 OR FILTER3,OPEN,CLOSE,3,0),COLORYELLOW;
STICKLINE(FILTER1 OR FILTER2 OR FILTER3,OPEN,CLOSE,1,0),COLORRED;
STICKLINE(FILTER4 OR FILTER5 OR FILTER6,L,H,0.01,0),COLORCYAN;
STICKLINE(FILTER4 OR FILTER5 OR FILTER6,OPEN,CLOSE,3,0),COLORGREEN;
STICKLINE(FILTER4 OR FILTER5 OR FILTER6,OPEN,CLOSE,2,0),COLORGREEN;
STICKLINE(K001,REF(SRZDJ,K001-4),REF(SRZDJ,K001-4),20,0),COLORYELLOW;
STICKLINE(K002,REF(SRZDJ,K002-4),REF(SRZDJ,K002-4),20,0),COLORRED;
STICKLINE(K003,REF(SRZDJ,K003-4),REF(SRZDJ,K003-4),20,0),COLORGREEN;
DZF:=((H-L)/REF(C,1))*100>=5,NODRAW;
SYX1:=C>=O;
SYX2:=C<O;
STICKLINE(DZF AND SYX1,H*1.02,H*1.03,0.01,0)COLORYELLOW;
STICKLINE(DZF AND SYX2,H*1.02,H*1.03,0.01,0)COLORGREEN;

  下載 (39.44 KB)

2011-5-20 21:12
  下載 (24.44 KB)

2011-5-20 21:12

{黃金柱成交量附圖源碼:}
YX:=C>O;
SD1:=IF(YX,C,O);
SD2:=IF(YX,O,C);
{黃金谷編輯}
SRZDJ:=MIN(MIN(L,REF(L,1)),REF(L,2));
SRBP:=MIN(MIN(L,REF(L,1)),REF(L,2))>=REF(L,3);
SRLS:=MAX(MAX(V,REF(V,1)),REF(V,2))<REF(V,3);
SRLZ:=MAX(MAX(V,REF(V,1)),REF(V,2))>REF(V,3);
SRQGLZ:=REF(VOL,3)>=REF(VOL,4) AND REF(VOL,3)<1.9*REF(VOL,4);
SRQBLZ:=REF(VOL,3)>1.9*REF(VOL,4);
黃金谷編輯:=SRBP AND SRLS AND SRQBLZ;
黃金谷:=SRBP AND SRLS AND SRQGLZ;
JJZ:=SRBP AND SRQBLZ AND SRLZ;
BLHJZ1:=黃金谷編輯 AND SRZDJ>REF(SD1,3);
BLHJZ2:=黃金谷編輯 AND SRZDJ<=REF(SD1,3) AND SRZDJ>REF(SD2,3);
BLHJZ3:=黃金谷編輯 AND SRZDJ<=REF(SD2,3) AND SRZDJ>=REF(L,3);
HJZ1:=黃金谷 AND SRZDJ>REF(SD1,3);
HJZ2:=黃金谷 AND SRZDJ<=REF(SD1,3) AND SRZDJ>REF(SD2,3);
HJZ3:=黃金谷 AND SRZDJ<=REF(SD2,3) AND SRZDJ>=REF(L,3);
JJZ4:=JJZ AND SRZDJ>REF(SD1,3);
JJZ5:=JJZ AND SRZDJ<=REF(SD1,3) AND SRZDJ>REF(SD2,3);
JJZ6:=JJZ AND SRZDJ<=REF(SD2,3) AND SRZDJ>=REF(L,3);
BACKSET01:=BACKSET(BLHJZ1,4);
BACKSET02:=BACKSET(BLHJZ2,4);
BACKSET03:=BACKSET(BLHJZ3,4);
BACKSET1:=BACKSET(HJZ1,4);
BACKSET2:=BACKSET(HJZ2,4);
BACKSET3:=BACKSET(HJZ3,4);
BACKSET4:=BACKSET(JJZ4,4);
BACKSET5:=BACKSET(JJZ5,4);
BACKSET6:=BACKSET(JJZ6,4);
FILTER01:=FILTER(BACKSET01,3),NODRAW;
FILTER02:=FILTER(BACKSET02,3),NODRAW;
FILTER03:=FILTER(BACKSET03,3),NODRAW;
FILTER1:=FILTER(BACKSET1,3),NODRAW;
FILTER2:=FILTER(BACKSET2,3),NODRAW;
FILTER3:=FILTER(BACKSET3,3),NODRAW;
FILTER4:=FILTER(BACKSET4,3),NODRAW;
FILTER5:=FILTER(BACKSET5,3),NODRAW;
FILTER6:=FILTER(BACKSET6,3),NODRAW;
VVOL:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,VVOL,0,-1,-1),COLOR00C0C0;
VOLUME:VOL,VOLSTICK;
STICKLINE(FILTER01 OR FILTER02 OR FILTER03,0,V,0.01,0),COLORCYAN;
STICKLINE(FILTER01 OR FILTER02 OR FILTER03,0,V,3,0),COLORYELLOW;
STICKLINE(FILTER01 OR FILTER02 OR FILTER03,0,V,2,0),COLORYELLOW;
STICKLINE(FILTER1 OR FILTER2 OR FILTER3,0,V,0.01,0),COLORCYAN;
STICKLINE(FILTER1 OR FILTER2 OR FILTER3,0,V,3,0),COLORYELLOW;
STICKLINE(FILTER1 OR FILTER2 OR FILTER3,0,V,1,0),COLORRED;
STICKLINE(FILTER4 OR FILTER5 OR FILTER6,0,V,0.01,0),COLORCYAN;
STICKLINE(FILTER4 OR FILTER5 OR FILTER6,0,V,3,0),COLORGREEN;
STICKLINE(FILTER4 OR FILTER5 OR FILTER6,0,V,2,0),COLORGREEN;
STICKLINE(DYNAINFO(8)>0,VVOL,VVOL,10000,0),COLORWHITE;
轉(zhuǎn)載請(qǐng)注明出自股海明燈論壇 http://www./,本貼地址:http://www./thread-277953-1-1.html