TBS2主图

{背景}
DRAWGBK(c,'fb1'),Color2B5516;
DRAWRECTREL(130,10,430,90,rgb(0,0,255)),layer0;
{显示买卖青铜湖主图显示投资记录}
BUYPRICE:="SHOWINV@BUYPRICE"(1);
buydate:="SHOWINV@date"(1);
{DRAWTEXT(BUYPRICE> 0,BUYPRICE,'买入'+NUMTOSTR(BUYPRICE)),COLORffffff,linethick2;}
DRAWTEXTABS(140,5,'【买入价：'),COLORffffff,linethick2,layer0;
IF  BUYPRICE> 0 THEN BEGIN
DRAWTEXTABS(140,5,'         '+NUMTOSTR(BUYPRICE)+'元 '),COLORffffff,linethick2,layer0;
DRAWTEXTABS(140,5,'                 买入日期：'+NUMTOSTR(month)+'月'+NUMTOSTR(day)+'日】'), COLORwhite,LINETHICK2,layer0;
end
{主图程式}
平衡:EMA(C,20),CIRCLEDOT,COLORwhite;
上轨:平衡 + 2*STD(C,20),LINETHICK1,COLORFF00FF;
下轨:平衡 - 2*STD(C,20),LINETHICK1,COLOR00ff00;
STICKLINE((CLOSE >平衡),平衡,平衡,1,0),LINETHICK6,color0000ff;
STICKLINE((平衡 > CLOSE),平衡,平衡,1,0),LINETHICK6,colorff6600;
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR0000FF;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR0000FF;
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLORff7700;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLORff9900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLORffbb00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLORffcc00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLORffdd00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLORffee00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLORffFF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000055;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR000066;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR000077;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR000099;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000bb;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000dd;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000ff;
var9Q:=c= hhv(c,4)and (ref(c,1)>=ref(c,2) or ref(c,1)>=ref(c,3)) or ref(c,1)=hhv(c,4) and close>=ref(c,2) or ref(c,2)=hhv(c,4) and ref(c,3)=llv(c,4) and c>=ref(c,1) or ref(c,3)=hhv(c,4) and c>=ref(c,1) and c>=ref(c,2);
stickline(var9Q,c,(o+c)/2,7,0),color000055;
stickline(var9Q,c,(o+c)/2,6,0),color000066;
stickline(var9Q,c,(o+c)/2,5,0),color000077;
stickline(var9Q,c,(o+c)/2,4,0),color000099;
stickline(var9Q,c,(o+c)/2,3,0),color0000bb;
stickline(var9Q,c,(o+c)/2,2,0),color0000dd;
stickline(var9Q,c,(o+c)/2,1,0),color0000ff;
varaQ:=c=hhv(c,4) and ref(c,1)=llv(c,4);
stickline(varaQ,c,(o+c)/2,7,0),colorff11ff;
stickline(varaQ,c,(o+c)/2,6,0),colorff33ff;
stickline(varaQ,c,(o+c)/2,5,0),colorff55ff;
stickline(varaQ,c,(o+c)/2,4,0),colorff77ff;
stickline(varaQ,c,(o+c)/2,3,0),colorff99ff;
stickline(varaQ,c,(o+c)/2,2,0),colorffbbff;
stickline(varaQ,c,(o+c)/2,1,0),colorffddff;
varbQ:=c=llv(c,4) and (ref(c,1)<ref(c,2) or ref(c,1)<ref(c,3)) or ref(c,1)=llv(c,4) and c<ref(c,2) or ref(c,2)=llv(c,4) and ref(c,1)<>hhv(c,4) and c<ref(c,1) or ref(c,3)=llv(c,4) and c<ref(c,1) and c<ref(c,2);
stickline(varbQ,c,(o+c)/2,7,0),color333333;
stickline(varbQ,c,(o+c)/2,6,0),color555555;
stickline(varbQ,c,(o+c)/2,5,0),color777777;
stickline(varbQ,c,(o+c)/2,4,0),color999999;
stickline(varbQ,c,(o+c)/2,3,0),colorbbbbbb;
stickline(varbQ,c,(o+c)/2,2,0),colordddddd;
stickline(varbQ,c,(o+c)/2,1,0),colorffffff;
varcQ:=ref(c,1)=llv(c,4) and c>=ref(c,2) or ref(c,2)=llv(c,4) and ref(c,1)<=ref(c,3) and ref(c,2)<ref(c,4) and c>=ref(c,1);
stickline(varcQ,o,(o+c)/2,7,0),color003300;
stickline(varcQ,o,(o+c)/2,6,0),color005500;
stickline(varcQ,o,(o+c)/2,5,0),color007700;
stickline(varcQ,o,(o+c)/2,4,0),color009900;
stickline(varcQ,o,(o+c)/2,3,0),color00bb00;
stickline(varcQ,o,(o+c)/2,2,0),color00dd00;
stickline(varcQ,o,(o+c)/2,1,0),color00ff00;
vardQ:=ref(c,1)=hhv(c,4) and c<ref(c,2) or (ref(c,2)=hhv(c,4) and ref(c,1)>ref(c,3) or ref(c,3)=hhv(c,4) and ref(c,1)>ref(c,2)) and ref(c,2)>=ref(c,4) and c<ref(c,1);
stickline(vardQ,o,(o+c)/2,7,0),colorff1100;
stickline(vardQ,o,(o+c)/2,6,0),colorff3300;
stickline(vardQ,o,(o+c)/2,5,0),colorff5500;
stickline(vardQ,o,(o+c)/2,4,0),colorff7700;
stickline(vardQ,o,(o+c)/2,3,0),colorff9900;
stickline(vardQ,o,(o+c)/2,2,0),colorffbb00;
stickline(vardQ,o,(o+c)/2,1,0),colorffdd00;
{BS买卖点}
a:="LTFunc6@FORLT2";
s1:="LTFunc6@LT_S1";
p1:="LTFunc6@LT_P1";
drawbmp(p1=1 and ref(p1,1)=0,l,'buy1.bmp'),align1,valign0;
drawbmp(p1=0 and ref(p1,1)=1,h,'sell1.bmp'),align1,valign2;
drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,'bs.bmp'),align1,valign0;
drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2;
{MACD笑脸公式}
DIFF :=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  :=EMA(DIFF,9);
MACD :=2*(DIFF-DEA);
drawicon(ref(macd,1)=llv(macd,3),l,7),align1;
{绝卖公式}
V1:=EMA(EMA(EMA(CLOSE,8),13),55);
V2:=(REF(HIGH,1)+REF(LOW,1))/2;
V3:=MA(CLOSE,20)+2*STD(CLOSE,20);
DRAWICON(CROSS(V2,V3),HIGH*1.035,8);
DRAWTEXT(CROSS(V2,V3),HIGH*1.035,'   卖出'),COLORyellow;
V4:=REF(CLOSE,1);
V5:=SMA(MAX(CLOSE-V4,0),7,1)/SMA(ABS(CLOSE-V4),7,1)*100;
V6:=CROSS(79,V5);
V7:=FILTER(V6,4);
DRAWTEXT(V7,HIGH*1.015,'卖'),COLORffffff;
{绝密买点}
a1:=ref(c,5)<ref(O,5) and ref(c,4)<ref(O,4) and ref(c,3)<ref(O,3);
DRAWICON((a1 AND all(C>O,2)) OR (a1 AND C>O AND REF(C,1)<REF(O,1) AND REF(C,2)>REF(O,2)),L*0.965,12);
DRAWTEXT((a1 AND all(C>O,2)) OR (a1 AND C>O AND REF(C,1)<REF(O,1) AND REF(C,2)>REF(O,2)),L*0.965,'  买入'),linethick1,colorffffff;
{45度异动}
x1:=(C+L+H)/3;
bb13:=atan(ema(x1,13)-ref(ema(x1,13),1))*3.1416*10;
ema8:=ema(c,8);
DRAWTEXT(filter(bb13>1 and ema(x1,13)>ref(ema(x1,8),1),10),ema8,'∠45上升'),coloryellow,linethick2;
{背景颜色}
DRAWRECTREL(0,10,130,1000,rgb(0,0,255)),layer0;
{今日数据}
卖出:CROSS(V2,V3),LINETHICK0;
绝卖:V7,LINETHICK0;
买入:(a1 AND all(C>O,2)) OR (a1 AND C>O AND REF(C,1)<REF(O,1) AND REF(C,2)>REF(O,2)),linethick0;
上升:filter(bb13>1 and ema(x1,13)>ref(ema(x1,8),1),10),linethick0;
笑脸:ref(macd,1)=llv(macd,3),linethick0;
B点:p1=1 and ref(p1,1)=0,linethick0;
S点:p1=0 and ref(p1,1)=1,linethick0;
WW:=BARSLAST(DISPSTATUS=1);
DRAWTEXTABS(10,10,'★ ==0 表示无信号==' ),COLORyellow,linethick1,layer0;
DRAWTEXTABS(10,25,' 今  ■ 卖出: '+NUMTOSTRN(卖出,0)),COLORgreen,layer0;
DRAWTEXTABS(10,40,' 日  ■ 绝卖: '+NUMTOSTRN(绝卖,0)),COLORgreen,layer0;
DRAWTEXTABS(10,55,' 及  ■ S 点: '+NUMTOSTRN(S点,0)),COLORgreen,layer0;
DRAWTEXTABS(10,70,' 时  ■ 笑脸: '+NUMTOSTRN(笑脸,0)),COLORffffff,layer0;
DRAWTEXTABS(10,85,' 行  ■ 买入: '+NUMTOSTRN(买入,0)),COLORffffff,layer0;
DRAWTEXTABS(10,100,' 情  ■ B 点: '+NUMTOSTRN(B点,0)),COLORffffff,layer0;
DRAWTEXTABS(10,115,'★ ==1 表示有信号==' ),COLORyellow,layer0;
DRAWTEXTABS(10,135,'■上升度数: '+NUMTOSTRN(上升,0)),COLORyellow,linethick1,layer0;
DRAWTEXTABS(10,150,'【1表示超过45度】'),COLORred,linethick1,layer0;
DRAWTEXTABS(5,170,'■30天最高价:'+HHV(HIGH,30)+'元'),COLORyellow,linethick1,layer0;
DRAWTEXTABS(5,185,'■  涨幅%:'+(C-HHV(HIGH,30))/C*100+'%'),COLORred,linethick1,layer0;
DRAWTEXTABS(5,200,'■30天最低价:'+LLV(LOW,30)+'元'),COLORffffff,linethick1,layer0;
DRAWTEXTABS(5,215,'■  涨幅%:'+(C-LLV(LOW,30))/C*100+'%'),COLORred,linethick1,layer0;
DRAWTEXTABS(5,230,'■目前可见K线:'+NUMTOSTRN(WW+1,0)+'天'),COLORgreen,linethick1,layer0;
DRAWTEXTABS(150,35,'■所属板块:'+BKNAME),COLORFFFFFF,layer0;
DD:=FINANCE2(35)/10000;SS:=FINANCE2(37)/10000;
DRAWTEXTABS(150,50,'■总股本:'+NUMTOSTRN(DD,2)+'亿' +'  流通A股:'+NUMTOSTRN(SS,2)+'亿'),COLOR00FFFF,layer0;

