1. 千里波涛(15线谱主图):并非原创,原理就是简单的EMA均线向上或向下线性延伸(很简单粗暴,适合初学者),之所以采用了和寥廓江天主图类似的配色,是因为二者用法也是类似的:用线概括某些价格轮廓和趋势特征。周期参数PR可以调整均线谱的平滑度。
2. 江河横溢(资金盈亏副图):渐变色优化旧作2合1。当CM=1时使用传统的成交量柱状图;当CM=2时使用资金盈亏柱状图,原理是对价格重心涨跌幅作指数级降权,然后直接乘以成交量,就可以作为资金进出的一个参考指标了,可用于选股。
{千里波涛主图源码如下}
{DEF-CA}
TM:=2;
PR:=2;
TYP:=(C+H+L)/3;
VWP:=0.01*AMO/V;
TVR:=0.01*TYP/VWP;
CASK:=IF(BETWEEN(TVR,0,0.05),1,0);
VPTP:=IF(BETWEEN(TVR,0,0.05)=1,VWP,IF(BETWEEN(TVR,0.95,1.05)=1,VWP*100,TYP));
{DEF-DMAP}
DMA0:=DMA(TYP,0.2*POW(0.5,PR));
DMN1:=DMA0*0.95;
DMN2:=DMA0*0.90;
DMN3:=DMA0*0.85;
DMN4:=DMA0*0.80;
DMN5:=DMA0*0.75;
DMN6:=DMA0*0.70;
DMN7:=DMA0*0.65;
DMP1:=DMA0*1.05;
DMP2:=DMA0*1.10;
DMP3:=DMA0*1.15;
DMP4:=DMA0*1.20;
DMP5:=DMA0*1.25;
DMP6:=DMA0*1.30;
DMP7:=DMA0*1.35;
{OP-BK}
BKR:=IF(TM=1,254,12);
BKG:=IF(TM=1,255,24);
BKB:=IF(TM=1,255,36);
DRAWGBK(TM>0,RGB(BKR,BKG,BKB),RGB(BKR,BKG,BKB),0,0,0);
{OP-TX}
TMTX:=IF(TM=1,'【浅色模式】','【深色模式】');
PRTX:=STRCAT('15线谱(',STRCAT(CON2STR(PR,0),'X周期)'));
TTTX:=STRCAT(TMTX,PRTX);
DRAWTEXT_FIX(TM=1,0,0,0,TTTX),COLORC0A8A0;
DRAWTEXT_FIX(TM=2,0,0,0,TTTX),COLOR785028;
{OP-DM1}
NOTEXTM1P1:IF(TM=1,DMP1,DRAWNULL),COLORF1F1E3;
NOTEXTM1P3:IF(TM=1,DMP3,DRAWNULL),COLORF1F1E3;
NOTEXTM1P5:IF(TM=1,DMP5,DRAWNULL),COLORF1F1E3;
NOTEXTM1P7:IF(TM=1,DMP7,DRAWNULL),COLORF1F1E3;
NOTEXTM1N1:IF(TM=1,DMN1,DRAWNULL),COLORF8E3F8;
NOTEXTM1N3:IF(TM=1,DMN3,DRAWNULL),COLORF8E3F8;
NOTEXTM1N5:IF(TM=1,DMN5,DRAWNULL),COLORF8E3F8;
NOTEXTM1N7:IF(TM=1,DMN7,DRAWNULL),COLORF8E3F8;
NOTEXTM2P1:IF(TM=2,DMP1,DRAWNULL),COLOR32270B;
NOTEXTM2P3:IF(TM=2,DMP3,DRAWNULL),COLOR32270B;
NOTEXTM2P5:IF(TM=2,DMP5,DRAWNULL),COLOR32270B;
NOTEXTM2P7:IF(TM=2,DMP7,DRAWNULL),COLOR32270B;
NOTEXTM2N1:IF(TM=2,DMN1,DRAWNULL),COLOR3B1525;
NOTEXTM2N3:IF(TM=2,DMN3,DRAWNULL),COLOR3B1525;
NOTEXTM2N5:IF(TM=2,DMN5,DRAWNULL),COLOR3B1525;
NOTEXTM2N7:IF(TM=2,DMN7,DRAWNULL),COLOR3B1525;
{OP-KL1}
HZF:=100*(H/REF(C,1)-1);
DP1:=IF(CASK=1 AND HZF>=5,1,0);
DP2:=IF(CASK=0 AND HOD(HZF,240)<=60,1,0);
DPX:=SGN(DP1+DP2);
KXN:=IF(C>O OR (C=O AND C>=REF(C,1)),1,0);
STICKLINE(TM=1 AND KXN=0,H,L,0,0),COLORC0C0A0;
STICKLINE(TM=1 AND KXN=1,H,L,0,1),COLORC0A0C0;
STICKLINE(TM=1 AND KXN=0,C,O,2,0),COLORC0C0A0;
STICKLINE(TM=1 AND KXN=1,C,O,2,1),COLORC0A0C0;
STICKLINE(TM=2 AND KXN=0,H,L,0,0),COLOR604E3C;
STICKLINE(TM=2 AND KXN=1,H,L,0,1),COLOR805068;
STICKLINE(TM=2 AND KXN=0,C,O,2,0),COLOR604E3C;
STICKLINE(TM=2 AND KXN=1,C,O,2,1),COLOR805068;
{OP-DM2}
NOTEXTM1P2:IF(TM=1,DMP2,DRAWNULL),COLORD5D5AA;
NOTEXTM1P6:IF(TM=1,DMP6,DRAWNULL),COLORD5D5AA;
NOTEXTM1N2:IF(TM=1,DMN2,DRAWNULL),COLOREAAAEA;
NOTEXTM1N6:IF(TM=1,DMN6,DRAWNULL),COLOREAAAEA;
NOTEXTM2P2:IF(TM=2,DMP2,DRAWNULL),COLOR4D4508;
NOTEXTM2P6:IF(TM=2,DMP6,DRAWNULL),COLOR4D4508;
NOTEXTM2N2:IF(TM=2,DMN2,DRAWNULL),COLOR681058;
NOTEXTM2N6:IF(TM=2,DMN6,DRAWNULL),COLOR681058;
{OP-KL2}
STICKLINE(TM=1 AND KXN=0 AND DPX=1,H,L,0,0),COLOR309000;
STICKLINE(TM=1 AND KXN=1 AND DPX=1,H,L,0,1),COLOR4000C0;
STICKLINE(TM=1 AND KXN=0 AND DPX=1,C,O,2,0),COLOR309000;
STICKLINE(TM=1 AND KXN=1 AND DPX=1,C,O,2,1),COLOR4000C0;
STICKLINE(TM=2 AND KXN=0 AND DPX=1,H,L,0,0),COLOR30C000;
STICKLINE(TM=2 AND KXN=1 AND DPX=1,H,L,0,1),COLOR4000FF;
STICKLINE(TM=2 AND KXN=0 AND DPX=1,C,O,2,0),COLOR30C000;
STICKLINE(TM=2 AND KXN=1 AND DPX=1,C,O,2,1),COLOR4000FF;
{OP-DM3}
NOTEXTM1P4:IF(TM=1,DMP4,DRAWNULL),COLOR808000;
NOTEXTM1N4:IF(TM=1,DMN4,DRAWNULL),COLORC000C0;
NOTEXTM2P4:IF(TM=2,DMP4,DRAWNULL),COLORA0A000;
NOTEXTM2N4:IF(TM=2,DMN4,DRAWNULL),COLORF000F0;
{OP-DMA}
NOTEXTM1A0:IF(TM=1,DMA0,DRAWNULL),COLORFF0000;
NOTEXTM2A0:IF(TM=2,DMA0,DRAWNULL),COLORFFAA55;
{江河横溢副图源码如下}
{DEF-VL}
TM:=2;
CM:=2;
TYP:=(C+H+L)/3;
PWV:=V*POW(0.1,4);
PWA:=AMO*POW(0.1,8);
PTV:=(SQRT(TYP/REF(TYP,1))-1)*V;
STK:=IF(CM=1,PWV,PTV);
ATK:=ABS(STK);
{OP-BK}
HTK:=HHV(ATK,240);
LTK:=IF(CM=1,0,-HTK);
BKR:=IF(TM=1,254,12);
BKG:=IF(TM=1,255,24);
BKB:=IF(TM=1,255,36);
DRAWBAND(HTK,RGB(BKR,BKG,BKB),LTK,RGB(BKR,BKG,BKB));
DRAWGBK(TM>0,RGB(BKR,BKG,BKB),RGB(BKR,BKG,BKB),0,0,0);
{OP-TX}
TMTX:=IF(TM=1,'【浅色模式】','【深色模式】');
CMTX:=IF(CM=1,'成交量','量价盈亏');
TTTX:=STRCAT(TMTX,CMTX);
DRAWTEXT_FIX(TM=1,0,0,0,TTTX),COLORC0A8A0;
DRAWTEXT_FIX(TM=2,0,0,0,TTTX),COLOR785028;
总量_万手:PWV,NODRAW,COLOR00A0F0;
总额_亿元:PWA,NODRAW,COLOR00A0F0;
盈亏系数:100*PTV/HHV(V,240),NODRAW,COLORFF6699;
{OP-SK}
HK1:=IF(HOD(ATK,240)<=15,1,0);
HK2:=IF(HOD(ATK,240)<=30,1,0);
HK3:=IF(HOD(ATK,240)<=60,1,0);
STN:=IF(CM=1,IF(C>O OR (C=O AND C>=REF(C,1)),1,0),IF(STK>0,1,0));
STICKLINE(TM=1 AND STN=0,0,STK,2,0),COLORE4F0D8;
STICKLINE(TM=1 AND STN=0 AND HK3=1,0,STK,2,0),COLORCEE5C0;
STICKLINE(TM=1 AND STN=0 AND HK2=1,0,STK,2,0),COLORA4D090;
STICKLINE(TM=1 AND STN=0 AND HK1=1,0,STK,2,0),COLOR249000;
STICKLINE(TM=1 AND STN=1,0,STK,2,2-CM),COLORE8DCF4;
STICKLINE(TM=1 AND STN=1 AND HK3=1,0,STK,2,2-CM),COLORD4C4F1;
STICKLINE(TM=1 AND STN=1 AND HK2=1,0,STK,2,2-CM),COLORAD93EB;
STICKLINE(TM=1 AND STN=1 AND HK1=1,0,STK,2,2-CM),COLOR3600D8;
STICKLINE(TM=2 AND STN=0,0,STK,2,0),COLOR303018;
STICKLINE(TM=2 AND STN=0 AND HK3=1,0,STK,2,0),COLOR343D15;
STICKLINE(TM=2 AND STN=0 AND HK2=1,0,STK,2,0),COLOR3C5910;
STICKLINE(TM=2 AND STN=0 AND HK1=1,0,STK,2,0),COLOR55AA00;
STICKLINE(TM=2 AND STN=1,0,STK,2,2-CM),COLOR482448;
STICKLINE(TM=2 AND STN=1 AND HK3=1,0,STK,2,2-CM),COLOR4E205C;
STICKLINE(TM=2 AND STN=1 AND HK2=1,0,STK,2,2-CM),COLOR5B1885;
STICKLINE(TM=2 AND STN=1 AND HK1=1,0,STK,2,2-CM),COLOR8000FF;