0001--主图显示代码及板块
一、显示板块
例一:
DRAWTEXT(BARPOS=SYSPARAM(2),H,'\\N
所
属
板
块:'+BLKNAME),ALIGN4,COLORYELLOW;
例二:
DRAWTEXT(SYSPARAM(2)=BARPOS,C,'
所
属
板
块:'+BLKNAME),ALIGN4,COLORYELLOW;
例三:
DRAWTEXT(SYSPARAM(2)=BARSCOUNT(C),H,'[块]:'+BLKNAME),ALIGN4,COLORYELLOW;
二、显示代码及板块
S:=STKLABEL;
DRAWTEXT(SYSPARAM(2)=BARPOS,C,S),ALIGN4,COLORYELLOW; DRAWTEXT(BARPOS=SYSPARAM(2),H,'\\N 所属板块:'+BLKNAME),ALIGN4,COLORYELLOW;{N与所属板块之间空六格,以显示代码}
------------------------------------------------------------------------------- 0002--主图显示成交量
前四例可实际使用,后三例的思路不错,但量柱过高,部分遮住K线,有待完善。
例一:
BB:=HHV(VOL,SYSPARAM(3)-SYSPARAM(2)); HH:=SYSPARAM(4); LL:=SYSPARAM(5);
TT:=IF(HH-LL<=2.5,0.25,IF(HH-LL<=5,0.8,IF(HH-LL<=10,2,IF(HH-LL<=20,3,IF(HH-LL<=31,4,IF(HH-LL<=41,5,IF(HH-LL<=50,6,IF(HH-LL<=60,7,IF(HH-LL<=70,8,IF(HH-LL<=80,9,1))))))))));
MA(V/BB*0.9*TT+LL,5)-0.04;
MA(V/BB*0.9*TT+LL,10)-0.04; MA(V/BB*0.9*TT+LL,34)-0.04;
STICKLINE(C>=REF(C,1),V/BB*0.9*TT+LL-0.04,LL-0.04,4,1)COLOR9090EE;
所
属
版
STICKLINE(C< REF(C,1 ),V/BB*0.9*TT+LL-0.04,LL-0.04,4,1)COLORBLUE;
STICKLINE(C>=O,C,O,8,0),COLOR0055AA; STICKLINE(C<=O,C,O,8,0),COLOR006600; STICKLINE(C>=O,C,O,5,0),COLOR0077CC;
STICKLINE(C>=O,C,O,3,0),COLOR0099DD; STICKLINE(C>=O,H,L,0,0),COLOR00BBFF; STICKLINE(C<=O,C,O,5,0),COLOR009900; STICKLINE(C<=O,C,O,3,0),COLOR00BB00; STICKLINE(C<=O,H,L,0,0),COLOR00EE00
例二:
BB:=HHV(VOL,SYSPARAM(3)-SYSPARAM(2)); HH:=SYSPARAM(4); LL:=SYSPARAM(5);
TT:=IF(HH-LL<4,0.5,1);
STICKLINE(C>=REF(C,1),VOL/BB*0.8*TT+LL,LL,4,1)COLOR9090EE; STICKLINE(C< REF(C,1 ),VOL/BB*0.8*TT+LL,LL,4,1)COLORBLUE;
STICKLINE(C>=O,C,O,8,0),COLOR0055AA;
STICKLINE(C<=O,C,O,8,0),COLOR006600; STICKLINE(C>=O,C,O,5,0),COLOR0077CC; STICKLINE(C>=O,C,L,3,0),COLOR0099DD; STICKLINE(C>=O,H,L,0,0),COLOR00BBFF;
STICKLINE(C<=O,C,O,5,0),COLOR009900; STICKLINE(C<=O,C,O,3,0),COLOR00BB00; STICKLINE(C<=O,H,L,0,0),COLOR00EE00
例三:
A1:=VOL;
A2:=VOL/CAPITAL*100/15; A3:=SYSPARAM(5);
A4:=A3-0.3;
STICKLINE(C>0 AND C>REF(C,1),A4,A4+A2,7,1),COLORRED; STICKLINE(C>0 AND C<=REF(C,1),A4,A4+A2,7,0),COLORCCFF99;
DRAWNUMBER(SYSPARAM(1)=BARPOS AND C>0,A4,A1,1),COLOR00FFFF; DRAWTEXT(SYSPARAM(1)=BARPOS,A4,'成交量:'),COLOR00FFFF,ALIGN2;
{A2中的15可调;A4中的0.3可调}
例四:
可以调节量柱的高度,不会覆盖K线。使用时,请打开光标。注意,在“管理→系统选项→图形→主图坐标仅随K线变动”处不要打钩。亦显示换手率的数值。
A1:=VOL/CAPITAL*100/15; A2:=SYSPARAM(5); A3:=A2-0.3;
STICKLINE(C>=O,A3,A3+A1,7,1),COLORRED; STICKLINE(C< O,A3,A3+A1,7,0),COLORCCFF99; 换:VOL/CAPITAL*100,LINETHICK0,COLORRED;
例五:
STICKLINE(C>REF(C,1),VOL*0.00001+SYSPARAM(5),SYSPARAM(5),8,1)COLORRED; STICKLINE(C< REF(C,1),VOL*0.00001+SYSPARAM(5),SYSPARAM(5),8,0)COLORCYAN;
VMA5:MA(VOL*0.00001+SYSPARAM(5),5); VMA15:MA(VOL*0.00001+SYSPARAM(5),15);
{可通过修改“V*0.00001”中的“0.00001”进行优化}
例六:
STICKLINE(C>REF(C,1)AND C<10,VOL*0.000001+SYSPARAM(5),SYSPARAM(5),8,1)COLORRED; STICKLINE(C<
C<10,VOL*0.000001+SYSPARAM(5),SYSPARAM(5),8,0)COLORCYAN;
{主图一般用百分比坐标,加限定不是好的解决办法}
例七:
MA5:MA(C,P1); { P1:5 P2:10 P3:20 P4:30 N:0.6 M:1} MA10:MA(C,P2); MA20:MA(C,P3); MA30:MA(C,P4);
现价: DYNAINFO(7),COLORWHITE,LINETHICK1 POINTDOT;
STICKLINE(C>O,O,C,7,0),COLORRED; STICKLINE(C>O,O,C,2,0),COLORB0B0FF; STICKLINE(C>O,O,C,1,0),COLORYELLOW; STICKLINE(C>O,L,H,0.1,0),COLORYELLOW; STICKLINE(C< O,O,C,7,0),COLORFF2020;
REF(C,1)AND
STICKLINE(C< O,O,C,4,0),COLORFF6600;
STICKLINE(C< O,O,C,2,0),COLORCYAN; STICKLINE(C< O,L,H,0.1,0),COLORCYAN;
STICKLINE(C=O AND C>=REF(C,1),O,C,7,0),COLORRED; STICKLINE(C=O AND C>=REF(C,1),O,C,4,0),COLORB0B0FF;
STICKLINE(C=O AND C>=REF(C,1),O,C,2,0),COLORYELLOW; STICKLINE(C=O AND C>=REF(C,1),L,H,0.1,0),COLORYELLOW; STICKLINE(C=O AND C< REF(C,1),O,C,7,0),COLORFF2020; STICKLINE(C=O AND C< REF(C,1),O,C,4,0),COLORFF6600; STICKLINE(C=O AND C< REF(C,1),O,C,2,0),COLORCYAN; STICKLINE(C=O AND C< REF(C,1),L,H,0.1,0),COLORCYAN;
YYTTGG:=BARSCOUNT(HHV(V,0));
BB:=HHV(VOL,SYSPARAM(3)-SYSPARAM(2));//画面中的最大成交量 LL:=SYSPARAM(5);//主图可见K线最低价
STICKLINE(C>=REF(C,1),VOL/BB+LL*M,LL*M,8,1)COLOR50CCEE; STICKLINE(C< REF(C,1),VOL/BB+LL*M,LL*M,8,0)COLORBLUE; ------------------------------------------------------------------------------- 0003--预测全天成交量、换手率
例一:
根据分时成交量预测
IF(OPENMINUTES(CURRENTTIME)=1,V,(V/OPENMINUTES(CURRENTTIME))*240);
例二:
预
测
量
:STICKLINE(DYNAINFO(7)=CLOSE
AND
DYNAINFO(10)=AMOUNT,VOL,MAX(VOL,DYNAINFO(17)*REF(MA(VOL,5),1)),7,1),COLORGREEN;
例三:
STICKLINE(DYNAINFO(7)=C AND DYNAINFO(10)=AMOUNT,DYNAINFO(17)*REF(MA(VOL,5),1),0,4,1);
DRAWTEXT(DYNAINFO(7)=C AND DYNAINFO(10)=AMOUNT,V,'←实际V'),COLORRED;
例四:
预换手%:MAX(VOL,DYNAINFO(17)*REF(MA(VOL,5),1))/CAPITAL*100,COLORFFFF00; -------------------------------------------------------------------------------
0004--收盘线(主图)
IF(DYNAINFO(7)>0,DYNAINFO(7),MA(C,3));
------------------------------------------------------------------------------- 0005--时间周期线示例(主图叠加)
INPUT:N(5,5,100);//参数定义 ZIG(1,N);//高点
FF:=PEAKBARS(1,N,1);
FF:=IF(FF<6,PEAKBARS(1,N,2),FF); BARST:=SYSPARAM(1);
VARIABLE:ZQ[序列数据量/2]:=1.236; ZQ[2]:=1.309; ZQ[3]:=1382; ZQ[4]:=1.5; ZQ[5]:=1.618; ZQ[6]:=1.746; ZQ[7]:=2; ZQ[8]:=2.618; ZQ[9]:=3; ZQ[10]:=3.236;
ZQ[11]:=4.236;
ZQ[12]:=5.236;//周期线间隔比例,可另行定义
TJ:=FF[BARST]=BARST-BARPOS;
FOR I=1 TO 12 DO TJ:=TJ OR BARPOS-BARST=ROUND((ZQ-1)*FF[BARST]+0.5); VERTLINE(TJ),POINTDOT,COLORMAGENTA;
必须打开十字光标才可以正常使用。自动寻找高点,可另加参数,改成高低点两用。
公式含义:当K线与高点的时间间隔为十字光标与高点的时间间隔的等于指定比例时,显示竖线。即所谓的时间预测,如果您有好的测试方法,可以仿此代码编制。
这段代码,进行适当的改造,可以向未来延伸,有兴趣的可以自行研究(提示:使用SHIFT函数)。 ------------------------------------------------------------------------------- 0006--BACKSET()函数的高级用法
问题:如何在最后一根K线的前第6天,作上标记?
1、先建立一个名为BACKSET-TEST的公式,代码如下:
ISLASTBAR{该周期是否最后一个周期。最后一个周期返回值为1,其余为0}
观察指标线的图形,正如注释所述,最后一天显示为1,这个1我们可理解为信号(条