开盘价:open,colorffffff,linethick0;
收盘价:close,coloryellow,linethick0;
差额一:预测低一-low,colorffffff,LINETHICK0;
差额二:预测低二-low,colorffffff,LINETHICK0;
差比一:(差额一/low)*100,colorffffff,LINETHICK0;
差比二:(差额二/low)*100,colorffffff,LINETHICK0;
DRAWTEXTREL(10,60,' ★ 今日最低价：'+NUMTOSTRN(low,2)+'元'),coloryellow,linethick1;
DRAWTEXTREL(10,200,'预测 预测低一: '+NUMTOSTRN(ref(预测低一,0),2)+'元'+' 预测低二: '+NUMTOSTRN(ref(ggg,0),2)+'元'),colorffffff,linethick1;
DRAWTEXTREL(10,350,'目前差价 '+NUMTOSTRN(ref(差额一,0),2)+'元 '+ NUMTOSTRN(ref(差额二,0),2)+'元'),coloryellow,linethick1;
DRAWTEXTREL(10,470,'目前差比 '+NUMTOSTRN(ref(差比一,0),2)+'% '+NUMTOSTRN(ref(差比二,0),2)+'%'),coloryellow,linethick1;
DRAWTEXTREL(320,150,' ● 今日最高价：'+NUMTOSTRN(high,2)+'元'),coloryellow,linethick1;
DRAWTEXTREL(350,350,' 预测高一: '+NUMTOSTRN(ref(预测高一,0),2)+'元'),colorffffff,linethick1;
DRAWTEXTREL(350,470,' 预测高二: '+NUMTOSTRN(ref(预测高二,0),2)+'元'),colorffffff,linethick1;
{T + 0 操作数据}
pp:=0.0115;{可调整}
成本价:=预测低二*1.006;{也是买回价}
卖出价:=成本价*(1+pp);
高低差一:=预测高一-预测低二;
高低差二:=预测高二-预测低二;
差价比一:=卖出价/预测高一*100;
差价比二:=卖出价/预测高二*100;
昨日高低比:=(最高价2-最低价2)/最高价2*100;
目前高低比:=(最高价1-最低价1)/最高价1*100;
ssu1:=卖出价 预测高一 and 卖出价 预测高二;
ssu2:=卖出价 预测高一 or 卖出价 预测高二 or 差价比一 98% or 差价比二
DRAWTEXTREL(500,60,' ★ T + 0 操作数据 目前纯利设定为：'+NUMTOSTRN(ref(pp*100,0),2)+'%'),coloryellow,linethick1;
DRAWTEXTREL(530,200,' 成本价: '+NUMTOSTRN(ref(成本价,0),2)+'元'+' 卖出价: '+NUMTOSTRN(ref(卖出价,0),2)+'元'),colorffffff,linethick1;
DRAWTEXTREL(530,350,' 高低差一: '+NUMTOSTRN(ref(高低差一,0),2)+'元'+ ' 差价比一: '+NUMTOSTRN(ref(差价比一,0),2)+'%'),coloryellow,linethick1;
DRAWTEXTREL(530,470,' 高低差二: '+NUMTOSTRN(ref(高低差二,0),2)+'元'+ ' 差价比二: '+NUMTOSTRN(ref(差价比二,0),2)+'%'),coloryellow,linethick1;
DRAWTEXTREL(750,200,' 买回价: '+NUMTOSTRN(ref(ggg,0),2)+'元'),colorffffff,linethick1;
DRAWTEXTREL(750,470,' 昨日高低比: '+NUMTOSTRN(ref(昨日高低比,0),2)+'%'),colorffffff,linethick1;
DRAWTEXTREL(750,350,' 目前高低比: '+NUMTOSTRN(ref(目前高低比,0),2)+'%'),colorffffff,linethick1;
IF BARSTATUS=2 AND ssu1 THEN BEGIN
DRAWTEXTREL(530,610,'★ 设定成功'),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND ssu2 THEN BEGIN
DRAWTEXTREL(530,610,'● 设定失败'),COLORgreen,linethick1;
END
su1:=预测低二 low and 卖出价 high;
su2:=预测低二 low or 卖出价 high;
IF BARSTATUS=2 AND su1 THEN BEGIN
DRAWTEXTREL(650,610,'★ 操作成功'),COLORRED,linethick1;
END
ELSE
IF BARSTATUS=2 AND su2 THEN BEGIN
DRAWTEXTREL(650,610,'● 操作失败'),COLORgreen,linethick1;
END
顶线:=80;
顶线:=80;
{黄金点:=-20;}
预测一:=-35;
预测二:=-50;
失败:=-65;
底线:=-75;
DRAWTEXT(DISPSTATUS=2,顶线,'80'),COLORred,ALIGN0;
{DRAWTEXT(DISPSTATUS=2,黄金点,'黄金买点'),COLORffffff,ALIGN0;}
DRAWTEXT(DISPSTATUS=2,预测一,' 预测一'),COLORred,ALIGN0;
DRAWTEXT(DISPSTATUS=2,预测二,' 预测二'),COLORyellow,ALIGN0;
DRAWTEXT(DISPSTATUS=2,失败,' 未到位'),COLORgreen,ALIGN0;
DRAWTEXT(DISPSTATUS=2,底线,'-75'),COLORgreen,ALIGN0;
{DRAWTEXT(low hjmd,-20,'☆'),COLORffffff,ALIGN1;}
{DRAWTEXT(low hjmd,-20,'●'),COLORgreen,ALIGN1;}
DRAWTEXT(low 预测低一,-35,'☆'),COLORred,ALIGN1;
DRAWTEXT(low 预测低二,-50,'☆'),COLORyellow,ALIGN1;
DRAWTEXT(low 预测低二,-65,'●'),COLORgreen,ALIGN1;
{说明：红树林园 这一段源码做出来的效果是买点到位闪烁交替显示[风险]和[注意]}
Amod:=MOD(CURRENTTIME,2);
DRAWTEXT(DISPSTATUS=2 and Amod=0,50,'预测警示'),colorffffff;
DRAWTEXT(DISPSTATUS=2 and low 预测低一 and Amod=0,30,'预测一 ☆'),colorred;
DRAWTEXT(DISPSTATUS=2 and low 预测低一 and Amod=1,30,'预测一 ☆'),coloryellow;
DRAWTEXT(DISPSTATUS=2 and low 预测低二 and Amod=0,10,'预测二 ☆'),colorred;
DRAWTEXT(DISPSTATUS=2 and low 预测低二 and Amod=1,10,'预测二 ☆'),coloryellow;
{DRAWTEXT(DISPSTATUS=2 and low hjmd and Amod=0,20,'黄金买点 ☆'),colorred;}
{DRAWTEXT(DISPSTATUS=2 and low hjmd and Amod=1,20,'黄金买点 ☆'),coloryellow;}
DRAWTEXT(DISPSTATUS=2 and low 预测低一 and Amod=0,30,'预测一 ●'),colorgreen;
DRAWTEXT(DISPSTATUS=2 and low 预测低一 and Amod=1,30,'预测一 ●'),colorffffff;
DRAWTEXT(DISPSTATUS=2 and low 预测低二 and Amod=0,10,'预测二 ●'),colorgreen;
DRAWTEXT(DISPSTATUS=2 and low 预测低二 and Amod=1,10,'预测二 ●'),colorffffff;
{DRAWTEXT(DISPSTATUS=2 and low hjmd and Amod=0,20,'黄金买点 ●'),colorgreen;}
{DRAWTEXT(DISPSTATUS=2 and low hjmd and Amod=1,20,'黄金买点 ●'),colorffffff;};
