周量叠加及叠加月周分时叠加日K线

2011-03-12 10:37:00来源:本站整理浏览:155

{辅助001}
C1:CLOSE;
O1:OPEN;
H1:HIGH;
L1:LOW;
VVLA:VOL;

{叠加月周日K线}
INPUT:Z(0,0,1),Y(0,0,1),R(0,0,1);
ccc1:="辅助001.c1#week";
ooo1:="辅助001.o1#week";
hhh1:="辅助001.h1#week";
lll1:="辅助001.l1#week";
cc1:="辅助001.c1#MONTH";
oo1:="辅助001.o1#MONTH";
hh1:="辅助001.h1#MONTH";
ll1:="辅助001.l1#MONTH";
var1:=if(DAY=17 OR DAY=14 OR DAY=15 OR DAY=16,hh1,cc1);
var2:=if(DAY=17 OR DAY=14 OR DAY=15 OR DAY=16,ll1,oo1);
STICKLINE(cc1>oo1 AND Z=1,oo1,cc1,10,0),COLOReeaaEE,POINTDOT;
STICKLINE(cc1>oo1 AND Z=1,var1,var2,10,0),COLOReeaaEE,POINTDOT;
STICKLINE(oo1>=cc1 AND Z=1,cc1,oo1,10,0),Color6AA932,LINEDOT;
STICKLINE(oo1>=cc1 AND Z=1,var1,var2,10,0),Color6AA932,LINEDOT;
vvar1:=if(WEEKDAY=3,hhh1,ccc1);
vvar2:=if(WEEKDAY=3,lll1,ooo1);
STICKLINE(ccc1>=ooo1 AND Y=1,ooo1,ccc1,10,0),Color613076,LINEDOT;
STICKLINE(ccc1>=ooo1 AND Y=1,vvar1,vvar2,4,0),Color613076;
STICKLINE(ooo1>ccc1 AND Y=1,ccc1,ooo1,10,0),ColorFA7D32,LINEDOT;
STICKLINE(ooo1>ccc1 AND Y=1,vvar1,vvar2,4,0),ColorFA7D32;
Acc1:="辅助001.c1#DAY";
Aoo1:="辅助001.o1#DAY";
Ahh1:="辅助001.h1#DAY";
All1:="辅助001.l1#DAY";
Avar1:=if(MINUTE=30,Ahh1,Acc1);
Avar2:=if(MINUTE=30,All1,Aoo1);
STICKLINE(Acc1>=Aoo1 AND R=1,Aoo1,Acc1,10,0),ColorD24A92,LINEDOT;
STICKLINE(Acc1>=Aoo1 AND R=1,Avar1,Avar2,5,0),ColorD24A92;
STICKLINE(Aoo1>Acc1 AND R=1,Acc1,Aoo1,10,0),Color6AA932,LINEDOT;
STICKLINE(Aoo1>Acc1 AND R=1,Avar2,Avar1,5,0),Color6AA932;
STICKLINE(C>=O,C,O,8,0),COLOR0000AA;
STICKLINE(C>=O,C,O,6,0),COLOR0000bb ;
STICKLINE(C>=O,C,O,4,0),COLOR0000cc ;
STICKLINE(C>=O,C,O,2,0),COLOR0000ee;
STICKLINE(C>=O,H,L,0,0),COLOR0000ff;
STICKLINE(C<=O,C,O,8,0),Color7B7b00;
STICKLINE(C<=O,C,O,6,0),Color909000;
STICKLINE(C<=O,C,O,4,0),ColorA8a800;
STICKLINE(C<=O,C,O,2,0),COLORcece00;
STICKLINE(C<=O,H,L,0,0),COLORffff00;
{-------在日线叠加用--------
月 Param#1 调节显示月线;
周 Param#2 调节显示周线;
-------在分时叠加用--------
日 Param#3 调节显示日线;

{附图另一形式周量叠加及分时日量叠加}
INPUT:周(0,0,1),日(0,0,1);
Rcc1:="辅助001.c1#DAY";
Roo1:="辅助001.o1#DAY";
RRL:="辅助001.VVLA#DAY";
日量:RRL,ColorFFff00,LINETHICK0;
STICKLINE(Rcc1>Roo1 AND 日,0,日量*0.26,10,0),ColorD24A92,LINEDOT;
STICKLINE(Rcc1<=Roo1 AND 日,0,日量*0.26,10,0),Color6AA932,LINEDOT;
ccc1:="辅助001.c1#week";
ooo1:="辅助001.o1#week";
ZZL:="辅助001.VVLA#week";
周量:ZZL,ColorFFff00,LINETHICK0;
STICKLINE(ccc1>ooo1 AND 周,0,周量*0.45,10,0),Color613076,LINEDOT;
STICKLINE(ccc1<=ooo1 AND 周,0,周量*0.45,10,0),ColorFA7D32,LINEDOT;
量:VOL,VOLSTICK;
HSL:=VOL/CAPITAL*100;
地量0_1:STICKLINE(HSL<1,0,量,0.1,0 ),coloreeeeee;
STICKLINE(HSL<1,0,量,5,0 ),colordddddd;
STICKLINE(HSL<1,0,量,3,0 ),coloreeeeee;
STICKLINE(HSL<1,0,量,1,0 ),colorffffff;
低靡1_2:STICKLINE(HSL>=1 and HSL<2,0,量,0.1,0 ),colordddd00;
STICKLINE(HSL>=1 and HSL<2,0,量,5,0 ),coloraaaa00;
STICKLINE(HSL>=1 and HSL<2,0,量,3,0 ),colorcccc00;
STICKLINE(HSL>=1 and HSL<2,0,量,1,0 ),colordddd00;
温和2_3:STICKLINE(HSL>=2 and HSL<3,0,量,0.1,0 ),Color0080cc;
STICKLINE(HSL>=2 and HSL<3,0,量,5,0 ),Color0040cc;
STICKLINE(HSL>=2 and HSL<3,0,量,3,0 ),Color0060dd;
STICKLINE(HSL>=2 and HSL<3,0,量,1,0 ),Color0080ee;
活跃3_5:STICKLINE(HSL>=3 and HSL<5,0,量,0.1,0 ),color00dddd;
STICKLINE(HSL>=3 and HSL<5,0,量,5,0 ),color00aaaa;
STICKLINE(HSL>=3 and HSL<5,0,量,3,0 ),color00cccc;
STICKLINE(HSL>=3 and HSL<5,0,量,1,0 ),color00dddd;
带量5_8:STICKLINE(HSL>=5 and HSL<8,0,量,0.1,0 ),colordd00dd;
STICKLINE(HSL>=5 and HSL<8,0,量,5,0 ),coloraa00aa;
STICKLINE(HSL>=5 and HSL<8,0,量,3,0 ),colorcc00cc;
STICKLINE(HSL>=5 and HSL<8,0,量,1,0 ),colordd00dd;
放量5_15:STICKLINE(HSL>=8 and HSL<15,0,量,0.1,0 ),Color0000dd;
STICKLINE(HSL>=8 and HSL<15,0,量,5,0 ),Color0000aa;
sTICKLINE(HSL>=8 and HSL<15,0,量,3,0 ),Color0000cc;
sTICKLINE(HSL>=8 and HSL<15,0,量,1,0 ),Color0000dd;
巨量15_25:STICKLINE(HSL>=15 and HSL<25,0,量,0.01,0 ),ColorF46C39;
STICKLINE(HSL>=15 and HSL<25,0,量,5,0 ),colorbb0000;
STICKLINE(HSL>=15 and HSL<25,0,量,3,0 ),colordd0000;
STICKLINE(HSL>=15 and HSL<25,0,量,1,0 ),coloree0000;
怪异25_:STICKLINE(HSL>=25,0,量,0.1,0),color00dd00;
MA3:MA(量,5),COLORFFffff,linethick1;
MAd:MA(量,13),COLOR00ffff,linethick1;
MA90:MA(量,135),color00ff00;
{添加到参数精灵
-------在日线叠加用--------
周 Param#1 调节显示周量;
-------在分时叠加用--------
日 Param#2 调节显示日量;

大智慧源码：
先做个引入公式
{辅助001}
C1:CLOSE;
O1:OPEN;
H1:HIGH;
L1:LOW;
VVLA:VOL;
{成交量}
input:周(0,0,1),n(35),na(5),nb(135);
ccc1:="辅助001.c1#week";
ooo1:="辅助001.o1#week";
ZZL:="辅助001.VVLA#week";
周量:ZZL,ColorFFff00,LINETHICK0;
STICKLINE(ccc1>ooo1 AND 周,0,周量*0.45,10,0),Color613076,DOTLINE;
STICKLINE(ccc1<=ooo1 AND 周,0,周量*0.45,10,0),ColorFA7D32,DOTLINE;
量:IF(C>200,VOL/1000000,VOL/1),linethick0;
换手率:VOL/CAPITAL*100,linethick0,colorffff00;
HSL:=VOL/CAPITAL*100;
地量0_1:STICKLINE(HSL<1,0,量,0.1,0 ),coloreeeeEE;
STICKLINE(HSL<1,0,量,5,0 ),coloraaaaAA;
STICKLINE(HSL<1,0,量,3,0 ),colorccccCC;
STICKLINE(HSL<1,0,量,1,0 ),coloreeeeEE;
低靡1_2:STICKLINE(HSL>=1 and HSL<2,0,量,0.1,0 ),coloreeee00;
STICKLINE(HSL>=1 and HSL<2,0,量,5,0 ),coloraaaa00;
STICKLINE(HSL>=1 and HSL<2,0,量,3,0 ),colorcccc00;
STICKLINE(HSL>=1 and HSL<2,0,量,1,0 ),coloreeee00;
温和2_3:STICKLINE(HSL>=2 and HSL<3,0,量,0.1,0 ),color208eee;
STICKLINE(HSL>=2 and HSL<3,0,量,5,0 ),color208aaa;
STICKLINE(HSL>=2 and HSL<3,0,量,3,0 ),color208ccc;
STICKLINE(HSL>=2 and HSL<3,0,量,1,0 ),color208eee;
活跃3_5:STICKLINE(HSL>=3 and HSL<5,0,量,0.1,0 ),color00eeee;
STICKLINE(HSL>=3 and HSL<5,0,量,5,0 ),color00aaaa;
STICKLINE(HSL>=3 and HSL<5,0,量,3,0 ),color00cccc;
STICKLINE(HSL>=3 and HSL<5,0,量,1,0 ),color00eeee;
带量5_8:STICKLINE(HSL>=5 and HSL<8,0,量,0.1,0 ),coloree00ee;
STICKLINE(HSL>=5 and HSL<8,0,量,5,0 ),coloraa00aa;
STICKLINE(HSL>=5 and HSL<8,0,量,3,0 ),colorcc00cc;
STICKLINE(HSL>=5 and HSL<8,0,量,1,0 ),coloree00ee;
放量8_15:STICKLINE(HSL>=8 and HSL<15,0,量,0.1,0 ),color00ee00;
STICKLINE(HSL>=8 and HSL<15,0,量,5,0 ),color00aa00;
sTICKLINE(HSL>=8 and HSL<15,0,量,3,0 ),color00cc00;
sTICKLINE(HSL>=8 and HSL<15,0,量,1,0 ),color00ee00;
巨量15_25:STICKLINE(HSL>=15 and HSL<25,0,量,0.01,0 ),coloree0000;
STICKLINE(HSL>=15 and HSL<25,0,量,5,0 ),coloraa0000;
STICKLINE(HSL>=15 and HSL<25,0,量,3,0 ),colorcc0000;
STICKLINE(HSL>=15 and HSL<25,0,量,1,0 ),coloree0000;
怪异:STICKLINE(HSL=25,0,量,1,0),colorff6600;
STICKLINE(HSL>=25,0,量,5,1),colorff6600;
MA3:MA(量,n),COLOR00ffff,linethick1;
MAd:MA(量,na),COLORffffff,linethick1;
MA90:MA(量,nb),colorff00dd;
DRAWTEXT(BARSTATUS=2 AND MAd>REF(MAd,1),MAd,NUMTOSTRN(na,0)+'日↑'),COLORffffff;
DRAWTEXT(BARSTATUS=2 AND MAd<REF(MAd,1),MAd,NUMTOSTRN(na,0)+'日↓'),Colorffffff;
DRAWTEXT(BARSTATUS=2 AND MAd=REF(MAd,1),MAd,NUMTOSTRN(na,0)+'日='),COLORffffff;
DRAWTEXT(BARSTATUS=2 AND MA3>REF(MA3,1),MA3,' '+NUMTOSTRN(n,0)+'日↑'),COLOR00ffff;
DRAWTEXT(BARSTATUS=2 AND MA3<REF(MA3,1),MA3,' '+NUMTOSTRN(n,0)+'日↓'),Color00ffff;
DRAWTEXT(BARSTATUS=2 AND MA3=REF(MA3,1),MA3,' '+NUMTOSTRN(n,0)+'日='),COLOR00ffff;
DRAWTEXT(BARSTATUS=2 AND Ma90>REF(Ma90,1),Ma90,NUMTOSTRN(nb,0)+'日↑'),COLORff00ff;
DRAWTEXT(BARSTATUS=2 AND Ma90<REF(Ma90,1),Ma90,NUMTOSTRN(nb,0)+'日↓'),Colorff00ff;
DRAWTEXT(BARSTATUS=2 AND Ma90=REF(Ma90,1),Ma90,NUMTOSTRN(nb,0)+'日='),COLORff00ff;
DRAWTEXTABS(2,8,'【放量下跌要减仓，缩量新低是底象。增量回升是关键，回头确认要进场。】'+''),Color00FF00;
DRAWTEXTABS(2,22,'【新量新价有新高，缩量回调不必逃。一根巨量要警惕，有价无量必须跑。】'+''),Color208fff;
DRAWFLAGTEXT(HSL<=1,量,'绝对地量：HSL<=1。');
DRAWFLAGTEXT(HSL>2 AND HSL<3,量,'该股成交温和：2%-3%，属于备份股。');
DRAWFLAGTEXT(HSL>1 AND HSL<2,量,'该股股成交低靡：1%-2%，属于冷门。');
DRAWFLAGTEXT(HSL>3 AND HSL<5,量,'该股成交活跃：3%-5%，人们购买该股票的意愿高，属于热门股。');
DRAWFLAGTEXT(HSL>5 AND HSL<8,量,'该股初步带量：5%-8%！');
DRAWFLAGTEXT(HSL>=25,量,'该股票成交怪异：HSL>=25！');
DRAWFLAGTEXT(HSL>15 AND HSL<25,量,'已放巨量：15%-25%！');
{添加到参数精灵
-------调整叠加周量--------
周 Param#1 调节周显示周量;
-------调整均价量--------
N Param#2 调节任意均价量;
NA Param#3 调节任意均价量;
NB Param#4 调节任意均价量;}

{主图}
{叠加月周K线}
INPUT:Y(1,0,1),Z(0,0,1);
ccc1:="辅助001.c1#week";
ooo1:="辅助001.o1#week";
hhh1:="辅助001.h1#week";
lll1:="辅助001.l1#week";
cc1:="辅助001.c1#MONTH";
oo1:="辅助001.o1#MONTH";
hh1:="辅助001.h1#MONTH";
ll1:="辅助001.l1#MONTH";
var1:=if(DAY=17 OR DAY=14 OR DAY=15 OR DAY=16,hh1,cc1);
var2:=if(DAY=17 OR DAY=14 OR DAY=15 OR DAY=16,ll1,oo1);
STICKLINE(cc1>oo1 AND Z=1,oo1,cc1,10,0),COLOReeaaEE,POINTDOT;
STICKLINE(cc1>oo1 AND Z=1,var1,var2,10,0),COLOReeaaEE,DOTLINE;
STICKLINE(oo1>=cc1 AND Z=1,cc1,oo1,10,0),Color6AA932,DOTLINE;
STICKLINE(oo1>=cc1 AND Z=1,var1,var2,10,0),Color6AA932,DOTLINE;
vvar1:=if(WEEKDAY=3,hhh1,ccc1);
vvar2:=if(WEEKDAY=3,lll1,ooo1);
STICKLINE(ccc1>=ooo1 AND Y=1,ooo1,ccc1,10,0),Color613076,DOTLINE;
STICKLINE(ccc1>=ooo1 AND Y=1,vvar1,vvar2,3,0),Color613076;
STICKLINE(ooo1>ccc1 AND Y=1,ccc1,ooo1,10,0),ColorFA7D32,DOTLINE;
STICKLINE(ooo1>ccc1 AND Y=1,vvar1,vvar2,3,0),ColorFA7D32;
STICKLINE(C>=O,C,O,8,0),COLOR0000AA;
STICKLINE(C>=O,C,O,6,0),COLOR0000bb ;
STICKLINE(C>=O,C,O,4,0),COLOR0000cc ;
STICKLINE(C>=O,C,O,2,0),COLOR0000ee;
STICKLINE(C>=O,H,L,0,0),COLOR0000ff;
STICKLINE(C<=O,C,O,8,0),Color7B7b00;
STICKLINE(C<=O,C,O,6,0),Color909000;
STICKLINE(C<=O,C,O,4,0),ColorA8a800;
STICKLINE(C<=O,C,O,2,0),COLORcece00;
STICKLINE(C<=O,H,L,0,0),COLORffff00;
{添加到参数精灵
-------调整月周--------
周 Param#1 调节Z显示月线;
月 Param#2 调节Y显示周线;}