软件名称:[B]金砖看盘[/B]
软件类型:国产软件
运行环境:Win9X/Win2000/WinXP/Win2003/Win7/
软件语言:简体中文
授权方式:免费版
软件大小:26.0 KB
官方主页:Home Page
更新时间:2017-04-08 01:06:10
软件简介:
{【金砖看盘】3821均线+薛丝通道理论}
K:=0;
DRAWRECTREL(5,100,235,1000,rgb(0,0,255)),layer0,colorffffff,LINETHICK1;
DRAWRECTREL(245,200,340+k,1000,rgb(0,0,255)),layer0,colorffffff,LINETHICK1;
DRAWRECTREL(350+K,200,480+K,1000,rgb(0,0,255)),layer0,colorffffff,LINETHICK1;
DRAWRECTREL(490+K,200,620+K,1000,rgb(0,0,255)),layer0,colorffffff,LINETHICK1;
DRAWRECTREL(630+K,200,740+K,1000,rgb(0,0,255)),layer0,colorffffff,LINETHICK1;
DRAWRECTREL(750+K,200,860+K,1000,rgb(0,0,255)),layer0,colorffffff,LINETHICK1;
DRAWRECTREL(870+K,200,990+K,1000,rgb(0,0,255)),layer0,colorffffff,LINETHICK1;
{引用 自定义}
买入日期:=selfstring('买入日期');
买入价:=SELFDATA('买入价');
{引用 昨买今卖}
预测低一:="昨买今卖.预测低一";
预测低二:="昨买今卖.预测低二";
C1:=REF(C,1);
L1:=REF(L,1);
{MACD优化----大智慧L2版本}
DIFF:= EMA(CLOSE,12) - EMA(CLOSE,26);
DEA := EMA(DIFF,9);
MACD:= 2*(DIFF-DEA);
主升:= DIFF>0 AND DIFF>DEA;
{3 8 21 均线}
MA3:=MA(CLOSE,3);
MA8:=MA(CLOSE,8);
MA21:=MA(CLOSE,21);
三线红:=MA3>REF(MA3,1) AND MA8>REF(MA8,1) AND MA21>REF(MA21,1);
三线上:=MA3>MA8 AND MA8>MA21
AND MA3>REF(MA3,1) AND MA8>REF(MA8,1) AND MA21>REF(MA21,1) ;
回调线:=MA3<REF(MA3,1) AND MA8>REF(MA8,1) AND MA21>REF(MA21,1);
{卖出提示}
获利:=C-买入价;
百分比:=(C-买入价)/买入价*100;
DRAWTEXTREL(15,216,' 日期:'+买入日期),COLORFFFFFF,linethick2,layer0;
DRAWTEXTREL(15,420,' 买入价: '),COLORFFFFFF,linethick2,layer0;
DRAWTEXTREL(15,420,' '+NUMTOSTRN(买入价,2)+' 元'),COLORFFFFFF,linethick2,layer0;
DRAWTEXTREL(15,620,' 获 利: '),COLORGREEN,linethick2,layer0;
DRAWTEXTREL(15,620,' '+NUMTOSTRN(获利,2)+' 元'),COLORGREEN,linethick2,layer0;
DRAWTEXTREL(15,820,' 百分比: '),COLORGREEN,linethick2,layer0;
DRAWTEXTREL(15,820,' '+NUMTOSTRN(百分比,2)+' %'),COLORGREEN,linethick2,layer0;
HL1:=IFS(获利>0,NUMTOSTRN(获利,2),'');
HL2:=IFS(百分比>0,NUMTOSTRN(百分比,2),'');
DRAWTEXTREL(15,620,' '+HL1),COLORRED,linethick2,layer0;
DRAWTEXTREL(15,820,' '+HL2),COLORRED,linethick2,layer0;
持股:=MACD>REF(MACD,1) AND MA3>MA8 AND MA21>REF(MA21,1);
卖出:=MACD<REF(MACD,1) OR MA3<MA8 OR MA21<REF(MA21,1);
IF BARSTATUS=2 AND 持股 THEN BEGIN
DRAWRECTREL(150,420,225,950,rgb(255,0,0)),layer0,colorffffff,LINETHICK1;
DRAWTEXTREL(165,580,'持股'),COLORFFFFFF,linethick5,layer0;
END
ELSE
IF BARSTATUS=2 AND 卖出 THEN BEGIN
DRAWRECTREL(150,420,225,950,rgb(47,79,79)),layer0,color00FF00,LINETHICK1;
DRAWTEXTREL(165,580,'卖出'),COLORFFFFFF,linethick5,layer0;
END
{昨日趋势}
DRAWTEXTREL(245+K,250,' 昨今趋势 预测股价 今日行情 今日买入价 明日买入价 预测提示'),layer0,colorffffff,LINETHICK2;
{预测股价}
DRAWTEXTREL(360+K,420,'预测低二: '+NUMTOSTRN(预测低二,2)),COLOR00FF00,layer0,LINETHICK2;
DRAWTEXTREL(360+K,620,'预测低一: '+NUMTOSTRN(预测低一,2)),COLOR00FF00,layer0,LINETHICK2;
YC1:=IFS(预测低二>=L,NUMTOSTRN(预测低二,2),'');
YC2:=IFS(预测低一>=L,NUMTOSTRN(预测低一,2),'');
DRAWTEXTREL(363+K,420,' '+YC1),COLORRED,linethick2,layer0;
DRAWTEXTREL(363+K,620,' '+YC2),COLORRED,linethick2,layer0;
{今日行情}
DRAWTEXTREL(510+K,620,'现 价: '+NUMTOSTRN(C,2)),COLOR00FFFF,layer0,LINETHICK2;
DRAWTEXTREL(510+K,820,'最高价: '+NUMTOSTRN(H,2)),COLOR00FFFF,layer0,LINETHICK2;
{显示金砖 蓝砖 DPPD提供薛丝通道公式}
XSVAR2:=CLOSE*VOL;
XSVAR3:=EMA((EMA(XSVAR2,3)/EMA(VOL,3)+EMA(XSVAR2,6)/EMA(VOL,6)+EMA(XSVAR2,12)/EMA(VOL,12)+EMA(XSVAR2,24)/EMA(VOL,24))/4,13);
XSVAR4:=EMA(CLOSE,9);
SUP:=1.06*XSVAR3;{强势上升}
SUP1:=REF(SUP,1);
SUP2:=REF(SUP,2);
HUP:=EMA(XSVAR4*1.14,5);{顶部高位}
金砖:=SUP>SUP1 AND C>SUP;
蓝砖:=SUP>SUP1 AND C<SUP;
金砖1:=SUP1>SUP2 AND C1>SUP1;
蓝砖1:=SUP1>SUP2 AND C1<SUP1;
IF BARSTATUS=2 AND 金砖 THEN BEGIN
DRAWTEXTREL(265+K,500,' ■'),COLOR00FFFF,layer0,LINETHICK3;
END
ELSE
IF BARSTATUS=2 AND 蓝砖 THEN BEGIN
DRAWTEXTREL(265+K,500,' ■'),COLOR00FF00,layer0,LINETHICK3;
END
IF BARSTATUS=2 AND 金砖1 THEN BEGIN
DRAWTEXTREL(245+K,500,' ■'),COLOR00FFFF,layer0,LINETHICK3;
END
ELSE
IF BARSTATUS=2 AND 蓝砖1 THEN BEGIN
DRAWTEXTREL(245+K,500,' ■'),COLOR00FF00,layer0,LINETHICK3;
END
{显示红砖 起涨}
JZVAR1:=(CLOSE+HIGH+LOW)/(3);
JZVAR2:=EMA(JZVAR1,10);
DRAWTEXTREL(700,5,' ● 支撑:'+NUMTOSTRN(JZVAR2,2)),COLOR00FFFF,layer0,LINETHICK2;
ZC1:=IFS(JZVAR2>=L,NUMTOSTRN(JZVAR2,2),'');
DRAWTEXTREL(704,5,' '+ZC1),COLOR00FF00,linethick2,layer0;
{天数:barslast(CROSS(JZVAR2,REF(JZVAR2,1))),linethick0;}{计算上涨天数};
红砖:=JZVAR2>REF(JZVAR2,1);
红砖1:=REF(JZVAR2,1)>REF(JZVAR2,2);
起涨1:=红砖>0 AND 红砖1>0;
起涨2:=红砖>0 AND 红砖1<0;
起涨3:=红砖<0 AND 红砖1>0;
IF BARSTATUS=2 AND 起涨1 THEN BEGIN
DRAWTEXTREL(265+K,750,' ■'),COLORRED,layer0,LINETHICK3;
DRAWTEXTREL(245+K,750,' ■'),COLORRED,layer0,LINETHICK3;
END
ELSE
IF BARSTATUS=2 AND 起涨2 THEN BEGIN
DRAWTEXTREL(265+K,750,' ■'),COLORRED,layer0,LINETHICK3;
END
ELSE
IF BARSTATUS=2 AND 起涨3 THEN BEGIN
DRAWTEXTREL(265+K,750,' ■'),COLORRED,layer0,LINETHICK3;
END
{强势股买入信号}
MR1:=(C1<SUP1 AND 金砖>0 AND 红砖>0 AND 三线上>0)
OR (蓝砖1>0 AND 金砖>0 AND 红砖>0 AND 三线上>0)
OR (金砖>0 AND 三线上);{强买信号}
MR2:=(C1<SUP1 AND 蓝砖>0 AND 红砖>0 AND 三线红>0 )
OR (蓝砖>0 AND 红砖>0 AND MA21>REF(MA21,1) AND REF(MA21,1)<REF(MA21,2))
OR (C1<SUP1 AND 蓝砖>0 AND 红砖>0);{起涨信号}
MR3:=金砖1>0 AND 金砖>0 AND 红砖>0 AND 三线上>0;
MR4:=蓝砖1>0 AND 蓝砖>0 AND 红砖>0 AND 三线上>0;
MR5:=(蓝砖1>0 AND 蓝砖>0 AND 红砖>0 AND 三线红>0) OR (金砖1>0 AND 蓝砖>0 AND 红砖>0 AND 三线红>0);
MR6:=回调线>0 AND 红砖>0;
MR7:=JZVAR2<REF(JZVAR2,1) OR 红砖<0 OR (金砖=0 AND 蓝砖=0);
IF BARSTATUS=2 AND MR1 THEN BEGIN
DRAWTEXTREL(420,5,'● 金砖
[url=http://www.70822.com/soft/sort013/sort03/down-109608.html]金砖看盘[/url]
[url=http://www.70822.com/soft/sort013/sort03/down-109608.html]金砖看盘[/url]