“金银成交量”副图源码:
gspt1:=MA(VOL,5);
gspt2:=MA(VOL,40);
gspt3:=V*100/CAPITAL;
gspt4:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
gspt5:=IF(C>OPEN,gspt4*(HIGH-LOW),IF(C< OPEN,gspt4*((HIGH-OPEN)+(C-LOW)),VOL/2));
gspt6:=IF(C>OPEN,0-gspt4*((HIGH-C)+(OPEN-LOW)),IF(C< OPEN,0-gspt4*(HIGH-LOW),0-VOL/2));
gspt7:=HHV(V,90);
gspt8:=LLV(V,90);
gspt9:=gspt8+(gspt7-gspt8)*0.06;
gspt10:=gspt8+(gspt7-gspt8)*0.28;
gspt66:=gspt8+(gspt7-gspt8)*0.50;
gspt68:=gspt8+(gspt7-gspt8)*0.75;
VOLUME:VOL,VOLSTICK;
新股成交量:IF(BARSCOUNT(CLOSE)< 40,VOL,DRAWNULL),VOLSTICK;
成交量(手):VOL,COLORWHITE,NODRAW;
调整周期:IF(gspt1< gspt2,BARSLAST(CROSS(gspt2,gspt1))+1,BARSLAST(CROSS(gspt2,gspt1))-BARSLAST(CROSS(gspt1,gspt2))),NODRAW;
调整总换手:IF(gspt1< gspt2,SUM(gspt3,BARSLAST(CROSS(gspt2,gspt1))+1),SUM(gspt3,BARSLAST(CROSS(gspt2,gspt1))+1)-SUM(gspt3,BARSLAST(CROSS(gspt1,gspt2))+1)),NODRAW;
调整均换手:调整总换手/调整周期,NODRAW;
虚拟成交量:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
放量上涨:C/REF(C,1)>=1.01 AND V/REF(V,1)>=1.5 AND V>MA(V,5) AND REF(V,1)/REF(MA(V,5),1)<=1.8,NODRAW;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,虚拟成交量,0,4,-1),COLOR00C0C0;
STICKLINE(gspt5>gspt6 AND gspt1>=gspt2,VOL,0,3,0),COLOR0000AA;
STICKLINE(gspt5>gspt6 AND gspt1>=gspt2,gspt5,0,2.5,0),COLOR0000BB;
STICKLINE(gspt5>gspt6 AND gspt1>=gspt2,gspt5,0,1.5,0),COLOR0000CC;
STICKLINE(gspt5>gspt6 AND gspt1>=gspt2,gspt5,0,1,0),COLOR0000EE;
STICKLINE(gspt6< gspt5 AND gspt1>=gspt2,gspt5,gspt5+ABS(gspt6),3,0),COLOR7B7B00;
STICKLINE(gspt6< gspt5 AND gspt1>=gspt2,gspt5,gspt5+ABS(gspt6),2.5,0),COLOR909000;
STICKLINE(gspt6< gspt5 AND gspt1>=gspt2,gspt5,gspt5+ABS(gspt6),1.5,0),COLORA8A800;
STICKLINE(gspt6< gspt5 AND gspt1>=gspt2,gspt5,gspt5+ABS(gspt6),1,0),COLORCECE00;
STICKLINE(gspt5>gspt6 AND gspt1< gspt2,0,gspt5,3,0),COLORRED;
STICKLINE(gspt5>gspt6 AND gspt1< gspt2,0,gspt5,2.5,0),COLOR0066FF;
STICKLINE(gspt5>gspt6 AND gspt1< gspt2,0,gspt5,1.5,0),COLOR0099FF;
STICKLINE(gspt5>gspt6 AND gspt1< gspt2,0,gspt5,1,0),COLORYELLOW;
STICKLINE(gspt6< gspt5 AND gspt1< gspt2,gspt5,gspt5+ABS(gspt6),3,0),COLOR007B00;
STICKLINE(gspt6< gspt5 AND gspt1< gspt2,gspt5,gspt5+ABS(gspt6),2.5,0),COLOR009000;
STICKLINE(gspt6< gspt5 AND gspt1< gspt2,gspt5,gspt5+ABS(gspt6),1.5,0),COLOR00A800;
【金】:REFDATE(gspt9,DATE),COLOR00FFFF;
【银】:REFDATE(gspt10,DATE),COLORFFFFFF;
【铜】:REFDATE(gspt66,DATE),COLORLIRED;
【铁】:REFDATE(gspt68,DATE),COLORRED;
【顶】:REFDATE(HHV(V,90),DATE),COLORCYAN;