DRAWICON(CROSS(X2,X3),L-0.1,10);
DRAWICON(CROSS(X3,X2),H+0.1,12);
stickline(x2>=x3,low,high,0.1,1),colorred;
stickline(x2>=x3,close,open,9,2),colorred;
stickline(x2>=x3,close,open,9,8);
stickline(x2<x3,low,high,0.1,1),colorGREEN;
stickline(x2<x3,close,open,9,2),colorGREEN;
stickline(CROSS(X2,X3),open,close,6,1),colorYELLOW;
stickline(CROSS(X3,X2),open,close,6,1),colorBLUE;
a:="LTFunc5@FORLT2";
s1:="LTFunc5@LT_S1";
hs:="LTFunc5@LT_HS";
ls:="LTFunc5@LT_LS";
p1:="LTFunc5@LT_P1";
upp:="LTFunc5@LT_UPP";
udd:="LTFunc5@LT_UDD";
{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd};
買入:p1=1 and ref(p1,1)=0,LineThick0,Precis0,ColorRed;
d1:=ema(abs("lxddx.ddx"),60);
d2:=max("lxddx.ddx"/d1+7.5,7.5);
d3:=min("lxddx.ddx"/d1,10);
fb:=if(s1=0,hs,ls);
tr0:=ifs(p1=1,'明日收盤價<'+numtostrn(udd,2)+',出現S點\n','若明日收盤價>'+numtostrn(upp,2)+',出現B點\n');
tr1:=ifs(s1=1,'明日收盤價<'+numtostrn(ls,2)+',短線賣出機會','若明日收盤價>'+numtostrn(hs,2)+'短線買入機會');
tr2:=ifs(p1=1,ifs(cross(p1,0),'B點','持股'),ifs(cross(1,p1),'S點','持幣'));
tr3:=ifs(s1=0,'向下,','向上,');
tr4:='3.能量級別:'+numtostrn(d3,1)+'級';
bs:='<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'買賣點決策系統提示\n'+'<*t=E7FFFF*><*c=000000*><*p=95*>'+'1.BS點:'+tr2+','+tr0+'<*t=E7FFFF*><*c=000000*><*p=95*>'+'2.短線:'+tr3+tr1+'\n'+'<*t=E7FFFF*><*c=000000*><*p=95*>'+tr4;
{drawflagtext(1,fb,bs);}
STICKLINE(p1=1 and c>=o and o<>0,c,o,d2,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,c,o,7.5,0),colorblack;
STICKLINE(p1=1 and c>=o and o<>0,c,c,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,o,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,l,c,0.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,h,o,0.5,1),color5454ff;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,o,7.5,1),colorffff54;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,h,0.5,1),colorffff54;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,l,o,0.5,1),colorffff54;
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;
HS:=vol/capital;
機構凈買:=(特單買-特單賣)*100;
機構總買:=sum(機構凈買,7);
大戶凈買:=(大單買-大單賣)*100;
大戶總買:=sum(大戶凈買,7);
中戶凈買:=(中單買-中單賣)*100;
中戶總買:=sum(中戶凈買,7);
散戶凈買:=(小單買-小單賣)*100;
散戶總買:=sum(散戶凈買,7);
主力凈買:=(主單買-主單賣)*100;
主力總買:=sum(主力凈買,7);
帳戶數:extradata('散戶線'),linethick0,PRECIS0;
戶均持股:=(FINANCE2(37)/帳戶數)*10000;
SH:=sum(散戶凈買,7);
ZH:=sum(中戶凈買,7);
DH:=sum(大戶凈買,7);
TD:=sum(機構凈買,7);
{量帳號柱}
sgl:=7;
DRAWRECTABS(90 ,30 ,150 ,40,0 ),ColorD4D4D4;
DRAWRECTABS(90 ,50 ,150 ,60,0 ),ColorD4D4D4;
DRAWRECTABS(90 ,70 ,150 ,80 ,0 ),ColorD4D4D4;
DRAWRECTABS(90 ,90,150 ,100 ,0 ),ColorD4D4D4;
DRAWTEXTABS(10 ,10 ,'分類持倉' ),colorwhite;
DRAWTEXTABS(90 ,10 ,numtostrn(sgl,0)+'日持倉' ),colorwhite;
DRAWTEXTABS(10 ,30 ,'機構持倉' ),colorwhite;
DRAWTEXTABS(10 ,50 ,'大戶持倉' ),colorwhite;
DRAWTEXTABS(10 ,70 ,'中戶持倉' ),colorwhite;
DRAWTEXTABS(10 ,90 ,'散戶持倉' ),colorwhite;
DRAWRECTABS( 90,30 ,120+ref(機構總買*10,1) ,40 ,0 ),ColorFF2E40;
DRAWRECTABS( 90,50 ,120+ref(大戶總買*10,1) ,60 ,0 ),ColorFF2E40;
DRAWRECTABS( 90,70 ,120+ref(中戶總買*10,1),80 ,0 ),ColorFF2E40;
DRAWRECTABS( 90,90,120+ref(散戶總買*10,1),100 ,0 ),ColorFF2E40;
DRAWRECTABS( 90,30 ,120+ref(機構總買*10,1)+機構凈買*10 ,40 ,rgb(255,0,0) ),colorwhite;
DRAWRECTABS( 90,50 ,120+ref(大戶總買*10,1)+大戶凈買*10 ,60 ,rgb(255,0,0) ),colorwhite;
DRAWRECTABS( 90,70 ,120+ref(中戶總買*10,1)+中戶凈買*10,80 ,rgb(255,0,0) ),colorwhite;
DRAWRECTABS( 90,90,120+ref(散戶總買*10,1)+散戶凈買*10,100 ,rgb(255,0,0) ),colorwhite;
DRAWTEXTABS(180 ,30 ,numtostrn(sgl,0)+'日增減'+numtostrn(機構總買,2)+'%' ),colorwhite;
DRAWTEXTABS(180 ,50 ,numtostrn(sgl,0)+'日增減'+numtostrn(大戶總買,2)+'%' ),colorwhite;
DRAWTEXTABS(180 ,70, numtostrn(sgl,0)+'日增減'+numtostrn(中戶總買,2)+'%' ),colorwhite;
DRAWTEXTABS(180 ,90 ,numtostrn(sgl,0)+'日增減'+numtostrn(散戶總買,2)+'%' ),colorwhite;
DRAWTEXTABS(180 ,10 ,'帳戶總數：'+numtostrn(帳戶數,0)+'戶 戶均持股：'+numtostrn(戶均持股,0)+'股'),colorwhite;
（南方財富網SOUTHMONEY.COM）