{以下设置个股信息}
{五日涨跌:(C-REF(CLOSE,5))/C*100,ColorFF00FF,LINETHICK0;
十日涨跌:(C-REF(CLOSE,10))/C*100,LINETHICK0;
WW:=BARSLAST(DISPSTATUS=1);
低涨:(C/LLV(LOW,WW)-1)*100,COLOR0000FF,LINETHICK0,PRECIS2;
天:BARSLAST(L=LLV(LOW,WW)),COLOR00FFFF,LINETHICK0,PRECIS0;
DRAWTEXTABS(15,35,'■昨买今卖提示 K线 笑脸 B点买入 ∠45现可留 '),COLORred;
DRAWTEXTABS(15,35,'                                           粉变盘 S点卖 蓝抛灰出 '),COLORgreen;
DRAWTEXTABS(15,35,'                                                                  买入卖出出现要留意'),COLORffffff;
DRAWTEXTABS(15,50,'■所属板块:'+BKNAME),COLORFFFFFF;
DD:=FINANCE2(35)/10000;SS:=FINANCE2(37)/10000;
DRAWTEXTABS(15,65,'■总股本:'+NUMTOSTRN(DD,2)+'亿' +'  流通A股:'+NUMTOSTRN(SS,2)+'亿'),COLOR00FFFF;
DRAWTEXTABS(15,80,'■五日涨跌: '+NUMTOSTRN(ref(五日涨跌,0),2)+'%    十日涨跌: '+NUMTOSTRN(ref(十日涨跌,0),2)+'%  低点至今上涨:'+NUMTOSTRN(低涨,2)+'％  '+NUMTOSTRN(天,0)+'天'),COLORD3A9FF;
DRAWTEXTABS(15,95,'■目前可见K线:'+NUMTOSTRN(WW+1,0)+'天'),COLORffffff;
DRAWTEXTABS(15,110,'■建议查阅K线:短线30天,中长线120天!'),COLORffffff;
DRAWTEXTABS(15,125,'■30天最高价:'+HHV(HIGH,30)+'元'),Colorffffff;
DRAWTEXTABS(15,140,'■30天最低价:'+LLV(LOW,30)+'元'),Colorffffff;
DRAWTEXTABS(15,155,'■来自一品茶缘老师的设计!'),COLORgreen;};