源码：
a:="LTFunc4@FORLT2";
s1:="LTFunc4@LT_S1";
hs:="LTFunc4@LT_HS";
ls:="LTFunc4@LT_LS";
p1:="LTFunc4@LT_P1";
upp:="LTFunc4@LT_UPP";
udd:="LTFunc4@LT_UDD";
{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd};
d1:=ema(abs("ddx.ddx"),60);
d2:=max("ddx.ddx"/d1+7.5,7.5);
d3:=min("ddx.ddx"/d1,10);
STICKLINE(p1=1 and c>=o and o<>0,c,o,d2,0),color0000ff;
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),color0000ff;
STICKLINE(p1=1 and c>=o and o<>0,o,o,7.5,0),color0000ff;
STICKLINE(p1=1 and c>=o and o<>0,o,c,7.5,1),color0000ff;
STICKLINE(p1=1 and c<=o,o,c,7.5,0),color0000ff;
STICKLINE(p1=1 and c<=o,l,c,0.5,0),color0000ff;
STICKLINE(p1=1 and c<=o,h,o,0.5,0),color0000ff;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,o,7.5,0),color00ff00;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,h,0.5,0),color00ff00;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,l,o,0.5,0),color00ff00;
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)+'短线买入机会');
tr4:='3.能量级别:'+numtostrn(d3,1)+'级';
DRAWTEXTABS(5,10,'□明日收盘价<'+numtostrn(udd,2)+' 出现S点'),color00ffff;
DRAWTEXTABS(5,25,'□明日收盘价>'+numtostrn(upp,2)+' 出现B点'),color00ff00;
DRAWTEXTABS(5,40,'□明日收盘价<'+numtostrn(ls,2)+' 短线卖出机会'),colorffff00;
DRAWTEXTABS(5,55,'□明日收盘价>'+numtostrn(hs,2)+' 短线买入机会'),colorff00ff;
DRAWTEXTABS(5,70,'□能量级别 '+numtostrn(d3,1)+' 级'),color00ffff;
DRAWTEXTABS(5,85,'□紫◆短线买入 B点持股'),color0000ff;
DRAWTEXTABS(5,100,'□兰◆短线卖出 S点持币'),ColorFF0000;
DRAWTEXT(p1=1 and ref(p1,1)=0,l*0.995,'◆'),colorff00ff,align1;
DRAWTEXT(p1=0 and ref(p1,1)=1,h*1.01,'◆'),colorffff00,align1;
DRAWTEXT(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l*0.995,'B'),color00ffff,align1;
DRAWTEXT(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h*1.01,'S'),ColorFF0000,align1;
简化后
{股票教程网-http://91to.net承接通达信软件和公式破解，普通加密破解，完全加密破解，导入密码破解，时间限制破解，公式编写，可按您的要求写公式指标，价格按难度不同报价，有需要可以找我们}
赞赏本站
